From 73a39910ee8bde10c1007cd735831c8131d8923a Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Mon, 22 Apr 2013 20:18:57 +0200 Subject: [PATCH] %js-call to compile to plain js calls --- ecmalisp.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/ecmalisp.lisp b/ecmalisp.lisp index 0813715..fa505e2 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -1608,6 +1608,11 @@ (code (binding-value b) " = " (ls-compile val)) (ls-compile `(set ',var ,val))))) + +(define-compilation %js-call (fun &rest args) + (let ((evaled-args (mapcar #'ls-compile args))) + (code fun "(" (join evaled-args ", ") ")"))) + (define-compilation setq (&rest pairs) (let ((result "")) (while t -- 1.7.10.4