Re: [asdf-devel] bug in new ASDF

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)