Returns true iff the object in the block is alive.
(defmethod block-alive-p ((object-table object-table) object-id block)
"Returns true iff the object in the block is alive."
;; DO: Some versions of this object may not be reachable anymore.
;; Those should be considered dead.
(member (object-info object-table object-id) '(:reserved :live-object)))
Source Context