[asdf-devel] MCL issue

[Chun Tian (binghe)]

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

-------------- next part --------------
A non-text attachment was scrubbed...
Name: asdf2-mcl-homedir.diff
Type: application/octet-stream
Size: 627 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/asdf-devel/attachments/20110519/44f8b7b5/attachment.obj>
-------------- next part --------------

在 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
>   terje at in-progress.com
> 
> 
> 
> 
>