diff options
| author | Andrea Corallo | 2023-11-03 18:34:05 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2023-11-03 19:03:51 +0100 |
| commit | 6218278a67b5ce87eb5e8b2c76daeb7475983d35 (patch) | |
| tree | 9060b3d0be37dbf27b54bfc009c6346aee6fdffa | |
| parent | 425d23fbeaede81ab4f50b4073949cc1c8a3fbd0 (diff) | |
| download | emacs-6218278a67b5ce87eb5e8b2c76daeb7475983d35.tar.gz emacs-6218278a67b5ce87eb5e8b2c76daeb7475983d35.zip | |
* lisp/emacs-lisp/comp-cstr.el (comp--direct-supertype): Remove unused.
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 10 |
1 files changed, 0 insertions, 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." | |||
| 269 | (string-lessp (symbol-name x) | 269 | (string-lessp (symbol-name x) |
| 270 | (symbol-name y))) | 270 | (symbol-name y))) |
| 271 | 271 | ||
| 272 | (defun comp--direct-supertype (type) ;FIXME: There can be several! | ||
| 273 | "Return the direct supertype of TYPE." | ||
| 274 | (declare (obsolete comp--direct-supertype "30.1")) | ||
| 275 | (cl-loop | ||
| 276 | named outer | ||
| 277 | for i in (comp-cstr-ctxt-typeof-types comp-ctxt) | ||
| 278 | do (cl-loop for (j y) on i | ||
| 279 | when (eq j type) | ||
| 280 | do (cl-return-from outer y)))) | ||
| 281 | |||
| 282 | (defun comp--direct-supertypes (type) | 272 | (defun comp--direct-supertypes (type) |
| 283 | "Return the direct supertypes of TYPE." | 273 | "Return the direct supertypes of TYPE." |
| 284 | (let ((supers (comp-supertypes type))) | 274 | (let ((supers (comp-supertypes type))) |