Mon Jun 13 22:58:32 UTC 2011 pix@kepibu.org

* Easier dealing with time periods.

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

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

@@ -174,4 +174,8 @@

#+(or) (attented-revert-new-spam)

-#+(or) (loop (sleep (* 60 60)) (unattented-revert-new-spam))

+(defun seconds (s) s)

+(defun minutes (m) (* (seconds 60) m))

+(defun hours (h) (* (minutes 60) h))

+

+#+(or) (dotimes (i 4) (sleep (minutes 30)) (unattented-revert-new-spam))