Changeset 13563 for trunk/source/level-1


Ignore:
Timestamp:
Mar 29, 2010, 9:19:35 AM (9 years ago)
Author:
gb
Message:

Bind newly per-process I/O variables to their static/default values,
not to the values that WITH-STANDARD-IO-SYNTAX considers "standard."

File:
1 edited

Legend:

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

    r13562 r13563  
    170170
    171171;;; 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)
     172(def-standard-initial-binding *print-array*)
     173(def-standard-initial-binding *print-base*)
     174(def-standard-initial-binding *print-case*)
     175(def-standard-initial-binding *print-circle*)
     176(def-standard-initial-binding *print-escape*)
     177(def-standard-initial-binding *print-gensym*)
     178(def-standard-initial-binding *print-length*)
     179(def-standard-initial-binding *print-level*)
     180(def-standard-initial-binding *print-lines*)
     181(def-standard-initial-binding *print-miser-width*)
     182(def-standard-initial-binding *print-pprint-dispatch*)
     183(def-standard-initial-binding *print-pretty*)
     184(def-standard-initial-binding *print-radix*)
     185(def-standard-initial-binding *print-readably*)
     186(def-standard-initial-binding *print-right-margin*)
     187(def-standard-initial-binding *read-base*)
     188(def-standard-initial-binding *read-default-float-format*)
     189(def-standard-initial-binding *read-eval*)
     190(def-standard-initial-binding *read-suppress*)
    191191;;; 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)
     192(def-standard-initial-binding *print-abbreviate-quote*)
     193(def-standard-initial-binding *print-structure*)
     194(def-standard-initial-binding *print-simple-vector*)
     195(def-standard-initial-binding *print-simple-bit-vector*)
     196(def-standard-initial-binding *print-string-length*)
    197197
    198198
Note: See TracChangeset for help on using the changeset viewer.