hưs8p,LAMBDAF2Dp,lFASD-DATADwkfMaurice Ravel4zFF Dp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEREGION-BITSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;D C$$SCAVENGE-ENABLED$$SCAVENGE-DISABLED$$REGION-COPY-SPACEÂ$$REGION-EXTERNAL-BUSÁ$$REGION-FIXEDC$$REGION-FLIPPABLE$$REGION-INTERNAL-MEMORYC$$REGION-NEW-SPACEC$$REGION-READ-ONLY$$REGION-READ-WRITE$$REGION-SPACE-CODE$$REGION-SPACE-CONS$$REGION-SPACE-FREEÂ$$REGION-SPACE-INVALID$$REGION-SPACE-STRUCTUREÂ$$REGION-SPACE-UNBOXEDCLUSTER-REGION-BITSCENCODE-REGION-BITSFREE-REGIONINITIALIZE-FRESH-CLUSTERMAKE-REGIONREAD-REGION-BITSCREGION-COPY-SPACEREGION-EXTERNAL-BUSREGION-EXTERNAL-BUS?REGION-FLIPPABLEREGION-READ-ONLYCREGION-READ-ONLY?ÂREGION-SCAVENGE-ENABLEREGION-SCAVENGE-ENABLE?CREGION-SPACE-TYPEÂREGION-SWAPIN-QUANTUM1DDEFCONSTANTÁ%%REGION-BITSDBYTEF 1DBd%%REGION-BITS-SWAPIN-QUANTUMDBfF1DBdC%%REGION-BITS-SCAVENGE-BITDBfFF1DBd%%REGION-BITS-READ-ONLYDBfFF1DBd%%REGION-BITS-SPACE-TYPEDBfFF1DBd%%REGION-BITS-NEW-SPACEDBfFF 1DBd%%REGION-BITS-FLIPPABLEDBfFF 1DBdC%%REGION-BITS-EXTERNAL-BUSDBfFF 1DBdBF1DBdBCF1DplNC,DEF-DECLARATIONBWÀSUBSTDB;DpBNAMED-LAMBDABWDplPRIMITIVESlQDp,HARDWARELDBBB1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBWÀLAMBDABDLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBDBBDLETDDÀVALUEBDBDpB+NTHBDplSIlXR-BQ-LISTDB;pBDPBBDB;BBDpBXR-BQ-LIST*DB;BWBDCIFDpB+BOUNDPDB;BBNILBW1DBBXBDB;DBBXDBDpB32=DBBBBC1DBB_BDB;DBB_BDBBBl1DBBDBDB;DB_BBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;BlBDBDB;B_BBB_1DBdBA1DBdB@F1DBB\BDB;DBB\BDBBBr1DBBDBDB;DB\BBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;BrBDBDB;B\BBB\1DBB]BDB;DBB]BDBDBBBrB@1DBdBI1DBdBHF1DBBZBDB;DBBZBDBBBx1DBBDBDB;DBZBBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;BxBDBDB;BZBBBZ1DBB[BDB;DBB[BDBDBBBxBH1DBB^BDB;DBB^BDBBB~1DBBDBDB;DB^BBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;B~BDBDB;B^BBB^1DBdBL1DBdBMF1DBdBOF1DBdBKF1DBdBNF1DBdBJF1DBdBB1DBdBGF1DBBVBDB;DBBVBDBBB1DBBDBDB;DBVBBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;BBDBDB;BVBBBV1DBCREGION-COPY-SPACE?BDB;DBBBDBDBBBBB1DBdBD1DBdBEF1DBBYBDB;DBBYBDBBB1DBBDBDB;DBYBBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;BBDBDB;BYBBBY1DBCREGION-FLIPPABLE?BDB;DBBBDBDBBBBE1DBBUBDB;DBBUDÀREGIONDSYSTEM-TABLE-REFp,GLOBAL-REGISTERS*REGION-BITS*B1DBCWRITE-REGION-BITSBDB;DBB DBBDCSYSTEM-TABLE-STOREBBB1DBÁREGION-VALID?BDB;DBBDBDNOTDC=DB^DBUBBM1DBREGION-FREE?BDB;DBBDBDBDB^DBUBBL1DBBQBDB;DBBQDCFLIPPABLECNEW-SPACECSPACE-TYPECREAD-ONLYSCAVENGE-ENABLEEXTERNAL-BUSÁSWAPIN-QUANTUMDp,VINCULUMlDPB-MULTIPLE-BOXEDB(BB)BB*B~B+BxB,BrB-BB.Bl