LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032689. :SYSTEM-TYPE :LOGICAL :VERSION 4. :TYPE "LISP" :NAME "DEFSYSTEM" :DIRECTORY ("REL3-PUBLIC" "PUBLIC" "KERMIT") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-PUBLIC\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758198749. :AUTHOR "REL3" :LENGTH-IN-BYTES 1487. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ;-*- Mode:Common-Lisp; Package:USER; Base:10. -*-;;;                           RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;;;;                     TEXAS INSTRUMENTS INCORPORATED.;;;                              P.O. BOX 2909;;;                           AUSTIN, TEXAS 78769;;;                                 MS 2151;;;;;; Copyright (C) 1987, Texas Instruments Incorporated. All rights reserved.;;; Copyright (C) 1987 Unisys Corporation;;; All Rights Reserved(DEFVAR net::*serial-host*)(DEFPACKAGE "KERMIT" (:SIZE  1000) (:USE "TICL" "LISP"))(DEFSYSTEM KERMIT  (:module docs ("-read-me-.txt" "kuser.doc" "kuser-explorer.doc" "make-kermit.lisp"))  (:NAME "KERMIT")  (:PATHNAME-DEFAULT "sys:public.kermit;")  (:PATCHABLE "sys:public.kermit;")  (:INITIAL-STATUS :RELEASED)  (:MODULE SERIAL-CHANGES "serial-changes")  (:MODULE TELNET-CHANGES "telnet-changes")  (:MODULE SERIAL-HOST "serial-host")  (:MODULE KERMIT "kermit")  (:MODULE AUTODIAL "autodial")  (:MODULE SCRIPT-HANDLER "script-handler")  (:MODULE VT100-CHANGES "vt100-changes")  (:COMPILE-LOAD SERIAL-CHANGES)  (:COMPILE-LOAD TELNET-CHANGES)  (:COMPILE-LOAD SERIAL-HOST)  (:COMPILE-LOAD KERMIT)  (:COMPILE-LOAD AUTODIAL)  (:COMPILE-LOAD SCRIPT-HANDLER)  (:COMPILE-LOAD VT100-CHANGES)  (:auxiliary docs)  )l.  A comma <,> causes a 2 second wait."    :STRING)):NEAR-MODE '(:POINT 500 400):LABEL "Serial Port Autodial":MARGIN-CHOICES '(("Abort" (THROW 'END-CVV NIL))("Do It")))      T)))    (WHEN CONTINUE      (IF (NOT (STREAMP STREAM))  (WHEN VERBOSE    (FORMAT T "~&Stream <~A> is not a valid stream." STREAM))  (PROGN    (SEND STREAM :CLEAR-INPUT)    (SEND STREAM :CLEAR-OUTPUT)    (SEND STREAM :LINE-OUT (FORMAT NIL "~A~A" PRE NUM))    (IF (PROCESS-WAIT-WITH-TIMEOUT  "Dialing..."  3600  (FUNCTION (LAMBDA (STREAM)      