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

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