Method: (FIND-OR-CREATE-SCHEMA-FOR-OBJECT SCHEMA-TABLE T)

Source

(defmethod find-or-create-schema-for-object ((table schema-table) object)
  ;; NOTE: This assumes that the class hasn't changed without the
  ;; schema table knowing about it.  We probably must assume that,
  ;; otherwise we'd have a very expensive check whenever we want to
  ;; save an object.
  (let ((class (class-of object)))
    (or (find-schema-for-class table class)
        ;; There is no schema yet.  Create it.
        (let ((persistent-slots (compute-persistent-slot-names class object)))
          (create-schema table class 0 persistent-slots)))))