From e384bdf370e9d17691df25aa4501733e291bdf3a Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 16 Jan 2013 13:00:02 +0000 Subject: [PATCH] Add BOUNDP --- ecmalisp.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 -- 1.7.10.4