[asdf-devel] bug in new ASDF
gwking at metabang.com
Mon Jul 13 20:38:20 UTC 2009
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>
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
> (member (pathname-type pathname) (list nil :unspecific))))
> (defun pathname-name+type (pathname)
> asdf-devel mailing list
> asdf-devel at common-lisp.net
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM * gwking on twitter
More information about the asdf-devel