2 lines
170 B
Common Lisp
2 lines
170 B
Common Lisp
(multiple-value-bind (second minute hour day month year) (get-decoded-time)
|
|
(format t "~4,'0D-~2,'0D-~2,'0D ~2,'0D:~2,'0D:~2,'0D" year month day hour minute second))
|