Changeset 12666

Timestamp:

05/11/10 14:13:17 (13 years ago)

Author:

Mark Evenson

Message:

Fix ASDF:MERGE-PATHNAMES* in the case that default directory is nil.

File:

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

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

@@ -517 +517 @@
              (values (pathname-host defaults)
                      (pathname-device defaults)
-                     (append (pathname-directory defaults) (cdr directory))
+                     (if (null (pathname-directory defaults))
+                         directory
+                         (append (pathname-directory defaults) (cdr directory)))
                      (unspecific-handler defaults)))
             #+gcl