[Sbcl-commits] CVS: sbcl/contrib/sb-rt rt.lisp,1.4,1.5

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-rt
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv20099/contrib/sb-rt

Modified Files:
	rt.lisp 
Log Message:
1.0.42.44: oops, this bit was not supposed to go in...


Index: rt.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-rt/rt.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- rt.lisp	19 Sep 2010 20:08:47 -0000	1.4
+++ rt.lisp	19 Sep 2010 20:11:58 -0000	1.5
@@ -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: ~