From cbf59f40a1c926c367318e1df90d901bde2e319b Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 25 Jun 1990 21:00:16 +0000 Subject: [PATCH] Fixed print-herald to check to make sure the version specials are bound before printing them. --- code/save.lisp | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/code/save.lisp b/code/save.lisp index 7969c9c0a..1198b0d07 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -8,7 +8,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.1 1990/06/17 02:08:50 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.2 1990/06/25 21:00:16 wlott Exp $ ;;; ;;; Dump the current lisp image into a core file. All the real work is done ;;; be C. @@ -133,11 +133,17 @@ (defun print-herald () - (write-string "CMU Common Lisp ") - (write-line (lisp-implementation-version)) - (write-string "Hemlock ") - (write-string *hemlock-version*) - (write-string ", Compiler ") - (write-line #+nil compiler-version #-nil "What compiler?") - (write-line "Send bug reports and questions to Gripe.") + (macrolet ((frob (variable) + `(if (boundp ',variable) + ,variable + "<not loaded>"))) + (write-string "CMU Common Lisp ") + (write-string (lisp-implementation-version)) + (write-string ", running on ") + (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.")) (values)) -- GitLab