Changeset 6319


Ignore:
Timestamp:
Apr 21, 2007, 5:52:47 AM (15 years ago)
Author:
gb
Message:

In SAVE-APPLICATION: check for containing directory after translating
logical pathnames; it's generally meaningless to do PROBE-FILE on
the directory component of a logical pathname.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/dumplisp.lisp

    r6021 r6319  
    5555                   mode prepend-kernel))
    5656  (unless (probe-file (make-pathname :defaults nil
    57                                      :directory (pathname-directory filename)))
     57                                     :directory (pathname-directory (translate-logical-pathname filename))))
    5858    (error "Directory containing ~s does not exist." filename))
    5959  (let* ((kind (%unix-file-kind (namestring (translate-logical-pathname filename)))))
Note: See TracChangeset for help on using the changeset viewer.