anchor.diff:      (dotimes (i (truncate size #x1000))
         (let ((pte (get-pte-for-address (+ +physical-map-base+ base (* i #x1000)))))
           (when (not (page-present-p pte 0))
  -          (setf (sys.int::memref-unsigned-byte-64 pte 0) (logior (+ base (* i #x1000))
  -                                                                 +page-table-present+
  -                                                                 +page-table-write+)))))))
  +          (setf (page-table-entry pte 0) (logior (+ base (* i #x1000))
  +                                                 +page-table-present+
  +                                                 +page-table-write+)))))))
   
   (defun initialize-pager ()
     (when (not (boundp '*pager-waiting-threads*))
  
positive.code:       ;; Examine the page table, if there's a present entry then the page
        ;; was mapped while acquiring the VM lock. Just return.
        (when (page-present-p pte 0)
          #+(or)(debug-print-line "WFP " address " block " block-info " already mapped " (sys.int::memref-unsigned-byte-64 pte 0))
          (return-from wait-for-page t))
        ;; Note that this test is done after the pte test. this is a hack to make
        ;; runtime-allocated stacks work before allocate-stack actually modifies the
  
negative.code:              (addr (+ +physical-map-base+ (ash frame 12))))
          (dotimes (i 512)
            (setf (sys.int::memref-unsigned-byte-64 addr i) 0))
          (setf (page-table-entry cr3 pml4e) (logior (ash frame 12)
                                                     +page-table-present+
                                                     +page-table-write+))))
      (let ((pdp (+ +physical-map-base+ (logand (page-table-entry cr3 pml4e) +page-table-address-mask+))))
        (when (not (page-present-p pdp pdpe))
          ;; No PDir. Allocate one.
          (when (not allocate)
  