[asdf-devel] bug in new ASDF
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
@@ -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
+ (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