[asdf-devel] Small fixup of bogus function in directory-pathname-p

[Gary King]

Hi Joyce,

Thanks for the patch. The version I finally included after the  
extended discussion from last work was certainly wonky.

regards,


On Jul 21, 2009, at 1:08 PM, Joyce Chen wrote:

> actually-existing directory."
> -  (let ((null-components (list  nil :unspecific "")))
> -    (flet ((check-one (x)
> -            (not (null (member (pathname-name pathname) null- 
> components
> -                               :test 'equal)))))
> +  (flet ((check-one (x)
> +          (member x '(nil :unspecific "") :test 'equal)))
>       (and (check-one (pathname-name pathname))
> -          (check-one (pathname-type pathname))))))
> +          (check-one (pathname-type pathname))
> +          t)))

--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM * gwking on twitter