From: Andrea Corallo <andcor03@e132096.arm.com>
Date: Fri, 1 Mar 2024 17:56:02 +0000 (+0100)
Subject: * lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Define as var.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47ef8e22a576c01754168c842dc144bdb56537fa;p=emacs.git

* lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Define as var.

(cherry picked from commit 8b96503b6e8514f1f9f92895a0707c78b1bbd1fd)
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 198e6d81262..e64302ef414 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -92,7 +92,7 @@ Each sublist is in the form (TYPE . DIRECT_SUBTYPES)"
      for child in children
      do (cl-pushnew parent (gethash child cl--direct-supertypes-of-type))))
 
-(defconst cl--typeof-types nil
+(defvar cl--typeof-types nil
   "Alist of supertypes.
 Each element has the form (TYPE . SUPERTYPES) where TYPE is one of
 the symbols returned by `type-of', and SUPERTYPES is the list of its