anchor.diff:                   (addr (+ +physical-map-base+ (ash frame 12))))
               (dotimes (i 512)
                 (setf (sys.int::memref-unsigned-byte-64 addr i) 0))
  -            (setf (sys.int::memref-unsigned-byte-64 pdir pde) (logior (ash frame 12)
  -                                                                      +page-table-present+
  -                                                                      +page-table-write+))))
  -        (let ((pt (+ +physical-map-base+ (logand (sys.int::memref-unsigned-byte-64 pdir pde) +page-table-address-mask+))))
  +            (setf (page-table-entry pdir pde) (logior (ash frame 12)
  +                                                      +page-table-present+
  +                                                      +page-table-write+))))
  +        (let ((pt (+ +physical-map-base+ (logand (page-table-entry pdir pde) +page-table-address-mask+))))
             (+ pt (* pte 8)))))))
   
   (defun insert-into-block-cache (block-id addr)
  
positive.code:                (addr (+ +physical-map-base+ (ash frame 12))))
            (dotimes (i 512)
              (setf (sys.int::memref-unsigned-byte-64 addr i) 0))
            (setf (sys.int::memref-unsigned-byte-64 pdp pdpe) (logior (ash frame 12)
                                                                      +page-table-present+
                                                                      +page-table-write+))))
        (let ((pdir (+ +physical-map-base+ (logand (sys.int::memref-unsigned-byte-64 pdp pdpe) +page-table-address-mask+))))
          (when (not (page-present-p pdir pde))
            ;; No PT. Allocate one.
            (when (not allocate)
  
negative.code:     (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 (page-table-entry pte 0) (logior (+ base (* i #x1000))
                                                   +page-table-present+
                                                   +page-table-write+)))))))
  
  (defun initialize-pager ()
    (when (not (boundp '*pager-waiting-threads*))
  