hưs8€p€,€ì€LAMBDAF€€2€D€p€,€l�FASD-DATA€D€¬€jim€¬€Love†€µ¦¢èF€~F€9D€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€*D€B€ED€B€;C�DEFREWRITEB€'D€B€;D€À&WHOLEƒ€FORMB€1B€^D€B€ED€B€;B€FD€B€;D€ÀCDDDR€B€ND€B€;B€ND€B€ED€B€;B€ID€B€;D€B€;B€BD€B€;B€1D€B€;B€^D€B€ED€B€;B€;D€B€EB€(B€)B€*1€D€B€Kƒ€SOMEB€OD€B€FB€SB€ND€B€IB€WB€1B€^D€B€;D€B€-B€-ƒ€NIL€1€D€B€KÀEVERY€B€OD€B€FB€SB€ND€B€IB€WB€1B€^D€B€;D€B€eB€eB€-1€D€B€KÀNOTANYB€OD€B€FB€SB€ND€B€IB€WB€1B€^D€B€;D€B€-B€eB€-1€D€B€K�NOTEVERYB€OD€B€FB€SB€ND€B€IB€WB€1B€^D€B€;D€B€eB€-B€e1€D€ƒ‚DEF-REWRITE-PATTERNSÀREMOVED€ƒ€ITEMB€^D€B€eD€B€ED€B€;C�REMOVE-EQLB€ƒB€^D€D€ƒ€&KEYD€ƒ€TESTD€B€B€D€B€ED€B€;C�REMOVE-EQ€B€ƒB€^D€D€B€‰D€B€ŠD€B€ƒ€EQL€D€B€ED€B€;B€…B€ƒB€^1€D€B€�ÀDELETED€B€ƒB€^D€B€eD€B€ED€B€;C�DELETE-EQLB€ƒB€^D€D€B€‰D€B€ŠD€B€B€D€B€ED€B€;C�DELETE-EQ€B€ƒB€^D€D€B€‰D€B€ŠD€B€B€’D€B€ED€B€;B€�B€ƒB€^1€D€B€�ÀCOUNT€D€B€ƒB€^D€B€eD€B€ED€B€;C�COUNT-EQL€B€ƒB€^D€D€B€‰D€B€ŠD€B€B€D€B€ED€B€;�COUNT-EQB€ƒB€^D€D€B€‰ÀSTART€ƒ€END€D€B€ED€B€;�COUNT-1€B€ƒB€^B€½B€¾D€D€B€‰�FROM-ENDB€ŠB€½B€¾B€…D€B€ED€B€;B€ÀB€ƒB€^B€½B€¾B€…B€Š1€D€B€��COUNT-IFD€B€ŠB€^D€B€eD€B€ED€B€;Ã�COUNT-IF-NOKEYB€ŠB€^1€D€B€�ƒ�COUNT-IF-NOTD€B€ŠB€^D€B€eD€B€ED€B€;C‚COUNT-IF-NOT-NOKEYB€ŠB€^1€D€ B€��POSITIOND€B€ƒB€^D€B€eD€B€ED€B€;ƒ�POSITION-EQLB€ƒB€^D€D€B€‰D€B€ŠD€B€B€D€B€ED€B€;ƒ�POSITION-EQ€B€ƒB€^D€D€B€‰B€½B€¾D€B€ED€B€;C�POSITION-1B€ƒB€^D€B€òB€½€B€¾D€D€B€‰B€ÄB€½B€¾B€…D€B€ED€B€;B€éB€ƒB€^D€B€òB€½€B€¾B€ÄB€…D€D€B€‰B€ÄB€½B€¾B€…B€ŠD€ B€ED€B€;B€éB€ƒB€^D€B€òB€½€B€¾B€ÄB€…B€ŠD€D€B€‰B€ÄB€½B€¾B€…�TEST-NOTD€ B€ID€B€;B€éB€ƒB€^D€B€òB€½€B€¾B€ÄB€…B€ûD€B€;D€B€-1€D€B€�ƒ�POSITION-IF€D€B€ŠB€^D€B€eD€ B€ED€B€;B€éB€eB€^€B€eB€eB€eB€eB€eB€ŠD€D€B€‰B€ÄB€½B€¾B€…D€ B€ED€B€;B€éB€eB€^D€B€òB€½€B€¾B€ÄB€…B€eB€eB€Š1€D€B€�‚POSITION-IF-NOT€D€B€ŠB€^D€B€eD€ B€ED€B€;B€éB€eB€^€B€eB€eB€eB€eB€-B€ŠD€D€B€‰B€ÄB€½B€¾B€…D€ B€ED€B€;B€éB€eB€^D€B€òB€½€B€¾B€ÄB€…B€eB€-B€Š1€D€ B€�ƒ€FINDD€B€ƒB€^D€B€eD€B€ED€B€;�FIND-EQLB€ƒB€^D€D€B€‰D€B€ŠD€B€B€D€B€ED€B€;�FIND-EQ€B€ƒB€^D€D€B€‰B€½B€¾D€B€ED€B€;ÀFIND-1B€ƒB€^B€½B€¾D€D€B€‰B€ÄB€½B€¾B€…D€B€ED€B€;B€0B€ƒB€^B€½B€¾B€ÄB€…D€D€B€‰B€ÄB€½B€¾B€…B€ŠD€ B€ID€B€;B€0B€ƒB€^B€½B€¾B€ÄB€…B€ŠD€B€;D€B€eD€D€B€‰B€ÄB€½B€¾B€…B€ûD€ B€ID€B€;B€0B€ƒB€^B€½B€¾B€ÄB€…B€ûD€B€;D€B€-1€D€B€��FIND-IF€D€B€ŠB€^D€B€eD€ B€ED€B€;B€0B€eB€^€B€eB€eB€eB€eB€eB€ŠD€D€B€‰B€ÄB€½B€¾B€…D€ B€ED€B€;B€0B€eB€^B€½B€¾B€ÄB€…B€eB€eB€Š1€D€B€�ƒ�FIND-IF-NOT€D€B€ŠB€^D€B€eD€ B€ED€B€;B€0B€eB€^€B€eB€eB€eB€eB€-B€ŠD€D€B€‰B€ÄB€½B€¾B€…D€ B€ED€B€;B€0B€eB€^B€½B€¾B€ÄB€…B€eB€-B€Š€€