Handle errors to process tests tail in all lisp implementations.

This commit is contained in:
Alexander Artemenko 2021-02-03 00:33:30 +03:00
parent 9025888cde
commit be97026c30

View file

@ -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*