hưs8€p€,€ì€LAMBDAF€€2€D€p€,€l�FASD-DATA€D€¬€jim€¬€Love†€³¦û@F€~F€4D€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€ ¬€SITEl‚Gigamos Cambridge€p€B€ ,�PACKAGE€¬€TRAPp€B€ l�READTABLE€¬‚standard Common-Lisp1€D€C�IN-PACKAGED€ÀQUOTE€B€51€D€ÀEXPORTD€B€;D€ƒ*MAGIC-GARBAGE-LOCATION*�TRAP-ON€Ã�WITHOUT-TRAPS€C‚WITHOUT-INTERRUPTS1€D€�DEFMACROpÀì�LISP-INTERNALSl�TAIL-ERRORD€C€A0C�&OPTIONAL€C€A1C€A2C€A3C€A4C€A5C€A6C€A7C€A8C€A9ƒ€A10€ƒ€A11€ƒ€A12€ƒ€A13€ƒ€A14€ƒ€A15€¬‹When a call is made to error in a tail position use this macro instead to save information.€D€pÀl€SI¬�XR-BQ-LIST*€D€B€;ÀPROGN€D€pÀB€_l�XR-BQ-LISTD€B€;pÀB€Iì€ERROR€B€LB€NB€OB€PB€QB€RB€SB€TB€UB€VB€WB€XB€YB€ZB€[B€\D€B€;D€ƒ€NIL€1€D€B€HÀILLOP€D€ƒ�ILLOP-STRINGD€ƒ€LET€D€D€ƒ€CODED€pÀ¬€USER¬‚ALLOCATE-ILLOP-CODE€B€qD€B€eD€B€;Ã�ILLOP-FUNCTIONB€t1€D€ƒ�DEFCONSTANT€B€@F€)1€D€B€HÂSAVING-RETURN-REGISTERD€ÀTHUNK€D€B€aD€B€;B€sD€B€eD€B€eD€B€;B€†B€†D€B€;D€JD€pÀ,�HARDWARE¬�CH-OPEN-CALLp€,‚GLOBAL-REGISTERS¬�*TRAP-TEMP1*D€pÀB€Œì�CH-TOPEN-CALL€D€pÀB€Œl�OPEN-FRAMED€ƒ€SETFD€pÀB€Œl€O0p€B€�¬�*RETURN-16*€D€B€™D€pÀB€Œl€O1p€B€�¬�*RETURN-17*€D€B€™D€pÀB€Œl€O2p€B€�¬�*RETURN-18*€D€B€™D€pÀB€Œl€O3p€B€�¬�*RETURN-19*€D€B€™D€pÀB€Œl€O4p€B€�¬�*RETURN-20*€D€B€™D€pÀB€Œl€O5p€B€�¬�*RETURN-21*€D€B€™D€pÀB€Œl€O6p€B€�¬�*RETURN-22*€D€B€™D€pÀB€Œl€O7p€B€�¬�*RETURN-23*€D€B€™D€pÀB€Œl€O8p€B€�¬�*RETURN-24*€D€B€™D€pÀB€Œl€O9p€B€�¬�*RETURN-25*€D€B€™D€pÀB€Œ¬€O10€p€B€�¬�*RETURN-26*€D€B€™D€pÀB€Œ¬€O11€p€B€�¬�*RETURN-27*€D€B€™D€pÀB€Œ¬€O12€p€B€�¬�*RETURN-28*€D€B€™D€pÀB€Œ¬€O13€p€B€�¬�*RETURN-29*€D€B€™D€pÀB€Œ¬€O14€D€pÀB€Œ¬€LDB€D€pÀB€Œì‚READ-PROCESSOR-STATUS€pÀB€Œìƒ%%PROCESSOR-STATUS-RETURN-CODE€D€B€™D€pÀB€Œ¬€O15€p€B€�lƒ*NUMBER-OF-RETURN-VALUES*€D€B€—D€B€™D€B€›p€B€�l�*RETURN-0*D€B€™D€B€¡p€B€�l�*RETURN-1*D€B€™D€B€§p€B€�l�*RETURN-2*D€B€™D€B€­p€B€�l�*RETURN-3*D€B€™D€B€³p€B€�l�*RETURN-4*D€B€™D€B€¹p€B€�l�*RETURN-5*D€B€™D€B€¿p€B€�l�*RETURN-6*D€B€™D€B€Åp€B€�l�*RETURN-7*D€B€™D€B€Ëp€B€�l�*RETURN-8*D€B€™D€B€Ñp€B€�l�*RETURN-9*D€B€™D€B€×p€B€�¬�*RETURN-10*€D€B€™D€B€Ýp€B€�¬�*RETURN-11*€D€B€™D€B€ãp€B€�¬�*RETURN-12*€D€B€™D€B€ép€B€�¬�*RETURN-13*€D€B€™D€B€ïp€B€�¬�*RETURN-14*€D€B€™D€B€üp€B€�¬�*RETURN-15*€D€�FUNCALL€B€†D€ƒ€SETQB€D€B€›D€B€DB€D€B€¡D€B€DB€ D€B€§D€B€DB€D€B€­D€B€DB€D€B€³D€B€DB€D€B€¹D€B€DB€D€B€¿D€B€DB€ D€B€ÅD€B€DB€$D€B€ËD€B€DB€(D€B€ÑD€B€DB€,D€B€×D€B€DB€0D€B€ÝD€B€DB€4D€B€ãD€B€DB€8D€B€éD€B€DB€<D€B€ïD€B€DB€@D€B€üD€B€DB€‘D€pÀB€Œ¬€CALLD€B€;‚FLUSH-OPEN-FRAME€D€B€DB€žD€B€›D€B€DB€¤D€B€¡D€B€DB€ªD€B€§D€B€DB€°D€B€­D€B€DB€¶D€B€³D€B€DB€¼D€B€¹D€B€DB€ÂD€B€¿D€B€DB€ÈD€B€ÅD€B€DB€ÎD€B€ËD€B€DB€ÔD€B€ÑD€B€DB€ÚD€B€×D€B€DB€àD€B€ÝD€B€DB€æD€B€ãD€B€DB€ìD€B€éD€B€DB€‘D€B€ïD€B€DB€ÿD€B€üD€B€Dp€B€�¬�*TRAP-TEMP2*D€B€fD€B€;B€g€D€C€IFD€ÀZEROP€B€‘D€pÀB€Œ¬‚CH-RETURN-ONE-VALUE€D€pÀB€ŒlƒCH-RETURN-MULTIPLE-VALUES€D€pÀB€Œ¬€NOP€B€j1€D€B€H…SAVING-TRAP-FRAME-FOR-NONMODIFYING-EXIT€D€B€†D€B€aD€B€;B€sD€B€aD€B€eD€B€;B€†B€†D€B€;D€D€C�SAVED-OREGp€B€�¬�*SAVE-OREG*€D€�SAVED-PCp€B€�ì�*SAVE-TRAP-PC*D€C�SAVED-PC+€p€B€�,‚*SAVE-TRAP-PC+*€D€ƒ�SAVED-STATUSp€B€�ì�*SAVE-STATUS*€D€ƒ�SAVED-JCOND€p€B€�¬�*SAVE-JCOND*D€�SAVED-Q€D€pÀB€Œ,‚READ-Q-REGISTER€D€ƒ�SAVED-SSTEP€D€ƒDISABLE-SINGLE-STEP-TRAPD€B€;D€D€B€BB€†D€ƒRESTORE-SINGLE-STEP-TRAPB€ÂD€pÀB€Œ,‚LOAD-Q-REGISTER€B€½D€B€DB€«B€©D€B€DB€¯B€­D€B€DB€³B€±D€B€DB€·B€µD€B€DB€»B€¹1€D€B€HÄSAVING-TRAP-FRAME-FOR-RECURSIVE-TRAPS€D€B€†D€B€aD€B€;ƒ€LET*D€B€aD€B€eD€B€;B€†B€†D€B€;D€ D€B€©B€«D€B€­B€¯D€B€±B€³D€B€µB€·D€B€¹B€»D€B€½D€B€¿D€B€ÂD€B€ÃD€�MEMSTAT€D€pÀB€Œl‚READ-MEMORY-STATUSD€ƒ€VMA€D€pÀB€Œ,�READ-VMAD€C€MDD€B€bD€ƒ€WHEND€C€=€pÀB€Œ¬�$$WMD-VALID€D€B€òB€èpÀB€Œl„%%MEMORY-STATUS-MD-WRITTEN-LATELY€€D€pÀB€Œl„VMA-START-WRITE-NO-GC-TRAP-UNBOXEDB€@D€pÀB€Œ¬�MEMORY-WAIT€D€pÀB€Œl„MD-START-WRITE-NO-GC-TRAP-UNBOXED€D€pÀB€Œ,�READ-MD€D€B€AD€B€D€B€;D€D€B€BB€†B€­B€±D€B€D€B€�D€pÀB€Œ,�TRAP-OFFD€B€ÊB€ÂD€B€DB€«B€©D€B€DB€¯B€­D€B€DB€³B€±D€B€DB€·B€µD€B€DB€»B€¹D€B€ÍB€½D€pÀB€Œ,‚WRITE-MD-UNBOXEDB€òD€B€ýB€@D€pÀì�VIRTUAL-MEMORY,‚WRITE-MD-GENERICB€òD€pÀB€Œ,�LDB-NOT€B€èpÀB€Œ,„%%MEMORY-STATUS-MD-NOT-BOXED-BIT€D€pÀB€!l‚WRITE-VMA-GENERIC€B€íD€B€%B€èpÀB€Œl„%%MEMORY-STATUS-VMA-NOT-BOXED-BIT€€1€D€B€HC‚FLUSH-READ-ERRORS€D€B€†D€B€aD€B€;B€ÛD€B€aD€B€eD€B€;B€†B€†D€B€;D€D€ƒ�TRANSP-TYPE€D€B€%D€B€êpÀB€Œìƒ%%MEMORY-STATUS-TRANSPORT-TYPE€D€�MAP-BITSD€pÀB€Œ,�READ-MAPD€B€íD€B€ïD€C�VMA-BOXED€D€B€%D€B€êB€.€D€B€òD€B€D€�MD-BOXEDD€B€%D€B€êB€'€D€B€;D€D€pÀB€Œl†VMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-UNBOXEDB€@D€B€D€B€D€B€BB€†B€íB€JB€òB€QB€CB€<1€D€B€HC‚FLUSH-WRITE-ERRORSD€B€†D€B€aD€B€;B€ÛD€B€aD€B€eD€B€;B€†B€†D€B€;D€D€�GC-TRAP€D€B€%D€B€êpÀB€Œìƒ%%MEMORY-STATUS-GC-TRAP-ENABLE€D€B€CD€B€ED€B€íD€B€ïD€B€JD€B€%D€B€êB€.€D€B€òD€B€D€B€QD€B€%D€B€êB€'€D€B€;D€D€pÀB€Œ,�WRITE-MDD€pÀB€Œ,‚UNBOXED-CONSTANT€p€B€ ,�UNBOXED€D€B€ýB€@D€B€D€B€D€B€BB€†B€íB€JB€òB€QB€CB€i1€D€B€HÃ�FLUSH-GC-TRAP€D€B€†D€B€aD€B€;B€bD€B€eD€B€;B€BB€†D€B€;D€D€B€’D€B€ôD€B€%D€B€êB€.€pÀB€Œ,�$$BOXED€D€pÀB€Œì‚VMA-START-WRITE-BOXED€D€B€ïD€pÀB€Œ,ƒVMA-START-WRITE-UNBOXED€D€B€ï1€D€B€HÃ�DISABLE-TRAPS€D€B€†D€B€aD€B€;B€sD€B€eD€B€;D€Ã�OLD-TRAP-STATED€B€D€B€eD€B€;B€†B€†D€B€;D€D€ƒ€FLETD€D€Ã�RESTORE-TRAPS€B€jD€pÀB€Œ¬‚WRITE-MEMORY-CONTROLD€pÀB€Œ¬€DPB€B€¯pÀB€Œ¬„%%MEMORY-CONTROL-MASTER-TRAP-ENABLE€D€pÀB€Œ¬‚READ-MEMORY-CONTROL€D€B€�D€B€�B€jD€B€BB€†D€�FUNCTIONB€·1€D€B€HB€BD€B€†D€B€aD€B€;B€sD€B€eD€B€eD€B€;B€†B€†D€B€;D€D€B€¬D€B€ÇD€ÀLAMBDAD€‚RE-ENABLE-TRAPS€D€ÀPROG1€D€B€BB€†D€B€BB€Ö1€D€B€HB€CD€À&REST€ƒ€BODYD€B€sD€D€ƒ�OLD-SEQUENCED€p€B€+ì€GENSYMD€B€eD€B€;B€sD€B€eD€B€aB€çD€B€;D€p€B€�ì‚*ALLOW-SEQUENCE-BREAK*D€B€eD€B€;pÀB€Iì�UNWIND-PROTECTD€B€aD€B€;B€bD€B€eD€B€;B€DD€B€;B€ïD€B€eD€B€;C€1+B€çB€åD€B€eD€B€;B€DD€B€;B€ïB€ç1€D€B€HÃ�%TRAP-RESTORE€D€B€¯¬‘WARNING: You are responsible for making sure Multi-Function I/O clears out�and no traps happen (including unlinked functions)!!! (4 cycles)€D€B€eD€B€;B€¹D€B€aD€B€;pÀB€Œ¬�DPB-UNBOXED€B€¯D€B€;D€B€½D€B€¿€€