From eade9a741f904a38cc50f51b5dee420309264a9b Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 3 May 2005 18:02:25 +0000
Subject: [PATCH] *HERALD-ITEMS* is NIL when -quiet flag is used, so check for
 that before updating the items.

From Aleksandar Bakic, cmucl-imp, 2005/05/02.
---
 code/generic-site.lisp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/code/generic-site.lisp b/code/generic-site.lisp
index c1495a405..5d2e49f6c 100644
--- a/code/generic-site.lisp
+++ b/code/generic-site.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.15 2003/02/05 14:41:11 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.16 2005/05/03 18:02:25 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,11 +21,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..
-(rplaca
- (cdr (member :bugs *herald-items*))
- '("Send questions and bug reports to your local CMUCL maintainer, " terpri
-   "or see <http://www.cons.org/cmucl/support.html>." terpri
-   "Loaded subsystems:" terpri))
+(when *herald-items*
+  (rplaca
+   (cdr (member :bugs *herald-items*))
+   '("Send questions and bug reports to your local CMUCL maintainer, " terpri
+     "or see <http://www.cons.org/cmucl/support.html>." 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