- (without-interrupts
- (without-gcing
- (os-cold-init-or-reinit)
- (thread-init-or-reinit)
- (stream-reinit)
- (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
- ;; disabled by default. Joe User can explicitly enable them if
- ;; desired.
- ;;
- ;; see also comment at the previous SET-FLOATING-POINT-MODES
- ;; call site.
- (set-floating-point-modes
- :traps '(:overflow #!-netbsd :invalid :divide-by-zero))))
+ #!+win32
+ (setf sb!win32::*ansi-codepage* nil)
+ (setf *default-external-format* nil)
+ (setf sb!alien::*default-c-string-external-format* nil)
+ ;; WITHOUT-GCING implies WITHOUT-INTERRUPTS.
+ (without-gcing
+ (os-cold-init-or-reinit)
+ (thread-init-or-reinit)
+ (stream-reinit t)
+ #!-win32
+ (signal-cold-init-or-reinit)
+ (setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
+ (float-cold-init-or-reinit))