Method: (SCAN-OBJECT T SERIALIZATION-BUFFER T)

Source

(defmethod scan-object (object-id (block serialization-buffer) gc)
  (let ((previous-pointer (deserialize block))
        (transaction-id (deserialize block))
        (id (deserialize block))
        (nr-slots (deserialize block))
        (schema-id (deserialize block)))
    ;; DO: Handle previous versions if necessary.
    (declare (ignore schema-id transaction-id previous-pointer)) ; later
    (unless (= id object-id)
      (internal-rucksack-error
       "Object-id mismatch during GC scan (required: ~D; actual: ~D)."
       object-id id))
    (loop repeat nr-slots
          do (scan block gc))))