anchor.diff:    t)
   
   (defun release-memory-range (base length)
  -  (assert (zerop (logand (logior base length) #xFFF)) () "Range not page aligned.")
  +  (assert (and (page-aligned-p base)
  +               (page-aligned-p length))
  +          (base length)
  +          "Range not page aligned.")
     (pager-rpc 'release-memory-range-in-pager base length))
   
   (defun release-memory-range-in-pager (base length ignore3)
  
positive.code: (defun zeroize-page (addr)
    (dotimes (i 512)
      (setf (sys.int::memref-unsigned-byte-64 addr i) 0)))
  
  (defun allocate-page (&optional mandatory)
    (let ((frame (allocate-physical-pages 1 :mandatory-p mandatory)))
  
negative.code:     (flush-tlb)))
  
  (defun protect-memory-range (base length flags)
    (assert (and (page-aligned-p base)
                 (page-aligned-p length))
            (base length)
            "Range not page aligned.")
    (assert (>= (+ base length) (* 2 1024 1024 1024)) () "Wired area can't be protected.")
    ;; Implementing this is a litle complicated. It'll need to keep dirty pages in memory.
    (assert (or (logtest sys.int::+block-map-present+ flags)
  