Ignore:
Timestamp:
Mar 29, 2008, 2:46:46 AM (11 years ago)
Author:
gz
Message:

Fix for bugs #263 and #238:

  • %unix-file-kind takes a native namestring, so don't try to nativize it.
  • file-namestring-from-parts on the other hand takes escaped strings, so don't try to re-escape them.
  • Add a comment in %path-std-quotes explaining the convention.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/dumplisp.lisp

    r8888 r8931  
    6969                                     :directory (pathname-directory (translate-logical-pathname filename))))
    7070    (error "Directory containing ~s does not exist." filename))
    71   (let* ((kind (%unix-file-kind (namestring (translate-logical-pathname filename)))))
     71  (let* ((kind (%unix-file-kind (native-translated-namestring filename))))
    7272    (when (and kind (not (eq kind :file )))
    7373      (error "~S is not a regular file." filename)))
Note: See TracChangeset for help on using the changeset viewer.