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

* lisp/emacs-lisp/comp-cstr.el (comp--direct-supertype): Remove unused.

Browse source
This commit is contained in:
Andrea Corallo 2023-11-03 18:34:05 +01:00
parent 425d23fbea
commit 6218278a67
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/comp-cstr.el
View file

@ -269,16 +269,6 @@ Return them as multiple value."
(string-lessp (symbol-name x)
(symbol-name y)))
(defun comp--direct-supertype (type) ;FIXME: There can be several!
"Return the direct supertype of TYPE."
(declare (obsolete comp--direct-supertype "30.1"))
(cl-loop
named outer
for i in (comp-cstr-ctxt-typeof-types comp-ctxt)
do (cl-loop for (j y) on i
when (eq j type)
do (cl-return-from outer y))))
(defun comp--direct-supertypes (type)
"Return the direct supertypes of TYPE."
(let ((supers (comp-supertypes type)))