X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcold%2Fwarm.lisp;h=b759273827db0d8abb58aad8eee664414516c8f7;hb=59f7d9254f3601cfd48f0c299d5c30562111e991;hp=566fd7e6dafc95defbe8c233d84592264f636ca2;hpb=3aba91516068375e01ffec0d19bf8cbe85feb828;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 566fd7e..b759273 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
 
@@ -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
@@ -202,18 +208,15 @@
 		"src/code/inspect" ; FIXME: should be byte compiled
 		"src/code/profile"
 		"src/code/ntrace"
-		#+nil ; REMOVEME (for debugging 0.6.7.6 on OpenBSD only)
 		"src/code/foreign"
-		#+nil ; REMOVEME (for debugging 0.6.7.6 on OpenBSD only)
 		"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