diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8a0f8084c53..ea512d99559 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index d4279a1b200..7aac5bdaa01 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -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) |