Method: (COMPUTE-PERSISTENT-SLOT-NAMES STANDARD-CLASS PERSISTENT-DATA)

Source

(defmethod compute-persistent-slot-names ((class standard-class)
                                          (object persistent-data))
  ;; Tell the schema table that instances of persistent-data have
  ;; one persistent slot: the CONTENTS slot.
  '(contents))