* 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 198e6d812629260b76f03765b028d0eee912d04c..e64302ef4145ef3503b7bb456596783ed72185b6 100644 (file)
--- 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