Method: (DIRECT-SLOT-DEFINITION-CLASS PERSISTENT-CLASS)

Source

(defmethod direct-slot-definition-class ((class persistent-class)
                                         &rest initargs)
  (declare (ignore initargs))
  (find-class 'persistent-direct-slot-definition))