r3000: *** empty log message ***

[lml.git] / utils.lisp

diff --git a/utils.lisp b/utils.lisp
index ed1f6a2b5799684cf9099378d1730cee1dc328fc..37fb99d642b430acd88fac08e14d0337c7825330 100644 (file)
--- 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)