Changeset 12958

Timestamp:

Oct 9, 2009, 11:30:15 AM (15 years ago)

Author:

gz

Message:

Bind more printer controls in with-standard-io-syntax (r12429)

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/macros.lisp

@@ -1547 +1547 @@
            (*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))
        ,@decls
        ,@body)))