This is cmpvar.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmpvar.h"
init_cmpvar(){do_init(VV);}
/* local entry for function MAKE-VAR */
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;
object V6;
object V7;
narg= narg - 0;
va_start(ap);
{
parse_key_new(narg,Vcs +0,&LI1key,ap);
V1=(Vcs[0]);
V2=(Vcs[1]);
V3=(Vcs[2]);
V4=(Vcs[3]);
V5=(Vcs[4]);
if(Vcs[5]==0){
V6= Ct;
}else{
V6=(Vcs[5]);}
V7=(Vcs[6]);
base[0]= VV[0];
base[1]= (V1);
base[2]= (V2);
base[3]= (V3);
base[4]= (V4);
base[5]= (V5);
base[6]= (V6);
base[7]= (V7);
vs_top=(vs_base=base+0)+8;
siLmake_structure();
vs_top=sup;
{object V8 = vs_base[0];
VMR1(V8)}}
}}
/* local entry for function C1MAKE-VAR */
static object LI2(V13,V14,V15,V16)
register object V13;object V14;object V15;object V16;
{ VMB2 VMS2 VMV2
TTL:;
{object V17;
V17= Cnil;
{object V18;
V18= (VFUN_NARGS=2,(*(LnkLI66))(VV[1],(V13)));
if(type_of((V13))==t_symbol){
goto T12;}
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[2],(V13))));
T12:;
base[0]= (V13);
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T15;}
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[3],(V13))));
T15:;
{register object x= (V13),V19= (V14);
while(!endp(V19))
if(eql(x,V19->c.c_car)){
goto T20;
}else V19=V19->c.c_cdr;}
base[0]= (V13);
vs_top=(vs_base=base+0)+1;
siLspecialp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T21;}
T20:;
(void)(structure_set((V18),VV[0],1,VV[4]));
V20= (*(LnkLI68))((V13));
(void)(structure_set((V18),VV[0],4,/* INLINE-ARGS */V20));
{register object x= (V13),V21= (V16);
while(!endp(V21))
if(type_of(V21->c.c_car)==t_cons &&eql(x,V21->c.c_car->c.c_car)){
V17= (V21->c.c_car);
goto T32;
}else V21=V21->c.c_cdr;
V17= Cnil;}
T32:;
if(((V17))==Cnil){
goto T30;}
(void)(structure_set((V18),VV[0],5,cdr((V17))));
goto T28;
T30:;
V17= get((V13),VV[5],Cnil);
if(((V17))==Cnil){
goto T28;}
(void)(structure_set((V18),VV[0],5,(V17)));
T28:;
setq(VV[6],Ct);
goto T19;
T21:;
{object V22;
object V23;
V22= (V16);
V23= car((V22));
T41:;
if(!(endp((V22)))){
goto T42;}
goto T37;
T42:;
if(!((car((V23)))==((V13)))){
goto T46;}
{object V24= cdr((V23));
if((V24!= VV[7]))goto T49;
(void)(structure_set((V18),VV[0],4,VV[7]));
goto T46;
T49:;
if((V24!= VV[69]))goto T50;
V25= structure_ref((V18),VV[0],6);
V26= number_plus(/* INLINE-ARGS */V25,small_fixnum(100));
(void)(structure_set((V18),VV[0],6,/* INLINE-ARGS */V26));
goto T46;
T50:;
(void)(structure_set((V18),VV[0],5,cdr((V23))));}
T46:;
V22= cdr((V22));
V23= car((V22));
goto T41;}
T37:;
base[0]= VV[8];
vs_top=(vs_base=base+0)+1;
Lboundp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T57;}
goto T56;
T57:;
if(symbol_value(VV[8])==Cnil){
goto T56;}
V27= structure_ref((V18),VV[0],5);
if(!((/* INLINE-ARGS */V27)==Cnil)){
goto T62;}
goto T60;
T62:;
V28= structure_ref((V18),VV[0],5);
if((Ct)==(/* INLINE-ARGS */V28)){
goto T60;}
goto T56;
T60:;
(void)(structure_set((V18),VV[0],4,VV[7]));
T56:;
(void)(structure_set((V18),VV[0],1,VV[9]));
T19:;
{register object x= (V13),V29= (V15);
while(!endp(V29))
if(eql(x,V29->c.c_car)){
goto T66;
}else V29=V29->c.c_cdr;
goto T64;}
T66:;
(void)(structure_set((V18),VV[0],2,VV[10]));
T64:;
{object V30 = (V18);
VMR2(V30)}}}
}
/* local entry for function CHECK-VREF */
static object LI3(V32)
register object V32;
{ VMB3 VMS3 VMV3
TTL:;
V33= structure_ref((V32),VV[0],1);
if(!((/* INLINE-ARGS */V33)==(VV[9]))){
goto T68;}
if((structure_ref((V32),VV[0],2))!=Cnil){
goto T68;}
if((structure_ref((V32),VV[0],3))!=Cnil){
goto T68;}
V34= structure_ref((V32),VV[0],0);
{object V35 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],/* INLINE-ARGS */V34));
VMR3(V35)}
T68:;
{object V36 = Cnil;
VMR3(V36)}
}
/* local entry for function C1VAR */
static object LI4(V38)
object V38;
{ VMB4 VMS4 VMV4
TTL:;
{object V39;
object V40;
V39= (VFUN_NARGS=0,(*(LnkLI71))());
V40= (*(LnkLI72))((V38));
{object V41;
object V42;
V41= (V39);
V43= car((V40));
V44= structure_ref((V41),VV[12],1);
V42= make_cons(/* INLINE-ARGS */V43,/* INLINE-ARGS */V44);
(void)(structure_set((V41),VV[12],1,(V42)));}
V45= structure_ref(car((V40)),VV[0],5);
(void)(structure_set((V39),VV[12],2,/* INLINE-ARGS */V45));
{object V46 = list(3,VV[0],(V39),(V40));
VMR4(V46)}}
}
/* local entry for function C1VREF */
static object LI5(V48)
register object V48;
{ VMB5 VMS5 VMV5
TTL:;
{object V49;
object V50;
V49= Cnil;
V50= Cnil;
{object V51;
object V52;
V51= symbol_value(VV[13]);
V52= car((V51));
T85:;
if(!(endp((V51)))){
goto T86;}
{object V53;
V53= (*(LnkLI73))((V48));
if(((V53))!=Cnil){
goto T90;}
base[0]= (V48);
vs_top=(vs_base=base+0)+1;
siLspecialp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T93;}
(void)((*(LnkLI74))((V48)));
T93:;
V54= (*(LnkLI68))((V48));
base[0]= get((V48),VV[5],Cnil);
if(base[0]==Cnil)goto T100;
V55= base[0];
goto T99;
T100:;
V55= Ct;
T99:;
V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55));
setq(VV[18],make_cons((V53),symbol_value(VV[18])));
T90:;
{object V56 = list(2,(V53),(V49));
VMR5(V56)}}
T86:;
if(!(((V52))==(VV[19]))){
goto T106;}
V49= Ct;
goto T104;
T106:;
if(!(((V52))==(VV[20]))){
goto T110;}
V50= Ct;
goto T104;
T110:;
V57= structure_ref((V52),VV[0],0);
if(!((/* INLINE-ARGS */V57)==((V48)))){
goto T104;}
V58= structure_ref((V52),VV[0],2);
if(!((/* INLINE-ARGS */V58)==(VV[10]))){
goto T115;}
(void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48))));
(void)(structure_set((V52),VV[0],2,Ct));
T115:;
if(((V49))==Cnil){
goto T121;}
(void)(structure_set((V52),VV[0],3,Ct));
goto T119;
T121:;
if(((V50))==Cnil){
goto T124;}
V59= structure_ref((V52),VV[0],1);
if(!((/* INLINE-ARGS */V59)==(VV[9]))){
goto T126;}
(void)(structure_set((V52),VV[0],4,VV[22]));
T126:;
(void)(structure_set((V52),VV[0],2,Ct));
goto T119;
T124:;
(void)(structure_set((V52),VV[0],2,Ct));
{int V60= fix(structure_ref((V52),VV[0],6));
V61 = make_fixnum((1)+(/* INLINE-ARGS */V60));
(void)(structure_set((V52),VV[0],6,V61));}
T119:;
{object V62 = list(2,(V52),(V49));
VMR5(V62)}
T104:;
V51= cdr((V51));
V52= car((V51));
goto T85;}}
}
/* local entry for function C2VAR-KIND */
static object LI6(V64)
register object V64;
{ VMB6 VMS6 VMV6
TTL:;
V65= structure_ref((V64),VV[0],1);
if(!((/* INLINE-ARGS */V65)==(VV[9]))){
goto T136;}
if((structure_ref((V64),VV[0],3))!=Cnil){
goto T136;}
V66= structure_ref((V64),VV[0],4);
if((/* INLINE-ARGS */V66)==(VV[22])){
goto T136;}
V67= structure_ref((V64),VV[0],4);
if(!((/* INLINE-ARGS */V67)==(VV[7]))){
goto T143;}
{object V68 = VV[7];
VMR6(V68)}
T143:;
{object V69;
V69= structure_ref((V64),VV[0],5);
if(((*(LnkLI75))(VV[23],(V69)))==Cnil){
goto T147;}
{object V70 = VV[23];
VMR6(V70)}
T147:;
if(((*(LnkLI75))(VV[24],(V69)))==Cnil){
goto T150;}
{object V71 = VV[24];
VMR6(V71)}
T150:;
if(((*(LnkLI75))(VV[25],(V69)))==Cnil){
goto T153;}
{object V72 = VV[25];
VMR6(V72)}
T153:;
if(((*(LnkLI75))(VV[26],(V69)))==Cnil){
goto T156;}
{object V73 = VV[26];
VMR6(V73)}
T156:;
if(((*(LnkLI75))(VV[27],(V69)))==Cnil){
goto T159;}
{object V74 = VV[27];
VMR6(V74)}
T159:;
{object V75;
base[0]= VV[8];
vs_top=(vs_base=base+0)+1;
Lboundp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T162;}
V75= Cnil;
goto T161;
T162:;
if(symbol_value(VV[8])==Cnil){
V75= Cnil;
goto T161;}
V75= VV[7];
T161:;
if(((V75))==Cnil){
goto T166;}
{object V76 = (V75);
VMR6(V76)}
T166:;
{object V77 = Cnil;
VMR6(V77)}}}
T136:;
{object V78 = Cnil;
VMR6(V78)}
}
/* local entry for function C2VAR */
static object LI7(V80)
object V80;
{ VMB7 VMS7 VMV7
TTL:;
V81= make_cons(VV[0],(V80));
{object V82 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V81,Cnil,VV[28]));
VMR7(V82)}
}
/* local entry for function C2LOCATION */
static object LI8(V84)
object V84;
{ VMB8 VMS8 VMV8
TTL:;
{object V85 = (VFUN_NARGS=3,(*(LnkLI76))((V84),Cnil,VV[28]));
VMR8(V85)}
}
/* local entry for function CHECK-DOWNWARD */
static object LI9(V87)
object V87;
{ VMB9 VMS9 VMV9
TTL:;
{object V88;
V88= Cnil;
{object V89;
object V90;
V89= symbol_value(VV[29]);
V90= car((V89));
T173:;
if(!(endp((V89)))){
goto T174;}
goto T169;
T174:;
if(!((car((V90)))==(VV[30]))){
goto T178;}
V88= Ct;
{object V91;
object V92;
V91= symbol_value(VV[29]);
V92= car((V91));
T187:;
if(!(endp((V91)))){
goto T188;}
goto T183;
T188:;
if(!((car((V92)))==(VV[31]))){
goto T192;}
{object V93;
object V94;
V93= (V92);
V94= VV[30];
if(type_of((V93))!=t_cons)FEwrong_type_argument(Scons,(V93));
((V93))->c.c_car = (V94);}
T192:;
V91= cdr((V91));
V92= car((V91));
goto T187;}
T183:;
goto T169;
T178:;
V89= cdr((V89));
V90= car((V89));
goto T173;}
T169:;
setq(VV[29],Cnil);
if(((V88))==Cnil){
goto T211;}
{object V95;
object V96;
V95= (V87);
V96= car((V95));
T216:;
if(!(endp((V95)))){
goto T217;}
{object V97 = Cnil;
VMR9(V97)}
T217:;
V98= structure_ref((V96),VV[0],1);
if(!((/* INLINE-ARGS */V98)==(VV[32]))){
goto T221;}
(void)(structure_set((V96),VV[0],1,VV[9]));
T221:;
V95= cdr((V95));
V96= car((V95));
goto T216;}
T211:;
{object V99 = Cnil;
VMR9(V99)}}
}
/* local entry for function ASSIGN-DOWN-VARS */
static object LI10(V103,V104,V105)
object V103;object V104;object V105;
{ VMB10 VMS10 VMV10
TTL:;
{object V106;
V106= small_fixnum(0);
{object V107;
object V108;
V107= (V103);
V108= car((V107));
T234:;
if(!(endp((V107)))){
goto T235;}
goto T230;
T235:;
V109= structure_ref((V108),VV[0],1);
if(!((/* INLINE-ARGS */V109)==(VV[32]))){
goto T239;}
V110= structure_ref((V108),VV[0],4);
if(!(type_of(/* INLINE-ARGS */V110)==t_fixnum||type_of(/* INLINE-ARGS */V110)==t_bignum)){
goto T243;}
V111= structure_ref((V108),VV[0],4);
V112= one_plus(/* INLINE-ARGS */V111);
V106= (number_compare((V106),/* INLINE-ARGS */V112)>=0?((V106)):/* INLINE-ARGS */V112);
V113= structure_ref((V108),VV[0],4);
(void)(structure_set((V108),VV[0],2,/* INLINE-ARGS */V113));
goto T239;
T243:;
(void)(structure_set((V108),VV[0],2,(V106)));
(void)(structure_set((V108),VV[0],4,(V106)));
V106= number_plus((V106),small_fixnum(1));
T239:;
V107= cdr((V107));
V108= car((V107));
goto T234;}
T230:;
if(!(number_compare((V106),small_fixnum(0))>0)){
goto T255;}
if(!(((V105))==(VV[33]))){
goto T258;}
princ_str("\n object base0[",VV[34]);
(void)((*(LnkLI77))((V106)));
princ_str("];",VV[34]);
T258:;
setq(VV[35],make_cons(VV[36],symbol_value(VV[35])));
princ_str("\n DCnames",VV[34]);
(void)((*(LnkLI77))((V104)));
princ_str("",VV[34]);
T255:;
{object V114 = (V106);
VMR10(V114)}}
}
/* local entry for function WT-DOWN */
static object LI11(V116)
object V116;
{ VMB11 VMS11 VMV11
TTL:;
base[1]= (V116);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk78)();
vs_top=sup;
base[0]= vs_base[0];
if(base[0]==Cnil)goto T270;
goto T269;
T270:;
(void)((*(LnkLI79))());
T269:;
princ_str("base0[",VV[34]);
(void)((*(LnkLI77))((V116)));
princ_char(93,VV[34]);
{object V117 = Cnil;
VMR11(V117)}
}
/* local entry for function WT-VAR */
static object LI12(V120,V121)
register object V120;object V121;
{ VMB12 VMS12 VMV12
TTL:;
V123= structure_ref((V120),VV[0],1);
{object V122= /* INLINE-ARGS */V123;
if((V122!= VV[9]))goto T276;
if(((V121))==Cnil){
goto T278;}
V124= structure_ref((V120),VV[0],3);
{object V125 = (*(LnkLI80))(/* INLINE-ARGS */V124);
VMR12(V125)}
T278:;
if((structure_ref((V120),VV[0],3))==Cnil){
goto T281;}
V126= structure_ref((V120),VV[0],2);
{object V127 = (*(LnkLI81))(/* INLINE-ARGS */V126);
VMR12(V127)}
T281:;
V128= structure_ref((V120),VV[0],2);
if(!((Ct)==(/* INLINE-ARGS */V128))){
goto T284;}
base[0]= structure_ref((V120),VV[0],4);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk78)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T284;}
if((symbol_value(VV[8]))==Cnil){
goto T284;}
V129= structure_ref((V120),VV[0],5);
if(!((Ct)==(/* INLINE-ARGS */V129))){
goto T284;}
(void)(structure_set((V120),VV[0],1,VV[7]));
goto TTL;
T284:;
V130= structure_ref((V120),VV[0],2);
{object V131 = (*(LnkLI82))(/* INLINE-ARGS */V130);
VMR12(V131)}
T276:;
if((V122!= VV[4]))goto T297;
princ_str("(VV[",VV[34]);
V132= structure_ref((V120),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V132));
princ_str("]->s.s_dbind)",VV[34]);
{object V133 = Cnil;
VMR12(V133)}
T297:;
if((V122!= VV[83]))goto T301;
V134= structure_ref((V120),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V134));
{object V135 = Cnil;
VMR12(V135)}
T301:;
if((V122!= VV[32]))goto T303;
V136= structure_ref((V120),VV[0],4);
{object V137 = (*(LnkLI84))(/* INLINE-ARGS */V136);
VMR12(V137)}
T303:;
if((V122!= VV[15]))goto T304;
if((symbol_value(VV[37]))==Cnil){
goto T306;}
princ_str("symbol_value(VV[",VV[34]);
V138= structure_ref((V120),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V138));
princ_str("])",VV[34]);
{object V139 = Cnil;
VMR12(V139)}
T306:;
princ_str("(VV[",VV[34]);
V140= structure_ref((V120),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V140));
princ_str("]->s.s_dbind)",VV[34]);
{object V141 = Cnil;
VMR12(V141)}
T304:;
V143= structure_ref((V120),VV[0],1);
{object V142= /* INLINE-ARGS */V143;
if((V142!= VV[23]))goto T315;
if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){
goto T316;}
princ_str("CMP",VV[34]);
T316:;
princ_str("make_fixnum",VV[34]);
goto T314;
T315:;
if((V142!= VV[24]))goto T321;
princ_str("make_integer",VV[34]);
goto T314;
T321:;
if((V142!= VV[25]))goto T323;
princ_str("code_char",VV[34]);
goto T314;
T323:;
if((V142!= VV[26]))goto T325;
princ_str("make_longfloat",VV[34]);
goto T314;
T325:;
if((V142!= VV[27]))goto T327;
princ_str("make_shortfloat",VV[34]);
goto T314;
T327:;
if((V142!= VV[7]))goto T329;
goto T314;
T329:;
(void)((*(LnkLI85))());}
T314:;
princ_str("(V",VV[34]);
V144= structure_ref((V120),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V144));
princ_char(41,VV[34]);
{object V145 = Cnil;
VMR12(V145)}}
}
/* local entry for function SET-VAR */
static object LI13(V149,V150,V151)
register object V149;register object V150;object V151;
{ VMB13 VMS13 VMV13
bds_check;
TTL:;
if(!(type_of((V149))==t_cons)){
goto T333;}
if(!((car((V149)))==(VV[0]))){
goto T333;}
if(!((cadr((V149)))==((V150)))){
goto T333;}
if((caddr((V149)))==((V151))){
goto T334;}
T333:;
V153= structure_ref((V150),VV[0],1);
{object V152= /* INLINE-ARGS */V153;
if((V152!= VV[9]))goto T342;
princ_str("\n ",VV[34]);
if(((V151))==Cnil){
goto T346;}
V154= structure_ref((V150),VV[0],3);
(void)((*(LnkLI80))(/* INLINE-ARGS */V154));
goto T344;
T346:;
if((structure_ref((V150),VV[0],3))==Cnil){
goto T349;}
V155= structure_ref((V150),VV[0],2);
(void)((*(LnkLI81))(/* INLINE-ARGS */V155));
goto T344;
T349:;
V156= structure_ref((V150),VV[0],2);
(void)((*(LnkLI82))(/* INLINE-ARGS */V156));
T344:;
princ_str("= ",VV[34]);
(void)((*(LnkLI77))((V149)));
princ_char(59,VV[34]);
{object V157 = Cnil;
VMR13(V157)}
T342:;
if((V152!= VV[4]))goto T354;
princ_str("\n (VV[",VV[34]);
V158= structure_ref((V150),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V158));
princ_str("]->s.s_dbind)= ",VV[34]);
(void)((*(LnkLI77))((V149)));
princ_char(59,VV[34]);
{object V159 = Cnil;
VMR13(V159)}
T354:;
if((V152!= VV[15]))goto T360;
if((symbol_value(VV[37]))==Cnil){
goto T362;}
princ_str("\n setq(VV[",VV[34]);
V160= structure_ref((V150),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V160));
princ_str("],",VV[34]);
(void)((*(LnkLI77))((V149)));
princ_str(");",VV[34]);
{object V161 = Cnil;
VMR13(V161)}
T362:;
princ_str("\n (VV[",VV[34]);
V162= structure_ref((V150),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V162));
princ_str("]->s.s_dbind)= ",VV[34]);
(void)((*(LnkLI77))((V149)));
princ_char(59,VV[34]);
{object V163 = Cnil;
VMR13(V163)}
T360:;
if((V152!= VV[32]))goto T374;
princ_str("\n ",VV[34]);
V164= structure_ref((V150),VV[0],4);
(void)((*(LnkLI84))(/* INLINE-ARGS */V164));
princ_char(61,VV[34]);
(void)((*(LnkLI77))((V149)));
princ_char(59,VV[34]);
{object V165 = Cnil;
VMR13(V165)}
T374:;
if((V152!= VV[24]))goto T381;
{object V166;
object V167;
if(type_of((V149))==t_cons){
goto T383;}
V166= Cnil;
goto T382;
T383:;
V166= car((V149));
T382:;
V167= structure_ref((V150),VV[0],4);
{object V168= (V166);
if((V168!= VV[86]))goto T387;
princ_str("\n isetq_fix(V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_char(44,VV[34]);
base[0]= caddr((V149));
base[1]= cadddr((V149));
vs_top=(vs_base=base+0)+2;
(void) (*Lnk87)();
vs_top=sup;
goto T386;
T387:;
if((V168!= VV[88]))goto T394;
princ_str("\n isetq_fix(V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_char(44,VV[34]);
(void)((*(LnkLI77))(caddr((V149))));
goto T386;
T394:;
if((V168!= VV[0]))goto T399;
V170= structure_ref(cadr((V149)),VV[0],1);
{object V169= /* INLINE-ARGS */V170;
if((V169!= VV[24]))goto T400;
princ_str("SETQ_II(V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str(",V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str("alloc,V",VV[34]);
V171= structure_ref(cadr((V149)),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V171));
goto T386;
T400:;
if((V169!= VV[23]))goto T407;
princ_str("isetq_fix(V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str(",V",VV[34]);
V172= structure_ref(cadr((V149)),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V172));
goto T386;
T407:;
princ_str("SETQ_IO(V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str(",V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str("alloc,",VV[34]);
(void)((*(LnkLI77))((V149)));
goto T386;}
T399:;
if((V168!= VV[54]))goto T418;
princ_str("SETQ_IO(V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str(",V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str("alloc,",VV[34]);
(void)((*(LnkLI77))((V149)));
goto T386;
T418:;
bds_bind(VV[39],small_fixnum(0));
bds_bind(VV[40],symbol_value(VV[40]));
base[2]= VV[41];
vs_top=(vs_base=base+2)+1;
(void) (*Lnk89)();
vs_top=sup;
princ_str("\n SETQ_II(V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str(",V",VV[34]);
(void)((*(LnkLI77))((V167)));
princ_str("alloc,",VV[34]);
base[2]= (V149);
base[3]= make_cons(VV[42],(V150));
vs_top=(vs_base=base+2)+2;
(void) (*Lnk90)();
vs_top=sup;
princ_str(");",VV[34]);
V173= (*(LnkLI91))();
bds_unwind1;
bds_unwind1;
{object V174 = Cnil;
VMR13(V174)}}
T386:;
princ_str(");",VV[34]);
{object V175 = Cnil;
VMR13(V175)}}
T381:;
princ_str("\n V",VV[34]);
V176= structure_ref((V150),VV[0],4);
(void)((*(LnkLI77))(/* INLINE-ARGS */V176));
princ_str("= ",VV[34]);
V178= structure_ref((V150),VV[0],1);
{object V177= /* INLINE-ARGS */V178;
if((V177!= VV[23]))goto T445;
base[0]= (V149);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk92)();
vs_top=sup;
goto T444;
T445:;
if((V177!= VV[25]))goto T447;
base[0]= (V149);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk93)();
vs_top=sup;
goto T444;
T447:;
if((V177!= VV[26]))goto T449;
base[0]= (V149);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk94)();
vs_top=sup;
goto T444;
T449:;
if((V177!= VV[27]))goto T451;
base[0]= (V149);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk95)();
vs_top=sup;
goto T444;
T451:;
if((V177!= VV[7]))goto T453;
base[0]= (V149);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk96)();
vs_top=sup;
goto T444;
T453:;
(void)((*(LnkLI85))());}
T444:;
princ_char(59,VV[34]);
{object V179 = Cnil;
VMR13(V179)}}
T334:;
{object V180 = Cnil;
VMR13(V180)}
}
/* local entry for function SCH-GLOBAL */
static object LI14(V182)
register object V182;
{ VMB14 VMS14 VMV14
TTL:;
{object V183;
object V184;
V183= symbol_value(VV[18]);
V184= car((V183));
T459:;
if(!(endp((V183)))){
goto T460;}
{object V185 = Cnil;
VMR14(V185)}
T460:;
V186= structure_ref((V184),VV[0],0);
if(!((/* INLINE-ARGS */V186)==((V182)))){
goto T464;}
{object V187 = (V184);
VMR14(V187)}
T464:;
V183= cdr((V183));
V184= car((V183));
goto T459;}
}
/* local entry for function C1ADD-GLOBALS */
static object LI15(V189)
object V189;
{ VMB15 VMS15 VMV15
TTL:;
{object V190;
object V191;
V190= (V189);
V191= car((V190));
T475:;
if(!(endp((V190)))){
goto T476;}
{object V192 = Cnil;
VMR15(V192)}
T476:;
V193= (*(LnkLI68))((V191));
{object V195;
V195= get((V191),VV[5],Cnil);
if(((V195))==Cnil){
goto T485;}
V194= (V195);
goto T482;
T485:;
V194= Ct;}
T482:;
V196= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V191),VV[14],VV[15],VV[16],/* INLINE-ARGS */V193,VV[17],V194));
setq(VV[13],make_cons(/* INLINE-ARGS */V196,symbol_value(VV[13])));
V190= cdr((V190));
V191= car((V190));
goto T475;}
}
/* local entry for function C1SETQ */
static object LI16(V198)
register object V198;
{ VMB16 VMS16 VMV16
TTL:;
if(!(endp((V198)))){
goto T493;}
{object V199 = (*(LnkLI97))();
VMR16(V199)}
T493:;
if(!(endp(cdr((V198))))){
goto T496;}
{object V200 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1));
VMR16(V200)}
T496:;
if(!(endp(cddr((V198))))){
goto T499;}
{object V201 = (*(LnkLI99))(car((V198)),cadr((V198)));
VMR16(V201)}
T499:;
{object V202;
object V203;
V202= (V198);
V203= Cnil;
T504:;
if(!(endp((V202)))){
goto T505;}
V204= reverse((V203));
V205= make_cons(VV[44],/* INLINE-ARGS */V204);
{object V206 = (*(LnkLI100))(/* INLINE-ARGS */V205);
VMR16(V206)}
T505:;
if(!(endp(cdr((V202))))){
goto T509;}
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V202)))));
T509:;
V207= list(3,VV[43],car((V202)),cadr((V202)));
V203= make_cons(/* INLINE-ARGS */V207,(V203));
V202= cddr((V202));
goto T504;}
}
/* local entry for function C1SETQ1 */
static object LI17(V210,V211)
register object V210;object V211;
{ VMB17 VMS17 VMV17
TTL:;
{object V212;
object V213;
object V214;
object V215;
V212= (VFUN_NARGS=0,(*(LnkLI71))());
V213= Cnil;
V214= Cnil;
V215= Cnil;
if(type_of((V210))==t_symbol){
goto T521;}
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V210))));
T521:;
base[0]= (V210);
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T524;}
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V210))));
T524:;
V215= (*(LnkLI72))((V210));
{object V216;
object V217;
V216= (V212);
V218= car((V215));
V219= structure_ref((V216),VV[12],0);
V217= make_cons(/* INLINE-ARGS */V218,/* INLINE-ARGS */V219);
(void)(structure_set((V216),VV[12],0,(V217)));}
V214= (*(LnkLI100))((V211));
(void)((*(LnkLI101))((V212),cadr((V214))));
V220= structure_ref(car((V215)),VV[0],5);
V221= structure_ref(cadr((V214)),VV[12],2);
V213= (*(LnkLI102))(/* INLINE-ARGS */V220,/* INLINE-ARGS */V221);
if(((V213))!=Cnil){
goto T538;}
(void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V210),(V211))));
T538:;
V222= structure_ref(cadr((V214)),VV[12],2);
if(((V213))==(/* INLINE-ARGS */V222)){
goto T541;}
{object V223;
base[0]= cadr((V214));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk103)();
vs_top=sup;
V223= vs_base[0];
(void)(structure_set((V223),VV[12],2,(V213)));
V214= listA(3,car((V214)),(V223),cddr((V214)));}
T541:;
(void)(structure_set((V212),VV[12],2,(V213)));
{object V224 = list(4,VV[43],(V212),(V215),(V214));
VMR17(V224)}}
}
/* local entry for function C2SETQ */
static object LI18(V227,V228)
object V227;object V228;
{ VMB18 VMS18 VMV18
bds_check;
TTL:;
base[0]= make_cons(VV[0],(V227));
bds_bind(VV[49],base[0]);
V229= (*(LnkLI104))((V228));
bds_unwind1;
{object V230= car((V228));
if((V230!= VV[105]))goto T551;
{object V231 = (*(LnkLI106))(caddr((V228)));
VMR18(V231)}
T551:;
V232= make_cons(VV[0],(V227));
{object V233 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V232));
VMR18(V233)}}
}
/* local entry for function C1PROGV */
static object LI19(V235)
register object V235;
{ VMB19 VMS19 VMV19
TTL:;
{object V236;
object V237;
object V238;
V236= Cnil;
V237= Cnil;
V238= (VFUN_NARGS=0,(*(LnkLI71))());
if(endp((V235))){
goto T556;}
if(!(endp(cdr((V235))))){
goto T555;}
T556:;
V239 = make_fixnum(length((V235)));
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V239));
T555:;
V236= (*(LnkLI107))(car((V235)),(V238));
V237= (*(LnkLI107))(cadr((V235)),(V238));
{object V240 = list(5,VV[50],(V238),(V236),(V237),(*(LnkLI108))(cddr((V235)),(V238)));
VMR19(V240)}}
}
/* local entry for function C2PROGV */
static object LI20(V244,V245,V246)
object V244;object V245;object V246;
{ VMB20 VMS20 VMV20
bds_check;
TTL:;
{object V247;
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
V247= symbol_value(VV[51]);
bds_bind(VV[52],symbol_value(VV[52]));
princ_str("\n {object symbols,values;",VV[34]);
princ_str("\n bds_ptr V",VV[34]);
(void)((*(LnkLI77))((V247)));
princ_str("=bds_top;",VV[34]);
(VV[52]->s.s_dbind)= make_cons((V247),(VV[52]->s.s_dbind));
bds_bind(VV[53],symbol_value(VV[53]));
base[2]= list(2,VV[54],(*(LnkLI109))());
bds_bind(VV[49],base[2]);
(void)((*(LnkLI104))((V244)));
princ_str("\n symbols= ",VV[34]);
(void)((*(LnkLI77))((VV[49]->s.s_dbind)));
princ_char(59,VV[34]);
bds_unwind1;
base[2]= list(2,VV[54],(*(LnkLI109))());
bds_bind(VV[49],base[2]);
(void)((*(LnkLI104))((V245)));
princ_str("\n values= ",VV[34]);
(void)((*(LnkLI77))((VV[49]->s.s_dbind)));
princ_char(59,VV[34]);
bds_unwind1;
princ_str("\n while(!endp(symbols)){",VV[34]);
if((symbol_value(VV[37]))==Cnil){
goto T589;}
princ_str("\n if(type_of(MMcar(symbols))!=t_symbol)",VV[34]);
princ_str("\n FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]);
T589:;
princ_str("\n if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]);
princ_str("\n else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]);
princ_str("\n values=MMcdr(values);}",VV[34]);
princ_str("\n symbols=MMcdr(symbols);}",VV[34]);
bds_unwind1;
base[1]= (V246);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk110)();
vs_top=sup;
princ_char(125,VV[34]);
{object V248 = Cnil;
bds_unwind1;
VMR20(V248)}}
}
/* local entry for function C1PSETQ */
static object LI21(V250)
object V250;
{ VMB21 VMS21 VMV21
TTL:;
{object V251;
object V252;
object V253;
V251= Cnil;
V252= Cnil;
V253= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55]));
{object V254;
V254= (V250);
T611:;
if(!(endp((V254)))){
goto T612;}
goto T608;
T612:;
if(type_of(car((V254)))==t_symbol){
goto T616;}
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V254)))));
T616:;
base[0]= car((V254));
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T619;}
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V254)))));
T619:;
if(!(endp(cdr((V254))))){
goto T623;}
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V254)))));
T623:;
{object V255;
object V256;
object V257;
V255= (*(LnkLI72))(car((V254)));
V256= (*(LnkLI100))(cadr((V254)));
V258= structure_ref(car((V255)),VV[0],5);
V259= structure_ref(cadr((V256)),VV[12],2);
V257= (*(LnkLI102))(/* INLINE-ARGS */V258,/* INLINE-ARGS */V259);
V260= structure_ref(cadr((V256)),VV[12],2);
if(equal((V257),/* INLINE-ARGS */V260)){
goto T630;}
{object V261;
base[0]= cadr((V256));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk103)();
vs_top=sup;
V261= vs_base[0];
(void)(structure_set((V261),VV[12],2,(V257)));
V256= listA(3,car((V256)),(V261),cddr((V256)));}
T630:;
V251= make_cons((V255),(V251));
V252= make_cons((V256),(V252));
{object V262;
object V263;
V262= (V253);
V264= car((V255));
V265= structure_ref((V262),VV[12],0);
V263= make_cons(/* INLINE-ARGS */V264,/* INLINE-ARGS */V265);
(void)(structure_set((V262),VV[12],0,(V263)));}
(void)((*(LnkLI101))((V253),cadar((V252))));}
V254= cddr((V254));
goto T611;}
T608:;
V266= reverse((V251));
{object V267 = list(4,VV[59],(V253),/* INLINE-ARGS */V266,reverse((V252)));
VMR21(V267)}}
}
/* local entry for function C2PSETQ */
static object LI22(V270,V271)
object V270;register object V271;
{ VMB22 VMS22 VMV22
bds_check;
TTL:;
{object V272;
object V273;
bds_bind(VV[53],symbol_value(VV[53]));
V272= Cnil;
V273= small_fixnum(0);
{object V274;
object V275;
V274= (V270);
V275= car((V274));
T653:;
if(!(endp((V274)))){
goto T654;}
goto T649;
T654:;
if(((*(LnkLI111))(car((V275)),cdr((V271))))!=Cnil){
goto T659;}
if(((*(LnkLI112))(car((V275)),cdr((V271))))==Cnil){
goto T660;}
T659:;
{object V276= caar((V271));
if((V276!= VV[105]))goto T664;
V277= make_cons((V275),caddar((V271)));
V272= make_cons(/* INLINE-ARGS */V277,(V272));
goto T658;
T664:;
V279= structure_ref(car((V275)),VV[0],1);
{register object x= /* INLINE-ARGS */V279,V278= VV[60];
while(!endp(V278))
if(eql(x,V278->c.c_car)){
goto T668;
}else V278=V278->c.c_cdr;
goto T667;}
T668:;
{object V280;
object V281;
object V282;
V280= structure_ref(car((V275)),VV[0],1);
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
V281= symbol_value(VV[51]);
V283= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V280),VV[16],(V281)));
V282= list(3,VV[0],/* INLINE-ARGS */V283,Cnil);
princ_str("\n {",VV[34]);
(void)((*(LnkLI77))(symbol_value(VV[61])));
V284= (*(LnkLI113))((V280));
(void)((*(LnkLI77))(/* INLINE-ARGS */V284));
princ_char(86,VV[34]);
(void)((*(LnkLI77))((V281)));
princ_char(59,VV[34]);
V273= number_plus((V273),small_fixnum(1));
bds_bind(VV[49],(V282));
V285= (*(LnkLI104))(car((V271)));
bds_unwind1;
V286= make_cons((V275),(V282));
V272= make_cons(/* INLINE-ARGS */V286,(V272));
goto T658;}
T667:;
base[1]= list(2,VV[54],(*(LnkLI109))());
bds_bind(VV[49],base[1]);
(void)((*(LnkLI104))(car((V271))));
V287= make_cons((V275),(VV[49]->s.s_dbind));
V272= make_cons(/* INLINE-ARGS */V287,(V272));
bds_unwind1;
goto T658;}
T660:;
base[1]= make_cons(VV[0],(V275));
bds_bind(VV[49],base[1]);
V288= (*(LnkLI104))(car((V271)));
bds_unwind1;
T658:;
{object V289;
V289= car((V271));
V271= cdr((V271));}
V274= cdr((V274));
V275= car((V274));
goto T653;}
T649:;
{object V290;
object V291;
V290= (V272);
V291= car((V290));
T701:;
if(!(endp((V290)))){
goto T702;}
goto T697;
T702:;
(void)((*(LnkLI42))(cdr((V291)),caar((V291)),cadar((V291))));
V290= cdr((V290));
V291= car((V290));
goto T701;}
T697:;
{object V292;
object V293;
V292= (V273);
V293= small_fixnum(0);
T716:;
if(!(number_compare((V293),(V292))>=0)){
goto T717;}
goto T712;
T717:;
princ_char(125,VV[34]);
V293= one_plus((V293));
goto T716;}
T712:;
{object V294 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil));
bds_unwind1;
VMR22(V294)}}
}
/* function definition for WT-VAR-DECL */
static L23()
{register object *base=vs_base;
register object *sup=base+VM23; VC23
vs_reserve(VM23);
{register object V295;
check_arg(1);
V295=(base[0]);
vs_top=sup;
TTL:;
base[1]= (V295);
base[2]= VV[0];
vs_top=(vs_base=base+1)+2;
(void) (*Lnk114)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T727;}
{object V296;
V296= structure_ref((V295),VV[0],4);
V297= structure_ref((V295),VV[0],1);
if(!((/* INLINE-ARGS */V297)==(VV[24]))){
goto T732;}
princ_str("IDECL(",VV[34]);
T732:;
(void)((*(LnkLI77))(symbol_value(VV[61])));
V298= (*(LnkLI69))((V295));
(void)((*(LnkLI77))(/* INLINE-ARGS */V298));
V299= structure_ref((V295),VV[0],1);
V300= (*(LnkLI113))(/* INLINE-ARGS */V299);
(void)((*(LnkLI77))(/* INLINE-ARGS */V300));
princ_char(86,VV[34]);
(void)((*(LnkLI77))((V296)));
V301= structure_ref((V295),VV[0],1);
if(!(eql(/* INLINE-ARGS */V301,VV[24]))){
goto T742;}
princ_str(",V",VV[34]);
(void)((*(LnkLI77))((V296)));
princ_str("space,V",VV[34]);
(void)((*(LnkLI77))((V296)));
princ_str("alloc)",VV[34]);
T742:;
princ_char(59,VV[34]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
T727:;
base[1]= (*(LnkLI79))();
vs_top=(vs_base=base+1)+1;
return;
}
}
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,1,ap);} /* REGISTER */
static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* STRUCTURE-SUBTYPE-P */
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,3,ap);} /* SET-VAR */
static object LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],&LnkLI113,1,ap);} /* REP-TYPE */
static object LnkTLI112(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[112],&LnkLI112,2,ap);} /* ARGS-INFO-REFERRED-VARS */
static object LnkTLI111(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[111],&LnkLI111,2,ap);} /* ARGS-INFO-CHANGED-VARS */
static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* C2EXPR */
static object LnkTLI109(){return call_proc0(VV[109],&LnkLI109);} /* VS-PUSH */
static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,2,ap);} /* C1PROGN* */
static object LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],&LnkLI107,2,ap);} /* C1EXPR* */
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,1,ap);} /* C2LOCATION */
static object LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],&LnkLI104,1,ap);} /* C2EXPR* */
static LnkT103(){ call_or_link(VV[103],&Lnk103);} /* COPY-INFO */
static object LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[102],&LnkLI102,2,ap);} /* TYPE-AND */
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,2,ap);} /* ADD-INFO */
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,1,ap);} /* C1EXPR */
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,2,ap);} /* C1SETQ1 */
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],&LnkLI98,3,ap);} /* TOO-FEW-ARGS */
static object LnkTLI97(){return call_proc0(VV[97],&LnkLI97);} /* C1NIL */
static LnkT96(){ call_or_link(VV[96],&Lnk96);} /* WT-LOC */
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-FIXNUM-LOC */
static object LnkTLI91(){return call_proc0(VV[91],&LnkLI91);} /* CLOSE-INLINE-BLOCKS */
static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* WT-INTEGER-LOC */
static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* SAVE-AVMA */
static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* WT-INLINE-LOC */
static object LnkTLI85(){return call_proc0(VV[85],&LnkLI85);} /* BABOON */
static object LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[84],&LnkLI84,1,ap);} /* WT-DOWN */
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[82],&LnkLI82,1,ap);} /* WT-VS */
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* WT-VS* */
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* WT-CCB-VS */
static object LnkTLI79(){return call_proc0(VV[79],&LnkLI79);} /* WFS-ERROR */
static LnkT78(){ call_or_link(VV[78],&Lnk78);} /* FIXNUMP */
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_vproc(VV[76],&LnkLI76,ap);} /* UNWIND-EXIT */
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,2,ap);} /* TYPE>= */
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* UNDEFINED-VARIABLE */
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* SCH-GLOBAL */
static object LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],&LnkLI72,1,ap);} /* C1VREF */
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[71],&LnkLI71,ap);} /* MAKE-INFO */
static object LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],&LnkLI70,ap);} /* CMPWARN */
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,1,ap);} /* ADD-SYMBOL */
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],&LnkLI67,ap);} /* CMPERR */
static object LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],&LnkLI66,ap);} /* MAKE-VAR */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.