anchor.diff:  (defun zeroize-page (addr)
     (dotimes (i 512)
       (setf (sys.int::memref-unsigned-byte-64 addr i) 0)))
  +
  +(defun page-aligned-p (value)
  +  (zerop (logand value #xFFF)))
   
   (defun allocate-page (&optional mandatory)
     (let ((frame (allocate-physical-pages 1 :mandatory-p mandatory)))
  
positive.code:   t)
  
  (defun release-memory-range (base length)
    (assert (zerop (logand (logior base length) #xFFF)) () "Range not page aligned.")
    (pager-rpc 'release-memory-range-in-pager base length))
  
  (defun release-memory-range-in-pager (base length ignore3)
  
negative.code:     (thread-pager-argument-1 (current-thread))))
  
  (defun allocate-memory-range (base length flags)
    (assert (and (page-aligned-p base)
                 (page-aligned-p length))
            (base length)
            "Range not page aligned.")
    (pager-rpc 'allocate-memory-range-in-pager base length flags))
  
  (defun allocate-memory-range-in-pager (base length flags)
  