;;; GC tuning has little effect on the x86 due to the generational
;;; collector. For the older stop & copy collector, it assuredly
-;;; does. GC time is proportional to the amount of non-grabage
+;;; does. GC time is proportional to the amount of non-garbage
;;; needing collection and copying; when the application involved is
-;;; the SBCL compiler, it doesn't take any longer to collect 20Mb than
-;;; 2 -dan, 20000819
+;;; the SBCL compiler, it doesn't take any longer to collect 20 Mb than
+;;; to collect 2 Mb. -dan, 20000819
;;;
;;; Actually, tweaking *BYTES-CONSED-BETWEEN-GCS* to 20Mb instead of
;;; the default 2 seemed to make SBCL rebuild O(25%) faster on my 256
#+(and sbcl alpha) ; SBCL/Alpha uses stop-and-copy, and Alphas have lotso RAM.
(progn
(sb-ext:gc-off)
- (setf sb-kernel::*bytes-consed-between-gcs* (* 20 (expt 10 6)))
+ (setf (bytes-consed-between-gcs) (* 20 (expt 10 6)))
(sb-ext:gc-on)
(sb-ext:gc))
(defparameter *stems-and-flags* (read-from-file "stems-and-flags.lisp-expr"))
-(defmacro for-stems-and-flags ((stem flags) &body body)
+(defmacro do-stems-and-flags ((stem flags) &body body)
(let ((stem-and-flags (gensym "STEM-AND-FLAGS-")))
`(dolist (,stem-and-flags *stems-and-flags*)
(let ((,stem (first ,stem-and-flags))
;;; Check for stupid typos in FLAGS list keywords.
(let ((stems (make-hash-table :test 'equal)))
- (for-stems-and-flags (stem flags)
+ (do-stems-and-flags (stem flags)
(if (gethash stem stems)
(error "duplicate stem ~S in stems-and-flags data" stem)
(setf (gethash stem stems) t))