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

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 ...@@ -385,6 +385,7 @@ is bound, write a message and exit on an error. If
(finish-outputs*) (finish-outputs*)
(unless *debug-asdf* (unless *debug-asdf*
(ignore-errors (ignore-errors
(format *error-output* "~&Backtrace:~%")
(acall :print-condition-backtrace (acall :print-condition-backtrace
c :count 69 :stream *error-output*)) c :count 69 :stream *error-output*))
(leave-test "Script failed" 1))))) (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