hưs2Dp,lFASD-DATADrauenLambda Four AF{FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DplNCPUT-GLOBAL-DECLARATIONDB;BASIC-STREAMDB;DEFSTRUCT-DESCRIPTORDB;$NILpB+ART-QEFBFBFBFFBBCMAKE-BASIC-STREAMBFBFD BBDNAME,UnnamedDCDIRECTIONpB NONEDCUNIT-TYPEBSDCEND-OF-STREAM-PREDDFUNCTIONCSTREAM-LOSER-PROCDLISTEN-PREDDBXBYDÁREAD-UNIT-PROCDBXBYDUNREAD-UNIT-PROCDBXBYDÁREAD-LINE-PROCDBXBYDCSTART-OF-LINE-PREDDBXBYDWRITE-UNIT-PROCDBXBYDCWRITE-STRING-PROCDBXBYDOTHER-OPERATION-PROCDBXBY1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DCBASIC-STREAM-OTHER-OPERATION-PROCÀLAMBDADBBDLET*DDpBy,SINGLE-TEMPVARSDpB+MAPCARDBXDBDÀIGNOREDpB+,GENTEMPDB;DBBDpBy,STOREVARDpB+GENSYMDpBy,TEMPVARSBDÀVALUESBDpB+LISTBBDBBDLETDDCSTRUCT6476BDBBDpB+NTHBDplSIlXR-BQ-LISTDB;ÁSTRUCTURE-SETDB;DB;BBF BBBDpBXR-BQ-LIST*DB;B~BB{B~1DpB?,DEF-DECLARATIONB~ÀSUBSTDB;DpB?NAMED-LAMBDAB~DBBDÁSTRUCTURE-REFDB;BBF BB1DBxB{DB}DB;DÃBASIC-STREAM-WRITE-STRING-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6475BDBBDBBDBBDB;DB;BBF BBBDBDB;BBB{B1DBBBDB;DBBDBBDBDB;BBF BB1DBxB{DB}DB;DBASIC-STREAM-WRITE-UNIT-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6474BDBBDBBDBBDB;DB;BBF BBBDBDB;BBB{B1DBBBDB;DBBDBBDBDB;BBF BB1DBxB{DB}DB;DBASIC-STREAM-START-OF-LINE-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6473BDBBDBBDBBDB;DB;BBF BBBDBDB;BBB{B1DBBBDB;DBBDBBDBDB;BBF BB1DBxB{DB}DB;DBASIC-STREAM-READ-LINE-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6472BDBBDBBDBBDB;DB;BBFBBBDDBDB;B;BB{B;1DBB;BDB;DBB;DBBDBDB;BBFBB1DBxB{DB}DB;DÃBASIC-STREAM-UNREAD-UNIT-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6471BDBBDBBDBBDB;DB;BBFBBBiDBDB;B`BB{B`1DBB`BDB;DBB`DBBDBDB;BBFBB1DBxB{DB}DB;DBASIC-STREAM-READ-UNIT-PROCBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6470BDBBDBBDBBDB;DB;BBFBBBDBDB;BBB{B1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DBASIC-STREAM-LISTEN-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6469BDBBDBBDBBDB;DB;BBFBBBDBDB;BBB{B1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DBASIC-STREAM-END-OF-STREAM-PREDBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6468BDBBDBBDBBDB;DB;BBFBBBDBDB;BBB{B1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DÂBASIC-STREAM-UNIT-TYPEBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6467BDBBDBBDBBDB;DB;BBFBBBDBDB;BBB{B1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DÂBASIC-STREAM-DIRECTIONBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6466BDBBDBBDBBDB;DB;BBFBBB"DBDB;BBB{B1DBBBDB;DBBDBBDBDB;BBFBB1DBxB{DB}DB;DCBASIC-STREAM-NAMEBDBBDBDDBDBBDB;DBBBDBBDBBDBBBBDBDDCSTRUCT6465BDBBDBBDBBDB;DB;BBFBBBGDBDB;B>BB{B>1DBB>BDB;DBB>DBBDBDB;BBFBB1DBADB;BBDB;ÁTYPE-EXPANDERDBXDBBFDB;DCSATISFIESÁBASIC-STREAM-PBB1DBBgBDB;DBBgDÀTHINGDTYPEP-STRUCTUREBnDB;BBBB1DÀDEFVARÁ*STANDARD-INP*pB NOTHING-YET