hưs8p,LAMBDAF2Dp,lFASD-DATADJIMMaurice Ravel,jF~FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGElAREA-DATApB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;DCGET-ACTIVE-REGIONINITIALIZE-AREA-DATACMAKE-AREAMAKE-AREA-FIXEDMAKE-REGION-IN-AREARESET-TEMPORARY-AREA1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DCREGION-LIST-THREADÀLAMBDADpREGION-DATAREGIONDLET*DDpBK,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBQDÀIGNOREDpB+,GENTEMPDB;DBTDpBK,STOREVARDpB+GENSYMDpBK,TEMPVARSBXDÀVALUESBnDpB+LISTBTDBsBhDLETDDÀVALUEBhDBTDpB+NTHBnDplSIlXR-BQ-LISTDB;CREGION-TABLE-STOREDB;p,GLOBAL-REGISTERS*REGION-LIST-THREAD*BTBwDpBXR-BQ-LIST*DB;BPBnDCIFDpB+BOUNDPDB;BMBMNILBP1DDEFCONSTANTÃ%%REGION-LIST-THREAD-END-FLAGDBYTEFF1DB%%REGION-LIST-THREAD-NEXT-REGIONDBDCBYTE-SIZEp,HARDWARE,%%GC-RAM-MD-BYTE1DBC$$THREAD-CONTINUES1DBÁ$$THREAD-ENDSF1DplNC,DEF-DECLARATIONCTHREAD-CONTINUES?ÀSUBSTDB;DpBNAMED-LAMBDABDplPRIMITIVESlQDpB32=DpBLDBBBB1DBÁAREA-TABLE-REFBDB;DBBDÀTABLEAREADpBlVMA-START-READ-VMA-BOXED-MD-BOXEDDpB24+BBDpB,READ-MD1DBAREA-TABLE-STOREBDB;DBBDBBCNEW-VALUEDpB,WRITE-VMA-BOXEDDBBBDpBMD-START-WRITE-BOXEDBB1DBJBMDBODB;DBBQDÀ&RESTARGS2384DBVDDBXDBZBbDB;BDpBKREST-TEMPVARSDBZBbBBlDBnDÀAPPENDBXBDBqBnDBDBsDpB+lCOPY-LISTBBuDBvDDCVALUE2385BhDBBDBDB;BDpBXR-BQ-APPENDBDBBDBDB;BBnBB1DDEFMACROCDEF-AREA-ACCESSORDNAMEBDBDB;ÀPROGNDBDB;DEFSUBSTBDB;DBDBDB;BBDB;DBDBDB;DEFSETFBDB;DBDB;DBwDBDB;BDB;DB;BDBDB;B;BDB;DBBw1DBAREA-REGION-DATABDB;DBB3BDBpBl*AREA-REGION-DATA*B1DBJBMDBODB;DB3BQB#DBVDDBXDBZBbDB;DBBlDBnBXDBqBnDBsBBuDBvDDBwBhDBDBzBnDBB(DB;B5BBwDBDB;B3BnBB31DB%%AREA-DATADBDC+DBpQUANTUM-MAP%%QUANTUM-MAP-REGION-ORIGINF1DBC%%AREA-DATA-REGION-THREADDBDBBW1DB%%AREA-DATA-AREA-STATUSDBFDBBW1DB%%AREA-DATA-AREA-HAS-REGIONSDBFDC1+DBBW1DB$$AREA-FREE1DB$$AREA-ALLOCATED-NO-REGIONSF1DB$$AREA-ALLOCATEDF1DB$$AREA-FIXEDF1DB$$AREA-IS-EMPTY1DBC$$AREA-HAS-REGIONSF1DBAREA-DATA-REGION-THREADBDB;DBBDBDBBB_1DBJBMDBODB;DBBQBDBVDDBXDBZBbDB;DBBlDBnBXDBqBnDBsBBuDBvDDBwBhDBDBzBnDBDB;pBDPBBwDB;B_BDBDB;BBnBB1DBAREA-DATA-STATUSBDB;DBBBDBBBe1DBJBMDBODB;DBBQBDBVDDBXDBZBbDB;DBBlDBnBXDBqBnDBsBBuDBvDDBwBhDBDBzBnDBBBwDB;BeBDBDB;BBnBB1DBCAREA-FREE?BDB;DBBBDBDBBBeBs1DBCAREA-HAS-REGIONS?BDB;DBBBDBDBBBkB1DBAREA-REGION-BITSBDB;DBBBDBpBl*AREA-REGION-BITS*B1DBJBMDBODB;DBBQB#DBVDDBXDBZBbDB;DBBlDBnBXDBqBnDBsBBuDBvDDBwBhDBDBzBnDBB(DB;BBBwDBDB;BBnBB1DBC%%AREA-REGION-BITSDBDBTDBpREGION-BITS%%REGION-BITSF1DB%%AREA-REGION-BITS-THE-BITSDBDBB1DBÃ%%AREA-REGION-BITS-VOLATILITYDBFDBB1DBAREA-VOLATILITYBDB;DBBBDBBB1DBJBMDBODB;DBBQBDBVDDBXDBZBbDB;DBBlDBnBXDBqBnDBsBBuDBvDDBwBhDBDBzBnDBBBwDB;BBDBDB;BBnBB1DBAREA-REGION-SIZEBDB;DBB3BDBpBl*AREA-REGION-SIZE*B1DBJBMDBODB;DB3BQB#DBVDDBXDBZBbDB;DBBlDBnBXDBqBnDBsBBuDBvDDBwBhDBDBzBnDBB(DB;B5BBwDBDB;B3BnBB3