From 5ff307e4be9cd56f872398841dc813481024ec81 Mon Sep 17 00:00:00 2001 From: Kilian Sprotte Date: Fri, 1 Sep 2006 08:14:39 +0200 Subject: [PATCH] Princ-ing of Unexpected Error --- src/run.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/run.lisp b/src/run.lisp index c070f44..fb78175 100644 --- a/src/run.lisp +++ b/src/run.lisp @@ -131,7 +131,7 @@ run.")) (add-result 'unexpected-test-failure :test-expr nil :test-case test - :reason (format nil "Unexpected Error: ~S." e) + :reason (format nil "Unexpected Error: ~S~%~A." e e) :condition e)) (run-it () (let ((result-list '())) -- 1.7.10.4