From 0fd4307bd3adb680bb3d48e9d4e00c85e73b1b9b Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sun, 23 Jun 2013 21:24:13 +0200 Subject: [PATCH] Migrate BOUNDP and FBOUNDP --- src/compiler.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4