Mon Jun 13 22:58:32 UTC 2011 pix@kepibu.org * Easier dealing with time periods. diff -rN -u old-claki/claki.lisp new-claki/claki.lisp --- old-claki/claki.lisp 2013-07-18 20:08:50.000000000 +0000 +++ new-claki/claki.lisp 2013-07-18 20:08:50.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))