hưs8p,LAMBDAF2Dp,lFASD-DATADwkfMaurice Ravel4LFF Dp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEREGION-DATApB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;D MAKE-REGIONDEF-REGION-ACCESSORFREE-REGIONÂINITIALIZE-REGION-DATAREGION-ALLOCATION-STATUSCREGION-ENDREGION-FREE-POINTERCREGION-GC-POINTERÁREGION-ORIGINCUNSAFE-REGION-FREE-POINTER1DDEFMACROBADNAMEÀTABLEDplSIlXR-BQ-LISTDB;ÀPROGNDBTDB;ÀDEFUNBODB;DÀREGIONDpBRXR-BQ-LIST*DB;REGION-TABLE-REFBPDB;DBYDBTDB;DEFSETFBODB;DBYDB;DÀVALUEDB]DB;BTDB;DB;CREGION-TABLE-STOREDBTDB;B;BPDB;DBYBh1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBIÀLAMBDABfDLET*DDpBy,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDB~DÀIGNOREDpB+,GENTEMPDB;DBYDpBy,STOREVARDpB+GENSYMDpBy,TEMPVARSBDÀVALUESBDpB+LISTBYDBBDLETDDBhBDBYDpB+NTHBDBTBmDB;p,GLOBAL-REGISTERS*REGION-FREE-POINTER*BYBhDB]DB;BIBDCIFDpB+BOUNDPDB;B{B{NILBI1DBxB{DB}DB;DBEB~BfDBDDBDBBDB;DBYBDBBDBBDBBYBDBDDBhBDBYDBBDBTBmDB;pB*REGION-END*BYBhDB]DB;BEBBBE1DBxB{DB}DB;DBGB~BfDBDDBDBBDB;DBYBDBBDBBDBBYBDBDDBhBDBYDBBDBTBmDB;pB*REGION-GC-POINTER*BYBhDB]DB;BGBBBG1DBxB{DB}DB;DBFB~DÀ&RESTARGS679DBDDBDBBDB;BDpByREST-TEMPVARSDBBBBDBDÀAPPENDBBDBBDBDBDpB+lCOPY-LISTBBDBDDVALUE680BDBBDB]DB;SET-REGION-FREE-POINTERDpBRXR-BQ-APPENDBDBTBDB]DB;BFBBBF