*cold-init-complete-p* nil
*type-system-initialized* nil)
+ ;; I'm not sure where eval is first called, so I put this first.
+ #!+sb-eval
+ (show-and-call sb!eval::!full-eval-cold-init)
+
(show-and-call thread-init-or-reinit)
(show-and-call !typecheckfuns-cold-init)
(defun reinit ()
(setf *default-external-format* nil)
+ (setf sb!alien::*default-c-string-external-format* nil)
(without-interrupts
(without-gcing
(os-cold-init-or-reinit)