A minor enhancement for asdf-install and a bug fix

First, I hope this is the right place to report bugs on asdf-install.

The bug is in get-env-var.  It substitues - for _, when it should be
the other way around for cmucl.

The enhancement is to allow the user to specify the name and/or
location of gnu tar.  Solaris tar doesn't support the -C or -z
options, so gnu tar needs to be in the user's path or a different name
is needed.  (I use "gtar" as the name.)

A simple patch is appended.

Ray

P.S.  I'm not subscribed to this list.


--- asdf-install/installer.lisp Sat Apr 24 11:08:31 2004
+++ /home/unix/eusrtoy/apps/lisp/asdf/asdf-install/installer.lisp       Mon Aug  9 13:11:09 2004
@@ -28,6 +28,9 @@
 (defparameter *cygwin-bash-program*
   "C:\\PROGRA~1\\Cygwin\\bin\\bash.exe")
 
+(defvar *gnu-tar-program*
+  "tar"
+  "Path to the GNU tar program")
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defparameter *supported-defsystems*
@@ -446,7 +449,7 @@
   (ensure-directories-exist system)
   (let* ((tar
           (or #-(or :win32 :mswindows)
-              (return-output-from-program "tar"
+              (return-output-from-program *gnu-tar-program*
                                           (list "-C" (namestring (truename source))
                                                 "-xzvf" (namestring (truename packagename))))
               #+(or :win32 :mswindows)
Only in /home/unix/eusrtoy/apps/lisp/asdf/asdf-install: installer.lisp~
Only in /home/unix/eusrtoy/apps/lisp/asdf/asdf-install: installer.sparcf
diff -u --recursive asdf-install/port.lisp /home/unix/eusrtoy/apps/lisp/asdf/asdf-install/port.lisp
--- asdf-install/port.lisp      Sat Apr 24 15:15:33 2004
+++ /home/unix/eusrtoy/apps/lisp/asdf/asdf-install/port.lisp    Mon Aug  9 12:28:49 2004
@@ -14,7 +14,7 @@
 
 (defun get-env-var (name)
   #+:sbcl (sb-ext:posix-getenv name)
-  #+:cmu (cdr (assoc (intern (substitute #\- #\_ name)
+  #+:cmu (cdr (assoc (intern (substitute #\_ #\- name)
                             :keyword)
                     ext:*environment-list*))
   #+:allegro (sys:getenv name)



-------------------------------------------------------
SF.Net email is sponsored by Shop4tech.com-Lowest price on Blank Media
100pk Sonic DVD-R 4x for only $29 -100pk Sonic DVD+R for only $33
Save 50% off Retail on Ink & Toner - Free Shipping and Free Gift.
http://www.shop4tech.com/z/Inkjet_Cartridges/9_108_r285