From: David Vázquez <davazp@gmail.com>
Date: Fri, 3 May 2013 16:02:01 +0000 (+0100)
Subject: Remove references to non-symbol literals
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=ab354f654ea66e732d3617265ab004f4537c4062

Remove references to non-symbol literals
---

diff --git a/jscl.lisp b/jscl.lisp
index 78850dc..fb2045f 100644
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -82,7 +82,8 @@
     ;; not collide with the compiler itself.
     (late-compile
      `(progn
-        ,@(mapcar (lambda (s) `(%intern-symbol (%js-vref ,(cdr s)))) *literal-table*)
+        ,@(mapcar (lambda (s) `(%intern-symbol (%js-vref ,(cdr s))))
+                  (remove-if-not #'symbolp *literal-table* :key #'car))
         (setq *literal-table* ',*literal-table*)
         (setq *variable-counter* ,*variable-counter*)
         (setq *gensym-counter* ,*gensym-counter*)))