Mercurial > hg > xemacs-beta
diff lisp/cl-macs.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 | f9ec07abdbf9 |
| children | 99de5fd48e87 308d34e9f07d |
line wrap: on
line diff
--- a/lisp/cl-macs.el Thu Sep 16 15:24:40 2010 +0100 +++ b/lisp/cl-macs.el Thu Sep 16 15:34:35 2010 +0100 @@ -1963,13 +1963,13 @@ (defmacro locally (&rest body) (cons 'progn body)) ;;;###autoload (defmacro the (type form) - "Assert that FORM gives a result of type TYPE, and return FORM. + "Assert that FORM gives a result of type TYPE, and return that result. TYPE is a Common Lisp type specifier. If macro expansion of a `the' form happens during byte compilation, and the byte compiler customization variable `byte-compile-delete-errors' is -non-nil, `the' just returns FORM, without making any type checks." +non-nil, `the' is equivalent to FORM without any type checks." (if (cl-safe-expr-p form) `(prog1 ,form (assert ,(cl-make-type-test form type) t)) (let ((saved (gensym)))