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