From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 16 Dec 2020 17:37:39 +0000 (+0100)
Subject: * Two minors in comp.el
X-Git-Tag: emacs-28.0.90~2727^2~248
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d072ee9d3471772dffc42cd3e33b677c1cfb8965;p=emacs.git

* Two minors in comp.el

	* lisp/emacs-lisp/comp.el (comp-known-func-cstr-h)
	(comp-ret-type-spec): Style.
---

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))))