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

[Christopher Brown]

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"))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/asdf-install-devel/attachments/20061106/2db72b10/attachment.html>