Changeset 6186


Ignore:
Timestamp:
Apr 8, 2007, 3:09:36 AM (13 years ago)
Author:
gb
Message:

DEFSTATIC is now the preferred name for DEFGLOBAL.

Standard CL streams now bound per-thread.

Install standard foreign types here, not every time that FOREIGN-TYPES is
loaded.

Canonicalize foreign type ordinals as soon as we can. (This is part
of a scheme to give foreign types "ordinals' that can be used to assert
pointer types; we need some of those ordinal numbers to be pre-assigned,
since we can't reference foreign types early in the cold load.)

File:
1 edited

Legend:

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

    r5740 r6186  
    6161
    6262       
    63 (defglobal *auto-flush-streams* ())
     63(defstatic *auto-flush-streams* ())
    6464(def-ccl-pointers *auto-flush-streams* () (setq *auto-flush-streams* nil))
    65 (defglobal *auto-flush-streams-lock* (make-lock))
     65(defstatic *auto-flush-streams-lock* (make-lock))
    6666
    6767
     
    149149(initialize-interactive-streams)
    150150
     151(def-standard-initial-binding *standard-input*)
     152(def-standard-initial-binding *standard-output*)
     153(def-standard-initial-binding *error-output*)
     154(def-standard-initial-binding *trace-output*)
     155(def-standard-initial-binding *debug-io*)
     156(def-standard-initial-binding *query-io*)
    151157
    152158
     
    227233
    228234      (bin-load-provide "FOREIGN-TYPES" "foreign-types")
    229 
     235      (install-standard-foreign-types *host-ftd*)
     236     
    230237      #+(and ppc32-target linux-target)
    231238      (bin-load-provide "FFI-LINUXPPC32" "ffi-linuxppc32")
     
    244251     
    245252      (bin-load-provide "DB-IO" "db-io")
     253
     254      (canonicalize-foreign-type-ordinals *host-ftd*)
    246255     
    247256      (bin-load-provide "CASE-ERROR" "case-error")
Note: See TracChangeset for help on using the changeset viewer.