From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 19:34:17 +0000 (+0200)
Subject: Migrate EQ, CHAR-UPCASE and CHAR-DOWNCASE
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6221b6afc66203e2e68be6fa142558e69a7d31b2;p=jscl.git

Migrate EQ, CHAR-UPCASE and CHAR-DOWNCASE
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 1d9489b..57a7e79 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1160,7 +1160,7 @@
   `(call |make_lisp_string| (call (get ,x "toString"))))
 
 (define-builtin eq (x y)
-  (js!bool `(code "(" ,x " === " ,y ")")))
+  (js!bool `(=== ,x ,y)))
 
 (define-builtin char-code (x)
   (type-check (("x" "string" x))
@@ -1177,10 +1177,10 @@
      "return (typeof(" x ") == \"string\") && (x.length == 1 || x.length == 2);")))
 
 (define-builtin char-upcase (x)
-  `(code "safe_char_upcase(" ,x ")"))
+  `(call |safe_char_upcase| ,x))
 
 (define-builtin char-downcase (x)
-  `(code "safe_char_downcase(" ,x ")"))
+  `(call |safe_char_downcase| ,x))
 
 (define-builtin stringp (x)
   (js!bool