* lisp/emacs-lisp/cl-lib.el (cl-declaim): Paren typo.

This commit is contained in:
Stefan Monnier 2012-12-09 20:32:36 -05:00
parent 8d1a544c11
commit bad162fd1b
2 changed files with 8 additions and 5 deletions

View file

@ -1,17 +1,20 @@
2012-12-10 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-lib.el (cl-declaim): Paren typo.
2012-12-09 Eli Zaretskii <eliz@gnu.org>
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.

View file

@ -260,7 +260,7 @@ one value.
"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.