Changeset 7341


Ignore:
Timestamp:
Oct 2, 2007, 7:30:31 PM (13 years ago)
Author:
palter
Message:

For :IF-EXISTS :SUPERSEDE, be sure to convert the target pathname to a
native namestring before calling UNIX-RENAME.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-sysio.lisp

    r6019 r7341  
    769769                     (let ((truename (native-to-pathname native-truename)))
    770770                       (setq temp-name (gen-file-name truename))
    771                        (unix-rename native-truename (namestring temp-name))
     771                       (unix-rename native-truename (native-untranslated-namestring temp-name))
    772772                       (%create-file native-truename))))))
    773773              (return-from open nil)))
Note: See TracChangeset for help on using the changeset viewer.