;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.111
;;; Reason:
;;;  (net:deconfigure) needs to flush ALL the network background processes
;;; Written 17-Nov-87 12:37:51 by pld at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.110, Experimental Local-File 73.0, Experimental FILE-Server 22.1, 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, 123.110 Beta.



; From modified file DJ: L.NETWORK.KERNEL; CONFIGURE.LISP#83 at 17-Nov-87 12:37:52
#10R NETWORK#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "NETWORK")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; KERNEL; CONFIGURE  "

(defun deconfigure ()
  (when *receiver*
    (send *receiver* :flush))
  (when tcp-application:*tcp-server-process*
    (send tcp-application:*tcp-server-process* :flush))
  (when tcp-application:*udp-rwho-server-process*
    (send tcp-application:*udp-rwho-server-process* :flush))
  (when tcp:*tcp-background-process*
    (send tcp:*tcp-background-process* :flush))
  (when ip:*ip-background-process*
    (send ip:*ip-background-process* :flush))
  (tcp-application:disable-all-network-services)
  (dolist (np *network-protocol-streams*)
    (send np :close))
  (dolist (ni *network-interfaces*)
    (send ni :close))
  (without-interrupts
    (setq sys:clock-function-list (delete 'net:network-clock sys:clock-function-list)))
  nil)

))