This is cmpenv.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmpenv.h"
init_cmpenv(){do_init(VV);}
/* local entry for function INIT-ENV */
static object LI1()
{ VMB1 VMS1 VMV1
TTL:;
setq(VV[0],small_fixnum(0));
setq(VV[1],small_fixnum(0));
setq(VV[2],small_fixnum(-1));
setq(VV[3],small_fixnum(0));
setq(VV[4],small_fixnum(0));
setq(VV[5],Cnil);
setq(VV[6],Cnil);
setq(VV[7],Cnil);
setq(VV[8],Cnil);
setq(VV[9],Cnil);
setq(VV[10],Cnil);
setq(VV[11],Cnil);
setq(VV[12],Cnil);
setq(VV[13],Cnil);
setq(VV[14],Cnil);
setq(VV[15],Cnil);
setq(VV[16],Cnil);
setq(VV[17],small_fixnum(0));
setq(VV[18],Cnil);
{object V1 = Cnil;
VMR1(V1)}
}
/* macro definition for NEXT-CFUN */
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;
if(!endp(V2))invalid_macro_call();}
base[2]= VV[19];
vs_top=(vs_base=base+2)+1;
return;
}
/* local entry for function ADD-SYMBOL */
static object LI3(V4)
object V4;
{ VMB3 VMS3 VMV3
TTL:;
{object V5;
{register object x= (V4),V6= symbol_value(VV[5]);
while(!endp(V6))
if(type_of(V6->c.c_car)==t_cons &&eql(x,V6->c.c_car->c.c_car)){
V5= (V6->c.c_car);
goto T38;
}else V6=V6->c.c_cdr;
V5= Cnil;}
T38:;
if(((V5))==Cnil){
goto T40;}
{object V7 = cadr((V5));
VMR3(V7)}
T40:;
(void)((*(LnkLI112))((V4)));
V8= list(2,(V4),symbol_value(VV[2]));
setq(VV[5],make_cons(/* INLINE-ARGS */V8,symbol_value(VV[5])));
{object V9 = symbol_value(VV[2]);
VMR3(V9)}}
}
/* function definition for WT-TO-STRING */
static L4()
{register object *base=vs_base;
register object *sup=base+VM4; VC4
vs_reserve(VM4);
bds_check;
{object V10;
check_arg(1);
V10=(base[0]);
vs_top=sup;
TTL:;
vs_base=vs_top;
(void) (*Lnk113)();
vs_top=sup;
bds_bind(VV[20],vs_base[0]);
bds_bind(VV[21],Cnil);
(void)((*(LnkLI114))((V10)));
base[3]= (VV[20]->s.s_dbind);
vs_top=(vs_base=base+3)+1;
(void) (*Lnk115)();
bds_unwind1;
bds_unwind1;
return;
}
}
/* local entry for function ADD-OBJECT */
static object LI5(V12)
register object V12;
{ VMB5 VMS5 VMV5
TTL:;
{object V13;
V13= Cnil;
base[0]= (V12);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk116)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T50;}
if(!(type_of((V12))==t_cons)){
goto T55;}
if(!((car((V12)))==(VV[22]))){
goto T55;}
base[0]= cdr((V12));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk116)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T55;}
V12= cdr((V12));
goto T53;
T55:;
base[0]= (V12);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk117)();
vs_top=sup;
V14= vs_base[0];
V12= list(2,VV[23],V14);
T53:;
(void)((*(LnkLI112))(Cnil));
V15= list(2,symbol_value(VV[2]),(V12));
setq(VV[24],make_cons(/* INLINE-ARGS */V15,symbol_value(VV[24])));
{object V16 = symbol_value(VV[2]);
VMR5(V16)}
T50:;
{register object x= (V12),V17= symbol_value(VV[5]);
while(!endp(V17))
if(type_of(V17->c.c_car)==t_cons &&eql(x,V17->c.c_car->c.c_car)){
V13= (V17->c.c_car);
goto T72;
}else V17=V17->c.c_cdr;
V13= Cnil;}
T72:;
if(((V13))==Cnil){
goto T70;}
{object V18 = cadr((V13));
VMR5(V18)}
T70:;
base[0]= (V12);
base[1]= VV[25];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk118)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T74;}
(void)((*(LnkLI112))(Cnil));{object V19;
V19= symbol_value(VV[2]);
base[1]= (V12);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk119)();
vs_top=sup;
base[0]= vs_base[0];
if(base[0]==Cnil)goto T82;
V20= base[0];
goto T81;
T82:;
V20= (VFUN_NARGS=1,(*(LnkLI120))(VV[27]));
T81:;
V21= list(2,V19,list(2,VV[26],V20));
setq(VV[24],make_cons(/* INLINE-ARGS */V21,symbol_value(VV[24])));}
{object V22 = symbol_value(VV[2]);
VMR5(V22)}
T74:;
(void)((*(LnkLI112))((V12)));
V23= list(2,(V12),symbol_value(VV[2]));
setq(VV[5],make_cons(/* INLINE-ARGS */V23,symbol_value(VV[5])));
{object V24 = symbol_value(VV[2]);
VMR5(V24)}}
}
/* local entry for function ADD-CONSTANT */
static object LI6(V26)
object V26;
{ VMB6 VMS6 VMV6
TTL:;
{object V27;
V27= Cnil;
{register object x= (V26),V28= symbol_value(VV[6]);
while(!endp(V28))
if(type_of(V28->c.c_car)==t_cons &&eql(x,V28->c.c_car->c.c_car)){
V27= (V28->c.c_car);
goto T92;
}else V28=V28->c.c_cdr;
V27= Cnil;}
T92:;
if(((V27))==Cnil){
goto T90;}
{object V29 = cadr((V27));
VMR6(V29)}
T90:;
(void)((*(LnkLI112))(Cnil));
V30= list(2,symbol_value(VV[2]),(V26));
setq(VV[24],make_cons(/* INLINE-ARGS */V30,symbol_value(VV[24])));
V31= list(2,(V26),symbol_value(VV[2]));
setq(VV[6],make_cons(/* INLINE-ARGS */V31,symbol_value(VV[6])));
{object V32 = symbol_value(VV[2]);
VMR6(V32)}}
}
/* macro definition for NEXT-CVAR */
static L7()
{register object *base=vs_base;
register object *sup=base+VM7; VC7
vs_reserve(VM7);
check_arg(2);
vs_top=sup;
{object V33=base[0]->c.c_cdr;
if(!endp(V33))invalid_macro_call();}
base[2]= VV[28];
vs_top=(vs_base=base+2)+1;
return;
}
/* macro definition for NEXT-CMACRO */
static L8()
{register object *base=vs_base;
register object *sup=base+VM8; VC8
vs_reserve(VM8);
check_arg(2);
vs_top=sup;
{object V34=base[0]->c.c_cdr;
if(!endp(V34))invalid_macro_call();}
base[2]= VV[29];
vs_top=(vs_base=base+2)+1;
return;
}
/* local entry for function FUNCTION-ARG-TYPES */
static object LI9(V36)
object V36;
{ VMB9 VMS9 VMV9
TTL:;
{object V37;
object V38;
object V39;
V37= Cnil;
V38= Cnil;
V39= Cnil;
{object V40;
int V41;
V40= (V36);
V41= 0;
T106:;
if(!(endp((V40)))){
goto T107;}
V39= reverse((V38));
goto T102;
T107:;
{register object x= car((V40)),V42= VV[30];
while(!endp(V42))
if(eql(x,V42->c.c_car)){
goto T112;
}else V42=V42->c.c_cdr;}
if(!(equal(car((V40)),VV[31]))){
goto T111;}
T112:;
V37= Ct;
V43= make_cons(VV[31],(V38));
V39= reverse(/* INLINE-ARGS */V43);
goto T102;
T111:;
if(!((V41)<(9))){
goto T122;}
V44= (*(LnkLI121))(car((V40)));
goto T120;
T122:;
if(!((car((V40)))==(VV[31]))){
goto T125;}
V44= VV[31];
goto T120;
T125:;
V44= Ct;
T120:;
V38= make_cons(V44,(V38));
V40= cdr((V40));
V41= (1)+(V41);
goto T106;}
T102:;
if(((V37))==Cnil){
goto T131;}
{object V45;
V45= (V39);
T136:;
if(((V45))!=Cnil){
goto T137;}
goto T131;
T137:;
{object V46;
object V47;
V46= (V45);
if(!((car((V45)))==(VV[31]))){
goto T145;}
V47= VV[31];
goto T143;
T145:;
V47= Ct;
T143:;
if(type_of((V46))!=t_cons)FEwrong_type_argument(Scons,(V46));
((V46))->c.c_car = (V47);}
V45= cdr((V45));
goto T136;}
T131:;
{object V48 = (V39);
VMR9(V48)}}
}
/* local entry for function FUNCTION-RETURN-TYPE */
static object LI10(V50)
register object V50;
{ VMB10 VMS10 VMV10
TTL:;
if((car((V50)))==(VV[32])){
goto T152;}
goto T151;
T152:;
V50= cdr((V50));
T151:;
if(!(endp((V50)))){
goto T156;}
{object V51 = Cnil;
VMR10(V51)}
T156:;
if(!(type_of(car((V50)))==t_cons)){
goto T159;}
if(!((caar((V50)))==(VV[32]))){
goto T159;}
V50= cdr(car((V50)));
goto TTL;
T159:;
{object V52;
object V53;
V52= (V50);
V53= Cnil;
T168:;
if(!(endp((V52)))){
goto T169;}
if(!(((V52))==Cnil)){
goto T173;}
goto T172;
T173:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[33],(V50))));
T172:;
{object V54 = nreverse((V53));
VMR10(V54)}
T169:;
if(!((car((V52)))==(VV[31]))){
goto T180;}
V55= VV[31];
goto T178;
T180:;
V55= (*(LnkLI121))(car((V52)));
T178:;
V53= make_cons(V55,(V53));
V52= cdr((V52));
goto T168;}
}
/* local entry for function ADD-FUNCTION-PROCLAMATION */
static object LI11(V59,V60,V61)
object V59;register object V60;register object V61;
{ VMB11 VMS11 VMV11
TTL:;
{object V62;
object V63;
object V64;
V62= Ct;
V63= Cnil;
V64= Cnil;
if(!(type_of((V59))==t_symbol)){
goto T189;}
if(!(type_of((V60))==t_cons||((V60))==Cnil)){
goto T189;}
{object V65= cdr((V60));
if(!(type_of(V65)==t_cons||(V65)==Cnil)){
goto T189;}}
if(((V60))==Cnil){
goto T196;}
if(!((car((V60)))==(VV[31]))){
goto T197;}
T196:;
V63= VV[34];
goto T195;
T197:;
V63= (*(LnkLI123))(car((V60)));
T195:;
V64= (*(LnkLI124))(cdr((V60)));
if(!(type_of((V64))==t_cons)){
goto T207;}
if(!(endp(cdr((V64))))){
goto T207;}
if((car((V64)))==(VV[31])){
goto T207;}
if(type_of((V63))==t_cons){
goto T218;}
V67= Cnil;
goto T217;
T218:;
V67= (V63);
T217:;
{register object x= VV[31],V66= V67;
while(!endp(V66))
if(eql(x,V66->c.c_car)){
goto T216;
}else V66=V66->c.c_cdr;
goto T215;}
T216:;
V64= Ct;
goto T213;
T215:;
V64= car((V64));
T213:;
goto T205;
T207:;
V62= Cnil;
T205:;
{object V68;
if(type_of((V63))==t_cons||((V63))==Cnil){
goto T223;}
V68= Cnil;
goto T222;
T223:;
V68= ((length((V63)))<(64)?Ct:Cnil);
T222:;
if(((V68))==Cnil){
goto T226;}
goto T221;
T226:;
V62= Cnil;}
T221:;
{object V69;
V69= (V59);
T231:;
if(!(type_of((V69))==t_symbol)){
goto T235;}
goto T234;
T235:;
V59= (V69);
V61= Cnil;
goto TTL;
T234:;
if(!(((V63))==(VV[31]))){
goto T243;}
(void)(remprop((V69),VV[35]));
goto T241;
T243:;
(void)(putprop((V69),(V63),VV[35]));
T241:;
(void)(putprop((V69),(V64),VV[36]));
if(((V62))==Cnil){
goto T248;}
(void)(putprop((V69),Ct,VV[37]));
goto T246;
T248:;
(void)(remprop((V69),VV[37]));
T246:;
V61= cdr((V61));
if(!(type_of((V61))==t_cons)){
goto T253;}
goto T252;
T253:;
{object V70 = VV[38];
VMR11(V70)}
T252:;
V69= car((V61));
goto T231;}
T189:;
{object V71 = (VFUN_NARGS=3,(*(LnkLI122))(VV[39],(V59),(V60)));
VMR11(V71)}}
}
/* local entry for function ADD-FUNCTION-DECLARATION */
static object LI12(V75,V76,V77)
object V75;object V76;object V77;
{ VMB12 VMS12 VMV12
TTL:;
if(!(type_of((V75))==t_symbol)){
goto T259;}
V78= (*(LnkLI125))((V75));
V79= (*(LnkLI123))((V76));
V80= list(3,/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,(*(LnkLI124))((V77)));
setq(VV[15],make_cons(/* INLINE-ARGS */V80,symbol_value(VV[15])));
{object V81 = symbol_value(VV[15]);
VMR12(V81)}
T259:;
{object V82 = (VFUN_NARGS=2,(*(LnkLI122))(VV[40],(V75)));
VMR12(V82)}
}
/* local entry for function GET-ARG-TYPES */
static object LI13(V84)
object V84;
{ VMB13 VMS13 VMV13
TTL:;
{object V85;
V85= Cnil;
{register object x= (V84),V86= symbol_value(VV[15]);
while(!endp(V86))
if(type_of(V86->c.c_car)==t_cons &&eql(x,V86->c.c_car->c.c_car)){
V85= (V86->c.c_car);
goto T266;
}else V86=V86->c.c_cdr;
V85= Cnil;}
T266:;
if(((V85))==Cnil){
goto T264;}
{object V87 = cadr((V85));
VMR13(V87)}
T264:;
{object V88 = get((V84),VV[35],Cnil);
VMR13(V88)}}
}
/* local entry for function GET-RETURN-TYPE */
static object LI14(V90)
register object V90;
{ VMB14 VMS14 VMV14
TTL:;
{object V91;
object V92;
object V93;
{register object x= (V90),V94= symbol_value(VV[15]);
while(!endp(V94))
if(type_of(V94->c.c_car)==t_cons &&eql(x,V94->c.c_car->c.c_car)){
V91= (V94->c.c_car);
goto T267;
}else V94=V94->c.c_cdr;
V91= Cnil;}
T267:;
if(((V91))==Cnil){
goto T270;}
V92= caddr((V91));
goto T268;
T270:;
V92= get((V90),VV[36],Cnil);
T268:;
if((get((V90),VV[41],Cnil))==Cnil){
goto T274;}
V93= VV[42];
goto T272;
T274:;
V93= get((V90),VV[43],Cnil);
T272:;
if(((V92))==Cnil){
goto T277;}
if(((V93))==Cnil){
goto T280;}
V93= (*(LnkLI126))((V93),(V92));
if(((V93))==Cnil){
goto T283;}
{object V95 = (V93);
VMR14(V95)}
T283:;
{object V96 = (VFUN_NARGS=2,(*(LnkLI127))(VV[44],(V90)));
VMR14(V96)}
T280:;
{object V97 = (V92);
VMR14(V97)}
T277:;
{object V98 = (V93);
VMR14(V98)}}
}
/* local entry for function GET-LOCAL-ARG-TYPES */
static object LI15(V100)
object V100;
{ VMB15 VMS15 VMV15
TTL:;
{object V101;
V101= Cnil;
{register object x= (V100),V102= symbol_value(VV[15]);
while(!endp(V102))
if(type_of(V102->c.c_car)==t_cons &&eql(x,V102->c.c_car->c.c_car)){
V101= (V102->c.c_car);
goto T290;
}else V102=V102->c.c_cdr;
V101= Cnil;}
T290:;
if(((V101))==Cnil){
goto T288;}
{object V103 = cadr((V101));
VMR15(V103)}
T288:;
{object V104 = Cnil;
VMR15(V104)}}
}
/* local entry for function GET-LOCAL-RETURN-TYPE */
static object LI16(V106)
object V106;
{ VMB16 VMS16 VMV16
TTL:;
{object V107;
V107= Cnil;
{register object x= (V106),V108= symbol_value(VV[15]);
while(!endp(V108))
if(type_of(V108->c.c_car)==t_cons &&eql(x,V108->c.c_car->c.c_car)){
V107= (V108->c.c_car);
goto T295;
}else V108=V108->c.c_cdr;
V107= Cnil;}
T295:;
if(((V107))==Cnil){
goto T293;}
{object V109 = caddr((V107));
VMR16(V109)}
T293:;
{object V110 = Cnil;
VMR16(V110)}}
}
/* local entry for function RESET-TOP */
static object LI17()
{ VMB17 VMS17 VMV17
TTL:;
princ_str("vs_top=sup;",VV[45]);
setq(VV[46],Ct);
{object V111 = Ct;
VMR17(V111)}
}
/* macro definition for BASE-USED */
static L18()
{register object *base=vs_base;
register object *sup=base+VM18; VC18
vs_reserve(VM18);
check_arg(2);
vs_top=sup;
{object V112=base[0]->c.c_cdr;
if(!endp(V112))invalid_macro_call();}
base[2]= VV[47];
vs_top=(vs_base=base+2)+1;
return;
}
/* local entry for function INLINE-POSSIBLE */
static object LI19(V114)
object V114;
{ VMB19 VMS19 VMV19
TTL:;
if(symbol_value(VV[48])!=Cnil){
V115= symbol_value(VV[48]);
goto T299;}
{register object x= (V114),V116= symbol_value(VV[18]);
while(!endp(V116))
if(eql(x,V116->c.c_car)){
base[0]= V116;
goto T301;
}else V116=V116->c.c_cdr;
base[0]= Cnil;}
T301:;
if(base[0]==Cnil)goto T300;
V115= base[0];
goto T299;
T300:;
V115= get((V114),VV[49],Cnil);
T299:;
{object V117 = ((V115)==Cnil?Ct:Cnil);
VMR19(V117)}
}
/* local entry for function PROCLAIM */
static object LI20(V119)
object V119;
{ VMB20 VMS20 VMV20
TTL:;
{object V120= car((V119));
if((V120!= VV[128]))goto T303;
{object V121;
object V122;
V121= cdr((V119));
V122= car((V121));
T307:;
if(!(endp((V121)))){
goto T308;}
goto T302;
T308:;
if(!(type_of((V122))==t_symbol)){
goto T314;}
base[0]= (V122);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk129)();
vs_top=sup;
goto T312;
T314:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[50],(V122))));
T312:;
V121= cdr((V121));
V122= car((V121));
goto T307;}
T303:;
if((V120!= VV[130]))goto T322;
{object V123;
object V124;
V123= cdr((V119));
V124= car((V123));
T326:;
if(!(endp((V123)))){
goto T327;}
goto T302;
T327:;
if(!(type_of((V124))==t_symbol)){
goto T331;}
V124= list(2,(V124),small_fixnum(3));
T331:;
if(!(type_of((V124))==t_cons)){
goto T336;}
if(!(type_of(cdr((V124)))==t_cons)){
goto T336;}
{object V125= cadr((V124));
if(!(type_of(V125)==t_fixnum||
type_of(V125)==t_bignum||
type_of(V125)==t_ratio||
type_of(V125)==t_shortfloat||
type_of(V125)==t_longfloat||
type_of(V125)==t_complex)){
goto T336;}}
base[0]= small_fixnum(0);
base[1]= cadr((V124));
base[2]= small_fixnum(3);
vs_top=(vs_base=base+0)+3;
Lmonotonically_nondecreasing();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T337;}
T336:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[51],(V124))));
goto T335;
T337:;
{object V126= car((V124));
if((V126!= VV[84]))goto T348;
setq(VV[52],(number_compare(cadr((V124)),small_fixnum(1))>=0?Ct:Cnil));
setq(VV[53],(number_compare(cadr((V124)),small_fixnum(2))>=0?Ct:Cnil));
setq(VV[48],(number_compare(cadr((V124)),small_fixnum(3))>=0?Ct:Cnil));
goto T335;
T348:;
if((V126!= VV[85]))goto T354;
setq(VV[54],cadr((V124)));
goto T335;
T354:;
if((V126!= VV[131]))goto T356;
setq(VV[55],cadr((V124)));
goto T335;
T356:;
if((V126!= VV[132]))goto T358;
setq(VV[55],number_minus(small_fixnum(3),cadr((V124))));
goto T335;
T358:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[56],car((V124)))));}
T335:;
V123= cdr((V123));
V124= car((V123));
goto T326;}
T322:;
if((V120!= VV[133]))goto T365;
if(!(type_of(cdr((V119)))==t_cons)){
goto T367;}
(void)((*(LnkLI134))(cadr((V119)),cddr((V119))));
goto T302;
T367:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[57],(V119))));
goto T302;
T365:;
if((V120!= VV[135])
&& (V120!= VV[136])
&& (V120!= VV[137])
&& (V120!= VV[138]))goto T369;
(void)((*(LnkLI134))(car((V119)),cdr((V119))));
goto T302;
T369:;
if((V120!= VV[139]))goto T370;
if(!(type_of(cdr((V119)))==t_cons)){
goto T372;}
if(!(type_of(cadr((V119)))==t_cons)){
goto T372;}
if(!((caadr((V119)))==(VV[26]))){
goto T372;}
(void)((*(LnkLI140))(caddr((V119)),cdr(cadr((V119))),cddr((V119))));
goto T302;
T372:;
(void)((VFUN_NARGS=2,(*(LnkLI127))(VV[58],(V119))));
goto T302;
T370:;
if((V120!= VV[26]))goto T378;
if(!(type_of(cdr((V119)))==t_cons)){
goto T380;}
(void)((*(LnkLI140))(cadr((V119)),cddr((V119)),Cnil));
goto T302;
T380:;
(void)((VFUN_NARGS=2,(*(LnkLI127))(VV[59],(V119))));
goto T302;
T378:;
if((V120!= VV[89]))goto T382;
{object V127;
object V128;
V127= cdr((V119));
V128= car((V127));
T386:;
if(!(endp((V127)))){
goto T387;}
goto T302;
T387:;
if(!(type_of((V128))==t_symbol)){
goto T393;}
(void)(remprop((V128),VV[49]));
goto T391;
T393:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[60],(V128))));
T391:;
V127= cdr((V127));
V128= car((V127));
goto T386;}
T382:;
if((V120!= VV[91]))goto T400;
{object V129;
object V130;
V129= cdr((V119));
V130= car((V129));
T404:;
if(!(endp((V129)))){
goto T405;}
goto T302;
T405:;
if(!(type_of((V130))==t_symbol)){
goto T411;}
(void)(putprop((V130),Ct,VV[49]));
goto T409;
T411:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[61],(V130))));
T409:;
V129= cdr((V129));
V130= car((V129));
goto T404;}
T400:;
if((V120!= VV[78])
&& (V120!= VV[141]))goto T418;
{object V131;
object V132;
V131= cdr((V119));
V132= car((V131));
T422:;
if(!(endp((V131)))){
goto T423;}
goto T302;
T423:;
if(type_of((V132))==t_symbol){
goto T427;}
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[62],(V132))));
T427:;
V131= cdr((V131));
V132= car((V131));
goto T422;}
T418:;
if((V120!= VV[142]))goto T435;
{object V133;
object V134;
V133= cdr((V119));
V134= car((V133));
T439:;
if(!(endp((V133)))){
goto T440;}
goto T302;
T440:;
if(!(type_of((V134))==t_symbol)){
goto T446;}
{register object x= (V134),V135= symbol_value(VV[63]);
while(!endp(V135))
if(eql(x,V135->c.c_car)){
goto T444;
}else V135=V135->c.c_cdr;}
setq(VV[63],make_cons((V134),symbol_value(VV[63])));
goto T444;
T446:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[64],(V134))));
T444:;
V133= cdr((V133));
V134= car((V133));
goto T439;}
T435:;
if((V120== VV[143])
|| (V120== VV[144])
|| (V120== VV[145])
|| (V120== VV[146])
|| (V120== VV[147]))goto T457;
if((V120== VV[136])
|| (V120== VV[148])
|| (V120== VV[25])
|| (V120== VV[149])
|| (V120== VV[150]))goto T457;
if((V120== VV[151])
|| (V120== VV[135])
|| (V120== VV[152])
|| (V120== VV[153])
|| (V120== VV[154]))goto T457;
if((V120== VV[155])
|| (V120== VV[156])
|| (V120== VV[138])
|| (V120== Cnil)
|| (V120== VV[157]))goto T457;
if((V120== VV[158])
|| (V120== VV[159])
|| (V120== VV[160])
|| (V120== VV[161])
|| (V120== VV[162]))goto T457;
if((V120== VV[163])
|| (V120== VV[164])
|| (V120== VV[165])
|| (V120== VV[137])
|| (V120== VV[166]))goto T457;
if((V120== VV[167])
|| (V120== VV[168])
|| (V120== VV[169])
|| (V120== VV[170])
|| (V120== VV[171]))goto T457;
if((V120== VV[172])
|| (V120== VV[173])
|| (V120== VV[174])
|| (V120== VV[175])
|| (V120== Ct))goto T457;
if((V120!= VV[176])
&& (V120!= VV[177])
&& (V120!= VV[178]))goto T456;
T457:;
(void)((*(LnkLI134))(car((V119)),cdr((V119))));
goto T302;
T456:;
{register object x= car((V119)),V136= symbol_value(VV[63]);
while(!endp(V136))
if(eql(x,V136->c.c_car)){
goto T458;
}else V136=V136->c.c_cdr;}
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[65],car((V119)))));
T458:;
base[0]= get(car((V119)),VV[66],Cnil);
vs_top=(vs_base=base+0)+1;
Lfunctionp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T461;}
goto T302;
T461:;
{object V137;
object V138;
V137= cdr((V119));
V138= car((V137));
T467:;
if(!(endp((V137)))){
goto T468;}
goto T302;
T468:;
V139= get(car((V119)),VV[66],Cnil);
(void)((
V140 = V139,
(type_of(V140) == t_sfun ?(*(object (*)())((V140)->sfn.sfn_self)):
(fcall.fun=(V140),fcall.argd=1,fcalln))((V138))));
V137= cdr((V137));
V138= car((V137));
goto T467;}}
T302:;
{object V141 = Cnil;
VMR20(V141)}
}
/* local entry for function PROCLAIM-VAR */
static object LI21(V144,V145)
register object V144;object V145;
{ VMB21 VMS21 VMV21
TTL:;
V144= (*(LnkLI121))((V144));
{object V146;
object V147;
V146= (V145);
V147= car((V146));
T484:;
if(!(endp((V146)))){
goto T485;}
{object V148 = Cnil;
VMR21(V148)}
T485:;
if(!(type_of((V147))==t_symbol)){
goto T491;}
{object V149;
object V150;
V149= get((V147),VV[67],Cnil);
V150= (*(LnkLI179))((V147));
if(((V149))==Cnil){
goto T498;}
V149= (*(LnkLI126))((V149),(V144));
goto T496;
T498:;
V149= (V144);
T496:;
if(((V150))==Cnil){
goto T500;}
V151= structure_ref((V150),VV[68],5);
V149= (*(LnkLI126))((V149),/* INLINE-ARGS */V151);
T500:;
if(((V149))!=Cnil){
goto T504;}
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[69],(V147))));
T504:;
(void)(putprop((V147),(V149),VV[67]));
if(((V150))==Cnil){
goto T489;}
(void)(structure_set((V150),VV[68],5,(V149)));
goto T489;}
T491:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[70],(V147))));
T489:;
V146= cdr((V146));
V147= car((V146));
goto T484;}
}
/* function definition for C1BODY */
static L22()
{register object *base=vs_base;
register object *sup=base+VM22; VC22
vs_reserve(VM22);
{object V152;
object V153;
check_arg(2);
V152=(base[0]);
V153=(base[1]);
vs_top=sup;
TTL:;
{object V154;
object V155;
object V156;
object V157;
object V158;
object V159;
V154= Cnil;
V155= Cnil;
V156= Cnil;
V157= Cnil;
V158= Cnil;
V159= Cnil;
T523:;
if(!(endp((V152)))){
goto T525;}
goto T521;
T525:;
V159= (*(LnkLI180))(car((V152)));
if(!(type_of((V159))==t_string)){
goto T532;}
if(((V153))==Cnil){
goto T535;}
if(endp(cdr((V152)))){
goto T535;}
if(((V158))==Cnil){
goto T534;}
T535:;
goto T521;
T534:;
V158= (V159);
goto T530;
T532:;
if(!(type_of((V159))==t_cons)){
goto T543;}
if(!((car((V159)))==(VV[71]))){
goto T543;}
{object V160;
object V161;
V160= cdr((V159));
V161= car((V160));
T550:;
if(!(endp((V160)))){
goto T551;}
goto T530;
T551:;
if(!(type_of((V161))==t_cons)){
goto T556;}
if(type_of(car((V161)))==t_symbol){
goto T555;}
T556:;
(void)((VFUN_NARGS=2,(*(LnkLI120))(VV[72],(V161))));
T555:;
{object V162= car((V161));
if((V162!= VV[128]))goto T561;
{object V163;
object V164;
V163= cdr((V161));
V164= car((V163));
T565:;
if(!(endp((V163)))){
goto T566;}
goto T560;
T566:;
if(type_of((V164))==t_symbol){
goto T570;}
(void)((VFUN_NARGS=3,(*(LnkLI120))(VV[73],(V161),(V164))));
T570:;
V154= make_cons((V164),(V154));
V163= cdr((V163));
V164= car((V163));
goto T565;}
T561:;
if((V162!= VV[141]))goto T580;
{object V165;
object V166;
V165= cdr((V161));
V166= car((V165));
T584:;
if(!(endp((V165)))){
goto T585;}
goto T560;
T585:;
if(type_of((V166))==t_symbol){
goto T589;}
(void)((VFUN_NARGS=3,(*(LnkLI120))(VV[74],(V161),(V166))));
T589:;
V155= make_cons((V166),(V155));
V165= cdr((V165));
V166= car((V165));
goto T584;}
T580:;
if((V162!= VV[133]))goto T599;
if(!(endp(cdr((V161))))){
goto T600;}
(void)((VFUN_NARGS=2,(*(LnkLI120))(VV[75],(V161))));
T600:;
{object V167;
V167= (*(LnkLI121))(cadr((V161)));
if(((V167))==Cnil){
goto T560;}
{object V168;
object V169;
V168= cddr((V161));
V169= car((V168));
T609:;
if(!(endp((V168)))){
goto T610;}
goto T560;
T610:;
if(type_of((V169))==t_symbol){
goto T614;}
(void)((VFUN_NARGS=3,(*(LnkLI120))(VV[76],(V161),(V169))));
T614:;
V170= make_cons((V169),(V167));
V156= make_cons(/* INLINE-ARGS */V170,(V156));
V168= cdr((V168));
V169= car((V168));
goto T609;}}
T599:;
if((V162!= VV[78]))goto T624;
{object V171;
object V172;
V171= cdr((V161));
V172= car((V171));
T628:;
if(!(endp((V171)))){
goto T629;}
goto T560;
T629:;
if(type_of((V172))==t_symbol){
goto T633;}
(void)((VFUN_NARGS=3,(*(LnkLI120))(VV[77],(V161),(V172))));
T633:;
V173= make_cons((V172),VV[78]);
V156= make_cons(/* INLINE-ARGS */V173,(V156));
V171= cdr((V171));
V172= car((V171));
goto T628;}
T624:;
if((V162!= VV[181]))goto T643;
{object V174;
object V175;
V174= cdr((V161));
V175= car((V174));
T647:;
if(!(endp((V174)))){
goto T648;}
goto T560;
T648:;
if(type_of((V175))==t_symbol){
goto T652;}
(void)((VFUN_NARGS=3,(*(LnkLI120))(VV[79],(V161),(V175))));
T652:;
V176= make_cons((V175),VV[80]);
V156= make_cons(/* INLINE-ARGS */V176,(V156));
V174= cdr((V174));
V175= car((V174));
goto T647;}
T643:;
if((V162== VV[135])
|| (V162== VV[136])
|| (V162== VV[151])
|| (V162== VV[137])
|| (V162== VV[143]))goto T663;
if((V162== VV[144])
|| (V162== VV[145])
|| (V162== VV[146])
|| (V162== VV[147])
|| (V162== VV[148]))goto T663;
if((V162== VV[25])
|| (V162== VV[149])
|| (V162== VV[150])
|| (V162== VV[152])
|| (V162== VV[153]))goto T663;
if((V162== VV[154])
|| (V162== VV[155])
|| (V162== VV[156])
|| (V162== VV[138])
|| (V162== Cnil))goto T663;
if((V162== VV[157])
|| (V162== VV[158])
|| (V162== VV[159])
|| (V162== VV[160])
|| (V162== VV[161]))goto T663;
if((V162== VV[162])
|| (V162== VV[163])
|| (V162== VV[164])
|| (V162== VV[165])
|| (V162== VV[166]))goto T663;
if((V162== VV[167])
|| (V162== VV[168])
|| (V162== VV[169])
|| (V162== VV[170])
|| (V162== VV[171]))goto T663;
if((V162== VV[172])
|| (V162== VV[173])
|| (V162== VV[174])
|| (V162== VV[175])
|| (V162== Ct))goto T663;
if((V162!= VV[176])
&& (V162!= VV[177])
&& (V162!= VV[178])
&& (V162!= VV[81]))goto T662;
T663:;
{object V177;
if(!((car((V161)))==(VV[81]))){
goto T666;}
V177= car((V161));
goto T664;
T666:;
V177= (*(LnkLI121))(car((V161)));
T664:;
if(((V177))==Cnil){
goto T560;}
{object V178;
object V179;
V178= cdr((V161));
V179= car((V178));
T673:;
if(!(endp((V178)))){
goto T674;}
goto T560;
T674:;
if(type_of((V179))==t_symbol){
goto T678;}
(void)((VFUN_NARGS=3,(*(LnkLI120))(VV[82],(V161),(V179))));
T678:;
V180= make_cons((V179),(V177));
V156= make_cons(/* INLINE-ARGS */V180,(V156));
V178= cdr((V178));
V179= car((V178));
goto T673;}}
T662:;
V157= make_cons((V161),(V157));}
T560:;
V160= cdr((V160));
V161= car((V160));
goto T550;}
T543:;
goto T521;
T530:;
{object V181;
V181= car((V152));
V152= cdr((V152));}
goto T523;
T521:;
base[2]= (V152);
base[3]= (V154);
base[4]= (V156);
base[5]= (V155);
base[6]= (V157);
base[7]= (V158);
vs_top=(vs_base=base+2)+6;
return;}
}
}
/* local entry for function C1DECL-BODY */
static object LI23(V184,V185)
object V184;object V185;
{ VMB23 VMS23 VMV23
bds_check;
TTL:;
{object V186;
V186= Cnil;
if(((V184))!=Cnil){
goto T706;}
{object V187 = (*(LnkLI182))((V185));
VMR23(V187)}
T706:;
bds_bind(VV[15],symbol_value(VV[15]));
bds_bind(VV[63],symbol_value(VV[63]));
bds_bind(VV[18],symbol_value(VV[18]));
bds_bind(VV[54],symbol_value(VV[54]));
bds_bind(VV[53],symbol_value(VV[53]));
{object V188;
object V189;
V188= (V184);
V189= car((V188));
T712:;
if(!(endp((V188)))){
goto T713;}
goto T708;
T713:;
{object V190= car((V189));
if((V190!= VV[130]))goto T718;
{object V191;
object V192;
V191= cdr((V189));
V192= car((V191));
T722:;
if(!(endp((V191)))){
goto T723;}
goto T717;
T723:;
if(!(type_of((V192))==t_symbol)){
goto T727;}
V192= list(2,(V192),small_fixnum(3));
T727:;
if(!(type_of((V192))==t_cons)){
goto T732;}
if(!(type_of(cdr((V192)))==t_cons)){
goto T732;}
{object V193= cadr((V192));
if(!(type_of(V193)==t_fixnum||
type_of(V193)==t_bignum||
type_of(V193)==t_ratio||
type_of(V193)==t_shortfloat||
type_of(V193)==t_longfloat||
type_of(V193)==t_complex)){
goto T732;}}
base[5]= small_fixnum(0);
base[6]= cadr((V192));
base[7]= small_fixnum(3);
vs_top=(vs_base=base+5)+3;
Lmonotonically_nondecreasing();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T733;}
T732:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[83],(V192))));
goto T731;
T733:;
{object V194= car((V192));
if((V194!= VV[84]))goto T744;
(VV[53]->s.s_dbind)= ((fix(cadr((V192))))>=(2)?Ct:Cnil);
V195= list(2,VV[84],cadr((V192)));
V186= make_cons(/* INLINE-ARGS */V195,(V186));
goto T731;
T744:;
if((V194!= VV[85]))goto T748;
(VV[54]->s.s_dbind)= cadr((V192));
V196= list(2,VV[85],cadr((V192)));
V186= make_cons(/* INLINE-ARGS */V196,(V186));
goto T731;
T748:;
if((V194!= VV[131])
&& (V194!= VV[132]))goto T752;
goto T731;
T752:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[86],car((V192)))));}
T731:;
V191= cdr((V191));
V192= car((V191));
goto T722;}
T718:;
if((V190!= VV[139]))goto T758;
if(endp(cdr((V189)))){
goto T759;}
if(!(type_of(cadr((V189)))==t_cons)){
goto T759;}
if(!((caadr((V189)))==(VV[26]))){
goto T759;}
if(!(endp(cdadr((V189))))){
goto T760;}
T759:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[87],(V189))));
goto T717;
T760:;
{object V197;
object V198;
V197= cddr((V189));
V198= car((V197));
T771:;
if(!(endp((V197)))){
goto T772;}
goto T717;
T772:;
(void)((*(LnkLI183))((V198),cadadr((V189)),cddadr((V189))));
V197= cdr((V197));
V198= car((V197));
goto T771;}
T758:;
if((V190!= VV[26]))goto T782;
if(endp(cdr((V189)))){
goto T783;}
if(endp(cddr((V189)))){
goto T783;}
if(type_of(cadr((V189)))==t_symbol){
goto T784;}
T783:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[88],(V189))));
goto T717;
T784:;
(void)((*(LnkLI183))(cadr((V189)),caddr((V189)),cdddr((V189))));
goto T717;
T782:;
if((V190!= VV[89]))goto T790;
{object V199;
object V200;
V199= cdr((V189));
V200= car((V199));
T794:;
if(!(endp((V199)))){
goto T795;}
goto T717;
T795:;
if(!(type_of((V200))==t_symbol)){
goto T801;}
V201= list(2,VV[89],(V200));
V186= make_cons(/* INLINE-ARGS */V201,(V186));
(VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))((V200),(VV[18]->s.s_dbind)));
goto T799;
T801:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[90],(V200))));
T799:;
V199= cdr((V199));
V200= car((V199));
goto T794;}
T790:;
if((V190!= VV[91]))goto T811;
{object V202;
object V203;
V202= cdr((V189));
V203= car((V202));
T815:;
if(!(endp((V202)))){
goto T816;}
goto T717;
T816:;
if(!(type_of((V203))==t_symbol)){
goto T822;}
V204= list(2,VV[91],(V203));
V186= make_cons(/* INLINE-ARGS */V204,(V186));
(VV[18]->s.s_dbind)= make_cons((V203),(VV[18]->s.s_dbind));
goto T820;
T822:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[92],(V203))));
T820:;
V202= cdr((V202));
V203= car((V202));
goto T815;}
T811:;
if((V190!= VV[142]))goto T832;
{object V205;
object V206;
V205= cdr((V189));
V206= car((V205));
T836:;
if(!(endp((V205)))){
goto T837;}
goto T717;
T837:;
if(!(type_of((V206))==t_symbol)){
goto T843;}
{register object x= (V206),V207= (VV[63]->s.s_dbind);
while(!endp(V207))
if(eql(x,V207->c.c_car)){
goto T841;
}else V207=V207->c.c_cdr;}
(VV[63]->s.s_dbind)= make_cons((V206),(VV[63]->s.s_dbind));
goto T841;
T843:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[93],(V206))));
T841:;
V205= cdr((V205));
V206= car((V205));
goto T836;}
T832:;
{register object x= car((V189)),V208= (VV[63]->s.s_dbind);
while(!endp(V208))
if(eql(x,V208->c.c_car)){
goto T717;
}else V208=V208->c.c_cdr;}
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[94],car((V189)))));}
T717:;
V188= cdr((V188));
V189= car((V188));
goto T712;}
T708:;
V185= (*(LnkLI182))((V185));
{object V209 = list(4,VV[95],cadr((V185)),(V186),(V185));
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR23(V209)}}
}
/* function definition for C2DECL-BODY */
static L24()
{register object *base=vs_base;
register object *sup=base+VM24; VC24
vs_reserve(VM24);
bds_check;
{object V210;
object V211;
check_arg(2);
V210=(base[0]);
V211=(base[1]);
vs_top=sup;
TTL:;
bds_bind(VV[52],symbol_value(VV[52]));
bds_bind(VV[53],symbol_value(VV[53]));
bds_bind(VV[48],symbol_value(VV[48]));
bds_bind(VV[18],symbol_value(VV[18]));
bds_bind(VV[54],symbol_value(VV[54]));
{object V212;
object V213;
V212= (V210);
V213= car((V212));
T866:;
if(!(endp((V212)))){
goto T867;}
goto T862;
T867:;
{object V214= car((V213));
if((V214!= VV[84]))goto T872;
{int V215;
V215= fix(cadr((V213)));
(VV[52]->s.s_dbind)= ((V215)>=(1)?Ct:Cnil);
(VV[53]->s.s_dbind)= ((V215)>=(2)?Ct:Cnil);
(VV[48]->s.s_dbind)= ((V215)>=(3)?Ct:Cnil);
goto T871;}
T872:;
if((V214!= VV[85]))goto T879;
(VV[54]->s.s_dbind)= cadr((V213));
goto T871;
T879:;
if((V214!= VV[91]))goto T881;
(VV[18]->s.s_dbind)= make_cons(cadr((V213)),(VV[18]->s.s_dbind));
goto T871;
T881:;
if((V214!= VV[89]))goto T883;
(VV[18]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI184))(cadr((V213)),(VV[18]->s.s_dbind)));
goto T871;
T883:;
(void)((*(LnkLI185))());}
T871:;
V212= cdr((V212));
V213= car((V212));
goto T866;}
T862:;
base[7]= (V211);
vs_top=(vs_base=base+7)+1;
(void) (*Lnk186)();
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
}
}
/* local entry for function CHECK-VDECL */
static object LI25(V219,V220,V221)
register object V219;object V220;object V221;
{ VMB25 VMS25 VMV25
TTL:;
{object V222;
object V223;
V222= (V220);
V223= car((V222));
T895:;
if(!(endp((V222)))){
goto T896;}
goto T891;
T896:;
{register object x= car((V223)),V224= (V219);
while(!endp(V224))
if(eql(x,V224->c.c_car)){
goto T900;
}else V224=V224->c.c_cdr;}
(void)((VFUN_NARGS=2,(*(LnkLI127))(VV[96],car((V223)))));
T900:;
V222= cdr((V222));
V223= car((V222));
goto T895;}
T891:;
{object V225;
object V226;
V225= (V221);
V226= car((V225));
T911:;
if(!(endp((V225)))){
goto T912;}
{object V227 = Cnil;
VMR25(V227)}
T912:;
{register object x= (V226),V228= (V219);
while(!endp(V228))
if(eql(x,V228->c.c_car)){
goto T916;
}else V228=V228->c.c_cdr;}
(void)((VFUN_NARGS=2,(*(LnkLI127))(VV[97],(V226))));
T916:;
V225= cdr((V225));
V226= car((V225));
goto T911;}
}
/* local entry for function PROCLAMATION */
static object LI26(V230)
object V230;
{ VMB26 VMS26 VMV26
TTL:;
{object V231= car((V230));
if((V231!= VV[128]))goto T924;
{object V232;
object V233;
V232= cdr((V230));
V233= car((V232));
T928:;
if(!(endp((V232)))){
goto T929;}
{object V234 = Ct;
VMR26(V234)}
T929:;
if(!(type_of((V233))==t_symbol)){
goto T935;}
base[0]= (V233);
vs_top=(vs_base=base+0)+1;
siLspecialp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T933;}
{object V235 = Cnil;
VMR26(V235)}
T935:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[98],(V233))));
T933:;
V232= cdr((V232));
V233= car((V232));
goto T928;}
T924:;
if((V231!= VV[130]))goto T945;
{object V236;
object V237;
V236= cdr((V230));
V237= car((V236));
T949:;
if(!(endp((V236)))){
goto T950;}
{object V238 = Ct;
VMR26(V238)}
T950:;
if(!(type_of((V237))==t_symbol)){
goto T954;}
V237= list(2,(V237),small_fixnum(3));
T954:;
if(!(type_of((V237))==t_cons)){
goto T959;}
if(!(type_of(cdr((V237)))==t_cons)){
goto T959;}
{object V239= cadr((V237));
if(!(type_of(V239)==t_fixnum||
type_of(V239)==t_bignum||
type_of(V239)==t_ratio||
type_of(V239)==t_shortfloat||
type_of(V239)==t_longfloat||
type_of(V239)==t_complex)){
goto T959;}}
base[0]= small_fixnum(0);
base[1]= cadr((V237));
base[2]= small_fixnum(3);
vs_top=(vs_base=base+0)+3;
Lmonotonically_nondecreasing();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T960;}
T959:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[99],(V237))));
goto T958;
T960:;
{object V240= car((V237));
if((V240!= VV[84]))goto T971;
V241= cadr((V237));
if((symbol_value(VV[52]))!=Cnil){
goto T976;}
V242= small_fixnum(0);
goto T974;
T976:;
if((symbol_value(VV[53]))!=Cnil){
goto T979;}
V242= small_fixnum(1);
goto T974;
T979:;
if((symbol_value(VV[48]))!=Cnil){
goto T982;}
V242= small_fixnum(2);
goto T974;
T982:;
V242= small_fixnum(3);
T974:;
if(number_compare(/* INLINE-ARGS */V241,V242)==0){
goto T958;}
{object V243 = Cnil;
VMR26(V243)}
T971:;
if((V240!= VV[85]))goto T984;
if(number_compare(cadr((V237)),symbol_value(VV[54]))==0){
goto T958;}
{object V244 = Cnil;
VMR26(V244)}
T984:;
if((V240!= VV[131]))goto T987;
if(number_compare(cadr((V237)),symbol_value(VV[55]))==0){
goto T958;}
{object V245 = Cnil;
VMR26(V245)}
T987:;
if((V240!= VV[132]))goto T990;
V246= number_minus(small_fixnum(3),cadr((V237)));
if(number_compare(/* INLINE-ARGS */V246,symbol_value(VV[55]))==0){
goto T958;}
{object V247 = Cnil;
VMR26(V247)}
T990:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[100],car((V237)))));}
T958:;
V236= cdr((V236));
V237= car((V236));
goto T949;}
T945:;
if((V231!= VV[133]))goto T998;
if(!(type_of(cdr((V230)))==t_cons)){
goto T1000;}
{object V248;
object V249;
V248= (*(LnkLI121))(cadr((V230)));
V249= Cnil;
{object V250;
object V251;
V250= cddr((V230));
V251= car((V250));
T1007:;
if(!(endp((V250)))){
goto T1008;}
{object V252 = Ct;
VMR26(V252)}
T1008:;
if(!(type_of((V251))==t_symbol)){
goto T1014;}
V249= get((V251),VV[67],Cnil);
if(((V249))==Cnil){
goto T1016;}
if(equal((V249),(V248))){
goto T1012;}
T1016:;
{object V253 = Cnil;
VMR26(V253)}
T1014:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[101],(V251))));
T1012:;
V250= cdr((V250));
V251= car((V250));
goto T1007;}}
T1000:;
{object V254 = (VFUN_NARGS=2,(*(LnkLI122))(VV[102],(V230)));
VMR26(V254)}
T998:;
if((V231!= VV[135])
&& (V231!= VV[136])
&& (V231!= VV[137])
&& (V231!= VV[138]))goto T1026;
{object V255;
object V256;
V255= (*(LnkLI121))(car((V230)));
V256= Cnil;
{object V257;
object V258;
V257= cdr((V230));
V258= car((V257));
T1032:;
if(!(endp((V257)))){
goto T1033;}
{object V259 = Ct;
VMR26(V259)}
T1033:;
if(!(type_of((V258))==t_symbol)){
goto T1039;}
V256= get((V258),VV[67],Cnil);
if(((V256))==Cnil){
goto T1041;}
if(equal((V256),(V255))){
goto T1037;}
T1041:;
{object V260 = Cnil;
VMR26(V260)}
T1039:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[103],(V258))));
T1037:;
V257= cdr((V257));
V258= car((V257));
goto T1032;}}
T1026:;
if((V231!= VV[139]))goto T1051;
if(endp(cdr((V230)))){
goto T1052;}
if(!(type_of(cadr((V230)))==t_cons)){
goto T1052;}
if(!((caadr((V230)))==(VV[26]))){
goto T1052;}
if(!(endp(cdadr((V230))))){
goto T1053;}
T1052:;
{object V261 = (VFUN_NARGS=2,(*(LnkLI122))(VV[104],(V230)));
VMR26(V261)}
T1053:;
{object V262;
object V263;
V262= cddr((V230));
V263= car((V262));
T1064:;
if(!(endp((V262)))){
goto T1065;}
{object V264 = Ct;
VMR26(V264)}
T1065:;
if((get((V263),VV[37],Cnil))==Cnil){
goto T1070;}
V265= (*(LnkLI123))(cadadr((V230)));
V266= get((V263),VV[35],Cnil);
if(!(equal(/* INLINE-ARGS */V265,V266))){
goto T1070;}
V267= (*(LnkLI124))(cddadr((V230)));
V268= get((V263),VV[36],Cnil);
if(equal(/* INLINE-ARGS */V267,V268)){
goto T1069;}
T1070:;
{object V269 = Cnil;
VMR26(V269)}
T1069:;
V262= cdr((V262));
V263= car((V262));
goto T1064;}
T1051:;
if((V231!= VV[26]))goto T1083;
if(endp(cdr((V230)))){
goto T1084;}
if(!(endp(cddr((V230))))){
goto T1085;}
T1084:;
{object V270 = (VFUN_NARGS=2,(*(LnkLI122))(VV[105],(V230)));
VMR26(V270)}
T1085:;
if((get(cadr((V230)),VV[37],Cnil))!=Cnil){
goto T1089;}
{object V271 = Cnil;
VMR26(V271)}
T1089:;
V272= (*(LnkLI123))(caddr((V230)));
V273= get(cadr((V230)),VV[35],Cnil);
if(equal(/* INLINE-ARGS */V272,V273)){
goto T1091;}
{object V274 = Cnil;
VMR26(V274)}
T1091:;
V275= (*(LnkLI124))(cdddr((V230)));
V276= get(cadr((V230)),VV[36],Cnil);
{object V277 = (equal(/* INLINE-ARGS */V275,V276)?Ct:Cnil);
VMR26(V277)}
T1083:;
if((V231!= VV[89]))goto T1095;
{object V278;
object V279;
V278= cdr((V230));
V279= car((V278));
T1099:;
if(!(endp((V278)))){
goto T1100;}
{object V280 = Ct;
VMR26(V280)}
T1100:;
if(!(type_of((V279))==t_symbol)){
goto T1106;}
if((get((V279),VV[49],Cnil))==Cnil){
goto T1104;}
{object V281 = Cnil;
VMR26(V281)}
T1106:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[106],(V279))));
T1104:;
V278= cdr((V278));
V279= car((V278));
goto T1099;}
T1095:;
if((V231!= VV[91]))goto T1115;
{object V282;
object V283;
V282= cdr((V230));
V283= car((V282));
T1119:;
if(!(endp((V282)))){
goto T1120;}
{object V284 = Ct;
VMR26(V284)}
T1120:;
if(!(type_of((V283))==t_symbol)){
goto T1126;}
if((get((V283),VV[49],Cnil))!=Cnil){
goto T1124;}
{object V285 = Cnil;
VMR26(V285)}
T1126:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[107],(V283))));
T1124:;
V282= cdr((V282));
V283= car((V282));
goto T1119;}
T1115:;
if((V231!= VV[78])
&& (V231!= VV[141]))goto T1135;
{object V286;
object V287;
V286= cdr((V230));
V287= car((V286));
T1139:;
if(!(endp((V286)))){
goto T1140;}
{object V288 = Ct;
VMR26(V288)}
T1140:;
if(type_of((V287))==t_symbol){
goto T1144;}
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[108],(V287))));
T1144:;
V286= cdr((V286));
V287= car((V286));
goto T1139;}
T1135:;
if((V231!= VV[142]))goto T1152;
{object V289;
object V290;
V289= cdr((V230));
V290= car((V289));
T1156:;
if(!(endp((V289)))){
goto T1157;}
{object V291 = Ct;
VMR26(V291)}
T1157:;
if(!(type_of((V290))==t_symbol)){
goto T1163;}
{register object x= (V290),V292= symbol_value(VV[63]);
while(!endp(V292))
if(eql(x,V292->c.c_car)){
goto T1161;
}else V292=V292->c.c_cdr;}
{object V293 = Cnil;
VMR26(V293)}
T1163:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[109],(V290))));
T1161:;
V289= cdr((V289));
V290= car((V289));
goto T1156;}
T1152:;
if((V231== VV[143])
|| (V231== VV[144])
|| (V231== VV[145])
|| (V231== VV[146])
|| (V231== VV[147]))goto T1173;
if((V231== VV[136])
|| (V231== VV[148])
|| (V231== VV[25])
|| (V231== VV[149])
|| (V231== VV[150]))goto T1173;
if((V231== VV[151])
|| (V231== VV[135])
|| (V231== VV[152])
|| (V231== VV[153])
|| (V231== VV[154]))goto T1173;
if((V231== VV[155])
|| (V231== VV[156])
|| (V231== VV[138])
|| (V231== Cnil)
|| (V231== VV[157]))goto T1173;
if((V231== VV[158])
|| (V231== VV[159])
|| (V231== VV[160])
|| (V231== VV[161])
|| (V231== VV[162]))goto T1173;
if((V231== VV[163])
|| (V231== VV[164])
|| (V231== VV[165])
|| (V231== VV[137])
|| (V231== VV[166]))goto T1173;
if((V231== VV[167])
|| (V231== VV[168])
|| (V231== VV[169])
|| (V231== VV[170])
|| (V231== VV[171]))goto T1173;
if((V231== VV[172])
|| (V231== VV[173])
|| (V231== VV[174])
|| (V231== VV[175])
|| (V231== Ct))goto T1173;
if((V231!= VV[176])
&& (V231!= VV[177])
&& (V231!= VV[178]))goto T1172;
T1173:;
{object V294;
V294= (*(LnkLI121))(car((V230)));
{object V295;
object V296;
V295= cdr((V230));
V296= car((V295));
T1178:;
if(!(endp((V295)))){
goto T1179;}
{object V297 = Ct;
VMR26(V297)}
T1179:;
if(!(type_of((V296))==t_symbol)){
goto T1185;}
V298= get((V296),VV[67],Cnil);
if(equal(V298,(V294))){
goto T1183;}
{object V299 = Cnil;
VMR26(V299)}
T1185:;
(void)((VFUN_NARGS=2,(*(LnkLI122))(VV[110],(V296))));
T1183:;
V295= cdr((V295));
V296= car((V295));
goto T1178;}}
T1172:;
{register object x= car((V230)),V300= symbol_value(VV[63]);
while(!endp(V300))
if(eql(x,V300->c.c_car)){
goto T1196;
}else V300=V300->c.c_cdr;}
{object V301 = (VFUN_NARGS=2,(*(LnkLI122))(VV[111],car((V230))));
VMR26(V301)}
T1196:;
{object V302 = Cnil;
VMR26(V302)}}
}
static LnkT186(){ call_or_link(VV[186],&Lnk186);} /* C2EXPR */
static object LnkTLI185(){return call_proc0(VV[185],&LnkLI185);} /* BABOON */
static object LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[184],&LnkLI184,ap);} /* REMOVE */
static object LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],&LnkLI183,3,ap);} /* ADD-FUNCTION-DECLARATION */
static object LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],&LnkLI182,1,ap);} /* C1PROGN */
static object LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],&LnkLI180,1,ap);} /* CMP-MACROEXPAND */
static object LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],&LnkLI179,1,ap);} /* SCH-GLOBAL */
static object LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],&LnkLI140,3,ap);} /* ADD-FUNCTION-PROCLAMATION */
static object LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],&LnkLI134,2,ap);} /* PROCLAIM-VAR */
static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* *MAKE-SPECIAL */
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],&LnkLI127,ap);} /* CMPWARN */
static object LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],&LnkLI126,2,ap);} /* TYPE-AND */
static object LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],&LnkLI125,1,ap);} /* SCH-LOCAL-FUN */
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,1,ap);} /* FUNCTION-RETURN-TYPE */
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],&LnkLI123,1,ap);} /* FUNCTION-ARG-TYPES */
static object LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[122],&LnkLI122,ap);} /* WARN */
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],&LnkLI121,1,ap);} /* TYPE-FILTER */
static object LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[120],&LnkLI120,ap);} /* CMPERR */
static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* COMPILED-FUNCTION-NAME */
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* TYPEP */
static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* WT-TO-STRING */
static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* CONTAINS-SHARP-COMMA */
static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* GET-OUTPUT-STREAM-STRING */
static object LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],&LnkLI114,1,ap);} /* WT-DATA1 */
static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* MAKE-STRING-OUTPUT-STREAM */
static object LnkTLI112(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[112],&LnkLI112,1,ap);} /* PUSH-DATA-INCF */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.