From d072ee9d3471772dffc42cd3e33b677c1cfb8965 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 16 Dec 2020 18:37:39 +0100 Subject: [PATCH] * Two minors in comp.el * lisp/emacs-lisp/comp.el (comp-known-func-cstr-h) (comp-ret-type-spec): Style. --- lisp/emacs-lisp/comp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index a75ca312d2e..750c298a02c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -275,7 +275,7 @@ Useful to hook into pass checkers.") for (f type-spec) in comp-known-type-specifiers for cstr = (comp-type-spec-to-cstr type-spec) do (puthash f cstr h) - finally (cl-return h)) + finally return h) "Hash table function -> `comp-constraint'") (defconst comp-symbol-values-optimizable '(most-positive-fixnum @@ -2761,7 +2761,7 @@ Set it into the `ret-type-specifier' slot." do (pcase insn (`(return ,mvar) (push mvar res)))) - finally (cl-return res))))) + finally return res)))) (setf (comp-func-ret-type-specifier func) (comp-cstr-to-type-spec res-mvar)))) -- 2.39.5