hưs2Dp,lFASD-DATADWKFOrson Welles0F{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;DDB1DBtCDEF-C...RDpB+NUMBERDLETDDpUSERFORMSDB;NILDDOTIMESDpBlIBDpB+PUSHDpBlMAKE-C.N.RDC1+BBDBDB;BDpB+,NREVERSEB1DSETQpSETF,*GRODY-SETF-MACRO-TABLE*DpB+CONSDB;DBQÀLAMBDADÀ&RESTARGS513DLET*DDpB,SINGLE-TEMPVARSDpB+MAPCARDFUNCTIONDBDÀIGNOREDpB+,GENTEMPDB;BDpBREST-TEMPVARSDBBBDpB,STOREVARDpB+GENSYMDpB,TEMPVARSDÀAPPENDBBDÀVALUESBDBDpB+LISTDpB+lCOPY-LISTBDBBDBDDVALUE514BDBBDBDB;BjDpBxXR-BQ-APPENDBDBzBDBDB;BQBDCIFDpB+BOUNDPDB;BBBBQ1DBBDBDB;DB`BDBARGS515DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE516BDBBDBDB;BkDB BDBzB*DBDB;B`BBB`1DDEFCONSTANT%%STRUCTURE-HANDLE-FIRST-HEADERDBYTEF 1DB<%%STRUCTURE-HANDLE-BOXED-QSDB>F F 1DB<Â*NO-FIRST-HEADER-CODE*F1DplNC,DEF-DECLARATIONWRITE-STRUCTURE-HANDLESÀSUBSTDB;DpBNNAMED-LAMBDABQDCLUSTERFIRST-HEADERCLEFT-OVER-BOXED-QSDpB{WRITE-MD-BOXEDDpB{DPBBWBDBVDpB{VMA-START-WRITE-BOXEDDBp,GLOBAL-REGISTERS*STRUCTURE-HANDLES*BU1DBPÂREAD-STRUCTURE-HANDLESBRDB;DBTBjDBUÀTHUNKDpB{VMA-START-READDBBcBUDBDDÀSTUFFDBDFUNCALLBkDpB{LDBBqB=DBwBqBD1DBPMODIFY-STRUCTURE-HANDLESBRDB;DBTBDBUBkDBjBUDBDBDBVBOXED-QSDBuBkBVBDBDBDNEW-FIRST-HEADERNEW-BOXED-QSDpB{MD-START-WRITE-BOXEDDB\BBDB1DBPÃSTRUCTURE-HANDLE-FIRST-HEADERBRDB;DBTBDBUDBjBUDBDBDBVBBBV1DBPCSTRUCTURE-HANDLE-BOXED-QSBRDB;DBTBDBUDBjBUDBDBDBVBBVB1DBPWRITE-STRUCTURE-HANDLE-BOXED-QSBRDB;DBTBDBUCNEW-VALUEDBBUDBDBDBVBÀWRITERBVDBuBBB1DBPWRITE-STRUCTURE-HANDLE-FIRST-HEADERBRDB;DBTBDBUBDBBUDBDBDBVBBBDBuBBVB1DBBDBDB;DBBDBARGS517DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE518BDBBDBDB;BDB BDBzBDBDB;BBBB1DBBDBDB;DBBDBARGS519DBDDBDBBDB;BDBDBBBBDBBDBBDBDBDBBBDBDDVALUE520BDBBDBDB;BDB BDBzBDBDB;BBBB1DB<C*STRUCTURE-HANDLES-QUANTA*DCEILINGpB*NUMBER-OF-VIRTUAL-CLUSTERS*pB,*QS-IN-QUANTUM*1DB<CODE-HEADER-INSTRUCTION-HIGHDpB{,UNBOXED-CONSTANT