* 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 248c1fd7c2424e4aadfa419bfb80af667441d6e2..323d826f323347e6732e3b70c0f99b01ff0c1e03 100644 (file)
--- 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.