X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=tests%2Frun-tests.lisp;h=dcf2f2c9d2c6c8fb652a1cd4716d224d798c9b0c;hb=6d9e2243954872457115bbb9ac1ecb1d161acced;hp=bf4892a7841b8ebace04a771a46d00c3deaed86f;hpb=f0da2f63aa0b4e6d4dbf884854a4bf2dfdd01fc0;p=sbcl.git

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index bf4892a..dcf2f2c 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -44,7 +44,8 @@
 (defun report ()
   (terpri)
   (format t "Finished running tests.~%")
-  (let ((skipcount 0))
+  (let ((skipcount 0)
+        (*print-pretty* nil))
     (cond (*all-failures*
            (format t "Status:~%")
            (dolist (fail (reverse *all-failures*))