This is cmpinline.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmpinline.h"
init_cmpinline(){do_init(VV);}
/* local entry for function MAKE-INFO */
static object LI1(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB1 VMS1 VMV1
{object V1;
object V2;
object V3;
object V4;
object V5;
narg= narg - 0;
va_start(ap);
{
parse_key_new(narg,Vcs +0,&LI1key,ap);
V1=(Vcs[0]);
V2=(Vcs[1]);
if(Vcs[2]==0){
V3= Ct;
}else{
V3=(Vcs[2]);}
V4=(Vcs[3]);
V5=(Vcs[4]);
base[0]= VV[0];
base[1]= (V1);
base[2]= (V2);
base[3]= (V3);
base[4]= (V4);
base[5]= (V5);
vs_top=(vs_base=base+0)+6;
siLmake_structure();
vs_top=sup;
{object V6 = vs_base[0];
VMR1(V6)}}
}}
/* local entry for function ADD-INFO */
static object LI2(V9,V10)
register object V9;object V10;
{ VMB2 VMS2 VMV2
TTL:;
V11= structure_ref((V10),VV[0],0);
V12= structure_ref((V9),VV[0],0);
V13= append(/* INLINE-ARGS */V11,/* INLINE-ARGS */V12);
(void)(structure_set((V9),VV[0],0,/* INLINE-ARGS */V13));
V14= structure_ref((V10),VV[0],1);
V15= structure_ref((V9),VV[0],1);
V16= append(/* INLINE-ARGS */V14,/* INLINE-ARGS */V15);
(void)(structure_set((V9),VV[0],1,/* INLINE-ARGS */V16));
if((structure_ref((V10),VV[0],3))==Cnil){
goto T11;}
{object V17 = structure_set((V9),VV[0],3,Ct);
VMR2(V17)}
T11:;
{object V18 = Cnil;
VMR2(V18)}
}
/* local entry for function ARGS-INFO-CHANGED-VARS */
static object LI3(V21,V22)
register object V21;object V22;
{ VMB3 VMS3 VMV3
TTL:;
V24= structure_ref((V21),VV[1],1);
{object V23= /* INLINE-ARGS */V24;
if((V23== VV[9])
|| (V23== VV[45])
|| (V23== VV[73])
|| (V23== VV[46])
|| (V23== VV[47]))goto T14;
if((V23!= VV[10]))goto T13;
T14:;
{object V25;
object V26;
V25= (V22);
V26= car((V25));
T18:;
if(!(endp((V25)))){
goto T19;}
{object V27 = Cnil;
VMR3(V27)}
T19:;
V29= structure_ref(cadr((V26)),VV[0],0);
{register object x= (V21),V28= /* INLINE-ARGS */V29;
while(!endp(V28))
if(eql(x,V28->c.c_car)){
goto T25;
}else V28=V28->c.c_cdr;
goto T23;}
T25:;
{object V30 = Ct;
VMR3(V30)}
T23:;
V25= cdr((V25));
V26= car((V25));
goto T18;}
T13:;
if((V23!= VV[74]))goto T31;
{object V31 = Cnil;
VMR3(V31)}
T31:;
{object V32;
object V33;
V32= (V22);
V33= car((V32));
T35:;
if(!(endp((V32)))){
goto T36;}
{object V34 = Cnil;
VMR3(V34)}
T36:;
V36= structure_ref(cadr((V33)),VV[0],0);
{register object x= (V21),V35= /* INLINE-ARGS */V36;
while(!endp(V35))
if(eql(x,V35->c.c_car)){
goto T41;
}else V35=V35->c.c_cdr;}
if((structure_ref(cadr((V33)),VV[0],3))==Cnil){
goto T40;}
T41:;
{object V37 = Ct;
VMR3(V37)}
T40:;
V32= cdr((V32));
V33= car((V32));
goto T35;}}
}
/* local entry for function ARGS-INFO-REFERRED-VARS */
static object LI4(V40,V41)
register object V40;object V41;
{ VMB4 VMS4 VMV4
TTL:;
V43= structure_ref((V40),VV[1],1);
{object V42= /* INLINE-ARGS */V43;
if((V42== VV[9])
|| (V42== VV[74])
|| (V42== VV[45])
|| (V42== VV[73])
|| (V42== VV[46]))goto T51;
if((V42!= VV[47])
&& (V42!= VV[10]))goto T50;
T51:;
{object V44;
object V45;
V44= (V41);
V45= car((V44));
T55:;
if(!(endp((V44)))){
goto T56;}
{object V46 = Cnil;
VMR4(V46)}
T56:;
V48= structure_ref(cadr((V45)),VV[0],1);
{register object x= (V40),V47= /* INLINE-ARGS */V48;
while(!endp(V47))
if(eql(x,V47->c.c_car)){
goto T62;
}else V47=V47->c.c_cdr;
goto T60;}
T62:;
{object V49 = Ct;
VMR4(V49)}
T60:;
V44= cdr((V44));
V45= car((V44));
goto T55;}
T50:;
{object V50;
object V51;
V50= (V41);
V51= car((V50));
T71:;
if(!(endp((V50)))){
goto T72;}
{object V52 = Cnil;
VMR4(V52)}
T72:;
V54= structure_ref(cadr((V51)),VV[0],1);
{register object x= (V40),V53= /* INLINE-ARGS */V54;
while(!endp(V53))
if(eql(x,V53->c.c_car)){
goto T77;
}else V53=V53->c.c_cdr;}
if((structure_ref(cadr((V51)),VV[0],3))==Cnil){
goto T76;}
T77:;
{object V55 = Ct;
VMR4(V55)}
T76:;
V50= cdr((V50));
V51= car((V50));
goto T71;}}
}
/* function definition for INC-INLINE-BLOCKS */
static L5()
{register object *base=vs_base;
register object *sup=base+VM5; VC5
vs_reserve(VM5);
check_arg(0);
vs_top=sup;
TTL:;
if(!(type_of(symbol_value(VV[2]))==t_cons)){
goto T87;}
{object V56;
object V57;
V56= symbol_value(VV[2]);
V57= number_plus(car((V56)),small_fixnum(1));
if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));
((V56))->c.c_car = (V57);
base[0]= (V57);
vs_top=(vs_base=base+0)+1;
return;}
T87:;
setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1)));
base[0]= symbol_value(VV[2]);
vs_top=(vs_base=base+0)+1;
return;
}
/* local entry for function INLINE-ARGS */
static object LI6(V59,V58,va_alist)
object V59,V58;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB6 VMS6 VMV6
bds_check;
{object V60;
object V61;
object V62;
if(narg <2) too_few_arguments();
V60= V59;
V61= V58;
narg = narg - 2;
if (narg <= 0) goto T93;
else {
va_start(ap);
V62= va_arg(ap,object);}
--narg; goto T94;
T93:;
V62= Cnil;
T94:;
{object V63;
object V64;
V63= Cnil;
V64= Cnil;
{object V65;
object V66;
V65= (V60);
V66= (V61);
T101:;
if(!(endp((V65)))){
goto T102;}
{object V67 = reverse((V63));
VMR6(V67)}
T102:;
{object V68;
object V69;
V68= car((V65));
V69= car((V66));
{object V70= car((V68));
if((V70!= VV[16]))goto T109;
V71= (*(LnkLI75))(caddr((V68)),(V69));
V63= make_cons(/* INLINE-ARGS */V71,(V63));
goto T106;
T109:;
if((V70!= VV[1]))goto T111;
if(((*(LnkLI76))(caaddr((V68)),cdr((V65))))==Cnil){
goto T113;}
V73= structure_ref(caaddr((V68)),VV[1],1);
{register object x= /* INLINE-ARGS */V73,V72= symbol_value(VV[3]);
while(!endp(V72))
if(eql(x,V72->c.c_car)){
goto T118;
}else V72=V72->c.c_cdr;
goto T116;}
T118:;
V74= structure_ref(caaddr((V68)),VV[1],1);
if(!(((V69))==(/* INLINE-ARGS */V74))){
goto T116;}
{object V75;
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
V75= symbol_value(VV[4]);
princ_str("\n {",VV[5]);
V76= (*(LnkLI78))((V69));
(void)((*(LnkLI77))(/* INLINE-ARGS */V76));
princ_char(86,VV[5]);
(void)((*(LnkLI77))((V75)));
princ_str("= V",VV[5]);
V77= structure_ref(caaddr((V68)),VV[1],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V77));
princ_char(59,VV[5]);
V78= list(3,VV[6],(V75),VV[7]);
V63= make_cons(/* INLINE-ARGS */V78,(V63));
vs_base=vs_top;
(void) (*Lnk79)();
vs_top=sup;
goto T106;}
T116:;
if((symbol_value(VV[8]))==Cnil){
goto T134;}
V79= structure_ref(caaddr((V68)),VV[1],1);
if((/* INLINE-ARGS */V79)==(VV[9])){
goto T132;}
T134:;
V80= structure_ref(caaddr((V68)),VV[1],1);
if(!((/* INLINE-ARGS */V80)==(VV[10]))){
goto T133;}
T132:;
{object V81;
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
V81= symbol_value(VV[4]);
princ_str("\n {object V",VV[5]);
(void)((*(LnkLI77))((V81)));
princ_str("= V",VV[5]);
V82= structure_ref(caaddr((V68)),VV[1],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V82));
princ_char(59,VV[5]);
V83= list(2,VV[6],(V81));
V84= (*(LnkLI75))(/* INLINE-ARGS */V83,(V69));
V63= make_cons(/* INLINE-ARGS */V84,(V63));
vs_base=vs_top;
(void) (*Lnk79)();
vs_top=sup;
goto T106;}
T133:;
{object V85;
V85= (*(LnkLI80))();
princ_str("\n ",VV[5]);
(void)((*(LnkLI77))((V85)));
princ_str("= ",VV[5]);
(void)((*(LnkLI81))(caaddr((V68)),cadr(caddr((V68)))));
princ_char(59,VV[5]);
V86= (*(LnkLI75))((V85),(V69));
V63= make_cons(/* INLINE-ARGS */V86,(V63));
goto T106;}
T113:;
V88= structure_ref(caaddr((V68)),VV[1],1);
{register object x= /* INLINE-ARGS */V88,V87= VV[11];
while(!endp(V87))
if(eql(x,V87->c.c_car)){
goto T161;
}else V87=V87->c.c_cdr;
goto T159;}
T161:;
V89= structure_ref(caaddr((V68)),VV[1],1);
if(((V69))==(/* INLINE-ARGS */V89)){
goto T159;}
{object V90;
V90= (VFUN_NARGS=1,(*(LnkLI82))((V69)));
princ_str("\n V",VV[5]);
(void)((*(LnkLI77))((V90)));
princ_str(" = ",VV[5]);
V91= make_cons(VV[1],caddr((V68)));
V92= (*(LnkLI75))(/* INLINE-ARGS */V91,(V69));
(void)((*(LnkLI77))(/* INLINE-ARGS */V92));
princ_char(59,VV[5]);
V93= list(2,VV[6],(V90));
V63= make_cons(/* INLINE-ARGS */V93,(V63));
goto T106;}
T159:;
V94= make_cons(VV[1],caddr((V68)));
V95= (*(LnkLI75))(/* INLINE-ARGS */V94,(V69));
V63= make_cons(/* INLINE-ARGS */V95,(V63));
goto T106;
T111:;
if((V70!= VV[83]))goto T172;
{object V96;
V96= caddr((V68));
if(((*(LnkLI84))((V96)))!=Cnil){
goto T177;}
goto T174;
T177:;
V97= cadddr((V68));
V98= structure_ref(cadr((V68)),VV[0],2);
V64= (*(LnkLI85))((V96),/* INLINE-ARGS */V97,/* INLINE-ARGS */V98);
if(((V64))!=Cnil){
goto T179;}
goto T174;
T179:;
base[0]= (V64);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk86)();
vs_top=sup;}
{object V99;
V99= (*(LnkLI87))((V64),cadddr((V68)));
base[0]= small_fixnum(0);
base[1]= caddr((V64));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T187;}
if((symbol_value(VV[8]))==Cnil){
goto T185;}
T187:;
{register object x= cadr((V64)),V100= VV[12];
while(!endp(V100))
if(eql(x,V100->c.c_car)){
goto T194;
}else V100=V100->c.c_cdr;
goto T186;}
T194:;
if(((V69))==(cadr((V64)))){
goto T186;}
T185:;
{object V101;
V101= (VFUN_NARGS=1,(*(LnkLI82))((V69)));
princ_str("\n V",VV[5]);
(void)((*(LnkLI77))((V101)));
princ_str(" = ",VV[5]);
V102= (*(LnkLI75))((V99),(V69));
(void)((*(LnkLI77))(/* INLINE-ARGS */V102));
princ_char(59,VV[5]);
V103= list(2,VV[6],(V101));
V63= make_cons(/* INLINE-ARGS */V103,(V63));
goto T106;}
T186:;
if(((*(LnkLI88))(cdr((V65)),cdr((V66))))!=Cnil){
goto T204;}
base[0]= small_fixnum(0);
base[1]= caddr((V64));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T208;}
if(((V62))==Cnil){
goto T204;}
{register object x= (V62),V104= VV[13];
while(!endp(V104))
if(x==(V104->c.c_car)){
goto T215;
}else V104=V104->c.c_cdr;
goto T204;}
T215:;
T208:;
base[0]= small_fixnum(4);
base[1]= caddr((V64));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T204;}
base[0]= small_fixnum(1);
base[1]= caddr((V64));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T205;}
if((cdr((V65)))==Cnil){
goto T205;}
T204:;
{object V105;
V105= Cnil;
if(!(((V69))==(Ct))){
goto T228;}
V105= (VFUN_NARGS=0,(*(LnkLI82))());
princ_str("\n V",VV[5]);
(void)((*(LnkLI77))((V105)));
princ_str("= ",VV[5]);
base[0]= (V99);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk89)();
vs_top=sup;
goto T226;
T228:;
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
V105= symbol_value(VV[4]);
princ_str("\n {",VV[5]);
V106= (*(LnkLI78))((V69));
(void)((*(LnkLI77))(/* INLINE-ARGS */V106));
princ_char(86,VV[5]);
(void)((*(LnkLI77))((V105)));
princ_str("= ",VV[5]);
{object V107= (V69);
if((V107!= VV[45]))goto T247;
base[0]= (V99);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk90)();
vs_top=sup;
goto T246;
T247:;
if((V107!= VV[91]))goto T249;
base[0]= (V99);
base[1]= VV[7];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk92)();
vs_top=sup;
goto T246;
T249:;
if((V107!= VV[73]))goto T252;
base[0]= (V99);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk93)();
vs_top=sup;
goto T246;
T252:;
if((V107!= VV[46]))goto T254;
base[0]= (V99);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk94)();
vs_top=sup;
goto T246;
T254:;
if((V107!= VV[47]))goto T256;
base[0]= (V99);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk95)();
vs_top=sup;
goto T246;
T256:;
base[0]= (V99);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk89)();
vs_top=sup;}
T246:;
vs_base=vs_top;
(void) (*Lnk79)();
vs_top=sup;
T226:;
princ_char(59,VV[5]);
V108= list(3,VV[6],(V105),VV[7]);
V63= make_cons(/* INLINE-ARGS */V108,(V63));
goto T106;}
T205:;
V109= (*(LnkLI75))((V99),(V69));
V63= make_cons(/* INLINE-ARGS */V109,(V63));
goto T106;}
T174:;
{object V110;
if((symbol_value(VV[8]))==Cnil){
goto T265;}
V110= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI82))()));
goto T263;
T265:;
V110= list(2,VV[14],(*(LnkLI96))());
T263:;
bds_bind(VV[15],(V110));
V111= (*(LnkLI97))((V68));
bds_unwind1;
V112= (*(LnkLI75))((V110),(V69));
V63= make_cons(/* INLINE-ARGS */V112,(V63));
goto T106;}
T172:;
if((V70!= VV[98]))goto T269;
V113= (*(LnkLI99))(cdr((V68)),(V69));
V63= make_cons(/* INLINE-ARGS */V113,(V63));
goto T106;
T269:;
if((V70!= VV[100]))goto T271;
{object V114;
object V115;
V114= caddr((V68));
V115= cadddr((V68));
base[0]= make_cons(VV[1],(V114));
bds_bind(VV[15],base[0]);
V116= (*(LnkLI97))((V115));
bds_unwind1;
if(!((car((V115)))==(VV[16]))){
goto T277;}
V117= (*(LnkLI75))(caddr((V115)),(V69));
V63= make_cons(/* INLINE-ARGS */V117,(V63));
goto T106;
T277:;
V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V114)),cdr((V65)));
V66= make_cons((V69),(V66));
goto T106;}
T271:;
{object V118;
if((symbol_value(VV[8]))==Cnil){
goto T285;}
if(!(((V69))==(Ct))){
goto T288;}
V118= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI82))()));
goto T283;
T288:;
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
V119= make_cons((V69),symbol_value(VV[4]));
setq(VV[17],make_cons(/* INLINE-ARGS */V119,symbol_value(VV[17])));
{register object x= (V69),V121= symbol_value(VV[3]);
while(!endp(V121))
if(eql(x,V121->c.c_car)){
goto T296;
}else V121=V121->c.c_cdr;
goto T295;}
T296:;
V120= (V69);
goto T293;
T295:;
V120= VV[10];
T293:;
V122= (VFUN_NARGS=6,(*(LnkLI101))(VV[18],(V69),VV[19],V120,VV[20],cdar(symbol_value(VV[17]))));
V118= list(3,VV[1],/* INLINE-ARGS */V122,Cnil);
goto T283;
T285:;
V118= list(2,VV[14],(*(LnkLI96))());
T283:;
bds_bind(VV[15],(V118));
(void)((*(LnkLI97))((V68)));
V123= (*(LnkLI75))((V118),(V69));
V63= make_cons(/* INLINE-ARGS */V123,(V63));
bds_unwind1;}}}
T106:;
V65= cdr((V65));
V66= cdr((V66));
goto T101;}}}
}
/* local entry for function COERCE-LOC */
static object LI7(V126,V127)
register object V126;object V127;
{ VMB7 VMS7 VMV7
TTL:;
{object V128= (V127);
if((V128!= VV[45]))goto T303;
{object V129 = list(2,VV[21],(V126));
VMR7(V129)}
T303:;
if((V128!= VV[91]))goto T304;
{object V130 = list(2,VV[22],(V126));
VMR7(V130)}
T304:;
if((V128!= VV[73]))goto T305;
{object V131 = list(2,VV[23],(V126));
VMR7(V131)}
T305:;
if((V128!= VV[46]))goto T306;
{object V132 = list(2,VV[24],(V126));
VMR7(V132)}
T306:;
if((V128!= VV[47]))goto T307;
{object V133 = list(2,VV[25],(V126));
VMR7(V133)}
T307:;
{object V134 = (V126);
VMR7(V134)}}
}
/* local entry for function GET-INLINE-LOC */
static object LI8(V137,V138)
object V137;object V138;
{ VMB8 VMS8 VMV8
TTL:;
{object V139;
object V140;
V139= car(cdddr((V137)));
V140= Cnil;
V140= (VFUN_NARGS=3,(*(LnkLI7))((V138),car((V137)),(V139)));
if(!(type_of((V139))==t_string)){
goto T312;}
base[0]= elt((V139),0);
base[1]= VV[26];
vs_top=(vs_base=base+0)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T312;}
{int V141;
object V142;
V141= 1;
V142= Cnil;
{unsigned char V143;
V143= char_code(elt((V139),V141));
T324:;
base[0]= code_char(V143);
base[1]= VV[27];
vs_top=(vs_base=base+0)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T325;}
V141= (V141)+(1);
goto T321;
T325:;
V144 = make_fixnum(((V143))-(48));
V142= make_cons(V144,(V142));
V141= (V141)+(1);
V143= char_code(elt((V139),V141));
goto T324;}
T321:;
{object V145;
int V146;
object V147;
V145= (V140);
V146= 0;
V147= Cnil;
T343:;
if(!(endp((V145)))){
goto T344;}
V140= reverse((V147));
goto T312;
T344:;
V149 = make_fixnum(V146);
{register object x= V149,V148= (V142);
while(!endp(V148))
if(eql(x,V148->c.c_car)){
goto T352;
}else V148=V148->c.c_cdr;
goto T351;}
T352:;
{object V150;
object V151;
object V152;
V150= car((V145));
V151= (V150);
V152= Cnil;
if(!(type_of((V150))==t_cons)){
goto T356;}
{register object x= car((V150)),V153= VV[28];
while(!endp(V153))
if(eql(x,V153->c.c_car)){
goto T360;
}else V153=V153->c.c_cdr;
goto T356;}
T360:;
V152= car((V150));
V151= cadr((V150));
T356:;
if(!(type_of((V151))==t_cons)){
goto T365;}
{register object x= car((V151)),V154= VV[29];
while(!endp(V154))
if(eql(x,V154->c.c_car)){
goto T364;
}else V154=V154->c.c_cdr;}
{register object x= car((V151)),V155= VV[30];
while(!endp(V155))
if(eql(x,V155->c.c_car)){
goto T371;
}else V155=V155->c.c_cdr;
goto T365;}
T371:;
base[0]= small_fixnum(0);
base[1]= cadr((V151));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T364;}
base[0]= small_fixnum(1);
base[1]= cadr((V151));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T365;}
T364:;
princ_str("\n {",VV[5]);
vs_base=vs_top;
(void) (*Lnk79)();
vs_top=sup;
{object V156;
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
V156= symbol_value(VV[4]);
V157= list(2,VV[6],(V156));
V147= make_cons(/* INLINE-ARGS */V157,(V147));
{object V158= (V152);
if((V158!= Cnil))goto T387;
princ_str("object V",VV[5]);
(void)((*(LnkLI77))((V156)));
princ_str("= ",VV[5]);
base[0]= (V150);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk89)();
vs_top=sup;
goto T382;
T387:;
if((V158!= VV[21]))goto T393;
princ_str("int V",VV[5]);
(void)((*(LnkLI77))((V156)));
princ_str("= ",VV[5]);
base[0]= (V151);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk90)();
vs_top=sup;
goto T382;
T393:;
if((V158!= VV[22]))goto T399;
princ_str("GEN V",VV[5]);
(void)((*(LnkLI77))((V156)));
princ_str("= ",VV[5]);
base[0]= (V151);
base[1]= VV[31];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk92)();
vs_top=sup;
goto T382;
T399:;
if((V158!= VV[23]))goto T406;
princ_str("unsigned char V",VV[5]);
(void)((*(LnkLI77))((V156)));
princ_str("= ",VV[5]);
base[0]= (V151);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk93)();
vs_top=sup;
goto T382;
T406:;
if((V158!= VV[24]))goto T412;
princ_str("double V",VV[5]);
(void)((*(LnkLI77))((V156)));
princ_str("= ",VV[5]);
base[0]= (V151);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk94)();
vs_top=sup;
goto T382;
T412:;
if((V158!= VV[25]))goto T418;
princ_str("float V",VV[5]);
(void)((*(LnkLI77))((V156)));
princ_str("= ",VV[5]);
base[0]= (V151);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk95)();
vs_top=sup;
goto T382;
T418:;
(void)((*(LnkLI102))());}}
T382:;
princ_char(59,VV[5]);
goto T349;
T365:;
V147= make_cons((V150),(V147));
goto T349;}
T351:;
V147= make_cons(car((V145)),(V147));
T349:;
V145= cdr((V145));
V146= (V146)+1;
goto T343;}}
T312:;
V159= (*(LnkLI103))(cadr((V137)));
{object V160 = list(4,/* INLINE-ARGS */V159,caddr((V137)),(V139),(V140));
VMR8(V160)}}
}
/* local entry for function INLINE-TYPE */
static object LI9(V162)
object V162;
{ VMB9 VMS9 VMV9
TTL:;
{register object x= (V162),V164= symbol_value(VV[32]);
while(!endp(V164))
if(type_of(V164->c.c_car)==t_cons &&eql(x,V164->c.c_car->c.c_car)){
V163= (V164->c.c_car);
goto T433;
}else V164=V164->c.c_cdr;
V163= Cnil;}
T433:;
base[0]= cdr(V163);
if(base[0]==Cnil)goto T431;
{object V165 = base[0];
VMR9(V165)}
T431:;
{object V166 = VV[33];
VMR9(V166)}
}
/* local entry for function GET-INLINE-INFO */
static object LI10(V170,V171,V172)
object V170;register object V171;object V172;
{ VMB10 VMS10 VMV10
TTL:;
{object V173;
base[0]=MMcons(Cnil,Cnil);
V173= Cnil;
if(((VFUN_NARGS=2,(*(LnkLI104))((V170),(V171))))!=Cnil){
goto T436;}
goto T435;
T436:;
(void)((*(LnkLI105))((V170),(V172),(V171)));
T435:;
{object V174;
object V175= (V171);
if(endp(V175)){
V171= Cnil;
goto T439;}
base[1]=V174=MMcons(Cnil,Cnil);
T440:;
{object V176;
V176= (V175->c.c_car);
(V174->c.c_car)= structure_ref(cadr((V176)),VV[0],2);}
if(endp(V175=MMcdr(V175))){
V171= base[1];
goto T439;}
V174=MMcdr(V174)=MMcons(Cnil,Cnil);
goto T440;}
T439:;
if((symbol_value(VV[34]))==Cnil){
goto T447;}
(base[0]->c.c_car)= get((V170),VV[35],Cnil);
if(((base[0]->c.c_car))==Cnil){
goto T443;}
goto T445;
T447:;
(base[0]->c.c_car)= get((V170),VV[36],Cnil);
if(((base[0]->c.c_car))==Cnil){
goto T443;}
T445:;
{object V177;
object V178;
V177= (base[0]->c.c_car);
V178= car((V177));
T454:;
if(!(endp((V177)))){
goto T455;}
goto T443;
T455:;
V173= (*(LnkLI106))((V178),(V171),(V172));
if(((V173))==Cnil){
goto T459;}
{object V179 = (V173);
VMR10(V179)}
T459:;
V177= cdr((V177));
V178= car((V177));
goto T454;}
T443:;
(base[0]->c.c_car)= get((V170),VV[37],Cnil);
if(((base[0]->c.c_car))==Cnil){
goto T468;}
{object V180;
object V181;
V180= (base[0]->c.c_car);
V181= car((V180));
T475:;
if(!(endp((V180)))){
goto T476;}
goto T468;
T476:;
V173= (*(LnkLI106))((V181),(V171),(V172));
if(((V173))==Cnil){
goto T480;}
{object V182 = (V173);
VMR10(V182)}
T480:;
V180= cdr((V180));
V181= car((V180));
goto T475;}
T468:;
{object V183;
object V184;
V183= symbol_value(VV[38]);
V184= car((V183));
T493:;
if(!(endp((V183)))){
goto T494;}
goto T489;
T494:;
if(!((car((V184)))==((V170)))){
goto T498;}
V173= (*(LnkLI106))(cdr((V184)),(V171),(V172));
if(((V173))==Cnil){
goto T498;}
{object V185 = (V173);
VMR10(V185)}
T498:;
V183= cdr((V183));
V184= car((V183));
goto T493;}
T489:;
(base[0]->c.c_car)= get((V170),VV[39],Cnil);
if(((base[0]->c.c_car))==Cnil){
goto T509;}
if(!(type_of((base[0]->c.c_car))==t_cons)){
goto T516;}
if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){
goto T516;}
{object V186;
V187 = make_fixnum(length((V171)));
V186= (number_compare(V187,car((base[0]->c.c_car)))>=0?Ct:Cnil);
(base[0]->c.c_car)= cdr((base[0]->c.c_car));
if(((V186))==Cnil){
goto T509;}
goto T514;}
T516:;
T514:;
base[1]= make_fixnum(length((V171)));
base[2]= VV[40];
base[3]= Ct;
vs_top=(vs_base=base+1)+3;
Lmake_list();
vs_top=sup;
V188= vs_base[0];
V189=
make_cclosure_new(LC27,Cnil,base[0],Cdata);
{object V190 = list(4,V188,Ct,small_fixnum(3),V189);
VMR10(V190)}
T509:;
{object V191 = Cnil;
VMR10(V191)}}
}
/* local entry for function INLINE-TYPE-MATCHES */
static object LI11(V195,V196,V197)
object V195;object V196;object V197;
{ VMB11 VMS11 VMV11
TTL:;
{object V198;
V198= Cnil;
{object V199;
V199= car((V195));
{object V200;
object V201;
V200= (V196);
V201= car((V200));
T537:;
if(!(endp((V200)))){
goto T538;}
if(!(equal((V199),VV[41]))){
goto T541;}
goto T532;
T541:;
if(!(endp((V199)))){
goto T530;}
goto T532;
T538:;
if(!(endp((V199)))){
goto T544;}
goto T530;
T544:;
if(!(equal((V199),VV[42]))){
goto T547;}
V199= VV[43];
T547:;
if(!((car((V199)))==(VV[44]))){
goto T553;}
if(((*(LnkLI107))(VV[45],(V201)))==Cnil){
goto T556;}
V198= make_cons(VV[45],(V198));
goto T551;
T556:;
if(((*(LnkLI107))(VV[46],(V201)))==Cnil){
goto T560;}
V198= make_cons(VV[46],(V198));
goto T551;
T560:;
if(((*(LnkLI107))(VV[47],(V201)))==Cnil){
goto T564;}
V198= make_cons(VV[47],(V198));
goto T551;
T564:;
goto T530;
T553:;
if(((*(LnkLI107))(car((V199)),(V201)))==Cnil){
goto T568;}
V198= make_cons(car((V199)),(V198));
goto T551;
T568:;
goto T530;
T551:;
{object V202;
V202= car((V199));
V199= cdr((V199));}
V200= cdr((V200));
V201= car((V200));
goto T537;}}
T532:;
if(((*(LnkLI107))(cadr((V195)),(V197)))==Cnil){
goto T530;}
V203= reverse((V198));
{object V204 = make_cons(/* INLINE-ARGS */V203,cdr((V195)));
VMR11(V204)}
T530:;
{object V205 = Cnil;
VMR11(V205)}}
}
/* local entry for function NEED-TO-PROTECT */
static object LI12(V208,V209)
object V208;object V209;
{ VMB12 VMS12 VMV12
TTL:;
{object V210;
V210= Cnil;
{object V211;
object V212;
V211= (V208);
V212= (V209);
T585:;
if(!(endp((V211)))){
goto T586;}
{object V213 = Cnil;
VMR12(V213)}
T586:;
{object V214;
V214= car((V211));
{object V215= car((V214));
if((V215!= VV[16]))goto T592;
goto T590;
T592:;
if((V215!= VV[1]))goto T593;
if(((*(LnkLI76))(caaddr((V214)),cdr((V211))))!=Cnil){
goto T594;}
V217= structure_ref(caaddr((V214)),VV[1],1);
{register object x= /* INLINE-ARGS */V217,V216= VV[48];
while(!endp(V216))
if(eql(x,V216->c.c_car)){
goto T598;
}else V216=V216->c.c_cdr;
goto T590;}
T598:;
V218= car((V212));
V219= structure_ref(caaddr((V214)),VV[1],1);
if((/* INLINE-ARGS */V218)==(/* INLINE-ARGS */V219)){
goto T590;}
T594:;
{object V220 = Ct;
VMR12(V220)}
T593:;
if((V215!= VV[83]))goto T600;
{object V221;
V221= caddr((V214));
if(((*(LnkLI84))((V221)))==Cnil){
goto T602;}
V222= cadddr((V214));
V223= structure_ref(cadr((V214)),VV[0],2);
V210= (*(LnkLI85))((V221),/* INLINE-ARGS */V222,/* INLINE-ARGS */V223);
if(((V210))==Cnil){
goto T602;}
base[0]= small_fixnum(0);
base[1]= caddr((V210));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T602;}
base[0]= small_fixnum(1);
base[1]= caddr((V210));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T602;}
base[0]= small_fixnum(4);
base[1]= caddr((V210));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T602;}
{register object x= cadr((V210)),V224= VV[49];
while(!endp(V224))
if(eql(x,V224->c.c_car)){
goto T622;
}else V224=V224->c.c_cdr;
goto T620;}
T622:;
if(!((car((V212)))==(cadr((V210))))){
goto T602;}
T620:;
if(((*(LnkLI88))(cadddr((V214)),car((V210))))==Cnil){
goto T590;}
T602:;
{object V225 = Ct;
VMR12(V225)}}
T600:;
if((V215!= VV[98]))goto T625;
V226= make_cons(caddr((V214)),Cnil);
if(((*(LnkLI88))(/* INLINE-ARGS */V226,VV[50]))==Cnil){
goto T590;}
{object V227 = Ct;
VMR12(V227)}
T625:;
{object V228 = Ct;
VMR12(V228)}}}
T590:;
V211= cdr((V211));
V212= cdr((V212));
goto T585;}}
}
/* local entry for function WT-C-PUSH */
static object LI13()
{ VMB13 VMS13 VMV13
TTL:;
if((symbol_value(VV[8]))==Cnil){
goto T633;}
vs_base=vs_top;
(void) (*Lnk79)();
vs_top=sup;
{object V229;
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
V229= symbol_value(VV[4]);
princ_char(123,VV[5]);
(void)((*(LnkLI77))(symbol_value(VV[51])));
princ_str("object V",VV[5]);
(void)((*(LnkLI77))((V229)));
princ_char(59,VV[5]);
{object V230 = list(2,VV[6],(V229));
VMR13(V230)}}
T633:;
{object V231 = list(2,VV[14],(*(LnkLI96))());
VMR13(V231)}
}
/* local entry for function CLOSE-INLINE-BLOCKS */
static object LI14()
{ VMB14 VMS14 VMV14
TTL:;
{object V232;
V232= symbol_value(VV[2]);
if(!(type_of((V232))==t_cons)){
goto T645;}
if(!(eql(cdr((V232)),VV[52]))){
goto T648;}
princ_str("restore_avma;",VV[5]);
T648:;
V232= car((V232));
T645:;
{int V233;
int V234;
V233= fix((V232));
V234= 0;
T656:;
if(!((V234)>=(V233))){
goto T657;}
{object V235 = Cnil;
VMR14(V235)}
T657:;
princ_char(125,VV[5]);
V234= (V234)+1;
goto T656;}}
}
/* function definition for WT-INLINE-LOC */
static L15()
{register object *base=vs_base;
register object *sup=base+VM15; VC15
vs_reserve(VM15);
{register object V236;
object V237;
check_arg(2);
V236=(base[0]);
V237=(base[1]);
vs_top=sup;
TTL:;
{int V238;
int V239;
V238= 0;
V239= -1;
if(!(type_of((V236))==t_string)){
goto T669;}
base[2]= elt((V236),0);
base[3]= VV[26];
vs_top=(vs_base=base+2)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T671;}
V238= 1;
T679:;
base[2]= elt((V236),V238);
base[3]= VV[27];
vs_top=(vs_base=base+2)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T680;}
V238= (V238)+(1);
goto T671;
T680:;
V238= (V238)+(1);
goto T679;
T671:;
{int V240;
V240= length((V236));
T693:;
if(!((V238)>=(V240))){
goto T694;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T694:;
{unsigned char V241;
V241= char_code(elt((V236),V238));
base[2]= code_char(V241);
base[3]= VV[53];
vs_top=(vs_base=base+2)+2;
Lchar_eq();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T701;}
{object V242;
object V243;
V242= elt((V236),(V238)+1);
V243= small_fixnum(0);
if(!(eql((V242),VV[54]))){
goto T709;}
if(!((V239)>=(0))){
goto T711;}
V244 = make_fixnum(V239);
V245= one_plus(V244);
V246 = make_fixnum(length((V237)));
if(!(number_compare(/* INLINE-ARGS */V245,V246)<0)){
goto T711;}
princ_char(44,VV[5]);
T711:;
{object V247;
V248 = make_fixnum(V239);
V249= one_plus(V248);
V247= nthcdr(fixint(/* INLINE-ARGS */V249),(V237));
T719:;
if(((V247))!=Cnil){
goto T720;}
goto T705;
T720:;
base[2]= car((V247));
vs_top=(vs_base=base+2)+1;
(void) (*Lnk89)();
vs_top=sup;
if((cdr((V247)))==Cnil){
goto T726;}
princ_char(44,VV[5]);
T726:;
V247= cdr((V247));
goto T719;}
T709:;
base[2]= (V242);
base[3]= small_fixnum(10);
vs_top=(vs_base=base+2)+2;
Ldigit_char_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T705;}
{ save_avma;
base[2]= (V242);
vs_top=(vs_base=base+2)+1;
Lchar_code();
vs_top=sup;
V250= vs_base[0];
V251 = stoi((48));
V243= make_integer(subii(otoi(V250),V251));restore_avma;}
{ save_avma;
V252 = stoi(length((V236)));
V253 = stoi(V238);
{GEN V254= addii(V253,stoi(2));
if(!(cmpii(V252,/* INLINE-ARGS */V254)>0)){
restore_avma;
goto T741;}
restore_avma; restore_avma;}}
{ save_avma;
V255 = stoi(V238);
V256= make_integer(addii(V255,stoi(2)));
V242= elt((V236),fixint(/* INLINE-ARGS */V256));restore_avma;}
if(((V242))==Cnil){
goto T741;}
base[2]= (V242);
vs_top=(vs_base=base+2)+1;
Ldigit_char_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T741;}
V257= number_times((V243),small_fixnum(10));
{ save_avma;
base[2]= (V242);
vs_top=(vs_base=base+2)+1;
Lchar_code();
vs_top=sup;
V258= vs_base[0];
V259 = stoi((48));
V260= make_integer(subii(otoi(V258),V259));
V243= number_plus(/* INLINE-ARGS */V257,/* INLINE-ARGS */V260);restore_avma;}
V238= (V238)+(1);
T741:;
V261 = make_fixnum(V239);
if(!(number_compare((V243),V261)>=0)){
goto T755;}
V239= fix((V243));
T755:;
base[2]= nth(fixint((V243)),(V237));
vs_top=(vs_base=base+2)+1;
(void) (*Lnk89)();
vs_top=sup;}
T705:;
V238= (V238)+(2);
goto T698;
T701:;
(void)(princ(code_char(V241),symbol_value(VV[5])));
V238= (V238)+(1);}
T698:;
goto T693;}
T669:;
base[2]= (V236);
{object V262;
V262= (V237);
vs_top=base+3;
while(!endp(V262))
{vs_push(car(V262));V262=cdr(V262);}
vs_base=base+3;}
super_funcall_no_event(base[2]);
return;}
}
}
/* function definition for WT-INLINE */
static L16()
{register object *base=vs_base;
register object *sup=base+VM16; VC16
vs_reserve(VM16);
{object V263;
object V264;
object V265;
check_arg(3);
V263=(base[0]);
V264=(base[1]);
V265=(base[2]);
vs_top=sup;
TTL:;
base[3]= (V264);
base[4]= (V265);
vs_top=(vs_base=base+3)+2;
(void) (*Lnk108)();
return;
}
}
/* local entry for function WT-INLINE-COND */
static object LI17(V269,V270,V271)
object V269;object V270;object V271;
{ VMB17 VMS17 VMV17
TTL:;
princ_char(40,VV[5]);
base[0]= (V270);
base[1]= (V271);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk108)();
vs_top=sup;
princ_str("?Ct:Cnil)",VV[5]);
{object V272 = Cnil;
VMR17(V272)}
}
/* local entry for function WT-INLINE-FIXNUM */
static object LI18(V276,V277,V278)
object V276;object V277;object V278;
{ VMB18 VMS18 VMV18
TTL:;
if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){
goto T775;}
princ_str("CMP",VV[5]);
T775:;
princ_str("make_fixnum(",VV[5]);
base[0]= (V277);
base[1]= (V278);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk108)();
vs_top=sup;
princ_char(41,VV[5]);
{object V279 = Cnil;
VMR18(V279)}
}
/* function definition for WT-INLINE-INTEGER */
static L19()
{register object *base=vs_base;
register object *sup=base+VM19; VC19
vs_reserve(VM19);
{object V280;
object V281;
object V282;
check_arg(3);
V280=(base[0]);
V281=(base[1]);
V282=(base[2]);
vs_top=sup;
TTL:;
princ_str("make_integer(",VV[5]);
base[3]= (V281);
base[4]= (V282);
vs_top=(vs_base=base+3)+2;
(void) (*Lnk108)();
vs_top=sup;
princ_char(41,VV[5]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
}
}
/* local entry for function WT-INLINE-CHARACTER */
static object LI20(V286,V287,V288)
object V286;object V287;object V288;
{ VMB20 VMS20 VMV20
TTL:;
princ_str("code_char(",VV[5]);
base[0]= (V287);
base[1]= (V288);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk108)();
vs_top=sup;
princ_char(41,VV[5]);
{object V289 = Cnil;
VMR20(V289)}
}
/* local entry for function WT-INLINE-LONG-FLOAT */
static object LI21(V293,V294,V295)
object V293;object V294;object V295;
{ VMB21 VMS21 VMV21
TTL:;
princ_str("make_longfloat(",VV[5]);
base[0]= (V294);
base[1]= (V295);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk108)();
vs_top=sup;
princ_char(41,VV[5]);
{object V296 = Cnil;
VMR21(V296)}
}
/* local entry for function WT-INLINE-SHORT-FLOAT */
static object LI22(V300,V301,V302)
object V300;object V301;object V302;
{ VMB22 VMS22 VMV22
TTL:;
princ_str("make_shortfloat(",VV[5]);
base[0]= (V301);
base[1]= (V302);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk108)();
vs_top=sup;
princ_char(41,VV[5]);
{object V303 = Cnil;
VMR22(V303)}
}
/* local entry for function ARGS-CAUSE-SIDE-EFFECT */
static object LI23(V305)
object V305;
{ VMB23 VMS23 VMV23
TTL:;
{object V306;
V306= Cnil;
{object V307;
object V308;
V307= (V305);
V308= car((V307));
T813:;
if(!(endp((V307)))){
goto T814;}
{object V309 = Cnil;
VMR23(V309)}
T814:;
{object V310= car((V308));
if((V310!= VV[16])
&& (V310!= VV[1])
&& (V310!= VV[98]))goto T819;
goto T818;
T819:;
if((V310!= VV[83]))goto T820;
{object V311;
V311= caddr((V308));
if(((*(LnkLI84))((V311)))==Cnil){
goto T822;}
V312= cadddr((V308));
V313= structure_ref(cadr((V308)),VV[0],2);
V306= (*(LnkLI85))((V311),/* INLINE-ARGS */V312,/* INLINE-ARGS */V313);
if(((V306))==Cnil){
goto T822;}
base[0]= (V306);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk109)();
vs_top=sup;
base[0]= small_fixnum(1);
base[1]= caddr((V306));
vs_top=(vs_base=base+0)+2;
Llogbitp();
vs_top=sup;
V314= vs_base[0];
if((V314)==Cnil){
goto T818;}
T822:;
{object V315 = Ct;
VMR23(V315)}}
T820:;
{object V316 = Ct;
VMR23(V316)}}
T818:;
V307= cdr((V307));
V308= car((V307));
goto T813;}}
}
/* local entry for function LIST-INLINE */
static object LI24(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB24 VMS24 VMV24
{object V317;
narg= narg - 0;
va_start(ap);
V318 = list_vector(narg,ap);
V317= V318;
{object V319;
object V320;
V319= Cnil;
V320= make_fixnum(length((V317)));
if(type_of(symbol_value(VV[15]))==t_cons){
goto T846;}
V319= Cnil;
goto T845;
T846:;
if((car(symbol_value(VV[15])))==(VV[1])){
goto T848;}
V319= Cnil;
goto T845;
T848:;
V321= structure_ref(cadr(symbol_value(VV[15])),VV[1],5);
V319= ((/* INLINE-ARGS */V321)==(VV[57])?Ct:Cnil);
T845:;
if(((V319))==Cnil){
goto T843;}
princ_str("(ALLOCA_CONS(",VV[5]);
(void)((*(LnkLI77))((V320)));
princ_str("),ON_STACK_LIST(",VV[5]);
(void)((*(LnkLI77))((V320)));
goto T841;
T843:;
princ_str("list(",VV[5]);
V322 = make_fixnum(length((V317)));
(void)((*(LnkLI77))(V322));
T841:;
{object V323;
object V324;
V323= (V317);
V324= car((V323));
T860:;
if(!(endp((V323)))){
goto T861;}
goto T856;
T861:;
(void)((*(LnkLI77))(VV[58]));
(void)((*(LnkLI77))((V324)));
V323= cdr((V323));
V324= car((V323));
goto T860;}
T856:;
(void)((*(LnkLI77))(VV[59]));
if(((V319))==Cnil){
goto T876;}
(void)((*(LnkLI77))(VV[59]));
{object V325 = Cnil;
VMR24(V325)}
T876:;
{object V326 = Cnil;
VMR24(V326)}}}
}
/* local entry for function LIST*-INLINE */
static object LI25(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB25 VMS25 VMV25
{register object V327;
narg= narg - 0;
va_start(ap);
V328 = list_vector(narg,ap);
V327= V328;
V330 = make_fixnum(length((V327)));
{object V329= V330;
if(!eql(V329,VV[60]))goto T879;
(void)((*(LnkLI77))(car((V327))));
{object V331 = Cnil;
VMR25(V331)}
T879:;
if(!eql(V329,VV[61]))goto T881;
princ_str("make_cons(",VV[5]);
(void)((*(LnkLI77))(car((V327))));
princ_char(44,VV[5]);
(void)((*(LnkLI77))(cadr((V327))));
princ_char(41,VV[5]);
{object V332 = Cnil;
VMR25(V332)}
T881:;
princ_str("listA(",VV[5]);
V333 = make_fixnum(length((V327)));
(void)((*(LnkLI77))(V333));
{object V334;
object V335;
V334= (V327);
V335= car((V334));
T894:;
if(!(endp((V334)))){
goto T895;}
goto T890;
T895:;
(void)((*(LnkLI77))(VV[58]));
(void)((*(LnkLI77))((V335)));
V334= cdr((V334));
V335= car((V334));
goto T894;}
T890:;
(void)((*(LnkLI77))(VV[59]));
{object V336 = Cnil;
VMR25(V336)}}}
}
/* local entry for function DEFSYSFUN */
static object LI26(V343,V344,V345,V346,V347,V348)
register object V343;object V344;object V345;register object V346;object V347;object V348;
{ VMB26 VMS26 VMV26
TTL:;
if(((V344))==Cnil){
goto T908;}
(void)(putprop((V343),(V344),VV[62]));
T908:;
if(((V345))==Cnil){
goto T911;}
{object V350;
object V351= (V345);
if(endp(V351)){
V349= Cnil;
goto T914;}
base[0]=V350=MMcons(Cnil,Cnil);
T915:;
{object V352;
V352= (V351->c.c_car);
if(!(((V352))==(VV[63]))){
goto T919;}
(V350->c.c_car)= VV[63];
goto T916;
T919:;
(V350->c.c_car)= (*(LnkLI110))((V352));}
T916:;
if(endp(V351=MMcdr(V351))){
V349= base[0];
goto T914;}
V350=MMcdr(V350)=MMcons(Cnil,Cnil);
goto T915;}
T914:;
(void)(putprop((V343),V349,VV[64]));
T911:;
if(((V346))==Cnil){
goto T921;}
{object V353;
if(!(type_of((V346))!=t_cons)){
goto T927;}
V354= make_cons((V346),Cnil);
goto T925;
T927:;
V354= (V346);
T925:;
V353= (*(LnkLI111))(V354);
if(!(type_of((V353))==t_cons)){
goto T930;}
goto T929;
T930:;
V353= make_cons((V353),Cnil);
T929:;
if((cdr((V353)))!=Cnil){
goto T935;}
V355= car((V353));
goto T933;
T935:;
V355= make_cons(VV[65],(V353));
T933:;
(void)(putprop((V343),V355,VV[66]));}
T921:;
if(((V347))==Cnil){
goto T937;}
(void)(putprop((V343),Ct,VV[67]));
T937:;
if(((V348))==Cnil){
goto T941;}
{object V356 = putprop((V343),Ct,VV[68]);
VMR26(V356)}
T941:;
{object V357 = Cnil;
VMR26(V357)}
}
/* local function CLOSURE */
static LC27(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM27; VC27
vs_reserve(VM27);
{object V358;
vs_top[0]=Cnil;
{object *p=vs_top;
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
V358=(base[0]);
vs_top=sup;
princ_str("(VFUN_NARGS=",VV[5]);
V359 = make_fixnum(length((V358)));
(void)((*(LnkLI77))(V359));
princ_char(44,VV[5]);
base[1]= (base0[0]->c.c_car);
base[2]= (V358);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk108)();
vs_top=sup;
princ_char(41,VV[5]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
}
static object LnkTLI111(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[111],&LnkLI111,1,ap);} /* FUNCTION-RETURN-TYPE */
static object LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[110],&LnkLI110,1,ap);} /* TYPE-FILTER */
static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* FIX-OPT */
static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* WT-INLINE-LOC */
static object LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],&LnkLI107,2,ap);} /* TYPE>= */
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,3,ap);} /* INLINE-TYPE-MATCHES */
static object LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],&LnkLI105,3,ap);} /* ADD-FAST-LINK */
static object LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[104],&LnkLI104,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */
static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,1,ap);} /* INLINE-TYPE */
static object LnkTLI102(){return call_proc0(VV[102],&LnkLI102);} /* BABOON */
static object LnkTLI7(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[7],&LnkLI7,ap);} /* INLINE-ARGS */
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[101],&LnkLI101,ap);} /* MAKE-VAR */
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,2,ap);} /* COERCE-LOC-STRUCTURE-REF */
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,1,ap);} /* C2EXPR* */
static object LnkTLI96(){return call_proc0(VV[96],&LnkLI96);} /* VS-PUSH */
static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* WT-SHORT-FLOAT-LOC */
static LnkT94(){ call_or_link(VV[94],&Lnk94);} /* WT-LONG-FLOAT-LOC */
static LnkT93(){ call_or_link(VV[93],&Lnk93);} /* WT-CHARACTER-LOC */
static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* WT-INTEGER-LOC */
static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* WT-FIXNUM-LOC */
static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* WT-LOC */
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],&LnkLI88,2,ap);} /* NEED-TO-PROTECT */
static object LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[87],&LnkLI87,2,ap);} /* GET-INLINE-LOC */
static LnkT86(){ call_or_link(VV[86],&Lnk86);} /* SAVE-AVMA */
static object LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[85],&LnkLI85,3,ap);} /* GET-INLINE-INFO */
static object LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[84],&LnkLI84,1,ap);} /* INLINE-POSSIBLE */
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],&LnkLI82,ap);} /* CS-PUSH */
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,2,ap);} /* WT-VAR */
static object LnkTLI80(){return call_proc0(VV[80],&LnkLI80);} /* WT-C-PUSH */
static LnkT79(){ call_or_link(VV[79],&Lnk79);} /* INC-INLINE-BLOCKS */
static object LnkTLI78(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[78],&LnkLI78,1,ap);} /* REP-TYPE */
static object LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],&LnkLI77,1,ap);} /* WT1 */
static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,2,ap);} /* ARGS-INFO-CHANGED-VARS */
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,2,ap);} /* COERCE-LOC */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.