From 62933d138d8bb40262552939495aa979d05a8ecf Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 19 Feb 2014 01:19:13 +0100 Subject: [PATCH] Fix FFI Call compilation issue For instance, in (#j:document:addEventListener (lambda () ...)) the (lambda () ...) is not compiled correctly. --- src/compiler/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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"))))) -- 1.7.10.4