* lisp/emacs-lisp/cl-macs.el (cl-transform-lambda): Don't add spurious

parens around the arg list.  Silly backport.

Fixes: debbugs:11499

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a668fa2704324ef0c84d4d419836dbc8777d149..ac5783b7951d9ff0992a1e48991bdf9248d565f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * emacs-lisp/cl-macs.el (cl-transform-lambda): Don't add spurious
+       parens around the arg list (bug#11499).  Silly backport.
+
 2012-05-16  Chong Yidong  <cyd@gnu.org>
 
        * net/gnutls.el (gnutls-min-prime-bits): Improve docstring.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 4fc71bbbc60072e70f0f687f152ceb745a839ced..f58fc70053fcafcb23496ef987634d5e231a0d54 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -313,8 +313,9 @@ It is a list of elements of the form either:
                         (require 'help-fns)
                         (cons (help-add-fundoc-usage
                                (if (stringp (car hdr)) (pop hdr))
-                               (format "(fn %S)"
-                                       (cl--make-usage-args orig-args)))
+                               (format "%S"
+                                       (cons 'fn
+                                             (cl--make-usage-args orig-args))))
                               hdr)))
                    (list (nconc (list 'let* bind-lets)
                                 (nreverse bind-forms) body)))))))