anchor.diff:      (setf (word initial-stack) (array-header +array-type-unsigned-byte-64+ 7))
       (setf (cold-symbol-value '*%setup-stack*) (make-value initial-stack +tag-array-like+))
       (format t "Entry point at ~X~%" (make-value setup-fn +tag-function+))
  +    (when kboot
  +      (format t "KBoot entry point at ~X~%" (make-value kboot-entry-fn +tag-function+)))
       ;; Generate page tables.
       (setf (values initial-pml4 data-pml3) (create-page-tables))
       ;; Create multiboot header.
  
positive.code:           (gethash "T" *symbol-table*) t-value
            *undefined-function-address* undef-fn)))
  
  (defun write-image (name description)
    (declare (ignore description))
    (with-open-file (s (format nil "~A.image" name)
                       :direction :output
                       :element-type '(unsigned-byte 8)
                       :if-exists :supersede)
      ;; Must match the page-table code!
      ;; First comes the first 2MB of the static area.
      (write-sequence *static-data* s :end #x200000)
  
negative.code:         (*undefined-function-address* nil)
          (*function-map* '())
          (setup-fn nil)
          (kboot-entry-fn nil)
          (gdt nil)
          (idt nil)
          (multiboot nil)
  