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