X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=91bd152125da8b4c7bad6131e6e59d65fd278475;hb=3eb39e017e52b5d704e7d33405c873af52a533fd;hp=05c7539d8d690de5eb0567175b7dc3f1dfe17d9e;hpb=1a3569649605706f9ca6fde135ffb1c77b2246f4;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 05c7539..91bd152 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -13,10 +13,11 @@
 
 ;;;; general warm init compilation policy
 
+
 (proclaim '(optimize (compilation-speed 1)
 		     (debug #+sb-show 2 #-sb-show 1)
 		     (inhibit-warnings 2)
-		     (safety 1)
+		     (safety 2)
 		     (space 1)
 		     (speed 2)))
 
@@ -64,17 +65,19 @@
 
 ;;;; package hacking
 
-;;; Our cross-compilation host is out of the picture now, so we no longer need
-;;; to worry about collisions between our package names and cross-compilation
-;;; host package names, so now is a good time to rename any package with a
-;;; bootstrap-only name SB!FOO to its permanent name SB-FOO.
+;;; Our cross-compilation host is out of the picture now, so we no
+;;; longer need to worry about collisions between our package names
+;;; and cross-compilation host package names, so now is a good time to
+;;; rename any package with a bootstrap-only name SB!FOO to its
+;;; permanent name SB-FOO.
 ;;;
-;;; (In principle it might be tidier to do this when dumping the cold image in
-;;; genesis, but in practice the logic might be a little messier because
-;;; genesis dumps both symbols and packages, and we'd need to make that dumped
-;;; symbols were renamed in the same way as dumped packages. Or we could do it
-;;; in cold init, but it's easier to experiment with and debug things here in
-;;; warm init than in cold init, so we do it here instead.)
+;;; (In principle it might be tidier to do this when dumping the cold
+;;; image in genesis, but in practice the logic might be a little
+;;; messier because genesis dumps both symbols and packages, and we'd
+;;; need to make sure that dumped symbols were renamed in the same way
+;;; as dumped packages. Or we could do it in cold init, but it's
+;;; easier to experiment with and debug things here in warm init than
+;;; in cold init, so we do it here instead.)
 (let ((boot-prefix "SB!")
       (perm-prefix "SB-"))
   (dolist (package (list-all-packages))
@@ -165,16 +168,15 @@
 (dolist (stem '(;; CLOS, derived from the PCL reference implementation
 		;;
 		;; This PCL build order is based on a particular
-		;; linearization of the declared build order
-		;; dependencies from the old PCL defsys.lisp
+		;; (arbitrary) linearization of the declared build
+		;; order dependencies from the old PCL defsys.lisp
 		;; dependency database.
 		"src/pcl/walk"
-                ;; "src/pcl/iterate" removed 2001-12-20 njf
 		"src/pcl/early-low"
 		"src/pcl/macros"
                 "src/pcl/compiler-support"
 		"src/pcl/low"
-		;; "src/pcl/fin" merged into "src/pcl/low" in 0.6.11.43
+                "src/pcl/slot-name"
 		"src/pcl/defclass"
 		"src/pcl/defs"
 		"src/pcl/fngen"
@@ -267,14 +269,3 @@
 ;;; through the cold boot process. They need to be set somewhere. Maybe the
 ;;; easiest thing to do is to read them out of package-data-list.lisp-expr
 ;;; now?
-
-;;;; restoring compilation policy to neutral values in preparation for
-;;;; SAVE-LISP-AND-DIE as final SBCL core
-
-(sb-int:/show "setting compilation policy to neutral values")
-(proclaim '(optimize (compilation-speed 1)
-		     (debug 1)
-		     (inhibit-warnings 1)
-		     (safety 1)
-		     (space 1)
-		     (speed 1)))