[asdf-devel] bug in new ASDF

[Gary King]

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 at 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