projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11492: add pretty-data-ut
[kmrcl.git]
/
datetime.lisp
diff --git
a/datetime.lisp
b/datetime.lisp
index 59c1b3e140bdaf969cb36abcdf53313ffb56d214..0346661cff309be2d75acf6480ccced646ab91bd 100644
(file)
--- a/
datetime.lisp
+++ b/
datetime.lisp
@@
-32,9
+32,13
@@
"July" "August" "September" "October" "November"
"December")
(1- mn))
"July" "August" "September" "October" "November"
"December")
(1- mn))
- (format nil "~A" dy) (format nil "~A" yr)
+ (format nil "~A" dy)
+ (format nil "~A" yr)
(format nil "~2,'0D:~2,'0D:~2,'0D" hr min sec))))
(format nil "~2,'0D:~2,'0D:~2,'0D" hr min sec))))
+(defun pretty-date-ut (&optional (tm (get-universal-time)))
+ (multiple-value-bind (sec min hr dy mn yr) (decode-universal-time tm)
+ (pretty-date yr mn dy hr min sec)))
(defun date-string (ut)
(if (typep ut 'integer)
(defun date-string (ut)
(if (typep ut 'integer)