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