3 (eval-when (:load-toplevel)
4 (unless (find-package 'asdf)
6 (let ((asdf::*verbose-out* nil))
7 (require 'asdf-install)))
11 (apply #'asdf-install:install (cdr *posix-argv*))
13 (format *error-output* "Install failed due to error:~% ~A~%" c)
14 (sb-ext:quit :unix-status 1))))