<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">
Hi Chris,<span class="Apple-tab-span" style="white-space:pre"></span><div><br class="webkit-block-placeholder"></div><div>This was an easy change to make, so I did.<span class="Apple-tab-span" style="white-space:pre"></span></div><div><br></div><div>See <a href="http://metabang.com/unclogit/?p=166">http://metabang.com/unclogit/?p=166</a> for a few details...</div><div><br class="webkit-block-placeholder"></div><div>Note that you can use the file:</div><div><br class="webkit-block-placeholder"></div><div><blockquote type="cite" class=""><div>(merge-pathnames</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> (make-pathname :name ".asdf-install")</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> (truename (user-homedir-pathname)))</div></blockquote><br></div><div>(e.g., /user/gwking/.asdf-install) to customize asdf-install variables. This file is loaded by ASDF-Install after everything else is done.</div><div><br class="webkit-block-placeholder"></div><div>HTH,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span><br><div><div>On Aug 11, 2007, at 11:51 PM, Christopher Brown wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">Sorry to bother you out of the blue like this; I guess I could just as easily send this to the mailing list.<br><br>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). <br><br>(defun temp-file-name (p)<br> (declare (ignore p))<br> (let ((pathname nil))<br> (loop for i = 0 then (1+ i) do<br> (setf pathname <br> (merge-pathnames<br> (make-pathname<br> :name (format nil "asdf-install-~d" i) <br> :type "asdf-install-tmp")<br> #+:clisp (user-homedir-pathname)))<br> (unless (probe-file pathname)<br> (return-from temp-file-name pathname)))))<br><br>Should the temporary files directory be configurable? <br><br>Cheers,<br>Chris<br><br><div><span class="gmail_quote">On 11/21/06, <b class="gmail_sendername">Gary King</b> <<a href="mailto:gwking@metabang.com">gwking@metabang.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> <div style="">Great. Thanks.<div><span class="e" id="q_10f0acff7ce5be21_1"><div><br><div><div>On Nov 21, 2006, at 8:32 AM, Christopher Brown wrote:</div><br><blockquote type="cite">Yep, I grabbed 0.6.3 from the darcs repo and verified it works with LispWorks 5.0.<br>Thanks,<br>Chris<br><br><div><span class="gmail_quote">On 11/20/06, <b class="gmail_sendername">Gary King</b> <<a href="mailto:gwking@metabang.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"> gwking@metabang.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>Hi Christopher,<div><br></div><div>When you have a chance, can you please let me know if 0.6.3 works for you.</div><div><br></div><div>thanks,</div><div><br></div><div><br><div><span><div>On Nov 6, 2006, at 5:03 PM, Christopher Brown wrote:</div><br></span><blockquote type="cite"><div><span> Forgive me, as I'm new to both the list and to Lisp. <br>I've been using sbcl, openmcl and now purchased LispWorks 5.0 on the Mac.<br><br>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. <br><br>Please let me know if I'm off the track here.<br><br>Thanks,<br>Chris<br><br>--- ./installer.lisp 2006-11-04 17:39:51.000000000 -0700<br>+++ /Users/cbrown/.asdf-install-dir/site/asdf-install/installer.lisp 2006-11-06 14:52: 31.000000000 -0700<br>@@ -285,11 +285,11 @@<br> (flet ((find-bin (directory)<br> (let ((bin (make-pathname :name tar-command<br> :type nil<br>- :directory directory))) <br>+ :directory (and directory (pathname-directory (parse-namestring directory))))))<br> (when (probe-file bin)<br> (namestring bin)))))<br> (or (find-bin nil) <br>- (find-bin "/usr/bin/"))))<br>+ (find-bin *bin-path*))))<br> #+(or :win32 :mswindows)<br> *cygwin-bash-program*)<br><br>--- ./variables.lisp 2006-11-04 17:39:51.000000000 -0700<br>+++ /Users/cbrown/.asdf-install-dir/site/asdf-install/variables.lisp 2006-11-06 14:47: 49.000000000 -0700<br>@@ -75,6 +75,9 @@<br> #+digitool ,*home-volume-name*<br> "usr" "local" "asdf-install")))))<br> <br> +(defvar *bin-path*<br>+ (make-pathname :directory '(:absolute "usr" "bin")))<br>+<br> (defvar *private-asdf-install-dirs*<br> #+:sbcl<br> (merge-pathnames (make-pathname :directory '(:relative ".sbcl")) <br><br></span></div><span><div style="margin: 0px;">_______________________________________________</div><div style="margin: 0px;">asdf-install-devel mailing list</div><div style="margin: 0px;"><a href="mailto:asdf-install-devel@common-lisp.net" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"> asdf-install-devel@common-lisp.net</a></div><div style="margin: 0px;"><a href="http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-install-devel" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-install-devel </a></div> </span></blockquote></div><span><br><div> <span style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px;"> <span style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px;"> <span style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px;"> <div>--</div><div>Gary Warren King, <a href="http://metabang.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">metabang.com</a> </div><div>Cell: (413) 885 9127</div><div>Fax: (206) 338-4052</div> </span><div>gwkkwg on Skype * garethsan on AIM</div><div><br></div><div><br></div></span><br></span> </div><br></span></div></div> </blockquote></div><br></blockquote></div><br><div> <span style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px;"> <span style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px;"> <span style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px;"> <div>--</div><div>Gary Warren King, <a href="http://metabang.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">metabang.com</a> </div><div>Cell: (413) 885 9127</div><div>Fax: (206) 338-4052</div> </span><div>gwkkwg on Skype * garethsan on AIM</div><div><br></div><div><br></div></span><br></span> </div><br></div></span></div></div></blockquote></div><br></blockquote></div><br><div> <span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><div>--</div><div>Gary Warren King, metabang.com </div><div>Cell: (413) 885 9127</div><div>Fax: (206) 338-4052</div></span><div>gwkkwg on Skype * garethsan on AIM</div><div><br class="khtml-block-placeholder"></div><div><br class="khtml-block-placeholder"></div></span><br class="Apple-interchange-newline"></span> </div><br></div></body></html>