This is defstruct.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "defstruct.h"
init_defstruct(){do_init(VV);}
/* local entry for function MAKE-ACCESS-FUNCTION */
static object LI1(V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,V1,va_alist)
object V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,V1;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB1 VMS1 VMV1
{object V12;
object V13;
object V14;
object V15;
object V16;
object V17;
object V18;
object V19;
object V20;
object V21;
object V22;
if(narg <11) too_few_arguments();
V12= V11;
V13= V10;
V14= V9;
V15= V8;
V16= V7;
V17= V6;
V18= V5;
V19= V4;
V20= V3;
V21= V2;
Vcs[10]=MMcons(V1,Cnil);
narg = narg - 11;
if (narg <= 0) goto T1;
else {
va_start(ap);
V22= va_arg(ap,object);}
--narg; goto T2;
T1:;
V22= Cnil;
T2:;
{register object V23;
register object V24;
object V25;
base[1]= coerce_to_string((V13));
base[2]= coerce_to_string((V18));
vs_top=(vs_base=base+1)+2;
(void) (*Lnk109)();
vs_top=sup;
base[0]= vs_base[0];
vs_top=(vs_base=base+0)+1;
Lintern();
vs_top=sup;
V23= vs_base[0];
V24= Cnil;
V25= Cnil;
{object V26= (V14);
if((V26!= Cnil))goto T9;
V24= symbol_value(VV[0]);
goto T8;
T9:;
if((V26!= VV[20]))goto T11;
V24= symbol_value(VV[1]);
goto T8;
T11:;
if((V26!= VV[19]))goto T13;
V24= symbol_value(VV[2]);
goto T8;
T13:;
FEerror("The ECASE key value ~s is illegal.",1,V26);}
T8:;
V27 = make_fixnum(length((V24)));
if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){
goto T16;}
goto T15;
T16:;
V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));
(void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28)));
T15:;
if(((V25))!=Cnil){
goto T18;}
base[0]= (V23);
base[1]= VV[3];
base[2]= VV[4];
base[3]= (V20);
vs_top=(vs_base=base+0)+4;
(void) (*Lnk111)();
vs_top=sup;
if((V17)!=Cnil){
goto T18;}{object V29;
base[0]= (V23);
vs_top=(vs_base=base+0)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T28;}
V29= Cnil;
goto T27;
T28:;
V30= aref1((V24),fixint((Vcs[10]->c.c_car)));
base[0]= (V23);
vs_top=(vs_base=base+0)+1;
Lsymbol_function();
vs_top=sup;
V31= vs_base[0];
V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil);
T27:;
if(V29==Cnil)goto T26;
goto T18;
T26:;}
base[0]= (V23);{object V32;
V32= aref1((V24),fixint((Vcs[10]->c.c_car)));
if(V32==Cnil)goto T35;
base[1]= V32;
goto T34;
T35:;}
if(!(((V24))==(symbol_value(VV[0])))){
goto T39;}
V33=
make_cclosure_new(LC16,Cnil,Vcs[10],Cdata);
goto T37;
T39:;
if(!(((V24))==(symbol_value(VV[1])))){
goto T42;}
V33=
make_cclosure_new(LC17,Cnil,Vcs[10],Cdata);
goto T37;
T42:;
if(!(((V24))==(symbol_value(VV[2])))){
goto T45;}
V33=
make_cclosure_new(LC18,Cnil,Vcs[10],Cdata);
goto T37;
T45:;
V33= Cnil;
T37:;
base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33);
T34:;
vs_top=(vs_base=base+0)+2;
siLfset();
vs_top=sup;
T18:;
if(((V21))==Cnil){
goto T49;}
(void)(remprop((V23),VV[6]));
(void)(sputprop((V23),VV[7],Ct));
goto T47;
T49:;
(void)(remprop((V23),VV[8]));
(void)(remprop((V23),VV[9]));
(void)(remprop((V23),VV[10]));
{object V34;
V34= get((V23),VV[6],Cnil);
if(!(type_of((V34))==t_cons)){
goto T57;}
if(((V16))==Cnil){
goto T57;}
base[0]= (V16);
base[1]= car((V34));
vs_top=(vs_base=base+0)+2;
(void) (*Lnk112)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T57;}
if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){
goto T57;}
V25= Ct;
goto T47;
T57:;
if(((V14))==Cnil){
goto T70;}
V35= (V14);
goto T68;
T70:;
V35= (V12);
T68:;
V36= make_cons(V35,(Vcs[10]->c.c_car));
(void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));}
T47:;
{object V37 = Cnil;
VMR1(V37)}}}
}
/* local entry for function MAKE-CONSTRUCTOR */
static object LI2(V43,V44,V45,V46,V47)
object V43;object V44;object V45;object V46;object V47;
{ VMB2 VMS2 VMV2
TTL:;
{object V48;
register object V49;
{object V50;
object V51= (V47);
if(endp(V51)){
V48= Cnil;
goto T72;}
base[0]=V50=MMcons(Cnil,Cnil);
T73:;
if(((V51->c.c_car))!=Cnil){
goto T76;}
(V50->c.c_car)= Cnil;
goto T74;
T76:;
if((car((V51->c.c_car)))!=Cnil){
goto T79;}
(V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car)));
goto T74;
T79:;
(V50->c.c_car)= car((V51->c.c_car));
T74:;
if(endp(V51=MMcdr(V51))){
V48= base[0];
goto T72;}
V50=MMcdr(V50)=MMcons(Cnil,Cnil);
goto T73;}
T72:;
{object V53;
object V54= (V47);
if(endp(V54)){
V49= Cnil;
goto T81;}
base[0]=V53=MMcons(Cnil,Cnil);
T82:;
if(((V54->c.c_car))!=Cnil){
goto T85;}
(V53->c.c_cdr)= Cnil;
goto T83;
T85:;
if((car((V54->c.c_car)))!=Cnil){
goto T88;}
(V53->c.c_cdr)= Cnil;
goto T83;
T88:;
if((cadr((V54->c.c_car)))!=Cnil){
goto T91;}
(V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil);
goto T83;
T91:;
V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car)));
(V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil);
T83:;
while(!endp(MMcdr(V53)))V53=MMcdr(V53);
if(endp(V54=MMcdr(V54))){
base[0]=base[0]->c.c_cdr;
V49= base[0];
goto T81;}
goto T82;}
T81:;
if(!(type_of((V44))==t_cons)){
goto T95;}
{register object V57;
register object V58;
register object V59;
V57= cadr((V44));
V58= Cnil;
V59= Cnil;
T100:;
if(!(endp((V57)))){
goto T101;}
base[0]= make_cons(VV[12],(V58));
{object V60;
object V61= (V49);
if(endp(V61)){
base[1]= Cnil;
goto T106;}
base[2]=V60=MMcons(Cnil,Cnil);
T107:;
if(!(type_of((V61->c.c_car))!=t_cons)){
goto T114;}
V64= (V61->c.c_car);
goto T112;
T114:;
V64= car((V61->c.c_car));
T112:;
{register object x= V64,V63= (V59);
while(!endp(V63))
if(eql(x,V63->c.c_car)){
goto T111;
}else V63=V63->c.c_cdr;
goto T110;}
T111:;
(V60->c.c_cdr)= Cnil;
goto T108;
T110:;
(V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil);
T108:;
while(!endp(MMcdr(V60)))V60=MMcdr(V60);
if(endp(V61=MMcdr(V61))){
base[2]=base[2]->c.c_cdr;
base[1]= base[2];
goto T106;}
goto T107;}
T106:;
vs_top=(vs_base=base+0)+2;
Lreconc();
vs_top=sup;
V49= vs_base[0];
goto T97;
T101:;
{register object x= car((V57)),V65= VV[13];
while(!endp(V65))
if(eql(x,V65->c.c_car)){
goto T119;
}else V65=V65->c.c_cdr;
goto T117;}
T119:;
if(!((car((V57)))==(VV[14]))){
goto T120;}
goto T117;
T120:;
V57= make_cons(VV[14],(V57));
T117:;
if(!((car((V57)))==(VV[14]))){
goto T125;}
V58= make_cons(VV[14],(V58));
{register object V66;
object V67;
object V68;
V66= cdr((V57));
V67= Cnil;
V68= Cnil;
T132:;
if(!(endp((V66)))){
goto T133;}
base[0]= make_cons(VV[12],(V58));
{object V69;
object V70= (V49);
if(endp(V70)){
base[1]= Cnil;
goto T139;}
base[2]=V69=MMcons(Cnil,Cnil);
T140:;
if(!(type_of((V70->c.c_car))!=t_cons)){
goto T147;}
V73= (V70->c.c_car);
goto T145;
T147:;
V73= car((V70->c.c_car));
T145:;
{register object x= V73,V72= (V59);
while(!endp(V72))
if(eql(x,V72->c.c_car)){
goto T144;
}else V72=V72->c.c_cdr;
goto T143;}
T144:;
(V69->c.c_cdr)= Cnil;
goto T141;
T143:;
(V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil);
T141:;
while(!endp(MMcdr(V69)))V69=MMcdr(V69);
if(endp(V70=MMcdr(V70))){
base[2]=base[2]->c.c_cdr;
base[1]= base[2];
goto T139;}
goto T140;}
T139:;
vs_top=(vs_base=base+0)+2;
Lreconc();
vs_top=sup;
V49= vs_base[0];
goto T129;
T133:;
{register object x= car((V66)),V74= VV[13];
while(!endp(V74))
if(eql(x,V74->c.c_car)){
goto T152;
}else V74=V74->c.c_cdr;
goto T150;}
T152:;
if(!((car((V66)))==(VV[15]))){
goto T153;}
V58= make_cons(VV[15],(V58));
V66= cdr((V66));
if(endp((V66))){
goto T161;}
if(type_of(car((V66)))==t_symbol){
goto T160;}
T161:;
(void)((*(LnkLI113))());
T160:;
V59= make_cons(car((V66)),(V59));
V58= make_cons(car((V66)),(V58));
V66= cdr((V66));
if(!(endp((V66)))){
goto T153;}
base[0]= make_cons(VV[12],(V58));
{object V75;
object V76= (V49);
if(endp(V76)){
base[1]= Cnil;
goto T176;}
base[2]=V75=MMcons(Cnil,Cnil);
T177:;
if(!(type_of((V76->c.c_car))!=t_cons)){
goto T184;}
V79= (V76->c.c_car);
goto T182;
T184:;
V79= car((V76->c.c_car));
T182:;
{register object x= V79,V78= (V59);
while(!endp(V78))
if(eql(x,V78->c.c_car)){
goto T181;
}else V78=V78->c.c_cdr;
goto T180;}
T181:;
(V75->c.c_cdr)= Cnil;
goto T178;
T180:;
(V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil);
T178:;
while(!endp(MMcdr(V75)))V75=MMcdr(V75);
if(endp(V76=MMcdr(V76))){
base[2]=base[2]->c.c_cdr;
base[1]= base[2];
goto T176;}
goto T177;}
T176:;
vs_top=(vs_base=base+0)+2;
Lreconc();
vs_top=sup;
V49= vs_base[0];
goto T129;
T153:;
if((car((V66)))==(VV[12])){
goto T186;}
(void)((*(LnkLI113))());
T186:;
V58= make_cons(VV[12],(V58));
{register object V80;
V80= cdr((V66));
T194:;
if(!(endp((V80)))){
goto T195;}
goto T191;
T195:;
V58= make_cons(car((V80)),(V58));
if(!(type_of(car((V80)))!=t_cons)){
goto T203;}
if(!(type_of(car((V80)))==t_symbol)){
goto T203;}
V59= make_cons(car((V80)),(V59));
goto T201;
T203:;
if(!(type_of(caar((V80)))==t_symbol)){
goto T209;}
if(endp(cdar((V80)))){
goto T208;}
if(!(endp(cddar((V80))))){
goto T209;}
T208:;
V59= make_cons(caar((V80)),(V59));
goto T201;
T209:;
(void)((*(LnkLI113))());
T201:;
V80= cdr((V80));
goto T194;}
T191:;
base[0]= (V58);
{object V81;
object V82= (V49);
if(endp(V82)){
base[1]= Cnil;
goto T222;}
base[2]=V81=MMcons(Cnil,Cnil);
T223:;
if(!(type_of((V82->c.c_car))!=t_cons)){
goto T230;}
V85= (V82->c.c_car);
goto T228;
T230:;
V85= car((V82->c.c_car));
T228:;
{register object x= V85,V84= (V59);
while(!endp(V84))
if(eql(x,V84->c.c_car)){
goto T227;
}else V84=V84->c.c_cdr;
goto T226;}
T227:;
(V81->c.c_cdr)= Cnil;
goto T224;
T226:;
(V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil);
T224:;
while(!endp(MMcdr(V81)))V81=MMcdr(V81);
if(endp(V82=MMcdr(V82))){
base[2]=base[2]->c.c_cdr;
base[1]= base[2];
goto T222;}
goto T223;}
T222:;
vs_top=(vs_base=base+0)+2;
Lreconc();
vs_top=sup;
V49= vs_base[0];
goto T129;
T150:;
if(!(type_of(car((V66)))!=t_cons)){
goto T238;}
V67= car((V66));
goto T236;
T238:;
if(!(endp(cdar((V66))))){
goto T243;}
V67= caar((V66));
goto T236;
T243:;
goto T234;
T236:;
base[0]= (V67);
base[1]= (V49);
base[2]= VV[16];
base[3]= VV[114];
vs_top=(vs_base=base+0)+4;
Lmember();
vs_top=sup;
V68= vs_base[0];
if(((V68))==Cnil){
goto T234;}
V58= make_cons(car((V68)),(V58));
goto T232;
T234:;
V58= make_cons(car((V66)),(V58));
T232:;
if(!(type_of(car((V66)))!=t_cons)){
goto T257;}
if(type_of(car((V66)))==t_symbol){
goto T259;}
(void)((*(LnkLI113))());
T259:;
V59= make_cons(car((V66)),(V59));
goto T255;
T257:;
if(type_of(caar((V66)))==t_symbol){
goto T264;}
(void)((*(LnkLI113))());
goto T255;
T264:;
if(endp(cdar((V66)))){
goto T266;}
if(!(endp(cddar((V66))))){
goto T267;}
T266:;
V59= make_cons(caar((V66)),(V59));
goto T255;
T267:;
if(type_of(caddar((V66)))==t_symbol){
goto T273;}
(void)((*(LnkLI113))());
goto T255;
T273:;
if(endp(cdddar((V66)))){
goto T276;}
(void)((*(LnkLI113))());
goto T255;
T276:;
V59= make_cons(caar((V66)),(V59));
V59= make_cons(caddar((V66)),(V59));
T255:;
V66= cdr((V66));
goto T132;}
T129:;
goto T97;
T125:;
if(type_of(car((V57)))==t_symbol){
goto T284;}
(void)((*(LnkLI113))());
T284:;
V58= make_cons(car((V57)),(V58));
V59= make_cons(car((V57)),(V59));
V57= cdr((V57));
goto T100;}
T97:;
V44= car((V44));
goto T93;
T95:;
V49= make_cons(VV[17],(V49));
T93:;
if(((V45))!=Cnil){
goto T296;}
{object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48)));
VMR2(V86)}
T296:;
if(((V45))==(VV[19])){
goto T298;}
if(!(type_of((V45))==t_cons)){
goto T299;}
if(!((car((V45)))==(VV[19]))){
goto T299;}
T298:;
{object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48)));
VMR2(V87)}
T299:;
if(!(((V45))==(VV[20]))){
goto T306;}
{object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48)));
VMR2(V88)}
T306:;
{object V89;
base[0]= VV[21];
base[1]= (V45);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
V89= vs_base[0];
if(((V89))==Cnil){
goto T312;}
{object V90 = (V89);
VMR2(V90)}
T312:;
{object V91 = Cnil;
VMR2(V91)}}}
}
/* local entry for function ILLEGAL-BOA */
static object LI3()
{ VMB3 VMS3 VMV3
TTL:;
base[0]= VV[22];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
{object V92 = vs_base[0];
VMR3(V92)}
}
/* local entry for function MAKE-PREDICATE */
static object LI4(V98,V99,V100,V101,V102)
object V98;object V99;register object V100;object V101;register object V102;
{ VMB4 VMS4 VMV4
TTL:;
{object V103;
V103= (((V100))==Cnil?Ct:Cnil);
if(((V103))==Cnil){
goto T317;}
{object V104 = (V103);
VMR4(V104)}
T317:;
if(((V100))==(VV[19])){
goto T319;}
if(!(type_of((V100))==t_cons)){
goto T320;}
if(!((car((V100)))==(VV[19]))){
goto T320;}
T319:;
if(((V101))!=Cnil){
goto T326;}
base[0]= VV[23];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T326:;
V105= list(3,VV[27],VV[28],(V102));
V106= list(3,VV[30],VV[31],(V102));
{object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98)))));
VMR4(V107)}
T320:;
if(!(((V100))==(VV[20]))){
goto T331;}
if(((V101))!=Cnil){
goto T333;}
base[0]= VV[32];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T333:;
if(!(number_compare((V102),small_fixnum(0))==0)){
goto T338;}
{object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98)))));
VMR4(V108)}
T338:;
V109= list(3,VV[38],(V102),VV[39]);
base[0]= cdr(symbol_value(VV[40]));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk115)();
vs_top=sup;
V110= vs_base[0];
V111= list(2,/* INLINE-ARGS */V109,V110);
V112= make_cons(VV[42],Cnil);
V113= make_cons(VV[43],Cnil);
V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98)))));
{object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46])));
VMR4(V115)}
T331:;
{object V116;
base[0]= VV[47];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
V116= vs_base[0];
if(((V116))==Cnil){
goto T345;}
{object V117 = (V116);
VMR4(V117)}
T345:;
{object V118 = Cnil;
VMR4(V118)}}}
}
/* local entry for function PARSE-SLOT-DESCRIPTION */
static object LI5(V121,V122)
register object V121;object V122;
{ VMB5 VMS5 VMV5
TTL:;
{object V123;
object V124;
register object V125;
register object V126;
V123= Cnil;
V124= Cnil;
V125= Cnil;
V126= Cnil;
if(!(type_of((V121))!=t_cons)){
goto T349;}
V123= (V121);
goto T347;
T349:;
if(!(endp(cdr((V121))))){
goto T353;}
V123= car((V121));
goto T347;
T353:;
V123= car((V121));
V124= cadr((V121));
{register object V127;
register object V128;
register object V129;
V127= cddr((V121));
V128= Cnil;
V129= Cnil;
T362:;
if(!(endp((V127)))){
goto T363;}
goto T347;
T363:;
V128= car((V127));
if(!(endp(cdr((V127))))){
goto T369;}
base[0]= VV[48];
base[1]= (V127);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T369:;
V129= cadr((V127));
{object V130= (V128);
if((V130!= VV[77]))goto T377;
V125= (V129);
goto T376;
T377:;
if((V130!= VV[116]))goto T379;
V126= (V129);
goto T376;
T379:;
base[0]= VV[49];
base[1]= (V127);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;}
T376:;
V127= cddr((V127));
goto T362;}
T347:;
{object V131 = list(5,(V123),(V124),(V125),(V126),(V122));
VMR5(V131)}}
}
/* local entry for function OVERWRITE-SLOT-DESCRIPTIONS */
static object LI6(V134,V135)
object V134;register object V135;
{ VMB6 VMS6 VMV6
TTL:;
if(((V135))!=Cnil){
goto T387;}
{object V136 = Cnil;
VMR6(V136)}
T387:;
{register object V137;
base[0]= caar((V135));
base[1]= (V134);
base[2]= VV[16];
base[3]= symbol_function(VV[43]);
vs_top=(vs_base=base+0)+4;
Lmember();
vs_top=sup;
V137= vs_base[0];
if(((V137))==Cnil){
goto T395;}
if((cadddr(car((V137))))!=Cnil){
goto T397;}
if((cadddr(car((V135))))==Cnil){
goto T397;}
base[0]= VV[50];
base[1]= (V137);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T397:;
{object V138;
object V139;
V138= car((V137));
V139= (*(LnkLI117))(caddr(car((V137))));
if(type_of(cddr((V138)))!=t_cons)FEwrong_type_argument(Scons,cddr((V138)));
(cddr((V138)))->c.c_car = (V139);
(void)(cddr((V138)));}{object V141;
V141= caddr(car((V137)));
if(V141==Cnil)goto T412;
V140= V141;
goto T411;
T412:;}
V140= Ct;
T411:;
V142= (*(LnkLI118))(V140);{object V144;
V144= caddr(car((V135)));
if(V144==Cnil)goto T415;
V143= V144;
goto T414;
T415:;}
V143= Ct;
T414:;
V145= (*(LnkLI118))(V143);
if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){
goto T408;}
base[0]= VV[51];
base[1]= car((V137));
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T408:;
V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135)))));
V147= (*(LnkLI119))((V134),cdr((V135)));
{object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147);
VMR6(V148)}
T395:;
V149= car((V135));
V150= (*(LnkLI119))((V134),cdr((V135)));
{object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150);
VMR6(V151)}}
}
/* local entry for function MAKE-T-TYPE */
static object LI7(V155,V156,V157)
object V155;object V156;object V157;
{ VMB7 VMS7 VMV7
TTL:;
{object V158;
V158= Cnil;
{register object V159;
V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct));
if(((V156))==Cnil){
goto T421;}
{object V160;
object V161;
V160= get((V156),VV[55],Cnil);
V161= Cnil;
if((V160)!=Cnil){
goto T425;}
base[0]= VV[56];
base[1]= (V156);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T425:;
V161= structure_ref((V160),VV[55],2);
{object V162;
register object V163;
V164 = make_fixnum(length((V161)));
V162= (number_compare((V155),V164)<=0?((V155)):V164);
V163= small_fixnum(0);
T433:;
if(!(number_compare((V163),(V162))>=0)){
goto T434;}
goto T421;
T434:;
V165= aref1((V161),fixint((V163)));
(void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165));
V163= one_plus((V163));
goto T433;}}
T421:;
{register object V166;
register object V167;
V166= (V157);
V167= car((V166));
T446:;
if(!(endp((V166)))){
goto T447;}
goto T442;
T447:;
V158= car(cddddr((V167)));
{register object V168;
V168= caddr((V167));
base[1]= (V168);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk121)();
vs_top=sup;
V169= vs_base[0];
if(!(number_compare(V169,symbol_value(VV[57]))<=0)){
goto T453;}
base[1]= (V168);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk122)();
vs_top=sup;
V170= vs_base[0];
(void)(aset1((V159),fixint((V158)),V170));}
T453:;
V166= cdr((V166));
V167= car((V166));
goto T446;}
T442:;
V171 = make_fixnum(length(symbol_value(VV[58])));
if(!(number_compare((V155),V171)<0)){
goto T467;}
{register object V173;
V173= small_fixnum(0);
T472:;
if(!(number_compare((V173),V155)>=0)){
goto T473;}
goto T469;
T473:;
{int V174= fix(aref1((V159),fixint((V173))));
if((/* INLINE-ARGS */V174)==(0)){
goto T477;}}
{object V175 = (V159);
VMR7(V175)}
T477:;
V173= one_plus((V173));
goto T472;}
T469:;
{object V176 = symbol_value(VV[58]);
VMR7(V176)}
T467:;
{object V177 = (V159);
VMR7(V177)}}}
}
/* local entry for function ROUND-UP */
static int LI8(V180,V181)
int V180;int V181;
{ VMB8 VMS8 VMV8
TTL:;
base[0]= make_fixnum(V180);
base[1]= make_fixnum(V181);
vs_top=(vs_base=base+0)+2;
Lceiling();
vs_top=sup;
V180= fix(vs_base[0]);
{int V182 = (V180)*(V181);
VMR8(V182)}
}
/* local entry for function GET-SLOT-POS */
static object LI9(V186,V187,V188)
object V186;object V187;object V188;
{ VMB9 VMS9 VMV9
TTL:;
{register object V189;
object V190;
object V191;
V189= Cnil;
V190= Cnil;
V191= Cnil;
{register object V192;
register object V193;
V192= (V188);
V193= car((V192));
T495:;
if(!(endp((V192)))){
goto T496;}
goto T491;
T496:;
if(((V193))==Cnil){
goto T500;}
if((car((V193)))==Cnil){
goto T500;}
V189= (*(LnkLI117))(caddr((V193)));
if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193));
(cddr(V193))->c.c_car = V189;
(void)(cddr(V193));
{register object V196;
V196= cadr((V193));
base[1]= (V196);
base[2]= (V189);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk123)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T509;}
if(!(type_of((V196))==t_symbol)){
goto T515;}
base[1]= (V196);
vs_top=(vs_base=base+1)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T515;}
base[1]= (V196);
vs_top=(vs_base=base+1)+1;
Lsymbol_value();
vs_top=sup;
V196= vs_base[0];
T515:;
base[1]= (V196);
vs_top=(vs_base=base+1)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T523;}
goto T509;
T523:;
{object V198;
V198= (*(LnkLI124))((V196),(V189));
if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193));
(cdr(V193))->c.c_car = (V198);
(void)(cdr(V193));}}
T509:;
{register object x= (V189),V199= VV[60];
while(!endp(V199))
if(x==(V199->c.c_car)){
goto T529;
}else V199=V199->c.c_cdr;
goto T500;}
T529:;
V190= Ct;
T500:;
V192= cdr((V192));
V193= car((V192));
goto T495;}
T491:;
{object V200;
if(((V190))==Cnil){
goto T537;}
V200= Cnil;
goto T536;
T537:;
V201 = make_fixnum(length(symbol_value(VV[59])));
if(number_compare((V186),V201)<0){
goto T539;}
V200= Cnil;
goto T536;
T539:;{object V202;
V202= symbol_value(VV[59]);
base[0]= Ct;
vs_top=(vs_base=base+0)+1;
(void) (*Lnk125)();
vs_top=sup;
V203= vs_base[0];
V200= list(3,V202,number_times((V186),V203),Cnil);}
T536:;
if(((V200))==Cnil){
goto T544;}
{object V204 = (V200);
VMR9(V204)}
T544:;
{object V205;
register int V206;
int V207;
int V208;
object V209;
int V210;
V205= (VFUN_NARGS=5,(*(LnkLI120))((V186),VV[52],VV[61],VV[54],Ct));
V206= 0;
V207= 0;
V208= 0;
V210= 0;
V209= Cnil;
{register object V211;
register object V212;
V211= (V188);
V212= car((V211));
T555:;
if(!(endp((V211)))){
goto T556;}
goto T551;
T556:;
V209= caddr((V212));
base[1]= (V209);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk121)();
vs_top=sup;
V208= fix(vs_base[0]);
V213 = make_fixnum(V208);
if(number_compare(V213,symbol_value(VV[57]))<=0){
goto T565;}
V209= Ct;
if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212));
(cddr(V212))->c.c_car = Ct;
(void)(cddr(V212));
V208= fix(symbol_value(VV[57]));
V212= nconc((V212),VV[62]);
T565:;
V210= (*(LnkLI126))(V206,V208);
if(!((V206)==(V210))){
goto T578;}
goto T577;
T578:;
V191= Ct;
T577:;
V206= V210;
V216 = make_fixnum(V206);
(void)(aset1((V205),V207,V216));
V217 = make_fixnum(V206);
base[1]= (V209);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk125)();
vs_top=sup;
V218= vs_base[0];
V206= fix(number_plus(V217,V218));
V207= (V207)+(1);
V211= cdr((V211));
V212= car((V211));
goto T555;}
T551:;
base[0]= Ct;
vs_top=(vs_base=base+0)+1;
(void) (*Lnk125)();
vs_top=sup;
V219= vs_base[0];
V220 = make_fixnum((*(LnkLI126))(V206,fix(V219)));
{object V221 = list(3,(V205),V220,(V191));
VMR9(V221)}}}}
}
/* local entry for function DEFINE-STRUCTURE */
static object LI10(V233,V232,V231,V230,V229,V228,V227,V226,V225,V224,V223,V222,va_alist)
object V233,V232,V231,V230,V229,V228,V227,V226,V225,V224,V223,V222;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB10 VMS10 VMV10
{object V234;
register object V235;
object V236;
object V237;
object V238;
object V239;
register object V240;
object V241;
object V242;
object V243;
object V244;
object V245;
register object V246;
if(narg <12) too_few_arguments();
Vcs[0]=MMcons(V233,Cnil);
V234= V232;
V235= V231;
V236= V230;
V237= V229;
V238= V228;
V239= V227;
V240= V226;
V241= V225;
V242= V224;
V243= V223;
V244= V222;
narg = narg - 12;
if (narg <= 0) goto T597;
else {
va_start(ap);
V245= va_arg(ap,object);}
if (--narg <= 0) goto T598;
else {
V246= va_arg(ap,object);}
--narg; goto T599;
T597:;
V245= Cnil;
T598:;
V246= Cnil;
T599:;
{object V247;
object V248;
V247= Cnil;
V248= Cnil;
if(type_of((V235))==t_cons){
goto T605;}
goto T604;
T605:;
if((car((V235)))==(VV[19])){
goto T607;}
goto T604;
T607:;
V235= VV[19];
T604:;
V248= make_fixnum(length((V237)));
{register object V249;
register object V250;
V249= (V237);
V250= car((V249));
T616:;
if(!(endp((V249)))){
goto T617;}
goto T612;
T617:;
if((V250)==Cnil){
goto T621;}
if((car((V250)))!=Cnil){
goto T622;}
goto T621;
T622:;
base[1]= (Vcs[0]->c.c_car);
base[2]= (V234);
base[3]= (V235);
base[4]= (V236);
base[5]= (V240);
base[6]= (V246);
{object V251;
V251= (V250);
vs_top=base+7;
while(!endp(V251))
{vs_push(car(V251));V251=cdr(V251);}
vs_base=base+1;}
(void) (*Lnk127)();
vs_top=sup;
T621:;
V249= cdr((V249));
V250= car((V249));
goto T616;}
T612:;
if(((V238))==Cnil){
goto T636;}
if(((V246))!=Cnil){
goto T636;}
base[0]= (V238);
{object V252= (V235);
if((V252!= Cnil))goto T643;
base[1]= symbol_function(VV[128]);
goto T642;
T643:;
if((V252!= VV[20]))goto T644;
base[1]= symbol_function(VV[129]);
goto T642;
T644:;
if((V252!= VV[19]))goto T645;
base[1]= symbol_function(VV[130]);
goto T642;
T645:;
FEerror("The ECASE key value ~s is illegal.",1,V252);}
T642:;
vs_top=(vs_base=base+0)+2;
siLfset();
vs_top=sup;
T636:;
if(((V235))!=Cnil){
goto T648;}
if(!(((Vcs[0]->c.c_car))==(VV[55]))){
goto T648;}
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
(void) (*Lnk125)();
vs_top=sup;
V253= vs_base[0];
V254= number_times((V248),V253);
base[0]= (VFUN_NARGS=5,(*(LnkLI120))(/* INLINE-ARGS */V254,VV[52],VV[63],VV[54],Ct));
base[1]= (*(LnkLI131))((V248),Cnil,(V237));
base[2]= symbol_value(VV[59]);
base[3]= (V237);
base[4]= Ct;
vs_top=(vs_base=base+0)+5;
(void) (*Lnk132)();
vs_top=sup;
V247= vs_base[0];
goto T646;
T648:;
{object V255;
object V256;
object V257;
object V258;
if((V240)==Cnil){
V258= Cnil;
goto T660;}
V258= get((V240),VV[55],Cnil);
T660:;
V255= Cnil;
V256= small_fixnum(0);
V257= Cnil;
if(((V258))==Cnil){
goto T661;}
if((structure_ref((V258),VV[55],11))==Cnil){
goto T664;}
if((structure_ref((V258),VV[55],3))==Cnil){
goto T665;}
{object V259;
V259= get((Vcs[0]->c.c_car),VV[55],Cnil);
if((V259)==Cnil){
goto T670;}
V260= structure_ref((V259),VV[55],4);
if((/* INLINE-ARGS */V260)==((V258))){
goto T664;}}
T670:;
T665:;
(void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240))));
T664:;
{object V262;
base[1]= (Vcs[0]->c.c_car);
base[2]= structure_ref(V258,VV[55],3);
vs_top=(vs_base=base+1)+2;
Ladjoin();
vs_top=sup;
V262= vs_base[0];
(void)(structure_set(V258,VV[55],3,(V262)));}
T661:;
if(((V235))!=Cnil){
goto T675;}
V255= (*(LnkLI134))((V248),(V240),(V237));
V256= cadr((V255));
V257= caddr((V255));
V255= car((V255));
T675:;
if(((V235))==Cnil){
goto T687;}
V263= Cnil;
goto T686;
T687:;
V263= (*(LnkLI131))((V248),(V240),(V237));
T686:;
V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));}
T646:;
{object V264;
V264= get((Vcs[0]->c.c_car),VV[55],Cnil);
if(!(((Vcs[0]->c.c_car))==(VV[55]))){
goto T693;}
if(((V264))==Cnil){
goto T695;}
(void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81])));
T695:;
if((V264)!=Cnil){
goto T691;}
(void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));
goto T691;
T693:;
if(((V264))==Cnil){
goto T699;}
(void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car)));
goto T691;
T699:;
(void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));
T691:;
if(((V245))==Cnil){
goto T701;}
(void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245)));
T701:;
if(((V235))!=Cnil){
goto T689;}
if(((V244))==Cnil){
goto T689;}
base[0]= (V244);
base[1]= VV[3];
base[2]= VV[83];
base[3]= Ct;
vs_top=(vs_base=base+0)+4;
(void) (*Lnk111)();
vs_top=sup;
if((V246)!=Cnil){
goto T713;}
base[0]= (V244);
base[1]=
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);
vs_top=(vs_base=base+0)+2;
siLfset();
vs_top=sup;
T713:;
(void)(sputprop((V244),VV[84],VV[85]));
(void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));}
T689:;
{object V265 = Cnil;
VMR10(V265)}}}
}
/* macro definition for DEFSTRUCT */
static L11()
{register object *base=vs_base;
register object *sup=base+VM11; VC11
vs_reserve(VM11);
check_arg(2);
vs_top=sup;
{object V266=base[0]->c.c_cdr;
if(endp(V266))invalid_macro_call();
base[2]= (V266->c.c_car);
V266=V266->c.c_cdr;
base[3]= V266;}
{register object V267;
object V268;
register object V269;
register object V270;
register object V271;
register object V272;
register object V273;
register object V274;
register object V275;
register object V276;
register object V277;
register object V278;
register object V279;
register object V280;
register object V281;
object V282;
object V283;
register object V284;
V267= base[3];
V268= Cnil;
V269= Cnil;
V270= Cnil;
V271= Cnil;
V272= Cnil;
V273= Cnil;
V274= Cnil;
V275= Cnil;
V276= Cnil;
V277= Cnil;
V278= Cnil;
V279= Cnil;
V280= Cnil;
V281= Cnil;
V282= Cnil;
V283= Cnil;
V284= Cnil;
if(!(type_of(base[2])==t_cons)){
goto T717;}
V268= cdr(base[2]);
base[2]= car(base[2]);
T717:;
base[4]= coerce_to_string(base[2]);
base[5]= VV[87];
vs_top=(vs_base=base+4)+2;
(void) (*Lnk109)();
vs_top=sup;
V269= vs_base[0];
base[5]= VV[88];
base[6]= coerce_to_string(base[2]);
vs_top=(vs_base=base+5)+2;
(void) (*Lnk109)();
vs_top=sup;
base[4]= vs_base[0];
vs_top=(vs_base=base+4)+1;
Lintern();
vs_top=sup;
V271= vs_base[0];
base[5]= VV[89];
base[6]= coerce_to_string(base[2]);
vs_top=(vs_base=base+5)+2;
(void) (*Lnk109)();
vs_top=sup;
base[4]= vs_base[0];
vs_top=(vs_base=base+4)+1;
Lintern();
vs_top=sup;
V273= vs_base[0];
base[5]= coerce_to_string(base[2]);
base[6]= VV[90];
vs_top=(vs_base=base+5)+2;
(void) (*Lnk109)();
vs_top=sup;
base[4]= vs_base[0];
vs_top=(vs_base=base+4)+1;
Lintern();
vs_top=sup;
V274= vs_base[0];
{register object V285;
register object V286;
register object V287;
V285= (V268);
V286= Cnil;
V287= Cnil;
T744:;
if(!(endp((V285)))){
goto T745;}
goto T742;
T745:;
if(!(type_of(car((V285)))==t_cons)){
goto T751;}
if(endp(cdar((V285)))){
goto T751;}
V286= caar((V285));
V287= cadar((V285));
{object V288= (V286);
if((V288!= VV[80]))goto T759;
if(((V287))!=Cnil){
goto T761;}
V269= VV[91];
goto T749;
T761:;
V269= (V287);
goto T749;
T759:;
if((V288!= VV[137]))goto T765;
if(((V287))!=Cnil){
goto T767;}
V272= Ct;
goto T749;
T767:;
if(!(endp(cddar((V285))))){
goto T771;}
V270= make_cons((V287),(V270));
goto T749;
T771:;
V270= make_cons(cdar((V285)),(V270));
goto T749;
T765:;
if((V288!= VV[138]))goto T775;
V273= (V287);
goto T749;
T775:;
if((V288!= VV[54]))goto T777;
V284= (V287);
goto T749;
T777:;
if((V288!= VV[139]))goto T779;
V274= (V287);
V275= Ct;
goto T749;
T779:;
if((V288!= VV[140]))goto T783;
V276= cdar((V285));
if((get((V287),VV[55],Cnil))!=Cnil){
goto T749;}
base[4]= VV[92];
base[5]= (V287);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
goto T749;
T783:;
if((V288!= VV[73]))goto T790;
if(type_of((V287))==t_cons){
goto T792;}
goto T791;
T792:;
if((car((V287)))==(VV[93])){
goto T794;}
goto T791;
T794:;
V287= cadr((V287));
T791:;
V277= (V287);
goto T749;
T790:;
if((V288!= VV[77]))goto T798;
V278= (V287);
goto T749;
T798:;
if((V288!= VV[141]))goto T800;
V280= (V287);
goto T749;
T800:;
base[4]= VV[94];
base[5]= (V286);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
goto T749;}
T751:;
if(!(type_of(car((V285)))==t_cons)){
goto T806;}
V286= caar((V285));
goto T804;
T806:;
V286= car((V285));
T804:;
{object V289= (V286);
if((V289!= VV[137]))goto T810;
V270= make_cons((V271),(V270));
goto T749;
T810:;
if((V289!= VV[80])
&& (V289!= VV[138])
&& (V289!= VV[139])
&& (V289!= VV[73]))goto T812;
goto T749;
T812:;
if((V289!= VV[78]))goto T813;
V279= Ct;
goto T749;
T813:;
base[4]= VV[95];
base[5]= (V286);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;}
T749:;
V285= cdr((V285));
goto T744;}
T742:;
base[4]= coerce_to_string((V269));
vs_top=(vs_base=base+4)+1;
Lintern();
vs_top=sup;
V269= vs_base[0];
if((V276)==Cnil){
goto T823;}
if(((V277))==Cnil){
goto T824;}
goto T823;
T824:;
V290= get(car((V276)),VV[55],Cnil);
V277= structure_ref(V290,VV[55],6);
T823:;
if(endp((V267))){
goto T828;}
if(!(type_of(car((V267)))==t_string)){
goto T828;}
V283= car((V267));
V267= cdr((V267));
T828:;
if(((V276))==Cnil){
goto T836;}
V291= get(car((V276)),VV[55],Cnil);
V292= structure_ref(V291,VV[55],16);
if(equal((V278),/* INLINE-ARGS */V292)){
goto T836;}
base[4]= VV[96];
base[5]= car((V276));
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
T836:;
if(((V276))!=Cnil){
goto T846;}
V281= small_fixnum(0);
goto T844;
T846:;
V293= get(car((V276)),VV[55],Cnil);
V281= structure_ref(V293,VV[55],14);
T844:;
if(((V278))==Cnil){
goto T851;}
if(((V280))==Cnil){
goto T851;}
V281= number_plus((V281),(V280));
T851:;
if(((V278))==Cnil){
goto T857;}
if(((V279))==Cnil){
goto T857;}
V282= (V281);
V281= one_plus((V281));
T857:;
{register object V294;
register object V295;
V294= (V267);
V295= Cnil;
T867:;
if(!(endp((V294)))){
goto T868;}
V267= nreverse((V295));
goto T865;
T868:;
V296= (*(LnkLI142))(car((V294)),(V281));
V295= make_cons(/* INLINE-ARGS */V296,(V295));
V281= one_plus((V281));
V294= cdr((V294));
goto T867;}
T865:;
if(((V278))==Cnil){
goto T880;}
if(((V279))==Cnil){
goto T880;}
V297= list(2,Cnil,base[2]);
V267= make_cons(/* INLINE-ARGS */V297,(V267));
T880:;
if(((V278))==Cnil){
goto T886;}
if(((V280))==Cnil){
goto T886;}
base[4]= (V280);
vs_top=(vs_base=base+4)+1;
Lmake_list();
vs_top=sup;
V298= vs_base[0];
V267= append(V298,(V267));
T886:;
{object V299;
V299= (((V276))==Cnil?Ct:Cnil);
if(((V299))==Cnil){
goto T897;}
goto T894;
T897:;
if(!(endp(cdr((V276))))){
goto T900;}
V300= get(car((V276)),VV[55],Cnil);
V301= structure_ref(V300,VV[55],7);
V267= append(/* INLINE-ARGS */V301,(V267));
goto T894;
T900:;
{object V303;
object V304= cdr((V276));
if(endp(V304)){
V302= Cnil;
goto T905;}
base[4]=V303=MMcons(Cnil,Cnil);
T906:;
(V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0));
if(endp(V304=MMcdr(V304))){
V302= base[4];
goto T905;}
V303=MMcdr(V303)=MMcons(Cnil,Cnil);
goto T906;}
T905:;
V306= get(car((V276)),VV[55],Cnil);
V307= structure_ref(V306,VV[55],7);
V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307);
V267= append(/* INLINE-ARGS */V308,(V267));}
T894:;
if(((V272))==Cnil){
goto T911;}
if(((V270))==Cnil){
goto T909;}
base[4]= VV[97];
vs_top=(vs_base=base+4)+1;
Lerror();
vs_top=sup;
goto T909;
T911:;
if(((V270))!=Cnil){
goto T909;}
V270= make_cons((V271),Cnil);
T909:;{object V309;
{object V312;
object V313= (V270);
if(endp(V313)){
V311= Cnil;
goto T922;}
base[4]=V312=MMcons(Cnil,Cnil);
T923:;
base[5]= (V313->c.c_car);
vs_top=(vs_base=base+5)+1;
Lsymbolp();
vs_top=sup;
(V312->c.c_car)= vs_base[0];
if(endp(V313=MMcdr(V313))){
V311= base[4];
goto T922;}
V312=MMcdr(V312)=MMcons(Cnil,Cnil);
goto T923;}
T922:;
{register object x= Ct,V310= V311;
while(!endp(V310))
if(eql(x,V310->c.c_car)){
V309= V310;
goto T921;
}else V310=V310->c.c_cdr;
V309= Cnil;}
T921:;
if(V309==Cnil)goto T920;
goto T919;
T920:;}
base[5]= VV[98];
base[6]= (V271);
vs_top=(vs_base=base+5)+2;
(void) (*Lnk109)();
vs_top=sup;
base[4]= vs_base[0];
vs_top=(vs_base=base+4)+1;
Lintern();
vs_top=sup;
V314= vs_base[0];
V270= make_cons(V314,(V270));
T919:;
if(((V278))==Cnil){
goto T931;}
if(((V279))!=Cnil){
goto T931;}
if(((V275))==Cnil){
goto T936;}
base[4]= VV[99];
base[5]= (V274);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
T936:;
V274= Cnil;
T931:;
if(((V276))==Cnil){
goto T942;}
V276= car((V276));
T942:;
if(((V277))==Cnil){
goto T946;}
if(((V278))==Cnil){
goto T946;}
base[4]= VV[100];
vs_top=(vs_base=base+4)+1;
Lerror();
vs_top=sup;
T946:;
base[4]= VV[102];
base[5]= list(2,VV[11],base[2]);
base[6]= list(2,VV[11],(V269));
base[7]= list(2,VV[11],(V278));
base[8]= list(2,VV[11],(V279));
base[9]= list(2,VV[11],(V267));
base[10]= list(2,VV[11],(V273));
base[11]= list(2,VV[11],(V284));
base[12]= list(2,VV[11],(V276));
base[13]= list(2,VV[11],(V277));
base[14]= list(2,VV[11],(V270));
base[15]= list(2,VV[11],(V281));
base[16]= list(2,VV[11],(V274));
base[17]= list(2,VV[11],(V283));
vs_top=(vs_base=base+4)+14;
Llist();
vs_top=sup;
V315= vs_base[0];
{object V317;
object V318= (V270);
if(endp(V318)){
base[4]= Cnil;
goto T968;}
base[5]=V317=MMcons(Cnil,Cnil);
T969:;
(V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267));
if(endp(V318=MMcdr(V318))){
base[4]= base[5];
goto T968;}
V317=MMcdr(V317)=MMcons(Cnil,Cnil);
goto T969;}
T968:;
if(((V278))==Cnil){
goto T973;}
if(((V274))==Cnil){
goto T973;}
V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282));
base[5]= make_cons(/* INLINE-ARGS */V320,Cnil);
goto T971;
T973:;
base[5]= Cnil;
T971:;
V321= list(2,VV[11],base[2]);
base[6]= make_cons(/* INLINE-ARGS */V321,Cnil);
vs_top=(vs_base=base+4)+3;
Lappend();
vs_top=sup;
V316= vs_base[0];
base[4]= listA(3,VV[101],V315,V316);
vs_top=(vs_base=base+4)+1;
return;}
}
/* local entry for function MAKE-S-DATA */
static object LI12(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB12 VMS12 VMV12
{object V322;
object V323;
object V324;
object V325;
object V326;
object V327;
object V328;
object V329;
object V330;
object V331;
object V332;
object V333;
object V334;
object V335;
object V336;
object V337;
object V338;
object V339;
narg= narg - 0;
va_start(ap);
{
parse_key_new(narg,Vcs +0,&LI12key,ap);
V322=(Vcs[0]);
V323=(Vcs[1]);
V324=(Vcs[2]);
V325=(Vcs[3]);
V326=(Vcs[4]);
V327=(Vcs[5]);
V328=(Vcs[6]);
V329=(Vcs[7]);
V330=(Vcs[8]);
V331=(Vcs[9]);
V332=(Vcs[10]);
V333=(Vcs[11]);
V334=(Vcs[12]);
V335=(Vcs[13]);
V336=(Vcs[14]);
V337=(Vcs[15]);
V338=(Vcs[16]);
V339=(Vcs[17]);
base[0]= VV[55];
base[1]= (V322);
base[2]= (V323);
base[3]= (V324);
base[4]= (V325);
base[5]= (V326);
base[6]= (V327);
base[7]= (V328);
base[8]= (V329);
base[9]= (V330);
base[10]= (V331);
base[11]= (V332);
base[12]= (V333);
base[13]= (V334);
base[14]= (V335);
base[15]= (V336);
base[16]= (V337);
base[17]= (V338);
base[18]= (V339);
vs_top=(vs_base=base+0)+19;
siLmake_structure();
vs_top=sup;
{object V340 = vs_base[0];
VMR12(V340)}}
}}
/* local entry for function CHECK-S-DATA */
static object LI13(V344,V345,V346)
register object V344;register object V345;object V346;
{ VMB13 VMS13 VMV13
TTL:;
if((structure_ref((V344),VV[55],3))==Cnil){
goto T997;}
V347= structure_ref((V344),VV[55],3);
(void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347));
T997:;
if((structure_ref((V344),VV[55],11))==Cnil){
goto T1000;}
(void)(structure_set((V345),VV[55],11,Ct));
T1000:;
if(equalp((V345),(V344))){
goto T1004;}
(void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346))));
{object V348 = sputprop((V346),VV[55],(V345));
VMR13(V348)}
T1004:;
{object V349 = Cnil;
VMR13(V349)}
}
/* local entry for function FREEZE-DEFSTRUCT */
static object LI14(V351)
object V351;
{ VMB14 VMS14 VMV14
TTL:;
{object V352;
if(type_of((V351))==t_symbol){
goto T1008;}
V352= Cnil;
goto T1007;
T1008:;
V352= get((V351),VV[55],Cnil);
T1007:;
if(((V352))==Cnil){
goto T1011;}
{object V353 = structure_set((V352),VV[55],11,Ct);
VMR14(V353)}
T1011:;
{object V354 = Cnil;
VMR14(V354)}}
}
/* function definition for SHARP-S-READER */
static L15()
{register object *base=vs_base;
register object *sup=base+VM15; VC15
vs_reserve(VM15);
{object V355;
object V356;
object V357;
check_arg(3);
V355=(base[0]);
V356=(base[1]);
V357=(base[2]);
vs_top=sup;
TTL:;
if(((V357))==Cnil){
goto T1013;}
if((symbol_value(VV[104]))!=Cnil){
goto T1013;}
base[3]= VV[105];
vs_top=(vs_base=base+3)+1;
Lerror();
vs_top=sup;
T1013:;
{register object V358;
register object V359;
{object V360;
base[5]= (V355);
base[6]= Ct;
base[7]= Cnil;
base[8]= Ct;
vs_top=(vs_base=base+5)+4;
Lread();
vs_top=sup;
V360= vs_base[0];
if((symbol_value(VV[104]))==Cnil){
goto T1025;}
base[5]= Cnil;
vs_top=(vs_base=base+5)+1;
return;
T1025:;
V358= (V360);}{object V361;
V361= get(car((V358)),VV[55],Cnil);
if(V361==Cnil)goto T1029;
V359= V361;
goto T1028;
T1029:;}
base[5]= VV[106];
base[6]= car((V358));
vs_top=(vs_base=base+5)+2;
Lerror();
vs_top=sup;
V359= vs_base[0];
T1028:;
{register object V362;
V362= cdr((V358));
T1035:;
if(!(endp((V362)))){
goto T1036;}
{register object V363;
V363= structure_ref((V359),VV[55],13);
T1041:;
if(!(endp((V363)))){
goto T1042;}
base[5]= VV[107];
base[6]= car((V358));
vs_top=(vs_base=base+5)+2;
Lerror();
return;
T1042:;
if(!(type_of(car((V363)))==t_symbol)){
goto T1048;}
base[5]= car((V363));
{object V364;
V364= cdr((V358));
vs_top=base+6;
while(!endp(V364))
{vs_push(car(V364));V364=cdr(V364);}
vs_base=base+6;}
super_funcall_no_event(base[5]);
return;
T1048:;
V363= cdr((V363));
goto T1041;}
T1036:;
base[5]= coerce_to_string(car((V362)));
base[6]= VV[108];
vs_top=(vs_base=base+5)+2;
Lintern();
vs_top=sup;
V365= vs_base[0];
if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362));
((V362))->c.c_car = V365;
V362= cddr((V362));
goto T1035;}}
}
}
/* local function CLOSURE */
static LC20(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM16; VC16
vs_reserve(VM16);
{object V366;
check_arg(1);
V366=(base[0]);
vs_top=sup;
base[1]= (V366);
base[2]= (base0[0]->c.c_car);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk148)();
return;
}
}
/* local function CLOSURE */
static LC19(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM17; VC17
vs_reserve(VM17);
{object V367;
check_arg(1);
V367=(base[0]);
vs_top=sup;
if(!(type_of((V367))==t_cons)){
goto T1067;}
base[1]= car((V367));
vs_top=(vs_base=base+1)+1;
return;
T1067:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
}
/* local function CLOSURE */
static LC18(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM18; VC18
vs_reserve(VM18);
{object V368;
check_arg(1);
V368=(base[0]);
vs_top=sup;
base[1]= aref1((V368),fixint((base0[0]->c.c_car)));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* local function CLOSURE */
static LC17(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM19; VC19
vs_reserve(VM19);
{object V369;
check_arg(1);
V369=(base[0]);
vs_top=sup;
base[1]= (base0[0]->c.c_car);
base[2]= (V369);
vs_top=(vs_base=base+1)+2;
siLlist_nth();
return;
}
}
/* local function CLOSURE */
static LC16(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM20; VC20
vs_reserve(VM20);
{object V370;
check_arg(1);
V370=(base[0]);
vs_top=sup;
if(!(type_of((V370))==t_structure)){
goto T1072;}
goto T1071;
T1072:;
base[1]= VV[5];
base[2]= (V370);
vs_top=(vs_base=base+1)+2;
Lerror();
vs_top=sup;
T1071:;
base[1]= (V370);
base[2]= (base0[0]->c.c_car);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk149)();
return;
}
}
static LnkT149(){ call_or_link(VV[149],&Lnk149);} /* STRUCTURE-REF1 */
static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* STRUCTURE-SUBTYPE-P */
static object LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],&LnkLI144,5,ap);} /* MAKE-PREDICATE */
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],&LnkLI143,5,ap);} /* MAKE-CONSTRUCTOR */
static object LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],&LnkLI142,2,ap);} /* PARSE-SLOT-DESCRIPTION */
static object LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],&LnkLI136,3,ap);} /* CHECK-S-DATA */
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],&LnkLI135,ap);} /* MAKE-S-DATA */
static object LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],&LnkLI134,3,ap);} /* GET-SLOT-POS */
static object LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[133],&LnkLI133,ap);} /* WARN */
static LnkT132(){ call_or_link(VV[132],&Lnk132);} /* MAKE-S-DATA-STRUCTURE */
static object LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,3,ap);} /* MAKE-T-TYPE */
static LnkT127(){ call_or_link(VV[127],&Lnk127);} /* MAKE-ACCESS-FUNCTION */
static int LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[126],&LnkLI126,20738,ap);} /* ROUND-UP */
static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* SIZE-OF */
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,2,ap);} /* COERCE */
static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* TYPEP */
static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* AET-TYPE */
static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* ALIGNMENT */
static object LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[120],&LnkLI120,ap);} /* MAKE-ARRAY */
static object LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[119],&LnkLI119,2,ap);} /* OVERWRITE-SLOT-DESCRIPTIONS */
static object LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],&LnkLI118,1,ap);} /* NORMALIZE-TYPE */
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* X */
static object LnkTLI113(){return call_proc0(VV[113],&LnkLI113);} /* ILLEGAL-BOA */
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* SUBTYPEP */
static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* RECORD-FN */
static object LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[110],&LnkLI110,ap);} /* ADJUST-ARRAY */
static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* STRING-CONCATENATE */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.