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