diff --git a/.github/actions/setup/run-tests.ros b/.github/actions/setup/run-tests.ros index 3117380..79b7ee8 100755 --- a/.github/actions/setup/run-tests.ros +++ b/.github/actions/setup/run-tests.ros @@ -5,8 +5,8 @@ exec ros -Q -- $0 "$@" |# (progn ;;init forms (ros:ensure-asdf) - #+quicklisp(ql:quickload '() :silent t) - ) + #+quicklisp(ql:quickload '(trivial-backtrace) + :silent t)) (defpackage :ros.script.run-tests (:use :cl)) @@ -56,13 +56,16 @@ exec ros -Q -- $0 "$@" "")) (unwind-protect - (progn + (handler-bind + ((error (lambda (condition) + (trivial-backtrace:print-backtrace condition) + (uiop:quit 3)))) (when (or (null system) (string= system "")) (format *error-output* "Please specify ASDF system as a first argument.~%") (uiop:quit 1)) - + (let* ((user-script (uiop/stream:slurp-stream-forms *standard-input*)) (result (cond