;; *TYPE-SYSTEM-INITIALIZED-WHEN-BOUND* so that it doesn't need to
;; be explicitly set in order to be meaningful.
(setf *after-gc-hooks* nil
- *gc-inhibit* 1
- *need-to-collect-garbage* nil
+ *gc-inhibit* t
+ *gc-pending* nil
+ #!+sb-thread *stop-for-gc-pending* #!+sb-thread nil
sb!unix::*interrupts-enabled* t
sb!unix::*interrupt-pending* nil
*break-on-signals* nil
*cold-init-complete-p* nil
*type-system-initialized* nil)
+ (show-and-call thread-init-or-reinit)
(show-and-call !typecheckfuns-cold-init)
;; Anyone might call RANDOM to initialize a hash value or something;
(show-and-call os-cold-init-or-reinit)
- (show-and-call thread-init-or-reinit)
(show-and-call stream-cold-init-or-reset)
(show-and-call !loader-cold-init)
(show-and-call !foreign-cold-init)
- (show-and-call signal-cold-init-or-reinit)
+ #!-win32 (show-and-call signal-cold-init-or-reinit)
(/show0 "enabling internal errors")
(setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
(os-cold-init-or-reinit)
(thread-init-or-reinit)
(stream-reinit)
- (signal-cold-init-or-reinit)
+ #!-win32 (signal-cold-init-or-reinit)
(setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
;; PRINT seems not to like x86 NPX denormal floats like
;; LEAST-NEGATIVE-SINGLE-FLOAT, so the :UNDERFLOW exceptions are