;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.144
;;; Reason:
;;;  (telnet-user:kermit) needed a :force-output before entering Kermit
;;;  server mode.
;;; Written 4-Dec-87 17:32:53 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.141, 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; TELNET-UTILITIES.LISP#5 at 4-Dec-87 17:32:54
#10R TELNET#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TELNET")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; TELNET-UTILITIES  "

(defun telnet-user:kermit ()
  (format t "~&;Now entering Kermit server mode~%")
  (force-output)
  (labels ((ignore-stream (op &optional arg1 &rest args)
			  (si:selectq-with-which-operations op
			    ((:tyo :set-cursorpos :home-cursor
				   :clear-eol :string-out))
			    (t
			      (global:stream-default-handler #'ignore-stream op arg1 args))))
	   (k (x) (intern x "KERMIT")))
    (global:progw `((,(k "STATUS-PANE") 'ignore-stream)
		    (,(k "INTERACTION-PANE") 'ignore-stream))
      (send (make-instance (k "KSTATE"))
	    :remote-server
	    (get-raw-ascii-stream)
	    (make-pathname :host si:local-host
			   :directory si:user-id
			   :name :wild :type :wild :version :wild)))))

))