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

* Print when we start and stop a run.

--- old-claki/claki.lisp 2013-07-22 03:24:28.000000000 +0000

+++ new-claki/claki.lisp 2013-07-22 03:24:28.000000000 +0000

@@ -225,13 +225,16 @@

(defun plus-or-minus (x y) (+ (- x y) (random (* 2 y))))

(defconstant +simple-time+ '(:year #\- :month #\- :day #\Space :hour #\: :min #\: :sec))

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

(defun run-for-a-while ()

- (dotimes (i 20)

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

+ (dotimes (i (* 2 24))

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

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

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

(unattended-revert-new-spam)

- (save-state)))

+ (save-state))

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

#+(or) (sb-thread:make-thread #'run-for-a-while :name "cliki reverter")