Index: /trunk/source/level-1/l1-boot-2.lisp
===================================================================
--- /trunk/source/level-1/l1-boot-2.lisp	(revision 13561)
+++ /trunk/source/level-1/l1-boot-2.lisp	(revision 13562)
@@ -169,4 +169,31 @@
 (def-standard-initial-binding *query-io*)
 
+;;; Things bound by WITH-STANDARD-IO-SYNTAX (and not otherwise thread-local)
+(def-standard-initial-binding *print-array* t)
+(def-standard-initial-binding *print-base* 10.)
+(def-standard-initial-binding *print-case* :upcase)
+(def-standard-initial-binding *print-circle* nil)
+(def-standard-initial-binding *print-escape* t)
+(def-standard-initial-binding *print-gensym* t)
+(def-standard-initial-binding *print-length* nil)
+(def-standard-initial-binding *print-level* nil)
+(def-standard-initial-binding *print-lines* nil) 
+(def-standard-initial-binding *print-miser-width* nil)
+(def-standard-initial-binding *print-pprint-dispatch* nil)
+(def-standard-initial-binding *print-pretty* nil)
+(def-standard-initial-binding *print-radix* nil)
+(def-standard-initial-binding *print-readably* t)
+(def-standard-initial-binding *print-right-margin* nil)
+(def-standard-initial-binding *read-base* 10.)
+(def-standard-initial-binding *read-default-float-format* 'single-float)
+(def-standard-initial-binding *read-eval* t) 
+(def-standard-initial-binding *read-suppress* nil)
+;;; ccl extensions (see l1-io.lisp)
+(def-standard-initial-binding *print-abbreviate-quote* t)
+(def-standard-initial-binding *print-structure* t)
+(def-standard-initial-binding *print-simple-vector* nil)
+(def-standard-initial-binding *print-simple-bit-vector* nil)
+(def-standard-initial-binding *print-string-length* nil)
+
 
 (defun set-terminal-encoding (encoding-name)