contrib/asdf-install/loader.lisp

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