Method: (SCAN T GARBAGE-COLLECTOR)

Source

(defmethod scan (buffer (gc garbage-collector))
  ;; Read serialize marker and dispatch.
  (let ((marker (read-next-marker buffer)))
    (unless marker
      (cerror "Ignore the error and continue."
              "Garbage collection error: can't find next scan marker.")
      (return-from scan))
    ;; Most of the SCAN-CONTENTS methods are in serialize.lisp.
    (scan-contents marker buffer gc)))