Method: (CREATE-SCHEMA SCHEMA-TABLE T T)

Source

(defmethod create-schema ((table schema-table) class version
                          &optional (persistent-slots '()))
  (let ((schema (make-instance 'schema
                               :id (fresh-schema-id table)
                               :class-name (class-name class)
                               :version version
                               :persistent-slot-names persistent-slots)))
    (add-schema table schema)
    schema))