hưs8p,LAMBDAF2Dp,lFASD-DATADwkfMaurice Ravel5WFF Dp,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*1DDEF-REWRITE-PATTERNSÀREMOVEDITEMB^DNILDBEDB;CREMOVE-EQLBPB^DD&KEYDTESTDBBDBEDB;CREMOVE-EQBPB^DDBWDBXDBEQLDBEDB;BSBPB^1DBNÀDELETEDBPB^DBRDBEDB;CDELETE-EQLBPB^DDBWDBXDBBDBEDB;CDELETE-EQBPB^DDBWDBXDBB`DBEDB;BkBPB^1DBNÀCOUNTDBPB^DBRDBEDB;CCOUNT-EQLBPB^DDBWDBXDBBDBEDB;COUNT-EQBPB^DDBWÀSTARTENDDBEDB;COUNT-1BPB^BBDDBWFROM-ENDBXBBBDBEDB;BBPB^BBBBX1DBNCOUNT-IFDBXB^DBRDBEDB;ÁCOUNT-IF-NOKEYBXB^1DBNCOUNT-IF-NOTDBXB^DBRDBEDB;CCOUNT-IF-NOT-NOKEYBXB^1D BNPOSITIONDBPB^DBRDBEDB;POSITION-EQLBPB^DDBWDBXDBBDBEDB;POSITION-EQBPB^DDBWBBDBEDB;CPOSITION-1BPB^DBBBDDBWBBBBDBEDB;BBPB^DBBBBBDDBWBBBBBXD BEDB;BBPB^DBBBBBBXDDBWBBBBTEST-NOTD BIDB;BBPB^DBBBBBBDB;DB-1DBNPOSITION-IFDBXB^DBRD BEDB;BBRB^BRBRBRBRBRBXDDBWBBBBD BEDB;BBRB^DBBBBBBRBRBX1DBNPOSITION-IF-NOTDBXB^DBRD BEDB;BBRB^BRBRBRBRB-BXDDBWBBBBD BEDB;BBRB^DBBBBBBRB-BX1D BNFINDDBPB^DBRDBEDB;FIND-EQLBPB^DDBWDBXDBBDBEDB;FIND-EQBPB^DDBWBBDBEDB;ÀFIND-1BPB^BBDDBWBBBBDBEDB;BBPB^BBBBDDBWBBBBBXD BIDB;BBPB^BBBBBXDB;DBRDDBWBBBBBD BIDB;BBPB^BBBBBDB;DB-1DBNFIND-IFDBXB^DBRD BEDB;BBRB^BRBRBRBRBRBXDDBWBBBBD BEDB;BBRB^BBBBBRBRBX1DBNFIND-IF-NOTDBXB^DBRD BEDB;BBRB^BRBRBRBRB-BXDDBWBBBBD BEDB;BBRB^BBBBBRB-BX