Update of /cvsroot/sbcl/sbcl/src/cold
In directory usw-pr-cvs1:/tmp/cvs-serv9753/src/cold
Modified Files:
warm.lisp
Log Message:
0.7.6.2:
Revert random changes in my (Daniel's) checkout area that were
mistakenly committed in 0.7.6.1. Sorry!
Index: warm.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/cold/warm.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- warm.lisp 23 Jul 2002 17:22:36 -0000 1.24
+++ warm.lisp 23 Jul 2002 18:20:13 -0000 1.25
@@ -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)
|