Corrected date format specifier.

Pascal J. Bourguignon [2021-04-14 12:23]
Corrected date format specifier.
Filename
common-lisp/interactive/interactive.lisp
diff --git a/common-lisp/interactive/interactive.lisp b/common-lisp/interactive/interactive.lisp
index ae495f4..17082f0 100644
--- a/common-lisp/interactive/interactive.lisp
+++ b/common-lisp/interactive/interactive.lisp
@@ -636,7 +636,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~8*~}~%"
+  (format t "~%~{~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