diff options
| author | Andrea Corallo <acorallo@gnu.org> | 2024-02-15 19:10:35 +0100 |
|---|---|---|
| committer | Andrea Corallo <acorallo@gnu.org> | 2024-02-15 19:10:35 +0100 |
| commit | 80dce18a393a3267b72901328bf24e518d0a6fc9 (patch) | |
| tree | ccd7c8ca3b43a2d44ef6d5d78a930c7b7e925113 /lisp/emacs-lisp | |
| parent | 4a0d430bdc3650ca3dfd8bdd14781764fbcbdc7e (diff) | |
| download | emacs-80dce18a393a3267b72901328bf24e518d0a6fc9.tar.gz emacs-80dce18a393a3267b72901328bf24e518d0a6fc9.tar.bz2 emacs-80dce18a393a3267b72901328bf24e518d0a6fc9.zip | |
* lisp/emacs-lisp/cl-preloaded.el (cl--direct-subtypes-of-type): Remove.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-preloaded.el | 14 |
1 files 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. |