[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

logical-pathnames

Is this broken, or am I still lost?...

(setf (logical-pathname-translations "at") `((#P"**;" "ccl:at;**;")))

(let* ((paths (logical-pathname-translations "at"))
       (new-paths (list (append (car paths) (list #4P"ccl:at;Big
Screen;**;"))))
      )
(print paths)
(print new-paths)
(print
  (setf (logical-pathname-translations "at") new-paths)
)
  (print (logical-pathname-translations "at"))
)

The first form worked.  The second didn't.
"TANSTAAFL" Rich lynch@ils.nwu.edu