diff --git a/code/save.lisp b/code/save.lisp index 8b02094ec8f1a46ad3a764d423a2859baa6102ee..6c43cc90c5487f3a711e0d7b3a86c20b698d3e47 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -7,12 +7,10 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.6 1991/04/09 14:39:43 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.7 1991/06/05 14:00:25 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.6 1991/04/09 14:39:43 ram Exp $ -;;; ;;; Dump the current lisp image into a core file. All the real work is done ;;; be C. ;;; @@ -153,9 +151,13 @@ (write-line (machine-instance)) (write-string "Hemlock ") (write-string (frob *hemlock-version*)) - (write-string ", Compiler ") - (write-line (frob compiler-version)) - (write-line "Send bug reports and questions to Gripe.")) + (write-string ", Python ") + (write-string (frob compiler-version)) + (when (boundp 'c:*backend*) + (write-string ", target ") + (write-string (c:backend-version c:*backend*))) + (terpri) + (write-line "Send bug reports and questions to cmucl-bugs+@cs.cmu.edu.")) (values))