projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b7f3a2b
)
remove comma from date string
author
Kevin Rosenberg
<kevin@rosenberg.net>
Wed, 19 Sep 2007 02:06:31 +0000
(20:06 -0600)
committer
Kevin Rosenberg
<kevin@rosenberg.net>
Wed, 19 Sep 2007 02:06:31 +0000
(20:06 -0600)
datetime.lisp
patch
|
blob
|
history
diff --git
a/datetime.lisp
b/datetime.lisp
index b01bf33d323a8b0cb9c601a62a80609244f8a9de..dd813c46f75cb7fc0bef7166d0fcc51ba5a1e6bb 100644
(file)
--- 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)