anchor.diff:       (when (not allow-wired)
          (panic "Releasing page wired " frame))
        ;; Release the backing frame, if any.
  -     (when (physical-page-frame-next frame)
  +     (when (and (not stackp)
  +                (physical-page-frame-next frame))
          (release-physical-pages (physical-page-frame-next frame) 1))
        (release-physical-pages frame 1))
       (t
  
positive.code:             (let ((pte (get-pte-for-address (+ card-base (* i #x1000)) nil)))
                (when (and pte (page-present-p pte 0))
                  (release-vm-page (ash (pte-physical-address (page-table-entry pte 0)) -12)
                                   t)
                  (setf (page-table-entry pte 0) 0))))
            (tlb-shootdown-range card-base card-length)))
        (dotimes (i (truncate length #x1000))
  
negative.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.
                               :allow-wired stackp :stackp stackp)
              (setf (page-table-entry pte 0) 0)))))
      (flush-tlb)
      (tlb-shootdown-all)
  