Date: Friday, February 19, 2010 @ 10:01:38
Author: rtoy
Path: /project/cmucl/cvsroot/src/compiler
Modified: dump.lisp
Include the dump time and host of the version of CMUCL used to create
the fasl. No functional change.
-----------+
dump.lisp | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
Index: src/compiler/dump.lisp
diff -u src/compiler/dump.lisp:1.83 src/compiler/dump.lisp:1.84
--- src/compiler/dump.lisp:1.83 Thu Jun 11 12:03:59 2009
+++ src/compiler/dump.lisp Fri Feb 19 10:01:38 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.83 2009-06-11 16:03:59 rtoy Rel $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.84 2010-02-19 15:01:38 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -397,11 +397,18 @@
"FASL FILE output from ~A.~@
Compiled ~A on ~A~@
Compiler ~A, Lisp ~A~@
+ CMUCL dumped on: ~A on ~A~@
Targeted for ~A, FASL version ~X~%"
where
(ext:format-universal-time nil (get-universal-time))
(machine-instance) compiler-version
(lisp-implementation-version)
+ (let ((dump-time (if (boundp 'lisp::*cmucl-core-dump-time*)
+ lisp::*cmucl-core-dump-time*
+ nil)))
+ (when dump-time
+ (ext:format-universal-time nil dump-time :style :iso8601)))
+ lisp::*cmucl-core-dump-host*
version f-vers)
;;
;; Terminate header.