anchor.diff:    (with-mutex (*vm-lock*)
       ;; Ensure there's enough fudged memory before allocating.
       (when (< (- *store-freelist-n-free-blocks* (truncate length +4k-page-size+)) *store-fudge-factor*)
  -      (when *pager-noisy*
  -        (debug-print-line "Not allocating " length " bytes, too few blocks remaining. "
  -                          *store-freelist-n-free-blocks* " " *store-fudge-factor*))
  +      (pager-log "Not allocating " length " bytes, too few blocks remaining. "
  +                 *store-freelist-n-free-blocks* " " *store-fudge-factor*)
         (return-from allocate-memory-range-in-pager nil))
       (dotimes (i (truncate length #x1000))
         (allocate-new-block-for-virtual-address
  
positive.code:       (sys.int::%invlpg address))))
  
  (defun allocate-memory-range-in-pager (base length flags)
    (when *pager-noisy*
      (debug-print-line "Allocate range " base "-" (+ base length) "  " flags))
    (when (< base #x80000000)
      ;; This will require allocating new wired backing frames as well.
      (debug-print-line "TODO: Allocate pages in the wired area.")
  
negative.code: (defconstant +page-table-global+         #x100)
  (defconstant +page-table-copy-on-write+  #x400)
  (defconstant +page-table-address-mask+   #x000FFFFFFFFFF000)
  
  (defun pager-log (&rest things)
    (declare (dynamic-extent things))
    (when *pager-noisy*
      (debug-print-line-1 things)))
  
  (declaim (inline flush-tlb))
  (defun flush-tlb ()
  