Changeset 15441 for release


Ignore:
Timestamp:
Aug 17, 2012, 12:25:48 AM (7 years ago)
Author:
svspire
Message:

revert. Should have been in trunk.

File:
1 edited

Legend:

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

    r15440 r15441  
    615615(defun ccl-directory ()
    616616  (let* ((dirpath (getenv "CCL_DEFAULT_DIRECTORY")))
    617     (if (and dirpath (not (zerop (length (namestring dirpath)))))
     617    (if dirpath
    618618      (native-to-directory-pathname dirpath)
    619619      (let* ((heap-image-path (%realpath (heap-image-name))))
Note: See TracChangeset for help on using the changeset viewer.