[Openmcl-cvs-notifications] r12429 - /trunk/source/lib/macros.lisp

[gz at clozure.com]

Author: gz
Date: Sun Jul 19 16:08:28 2009
New Revision: 12429

Log:
Bind more printer controls in with-standard-io-syntax

Modified:
    trunk/source/lib/macros.lisp

Modified: trunk/source/lib/macros.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/macros.lisp (original)
+++ trunk/source/lib/macros.lisp Sun Jul 19 16:08:28 2009
@@ -1546,7 +1546,13 @@
            (*read-default-float-format* 'single-float)
            (*read-eval* t) ; Also MIA as of 5/15/90
            (*read-suppress* nil)
-           (*readtable* %initial-readtable%))
+           (*readtable* %initial-readtable%)
+	   ; ccl extensions (see l1-io.lisp)
+	   (*print-abbreviate-quote* t)
+	   (*print-structure* t)
+	   (*print-simple-vector* nil)
+	   (*print-simple-bit-vector* nil)
+	   (*print-string-length* nil))
        , at decls
        , at body)))
 =