hưs2€D€p€,€l�FASD-DATA€D€¬€WKF€¬�Orson Welles†€0¦·©F€{F€ôD€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€ ¬€SITEl‚Gigamos Cambridge€p€B€ ,�PACKAGE€l�AREA-DATA€p€B€ l�READTABLE€¬‚standard Common-Lisp1€D€C�IN-PACKAGED€ÀQUOTE€B€51€D€ÀEXPORTD€B€;D€C‚GET-ACTIVE-REGION€ƒ‚INITIALIZE-AREA-DATAC�MAKE-AREA€‚MAKE-AREA-FIXED€ƒ‚MAKE-REGION-IN-AREA€ƒ‚RESET-TEMPORARY-AREA1€D€ƒ€SETQpÀ¬€SETF,ƒ*GRODY-SETF-MACRO-TABLE*D€p€B€+¬€CONSD€B€;D€C‚REGION-LIST-THREADÀLAMBDAD€pÀ¬�REGION-DATA€ì€REGIOND€ƒ€LET*D€D€pÀB€K,‚SINGLE-TEMPVARS€D€p€B€+ì€MAPCARD€�FUNCTIOND€B€QD€ÀIGNORED€p€B€+,�GENTEMP€D€B€;D€B€TD€pÀB€K,�STOREVARD€p€B€+ì€GENSYMD€pÀB€K,�TEMPVARSB€XD€ÀVALUESB€nD€p€B€+¬€LISTB€TD€B€sB€hD€ƒ€LET€D€D€ÀVALUE€B€hD€B€TD€p€B€+¬€NTH€€B€nD€pÀl€SIl�XR-BQ-LISTD€B€;C‚REGION-TABLE-STORED€B€;p€,‚GLOBAL-REGISTERS¬‚*REGION-LIST-THREAD*B€TB€wD€pÀB€¬�XR-BQ-LIST*€D€B€;B€PB€nD€C€IFD€p€B€+ì€BOUNDPD€B€;B€MB€Mƒ€NIL€B€P1€D€ƒ�DEFCONSTANT€Ãƒ%%REGION-LIST-THREAD-END-FLAG€D€ƒ€BYTEF€F€1€D€B€œ„%%REGION-LIST-THREAD-NEXT-REGIOND€B€žD€C�BYTE-SIZE€pÀ,�HARDWARE,‚%%GC-RAM-MD-BYTE€1€D€B€œC‚$$THREAD-CONTINUES€1€D€B€œÃ�$$THREAD-ENDS€F€1€D€pÀl€NC,‚DEF-DECLARATION€C‚THREAD-CONTINUES?€Ã€SUBST€D€B€;D€pÀB€¶¬�NAMED-LAMBDAB€¹D€pÀl�PRIMITIVESl€Q€D€pÀB€¦¬€32=€D€pÀB€¦¬€LDB€B€¿B€�€B€®1€D€B€¸Ã�AREA-TABLE-REFB€ºD€B€;D€B€¼B€ÌD€ÀTABLE€ƒ€AREAD€pÀB€¦l„VMA-START-READ-VMA-BOXED-MD-BOXED€D€pÀB€¦¬€24+€B€ÍB€ÎD€pÀB€¦,�READ-MD€1€D€B€¸‚AREA-TABLE-STOREB€ºD€B€;D€B€¼B€ÝD€B€ÍB€ÎC�NEW-VALUE€D€pÀB€¦,‚WRITE-VMA-BOXED€D€B€ÓB€ÍB€ÎD€pÀB€¦¬‚MD-START-WRITE-BOXEDB€ÞB€Þ1€D€B€JB€MD€B€OD€B€;D€B€ÌB€QD€À&REST€�ARGS466€D€B€VD€D€B€XD€B€ZB€bD€B€;B€—D€pÀB€Kì�REST-TEMPVARS€D€B€ZB€bB€ìB€lD€B€nD€ÀAPPENDB€XB€òD€B€qB€nD€B€õD€B€sD€p€B€+l�COPY-LIST€B€ìB€uD€B€vD€D€�VALUE467B€hD€B€ìB€òD€B€‹D€B€;B€ÝD€pÀB€¬�XR-BQ-APPENDB€ìD€B€�B€þD€B€‹D€B€;B€ÌB€nB€˜B€Ì1€D€�DEFMACROC‚DEF-AREA-ACCESSOR€D€ƒ€NAMEB€ÍD€B€�D€B€;ÀPROGN€D€B€�D€B€;�DEFSUBSTB€D€B€;D€B€ÎD€B€‹D€B€;B€ÌB€ÍD€B€;D€B€ÎD€B€�D€B€;�DEFSETF€B€D€B€;D€B€ÎD€B€;D€B€wD€B€‹D€B€;B€�D€B€;D€B€;B€ÝD€B€�D€B€;B€;B€ÍD€B€;D€B€ÎB€w1€D€B€¸‚AREA-REGION-DATAB€ºD€B€;D€B€¼B€3B€D€B€Ìp€B€„l‚*AREA-REGION-DATA*B€Î1€D€B€JB€MD€B€OD€B€;D€B€3B€QB€#D€B€VD€D€B€XD€B€ZB€bD€B€;D€B€ÎB€lD€B€nB€XD€B€qB€nD€B€sB€ÎB€uD€B€vD€D€B€wB€hD€B€ÎD€B€z€B€nD€B€�B€(D€B€;B€5B€ÎB€wD€B€‹D€B€;B€3B€nB€˜B€31€D€B€œƒ�%%AREA-DATA€D€B€žD€C€+€D€B€¥pÀ¬�QUANTUM-MAP€¬ƒ%%QUANTUM-MAP-REGION-ORIGIN€F€€1€D€B€œCƒ%%AREA-DATA-REGION-THREAD€D€B€žD€B€¥B€W€1€D€B€œƒ%%AREA-DATA-AREA-STATUS€D€B€žF€D€B€¥B€W1€D€B€œƒƒ%%AREA-DATA-AREA-HAS-REGIONSD€B€žF€D€C€1+D€B€¥B€W1€D€B€œƒ�$$AREA-FREE€€1€D€B€œƒƒ$$AREA-ALLOCATED-NO-REGIONS€F€1€D€B€œ‚$$AREA-ALLOCATEDF€1€D€B€œƒ�$$AREA-FIXEDF€1€D€B€œ‚$$AREA-IS-EMPTY€€1€D€B€œC‚$$AREA-HAS-REGIONSF€1€D€B€¸ƒAREA-DATA-REGION-THREAD€B€ºD€B€;D€B€¼B€‹D€B€¿D€B€ÄB€¿B€_€1€D€B€JB€MD€B€OD€B€;D€B€‹B€QB€ŒD€B€VD€D€B€XD€B€ZB€bD€B€;D€B€¿B€lD€B€nB€XD€B€qB€nD€B€sB€¿B€uD€B€vD€D€B€wB€hD€B€¿D€B€z€B€nD€B€�D€B€;pÀB€¦¬€DPB€B€wD€B€;B€_B€¿D€B€‹D€B€;B€‹B€nB€˜B€‹1€D€B€¸‚AREA-DATA-STATUSB€ºD€B€;D€B€¼B€®B€ŒD€B€ÄB€¿B€e€1€D€B€JB€MD€B€OD€B€;D€B€®B€QB€ŒD€B€VD€D€B€XD€B€ZB€bD€B€;D€B€¿B€lD€B€nB€XD€B€qB€nD€B€sB€¿B€uD€B€vD€D€B€wB€hD€B€¿D€B€z€B€nD€B€�B€¡B€wD€B€;B€eB€¿D€B€‹D€B€;B€®B€nB€˜B€®1€D€B€¸C�AREA-FREE?B€ºD€B€;D€B€¼B€ÍB€ÀD€B€ÂD€B€ÄB€¿B€e€B€s1€D€B€¸C‚AREA-HAS-REGIONS?€B€ºD€B€;D€B€¼B€ÕB€ÀD€B€ÂD€B€ÄB€¿B€k€B€‡1€D€B€¸‚AREA-REGION-BITSB€ºD€B€;D€B€¼B€ÝB€D€B€Ìp€B€„l‚*AREA-REGION-BITS*B€Î1€D€B€JB€MD€B€OD€B€;D€B€ÝB€QB€#D€B€VD€D€B€XD€B€ZB€bD€B€;D€B€ÎB€lD€B€nB€XD€B€qB€nD€B€sB€ÎB€uD€B€vD€D€B€wB€hD€B€ÎD€B€z€B€nD€B€�B€(D€B€;B€ßB€ÎB€wD€B€‹D€B€;B€ÝB€nB€˜B€Ý1€D€B€œC‚%%AREA-REGION-BITSD€B€žD€B€TD€B€¥pÀ¬�REGION-BITS€ì�%%REGION-BITS€F€€1€D€B€œƒƒ%%AREA-REGION-BITS-THE-BITS€D€B€žD€B€¥B€€1€D€B€œÃƒ%%AREA-REGION-BITS-VOLATILITY€D€B€žF€D€B€¥B€1€D€B€¸‚AREA-VOLATILITY€B€ºD€B€;D€B€¼B€B€ŒD€B€ÄB€¿B€€1€D€B€JB€MD€B€OD€B€;D€B€B€QB€ŒD€B€VD€D€B€XD€B€ZB€bD€B€;D€B€¿B€lD€B€nB€XD€B€qB€nD€B€sB€¿B€uD€B€vD€D€B€wB€hD€B€¿D€B€z€B€nD€B€�B€¡B€wD€B€;B€B€¿D€B€‹D€B€;B€B€nB€˜B€1€D€B€¸‚AREA-REGION-SIZEB€ºD€B€;D€B€¼B€3B€D€B€Ìp€B€„l‚*AREA-REGION-SIZE*B€Î1€D€B€JB€MD€B€OD€B€;D€B€3B€QB€#D€B€VD€D€B€XD€B€ZB€bD€B€;D€B€ÎB€lD€B€nB€XD€B€qB€nD€B€sB€ÎB€uD€B€vD€D€B€wB€hD€B€ÎD€B€z€B€nD€B€�B€(D€B€;B€5B€ÎB€wD€B€‹D€B€;B€3B€nB€˜B€3€€