;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 124.22
;;; Reason:
;;;  Reset Chaosnet before disk-save.
;;; Written 3-Jun-88 16:55:31 by keith at site Gigamos Cambridge
;;; while running on Breaking Glass from band 2
;;; with Experimental System 124.21, Experimental Local-File 74.1, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.1, microcode 1756, SDU Boot Tape 3.14, SDU ROM 103.



; From modified file DJ: L.NETWORK.CHAOS; CHSNCP.LISP#408 at 3-Jun-88 16:55:38
#10R CHAOS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "CHAOS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; CHAOS; CHSNCP  "

(ADD-INITIALIZATION "Reset Chaosnet" '(RESET) '(:BEFORE-COLD))

))