X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-util.lisp;h=f9ca05f0338013919b181a24a63f54e61bb6e3b7;hb=f16e93459cd73b1884e3d576c95e422f8e8a000e;hp=7ef6b6baec35a03968d17be5be78af9ebf9e23e9;hpb=c26d6a3c601d29e4de039bbea429fc2d3353a6c9;p=sbcl.git

diff --git a/tests/test-util.lisp b/tests/test-util.lisp
index 7ef6b6b..f9ca05f 100644
--- a/tests/test-util.lisp
+++ b/tests/test-util.lisp
@@ -48,7 +48,8 @@
   (incf *test-count*))
 
 (defun fail-test (type test-name condition)
-  (log-msg "~A ~S" type test-name)
+  (log-msg "~@<~A ~S ~:_due to ~S: ~4I~:_\"~A\"~:>"
+           type test-name condition condition)
   (push (list type *test-file* (or test-name *test-count*))
         *failures*)
   (when (or (and *break-on-failure*