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

[Andrea Corallo]

branch: feature/type-hierarchy
commit 80dce18a393a3267b72901328bf24e518d0a6fc9
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>

    * lisp/emacs-lisp/cl-preloaded.el (cl--direct-subtypes-of-type): Remove.
---
 lisp/emacs-lisp/cl-preloaded.el | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

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.