Ignore:
Timestamp:
Oct 13, 2010, 11:47:19 PM (9 years ago)
Author:
gb
Message:

Define standard I/O variables with DEF-STANDARD-INITIAL-BINDING; remove
redundant DEF-STANDARD-INITIAL-BINDING forms for these variables from
ccl:level-1;l1-boot.lisp. (Move some reader var definitions from l1-init.lisp
to l1-reader.lisp.) The effect of this change is that these variables
will be bound per-thread to integer/boolean constants, not to shared values
(that may or may not have preserved their initial values as of the time that
a thread is created.)

Define a macro - WITH-STANDARD-INITIAL-BINDINGS - and use it to ensure
that the initial thread runs the housekeeping loop (in the TTY lisp) and
the Cocoa event loop (in the IDE) with dynamic bindings in effect.

File:
1 edited

Legend:

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

    r14288 r14362  
    176176
    177177;;; Things bound by WITH-STANDARD-IO-SYNTAX (and not otherwise thread-local)
    178 (def-standard-initial-binding *print-array*)
    179 (def-standard-initial-binding *print-base*)
    180 (def-standard-initial-binding *print-case*)
    181 (def-standard-initial-binding *print-circle*)
    182 (def-standard-initial-binding *print-escape*)
    183 (def-standard-initial-binding *print-gensym*)
    184 (def-standard-initial-binding *print-length*)
    185 (def-standard-initial-binding *print-level*)
    186 (def-standard-initial-binding *print-lines*)
    187 (def-standard-initial-binding *print-miser-width*)
    188 (def-standard-initial-binding *print-pprint-dispatch*)
    189 (def-standard-initial-binding *print-pretty*)
    190 (def-standard-initial-binding *print-radix*)
    191 (def-standard-initial-binding *print-readably*)
    192 (def-standard-initial-binding *print-right-margin*)
    193178(def-standard-initial-binding *read-base*)
    194179(def-standard-initial-binding *read-default-float-format*)
    195180(def-standard-initial-binding *read-eval*)
    196181(def-standard-initial-binding *read-suppress*)
    197 ;;; ccl extensions (see l1-io.lisp)
    198 (def-standard-initial-binding *print-abbreviate-quote*)
    199 (def-standard-initial-binding *print-structure*)
    200 (def-standard-initial-binding *print-simple-vector*)
    201 (def-standard-initial-binding *print-simple-bit-vector*)
    202 (def-standard-initial-binding *print-string-length*)
     182
    203183
    204184
Note: See TracChangeset for help on using the changeset viewer.