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:;
{object V23;
object V24;
object V25;
base[1]= coerce_to_string((V13));
base[2]= coerce_to_string((V18));
vs_top=(vs_base=base+1)+2;
(void) (*Lnk106)();
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 T11;
V24= symbol_value(VV[0]);
goto T10;
T11:;
if((V26!= VV[20]))goto T13;
V24= symbol_value(VV[1]);
goto T10;
T13:;
if((V26!= VV[19]))goto T15;
V24= symbol_value(VV[2]);
goto T10;
T15:;
FEerror("The ECASE key value ~s is illegal.",1,V26);}
T10:;
V27 = make_fixnum(length((V24)));
if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){
goto T18;}
goto T17;
T18:;
V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));
(void)((VFUN_NARGS=2,(*(LnkLI107))((V24),/* INLINE-ARGS */V28)));
T17:;
if(((V25))!=Cnil){
goto T20;}
base[0]= (V23);
base[1]= VV[3];
base[2]= VV[4];
base[3]= (V20);
vs_top=(vs_base=base+0)+4;
(void) (*Lnk108)();
vs_top=sup;
if((V17)!=Cnil){
goto T20;}
base[1]= (V23);
vs_top=(vs_base=base+1)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T30;}
base[0]= Cnil;
goto T29;
T30:;
V29= aref1((V24),fixint((Vcs[10]->c.c_car)));
base[1]= (V23);
vs_top=(vs_base=base+1)+1;
Lsymbol_function();
vs_top=sup;
V30= vs_base[0];
base[0]= ((/* INLINE-ARGS */V29)==(V30)?Ct:Cnil);
T29:;
if(base[0]==Cnil)goto T28;
goto T20;
T28:;
base[1]= (V23);
base[3]= aref1((V24),fixint((Vcs[10]->c.c_car)));
if(base[3]==Cnil)goto T37;
base[2]= base[3];
goto T36;
T37:;
if(!(((V24))==(symbol_value(VV[0])))){
goto T41;}
V31=
make_cclosure_new(LC16,Cnil,Vcs[10],Cdata);
goto T39;
T41:;
if(!(((V24))==(symbol_value(VV[1])))){
goto T44;}
V31=
make_cclosure_new(LC17,Cnil,Vcs[10],Cdata);
goto T39;
T44:;
if(!(((V24))==(symbol_value(VV[2])))){
goto T47;}
V31=
make_cclosure_new(LC18,Cnil,Vcs[10],Cdata);
goto T39;
T47:;
V31= Cnil;
T39:;
base[2]= aset1((V24),fixint((Vcs[10]->c.c_car)),V31);
T36:;
vs_top=(vs_base=base+1)+2;
siLfset();
vs_top=sup;
T20:;
if(((V21))==Cnil){
goto T51;}
(void)(remprop((V23),VV[6]));
(void)(sputprop((V23),VV[7],Ct));
goto T49;
T51:;
(void)(remprop((V23),VV[8]));
(void)(remprop((V23),VV[9]));
(void)(remprop((V23),VV[10]));
{object V32;
V32= get((V23),VV[6],Cnil);
if(!(type_of((V32))==t_cons)){
goto T59;}
if(((V16))==Cnil){
goto T59;}
base[0]= (V16);
base[1]= car((V32));
vs_top=(vs_base=base+0)+2;
(void) (*Lnk109)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T59;}
if(!(eql(cdr((V32)),(Vcs[10]->c.c_car)))){
goto T59;}
V25= Ct;
goto T49;
T59:;
if(((V14))==Cnil){
goto T72;}
V33= (V14);
goto T70;
T72:;
V33= (V12);
T70:;
V34= make_cons(V33,(Vcs[10]->c.c_car));
(void)(sputprop((V23),VV[6],/* INLINE-ARGS */V34));}
T49:;
{object V35 = Cnil;
VMR1(V35)}}}
}
/* local entry for function MAKE-CONSTRUCTOR */
static object LI2(V41,V42,V43,V44,V45)
object V41;object V42;object V43;object V44;object V45;
{ VMB2 VMS2 VMV2
TTL:;
{object V46;
object V47;
{object V48;
object V49= (V45);
if(endp(V49)){
V46= Cnil;
goto T74;}
base[0]=V48=MMcons(Cnil,Cnil);
T75:;
{object V50;
V50= (V49->c.c_car);
if(((V50))!=Cnil){
goto T79;}
(V48->c.c_car)= Cnil;
goto T76;
T79:;
if((car((V50)))!=Cnil){
goto T82;}
(V48->c.c_car)= list(2,VV[11],cadr((V50)));
goto T76;
T82:;
(V48->c.c_car)= car((V50));}
T76:;
if(endp(V49=MMcdr(V49))){
V46= base[0];
goto T74;}
V48=MMcdr(V48)=MMcons(Cnil,Cnil);
goto T75;}
T74:;
{object V51;
object V52= (V45);
if(endp(V52)){
V47= Cnil;
goto T84;}
base[0]=V51=MMcons(Cnil,Cnil);
T85:;
{object V53;
V53= (V52->c.c_car);
if(((V53))!=Cnil){
goto T89;}
(V51->c.c_cdr)= Cnil;
goto T86;
T89:;
if((car((V53)))!=Cnil){
goto T92;}
(V51->c.c_cdr)= Cnil;
goto T86;
T92:;
if((cadr((V53)))!=Cnil){
goto T95;}
(V51->c.c_cdr)= make_cons(car((V53)),Cnil);
goto T86;
T95:;
V54= list(2,car((V53)),cadr((V53)));
(V51->c.c_cdr)= make_cons(/* INLINE-ARGS */V54,Cnil);}
T86:;
while(!endp(MMcdr(V51)))V51=MMcdr(V51);
if(endp(V52=MMcdr(V52))){
base[0]=base[0]->c.c_cdr;
V47= base[0];
goto T84;}
goto T85;}
T84:;
if(!(type_of((V42))==t_cons)){
goto T99;}
{object V55;
object V56;
object V57;
V55= cadr((V42));
V56= Cnil;
V57= Cnil;
T106:;
if(!(endp((V55)))){
goto T107;}
base[0]= make_cons(VV[12],(V56));
{object V58;
object V59= (V47);
if(endp(V59)){
base[1]= Cnil;
goto T112;}
base[2]=V58=MMcons(Cnil,Cnil);
T113:;
{object V60;
V60= (V59->c.c_car);
if(!(type_of((V60))!=t_cons)){
goto T121;}
V62= (V60);
goto T119;
T121:;
V62= car((V60));
T119:;
{register object x= V62,V61= (V57);
while(!endp(V61))
if(eql(x,V61->c.c_car)){
goto T118;
}else V61=V61->c.c_cdr;
goto T117;}
T118:;
(V58->c.c_cdr)= Cnil;
goto T114;
T117:;
(V58->c.c_cdr)= make_cons((V60),Cnil);}
T114:;
while(!endp(MMcdr(V58)))V58=MMcdr(V58);
if(endp(V59=MMcdr(V59))){
base[2]=base[2]->c.c_cdr;
base[1]= base[2];
goto T112;}
goto T113;}
T112:;
vs_top=(vs_base=base+0)+2;
Lreconc();
vs_top=sup;
V47= vs_base[0];
goto T101;
T107:;
if(!((car((V55)))==(VV[13]))){
goto T126;}
V56= make_cons(VV[13],(V56));
{object V63;
object V64;
object V65;
V63= cdr((V55));
V64= Cnil;
V65= Cnil;
T135:;
if(!(endp((V63)))){
goto T136;}
base[0]= make_cons(VV[12],(V56));
{object V66;
object V67= (V47);
if(endp(V67)){
base[1]= Cnil;
goto T142;}
base[2]=V66=MMcons(Cnil,Cnil);
T143:;
{object V68;
V68= (V67->c.c_car);
if(!(type_of((V68))!=t_cons)){
goto T151;}
V70= (V68);
goto T149;
T151:;
V70= car((V68));
T149:;
{register object x= V70,V69= (V57);
while(!endp(V69))
if(eql(x,V69->c.c_car)){
goto T148;
}else V69=V69->c.c_cdr;
goto T147;}
T148:;
(V66->c.c_cdr)= Cnil;
goto T144;
T147:;
(V66->c.c_cdr)= make_cons((V68),Cnil);}
T144:;
while(!endp(MMcdr(V66)))V66=MMcdr(V66);
if(endp(V67=MMcdr(V67))){
base[2]=base[2]->c.c_cdr;
base[1]= base[2];
goto T142;}
goto T143;}
T142:;
vs_top=(vs_base=base+0)+2;
Lreconc();
vs_top=sup;
V47= vs_base[0];
goto T130;
T136:;
{register object x= car((V63)),V71= VV[14];
while(!endp(V71))
if(eql(x,V71->c.c_car)){
goto T156;
}else V71=V71->c.c_cdr;
goto T154;}
T156:;
if(!((car((V63)))==(VV[15]))){
goto T157;}
V56= make_cons(VV[15],(V56));
V63= cdr((V63));
if(endp((V63))){
goto T165;}
if(type_of(car((V63)))==t_symbol){
goto T164;}
T165:;
(void)((*(LnkLI110))());
T164:;
V57= make_cons(car((V63)),(V57));
V56= make_cons(car((V63)),(V56));
V63= cdr((V63));
if(!(endp((V63)))){
goto T157;}
base[0]= make_cons(VV[12],(V56));
{object V72;
object V73= (V47);
if(endp(V73)){
base[1]= Cnil;
goto T180;}
base[2]=V72=MMcons(Cnil,Cnil);
T181:;
{object V74;
V74= (V73->c.c_car);
if(!(type_of((V74))!=t_cons)){
goto T189;}
V76= (V74);
goto T187;
T189:;
V76= car((V74));
T187:;
{register object x= V76,V75= (V57);
while(!endp(V75))
if(eql(x,V75->c.c_car)){
goto T186;
}else V75=V75->c.c_cdr;
goto T185;}
T186:;
(V72->c.c_cdr)= Cnil;
goto T182;
T185:;
(V72->c.c_cdr)= make_cons((V74),Cnil);}
T182:;
while(!endp(MMcdr(V72)))V72=MMcdr(V72);
if(endp(V73=MMcdr(V73))){
base[2]=base[2]->c.c_cdr;
base[1]= base[2];
goto T180;}
goto T181;}
T180:;
vs_top=(vs_base=base+0)+2;
Lreconc();
vs_top=sup;
V47= vs_base[0];
goto T130;
T157:;
if((car((V63)))==(VV[12])){
goto T191;}
(void)((*(LnkLI110))());
T191:;
V56= make_cons(VV[12],(V56));
{object V77;
V77= cdr((V63));
T199:;
if(!(endp((V77)))){
goto T200;}
goto T196;
T200:;
V56= make_cons(car((V77)),(V56));
if(!(type_of(car((V77)))!=t_cons)){
goto T208;}
if(!(type_of(car((V77)))==t_symbol)){
goto T208;}
V57= make_cons(car((V77)),(V57));
goto T206;
T208:;
if(!(type_of(caar((V77)))==t_symbol)){
goto T214;}
if(endp(cdar((V77)))){
goto T213;}
if(!(endp(cddar((V77))))){
goto T214;}
T213:;
V57= make_cons(caar((V77)),(V57));
goto T206;
T214:;
(void)((*(LnkLI110))());
T206:;
V77= cdr((V77));
goto T199;}
T196:;
base[0]= (V56);
{object V78;
object V79= (V47);
if(endp(V79)){
base[1]= Cnil;
goto T227;}
base[2]=V78=MMcons(Cnil,Cnil);
T228:;
{object V80;
V80= (V79->c.c_car);
if(!(type_of((V80))!=t_cons)){
goto T236;}
V82= (V80);
goto T234;
T236:;
V82= car((V80));
T234:;
{register object x= V82,V81= (V57);
while(!endp(V81))
if(eql(x,V81->c.c_car)){
goto T233;
}else V81=V81->c.c_cdr;
goto T232;}
T233:;
(V78->c.c_cdr)= Cnil;
goto T229;
T232:;
(V78->c.c_cdr)= make_cons((V80),Cnil);}
T229:;
while(!endp(MMcdr(V78)))V78=MMcdr(V78);
if(endp(V79=MMcdr(V79))){
base[2]=base[2]->c.c_cdr;
base[1]= base[2];
goto T227;}
goto T228;}
T227:;
vs_top=(vs_base=base+0)+2;
Lreconc();
vs_top=sup;
V47= vs_base[0];
goto T130;
T154:;
if(!(type_of(car((V63)))!=t_cons)){
goto T244;}
V64= car((V63));
goto T242;
T244:;
if(!(endp(cdar((V63))))){
goto T249;}
V64= caar((V63));
goto T242;
T249:;
goto T240;
T242:;
base[0]= (V64);
base[1]= (V47);
base[2]= VV[16];
base[3]= VV[111];
vs_top=(vs_base=base+0)+4;
Lmember();
vs_top=sup;
V65= vs_base[0];
if(((V65))==Cnil){
goto T240;}
V56= make_cons(car((V65)),(V56));
goto T238;
T240:;
V56= make_cons(car((V63)),(V56));
T238:;
if(!(type_of(car((V63)))!=t_cons)){
goto T263;}
if(type_of(car((V63)))==t_symbol){
goto T265;}
(void)((*(LnkLI110))());
T265:;
V57= make_cons(car((V63)),(V57));
goto T261;
T263:;
if(type_of(caar((V63)))==t_symbol){
goto T270;}
(void)((*(LnkLI110))());
goto T261;
T270:;
if(endp(cdar((V63)))){
goto T272;}
if(!(endp(cddar((V63))))){
goto T273;}
T272:;
V57= make_cons(caar((V63)),(V57));
goto T261;
T273:;
if(type_of(caddar((V63)))==t_symbol){
goto T279;}
(void)((*(LnkLI110))());
goto T261;
T279:;
if(endp(cdddar((V63)))){
goto T282;}
(void)((*(LnkLI110))());
goto T261;
T282:;
V57= make_cons(caar((V63)),(V57));
V57= make_cons(caddar((V63)),(V57));
T261:;
V63= cdr((V63));
goto T135;}
T130:;
goto T101;
T126:;
if(type_of(car((V55)))==t_symbol){
goto T290;}
(void)((*(LnkLI110))());
T290:;
V56= make_cons(car((V55)),(V56));
V57= make_cons(car((V55)),(V57));
V55= cdr((V55));
goto T106;}
T101:;
V42= car((V42));
goto T97;
T99:;
V47= make_cons(VV[17],(V47));
T97:;
if(((V43))!=Cnil){
goto T302;}
{object V83 = list(4,VV[3],(V42),(V47),listA(3,VV[18],list(2,VV[11],(V41)),(V46)));
VMR2(V83)}
T302:;
if(((V43))==(VV[19])){
goto T304;}
if(!(type_of((V43))==t_cons)){
goto T305;}
if(!((car((V43)))==(VV[19]))){
goto T305;}
T304:;
{object V84 = list(4,VV[3],(V42),(V47),make_cons(VV[19],(V46)));
VMR2(V84)}
T305:;
if(!(((V43))==(VV[20]))){
goto T312;}
{object V85 = list(4,VV[3],(V42),(V47),make_cons(VV[20],(V46)));
VMR2(V85)}
T312:;
{object V86;
base[0]= VV[21];
base[1]= (V43);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
V86= vs_base[0];
if(((V86))==Cnil){
goto T318;}
{object V87 = (V86);
VMR2(V87)}
T318:;
{object V88 = Cnil;
VMR2(V88)}}}
}
/* 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 V89 = vs_base[0];
VMR3(V89)}
}
/* local entry for function MAKE-PREDICATE */
static object LI4(V95,V96,V97,V98,V99)
object V95;object V96;register object V97;object V98;register object V99;
{ VMB4 VMS4 VMV4
TTL:;
{object V100;
V100= (((V97))==Cnil?Ct:Cnil);
if(((V100))==Cnil){
goto T323;}
{object V101 = (V100);
VMR4(V101)}
T323:;
if(((V97))==(VV[19])){
goto T325;}
if(!(type_of((V97))==t_cons)){
goto T326;}
if(!((car((V97)))==(VV[19]))){
goto T326;}
T325:;
if(((V98))!=Cnil){
goto T332;}
base[0]= VV[23];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T332:;
V102= list(3,VV[27],VV[28],(V99));
V103= list(3,VV[30],VV[31],(V99));
{object V104 = list(4,VV[3],(V96),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V102,list(3,VV[29],/* INLINE-ARGS */V103,list(2,VV[11],(V95)))));
VMR4(V104)}
T326:;
if(!(((V97))==(VV[20]))){
goto T337;}
if(((V98))!=Cnil){
goto T339;}
base[0]= VV[32];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T339:;
if(!(number_compare((V99),small_fixnum(0))==0)){
goto T344;}
{object V105 = list(4,VV[3],(V96),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V95)))));
VMR4(V105)}
T344:;
V106= list(2,list(3,VV[38],(V99),VV[39]),VV[40]);
{object V107 = list(4,VV[3],(V96),VV[36],listA(4,VV[37],/* INLINE-ARGS */V106,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V95))))),VV[44]));
VMR4(V107)}
T337:;
{object V108;
base[0]= VV[45];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
V108= vs_base[0];
if(((V108))==Cnil){
goto T349;}
{object V109 = (V108);
VMR4(V109)}
T349:;
{object V110 = Cnil;
VMR4(V110)}}}
}
/* local entry for function PARSE-SLOT-DESCRIPTION */
static object LI5(V113,V114)
register object V113;object V114;
{ VMB5 VMS5 VMV5
TTL:;
{object V115;
object V116;
object V117;
object V118;
V115= Cnil;
V116= Cnil;
V117= Cnil;
V118= Cnil;
if(!(type_of((V113))!=t_cons)){
goto T357;}
V115= (V113);
goto T355;
T357:;
if(!(endp(cdr((V113))))){
goto T361;}
V115= car((V113));
goto T355;
T361:;
V115= car((V113));
V116= cadr((V113));
{object V119;
object V120;
object V121;
V119= cddr((V113));
V120= Cnil;
V121= Cnil;
T372:;
if(!(endp((V119)))){
goto T373;}
goto T355;
T373:;
V120= car((V119));
if(!(endp(cdr((V119))))){
goto T379;}
base[0]= VV[46];
base[1]= (V119);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T379:;
V121= cadr((V119));
{object V122= (V120);
if((V122!= VV[74]))goto T387;
V117= (V121);
goto T386;
T387:;
if((V122!= VV[112]))goto T389;
V118= (V121);
goto T386;
T389:;
base[0]= VV[47];
base[1]= (V119);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;}
T386:;
V119= cddr((V119));
goto T372;}
T355:;
{object V123 = list(5,(V115),(V116),(V117),(V118),(V114));
VMR5(V123)}}
}
/* local entry for function OVERWRITE-SLOT-DESCRIPTIONS */
static object LI6(V126,V127)
object V126;register object V127;
{ VMB6 VMS6 VMV6
TTL:;
if(((V127))!=Cnil){
goto T397;}
{object V128 = Cnil;
VMR6(V128)}
T397:;
{object V129;
base[0]= caar((V127));
base[1]= (V126);
base[2]= VV[16];
base[3]= symbol_function(VV[113]);
vs_top=(vs_base=base+0)+4;
Lmember();
vs_top=sup;
V129= vs_base[0];
if(((V129))==Cnil){
goto T405;}
if((cadddr(car((V129))))!=Cnil){
goto T407;}
if((cadddr(car((V127))))==Cnil){
goto T407;}
base[0]= VV[48];
base[1]= (V129);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T407:;
{object V130;
object V131;
V130= car((V129));
V131= (*(LnkLI114))(caddr(car((V129))));
if(type_of(cddr((V130)))!=t_cons)FEwrong_type_argument(Scons,cddr((V130)));
(cddr((V130)))->c.c_car = (V131);
(void)(cddr((V130)));}
base[0]= caddr(car((V129)));
if(base[0]==Cnil)goto T422;
V132= base[0];
goto T421;
T422:;
V132= Ct;
T421:;
V133= (*(LnkLI115))(V132);
base[0]= caddr(car((V127)));
if(base[0]==Cnil)goto T425;
V134= base[0];
goto T424;
T425:;
V134= Ct;
T424:;
V135= (*(LnkLI115))(V134);
if(equal(/* INLINE-ARGS */V133,/* INLINE-ARGS */V135)){
goto T418;}
base[0]= VV[49];
base[1]= car((V129));
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T418:;
V136= list(5,caar((V129)),cadar((V129)),caddar((V129)),cadddr(car((V129))),car(cddddr(car((V127)))));
V137= (*(LnkLI116))((V126),cdr((V127)));
{object V138 = make_cons(/* INLINE-ARGS */V136,/* INLINE-ARGS */V137);
VMR6(V138)}
T405:;
V139= car((V127));
V140= (*(LnkLI116))((V126),cdr((V127)));
{object V141 = make_cons(/* INLINE-ARGS */V139,/* INLINE-ARGS */V140);
VMR6(V141)}}
}
/* local entry for function MAKE-T-TYPE */
static object LI7(V145,V146,V147)
object V145;object V146;object V147;
{ VMB7 VMS7 VMV7
TTL:;
{object V148;
V148= Cnil;
{object V149;
V149= (VFUN_NARGS=5,(*(LnkLI117))((V145),VV[50],VV[51],VV[52],Ct));
if(((V146))==Cnil){
goto T431;}
{object V150;
object V151;
V150= get((V146),VV[53],Cnil);
V151= Cnil;
if((V150)!=Cnil){
goto T436;}
base[1]= VV[54];
base[2]= (V146);
vs_top=(vs_base=base+1)+2;
Lerror();
vs_top=sup;
T436:;
V151= structure_ref((V150),VV[53],2);
{object V152;
object V153;
V154 = make_fixnum(length((V151)));
V152= (number_compare((V145),V154)<=0?((V145)):V154);
V153= small_fixnum(0);
T444:;
if(!(number_compare((V153),(V152))>=0)){
goto T445;}
goto T431;
T445:;
V155= aref1((V151),fixint((V153)));
(void)(aset1((V149),fixint((V153)),/* INLINE-ARGS */V155));
V153= one_plus((V153));
goto T444;}}
T431:;
{object V156;
object V157;
V156= (V147);
V157= car((V156));
T457:;
if(!(endp((V156)))){
goto T458;}
goto T453;
T458:;
V148= car(cddddr((V157)));
{object V158;
V158= caddr((V157));
base[0]= (V158);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk118)();
vs_top=sup;
V159= vs_base[0];
if(!((fix(V159))<=(4))){
goto T464;}
base[0]= (V158);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk119)();
vs_top=sup;
V160= vs_base[0];
(void)(aset1((V149),fixint((V148)),V160));}
T464:;
V156= cdr((V156));
V157= car((V156));
goto T457;}
T453:;
V161 = make_fixnum(length(symbol_value(VV[55])));
if(!(number_compare((V145),V161)<0)){
goto T478;}
{object V162;
object V163;
V162= (V145);
V163= small_fixnum(0);
T484:;
if(!(number_compare((V163),(V162))>=0)){
goto T485;}
goto T480;
T485:;
{int V164= fix(aref1((V149),fixint((V163))));
if((/* INLINE-ARGS */V164)==(0)){
goto T489;}}
{object V165 = (V149);
VMR7(V165)}
T489:;
V163= one_plus((V163));
goto T484;}
T480:;
{object V166 = symbol_value(VV[55]);
VMR7(V166)}
T478:;
{object V167 = (V149);
VMR7(V167)}}}
}
/* local entry for function ROUND-UP */
static int LI8(V170,V171)
int V170;int V171;
{ VMB8 VMS8 VMV8
TTL:;
base[0]= make_fixnum(V170);
base[1]= make_fixnum(V171);
vs_top=(vs_base=base+0)+2;
Lceiling();
vs_top=sup;
V170= fix(vs_base[0]);
{int V172 = (V170)*(V171);
VMR8(V172)}
}
/* local entry for function GET-SLOT-POS */
static object LI9(V176,V177,V178)
object V176;object V177;object V178;
{ VMB9 VMS9 VMV9
TTL:;
{object V179;
object V180;
object V181;
V179= Cnil;
V180= Cnil;
V181= Cnil;
{object V182;
object V183;
V182= (V178);
V183= car((V182));
T507:;
if(!(endp((V182)))){
goto T508;}
goto T503;
T508:;
if(((V183))==Cnil){
goto T512;}
if((car((V183)))==Cnil){
goto T512;}
V179= (*(LnkLI114))(caddr((V183)));
{object V184;
object V185;
V184= (V183);
V185= (V179);
if(type_of(cddr((V184)))!=t_cons)FEwrong_type_argument(Scons,cddr((V184)));
(cddr((V184)))->c.c_car = (V185);
(void)(cddr((V184)));}
{object V186;
V186= cadr((V183));
base[0]= (V186);
base[1]= (V179);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk120)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T523;}
if(!(type_of((V186))==t_symbol)){
goto T529;}
base[0]= (V186);
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T529;}
base[0]= (V186);
vs_top=(vs_base=base+0)+1;
Lsymbol_value();
vs_top=sup;
V186= vs_base[0];
T529:;
base[0]= (V186);
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T537;}
goto T523;
T537:;
{object V187;
object V188;
V187= (V183);
V188= (*(LnkLI121))((V186),(V179));
if(type_of(cdr((V187)))!=t_cons)FEwrong_type_argument(Scons,cdr((V187)));
(cdr((V187)))->c.c_car = (V188);
(void)(cdr((V187)));}}
T523:;
{register object x= (V179),V189= VV[57];
while(!endp(V189))
if(x==(V189->c.c_car)){
goto T544;
}else V189=V189->c.c_cdr;
goto T512;}
T544:;
V180= Ct;
T512:;
V182= cdr((V182));
V183= car((V182));
goto T507;}
T503:;
{object V190;
if(((V180))==Cnil){
goto T552;}
V190= Cnil;
goto T551;
T552:;
V191 = make_fixnum(length(symbol_value(VV[56])));
if(number_compare((V176),V191)<0){
goto T554;}
V190= Cnil;
goto T551;
T554:;{object V192;
V192= symbol_value(VV[56]);
V190= list(3,V192,number_times((V176),small_fixnum(4)),Cnil);}
T551:;
if(((V190))==Cnil){
goto T557;}
{object V193 = (V190);
VMR9(V193)}
T557:;
{object V194;
int V195;
int V196;
int V197;
object V198;
int V199;
V194= (VFUN_NARGS=5,(*(LnkLI117))((V176),VV[50],VV[58],VV[52],Ct));
V195= 0;
V196= 0;
V197= 0;
V198= Cnil;
V199= 0;
{object V200;
object V201;
V200= (V178);
V201= car((V200));
T569:;
if(!(endp((V200)))){
goto T570;}
goto T565;
T570:;
V198= caddr((V201));
base[0]= (V198);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk118)();
vs_top=sup;
V197= fix(vs_base[0]);
if((V197)<=(4)){
goto T579;}
V198= Ct;
{object V202;
object V203;
V202= (V201);
V203= Ct;
if(type_of(cddr((V202)))!=t_cons)FEwrong_type_argument(Scons,cddr((V202)));
(cddr((V202)))->c.c_car = (V203);
(void)(cddr((V202)));}
V197= 4;
V201= nconc((V201),VV[59]);
T579:;
V199= (*(LnkLI122))(V195,V197);
if(!((V195)==(V199))){
goto T594;}
goto T593;
T594:;
V181= Ct;
T593:;
V195= V199;
V204 = make_fixnum(V195);
(void)(aset1((V194),V196,V204));
V205 = make_fixnum(V195);
base[0]= (V198);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk123)();
vs_top=sup;
V206= vs_base[0];
V195= fix(number_plus(V205,V206));
V196= (V196)+(1);
V200= cdr((V200));
V201= car((V200));
goto T569;}
T565:;
base[0]= Ct;
vs_top=(vs_base=base+0)+1;
(void) (*Lnk123)();
vs_top=sup;
V207= vs_base[0];
V208 = make_fixnum((*(LnkLI122))(V195,fix(V207)));
{object V209 = list(3,(V194),V208,(V181));
VMR9(V209)}}}}
}
/* local entry for function DEFINE-STRUCTURE */
static object LI10(V221,V220,V219,V218,V217,V216,V215,V214,V213,V212,V211,V210,va_alist)
object V221,V220,V219,V218,V217,V216,V215,V214,V213,V212,V211,V210;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB10 VMS10 VMV10
{object V222;
register object V223;
object V224;
object V225;
object V226;
object V227;
register object V228;
object V229;
object V230;
object V231;
object V232;
object V233;
register object V234;
if(narg <12) too_few_arguments();
Vcs[0]=MMcons(V221,Cnil);
V222= V220;
V223= V219;
V224= V218;
V225= V217;
V226= V216;
V227= V215;
V228= V214;
V229= V213;
V230= V212;
V231= V211;
V232= V210;
narg = narg - 12;
if (narg <= 0) goto T613;
else {
va_start(ap);
V233= va_arg(ap,object);}
if (--narg <= 0) goto T614;
else {
V234= va_arg(ap,object);}
--narg; goto T615;
T613:;
V233= Cnil;
T614:;
V234= Cnil;
T615:;
{object V235;
object V236;
V235= Cnil;
V236= Cnil;
if(type_of((V223))==t_cons){
goto T621;}
goto T620;
T621:;
if((car((V223)))==(VV[19])){
goto T623;}
goto T620;
T623:;
V223= VV[19];
T620:;
V236= make_fixnum(length((V225)));
{object V237;
object V238;
V237= (V225);
V238= car((V237));
T632:;
if(!(endp((V237)))){
goto T633;}
goto T628;
T633:;
if((V238)==Cnil){
goto T637;}
if((car((V238)))!=Cnil){
goto T638;}
goto T637;
T638:;
base[0]= (Vcs[0]->c.c_car);
base[1]= (V222);
base[2]= (V223);
base[3]= (V224);
base[4]= (V228);
base[5]= (V234);
{object V239;
V239= (V238);
vs_top=base+6;
while(!endp(V239))
{vs_push(car(V239));V239=cdr(V239);}
vs_base=base+0;}
(void) (*Lnk124)();
vs_top=sup;
T637:;
V237= cdr((V237));
V238= car((V237));
goto T632;}
T628:;
if(((V226))==Cnil){
goto T652;}
if(((V234))!=Cnil){
goto T652;}
base[0]= (V226);
{object V240= (V223);
if((V240!= Cnil))goto T659;
base[1]= symbol_function(VV[125]);
goto T658;
T659:;
if((V240!= VV[20]))goto T660;
base[1]= symbol_function(VV[126]);
goto T658;
T660:;
if((V240!= VV[19]))goto T661;
base[1]= symbol_function(VV[127]);
goto T658;
T661:;
FEerror("The ECASE key value ~s is illegal.",1,V240);}
T658:;
vs_top=(vs_base=base+0)+2;
siLfset();
vs_top=sup;
T652:;
if(((V223))!=Cnil){
goto T664;}
if(!(((Vcs[0]->c.c_car))==(VV[53]))){
goto T664;}
base[0]= (VFUN_NARGS=5,(*(LnkLI117))((V236),VV[50],VV[60],VV[52],Ct));
base[1]= (*(LnkLI128))((V236),Cnil,(V225));
base[2]= symbol_value(VV[56]);
base[3]= (V225);
base[4]= Ct;
vs_top=(vs_base=base+0)+5;
(void) (*Lnk129)();
vs_top=sup;
V235= vs_base[0];
goto T662;
T664:;
{object V241;
object V242;
object V243;
object V244;
V241= Cnil;
V242= small_fixnum(0);
V243= Cnil;
if((V228)==Cnil){
V244= Cnil;
goto T677;}
V244= get((V228),VV[53],Cnil);
T677:;
if(((V244))==Cnil){
goto T678;}
if((structure_ref((V244),VV[53],11))==Cnil){
goto T681;}
if((structure_ref((V244),VV[53],3))==Cnil){
goto T682;}
{object V245;
V245= get((Vcs[0]->c.c_car),VV[53],Cnil);
if((V245)==Cnil){
goto T687;}
V246= structure_ref((V245),VV[53],4);
if((/* INLINE-ARGS */V246)==((V244))){
goto T681;}}
T687:;
T682:;
(void)((VFUN_NARGS=2,(*(LnkLI130))(VV[61],(V228))));
T681:;
{object V247;
object V248;
V247= (V244);
base[0]= (Vcs[0]->c.c_car);
base[1]= structure_ref((V247),VV[53],3);
vs_top=(vs_base=base+0)+2;
Ladjoin();
vs_top=sup;
V248= vs_base[0];
(void)(structure_set((V247),VV[53],3,(V248)));}
T678:;
if(((V223))!=Cnil){
goto T693;}
V241= (*(LnkLI131))((V236),(V228),(V225));
V242= cadr((V241));
V243= caddr((V241));
V241= car((V241));
T693:;
if(((V223))==Cnil){
goto T705;}
V249= Cnil;
goto T704;
T705:;
V249= (*(LnkLI128))((V236),(V228),(V225));
T704:;
V235= (VFUN_NARGS=32,(*(LnkLI132))(VV[62],(Vcs[0]->c.c_car),VV[63],(V236),VV[64],V249,VV[65],(V241),VV[66],(V242),VV[67],(V243),VV[68],(V227),VV[69],(V244),VV[70],(V229),VV[71],(V225),VV[72],(V230),VV[73],(V231),VV[74],(V223),VV[75],(V224),VV[76],(V233),VV[77],(V222)));}
T662:;
{object V250;
V250= get((Vcs[0]->c.c_car),VV[53],Cnil);
if(!(((Vcs[0]->c.c_car))==(VV[53]))){
goto T711;}
if(((V250))==Cnil){
goto T713;}
(void)((VFUN_NARGS=1,(*(LnkLI130))(VV[78])));
T713:;
if((V250)!=Cnil){
goto T709;}
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V235)));
goto T709;
T711:;
if(((V250))==Cnil){
goto T717;}
(void)((*(LnkLI133))((V250),(V235),(Vcs[0]->c.c_car)));
goto T709;
T717:;
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V235)));
T709:;
if(((V233))==Cnil){
goto T719;}
(void)(sputprop((Vcs[0]->c.c_car),VV[79],(V233)));
T719:;
if(((V223))!=Cnil){
goto T707;}
if(((V232))==Cnil){
goto T707;}
base[0]= (V232);
base[1]= VV[3];
base[2]= VV[80];
base[3]= Ct;
vs_top=(vs_base=base+0)+4;
(void) (*Lnk108)();
vs_top=sup;
if((V234)!=Cnil){
goto T731;}
base[1]= (V232);
base[2]=
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);
vs_top=(vs_base=base+1)+2;
siLfset();
vs_top=sup;
T731:;
(void)(sputprop((V232),VV[81],VV[82]));
(void)(sputprop((V232),VV[83],(Vcs[0]->c.c_car)));}
T707:;
{object V251 = Cnil;
VMR10(V251)}}}
}
/* 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 V252=base[0]->c.c_cdr;
if(endp(V252))invalid_macro_call();
base[2]= (V252->c.c_car);
V252=V252->c.c_cdr;
base[3]= V252;}
{object V253;
object V254;
object V255;
object V256;
object V257;
object V258;
object V259;
object V260;
object V261;
object V262;
object V263;
object V264;
object V265;
object V266;
object V267;
object V268;
object V269;
object V270;
V253= base[3];
V254= Cnil;
V255= Cnil;
V256= Cnil;
V257= Cnil;
V258= Cnil;
V259= Cnil;
V260= Cnil;
V261= Cnil;
V262= Cnil;
V263= Cnil;
V264= Cnil;
V265= Cnil;
V266= Cnil;
V267= Cnil;
V268= Cnil;
V269= Cnil;
V270= Cnil;
if(!(type_of(base[2])==t_cons)){
goto T753;}
V254= cdr(base[2]);
base[2]= car(base[2]);
T753:;
base[4]= coerce_to_string(base[2]);
base[5]= VV[84];
vs_top=(vs_base=base+4)+2;
(void) (*Lnk106)();
vs_top=sup;
V255= vs_base[0];
base[5]= VV[85];
base[6]= coerce_to_string(base[2]);
vs_top=(vs_base=base+5)+2;
(void) (*Lnk106)();
vs_top=sup;
base[4]= vs_base[0];
vs_top=(vs_base=base+4)+1;
Lintern();
vs_top=sup;
V257= vs_base[0];
base[5]= VV[86];
base[6]= coerce_to_string(base[2]);
vs_top=(vs_base=base+5)+2;
(void) (*Lnk106)();
vs_top=sup;
base[4]= vs_base[0];
vs_top=(vs_base=base+4)+1;
Lintern();
vs_top=sup;
V259= vs_base[0];
base[5]= coerce_to_string(base[2]);
base[6]= VV[87];
vs_top=(vs_base=base+5)+2;
(void) (*Lnk106)();
vs_top=sup;
base[4]= vs_base[0];
vs_top=(vs_base=base+4)+1;
Lintern();
vs_top=sup;
V260= vs_base[0];
{object V271;
object V272;
object V273;
V271= (V254);
V272= Cnil;
V273= Cnil;
T783:;
if(!(endp((V271)))){
goto T784;}
goto T778;
T784:;
if(!(type_of(car((V271)))==t_cons)){
goto T790;}
if(endp(cdar((V271)))){
goto T790;}
V272= caar((V271));
V273= cadar((V271));
{object V274= (V272);
if((V274!= VV[77]))goto T798;
if(((V273))!=Cnil){
goto T800;}
V255= VV[88];
goto T788;
T800:;
V255= (V273);
goto T788;
T798:;
if((V274!= VV[134]))goto T804;
if(((V273))!=Cnil){
goto T806;}
V258= Ct;
goto T788;
T806:;
if(!(endp(cddar((V271))))){
goto T810;}
V256= make_cons((V273),(V256));
goto T788;
T810:;
V256= make_cons(cdar((V271)),(V256));
goto T788;
T804:;
if((V274!= VV[135]))goto T814;
V259= (V273);
goto T788;
T814:;
if((V274!= VV[52]))goto T816;
V270= (V273);
goto T788;
T816:;
if((V274!= VV[136]))goto T818;
V260= (V273);
V261= Ct;
goto T788;
T818:;
if((V274!= VV[137]))goto T822;
V262= cdar((V271));
if((get((V273),VV[53],Cnil))!=Cnil){
goto T788;}
base[4]= VV[89];
base[5]= (V273);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
goto T788;
T822:;
if((V274!= VV[70]))goto T829;
if(type_of((V273))==t_cons){
goto T831;}
goto T830;
T831:;
if((car((V273)))==(VV[90])){
goto T833;}
goto T830;
T833:;
V273= cadr((V273));
T830:;
V263= (V273);
goto T788;
T829:;
if((V274!= VV[74]))goto T837;
V264= (V273);
goto T788;
T837:;
if((V274!= VV[138]))goto T839;
V266= (V273);
goto T788;
T839:;
base[4]= VV[91];
base[5]= (V272);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
goto T788;}
T790:;
if(!(type_of(car((V271)))==t_cons)){
goto T845;}
V272= caar((V271));
goto T843;
T845:;
V272= car((V271));
T843:;
{object V275= (V272);
if((V275!= VV[134]))goto T849;
V256= make_cons((V257),(V256));
goto T788;
T849:;
if((V275!= VV[77])
&& (V275!= VV[135])
&& (V275!= VV[136])
&& (V275!= VV[70]))goto T851;
goto T788;
T851:;
if((V275!= VV[75]))goto T852;
V265= Ct;
goto T788;
T852:;
base[4]= VV[92];
base[5]= (V272);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;}
T788:;
V271= cdr((V271));
goto T783;}
T778:;
if(endp((V253))){
goto T859;}
if(!(type_of(car((V253)))==t_string)){
goto T859;}
V269= car((V253));
V253= cdr((V253));
T859:;
if(((V262))==Cnil){
goto T867;}
V276= get(car((V262)),VV[53],Cnil);
V277= structure_ref(V276,VV[53],16);
if(equal((V264),/* INLINE-ARGS */V277)){
goto T867;}
base[4]= VV[93];
base[5]= car((V262));
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
T867:;
if(((V262))!=Cnil){
goto T877;}
V267= small_fixnum(0);
goto T875;
T877:;
V278= get(car((V262)),VV[53],Cnil);
V267= structure_ref(V278,VV[53],14);
T875:;
if(((V264))==Cnil){
goto T882;}
if(((V266))==Cnil){
goto T882;}
V267= number_plus((V267),(V266));
T882:;
if(((V264))==Cnil){
goto T888;}
if(((V265))==Cnil){
goto T888;}
V268= (V267);
V267= one_plus((V267));
T888:;
{object V279;
object V280;
V279= (V253);
V280= Cnil;
T900:;
if(!(endp((V279)))){
goto T901;}
V253= nreverse((V280));
goto T896;
T901:;
V281= (*(LnkLI139))(car((V279)),(V267));
V280= make_cons(/* INLINE-ARGS */V281,(V280));
V267= one_plus((V267));
V279= cdr((V279));
goto T900;}
T896:;
if(((V264))==Cnil){
goto T913;}
if(((V265))==Cnil){
goto T913;}
V282= list(2,Cnil,base[2]);
V253= make_cons(/* INLINE-ARGS */V282,(V253));
T913:;
if(((V264))==Cnil){
goto T919;}
if(((V266))==Cnil){
goto T919;}
base[4]= (V266);
vs_top=(vs_base=base+4)+1;
Lmake_list();
vs_top=sup;
V283= vs_base[0];
V253= append(V283,(V253));
T919:;
{object V284;
V284= (((V262))==Cnil?Ct:Cnil);
if(((V284))==Cnil){
goto T930;}
goto T927;
T930:;
if(!(endp(cdr((V262))))){
goto T933;}
V285= get(car((V262)),VV[53],Cnil);
V286= structure_ref(V285,VV[53],7);
V253= append(/* INLINE-ARGS */V286,(V253));
goto T927;
T933:;
{object V288;
object V289= cdr((V262));
if(endp(V289)){
V287= Cnil;
goto T938;}
base[4]=V288=MMcons(Cnil,Cnil);
T939:;
{object V290;
V290= (V289->c.c_car);
(V288->c.c_car)= (*(LnkLI139))((V290),small_fixnum(0));}
if(endp(V289=MMcdr(V289))){
V287= base[4];
goto T938;}
V288=MMcdr(V288)=MMcons(Cnil,Cnil);
goto T939;}
T938:;
V291= get(car((V262)),VV[53],Cnil);
V292= structure_ref(V291,VV[53],7);
V293= (*(LnkLI116))(V287,/* INLINE-ARGS */V292);
V253= append(/* INLINE-ARGS */V293,(V253));}
T927:;
if(((V258))==Cnil){
goto T945;}
if(((V256))==Cnil){
goto T943;}
base[4]= VV[94];
vs_top=(vs_base=base+4)+1;
Lerror();
vs_top=sup;
goto T943;
T945:;
if(((V256))!=Cnil){
goto T943;}
V256= make_cons((V257),Cnil);
T943:;
{object V296;
object V297= (V256);
if(endp(V297)){
V295= Cnil;
goto T956;}
base[5]=V296=MMcons(Cnil,Cnil);
T957:;
base[6]= (V297->c.c_car);
vs_top=(vs_base=base+6)+1;
Lsymbolp();
vs_top=sup;
(V296->c.c_car)= vs_base[0];
if(endp(V297=MMcdr(V297))){
V295= base[5];
goto T956;}
V296=MMcdr(V296)=MMcons(Cnil,Cnil);
goto T957;}
T956:;
{register object x= Ct,V294= V295;
while(!endp(V294))
if(eql(x,V294->c.c_car)){
base[4]= V294;
goto T955;
}else V294=V294->c.c_cdr;
base[4]= Cnil;}
T955:;
if(base[4]==Cnil)goto T954;
goto T953;
T954:;
base[6]= VV[95];
base[7]= (V257);
vs_top=(vs_base=base+6)+2;
(void) (*Lnk106)();
vs_top=sup;
base[5]= vs_base[0];
vs_top=(vs_base=base+5)+1;
Lintern();
vs_top=sup;
V298= vs_base[0];
V256= make_cons(V298,(V256));
T953:;
if(((V264))==Cnil){
goto T965;}
if(((V265))!=Cnil){
goto T965;}
if(((V261))==Cnil){
goto T970;}
base[4]= VV[96];
base[5]= (V260);
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
T970:;
V260= Cnil;
T965:;
if(((V262))==Cnil){
goto T976;}
V262= car((V262));
T976:;
if(((V263))==Cnil){
goto T980;}
if(((V264))==Cnil){
goto T980;}
base[4]= VV[97];
vs_top=(vs_base=base+4)+1;
Lerror();
vs_top=sup;
T980:;
base[4]= VV[99];
base[5]= list(2,VV[11],base[2]);
base[6]= list(2,VV[11],(V255));
base[7]= list(2,VV[11],(V264));
base[8]= list(2,VV[11],(V265));
base[9]= list(2,VV[11],(V253));
base[10]= list(2,VV[11],(V259));
base[11]= list(2,VV[11],(V270));
base[12]= list(2,VV[11],(V262));
base[13]= list(2,VV[11],(V263));
base[14]= list(2,VV[11],(V256));
base[15]= list(2,VV[11],(V267));
base[16]= list(2,VV[11],(V260));
base[17]= list(2,VV[11],(V269));
vs_top=(vs_base=base+4)+14;
Llist();
vs_top=sup;
V299= vs_base[0];
{object V301;
object V302= (V256);
if(endp(V302)){
base[4]= Cnil;
goto T1002;}
base[5]=V301=MMcons(Cnil,Cnil);
T1003:;
{object V303;
V303= (V302->c.c_car);
(V301->c.c_car)= (*(LnkLI140))(base[2],(V303),(V264),(V265),(V253));}
if(endp(V302=MMcdr(V302))){
base[4]= base[5];
goto T1002;}
V301=MMcdr(V301)=MMcons(Cnil,Cnil);
goto T1003;}
T1002:;
if(((V264))==Cnil){
goto T1008;}
if(((V260))==Cnil){
goto T1008;}
V304= (*(LnkLI141))(base[2],(V260),(V264),(V265),(V268));
base[5]= make_cons(/* INLINE-ARGS */V304,Cnil);
goto T1006;
T1008:;
base[5]= Cnil;
T1006:;
V305= list(2,VV[11],base[2]);
base[6]= make_cons(/* INLINE-ARGS */V305,Cnil);
vs_top=(vs_base=base+4)+3;
Lappend();
vs_top=sup;
V300= vs_base[0];
base[4]= listA(3,VV[98],V299,V300);
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 V306;
object V307;
object V308;
object V309;
object V310;
object V311;
object V312;
object V313;
object V314;
object V315;
object V316;
object V317;
object V318;
object V319;
object V320;
object V321;
object V322;
object V323;
narg= narg - 0;
va_start(ap);
{
parse_key_new(narg,Vcs +0,&LI12key,ap);
V306=(Vcs[0]);
V307=(Vcs[1]);
V308=(Vcs[2]);
V309=(Vcs[3]);
V310=(Vcs[4]);
V311=(Vcs[5]);
V312=(Vcs[6]);
V313=(Vcs[7]);
V314=(Vcs[8]);
V315=(Vcs[9]);
V316=(Vcs[10]);
V317=(Vcs[11]);
V318=(Vcs[12]);
V319=(Vcs[13]);
V320=(Vcs[14]);
V321=(Vcs[15]);
V322=(Vcs[16]);
V323=(Vcs[17]);
base[0]= VV[53];
base[1]= (V306);
base[2]= (V307);
base[3]= (V308);
base[4]= (V309);
base[5]= (V310);
base[6]= (V311);
base[7]= (V312);
base[8]= (V313);
base[9]= (V314);
base[10]= (V315);
base[11]= (V316);
base[12]= (V317);
base[13]= (V318);
base[14]= (V319);
base[15]= (V320);
base[16]= (V321);
base[17]= (V322);
base[18]= (V323);
vs_top=(vs_base=base+0)+19;
siLmake_structure();
vs_top=sup;
{object V324 = vs_base[0];
VMR12(V324)}}
}}
/* local entry for function CHECK-S-DATA */
static object LI13(V328,V329,V330)
register object V328;register object V329;object V330;
{ VMB13 VMS13 VMV13
TTL:;
if((structure_ref((V328),VV[53],3))==Cnil){
goto T1032;}
V331= structure_ref((V328),VV[53],3);
(void)(structure_set((V329),VV[53],3,/* INLINE-ARGS */V331));
T1032:;
if((structure_ref((V328),VV[53],11))==Cnil){
goto T1035;}
(void)(structure_set((V329),VV[53],11,Ct));
T1035:;
if(equalp((V329),(V328))){
goto T1039;}
(void)((VFUN_NARGS=2,(*(LnkLI130))(VV[100],(V330))));
{object V332 = sputprop((V330),VV[53],(V329));
VMR13(V332)}
T1039:;
{object V333 = Cnil;
VMR13(V333)}
}
/* local entry for function FREEZE-DEFSTRUCT */
static object LI14(V335)
object V335;
{ VMB14 VMS14 VMV14
TTL:;
{object V336;
if(type_of((V335))==t_symbol){
goto T1043;}
V336= Cnil;
goto T1042;
T1043:;
V336= get((V335),VV[53],Cnil);
T1042:;
if(((V336))==Cnil){
goto T1046;}
{object V337 = structure_set((V336),VV[53],11,Ct);
VMR14(V337)}
T1046:;
{object V338 = Cnil;
VMR14(V338)}}
}
/* function definition for SHARP-S-READER */
static L15()
{register object *base=vs_base;
register object *sup=base+VM15; VC15
vs_reserve(VM15);
{object V339;
object V340;
object V341;
check_arg(3);
V339=(base[0]);
V340=(base[1]);
V341=(base[2]);
vs_top=sup;
TTL:;
if(((V341))==Cnil){
goto T1048;}
if((symbol_value(VV[101]))!=Cnil){
goto T1048;}
base[3]= VV[102];
vs_top=(vs_base=base+3)+1;
Lerror();
vs_top=sup;
T1048:;
{object V342;
object V343;
{object V344;
base[3]= (V339);
base[4]= Ct;
base[5]= Cnil;
base[6]= Ct;
vs_top=(vs_base=base+3)+4;
Lread();
vs_top=sup;
V344= vs_base[0];
if((symbol_value(VV[101]))==Cnil){
goto T1060;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T1060:;
V342= (V344);}
base[3]= get(car((V342)),VV[53],Cnil);
if(base[3]==Cnil)goto T1064;
V343= base[3];
goto T1063;
T1064:;
base[4]= VV[103];
base[5]= car((V342));
vs_top=(vs_base=base+4)+2;
Lerror();
vs_top=sup;
V343= vs_base[0];
T1063:;
{object V345;
V345= cdr((V342));
T1070:;
if(!(endp((V345)))){
goto T1071;}
{object V346;
V346= structure_ref((V343),VV[53],13);
T1076:;
if(!(endp((V346)))){
goto T1077;}
base[3]= VV[104];
base[4]= car((V342));
vs_top=(vs_base=base+3)+2;
Lerror();
return;
T1077:;
if(!(type_of(car((V346)))==t_symbol)){
goto T1083;}
base[3]= car((V346));
{object V347;
V347= cdr((V342));
vs_top=base+4;
while(!endp(V347))
{vs_push(car(V347));V347=cdr(V347);}
vs_base=base+4;}
super_funcall_no_event(base[3]);
return;
T1083:;
V346= cdr((V346));
goto T1076;}
T1071:;
base[3]= coerce_to_string(car((V345)));
base[4]= VV[105];
vs_top=(vs_base=base+3)+2;
Lintern();
vs_top=sup;
V348= vs_base[0];
if(type_of((V345))!=t_cons)FEwrong_type_argument(Scons,(V345));
((V345))->c.c_car = V348;
V345= cddr((V345));
goto T1070;}}
}
}
/* local function CLOSURE */
static LC20(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM16; VC16
vs_reserve(VM16);
{object V349;
check_arg(1);
V349=(base[0]);
vs_top=sup;
base[1]= (V349);
base[2]= (base0[0]->c.c_car);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk145)();
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 V350;
check_arg(1);
V350=(base[0]);
vs_top=sup;
if(!(type_of((V350))==t_cons)){
goto T1102;}
base[1]= car((V350));
vs_top=(vs_base=base+1)+1;
return;
T1102:;
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 V351;
check_arg(1);
V351=(base[0]);
vs_top=sup;
base[1]= aref1((V351),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 V352;
check_arg(1);
V352=(base[0]);
vs_top=sup;
base[1]= (base0[0]->c.c_car);
base[2]= (V352);
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 V353;
check_arg(1);
V353=(base[0]);
vs_top=sup;
if(!(type_of((V353))==t_structure)){
goto T1107;}
goto T1106;
T1107:;
base[2]= VV[5];
base[3]= (V353);
vs_top=(vs_base=base+2)+2;
Lerror();
vs_top=sup;
T1106:;
base[1]= (V353);
base[2]= (base0[0]->c.c_car);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk146)();
return;
}
}
static LnkT146(){ call_or_link(VV[146],&Lnk146);} /* STRUCTURE-REF1 */
static LnkT145(){ call_or_link(VV[145],&Lnk145);} /* STRUCTURE-SUBTYPE-P */
static object LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,5,ap);} /* MAKE-PREDICATE */
static object LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],&LnkLI140,5,ap);} /* MAKE-CONSTRUCTOR */
static object LnkTLI139(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[139],&LnkLI139,2,ap);} /* PARSE-SLOT-DESCRIPTION */
static object LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[133],&LnkLI133,3,ap);} /* CHECK-S-DATA */
static object LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[132],&LnkLI132,ap);} /* MAKE-S-DATA */
static object LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,3,ap);} /* GET-SLOT-POS */
static object LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[130],&LnkLI130,ap);} /* WARN */
static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* MAKE-S-DATA-STRUCTURE */
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],&LnkLI128,3,ap);} /* MAKE-T-TYPE */
static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* MAKE-ACCESS-FUNCTION */
static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* SIZE-OF */
static int LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[122],&LnkLI122,20738,ap);} /* ROUND-UP */
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],&LnkLI121,2,ap);} /* COERCE */
static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* TYPEP */
static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* AET-TYPE */
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* ALIGNMENT */
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[117],&LnkLI117,ap);} /* MAKE-ARRAY */
static object LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],&LnkLI116,2,ap);} /* OVERWRITE-SLOT-DESCRIPTIONS */
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,1,ap);} /* NORMALIZE-TYPE */
static object LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],&LnkLI114,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
static object LnkTLI110(){return call_proc0(VV[110],&LnkLI110);} /* ILLEGAL-BOA */
static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* SUBTYPEP */
static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* RECORD-FN */
static object LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[107],&LnkLI107,ap);} /* ADJUST-ARRAY */
static LnkT106(){ call_or_link(VV[106],&Lnk106);} /* STRING-CONCATENATE */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.