Fri Jul 1 22:52:58 UTC 2011 pix@kepibu.org

* Expand the timing arguments run-for-a-while takes

+(defun days (d) (* (hours 24) d))

-(defun run-for-a-while (times)

+(defun run-for-a-while (how-long how-often variance)

- (dotimes (i times)

- (sleep (minutes (plus-or-minus 30 5)))

+ (dotimes (i (floor how-long how-often))

+ (sleep (plus-or-minus how-often variance))

- (sb-thread:make-thread (lambda () (let ((*standard-output* stdout)) (run-for-a-while (* 2 48))))

+ (sb-thread:make-thread (lambda () (let ((*standard-output* stdout)) (run-for-a-while (days 2) (minutes 30) (minutes 5))))