diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-02-21 15:31:07 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-02-21 15:31:07 -0500 |
| commit | a647cb26b695a542e3a546104afdf4c7c47eb061 (patch) | |
| tree | 72af09a5f1861f80323aef1ef29fa35d227e8f44 /lisp/emacs-lisp/cl-extra.el | |
| parent | 3e21b6a72b87787e2327513a44623b250054f77d (diff) | |
| download | emacs-a647cb26b695a542e3a546104afdf4c7c47eb061.tar.gz emacs-a647cb26b695a542e3a546104afdf4c7c47eb061.tar.bz2 emacs-a647cb26b695a542e3a546104afdf4c7c47eb061.zip | |
Missing files in last commit; remove stack-depth in byte-optimize-lapcode
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 885424ec726..12dafe274b9 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -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))) |