[COMMIT] #'byte-compile-normal-call; only examine properties of (car FORM) if a symbol

Ar an cúigiú lá déag de mí Feabhra, scríobh Raymond Toy: Perfect, thanks for the report. As far as I can see, the warnings: While compiling se-jump in file /Volumes/share2/src/xemacs/hg/xemacs-packages/packages/xemacs-packages/semantic/semantic-example.el: ** attempt to open-code anonymous lambda with too many arguments ** attempt to open-code anonymous lambda with too many arguments reflect an actual problem that my recent changes made more evident. But I don’t know enough about semantic to rush to change it, and I do know enough about the byte compiler to rush to change *it*. APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1297880800 0 # Node ID 31475de17064148b3265c4a60d3e3d7c3849cea7 # Parent 503b9a3e5e4618f16972523c9e6d9fdacb285ba3 #'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 -- “Apart from the nine-banded armadillo, man is the only natural host of Mycobacterium leprae, although it can be grown in the footpads of mice.” -- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta