Merging from upstream.

diff --cc jscl.lisp
index 5628e87,815bc35..c975422
--- 1/jscl.lisp
--- 2/jscl.lisp
+++ b/jscl.lisp
@@@ -23,18 -23,23 +23,24 @@@
  (in-package :jscl)
  
  (defvar *source*
-   '(("boot"      :target)
-     ("compat"    :host)
-     ("utils"     :both)
-     ("list"      :target)
-     ("string"    :target)
-     ("print"     :target)
-     ("package"   :target)
-     ("ffi"       :target)
-     ("char"      :target)
-     ("read"      :both)
-     ("compiler"  :both)
-     ("toplevel"  :target)))
+   '(("boot"             :target)
+     ("compat"           :host)
+     ("utils"            :both)
+     ("list"             :target)
+     ("string"           :target)
+     ("sequence"         :target)
+     ("print"            :target)
+     ("package"          :target)
+     ("ffi"              :target)
+     ("misc"             :target)
+     ("numbers"          :target)
++    ("char"             :target)
+     ("read"             :both)
+     ("defstruct"        :both)
+     ("lambda-list"      :both)
+     ("backquote"        :both)
+     ("compiler"         :both)
+     ("toplevel"         :target)))
  
  (defun source-pathname
      (filename &key (directory '(:relative "src")) (type nil) (defaults filename))

diff --cc src/compiler.lisp
Simple merge