(defun find-old-index-spec (slot-name old-slots)
(let ((slot (find slot-name old-slots :key #'slot-definition-name)))
(and slot
(with-slots (index unique)
slot
(values (or (find-index-spec index :errorp nil) index)
unique)))))