diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2020-07-06 12:51:04 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2020-07-07 17:55:20 +0200 |
commit | df3ece9d2ed61c9526dbf718e3c96d72bd53dccb (patch) | |
tree | 2939fca286698ec92b33543ad4970ea6f27b8969 /lisp/emacs-lisp | |
parent | 1a850f4b20d11938d68270147d3d5ebc3c4899f4 (diff) | |
download | emacs-df3ece9d2ed61c9526dbf718e3c96d72bd53dccb.tar.gz emacs-df3ece9d2ed61c9526dbf718e3c96d72bd53dccb.tar.bz2 emacs-df3ece9d2ed61c9526dbf718e3c96d72bd53dccb.zip |
Optimise assoc and rassoc with symbol key to assq and rassq
This is the same transformation made for member to memq.
* lisp/emacs-lisp/byte-opt.el (byte-optimize-assoc): New function.
(assoc, rassoc): Set the byte-optimizer property.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 646994a37c1..194ceee176f 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -842,6 +842,15 @@ ;; Arity errors reported elsewhere. form)) +(defun byte-optimize-assoc (form) + ;; Replace 2-argument `assoc' with `assq', `rassoc' with `rassq', + ;; if the first arg is a symbol. + (if (and (= (length form) 3) + (byte-optimize--constant-symbol-p (nth 1 form))) + (cons (if (eq (car form) 'assoc) 'assq 'rassq) + (cdr form)) + form)) + (defun byte-optimize-memq (form) ;; (memq foo '(bar)) => (and (eq foo 'bar) '(bar)) (if (= (length (cdr form)) 2) @@ -886,6 +895,8 @@ (put 'memq 'byte-optimizer 'byte-optimize-memq) (put 'memql 'byte-optimizer 'byte-optimize-member) (put 'member 'byte-optimizer 'byte-optimize-member) +(put 'assoc 'byte-optimizer 'byte-optimize-assoc) +(put 'rassoc 'byte-optimizer 'byte-optimize-assoc) (put '+ 'byte-optimizer 'byte-optimize-plus) (put '* 'byte-optimizer 'byte-optimize-multiply) |