[asdf-devel] bug in new ASDF

Robert Goldman rpgoldman at sift.info
Mon Jul 13 18:55:16 UTC 2009

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
        (member (pathname-type pathname) (list nil :unspecific))))

 (defun pathname-name+type (pathname)

More information about the asdf-devel mailing list