From be97026c301e25b73714dad839cdc2eb75873b00 Mon Sep 17 00:00:00 2001 From: Alexander Artemenko Date: Wed, 3 Feb 2021 00:33:30 +0300 Subject: [PATCH] Handle errors to process tests tail in all lisp implementations. --- .github/actions/setup/run-tests.ros | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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