CMUCL commit: src (3 files)

[Raymond Toy]

    Date: Tuesday, June 1, 2010 @ 16:27:09
  Author: rtoy
    Path: /project/cmucl/cvsroot/src

Modified: code/describe.lisp compiler/dump.lisp compiler/main.lisp

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(-)


Index: src/code/describe.lisp
diff -u src/code/describe.lisp:1.57 src/code/describe.lisp:1.58
--- src/code/describe.lisp:1.57	Tue Apr 20 13:57:44 2010
+++ src/code/describe.lisp	Tue Jun  1 16:27:09 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/describe.lisp,v 1.57 2010-04-20 17:57:44 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/describe.lisp,v 1.58 2010-06-01 20:27:09 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -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))))
Index: src/compiler/dump.lisp
diff -u src/compiler/dump.lisp:1.86 src/compiler/dump.lisp:1.87
--- src/compiler/dump.lisp:1.86	Tue Apr 20 13:57:46 2010
+++ src/compiler/dump.lisp	Tue Jun  1 16:27:09 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.86 2010-04-20 17:57:46 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.87 2010-06-01 20:27:09 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -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*)
Index: src/compiler/main.lisp
diff -u src/compiler/main.lisp:1.156 src/compiler/main.lisp:1.157
--- src/compiler/main.lisp:1.156	Tue Apr 20 13:57:46 2010
+++ src/compiler/main.lisp	Tue Jun  1 16:27:09 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.156 2010-04-20 17:57:46 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.157 2010-06-01 20:27:09 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1707,14 +1707,14 @@
   (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 "~%")