Handle errors to process tests tail in all lisp implementations.
This commit is contained in:
parent
9025888cde
commit
be97026c30
1 changed files with 7 additions and 4 deletions
9
.github/actions/setup/run-tests.ros
vendored
9
.github/actions/setup/run-tests.ros
vendored
|
@ -5,8 +5,8 @@ exec ros -Q -- $0 "$@"
|
||||||
|#
|
|#
|
||||||
(progn ;;init forms
|
(progn ;;init forms
|
||||||
(ros:ensure-asdf)
|
(ros:ensure-asdf)
|
||||||
#+quicklisp(ql:quickload '() :silent t)
|
#+quicklisp(ql:quickload '(trivial-backtrace)
|
||||||
)
|
:silent t))
|
||||||
|
|
||||||
(defpackage :ros.script.run-tests
|
(defpackage :ros.script.run-tests
|
||||||
(:use :cl))
|
(:use :cl))
|
||||||
|
@ -56,7 +56,10 @@ exec ros -Q -- $0 "$@"
|
||||||
""))
|
""))
|
||||||
|
|
||||||
(unwind-protect
|
(unwind-protect
|
||||||
(progn
|
(handler-bind
|
||||||
|
((error (lambda (condition)
|
||||||
|
(trivial-backtrace:print-backtrace condition)
|
||||||
|
(uiop:quit 3))))
|
||||||
(when (or (null system)
|
(when (or (null system)
|
||||||
(string= system ""))
|
(string= system ""))
|
||||||
(format *error-output*
|
(format *error-output*
|
||||||
|
|
Loading…
Reference in a new issue