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

Source

(defmethod find-schema-for-id ((table schema-table) id &key (errorp t))
  (or (gethash id (schema-table-by-id table))
      (and errorp
           (error "Can't find schema with id ~D in ~S." id table))))