hưs2Dp,lFASD-DATADwkfDeathuF}FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGEMAPpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DB:DB;MAP1DÀEXPORTDB;DÂ$$MAP-STATUS-READ-MARÂ$$MAP-STATUS-READ-ONLYC$$MAP-STATUS-READ-MAR-AGEDC$$MAP-STATUS-DIRECT-MAPPED$$MAP-STATUS-READ-ONLY-AGED$$MAP-STATUS-SWAPPED-OUT$$MAP-STATUS-NORMAL-AGED$$MAP-STATUS-NORMALÂASSOCIATE-LOCAL-MEMORYÂASSOCIATE-NUBUS-MEMORYCDIRECT-MAPDUMP-MAPCEXTRACT-MAP-STATUSFLUSH-DIRECT-MAPFREE-VIRTUAL-CLUSTERÁFRESH-CLUSTER?CINJECT-MAP-STATUSÂILLOP-IF-NOT-LISP-MAPLISP-MAPLOAD-MAPÂMAP-CLUSTER-VOLATILITYCMAP-LOCAL-MEMORY?MAP-ON-BOARD-ADDRESSREAD-CLUSTER-VOLATILITYREAD-MAPREAD-MAP-STATUSWRITE-CLUSTER-VOLATILITYCWRITE-MAPWRITE-MAP-STATUS1DplNC,DEF-DECLARATIONÁMAP-LISP-MODE?ÀSUBSTDB;DpBeNAMED-LAMBDABhDplPRIMITIVESlQDp,HARDWARE32=DpBpLDBBnpBp,%%MEMORY-CONTROL-L-C-MAP-SELECTpBp,$$LISP-MAP-BITS1DDEFCONSTANT*NUMBER-OF-MAP-ENTRIES*Dp,VINCULUMFIELD-MAXIMUMpBpl%%MAPPED-VMA-BYTE1DBC%%MAP-STATUS-BITSDBYTEFF1DB%%MAP-FRESH-CLUSTERDBFF 1DB$$CLUSTER-NOT-FRESH1DB$$CLUSTER-FRESHF1DBgCMAP-LISP-TRAP-BITSBiDB;DBkBDBnDBtBnpBp%%MAP-LISP-TRAP-BITS1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBÀLAMBDABDLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBnDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBnDBBDLETDDÀVALUEBDBnDpB+NTHBDplSIlXR-BQ-LISTDB;pBpDPBBDB;BBnDpBXR-BQ-LIST*DB;BBDCIFDpB+BOUNDPDB;BBNILB1DBgCMAP-LISP-VALID-BITBiDB;DBkBBDBtBnpBp%%MAP-LISP-VALID-BIT1DBBDBDB;DBBBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;BBnDBDB;BBBB1DBgCMAP-LISP-WRITE-ENABLE-BITBiDB;DBkBBDBtBnpBp%%MAP-LISP-WRITE-ENABLE-BIT1DBBDBDB;DBBBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;BBnDBDB;BBBB1DBgMAP-LOCAL-MEMORY-BITBiDB;DBkB6BDBtBnpBp%%MAP-LOCAL-MEMORY-BIT1DBBDBDB;DB6BBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;B8BnDBDB;B6BBB61DBgBYBiDB;DBkBYBoDBrDBtBnB8pBp$$MAP-LOCAL1DBgBZBiDB;DBkBZBDBtBnpBp%%MAP-ON-BOARD-ADDRESS1DBBDBDB;DBZBBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;BaBnDBDB;BZBBBZ1DBgÂMAP-OFF-BOARD-ADDRESSBiDB;DBkBBDBtBnpBp,%%MAP-OFF-BOARD-ADDRESS1DBBDBDB;DBBBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;BBnDBDB;BBBB1DBgBXBiDB;DBkBXBDBtBnpBp,%%MAP-VOLATILITY1DBBDBDB;DBXBBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;BBnDBDB;BXBBBX1DBgMAP-CLUSTER-STATUS-BITSBiDB;DBkBBDBtBnB1DBBDBDB;DBBBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;BBnDBDB;BBBB1DBgÂMAP-CLUSTER-FRESH-BITBiDB;DBkBBDBtBnB1DBBDBDB;DBBBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;BBnDBDB;BBBB1DBgCCLUSTER-IS-FRESH?BiDB;DBkBBoDBrDBtBnBB1DBÂ%%MAP-STATUS-V-WE-BITSDBF1DB%%MAP-STATUS-S-BITSDBFF1DBgÁSTATUS-S-BITSBiDB;DBkBBDBtBnB 1DBBDBDB;DBBBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;B BnDBDB;BBBB1DBgSTATUS-V-WE-BITSBiDB;DBkB2BDBtBnB1DBBDBDB;DB2BBDBDDBDBBDB;DBnBDBBDBBDBBnBDBDDBBDBnDBBDBBBDB;BBnDBDB;B2BBB21DBBD1DBBFF1DBBEF1DBBHF1DBBIF1DBBGF 1DBBJF1DBBKF1DB$$MAP-AGED-TRAP-BITSF1DBgBPBiDB;DBkBPDMAP-BITSDBDBBmB DBBm1DBgBTBiDB;DBkBTDBmÀSTATUSDpBDPB-MULTIPLE-UNBOXEDDBBvBDB2BvBBm1DBgADDRESS-MAPBiDB;DBkBDVIRTUAL-CLUSTERDpBplWRITE-VMA-UNBOXEDDCLUSTER->ADDRESSBDpBpNOPDBDBB1DDEFMACROCMODIFY-MAPDBMODIFIERDBDB;BDBDBDB;BBDBDB;BBDB;DDpTRAPWITHOUT-TRAPSDBDBBDBBDBDDCNEW-VALUEDFUNCALLBDpBp,READ-MAPDpBplWRITE-MAPBDBDBB1DB%%MAP-READ-STATUS-WE-BITDBF1DB%%MAP-READ-STATUS-S-BITSDBFF1DB$$MAP-READ-STATUS-READ-MAR-11DBC$$MAP-READ-STATUS-AGED-TO-READ-MARF1DB$$MAP-READ-STATUS-READ-MAR-2F1DBC$$MAP-READ-STATUS-AGED-TO-READABLEF1DB$$MAP-READ-STATUS-SWAPPED-OUT-1F1DB$$MAP-READ-STATUS-UNUSEDF1DB$$MAP-READ-STATUS-SWAPPED-OUT-2F1DB$$MAP-READ-STATUS-AGED-TO-NORMALF1DBgÂPHYSICAL-BLOCK-EXISTS?BiDB;DBkBDÀBLOCKÂPHYSICAL-MEMORY-LAYOUTDpBpl32LOGBITPBB