mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

* emacs-lisp/cl-macs.el (cl-block-wrapper): Fix typo that broke CL

Browse source 
blocks.
This commit is contained in:
Christian Ohler 2011-03-20 20:48:12 +11:00
parent bf02cb227d
commit a08a25d7aa
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-03-20 Christian Ohler <ohler@gnu.org>
* emacs-lisp/cl-macs.el (cl-block-wrapper): Fix typo that broke CL
blocks.
2011-03-20 Stefan Monnier <monnier@iro.umontreal.ca> 2011-03-20 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/debug.el (debugger-setup-buffer): Revert local change to * emacs-lisp/debug.el (debugger-setup-buffer): Revert local change to

2
lisp/emacs-lisp/cl-macs.el
View file

@ -2612,7 +2612,7 @@ and then returning foo."
;; FIXME: To avoid re-applying macroexpand-all, we'd like to be able ;; FIXME: To avoid re-applying macroexpand-all, we'd like to be able
;; to indicate that this return value is already fully expanded. ;; to indicate that this return value is already fully expanded.
(if (cdr cl-entry) (if (cdr cl-entry)
`(catch (nth 1 cl-form) ,@(cdr cl-body)) `(catch ,(nth 1 cl-form) ,@(cdr cl-body))
cl-body))) cl-body)))
(define-compiler-macro cl-block-throw (cl-tag cl-value) (define-compiler-macro cl-block-throw (cl-tag cl-value)