testscr.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#

(defun main (&rest argv)
  (declare (ignorable argv))
  (uiop:quit (if (handler-case
                     (progn
                       (ql:quickload :numcl.test)
                       (eval (read-from-string "(5am:run! :numcl)")))
                   (serious-condition (c)
                     (describe c)
                     (uiop:quit 2)))
                 0 1)))