> )> )) #DECL ((FROB) (LBL) LIST) .LBL> >> ,GLUE-LIST>> ) ITM CONST LB FC) #DECL ((LST) LIST (CONST) CONSTANT (FC) CONSTANT-BUCKET (INS) (ITM) ANY) > >)> > GFRM SGFRM SBFRM> > COMPERR> CONSTANT>>) ( <==? .ITM IOERR>> > CONSTANT>>) ( >>> >>> ) (ELSE GFRM> ,SETZ-R) ( SBFRM> ,SETZQ-R) (ELSE ,SETZX-R)>> CONSTANT>>)> > > > SBFRM> ) (ELSE )>>) ( > <3 .INS>) !,GCALS)>) (ELSE <3 .INS>> '(R*)] INST>>)>)>)>> .CODE>> ) >)> > )> >>> ]>) >)> > >)> >>> <==? .X .Y>) (T > > 2> <==? <1 .S1> !\T> <==? <2 .S1> !\$> <=? .S2>> 2> <==? <1 .S2> !\T> <==? <2 .S2> !\$> <=? .S1>>>)>> ) ) .NAM> > >> ) (ELSE )>) (ELSE >)>)>> ,GLUE-LIST>) (ELSE )>> (ONE LBL) ATOM) >> > FRAME> <==? .ONE SFRAME>> ) ( <==? .ONE SCALL>> > FORM> <==? 2> <==? <1 .IT> QUOTE> > T> > > >> > FORM> 1> > FORM> <==? 2> <==? <1 .X> QUOTE> <==? .IT <2 .X>>>> ) (ELSE > .IT)> 1>> (.LBL)>)>)> >) (<==? .ONE ACALL> >)>)>> .L>> ) "AUX" NAME (OBLIST .OBLIST) (OUTCHAN .OUTCHAN) PO "NAME" MACT) #DECL ((L) ]> (NAME) ATOM (MACT) (OUTCHAN OBLIST) ) >) (ELSE )> >> > > ) (ELSE >)> ) OP ITML M LB DCLIST (OPT? <>)) #DECL ((MIML) (ITM) (M) > (DCLIST) LIST) )> >)> > > > <> .MIML> >> >)> LIST>>>)> ()> > > >)> .MIML>> ) (,NO-AC-FUNNYNESS .MIML>>) (ELSE > .MIML>>)> > >) (T > ) (> ATOM>> ) ( > ) (T LIST> 2>> > STRING> ) (<==? .DC "TUPLE"> >)> > )>> >)> > > LOCAL-NAME> <> <>] LOCAL>> >)> 3>> > ) > ,CONSTANT-TABLE> )> ) > ,MV-TABLE> >) (T > >)> > >)>) (<==? .OP TEMP> > > <> .OLD-LOCS> 2> -2>>)>) (<==? .OP OPT-DISPATCH> >) (<==? .OP MAKTUP> > > T .OLD-LOCS>) ( > )> >)>) (T > >)> FIX>>)>)>> .L> >) ( ) (ELSE )>)> )>> > >>)> > <1 .PO>> > 3> >)> ) LI) #DECL ((C L) LIST (X) ) <==? 2> <==? <1 .X> DISPATCH>> >>> '(R*)] INST>> ) (T )>> > >)>> )) 2> <==? <1 .TYP> QUOTE>> >>) (<==? <1 .TYP> OR> >>> > >>)>> >) (ELSE >>)>)> '[WORD FIX LIST]>> > .TYP) (> > )>)>>> (ALIST NON-ALIST) LIST) )) ) (ELSE 1>> .L>)> ) ( ) (ELSE )>> > > 1>> .ALIST>) (ELSE )> !.NON-ALIST) FORM>> [REST ATOM]> (OFF MAGIC) FIX (MAX) ) > > >>> > > '(R*)> ) (ELSE > > '(R*)> )> > 2>> > ) (OLD ()) "AUX" (STK TP*) (CNT 0) (TCC ,CC)) #DECL ((LST) LIST (CNT) FIX (TUP) ) 2>> >> > '(F*)> )> 1>> !,ALL-ICALL-TEMPS)>) (ELSE )>)> > ANY>> (VAR) ATOM (TYP) (FROB) (VAL) ANY (LCL) ) )> > >) ( > ADECL> > >) (T )> >) (T )> > )> > LOCAL-NAME> >) (ELSE <>)> <> <>] LOCAL>> > )> 1>> (.LCL)>) (T 1>> (.LCL)>)> .TYP> > >) ( > ) (T >)> >> .LST> 0>)>> ) (FIRST T)) #DECL ((FIRST WIN) ) > ) M N I A LBL) #DECL ((FRM) (M) (LBL) ATOM (N) (I) FORM (LL) LIST (A) ANY) )> )> OPT-DISPATCH> <==? <1 .FRM> DISPATCH>> >>> >)> >) (> > NTHR> >> LIST> <==? <1 .A> BRANCH-FALSE> >>> > COMPERR> <==? .LBL UNWCONT> <==? .LBL IOERR>> ) (.FIX-LABS > ) (>) (T )> >> JUMP> > >) ( JUMP> <==? <1 .I> RETURN>> ) (T )>) (<==? <1 .FRM> ICALL> >>)> >) (T )>> .L>> > )) #DECL ((L OL) LIST (ITM) ANY) ) (> ATOM> >> .L .NEXT-LOOP> ) (> > ) (ELSE )>) ( <==? <1 .ITM> ACTIVATION>> > !,THE-BIG-LABELS)> .L T> ) ( <==? <1 .ITM> LOOP>> >> ) ( <==? <1 .ITM> JUMP> > FORM> <==? <1 .ITM> JUMP>> > ) (> FORM> <==? <1 .ITM> JUMP> 1> <==? <2 .L> <3 .ITM>>> > ) ( <==? <1 .ITM> JUMP> 1> ATOM>>> > ) ( RETURN> <==? <1 .ITM> RTUPLE> <==? <1 .ITM> AGAIN> <==? <1 .ITM> RETRY> <==? <1 .ITM> MRETURN>>> )) #DECL ((LL) LIST) > ATOM>> .LL> )> )> DEAD> .LL> )> )> >> ) (T )> > >> ) ( )>>> )) > LIST> > > DEAD-FALL> <==? .FOO DEAD-JUMP>>> > > >) (ELSE >)> )>>> > >> ) (PC 0) FOO M TG (OFF ) R (WV ,WINNING-VICTIM)) #DECL ((LABELS) LIST (PC OFF) FIX (C) LIST (FOO R) ANY (M) ) ) >> REF> > ATOM> >> )>) ( >)>)>> .C> >) (> ATOM> >> >) (ELSE >)> >> ) R NPC (FLG <>)) #DECL ((COD) LIST (C R) ANY (NPC) FIX (FLG) ) > REF> 2> > REF> >>> >> > > >>>>) (T >>>>)> ) (T )>) ( <==? .TG IOERR>> <2 .C> @ ] INST>>) (ELSE ] INST>>)>) (> >>)>) (.FLG <2 .C> .NPC '(R*)] INST>>) (T >)>)>> >> ) (F-OR-G <>) "AUX" NUM (MVECTOR ,MVECTOR) (OUTCHAN .OC) (OB ,OUTPUT-BUFFER)) #DECL ((NAME) ATOM (DECL) (MVECTOR) LIST (NUM) FIX (OUTCHAN) (OB) STRING) > )) #DECL ((CHR) CHARACTER (ICHR) FIX) > >> >) (ELSE .CHR)>> >>>)> >)> .OC>)> ) (ELSE )>)> )> > > (C) LIST) >> > ,GLUE-LIST>> )> >> -16> FIX> 7> FIX> 7> )> .OB>) (ELSE >>)> ) (ELSE .OC>)> .OC>)> .OC> )> ) (ELSE )>)> .OC> .OC> " .OC>)> )> > > (LCL) > (OB) STRING) > > FIX>>> > 0> )>>)>> .CODE> )) FIX>>> > 0> )>> >) ( ,FINAL-LOCALS>> *777777000000*> FIX> FIX>> *777777*>> FIX>>) (ELSE ,OUTCHAN> )> FIX>>> > 0> )>> >)>> ,CONSTANT-VECTOR> >> ) (ELSE )>)> ; "This used to strip off a level of quoting for atoms, but that's already happened in MVADD..." ; 1> <==? <1 .MV> QUOTE> ATOM>> >)> ) ( ,FINAL-LOCALS>> FIX> FIX>>> ) (T )>> > )> >)> )) #DECL ((OUTCHAN) ) > 1> 2>> >)> ,NULL) (ELSE .LEN)>> ) (ADR 0) (IDX 0) (INS 0) (IND 0) INAME LCL) #DECL ((WRD) (INS ADR IDX IND) FIX (AC?) (INAME) ATOM (M) ) <>) ( ) ( >> > >>) (T >)>) ( > FIX>>>) (ELSE )>) ( ,OPS>) ( ,JSYS-OBLIST>) (ELSE .FROB)>> > FIX>> FIX>>) ( ) (ELSE )>) ( > VECTOR>>>>) ( '[WORD FIX]> >>) ()>> .WRD> )> FIX> .IND .IDX> 18> > FIX>)>> ) > > >> )>)>> .CODE> >>)>> ) 0>> .TC> .FB> > > .T> .MACT>> > ".OC">>)) #DECL ((OUTCHAN) ) ) (ELSE )> T) (ELSE )>>>