0.7.4.16:

[sbcl.git] / src / code / gc.lisp

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index e623c9e..45577a0 100644 (file)
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -76,7 +76,7 @@
   (room-minimal-info)
   (sb!vm:memory-usage :count-spaces '(:dynamic)
                      :print-spaces t
-                     :cutoff 0.05s0
+                     :cutoff 0.05f0
                      :print-summary nil))
 
 (defun room-maximal-info ()
@@ -143,13 +143,13 @@ and submit it as a patch."
 ;;; Unlike CMU CL, we don't export this variable. (There's no need to,
 ;;; since our BYTES-CONSED-BETWEEN-GCS function is SETFable.)
 (defvar *bytes-consed-between-gcs*
-  #+gencgc (* 4 (expt 10 6))
+  #!+gencgc (* 4 (expt 10 6))
   ;; Stop-and-copy GC is really really slow when used too often. CSR
   ;; reported that even on his old 64 Mb SPARC, 20 Mb is much faster
   ;; than 4 Mb when rebuilding SBCL ca. 0.7.1. For modern machines
   ;; with >> 128 Mb memory, the optimum could be significantly more
   ;; than this, but at least 20 Mb should be better than 4 Mb.
-  #-gencgc (* 20 (expt 10 6)))
+  #!-gencgc (* 20 (expt 10 6)))
 (declaim (type index *bytes-consed-between-gcs*))
 
 ;;;; GC hooks