Method: (OLD-SCHEMAS-FOR-CLASS SCHEMA-TABLE T)

Source

(defmethod old-schemas-for-class ((table schema-table) class)
  (rest (gethash (class-name class) (schema-table-by-name table))))