From c814c5bbc76c71052168a4fb61604ac82ace732f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 5 Jun 1991 14:00:25 +0000
Subject: [PATCH] Tweaked PRINT-HERALD to print the backend version, and to say
 to send mail to cmucl-bugs.

---
 code/save.lisp | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/code/save.lisp b/code/save.lisp
index 8b02094ec..6c43cc90c 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))
 
 
-- 
GitLab