From: David Vázquez <davazp@gmail.com>
Date: Wed, 26 Jun 2013 23:58:18 +0000 (+0200)
Subject: Migrate %JS-VSET and %JS-VREF
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=226c00ff2e08e8f1d478e5dda3006a6cae8149cd;p=jscl.git

Migrate %JS-VSET and %JS-VREF
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index d299902..98d90c1 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1361,10 +1361,10 @@
     `(return ,(ls-compile nil))))
 
 (define-compilation %js-vref (var)
-  `(code "js_to_lisp(" ,var ")"))
+  `(call |js_to_lisp| ,(make-symbol var)))
 
 (define-compilation %js-vset (var val)
-  `(code "(" ,var " = lisp_to_js(" ,(ls-compile val) "))"))
+  `(= ,(make-symbol var) (call |lisp_to_js| ,(ls-compile val))))
 
 (define-setf-expander %js-vref (var)
   (let ((new-value (gensym)))