Commit a763da75 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Print "backtrace" before a backtrace in tests

This makes it easier to search for the backtrace when debugging.
parent 28ae28f2
......@@ -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)))))
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment