hưs8p,LAMBDAF2Dp,lFASD-DATADwkfLove)FFDp,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-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;DpBdNAMED-LAMBDABgDplPRIMITIVESlQDp,HARDWARE32=DpBoLDBBmpBo,%%MEMORY-CONTROL-L-C-MAP-SELECTpBo,$$LISP-MAP-BITS1DDEFCONSTANT*NUMBER-OF-MAP-ENTRIES*Dp,VINCULUMFIELD-MAXIMUMpBol%%MAPPED-VMA-BYTE1DBC%%MAP-STATUS-BITSDBYTEFF1DB%%MAP-FRESH-CLUSTERDBFF 1DB$$CLUSTER-NOT-FRESH1DB$$CLUSTER-FRESHF1DBfCMAP-LISP-TRAP-BITSBhDB;DBjBDBmDBsBmpBo%%MAP-LISP-TRAP-BITS1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBÀLAMBDABDLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;DBmDpB,STOREVARDpB+GENSYMDpB,TEMPVARSBDÀVALUESBDpB+LISTBmDBBDLETDDÀVALUEBDBmDpB+NTHBDplSIlXR-BQ-LISTDB;pBoDPBBDB;BBmDpBXR-BQ-LIST*DB;BBDCIFDpB+BOUNDPDB;BBNILB1DBfCMAP-LISP-VALID-BITBhDB;DBjBBDBsBmpBo%%MAP-LISP-VALID-BIT1DBBDBDB;DBBBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;BBmDBDB;BBBB1DBfCMAP-LISP-WRITE-ENABLE-BITBhDB;DBjBBDBsBmpBo%%MAP-LISP-WRITE-ENABLE-BIT1DBBDBDB;DBBBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;BBmDBDB;BBBB1DBfMAP-LOCAL-MEMORY-BITBhDB;DBjB5BDBsBmpBo%%MAP-LOCAL-MEMORY-BIT1DBBDBDB;DB5BBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;B7BmDBDB;B5BBB51DBfBXBhDB;DBjBXBnDBqDBsBmB7pBo$$MAP-LOCAL1DBfBYBhDB;DBjBYBDBsBmpBo%%MAP-ON-BOARD-ADDRESS1DBBDBDB;DBYBBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;B`BmDBDB;BYBBBY1DBfÂMAP-OFF-BOARD-ADDRESSBhDB;DBjBBDBsBmpBo,%%MAP-OFF-BOARD-ADDRESS1DBBDBDB;DBBBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;BBmDBDB;BBBB1DBfBWBhDB;DBjBWBDBsBmpBo,%%MAP-VOLATILITY1DBBDBDB;DBWBBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;BBmDBDB;BWBBBW1DBfMAP-CLUSTER-STATUS-BITSBhDB;DBjBBDBsBmB1DBBDBDB;DBBBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;BBmDBDB;BBBB1DBfÂMAP-CLUSTER-FRESH-BITBhDB;DBjBBDBsBmB1DBBDBDB;DBBBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;BBmDBDB;BBBB1DBfCCLUSTER-IS-FRESH?BhDB;DBjBBnDBqDBsBmBB1DBÂ%%MAP-STATUS-V-WE-BITSDBF1DB%%MAP-STATUS-S-BITSDBFF1DBfÁSTATUS-S-BITSBhDB;DBjBBDBsBmB 1DBBDBDB;DBBBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;B BmDBDB;BBBB1DBfSTATUS-V-WE-BITSBhDB;DBjB1BDBsBmB1DBBDBDB;DB1BBDBDDBDBBDB;DBmBDBBDBBDBBmBDBDDBBDBmDBBDBBBDB;BBmDBDB;B1BBB11DBBD1DBBFF1DBBEF1DBBHF1DBBIF1DBBGF 1DBBJF1DBBKF1DB$$MAP-AGED-TRAP-BITSF1DBfBPBhDB;DBjBPDMAP-BITSDBDBBlB DBBl1DBfBTBhDB;DBjBTDBlÀSTATUSDpBDPB-MULTIPLE-UNBOXEDDBBuBDB1BuBBl1DBfADDRESS-MAPBhDB;D BjBDVIRTUAL-CLUSTERDpBolWRITE-VMA-UNBOXEDDCLUSTER->ADDRESSBDpBoNOPDBDBDBB1DDEFMACROCMODIFY-MAPDBMODIFIERDBDB;BDBDBDB;BBDBDB;BBDB;DDpTRAPWITHOUT-TRAPSDBDBBDBBDBDDOLD-MAP-CONTENTSDHW-READ-MAP-SAFEDCOLD-MAP-CONTENTS1DBDBDNOTDBqBBDpBlTAIL-ILLOPMisread MAPDBDDCNEW-VALUEDFUNCALLBBDpBolWRITE-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-NORMALF1DBfÂPHYSICAL-BLOCK-EXISTS?BhDB;DBjBDÀBLOCKÂPHYSICAL-MEMORY-LAYOUTDpBol32LOGBITPBB