From: David Vazquez <davazp@gmail.com>
Date: Sat, 22 Dec 2012 06:20:51 +0000 (+0000)
Subject: Fix symbol-name for NIL
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=88da65e541e77cd569ffa705611ed24e4f41aef2;p=jscl.git

Fix symbol-name for NIL
---

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) ")"))