0.8.6.28:
[sbcl.git] / contrib / asdf-install / loader.lisp
index 7d1211f..a28f005 100644 (file)
@@ -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