'(("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)))
(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