From 396871f5acb0892b304d06da3fc9b84704323949 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 25 May 1992 21:38:31 +0000
Subject: [PATCH] Set up herald to display the version.  Don't put lisp version
 in *hemlock-version*.

---
 hemlock/main.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hemlock/main.lisp b/hemlock/main.lisp
index 4f9e6c1e9..4d7e234dd 100644
--- a/hemlock/main.lisp
+++ b/hemlock/main.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/main.lisp,v 1.12 1992/05/23 02:02:36 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/main.lisp,v 1.13 1992/05/25 21:38:31 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -31,10 +31,10 @@
 
 ;;;; Definition of *hemlock-version*.
 
-(defvar *hemlock-version*
-  (concatenate 'string "3.5 (" lisp::*lisp-implementation-version* ")"))
-
+(defvar *hemlock-version* "3.5")
 (pushnew :hemlock *features*)
+(setf (getf ext:*herald-items* :hemlock) 
+      `("    Hemlock " ,*hemlock-version*))
 
 
 ;;;; %INIT-HEMLOCK.
-- 
GitLab