hưs8€p€,€ì€LAMBDAF€€2€D€p€,€l�FASD-DATA€D€¬€wkf€ì�Maurice Ravel€†€5§ÄWF€‚F€ D€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€ ¬€SITEl‚Gigamos Cambridge€p€B€ ,�PACKAGE€ì�LISP-INTERNALSp€B€ l�READTABLE€¬‚standard Common-Lisp1€D€C�IN-PACKAGED€ÀQUOTE€B€51€D€�DEFMACRO�SEQ-INC€D€�INDEXVARD€pÀl€SIl�XR-BQ-LISTD€B€;C€IFD€pÀB€C¬�XR-BQ-LIST*€D€B€;ÀTYPEP€B€AD€B€;D€D€B€;ÀFIXNUMD€B€ED€B€;ƒ€INCFB€AD€B€ED€B€;ƒ€SETQB€AD€B€ED€B€;ƒ€CDR€B€A1€D€B€?C�SEQ-FETCH€D€�SEQUENCEB€AD€B€ED€B€;B€FD€B€ID€B€;B€JB€AD€B€;D€D€B€;B€LD€B€ED€B€;ƒ€AREFB€^B€AD€B€ED€B€;ƒ€CAR€B€A1€D€B€?Ã�SEQ-FETCH-INC€D€B€^B€AD€B€ED€B€;B€FD€B€ID€B€;B€JB€AD€B€;D€D€B€;B€LD€B€ED€B€;B€fB€^D€B€ED€B€;ÀPROG1€B€AD€B€ED€B€;B€QB€AD€B€ED€B€;ƒ€POP€B€A1€D€B€?C�KEY-FETCH€D€ƒ€KEY€B€^B€AD€B€ED€B€;ƒ€LET€D€B€ED€B€ED€B€;ƒ€TEM€D€B€ED€B€;B€FD€B€ID€B€;B€JB€AD€B€;D€D€B€;B€LD€B€ED€B€;B€fB€^B€AD€B€ED€B€;B€iB€AD€B€ID€B€;B€FB€…D€B€ID€B€;�FUNCALL€B€…D€B€;D€B€‰D€B€;D€B€‰1€D€B€?Ã�KEY-FETCH-INC€D€B€…B€^B€AD€B€ED€B€;B€‡D€B€ED€B€ED€B€;B€‰D€B€ED€B€;B€FD€B€ID€B€;B€JB€AD€B€;D€D€B€;B€LD€B€ED€B€;B€fB€^D€B€ED€B€;B€xB€AD€B€ED€B€;B€QB€AD€B€ED€B€;B€~B€AD€B€ID€B€;B€FB€…D€B€ID€B€;B€™B€…D€B€;D€B€‰D€B€;D€B€‰1€D€B€?C�SEQ-STORE€D€B€^B€AÀVALUE€D€B€ED€B€;B€FD€B€ID€B€;B€JB€AD€B€;D€D€B€;B€LD€B€ED€B€;ƒ€SETFD€B€ED€B€;B€fB€^B€AB€ÅD€B€ED€B€;B€ÍD€B€ED€B€;B€iB€AB€Å1€D€B€?C�SEQ-START€D€B€^C�&OPTIONAL€Ã�NUMERIC-INDEX€D€B€FB€ÛD€B€ED€B€;B€FD€B€ED€B€;ÀARRAYPB€^B€ÛD€B€ED€B€;ÀNTHCDRB€ÛB€^D€B€ED€B€;B€FD€B€ED€B€;B€ÞB€^€B€^1€D€B€?�SEQ-END€D€B€^B€ÚB€ÛD€B€ED€B€;B€FD€B€ED€B€;B€ÞB€^D€B€ED€B€;C€ORB€ÛD€B€ED€B€;ÀLENGTHB€^D€B€ED€B€;ƒ€AND€B€ÛD€B€ED€B€;B€áB€ÛB€^1€D€B€?ƒAPPLY-PREDICATE-AND-KEY€D€ÀLPRED€Ã€KEYFUNƒ€ARG1ƒ€ARG2D€B€ED€B€;ƒ€CONDD€B€ED€B€ED€B€;ƒ€NULLB€D€B€ED€B€;B€™B€B€B€D€B€ED€B€ID€B€;C€EQB€D€B€;D€D€�FUNCTIONB€iD€B€ED€B€;B€™B€D€B€ED€B€;B€iB€D€B€ED€B€;B€iB€D€B€EB€-D€B€ED€B€;B€™B€D€B€ED€B€;B€™B€B€D€B€ED€B€;B€™B€B€1€D€B€?ƒ‚DEFINE-SEQ-PREDICATED€ƒ€NAMEC�TEST-VALUEC�STOP-VALUEC�END-VALUE€B€Úƒ€DOC€D€B€ED€B€;ÀPROGN€D€B€ID€B€;ÀDEFUN€B€'D€B€;D€C�PREDICATE€B€^À&REST€Ã�MORE-SEQUENCESD€pÀB€C¬�XR-BQ-APPENDD€B€FB€+D€B€EB€+D€B€ED€B€ED€B€;B€FD€B€;B€3D€B€ED€B€;Ã�SEQ-PREDICATE€D€B€;B€1D€B€;B€^D€B€;B€3B€(B€)B€*D€B€ED€B€;‚SEQ-PREDICATE-1€D€B€;B€1D€B€;B€^B€(B€)B€*1€D€ƒ‚DEF-REWRITE-PATTERNSÀREMOVED€ƒ€ITEMB€^D€ƒ€NIL€D€B€ED€B€;C�REMOVE-EQLB€PB€^D€D€ƒ€&KEYD€ƒ€TESTD€B€B€D€B€ED€B€;C�REMOVE-EQ€B€PB€^D€D€B€WD€B€XD€B€ƒ€EQL€D€B€ED€B€;B€SB€PB€^1€D€B€NÀDELETED€B€PB€^D€B€RD€B€ED€B€;C�DELETE-EQLB€PB€^D€D€B€WD€B€XD€B€B€D€B€ED€B€;C�DELETE-EQ€B€PB€^D€D€B€WD€B€XD€B€B€`D€B€ED€B€;B€kB€PB€^1€D€B€NÀCOUNT€D€B€PB€^D€B€RD€B€ED€B€;C�COUNT-EQL€B€PB€^D€D€B€WD€B€XD€B€B€D€B€ED€B€;�COUNT-EQB€PB€^D€D€B€WÀSTART€ƒ€END€D€B€ED€B€;�COUNT-1€B€PB€^B€‹B€ŒD€D€B€W�FROM-ENDB€XB€‹B€ŒB€…D€B€ED€B€;B€ŽB€PB€^B€‹B€ŒB€…B€X1€D€B€N�COUNT-IFD€B€XB€^D€B€RD€B€ED€B€;Ã�COUNT-IF-NOKEYB€XB€^1€D€B€Nƒ�COUNT-IF-NOTD€B€XB€^D€B€RD€B€ED€B€;C‚COUNT-IF-NOT-NOKEYB€XB€^1€D€ B€N�POSITIOND€B€PB€^D€B€RD€B€ED€B€;ƒ�POSITION-EQLB€PB€^D€D€B€WD€B€XD€B€B€D€B€ED€B€;ƒ�POSITION-EQ€B€PB€^D€D€B€WB€‹B€ŒD€B€ED€B€;C�POSITION-1B€PB€^D€B€òB€‹€B€ŒD€D€B€WB€’B€‹B€ŒB€…D€B€ED€B€;B€·B€PB€^D€B€òB€‹€B€ŒB€’B€…D€D€B€WB€’B€‹B€ŒB€…B€XD€ B€ED€B€;B€·B€PB€^D€B€òB€‹€B€ŒB€’B€…B€XD€D€B€WB€’B€‹B€ŒB€…�TEST-NOTD€ B€ID€B€;B€·B€PB€^D€B€òB€‹€B€ŒB€’B€…B€ÉD€B€;D€B€-1€D€B€Nƒ�POSITION-IF€D€B€XB€^D€B€RD€ B€ED€B€;B€·B€RB€^€B€RB€RB€RB€RB€RB€XD€D€B€WB€’B€‹B€ŒB€…D€ B€ED€B€;B€·B€RB€^D€B€òB€‹€B€ŒB€’B€…B€RB€RB€X1€D€B€N‚POSITION-IF-NOT€D€B€XB€^D€B€RD€ B€ED€B€;B€·B€RB€^€B€RB€RB€RB€RB€-B€XD€D€B€WB€’B€‹B€ŒB€…D€ B€ED€B€;B€·B€RB€^D€B€òB€‹€B€ŒB€’B€…B€RB€-B€X1€D€ B€Nƒ€FINDD€B€PB€^D€B€RD€B€ED€B€;�FIND-EQLB€PB€^D€D€B€WD€B€XD€B€B€D€B€ED€B€;�FIND-EQ€B€PB€^D€D€B€WB€‹B€ŒD€B€ED€B€;ÀFIND-1B€PB€^B€‹B€ŒD€D€B€WB€’B€‹B€ŒB€…D€B€ED€B€;B€þB€PB€^B€‹B€ŒB€’B€…D€D€B€WB€’B€‹B€ŒB€…B€XD€ B€ID€B€;B€þB€PB€^B€‹B€ŒB€’B€…B€XD€B€;D€B€RD€D€B€WB€’B€‹B€ŒB€…B€ÉD€ B€ID€B€;B€þB€PB€^B€‹B€ŒB€’B€…B€ÉD€B€;D€B€-1€D€B€N�FIND-IF€D€B€XB€^D€B€RD€ B€ED€B€;B€þB€RB€^€B€RB€RB€RB€RB€RB€XD€D€B€WB€’B€‹B€ŒB€…D€ B€ED€B€;B€þB€RB€^B€‹B€ŒB€’B€…B€RB€RB€X1€D€B€Nƒ�FIND-IF-NOT€D€B€XB€^D€B€RD€ B€ED€B€;B€þB€RB€^€B€RB€RB€RB€RB€-B€XD€D€B€WB€’B€‹B€ŒB€…D€ B€ED€B€;B€þB€RB€^B€‹B€ŒB€’B€…B€RB€-B€X€€