[Attempt to improve the conversion of (js ((lambda ...) ...))
Marco Baringer <mb@bese.it>**20050815074902] hunk ./js.lisp 528
-    (dwim-join (typecase (f-function form)
-                 (js-defun (list (list "(")
-                                 (js-to-strings (f-function form) (+ start-pos 2))
-                                 (list ")")
-                                 args))
-                 (t (list (js-to-strings (f-function form) (+ start-pos 2))
-                          args)))
-	       max-length
-	       :separator "")))
+    (etypecase (f-function form)
+      (js-lambda
+       (dwim-join (list (append (dwim-join (list (js-to-strings (f-function form) (+ start-pos 2)))
+                                           max-length
+                                           :start "(" :end ")" :separator "")
+                                args))
+                  max-length
+                  :separator ""))
+      ((or js-variable js-aref js-slot-value)
+       (dwim-join (list (js-to-strings (f-function form) (+ start-pos 2))
+                        args)
+                  max-length
+                  :separator "")))))