Method: (SLOT-VALUE-USING-CLASS AROUND PERSISTENT-CLASS T T)

Source

(defmethod slot-value-using-class :around ((class persistent-class)
                                           object
                                           slot)
  (maybe-update-slot-info class)
  ;; Automatically dereference proxies.
  (maybe-dereference-proxy (call-next-method)))