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

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

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>
* emacs-lisp/debug.el (debugger-setup-buffer): Revert local change to

View file

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