mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-14 18:10:32 -08:00
Code Issues Projects Releases Wiki Activity

Optimise (cons X nil) to (list X)

Browse source 
* lisp/emacs-lisp/byte-opt.el (byte-optimize-cons): New function.
This commit is contained in:
Mattias Engdegård 2021-06-03 21:15:11 +02:00
parent c3b44858dc
commit a517b77ffe
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/byte-opt.el
View file

@ -1269,6 +1269,14 @@ See Info node `(elisp) Integer Basics'."
form)
form))
(put 'cons 'byte-optimizer #'byte-optimize-cons)
(defun byte-optimize-cons (form)
;; (cons X nil) => (list X)
(if (and (= (safe-length form) 3)
(null (nth 2 form)))
`(list ,(nth 1 form))
form))
;; Fixme: delete-char -> delete-region (byte-coded)
;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte,
;; string-make-multibyte for constant args.