This is cmpcall.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmpcall.h"
init_cmpcall(){do_init(VV);}
/* local entry for function FAST-LINK-PROCLAIMED-TYPE-P */
static object LI1(V1,va_alist)
object V1;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB1 VMS1 VMV1
{register object V2;
object V3;
if(narg <1) too_few_arguments();
V2= V1;
narg = narg - 1;
if (narg <= 0) goto T1;
else {
va_start(ap);
V3= va_arg(ap,object);}
--narg; goto T2;
T1:;
V3= Cnil;
T2:;
if(type_of((V2))==t_symbol){
goto T4;}
{object V4 = Cnil;
VMR1(V4)}
T4:;
if((length((V3)))<(64)){
goto T6;}
{object V5 = Cnil;
VMR1(V5)}
T6:;
if((get((V2),VV[0],Cnil))!=Cnil){
goto T10;}
base[0]= Cnil;
goto T9;
T10:;
base[0]= (type_of((V3))==t_cons||((V3))==Cnil?Ct:Cnil);
T9:;
if(base[0]==Cnil)goto T8;
{object V6 = base[0];
VMR1(V6)}
T8:;
if((get((V2),VV[1],Cnil))!=Cnil){
goto T12;}
{object V7 = Cnil;
VMR1(V7)}
T12:;
{object V8;
V8= get((V2),VV[2],Cnil);
{register object x= (V8),V10= VV[3];
while(!endp(V10))
if(eql(x,V10->c.c_car)){
V9= V10;
goto T17;
}else V10=V10->c.c_cdr;
V9= Cnil;}
T17:;
if((V9)==Cnil){
goto T14;}}
{object V11 = Cnil;
VMR1(V11)}
T14:;
{object V12;
object V13;
V12= get((V2),VV[4],Cnil);
V13= car((V12));
T21:;
if(!(endp((V12)))){
goto T22;}
{object V14 = Ct;
VMR1(V14)}
T22:;
if(!(((V13))==(VV[5]))){
goto T27;}
goto T26;
T27:;
{object V15;
V15= (V13);
{register object x= (V15),V17= VV[3];
while(!endp(V17))
if(eql(x,V17->c.c_car)){
V16= V17;
goto T32;
}else V17=V17->c.c_cdr;
V16= Cnil;}
T32:;
base[1]= ((V16)==Cnil?Ct:Cnil);}
if(base[1]==Cnil)goto T29;
goto T26;
T29:;
{object V18 = Cnil;
VMR1(V18)}
T26:;
V12= cdr((V12));
V13= car((V12));
goto T21;}}
}
/* local entry for function CMP-MACRO-FUNCTION */
static object LI2(V20)
object V20;
{ VMB2 VMS2 VMV2
TTL:;
{object V21;
V21= Cnil;
V21= (*(LnkLI93))((V20));
if(((V21))==Cnil){
goto T40;}
if(!((car((V21)))==(VV[6]))){
goto T44;}
{object V22 = Cnil;
VMR2(V22)}
T44:;
{object V23 = (V21);
VMR2(V23)}
T40:;
base[0]= (V20);
vs_top=(vs_base=base+0)+1;
Lmacro_function();
vs_top=sup;
{object V24 = vs_base[0];
VMR2(V24)}}
}
/* local entry for function C1FUNOB */
static object LI3(V26)
register object V26;
{ VMB3 VMS3 VMV3
bds_check;
TTL:;
{object V27;
V27= Cnil;
if(!(type_of((V26))==t_cons)){
goto T48;}
if(!(type_of(car((V26)))==t_symbol)){
goto T48;}
if(((*(LnkLI94))(car((V26))))==Cnil){
goto T48;}
V26= (*(LnkLI95))((V26));
T48:;
if(type_of((V26))==t_cons){
goto T58;}
base[0]= Cnil;
goto T57;
T58:;
if((car((V26)))==(VV[7])){
goto T62;}
base[1]= Cnil;
goto T61;
T62:;
if(((endp(cdr((V26)))?Ct:Cnil))==Cnil){
goto T64;}
base[1]= Cnil;
goto T61;
T64:;
if(endp(cddr((V26)))){
goto T66;}
base[1]= Cnil;
goto T61;
T66:;
if(type_of(cadr((V26)))==t_cons){
goto T70;}
base[2]= Cnil;
goto T69;
T70:;
if(((endp(cdadr((V26)))?Ct:Cnil))==Cnil){
goto T72;}
base[2]= Cnil;
goto T69;
T72:;
if((caadr((V26)))==(VV[8])){
goto T74;}
base[2]= Cnil;
goto T69;
T74:;
bds_bind(VV[9],Cnil);
bds_bind(VV[10],Cnil);
bds_bind(VV[11],Cnil);
bds_bind(VV[12],Cnil);
{object V28;
V28= (VFUN_NARGS=1,(*(LnkLI96))(cdadr((V26))));
base[2]= list(3,VV[13],cadr((V28)),(V28));
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;}
T69:;
if(base[2]==Cnil)goto T68;
base[1]= base[2];
goto T61;
T68:;
if(type_of(cadr((V26)))==t_symbol){
goto T77;}
base[1]= Cnil;
goto T61;
T77:;
V27= (*(LnkLI93))(cadr((V26)));
if(((V27))!=Cnil){
goto T81;}
base[3]= Cnil;
goto T80;
T81:;
if((car((V27)))==(VV[6])){
goto T84;}
base[3]= Cnil;
goto T80;
T84:;
base[3]= (V27);
T80:;
if(base[3]==Cnil)goto T79;
base[1]= base[3];
goto T61;
T79:;
V29= get(cadr((V26)),VV[16],Cnil);
V30= (VFUN_NARGS=2,(*(LnkLI97))(VV[15],((V29)==Cnil?Ct:Cnil)));
base[1]= list(3,VV[14],/* INLINE-ARGS */V30,cadr((V26)));
T61:;
if(base[1]==Cnil)goto T60;
base[0]= base[1];
goto T57;
T60:;
if((car((V26)))==(VV[17])){
goto T87;}
base[0]= Cnil;
goto T57;
T87:;
if(((endp(cdr((V26)))?Ct:Cnil))==Cnil){
goto T89;}
base[0]= Cnil;
goto T57;
T89:;
if(endp(cddr((V26)))){
goto T91;}
base[0]= Cnil;
goto T57;
T91:;
if(type_of(cadr((V26)))==t_cons){
goto T95;}
base[2]= Cnil;
goto T94;
T95:;
if((caadr((V26)))==(VV[8])){
goto T97;}
base[2]= Cnil;
goto T94;
T97:;
if(((endp(cdadr((V26)))?Ct:Cnil))==Cnil){
goto T99;}
base[2]= Cnil;
goto T94;
T99:;
{object V31;
V31= (VFUN_NARGS=1,(*(LnkLI96))(cdadr((V26))));
base[2]= list(3,VV[13],cadr((V31)),(V31));}
T94:;
if(base[2]==Cnil)goto T93;
base[0]= base[2];
goto T57;
T93:;
if(type_of(cadr((V26)))==t_symbol){
goto T102;}
base[0]= Cnil;
goto T57;
T102:;
V27= (*(LnkLI93))(cadr((V26)));
if(((V27))!=Cnil){
goto T106;}
base[3]= Cnil;
goto T105;
T106:;
if((car((V27)))==(VV[6])){
goto T109;}
base[3]= Cnil;
goto T105;
T109:;
base[3]= (V27);
T105:;
if(base[3]==Cnil)goto T104;
base[0]= base[3];
goto T57;
T104:;
V32= get(cadr((V26)),VV[16],Cnil);
V33= (VFUN_NARGS=2,(*(LnkLI97))(VV[15],((V32)==Cnil?Ct:Cnil)));
base[0]= list(3,VV[14],/* INLINE-ARGS */V33,cadr((V26)));
T57:;
if(base[0]==Cnil)goto T56;
{object V34 = base[0];
VMR3(V34)}
T56:;
{object V35;
object V36;
V35= (*(LnkLI98))((V26));
V36= (VFUN_NARGS=2,(*(LnkLI97))(VV[15],Ct));
(void)((*(LnkLI99))((V36),cadr((V35))));
{object V37 = list(3,VV[18],(V36),(V35));
VMR3(V37)}}}
}
/* local entry for function C2FUNCALL-AUX */
static object LI4(V39)
register object V39;
{ VMB4 VMS4 VMV4
TTL:;
{object V40;
object V41;
object V42;
object V43;
V40= cadr((V39));
V41= caddr((V39));
V42= cadddr((V39));
V43= car(cddddr((V39)));
{object V44 = (VFUN_NARGS=4,(*(LnkLI100))((V41),(V42),(V43),(V40)));
VMR4(V44)}}
}
/* local entry for function C2FUNCALL */
static object LI5(V46,V45,va_alist)
object V46,V45;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB5 VMS5 VMV5
bds_check;
{register object V47;
register object V48;
register object V49;
object V50;
if(narg <2) too_few_arguments();
V47= V46;
V48= V45;
narg = narg - 2;
if (narg <= 0) goto T119;
else {
va_start(ap);
V49= va_arg(ap,object);}
if (--narg <= 0) goto T120;
else {
V50= va_arg(ap,object);}
--narg; goto T121;
T119:;
V49= Cnil;
T120:;
V50= Cnil;
T121:;
{object V51= car((V47));
if((V51!= VV[14]))goto T124;
{object V52 = (*(LnkLI101))(caddr((V47)),(V48),(V49),Ct);
VMR5(V52)}
T124:;
if((V51!= VV[6]))goto T125;
{object V53 = (*(LnkLI102))(cddr((V47)),(V48));
VMR5(V53)}
T125:;
if((V51!= VV[13]))goto T126;
{object V54 = (*(LnkLI103))(caddr((V47)),(V48));
VMR5(V54)}
T126:;
if((V51!= VV[18]))goto T127;
{object V55;
base[0]= symbol_value(VV[19]);
V55= caddr((V47));
bds_bind(VV[19],base[0]);
if(!(type_of((V48))==t_cons||((V48))==Cnil)){
goto T130;}
if((symbol_value(VV[20]))==Cnil){
goto T130;}
if((symbol_value(VV[21]))==(VV[22])){
goto T131;}
if(!(type_of(symbol_value(VV[21]))==t_cons)){
goto T138;}
if((car(symbol_value(VV[21])))==(VV[23])){
goto T131;}
T138:;
if(((V50))==Cnil){
goto T130;}
V56= structure_ref((V50),VV[24],2);
if(!(equal(/* INLINE-ARGS */V56,VV[25]))){
goto T130;}
T131:;
(void)((*(LnkLI104))((V55),(V48),(V50)));
{object V57 = Cnil;
bds_unwind1;
VMR5(V57)}
T130:;
if(((V49))!=Cnil){
goto T146;}
if(type_of((V48))==t_cons||((V48))==Cnil){
goto T149;}
(void)((*(LnkLI105))());
T149:;
if(!((car((V55)))==(VV[26]))){
goto T153;}
V49= caddr((V55));
goto T146;
T153:;
if(!((car((V55)))==(VV[23]))){
goto T157;}
if(((*(LnkLI106))(caaddr((V55)),(V48)))!=Cnil){
goto T157;}
V49= make_cons(VV[23],caddr((V55)));
goto T146;
T157:;
V49= list(2,VV[27],(*(LnkLI107))());
bds_bind(VV[21],(V49));
V58= (*(LnkLI108))(caddr((V47)));
bds_unwind1;
T146:;
(void)((*(LnkLI109))((V48)));
if((symbol_value(VV[28]))==Cnil){
goto T167;}
princ_str("\n super_funcall(",VV[29]);
(void)((*(LnkLI110))((V49)));
princ_str(");",VV[29]);
goto T165;
T167:;
princ_str("\n super_funcall_no_event(",VV[29]);
(void)((*(LnkLI110))((V49)));
princ_str(");",VV[29]);
T165:;
{object V59 = (VFUN_NARGS=1,(*(LnkLI111))(VV[30]));
bds_unwind1;
VMR5(V59)}}
T127:;
{object V60 = (*(LnkLI105))();
VMR5(V60)}}}
}
/* local entry for function FCALLN-INLINE */
static object LI6(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB6 VMS6 VMV6
{register object V61;
narg= narg - 0;
va_start(ap);
V62 = list_vector(narg,ap);
V61= V62;
{object V63;
object V64;
V63= car((V61));
V64= Cnil;
(void)((*(LnkLI110))(VV[31]));
if(!(type_of((V63))==t_cons)){
goto T180;}
if((car((V63)))==(VV[23])){
goto T179;}
T180:;
V63= list(2,VV[32],(VFUN_NARGS=0,(*(LnkLI112))()));
princ_str("\n ",VV[29]);
(void)((*(LnkLI110))((V63)));
princ_str(" = ",VV[29]);
(void)((*(LnkLI110))(car((V61))));
princ_char(44,VV[29]);
T179:;
princ_str("\n (type_of(",VV[29]);
(void)((*(LnkLI110))((V63)));
princ_str(") == t_sfun ?",VV[29]);
princ_str("(*(object (*)())((",VV[29]);
(void)((*(LnkLI110))((V63)));
princ_str(")->sfn.sfn_self)):",VV[29]);
if(!(number_compare(symbol_value(VV[33]),small_fixnum(3))<0)){
goto T198;}
V64= Ct;
princ_str("\n (fcall.argd=",VV[29]);
V65 = make_fixnum(length(cdr((V61))));
(void)((*(LnkLI110))(V65));
princ_str(",type_of(",VV[29]);
(void)((*(LnkLI110))((V63)));
princ_str(")==t_vfun) ?",VV[29]);
princ_str("\n (*(object (*)())((",VV[29]);
(void)((*(LnkLI110))((V63)));
princ_str(")->sfn.sfn_self)):",VV[29]);
T198:;
princ_str("\n (fcall.fun=(",VV[29]);
(void)((*(LnkLI110))((V63)));
princ_str("),",VV[29]);
if(((V64))!=Cnil){
goto T216;}
princ_str("fcall.argd=",VV[29]);
V66 = make_fixnum(length(cdr((V61))));
(void)((*(LnkLI110))(V66));
princ_char(44,VV[29]);
T216:;
princ_str("fcalln))(",VV[29]);
if((cdr((V61)))==Cnil){
goto T224;}
(void)((*(LnkLI110))(cadr((V61))));
{object V67;
object V68;
V67= cddr((V61));
V68= car((V67));
T232:;
if(!(endp((V67)))){
goto T233;}
goto T224;
T233:;
(void)((*(LnkLI110))(VV[34]));
(void)((*(LnkLI110))((V68)));
V67= cdr((V67));
V68= car((V67));
goto T232;}
T224:;
(void)((*(LnkLI110))(VV[35]));
(void)((*(LnkLI110))(VV[35]));
{object V69 = Cnil;
VMR6(V69)}}}
}
/* local entry for function C2CALL-LAMBDA */
static object LI7(V72,V73)
object V72;register object V73;
{ VMB7 VMS7 VMV7
bds_check;
TTL:;
{object V74;
V74= caddr((V72));
if((cadr((V74)))!=Cnil){
goto T248;}
if((caddr((V74)))!=Cnil){
goto T248;}
if((cadddr((V74)))!=Cnil){
goto T248;}
if(type_of((V73))==t_cons||((V73))==Cnil){
goto T249;}
T248:;
if(!(type_of((V73))==t_cons||((V73))==Cnil)){
goto T257;}
{object V75;
V75= symbol_value(VV[19]);
bds_bind(VV[19],symbol_value(VV[19]));
(void)((*(LnkLI113))((V73)));
if(((*(LnkLI114))((V74)))==Cnil){
bds_unwind1;
goto T257;}
princ_str("\n vs_top=(vs_base=base+",VV[29]);
(void)((*(LnkLI110))((V75)));
princ_str(")+",VV[29]);
V76= number_minus((VV[19]->s.s_dbind),(V75));
(void)((*(LnkLI110))(/* INLINE-ARGS */V76));
princ_char(59,VV[29]);
setq(VV[36],Ct);
bds_unwind1;}
T257:;
{object V77 = (VFUN_NARGS=2,(*(LnkLI115))((V74),caddr(cddr((V72)))));
VMR7(V77)}
T249:;
{object V78 = (*(LnkLI116))(car((V74)),(V73),caddr(cddr((V72))));
VMR7(V78)}}
}
/* local entry for function CHECK-FNAME-ARGS */
static object LI8(V81,V82)
object V81;object V82;
{ VMB8 VMS8 VMV8
TTL:;
{object V83;
V83= get((V81),VV[37],Ct);
if((Ct)==((V83))){
goto T273;}
goto T272;
T273:;
if((get((V81),VV[38],Cnil))!=Cnil){
goto T275;}
goto T272;
T275:;
V83= VV[39];
T272:;
if(!(type_of((V83))==t_cons||((V83))==Cnil)){
goto T279;}
if(!(type_of((V82))==t_cons||((V82))==Cnil)){
goto T279;}
{register object x= VV[5],V84= (V83);
while(!endp(V84))
if(eql(x,V84->c.c_car)){
goto T279;
}else V84=V84->c.c_cdr;}
if(!((length((V83)))==(length((V82))))){
goto T285;}
{object V85 = Ct;
VMR8(V85)}
T285:;
V86 = make_fixnum(length((V82)));
V87 = make_fixnum(length((V83)));
{object V88 = (VFUN_NARGS=4,(*(LnkLI117))(VV[40],(V81),V86,V87));
VMR8(V88)}
T279:;
{object V89 = Cnil;
VMR8(V89)}}
}
/* function definition for SAVE-AVMA */
static L9()
{register object *base=vs_base;
register object *sup=base+VM9; VC9
vs_reserve(VM9);
{object V90;
check_arg(1);
V90=(base[0]);
vs_top=sup;
TTL:;
if((symbol_value(VV[41]))!=Cnil){
goto T288;}
{register object x= VV[42],V91= car((V90));
while(!endp(V91))
if(eql(x,V91->c.c_car)){
base[1]= V91;
goto T294;
}else V91=V91->c.c_cdr;
base[1]= Cnil;}
T294:;
if(base[1]==Cnil)goto T293;
setq(VV[41],base[1]);
goto T292;
T293:;
if(!((cadr((V90)))==(VV[42]))){
goto T295;}
setq(VV[41],Ct);
goto T292;
T295:;
base[2]= small_fixnum(4);
base[3]= caddr((V90));
vs_top=(vs_base=base+2)+2;
Llogbitp();
vs_top=sup;
setq(VV[41],vs_base[0]);
T292:;
if((symbol_value(VV[41]))==Cnil){
goto T288;}
princ_str("\n { save_avma;",VV[29]);
vs_base=vs_top;
(void) (*Lnk118)();
vs_top=sup;
if(!(type_of(symbol_value(VV[43]))==t_cons)){
goto T302;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T302:;
setq(VV[43],make_cons(symbol_value(VV[43]),VV[44]));
base[2]= symbol_value(VV[43]);
vs_top=(vs_base=base+2)+1;
return;
T288:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
}
/* local entry for function C2CALL-GLOBAL */
static object LI10(V96,V97,V98,V99)
register object V96;register object V97;object V98;object V99;
{ VMB10 VMS10 VMV10
bds_check;
TTL:;
{object V100;
V100= Cnil;
bds_bind(VV[19],symbol_value(VV[19]));
if(((*(LnkLI119))((V96)))==Cnil){
goto T307;}
if(!(type_of((V97))==t_cons||((V97))==Cnil)){
goto T310;}
if((symbol_value(VV[45]))==Cnil){
goto T310;}
if((symbol_value(VV[46]))==Cnil){
goto T310;}
if(!((car(symbol_value(VV[46])))==((V96)))){
goto T310;}
{register object x= symbol_value(VV[47]),V101= VV[48];
while(!endp(V101))
if(eql(x,V101->c.c_car)){
goto T320;
}else V101=V101->c.c_cdr;
goto T310;}
T320:;
if(((*(LnkLI120))())==Cnil){
goto T310;}
if(!((length((V97)))==(length(cdr(symbol_value(VV[46])))))){
goto T310;}
bds_bind(VV[21],VV[22]);
setq(VV[49],number_plus(symbol_value(VV[49]),small_fixnum(1)));
bds_bind(VV[47],make_cons(symbol_value(VV[49]),Cnil));
bds_bind(VV[50],make_cons((VV[47]->s.s_dbind),symbol_value(VV[50])));
{object V103;
object V104= cdr(symbol_value(VV[46]));
if(endp(V104)){
V102= Cnil;
goto T329;}
base[4]=V103=MMcons(Cnil,Cnil);
T330:;
{object V105;
V105= (V104->c.c_car);
(V103->c.c_car)= list(2,(V105),Cnil);}
if(endp(V104=MMcdr(V104))){
V102= base[4];
goto T329;}
V103=MMcdr(V103)=MMcons(Cnil,Cnil);
goto T330;}
T329:;
(void)((*(LnkLI121))(V102,(V97)));
if((cdr((VV[47]->s.s_dbind)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T324;}
princ_str("\nT",VV[29]);
(void)((*(LnkLI110))(car((VV[47]->s.s_dbind))));
princ_str(":;",VV[29]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T324:;
(void)((*(LnkLI122))(VV[51]));
princ_str("\n goto TTL;",VV[29]);
{object V106 = (VFUN_NARGS=2,(*(LnkLI123))(VV[52],(V96)));
bds_unwind1;
VMR10(V106)}
T310:;
if(!(type_of((V97))==t_cons||((V97))==Cnil)){
goto T342;}
if(((V98))!=Cnil){
goto T342;}
V100= (*(LnkLI124))((V96),(V97),(V99));
if(((V100))==Cnil){
goto T342;}
bds_bind(VV[43],small_fixnum(0));
bds_bind(VV[41],symbol_value(VV[41]));
base[3]= (V100);
vs_top=(vs_base=base+3)+1;
(void) (*Lnk125)();
vs_top=sup;
V107= (*(LnkLI126))((V100),(V97));
(void)((VFUN_NARGS=3,(*(LnkLI111))(/* INLINE-ARGS */V107,Cnil,(V96))));
{object V108 = (*(LnkLI127))();
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR10(V108)}
T342:;
base[1]= get((V96),VV[53],Cnil);
if(base[1]==Cnil)goto T356;
V100= base[1];
goto T355;
T356:;
V100= get((V96),VV[54],Cnil);
T355:;
if(((V100))==Cnil){
goto T353;}
(void)((*(LnkLI128))((V96),(V97)));
(void)((*(LnkLI109))((V97)));
princ_str("\n ",VV[29]);
(void)((*(LnkLI110))((V100)));
princ_str("();",VV[29]);
{object V109 = (VFUN_NARGS=3,(*(LnkLI111))(VV[30],Cnil,(V96)));
bds_unwind1;
VMR10(V109)}
T353:;
if(!(type_of((V97))==t_cons||((V97))==Cnil)){
goto T365;}
if(!((length((V97)))<(10))){
goto T365;}
if((symbol_value(VV[55]))!=Cnil){
goto T370;}
if((get((V96),VV[56],Cnil))==Cnil){
goto T365;}
T370:;
if(!((symbol_value(VV[21]))==(VV[57]))){
goto T376;}
base[1]= Ct;
base[2]= VV[58];
base[3]= (V96);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
T376:;
if((VV[57])==(symbol_value(VV[21]))){
goto T365;}
if(((V98))!=Cnil){
goto T365;}
bds_bind(VV[43],small_fixnum(0));
V110= (*(LnkLI129))((V96),(V97));
V111= (*(LnkLI126))(/* INLINE-ARGS */V110,(V97));
(void)((VFUN_NARGS=3,(*(LnkLI111))(/* INLINE-ARGS */V111,Cnil,(V96))));
{object V112 = (*(LnkLI127))();
bds_unwind1;
bds_unwind1;
VMR10(V112)}
T365:;
(void)((*(LnkLI109))((V97)));
princ_str("\n (void) (*Lnk",VV[29]);
V113= (*(LnkLI130))((V96),Cnil,(V97));
(void)((*(LnkLI110))(/* INLINE-ARGS */V113));
princ_str(")();",VV[29]);
{object V114 = (VFUN_NARGS=3,(*(LnkLI111))(VV[30],Cnil,(V96)));
bds_unwind1;
VMR10(V114)}
T307:;
{object V115 = (*(LnkLI131))((V96),(V97),(V98),Cnil);
bds_unwind1;
VMR10(V115)}}
}
/* local entry for function ADD-FAST-LINK */
static object LI11(V119,V120,V121)
register object V119;object V120;object V121;
{ VMB11 VMS11 VMV11
TTL:;
{object V122;
object V123;
object V124;
object V125;
V122= Cnil;
V123= Cnil;
V124= (*(LnkLI132))((V119));
V125= Cnil;
if(((V120))==Cnil){
goto T397;}
{object V126;
object V127;
object V128;
base[0]=MMcons(Cnil,Cnil);
V126= Cnil;
V127= Cnil;
if(type_of((V121))==t_cons||((V121))==Cnil){
goto T402;}
V128= Cnil;
goto T401;
T402:;
V128= make_fixnum(length((V121)));
T401:;
if((get((V119),VV[1],Cnil))==Cnil){
goto T407;}
V127= get((V119),VV[4],Cnil);
goto T405;
T407:;
V126= get((V119),VV[0],Cnil);
if(((V126))==Cnil){
goto T410;}
base[1]= (V126);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk133)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T415;}
if(!(equal((V128),(V126)))){
goto T418;}
goto T413;
T418:;
(void)((VFUN_NARGS=2,(*(LnkLI117))(VV[59],(V119))));
goto T413;
T415:;
(void)(sputprop((V119),VV[0],(V128)));
T413:;
base[1]= (V128);
base[2]= VV[60];
base[3]= Ct;
vs_top=(vs_base=base+1)+3;
Lmake_list();
vs_top=sup;
V127= vs_base[0];
goto T405;
T410:;
V127= Cnil;
T405:;
if((V128)==Cnil){
goto T423;}
V129 = make_fixnum(length((V127)));
if(!(eql((V128),V129))){
goto T424;}
goto T423;
T424:;
{register object x= VV[5],V130= (V127);
while(!endp(V130))
if(eql(x,V130->c.c_car)){
base[1]= V130;
goto T427;
}else V130=V130->c.c_cdr;
base[1]= Cnil;}
T427:;
if(base[1]==Cnil)goto T426;
goto T423;
T426:;
V131 = make_fixnum(length((V127)));
(void)((VFUN_NARGS=4,(*(LnkLI117))(VV[61],(V119),(V128),V131)));
T423:;
{register object x= (V119),V132= symbol_value(VV[62]);
while(!endp(V132))
if(type_of(V132->c.c_car)==t_cons &&eql(x,V132->c.c_car->c.c_car)){
V123= (V132->c.c_car);
goto T430;
}else V132=V132->c.c_cdr;
V123= Cnil;}
T430:;
if((cddr((V123)))!=Cnil){
goto T395;}
{object V133;
vs_base=vs_top;
(void) (*Lnk134)();
vs_top=sup;
V133= vs_base[0];
base[1]= (V133);
base[2]= VV[63];
base[3]= (V124);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
{object V134;
object V135;
object V136;
V134= Cnil;
V135= (V127);
V136= small_fixnum(0);
T443:;
if(((V135))!=Cnil){
goto T444;}
goto T438;
T444:;
if(!((car((V135)))==(VV[5]))){
goto T450;}
V125= Ct;
(void)(princ(VV[64],(V133)));
goto T448;
T450:;
if(((V134))==Cnil){
goto T456;}
(void)(princ(VV[65],(V133)));
goto T454;
T456:;
V134= Ct;
T454:;
base[1]= (V133);
base[2]= VV[66];
base[3]= (V136);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
T448:;
V135= cdr((V135));
V136= number_plus(small_fixnum(1),(V136));
goto T443;}
T438:;
(void)(princ(VV[67],(V133)));
base[1]= (V133);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk135)();
vs_top=sup;
(base[0]->c.c_car)= vs_base[0];}
if(((V125))==Cnil){
goto T468;}
V122=
make_cclosure_new(LC20,Cnil,base[0],Cdata);
T468:;
base[1]= get((V119),VV[2],Cnil);
if(base[1]==Cnil)goto T475;
V137= base[1];
goto T474;
T475:;
V137= Ct;
T474:;
if((V122)!=Cnil){
V138= (V122);
goto T477;}
V138= (base[0]->c.c_car);
T477:;
V139= list(6,(V119),(V127),V137,small_fixnum(3),V138,VV[69]);
setq(VV[68],make_cons(/* INLINE-ARGS */V139,symbol_value(VV[68])));
base[1]= Cnil;
base[2]= VV[70];
base[3]= (V124);
vs_top=(vs_base=base+1)+3;
Lformat();
vs_top=sup;
V140= vs_base[0];
base[1]= get((V119),VV[2],Cnil);
if(base[1]==Cnil)goto T484;
V141= base[1];
goto T483;
T484:;
V141= Ct;
T483:;
V123= list(4,(V119),V140,V141,(V127));
goto T395;}
T397:;
(void)((*(LnkLI128))((V119),(V121)));
V123= list(2,(V119),(V124));
T395:;
base[0]= (V123);
base[1]= symbol_value(VV[62]);
base[2]= VV[71];
base[3]= VV[72];
vs_top=(vs_base=base+0)+4;
Ladjoin();
vs_top=sup;
setq(VV[62],vs_base[0]);
{object V142 = (V124);
VMR11(V142)}}
}
/* local entry for function WT-FUNCTION-LINK */
static object LI12(V144)
register object V144;
{ VMB12 VMS12 VMV12
TTL:;
{object V145;
object V146;
object V147;
object V148;
V145= car((V144));
V146= cadr((V144));
V147= caddr((V144));
V148= cadddr((V144));
if(((V147))!=Cnil){
goto T500;}
princ_str("\nstatic LnkT",VV[29]);
(void)((*(LnkLI110))((V146)));
princ_str("(){ call_or_link(VV[",VV[29]);
(void)((*(LnkLI110))((V146)));
princ_str("],&Lnk",VV[29]);
(void)((*(LnkLI110))((V146)));
princ_str(");}",VV[29]);
goto T498;
T500:;
princ_str("\nstatic ",VV[29]);
V149= (*(LnkLI136))((V147));
(void)((*(LnkLI110))(/* INLINE-ARGS */V149));
princ_str(" LnkT",VV[29]);
(void)((*(LnkLI110))((V146)));
if(((V148))!=Cnil){
goto T514;}
if((Ct)==((V147))){
goto T515;}
T514:;
{object V150;
{register object x= VV[5],V151= (V148);
while(!endp(V151))
if(eql(x,V151->c.c_car)){
V150= V151;
goto T519;
}else V151=V151->c.c_cdr;
V150= Cnil;}
T519:;
princ_str("(va_alist)va_dcl{va_list ap;va_start(ap);return(",VV[29]);
V152= (*(LnkLI136))((V147));
(void)((*(LnkLI110))(/* INLINE-ARGS */V152));
princ_str(")call_",VV[29]);
if(((V150))==Cnil){
goto T527;}
V153= VV[73];
goto T525;
T527:;
V153= VV[74];
T525:;
(void)((*(LnkLI110))(V153));
princ_str("proc(VV[",VV[29]);
V154= (*(LnkLI137))((V145));
(void)((*(LnkLI110))(/* INLINE-ARGS */V154));
princ_str("],&Lnk",VV[29]);
(void)((*(LnkLI110))((V146)));
if((V150)!=Cnil){
goto T533;}
princ_char(44,VV[29]);
V155 = make_fixnum((*(LnkLI138))((V148),(V147)));
(void)((*(LnkLI110))(V155));
T533:;
princ_str(",ap);}",VV[29]);
goto T498;}
T515:;
princ_str("(){return call_proc0(VV[",VV[29]);
V156= (*(LnkLI137))((V145));
(void)((*(LnkLI110))(/* INLINE-ARGS */V156));
princ_str("],&Lnk",VV[29]);
(void)((*(LnkLI110))((V146)));
princ_str(");}",VV[29]);
T498:;
V145= symbol_name((V145));
if(((VFUN_NARGS=2,(*(LnkLI139))(VV[75],(V145))))==Cnil){
goto T544;}
V145= (VFUN_NARGS=2,(*(LnkLI140))(VV[75],(V145)));
T544:;
princ_str(" /* ",VV[29]);
(void)((*(LnkLI110))((V145)));
princ_str(" */",VV[29]);
{object V157 = Cnil;
VMR12(V157)}}
}
/* local entry for function WT-FUNCALL-C */
static object LI13(V159)
register object V159;
{ VMB13 VMS13 VMV13
bds_check;
TTL:;
{object V160;
object V161;
object V162;
V160= car((V159));
V161= cdr((V159));
V162= Cnil;
if(!(eql(car((V160)),VV[23]))){
goto T557;}
{object V163;
V163= make_cons(car((V160)),caddr((V160)));
if((symbol_value(VV[76]))==Cnil){
goto T560;}
princ_str("\n (type_of(",VV[29]);
base[0]= (V163);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk141)();
vs_top=sup;
princ_str(")==t_cfun)||FEinvalid_function(",VV[29]);
base[0]= (V163);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk141)();
vs_top=sup;
princ_str(");",VV[29]);
T560:;
(void)((*(LnkLI109))((V161)));
princ_str("\n (",VV[29]);
base[0]= (V163);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk141)();
vs_top=sup;
goto T555;}
T557:;
setq(VV[77],number_plus(symbol_value(VV[77]),small_fixnum(1)));
V162= list(2,VV[32],symbol_value(VV[77]));
bds_bind(VV[21],(V162));
princ_str("\n {object V",VV[29]);
(void)((*(LnkLI110))(cadr((V162))));
princ_char(59,VV[29]);
(void)((*(LnkLI108))(car((V159))));
(void)((*(LnkLI109))(cdr((V159))));
princ_str("(V",VV[29]);
(void)((*(LnkLI110))(cadr((V162))));
bds_unwind1;
T555:;
princ_str(")->cf.cf_self ();",VV[29]);
if((V162)==Cnil){
goto T551;}
princ_char(125,VV[29]);}
T551:;
{object V164 = (VFUN_NARGS=1,(*(LnkLI111))(VV[30]));
VMR13(V164)}
}
/* local entry for function INLINE-PROC */
static object LI14(V167,V168)
object V167;object V168;
{ VMB14 VMS14 VMV14
TTL:;
{object V169;
object V170;
object V171;
V169= make_fixnum(length((V168)));
V170= Cnil;
V171= (*(LnkLI137))((V167));
base[0]= Ct;
base[1]= VV[78];
base[2]= (V167);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
{object V172;
{object V173= (V169);
if(!eql(V173,VV[79]))goto T598;
base[0]= Cnil;
base[1]= VV[81];
base[2]= (V171);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
V174= vs_base[0];
V172= list(5,VV[80],Ct,small_fixnum(3),V174,VV[56]);
goto T597;
T598:;
if(!eql(V173,VV[82]))goto T603;
base[0]= Cnil;
base[1]= VV[84];
base[2]= (V171);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
V175= vs_base[0];
V172= list(5,VV[83],Ct,small_fixnum(3),V175,VV[56]);
goto T597;
T603:;
base[0]= (V169);
base[1]= VV[60];
base[2]= Ct;
vs_top=(vs_base=base+0)+3;
Lmake_list();
vs_top=sup;
V176= vs_base[0];
base[0]= Cnil;
base[1]= VV[85];
base[2]= (V171);
base[3]= (V169);
{object V178;
object V179;
V178= (V169);
V179= small_fixnum(0);
T621:;
if(!(number_compare((V179),(V178))>=0)){
goto T622;}
base[4]= nreverse((V170));
goto T617;
T622:;
V170= make_cons((V179),(V170));
V179= one_plus((V179));
goto T621;}
T617:;
vs_top=(vs_base=base+0)+5;
Lformat();
vs_top=sup;
V177= vs_base[0];
V172= list(5,V176,Ct,small_fixnum(3),V177,VV[56]);}
T597:;
V180= make_cons((V167),(V172));
setq(VV[68],make_cons(/* INLINE-ARGS */V180,symbol_value(VV[68])));
{object V181 = (V172);
VMR14(V181)}}}
}
/* local entry for function WT-SIMPLE-CALL */
static object LI15(V184,V183,V182,va_alist)
object V184,V183,V182;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB15 VMS15 VMV15
{object V185;
object V186;
object V187;
object V188;
if(narg <3) too_few_arguments();
V185= V184;
V186= V183;
V187= V182;
narg = narg - 3;
if (narg <= 0) goto T633;
else {
va_start(ap);
V188= va_arg(ap,object);}
--narg; goto T634;
T633:;
V188= Cnil;
T634:;
princ_str("simple_",VV[29]);
(void)((*(LnkLI110))((V185)));
princ_char(40,VV[29]);
if(((V188))==Cnil){
goto T640;}
princ_str("VV[",VV[29]);
(void)((*(LnkLI110))((V188)));
princ_str("],",VV[29]);
T640:;
princ_str("base+",VV[29]);
(void)((*(LnkLI110))((V186)));
princ_char(44,VV[29]);
(void)((*(LnkLI110))((V187)));
princ_char(41,VV[29]);
setq(VV[36],Ct);
{object V189 = Ct;
VMR15(V189)}}
}
/* local entry for function SAVE-FUNOB */
static object LI16(V191)
register object V191;
{ VMB16 VMS16 VMV16
bds_check;
TTL:;
{object V192= car((V191));
if((V192!= VV[13])
&& (V192!= VV[142])
&& (V192!= VV[6]))goto T653;
{object V193 = Cnil;
VMR16(V193)}
T653:;
if((V192!= VV[14]))goto T654;
if(((*(LnkLI119))(caddr((V191))))==Cnil){
goto T655;}
if((get(caddr((V191)),VV[53],Cnil))!=Cnil){
goto T656;}
if((get(caddr((V191)),VV[54],Cnil))!=Cnil){
goto T656;}
{register object x= caddr((V191)),V194= symbol_value(VV[86]);
while(!endp(V194))
if(type_of(V194->c.c_car)==t_cons &&eql(x,V194->c.c_car->c.c_car)){
goto T656;
}else V194=V194->c.c_cdr;}
T655:;
{object V195;
V195= list(2,VV[27],(*(LnkLI107))());
if((symbol_value(VV[76]))==Cnil){
goto T667;}
princ_str("\n ",VV[29]);
(void)((*(LnkLI110))((V195)));
princ_str("=symbol_function(VV[",VV[29]);
V196= (*(LnkLI132))(caddr((V191)));
(void)((*(LnkLI110))(/* INLINE-ARGS */V196));
princ_str("]);",VV[29]);
goto T665;
T667:;
princ_str("\n ",VV[29]);
(void)((*(LnkLI110))((V195)));
princ_str("=VV[",VV[29]);
V197= (*(LnkLI132))(caddr((V191)));
(void)((*(LnkLI110))(/* INLINE-ARGS */V197));
princ_str("]->s.s_gfdef;",VV[29]);
T665:;
{object V198 = (V195);
VMR16(V198)}}
T656:;
{object V199 = Cnil;
VMR16(V199)}
T654:;
if((V192!= VV[18]))goto T679;
{object V200;
V200= list(2,VV[27],(*(LnkLI107))());
bds_bind(VV[21],(V200));
(void)((*(LnkLI108))(caddr((V191))));
{object V201 = (V200);
bds_unwind1;
VMR16(V201)}}
T679:;
{object V202 = (*(LnkLI105))();
VMR16(V202)}}
}
/* local entry for function PUSH-ARGS */
static object LI17(V204)
object V204;
{ VMB17 VMS17 VMV17
bds_check;
TTL:;
if(((V204))!=Cnil){
goto T683;}
princ_str("\n vs_base=vs_top;",VV[29]);
{object V205 = Cnil;
VMR17(V205)}
T683:;
if(!(type_of((V204))==t_cons)){
goto T687;}
{object V206;
V206= symbol_value(VV[19]);
bds_bind(VV[19],symbol_value(VV[19]));
{object V207;
object V208;
V207= (V204);
V208= car((V207));
T694:;
if(!(endp((V207)))){
goto T695;}
goto T690;
T695:;
base[1]= list(2,VV[27],(*(LnkLI107))());
bds_bind(VV[21],base[1]);
V209= (*(LnkLI108))((V208));
bds_unwind1;
V207= cdr((V207));
V208= car((V207));
goto T694;}
T690:;
princ_str("\n vs_top=(vs_base=base+",VV[29]);
(void)((*(LnkLI110))((V206)));
princ_str(")+",VV[29]);
V210= number_minus((VV[19]->s.s_dbind),(V206));
(void)((*(LnkLI110))(/* INLINE-ARGS */V210));
princ_char(59,VV[29]);
setq(VV[36],Ct);
{object V211 = Ct;
bds_unwind1;
VMR17(V211)}}
T687:;
{object V212 = Cnil;
VMR17(V212)}
}
/* local entry for function PUSH-ARGS-LISPCALL */
static object LI18(V214)
object V214;
{ VMB18 VMS18 VMV18
bds_check;
TTL:;
{object V215;
object V216;
V215= (V214);
V216= car((V215));
T716:;
if(!(endp((V215)))){
goto T717;}
{object V217 = Cnil;
VMR18(V217)}
T717:;
base[0]= list(2,VV[27],(*(LnkLI107))());
bds_bind(VV[21],base[0]);
V218= (*(LnkLI108))((V216));
bds_unwind1;
V215= cdr((V215));
V216= car((V215));
goto T716;}
}
/* local entry for function C2CALL-UNKNOWN-GLOBAL */
static object LI19(V223,V224,V225,V226)
register object V223;register object V224;register object V225;register object V226;
{ VMB19 VMS19 VMV19
TTL:;
if((symbol_value(VV[28]))==Cnil){
goto T729;}
if(((V225))!=Cnil){
goto T731;}
V225= list(2,VV[27],(*(LnkLI107))());
princ_str("\n ",VV[29]);
(void)((*(LnkLI110))((V225)));
princ_str("=symbol_function(VV[",VV[29]);
V227= (*(LnkLI132))((V223));
(void)((*(LnkLI110))(/* INLINE-ARGS */V227));
princ_str("]);",VV[29]);
T731:;
(void)((*(LnkLI109))((V224)));
princ_str("\n funcall_with_catcher(VV[",VV[29]);
V228= (*(LnkLI132))((V223));
(void)((*(LnkLI110))(/* INLINE-ARGS */V228));
princ_str("],",VV[29]);
(void)((*(LnkLI110))((V225)));
princ_str(");",VV[29]);
{object V229 = (VFUN_NARGS=3,(*(LnkLI111))(VV[30],Cnil,(V223)));
VMR19(V229)}
T729:;
if(((V225))==Cnil){
goto T749;}
(void)((*(LnkLI109))((V224)));
if(((V226))==Cnil){
goto T754;}
if((symbol_value(VV[76]))==Cnil){
goto T757;}
princ_str("\n funcall_no_event(",VV[29]);
(void)((*(LnkLI110))((V225)));
princ_str(");",VV[29]);
goto T752;
T757:;
princ_str("\n CMPfuncall(",VV[29]);
(void)((*(LnkLI110))((V225)));
princ_str(");",VV[29]);
goto T752;
T754:;
princ_str("\n funcall(",VV[29]);
(void)((*(LnkLI110))((V225)));
princ_str(");",VV[29]);
T752:;
{object V230 = (VFUN_NARGS=1,(*(LnkLI111))(VV[30]));
VMR19(V230)}
T749:;
if(((*(LnkLI143))((V224)))==Cnil){
goto T769;}
{object V231;
V231= symbol_value(VV[19]);
V225= list(2,VV[27],(*(LnkLI107))());
if((symbol_value(VV[76]))==Cnil){
goto T776;}
princ_str("\n ",VV[29]);
(void)((*(LnkLI110))((V225)));
princ_str("=symbol_function(VV[",VV[29]);
V232= (*(LnkLI132))((V223));
(void)((*(LnkLI110))(/* INLINE-ARGS */V232));
princ_str("]);",VV[29]);
goto T774;
T776:;
princ_str("\n ",VV[29]);
(void)((*(LnkLI110))((V225)));
princ_str("=(VV[",VV[29]);
V233= (*(LnkLI132))((V223));
(void)((*(LnkLI110))(/* INLINE-ARGS */V233));
princ_str("]->s.s_gfdef);",VV[29]);
T774:;
(void)((*(LnkLI113))((V224)));
if((symbol_value(VV[21]))==(VV[87])){
goto T789;}
if(!((symbol_value(VV[21]))==(VV[57]))){
goto T790;}
T789:;
princ_str("\n lispcall",VV[29]);
if(((V226))==Cnil){
goto T796;}
princ_str("_no_event",VV[29]);
T796:;
princ_str("(base+",VV[29]);
(void)((*(LnkLI110))((V231)));
princ_char(44,VV[29]);
V234 = make_fixnum(length((V224)));
(void)((*(LnkLI110))(V234));
princ_str(");",VV[29]);
setq(VV[36],Ct);
{object V235 = (VFUN_NARGS=1,(*(LnkLI111))(VV[30]));
VMR19(V235)}
T790:;
if(((V226))==Cnil){
goto T810;}
V236= VV[89];
goto T808;
T810:;
V236= VV[90];
T808:;
V237 = make_fixnum(length((V224)));
V238= list(4,VV[88],V236,(V231),V237);
{object V239 = (VFUN_NARGS=1,(*(LnkLI111))(/* INLINE-ARGS */V238));
VMR19(V239)}}
T769:;
{object V240;
V240= symbol_value(VV[19]);
(void)((*(LnkLI113))((V224)));
if((symbol_value(VV[21]))==(VV[87])){
goto T814;}
if(!((symbol_value(VV[21]))==(VV[57]))){
goto T815;}
T814:;
princ_str("\n symlispcall",VV[29]);
if(((V226))==Cnil){
goto T821;}
princ_str("_no_event",VV[29]);
T821:;
princ_str("(VV[",VV[29]);
V241= (*(LnkLI132))((V223));
(void)((*(LnkLI110))(/* INLINE-ARGS */V241));
princ_str("],base+",VV[29]);
(void)((*(LnkLI110))((V240)));
princ_char(44,VV[29]);
V242 = make_fixnum(length((V224)));
(void)((*(LnkLI110))(V242));
princ_str(");",VV[29]);
setq(VV[36],Ct);
{object V243 = (VFUN_NARGS=3,(*(LnkLI111))(VV[30],Cnil,(V223)));
VMR19(V243)}
T815:;
if(((V226))==Cnil){
goto T837;}
V244= VV[91];
goto T835;
T837:;
V244= VV[92];
T835:;
V245 = make_fixnum(length((V224)));
V246= list(5,VV[88],V244,(V240),V245,(*(LnkLI132))((V223)));
{object V247 = (VFUN_NARGS=3,(*(LnkLI111))(/* INLINE-ARGS */V246,Cnil,(V223)));
VMR19(V247)}}
}
/* local function CLOSURE */
static LC20(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM20; VC20
vs_reserve(VM20);
{object V248;
vs_top[0]=Cnil;
{object *p=vs_top;
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
V248=(base[0]);
vs_top=sup;
princ_str("(VFUN_NARGS=",VV[29]);
V249 = make_fixnum(length((V248)));
(void)((*(LnkLI110))(V249));
princ_char(44,VV[29]);
base[1]= (base0[0]->c.c_car);
base[2]= (V248);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk144)();
vs_top=sup;
princ_char(41,VV[29]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
}
static LnkT144(){ call_or_link(VV[144],&Lnk144);} /* WT-INLINE-LOC */
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],&LnkLI143,1,ap);} /* ARGS-CAUSE-SIDE-EFFECT */
static LnkT141(){ call_or_link(VV[141],&Lnk141);} /* WT-LOC */
static object LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[140],&LnkLI140,ap);} /* REMOVE */
static object LnkTLI139(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[139],&LnkLI139,ap);} /* FIND */
static int LnkTLI138(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[138],&LnkLI138,258,ap);} /* PROCLAIMED-ARGD */
static object LnkTLI137(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[137],&LnkLI137,1,ap);} /* ADD-OBJECT */
static object LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],&LnkLI136,1,ap);} /* REP-TYPE */
static LnkT135(){ call_or_link(VV[135],&Lnk135);} /* GET-OUTPUT-STREAM-STRING */
static LnkT134(){ call_or_link(VV[134],&Lnk134);} /* MAKE-STRING-OUTPUT-STREAM */
static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* FIXNUMP */
static object LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],&LnkLI132,1,ap);} /* ADD-SYMBOL */
static object LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,4,ap);} /* C2CALL-UNKNOWN-GLOBAL */
static object LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],&LnkLI130,3,ap);} /* ADD-FAST-LINK */
static object LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],&LnkLI129,2,ap);} /* INLINE-PROC */
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],&LnkLI128,2,ap);} /* CHECK-FNAME-ARGS */
static object LnkTLI127(){return call_proc0(VV[127],&LnkLI127);} /* CLOSE-INLINE-BLOCKS */
static object LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],&LnkLI126,2,ap);} /* GET-INLINE-LOC */
static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* SAVE-AVMA */
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],&LnkLI124,3,ap);} /* GET-INLINE-INFO */
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],&LnkLI123,ap);} /* CMPNOTE */
static object LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],&LnkLI122,1,ap);} /* UNWIND-NO-EXIT */
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],&LnkLI121,2,ap);} /* C2PSETQ */
static object LnkTLI120(){return call_proc0(VV[120],&LnkLI120);} /* TAIL-RECURSION-POSSIBLE */
static object LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[119],&LnkLI119,1,ap);} /* INLINE-POSSIBLE */
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* INC-INLINE-BLOCKS */
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[117],&LnkLI117,ap);} /* CMPWARN */
static object LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],&LnkLI116,3,ap);} /* C2LET */
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[115],&LnkLI115,ap);} /* C2LAMBDA-EXPR */
static object LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],&LnkLI114,1,ap);} /* NEED-TO-SET-VS-POINTERS */
static object LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],&LnkLI113,1,ap);} /* PUSH-ARGS-LISPCALL */
static object LnkTLI112(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[112],&LnkLI112,ap);} /* CS-PUSH */
static object LnkTLI111(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[111],&LnkLI111,ap);} /* UNWIND-EXIT */
static object LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[110],&LnkLI110,1,ap);} /* WT1 */
static object LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* PUSH-ARGS */
static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* C2EXPR* */
static object LnkTLI107(){return call_proc0(VV[107],&LnkLI107);} /* VS-PUSH */
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* ARGS-INFO-CHANGED-VARS */
static object LnkTLI105(){return call_proc0(VV[105],&LnkLI105);} /* BABOON */
static object LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],&LnkLI104,3,ap);} /* C2FUNCALL-SFUN */
static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,2,ap);} /* C2CALL-LAMBDA */
static object LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[102],&LnkLI102,2,ap);} /* C2CALL-LOCAL */
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,4,ap);} /* C2CALL-GLOBAL */
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[100],&LnkLI100,ap);} /* C2FUNCALL */
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,2,ap);} /* ADD-INFO */
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],&LnkLI98,1,ap);} /* C1EXPR */
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[97],&LnkLI97,ap);} /* MAKE-INFO */
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[96],&LnkLI96,ap);} /* C1LAMBDA-EXPR */
static object LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],&LnkLI95,1,ap);} /* CMP-MACROEXPAND */
static object LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],&LnkLI94,1,ap);} /* CMP-MACRO-FUNCTION */
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],&LnkLI93,1,ap);} /* C1LOCAL-FUN */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.