From: David Vázquez <davazp@gmail.com>
Date: Wed, 19 Feb 2014 00:19:13 +0000 (+0100)
Subject: Fix FFI Call compilation issue
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=62933d138d8bb40262552939495aa979d05a8ecf

Fix FFI Call compilation issue

For instance, in

(#j:document:addEventListener (lambda ()
  ...))

the (lambda () ...) is not compiled correctly.
---

diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index 60860b3..1ea5259 100644
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -1359,14 +1359,14 @@
       #+jscl((symbolp function)
              `(call ,(convert `#',function) ,@arglist))
       ((and (consp function) (eq (car function) 'lambda))
-       `(call ,(convert `#',function) ,@arglist))
+       `(call ,(convert `(function ,function)) ,@arglist))
       ((and (consp function) (eq (car function) 'oget))
        `(call |js_to_lisp|
               (call ,(reduce (lambda (obj p)
                                `(property ,obj (call |xstring| ,p)))
                              (mapcar #'convert (cdr function)))
                     ,@(mapcar (lambda (s)
-                                `(call |lisp_to_js| ,s))
+                                `(call |lisp_to_js| ,(convert s)))
                               args))))
       (t
        (error "Bad function descriptor")))))