This is cmpif.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmpif.h"
init_cmpif(){do_init(VV);}
/* local entry for function C1IF */
static object LI1(V2)
register object V2;
{ VMB1 VMS1 VMV1
TTL:;
{object V3;
object V4;
V3= Cnil;
V4= Cnil;
if(endp((V2))){
goto T4;}
if(!(endp(cdr((V2))))){
goto T3;}
T4:;
V5 = make_fixnum(length((V2)));
(void)((*(LnkLI45))(VV[0],small_fixnum(2),V5));
T3:;
if(endp(cddr((V2)))){
goto T8;}
if(endp(cdddr((V2)))){
goto T8;}
V6 = make_fixnum(length((V2)));
(void)((*(LnkLI46))(VV[0],small_fixnum(3),V6));
T8:;
V4= (*(LnkLI47))(car((V2)));
{object V7= (V4);
if((V7!= Ct))goto T15;
{object V8 = (*(LnkLI48))(cadr((V2)));
VMR1(V8)}
T15:;
if((V7!= Cnil))goto T16;
if(!(endp(cddr((V2))))){
goto T18;}
{object V9 = (*(LnkLI49))();
VMR1(V9)}
T18:;
{object V10 = (*(LnkLI48))(caddr((V2)));
VMR1(V10)}
T16:;
V3= (VFUN_NARGS=0,(*(LnkLI50))());
V11= (*(LnkLI51))((V4),(V3));
V12= (*(LnkLI52))(cadr((V2)),(V3));
if(!(endp(cddr((V2))))){
goto T24;}
V13= (*(LnkLI49))();
goto T22;
T24:;
V13= (*(LnkLI52))(caddr((V2)),(V3));
T22:;
{object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13);
VMR1(V14)}}}
}
/* local entry for function C1FMLA-CONSTANT */
static object LI2(V16)
register object V16;
{ VMB2 VMS2 VMV2
TTL:;
{object V17;
V17= Cnil;
if(!(type_of((V16))==t_cons)){
goto T28;}
{object V18= car((V16));
if((V18!= VV[1]))goto T30;
{object V19;
V19= cdr((V16));
T33:;
if(!(endp((V19)))){
goto T34;}
{object V20 = Ct;
VMR2(V20)}
T34:;
V17= (*(LnkLI47))(car((V19)));
{object V21= (V17);
if((V21!= Ct))goto T41;
goto T40;
T41:;
if((V21!= Cnil))goto T42;
{object V22 = Cnil;
VMR2(V22)}
T42:;
if(!(endp(cdr((V19))))){
goto T44;}
{object V23 = (V17);
VMR2(V23)}
T44:;
{object V24 = listA(3,VV[1],(V17),cdr((V19)));
VMR2(V24)}}
T40:;
V19= cdr((V19));
goto T33;}
T30:;
if((V18!= VV[2]))goto T49;
{object V25;
V25= cdr((V16));
T52:;
if(!(endp((V25)))){
goto T53;}
{object V26 = Cnil;
VMR2(V26)}
T53:;
V17= (*(LnkLI47))(car((V25)));
{object V27= (V17);
if((V27!= Ct))goto T60;
{object V28 = Ct;
VMR2(V28)}
T60:;
if((V27!= Cnil))goto T61;
goto T59;
T61:;
if(!(endp(cdr((V25))))){
goto T63;}
{object V29 = (V17);
VMR2(V29)}
T63:;
{object V30 = listA(3,VV[2],(V17),cdr((V25)));
VMR2(V30)}}
T59:;
V25= cdr((V25));
goto T52;}
T49:;
if((V18!= VV[3])
&& (V18!= VV[53]))goto T68;
if(!(endp(cdr((V16))))){
goto T69;}
(void)((*(LnkLI45))(VV[3],small_fixnum(1),small_fixnum(0)));
T69:;
if(endp(cddr((V16)))){
goto T72;}
V31 = make_fixnum(length(cdr((V16))));
(void)((*(LnkLI46))(VV[3],small_fixnum(1),V31));
T72:;
V17= (*(LnkLI47))(cadr((V16)));
{object V32= (V17);
if((V32!= Ct))goto T77;
{object V33 = Cnil;
VMR2(V33)}
T77:;
if((V32!= Cnil))goto T78;
{object V34 = Ct;
VMR2(V34)}
T78:;
{object V35 = list(2,VV[3],(V17));
VMR2(V35)}}
T68:;
{object V36 = (V16);
VMR2(V36)}}
T28:;
if(!(type_of((V16))==t_symbol)){
goto T80;}
base[0]= (V16);
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T83;}
base[0]= (V16);
vs_top=(vs_base=base+0)+1;
Lsymbol_value();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T87;}
{object V37 = Ct;
VMR2(V37)}
T87:;
{object V38 = Cnil;
VMR2(V38)}
T83:;
{object V39 = (V16);
VMR2(V39)}
T80:;
{object V40 = Ct;
VMR2(V40)}}
}
/* local entry for function C1FMLA */
static object LI3(V43,V44)
register object V43;register object V44;
{ VMB3 VMS3 VMV3
TTL:;
if(!(type_of((V43))==t_cons)){
goto T91;}
{object V45= car((V43));
if((V45!= VV[1]))goto T93;
V47 = make_fixnum(length(cdr((V43))));
{object V46= V47;
if(!eql(V46,VV[4]))goto T94;
{object V48 = (*(LnkLI54))();
VMR3(V48)}
T94:;
if(!eql(V46,VV[5]))goto T95;
V43= cadr((V43));
goto TTL;
T95:;
{object V50;
object V51= cdr((V43));
if(endp(V51)){
V49= Cnil;
goto T99;}
base[0]=V50=MMcons(Cnil,Cnil);
T100:;
{object V52;
V52= (V51->c.c_car);
(V50->c.c_car)= (*(LnkLI51))((V52),(V44));}
if(endp(V51=MMcdr(V51))){
V49= base[0];
goto T99;}
V50=MMcdr(V50)=MMcons(Cnil,Cnil);
goto T100;}
T99:;
{object V53 = make_cons(VV[6],V49);
VMR3(V53)}}
T93:;
if((V45!= VV[2]))goto T103;
V55 = make_fixnum(length(cdr((V43))));
{object V54= V55;
if(!eql(V54,VV[4]))goto T104;
{object V56 = (*(LnkLI49))();
VMR3(V56)}
T104:;
if(!eql(V54,VV[5]))goto T105;
V43= cadr((V43));
goto TTL;
T105:;
{object V58;
object V59= cdr((V43));
if(endp(V59)){
V57= Cnil;
goto T109;}
base[0]=V58=MMcons(Cnil,Cnil);
T110:;
{object V60;
V60= (V59->c.c_car);
(V58->c.c_car)= (*(LnkLI51))((V60),(V44));}
if(endp(V59=MMcdr(V59))){
V57= base[0];
goto T109;}
V58=MMcdr(V58)=MMcons(Cnil,Cnil);
goto T110;}
T109:;
{object V61 = make_cons(VV[7],V57);
VMR3(V61)}}
T103:;
if((V45!= VV[3])
&& (V45!= VV[53]))goto T113;
if(!(endp(cdr((V43))))){
goto T114;}
(void)((*(LnkLI45))(VV[3],small_fixnum(1),small_fixnum(0)));
T114:;
if(endp(cddr((V43)))){
goto T117;}
V62 = make_fixnum(length(cdr((V43))));
(void)((*(LnkLI46))(VV[3],small_fixnum(1),V62));
T117:;
{object V63 = list(2,VV[8],(*(LnkLI51))(cadr((V43)),(V44)));
VMR3(V63)}
T113:;
V64= list(3,VV[9],VV[10],(V43));
{object V65 = (*(LnkLI52))(/* INLINE-ARGS */V64,(V44));
VMR3(V65)}}
T91:;
{object V66 = (*(LnkLI52))((V43),(V44));
VMR3(V66)}
}
/* function definition for C2IF */
static L4()
{register object *base=vs_base;
register object *sup=base+VM4; VC4
vs_reserve(VM4);
bds_check;
{object V67;
object V68;
object V69;
check_arg(3);
V67=(base[0]);
V68=(base[1]);
V69=(base[2]);
vs_top=sup;
TTL:;
{object V70;
object V71;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V70= make_cons(symbol_value(VV[11]),Cnil);
V71= Cnil;
if(!((car((V69)))==(VV[12]))){
goto T124;}
if((caddr((V69)))!=Cnil){
goto T124;}
if(!((symbol_value(VV[13]))==(VV[14]))){
goto T124;}
if((symbol_value(VV[15]))==(VV[16])){
goto T124;}
{object V72;
V72= symbol_value(VV[15]);
base[3]= make_cons((V70),symbol_value(VV[17]));
bds_bind(VV[17],base[3]);
bds_bind(VV[15],(V70));
V73= (*(LnkLI55))((V67),(V70),(V72));
bds_unwind1;
bds_unwind1;}
if((cdr((V70)))==Cnil){
goto T135;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V70))));
princ_str(":;",VV[18]);
T135:;
base[3]= (V68);
vs_top=(vs_base=base+3)+1;
(void) (*Lnk57)();
return;
T124:;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V71= make_cons(symbol_value(VV[11]),Cnil);
base[3]= listA(3,(V71),(V70),symbol_value(VV[17]));
bds_bind(VV[17],base[3]);
bds_bind(VV[15],(V70));
V74= (*(LnkLI55))((V67),(V70),(V71));
bds_unwind1;
bds_unwind1;
if((cdr((V70)))==Cnil){
goto T147;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V70))));
princ_str(":;",VV[18]);
T147:;
base[3]= make_cons(VV[19],symbol_value(VV[17]));
bds_bind(VV[17],base[3]);
base[4]= (V68);
vs_top=(vs_base=base+4)+1;
(void) (*Lnk57)();
vs_top=sup;
bds_unwind1;
if((cdr((V71)))==Cnil){
goto T156;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V71))));
princ_str(":;",VV[18]);
T156:;
base[3]= (V69);
vs_top=(vs_base=base+3)+1;
(void) (*Lnk57)();
return;}
}
}
/* local entry for function CJT */
static object LI5(V78,V79,V80)
object V78;object V79;object V80;
{ VMB5 VMS5 VMV5
bds_check;
TTL:;
{object V81= car((V78));
if((V81!= VV[6]))goto T163;
{object V82;
V82= cdr((V78));
T166:;
if(!(endp(cdr((V82))))){
goto T167;}
V78= car((V82));
goto TTL;
T167:;
{object V83;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V83= make_cons(symbol_value(VV[11]),Cnil);
bds_bind(VV[17],make_cons((V83),symbol_value(VV[17])));
(void)((*(LnkLI55))(car((V82)),(V83),(V80)));
if((cdr((V83)))==Cnil){
bds_unwind1;
goto T175;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V83))));
princ_str(":;",VV[18]);
bds_unwind1;}
T175:;
V82= cdr((V82));
goto T166;}
T163:;
if((V81!= VV[7]))goto T188;
{object V84;
V84= cdr((V78));
T191:;
if(!(endp(cdr((V84))))){
goto T192;}
V78= car((V84));
goto TTL;
T192:;
{object V85;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V85= make_cons(symbol_value(VV[11]),Cnil);
bds_bind(VV[17],make_cons((V85),symbol_value(VV[17])));
(void)((*(LnkLI58))(car((V84)),(V79),(V85)));
if((cdr((V85)))==Cnil){
bds_unwind1;
goto T200;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V85))));
princ_str(":;",VV[18]);
bds_unwind1;}
T200:;
V84= cdr((V84));
goto T191;}
T188:;
if((V81!= VV[8]))goto T213;
{object V86 = (*(LnkLI55))(cadr((V78)),(V80),(V79));
VMR5(V86)}
T213:;
if((V81!= VV[12]))goto T214;
{object V87= caddr((V78));
if((V87!= Ct))goto T215;
(void)((*(LnkLI59))((V79)));
princ_str("\n ",VV[18]);
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));
((V79))->c.c_cdr = Ct;
princ_str("goto T",VV[18]);
(void)((*(LnkLI56))(car((V79))));
princ_char(59,VV[18]);
{object V88 = Cnil;
VMR5(V88)}
T215:;
if((V87!= Cnil))goto T222;
{object V89 = Cnil;
VMR5(V89)}
T222:;
base[0]= list(2,VV[20],(V79));
bds_bind(VV[13],base[0]);
{object V90 = (*(LnkLI60))((V78));
bds_unwind1;
VMR5(V90)}}
T214:;
base[0]= list(2,VV[20],(V79));
bds_bind(VV[13],base[0]);
{object V91 = (*(LnkLI60))((V78));
bds_unwind1;
VMR5(V91)}}
}
/* local entry for function CJF */
static object LI6(V95,V96,V97)
object V95;object V96;object V97;
{ VMB6 VMS6 VMV6
bds_check;
TTL:;
{object V98= car((V95));
if((V98!= VV[6]))goto T225;
{object V99;
V99= cdr((V95));
T228:;
if(!(endp(cdr((V99))))){
goto T229;}
V95= car((V99));
goto TTL;
T229:;
{object V100;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V100= make_cons(symbol_value(VV[11]),Cnil);
bds_bind(VV[17],make_cons((V100),symbol_value(VV[17])));
(void)((*(LnkLI55))(car((V99)),(V100),(V97)));
if((cdr((V100)))==Cnil){
bds_unwind1;
goto T237;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V100))));
princ_str(":;",VV[18]);
bds_unwind1;}
T237:;
V99= cdr((V99));
goto T228;}
T225:;
if((V98!= VV[7]))goto T250;
{object V101;
V101= cdr((V95));
T253:;
if(!(endp(cdr((V101))))){
goto T254;}
V95= car((V101));
goto TTL;
T254:;
{object V102;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V102= make_cons(symbol_value(VV[11]),Cnil);
bds_bind(VV[17],make_cons((V102),symbol_value(VV[17])));
(void)((*(LnkLI58))(car((V101)),(V96),(V102)));
if((cdr((V102)))==Cnil){
bds_unwind1;
goto T262;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V102))));
princ_str(":;",VV[18]);
bds_unwind1;}
T262:;
V101= cdr((V101));
goto T253;}
T250:;
if((V98!= VV[8]))goto T275;
{object V103 = (*(LnkLI58))(cadr((V95)),(V97),(V96));
VMR6(V103)}
T275:;
if((V98!= VV[12]))goto T276;
{object V104= caddr((V95));
if((V104!= Ct))goto T277;
{object V105 = Cnil;
VMR6(V105)}
T277:;
if((V104!= Cnil))goto T278;
(void)((*(LnkLI59))((V97)));
princ_str("\n ",VV[18]);
if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97));
((V97))->c.c_cdr = Ct;
princ_str("goto T",VV[18]);
(void)((*(LnkLI56))(car((V97))));
princ_char(59,VV[18]);
{object V106 = Cnil;
VMR6(V106)}
T278:;
base[0]= list(2,VV[21],(V97));
bds_bind(VV[13],base[0]);
{object V107 = (*(LnkLI60))((V95));
bds_unwind1;
VMR6(V107)}}
T276:;
base[0]= list(2,VV[21],(V97));
bds_bind(VV[13],base[0]);
{object V108 = (*(LnkLI60))((V95));
bds_unwind1;
VMR6(V108)}}
}
/* local entry for function C1AND */
static object LI7(V110)
register object V110;
{ VMB7 VMS7 VMV7
TTL:;
if(!(endp((V110)))){
goto T288;}
{object V111 = (*(LnkLI54))();
VMR7(V111)}
T288:;
if(!(endp(cdr((V110))))){
goto T291;}
{object V112 = (*(LnkLI48))(car((V110)));
VMR7(V112)}
T291:;
{object V113;
V113= (VFUN_NARGS=0,(*(LnkLI50))());
{object V114 = list(3,VV[1],(V113),(*(LnkLI61))((V110),(V113)));
VMR7(V114)}}
}
/* function definition for C2AND */
static L8()
{register object *base=vs_base;
register object *sup=base+VM8; VC8
vs_reserve(VM8);
bds_check;
{object V115;
check_arg(1);
V115=(base[0]);
vs_top=sup;
TTL:;
{object V116;
V116= (V115);
T296:;
if(!(endp(cdr((V116))))){
goto T297;}
base[1]= car((V116));
vs_top=(vs_base=base+1)+1;
(void) (*Lnk57)();
return;
T297:;
if(!((caar((V116)))==(VV[12]))){
goto T304;}
{object V117= caddar((V116));
if((V117!= Ct))goto T306;
goto T302;
T306:;
if((V117!= Cnil))goto T307;
(void)((VFUN_NARGS=2,(*(LnkLI62))(Cnil,VV[19])));
goto T302;
T307:;
princ_str("\n if(",VV[18]);
(void)((*(LnkLI56))(caddar((V116))));
princ_str("==Cnil){",VV[18]);
(void)((VFUN_NARGS=2,(*(LnkLI62))(Cnil,VV[19])));
princ_char(125,VV[18]);
goto T302;}
T304:;
if(!((caar((V116)))==(VV[22]))){
goto T315;}
princ_str("\n if(",VV[18]);
(void)((*(LnkLI63))(car(caddar((V116))),cadr(caddar((V116)))));
princ_str("==Cnil){",VV[18]);
(void)((VFUN_NARGS=2,(*(LnkLI62))(Cnil,VV[19])));
princ_char(125,VV[18]);
goto T302;
T315:;
{object V118;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V118= make_cons(symbol_value(VV[11]),Cnil);
bds_bind(VV[17],make_cons((V118),symbol_value(VV[17])));
base[2]= list(2,VV[20],(V118));
bds_bind(VV[13],base[2]);
V119= (*(LnkLI60))(car((V116)));
bds_unwind1;
(void)((VFUN_NARGS=2,(*(LnkLI62))(Cnil,VV[19])));
if((cdr((V118)))==Cnil){
bds_unwind1;
goto T302;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V118))));
princ_str(":;",VV[18]);
bds_unwind1;}
T302:;
V116= cdr((V116));
goto T296;}
}
}
/* local entry for function C1OR */
static object LI9(V121)
register object V121;
{ VMB9 VMS9 VMV9
TTL:;
if(!(endp((V121)))){
goto T339;}
{object V122 = (*(LnkLI49))();
VMR9(V122)}
T339:;
if(!(endp(cdr((V121))))){
goto T342;}
{object V123 = (*(LnkLI48))(car((V121)));
VMR9(V123)}
T342:;
{object V124;
V124= (VFUN_NARGS=0,(*(LnkLI50))());
{object V125 = list(3,VV[2],(V124),(*(LnkLI61))((V121),(V124)));
VMR9(V125)}}
}
/* function definition for C2OR */
static L10()
{register object *base=vs_base;
register object *sup=base+VM10; VC10
vs_reserve(VM10);
bds_check;
{object V126;
check_arg(1);
V126=(base[0]);
vs_top=sup;
TTL:;
{object V127;
bds_bind(VV[23],symbol_value(VV[23]));
V127= Cnil;
{object V128;
V128= (V126);
T348:;
if(!(endp(cdr((V128))))){
goto T349;}
base[2]= car((V128));
vs_top=(vs_base=base+2)+1;
(void) (*Lnk57)();
bds_unwind1;
return;
T349:;
if(!((caar((V128)))==(VV[12]))){
goto T356;}
{object V129= caddar((V128));
if((V129!= Ct))goto T358;
(void)((VFUN_NARGS=2,(*(LnkLI62))(Ct,VV[19])));
goto T354;
T358:;
if((V129!= Cnil))goto T359;
goto T354;
T359:;
princ_str("\n if(",VV[18]);
(void)((*(LnkLI56))(caddar((V128))));
princ_str("!=Cnil){",VV[18]);
(void)((VFUN_NARGS=2,(*(LnkLI62))(caddar((V128)),VV[19])));
princ_char(125,VV[18]);
goto T354;}
T356:;
if(!((caar((V128)))==(VV[22]))){
goto T367;}
princ_str("\n if(",VV[18]);
(void)((*(LnkLI63))(car(caddar((V128))),cadr(caddar((V128)))));
princ_str("!=Cnil){",VV[18]);
V130= make_cons(VV[22],caddar((V128)));
(void)((VFUN_NARGS=2,(*(LnkLI62))(/* INLINE-ARGS */V130,VV[19])));
princ_char(125,VV[18]);
goto T354;
T367:;
if(!((caar((V128)))==(VV[24]))){
goto T377;}
if((get(caddar((V128)),VV[25],Cnil))==Cnil){
goto T377;}
{object V131;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V131= make_cons(symbol_value(VV[11]),Cnil);
bds_bind(VV[17],make_cons((V131),symbol_value(VV[17])));
base[3]= list(2,VV[21],(V131));
bds_bind(VV[13],base[3]);
V132= (*(LnkLI60))(car((V128)));
bds_unwind1;
(void)((VFUN_NARGS=2,(*(LnkLI62))(Ct,VV[19])));
if((cdr((V131)))==Cnil){
bds_unwind1;
goto T354;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V131))));
princ_str(":;",VV[18]);
bds_unwind1;
goto T354;}
T377:;
{object V133;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V133= make_cons(symbol_value(VV[11]),Cnil);
bds_bind(VV[26],small_fixnum(0));
bds_bind(VV[17],make_cons((V133),symbol_value(VV[17])));
V127= (*(LnkLI64))();
bds_bind(VV[13],(V127));
V134= (*(LnkLI60))(car((V128)));
bds_unwind1;
princ_str("\n if(",VV[18]);
(void)((*(LnkLI56))((V127)));
princ_str("==Cnil)",VV[18]);
if(type_of((V133))!=t_cons)FEwrong_type_argument(Scons,(V133));
((V133))->c.c_cdr = Ct;
princ_str("goto T",VV[18]);
(void)((*(LnkLI56))(car((V133))));
princ_char(59,VV[18]);
(void)((VFUN_NARGS=2,(*(LnkLI62))((V127),VV[19])));
if((cdr((V133)))==Cnil){
goto T408;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V133))));
princ_str(":;",VV[18]);
T408:;
V135= (*(LnkLI65))();
bds_unwind1;
bds_unwind1;}
T354:;
V128= cdr((V128));
goto T348;}}
}
}
/* local entry for function SET-JUMP-TRUE */
static object LI11(V138,V139)
register object V138;object V139;
{ VMB11 VMS11 VMV11
TTL:;
if(((V138))==Cnil){
goto T418;}
{object V140;
V140= (((V138))==(Ct)?Ct:Cnil);
if(((V140))==Cnil){
goto T423;}
goto T420;
T423:;
if(!(type_of((V138))==t_cons)){
goto T426;}
if(!((car((V138)))==(VV[27]))){
goto T426;}
princ_str("\n if(",VV[18]);
base[0]= caddr((V138));
base[1]= cadddr((V138));
vs_top=(vs_base=base+0)+2;
(void) (*Lnk66)();
vs_top=sup;
princ_char(41,VV[18]);
goto T420;
T426:;
princ_str("\n if((",VV[18]);
(void)((*(LnkLI56))((V138)));
princ_str(")!=Cnil)",VV[18]);}
T420:;
if(((V138))==(Ct)){
goto T439;}
princ_char(123,VV[18]);
T439:;
(void)((*(LnkLI59))((V139)));
princ_str("\n ",VV[18]);
if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139));
((V139))->c.c_cdr = Ct;
princ_str("goto T",VV[18]);
(void)((*(LnkLI56))(car((V139))));
princ_char(59,VV[18]);
if(((V138))==(Ct)){
goto T451;}
princ_char(125,VV[18]);
{object V141 = Cnil;
VMR11(V141)}
T451:;
{object V142 = Cnil;
VMR11(V142)}
T418:;
{object V143 = Cnil;
VMR11(V143)}
}
/* local entry for function SET-JUMP-FALSE */
static object LI12(V146,V147)
register object V146;object V147;
{ VMB12 VMS12 VMV12
TTL:;
if(((V146))==(Ct)){
goto T455;}
{object V148;
V148= (((V146))==Cnil?Ct:Cnil);
if(((V148))==Cnil){
goto T460;}
goto T457;
T460:;
if(!(type_of((V146))==t_cons)){
goto T463;}
if(!((car((V146)))==(VV[27]))){
goto T463;}
princ_str("\n if(!(",VV[18]);
base[0]= caddr((V146));
base[1]= cadddr((V146));
vs_top=(vs_base=base+0)+2;
(void) (*Lnk66)();
vs_top=sup;
princ_str("))",VV[18]);
goto T457;
T463:;
princ_str("\n if((",VV[18]);
(void)((*(LnkLI56))((V146)));
princ_str(")==Cnil)",VV[18]);}
T457:;
if(((V146))==Cnil){
goto T476;}
princ_char(123,VV[18]);
T476:;
(void)((*(LnkLI59))((V147)));
princ_str("\n ",VV[18]);
if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147));
((V147))->c.c_cdr = Ct;
princ_str("goto T",VV[18]);
(void)((*(LnkLI56))(car((V147))));
princ_char(59,VV[18]);
if(((V146))==Cnil){
goto T488;}
princ_char(125,VV[18]);
{object V149 = Cnil;
VMR12(V149)}
T488:;
{object V150 = Cnil;
VMR12(V150)}
T455:;
{object V151 = Cnil;
VMR12(V151)}
}
/* local entry for function C1ECASE */
static object LI13(V153)
object V153;
{ VMB13 VMS13 VMV13
TTL:;
{object V154 = (VFUN_NARGS=2,(*(LnkLI67))((V153),Ct));
VMR13(V154)}
}
/* local entry for function CONVERT-CASE-TO-SWITCH */
static object LI14(V157,V158)
object V157;object V158;
{ VMB14 VMS14 VMV14
TTL:;
{object V159;
object V160;
object V161;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V159= vs_base[0];
V160= Cnil;
V161= Cnil;
{object V162;
object V163;
V162= cdr((V157));
V163= car((V162));
T498:;
if(!(endp((V162)))){
goto T499;}
goto T494;
T499:;
if(!(type_of(car((V163)))==t_fixnum)){
goto T505;}
V160= make_cons(car((V163)),(V160));
goto T503;
T505:;
if(!(type_of(car((V163)))==t_cons)){
goto T509;}
{object V164;
object V165;
V164= car((V163));
V165= car((V164));
T514:;
if(!(endp((V164)))){
goto T515;}
goto T503;
T515:;
V160= make_cons((V165),(V160));
V164= cdr((V164));
V165= car((V164));
goto T514;}
T509:;
{register object x= car((V163)),V166= VV[28];
while(!endp(V166))
if(eql(x,V166->c.c_car)){
goto T527;
}else V166=V166->c.c_cdr;
goto T503;}
T527:;
if((V158)==Cnil){
goto T528;}
base[0]= VV[29];
vs_top=(vs_base=base+0)+1;
(void) (*Lnk68)();
vs_top=sup;
T528:;
V160= make_cons(Ct,(V160));
T503:;
V167= list(3,VV[30],(V159),make_cons(VV[31],cdr((V163))));
V160= make_cons(/* INLINE-ARGS */V167,(V160));
V162= cdr((V162));
V163= car((V162));
goto T498;}
T494:;
if(((V158))==Cnil){
goto T538;}
V160= make_cons(Ct,(V160));
{object V168;
object V169;
V168= cdr((V157));
V169= car((V168));
T547:;
if(!(endp((V168)))){
goto T548;}
goto T543;
T548:;
if(!(type_of(car((V169)))!=t_cons)){
goto T554;}
V161= make_cons(car((V169)),(V161));
goto T552;
T554:;
V161= append(car((V169)),(V161));
T552:;
V168= cdr((V168));
V169= car((V168));
goto T547;}
T543:;
V170= car((V157));
V171= list(4,VV[32],VV[33],/* INLINE-ARGS */V170,list(2,VV[34],(V161)));
V160= make_cons(/* INLINE-ARGS */V171,(V160));
T538:;
V172= car((V157));
{object V173 = list(3,VV[35],(V159),listA(3,VV[36],/* INLINE-ARGS */V172,nreverse((V160))));
VMR14(V173)}}
}
/* local entry for function C1CASE */
static object LI15(V174,va_alist)
object V174;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB15 VMS15 VMV15
{object V175;
register object V176;
if(narg <1) too_few_arguments();
V175= V174;
narg = narg - 1;
if (narg <= 0) goto T564;
else {
va_start(ap);
V176= va_arg(ap,object);}
--narg; goto T565;
T564:;
V176= Cnil;
T565:;
if(!(endp((V175)))){
goto T567;}
(void)((*(LnkLI45))(VV[37],small_fixnum(1),small_fixnum(0)));
T567:;
{object V177;
object V178;
object V179;
V177= (VFUN_NARGS=0,(*(LnkLI50))());
V178= (*(LnkLI52))(car((V175)),(V177));
V179= Cnil;
base[0]= structure_ref(cadr((V178)),VV[38],2);
base[1]= VV[39];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk69)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T573;}
V180= (*(LnkLI70))((V175),(V176));
{object V181 = (*(LnkLI48))(/* INLINE-ARGS */V180);
VMR15(V181)}
T573:;
{object V182;
object V183;
V182= cdr((V175));
V183= car((V182));
T582:;
if(!(endp((V182)))){
goto T583;}
goto T578;
T583:;
if(!(endp((V183)))){
goto T587;}
(void)((VFUN_NARGS=2,(*(LnkLI71))(VV[40],(V183))));
T587:;
{object V184= car((V183));
if((V184!= Cnil))goto T591;
goto T590;
T591:;
if((V184!= Ct)
&& (V184!= VV[72]))goto T592;
if(((V176))==Cnil){
goto T593;}
if(!(((V176))==(Ct))){
goto T598;}
V185= VV[41];
goto T596;
T598:;
V185= VV[42];
T596:;
(void)((VFUN_NARGS=1,(*(LnkLI71))(V185)));
T593:;
V176= (*(LnkLI73))(cdr((V183)));
(void)((*(LnkLI74))((V177),cadr((V176))));
goto T590;
T592:;
{object V186;
object V187;
if(!(type_of(car((V183)))==t_cons)){
goto T604;}
{object V188;
object V189= car((V183));
if(endp(V189)){
V186= Cnil;
goto T602;}
base[0]=V188=MMcons(Cnil,Cnil);
T606:;
{object V190;
V190= (V189->c.c_car);
if(!(type_of((V190))==t_symbol)){
goto T610;}
(V188->c.c_car)= (V190);
goto T607;
T610:;
(V188->c.c_car)= (*(LnkLI75))((V190));}
T607:;
if(endp(V189=MMcdr(V189))){
V186= base[0];
goto T602;}
V188=MMcdr(V188)=MMcons(Cnil,Cnil);
goto T606;}
T604:;
if(!(type_of(car((V183)))==t_symbol)){
goto T613;}
V186= make_cons(car((V183)),Cnil);
goto T602;
T613:;
V191= (*(LnkLI75))(car((V183)));
V186= make_cons(/* INLINE-ARGS */V191,Cnil);
T602:;
V187= (*(LnkLI73))(cdr((V183)));
(void)((*(LnkLI74))((V177),cadr((V187))));
V192= make_cons((V186),(V187));
V179= make_cons(/* INLINE-ARGS */V192,(V179));}}
T590:;
V182= cdr((V182));
V183= car((V182));
goto T582;}
T578:;
V193= reverse((V179));
if((V176)!=Cnil){
V194= (V176);
goto T623;}
V194= (*(LnkLI49))();
T623:;
{object V195 = list(5,VV[37],(V177),(V178),/* INLINE-ARGS */V193,V194);
VMR15(V195)}}}
}
/* local entry for function C2CASE */
static object LI16(V199,V200,V201)
object V199;object V200;object V201;
{ VMB16 VMS16 VMV16
bds_check;
TTL:;
{object V202;
setq(VV[43],number_plus(symbol_value(VV[43]),small_fixnum(1)));
V202= symbol_value(VV[43]);
bds_bind(VV[23],symbol_value(VV[23]));
bds_bind(VV[26],small_fixnum(0));
V203= make_cons((V199),Cnil);
V204= (VFUN_NARGS=2,(*(LnkLI76))(/* INLINE-ARGS */V203,VV[44]));
V199= car(/* INLINE-ARGS */V204);
princ_str("\n {object V",VV[18]);
(void)((*(LnkLI56))((V202)));
princ_str("= ",VV[18]);
(void)((*(LnkLI56))((V199)));
princ_char(59,VV[18]);
{object V205;
object V206;
V205= (V200);
V206= car((V205));
T638:;
if(!(endp((V205)))){
goto T639;}
goto T634;
T639:;
{object V207;
object V208;
object V209;
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V207= make_cons(symbol_value(VV[11]),Cnil);
V208= car((V206));
V209= Cnil;
T650:;
if(!((length((V208)))<=(5))){
goto T651;}
goto T648;
T651:;
if(((V209))!=Cnil){
goto T655;}
setq(VV[11],number_plus(symbol_value(VV[11]),small_fixnum(1)));
V209= make_cons(symbol_value(VV[11]),Cnil);
T655:;
princ_str("\n if(",VV[18]);
{object V210;
object V211;
V210= small_fixnum(5);
V211= small_fixnum(0);
T666:;
if(!(number_compare((V211),(V210))>=0)){
goto T667;}
goto T662;
T667:;
if(!(type_of(car((V208)))==t_symbol)){
goto T673;}
princ_str("(V",VV[18]);
(void)((*(LnkLI56))((V202)));
princ_str("== ",VV[18]);
{object V212= car((V208));
if((V212!= Ct))goto T680;
princ_str("Ct",VV[18]);
goto T679;
T680:;
if((V212!= Cnil))goto T682;
princ_str("Cnil",VV[18]);
goto T679;
T682:;
princ_str("VV[",VV[18]);
V213= (*(LnkLI77))(car((V208)));
(void)((*(LnkLI56))(/* INLINE-ARGS */V213));
princ_char(93,VV[18]);}
T679:;
princ_char(41,VV[18]);
goto T671;
T673:;
princ_str("eql(V",VV[18]);
(void)((*(LnkLI56))((V202)));
princ_str(",VV[",VV[18]);
(void)((*(LnkLI56))(car((V208))));
princ_str("])",VV[18]);
T671:;
if(!(number_compare((V211),small_fixnum(4))<0)){
goto T693;}
princ_str("\n || ",VV[18]);
T693:;
{object V214;
V214= car((V208));
V208= cdr((V208));}
V211= one_plus((V211));
goto T666;}
T662:;
princ_char(41,VV[18]);
if(type_of((V209))!=t_cons)FEwrong_type_argument(Scons,(V209));
((V209))->c.c_cdr = Ct;
princ_str("goto T",VV[18]);
(void)((*(LnkLI56))(car((V209))));
princ_char(59,VV[18]);
goto T650;
T648:;
princ_str("\n if(",VV[18]);
T717:;
if(!(endp((V208)))){
goto T718;}
goto T715;
T718:;
if(!(type_of(car((V208)))==t_symbol)){
goto T724;}
princ_str("(V",VV[18]);
(void)((*(LnkLI56))((V202)));
princ_str("!= ",VV[18]);
{object V215= car((V208));
if((V215!= Ct))goto T731;
princ_str("Ct",VV[18]);
goto T730;
T731:;
if((V215!= Cnil))goto T733;
princ_str("Cnil",VV[18]);
goto T730;
T733:;
princ_str("VV[",VV[18]);
V216= (*(LnkLI77))(car((V208)));
(void)((*(LnkLI56))(/* INLINE-ARGS */V216));
princ_char(93,VV[18]);}
T730:;
princ_char(41,VV[18]);
goto T722;
T724:;
princ_str("!eql(V",VV[18]);
(void)((*(LnkLI56))((V202)));
princ_str(",VV[",VV[18]);
(void)((*(LnkLI56))(car((V208))));
princ_str("])",VV[18]);
T722:;
if(endp(cdr((V208)))){
goto T744;}
princ_str("\n && ",VV[18]);
T744:;
{object V217;
V217= car((V208));
V208= cdr((V208));}
goto T717;
T715:;
princ_char(41,VV[18]);
if(type_of((V207))!=t_cons)FEwrong_type_argument(Scons,(V207));
((V207))->c.c_cdr = Ct;
princ_str("goto T",VV[18]);
(void)((*(LnkLI56))(car((V207))));
princ_char(59,VV[18]);
if(((V209))==Cnil){
goto T761;}
if((cdr((V209)))==Cnil){
goto T761;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V209))));
princ_str(":;",VV[18]);
T761:;
base[2]= make_cons(VV[19],symbol_value(VV[17]));
bds_bind(VV[17],base[2]);
base[3]= cdr((V206));
vs_top=(vs_base=base+3)+1;
(void) (*Lnk57)();
vs_top=sup;
bds_unwind1;
if((cdr((V207)))==Cnil){
goto T643;}
princ_str("\nT",VV[18]);
(void)((*(LnkLI56))(car((V207))));
princ_str(":;",VV[18]);}
T643:;
V205= cdr((V205));
V206= car((V205));
goto T638;}
T634:;
if(!(((V201))==(Ct))){
goto T784;}
princ_str("\n FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[18]);
(void)((*(LnkLI56))((V202)));
princ_str(");",VV[18]);
goto T782;
T784:;
base[2]= (V201);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk57)();
vs_top=sup;
T782:;
princ_char(125,VV[18]);
{object V218 = (*(LnkLI65))();
bds_unwind1;
bds_unwind1;
VMR16(V218)}}
}
static object LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],&LnkLI77,1,ap);} /* ADD-SYMBOL */
static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[76],&LnkLI76,ap);} /* INLINE-ARGS */
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* ADD-OBJECT */
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,2,ap);} /* ADD-INFO */
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* C1PROGN */
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[71],&LnkLI71,ap);} /* CMPERR */
static object LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[70],&LnkLI70,2,ap);} /* CONVERT-CASE-TO-SWITCH */
static LnkT69(){ call_or_link(VV[69],&Lnk69);} /* SUBTYPEP */
static LnkT68(){ call_or_link(VV[68],&Lnk68);} /* CMPERROR */
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],&LnkLI67,ap);} /* C1CASE */
static LnkT66(){ call_or_link(VV[66],&Lnk66);} /* WT-INLINE-LOC */
static object LnkTLI65(){return call_proc0(VV[65],&LnkLI65);} /* CLOSE-INLINE-BLOCKS */
static object LnkTLI64(){return call_proc0(VV[64],&LnkLI64);} /* WT-C-PUSH */
static object LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,2,ap);} /* WT-VAR */
static object LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],&LnkLI62,ap);} /* UNWIND-EXIT */
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,2,ap);} /* C1ARGS */
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,1,ap);} /* C2EXPR* */
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* UNWIND-NO-EXIT */
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,3,ap);} /* CJT */
static LnkT57(){ call_or_link(VV[57],&Lnk57);} /* C2EXPR */
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* WT1 */
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,3,ap);} /* CJF */
static object LnkTLI54(){return call_proc0(VV[54],&LnkLI54);} /* C1T */
static object LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[52],&LnkLI52,2,ap);} /* C1EXPR* */
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,2,ap);} /* C1FMLA */
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],&LnkLI50,ap);} /* MAKE-INFO */
static object LnkTLI49(){return call_proc0(VV[49],&LnkLI49);} /* C1NIL */
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,1,ap);} /* C1EXPR */
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,1,ap);} /* C1FMLA-CONSTANT */
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,3,ap);} /* TOO-MANY-ARGS */
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],&LnkLI45,3,ap);} /* TOO-FEW-ARGS */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.