From 9809f7ed2c639bd51abd4a28bd5d1a37f0d46a3d Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 7 Mar 2021 21:26:55 +0100 Subject: Use `length=' and family where possible in native comp code * lisp/emacs-lisp/comp-cstr.el (comp-intersect-typesets) (comp-cstr-imm): Use Use `length=' and family where possible. * lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-target-block) (comp-compute-dominator-frontiers) (batch-byte-native-compile-for-bootstrap): Likewise. --- lisp/emacs-lisp/comp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/emacs-lisp/comp.el') diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 7b2883b293b..81ab361fff7 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2364,7 +2364,7 @@ TARGET-BB-SYM is the symbol name of the target block." (comp-func-blocks comp-func))) (target-bb-in-edges (comp-block-in-edges target-bb))) (cl-assert target-bb-in-edges) - (if (= (length target-bb-in-edges) 1) + (if (length= target-bb-in-edges 1) ;; If block has only one predecessor is already suitable for ;; adding constraint assumptions. target-bb @@ -2780,7 +2780,7 @@ blocks." for b-name being each hash-keys of blocks using (hash-value b) for preds = (comp-block-preds b) - when (>= (length preds) 2) ; All joins + when (length> preds 1) ; All joins do (cl-loop for p in preds for runner = p do (while (not (eq runner (comp-block-idom b))) @@ -4104,7 +4104,7 @@ environment variable 'NATIVE_DISABLED' is set, only byte compile." (comp-ensure-native-compiler) (if (equal (getenv "NATIVE_DISABLED") "1") (batch-byte-compile) - (cl-assert (= 1 (length command-line-args-left))) + (cl-assert (length= command-line-args-left 1)) (let ((byte-native-for-bootstrap t) (byte-to-native-output-file nil)) (batch-native-compile) -- cgit v1.2.3