sb!unix::*unblock-deferrables-on-enabling-interrupts-p* nil
*interrupts-enabled* t
*interrupt-pending* nil
+ #!+sb-thruption #!+sb-thruption *thruption-pending* nil
*break-on-signals* nil
*maximum-error-depth* 10
*current-error-depth* 0
(show-and-call stream-cold-init-or-reset)
(show-and-call !loader-cold-init)
(show-and-call !foreign-cold-init)
- #!-win32 (show-and-call signal-cold-init-or-reinit)
+ #!-(and win32 (not sb-thread))
+ (show-and-call signal-cold-init-or-reinit)
(/show0 "enabling internal errors")
(setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
(setf sb!alien::*default-c-string-external-format* nil)
;; WITHOUT-GCING implies WITHOUT-INTERRUPTS.
(without-gcing
+ ;; Initialize streams first, so that any errors can be printed later
+ (stream-reinit t)
(os-cold-init-or-reinit)
(thread-init-or-reinit)
- (stream-reinit t)
- #!-win32
+ #!-(and win32 (not sb-thread))
(signal-cold-init-or-reinit)
(setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
(float-cold-init-or-reinit))
(t
(sb!sys:%primitive print (hexstr x)))))))
(%cold-print x 0))
- (values))
\ No newline at end of file
+ (values))