[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6218278a67b: * lisp/emacs-lisp/comp-cstr.el (comp--direct-superty
From: |
Andrea Corallo |
Subject: |
master 6218278a67b: * lisp/emacs-lisp/comp-cstr.el (comp--direct-supertype): Remove unused. |
Date: |
Fri, 3 Nov 2023 14:04:07 -0400 (EDT) |
branch: master
commit 6218278a67b5ce87eb5e8b2c76daeb7475983d35
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>
* 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 6218278a67b: * lisp/emacs-lisp/comp-cstr.el (comp--direct-supertype): Remove unused.,
Andrea Corallo <=