Add test for string< and get it to fail

[jscl.git] / jscl.lisp

diff --git a/jscl.lisp b/jscl.lisp
index 84fe550..5e393d6 100644 (file)
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -32,6 +32,7 @@
     ("print"            :target)
     ("package"          :target)
     ("ffi"              :target)
+    ("misc"             :target)
     ("read"             :both)
     ("defstruct"        :both)
     ("lambda-list"      :both)
@@ -101,7 +102,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