projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
(in-package :cl-user)
-(eval-when (:compile-toplevel :load-toplevel :execute)
+
+(eval-when (:load-toplevel)
(require 'asdf)
(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)
(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