]> code.delx.au - gnu-emacs/blobdiff - test/automated/eieio-test-persist.el
Update copyright year to 2016
[gnu-emacs] / test / automated / eieio-test-persist.el
index 6710ead2e7740155192bae6e49e60b2f31a8ce78..2f8d65e512ebcc8145c18d620a4e117154586e95 100644 (file)
@@ -1,6 +1,6 @@
 ;;; eieio-persist.el --- Tests for eieio-persistent class
 
-;; Copyright (C) 2011-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2016 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
 
@@ -48,7 +48,7 @@ This is usually a symbol that starts with `:'."
   (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)
@@ -62,7 +62,7 @@ This is usually a symbol that starts with `:'."
             (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