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

diff --git a/contrib/sb-rt/rt.lisp b/contrib/sb-rt/rt.lisp
index 5b06bf9..77a4560 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: ~