0.8.3.39:

[sbcl.git] / contrib / asdf-install / loader.lisp

diff --git a/contrib/asdf-install/loader.lisp b/contrib/asdf-install/loader.lisp
index 7d1211f..317185d 100644 (file)
--- a/contrib/asdf-install/loader.lisp
+++ b/contrib/asdf-install/loader.lisp
@@ -1,15 +1,13 @@
-
 (in-package :cl-user)
-(eval-when (:compile-toplevel :load-toplevel :execute)
+
+(eval-when (:load-toplevel)
   (require 'asdf)
-  (asdf:operate 'asdf:load-op 'asdf-install :verbose 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