;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Kermit version 35.2
;;; Reason:
;;;  Killing the Kermit Frame now closes the serial stream.  This is <almost>
;;;  always what you want, but was formerly a real nuisance to do.
;;; Written 18-Jul-88 23:18:47 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with System 125.6, ZWEI 125.2, ZMail 73.0, Local-File 75.0, File-Server 24.0, Unix-Interface 13.0, Tape 24.0, Lambda-Diag 17.0, Experimental Kermit 35.1, microcode 1761, SDU Boot Tape 3.14, SDU ROM 103.



; From file DJ: L.NETWORK.KERMIT; WINDOW.LISP#75 at 18-Jul-88 23:18:48
#8R KERMIT#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "KERMIT")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; KERMIT; WINDOW  "

(defun run-kermit-process (kermit-frame-instance)
  (setq kermit-frame kermit-frame-instance)
  (unwind-protect
      (kermit-initial-function kermit-frame-instance)
    (send kermit-frame-instance :close-serial-stream)))

))