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

This commit is contained in:
Andrea Corallo 2024-03-01 18:56:02 +01:00
parent b2d18ff944
commit 8b96503b6e

View file

@ -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