Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv5826/utils-kt Modified Files: datetime.lisp Log Message: --- /project/cells/cvsroot/cells/utils-kt/datetime.lisp 2007/11/30 16:51:20 1.4 +++ /project/cells/cvsroot/cells/utils-kt/datetime.lisp 2008/04/11 09:19:47 1.5 @@ -193,12 +193,13 @@ month year day-of-week daylight-saving-time-p time-zone)) (format nil "~4,,,'0@A:~2,,,'0@A:~2,,,'0@A:~2,,,'0@A:~2,,,'0@A:~2,,,'0@A:~2,,,'0@A" - year month date hours minutes seconds (floor (now) 10)))) + year month date hours minutes seconds (floor (* 10 (mod (now) 1.0)))))) (defun hyphenated-time-string () (substitute #\- #\: (ymdhmsh))) #+test (hyphenated-time-string) - +#+test +(ymdhmsh) \ No newline at end of file