anchor.diff:                                              :wired))
         ;; 3) Patch up the broken structure type.
         (setf (sys.int::%struct-slot sys.int::*structure-type-type* 0) sys.int::*structure-type-type*))
  +    (setf *boot-id* (sys.int::cons-in-area nil nil :wired))
       (initialize-interrupts)
       (initialize-i8259)
       (initialize-threads)
  
positive.code:       (mezzanine.runtime::first-run-initialize-allocator)
        ;; FIXME: Should be done by cold generator
        (setf mezzanine.runtime::*tls-lock* :unlocked
              mezzanine.runtime::*active-catch-handlers* 'nil
              *boot-modules* '())
        ;; Bootstrap the defstruct system.
        ;; 1) Initialize *structure-type-type* so make-struct-definition works.
        (setf sys.int::*structure-type-type* nil)
  
negative.code:       (loop))
      (initialize-ps/2)
      (initialize-video)
      (cond (first-run-p
             (make-thread #'sys.int::initialize-lisp :name "Main thread"))
            (t (make-thread #'run-boot-hooks :name "Boot hook thread")))
  