Commit bad162fd authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 8d1a544c
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> 2012-12-09 Eli Zaretskii <eliz@gnu.org>
   
Parallelize byte compilation on MS-Windows. Parallelize byte compilation on MS-Windows.
* makefile.w32-in (WINS_BASIC1, WINS_BASIC2, WINS_BASIC3) * makefile.w32-in (WINS_BASIC1, WINS_BASIC2, WINS_BASIC3)
(WINS_BASIC4): New variables, subdivide subdirectories into 4 (WINS_BASIC4): New variables, subdivide subdirectories into 4 parts.
parts.
(WINS_BASIC): Define as concatenation of the above. (WINS_BASIC): Define as concatenation of the above.
(compile): Subdivide into 4 separate and independent jobs that can (compile): Subdivide into 4 separate and independent jobs that can
be run in parallel. be run in parallel.
(compile0-CMD, compile0-SH): New targets for compiling (compile0-CMD, compile0-SH): New targets for compiling
COMPILE_FIRST files, which are prerequisites for the rest of the COMPILE_FIRST files, which are prerequisites for the rest of the
byte-compilation. byte-compilation.
(compile1-CMD, compile2-CMD, compile3-CMD, compile4-CMD): New (compile1-CMD, compile2-CMD, compile3-CMD, compile4-CMD):
targets for parallel compilation with cmd.exe. New targets for parallel compilation with cmd.exe.
(compile1-SH, compile2-SH, compile3-SH, compile4-SH): Ditto for (compile1-SH, compile2-SH, compile3-SH, compile4-SH): Ditto for
compiling under a Unixy shell. compiling under a Unixy shell.
   
......
...@@ -260,7 +260,7 @@ one value. ...@@ -260,7 +260,7 @@ one value.
"Like `cl-proclaim', but takes any number of unevaluated, unquoted arguments. "Like `cl-proclaim', but takes any number of unevaluated, unquoted arguments.
Puts `(cl-eval-when (compile load eval) ...)' around the declarations Puts `(cl-eval-when (compile load eval) ...)' around the declarations
so that they are registered at compile-time as well as run-time." 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) (if (cl--compiling-file) `(cl-eval-when (compile load eval) ,@body)
`(progn ,@body)))) ; Avoid loading cl-macs.el for cl-eval-when. `(progn ,@body)))) ; Avoid loading cl-macs.el for cl-eval-when.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment