Merge branch 'master' into mutable-strings
authorDavid Vázquez <davazp@gmail.com>
Fri, 3 May 2013 16:02:10 +0000 (17:02 +0100)
committerDavid Vázquez <davazp@gmail.com>
Fri, 3 May 2013 16:02:10 +0000 (17:02 +0100)
1  2 
jscl.lisp

diff --combined jscl.lisp
+++ b/jscl.lisp
@@@ -21,7 -21,6 +21,7 @@@
      ("compat"    :host)
      ("utils"     :both)
      ("list"      :target)
 +    ("string"    :target)
      ("print"     :target)
      ("package"   :target)
      ("read"      :both)
@@@ -83,7 -82,8 +83,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*)))