[Allow strings and numbers as slot names in object literals
marijnh@gmail.com**20060721075006] {
hunk ./src/js.lisp 799
-			      collect (list (js-compile-to-symbol name)
-					    (js-compile-to-expression val)))))
+			      collect (let ((name-expr (js-compile-to-expression name)))
+					(assert (or (typep name-expr 'js-variable)
+						    (typep name-expr 'string-literal)
+						    (typep name-expr 'number-literal)))
+					(list name-expr (js-compile-to-expression val))))))
hunk ./src/js.lisp 810
-				:start (concatenate 'string (symbol-to-js (first slot)) " : ")
+				:start (concatenate 'string (car (js-to-strings (first slot) 0)) " : ")
}