From: Andrea Corallo <acorallo@gnu.org>
Date: Mon, 8 Apr 2024 09:21:37 +0000 (+0200)
Subject: * Make comp ignore EIEIO classes (bug#70141)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d366ae04be64ab2895a35f8458cdc56d7d62a81;p=emacs.git

* Make comp ignore EIEIO classes (bug#70141)

* lisp/emacs-lisp/comp-cstr.el (comp--all-classes): Ignore EIEIO classes.

(cherry picked from commit c9d7721db6eeda8efa7b5a49c9a4bcaacd078791)
---

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 718217c38ac..6509def76a2 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -89,7 +89,10 @@ Integer values are handled in the `range' slot.")
   "Return all non built-in type names currently defined."
   (let (res)
     (mapatoms (lambda (x)
-                (when (cl-find-class x)
+                (when-let ((class (cl-find-class x))
+                           ;; Ignore EIEIO classes as they can be
+                           ;; redefined at runtime.
+                           (gate (not (eq 'eieio--class (type-of class)))))
                   (push x res)))
               obarray)
     res))