[Fix compilation of (.call (lambda () ...) arg1 ...), add missing ()'s around the lambda
attila.lendvai@gmail.com**20060716164717] hunk ./src/js.lisp 670
-  (let ((fname (dwim-join (list (js-to-strings (m-object form) (+ start-pos 2))
-				(list (symbol-to-js (m-method form))))
-			  (- 80 start-pos 2)
-			  :end "("
-			  :separator "")))
-    (let ((butlast (butlast fname))
-	  (last (car (last fname))))
+  (let ((object (js-to-strings (m-object form) (+ start-pos 2))))
+    ;; TODO: this may not be the best way to add ()'s around lambdas
+    ;; probably there is or should be a more general solution working
+    ;; in other situations involving lambda's
+    (when (typep (m-object form) 'js-lambda)
+      (push "(" object)
+      (nconc object (list ")")))
+    (let* ((fname (dwim-join (list object
+                                   (list (symbol-to-js (m-method form))))
+                             (- 80 start-pos 2)
+                             :end "("
+                             :separator ""))
+           (butlast (butlast fname))
+           (last (car (last fname))))