[asdf-devel] Guard against (push "/foo/bar" asdf:*central-registry*)

[Gary King]

> I believe that FILE-NAMESTRING is supposed to do roughly what you want
> here.
>

excellent!

>> (defun ensure-directory-pathname (pathname)
>>   (if (directory-pathname-p pathname)
>>       pathname
>>       (make-pathname
>>        :directory `(,@(pathname-directory pathname)
>> 		      ,(namestring (pathname-name+type pathname))))))
>
> This loses the device component from PATHNAME, and is otherwise  
> prone to
> fail in case the host component of *DEFAULT-PATHNAME-DEFAULTS* differs
> from the host component of PATHNAME.  How about


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