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:                     +page-table-global+
                      +page-table-large+))
        (incf phys-curr #x200000))
      (values (- (* pml4 8) *linear-map*) (* data-pml3 8))))
  
  (defun create-initial-stack-group ()
    (let* ((address (allocate 512 :static))
  