X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=utils.lisp;h=37fb99d642b430acd88fac08e14d0337c7825330;hb=ff389889ddc01f16206b043f1f6eb42b766b4f6f;hp=ed1f6a2b5799684cf9099378d1730cee1dc328fc;hpb=3dd20782b30be51ea311ec67cbd75ada7e956a0e;p=lml.git

diff --git a/utils.lisp b/utils.lisp
index ed1f6a2..37fb99d 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -1,4 +1,4 @@
-;;; $Id: utils.lisp,v 1.1 2002/09/30 10:26:43 kevin Exp $
+;;; $Id: utils.lisp,v 1.2 2002/10/14 03:28:22 kevin Exp $
 ;;;;
 ;;;; General purpose utilities
 
@@ -40,9 +40,7 @@
       (multiple-value-bind (sec min hr day mon year dow daylight-p zone)
 	  (decode-universal-time ut)
 	(declare (ignore daylight-p zone))
-	(format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~
-~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~
-~2,'0d:~2,'0d:~2,'0d" 
+	(format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~2,'0d:~2,'0d:~2,'0d" 
 		dow
 		day
 		(1- mon)