This is cmptype.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmptype.h"
init_cmptype(){do_init(VV);}
/* local entry for function OBJECT-TYPE */
static object LI1(V2)
object V2;
{ VMB1 VMS1 VMV1
TTL:;
{object V3;
base[0]= (V2);
vs_top=(vs_base=base+0)+1;
Ltype_of();
vs_top=sup;
V3= vs_base[0];
{object V4= (V3);
if((V4!= VV[10])
&& (V4!= VV[12])
&& (V4!= VV[3]))goto T3;
{object V5 = (V3);
VMR1(V5)}
T3:;
if((V4!= VV[38])
&& (V4!= VV[51])
&& (V4!= VV[0]))goto T4;
{object V6 = VV[0];
VMR1(V6)}
T4:;
if((V4!= VV[5])
&& (V4!= VV[6]))goto T5;
{object V7 = (V3);
VMR1(V7)}
T5:;
if((V4!= VV[1]))goto T6;
base[0]= (V2);
vs_top=(vs_base=base+0)+1;
Larray_element_type();
vs_top=sup;
V8= vs_base[0];
{object V9 = list(2,VV[1],V8);
VMR1(V9)}
T6:;
if((V4!= VV[2]))goto T9;
base[0]= (V2);
vs_top=(vs_base=base+0)+1;
Larray_element_type();
vs_top=sup;
V10= vs_base[0];
{object V11 = list(2,VV[2],V10);
VMR1(V11)}
T9:;
{object V12 = Ct;
VMR1(V12)}}}
}
/* local entry for function TYPE-FILTER */
static object LI2(V14)
object V14;
{ VMB2 VMS2 VMV2
TTL:;
{object V15= (V14);
if((V15!= VV[10])
&& (V15!= VV[0])
&& (V15!= VV[12])
&& (V15!= VV[3]))goto T12;
{object V16 = (V14);
VMR2(V16)}
T12:;
if((V15!= VV[52]))goto T13;
{object V17 = VV[3];
VMR2(V17)}
T13:;
if((V15!= VV[4]))goto T14;
{object V18 = VV[4];
VMR2(V18)}
T14:;
if((V15!= VV[53]))goto T15;
{object V19 = VV[3];
VMR2(V19)}
T15:;
if((V15!= VV[54])
&& (V15!= VV[5]))goto T16;
{object V20 = VV[5];
VMR2(V20)}
T16:;
if((V15!= VV[55])
&& (V15!= VV[6]))goto T17;
{object V21 = VV[6];
VMR2(V21)}
T17:;
if((V15!= Cnil)
&& (V15!= Ct))goto T18;
{object V22 = Ct;
VMR2(V22)}
T18:;
{object V23;
object V24;
V23= (*(LnkLI56))((V14));
V24= Cnil;
{object V25= car((V23));
if((V25!= VV[57])
&& (V25!= VV[2]))goto T21;
if(endp(cdr((V23)))){
goto T22;}
if(!((VV[7])==(cadr((V23))))){
goto T29;}
V24= Cnil;
goto T27;
T29:;
{object V26;
V26= (*(LnkLI58))(cadr((V23)));
if(((V26))==Cnil){
goto T33;}
V24= (V26);
goto T27;
T33:;
V24= Ct;}
T27:;
if(((V24))!=Cnil){
goto T23;}
T22:;
{object V27 = Ct;
VMR2(V27)}
T23:;
if(endp(cddr((V23)))){
goto T36;}
if((caddr((V23)))==(VV[7])){
goto T36;}
if(eql(caddr((V23)),small_fixnum(1))){
goto T35;}
if(!(type_of(caddr((V23)))==t_cons)){
goto T36;}
if(!((length(caddr((V23))))==(1))){
goto T36;}
T35:;
{object V28= (V24);
if((V28!= VV[38]))goto T46;
{object V29 = VV[5];
VMR2(V29)}
T46:;
if((V28!= VV[39]))goto T47;
{object V30 = VV[6];
VMR2(V30)}
T47:;
{object V31 = list(2,VV[1],(V24));
VMR2(V31)}}
T36:;
{object V32 = list(2,VV[2],(V24));
VMR2(V32)}
T21:;
if((V25!= VV[11]))goto T48;
V33= cdr((V23));
V34= list(2,VV[8],VV[9]);
if(((*(LnkLI59))(/* INLINE-ARGS */V33,/* INLINE-ARGS */V34))==Cnil){
goto T50;}
{object V35 = VV[10];
VMR2(V35)}
T50:;
{object V36 = VV[11];
VMR2(V36)}
T48:;
if((V25!= VV[12]))goto T52;
{object V37 = VV[12];
VMR2(V37)}
T52:;
if((V25!= VV[3])
&& (V25!= VV[53])
&& (V25!= VV[52]))goto T53;
{object V38 = VV[3];
VMR2(V38)}
T53:;
if((V25!= VV[13]))goto T54;
{object V39 = VV[13];
VMR2(V39)}
T54:;
base[0]= (V23);
base[1]= VV[10];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T56;}
{object V40 = VV[10];
VMR2(V40)}
T56:;
base[0]= (V23);
base[1]= VV[11];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T61;}
{object V41 = VV[11];
VMR2(V41)}
T61:;
base[0]= (V23);
base[1]= VV[0];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T66;}
{object V42 = VV[0];
VMR2(V42)}
T66:;
base[0]= (V23);
base[1]= VV[12];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T71;}
{object V43 = VV[12];
VMR2(V43)}
T71:;
base[0]= (V23);
base[1]= VV[3];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T76;}
{object V44 = VV[3];
VMR2(V44)}
T76:;
base[0]= (V23);
base[1]= VV[14];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T81;}
{object V45 = VV[15];
VMR2(V45)}
T81:;
base[0]= (V23);
base[1]= VV[5];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T86;}
{object V46 = VV[5];
VMR2(V46)}
T86:;
base[0]= (V23);
base[1]= VV[6];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T91;}
{object V47 = VV[6];
VMR2(V47)}
T91:;
base[0]= (V23);
base[1]= VV[16];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T96;}
{object V48 = VV[17];
VMR2(V48)}
T96:;
base[0]= (V23);
base[1]= VV[18];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T101;}
{object V49 = VV[19];
VMR2(V49)}
T101:;
base[0]= (V23);
base[1]= VV[20];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T106;}
{object V50 = VV[21];
VMR2(V50)}
T106:;
base[0]= (V23);
base[1]= VV[22];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T111;}
{object V51 = VV[23];
VMR2(V51)}
T111:;
base[0]= (V23);
base[1]= VV[24];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T116;}
{object V52 = VV[25];
VMR2(V52)}
T116:;
base[0]= (V23);
base[1]= VV[26];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T121;}
{object V53 = VV[27];
VMR2(V53)}
T121:;
base[0]= (V23);
base[1]= VV[28];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T126;}
{object V54 = VV[29];
VMR2(V54)}
T126:;
base[0]= (V23);
base[1]= VV[30];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T131;}
{object V55 = VV[31];
VMR2(V55)}
T131:;
base[0]= (V23);
base[1]= VV[32];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T136;}
{object V56 = VV[33];
VMR2(V56)}
T136:;
if(!((car((V23)))==(VV[34]))){
goto T141;}
if((cddr((V23)))!=Cnil){
goto T144;}
{object V57 = list(2,VV[34],(*(LnkLI36))(cadr((V23))));
VMR2(V57)}
T144:;
{object V58 = Ct;
VMR2(V58)}
T141:;
{object V59;
if((car((V23)))==(VV[35])){
goto T147;}
V59= Cnil;
goto T146;
T147:;
if(type_of(cadr((V23)))==t_symbol){
goto T149;}
V59= Cnil;
goto T146;
T149:;
V59= get(cadr((V23)),VV[36],Cnil);
T146:;
if(((V59))==Cnil){
goto T152;}
{object V60 = (V59);
VMR2(V60)}
T152:;
{object V61 = Ct;
VMR2(V61)}}}}}
}
/* local entry for function TYPE-AND */
static object LI3(V64,V65)
register object V64;register object V65;
{ VMB3 VMS3 VMV3
TTL:;
if(!(equal((V64),(V65)))){
goto T155;}
{object V66 = (V64);
VMR3(V66)}
T155:;
if(!(((V64))==(Ct))){
goto T158;}
{object V67 = (V65);
VMR3(V67)}
T158:;
if(!(((V64))==(VV[7]))){
goto T161;}
{object V68 = (V65);
VMR3(V68)}
T161:;
if(!(((V64))==(VV[37]))){
goto T164;}
{object V69 = (V65);
VMR3(V69)}
T164:;
if(!(((V65))==(VV[37]))){
goto T167;}
{object V70 = (V64);
VMR3(V70)}
T167:;
if(!(((V65))==(Ct))){
goto T170;}
{object V71 = (V64);
VMR3(V71)}
T170:;
if(!(((V65))==(VV[7]))){
goto T173;}
{object V72 = (V64);
VMR3(V72)}
T173:;
if(!(type_of((V65))==t_cons)){
goto T176;}
if(!((car((V65)))==(VV[34]))){
goto T176;}
V65= cadr((V65));
goto TTL;
T176:;
if(!(type_of((V64))==t_cons)){
goto T184;}
{object V73= car((V64));
if((V73!= VV[2]))goto T186;
{object V74= cadr((V64));
if((V74!= VV[38]))goto T187;
if(!(((V65))==(VV[5]))){
goto T189;}
{object V75 = (V65);
VMR3(V75)}
T189:;
{object V76 = Cnil;
VMR3(V76)}
T187:;
if((V74!= VV[39]))goto T191;
if(!(((V65))==(VV[6]))){
goto T193;}
{object V77 = (V65);
VMR3(V77)}
T193:;
{object V78 = Cnil;
VMR3(V78)}
T191:;
if(!(type_of((V65))==t_cons)){
goto T196;}
if(!((car((V65)))==(VV[1]))){
goto T196;}
if(!((cadr((V64)))==(cadr((V65))))){
goto T196;}
{object V79 = (V65);
VMR3(V79)}
T196:;
{object V80 = Cnil;
VMR3(V80)}}
T186:;
if((V73!= VV[1]))goto T202;
if(!(type_of((V65))==t_cons)){
goto T204;}
if(!((car((V65)))==(VV[2]))){
goto T204;}
if(!((cadr((V64)))==(cadr((V65))))){
goto T204;}
{object V81 = (V64);
VMR3(V81)}
T204:;
{object V82 = Cnil;
VMR3(V82)}
T202:;
if((V73!= VV[34]))goto T210;
V64= cadr((V64));
goto TTL;
T210:;
{object V83 = Cnil;
VMR3(V83)}}
T184:;
{object V84= (V64);
if((V84!= VV[5]))goto T214;
if(!(type_of((V65))==t_cons)){
goto T216;}
if(!((car((V65)))==(VV[2]))){
goto T216;}
if(!((cadr((V65)))==(VV[38]))){
goto T216;}
{object V85 = (V64);
VMR3(V85)}
T216:;
{object V86 = Cnil;
VMR3(V86)}
T214:;
if((V84!= VV[6]))goto T222;
if(!(type_of((V65))==t_cons)){
goto T224;}
if(!((car((V65)))==(VV[2]))){
goto T224;}
if(!((cadr((V65)))==(VV[39]))){
goto T224;}
{object V87 = (V64);
VMR3(V87)}
T224:;
{object V88 = Cnil;
VMR3(V88)}
T222:;
if((V84!= VV[61]))goto T230;
{register object x= (V65),V89= VV[40];
while(!endp(V89))
if(eql(x,V89->c.c_car)){
goto T233;
}else V89=V89->c.c_cdr;
goto T232;}
T233:;
{object V90 = (V65);
VMR3(V90)}
T232:;
{object V91 = Cnil;
VMR3(V91)}
T230:;
if((V84!= VV[62]))goto T234;
{register object x= (V65),V92= VV[41];
while(!endp(V92))
if(eql(x,V92->c.c_car)){
goto T237;
}else V92=V92->c.c_cdr;
goto T236;}
T237:;
{object V93 = (V65);
VMR3(V93)}
T236:;
{object V94 = Cnil;
VMR3(V94)}
T234:;
if((V84!= VV[3])
&& (V84!= VV[12]))goto T238;
{register object x= (V65),V95= VV[42];
while(!endp(V95))
if(eql(x,V95->c.c_car)){
goto T241;
}else V95=V95->c.c_cdr;
goto T240;}
T241:;
{object V96 = (V64);
VMR3(V96)}
T240:;
{object V97 = Cnil;
VMR3(V97)}
T238:;
if((V84!= VV[63])
&& (V84!= VV[64])
&& (V84!= VV[65]))goto T242;
if(!(((V65))==(VV[10]))){
goto T244;}
{object V98 = (V64);
VMR3(V98)}
T244:;
{object V99 = Cnil;
VMR3(V99)}
T242:;
if((V84!= VV[66]))goto T246;
base[0]= (V64);
base[1]= (V65);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T248;}
{object V100 = (V64);
VMR3(V100)}
T248:;
{object V101 = Cnil;
VMR3(V101)}
T246:;
if((V84!= VV[11]))goto T252;
{object V102= (V65);
if((V102!= VV[10]))goto T253;
{object V103 = (V65);
VMR3(V103)}
T253:;
{object V104 = Cnil;
VMR3(V104)}}
T252:;
if((V84!= VV[10]))goto T254;
{object V105= (V65);
if((V105!= VV[11])
&& (V105!= VV[61]))goto T255;
{object V106 = VV[10];
VMR3(V106)}
T255:;
if((V105!= VV[63])
&& (V105!= VV[64])
&& (V105!= VV[65])
&& (V105!= VV[39]))goto T256;
{object V107 = (V65);
VMR3(V107)}
T256:;
if((V105!= VV[66]))goto T257;
base[0]= (V65);
base[1]= (V64);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk60)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T259;}
{object V108 = (V65);
VMR3(V108)}
T259:;
{object V109 = Cnil;
VMR3(V109)}
T257:;
{object V110 = Cnil;
VMR3(V110)}}
T254:;
{object V111 = Cnil;
VMR3(V111)}}
}
/* local entry for function TYPE>= */
static object LI4(V114,V115)
object V114;object V115;
{ VMB4 VMS4 VMV4
TTL:;
V116= (*(LnkLI67))((V114),(V115));
{object V117 = (equal(/* INLINE-ARGS */V116,(V115))?Ct:Cnil);
VMR4(V117)}
}
/* local entry for function RESET-INFO-TYPE */
static object LI5(V119)
object V119;
{ VMB5 VMS5 VMV5
TTL:;
if((structure_ref((V119),VV[43],2))==Cnil){
goto T264;}
{object V120;
base[0]= (V119);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk68)();
vs_top=sup;
V120= vs_base[0];
(void)(structure_set((V120),VV[43],2,Ct));
{object V121 = (V120);
VMR5(V121)}}
T264:;
{object V122 = (V119);
VMR5(V122)}
}
/* local entry for function AND-FORM-TYPE */
static object LI6(V126,V127,V128)
object V126;register object V127;object V128;
{ VMB6 VMS6 VMV6
TTL:;
{object V129;
V129= Cnil;
V130= structure_ref(cadr((V127)),VV[43],2);
V129= (*(LnkLI67))((V126),/* INLINE-ARGS */V130);
if(((V129))!=Cnil){
goto T272;}
(void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V128),(V126))));
T272:;
V131= structure_ref(cadr((V127)),VV[43],2);
if(!(((V129))==(/* INLINE-ARGS */V131))){
goto T276;}
{object V132 = (V127);
VMR6(V132)}
T276:;
{object V133;
base[0]= cadr((V127));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk68)();
vs_top=sup;
V133= vs_base[0];
(void)(structure_set((V133),VV[43],2,(V129)));
{object V134 = listA(3,car((V127)),(V133),cddr((V127)));
VMR6(V134)}}}
}
/* local entry for function CHECK-FORM-TYPE */
static object LI7(V138,V139,V140)
object V138;object V139;object V140;
{ VMB7 VMS7 VMV7
TTL:;
V141= structure_ref(cadr((V139)),VV[43],2);
if(((*(LnkLI67))((V138),/* INLINE-ARGS */V141))!=Cnil){
goto T282;}
{object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V140),(V138)));
VMR7(V142)}
T282:;
{object V143 = Cnil;
VMR7(V143)}
}
/* local entry for function DEFAULT-INIT */
static object LI8(V145)
object V145;
{ VMB8 VMS8 VMV8
TTL:;
{object V146= (V145);
if((V146!= VV[10]))goto T285;
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[46])));
goto T284;
T285:;
if((V146!= VV[0]))goto T286;
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[47])));
goto T284;
T286:;
if((V146!= VV[3]))goto T287;
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[48])));
goto T284;
T287:;
if((V146!= VV[12]))goto T288;
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[49])));
goto T284;
T288:;
if((V146!= VV[11]))goto T289;
(void)((VFUN_NARGS=1,(*(LnkLI69))(VV[50])));
goto T284;
T289:;}
T284:;
{object V147 = (*(LnkLI70))();
VMR8(V147)}
}
static object LnkTLI70(){return call_proc0(VV[70],&LnkLI70);} /* C1NIL */
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],&LnkLI69,ap);} /* CMPWARN */
static LnkT68(){ call_or_link(VV[68],&Lnk68);} /* COPY-INFO */
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,2,ap);} /* TYPE-AND */
static object LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],&LnkLI36,1,ap);} /* TYPE-FILTER */
static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* SUBTYPEP */
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* SUB-INTERVAL-P */
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* NORMALIZE-TYPE */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.