X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=973f66badb9ce17997d1f5a7874ddfb1baed6fed;hb=8dc064d2296902f01afd9107e89a81146e3771fe;hp=de0abbc721657ce6abebd56306db4adac90e6092;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index de0abbc..973f66b 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -10,8 +10,6 @@
 ;;;; files for more information.
 
 (in-package "COMMON-LISP-USER")
-
-;;;; $Header$
 
 ;;;; 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
@@ -161,8 +159,9 @@
 		"src/pcl/iterate"
 		"src/pcl/early-low"
 		"src/pcl/macros"
+                "src/pcl/compiler-support"
 		"src/pcl/low"
-		"src/pcl/fin"
+		;; "src/pcl/fin" merged into "src/pcl/low" in 0.6.11.43
 		"src/pcl/defclass"
 		"src/pcl/defs"
 		"src/pcl/fngen"
@@ -193,25 +192,32 @@
 		"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
-		"src/code/describe" ; FIXME: should be byte compiled
-		"src/code/inspect" ; FIXME: should be byte compiled
+		"src/code/describe"
+		"src/code/inspect"
 		"src/code/profile"
 		"src/code/ntrace"
-		#+nil "src/code/run-program" ; not working as of 0.6.7
 		"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"))
+
   (let ((fullname (concatenate 'string stem ".lisp")))
     (sb-int:/show "about to compile" fullname)
     (multiple-value-bind
@@ -260,10 +266,3 @@
 		     (safety 1)
 		     (space 1)
 		     (speed 1)))
-
-;;; FIXME: It would be good to unintern stuff we will no longer need
-;;; before we go on to PURIFY. E.g.
-;;;  * various PCL stuff like INITIAL-CLASSES-AND-WRAPPERS; and
-;;;  * *BUILT-IN-CLASSES* (which can't actually be freed by UNINTERN at
-;;;    this point, since it passed through another PURIFY earlier
-;;;    at cold init time).