X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fwarm.lisp;h=91bd152125da8b4c7bad6131e6e59d65fd278475;hb=91392754bf1d241cd6913c728268caf18eae1485;hp=1292f4632aae320debcf0ea0bbc00d1569fe5a41;hpb=dc5e3163fe667e2629c7769aa8cf2e501eeeefa6;p=sbcl.git

diff --git a/src/cold/warm.lisp b/src/cold/warm.lisp
index 1292f46..91bd152 100644
--- a/src/cold/warm.lisp
+++ b/src/cold/warm.lisp
@@ -13,13 +13,6 @@
 
 ;;;; general warm init compilation policy
 
-#+(and sbcl alpha) ; SBCL/Alpha uses stop-and-copy, and Alphas have lotso RAM.
-(progn
-  (sb!ext::gc-off)
-  (setf (sb!ext::bytes-consed-between-gcs) (* 30 (expt 10 6)))
-  (sb!ext::gc-on)
-  (sb!ext::gc))
-
 
 (proclaim '(optimize (compilation-speed 1)
 		     (debug #+sb-show 2 #-sb-show 1)
@@ -183,6 +176,7 @@
 		"src/pcl/macros"
                 "src/pcl/compiler-support"
 		"src/pcl/low"
+                "src/pcl/slot-name"
 		"src/pcl/defclass"
 		"src/pcl/defs"
 		"src/pcl/fngen"
@@ -275,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?
-
-;;;; resetting 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)))