From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 19:18:41 +0000 (+0200)
Subject: Migrate SYMBOLP, MAKE-SYMBOL and SYMBOL-NAME.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=592f2b033a4b684c94b5e385edc2bf0bb3f59876;p=jscl.git

Migrate SYMBOLP, MAKE-SYMBOL and SYMBOL-NAME.
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 28462ba..a737d63 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1117,13 +1117,13 @@
     `(code "(x.cdr = " ,new ", x)")))
 
 (define-builtin symbolp (x)
-  (js!bool `(code "(" ,x " instanceof Symbol)")))
+  (js!bool `(instanceof ,x |Symbol|)))
 
 (define-builtin make-symbol (name)
-  `(code "(new Symbol(" ,name "))"))
+  `(new (call |Symbol| ,name)))
 
 (define-builtin symbol-name (x)
-  `(code "(" ,x ").name"))
+  `(get ,x "name"))
 
 (define-builtin set (symbol value)
   `(code "(" ,symbol ").value = " ,value))