hưs8p,LAMBDAF2Dp,lFASD-DATADwkfLove\ F~FPDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DplNCPUT-GLOBAL-DECLARATIONDB;ÀSTREAMDB;DEFSTRUCT-DESCRIPTORDB;$NILpB+ART-QEFBFBFBFFBBBFBFBFDBBDNAME,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*DDpBy,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBBDpBy,STOREVARDpB+GENSYMDpBy,TEMPVARSBDÀVALUESBDpB+LISTBBDBBDLETDDFIND-IF-NOT9458BDBBDpB+NTHBDplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BBFBBBDpBXR-BQ-LIST*DB;B~BDCIFDpB+BOUNDPDB;B{B{BFB~1DpB?,DEF-DECLARATIONB~ÀSUBSTDB;DpB?NAMED-LAMBDAB~DBBDÁSTRUCTURE-REFDB;BBFBB1DBxB{DB}DB;DÃSTREAM-OTHER-OUTPUT-OPERATIONSBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9457BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DÂSTREAM-WRITE-BYTE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9456BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DSTREAM-WRITE-STRING-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9455BDBBDBBDBBDB;DB;BBFBBB&DBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DÂSTREAM-WRITE-CHAR-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9454BDBBDBBDBBDB;DB;BBFBBBKDBDB;BBBBBB1DBBBBDB;DBBBDBBDBDB;BBFBB1DBxB{DB}DB;DCSTREAM-START-OF-LINE-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9453BDBBDBBDBBDB;DB;BBFBBBpDBDB;BgBBBg1DBBgBDB;DBBgDBBDBDB;BBFBB1DBxB{DB}DB;DSTREAM-OUTPUT-ELEMENT-TYPE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9452BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBF BB1DBxB{DB}DB;DCSTREAM-OUTPUT-STREAM-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9451BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBF BB1DBxB{DB}DB;DSTREAM-UNRECOGNIZED-INPUT-OPERATION-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9450BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBF BB1DBxB{DB}DB;DÃSTREAM-OTHER-INPUT-OPERATIONSBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9449BDBBDBBDBBDB;DB;BBF BBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBF BB1DBxB{DB}DB;DÂSTREAM-READ-BYTE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9448BDBBDBBDBBDB;DB;BBF BBB)DBDB;B BBB 1DBB BDB;DBB DBBDBDB;BBF BB1DBxB{DB}DB;DÂSTREAM-READ-LINE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9447BDBBDBBDBBDB;DB;BBFBBBNDBDB;BEBBBE1DBBEBDB;DBBEDBBDBDB;BBFBB1DBxB{DB}DB;DSTREAM-UNREAD-CHAR-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9446BDBBDBBDBBDB;DB;BBFBBBsDBDB;BjBBBj1DBBjBDB;DBBjDBBDBDB;BBFBB1DBxB{DB}DB;DÂSTREAM-READ-CHAR-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9445BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DCSTREAM-LISTEN-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9444BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DCSTREAM-END-OF-STREAM-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9443BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DÃSTREAM-INPUT-ELEMENT-TYPE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9442BDBBDBBDBBDB;DB;BBFBBBDBDB;BBBB1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DSTREAM-INPUT-STREAM-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9441BDBBDBBDBBDB;DB;BBFBBB,DBDB;B#BBB#1DBB#BDB;DBB#DBBDBDB;BBFBB1DBxB{DB}DB;DSTREAM-NAMEBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDFIND-IF-NOT9440BDBBDBBDBBDB;DB;BBFBBBQDBDB;BHBBBH1DBBHBDB;DBBHDBBDBDB;BBFBB1DBADB;BBDB;ÁTYPE-EXPANDERDBDBBFDB;DCSATISFIESSTREAMPBB1DBBqBDB;DBBqDÀTHINGDTYPEP-STRUCTUREBxDB;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