Changeset 12510

Timestamp:

02/27/10 19:31:45 (11 years ago)

Author:

vvoutilainen

Message:

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

18. Miles, kudos for finding the cause.

File:

• trunk/abcl/src/org/armedbear/lisp/with-standard-io-syntax.lisp (modified) (1 diff)

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

@@ -46 +46 @@
         (*print-lines* nil)
         (*print-miser-width* nil)
+        (*print-pprint-dispatch* (copy-pprint-dispatch nil))
         (*print-pretty* nil)
         (*print-radix* nil)