From gwking at metabang.com Sun Aug 12 17:06:35 2007 From: gwking at metabang.com (Gary King) Date: Sun, 12 Aug 2007 13:06:35 -0400 Subject: [asdf-install-devel] Announce: ASDF-Install 0.6.9 Message-ID: [ASDF-Install][] now supports [ECL][] thanks to Juan Jose Garcia- Ripoll for the code and to Marty for giving me a push. Other, significantly more minor, changes include the usual code cleanup and the addition of ASDF-Install's [test results][] on the project home-page. (as always, please let me know if these changes cause any problems in your setup. If I don't reply quickly, it's probably because I've been abducted by aliens, gone temporarily insane, or am just having too much fun on my day job! If I don't reply at all, e-mail me again to remind me. thanks). [ASDF-Install]: http://common-lisp.net/project/asdf-install/ [ECL]: http://ecls.sourceforge.net/ [test results]: http://common-lisp.net/project/asdf-install/test- report.html -- Gary Warren King, metabang.com Cell: (413) 885 9127 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM From gwking at metabang.com Wed Aug 15 02:13:57 2007 From: gwking at metabang.com (Gary King) Date: Tue, 14 Aug 2007 22:13:57 -0400 Subject: [asdf-install-devel] Possible patch to installer.lisp for LispWorks 5.0? In-Reply-To: <6e6edf550708112051y2d730494tb786bc9114fbf0e5@mail.gmail.com> References: <6e6edf550611061403u50f64fb7r3d6a0ef4342e2fd5@mail.gmail.com> <3914B741-CDD3-42C3-AC39-314E9B81384A@metabang.com> <6e6edf550611210532t6088a7e5ufc37f06bf421100e@mail.gmail.com> <6e6edf550708112051y2d730494tb786bc9114fbf0e5@mail.gmail.com> Message-ID: 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 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: