(defun update-slot-info (class)
;; Register all (effective) persistent slots.
(setf (class-persistent-slots class)
(remove-if-not #'slot-persistence (class-slots class)))
;; Update schemas if necessary.
(when (fboundp 'current-rucksack) ; see comment for UPDATE-INDEXES
(let ((rucksack (current-rucksack)))
(when rucksack
(maybe-update-schemas (schema-table (rucksack-cache rucksack))
class))))
;;
(setf (class-changed-p class) nil))