This is trace.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "trace.h"
init_trace(){do_init(VV);}
/* macro definition for TRACE */
static L1()
{register object *base=vs_base;
register object *sup=base+VM1; VC1
vs_reserve(VM1);
check_arg(2);
vs_top=sup;
{object V1=base[0]->c.c_cdr;
base[2]= V1;}
if((base[2])!=Cnil){
goto T2;}
base[3]= VV[0];
vs_top=(vs_base=base+3)+1;
return;
T2:;
base[3]= list(3,VV[1],VV[2],list(3,VV[3],list(3,VV[4],list(3,VV[5],VV[6],list(2,VV[7],base[2])),VV[8]),VV[9]));
vs_top=(vs_base=base+3)+1;
return;
}
/* macro definition for UNTRACE */
static L2()
{register object *base=vs_base;
register object *sup=base+VM2; VC2
vs_reserve(VM2);
check_arg(2);
vs_top=sup;
{object V2=base[0]->c.c_cdr;
base[2]= V2;}
if((base[2])!=Cnil){
goto T5;}
base[3]= VV[10];
vs_top=(vs_base=base+3)+1;
return;
T5:;
base[3]= list(3,VV[5],VV[11],list(2,VV[7],base[2]));
vs_top=(vs_base=base+3)+1;
return;
}
/* local entry for function TRACE-ONE-PREPROCESS */
static object LI3(V4)
object V4;
{ VMB3 VMS3 VMV3
TTL:;
if(!(type_of((V4))==t_symbol)){
goto T8;}
V4= make_cons((V4),Cnil);
goto TTL;
T8:;
{object V5;
object V6;
object V7;
object V8;
object V9;
object V10;
object V11;
object V12;
object V13;
V5= cdr((V4));
V6= Cnil;
V7= list(3,VV[12],list(2,VV[7],car((V4))),VV[13]);
V8= list(3,VV[12],list(2,VV[7],car((V4))),VV[14]);
V9= Ct;
V10= Ct;
V11= Ct;
V12= Cnil;
V13= Cnil;
T22:;
if(((V5))!=Cnil){
goto T23;}
if(((V12))==Cnil){
goto T26;}
vs_base=vs_top;
Lgensym();
vs_top=sup;
V13= vs_base[0];
if(!(((V9))==(Ct))){
goto T33;}
V9= list(3,VV[15],(V13),(V12));
goto T31;
T33:;
V9= list(4,VV[16],list(3,VV[15],(V13),(V12)),(V9),Cnil);
T31:;
V14= make_cons((V13),small_fixnum(0));
V6= make_cons(/* INLINE-ARGS */V14,(V6));
V10= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[19],(V13))),(V10));
V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11));
T26:;
V15= car((V4));
V16= list(2,VV[7],(V9));
V17= list(2,VV[7],(V10));
V18= list(2,VV[7],(V7));
V19= list(2,VV[7],(V11));
{object V20 = list(7,/* INLINE-ARGS */V15,(V6),/* INLINE-ARGS */V16,/* INLINE-ARGS */V17,/* INLINE-ARGS */V18,/* INLINE-ARGS */V19,list(2,VV[7],(V8)));
VMR3(V20)}
T23:;
{object V21= car((V5));
if((V21!= VV[29]))goto T44;
{object V22;
object V23;
V22= cadr((V5));
V23= Cnil;
T49:;
if(((V22))!=Cnil){
goto T50;}
V6= (V23);
goto T45;
T50:;
if(!(type_of(car((V22)))==t_symbol)){
goto T58;}
V24= make_cons(car((V22)),Cnil);
goto T56;
T58:;
V25= caar((V22));
base[0]= cadar((V22));
vs_top=(vs_base=base+0)+1;
Leval();
vs_top=sup;
V26= vs_base[0];
V24= make_cons(/* INLINE-ARGS */V25,V26);
T56:;
V23= make_cons(V24,(V23));
V22= cdr((V22));
goto T49;}
T45:;
goto T43;
T44:;
if((V21!= VV[98]))goto T65;
V9= cadr((V5));
goto T43;
T65:;
if((V21!= VV[99]))goto T67;
V10= cadr((V5));
goto T43;
T67:;
if((V21!= VV[100]))goto T69;
V7= cadr((V5));
goto T43;
T69:;
if((V21!= VV[101]))goto T71;
V11= cadr((V5));
goto T43;
T71:;
if((V21!= VV[102]))goto T73;
V8= cadr((V5));
goto T43;
T73:;
if((V21!= VV[28]))goto T75;
V12= cadr((V5));
goto T43;
T75:;}
T43:;
V5= cddr((V5));
goto T22;}
}
/* local entry for function CHECK-TRACE-SPEC */
static object LI4(V28)
register object V28;
{ VMB4 VMS4 VMV4
TTL:;
if(!(type_of((V28))==t_symbol)){
goto T80;}
{object V29 = Ct;
VMR4(V29)}
T80:;
if(!(type_of((V28))==t_cons)){
goto T83;}
base[1]= (V28);
vs_top=(vs_base=base+1)+1;
Llast();
vs_top=sup;
V30= vs_base[0];
if((cdr(V30))!=Cnil){
goto T83;}
{object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil);
VMR4(V31)}
T83:;
base[1]= VV[21];
base[2]= (V28);
vs_top=(vs_base=base+1)+2;
Lerror();
vs_top=sup;
{object V32 = vs_base[0];
VMR4(V32)}
}
/* local entry for function CHECK-DECLARATIONS */
static object LI5(V34)
register object V34;
{ VMB5 VMS5 VMV5
TTL:;
{object V35;
V35= Cnil;
if(!(type_of((V34))==t_cons)){
goto T93;}
if(!(type_of(car((V34)))==t_cons)){
goto T98;}
V35= car((V34));
goto T96;
T98:;
V35= list(2,car((V34)),Cnil);
T96:;
if(type_of(car((V35)))==t_symbol){
goto T100;}
base[0]= VV[22];
base[1]= car((V35));
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T100:;
if((cddr((V35)))==Cnil){
goto T105;}
base[0]= VV[23];
base[1]= (V35);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T105:;
V37= car((V35));
V38= (*(LnkLI104))();
{register object x= /* INLINE-ARGS */V37,V36= /* INLINE-ARGS */V38;
while(!endp(V36))
if(type_of(V36->c.c_car)==t_cons &&eql(x,V36->c.c_car->c.c_car)){
goto T112;
}else V36=V36->c.c_cdr;
goto T111;}
T112:;
base[0]= VV[24];
base[1]= car((V35));
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
{object V39 = vs_base[0];
VMR5(V39)}
T111:;
{object V40 = Cnil;
VMR5(V40)}
T93:;
{object V41 = Cnil;
VMR5(V41)}}
}
/* local entry for function CHECK-TRACE-ARGS */
static object LI6(V45,V46,V47)
register object V45;register object V46;register object V47;
{ VMB6 VMS6 VMV6
TTL:;
if(((V46))==Cnil){
goto T116;}
if((cdr((V46)))!=Cnil){
goto T119;}
base[0]= VV[25];
base[1]= (V45);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
{object V48 = vs_base[0];
VMR6(V48)}
T119:;
{register object x= car((V46)),V49= (V47);
while(!endp(V49))
if(eql(x,V49->c.c_car)){
goto T125;
}else V49=V49->c.c_cdr;
goto T124;}
T125:;
base[0]= VV[26];
base[1]= car((V46));
base[2]= (V45);
vs_top=(vs_base=base+0)+3;
Lerror();
vs_top=sup;
{object V50 = vs_base[0];
VMR6(V50)}
T124:;
{object V51= car((V46));
if((V51!= VV[100])
&& (V51!= VV[102])
&& (V51!= VV[98])
&& (V51!= VV[99])
&& (V51!= VV[101]))goto T129;
{object V52;
V52= cddr((V46));
V47= make_cons(car((V46)),(V47));
V46= (V52);}
goto TTL;
T129:;
if((V51!= VV[28]))goto T134;
{object V53= cadr((V46));
if(!(type_of(V53)==t_fixnum||type_of(V53)==t_bignum)){
goto T136;}}
if(number_compare(cadr((V46)),small_fixnum(0))>0){
goto T135;}
T136:;
base[0]= VV[27];
base[1]= cadr((V46));
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T135:;
V46= cddr((V46));
V47= make_cons(VV[28],(V47));
goto TTL;
T134:;
if((V51!= VV[29]))goto T146;
(void)((*(LnkLI105))(cadr((V46))));
V46= cddr((V46));
V47= make_cons(VV[29],(V47));
goto TTL;
T146:;
base[0]= VV[30];
base[1]= (V45);
base[2]= car((V46));
vs_top=(vs_base=base+0)+3;
Lerror();
vs_top=sup;
{object V54 = vs_base[0];
VMR6(V54)}}
T116:;
{object V55 = Cnil;
VMR6(V55)}
}
/* local entry for function TRACE-ONE */
static object LI7(V57)
register object V57;
{ VMB7 VMS7 VMV7
TTL:;
{object V58;
object V59;
V58= Cnil;
if(!(type_of((V57))==t_cons)){
goto T158;}
V59= car((V57));
goto T156;
T158:;
V59= (V57);
T156:;
base[0]= (V59);
vs_top=(vs_base=base+0)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T160;}
base[0]= symbol_value(VV[31]);
base[1]= VV[32];
base[2]= (V59);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
{object V60 = Cnil;
VMR7(V60)}
T160:;
base[0]= (V59);
vs_top=(vs_base=base+0)+1;
Lspecial_form_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T168;}
base[0]= symbol_value(VV[31]);
base[1]= VV[33];
base[2]= (V59);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
{object V61 = Cnil;
VMR7(V61)}
T168:;
base[0]= (V59);
vs_top=(vs_base=base+0)+1;
Lmacro_function();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T176;}
base[0]= symbol_value(VV[31]);
base[1]= VV[34];
base[2]= (V59);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
{object V62 = Cnil;
VMR7(V62)}
T176:;
if((get((V59),VV[35],Cnil))==Cnil){
goto T184;}
(void)((*(LnkLI106))((V59)));
T184:;
(void)((*(LnkLI107))((V57)));
V57= (*(LnkLI108))((V57));
vs_base=vs_top;
Lgensym();
vs_top=sup;
V58= vs_base[0];
base[0]= (V58);
base[2]= (V59);
vs_top=(vs_base=base+2)+1;
Lsymbol_function();
vs_top=sup;
base[1]= vs_base[0];
vs_top=(vs_base=base+0)+2;
siLfset();
vs_top=sup;
base[0]= list(4,VV[36],(V59),VV[37],listA(4,VV[38],list(2,VV[7],(V58)),VV[39],cddr((V57))));
vs_top=(vs_base=base+0)+1;
Leval();
vs_top=sup;
(void)(putprop((V59),(V58),VV[35]));
V63= make_cons((V59),cadr((V57)));
setq(VV[40],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[40])));
{object V64 = make_cons((V59),Cnil);
VMR7(V64)}}
}
/* local entry for function RESET-TRACE-DECLARATIONS */
static object LI8(V66)
register object V66;
{ VMB8 VMS8 VMV8
TTL:;
if(((V66))==Cnil){
goto T201;}
base[0]= caar((V66));
base[1]= cdar((V66));
vs_top=(vs_base=base+0)+2;
Lset();
vs_top=sup;
V66= cdr((V66));
goto TTL;
T201:;
{object V67 = Cnil;
VMR8(V67)}
}
/* local entry for function ALL-TRACE-DECLARATIONS */
static object LI9()
{ VMB9 VMS9 VMV9
TTL:;
{object V68;
V68= Cnil;
{object V69;
object V70;
V69= symbol_value(VV[40]);
V70= car((V69));
T213:;
if(!(endp((V69)))){
goto T214;}
goto T209;
T214:;
V68= append((V68),cdr((V70)));
V69= cdr((V69));
V70= car((V69));
goto T213;}
T209:;
{object V71 = (V68);
VMR9(V71)}}
}
/* function definition for TRACE-CALL */
static L10()
{register object *base=vs_base;
register object *sup=base+VM10; VC10
vs_reserve(VM10);
bds_check;
{object V72;
register object V73;
object V74;
object V75;
object V76;
object V77;
object V78;
check_arg(7);
V72=(base[0]);
V73=(base[1]);
V74=(base[2]);
V75=(base[3]);
V76=(base[4]);
V77=(base[5]);
V78=(base[6]);
vs_top=sup;
TTL:;
{object V79;
object V80;
bds_bind(VV[41],symbol_value(VV[41]));
V79= Cnil;
V80= Cnil;
if(!(number_compare((VV[41]->s.s_dbind),small_fixnum(0))==0)){
goto T227;}
V81= (*(LnkLI104))();
(void)((*(LnkLI109))(/* INLINE-ARGS */V81));
T227:;
V82= list(2,VV[13],list(2,VV[7],(V73)));
base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74));
vs_top=(vs_base=base+8)+1;
Leval();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T231;}
(VV[41]->s.s_dbind)= one_plus((VV[41]->s.s_dbind));
V83= number_times((VV[41]->s.s_dbind),small_fixnum(2));
V80= (number_compare(/* INLINE-ARGS */V83,small_fixnum(20))<=0?(/* INLINE-ARGS */V83):small_fixnum(20));
base[8]= symbol_value(VV[31]);
vs_top=(vs_base=base+8)+1;
Lfresh_line();
vs_top=sup;
if(((V75))==(Ct)){
goto T241;}
V84= list(2,VV[13],list(2,VV[7],(V73)));
base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V84,Cnil),(V75));
vs_top=(vs_base=base+8)+1;
Leval();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T240;}
T241:;
base[8]= symbol_value(VV[31]);
base[9]= VV[42];
base[10]= (V80);
base[11]= (VV[41]->s.s_dbind);
vs_top=(vs_base=base+8)+4;
Lformat();
vs_top=sup;
base[8]= symbol_value(VV[31]);
base[9]= VV[43];
V85= list(2,VV[13],list(2,VV[7],(V73)));
base[11]= list(3,VV[1],make_cons(/* INLINE-ARGS */V85,Cnil),(V76));
vs_top=(vs_base=base+11)+1;
Leval();
vs_top=sup;
base[10]= vs_base[0];
vs_top=(vs_base=base+8)+3;
Lformat();
vs_top=sup;
base[8]= symbol_value(VV[31]);
vs_top=(vs_base=base+8)+1;
Lfresh_line();
vs_top=sup;
T240:;
base[8]= (V72);
{object V86;
V86= (V73);
vs_top=base+9;
while(!endp(V86))
{vs_push(car(V86));V86=cdr(V86);}
vs_base=base+9;}
super_funcall_no_event(base[8]);
Llist();
vs_top=sup;
V79= vs_base[0];
if(((V77))==(Ct)){
goto T263;}
V87= list(2,VV[13],list(2,VV[7],(V73)));
base[8]= list(3,VV[1],list(2,/* INLINE-ARGS */V87,list(2,VV[14],list(2,VV[7],(V79)))),(V77));
vs_top=(vs_base=base+8)+1;
Leval();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T262;}
T263:;
base[8]= symbol_value(VV[31]);
base[9]= VV[44];
base[10]= (V80);
base[11]= (VV[41]->s.s_dbind);
vs_top=(vs_base=base+8)+4;
Lformat();
vs_top=sup;
base[8]= symbol_value(VV[31]);
base[9]= VV[45];
V88= list(2,VV[13],list(2,VV[7],(V73)));
base[11]= list(3,VV[1],list(2,/* INLINE-ARGS */V88,list(2,VV[14],list(2,VV[7],(V79)))),(V78));
vs_top=(vs_base=base+11)+1;
Leval();
vs_top=sup;
base[10]= vs_base[0];
vs_top=(vs_base=base+8)+3;
Lformat();
vs_top=sup;
T262:;
(VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind));
base[8]= (V79);
vs_top=(vs_base=base+8)+1;
Lvalues_list();
bds_unwind1;
return;
T231:;
base[8]= (V72);
{object V89;
V89= (V73);
vs_top=base+9;
while(!endp(V89))
{vs_push(car(V89));V89=cdr(V89);}
vs_base=base+9;}
super_funcall_no_event(base[8]);
bds_unwind1;
return;}
}
}
/* local entry for function UNTRACE-ONE */
static object LI12(V91)
object V91;
{ VMB11 VMS11 VMV11
TTL:;
{object V92;
base[0]=MMcons((V91),Cnil);
V92= Cnil;
V92= get((base[0]->c.c_car),VV[35],Cnil);
if(((V92))==Cnil){
goto T284;}
(void)(remprop((base[0]->c.c_car),VV[35]));
base[1]= (base[0]->c.c_car);
vs_top=(vs_base=base+1)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T290;}
base[1]= symbol_value(VV[31]);
base[2]= VV[46];
base[3]= (base[0]->c.c_car);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
goto T288;
T290:;
base[1]= (base[0]->c.c_car);
vs_top=(vs_base=base+1)+1;
Lsymbol_function();
vs_top=sup;
V93= vs_base[0];
if(!(type_of(V93)==t_cons)){
goto T297;}
base[1]= (base[0]->c.c_car);
vs_top=(vs_base=base+1)+1;
Lsymbol_function();
vs_top=sup;
V94= vs_base[0];
if(!(type_of(cadddr(V94))==t_cons)){
goto T297;}
base[1]= (base[0]->c.c_car);
vs_top=(vs_base=base+1)+1;
Lsymbol_function();
vs_top=sup;
V95= vs_base[0];
if(!((car(cadddr(V95)))==(VV[38]))){
goto T297;}
base[1]= (base[0]->c.c_car);
base[3]= (V92);
vs_top=(vs_base=base+3)+1;
Lsymbol_function();
vs_top=sup;
base[2]= vs_base[0];
vs_top=(vs_base=base+1)+2;
siLfset();
vs_top=sup;
goto T288;
T297:;
base[1]= symbol_value(VV[31]);
base[2]= VV[47];
base[3]= (base[0]->c.c_car);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
T288:;
V96=
make_cclosure_new(LC17,Cnil,base[0],Cdata);
setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1))));
{object V97 = make_cons((base[0]->c.c_car),Cnil);
VMR11(V97)}
T284:;
base[1]= symbol_value(VV[31]);
base[2]= VV[49];
base[3]= (base[0]->c.c_car);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
{object V98 = Cnil;
VMR11(V98)}}
}
/* local entry for function STEP-READ-LINE */
static object LI13()
{ VMB12 VMS12 VMV12
TTL:;
{object V99;
base[0]= symbol_value(VV[50]);
vs_top=(vs_base=base+0)+1;
Lread_char();
vs_top=sup;
V99= vs_base[0];
T325:;
base[0]= (V99);
base[1]= VV[51];
vs_top=(vs_base=base+0)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T327;}
base[0]= (V99);
base[1]= VV[52];
vs_top=(vs_base=base+0)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T326;}
T327:;
{object V100 = Cnil;
VMR12(V100)}
T326:;
base[0]= symbol_value(VV[50]);
vs_top=(vs_base=base+0)+1;
Lread_char();
vs_top=sup;
V99= vs_base[0];
goto T325;}
}
/* macro definition for IF-ERROR */
static L14()
{register object *base=vs_base;
register object *sup=base+VM13; VC13
vs_reserve(VM13);
check_arg(2);
vs_top=sup;
{object V101=base[0]->c.c_cdr;
if(endp(V101))invalid_macro_call();
base[2]= (V101->c.c_car);
V101=V101->c.c_cdr;
if(endp(V101))invalid_macro_call();
base[3]= (V101->c.c_car);
V101=V101->c.c_cdr;
if(!endp(V101))invalid_macro_call();}
{object V102;
object V103;
object V104;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V102= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V103= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V104= vs_base[0];
V105= list(2,(V102),(V103));
V106= list(5,VV[18],(V102),base[3],(V103),Ct);
base[4]= list(3,VV[1],/* INLINE-ARGS */V105,list(3,VV[53],(V104),list(3,VV[3],/* INLINE-ARGS */V106,list(3,VV[54],(V104),list(4,VV[16],(V103),(V102),base[2])))));
vs_top=(vs_base=base+4)+1;
return;}
}
/* macro definition for STEP */
static L15()
{register object *base=vs_base;
register object *sup=base+VM14; VC14
vs_reserve(VM14);
check_arg(2);
vs_top=sup;
{object V107=base[0]->c.c_cdr;
if(endp(V107))invalid_macro_call();
base[2]= (V107->c.c_car);
V107=V107->c.c_cdr;
if(!endp(V107))invalid_macro_call();}
base[3]= list(6,VV[55],VV[56],VV[57],VV[58],VV[59],list(3,VV[60],list(2,VV[7],base[2]),Cnil));
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for STEPPER */
static L16()
{register object *base=vs_base;
register object *sup=base+VM15; VC15
vs_reserve(VM15);
bds_check;
{register object V108;
register object V109;
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
V108=(base[0]);
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T343;}
V109=(base[1]);
vs_top=sup;
goto T344;
T343:;
V109= Cnil;
T344:;
{object V110;
object V111;
V110= Cnil;
bds_bind(VV[61],symbol_value(VV[61]));
V111= Cnil;
if(!((symbol_value(VV[62]))==(Ct))){
goto T348;}
base[3]= (V108);
base[4]= Cnil;
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
bds_unwind1;
return;
T348:;
if(!(type_of(symbol_value(VV[62]))==t_fixnum||
type_of(symbol_value(VV[62]))==t_bignum||
type_of(symbol_value(VV[62]))==t_ratio||
type_of(symbol_value(VV[62]))==t_shortfloat||
type_of(symbol_value(VV[62]))==t_longfloat||
type_of(symbol_value(VV[62]))==t_complex)){
goto T355;}
V112= one_plus((VV[61]->s.s_dbind));
if(!(number_compare(/* INLINE-ARGS */V112,symbol_value(VV[62]))>=0)){
goto T359;}
base[3]= (V108);
base[4]= Cnil;
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
bds_unwind1;
return;
T359:;
setq(VV[62],Cnil);
T355:;
if((symbol_value(VV[63]))==Cnil){
goto T366;}
if(!(type_of((V108))==t_cons)){
goto T370;}
if(!((car((V108)))==(symbol_value(VV[63])))){
goto T370;}
bds_bind(VV[63],Cnil);
base[4]= (V108);
base[5]= (V109);
vs_top=(vs_base=base+4)+2;
(void) (*Lnk60)();
bds_unwind1;
bds_unwind1;
return;
T370:;
base[3]= (V108);
base[4]= symbol_function(VV[60]);
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
bds_unwind1;
return;
T366:;
(VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind));
V113= number_times((VV[61]->s.s_dbind),small_fixnum(2));
V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20));
T386:;
base[3]= symbol_value(VV[50]);
base[4]= VV[64];
base[5]= (V111);
base[6]= (V108);
vs_top=(vs_base=base+3)+4;
Lformat();
vs_top=sup;
base[3]= symbol_value(VV[50]);
vs_top=(vs_base=base+3)+1;
Lfinish_output();
vs_top=sup;
{object V116;
base[3]= symbol_value(VV[50]);
vs_top=(vs_base=base+3)+1;
Lread_char();
vs_top=sup;
V116= vs_base[0];
T399:;
base[3]= (V116);
base[4]= VV[65];
vs_top=(vs_base=base+3)+2;
Lchar_neq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T400;}
base[3]= (V116);
base[4]= VV[66];
vs_top=(vs_base=base+3)+2;
Lchar_neq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T400;}
V115= (V116);
goto T395;
T400:;
base[3]= symbol_value(VV[50]);
vs_top=(vs_base=base+3)+1;
Lread_char();
vs_top=sup;
V116= vs_base[0];
goto T399;}
T395:;
{object V114= V115;
if(!eql(V114,VV[51])
&& !eql(V114,VV[52]))goto T414;
base[3]= (V108);
base[4]= symbol_function(VV[60]);
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
Llist();
vs_top=sup;
V110= vs_base[0];
goto T384;
T414:;
if(!eql(V114,VV[67])
&& !eql(V114,VV[68]))goto T422;
(void)((*(LnkLI111))());
base[3]= (V108);
base[4]= symbol_function(VV[60]);
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
Llist();
vs_top=sup;
V110= vs_base[0];
goto T384;
T422:;
if(!eql(V114,VV[69])
&& !eql(V114,VV[70]))goto T431;
(void)((*(LnkLI111))());
base[3]= (V108);
base[4]= Cnil;
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
Llist();
vs_top=sup;
V110= vs_base[0];
goto T384;
T431:;
if(!eql(V114,VV[71])
&& !eql(V114,VV[72]))goto T440;
(void)((*(LnkLI111))());
base[3]= (V108);
base[4]= VV[73];
base[5]= symbol_value(VV[50]);
base[6]= VV[74];
base[7]= Ct;
base[8]= VV[75];
base[9]= Cnil;
base[10]= VV[76];
base[11]= Cnil;
vs_top=(vs_base=base+3)+9;
Lwrite();
vs_top=sup;
princ_char(10,Cnil);
goto T387;
T440:;
if(!eql(V114,VV[77])
&& !eql(V114,VV[78]))goto T452;
base[4]= Cnil;
base[5]= Cnil;
{object tag;frame_ptr fr;object p;bool active;
frs_push(FRS_PROTECT,Cnil);
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
else{
{object V117;
base[7]= symbol_value(VV[50]);
vs_top=(vs_base=base+7)+1;
(void) (*Lnk112)();
vs_top=sup;
V117= vs_base[0];
(void)((*(LnkLI111))());
base[4]= (V117);}
base[5]= Ct;
base[7]= Ct;
vs_top=(vs_base=base+7)+1;
active=FALSE;}
base[6]=Cnil;
while(vs_base<vs_top)
{base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
vs_top=sup;
nlj_active=FALSE;frs_pop();
if((base[5])==Cnil){
goto T463;}
base[3]= base[4];
goto T453;
T463:;
base[3]= Cnil;
goto T453;
vs_base=vs_top=base+7;
for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
if(active)unwind(fr,tag);else{
vs_top=sup;
base[3]= vs_base[0];}}
T453:;
bds_bind(VV[63],base[3]);
base[4]= (V108);
base[5]= symbol_function(VV[60]);
base[6]= Cnil;
base[7]= (V109);
vs_top=(vs_base=base+4)+4;
Levalhook();
Llist();
vs_top=sup;
V110= vs_base[0];
bds_unwind1;
goto T384;
T452:;
if(!eql(V114,VV[79])
&& !eql(V114,VV[80]))goto T472;
(void)((*(LnkLI111))());
setq(VV[62],Ct);
base[3]= (V108);
base[4]= Cnil;
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
Llist();
vs_top=sup;
V110= vs_base[0];
goto T384;
T472:;
if(!eql(V114,VV[81])
&& !eql(V114,VV[82]))goto T483;
(void)((*(LnkLI111))());
setq(VV[62],(VV[61]->s.s_dbind));
base[3]= (V108);
base[4]= Cnil;
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
Llist();
vs_top=sup;
V110= vs_base[0];
goto T384;
T483:;
if(!eql(V114,VV[83])
&& !eql(V114,VV[84]))goto T494;
{object V118;
object V119;
base[4]= Cnil;
base[5]= Cnil;
{object tag;frame_ptr fr;object p;bool active;
frs_push(FRS_PROTECT,Cnil);
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
else{
base[8]= Cnil;
base[9]= Cnil;
{object tag;frame_ptr fr;object p;bool active;
frs_push(FRS_PROTECT,Cnil);
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
else{
{object V120;
base[11]= symbol_value(VV[50]);
vs_top=(vs_base=base+11)+1;
(void) (*Lnk112)();
vs_top=sup;
V120= vs_base[0];
(void)((*(LnkLI111))());
base[8]= (V120);}
base[9]= Ct;
base[11]= Ct;
vs_top=(vs_base=base+11)+1;
active=FALSE;}
base[10]=Cnil;
while(vs_base<vs_top)
{base[10]=MMcons(vs_top[-1],base[10]);vs_top--;}
vs_top=sup;
nlj_active=FALSE;frs_pop();
if((base[9])==Cnil){
goto T510;}
base[7]= base[8];
goto T500;
T510:;
base[7]= Cnil;
goto T500;
vs_base=vs_top=base+11;
for(p= base[10];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
if(active)unwind(fr,tag);else{
vs_top=sup;
base[7]= vs_base[0];}}
T500:;
base[8]= Cnil;
base[9]= Cnil;
base[10]= V109;
vs_top=(vs_base=base+7)+4;
Levalhook();
Llist();
vs_top=sup;
base[4]= vs_base[0];
base[5]= Ct;
base[7]= Ct;
vs_top=(vs_base=base+7)+1;
active=FALSE;}
base[6]=Cnil;
while(vs_base<vs_top)
{base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
vs_top=sup;
nlj_active=FALSE;frs_pop();
if((base[5])==Cnil){
goto T518;}
V118= base[4];
goto T495;
T518:;
V118= Cnil;
goto T495;
vs_base=vs_top=base+7;
for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
if(active)unwind(fr,tag);else{
vs_top=sup;
V118= vs_base[0];}}
T495:;
V119= car((V118));
T522:;
if(!(endp((V118)))){
goto T523;}
goto T387;
T523:;
base[4]= (V119);
base[5]= VV[73];
base[6]= symbol_value(VV[50]);
base[7]= VV[75];
base[8]= symbol_value(VV[85]);
base[9]= VV[76];
base[10]= symbol_value(VV[86]);
vs_top=(vs_base=base+4)+7;
Lwrite();
vs_top=sup;
princ_char(10,VV[50]);
V118= cdr((V118));
V119= car((V118));
goto T522;}
T494:;
if(!eql(V114,VV[87])
&& !eql(V114,VV[88]))goto T541;
base[4]= Cnil;
base[5]= Cnil;
{object tag;frame_ptr fr;object p;bool active;
frs_push(FRS_PROTECT,Cnil);
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
else{
base[8]= Cnil;
base[9]= Cnil;
{object tag;frame_ptr fr;object p;bool active;
frs_push(FRS_PROTECT,Cnil);
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
else{
{object V121;
base[11]= symbol_value(VV[50]);
vs_top=(vs_base=base+11)+1;
(void) (*Lnk112)();
vs_top=sup;
V121= vs_base[0];
(void)((*(LnkLI111))());
base[8]= (V121);}
base[9]= Ct;
base[11]= Ct;
vs_top=(vs_base=base+11)+1;
active=FALSE;}
base[10]=Cnil;
while(vs_base<vs_top)
{base[10]=MMcons(vs_top[-1],base[10]);vs_top--;}
vs_top=sup;
nlj_active=FALSE;frs_pop();
if((base[9])==Cnil){
goto T558;}
base[7]= base[8];
goto T548;
T558:;
base[7]= Cnil;
goto T548;
vs_base=vs_top=base+11;
for(p= base[10];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
if(active)unwind(fr,tag);else{
vs_top=sup;
base[7]= vs_base[0];}}
T548:;
base[8]= Cnil;
base[9]= Cnil;
base[10]= V109;
vs_top=(vs_base=base+7)+4;
Levalhook();
Llist();
vs_top=sup;
base[4]= vs_base[0];
base[5]= Ct;
base[7]= Ct;
vs_top=(vs_base=base+7)+1;
active=FALSE;}
base[6]=Cnil;
while(vs_base<vs_top)
{base[6]=MMcons(vs_top[-1],base[6]);vs_top--;}
vs_top=sup;
nlj_active=FALSE;frs_pop();
if((base[5])==Cnil){
goto T566;}
V110= base[4];
goto T543;
T566:;
V110= Cnil;
goto T543;
vs_base=vs_top=base+7;
for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
if(active)unwind(fr,tag);else{
vs_top=sup;
V110= vs_base[0];}}
T543:;
goto T384;
T541:;
if(!eql(V114,VV[89])
&& !eql(V114,VV[90]))goto T568;
(void)((*(LnkLI111))());
base[3]= one_plus(symbol_value(VV[92]));
vs_base=vs_top;
(void) (*Lnk113)();
vs_top=sup;
V122= vs_base[0];
base[4]= one_minus(V122);
base[5]= symbol_value(VV[92]);
bds_bind(VV[91],base[3]);
bds_bind(VV[92],base[4]);
bds_bind(VV[93],base[5]);
vs_base=vs_top;
(void) (*Lnk114)();
vs_top=sup;
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T387;
T568:;
(void)((*(LnkLI111))());
princ_char(10,Cnil);
base[3]= symbol_value(VV[50]);
base[4]= VV[94];
vs_top=(vs_base=base+3)+2;
Lformat();
vs_top=sup;
princ_char(10,Cnil);}
T387:;
goto T386;
T384:;
base[3]= (V108);
vs_top=(vs_base=base+3)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T581;}
if(!(type_of((V108))==t_cons)){
goto T580;}
if(!((car((V108)))==(VV[7]))){
goto T580;}
T581:;
base[3]= car((V110));
vs_top=(vs_base=base+3)+1;
bds_unwind1;
return;
T580:;
if(!(endp((V110)))){
goto T590;}
base[3]= symbol_value(VV[50]);
base[4]= VV[95];
base[5]= (V111);
vs_top=(vs_base=base+3)+3;
Lformat();
vs_top=sup;
goto T588;
T590:;
{object V123;
object V124;
V123= (V110);
V124= Ct;
T598:;
if(!(endp((V123)))){
goto T599;}
goto T588;
T599:;
if(((V124))==Cnil){
goto T605;}
base[3]= symbol_value(VV[50]);
base[4]= VV[96];
base[5]= (V111);
base[6]= car((V123));
vs_top=(vs_base=base+3)+4;
Lformat();
vs_top=sup;
goto T603;
T605:;
base[3]= symbol_value(VV[50]);
base[4]= VV[97];
base[5]= (V111);
base[6]= car((V123));
vs_top=(vs_base=base+3)+4;
Lformat();
vs_top=sup;
T603:;
V123= cdr((V123));
V124= Cnil;
goto T598;}
T588:;
(VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1));
base[3]= (V110);
vs_top=(vs_base=base+3)+1;
Lvalues_list();
bds_unwind1;
return;}
}
}
/* local function CLOSURE */
static LC17(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM16; VC16
vs_reserve(VM16);
{object V125;
check_arg(1);
V125=(base[0]);
vs_top=sup;
base[1]= ((car((V125)))==((base0[0]->c.c_car))?Ct:Cnil);
vs_top=(vs_base=base+1)+1;
return;
}
}
static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* BACKTRACE */
static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* IHS-TOP */
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* READ-PRESERVING-WHITESPACE */
static object LnkTLI111(){return call_proc0(VV[111],&LnkLI111);} /* STEP-READ-LINE */
static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* STEPPER */
static object LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[110],&LnkLI110,ap);} /* DELETE-IF */
static object LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* RESET-TRACE-DECLARATIONS */
static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* TRACE-ONE-PREPROCESS */
static object LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],&LnkLI107,1,ap);} /* CHECK-TRACE-SPEC */
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,1,ap);} /* UNTRACE-ONE */
static object LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],&LnkLI105,1,ap);} /* CHECK-DECLARATIONS */
static object LnkTLI104(){return call_proc0(VV[104],&LnkLI104);} /* ALL-TRACE-DECLARATIONS */
static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,3,ap);} /* CHECK-TRACE-ARGS */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.