Skip to content
Snippets Groups Projects
Commit cbf59f40 authored by wlott's avatar wlott
Browse files

Fixed print-herald to check to make sure the version specials are bound

before printing them.
parent 9f250b12
No related branches found
No related tags found
No related merge requests found
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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 ;;; Dump the current lisp image into a core file. All the real work is done
;;; be C. ;;; be C.
...@@ -133,11 +133,17 @@ ...@@ -133,11 +133,17 @@
(defun print-herald () (defun print-herald ()
(write-string "CMU Common Lisp ") (macrolet ((frob (variable)
(write-line (lisp-implementation-version)) `(if (boundp ',variable)
(write-string "Hemlock ") ,variable
(write-string *hemlock-version*) "<not loaded>")))
(write-string ", Compiler ") (write-string "CMU Common Lisp ")
(write-line #+nil compiler-version #-nil "What compiler?") (write-string (lisp-implementation-version))
(write-line "Send bug reports and questions to Gripe.") (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)) (values))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment