Tue Jun 28 17:03:09 UTC 2011 pix@kepibu.org

* Make #'run-for-a-while take the number of iterations as an argument

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

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

- (dotimes (i (* 2 24))

+ (dotimes (i times)

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

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