[cells-cvs] CVS cells/utils-kt

[ktilton]

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 at A:~2,,,'0 at A:~2,,,'0 at A:~2,,,'0 at A:~2,,,'0 at A:~2,,,'0 at A:~2,,,'0 at 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