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