hưs2D p,COMPILE-DATADkeithOpusF{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITEpB LOWELLpB QFASL-SOURCE-FILE-UNIQUE-ID1DplFSMAKE-FASLOAD-PATHNAMEDpB+QUOTEOPUSDB:DSKDB:DDISCUSTESTSDB:,SDU-SERIAL-TESTDB:LISPDB:FpB BASEF pB lREADTABLEpB lCLpB ,PACKAGEpB USER1DplSI,DEFVAR-1*IO-CHANNEL*NILSerial I/O stream currently in use.1DDEFPROPC*IO-MODES*B-pSYSTEM,SYSTEM-CONSTANT1DpBWlDEFCONST-1B`DB:DBUpB SERVERpB KILL-SERVERpB ,WAIT-FOR-SERVERlValid run-time modes for IO-TEST.1DBgÁ*IO-BAUD-RATE*F%ˀ2,dF^IO-TEST@Á*TRACE-OUTPUT*BsBZB`FBiF FeFeFeFeFeFeÀSIGNALÁMAKE-CONDITIONpBa,FAILED-ASSERTIONpB PLACESDMODEpB PROCEED-TYPESpB ,PROCEED-TYPE-PLACE-ALISTDDBBpB FORMAT-STRINGlTest mode is not one of ~spB FORMAT-ARGSBÀFORMAT~2%Serial I/O test starting in ~a modeOPENsdu-serial-b:pB ,FLAVOR-AND-INIT-OPTIONSpBWlSDU-SERIAL-XON-XOFF-STREAMpB lBAUD-RATEBUpTIME,MICROSECOND-TIMECUSER-TESTl~&Evaluation of ~S took ~:D microseconds.DÀAPPLYDFUNCTIONBARGSBiSERVER-TESTBkKILL-SERVERBmWAIT-FOR-SERVERDDpB ,MACROS-EXPANDEDDpLISPTIMEpBWlXR-BQ-LISTSETFCASESIGNAL-PROCEED-CASEÀASSERTDpB(,ARG-MAPDDBDpB(lLOCAL-MAPDDBB[DplEH,.VALUE.B[B[B[DÁDOCUMENTATIONlTest serial port connections. Modes and args are::SERVER () - start up server.:USER (n) - run test times, communicating with server:KILL-SERVER () - kill server from other side:WAIT-FOR-SERVER (n) - wait up to seconds for server to answerBe sure to start the server before the user.DpB(PLACEHOLDER-TO-MICRO-FUNCTION-TABLED|@DDDDDDDDDD D|UDBAt8BEE D:9E D!@"D#D$D%DD|UE&t8'B'B(Dc@E'BAEDCD)D*DAEC3DSDSEEE+t8,D@EE-t8.D@EE/t80D@EOByˀ.y:FKB@BZFpB ABORTFÀPRINTpBREADKILLECHOUSERÀSERVERTYITYOÀFERRORExpecting '~c'(~:*~d), got '~c'(~:*~d)COKDONEBl~&Test completed.~&Invalid message ~s.ÀERRORPpB CLOSE~%Server exit.DDBDSENDWHENÀPSETQpBlIFDOTIMESCDO-FOREVERWITH-OPEN-STREAMDBDDÀGOTCHAB[DpBW.FILE-ABORTED-FLAG.DCIODCCHDB||/EDB||/EDAC @C@@E t8E5@E t8 DC@Et&8 DCD@C@Du8DECDDE@DDE3UY DC @ @C@t9EED@BwA8AXADBŭEĭOBˀ, FB@BZBF3B~%Killing server...BBBBDDBDBBDBDB[DBDBDBDA3||/ED@B E DEZ DBAw@8 @X@DAŭOBˀS:F8B@BZFF F0F0F2BFeFeFgBBpB ,TYI-WITH-TIMEOUTF<Bl~%Server did not respond.pB UNTYIB~%Server responded and echoed.~%Somebody responded, but with ~s, not ECHOBBDDBDBBBDBDDSECONDSDBDDÀGOTCHB[DBDBDBDBg||/EDACDCCADErDXDEZECDD@C@t8DEZEDEZED@BwA8AXADBŭO;Bˀ#)uFFLB@BZFF F0F0F2BFeFeFeFeFBBBBBBBExpecting '~c'(~:*~d), got '~c'(~:*~d)BExpecting ~s, got ~sCKEEP-GOINGBB~%All done.BBDDBDBBBÀUNLESSBBBDBDDÀTIMESDBDDBB[DBDBDÀTESTSB[DBDB||/EDACDC@CD[6x|EED)F FEC@C@FuXDFE@FFE3UY@C@tXDD@DEcU8DDCDDEEUYDEZEBwA8 AXA!DBŭO`B1DpBW,FASL-RECORD-FILE-MACROS-EXPANDEDDB:DDBO;$@DBl{ DB}DBo\DBu}DBCDBDBXDB4;DB:DB:-DBJDB~DBJg9