hưs8€p€,€ì€LAMBDAF€€2€D€p€,€l�FASD-DATA€D€¬€pfc€¬€Love†€Ñ¦.hF€~F€HD€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€A0À&REST€pÀB€Iì€AREST€¬‹When a call is made to error in a tail position use this macro instead to save information.€D€ƒ€WHEND€C€>€D€pÀì€ARRAY€ì€LENGTHB€OF€D€p€B€+¬€WARNl‡LI:TAIL-ERROR macro with more than 15 args -- might fail!€D€pÀl€SI¬�XR-BQ-LIST*€D€B€;ÀPROGN€D€B€aD€B€;pÀB€Iì€ERROR€B€LB€OD€B€;D€ƒ€NIL€1€D€B€HC�TAIL-ILLOPD€ƒ�ILLOP-STRINGD€ƒ€LET€D€D€ƒ€CODED€pÀ¬€USER¬‚ALLOCATE-ILLOP-CODE€B€oD€B€aD€B€;B€bD€pÀB€_l�XR-BQ-LISTD€B€;Ã�ILLOP-FUNCTIONB€rD€B€;D€B€h1€D€B€HÀILLOP€D€B€oD€B€qD€D€B€rD€B€uB€oD€B€{D€B€;B€|B€r1€D€ƒ�DEFCONSTANT€B€@F€)1€D€B€HÂSAVING-RETURN-REGISTERD€ÀTHUNK€D€B€aD€B€;B€qD€B€{D€B€{D€B€;B€”B€”D€B€;D€LD€pÀ,�HARDWARE¬ƒWRITE-RETURN-PC-RETURN-DEST€p€,‚GLOBAL-REGISTERSì�*SAVE-TRAP-PC*D€pÀB€š¬€NOP€D€pÀB€š¬�CH-OPEN-CALLp€B€�¬�*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€ZB€D€B€·D€B€ZB€"D€B€½D€B€ZB€&D€B€ÃD€B€ZB€*D€B€ÉD€B€ZB€.D€B€ÏD€B€ZB€2D€B€ÕD€B€ZB€6D€B€ÛD€B€ZB€:D€B€áD€B€ZB€>D€B€çD€B€ZB€BD€B€íD€B€ZB€FD€B€óD€B€ZB€JD€B€ùD€B€ZB€ND€B€ÿD€B€ZB€RD€B€D€B€ZB€VD€B€D€B€ZB€§D€pÀB€š¬€CALLD€B€;‚FLUSH-OPEN-FRAME€D€B€ZB€´D€B€±D€B€ZB€ºD€B€·D€B€ZB€ÀD€B€½D€B€ZB€ÆD€B€ÃD€B€ZB€ÌD€B€ÉD€B€ZB€ÒD€B€ÏD€B€ZB€ØD€B€ÕD€B€ZB€ÞD€B€ÛD€B€ZB€äD€B€áD€B€ZB€êD€B€çD€B€ZB€ðD€B€íD€B€ZB€öD€B€óD€B€ZB€üD€B€ùD€B€ZB€D€B€ÿD€B€ZB€§D€B€D€B€ZB€D€B€D€B€Zp€B€�¬�*TRAP-TEMP2*D€B€|D€B€;B€}€D€C€IFD€ÀZEROP€B€§D€pÀB€š¬‚CH-RETURN-ONE-VALUE€D€pÀB€šlƒCH-RETURN-MULTIPLE-VALUES€D€B€¢B€h1€D€B€H…SAVING-TRAP-FRAME-FOR-NONMODIFYING-EXIT€D€B€”D€B€aD€B€;B€qD€B€aD€B€{D€B€;B€”B€”D€B€;D€D€C�SAVED-OREGp€B€�¬�*SAVE-OREG*€D€�SAVED-PCB€Ÿ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€XB€”D€ƒRESTORE-SINGLE-STEP-TRAPB€ÔD€pÀB€š,‚LOAD-Q-REGISTER€B€ÏD€B€ZB€¿B€½D€B€ZB€ŸB€ÁD€B€ZB€ÅB€ÃD€B€ZB€ÉB€ÇD€B€ZB€ÍB€Ë1€D€B€HÄSAVING-TRAP-FRAME-FOR-RECURSIVE-TRAPS€D€B€”D€B€aD€B€;ƒ€LET*D€B€aD€B€{D€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€B€RD€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€XB€”B€ÁB€ÃD€B€D€B€¢D€pÀB€š,�TRAP-OFFD€B€ÜB€ÔD€B€ZB€¿B€½D€B€ZB€ŸB€ÁD€B€ZB€ÅB€ÃD€B€ZB€ÉB€ÇD€B€ZB€Í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€2l‚WRITE-VMA-GENERIC€B€ÿD€B€6B€ú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€{D€B€;B€”B€”D€B€;D€D€ƒ�TRANSP-TYPE€D€B€6D€B€üpÀB€šìƒ%%MEMORY-STATUS-TRANSPORT-TYPE€D€�MAP-BITSD€pÀB€š,�READ-MAPD€B€ÿD€B€D€C�VMA-BOXED€D€B€6D€B€üB€?€D€B€D€B€D€�MD-BOXEDD€B€6D€B€üB€8€D€B€;D€D€pÀB€šl†VMA-START-READ-NO-TRANSPORT-VMA-UNBOXED-MD-UNBOXEDB€@D€B€D€B€D€B€XB€”B€ÿB€[B€B€bB€TB€M1€D€B€HC‚FLUSH-WRITE-ERRORSD€B€”D€B€aD€B€;B€íD€B€aD€B€{D€B€;B€”B€”D€B€;D€D€�GC-TRAP€D€B€6D€B€üpÀB€šìƒ%%MEMORY-STATUS-GC-TRAP-ENABLE€D€B€TD€B€VD€B€ÿD€B€D€B€[D€B€6D€B€üB€?€D€B€D€B€D€B€bD€B€6D€B€üB€8€D€B€;D€D€pÀB€š,�WRITE-MDD€pÀB€š,‚UNBOXED-CONSTANT€p€B€ ,�UNBOXED€D€B€B€@D€B€D€B€D€B€XB€”B€ÿB€[B€B€bB€TB€z1€D€B€HÃ�FLUSH-GC-TRAP€D€B€”D€B€aD€B€;B€bD€B€{D€B€;B€XB€”D€B€;D€D€B€¨D€B€D€B€6D€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€qD€B€{D€B€;D€Ã�OLD-TRAP-STATED€B€%D€B€{D€B€;B€”B€”D€B€;D€D€ƒ€FLETD€D€Ã�RESTORE-TRAPS€B€hD€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€hD€B€XB€”D€�FUNCTIONB€È1€D€B€HB€BD€B€”D€B€aD€B€;B€qD€B€{D€B€{D€B€;B€”B€”D€B€;D€D€B€½D€B€ØD€ÀLAMBDAD€‚RE-ENABLE-TRAPS€D€ÀPROG1€D€B€XB€”D€B€XB€ç1€D€B€HB€CD€B€Mƒ€BODYD€B€qD€D€ƒ�OLD-SEQUENCED€p€B€+ì€GENSYMD€B€{D€B€;B€qD€B€{D€B€aB€÷D€B€;D€p€B€�ì‚*ALLOW-SEQUENCE-BREAK*D€B€{D€B€;pÀB€Iì�UNWIND-PROTECTD€B€aD€B€;B€bD€B€{D€B€;B€ZD€B€;B€ÿD€B€{D€B€;C€1+B€÷B€õD€B€{D€B€;B€ZD€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€{D€B€;B€ÊD€B€aD€B€;pÀB€š¬�DPB-UNBOXED€B€ÀD€B€;D€B€ÎD€B€Ð€€