Mercurial > hg > xemacs-beta
comparison lisp/bytecomp.el @ 5269:90a0084b3541
Rephrase the #'the docstring, make it nicer while byte-compiling.
lisp/ChangeLog addition:
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-initial-macro-environment):
* cl-macs.el (the):
Rephrase the docstring, make its implementation when compiling
files a little nicer.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 16 Sep 2010 15:34:35 +0100 |
| parents | 5663ae9a8989 |
| children | dcc34e28cd84 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 5268:09f8ed0933c7 | 5269:90a0084b3541 |
|---|---|
| 502 (eval-and-compile | 502 (eval-and-compile |
| 503 . ,#'(lambda (&rest body) | 503 . ,#'(lambda (&rest body) |
| 504 (byte-compile-eval (cons 'progn body)) | 504 (byte-compile-eval (cons 'progn body)) |
| 505 (cons 'progn body))) | 505 (cons 'progn body))) |
| 506 (the . | 506 (the . |
| 507 ,#'(lambda (&rest body) | 507 ,#'(lambda (type form) |
| 508 (if byte-compile-delete-errors | 508 (if byte-compile-delete-errors |
| 509 (second body) | 509 form |
| 510 (apply (cdr (symbol-function 'the)) body))))) | 510 (funcall (cdr (symbol-function 'the)) type form))))) |
| 511 "The default macro-environment passed to macroexpand by the compiler. | 511 "The default macro-environment passed to macroexpand by the compiler. |
| 512 Placing a macro here will cause a macro to have different semantics when | 512 Placing a macro here will cause a macro to have different semantics when |
| 513 expanded by the compiler as when expanded by the interpreter.") | 513 expanded by the compiler as when expanded by the interpreter.") |
| 514 | 514 |
| 515 (defvar byte-compile-macro-environment byte-compile-initial-macro-environment | 515 (defvar byte-compile-macro-environment byte-compile-initial-macro-environment |