- ;; intended to give a distribution of lifetimes of memory
- ;; usage, with low-indexed generations tending to live
- ;; for a long time.)
- (i-generation (isqrt (random (expt (length generations) 2))))
- (generation-i (aref generations i-generation)))
- #+nil (/show i-generation generation-i)
- (when generation-i
- (assert-generation i-generation generation-i))
- (when (or (null generation-i)
- (plusp (random 3)))
- #+nil (/show "allocating or reallocating" i-generation)
- (setf generation-i
- (make-array (random (1+ size)))))
- (assign-generation i-generation generation-i)
- (when (plusp (random 3))
- (assert-generation i-generation generation-i))
- (setf (aref generations i-generation)
- generation-i))))
- (format t "~&done with STRESS-GC N-PASSES=~D SIZE=~D~%" n-passes size))
+ ;; intended to give a distribution of lifetimes of memory
+ ;; usage, with low-indexed generations tending to live
+ ;; for a long time.)
+ (i-generation (isqrt (random (expt (length generations) 2))))
+ (generation-i (aref generations i-generation)))
+ #+nil (/show i-generation generation-i)
+ (when generation-i
+ (assert-generation i-generation generation-i))
+ (when (or (null generation-i)
+ (plusp (random 3)))
+ #+nil (/show "allocating or reallocating" i-generation)
+ (setf generation-i
+ (make-array (random (1+ size)))))
+ (assign-generation i-generation generation-i)
+ (when (plusp (random 3))
+ (assert-generation i-generation generation-i))
+ (setf (aref generations i-generation)
+ generation-i))))
+ (format t "~&done with STRESS-GC N-PASSES=~W SIZE=~W~%" n-passes size))