From 6218278a67b5ce87eb5e8b2c76daeb7475983d35 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 3 Nov 2023 18:34:05 +0100 Subject: [PATCH] * lisp/emacs-lisp/comp-cstr.el (comp--direct-supertype): Remove unused. --- lisp/emacs-lisp/comp-cstr.el | 10 ---------- 1 file changed, 10 deletions(-) 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))) -- 2.39.2