From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 16 Jun 2019 14:48:34 +0000 (+0200)
Subject: Fix compilation warning i eieio-base
X-Git-Tag: emacs-27.0.90~2472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98ba1c6b52898c5f72f2d6e5c845c8d9386f98f5;p=emacs.git

Fix compilation warning i eieio-base

* lisp/emacs-lisp/eieio-base.el (clone): Use eieio-object-class
instead of obsolete function class-of.
---

diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el
index 203541fdfc4..0b2909c1e8d 100644
--- a/lisp/emacs-lisp/eieio-base.el
+++ b/lisp/emacs-lisp/eieio-base.el
@@ -71,7 +71,7 @@ All slots are unbound, except those initialized with PARAMS."
   (let ((nobj  (if (stringp (car params))
                    (cl-call-next-method obj (pop params))
                  (cl-call-next-method obj))))
-    (dolist (descriptor (eieio-class-slots (class-of nobj)))
+    (dolist (descriptor (eieio-class-slots (eieio-object-class nobj)))
       (let ((slot (eieio-slot-descriptor-name descriptor)))
         (slot-makeunbound nobj slot)))
     (when params