hưs8€p€,€ì€LAMBDAF€€2€D€p€,€l�FASD-DATA€D€¬€wkf€ì�Jack Flanders€†€§ÞÖF€~F€vD€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€ ¬€SITEl‚Gigamos Cambridge€p€B€ ,�PACKAGE€¬�QUANTUM-MAP€p€B€ l�READTABLE€¬‚standard Common-Lisp1€D€C�IN-PACKAGED€ÀQUOTE€B€51€D€ÀEXPORTD€B€;D€‚ALLOCATE-QUANTA€Ã�CLUSTER-REGIONC‚DEALLOCATE-QUANTA€Ã�QUANTUM-REGIONÂQUANTUM-REGION-ORIGIN€Ã�VALID-QUANTUM?1€D€ƒ�DEFCONSTANT€C‚%%QUANTUM-MAP-DQIND€ƒ€BYTEF€ €1€D€B€Jƒ‚%%QUANTUM-MAP-DEVICED€B€LF€F€ 1€D€B€Jƒƒ%%QUANTUM-MAP-REGION-ORIGIN€D€B€LF€ F€1€D€B€Jƒ‚%%QUANTUM-MAP-STATUSD€B€LF€F€1€D€B€Jƒ%%QUANTUM-MAP-VALID-BIT€D€B€LF€F€1€D€B€Jƒ%%QUANTUM-MAP-MAPPED-BITD€B€LF€F€1€D€B€JC‚$$QUANTUM-INVALID€€1€D€B€J‚$$QUANTUM-VALID€F€1€D€B€JCƒ$$QUANTUM-MAP-BIT-UNMAPPED€1€D€B€Jƒ$$QUANTUM-MAP-BIT-MAPPEDF€1€D€B€J‚$$QUANTUM-EMPTY€€1€D€B€Jƒ‚$$QUANTUM-ALLOCATED€F€1€D€B€J‚$$QUANTUM-ERROR€F€1€D€B€J‚$$QUANTUM-MAPPEDF€1€D€pÀl€NC,‚DEF-DECLARATION€ƒ�QUANTUM-DQINÀSUBST€D€B€;D€pÀB€�¬�NAMED-LAMBDAB€“D€pÀl�PRIMITIVESl€Q€D€pÀ,�HARDWARE¬€LDB€B€™B€K€1€D€ƒ€SETQpÀ¬€SETF,ƒ*GRODY-SETF-MACRO-TABLE*D€p€B€+¬€CONSD€B€;D€B€“ÀLAMBDAB€šD€ƒ€LET*D€D€pÀB€¥,‚SINGLE-TEMPVARS€D€p€B€+ì€MAPCARD€�FUNCTIOND€B€ªD€ÀIGNORED€p€B€+,�GENTEMP€D€B€;D€B€™D€pÀB€¥,�STOREVARD€p€B€+ì€GENSYMD€pÀB€¥,�TEMPVARSB€­D€ÀVALUESB€ÃD€p€B€+¬€LISTB€™D€B€ÈB€½D€ƒ€LET€D€D€ÀVALUE€B€½D€B€™D€p€B€+¬€NTH€€B€ÃD€pÀl€SIl�XR-BQ-LISTD€B€;pÀB€›¬€DPB€B€ÌD€B€;B€KB€™D€pÀB€Ô¬�XR-BQ-LIST*€D€B€;B€“B€ÃD€C€IFD€p€B€+ì€BOUNDPD€B€;B€§B€§ƒ€NIL€B€“1€D€B€’Ã�QUANTUM-DEVICEB€”D€B€;D€B€–B€ïB€šD€B€�B€™B€R€1€D€B€¤B€§D€B€©D€B€;D€B€ïB€ªB€šD€B€«D€D€B€­D€B€¯B€·D€B€;D€B€™B€ÁD€B€ÃB€­D€B€ÆB€ÃD€B€ÈB€™B€ÊD€B€ËD€D€B€ÌB€½D€B€™D€B€Ï€B€ÃD€B€ÖB€ÙB€ÌD€B€;B€RB€™D€B€ÞD€B€;B€ïB€ÃB€ëB€ï1€D€B€’Ã�QUANTUM-VALID?B€”D€B€;D€B€–B€D€B€™D€pÀB€›¬€32=€D€B€�B€™B€d€B€t1€D€B€’ƒ‚QUANTUM-STATUS-BITS€B€”D€B€;D€B€–B€B€šD€B€�B€™B€^€1€D€B€¤B€§D€B€©D€B€;D€B€B€ªB€šD€B€«D€D€B€­D€B€¯B€·D€B€;D€B€™B€ÁD€B€ÃB€­D€B€ÆB€ÃD€B€ÈB€™B€ÊD€B€ËD€D€B€ÌB€½D€B€™D€B€Ï€B€ÃD€B€ÖB€ÙB€ÌD€B€;B€^B€™D€B€ÞD€B€;B€B€ÃB€ëB€1€D€B€’Ã�QUANTUM-EMPTY?B€”D€B€;D€B€–B€8B€D€B€D€B€�B€™B€^€B€€1€D€B€’Ã�REGION-ORIGIN€B€”D€B€;D€B€–B€@B€šD€B€�B€™B€X€1€D€B€¤B€§D€B€©D€B€;D€B€@B€ªB€šD€B€«D€D€B€­D€B€¯B€·D€B€;D€B€™B€ÁD€B€ÃB€­D€B€ÆB€ÃD€B€ÈB€™B€ÊD€B€ËD€D€B€ÌB€½D€B€™D€B€Ï€B€ÃD€B€ÖB€ÙB€ÌD€B€;B€XB€™D€B€ÞD€B€;B€@B€ÃB€ëB€@1€D€�DEFMACROƒ‚LOCKING-QUANTUM-MAP€D€ÀTHUNK€D€B€ÞD€B€;B€ËD€B€ÖD€B€ÖD€B€;B€aB€aD€B€;D€D€B€åD€ÀZEROP€D€ƒ€INCFp€,‚GLOBAL-REGISTERS,ƒ*QUANTUM-MAP-SEMAPHORE*€D€ÀPROG1€D€�FUNCALL€B€aD€B€¤B€kFÀD€pÀ¬€TRAPì€ILLOP€ì„Quantum map being hacked recursively.€1€D€B€’‚READ-QUANTUM-MAPB€”D€B€;D€B€–B€D€�QUANTUM€D€‚SYSTEM-TABLE-REFp€B€iì�*QUANTUM-MAP*€B€€1€D€B€’C‚WRITE-QUANTUM-MAP€B€”D€B€;D€B€–B€ŠD€B€€B€ÌD€C‚SYSTEM-TABLE-STOREB€„B€€B€Ì1€D€B€_C‚MODIFY-QUANTUM-MAPD€B€€�MODIFIERD€B€ÞD€B€;B€ËD€B€ÖD€B€ÖD€B€;B€“B€“D€B€ÖD€B€;B€€B€€D€B€;D€D€B€`D€B€°D€B€ªB€êD€B€ŠB€€D€B€oB€“D€B€B€€1€D€B€_ƒƒMODIFY-QUANTUM-MAP-PRELOCKEDD€B€€B€“D€B€ÞD€B€;B€ËD€B€ÖD€B€ÖD€B€;B€“B€“D€B€ÖD€B€;B€€B€€D€B€;D€D€B€ŠB€€D€B€oB€“D€B€B€€1€D€B€JC‚*NUMBER-OF-ZONES*€F€1€D€B€JÂ*ZONE-WITHIN-QUANTUM*€D€B€LF€F€ 1€D€B€Jƒ*FIRST-INSTRUCTION-ZONE*F€1€D€B€’ÂZONE-ORIGIN-IN-QUANTA€B€”D€B€;D€B€–B€ÄD€ƒ€ZONED€B€ØB€ÅB€º€€€