From: David Vázquez <davidv@eyecarepro.net>
Date: Wed, 16 Jan 2013 13:00:02 +0000 (+0000)
Subject: Add BOUNDP
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e384bdf370e9d17691df25aa4501733e291bdf3a;p=jscl.git

Add BOUNDP
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 31f67fa..76a189e 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1304,10 +1304,13 @@
   (concat "(" x ").name"))
 
 (define-builtin set (symbol value)
-  (concat "(" symbol ").value =" value))
+  (concat "(" symbol ").value = " value))
 
 (define-builtin fset (symbol value)
-  (concat "(" symbol ").function =" value))
+  (concat "(" symbol ").function = " value))
+
+(define-builtin boundp (x)
+  (js!bool (concat "(" x ".value !== undefined)")))
 
 (define-builtin symbol-value (x)
   (js!selfcall