(os-cold-init-or-reinit)
(stream-reinit)
(signal-cold-init-or-reinit)
- (gc-cold-init-or-reinit)
+ (gc-reinit)
(setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
(set-floating-point-modes :traps
'(:overflow
;; reason.. (Perhaps we should do it anyway in case someone
;; manages to save an image from within a pseudo-atomic-atomic
;; operation?)
- #!+x86 (setf sb!impl::*pseudo-atomic-atomic* 0))
+ #!+x86 (setf *pseudo-atomic-atomic* 0))
(gc-on)))
\f
;;;; some support for any hapless wretches who end up debugging cold