From: David Vázquez <davazp@gmail.com>
Date: Sun, 23 Jun 2013 19:24:13 +0000 (+0200)
Subject: Migrate BOUNDP and FBOUNDP
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0fd4307bd3adb680bb3d48e9d4e00c85e73b1b9b;p=jscl.git

Migrate BOUNDP and FBOUNDP
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 1663dae..92c847f 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1132,10 +1132,10 @@
   `(= (get ,symbol "fvalue") ,value))
 
 (define-builtin boundp (x)
-  (js!bool `(code "(" ,x ".value !== undefined)")))
+  (js!bool `(!== (get ,x "value") undefined)))
 
 (define-builtin fboundp (x)
-  (js!bool `(code "(" ,x ".fvalue !== undefined)")))
+  (js!bool `(!== (get ,x "fvalue") undefined)))
 
 (define-builtin symbol-value (x)
   (js!selfcall