diff --git a/code/describe.lisp b/code/describe.lisp index 1a5c059439ed26dd2c04339d700c5c4438702e40..331f75e56d07cc9a692d3df6822b53f63e12fdb7 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 0d3c5d72b12fe6e42eb1c1bbe597d24f11ceb33b..55462a0731b68bfe2a905f874f57060468973da2 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 f0158646615c05d33baca710ef1a52a69349ff3f..d51dd217e8c705981edf664e15f4227587cf6ab9 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 "~%")