0.7.7.11:
[sbcl.git] / src / cold / warm.lisp
index 1292f46..a89de69 100644 (file)
 \f
 ;;;; 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)
                "src/pcl/macros"
                 "src/pcl/compiler-support"
                "src/pcl/low"
+                "src/pcl/slot-name"
                "src/pcl/defclass"
                "src/pcl/defs"
                "src/pcl/fngen"