(in-package :cl-user)

(eval-when (:load-toplevel)
  (unless (find-package 'asdf)
    (require 'asdf)))

(eval-when (:load-toplevel)
  (unless (find-package 'asdf)
    (error "ASDF-Install requires ASDF to load"))    
  (let ((asdf::*verbose-out* nil))
    (require 'asdf-install)))

#+sbcl
(defun run ()
  (handler-case
      (apply #'asdf-install:install (cdr *posix-argv*))
    (error (c)
      (format *error-output* "Install failed due to error:~%  ~A~%" c)
      (sb-ext:quit :unix-status 1))))