From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 30 Dec 2019 23:20:35 +0000 (+0100)
Subject: rework predicates to be homogeneous
X-Git-Tag: emacs-28.0.90~2727^2~860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b18f92a942dca6f95c9a74835644e482f3b1b907;p=emacs.git

rework predicates to be homogeneous
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 039cd6cd411..de3b28e438c 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -296,22 +296,21 @@ structure.")
 
 
 
-(defun comp-set-op-p (op)
+(defsubst comp-set-op-p (op)
   "Assignment predicate for OP."
-  (cl-find op comp-limple-sets))
+  (when (member op comp-limple-sets) t))
 
-(defun comp-assign-op-p (op)
+(defsubst comp-assign-op-p (op)
   "Assignment predicate for OP."
-  (cl-find op comp-limple-assignments))
+  (when (member op comp-limple-assignments) t))
 
-(defun comp-limple-insn-call-p (insn)
+(defsubst comp-limple-insn-call-p (insn)
   "Limple INSN call predicate."
-  (when (member (car-safe insn) comp-limple-calls)
-    t))
+  (when (member (car-safe insn) comp-limple-calls) t))
 
-(defun comp-type-hint-p (func)
+(defsubst comp-type-hint-p (func)
   "Type hint predicate for function name FUNC."
-  (member func comp-type-hints))
+  (when (member func comp-type-hints) t))
 
 (defun comp-add-const-to-relocs (obj)
   "Keep track of OBJ into the ctxt relocations.