> 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 _______________________________________________ asdf-devel mailing list asdf-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
