Changeset 13263

Timestamp:

04/06/11 08:29:44 (12 years ago)

Author:

Mark Evenson

Message:

MAKE-PATHNAME erroneously merges directories as in MERGE-PATHNAMES

As noted in ​http://article.gmane.org/gmane.lisp.armedbear.devel/1867
MAKE-PATHNAME the following form mistakenly returns #p"/home/fare/"
when it should return #p""

(make-pathname :directory nil :defaults "/home/fare/")

Discovered by Fare in working through ASDF-2.014

File:

• trunk/abcl/test/lisp/abcl/pathname-tests.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/pathname-tests.lisp

@@ -1714 +1714 @@
           (load file))))
   t)
+
+(deftest pathname.make-pathname.1
+    (make-pathname :directory nil :defaults "/home/fare/")
+  #p"")