carbon2-commit: #'byte-compile-normal-call; only examine properties of (car FORM) if a symbol

changeset: 5417:31475de17064 user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Wed Feb 16 18:26:40 2011 +0000 files: lisp/ChangeLog lisp/bytecomp.el description: #'byte-compile-normal-call; only examine properties of (car FORM) if a symbol 2011-02-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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. diff -r 503b9a3e5e46 -r 31475de17064 lisp/ChangeLog --- 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(a)parhasard.net&gt; + + * 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(a)parhasard.net&gt; * bytecomp.el: diff -r 503b9a3e5e46 -r 31475de17064 lisp/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 _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches