anchor.diff:            *scavenge-cons-old-finger* cons-bump)
       (scavenge-dynamic :minor)
       ;; Collection complete.
  +    (validate-intergenerational-pointers)
       ;; Clear target generation dirty bits, there are no objects in younger generations.
       (flush-dirty-card-bits *wired-area-base* (- *wired-area-bump* *wired-area-base*))
       (flush-dirty-card-bits *pinned-area-base* (- *pinned-area-bump* *pinned-area-base*))
  
positive.code:              (t
                #++(gc-log "Skip minor cons card " current)))))
  
  (defun gc-dump-area-state ()
    (mezzano.supervisor:debug-print-line "Wired: " *wired-area-base* " " (- *wired-area-bump* *wired-area-base*))
    (mezzano.supervisor:debug-print-line "Pinned: " *pinned-area-base* " " (- *pinned-area-bump* *pinned-area-base*))
  
negative.code:     ;; Rebuild freelists.
      (rebuild-freelist *wired-area-free-bins* :wired *wired-area-base* *wired-area-bump*)
      (rebuild-freelist *pinned-area-free-bins* :pinned *pinned-area-base* *pinned-area-bump*)
      (validate-intergenerational-pointers)
      ;; Reset the pinned area's dirty bits.
      ;; Newspace's dirty bits have been cleared by the allocate & reprotect.
      (flush-dirty-card-bits *pinned-area-base*
  