anchor.diff:                                    sys.int::+block-map-committed+))
                     flags))))
   
  -(defun release-vm-page (frame &optional allow-wired)
  +(defun release-vm-page (frame &key allow-wired stackp)
     (case (physical-page-frame-type frame)
       (:active
        (remove-from-page-replacement-list frame)
  
positive.code:           (when (and pte (page-present-p pte 0))
              (release-vm-page (ash (pte-physical-address (page-table-entry pte 0)) -12)
                               ;; Allow wired stacks to be freed.
                               stackp)
              (setf (page-table-entry pte 0) 0)))))
      (flush-tlb)
      (tlb-shootdown-all)
  
negative.code:      (when (not allow-wired)
         (panic "Releasing page wired " frame))
       ;; Release the backing frame, if any.
       (when (and (not stackp)
                  (physical-page-frame-next frame))
         (release-physical-pages (physical-page-frame-next frame) 1))
       (release-physical-pages frame 1))
      (t
  