Method: (FIND-SCHEMA-FOR-CLASS SCHEMA-TABLE T)

Source

(defmethod find-schema-for-class ((table schema-table) class)
  ;; Returns the most recent schema for a class
  ;; (or NIL if there is no schema for the class).
  (first (gethash (class-name class) (schema-table-by-name table))))