Handle errors to process tests tail in all lisp implementations.

.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