;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.21
;;; Reason:
;;;  Put Network Protocols before Network Interfaces on Peek network screen
;;; Written 1-Oct-87 16:52:08 by pld at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.20, 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; NETSTAT.LISP#99 at 1-Oct-87 16:52:14
#10R NETWORK#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "NETWORK")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; KERNEL; NETSTAT  "

(defun peek-network (ignore)
  "Displays state of all network interfaces and network protocols"
  (LIST NIL
	(TV:SCROLL-PARSE-ITEM "Network Protocols")
	(TV:SCROLL-PARSE-ITEM "")
	(TV:SCROLL-MAINTAIN-LIST #'(LAMBDA () *network-protocol-streams*)
				 'peek-network-protocol)
	(TV:SCROLL-PARSE-ITEM "Network Interfaces")
	(TV:SCROLL-PARSE-ITEM "")
	(TV:SCROLL-MAINTAIN-LIST #'(LAMBDA () *network-interfaces*)
				 'peek-network-interface)
	))

))