From 88da65e541e77cd569ffa705611ed24e4f41aef2 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sat, 22 Dec 2012 06:20:51 +0000 Subject: [PATCH] Fix symbol-name for NIL --- test.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test.lisp b/test.lisp index 8efbcbe..8f8d436 100644 --- a/test.lisp +++ b/test.lisp @@ -769,7 +769,7 @@ (concat "{name: " (ls-compile name env fenv) "}")) (define-compilation symbol-name (x) - (concat "(" (ls-compile x env fenv) ").name")) + (concat "(function(){ var tmp = " (ls-compile x env fenv) "; tmp == false? 'NIL'? tmp.name)()")) (define-compilation eq (x y) (concat "(" (ls-compile x env fenv) " === " (ls-compile y env fenv) ")")) -- 1.7.10.4