diff --git a/test/script-support.lisp b/test/script-support.lisp index 4a7497581098e4944ad845108ac18cba93fb176f..1b440179d93e067638ad4547c722ed1c87ab09ea 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -385,6 +385,7 @@ is bound, write a message and exit on an error. If (finish-outputs*) (unless *debug-asdf* (ignore-errors + (format *error-output* "~&Backtrace:~%") (acall :print-condition-backtrace c :count 69 :stream *error-output*)) (leave-test "Script failed" 1)))))