anchor.diff:                                                 (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)
  
positive.code:     (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+))
      ;; Generate page tables.
      (setf (values initial-pml4 data-pml3) (create-page-tables))
      ;; Create multiboot header.
  
negative.code:         (*undefined-function-address* nil)
          (*function-map* '())
          (setup-fn nil)
          (kboot-entry-fn nil)
          (gdt nil)
          (idt nil)
          (multiboot nil)
  