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

diff --git a/contrib/asdf-install/loader.lisp b/contrib/asdf-install/loader.lisp
index 7d1211f..317185d 100644
--- 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