sb-sprof.lisp: Remove trailing white-spaces.

[sbcl.git] / contrib / sb-rt / rt.lisp

diff --git a/contrib/sb-rt/rt.lisp b/contrib/sb-rt/rt.lisp
index 5b06bf9..8601ef7 100644 (file)
--- 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))))