diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-03-07 21:26:55 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-03-07 21:33:53 +0100 |
| commit | 9809f7ed2c639bd51abd4a28bd5d1a37f0d46a3d (patch) | |
| tree | 3e0dfc68da8f374537574cc5bcb4bb26dd633ffa /lisp/emacs-lisp/comp-cstr.el | |
| parent | dcf2be69711be1240c09ba6f6f0482a7fcf4e21b (diff) | |
| download | emacs-9809f7ed2c639bd51abd4a28bd5d1a37f0d46a3d.tar.gz | |
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.
Diffstat (limited to 'lisp/emacs-lisp/comp-cstr.el')
| -rw-r--r-- | lisp/emacs-lisp/comp-cstr.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index 4397a914981..d0b842e7c37 100644 --- 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)))))) |