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
(unless *debug-asdf*
(format *error-output* "~&Backtrace:~%")
(acall :print-condition-backtrace
c :count 69 :stream *error-output*))
(leave-test "Script failed" 1)))))
Supports Markdown
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