Tue Jun 28 08:05:37 UTC 2011  pix@kepibu.org
  * Padding for time numbers, so we get 01 instead of 1
diff -rN -u old-claki/claki.lisp new-claki/claki.lisp
--- old-claki/claki.lisp	2016-01-17 21:35:03.000000000 +0000
+++ new-claki/claki.lisp	2016-01-17 21:35:03.000000000 +0000
@@ -233,7 +233,7 @@
 (defun hours (h) (* (minutes 60) h))
 (defun plus-or-minus (x y) (+ (- x y) (random (* 2 y))))
 
-(defconstant +simple-time+ '(:year #\- :month #\- :day #\Space :hour #\: :min #\: :sec))
+(defconstant +simple-time+ '(:year #\- (:month 2) #\- (:day 2) #\Space (:hour 2) #\: (:min 2) #\: (:sec 2)))
 (defun now () (local-time:format-timestring nil (local-time:now) :format +simple-time+))
 
 (defun run-for-a-while ()