Changeset 13562

Timestamp:

Mar 28, 2010, 5:01:00 AM (15 years ago)

Author:

Gary Byers

Message:

Make variables bound by WITH-STANDARD-IO-SYNTAX thread-local.

File:

• trunk/source/level-1/l1-boot-2.lisp (modified) (1 diff)

trunk/source/level-1/l1-boot-2.lisp

@@ -169 +169 @@
 (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)