[asdf-install-devel] Possible patch to installer.lisp for LispWorks 5.0?

[Gary King]

Hi Chris,

This was an easy change to make, so I did.

See http://metabang.com/unclogit/?p=166 for a few details...

Note that you can use the file:

> (merge-pathnames
> 			    (make-pathname :name ".asdf-install")
> 			    (truename (user-homedir-pathname)))

(e.g., /user/gwking/.asdf-install) to customize asdf-install  
variables. This file is loaded by ASDF-Install after everything else  
is done.

HTH,
	
On Aug 11, 2007, at 11:51 PM, Christopher Brown wrote:

> Sorry to bother you out of the blue like this; I guess I could just  
> as easily send this to the mailing list.
>
> I'm curious why temp-file-name only uses (user-homedir-pathname)  
> under clisp.  Without this, under Lispworks on OS X, it attempts to  
> write temporary files to the root of my startup volume.  If I'm  
> running as a user that doesn't have write access there, it fails.   
> I've included the function I'm talking about (direct from the darcs  
> repo below).
>
> (defun temp-file-name (p)
>   (declare (ignore p))
>   (let ((pathname nil))
>     (loop for i = 0 then (1+ i) do
>      (setf pathname
>            (merge-pathnames
>         (make-pathname
>          :name (format nil "asdf-install-~d" i)
>          :type "asdf-install-tmp")
>         #+:clisp (user-homedir-pathname)))
>      (unless (probe-file pathname)
>        (return-from temp-file-name pathname)))))
>
> Should the temporary files directory be configurable?
>
> Cheers,
> Chris
>
> On 11/21/06, Gary King <gwking at metabang.com> wrote:
> Great. Thanks.
>
> On Nov 21, 2006, at 8:32 AM, Christopher Brown wrote:
>
>> Yep, I grabbed 0.6.3 from the darcs repo and verified it works  
>> with LispWorks 5.0.
>> Thanks,
>> Chris
>>
>> On 11/20/06, Gary King < gwking at metabang.com> wrote:
>> Hi Christopher,
>>
>> When you have a chance, can you please let me know if 0.6.3 works  
>> for you.
>>
>> thanks,
>>
>>
>> On Nov 6, 2006, at 5:03 PM, Christopher Brown wrote:
>>
>>> Forgive me, as I'm new to both the list and to Lisp.
>>> I've been using sbcl, openmcl and now purchased LispWorks 5.0 on  
>>> the Mac.
>>>
>>> The most recent asdf-install seems to work with openmcl, but  
>>> LispWorks gives an error about ' "/usr/bin", top-level directory  
>>> cannot contain "/"' from the call to make-pathname in tar- 
>>> command.  I messed about and came up with the following patches  
>>> that seem to work in both LispWorks and openmcl. The first gets  
>>> the pathname-directory if not nil and the second simply builds an  
>>> absolute directory from "usr" and "bin" in a gratuitous *bin- 
>>> path* variable.
>>>
>>> Please let me know if I'm off the track here.
>>>
>>> Thanks,
>>> Chris
>>>
>>> --- ./installer.lisp    2006-11-04 17:39:51.000000000 -0700
>>> +++ /Users/cbrown/.asdf-install-dir/site/asdf-install/ 
>>> installer.lisp    2006-11-06 14:52: 31.000000000 -0700
>>> @@ -285,11 +285,11 @@
>>>      (flet ((find-bin (directory)
>>>              (let ((bin (make-pathname :name tar-command
>>>                                        :type nil
>>> -                                      :directory directory)))
>>> +                                      :directory (and directory  
>>> (pathname-directory (parse-namestring directory))))))
>>>                (when (probe-file bin)
>>>                  (namestring bin)))))
>>>        (or (find-bin nil)
>>> -         (find-bin "/usr/bin/"))))
>>> +         (find-bin *bin-path*))))
>>>    #+(or :win32 :mswindows)
>>>    *cygwin-bash-program*)
>>>
>>> --- ./variables.lisp    2006-11-04 17:39:51.000000000 -0700
>>> +++ /Users/cbrown/.asdf-install-dir/site/asdf-install/ 
>>> variables.lisp    2006-11-06 14:47: 49.000000000 -0700
>>> @@ -75,6 +75,9 @@
>>>                                      #+digitool ,*home-volume-name*
>>>                                      "usr" "local" "asdf- 
>>> install")))))
>>>
>>> +(defvar *bin-path*
>>> +  (make-pathname :directory '(:absolute "usr" "bin")))
>>> +
>>>  (defvar *private-asdf-install-dirs*
>>>    #+:sbcl
>>>    (merge-pathnames (make-pathname :directory '(:relative ".sbcl"))
>>>
>>> _______________________________________________
>>> asdf-install-devel mailing list
>>> asdf-install-devel at common-lisp.net
>>> http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-install-devel
>>
>> --
>> Gary Warren King, metabang.com
>> Cell: (413) 885 9127
>> Fax: (206) 338-4052
>> gwkkwg on Skype * garethsan on AIM
>>
>>
>>
>>
>>
>
> --
> Gary Warren King, metabang.com
> Cell: (413) 885 9127
> Fax: (206) 338-4052
> gwkkwg on Skype * garethsan on AIM
>
>
>
>
>

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM




-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/asdf-install-devel/attachments/20070814/f4b7690f/attachment.html>