Corrected format control string.

Pascal J. Bourguignon [2014-03-08 16:10]
Corrected format control string.
Filename
common-lisp/interactive/interactive.lisp
diff --git a/common-lisp/interactive/interactive.lisp b/common-lisp/interactive/interactive.lisp
index 416518e..2bbbbd2 100644
--- a/common-lisp/interactive/interactive.lisp
+++ b/common-lisp/interactive/interactive.lisp
@@ -527,7 +527,7 @@ DO:         Create FILE if it doesn't exist, and
 (defun date (&optional (date (get-universal-time)))
   "Prints the date."
   (format t
-    "~{~5*~4,'0D-~2:*~2,'0D-~2:*~2,'0D ~2:*~2,'0D:~2:*~2,'0D:~2:*~2,'0D~%~9*~}"
+    "~{~5*~4,'0D-~2:*~2,'0D-~2:*~2,'0D ~2:*~2,'0D:~2:*~2,'0D:~2:*~2,'0D~%~8*~}"
     (multiple-value-list (decode-universal-time date)))
   date)
ViewGit