[asdf-devel] bug in new ASDF

[Robert Goldman]

Partial fix for directory-pathname-p.


diff --git a/asdf.lisp b/asdf.lisp
index 6a8453b..851b5b5 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -433,7 +433,10 @@ which evaluates to a pathname. For example:
 ")

 (defun directory-pathname-p (pathname)
-  (and (member (pathname-name pathname) (list nil :unspecific))
+  "Is PATHNAME intended to represent a directory?
+Note that this does NOT check to see that PATHNAME points to an
+actually-existing directory."
+  (and (member (pathname-name pathname) (list "" nil :unspecific) :test
'equal)
        (member (pathname-type pathname) (list nil :unspecific))))

 (defun pathname-name+type (pathname)