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
|
||||
(ros:ensure-asdf)
|
||||
#+quicklisp(ql:quickload '() :silent t)
|
||||
)
|
||||
#+quicklisp(ql:quickload '(trivial-backtrace)
|
||||
:silent t))
|
||||
|
||||
(defpackage :ros.script.run-tests
|
||||
(:use :cl))
|
||||
|
@ -56,7 +56,10 @@ 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*
|
||||
|
|
Loading…
Reference in a new issue