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)
_______________________________________________
asdf-devel mailing list
asdf-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
