[armedbear-cvs] r12510 - trunk/abcl/src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Sat Feb 27 14:31:45 2010
New Revision: 12510

Log:
Fix the test WITH-STANDARD-IO-SYNTAX.23, which was failing because
our with-standard-io-syntax implementation failed to restore
*print-pprint-dispatch* to its standard value. Patch by Douglas
R. Miles, kudos for finding the cause.


Modified:
   trunk/abcl/src/org/armedbear/lisp/with-standard-io-syntax.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/with-standard-io-syntax.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/with-standard-io-syntax.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/with-standard-io-syntax.lisp	Sat Feb 27 14:31:45 2010
@@ -45,6 +45,7 @@
         (*print-level* nil)
         (*print-lines* nil)
         (*print-miser-width* nil)
+        (*print-pprint-dispatch* (copy-pprint-dispatch nil))
         (*print-pretty* nil)
         (*print-radix* nil)
         (*print-readably* t)