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:;
{register object V5;
register object V6;
object V7;
object V8;
register object V9;
register object V10;
register object V11;
register object V12;
register object V13;
V5= cdr((V4));
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]);
V6= Cnil;
V9= Ct;
V10= Ct;
V11= Ct;
V12= Cnil;
V13= Cnil;
T16:;
if(((V5))!=Cnil){
goto T17;}
if(((V12))==Cnil){
goto T20;}
vs_base=vs_top;
Lgensym();
vs_top=sup;
V13= vs_base[0];
if(!(((V9))==(Ct))){
goto T27;}
V9= list(3,VV[15],(V13),(V12));
goto T25;
T27:;
V9= list(4,VV[16],list(3,VV[15],(V13),(V12)),(V9),Cnil);
T25:;
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));
T20:;
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)}
T17:;
{object V21= car((V5));
if((V21!= VV[29]))goto T38;
{register object V22;
register object V23;
V22= cadr((V5));
V23= Cnil;
T42:;
if(((V22))!=Cnil){
goto T43;}
V6= (V23);
goto T39;
T43:;
if(!(type_of(car((V22)))==t_symbol)){
goto T51;}
V24= make_cons(car((V22)),Cnil);
goto T49;
T51:;
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);
T49:;
V23= make_cons(V24,(V23));
V22= cdr((V22));
goto T42;}
T39:;
goto T37;
T38:;
if((V21!= VV[98]))goto T58;
V9= cadr((V5));
goto T37;
T58:;
if((V21!= VV[99]))goto T60;
V10= cadr((V5));
goto T37;
T60:;
if((V21!= VV[100]))goto T62;
V7= cadr((V5));
goto T37;
T62:;
if((V21!= VV[101]))goto T64;
V11= cadr((V5));
goto T37;
T64:;
if((V21!= VV[102]))goto T66;
V8= cadr((V5));
goto T37;
T66:;
if((V21!= VV[28]))goto T68;
V12= cadr((V5));
goto T37;
T68:;}
T37:;
V5= cddr((V5));
goto T16;}
}
/* 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 T73;}
{object V29 = Ct;
VMR4(V29)}
T73:;
if(!(type_of((V28))==t_cons)){
goto T76;}
base[0]= (V28);
vs_top=(vs_base=base+0)+1;
Llast();
vs_top=sup;
V30= vs_base[0];
if((cdr(V30))!=Cnil){
goto T76;}
{object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil);
VMR4(V31)}
T76:;
base[0]= VV[21];
base[1]= (V28);
vs_top=(vs_base=base+0)+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:;
{register object V35;
V35= Cnil;
if(!(type_of((V34))==t_cons)){
goto T86;}
if(!(type_of(car((V34)))==t_cons)){
goto T91;}
V35= car((V34));
goto T89;
T91:;
V35= list(2,car((V34)),Cnil);
T89:;
if(type_of(car((V35)))==t_symbol){
goto T93;}
base[0]= VV[22];
base[1]= car((V35));
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T93:;
if((cddr((V35)))==Cnil){
goto T98;}
base[0]= VV[23];
base[1]= (V35);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T98:;
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 T105;
}else V36=V36->c.c_cdr;
goto T104;}
T105:;
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)}
T104:;
{object V40 = Cnil;
VMR5(V40)}
T86:;
{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 T109;}
if((cdr((V46)))!=Cnil){
goto T112;}
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)}
T112:;
{register object x= car((V46)),V49= (V47);
while(!endp(V49))
if(eql(x,V49->c.c_car)){
goto T118;
}else V49=V49->c.c_cdr;
goto T117;}
T118:;
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)}
T117:;
{object V51= car((V46));
if((V51!= VV[100])
&& (V51!= VV[102])
&& (V51!= VV[98])
&& (V51!= VV[99])
&& (V51!= VV[101]))goto T122;
{object V52;
V52= cddr((V46));
V47= make_cons(car((V46)),(V47));
V46= (V52);}
goto TTL;
T122:;
if((V51!= VV[28]))goto T127;
{object V53= cadr((V46));
if(!(type_of(V53)==t_fixnum||type_of(V53)==t_bignum)){
goto T129;}}
if(number_compare(cadr((V46)),small_fixnum(0))>0){
goto T128;}
T129:;
base[0]= VV[27];
base[1]= cadr((V46));
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T128:;
V46= cddr((V46));
V47= make_cons(VV[28],(V47));
goto TTL;
T127:;
if((V51!= VV[29]))goto T139;
(void)((*(LnkLI105))(cadr((V46))));
V46= cddr((V46));
V47= make_cons(VV[29],(V47));
goto TTL;
T139:;
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)}}
T109:;
{object V55 = Cnil;
VMR6(V55)}
}
/* local entry for function TRACE-ONE */
static object LI7(V57)
register object V57;
{ VMB7 VMS7 VMV7
TTL:;
{object V58;
register object V59;
V58= Cnil;
if(!(type_of((V57))==t_cons)){
goto T151;}
V59= car((V57));
goto T149;
T151:;
V59= (V57);
T149:;
base[1]= (V59);
vs_top=(vs_base=base+1)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T153;}
base[1]= symbol_value(VV[31]);
base[2]= VV[32];
base[3]= (V59);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
{object V60 = Cnil;
VMR7(V60)}
T153:;
base[1]= (V59);
vs_top=(vs_base=base+1)+1;
Lspecial_form_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T161;}
base[1]= symbol_value(VV[31]);
base[2]= VV[33];
base[3]= (V59);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
{object V61 = Cnil;
VMR7(V61)}
T161:;
base[1]= (V59);
vs_top=(vs_base=base+1)+1;
Lmacro_function();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T169;}
base[1]= symbol_value(VV[31]);
base[2]= VV[34];
base[3]= (V59);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
{object V62 = Cnil;
VMR7(V62)}
T169:;
if((get((V59),VV[35],Cnil))==Cnil){
goto T177;}
(void)((*(LnkLI106))((V59)));
T177:;
(void)((*(LnkLI107))((V57)));
V57= (*(LnkLI108))((V57));
vs_base=vs_top;
Lgensym();
vs_top=sup;
V58= vs_base[0];
base[1]= (V58);
base[3]= (V59);
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;
base[1]= 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+1)+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 T194;}
base[0]= caar((V66));
base[1]= cdar((V66));
vs_top=(vs_base=base+0)+2;
Lset();
vs_top=sup;
V66= cdr((V66));
goto TTL;
T194:;
{object V67 = Cnil;
VMR8(V67)}
}
/* local entry for function ALL-TRACE-DECLARATIONS */
static object LI9()
{ VMB9 VMS9 VMV9
TTL:;
{register object V68;
V68= Cnil;
{register object V69;
register object V70;
V69= symbol_value(VV[40]);
V70= car((V69));
T206:;
if(!(endp((V69)))){
goto T207;}
goto T202;
T207:;
V68= append((V68),cdr((V70)));
V69= cdr((V69));
V70= car((V69));
goto T206;}
T202:;
{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:;
{register 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 T220;}
V81= (*(LnkLI104))();
(void)((*(LnkLI109))(/* INLINE-ARGS */V81));
T220:;
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 T224;}
(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 T234;}
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 T233;}
T234:;
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;
T233:;
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 T256;}
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 T255;}
T256:;
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;
T255:;
(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;
T224:;
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 T277;}
(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 T283;}
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 T281;
T283:;
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 T290;}
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 T290;}
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 T290;}
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 T281;
T290:;
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;
T281:;
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)}
T277:;
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:;
{register object V99;
base[0]= symbol_value(VV[50]);
vs_top=(vs_base=base+0)+1;
Lread_char();
vs_top=sup;
V99= vs_base[0];
T318:;
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 T320;}
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 T319;}
T320:;
{object V100 = Cnil;
VMR12(V100)}
T319:;
base[0]= symbol_value(VV[50]);
vs_top=(vs_base=base+0)+1;
Lread_char();
vs_top=sup;
V99= vs_base[0];
goto T318;}
}
/* 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 *VOL base=vs_base;
register object *VOL sup=base+VM15; VC15
vs_reserve(VM15);
bds_check;
{VOL object V108;
VOL 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 T336;}
V109=(base[1]);
vs_top=sup;
goto T337;
T336:;
V109= Cnil;
T337:;
{VOL object V110;
VOL object V111;
V110= Cnil;
bds_bind(VV[61],symbol_value(VV[61]));
V111= Cnil;
if(!((symbol_value(VV[62]))==(Ct))){
goto T341;}
base[3]= (V108);
base[4]= Cnil;
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
bds_unwind1;
return;
T341:;
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 T348;}
V112= one_plus((VV[61]->s.s_dbind));
if(!(number_compare(/* INLINE-ARGS */V112,symbol_value(VV[62]))>=0)){
goto T352;}
base[3]= (V108);
base[4]= Cnil;
base[5]= Cnil;
base[6]= (V109);
vs_top=(vs_base=base+3)+4;
Levalhook();
bds_unwind1;
return;
T352:;
setq(VV[62],Cnil);
T348:;
if((symbol_value(VV[63]))==Cnil){
goto T359;}
if(!(type_of((V108))==t_cons)){
goto T363;}
if(!((car((V108)))==(symbol_value(VV[63])))){
goto T363;}
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;
T363:;
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;
T359:;
(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));
T379:;
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;
{register object V116;
base[3]= symbol_value(VV[50]);
vs_top=(vs_base=base+3)+1;
Lread_char();
vs_top=sup;
V116= vs_base[0];
T392:;
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 T393;}
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 T393;}
V115= (V116);
goto T388;
T393:;
base[3]= symbol_value(VV[50]);
vs_top=(vs_base=base+3)+1;
Lread_char();
vs_top=sup;
V116= vs_base[0];
goto T392;}
T388:;
{object V114= V115;
if(!eql(V114,VV[51])
&& !eql(V114,VV[52]))goto T407;
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 T377;
T407:;
if(!eql(V114,VV[67])
&& !eql(V114,VV[68]))goto T415;
(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 T377;
T415:;
if(!eql(V114,VV[69])
&& !eql(V114,VV[70]))goto T424;
(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 T377;
T424:;
if(!eql(V114,VV[71])
&& !eql(V114,VV[72]))goto T433;
(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 T380;
T433:;
if(!eql(V114,VV[77])
&& !eql(V114,VV[78]))goto T445;
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 T456;}
base[3]= base[4];
goto T446;
T456:;
base[3]= Cnil;
goto T446;
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];}}
T446:;
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 T377;
T445:;
if(!eql(V114,VV[79])
&& !eql(V114,VV[80]))goto T465;
(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 T377;
T465:;
if(!eql(V114,VV[81])
&& !eql(V114,VV[82]))goto T476;
(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 T377;
T476:;
if(!eql(V114,VV[83])
&& !eql(V114,VV[84]))goto T487;
base[3]= (V109);
{VOL object V118;
VOL object V119;
base[6]= Cnil;
base[7]= 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[10]= Cnil;
base[11]= 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[13]= symbol_value(VV[50]);
vs_top=(vs_base=base+13)+1;
(void) (*Lnk112)();
vs_top=sup;
V120= vs_base[0];
(void)((*(LnkLI111))());
base[10]= (V120);}
base[11]= Ct;
base[13]= Ct;
vs_top=(vs_base=base+13)+1;
active=FALSE;}
base[12]=Cnil;
while(vs_base<vs_top)
{base[12]=MMcons(vs_top[-1],base[12]);vs_top--;}
vs_top=sup;
nlj_active=FALSE;frs_pop();
if((base[11])==Cnil){
goto T503;}
base[9]= base[10];
goto T493;
T503:;
base[9]= Cnil;
goto T493;
vs_base=vs_top=base+13;
for(p= base[12];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
if(active)unwind(fr,tag);else{
vs_top=sup;
base[9]= vs_base[0];}}
T493:;
base[10]= Cnil;
base[11]= Cnil;
base[12]= base[3];
vs_top=(vs_base=base+9)+4;
Levalhook();
Llist();
vs_top=sup;
base[6]= vs_base[0];
base[7]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+9)+1;
active=FALSE;}
base[8]=Cnil;
while(vs_base<vs_top)
{base[8]=MMcons(vs_top[-1],base[8]);vs_top--;}
vs_top=sup;
nlj_active=FALSE;frs_pop();
if((base[7])==Cnil){
goto T511;}
V118= base[6];
goto T488;
T511:;
V118= Cnil;
goto T488;
vs_base=vs_top=base+9;
for(p= base[8];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
if(active)unwind(fr,tag);else{
vs_top=sup;
V118= vs_base[0];}}
T488:;
V119= car((V118));
T515:;
if(!(endp((V118)))){
goto T516;}
goto T380;
T516:;
base[6]= (V119);
base[7]= VV[73];
base[8]= symbol_value(VV[50]);
base[9]= VV[75];
base[10]= symbol_value(VV[85]);
base[11]= VV[76];
base[12]= symbol_value(VV[86]);
vs_top=(vs_base=base+6)+7;
Lwrite();
vs_top=sup;
princ_char(10,VV[50]);
V118= cdr((V118));
V119= car((V118));
goto T515;}
T487:;
if(!eql(V114,VV[87])
&& !eql(V114,VV[88]))goto T534;
base[3]= (V109);
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 T551;}
base[7]= base[8];
goto T541;
T551:;
base[7]= Cnil;
goto T541;
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];}}
T541:;
base[8]= Cnil;
base[9]= Cnil;
base[10]= base[3];
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 T559;}
V110= base[4];
goto T536;
T559:;
V110= Cnil;
goto T536;
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];}}
T536:;
goto T377;
T534:;
if(!eql(V114,VV[89])
&& !eql(V114,VV[90]))goto T561;
(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 T380;
T561:;
(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);}
T380:;
goto T379;
T377:;
base[3]= (V108);
vs_top=(vs_base=base+3)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T574;}
if(!(type_of((V108))==t_cons)){
goto T573;}
if(!((car((V108)))==(VV[7]))){
goto T573;}
T574:;
base[3]= car((V110));
vs_top=(vs_base=base+3)+1;
bds_unwind1;
return;
T573:;
if(!(endp((V110)))){
goto T583;}
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 T581;
T583:;
{object V123;
object V124;
V123= (V110);
V124= Ct;
T589:;
if(!(endp((V123)))){
goto T590;}
goto T581;
T590:;
if(((V124))==Cnil){
goto T596;}
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 T594;
T596:;
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;
T594:;
V123= cdr((V123));
V124= Cnil;
goto T589;}
T581:;
(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);} /* SIMPLE-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.