Hi Robert,
I think our code passed in the ether. (I think that) The only substantive difference between your version and mine is that mine checks both type and name against ("" nil :unspecific) whereas yours treats name and type differently. What's up with that? <smile>
thanks,
On Jul 13, 2009, at 2:55 PM, Robert Goldman wrote:
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
-- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM * gwking on twitter