Method: (REINITIALIZE-INSTANCE AROUND PERSISTENT-CLASS)

Source

(defmethod reinitialize-instance :around ((class persistent-class)
                                          &rest args
                                          &key direct-superclasses
                                          &allow-other-keys)
  (let ((result (apply #'call-next-method
                       class
                       :direct-superclasses (maybe-add-persistent-object-class
                                             class
                                             direct-superclasses)
                       ;; Tell Lispworks that it shouldn't bypass
                       ;; SLOT-VALUE-USING-CLASS.
                       #+lispworks :optimize-slot-access #+lispworks nil
                       args)))
    (setf (class-changed-p class) t)
    (update-indexes class)
    result))