(defmethod class-index ((class persistent-class))
;; According to the MOP, the INDEX slot is initialized with the
;; list of items following the :INDEX option, but we're only
;; interested in the first item of that list.
(first (slot-value class 'index)))