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

Missing files in last commit; remove stack-depth in byte-optimize-lapcode

Browse source
This commit is contained in:
Stefan Monnier 2011-02-21 15:31:07 -05:00
parent 3e21b6a72b
commit a647cb26b6
4 changed files with 109 additions and 182 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/cl-extra.el
View file

@ -771,10 +771,11 @@ This also does some trivial optimizations to make the form prettier."
(sublis sub (nreverse decls))
(list
(list* 'list '(quote apply)
(list 'function
(list* 'lambda
(append new (cadadr form))
(sublis sub body)))
(list 'quote
(list 'function
(list* 'lambda
(append new (cadadr form))
(sublis sub body))))
(nconc (mapcar (function
(lambda (x)
(list 'list '(quote quote) x)))