;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for CDI version 1.9
;;; Reason:
;;;  Change Print-Herald to call Check-For-Abnormal-Shutdown if the function exists.
;;; Written 18-Jun-86 18:01:20 by ELLEN at site CDI Dallas
;;; while running on EXPLORER-1 from band 1
;;; with System 110.232, Lambda-Diag 7.17, Experimental Local-File 68.7, FILE-Server 18.4, Unix-Interface 9.1, ZMail 65.14, Object Lisp 3.4, Tape 6.39, Site Data Editor 3.3, Tiger 24.0, KERMIT 31.3, Window-Maker 1.1, Gateway 4.8, TCP-Kernel 39.7, TCP-User 62.7, TCP-Server 45.5, MEDIUM-RESOLUTION-COLOR 3.4, MICRO-COMPILATION-TOOLS 3.2, System Revision Level 3.26, Experimental CDI 1.8, microcode 1525, CDI LambdaE base.



; From modified file S2: >Lambda-3>IO>DISK.LISP.401 at 18-Jun-86 18:01:21
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; DISK  "

(DEFUN PRINT-HERALD (&OPTIONAL (STREAM STANDARD-OUTPUT))
  "Print on STREAM a description of the versions of all software running."
  (UNLESS (ZEROP %LOADED-BAND)
    (SETQ CURRENT-LOADED-BAND %LOADED-BAND))
  (UNLESS (BOUNDP 'CURRENT-LOADED-BAND)
    (SETQ CURRENT-LOADED-BAND 0))
  (SELECT-PROCESSOR
    (:CADR
      ;; Give MIT credit for all the CADR systems.
      (FORMAT STREAM "~&MIT System, band ~C of ~A."
	      (LDB #O2010 CURRENT-LOADED-BAND)
	      DISK-PACK-NAME))
    (:LAMBDA
      (FORMAT STREAM "~&LMI Lambda Release ~D.~D~A, band ~C of ~A."
	      *RELEASE-MAJOR-VERSION*
	      *RELEASE-MINOR-VERSION*
	      (CASE *RELEASE-STATUS*
		(:DEVELOPMENT " (Development System)")
		(:ALPHA " (Alpha Test)")
		(:BETA " (Beta Test)")
		(OTHERWISE ""))
	      (LDB #o2010 CURRENT-LOADED-BAND)
	      DISK-PACK-NAME))
    (:EXPLORER
      (FORMAT STREAM "~&LMI Explorer Release ~D.~D~A, band ~C of ~A."
	      *RELEASE-MAJOR-VERSION*
	      *RELEASE-MINOR-VERSION*
	      (CASE *RELEASE-STATUS*
		(:DEVELOPMENT " (Development System)")
		(:ALPHA " (Alpha Test)")
		(:BETA " (Beta Test)")
		(OTHERWISE ""))
	      (LDB #o2010 CURRENT-LOADED-BAND)
	      DISK-PACK-NAME)))
  (AND (BOUNDP 'SYSTEM-ADDITIONAL-INFO)
       (PLUSP (ARRAY-ACTIVE-LENGTH SYSTEM-ADDITIONAL-INFO))
       (FORMAT STREAM " (~A)" SYSTEM-ADDITIONAL-INFO))
  (IF (NOT (FBOUNDP 'DESCRIBE-SYSTEM-VERSIONS))
      (FORMAT STREAM "~%Fresh Cold Load~%")
    (SELECT-PROCESSOR
      (:CADR
	(FORMAT STREAM "~&~DK physical memory, ~DK virtual memory."
		(TRUNCATE (SYSTEM-COMMUNICATION-AREA %SYS-COM-MEMORY-SIZE) #O2000)
		(TRUNCATE VIRTUAL-MEMORY-SIZE #O2000)))
      ((:LAMBDA :EXPLORER)
	(FORMAT STREAM "~&~DK physical memory, ~DK virtual memory, NuBus slot ~D."
		(TRUNCATE (SYSTEM-COMMUNICATION-AREA %SYS-COM-MEMORY-SIZE) #O2000)
		(TRUNCATE VIRTUAL-MEMORY-SIZE #O2000)
		(LOGXOR #XF0 RG-QUAD-SLOT))))
    (DESCRIBE-SYSTEM-VERSIONS STREAM T)
    (FORMAT STREAM "~%~A ~A, with associated machine ~A.~%"
	    (OR (GET-SITE-OPTION :SITE-PRETTY-NAME) SITE-NAME)
	    LOCAL-PRETTY-HOST-NAME
	    (SEND ASSOCIATED-MACHINE :NAME-AS-FILE-COMPUTER))
    (when (fboundp 'Check-For-Abnormal-Shutdown)
      (Check-For-Abnormal-Shutdown))))

))