contrib/asdf-install/loader.lisp

   1 (in-package :cl-user)
   2
   3 (eval-when (:load-toplevel)
   4   (unless (find-package 'asdf)
   5     (require 'asdf))
   6   (let ((asdf::*verbose-out* nil))
   7     (require 'asdf-install)))
   8
   9 (defun run ()
  10   (handler-case
  11       (apply #'asdf-install:install (cdr *posix-argv*))
  12     (error (c)
  13       (format *error-output* "Install failed due to error:~%  ~A~%" c)
  14       (sb-ext:quit :unix-status 1))))
  15