Sat Jun 18 23:15:27 UTC 2011 pix@kepibu.org

* Print when we start and stop a run.

+(defun now () (local-time:format-timestring nil (local-time:now) :format +simple-time+))

- (dotimes (i 20)

+ (format t "; Beginning run at ~a~%" (now))

+ (dotimes (i (* 2 24))

- (format t "; Unattented run at ~a~%" (local-time:format-timestring nil (local-time:now) :format +simple-time+))

+ (format t "; Unattended run at ~a~%" (now))

- (save-state)))

+ (save-state))

+ (format t "; Run ended at ~a~%~%" (now)))