X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fasdf-install%2Floader.lisp;h=a28f00521d97669d9a90e5cea4a3d0136b5d36ad;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=7d1211fc362e153d009bb9ed3ed6c9f7e91f7ebb;hpb=08e218c9bd9fdfb1e4dcc5f5e245feea17762471;p=sbcl.git

diff --git a/contrib/asdf-install/loader.lisp b/contrib/asdf-install/loader.lisp
index 7d1211f..a28f005 100644
--- a/contrib/asdf-install/loader.lisp
+++ b/contrib/asdf-install/loader.lisp
@@ -1,15 +1,15 @@
-
 (in-package :cl-user)
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (require 'asdf)
-  (asdf:operate 'asdf:load-op 'asdf-install :verbose nil))
+
+(eval-when (:load-toplevel)
+  (unless (find-package 'asdf)
+    (require 'asdf))
+  (let ((asdf::*verbose-out* nil))
+    (require 'asdf-install)))
 
 (defun run ()
   (handler-case
       (apply #'asdf-install:install (cdr *posix-argv*))
     (error (c)
-      (princ "Install failed due to error:") (terpri)
-      (princ c) (terpri)
-      (quit :unix-status 1))))
+      (format *error-output* "Install failed due to error:~%  ~A~%" c)
+      (sb-ext:quit :unix-status 1))))
 
-;(quit)
\ No newline at end of file