From 51cf2e6f4ff696f5cfca39af285a4a58579656d0 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 1 Jun 2010 20:27:09 +0000 Subject: [PATCH] Output time in ISO 8601 format. --- code/describe.lisp | 7 ++++--- compiler/dump.lisp | 4 ++-- compiler/main.lisp | 6 +++--- 3 files changed, 9 insertions(+), 8 deletions(-) diff --git a/code/describe.lisp b/code/describe.lisp index 1a5c05943..331f75e56 100644 --- a/code/describe.lisp +++ b/code/describe.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.57 2010/04/20 17:57:44 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.58 2010/06/01 20:27:09 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -316,13 +316,14 @@ (format t (intl:gettext "~&On ~A it was compiled from:") (format-universal-time nil (c::debug-source-compiled - (first sources)))) + (first sources)) + :style :iso8601)) (dolist (source sources) (let ((name (c::debug-source-name source))) (ecase (c::debug-source-from source) (:file (format t (intl:gettext "~&~A~% Created: ") (namestring name)) - (ext:format-universal-time t (c::debug-source-created source)) + (ext:format-universal-time t (c::debug-source-created source) :style :iso8601) (let ((comment (c::debug-source-comment source))) (when comment (format t (intl:gettext "~& Comment: ~A") comment)))) diff --git a/compiler/dump.lisp b/compiler/dump.lisp index 0d3c5d72b..55462a073 100644 --- a/compiler/dump.lisp +++ b/compiler/dump.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.86 2010/04/20 17:57:46 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.87 2010/06/01 20:27:09 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -401,7 +401,7 @@ CMUCL dumped on: ~A on ~A~@ Targeted for ~A, FASL version ~X~%" where - (ext:format-universal-time nil (get-universal-time)) + (ext:format-universal-time nil (get-universal-time) :style :iso8601) (machine-instance) compiler-version (lisp-implementation-version) (let ((dump-time (if (boundp 'lisp::*cmucl-core-dump-time*) diff --git a/compiler/main.lisp b/compiler/main.lisp index f01586466..d51dd217e 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.156 2010/04/20 17:57:46 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.157 2010/06/01 20:27:09 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1707,14 +1707,14 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") (compiler-mumble (intl:gettext "~2&; Python version ~A, VM version ~A on ~A.~%") compiler-version (backend-version *backend*) (ext:format-universal-time nil (get-universal-time) - :style :government + :style :iso8601 :print-weekday nil :print-timezone nil)) (dolist (x (source-info-files source-info)) (compiler-mumble (intl:gettext "; Compiling: ~A ~A~%") (namestring (file-info-name x)) (ext:format-universal-time nil (file-info-write-date x) - :style :government + :style :iso8601 :print-weekday nil :print-timezone nil))) (compiler-mumble "~%") -- GitLab