From 1ea65f059e2209f95092267af2f67ac007de3067 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 13 Feb 1994 17:01:15 +0000
Subject: [PATCH] Change herald hack not to use SETF so that it will work w/o
 the full eval.

---
 code/generic-site.lisp | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/code/generic-site.lisp b/code/generic-site.lisp
index 51b4dbe68..74bf2a67e 100644
--- a/code/generic-site.lisp
+++ b/code/generic-site.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.9 1994/02/12 13:29:39 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.10 1994/02/13 17:01:15 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,10 +23,12 @@
 ;;; We would appreciate it if each site establishes a local maintainer who can
 ;;; filter bug reports from novice users to make sure that they really have
 ;;; found a bug.  Fill in the maintainer's address here..
-(setf (getf *herald-items* :bugs)
-      '("Send bug reports and questions to your local CMU CL maintainer, or to
-cmucl-bugs@cs.cmu.edu.
-Loaded subsystems:"))
+(rplaca
+ (cdr (member :bugs *herald-items*))
+ '("Send bug reports and questions to your local CMU CL maintainer, "
+   "or to" terpri
+   "cmucl-bugs@cs.cmu.edu." terpri
+   "Loaded subsystems:" terpri))
 
 ;;; If you have sources installed on your system, un-comment the following form
 ;;; and change it to point to the source location.  This will allow the Hemlock
-- 
GitLab