Great, then why not replace ASDF's function user-homedir into this one: (defun* user-homedir () #+mcl (ccl::findfolder #$kuserdomain #$kCurrentUserFolderType) #-mcl (truenamize (pathname-directory-pathname (user-homedir-pathname))))
I've made a patch (in attach), include above new definition and some notes. I hope Faré could merge it. We still love MCL even though it has so much difference from other modern CL platforms. --binghe
asdf2-mcl-homedir.diff
Description: Binary data
在 2011-5-19，07:05， Terje Norderhaug 写道： > On May 17, 2011, at 10:26 PM, Chun Tian (binghe) wrote: >>> Some time ago I can use ASDF with Macintosh Common Lisp, but recently I >>> can't any more. >> >> I found a workaround for myself: >> >> (in-package :asdf) >> >> (defun user-homedir () >> #P"Macintosh HD:Users:binghe:") >> >> with above code loaded as a ASDF patch, I can load other packages well. > > Alternatively, when using ASDF with MCL, bind ccl::*user-homedir-pathname* to > the pathname for the ~/ home directory of the current user: > > (ccl::findfolder #$kuserdomain #$kCurrentUserFolderType) > > The ccl::user-homedir-pathname function returns the value of > ccl::*user-homedir-pathname* when called with no arguments. > > I have made a note about it in the ASDF section of > <http://code.google.com/p/mcl/wiki/Portability>. > > -- Terje Norderhaug > [email protected] > > > > >
_______________________________________________ asdf-devel mailing list [email protected] http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
