;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.117
;;; Reason:
;;;  Add new variable *bug-report-recipient-system* to be bound by subsystems
;;; Reason:
;;;  Add the variable *bug-report-recipient-system* that subsystems can bind.
;;; Written 19-Oct-88 16:46:11 by JIM at site Gigamos Cambridge
;;; while running on Maurice Ravel from band 3
;;; with Experimental System 126.111, Experimental ZWEI 126.20, Experimental ZMail 74.9, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Unix-Interface 15.0, Experimental Tape 26.4, Experimental Lambda-Diag 18.0, microcode 1762, SDU Boot Tape 3.14, SDU ROM 102, Kenv 10/4.



; From modified file DJ: L.DEBUGGER; EHF.LISP#296 at 19-Oct-88 16:46:13
#8R EH#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "EH")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: DEBUGGER; EHF  "

(defvar *bug-report-recipient-system* "LISPM" "Rebind this if you want to send a bug to a differentmailing list")

))

; From modified file DJ: L.DEBUGGER; EHF.LISP#296 at 19-Oct-88 16:46:23
#8R EH#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "EH")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: DEBUGGER; EHF  "

(defmethod (condition :bug-report-recipient-system) ()
  (cond ((boundp '*error-sg*)
	 (multiple-value-bind (value boundp)
	     (symeval-in-stack-group '*bug-report-recipient-system* *error-sg*)
	   (if (and boundp
		    value)
	       value
	     "LISPM")))
	(t "LISPM")))

))