[armedbear-cvs] r13263 - trunk/abcl/test/lisp/abcl

[Mark Evenson]

Author: mevenson
Date: Wed Apr  6 04:29:44 2011
New Revision: 13263

Log:
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

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

Modified: trunk/abcl/test/lisp/abcl/pathname-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/pathname-tests.lisp	(original)
+++ trunk/abcl/test/lisp/abcl/pathname-tests.lisp	Wed Apr  6 04:29:44 2011
@@ -1713,3 +1713,7 @@
             (write *foo.lisp* :stream s))
           (load file))))
   t)
+
+(deftest pathname.make-pathname.1
+    (make-pathname :directory nil :defaults "/home/fare/")
+  #p"")