hưs8p,LAMBDAF2Dp,lFASD-DATADwkfLovelF~FXDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFMACROSEQ-INCDINDEXVARDplSIlXR-BQ-LISTDB;CIFDpBCXR-BQ-LIST*DB;ÀTYPEPBADB;DDB;ÀFIXNUMDBEDB;INCFBADBEDB;SETQBADBEDB;CDRBA1DB?CSEQ-FETCHDSEQUENCEBADBEDB;BFDBIDB;BJBADB;DDB;BLDBEDB;AREFB^BADBEDB;CARBA1DB?ÁSEQ-FETCH-INCDB^BADBEDB;BFDBIDB;BJBADB;DDB;BLDBEDB;BfB^DBEDB;ÀPROG1BADBEDB;BQBADBEDB;POPBA1DB?CKEY-FETCHDKEYB^BADBEDB;LETDBEDBEDB;TEMDBEDB;BFDBIDB;BJBADB;DDB;BLDBEDB;BfB^BADBEDB;BiBADBIDB;BFBDBIDB;FUNCALLBDB;DBDB;DB1DB?ÁKEY-FETCH-INCDBB^BADBEDB;BDBEDBEDB;BDBEDB;BFDBIDB;BJBADB;DDB;BLDBEDB;BfB^DBEDB;BxBADBEDB;BQBADBEDB;B~BADBIDB;BFBDBIDB;BBDB;DBDB;DB1DB?CSEQ-STOREDB^BAÀVALUEDBEDB;BFDBIDB;BJBADB;DDB;BLDBEDB;SETFDBEDB;BfB^BABDBEDB;BDBEDB;BiBAB1DB?CSEQ-STARTDB^C&OPTIONALÁNUMERIC-INDEXDBFBDBEDB;BFDBEDB;ÀARRAYPB^BDBEDB;ÀNTHCDRBB^DBEDB;BFDBEDB;BB^B^1DB?SEQ-ENDDB^BBDBEDB;BFDBEDB;BB^DBEDB;CORBDBEDB;ÀLENGTHB^DBEDB;ANDBDBEDB;BBB^1DB?APPLY-PREDICATE-AND-KEYDÀLPREDÀKEYFUNARG1ARG2DBEDB;CONDDBEDBEDB;NULLBDBEDB;BBBBDBEDBIDB;CEQBDB;DDFUNCTIONBiDBEDB;BBDBEDB;BiBDBEDB;BiBDBEB-DBEDB;BBDBEDB;BBBDBEDB;BBB1DB?DEFINE-SEQ-PREDICATEDNAMECTEST-VALUECSTOP-VALUECEND-VALUEBDOCDBEDB;ÀPROGNDBIDB;ÀDEFUNB'DB;DCPREDICATEB^À&RESTÁMORE-SEQUENCESDpBCXR-BQ-APPENDDBFB+DBEB+DBEDBEDB;BFDB;B3DBEDB;ÁSEQ-PREDICATEDB;B1DB;B^DB;B3B(B)B*DBEDB;SEQ-PREDICATE-1DB;B1DB;B^B(B)B*DBEDB;CDEFREWRITEB'DB;DÀ&WHOLEFORMB1B^DBEDB;BFDB;DÀCDDDRBNDB;BNDBEDB;BIDB;DB;BBDB;B1DB;B^DBEDB;B;DBEB(B)B*1DBKSOMEBODBFBSBNDBIBWB1B^DB;DB-B-NIL1DBKÀEVERYBODBFBSBNDBIBWB1B^DB;DBeBeB-1DBKÀNOTANYBODBFBSBNDBIBWB1B^DB;DB-BeB-1DBKNOTEVERYBODBFBSBNDBIBWB1B^DB;DBeB-Be1DDEF-REWRITE-PATTERNSÀREMOVEDITEMB^DBeDBEDB;CREMOVE-EQLBB^DD&KEYDTESTDBBDBEDB;CREMOVE-EQBB^DDBDBDBEQLDBEDB;BBB^1DBÀDELETEDBB^DBeDBEDB;CDELETE-EQLBB^DDBDBDBBDBEDB;CDELETE-EQBB^DDBDBDBBDBEDB;BBB^1DBÀCOUNTDBB^DBeDBEDB;CCOUNT-EQLBB^DDBDBDBBDBEDB;COUNT-EQBB^DDBÀSTARTENDDBEDB;COUNT-1BB^BBDDBFROM-ENDBBBBDBEDB;BBB^BBBB1DBCOUNT-IFDBB^DBeDBEDB;ÁCOUNT-IF-NOKEYBB^1DBCOUNT-IF-NOTDBB^DBeDBEDB;CCOUNT-IF-NOT-NOKEYBB^1D BPOSITIONDBB^DBeDBEDB;POSITION-EQLBB^DDBDBDBBDBEDB;POSITION-EQBB^DDBBBDBEDB;CPOSITION-1BB^DBBBDDBBBBBDBEDB;BBB^DBBBBBDDBBBBBBD BEDB;BBB^DBBBBBBDDBBBBBTEST-NOTD BIDB;BBB^DBBBBBBDB;DB-1DBPOSITION-IFDBB^DBeD BEDB;BBeB^BeBeBeBeBeBDDBBBBBD BEDB;BBeB^DBBBBBBeBeB1DBPOSITION-IF-NOTDBB^DBeD BEDB;BBeB^BeBeBeBeB-BDDBBBBBD BEDB;BBeB^DBBBBBBeB-B1D BFINDDBB^DBeDBEDB;FIND-EQLBB^DDBDBDBBDBEDB;FIND-EQBB^DDBBBDBEDB;ÀFIND-1BB^BBDDBBBBBDBEDB;B0BB^BBBBDDBBBBBBD BIDB;B0BB^BBBBBDB;DBeDDBBBBBBD BIDB;B0BB^BBBBBDB;DB-1DBFIND-IFDBB^DBeD BEDB;B0BeB^BeBeBeBeBeBDDBBBBBD BEDB;B0BeB^BBBBBeBeB1DBFIND-IF-NOTDBB^DBeD BEDB;B0BeB^BeBeBeBeB-BDDBBBBBD BEDB;B0BeB^BBBBBeB-B