X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rt%2Frt.lisp;h=8601ef70e1c8ef3ccc72ad7a2f8b4a43db97954f;hb=8369a441bfd49566e70939c25f42f8d1f5423e4e;hp=5b06bf9459f2163bbd4669cd44b898191c710ff1;hpb=6e02a5455aeef5a4642a2334348544c1f19775ad;p=sbcl.git

diff --git a/contrib/sb-rt/rt.lisp b/contrib/sb-rt/rt.lisp
index 5b06bf9..8601ef7 100644
--- a/contrib/sb-rt/rt.lisp
+++ b/contrib/sb-rt/rt.lisp
@@ -185,8 +185,7 @@
                 (not (equalp-with-case r (vals entry)))))
 
       (when (pend entry)
-        (let ((*print-circle* *print-circle-on-failure*)
-              (*print-escape* nil))
+        (let ((*print-circle* *print-circle-on-failure*))
           (format s "~&Test ~:@(~S~) failed~
                    ~%Form: ~S~
                    ~%Expected value~P: ~
@@ -249,7 +248,6 @@
                    ~:@(~{~<~%   ~1:;~S~>~
                          ~^, ~}~)."
                     (length new-failures)
-                    new-failures)))
-          ))
+                    new-failures)))))
       (finish-output s)
-      (null pending))))
+      (values (null new-failures) (null pending) pending))))