X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fasdf-install%2Finstaller.lisp;h=d17d7e1bcdf5988f2133ab517d85d299cad5f1e3;hb=ded744f74ab2f1a97679ad4f91e0eb8d995daef2;hp=656c913ea9296fb838b1c7b6caa680640c058804;hpb=3f321528f3da20ce000bb5e0d42bf5e204b3e696;p=sbcl.git

diff --git a/contrib/asdf-install/installer.lisp b/contrib/asdf-install/installer.lisp
index 656c913..d17d7e1 100644
--- a/contrib/asdf-install/installer.lisp
+++ b/contrib/asdf-install/installer.lisp
@@ -11,9 +11,9 @@
   (let ((path (pathname name)))
     (if (pathname-name path)
 	(merge-pathnames
-	 (make-pathname :directory `(:relative ,(pathname-name path))
-			:name "")
-	 path)
+	 (make-pathname :directory `(:relative ,(pathname-name path)))
+	 (make-pathname :directory (pathname-directory path)
+			:host (pathname-host path)))
 	path)))
 
 (defvar *sbcl-home* (directorify (posix-getenv "SBCL_HOME")))
@@ -163,7 +163,7 @@
       (restart-case 
 	  (verify-gpg-signature/url url file-name)
 	(skip-gpg-check (&rest rest)
-	  :report "Don't ckeck GPG signature for this package"
+	  :report "Don't check GPG signature for this package"
 	  nil)))))
 
 (defun read-until-eof (stream)
@@ -249,7 +249,8 @@
   (let* ((tar
 	  (with-output-to-string (o)
 	    (or
-	     (sb-ext:run-program "tar"
+	     (sb-ext:run-program #-darwin "tar"
+				 #+darwin "gnutar"
 				 (list "-C" (namestring source)
 				       "-xzvf" (namestring packagename))
 				 :output o
@@ -327,7 +328,7 @@
 	     (one-iter packages)))
       (let ((p (merge-pathnames "trusted-uids.lisp" *dot-sbcl*)))
 	(ensure-directories-exist p)
-	(with-open-file (out p :direction :output)
+	(with-open-file (out p :direction :output :if-exists :supersede)
 	  (with-standard-io-syntax
 	    (prin1 *trusted-uids* out))))
       (dolist (l *temporary-files*)