hưs2Dp,lFASD-DATADwkfLoveF|FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGETRAPpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DÀEXPORTDB;D*MAGIC-GARBAGE-LOCATION*TRAP-ONÁWITHOUT-TRAPS1DDEFMACROpLISP-INTERNALSlTAIL-ERRORDCA0C&OPTIONALCA1CA2CA3CA4CA5CA6CA7CA8CA9A10A11A12A13A14A15When a call is made to error in a tail position use this macro instead to save information.DplSIXR-BQ-LIST*DB;ÀPROGNDpB^lXR-BQ-LISTDB;pBHERRORBKBMBNBOBPBQBRBSBTBUBVBWBXBYBZB[DB;DNIL1DBGÀILLOPDILLOP-STRINGDLETDDCODEDpUSERALLOCATE-ILLOP-CODEBpDBdDB;ÁILLOP-FUNCTIONBs1DDEFCONSTANTB@F)1DBGÂSAVING-RETURN-REGISTERDÀTHUNKDB`DB;BrDBdDBdDB;BBDB;DJDp,HARDWARECH-OPEN-CALLp,GLOBAL-REGISTERS*TRAP-TEMP1*DpBCH-TOPEN-CALLDpBlOPEN-FRAMEDSETFDpBlO0pB*RETURN-16*DBDpBlO1pB*RETURN-17*DBDpBlO2pB*RETURN-18*DBDpBlO3pB*RETURN-19*DBDpBlO4pB*RETURN-20*DBDpBlO5pB*RETURN-21*DBDpBlO6pB*RETURN-22*DBDpBlO7pB*RETURN-23*DBDpBlO8pB*RETURN-24*DBDpBlO9pB*RETURN-25*DBDpBO10pB*RETURN-26*DBDpBO11pB*RETURN-27*DBDpBO12pB*RETURN-28*DBDpBO13pB*RETURN-29*DBDpBO14DpBLDBDpBREAD-PROCESSOR-STATUSpB%%PROCESSOR-STATUS-RETURN-CODEDBDpBO15pBl*NUMBER-OF-RETURN-VALUES*DBDBDBpBl*RETURN-0*DBDBpBl*RETURN-1*DBDBpBl*RETURN-2*DBDBpBl*RETURN-3*DBDBpBl*RETURN-4*DBDBpBl*RETURN-5*DBDBpBl*RETURN-6*DBDBpBl*RETURN-7*DBDBpBl*RETURN-8*DBDBpBl*RETURN-9*DBDBpB*RETURN-10*DBDBpB*RETURN-11*DBDBpB*RETURN-12*DBDBpB*RETURN-13*DBDBpB*RETURN-14*DBDBpB*RETURN-15*DFUNCALLBDSETQBDBDBCBDBDBCB DBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCB#DBDBCB'DBDBCB+DBDBCB/DBDBCB3DBDBCB7DBDBCB;DBDBCB?DBDBCBDpBCALLDB;FLUSH-OPEN-FRAMEDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCBDBDBCpB*TRAP-TEMP2*DBeDB;BfDCIFDÀZEROPBDpBCH-RETURN-ONE-VALUEDpBlCH-RETURN-MULTIPLE-VALUESDpBNOPBi1DBGSAVING-TRAP-FRAME-FOR-NONMODIFYING-EXITDBDB`DB;BrDB`DBdDB;BBDB;DDCSAVED-OREGpB*SAVE-OREG*DSAVED-PCpB*SAVE-TRAP-PC*DCSAVED-PC+pB,*SAVE-TRAP-PC+*DSAVED-STATUSpB*SAVE-STATUS*DSAVED-JCONDpB*SAVE-JCOND*DSAVED-QDpB,READ-Q-REGISTERDSAVED-SSTEPDDISABLE-SINGLE-STEP-TRAPDB;DDBABDRESTORE-SINGLE-STEP-TRAPBDpB,LOAD-Q-REGISTERBDBCBBDBCBBDBCBBDBCBBDBCBB1DBGÄSAVING-TRAP-FRAME-FOR-RECURSIVE-TRAPSDBDB`DB;LET*DB`DBdDB;BBDB;D DBBDBBDBBDBBDBBDBDBDBDBDMEMSTATDpBlREAD-MEMORY-STATUSDVMADpB,READ-VMADCMDDBaDWHENDC=pB$$WMD-VALIDDBBpBl%%MEMORY-STATUS-MD-WRITTEN-LATELYDpBlVMA-START-WRITE-NO-GC-TRAP-UNBOXEDB@DpBMEMORY-WAITDpBlMD-START-WRITE-NO-GC-TRAP-UNBOXEDDpB,READ-MDDBADBDB;DDBABBBDBDBDpB,TRAP-OFFDBBDBCBBDBCBBDBCBBDBCBBDBCBBDBBDpB,WRITE-MD-UNBOXEDBDBB@DpVIRTUAL-MEMORY,WRITE-MD-GENERICBDpB,LDB-NOTBpB,%%MEMORY-STATUS-MD-NOT-BOXED-BITDpB lWRITE-VMA-GENERICBDB$BpBl%%MEMORY-STATUS-VMA-NOT-BOXED-BIT1DBGCFLUSH-READ-ERRORSDBDB`DB;BDB`DBdDB;BBDB;DDTRANSP-TYPEDB$DBpB%%MEMORY-STATUS-TRANSPORT-TYPEDMAP-BITSDpB,READ-MAPDBDBDCVMA-BOXEDDB$DBB-DBDBDMD-BOXEDDB$DBB&DB;DDpBlVMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-UNBOXEDB@DBDBDBABBBIBBPBBB;1DBGCFLUSH-WRITE-ERRORSDBDB`DB;BDB`DBdDB;BBDB;DDGC-TRAPDB$DBpB%%MEMORY-STATUS-GC-TRAP-ENABLEDBBDBDDBDBDBIDB$DBB-DBDBDBPDB$DBB&DB;DDpB,WRITE-MDDpB,UNBOXED-CONSTANTpB ,UNBOXEDDBB@DBDBDBABBBIBBPBBBh1DBGÁFLUSH-GC-TRAPDBDB`DB;BaDBdDB;BABDB;DDBDBDB$DBB-pB,$$BOXEDDpBVMA-START-WRITE-BOXEDDBDpB,VMA-START-WRITE-UNBOXEDDB1DBGÁDISABLE-TRAPSDBDB`DB;BrDBdDB;DÁOLD-TRAP-STATEDBDBdDB;BBDB;DDFLETDDÁRESTORE-TRAPSBiDpBWRITE-MEMORY-CONTROLDpBDPBBpB%%MEMORY-CONTROL-MASTER-TRAP-ENABLEDpBREAD-MEMORY-CONTROLDBDBBiDBABDFUNCTIONB1DBGBBDBDB`DB;BrDBdDBdDB;BBDB;DDBDBDÀLAMBDADRE-ENABLE-TRAPSDÀPROG1DBABDBAB