Changeset 15442


Ignore:
Timestamp:
Aug 17, 2012, 9:52:06 PM (7 years ago)
Author:
svspire
Message:

Make #'ccl-directory more robust when CCL_DEFAULT_DIRECTORY is the
empty string rather than NIL. Both cases are now treated identically.

File:
1 edited

Legend:

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

    r14344 r15442  
    615615(defun ccl-directory ()
    616616  (let* ((dirpath (getenv "CCL_DEFAULT_DIRECTORY")))
    617     (if dirpath
     617    (if (and dirpath (not (zerop (length (namestring dirpath)))))
    618618      (native-to-directory-pathname dirpath)
    619619      (let* ((heap-image-path (%realpath (heap-image-name))))
    620         (make-pathname :directory (pathname-directory heap-image-path)
    621                        :device (pathname-device heap-image-path))))))
     620        (make-pathname :directory (pathname-directory heap-image-path)
     621                       :device (pathname-device heap-image-path))))))
    622622
    623623(defun user-homedir-pathname (&optional host)
Note: See TracChangeset for help on using the changeset viewer.