Method: (FRESH-SCHEMA-ID SCHEMA-TABLE)

Source

(defmethod fresh-schema-id ((table schema-table))
  (prog1 (highest-schema-id table)
    (incf (highest-schema-id table))))