X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=70d8c95cffabeeca57f50c6e47fad75c20b0028b;hb=959057baab99d4328fc386aee3fcc812f5fcb3ed;hp=ac79fe53ae07282e94fb780eafc8ad9df4a1bcc6;hpb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index ac79fe5..70d8c95 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -46,12 +46,16 @@
   ;; (Hopefully this will go away as we move the files above into cold load.)
   ;; -- WHN 19991214
   (let ((fullname (concatenate 'string stem ".lisp")))
-    (sb!int:/show "about to compile" fullname)
+    ;; (Now that we use the byte compiler for interpretation,
+    ;; /SHOW doesn't get compiled properly until the src/assembly
+    ;; files have been loaded.)
+    #+sb-show (print "/about to compile src/assembly file")
+    #+sb-show (print fullname)
     (multiple-value-bind
 	(compiled-truename compilation-warnings-p compilation-failure-p)
 	(compile-file fullname)
       (declare (ignore compilation-warnings-p))
-      (sb!int:/show "done compiling" fullname)
+      #+sb-show (print "/done compiling src/assembly file")
       (if compilation-failure-p
 	  (error "COMPILE-FILE of ~S failed." fullname)
 	  (unless (load compiled-truename)
@@ -159,8 +163,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"
@@ -204,8 +209,8 @@
 		;; 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"
 		"src/code/foreign"
@@ -215,7 +220,7 @@
 		;; 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
+		"src/pcl/describe"))
 
   (let ((fullname (concatenate 'string stem ".lisp")))
     (sb-int:/show "about to compile" fullname)
@@ -265,10 +270,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).