hưs8p,LAMBDAF2Dp,lFASD-DATADwkfJack FlandersF~FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGECONSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;D0ALLOCATE-CODE-SPACECALLOCATE-STRUCTURECALLOCATE-STRUCTURE-IN-AREAÀCAAAARÀCAAADRÀCAAARÀCAADARÀCAADDRÀCAADRCAARÀCADAARÀCADADRÀCADARÀCADDARÀCADDDRÀCADDRCADRCARÀCDAAARÀCDAADRÀCDAARÀCDADARÀCDADDRÀCDADRCDARÀCDDAARÀCDDADRÀCDDARÀCDDDARÀCDDDDRÀCDDDRCDDRCDRCONSCONS-IN-AREACONTENTSCONTENTS-OFFSETENDPMAKE-HEADERMAKE-POINTERÀRPLACAÀRPLACDSET-CARSET-CDRÂSET-DEFAULT-CONS-AREASET-DEFAULT-STRUCTURE-CONS-AREAÁSTORE-CONTENTSÂSTORE-CONTENTS-OFFSET1DDEFMACROBgDCDATA-TYPEPOINTERDplSIlXR-BQ-LISTDB;p,HARDWARElDPB-BOXEDBuDB;p,VINCULUM%%DATA-TYPEBv1DBtBfDHEADER-TYPEHEADER-DATADBzDB;B}BDB;BB1DBtBcDBvDpBxXR-BQ-LIST*DB;ÀPROGNDBzDB;pB{lVMA-START-READ-VMA-BOXED-MD-BOXEDBvDB;DDpB{,READ-MD1DBtBdDBvÀOFFSETDBDB;BDBzDB;pB{VMA-START-READ-VMA-UNBOXED-MD-BOXEDDBzDB;pB{24+BBvDB;DDB1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBQÀLAMBDADÀ&RESTARGS347DLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;NILDpBREST-TEMPVARSDBBBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSDÀAPPENDBBDÀVALUESBDBDpB+LISTDpB+lCOPY-LISTBDBBDLETDDVALUE348BDBBDBDB;BjDpBxXR-BQ-APPENDBDBzBDBDB;BQBDCIFDpB+BOUNDPDB;BBBBQ1DBBDBDB;DB`BDBARGS349DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE350BDBBDBDB;BkDBBDBzB DBDB;B`BBB`1DDEFCONSTANT%%STRUCTURE-HANDLE-FIRST-HEADERDBYTEF 1DB%%STRUCTURE-HANDLE-BOXED-QSDBF F 1DBÂ*NO-FIRST-HEADER-CODE*F1DplNC,DEF-DECLARATIONWRITE-STRUCTURE-HANDLESÀSUBSTDB;DpB/NAMED-LAMBDAB2DCLUSTERFIRST-HEADERCLEFT-OVER-BOXED-QSDpB{WRITE-MD-BOXEDDpB{DPBB8B%B7DpB{VMA-START-WRITE-BOXEDDBp,GLOBAL-REGISTERS*STRUCTURE-HANDLES*B61DB1ÂREAD-STRUCTURE-HANDLESB3DB;DB5BKDB6ÀTHUNKDpB{VMA-START-READDBBDB6DBDDÀSTUFFDBDFUNCALLBLDpB{LDBBRBDBXBRB%1DB1MODIFY-STRUCTURE-HANDLESB3DB;DB5BcDB6BLDBKB6DBDBDB7BOXED-QSDBVBLB7BeDBDBDNEW-FIRST-HEADERNEW-BOXED-QSDpB{MD-START-WRITE-BOXEDDB=BhB%Bg1DB1ÃSTRUCTURE-HANDLE-FIRST-HEADERB3DB;DB5BxDB6DBKB6DBDBDB7BeBeB71DB1CSTRUCTURE-HANDLE-BOXED-QSB3DB;DB5BDB6DBKB6DBDBDB7BeB7Be1DB1WRITE-STRUCTURE-HANDLE-BOXED-QSB3DB;DB5BDB6CNEW-VALUEDBcB6DBDBDB7BeÀWRITERB7DBVBBBe1DB1WRITE-STRUCTURE-HANDLE-FIRST-HEADERB3DB;DB5BDB6BDBcB6DBDBDB7BeBBeDBVBB7B1DBBDBDB;DBxBDBARGS351DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE352BDBBDBDB;BDBBDBzBDBDB;BxBBBx1DBBDBDB;DBBDBARGS353DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE354BDBBDBDB;BDBBDBzBDBDB;BBBB1DBC*STRUCTURE-HANDLES-QUANTA*DCEILINGpB*NUMBER-OF-VIRTUAL-CLUSTERS*pB,*QS-IN-QUANTUM*1DBCODE-HEADER-INSTRUCTION-HIGHDpB{,UNBOXED-CONSTANT