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.

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 4397a914981bec2d678a46bc4ecb8bd42afd7839..d0b842e7c37bbcdf0557f371444a3d268659fecc 100644 (file)
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -287,7 +287,7 @@ Return them as multiple value."
 (defun comp-intersect-typesets (&rest typesets)
   "Intersect types present into TYPESETS."
   (unless (cl-some #'null typesets)
-    (if (= (length typesets) 1)
+    (if (length= typesets 1)
         (car typesets)
       (comp-normalize-typeset
        (cl-reduce #'comp-intersect-two-typesets typesets)))))
@@ -823,7 +823,7 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
                          (valset ,cstr) (list ,val)))))))
   (with-comp-cstr-accessors
     (let ((v (valset cstr)))
-      (if (= (length v) 1)
+      (if (length= v 1)
           (car v)
         (caar (range cstr))))))
 

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 7b2883b293b05f4f43459759b13db4c6a0948a43..81ab361fff7b5c5973c9eeff5b58cb61de282600 100644 (file)
--- 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)