anchor.diff:      ;; Build & return module list.
       (map 'list #'cons name-vector module-vector)))
   
  +(defvar *deferred-boot-actions*)
  +
  +(defun add-deferred-boot-action (action)
  +  (push-wired action *deferred-boot-actions*))
  +
   (defun sys.int::bootloader-entry-point (boot-information-page)
     (let ((first-run-p nil))
       (initialize-initial-thread)
  
positive.code:           *snapshot-in-progress* nil
            mezzanine.runtime::*paranoid-allocation* nil
            *disks* '()
            *paging-disk* nil)
      (initialize-physical-allocator)
      (initialize-early-video)
  
negative.code:     (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")))
  