;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.96
;;; Reason:
;;;  Flush RWHO packets before a full garbage collection
;;; Written 4-Nov-87 17:23:56 by pld at site LMI Cambridge
;;; while running on Orson Welles from band 2
;;; with Experimental System 123.94, Experimental Local-File 73.0, Experimental FILE-Server 22.0, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.NETWORK.IP-TCP.SERVER; UDP-RWHO-SERVER.LISP#28 at 4-Nov-87 17:23:56
#10R TCP-APPLICATION#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TCP-APPLICATION")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; UDP-RWHO-SERVER  "

(add-initialization "Cleanup RWHO database" '(setq *udp-rwho-server-packets* nil) '(:full-gc))

))