mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Andrea Corallo 2024-02-15 19:10:35 +01:00
parent 4a0d430bdc
commit 80dce18a39
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/cl-preloaded.el
View file

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