From: Andrea Corallo <acorallo@gnu.org>
Date: Fri, 3 Nov 2023 17:34:05 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp-cstr.el (comp--direct-supertype): Remove unused.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6218278a67b5ce87eb5e8b2c76daeb7475983d35;p=emacs.git

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

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 70213c9b13c..e47e93cda18 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -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)))