paku/setup-lisp
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Handle errors to process tests tail in all lisp implementations.

Browse source
This commit is contained in:
Alexander Artemenko 2021-02-03 00:33:30 +03:00
parent 9025888cde
commit be97026c30
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
.github/actions/setup/run-tests.ros vendored
View file

@ -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,13 +56,16 @@ 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*
"Please specify ASDF system as a first argument.~%") "Please specify ASDF system as a first argument.~%")
(uiop:quit 1)) (uiop:quit 1))
(let* ((user-script (uiop/stream:slurp-stream-forms *standard-input*)) (let* ((user-script (uiop/stream:slurp-stream-forms *standard-input*))
(result (result
(cond (cond