X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=475377d5cbc6359bf1508c9b55630c5c8878b21f;hb=085501b44cc1cbdd9e260139d30b383372ddd1b8;hp=3aff5414fc5ba5499b6527142fab2257f05ffbaa;hpb=c03ebb54770cfa613d4b706a80e5be231786a5d0;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 3aff541..475377d 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -59,6 +59,9 @@
   (rename-package package
                   (package-name package)
                   (cons "SB-C-CALL" (package-nicknames package))))
+
+(let ((package (find-package "SB-SEQUENCE")))
+  (rename-package package (package-name package) (list "SEQUENCE")))
 
 ;;;; compiling and loading more of the system
 
@@ -159,6 +162,9 @@
                 "SRC;PCL;GRAY-STREAMS-CLASS"
                 "SRC;PCL;GRAY-STREAMS"
 
+                ;; CLOS-level support for User-extensible sequences.
+                "SRC;PCL;SEQUENCE"
+
                 ;; other functionality not needed for cold init, moved
                 ;; to warm init to reduce peak memory requirement in
                 ;; cold init
@@ -187,7 +193,9 @@
       (tagbody
        retry-compile-file
          (multiple-value-bind (output-truename warnings-p failure-p)
-             (compile-file fullname)
+             (if *compile-files-p*
+                 (compile-file fullname)
+                 (compile-file-pathname fullname))
            (declare (ignore warnings-p))
            (sb-int:/show "done compiling" fullname)
            (cond ((not output-truename)