From 8b3a69a45d61417a4b7b3a348438c157c0f0a3d4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 6 Jul 2013 04:02:56 +0200 Subject: [PATCH] Fix FFI funcall --- src/compiler.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 6e26947..be83e08 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -1344,7 +1344,13 @@ ((and (consp function) (eq (car function) 'lambda)) `(call ,(convert `#',function) ,@arglist)) ((and (consp function) (eq (car function) 'oget)) - `(call ,(convert function) ,@arglist)) + `(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)) + args)))) (t (error "Bad function descriptor"))))) -- 1.7.10.4