1.0.41.55: Solaris fixes

[sbcl.git] / tests / test-util.lisp

diff --git a/tests/test-util.lisp b/tests/test-util.lisp
index 7ef6b6b..f9ca05f 100644 (file)
--- 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*