RosettaCodeData/Task/System-time/Common-Lisp/system-time.lisp

mirror of https://github.com/acmeism/RosettaCodeData.git
(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))
	`(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))`