X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=jscl.lisp;h=9a89a5d922ed36d13ca00937ae829ea5f14912f9;hb=dd113ef1c4663441fc3037922273c45cf5cc3c64;hp=ebf6f0dae0fa63ad45fdd3aa7fdc842c15ed1f9c;hpb=4410f136fe0502076d71b92a12774783ccdf6a4e;p=jscl.git

diff --git a/jscl.lisp b/jscl.lisp
index ebf6f0d..9a89a5d 100644
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -24,6 +24,7 @@
     ("string"    :target)
     ("print"     :target)
     ("package"   :target)
+    ("ffi"       :target)
     ("read"      :both)
     ("compiler"  :both)
     ("toplevel"  :target)))
@@ -83,7 +84,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*)))