From 592f2b033a4b684c94b5e385edc2bf0bb3f59876 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 21:18:41 +0200 Subject: [PATCH] Migrate SYMBOLP, MAKE-SYMBOL and SYMBOL-NAME. --- src/compiler.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4