From ab354f654ea66e732d3617265ab004f4537c4062 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 3 May 2013 17:02:01 +0100 Subject: [PATCH] Remove references to non-symbol literals --- jscl.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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*))) -- 1.7.10.4