[Openmcl-cvs-notifications] r13113 - /trunk/source/tools/asdf-install/installer.lisp

[rme at clozure.com]

Author: rme
Date: Wed Oct 28 21:37:51 2009
New Revision: 13113

Log:
If output from tar starts with "x " (as it does on Snow Leopard), then
remove that.

Modified:
    trunk/source/tools/asdf-install/installer.lisp

Modified: trunk/source/tools/asdf-install/installer.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/tools/asdf-install/installer.lisp (original)
+++ trunk/source/tools/asdf-install/installer.lisp Wed Oct 28 21:37:51 2009
@@ -318,7 +318,10 @@
   "Returns a list of system names (ASDF or MK:DEFSYSTEM) for installed sys=
tems."
   (ensure-directories-exist source)
   (ensure-directories-exist system)
-  (let* ((tar (extract source packagename))
+  (let* ((tar-output (extract source packagename))
+	 (tar (if (string=3D tar-output "x " :end1 2)
+		(subseq tar-output 2)
+		tar-output))
 	 (pos-slash (or (position #\/ tar)
                         (position #\Return tar)
                         (position #\Linefeed tar)))