Changeset 13562


Ignore:
Timestamp:
Mar 28, 2010, 12:01:00 PM (9 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-boot-2.lisp

    r13501 r13562  
    169169(def-standard-initial-binding *query-io*)
    170170
     171;;; Things bound by WITH-STANDARD-IO-SYNTAX (and not otherwise thread-local)
     172(def-standard-initial-binding *print-array* t)
     173(def-standard-initial-binding *print-base* 10.)
     174(def-standard-initial-binding *print-case* :upcase)
     175(def-standard-initial-binding *print-circle* nil)
     176(def-standard-initial-binding *print-escape* t)
     177(def-standard-initial-binding *print-gensym* t)
     178(def-standard-initial-binding *print-length* nil)
     179(def-standard-initial-binding *print-level* nil)
     180(def-standard-initial-binding *print-lines* nil)
     181(def-standard-initial-binding *print-miser-width* nil)
     182(def-standard-initial-binding *print-pprint-dispatch* nil)
     183(def-standard-initial-binding *print-pretty* nil)
     184(def-standard-initial-binding *print-radix* nil)
     185(def-standard-initial-binding *print-readably* t)
     186(def-standard-initial-binding *print-right-margin* nil)
     187(def-standard-initial-binding *read-base* 10.)
     188(def-standard-initial-binding *read-default-float-format* 'single-float)
     189(def-standard-initial-binding *read-eval* t)
     190(def-standard-initial-binding *read-suppress* nil)
     191;;; ccl extensions (see l1-io.lisp)
     192(def-standard-initial-binding *print-abbreviate-quote* t)
     193(def-standard-initial-binding *print-structure* t)
     194(def-standard-initial-binding *print-simple-vector* nil)
     195(def-standard-initial-binding *print-simple-bit-vector* nil)
     196(def-standard-initial-binding *print-string-length* nil)
     197
    171198
    172199(defun set-terminal-encoding (encoding-name)
Note: See TracChangeset for help on using the changeset viewer.