Changeset 13300

Timestamp:

05/27/11 13:06:08 (12 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:

• trunk/abcl/src/org/armedbear/lisp/pathnames.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/pathnames.lisp

@@ -324 +324 @@
                                                    case)
                    :version   (if (null (pathname-host from))
-                                  (if (eq (pathname-version to) :wild)
-                                      (pathname-version from)
+                                  (if (or (eq (pathname-version to) :wild)
+                                          (eq (pathname-version to) nil))
+                                      (pathname-version source)
                                       (pathname-version to))
                                   (translate-component (pathname-version source)