0.6.10.13:

[sbcl.git] / src / cold / warm.lisp

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 8efbc69..ac79fe5 100644 (file)
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -10,8 +10,6 @@
 ;;;; files for more information.
 
 (in-package "COMMON-LISP-USER")
-
-;;;; $Header$
 \f
 ;;;; general warm init compilation policy
 
@@ -29,7 +27,7 @@
 ;;;; do belong in cold load and will hopefully make it back there reasonably
 ;;;; soon). -- WHN 19991207
 
-(dolist (stem '(;; FIXME: The files here from outside the src/pcl/ directory
+(dolist (stem '(;; FIXME: The files here from outside the src/pcl directory
                ;; probably belong in cold load instead of warm load. They
                ;; ended up here as a quick hack to work around the
                ;; consequences of my misunderstanding how ASSEMBLE-FILE works
@@ -193,8 +191,16 @@
                "src/pcl/print-object"
                "src/pcl/precom1"
                "src/pcl/precom2"
-               ;; functionality which depends on CLOS
+
+               ;; miscellaneous functionality which depends on CLOS
                "src/code/force-delayed-defbangmethods"
+
+               ;; CLOS-level support for the Gray OO streams
+               ;; extension (which is also supported by various
+               ;; lower-level hooks elsewhere in the code)
+               "src/pcl/gray-streams-class"
+               "src/pcl/gray-streams"
+
                ;; other functionality not needed for cold init, moved
                ;; to warm init to reduce peak memory requirement in
                ;; cold init
@@ -204,14 +210,13 @@
                "src/code/ntrace"
                "src/code/foreign"
                "src/code/run-program"
+
                ;; Code derived from PCL's pre-ANSI DESCRIBE-OBJECT
                ;; facility is still used in our ANSI DESCRIBE
                ;; facility, and should be compiled and loaded after
                ;; our DESCRIBE facility is compiled and loaded.
-               "src/pcl/describe" ; FIXME: should probably be byte compiled
-               ;; FIXME: What about Gray streams? e.g. "gray-streams.lisp"
-               ;; and "gray-streams-class.lisp"?
-               ))
+               "src/pcl/describe")) ; FIXME: should probably be byte compiled
+
   (let ((fullname (concatenate 'string stem ".lisp")))
     (sb-int:/show "about to compile" fullname)
     (multiple-value-bind