From: Andrea Corallo <acorallo@gnu.org>
Date: Thu, 15 Feb 2024 18:10:35 +0000 (+0100)
Subject: * lisp/emacs-lisp/cl-preloaded.el (cl--direct-subtypes-of-type): Remove.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcd2da73ecacf1b66354d2c7a6657f245d46475c;p=emacs.git

* lisp/emacs-lisp/cl-preloaded.el (cl--direct-subtypes-of-type): Remove.

(cherry picked from commit 80dce18a393a3267b72901328bf24e518d0a6fc9)
---

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 248c1fd7c24..323d826f323 100644
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -86,15 +86,11 @@ Each sublist is in the form (TYPE . DIRECT_SUBTYPES)"
   (make-hash-table :test #'eq)
   "Hash table TYPE -> SUPERTYPES.")
 
-(defconst cl--direct-subtypes-of-type
-  (make-hash-table :test #'eq)
-  "Hash table TYPE -> SUBTYPES.")
-
-(cl-loop for (parent . children) in cl--type-hierarchy
-         do (cl-loop
-             for child in children
-             do (cl-pushnew parent (gethash child cl--direct-supertypes-of-type))
-             do (cl-pushnew child (gethash parent cl--direct-subtypes-of-type))))
+(cl-loop
+ for (parent . children) in cl--type-hierarchy
+ do (cl-loop
+     for child in children
+     do (cl-pushnew parent (gethash child cl--direct-supertypes-of-type))))
 
 (defconst cl--typeof-types nil
   "Alist of supertypes.