# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# 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@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.

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@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:
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