Sat Jun 18 23:15:27 UTC 2011  pix@kepibu.org
  * Print when we start and stop a run.
diff -rN -u old-claki/claki.lisp new-claki/claki.lisp
--- old-claki/claki.lisp	2013-07-22 16:03:39.000000000 +0000
+++ new-claki/claki.lisp	2013-07-22 16:03:39.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")