This is predlib.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "predlib.h"
init_predlib(){do_init(VV);}
/* macro definition for DEFTYPE */
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;
base[4]= V1;}
{object V2;
object V3;
V2= base[3];
V3= Cnil;
T5:;
if(((V2))!=Cnil){
goto T6;}
goto T1;
T6:;
{register object x= car((V2)),V4= VV[0];
while(!endp(V4))
if(eql(x,V4->c.c_car)){
goto T12;
}else V4=V4->c.c_cdr;
goto T10;}
T12:;
if((car((V2)))==(VV[1])){
goto T13;}
goto T1;
T13:;
V3= make_cons(VV[1],(V3));
V2= cdr((V2));
T22:;
if(((V2))==Cnil){
goto T24;}
{register object x= car((V2)),V5= VV[0];
while(!endp(V5))
if(eql(x,V5->c.c_car)){
goto T27;
}else V5=V5->c.c_cdr;
goto T23;}
T27:;
T24:;
goto T20;
T23:;
if(!(type_of(car((V2)))==t_symbol)){
goto T31;}
V6= list(2,car((V2)),VV[2]);
V3= make_cons(/* INLINE-ARGS */V6,(V3));
goto T29;
T31:;
V3= make_cons(car((V2)),(V3));
T29:;
V2= cdr((V2));
goto T22;
T20:;
base[5]= (V3);
base[6]= (V2);
vs_top=(vs_base=base+5)+2;
Lreconc();
vs_top=sup;
base[3]= vs_base[0];
goto T1;
T10:;
{object V7;
V7= cdr((V2));
V3= make_cons(car((V2)),(V3));
V2= (V7);}
goto T5;}
T1:;
V8= list(2,VV[6],base[2]);
V9= list(4,VV[5],/* INLINE-ARGS */V8,list(2,VV[6],listA(4,VV[7],base[2],base[3],base[4])),VV[8]);
V10= list(2,VV[6],base[2]);
V11= list(4,VV[5],/* INLINE-ARGS */V10,list(2,VV[9],listA(3,VV[10],base[3],base[4])),VV[11]);
V12= list(2,VV[6],base[2]);
V13= (*(LnkLI71))(base[4]);
V14= list(4,VV[5],/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,VV[12]);
base[5]= list(6,VV[3],VV[4],/* INLINE-ARGS */V9,/* INLINE-ARGS */V11,/* INLINE-ARGS */V14,list(2,VV[6],base[2]));
vs_top=(vs_base=base+5)+1;
return;
}
/* function definition for G1553 */
static L2()
{register object *base=vs_base;
register object *sup=base+VM2; VC2
vs_reserve(VM2);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= list(3,VV[13],VV[14],VV[15]);
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for G1565 */
static L3()
{register object *base=vs_base;
register object *sup=base+VM3; VC3
vs_reserve(VM3);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= VV[16];
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for G1576 */
static L4()
{register object *base=vs_base;
register object *sup=base+VM4; VC4
vs_reserve(VM4);
{object V15;
check_arg(1);
V15=(base[0]);
vs_top=sup;
TTL:;
base[1]= list(3,VV[13],small_fixnum(0),one_minus((V15)));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* function definition for G1593 */
static L5()
{register object *base=vs_base;
register object *sup=base+VM5; VC5
vs_reserve(VM5);
{object V16;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T47;}
V16=(base[0]);
vs_top=sup;
goto T48;
T47:;
V16= VV[17];
T48:;
if(!(((V16))==(VV[17]))){
goto T51;}
base[1]= VV[18];
vs_top=(vs_base=base+1)+1;
return;
T51:;
V17= one_minus((V16));
V18= number_expt(small_fixnum(2),/* INLINE-ARGS */V17);
V19= number_negate(/* INLINE-ARGS */V18);
V20= one_minus((V16));
V21= number_expt(small_fixnum(2),/* INLINE-ARGS */V20);
base[1]= list(3,VV[13],/* INLINE-ARGS */V19,one_minus(/* INLINE-ARGS */V21));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* function definition for G1622 */
static L6()
{register object *base=vs_base;
register object *sup=base+VM6; VC6
vs_reserve(VM6);
{object V22;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T53;}
V22=(base[0]);
vs_top=sup;
goto T54;
T53:;
V22= VV[17];
T54:;
if(!(((V22))==(VV[17]))){
goto T57;}
base[1]= VV[19];
vs_top=(vs_base=base+1)+1;
return;
T57:;
V23= number_expt(small_fixnum(2),(V22));
base[1]= list(3,VV[13],small_fixnum(0),one_minus(/* INLINE-ARGS */V23));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* function definition for G1644 */
static L7()
{register object *base=vs_base;
register object *sup=base+VM7; VC7
vs_reserve(VM7);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= list(2,VV[20],small_fixnum(8));
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for G1656 */
static L8()
{register object *base=vs_base;
register object *sup=base+VM8; VC8
vs_reserve(VM8);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= list(2,VV[21],small_fixnum(8));
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for G1668 */
static L9()
{register object *base=vs_base;
register object *sup=base+VM9; VC9
vs_reserve(VM9);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= list(2,VV[20],small_fixnum(16));
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for G1680 */
static L10()
{register object *base=vs_base;
register object *sup=base+VM10; VC10
vs_reserve(VM10);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= list(2,VV[21],small_fixnum(16));
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for G1692 */
static L11()
{register object *base=vs_base;
register object *sup=base+VM11; VC11
vs_reserve(VM11);
{object V24;
object V25;
if(vs_top-vs_base>2) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T59;}
V24=(base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T60;}
V25=(base[1]);
vs_top=sup;
goto T61;
T59:;
V24= VV[17];
T60:;
V25= VV[17];
T61:;
base[2]= list(3,VV[22],(V24),make_cons((V25),Cnil));
vs_top=(vs_base=base+2)+1;
return;
}
}
/* function definition for G1713 */
static L12()
{register object *base=vs_base;
register object *sup=base+VM12; VC12
vs_reserve(VM12);
{object V26;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T64;}
V26=(base[0]);
vs_top=sup;
goto T65;
T64:;
V26= VV[17];
T65:;
base[1]= list(3,VV[23],VV[24],(V26));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* function definition for G1729 */
static L13()
{register object *base=vs_base;
register object *sup=base+VM13; VC13
vs_reserve(VM13);
{object V27;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T67;}
V27=(base[0]);
vs_top=sup;
goto T68;
T67:;
V27= VV[17];
T68:;
base[1]= list(3,VV[23],VV[25],(V27));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* function definition for G1745 */
static L14()
{register object *base=vs_base;
register object *sup=base+VM14; VC14
vs_reserve(VM14);
{object V28;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T70;}
V28=(base[0]);
vs_top=sup;
goto T71;
T70:;
V28= VV[17];
T71:;
base[1]= list(3,VV[26],Ct,make_cons((V28),Cnil));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* function definition for G1762 */
static L15()
{register object *base=vs_base;
register object *sup=base+VM15; VC15
vs_reserve(VM15);
{object V29;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T73;}
V29=(base[0]);
vs_top=sup;
goto T74;
T73:;
V29= VV[17];
T74:;
base[1]= list(3,VV[26],VV[24],make_cons((V29),Cnil));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* function definition for G1779 */
static L16()
{register object *base=vs_base;
register object *sup=base+VM16; VC16
vs_reserve(VM16);
{object V30;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T76;}
V30=(base[0]);
vs_top=sup;
goto T77;
T76:;
V30= VV[17];
T77:;
base[1]= list(3,VV[26],VV[25],make_cons((V30),Cnil));
vs_top=(vs_base=base+1)+1;
return;
}
}
/* local entry for function SIMPLE-ARRAY-P */
static object LI17(V32)
register object V32;
{ VMB17 VMS17 VMV17
TTL:;
if(type_of((V32))==t_array||
type_of((V32))==t_vector||
type_of((V32))==t_string||
type_of((V32))==t_bitvector){
goto T79;}
{object V33 = Cnil;
VMR17(V33)}
T79:;
base[0]= (V32);
vs_top=(vs_base=base+0)+1;
Ladjustable_array_p();
vs_top=sup;
V34= vs_base[0];
if((V34)==Cnil){
goto T81;}
{object V35 = Cnil;
VMR17(V35)}
T81:;
base[0]= (V32);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk72)();
vs_top=sup;
V36= vs_base[0];
if((V36)==Cnil){
goto T85;}
{object V37 = Cnil;
VMR17(V37)}
T85:;
base[0]= (V32);
vs_top=(vs_base=base+0)+1;
siLdisplaced_array_p();
vs_top=sup;
V38= vs_base[0];
{object V39 = ((V38)==Cnil?Ct:Cnil);
VMR17(V39)}
}
/* function definition for TYPEP */
static L18()
{register object *base=vs_base;
register object *sup=base+VM18; VC18
vs_reserve(VM18);
{register object V40;
register object V41;
check_arg(2);
V40=(base[0]);
V41=(base[1]);
vs_top=sup;
TTL:;
{object V42;
object V43;
object V44;
V42= Cnil;
V43= Cnil;
V44= Cnil;
if(!(type_of((V41))!=t_cons)){
goto T96;}
V42= (V41);
V43= Cnil;
goto T94;
T96:;
V42= car((V41));
V43= cdr((V41));
T94:;
{object V45;
V45= get((V42),VV[27],Cnil);
if(((V45))==Cnil){
goto T104;}
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
super_funcall_no_event((V45));
return;}
T104:;
{object V46= (V42);
if((V46!= VV[36]))goto T109;
{register object x= (V40),V47= (V43);
while(!endp(V47))
if(eql(x,V47->c.c_car)){
base[2]= V47;
vs_top=(vs_base=base+2)+1;
return;
}else V47=V47->c.c_cdr;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;}
T109:;
if((V46!= VV[39]))goto T110;
base[2]= (V40);
base[3]= car((V43));
vs_top=(vs_base=base+2)+2;
(void) (*Lnk73)();
vs_top=sup;
V48= vs_base[0];
base[2]= ((V48)==Cnil?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
T110:;
if((V46!= VV[37]))goto T114;
{object V49;
V49= (V43);
T117:;
if(((V49))!=Cnil){
goto T118;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T118:;
base[2]= (V40);
base[3]= car((V49));
vs_top=(vs_base=base+2)+2;
(void) (*Lnk73)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T122;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T122:;
V49= cdr((V49));
goto T117;}
T114:;
if((V46!= VV[38]))goto T130;
{object V50;
V50= (V43);
T133:;
if(((V50))!=Cnil){
goto T134;}
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T134:;
base[2]= (V40);
base[3]= car((V50));
vs_top=(vs_base=base+2)+2;
(void) (*Lnk73)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T138;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T138:;
V50= cdr((V50));
goto T133;}
T130:;
if((V46!= VV[74]))goto T146;
base[2]= car((V43));
base[3]= (V40);
vs_top=(vs_base=base+3)+1;
super_funcall_no_event(base[2]);
return;
T146:;
if((V46!= Ct))goto T149;
base[2]= Ct;
vs_top=(vs_base=base+2)+1;
return;
T149:;
if((V46!= Cnil))goto T150;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T150:;
if((V46!= VV[28]))goto T151;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Ltype_of();
vs_top=sup;
V51= vs_base[0];
base[2]= ((V51)==(VV[28])?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
T151:;
if((V46!= VV[29]))goto T154;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Ltype_of();
vs_top=sup;
V52= vs_base[0];
base[2]= ((V52)==(VV[29])?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
T154:;
if((V46!= VV[30]))goto T157;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Ltype_of();
vs_top=sup;
V53= vs_base[0];
base[2]= ((V53)==(VV[30])?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
T157:;
if((V46!= VV[75]))goto T160;
if(type_of((V40))==t_character){
goto T161;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T161:;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Lstandard_char_p();
return;
T160:;
if((V46!= VV[24]))goto T164;
if(type_of((V40))==t_character){
goto T165;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T165:;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Lstring_char_p();
return;
T164:;
if((V46!= VV[13]))goto T168;
if(type_of((V40))==t_fixnum||type_of((V40))==t_bignum){
goto T169;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T169:;
base[2]= (*(LnkLI76))((V40),(V43));
vs_top=(vs_base=base+2)+1;
return;
T168:;
if((V46!= VV[59]))goto T171;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk77)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T172;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T172:;
base[2]= (*(LnkLI76))((V40),(V43));
vs_top=(vs_base=base+2)+1;
return;
T171:;
if((V46!= VV[60]))goto T175;
if(type_of((V40))==t_shortfloat||type_of((V40))==t_longfloat){
goto T176;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T176:;
base[2]= (*(LnkLI76))((V40),(V43));
vs_top=(vs_base=base+2)+1;
return;
T175:;
if((V46!= VV[31]))goto T178;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Ltype_of();
vs_top=sup;
V54= vs_base[0];
if((V54)==(VV[31])){
goto T179;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T179:;
base[2]= (*(LnkLI76))((V40),(V43));
vs_top=(vs_base=base+2)+1;
return;
T178:;
if((V46!= VV[78])
&& (V46!= VV[79])
&& (V46!= VV[32]))goto T183;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Ltype_of();
vs_top=sup;
V55= vs_base[0];
if((V55)==(VV[32])){
goto T184;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T184:;
base[2]= (*(LnkLI76))((V40),(V43));
vs_top=(vs_base=base+2)+1;
return;
T183:;
if((V46!= VV[63]))goto T188;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Lcomplexp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T189;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T189:;
if(!(((V43))==Cnil)){
goto T192;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T192:;
base[4]= (V40);
vs_top=(vs_base=base+4)+1;
Lrealpart();
vs_top=sup;
base[3]= vs_base[0];
base[4]= car((V43));
vs_top=(vs_base=base+3)+2;
(void) (*Lnk73)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T194;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T194:;
base[3]= (V40);
vs_top=(vs_base=base+3)+1;
Limagpart();
vs_top=sup;
V40= vs_base[0];
V41= car((V43));
goto TTL;
T188:;
if((V46!= VV[43]))goto T203;
if(!(type_of((V40))==t_cons||((V40))==Cnil)){
goto T204;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T204:;
base[3]= (type_of((V40))==t_vector||
type_of((V40))==t_string||
type_of((V40))==t_bitvector?Ct:Cnil);
vs_top=(vs_base=base+3)+1;
return;
T203:;
if((V46!= VV[80]))goto T206;
if(type_of((V40))==t_string){
goto T207;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T207:;
if(!(((V43))==Cnil)){
goto T209;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T209:;
V56= (*(LnkLI82))((V40));
base[3]= (*(LnkLI81))(/* INLINE-ARGS */V56,(V43));
vs_top=(vs_base=base+3)+1;
return;
T206:;
if((V46!= VV[83]))goto T211;
if((type_of((V40))==t_bitvector)){
goto T212;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T212:;
if(!(((V43))==Cnil)){
goto T214;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T214:;
V57= (*(LnkLI82))((V40));
base[3]= (*(LnkLI81))(/* INLINE-ARGS */V57,(V43));
vs_top=(vs_base=base+3)+1;
return;
T211:;
if((V46!= VV[84]))goto T216;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Lsimple_string_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T217;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T217:;
if(!(((V43))==Cnil)){
goto T220;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T220:;
V58= (*(LnkLI82))((V40));
base[3]= (*(LnkLI81))(/* INLINE-ARGS */V58,(V43));
vs_top=(vs_base=base+3)+1;
return;
T216:;
if((V46!= VV[85]))goto T222;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Lsimple_bit_vector_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T223;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T223:;
if(!(((V43))==Cnil)){
goto T226;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T226:;
V59= (*(LnkLI82))((V40));
base[3]= (*(LnkLI81))(/* INLINE-ARGS */V59,(V43));
vs_top=(vs_base=base+3)+1;
return;
T222:;
if((V46!= VV[86]))goto T228;
base[2]= (V40);
vs_top=(vs_base=base+2)+1;
Lsimple_vector_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T229;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T229:;
if(!(((V43))==Cnil)){
goto T232;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T232:;
V60= (*(LnkLI82))((V40));
base[3]= (*(LnkLI81))(/* INLINE-ARGS */V60,(V43));
vs_top=(vs_base=base+3)+1;
return;
T228:;
if((V46!= VV[26]))goto T234;
if(((*(LnkLI87))((V40)))!=Cnil){
goto T235;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T235:;
if(!(endp((V43)))){
goto T239;}
goto T237;
T239:;
if(!((car((V43)))==(VV[17]))){
goto T241;}
goto T237;
T241:;
base[3]= (V40);
vs_top=(vs_base=base+3)+1;
Larray_element_type();
vs_top=sup;
V61= vs_base[0];
V62= (*(LnkLI88))(car((V43)));
if(equal(V61,/* INLINE-ARGS */V62)){
goto T237;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T237:;
if(!(endp(cdr((V43))))){
goto T245;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T245:;
if(!((cadr((V43)))==(VV[17]))){
goto T247;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T247:;
V63= (*(LnkLI82))((V40));
base[3]= (*(LnkLI81))(/* INLINE-ARGS */V63,cadr((V43)));
vs_top=(vs_base=base+3)+1;
return;
T234:;
if((V46!= VV[22]))goto T249;
if(type_of((V40))==t_array||
type_of((V40))==t_vector||
type_of((V40))==t_string||
type_of((V40))==t_bitvector){
goto T250;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T250:;
if(!(endp((V43)))){
goto T254;}
goto T252;
T254:;
if(!((car((V43)))==(VV[17]))){
goto T256;}
goto T252;
T256:;
base[3]= (V40);
vs_top=(vs_base=base+3)+1;
Larray_element_type();
vs_top=sup;
V64= vs_base[0];
V65= (*(LnkLI88))(car((V43)));
if(equal(V64,/* INLINE-ARGS */V65)){
goto T252;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T252:;
if(!(endp(cdr((V43))))){
goto T260;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T260:;
if(!((cadr((V43)))==(VV[17]))){
goto T262;}
base[3]= Ct;
vs_top=(vs_base=base+3)+1;
return;
T262:;
V66= (*(LnkLI82))((V40));
base[3]= (*(LnkLI81))(/* INLINE-ARGS */V66,cadr((V43)));
vs_top=(vs_base=base+3)+1;
return;
T249:;
V44= get((V42),VV[33],Cnil);
if(((V44))==Cnil){
goto T265;}
base[2]= (V40);
base[3]= (V44);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk89)();
return;
T265:;
if((get((V42),VV[34],Cnil))==Cnil){
goto T271;}
base[2]= get((V42),VV[34],Cnil);
{object V67;
V67= (V43);
vs_top=base+3;
while(!endp(V67))
{vs_push(car(V67));V67=cdr(V67);}
vs_base=base+3;}
super_funcall_no_event(base[2]);
vs_top=sup;
V41= vs_base[0];
goto TTL;
T271:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;}}
}
}
/* local entry for function NORMALIZE-TYPE */
static object LI19(V69)
register object V69;
{ VMB19 VMS19 VMV19
TTL:;
{object V70;
object V71;
V70= Cnil;
V71= Cnil;
T281:;
if(!(type_of((V69))!=t_cons)){
goto T285;}
V70= (V69);
V71= Cnil;
goto T283;
T285:;
V70= car((V69));
V71= cdr((V69));
T283:;
if((get((V70),VV[34],Cnil))==Cnil){
goto T294;}
base[0]= get((V70),VV[34],Cnil);
{object V72;
V72= (V71);
vs_top=base+1;
while(!endp(V72))
{vs_push(car(V72));V72=cdr(V72);}
vs_base=base+1;}
super_funcall_no_event(base[0]);
vs_top=sup;
V69= vs_base[0];
goto T282;
T294:;
if(!(type_of((V69))!=t_cons)){
goto T300;}
{object V73 = make_cons((V69),Cnil);
VMR19(V73)}
T300:;
{object V74 = (V69);
VMR19(V74)}
T282:;
goto T281;}
}
/* local entry for function KNOWN-TYPE-P */
static object LI20(V76)
register object V76;
{ VMB20 VMS20 VMV20
TTL:;
if(!(type_of((V76))==t_cons)){
goto T303;}
V76= car((V76));
T303:;
{register object x= (V76),V77= VV[35];
while(!endp(V77))
if(eql(x,V77->c.c_car)){
goto T307;
}else V77=V77->c.c_cdr;}
if((get((V76),VV[33],Cnil))==Cnil){
goto T308;}
T307:;
{object V78 = Ct;
VMR20(V78)}
T308:;
{object V79 = Cnil;
VMR20(V79)}
}
/* function definition for SUBTYPEP */
static L21()
{register object *base=vs_base;
register object *sup=base+VM21; VC21
vs_reserve(VM21);
{object V80;
object V81;
check_arg(2);
V80=(base[0]);
V81=(base[1]);
vs_top=sup;
TTL:;
{object V82;
object V83;
object V84;
object V85;
object V86;
object V87;
object V88;
V82= Cnil;
V83= Cnil;
V84= Cnil;
V85= Cnil;
V86= Cnil;
V87= Cnil;
V88= Cnil;
V80= (*(LnkLI90))((V80));
V81= (*(LnkLI90))((V81));
if(!(equal((V80),(V81)))){
goto T323;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T323:;
V82= car((V80));
V83= car((V81));
V84= cdr((V80));
V85= cdr((V81));
if(!(((V82))==(VV[36]))){
goto T338;}
{object V89;
object V90;
V89= (V84);
V90= car((V89));
T344:;
if(!(endp((V89)))){
goto T345;}
goto T340;
T345:;
base[2]= (V90);
base[3]= (V81);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk73)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T349;}
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T349:;
V89= cdr((V89));
V90= car((V89));
goto T344;}
T340:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T338:;
if(!(((V82))==(VV[37]))){
goto T364;}
{object V91;
object V92;
V91= (V84);
V92= car((V91));
T370:;
if(!(endp((V91)))){
goto T371;}
goto T366;
T371:;
{object V93;
object V94;
base[2]= (V92);
base[3]= (V81);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk91)();
if(vs_base>=vs_top){vs_top=sup;goto T379;}
V93= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T380;}
V94= vs_base[0];
vs_top=sup;
goto T381;
T379:;
V93= Cnil;
T380:;
V94= Cnil;
T381:;
if(((V93))!=Cnil){
goto T375;}
base[2]= (V93);
base[3]= (V94);
vs_top=(vs_base=base+2)+2;
return;}
T375:;
V91= cdr((V91));
V92= car((V91));
goto T370;}
T366:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T364:;
if(!(((V82))==(VV[38]))){
goto T394;}
{object V95;
object V96;
V95= (V84);
V96= car((V95));
T400:;
if(!(endp((V95)))){
goto T401;}
goto T396;
T401:;
{object V97;
base[2]= (V96);
base[3]= (V81);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk91)();
vs_top=sup;
V97= vs_base[0];
if(((V97))==Cnil){
goto T405;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;}
T405:;
V95= cdr((V95));
V96= car((V95));
goto T400;}
T396:;
base[2]= Cnil;
base[3]= Cnil;
vs_top=(vs_base=base+2)+2;
return;
T394:;
if(!(((V82))==(VV[39]))){
goto T336;}
if(!(((V83))==(VV[39]))){
goto T423;}
V80= car((V85));
V81= car((V84));
goto TTL;
T423:;
V80= Ct;
V81= list(3,VV[37],(V81),car((V84)));
goto TTL;
T336:;
if(!(((V83))==(VV[36]))){
goto T433;}
base[2]= Cnil;
base[3]= Cnil;
vs_top=(vs_base=base+2)+2;
return;
T433:;
if(!(((V83))==(VV[37]))){
goto T438;}
{object V98;
object V99;
V98= (V85);
V99= car((V98));
T444:;
if(!(endp((V98)))){
goto T445;}
goto T440;
T445:;
{object V100;
base[2]= (V80);
base[3]= (V99);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk91)();
vs_top=sup;
V100= vs_base[0];
if(((V100))==Cnil){
goto T449;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;}
T449:;
V98= cdr((V98));
V99= car((V98));
goto T444;}
T440:;
base[2]= Cnil;
base[3]= Cnil;
vs_top=(vs_base=base+2)+2;
return;
T438:;
if(!(((V83))==(VV[38]))){
goto T465;}
{object V101;
object V102;
V101= (V85);
V102= car((V101));
T471:;
if(!(endp((V101)))){
goto T472;}
goto T467;
T472:;
{object V103;
object V104;
base[2]= (V80);
base[3]= (V102);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk91)();
if(vs_base>=vs_top){vs_top=sup;goto T480;}
V103= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T481;}
V104= vs_base[0];
vs_top=sup;
goto T482;
T480:;
V103= Cnil;
T481:;
V104= Cnil;
T482:;
if(((V103))!=Cnil){
goto T476;}
base[2]= (V103);
base[3]= (V104);
vs_top=(vs_base=base+2)+2;
return;}
T476:;
V101= cdr((V101));
V102= car((V101));
goto T471;}
T467:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T465:;
if(!(((V83))==(VV[39]))){
goto T431;}
V80= list(3,VV[38],(V80),car((V85)));
V81= Cnil;
goto TTL;
T431:;
V86= (*(LnkLI92))((V80));
V87= (*(LnkLI92))((V81));
if(((V82))==(Cnil)){
goto T503;}
if(((V83))==(Ct)){
goto T503;}
if(!(((V83))==(VV[40]))){
goto T504;}
T503:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T504:;
if(!(((V83))==(Cnil))){
goto T513;}
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T513:;
if(!(((V82))==(Ct))){
goto T518;}
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T518:;
if(!(((V82))==(VV[40]))){
goto T523;}
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T523:;
if(!(((V83))==(VV[41]))){
goto T528;}
{register object x= (V82),V105= VV[42];
while(!endp(V105))
if(eql(x,V105->c.c_car)){
goto T532;
}else V105=V105->c.c_cdr;
goto T531;}
T532:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T531:;
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T528:;
if(!(((V83))==(VV[43]))){
goto T538;}
{register object x= (V82),V106= VV[44];
while(!endp(V106))
if(eql(x,V106->c.c_car)){
goto T542;
}else V106=V106->c.c_cdr;
goto T541;}
T542:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T541:;
if(!(((V82))==(VV[22]))){
goto T546;}
if((cdr((V84)))==Cnil){
goto T549;}
if(!(type_of(cadr((V84)))==t_cons)){
goto T549;}
if((cdadr((V84)))!=Cnil){
goto T549;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T549:;
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T546:;
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T538:;
if(!(((V82))==(VV[41]))){
goto T562;}
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T562:;
if(!(((V82))==(VV[43]))){
goto T567;}
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T567:;
if(!(((V83))==(VV[45]))){
goto T572;}
{register object x= (V82),V107= VV[46];
while(!endp(V107))
if(eql(x,V107->c.c_car)){
goto T576;
}else V107=V107->c.c_cdr;
goto T575;}
T576:;
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T575:;
if(((V86))==Cnil){
goto T580;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T580:;
base[2]= Cnil;
base[3]= Cnil;
vs_top=(vs_base=base+2)+2;
return;
T572:;
if(!(((V82))==(VV[45]))){
goto T587;}
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T587:;
if(!(((V83))==(VV[47]))){
goto T592;}
{register object x= (V82),V108= VV[48];
while(!endp(V108))
if(eql(x,V108->c.c_car)){
goto T596;
}else V108=V108->c.c_cdr;
goto T595;}
T596:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T595:;
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T592:;
if(!(((V83))==(VV[49]))){
goto T602;}
if(!(((V82))==(VV[49]))){
goto T605;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T605:;
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T602:;
if(!(((V83))==(VV[50]))){
goto T612;}
if(!(((V82))==(VV[50]))){
goto T615;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T615:;
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T612:;
if(!(((V83))==(VV[51]))){
goto T622;}
{register object x= (V82),V109= VV[52];
while(!endp(V109))
if(eql(x,V109->c.c_car)){
goto T626;
}else V109=V109->c.c_cdr;
goto T625;}
T626:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T625:;
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T622:;
if(!(((V82))==(VV[51]))){
goto T632;}
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T632:;
if(!(((V83))==(VV[53]))){
goto T637;}
if(((V82))==(VV[53])){
goto T639;}
if((get((V82),VV[33],Cnil))==Cnil){
goto T640;}
T639:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T640:;
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T637:;
if(!(((V82))==(VV[53]))){
goto T649;}
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T649:;
V88= get((V82),VV[33],Cnil);
if(((V88))==Cnil){
goto T654;}
{object V110;
V110= get((V83),VV[33],Cnil);
if(((V110))==Cnil){
goto T659;}
{object V111;
object V112;
V111= (V88);
V112= (V110);
T664:;
if(((V111))!=Cnil){
goto T665;}
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T665:;
if(!(((V111))==((V112)))){
goto T671;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T671:;
V111= structure_ref((V111),VV[33],4);
goto T664;}
T659:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;}
T654:;
if((get((V83),VV[33],Cnil))==Cnil){
goto T682;}
base[2]= Cnil;
base[3]= (V86);
vs_top=(vs_base=base+2)+2;
return;
T682:;
{object V113= (V82);
if((V113!= VV[29]))goto T686;
{object V114= (V83);
if((V114!= VV[29]))goto T687;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T687:;
if((V114!= VV[13])
&& (V114!= VV[59]))goto T690;
if(((*(LnkLI93))(VV[54],(V85)))==Cnil){
goto T692;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T692:;
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T690:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;}
T686:;
if((V113!= VV[30]))goto T700;
{object V115= (V83);
if((V115!= VV[30]))goto T701;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T701:;
if((V115!= VV[59]))goto T704;
if(((*(LnkLI93))(VV[55],(V85)))==Cnil){
goto T706;}
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T706:;
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T704:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;}
T700:;
if((V113!= VV[75]))goto T714;
{register object x= (V83),V116= VV[56];
while(!endp(V116))
if(eql(x,V116->c.c_car)){
goto T717;
}else V116=V116->c.c_cdr;
goto T716;}
T717:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T716:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T714:;
if((V113!= VV[24]))goto T722;
{register object x= (V83),V117= VV[57];
while(!endp(V117))
if(eql(x,V117->c.c_car)){
goto T725;
}else V117=V117->c.c_cdr;
goto T724;}
T725:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T724:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T722:;
if((V113!= VV[13]))goto T730;
{register object x= (V83),V118= VV[58];
while(!endp(V118))
if(eql(x,V118->c.c_car)){
goto T733;
}else V118=V118->c.c_cdr;
goto T732;}
T733:;
base[2]= (*(LnkLI93))((V84),(V85));
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T732:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T730:;
if((V113!= VV[59]))goto T738;
if(!(((V83))==(VV[59]))){
goto T740;}
base[2]= (*(LnkLI93))((V84),(V85));
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T740:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T738:;
if((V113!= VV[60]))goto T746;
if(!(((V83))==(VV[60]))){
goto T748;}
base[2]= (*(LnkLI93))((V84),(V85));
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T748:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T746:;
if((V113!= VV[31]))goto T754;
{register object x= (V83),V119= VV[61];
while(!endp(V119))
if(eql(x,V119->c.c_car)){
goto T757;
}else V119=V119->c.c_cdr;
goto T756;}
T757:;
base[2]= (*(LnkLI93))((V84),(V85));
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T756:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T754:;
if((V113!= VV[78])
&& (V113!= VV[79])
&& (V113!= VV[32]))goto T762;
{register object x= (V83),V120= VV[62];
while(!endp(V120))
if(eql(x,V120->c.c_car)){
goto T765;
}else V120=V120->c.c_cdr;
goto T764;}
T765:;
base[2]= (*(LnkLI93))((V84),(V85));
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T764:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T762:;
if((V113!= VV[63]))goto T770;
if(!(((V83))==(VV[63]))){
goto T772;}
base[2]= car((V84));
if(base[2]==Cnil)goto T776;
V80= base[2];
goto T775;
T776:;
V80= Ct;
T775:;
base[2]= car((V85));
if(base[2]==Cnil)goto T779;
V81= base[2];
goto T778;
T779:;
V81= Ct;
T778:;
goto TTL;
T772:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T770:;
if((V113!= VV[26]))goto T783;
if(((V83))==(VV[26])){
goto T784;}
if(!(((V83))==(VV[22]))){
goto T785;}
T784:;
if(endp((V84))){
goto T790;}
if(!((car((V84)))==(VV[17]))){
goto T791;}
T790:;
if(endp((V85))){
goto T789;}
if((car((V85)))==(VV[17])){
goto T789;}
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T791:;
if(endp((V85))){
goto T789;}
if((car((V85)))==(VV[17])){
goto T789;}
if(equal(car((V84)),car((V85)))){
goto T789;}
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T789:;
if(endp(cdr((V84)))){
goto T810;}
if(!((cadr((V84)))==(VV[17]))){
goto T809;}
T810:;
if(endp(cdr((V85)))){
goto T814;}
if(!((cadr((V85)))==(VV[17]))){
goto T815;}
T814:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T815:;
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T809:;
if(endp(cdr((V85)))){
goto T824;}
if(!((cadr((V85)))==(VV[17]))){
goto T823;}
T824:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T823:;
base[2]= (*(LnkLI81))(cadr((V84)),cadr((V85)));
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T785:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T783:;
if((V113!= VV[22]))goto T834;
if(!(((V83))==(VV[22]))){
goto T836;}
if(endp((V84))){
goto T839;}
if(!((car((V84)))==(VV[17]))){
goto T840;}
T839:;
if(endp((V85))){
goto T838;}
if((car((V85)))==(VV[17])){
goto T838;}
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T840:;
if(endp((V85))){
goto T838;}
if((car((V85)))==(VV[17])){
goto T838;}
if(equal(car((V84)),car((V85)))){
goto T838;}
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T838:;
if(endp(cdr((V84)))){
goto T859;}
if(!((cadr((V84)))==(VV[17]))){
goto T858;}
T859:;
if(endp(cdr((V85)))){
goto T863;}
if(!((cadr((V85)))==(VV[17]))){
goto T864;}
T863:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T864:;
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T858:;
if(endp(cdr((V85)))){
goto T873;}
if(!((cadr((V85)))==(VV[17]))){
goto T872;}
T873:;
base[2]= Ct;
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T872:;
base[2]= (*(LnkLI81))(cadr((V84)),cadr((V85)));
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T836:;
base[2]= Cnil;
base[3]= (V87);
vs_top=(vs_base=base+2)+2;
return;
T834:;
if(((V86))==Cnil){
goto T884;}
base[2]= (((V82))==((V83))?Ct:Cnil);
base[3]= Ct;
vs_top=(vs_base=base+2)+2;
return;
T884:;
base[2]= Cnil;
base[3]= Cnil;
vs_top=(vs_base=base+2)+2;
return;}}
}
}
/* local entry for function SUB-INTERVAL-P */
static object LI22(V123,V124)
register object V123;register object V124;
{ VMB22 VMS22 VMV22
TTL:;
{object V125;
object V126;
object V127;
object V128;
V125= Cnil;
V126= Cnil;
V127= Cnil;
V128= Cnil;
if(!(endp((V123)))){
goto T896;}
V125= VV[17];
V126= VV[17];
goto T894;
T896:;
if(!(endp(cdr((V123))))){
goto T902;}
V125= car((V123));
V126= VV[17];
goto T894;
T902:;
V125= car((V123));
V126= cadr((V123));
T894:;
if(!(endp((V124)))){
goto T912;}
V127= VV[17];
V128= VV[17];
goto T910;
T912:;
if(!(endp(cdr((V124))))){
goto T918;}
V127= car((V124));
V128= VV[17];
goto T910;
T918:;
V127= car((V124));
V128= cadr((V124));
T910:;
if(!(((V125))==(VV[17]))){
goto T928;}
if(((V127))==(VV[17])){
goto T926;}
{object V129 = Cnil;
VMR22(V129)}
T928:;
{object V130;
V130= (((V127))==(VV[17])?Ct:Cnil);
if(((V130))==Cnil){
goto T934;}
goto T926;
T934:;
if(!(type_of((V125))==t_cons)){
goto T937;}
if(!(type_of((V127))==t_cons)){
goto T940;}
if(!(number_compare(car((V125)),car((V127)))<0)){
goto T926;}
{object V131 = Cnil;
VMR22(V131)}
T940:;
if(!(number_compare(car((V125)),(V127))<0)){
goto T926;}
{object V132 = Cnil;
VMR22(V132)}
T937:;
{object V133;
if(!(type_of((V127))==t_cons)){
goto T948;}
if(!(number_compare((V125),car((V127)))<=0)){
goto T951;}
{object V134 = Cnil;
VMR22(V134)}
T951:;
V133= Cnil;
goto T946;
T948:;
if(!(number_compare((V125),(V127))<0)){
goto T954;}
{object V135 = Cnil;
VMR22(V135)}
T954:;
V133= Cnil;
T946:;
if(((V133))==Cnil){
goto T926;}}}
T926:;
if(!(((V126))==(VV[17]))){
goto T960;}
if(((V128))==(VV[17])){
goto T958;}
{object V136 = Cnil;
VMR22(V136)}
T960:;
{object V137;
V137= (((V128))==(VV[17])?Ct:Cnil);
if(((V137))==Cnil){
goto T966;}
goto T958;
T966:;
if(!(type_of((V126))==t_cons)){
goto T969;}
if(!(type_of((V128))==t_cons)){
goto T972;}
if(!(number_compare(car((V126)),car((V128)))>0)){
goto T958;}
{object V138 = Cnil;
VMR22(V138)}
T972:;
if(!(number_compare(car((V126)),(V128))>0)){
goto T958;}
{object V139 = Cnil;
VMR22(V139)}
T969:;
{object V140;
if(!(type_of((V128))==t_cons)){
goto T980;}
if(!(number_compare((V126),car((V128)))>=0)){
goto T983;}
{object V141 = Cnil;
VMR22(V141)}
T983:;
V140= Cnil;
goto T978;
T980:;
if(!(number_compare((V126),(V128))>0)){
goto T986;}
{object V142 = Cnil;
VMR22(V142)}
T986:;
V140= Cnil;
T978:;
if(((V140))==Cnil){
goto T958;}}}
T958:;
{object V143 = Ct;
VMR22(V143)}}
}
/* local entry for function IN-INTERVAL-P */
static object LI23(V146,V147)
register object V146;register object V147;
{ VMB23 VMS23 VMV23
TTL:;
{object V148;
object V149;
V148= Cnil;
V149= Cnil;
if(!(endp((V147)))){
goto T994;}
V148= VV[17];
V149= VV[17];
goto T992;
T994:;
if(!(endp(cdr((V147))))){
goto T1000;}
V148= car((V147));
V149= VV[17];
goto T992;
T1000:;
V148= car((V147));
V149= cadr((V147));
T992:;
{object V150;
V150= (((V148))==(VV[17])?Ct:Cnil);
if(((V150))==Cnil){
goto T1011;}
goto T1008;
T1011:;
if(!(type_of((V148))==t_cons)){
goto T1014;}
if(!(number_compare((V146),car((V148)))<=0)){
goto T1008;}
{object V151 = Cnil;
VMR23(V151)}
T1014:;
{object V152;
if(!(number_compare((V146),(V148))<0)){
goto T1020;}
{object V153 = Cnil;
VMR23(V153)}
T1020:;
V152= Cnil;
if(((V152))==Cnil){
goto T1008;}}}
T1008:;
{object V154;
V154= (((V149))==(VV[17])?Ct:Cnil);
if(((V154))==Cnil){
goto T1027;}
goto T1024;
T1027:;
if(!(type_of((V149))==t_cons)){
goto T1030;}
if(!(number_compare((V146),car((V149)))>=0)){
goto T1024;}
{object V155 = Cnil;
VMR23(V155)}
T1030:;
{object V156;
if(!(number_compare((V146),(V149))>0)){
goto T1036;}
{object V157 = Cnil;
VMR23(V157)}
T1036:;
V156= Cnil;
if(((V156))==Cnil){
goto T1024;}}}
T1024:;
{object V158 = Ct;
VMR23(V158)}}
}
/* local entry for function MATCH-DIMENSIONS */
static object LI24(V161,V162)
object V161;register object V162;
{ VMB24 VMS24 VMV24
TTL:;
if(((V161))!=Cnil){
goto T1041;}
{object V163 = (((V162))==Cnil?Ct:Cnil);
VMR24(V163)}
T1041:;
if(!((car((V162)))==(VV[17]))){
goto T1045;}
goto T1043;
T1045:;
if((car((V161)))==(car((V162)))){
goto T1043;}
{object V164 = Cnil;
VMR24(V164)}
T1043:;
V161= cdr((V161));
V162= cdr((V162));
goto TTL;
}
/* local entry for function COERCE */
static object LI25(V167,V168)
register object V167;object V168;
{ VMB25 VMS25 VMV25
TTL:;
base[0]= (V167);
base[1]= (V168);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk73)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1050;}
{object V169 = (V167);
VMR25(V169)}
T1050:;
V168= (*(LnkLI90))((V168));
{object V170= car((V168));
if((V170!= VV[41]))goto T1057;
{object V171;
object V172;
V171= Cnil;
V173 = make_fixnum(length((V167)));
V172= one_minus(V173);
T1061:;
if(!(number_compare((V172),small_fixnum(0))<0)){
goto T1062;}
{object V174 = (V171);
VMR25(V174)}
T1062:;
V175= elt((V167),fixint((V172)));
V171= make_cons(/* INLINE-ARGS */V175,(V171));
V172= one_minus((V172));
goto T1061;}
T1057:;
if((V170!= VV[22])
&& (V170!= VV[26]))goto T1070;
if(endp(cdr((V168)))){
goto T1071;}
if(endp(cddr((V168)))){
goto T1071;}
if((caddr((V168)))==(VV[17])){
goto T1071;}
if(endp(cdr(caddr((V168))))){
goto T1071;}
base[0]= VV[64];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T1071:;
{object V176;
object V177;
object V178;
V179 = make_fixnum(length((V167)));
V176= (VFUN_NARGS=2,(*(LnkLI94))((V168),V179));
V177= small_fixnum(0);
V178= make_fixnum(length((V167)));
T1085:;
if(!(number_compare((V177),(V178))>=0)){
goto T1086;}
{object V180 = (V176);
VMR25(V180)}
T1086:;
V181= elt((V167),fixint((V177)));
(void)(elt_set((V176),fixint((V177)),/* INLINE-ARGS */V181));
V177= one_plus((V177));
goto T1085;}
T1070:;
if((V170!= VV[95]))goto T1094;
base[0]= (V167);
vs_top=(vs_base=base+0)+1;
Lcharacter();
vs_top=sup;
{object V182 = vs_base[0];
VMR25(V182)}
T1094:;
if((V170!= VV[60]))goto T1096;
base[0]= (V167);
vs_top=(vs_base=base+0)+1;
Lfloat();
vs_top=sup;
{object V183 = vs_base[0];
VMR25(V183)}
T1096:;
if((V170!= VV[31]))goto T1098;
base[0]= (V167);
base[1]= VV[65];
vs_top=(vs_base=base+0)+2;
Lfloat();
vs_top=sup;
{object V184 = vs_base[0];
VMR25(V184)}
T1098:;
if((V170!= VV[78])
&& (V170!= VV[79])
&& (V170!= VV[32]))goto T1101;
base[0]= (V167);
base[1]= VV[66];
vs_top=(vs_base=base+0)+2;
Lfloat();
vs_top=sup;
{object V185 = vs_base[0];
VMR25(V185)}
T1101:;
if((V170!= VV[63]))goto T1104;
if((cdr((V168)))==Cnil){
goto T1105;}
if((cadr((V168)))==Cnil){
goto T1105;}
if(!((cadr((V168)))==(VV[17]))){
goto T1106;}
T1105:;
base[1]= (V167);
vs_top=(vs_base=base+1)+1;
Lrealpart();
vs_top=sup;
base[0]= vs_base[0];
base[2]= (V167);
vs_top=(vs_base=base+2)+1;
Limagpart();
vs_top=sup;
base[1]= vs_base[0];
vs_top=(vs_base=base+0)+2;
Lcomplex();
vs_top=sup;
{object V186 = vs_base[0];
VMR25(V186)}
T1106:;
base[1]= (V167);
vs_top=(vs_base=base+1)+1;
Lrealpart();
vs_top=sup;
V187= vs_base[0];
base[0]= (*(LnkLI96))(V187,cadr((V168)));
base[2]= (V167);
vs_top=(vs_base=base+2)+1;
Limagpart();
vs_top=sup;
V188= vs_base[0];
base[1]= (*(LnkLI96))(V188,cadr((V168)));
vs_top=(vs_base=base+0)+2;
Lcomplex();
vs_top=sup;
{object V189 = vs_base[0];
VMR25(V189)}
T1104:;
base[0]= VV[67];
base[1]= (V167);
base[2]= (V168);
vs_top=(vs_base=base+0)+3;
Lerror();
vs_top=sup;
{object V190 = vs_base[0];
VMR25(V190)}}
}
/* function definition for WARN-VERSION */
static L26()
{register object *base=vs_base;
register object *sup=base+VM26; VC26
vs_reserve(VM26);
{object V191;
check_arg(1);
V191=(base[0]);
vs_top=sup;
TTL:;
if(symbol_value(VV[68])==Cnil){
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
if(((eql((V191),symbol_value(VV[68]))?Ct:Cnil))==Cnil){
goto T1125;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T1125:;
if(symbol_value(VV[69])==Cnil){
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
base[1]= Ct;
base[2]= VV[70];
base[3]= (V191);
vs_top=(vs_base=base+1)+3;
Lformat();
return;
}
}
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,2,ap);} /* COERCE */
static object LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[94],&LnkLI94,ap);} /* MAKE-SEQUENCE */
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],&LnkLI93,2,ap);} /* SUB-INTERVAL-P */
static object LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],&LnkLI92,1,ap);} /* KNOWN-TYPE-P */
static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* SUBTYPEP */
static object LnkTLI90(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[90],&LnkLI90,1,ap);} /* NORMALIZE-TYPE */
static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* STRUCTURE-SUBTYPE-P */
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],&LnkLI88,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
static object LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[87],&LnkLI87,1,ap);} /* SIMPLE-ARRAY-P */
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[82],&LnkLI82,1,ap);} /* ARRAY-DIMENSIONS */
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,2,ap);} /* MATCH-DIMENSIONS */
static LnkT77(){ call_or_link(VV[77],&Lnk77);} /* RATIONALP */
static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,2,ap);} /* IN-INTERVAL-P */
static LnkT73(){ call_or_link(VV[73],&Lnk73);} /* TYPEP */
static LnkT72(){ call_or_link(VV[72],&Lnk72);} /* ARRAY-HAS-FILL-POINTER-P */
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,1,ap);} /* FIND-DOCUMENTATION */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.