anchor.diff:        (set-value '*static-mark-bit* 0)
         (set-value '*static-area-hint* 0)
         (set-value '*bump-pointer* (+ *linear-map* *physical-load-address* (* (total-image-size) 8)))
  -      (set-value '*oldspace-paging-bits* (+ data-pml2 (/ (+ *dynamic-area-base* (/ *dynamic-area-size* 2)) #x200000)))
  -      (set-value '*newspace-paging-bits* (+ data-pml2 (/ *dynamic-area-base* #x200000)))
  +      (set-value '*oldspace-paging-bits* (+ data-pml3 (* (/ (+ *dynamic-area-base* (/ *dynamic-area-size* 2)) #x40000000) 8)))
  +      (set-value '*newspace-paging-bits* (+ data-pml3 (* (/ *dynamic-area-base* #x40000000) 8)))
         (set-value '*stack-bump-pointer* (+ (* *stack-offset* 8) *stack-area-base*))
         (set-value '*stack-bump-pointer-limit* (+ (* (1+ (ceiling *stack-offset* #x40000)) #x200000) *stack-area-base*)))
       ;; Write the boundary tag for the static area's free part.
  
positive.code:         (multiboot nil)
          (initial-stack nil)
          (initial-pml4)
          (data-pml2)
          (cl-symbol-names (with-open-file (s "../cl-symbols.lisp-expr") (read s)))
          (system-symbol-names (with-open-file (s "../system-symbols.lisp-expr") (read s))))
      (create-support-objects)
  
negative.code:     (setf (cold-symbol-value '*unifont-bmp*) (save-unifont-data "../unifontfull-5.1.20080820.hex" :static))
      (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.
      (setf (word multiboot) (array-header +array-type-unsigned-byte-32+ 8)
            (word (+ multiboot 1)) (pack-halfwords #x1BADB002 #x00010003)
  