Changeset 15543


Ignore:
Timestamp:
Dec 18, 2012, 2:19:45 AM (7 years ago)
Author:
gb
Message:

Merge RENAME-FILE's first argument with *DEFAULT-PATHNAME-DEFAULTS*
before merging the second argument with the result, as suggested
by orivej in ticket:1036. I honestly don't know whether this is
correct or not.

See 19.2.3; if there's something more conclusive than than that,
I haven't found it.

Nominally fixes ticket:1036; may or may not break existing code
that depends on old behavior.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/pathnames.lisp

    r15348 r15543  
    9999  (let* ((original (truename file))
    100100         (original-namestring (native-translated-namestring original))
    101          (new-name (merge-pathnames new-name original))
     101         (new-name (merge-pathnames new-name (merge-pathnames file)))
    102102         (new-namestring (native-translated-namestring new-name)))
    103103    (unless new-namestring
Note: See TracChangeset for help on using the changeset viewer.