) (SEG? <>) (SIDE-E <>) (MX:FIX 0) (MN:FIX 0) (VARS: ) TL:LIST (VLN:FIX ) (LV: <1 >) (I:FIX 0)) > ,SEG-CODE> <==? .NT ,SEGMENT-CODE>> >>>> .MX> ,MAX-LENGTH>> .MN>>) (ELSE > > ,MAX-LENGTH>>)> > > )>> >> ) COUNTMP (SEGCALLED <>) SEGTMP) #DECL ((SEGLABEL COUNTMP SEGCALLED) ) ) RES) <==? .NT ,SEGMENT-CODE>> > >> > )> >> .SEGTMP>> >> > > .SEGLABEL> >) (.SEGCALLED >)>) (ELSE )> )>> .K> > )> >>> > 0> )>>>) (.SIDE-E > "AUX" (TY ) PT (SY: <1 .SYP>)) .TY>>)> > > FIX> <==? .PT LIST>>>) (ELSE )> >> .K .VARS>> > TMP:TEMP "AUX" (SY: <1 .SYP>) (LCL <>)) -1> >> .TMP> ) (ELSE >)> > )>> .VARS .TL>) (ELSE > > > <1 .SL>) (LCL <>) TY (N:NODE <1 .NL>) (SY: <1 .SYP>) TMP) >> >>> -1> > >> >> ) (ELSE >)> >)>) (ELSE )>> .VARS .K> >> ) (> >>) !.MUCH-LATER)> )> )> <1 <1 .L>>) (LCL <>) (TMP:TEMP <2 .L>)) -1> >> .TMP> ) (ELSE >)> > )>> .MUCH-LATER>>)> > -1> >> 1>> ) (ELSE >)> >>)> >)>) (ELSE .W)>> L:) )) <==? .NT ,ASSIGNED?-CODE> <==? .NT ,SET-CODE>> .SY> )>) ( <==? .NT ,FSET-CODE>> .SY> >>> ,QUOTE-CODE> <==? .SY>) (ELSE <==? -1> >)>> )>) ( > > <==? -1>>> ) (ELSE > )> >>> )>)>>> .L>> (,FORM-CODE ) (,PROG-CODE ) (,SUBR-CODE ) (,COND-CODE ) (,LVAL-CODE ) (,SET-CODE ) (,OR-CODE ) (,AND-CODE ) (,RETURN-CODE ) (,COPY-CODE ) (,AGAIN-CODE ) (,ARITH-CODE ) (,RSUBR-CODE ) (,0-TST-CODE <0-TEST .N .W>) (,NOT-CODE ) (,1?-CODE <1?-GEN .N .W>) (,TEST-CODE ) (,EQ-CODE <==-GEN .N .W>) (,TY?-CODE ) (,LNTH-CODE ) (,MT-CODE ) (,REST-CODE ) (,NTH-CODE ) (,PUT-CODE ) (,PUTR-CODE ) (,FLVAL-CODE ) (,FSET-CODE ) (,FGVAL-CODE ) (,FSETG-CODE ) (,MIN-MAX-CODE ) (,CHTYPE-CODE ) (,FIX-CODE ) (,FLOAT-CODE ) (,ABS-CODE ) (,MOD-CODE ) (,ID-CODE ) (,ASSIGNED?-CODE ) (,BITL-CODE ) (,ISUBR-CODE ) (,EOF-CODE ) (,READ-EOF2-CODE ) (,READ-EOF-CODE ) (,GET2-CODE ) (,GET-CODE ) (,IPUT-CODE ) (,MAP-CODE ) (,MARGS-CODE ) (,MAPLEAVE-CODE ) (,MAPRET-STOP-CODE ) (,UNWIND-CODE ) (,GVAL-CODE ) (,SETG-CODE ) (,MEMQ-CODE ) (,LENGTH?-CODE ) (,FORM-F-CODE ) (,ALL-REST-CODE ) (,COPY-LIST-CODE ) (,PUT-SAME-CODE ) (,BACK-CODE ) (,TOP-CODE ) (,ROT-CODE ) (,LSH-CODE ) (,BIT-TEST-CODE ) (,CALL-CODE ) (,MONAD-CODE ) (,GASSIGNED?-CODE ) (,APPLY-CODE ) (,ADECL-CODE ) (,MULTI-RETURN-CODE ) (,VALID-CODE ) (,TYPE-C-CODE ) (,=?-STRING-CODE <=?-STRING-GEN .N .W>) (,CASE-CODE ) (,FGETBITS-CODE ) (,FPUTBITS-CODE ) (,ISTRUC-CODE ) (,ISTRUC2-CODE ) (,STACK-CODE ) (,CHANNEL-OP-CODE ) (,ATOM-PART-CODE ) (,OFFSET-PART-CODE ) (,PUT-GET-DECL-CODE ) (,SUBSTRUC-CODE ) (,MULTI-SET-CODE ) DEFAULT ()>>