Method: (COMPUTE-PERSISTENT-SLOT-NAMES PERSISTENT-CLASS T)

Source

(defmethod compute-persistent-slot-names ((class persistent-class) object)
  (declare (ignore object))
  (mapcar #'slot-definition-name (class-persistent-slots class)))