Migrate literals

[jscl.git] / jscl.lisp

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