hưs2€D€p€,€l�FASD-DATA€D€¬€PFC€ì�Lambda Four A€†€›¦YeF€}F€ D€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€1€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€Hì€ERROR€B€KB€MB€NB€OB€PB€QB€RB€SB€TB€UB€VB€WB€XB€YB€ZB€[D€B€;D€ƒ€NIL€1€D€B€GÀILLOP€D€ƒ�ILLOP-STRINGD€ƒ€LET€D€D€ƒ€CODED€pÀ¬€USER¬‚ALLOCATE-ILLOP-CODE€B€pD€B€dD€B€;Ã�ILLOP-FUNCTIONB€s1€D€ƒ�DEFCONSTANT€B€@F€)1€D€B€GÂSAVING-RETURN-REGISTERD€ÀTHUNK€D€B€`D€B€;B€rD€B€dD€B€dD€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€CB€D€B€ D€B€CB€ D€B€¦D€B€CB€D€B€¬D€B€CB€D€B€²D€B€CB€D€B€¸D€B€CB€D€B€¾D€B€CB€D€B€ÄD€B€CB€#D€B€ÊD€B€CB€'D€B€ÐD€B€CB€+D€B€ÖD€B€CB€/D€B€ÜD€B€CB€3D€B€âD€B€CB€7D€B€èD€B€CB€;D€B€îD€B€CB€?D€B€ûD€B€CB€�D€pÀB€‹¬€CALLD€B€;‚FLUSH-OPEN-FRAME€D€B€CB€�D€B€šD€B€CB€£D€B€ D€B€CB€©D€B€¦D€B€CB€¯D€B€¬D€B€CB€µD€B€²D€B€CB€»D€B€¸D€B€CB€ÁD€B€¾D€B€CB€ÇD€B€ÄD€B€CB€ÍD€B€ÊD€B€CB€ÓD€B€ÐD€B€CB€ÙD€B€ÖD€B€CB€ßD€B€ÜD€B€CB€åD€B€âD€B€CB€ëD€B€èD€B€CB€�D€B€îD€B€CB€þD€B€ûD€B€Cp€B€Ž¬�*TRAP-TEMP2*D€B€eD€B€;B€f€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€i1€D€B€G…SAVING-TRAP-FRAME-FOR-NONMODIFYING-EXIT€D€B€…D€B€`D€B€;B€rD€B€`D€B€dD€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€AB€…D€ƒRESTORE-SINGLE-STEP-TRAPB€ÁD€pÀB€‹,‚LOAD-Q-REGISTER€B€¼D€B€CB€ªB€¨D€B€CB€®B€¬D€B€CB€²B€°D€B€CB€¶B€´D€B€CB€ºB€¸1€D€B€GÄSAVING-TRAP-FRAME-FOR-RECURSIVE-TRAPS€D€B€…D€B€`D€B€;ƒ€LET*D€B€`D€B€dD€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€aD€ƒ€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€AB€…B€¬B€°D€B€D€B€œD€pÀB€‹,�TRAP-OFFD€B€ÉB€ÁD€B€CB€ªB€¨D€B€CB€®B€¬D€B€CB€²B€°D€B€CB€¶B€´D€B€CB€º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€GC‚FLUSH-READ-ERRORS€D€B€…D€B€`D€B€;B€ÚD€B€`D€B€dD€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€AB€…B€ìB€IB€ñB€PB€BB€;1€D€B€GC‚FLUSH-WRITE-ERRORSD€B€…D€B€`D€B€;B€ÚD€B€`D€B€dD€B€;B€…B€…D€B€;D€D€�GC-TRAP€D€B€$D€B€épÀB€‹ìƒ%%MEMORY-STATUS-GC-TRAP-ENABLE€D€B€BD€B€DD€B€ìD€B€îD€B€ID€B€$D€B€éB€-€D€B€ñD€B€D€B€PD€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€AB€…B€ìB€IB€ñB€PB€BB€h1€D€B€GÃ�FLUSH-GC-TRAP€D€B€…D€B€`D€B€;B€aD€B€dD€B€;B€AB€…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€GÃ�DISABLE-TRAPS€D€B€…D€B€`D€B€;B€rD€B€dD€B€;D€Ã�OLD-TRAP-STATED€B€D€B€dD€B€;B€…B€…D€B€;D€D€ƒ€FLETD€D€Ã�RESTORE-TRAPS€B€iD€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€iD€B€AB€…D€�FUNCTIONB€¶1€D€B€GB€BD€B€…D€B€`D€B€;B€rD€B€dD€B€dD€B€;B€…B€…D€B€;D€D€B€«D€B€ÆD€ÀLAMBDAD€‚RE-ENABLE-TRAPS€D€ÀPROG1€D€B€AB€…D€B€AB€Õ1€D€B€GÃ�%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€dD€B€;B€¸D€B€`D€B€;pÀB€‹¬�DPB-UNBOXED€B€®D€B€;D€B€¼D€B€¾€€