Mercurial > hg > xemacs-beta
diff lisp/bytecomp.el @ 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 | 5dd1ba5e0113 |
| children | f00192e1cd49 e79980ee5efe |
line wrap: on
line diff
--- 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