;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.84
;;; Reason:
;;;  Improve :string-for-printing methods of tcp-host-pathname and udp-host-pathname
;;; Written 29-Oct-87 10:29:44 by pld at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.83, 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.KERNEL; EASY.LISP#22 at 29-Oct-87 10:29:48
#10R TCP-APPLICATION#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TCP-APPLICATION")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; KERNEL; EASY  "


(defmethod (tcp-host-pathname :string-for-printing) ()
  (format nil "~A: ~A remote ~A local ~A"
	  (send (send self :host) :name)
	  (send self :name)
	  (send self :type)
	  (send self :version)))

))

; From modified file DJ: L.NETWORK.IP-TCP.KERNEL; EASY.LISP#22 at 29-Oct-87 10:29:51
#10R TCP-APPLICATION#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TCP-APPLICATION")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; KERNEL; EASY  "


(defmethod (udp-host-pathname :string-for-printing) ()
  (format nil "~A: ~A remote ~A local ~A"
	  (send (send self :host) :name)
	  (send self :name)
	  (send self :type)
	  (send self :version)))

))