anchor.diff:        (flush-tlb-single address))))
   
   (defun allocate-memory-range-in-pager (base length flags)
  -  (pager-log "Allocate range " base "-" (+ base length) "  " flags)
  +  (pager-log-op "Allocate range " base "-" (+ base length) "  " flags)
     (when (logtest flags sys.int::+block-map-wired+)
       (ensure (or (< base #x80000000) ; wired area
                   (and (<= #x200000000000 base) ; wired stack area.
  
positive.code:   (pager-rpc 'protect-memory-range-in-pager base length flags))
  
  (defun protect-memory-range-in-pager (base length flags)
    (pager-log "Protect range " base "-" (+ base length) "  " flags)
    (with-mutex (*vm-lock*)
      (begin-tlb-shootdown)
      (dotimes (i (truncate length #x1000))
  
negative.code: 
  (defun release-memory-range-in-pager (base length ignore3)
    (declare (ignore ignore3))
    (pager-log-op "Release range " base "-" (+ base length))
    (with-mutex (*vm-lock*)
      (begin-tlb-shootdown)
      (let ((stackp (stack-area-p base)))
  