Index: /branches/working-0711/ccl/lib/macros.lisp
===================================================================
--- /branches/working-0711/ccl/lib/macros.lisp	(revision 12957)
+++ /branches/working-0711/ccl/lib/macros.lisp	(revision 12958)
@@ -1547,5 +1547,11 @@
            (*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)))