;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.128
;;; Reason:
;;;  Disable (by default) the UDP Namespace Service -- which is a non-standard local
;;;  protocol that isn't used by anyone.
;;; Written 30-Nov-87 10:23:26 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.126, Experimental Local-File 73.3, 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.



; From modified file DJ: L.NETWORK.IP-TCP.SERVER; UDP-NAMESPACE-SERVER.LISP#5 at 30-Nov-87 10:23:26
#10R UDP#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "UDP")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; UDP-NAMESPACE-SERVER  "

(declare (special *udp-namespace-service*))

(when (and (boundp '*udp-namespace-service*) *udp-namespace-service*)
  (setf (tcpa:network-service-auto-enable? *udp-namespace-service*) nil)
  (tcpa:disable-one-network-service *udp-namespace-service*))

))