anchor.diff:          (*undefined-function-address* nil)
           (*function-map* '())
           (setup-fn nil)
  +        (kboot-entry-fn nil)
           (gdt nil)
           (idt nil)
           (multiboot nil)
  
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:                                                (cons 'initial-page-table #x400000))))
      (setf (cold-symbol-value '*%setup-function*) (make-value setup-fn +tag-function+))
      (create-initial-stack-group)
      (when kboot
        (setf kboot-entry-fn (compile-lap-function *kboot-entry-function* :static
                                           (list (cons 'gdt (* (1+ gdt) 8))
                                                 (cons 'gdt-length (1- (* 2 8)))
                                                 (cons 'idt (* (1+ idt) 8))
                                                 (cons 'idt-length (1- (* 256 8)))
                                                 (cons 'initial-stack (* (+ initial-stack 8) 8))
                                                 ;; PML4 must be at this address
                                                 (cons 'initial-page-table #x400000))))
        (setf (cold-symbol-value '*%kboot-entry*) (make-value kboot-entry-fn +tag-function+)))
      (let ((*load-time-evals* '()))
        (load-compiler-builtins)
        (load-source-files *source-files* t)
  