From b18f92a942dca6f95c9a74835644e482f3b1b907 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 31 Dec 2019 00:20:35 +0100 Subject: [PATCH] rework predicates to be homogeneous --- lisp/emacs-lisp/comp.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) 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. -- 2.39.5