hưs2Dp,lFASD-DATADWKFLove3UF{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DplNCPUT-GLOBAL-DECLARATIONDB;ÀSTREAMDB;DEFSTRUCT-DESCRIPTORDB;$NILpB+ART-QEFBFBFBFFBBMAKE-STREAMBFBFDBBDNAME,UNNAMEDDCINPUT-STREAM-PREDBFDINPUT-ELEMENT-TYPE-PROCBFDCEND-OF-STREAM-PREDBFDLISTEN-PREDBFDÁREAD-CHAR-PROCBFDUNREAD-CHAR-PROCBFDÁREAD-LINE-PROCBFDÁREAD-BYTE-PROCBFDÂOTHER-INPUT-OPERATIONSBFDCUNRECOGNIZED-INPUT-OPERATION-PROCBFDCOUTPUT-STREAM-PREDBFDOUTPUT-ELEMENT-TYPE-PROCBFDCSTART-OF-LINE-PREDBFDWRITE-CHAR-PROCBFDCWRITE-STRING-PROCBFDWRITE-BYTE-PROCBFDOTHER-OUTPUT-OPERATIONSBFDCUNRECOGNIZED-OUTPUT-OPERATION-PROCBF1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DCSTREAM-UNRECOGNIZED-OUTPUT-OPERATION-PROCÀLAMBDADBBDLET*DDpBz,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBBDpBz,STOREVARDpB+GENSYMDpBz,TEMPVARSBDÀVALUESBDpB+LISTBBDBBDLETDDÀG4415BDBBDpB+NTHBDplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BBFBBBDpBXR-BQ-LIST*DB;BBDCIFDpB+BOUNDPDB;B|B|BFB1DpB?,DEF-DECLARATIONBÀSUBSTDB;DpB?NAMED-LAMBDABDBBDÁSTRUCTURE-REFDB;BBFBB1DByB|DB~DB;DÃSTREAM-OTHER-OUTPUT-OPERATIONSBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4414BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DByB|DB~DB;DÂSTREAM-WRITE-BYTE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4413BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DByB|DB~DB;DSTREAM-WRITE-STRING-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4412BDBBDBBDBBDB;DB;BBFBBB'DBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DByB|DB~DB;DÂSTREAM-WRITE-CHAR-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4411BDBBDBBDBBDB;DB;BBFBBBLDBDB;BCBBBC1DBBCBDB;DBBCDBBDBDB;BBFBB1DByB|DB~DB;DCSTREAM-START-OF-LINE-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4410BDBBDBBDBBDB;DB;BBFBBBqDBDB;BhBBBh1DBBhBDB;DBBhDBBDBDB;BBFBB1DByB|DB~DB;DSTREAM-OUTPUT-ELEMENT-TYPE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4409BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBF BB1DByB|DB~DB;DCSTREAM-OUTPUT-STREAM-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4408BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBF BB1DByB|DB~DB;DSTREAM-UNRECOGNIZED-INPUT-OPERATION-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4407BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBF BB1DByB|DB~DB;DÃSTREAM-OTHER-INPUT-OPERATIONSBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4406BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBF BB1DByB|DB~DB;DÂSTREAM-READ-BYTE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4405BDBBDBBDBBDB;DB;BBF BBB*DBDB;B!BBB!1DBB!BDB;DBB!DBBDBDB;BBF BB1DByB|DB~DB;DÂSTREAM-READ-LINE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4404BDBBDBBDBBDB;DB;BBFBBBODBDB;BFBBBF1DBBFBDB;DBBFDBBDBDB;BBFBB1DByB|DB~DB;DSTREAM-UNREAD-CHAR-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4403BDBBDBBDBBDB;DB;BBFBBBtDBDB;BkBBBk1DBBkBDB;DBBkDBBDBDB;BBFBB1DByB|DB~DB;DÂSTREAM-READ-CHAR-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4402BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DByB|DB~DB;DCSTREAM-LISTEN-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4401BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DByB|DB~DB;DCSTREAM-END-OF-STREAM-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4400BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DByB|DB~DB;DÃSTREAM-INPUT-ELEMENT-TYPE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4399BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DByB|DB~DB;DSTREAM-INPUT-STREAM-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4398BDBBDBBDBBDB;DB;BBFBBB-DBDB;B$BBB$1DBB$BDB;DBB$DBBDBDB;BBFBB1DByB|DB~DB;DSTREAM-NAMEBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDÀG4397BDBBDBBDBBDB;DB;BBFBBBRDBDB;BIBBBI1DBBIBDB;DBBIDBBDBDB;BBFBB1DBADB;BBDB;ÁTYPE-EXPANDERDBDBBFDB;DCSATISFIESSTREAMPBB1DBBrBDB;DBBrDÀTHINGDTYPEP-STRUCTUREByDB;BBBB1DÀDEFVARC*NON-CRASHING-OPERATIONS*DB;DpB FINISH-OUTPUTpB FORCE-OUTPUTpB CLEAR-OUTPUTpB CLEANUP-ABORT-INPUTpB CLEANUP-ABORT-OUTPUTpB CLEAR-INPUT1DB*LOADING-ON-K?*B-1DBÄ*K-INPUT-CHARACTER-STREAM-UNREAD-CHAR*BF1DB*TERMINAL-INPUT*1DBDÀBOUNDPDB;BDBBDÀPROGNDCINITIALIZE-TERMINAL-INPUTDÃFINISH-DEFINING-TERMINAL-INPUT1DBC*TERMINAL-OUTPUT*1DBDBDB;BDBBDCINITIALIZE-TERMINAL-OUTPUT1DBÁ*TERMINAL-IO*DMAKE-TWO-WAY-STREAMBB1DB*STANDARD-INPUT*DMAKE-SYNONYM-STREAMDB;B1DBC*STANDARD-OUTPUT*DBDB;B1DBÁ*ERROR-OUTPUT*DBDB;B1DBC*QUERY-IO*DBDB;B1DBC*DEBUG-IO*DBDB;B1DBÁ*TRACE-OUTPUT*DBDB;B