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

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