<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Hi Chris,<DIV><BR class="khtml-block-placeholder"></DIV><DIV>I like your patch but I've changed it some in the hopes of being slightly more general. </DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Instead of adding *bin-path*, I'm adding *shell-path* and using it in find-shell-command:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>(defvar *shell-path* '((:absolute "usr" "bin"))</DIV><DIV> "A list of places to look for shell commands.")</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>(defun find-shell-command (command)</DIV><DIV> (loop for directory in *shell-path* do</DIV><DIV> (let ((target (make-pathname :name command :type nil</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> :directory directory)))</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> (when (probe-file target)</DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN> (return-from find-shell-command target))))</DIV><DIV> (values nil))</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Then tar-command becomes:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>(defun tar-command ()</DIV><DIV> #-(or :win32 :mswindows)</DIV><DIV> (find-shell-command *gnu-tar-program*)</DIV><DIV> #+(or :win32 :mswindows)</DIV><DIV> *cygwin-bash-program*)</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>and, hopefully, I can use find-shell-command elsewhere too.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><BR><DIV><DIV>On Nov 6, 2006, at 5:03 PM, Christopher Brown wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite">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><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">_______________________________________________</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">asdf-install-devel mailing list</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><A href="mailto:asdf-install-devel@common-lisp.net">asdf-install-devel@common-lisp.net</A></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><A href="http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-install-devel">http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-install-devel</A></DIV> </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>