1.0.42.43: FD-STREAMS no longer hook into SERVE-EVENT by default

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

diff --git a/contrib/sb-rt/rt.lisp b/contrib/sb-rt/rt.lisp
index 77a4560..5b06bf9 100644 (file)
--- a/contrib/sb-rt/rt.lisp
+++ b/contrib/sb-rt/rt.lisp
@@ -185,7 +185,8 @@
                 (not (equalp-with-case r (vals entry)))))
 
       (when (pend entry)
-        (let ((*print-circle* *print-circle-on-failure*))
+        (let ((*print-circle* *print-circle-on-failure*)
+              (*print-escape* nil))
           (format s "~&Test ~:@(~S~) failed~
                    ~%Form: ~S~
                    ~%Expected value~P: ~