From 4d366ae04be64ab2895a35f8458cdc56d7d62a81 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 8 Apr 2024 11:21:37 +0200 Subject: [PATCH] * Make comp ignore EIEIO classes (bug#70141) * lisp/emacs-lisp/comp-cstr.el (comp--all-classes): Ignore EIEIO classes. (cherry picked from commit c9d7721db6eeda8efa7b5a49c9a4bcaacd078791) --- lisp/emacs-lisp/comp-cstr.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)) -- 2.39.5