From: Raimon Grau <raimonster@gmail.com>
Date: Mon, 22 Apr 2013 18:18:57 +0000 (+0200)
Subject: %js-call to compile to plain js calls
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=73a39910ee8bde10c1007cd735831c8131d8923a;p=jscl.git

%js-call to compile to plain js calls
---

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