From a763da755922ddb196c92c036de18fa1a99cd4bf Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Sat, 27 Aug 2016 18:48:58 -0400 Subject: [PATCH] Print "backtrace" before a backtrace in tests This makes it easier to search for the backtrace when debugging. --- test/script-support.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/test/script-support.lisp b/test/script-support.lisp index 4a7497581..1b440179d 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))))) -- GitLab