anchor.diff:      (thread-pager-argument-1 (current-thread))))
   
   (defun allocate-memory-range (base length flags)
  -  (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 'allocate-memory-range-in-pager base length flags))
   
   (defun allocate-memory-range-in-pager (base length flags)
  
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: 
  (defun map-physical-memory (base size name)
    ;; Page alignment required.
    (assert (page-aligned-p base))
    (assert (page-aligned-p size))
    (with-mutex (*vm-lock*)
      (dotimes (i (truncate size #x1000))
        (let ((pte (get-pte-for-address (+ +physical-map-base+ base (* i #x1000)))))
  