(let* ((file (oref original file))
(class (eieio-object-class original))
(fromdisk (eieio-persistent-read file class))
- (cv (eieio--class-v class))
+ (cv (cl--find-class class))
(slots (eieio--class-slots cv))
)
(unless (object-of-class-p fromdisk class)
(origvalue (eieio-oref original oneslot))
(fromdiskvalue (eieio-oref fromdisk oneslot))
(initarg-p (eieio--attribute-to-initarg
- (eieio--class-v class) oneslot))
+ (cl--find-class class) oneslot))
)
(if initarg-p
(should (eq (oref-default 'slotattr-class-ok initform) 'no-init)))
(ert-deftest eieio-test-32-slot-attribute-override-2 ()
- (let* ((cv (eieio--class-v 'slotattr-ok))
+ (let* ((cv (cl--find-class 'slotattr-ok))
(slots (eieio--class-slots cv))
(args (eieio--class-initarg-tuples cv)))
;; :initarg should override for subclass