Mercurial > hg > xemacs-beta
changeset 5358:31475de17064
#'byte-compile-normal-call; only examine properties of (car FORM) if a symbol
2011-02-16 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-normal-call):
Check that the car of FORM is a symbol before examining its
properties; it can be a lambda form if byte-optimize.el hasn't
worked its magic and transformed such a lambda call into inline
code.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 16 Feb 2011 18:26:40 +0000 |
| parents | 503b9a3e5e46 |
| children | f5a5501814f5 |
| files | lisp/ChangeLog lisp/bytecomp.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Feb 16 15:35:35 2011 +0000 +++ b/lisp/ChangeLog Wed Feb 16 18:26:40 2011 +0000 @@ -1,3 +1,11 @@ +2011-02-16 Aidan Kehoe <kehoea@parhasard.net> + + * bytecomp.el (byte-compile-normal-call): + Check that the car of FORM is a symbol before examining its + properties; it can be a lambda form if byte-optimize.el hasn't + worked its magic and transformed such a lambda call into inline + code. + 2011-02-12 Aidan Kehoe <kehoea@parhasard.net> * bytecomp.el:
--- a/lisp/bytecomp.el Wed Feb 16 15:35:35 2011 +0000 +++ b/lisp/bytecomp.el Wed Feb 16 18:26:40 2011 +0000 @@ -2888,7 +2888,7 @@ (tree-equal . 3))) (defun byte-compile-normal-call (form) - (and (get (car form) 'byte-compile-keyword-start) + (and (symbolp (car form)) (get (car form) 'byte-compile-keyword-start) (let ((plist (nthcdr (get (car form) 'byte-compile-keyword-start) form))) (symbol-macrolet