Changeset 10711


Ignore:
Timestamp:
Sep 12, 2008, 5:57:45 AM (11 years ago)
Author:
gb
Message:

Need to set PATHNAME-DEVICE when deriving ccl directory from image name.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-pathnames.lisp

    r10705 r10711  
    639639    (if dirpath
    640640      (native-to-directory-pathname dirpath)
    641       (make-pathname :directory (pathname-directory (%realpath (heap-image-name)))))))
     641      (let* ((heap-image-path (%realpath (heap-image-name))))
     642        (make-pathname :directory (pathname-directory heap-image-path)
     643                       :device (pathname-device heap-image-path))))))
    642644
    643645(defun user-homedir-pathname (&optional host)
Note: See TracChangeset for help on using the changeset viewer.