hưs8p,LAMBDAF2Dp,lFASD-DATADlrgMaurice Ravel)F~FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEPHYSICAL-CLUSTER-DATApB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DB:DB;ÂPHYSICAL-CLUSTER-DATA1DÀEXPORTDB;D%%PCD-WRITE-BITSÂ$$CLUSTER-NO-READ-MARÂ$$CLUSTER-NO-WRITE-MAR$$CLUSTER-READ-ONLY$$CLUSTER-READ-WRITE$$STATUS-NORMALÁ$$WRITE-CLEANC$$WRITE-CLEAN-MAR$$WRITE-CLEAN-READ-ONLY$$WRITE-CLEAN-READ-ONLY-MARÁ$$WRITE-NORMAL$$WRITE-MARC$$WRITE-READ-ONLYÂ$$WRITE-READ-ONLY-MARCALLOCATE-PHYSICAL-CLUSTERCASSOCIATE-CLUSTERÃASSURE-FREE-PHYSICAL-CLUSTERSCCREATE-PHYSICAL-CLUSTER-DATA-TABLEÂFREE-PHYSICAL-CLUSTERÃFREE-UNUSED-PHYSICAL-CLUSTERSINITIALIZE-PHYSICAL-CLUSTER-DATAMARK-MODIFIED-IN-PCDREAD-PCD1DDEFCONSTANTC%%PCD-READ-MAR-BITDBYTEFF1DB_BDDBaFF1DB_%%PCD-WRITE-MAR-BITDBaFF1DB_%%PCD-READ-ONLY-BITDBaFF 1DB_%%PCD-CLEAN-BITDBaFF 1DB_%%PCD-VIRTUAL-CLUSTER-NUMBERDBaDCBYTE-SIZEp,VINCULUM,%%CLUSTER-NUMBERF 1DB_%%PCD-STATUSDBaFF1DplNC,DEF-DECLARATIONCPCD-STATUSÀSUBSTDB;DpBNAMED-LAMBDABDplPRIMITIVESlQDp,HARDWARELDBBB1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBÀLAMBDABDLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBDBBDLETDDÀVALUEBDBDpB+NTHBDplSIlXR-BQ-LISTDB;pBDPBBDB;BBDpBXR-BQ-LIST*DB;BBDCIFDpB+BOUNDPDB;BBNILB1DBCPCD-VIRTUAL-CLUSTER-NUMBERBDB;DBBBDBBB~1DBBDBDB;DBBBDBDDBDBBDB;DBBDBBDBBDBBBDBDDBBDBDBBDBBBDB;B~BDBDB;BBBB1DB_$$STATUS-INVALID1DB_Á$$STATUS-WIREDF1DB_BIF1DB_Á$$STATUS-AGE-1F1DB_Á$$STATUS-AGE-2F1DB_Á$$STATUS-AGE-3F1DB_C$$STATUS-FLUSHABLEF1DB_C$$STATUS-PRE-PAGEDF1DB_BN1DB_BOF1DB_BPF1DB_BQF1DB_BJF1DB_BKF1DB_BLF1DB_BMF1DB_C$$UNCLEAN-CLUSTER1DB_$$CLEAN-CLUSTERF1DB_BE1DB_C$$CLUSTER-READ-MARF1DB_BF1DB_$$CLUSTER-WRITE-MARF1DB_BH1DB_BGF1DBÁCLEAN-CLUSTER?BDB;DBB_DBDpB32=DBBBxBG1DBBZBDB;DBBZDÀINDEXDSYSTEM-TABLE-REFp,GLOBAL-REGISTERS*PHYSICAL-CLUSTER-DATA-TABLE*Bj1DBCWRITE-PCDBDB;DBBuDBjCNEW-VALUEDCSYSTEM-TABLE-STOREBoBjBv1DDEFMACROCMODIFY-PCDDBjÀTHUNKDBDB;BDBDBDB;BBDBDB;BjBjDB;DDBuBjDFUNCALLBDBZBj1DB_C%%INIT-MAP-STATUSDBaF1DB_%%INIT-MAP-READ-ONLYDBaF1DB_%%INIT-MAP-WIREDDBaFF1DBINIT-READ-ONLY?BDB;DBBB`DBbDBBBF1DBINIT-WIRED?BDB;DBBB`DBbDBBBF1DB_C$$INIT-MAP-NORMAL1DB_$$INIT-MAP-READ-ONLYF1DB_$$INIT-MAP-WIREDF1DB_C$$INIT-MAP-WIRED-READ-ONLYF1DB_$$INIT-MAP-PHYSICAL-CLUSTER1DB_C$$INIT-MAP-VIRTUAL-CLUSTERF1DB_C$$INIT-MAP-INITIAL-STATUSF1DB_$$INIT-MAP-CLUSTER-COUNTF1DB_C*CLUSTERS-IN-PCD*DCEILINGpB*PHYSICAL-MEMORY-MAX-CLUSTERS*pB,*QS-IN-CLUSTER*