anchor.diff:      (detect-paging-disk)
       (when (not *paging-disk*)
         (panic "Could not find boot device. Sorry."))
  +    (dolist (action *deferred-boot-actions*)
  +      (funcall action))
  +    (makunbound '*deferred-boot-actions*)
       (cond (first-run-p
              (make-thread #'sys.int::initialize-lisp :name "Main thread"))
             (t (make-thread #'run-boot-hooks :name "Boot hook thread")))
  
positive.code:     ;; Build & return module list.
      (map 'list #'cons name-vector module-vector)))
  
  (defun sys.int::bootloader-entry-point (boot-information-page)
    (let ((first-run-p nil))
      (initialize-initial-thread)
  
negative.code:           *snapshot-in-progress* nil
            mezzanine.runtime::*paranoid-allocation* nil
            *disks* '()
            *deferred-boot-actions* '()
            *paging-disk* nil)
      (initialize-physical-allocator)
      (initialize-early-video)
  