From cf299f0289cdb6a937832d477250f23967dc84bd Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Tue, 18 Sep 2007 20:06:31 -0600 Subject: [PATCH] remove comma from date string --- datetime.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/datetime.lisp b/datetime.lisp index b01bf33..dd813c4 100644 --- a/datetime.lisp +++ b/datetime.lisp @@ -45,7 +45,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) -- 2.34.1