;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.103
;;; Reason:
;;;  Provide (net:with-tcp-favored) and (net:with-chaos-favored) macros to manipulate
;;;  net:*network-protocols* so that you can, for example, easily force a band transfer
;;;  to use TCP.
;;; Written 6-Nov-87 14:04:48 by pld at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.100, 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.KERNEL; LIBRARY.LISP#53 at 6-Nov-87 14:04:49
#10R NETWORK#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "NETWORK")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; KERNEL; LIBRARY  "

(defmacro with-tcp-favored (&body body)
  `(let ((*network-protocols* (cons :internet (remove :internet *network-protocols*))))
     ,@body))

(export '(with-tcp-favored))
))

; From modified file DJ: L.NETWORK.KERNEL; LIBRARY.LISP#53 at 6-Nov-87 14:04:55
#10R NETWORK#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "NETWORK")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; KERNEL; LIBRARY  "

(defmacro with-chaos-favored (&body body)
  `(let ((*network-protocols* (cons :chaos (remove :chaos *network-protocols*))))
     ,@body))

(export '(with-chaos-favored))
))