anchor.diff:    (sys.lap-x86:call (:object :r13 #.sys.int::+fref-entry-point+))
     (sys.lap-x86:ud2))
   
  -(defvar *boot-hook-lock* (make-mutex "Boot Hook Lock"))
  -(defvar *boot-hooks* '())
  +(defvar *boot-hook-lock*)
  +(defvar *boot-hooks*)
   
   (defun add-boot-hook (fn)
     (with-mutex (*boot-hook-lock*)
  
positive.code: 
  (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)
  
negative.code:     (detect-paging-disk)
      (when (not *paging-disk*)
        (panic "Could not find boot device. Sorry."))
      (cond (first-run-p
             (setf *post-boot-worker-thread* (make-thread #'post-boot-worker :name "Post-boot worker thread")
                   *boot-hook-lock* (make-mutex "Boot Hook Lock")
                   *boot-hooks* '())
             (make-thread #'sys.int::initialize-lisp :name "Main thread"))
            (t (wake-thread *post-boot-worker-thread*)))
      (finish-initial-thread)))
  