Ignore:
Timestamp:
05/27/11 13:06:08 (11 years ago)
Author:
Mark Evenson
Message:

TRANSLATE-PATHNAME uses source version if to version if :wild or nil.

This aligns the behavior to what SBCL does. The original behavior of
ABCL of using the from version would result in a lot of the usages of
TRANSLATE-PATHNAME with wildcards to produce a wild version in the
result which is probably never the intention.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/pathnames.lisp

    r12617 r13300  
    324324                                                   case)
    325325                   :version   (if (null (pathname-host from))
    326                                   (if (eq (pathname-version to) :wild)
    327                                       (pathname-version from)
     326                                  (if (or (eq (pathname-version to) :wild)
     327                                          (eq (pathname-version to) nil))
     328                                      (pathname-version source)
    328329                                      (pathname-version to))
    329330                                  (translate-component (pathname-version source)
Note: See TracChangeset for help on using the changeset viewer.