[Emacs-diffs] /srv/bzr/emacs/trunk r111168: * lisp/emacs-lisp/cl-lib.el (cl-declaim): Paren typo.

[Stefan Monnier]

------------------------------------------------------------
revno: 111168
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2012-12-09 20:32:36 -0500
message:
  * lisp/emacs-lisp/cl-lib.el (cl-declaim): Paren typo.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/cl-lib.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-09 21:32:12 +0000
+++ b/lisp/ChangeLog    2012-12-10 01:32:36 +0000
@@ -1,17 +1,20 @@
+2012-12-10  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/cl-lib.el (cl-declaim): Paren typo.
+
 2012-12-09  Eli Zaretskii  <address@hidden>
 
        Parallelize byte compilation on MS-Windows.
        * makefile.w32-in (WINS_BASIC1, WINS_BASIC2, WINS_BASIC3)
-       (WINS_BASIC4): New variables, subdivide subdirectories into 4
-       parts.
+       (WINS_BASIC4): New variables, subdivide subdirectories into 4 parts.
        (WINS_BASIC): Define as concatenation of the above.
        (compile): Subdivide into 4 separate and independent jobs that can
        be run in parallel.
        (compile0-CMD, compile0-SH): New targets for compiling
        COMPILE_FIRST files, which are prerequisites for the rest of the
        byte-compilation.
-       (compile1-CMD, compile2-CMD, compile3-CMD, compile4-CMD): New
-       targets for parallel compilation with cmd.exe.
+       (compile1-CMD, compile2-CMD, compile3-CMD, compile4-CMD):
+       New targets for parallel compilation with cmd.exe.
        (compile1-SH, compile2-SH, compile3-SH, compile4-SH): Ditto for
        compiling under a Unixy shell.
 

=== modified file 'lisp/emacs-lisp/cl-lib.el'
--- a/lisp/emacs-lisp/cl-lib.el 2012-12-06 21:29:29 +0000
+++ b/lisp/emacs-lisp/cl-lib.el 2012-12-10 01:32:36 +0000
@@ -260,7 +260,7 @@
   "Like `cl-proclaim', but takes any number of unevaluated, unquoted arguments.
 Puts `(cl-eval-when (compile load eval) ...)' around the declarations
 so that they are registered at compile-time as well as run-time."
-  (let ((body (mapcar (lambda (x) `(cl-proclaim ',x) specs))))
+  (let ((body (mapcar (lambda (x) `(cl-proclaim ',x)) specs)))
     (if (cl--compiling-file) `(cl-eval-when (compile load eval) ,@body)
       `(progn ,@body))))           ; Avoid loading cl-macs.el for cl-eval-when.