This is assert.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "assert.h"
init_assert(){do_init(VV);}
/* macro definition for CHECK-TYPE */
static L1()
{register object *base=vs_base;
register object *sup=base+VM1; VC1
vs_reserve(VM1);
check_arg(2);
vs_top=sup;
{object V1=base[0]->c.c_cdr;
if(endp(V1))invalid_macro_call();
base[2]= (V1->c.c_car);
V1=V1->c.c_cdr;
if(endp(V1))invalid_macro_call();
base[3]= (V1->c.c_car);
V1=V1->c.c_cdr;
if(endp(V1)){
base[4]= Cnil;
base[5]= Cnil;
} else {
base[4]= (V1->c.c_car);
base[5]= Ct;
V1=V1->c.c_cdr;}
if(!endp(V1))invalid_macro_call();}
V2= list(2,list(3,VV[2],base[2],list(2,VV[3],base[3])),Cnil);
V3= list(2,VV[3],base[2]);
if((base[5])==Cnil){
goto T4;}
V4= base[4];
goto T2;
T4:;
V4= list(2,VV[3],base[3]);
T2:;
V5= list(6,VV[4],VV[5],VV[6],/* INLINE-ARGS */V3,base[2],V4);
V6= (*(LnkLI56))(base[2]);
base[6]= list(6,VV[0],VV[1],/* INLINE-ARGS */V2,/* INLINE-ARGS */V5,/* INLINE-ARGS */V6,VV[7]);
vs_top=(vs_base=base+6)+1;
return;
}
/* macro definition for ASSERT */
static L2()
{register object *base=vs_base;
register object *sup=base+VM2; VC2
vs_reserve(VM2);
check_arg(2);
vs_top=sup;
{object V7=base[0]->c.c_cdr;
if(endp(V7))invalid_macro_call();
base[2]= (V7->c.c_car);
V7=V7->c.c_cdr;
if(endp(V7)){
base[3]= Cnil;
} else {
base[3]= (V7->c.c_car);
V7=V7->c.c_cdr;}
if(endp(V7)){
base[4]= Cnil;
} else {
base[4]= (V7->c.c_car);
V7=V7->c.c_cdr;}
base[5]= V7;}
V8= list(2,base[2],Cnil);
if((base[4])==Cnil){
goto T10;}
V9= listA(4,VV[4],VV[9],base[4],base[5]);
goto T8;
T10:;
V9= list(4,VV[4],VV[10],VV[11],list(2,VV[3],base[2]));
T8:;
{object V11;
object V12= base[3];
if(endp(V12)){
V10= Cnil;
goto T12;}
base[6]=V11=MMcons(Cnil,Cnil);
T13:;
(V11->c.c_car)= (*(LnkLI56))((V12->c.c_car));
if(endp(V12=MMcdr(V12))){
V10= base[6];
goto T12;}
V11=MMcdr(V11)=MMcons(Cnil,Cnil);
goto T13;}
T12:;
base[6]= listA(5,VV[0],VV[8],/* INLINE-ARGS */V8,V9,append(V10,VV[12]));
vs_top=(vs_base=base+6)+1;
return;
}
/* local entry for function ASK-FOR-FORM */
static object LI3(V14)
object V14;
{ VMB3 VMS3 VMV3
TTL:;
V15= list(4,VV[14],VV[15],VV[16],list(2,VV[3],(V14)));
{object V16 = list(4,VV[13],/* INLINE-ARGS */V15,VV[17],list(3,VV[18],(V14),VV[19]));
VMR3(V16)}
}
/* macro definition for ECASE */
static L4()
{register object *base=vs_base;
register object *sup=base+VM4; VC4
vs_reserve(VM4);
check_arg(2);
vs_top=sup;
{object V17=base[0]->c.c_cdr;
if(endp(V17))invalid_macro_call();
base[2]= (V17->c.c_car);
V17=V17->c.c_cdr;
base[3]= V17;
vs_base=vs_top;
Lgensym();
vs_top=sup;
base[4]= vs_base[0];}
{object V18;
object V19;
V18= reverse(base[3]);
V20= list(2,VV[3],base[2]);
{object V22;
object V23= base[3];
if(endp(V23)){
V21= Cnil;
goto T18;}
base[5]=V22=MMcons(Cnil,Cnil);
T19:;
{object V24;
V24= (V23->c.c_car);
{object V25= car((V24));
if(!(type_of(V25)==t_cons||(V25)==Cnil)){
goto T23;}}
{object V26;
object V27= car((V24));
if(endp(V27)){
(V22->c.c_cdr)= Cnil;
goto T20;}
base[6]=V26=MMcons(Cnil,Cnil);
T25:;
{object V28;
V28= (V27->c.c_car);
(V26->c.c_car)= list(2,VV[3],(V28));}
if(endp(V27=MMcdr(V27))){
(V22->c.c_cdr)= base[6];
goto T20;}
V26=MMcdr(V26)=MMcons(Cnil,Cnil);
goto T25;}
T23:;
V29= list(2,VV[3],car((V24)));
(V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil);}
T20:;
while(!endp(MMcdr(V22)))V22=MMcdr(V22);
if(endp(V23=MMcdr(V23))){
base[5]=base[5]->c.c_cdr;
V21= base[5];
goto T18;}
goto T19;}
T18:;
V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21));
T29:;
if(!(endp((V18)))){
goto T30;}
V30= list(2,base[4],base[2]);
base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19));
vs_top=(vs_base=base+5)+1;
return;
T30:;
if((caar((V18)))==Cnil){
goto T34;}
{object V32= caar((V18));
if(!(type_of(V32)==t_cons||(V32)==Cnil)){
goto T40;}}
V31= list(3,VV[25],base[4],list(2,VV[3],caar((V18))));
goto T38;
T40:;
V31= list(3,VV[26],base[4],list(2,VV[3],caar((V18))));
T38:;
V19= list(4,VV[24],V31,make_cons(VV[13],cdar((V18))),(V19));
T34:;
V18= cdr((V18));
goto T29;}
}
/* macro definition for CCASE */
static L5()
{register object *base=vs_base;
register object *sup=base+VM5; VC5
vs_reserve(VM5);
check_arg(2);
vs_top=sup;
{object V33=base[0]->c.c_cdr;
if(endp(V33))invalid_macro_call();
base[2]= (V33->c.c_car);
V33=V33->c.c_cdr;
base[3]= V33;
vs_base=vs_top;
Lgensym();
vs_top=sup;
base[4]= vs_base[0];}
V34= list(2,base[4],base[2]);
V35= make_cons(/* INLINE-ARGS */V34,Cnil);
{object V37;
object V38= base[3];
if(endp(V38)){
V36= Cnil;
goto T46;}
base[5]=V37=MMcons(Cnil,Cnil);
T47:;
{object V39;
V39= (V38->c.c_car);
{object V41= car((V39));
if(!(type_of(V41)==t_cons||(V41)==Cnil)){
goto T52;}}
V40= list(3,VV[25],base[4],list(2,VV[3],car((V39))));
goto T50;
T52:;
V40= list(3,VV[26],base[4],list(2,VV[3],car((V39))));
T50:;
(V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));}
if(endp(V38=MMcdr(V38))){
V36= base[5];
goto T46;}
V37=MMcdr(V37)=MMcons(Cnil,Cnil);
goto T47;}
T46:;
V42= list(2,VV[3],base[2]);
{object V44;
object V45= base[3];
if(endp(V45)){
V43= Cnil;
goto T54;}
base[5]=V44=MMcons(Cnil,Cnil);
T55:;
{object V46;
V46= (V45->c.c_car);
{object V47= car((V46));
if(!(type_of(V47)==t_cons||(V47)==Cnil)){
goto T59;}}
{object V48;
object V49= car((V46));
if(endp(V49)){
(V44->c.c_cdr)= Cnil;
goto T56;}
base[6]=V48=MMcons(Cnil,Cnil);
T61:;
{object V50;
V50= (V49->c.c_car);
(V48->c.c_car)= list(2,VV[3],(V50));}
if(endp(V49=MMcdr(V49))){
(V44->c.c_cdr)= base[6];
goto T56;}
V48=MMcdr(V48)=MMcons(Cnil,Cnil);
goto T61;}
T59:;
V51= list(2,VV[3],car((V46)));
(V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil);}
T56:;
while(!endp(MMcdr(V44)))V44=MMcdr(V44);
if(endp(V45=MMcdr(V45))){
base[5]=base[5]->c.c_cdr;
V43= base[5];
goto T54;}
goto T55;}
T54:;
V52= listA(6,VV[4],VV[31],VV[32],/* INLINE-ARGS */V42,base[4],V43);
V53= (*(LnkLI56))(base[2]);
V54= list(5,VV[20],VV[30],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,VV[33]);
V55= make_cons(/* INLINE-ARGS */V54,Cnil);
base[5]= list(2,VV[27],listA(3,VV[20],/* INLINE-ARGS */V35,append(V36,/* INLINE-ARGS */V55)));
vs_top=(vs_base=base+5)+1;
return;
}
/* macro definition for TYPECASE */
static L6()
{register object *base=vs_base;
register object *sup=base+VM6; VC6
vs_reserve(VM6);
check_arg(2);
vs_top=sup;
{object V56=base[0]->c.c_cdr;
if(endp(V56))invalid_macro_call();
base[2]= (V56->c.c_car);
V56=V56->c.c_cdr;
base[3]= V56;}
{object V57;
object V58;
object V59;
V57= reverse(base[3]);
V58= Cnil;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V59= vs_base[0];
T68:;
if(!(endp((V57)))){
goto T69;}
V60= list(2,(V59),base[2]);
base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58));
vs_top=(vs_base=base+4)+1;
return;
T69:;
if((caar((V57)))==(Ct)){
goto T74;}
if(!((caar((V57)))==(VV[34]))){
goto T75;}
T74:;
V58= make_cons(VV[13],cdar((V57)));
goto T73;
T75:;
V61= list(3,VV[2],(V59),list(2,VV[3],caar((V57))));
V58= list(4,VV[24],/* INLINE-ARGS */V61,make_cons(VV[13],cdar((V57))),(V58));
T73:;
V57= cdr((V57));
goto T68;}
}
/* macro definition for ETYPECASE */
static L7()
{register object *base=vs_base;
register object *sup=base+VM7; VC7
vs_reserve(VM7);
check_arg(2);
vs_top=sup;
{object V62=base[0]->c.c_cdr;
if(endp(V62))invalid_macro_call();
base[2]= (V62->c.c_car);
V62=V62->c.c_cdr;
base[3]= V62;
vs_base=vs_top;
Lgensym();
vs_top=sup;
base[4]= vs_base[0];}
{object V63;
object V64;
V63= reverse(base[3]);
V65= list(2,VV[3],base[2]);
{object V67;
object V68= base[3];
if(endp(V68)){
V66= Cnil;
goto T87;}
base[5]=V67=MMcons(Cnil,Cnil);
T88:;
{object V69;
V69= (V68->c.c_car);
(V67->c.c_car)= car((V69));}
if(endp(V68=MMcdr(V68))){
V66= base[5];
goto T87;}
V67=MMcdr(V67)=MMcons(Cnil,Cnil);
goto T88;}
T87:;
V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66)));
T92:;
if(!(endp((V63)))){
goto T93;}
V70= list(2,base[4],base[2]);
base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64));
vs_top=(vs_base=base+5)+1;
return;
T93:;
V71= list(3,VV[2],base[4],list(2,VV[3],caar((V63))));
V64= list(4,VV[24],/* INLINE-ARGS */V71,make_cons(VV[13],cdar((V63))),(V64));
V63= cdr((V63));
goto T92;}
}
/* macro definition for CTYPECASE */
static L8()
{register object *base=vs_base;
register object *sup=base+VM8; VC8
vs_reserve(VM8);
check_arg(2);
vs_top=sup;
{object V72=base[0]->c.c_cdr;
if(endp(V72))invalid_macro_call();
base[2]= (V72->c.c_car);
V72=V72->c.c_cdr;
base[3]= V72;
vs_base=vs_top;
Lgensym();
vs_top=sup;
base[4]= vs_base[0];}
V73= list(2,base[4],base[2]);
V74= make_cons(/* INLINE-ARGS */V73,Cnil);
{object V76;
object V77= base[3];
if(endp(V77)){
V75= Cnil;
goto T103;}
base[5]=V76=MMcons(Cnil,Cnil);
T104:;
{object V78;
V78= (V77->c.c_car);
V79= list(3,VV[2],base[4],list(2,VV[3],car((V78))));
(V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V78)))));}
if(endp(V77=MMcdr(V77))){
V75= base[5];
goto T103;}
V76=MMcdr(V76)=MMcons(Cnil,Cnil);
goto T104;}
T103:;
V80= list(2,VV[3],base[2]);
{object V82;
object V83= base[3];
if(endp(V83)){
V81= Cnil;
goto T107;}
base[5]=V82=MMcons(Cnil,Cnil);
T108:;
{object V84;
V84= (V83->c.c_car);
(V82->c.c_car)= car((V84));}
if(endp(V83=MMcdr(V83))){
V81= base[5];
goto T107;}
V82=MMcdr(V82)=MMcons(Cnil,Cnil);
goto T108;}
T107:;
V85= list(3,VV[4],VV[36],list(4,VV[35],/* INLINE-ARGS */V80,base[4],list(2,VV[3],V81)));
V86= make_cons(/* INLINE-ARGS */V85,Cnil);
V87= listA(3,VV[20],/* INLINE-ARGS */V74,append(V75,/* INLINE-ARGS */V86));
V88= (*(LnkLI56))(base[2]);
base[5]= list(4,VV[27],/* INLINE-ARGS */V87,/* INLINE-ARGS */V88,VV[37]);
vs_top=(vs_base=base+5)+1;
return;
}
/* local entry for function TYPECASE-ERROR-STRING */
static object LI9(V92,V93,V94)
object V92;object V93;register object V94;
{ VMB9 VMS9 VMV9
TTL:;
{object V95;
object V96;
object V97;
V95= Cnil;
V96= Cnil;
V97= Cnil;
T116:;
if(!(endp((V94)))){
goto T117;}
goto T114;
T117:;
if(!(type_of(car((V94)))==t_symbol)){
goto T123;}
V98= make_cons(car((V94)),Cnil);
V95= make_cons(/* INLINE-ARGS */V98,(V95));
{object V99;
V99= car((V94));
V94= cdr((V94));
goto T121;}
T123:;
{object V100= caar((V94));
if((V100!= VV[57]))goto T130;
V94= append(cdar((V94)),cdr((V94)));
goto T121;
T130:;
if((V100!= VV[25]))goto T132;
{
object V101= cdar((V94));
if(endp(V101)){
goto T133;}
T134:;
{object V102;
V102= (V101->c.c_car);
V103= list(2,VV[25],(V102));
V95= make_cons(/* INLINE-ARGS */V103,(V95));}
if(endp(V101=MMcdr(V101))){
(void)(cdar((V94)));
goto T133;}
goto T134;}
T133:;
{object V104;
V104= car((V94));
V94= cdr((V94));
goto T121;}
T132:;
if((V100!= VV[58]))goto T141;
V96= make_cons(cadar((V94)),(V96));
{object V105;
V105= car((V94));
V94= cdr((V94));
goto T121;}
T141:;
V95= make_cons(car((V94)),(V95));
{object V106;
V106= car((V94));
V94= cdr((V94));}}
T121:;
goto T116;
T114:;
T156:;
if(!(endp((V96)))){
goto T157;}
goto T154;
T157:;
if(!(type_of(car((V96)))==t_symbol)){
goto T163;}
V107= make_cons(car((V96)),Cnil);
V97= make_cons(/* INLINE-ARGS */V107,(V97));
{object V108;
V108= car((V96));
V96= cdr((V96));
goto T161;}
T163:;
if(!((caar((V96)))==(VV[38]))){
goto T171;}
V96= append(cdar((V96)),cdr((V96)));
goto T161;
T171:;
V97= make_cons(car((V96)),(V97));
{object V109;
V109= car((V96));
V96= cdr((V96));}
T161:;
goto T156;
T154:;
base[0]= Cnil;
base[1]= VV[39];
base[2]= (V92);
base[3]= (V93);
base[4]= VV[40];
{object V110;
object V111= (V97);
if(endp(V111)){
base[5]= Cnil;
goto T186;}
base[6]=V110=MMcons(Cnil,Cnil);
T187:;
(V110->c.c_cdr)= (*(LnkLI59))((V111->c.c_car));
while(!endp(MMcdr(V110)))V110=MMcdr(V110);
if(endp(V111=MMcdr(V111))){
base[6]=base[6]->c.c_cdr;
base[5]= base[6];
goto T186;}
goto T187;}
T186:;
base[6]= VV[41];
V112 = make_fixnum(length((V95)));
V116= reverse((V95));
{object V114;
object V115= /* INLINE-ARGS */V116;
if(endp(V115)){
V113= Cnil;
goto T191;}
base[8]=V114=MMcons(Cnil,Cnil);
T192:;
(V114->c.c_cdr)= (*(LnkLI59))((V115->c.c_car));
while(!endp(MMcdr(V114)))V114=MMcdr(V114);
if(endp(V115=MMcdr(V115))){
base[8]=base[8]->c.c_cdr;
V113= base[8];
goto T191;}
goto T192;}
T191:;
base[7]= listA(3,(V97),V112,V113);
vs_top=(vs_base=base+0)+8;
Lformat();
vs_top=sup;
{object V117 = vs_base[0];
VMR9(V117)}}
}
/* local entry for function TYPECASE-ERROR-STRINGS */
static object LI10(V119)
register object V119;
{ VMB10 VMS10 VMV10
TTL:;
if(!((car((V119)))==(VV[25]))){
goto T195;}
V121 = make_fixnum(length(cdr((V119))));
{object V120= V121;
if(!eql(V120,VV[42]))goto T197;
{object V122 = VV[43];
VMR10(V122)}
T197:;
if(!eql(V120,VV[44]))goto T198;
{object V123 = list(2,VV[45],make_cons(cadr((V119)),Cnil));
VMR10(V123)}
T198:;
if(!eql(V120,VV[46]))goto T199;
{object V124 = list(2,VV[47],cdr((V119)));
VMR10(V124)}
T199:;
{object V125 = list(2,VV[48],make_cons(cdr((V119)),Cnil));
VMR10(V125)}}
T195:;
if(!((car((V119)))==(VV[49]))){
goto T201;}
{object V126 = list(2,VV[50],cdr((V119)));
VMR10(V126)}
T201:;
if(endp(cdr((V119)))){
goto T203;}
if(((VFUN_NARGS=2,(*(LnkLI60))(VV[51],cdr((V119)))))!=Cnil){
goto T204;}
T203:;
{object V127;
{register object x= car((V119)),V128= VV[52];
while(!endp(V128))
if(type_of(V128->c.c_car)==t_cons &&eql(x,V128->c.c_car->c.c_car)){
V127= (V128->c.c_car);
goto T208;
}else V128=V128->c.c_cdr;
V127= Cnil;}
T208:;
if(((V127))==Cnil){
goto T210;}
{object V129 = list(2,cadr((V127)),Cnil);
VMR10(V129)}
T210:;
V130= (*(LnkLI61))(car((V119)));
{object V131 = list(2,VV[53],list(2,/* INLINE-ARGS */V130,car((V119))));
VMR10(V131)}}
T204:;
V132= (*(LnkLI61))(car((V119)));
{object V133 = list(2,VV[54],list(2,/* INLINE-ARGS */V132,(V119)));
VMR10(V133)}
}
/* local entry for function BOIN-P */
static object LI11(V135)
object V135;
{ VMB11 VMS11 VMV11
TTL:;
V137= symbol_name((V135));
V138= elt(/* INLINE-ARGS */V137,0);
{register object x= /* INLINE-ARGS */V138,V136= VV[55];
while(!endp(V136))
if(eql(x,V136->c.c_car)){
{object V139 = V136;
VMR11(V139)}
}else V136=V136->c.c_cdr;
{object V140 = Cnil;
VMR11(V140)}}
}
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],&LnkLI61,1,ap);} /* BOIN-P */
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],&LnkLI60,ap);} /* REMOVE */
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* TYPECASE-ERROR-STRINGS */
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* ASK-FOR-FORM */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.