X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=jscl.lisp;h=e5b658274a21a6c2b54219d893bf9139100f064a;hb=ba8e96ec1d0ab80c668fda471f2acb6ef55c5e61;hp=e75e959a105d088a52e92f1a97c91d819c2dbff4;hpb=807e70824a4637e852002514b8fe138aaf2831d7;p=jscl.git

diff --git a/jscl.lisp b/jscl.lisp
index e75e959..e5b6582 100644
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -26,14 +26,20 @@
   '(("boot"             :target)
     ("compat"           :host)
     ("utils"            :both)
+    ("numbers"          :target)
+    ("char"             :target)
     ("list"             :target)
+    ("array"            :target)
     ("string"           :target)
+    ("sequence"         :target)
     ("print"            :target)
     ("package"          :target)
-    ("ffi"              :target)
+    ("misc"             :target)
+    ("ffi"              :both)
     ("read"             :both)
     ("defstruct"        :both)
     ("lambda-list"      :both)
+    ("backquote"        :both)
     ("compiler"         :both)
     ("toplevel"         :target)))
 
@@ -100,7 +106,8 @@
 
 
 (defun bootstrap ()
-  (let ((*package* (find-package "JSCL")))
+  (let ((*features* (cons :jscl *features*))
+        (*package* (find-package "JSCL")))
     (setq *environment* (make-lexenv))
     (setq *literal-table* nil)
     (setq *variable-counter* 0