Tue Jun 28 08:05:37 UTC 2011 pix@kepibu.org

* Padding for time numbers, so we get 01 instead of 1

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

+++ new-claki/claki.lisp 2013-07-22 03:24:40.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 ()