This is cmpeval.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmpeval.h"
init_cmpeval(){do_init(VV);}
/* local entry for function C1EXPR* */
static object LI1(V3,V4)
register object V3;object V4;
{ VMB1 VMS1 VMV1
TTL:;
V3= (*(LnkLI122))((V3));
(void)((*(LnkLI123))((V4),cadr((V3))));
{object V5 = (V3);
VMR1(V5)}
}
/* local entry for function C1EXPR */
static object LI2(V7)
register object V7;
{ VMB2 VMS2 VMV2
TTL:;
frs_push(FRS_CATCH,VV[0]);
if(nlj_active)
{nlj_active=FALSE;frs_pop();
vs_top=sup;
V7= vs_base[0];
goto T5;}
else{
if(!(type_of((V7))==t_symbol)){
goto T8;}
if(!(((V7))==(Cnil))){
goto T11;}
V8= (*(LnkLI124))();
frs_pop();
V7= V8;
goto T5;
T11:;
if(!(((V7))==(Ct))){
goto T14;}
V9= (*(LnkLI125))();
frs_pop();
V7= V9;
goto T5;
T14:;
if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){
goto T17;}
V10= (*(LnkLI127))((V7));
V11= (VFUN_NARGS=2,(*(LnkLI126))(VV[2],/* INLINE-ARGS */V10));
V12= list(3,VV[1],/* INLINE-ARGS */V11,list(2,VV[3],(*(LnkLI128))((V7))));
frs_pop();
V7= V12;
goto T5;
T17:;
base[0]= (V7);
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T20;}
{object V13;
base[0]= (V7);
vs_top=(vs_base=base+0)+1;
Lsymbol_value();
vs_top=sup;
V13= vs_base[0];
base[0]= (*(LnkLI129))((V13),Cnil);
if(base[0]==Cnil)goto T25;
frs_pop();
V7= base[0];
goto T5;
T25:;
V14= (*(LnkLI127))((V13));
V15= (VFUN_NARGS=2,(*(LnkLI126))(VV[2],/* INLINE-ARGS */V14));
V16= list(3,VV[1],/* INLINE-ARGS */V15,list(2,VV[3],(*(LnkLI130))((V7))));
frs_pop();
V7= V16;
goto T5;}
T20:;
V17= (*(LnkLI131))((V7));
frs_pop();
V7= V17;
goto T5;
T8:;
if(!(type_of((V7))==t_cons)){
goto T28;}
{object V18;
V18= car((V7));
if(!(type_of((V18))==t_symbol)){
goto T32;}
base[0]= (V18);
base[1]= cdr((V7));
vs_top=(vs_base=base+0)+2;
(void) (*Lnk132)();
vs_top=sup;
frs_pop();
V7= vs_base[0];
goto T5;
T32:;
if(!(type_of((V18))==t_cons)){
goto T37;}
if(!((car((V18)))==(VV[4]))){
goto T37;}
V19= (*(LnkLI133))(cdr((V18)),cdr((V7)));
frs_pop();
V7= V19;
goto T5;
T37:;
if(!(type_of((V18))==t_cons)){
goto T42;}
if(!((car((V18)))==(VV[5]))){
goto T42;}
V20= (VFUN_NARGS=1,(*(LnkLI134))(VV[6]));
frs_pop();
V7= V20;
goto T5;
T42:;
V21= (VFUN_NARGS=2,(*(LnkLI134))(VV[7],(V18)));
frs_pop();
V7= V21;
goto T5;}
T28:;
V22= (*(LnkLI129))((V7),Ct);
frs_pop();
V7= V22;}
T5:;
if(!(((V7))==(VV[8]))){
goto T47;}
{object V23 = (*(LnkLI124))();
VMR2(V23)}
T47:;
{object V24 = (V7);
VMR2(V24)}
}
/* local entry for function C1SHARP-COMMA */
static object LI3(V26)
object V26;
{ VMB3 VMS3 VMV3
TTL:;
V27= make_cons(VV[5],(V26));
{object V28 = (*(LnkLI129))(/* INLINE-ARGS */V27,Ct);
VMR3(V28)}
}
/* local entry for function C1DEFINE-STRUCTURE */
static object LI4(V30)
object V30;
{ VMB4 VMS4 VMV4
bds_check;
TTL:;
bds_bind(VV[9],Cnil);
base[1]= make_cons(VV[10],(V30));
vs_top=(vs_base=base+1)+1;
Leval();
vs_top=sup;
V31= listA(3,VV[5],VV[10],(V30));
(void)((*(LnkLI129))(/* INLINE-ARGS */V31,Ct));
(void)((*(LnkLI135))());
{object V32 = Cnil;
bds_unwind1;
VMR4(V32)}
}
/* local entry for function C1NIL */
static object LI5()
{ VMB5 VMS5 VMV5
TTL:;
{object V33 = symbol_value(VV[11]);
VMR5(V33)}
}
/* local entry for function C1T */
static object LI6()
{ VMB6 VMS6 VMV6
TTL:;
{object V34 = symbol_value(VV[12]);
VMR6(V34)}
}
/* function definition for FLAGS-POS */
static L7()
{register object *base=vs_base;
register object *sup=base+VM7; VC7
vs_reserve(VM7);
{register object V35;
check_arg(1);
V35=(base[0]);
vs_top=sup;
TTL:;
{int V36;
V36= 0;
{object V37;
object V38;
V37= VV[13];
V38= car((V37));
T58:;
if(!(endp((V37)))){
goto T59;}
goto T54;
T59:;
{register object x= (V35),V39= (V38);
while(!endp(V39))
if(x==(V39->c.c_car)){
goto T65;
}else V39=V39->c.c_cdr;
goto T63;}
T65:;
base[1]= make_fixnum(V36);
vs_top=(vs_base=base+1)+1;
return;
T63:;
V36= (V36)+(1);
V37= cdr((V37));
V38= car((V37));
goto T58;}
T54:;
base[1]= VV[14];
vs_top=(vs_base=base+1)+1;
Lerror();
return;}
}
}
/* macro definition for FLAG-P */
static L8()
{register object *base=vs_base;
register object *sup=base+VM8; VC8
vs_reserve(VM8);
check_arg(2);
vs_top=sup;
{object V40=base[0]->c.c_cdr;
if(endp(V40))invalid_macro_call();
base[2]= (V40->c.c_car);
V40=V40->c.c_cdr;
if(endp(V40))invalid_macro_call();
base[3]= (V40->c.c_car);
V40=V40->c.c_cdr;
if(!endp(V40))invalid_macro_call();}
base[4]= base[3];
vs_top=(vs_base=base+4)+1;
(void) (*Lnk136)();
vs_top=sup;
V41= vs_base[0];
base[4]= list(3,VV[15],V41,base[2]);
vs_top=(vs_base=base+4)+1;
return;
}
/* function definition for FIX-OPT */
static L9()
{register object *base=vs_base;
register object *sup=base+VM9; VC9
vs_reserve(VM9);
{register object V42;
check_arg(1);
V42=(base[0]);
vs_top=sup;
TTL:;
{object V43;
V43= cddr((V42));
if(type_of(car((V43)))==t_fixnum){
goto T77;}
if((symbol_value(VV[16]))==Cnil){
goto T80;}
(void)((VFUN_NARGS=2,(*(LnkLI137))(VV[17],(V42))));
T80:;
{object V44;
object V45;
V44= (V42);
if((car((V43)))==Cnil){
goto T88;}
base[1]= small_fixnum(2);
goto T86;
T88:;
base[1]= small_fixnum(0);
T86:;
if((cadr((V43)))==Cnil){
goto T92;}
base[2]= small_fixnum(1);
goto T90;
T92:;
base[2]= small_fixnum(0);
T90:;
vs_top=(vs_base=base+1)+2;
Llogior();
vs_top=sup;
V46= vs_base[0];
V45= make_cons(V46,cddr((V43)));
if(type_of(cdr((V44)))!=t_cons)FEwrong_type_argument(Scons,cdr((V44)));
(cdr((V44)))->c.c_cdr = (V45);
(void)(cdr((V44)));}
T77:;
base[1]= (V42);
vs_top=(vs_base=base+1)+1;
return;}
}
}
/* function definition for RESULT-TYPE-FROM-ARGS */
static L10()
{register object *base=vs_base;
register object *sup=base+VM10; VC10
vs_reserve(VM10);
{object V47;
register object V48;
check_arg(2);
V47=(base[0]);
V48=(base[1]);
vs_top=sup;
TTL:;
{object V49;
object V50;
V49= VV[18];
V50= car((V49));
T98:;
if(!(endp((V49)))){
goto T99;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T99:;
{object V51;
object V52;
V51= get((V47),(V50),Cnil);
V52= car((V51));
T107:;
if(!(endp((V51)))){
goto T108;}
goto T103;
T108:;
base[2]= (V52);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk138)();
vs_top=sup;
base[2]= small_fixnum(3);
base[3]= caddr((V52));
vs_top=(vs_base=base+2)+2;
Llogbitp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T114;}
if(!((length((V48)))==(length(car((V52)))))){
goto T114;}
{object V53;
object V54;
V53= (V48);
V54= car((V52));
T126:;
if(((V53))!=Cnil){
goto T127;}
goto T122;
T127:;
if((car((V53)))==(car((V54)))){
goto T131;}
if(((*(LnkLI139))(car((V54)),car((V53))))!=Cnil){
goto T131;}
goto T114;
T131:;
V53= cdr((V53));
V54= cdr((V54));
goto T126;}
T122:;
base[2]= cadr((V52));
vs_top=(vs_base=base+2)+1;
return;
T114:;
V51= cdr((V51));
V52= car((V51));
goto T107;}
T103:;
V49= cdr((V49));
V50= car((V49));
goto T98;}
}
}
/* macro definition for FLAGS */
static L11()
{register object *base=vs_base;
register object *sup=base+VM11; VC11
vs_reserve(VM11);
check_arg(2);
vs_top=sup;
{object V55=base[0]->c.c_cdr;
base[2]= V55;
base[3]= small_fixnum(0);}
{object V56;
object V57;
V56= base[2];
V57= car((V56));
T155:;
if(!(endp((V56)))){
goto T156;}
goto T151;
T156:;
base[4]= base[3];
base[6]= small_fixnum(1);
base[8]= (V57);
vs_top=(vs_base=base+8)+1;
(void) (*Lnk136)();
vs_top=sup;
base[7]= vs_base[0];
vs_top=(vs_base=base+6)+2;
Lash();
vs_top=sup;
base[5]= vs_base[0];
vs_top=(vs_base=base+4)+2;
Llogior();
vs_top=sup;
base[3]= vs_base[0];
V56= cdr((V56));
V57= car((V56));
goto T155;}
T151:;
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for C1SYMBOL-FUN */
static L12()
{register object *base=vs_base;
register object *sup=base+VM12; VC12
vs_reserve(VM12);
{object V58;
register object V59;
check_arg(2);
V58=(base[0]);
V59=(base[1]);
vs_top=sup;
TTL:;
{object V60;
V60= Cnil;
V60= get((V58),VV[19],Cnil);
if(((V60))==Cnil){
goto T174;}
base[2]= (V59);
vs_top=(vs_base=base+2)+1;
super_funcall_no_event((V60));
return;
T174:;
{object V61;
V60= get((V58),VV[20],Cnil);
if(((V60))!=Cnil){
goto T179;}
V61= Cnil;
goto T178;
T179:;
V61= (
(type_of((V60)) == t_sfun ?(*(object (*)())(((V60))->sfn.sfn_self)):
(fcall.fun=((V60)),fcall.argd=2,fcalln))((V58),(V59)));
T178:;
if(((V61))==Cnil){
goto T183;}
base[2]= (V61);
vs_top=(vs_base=base+2)+1;
return;
T183:;
V60= (*(LnkLI140))((V58));
if(((V60))==Cnil){
goto T186;}
if(!((car((V60)))==(VV[21]))){
goto T190;}
{object V62;
object V63;
V62= (VFUN_NARGS=2,(*(LnkLI126))(VV[22],Ct));
V63= (*(LnkLI141))((V59),(V62));
{object V64;
V64= (*(LnkLI142))(caddr((V60)));
if(((V64))==Cnil){
goto T194;}
(void)(structure_set((V62),VV[23],2,(V64)));}
T194:;
{object V65;
V65= (*(LnkLI143))(caddr((V60)));
if(((V65))==Cnil){
goto T198;}
{object V66;
V66= Cnil;
{object V67;
object V68;
V67= (V63);
V68= car((V67));
T207:;
if(!(endp((V67)))){
goto T208;}
goto T203;
T208:;
if(!(endp((V65)))){
goto T214;}
V66= make_cons((V68),(V66));
goto T212;
T214:;
V69= (*(LnkLI144))(car((V65)),(V68),car((V59)));
V66= make_cons(/* INLINE-ARGS */V69,(V66));
{object V70;
V70= car((V65));
V65= cdr((V65));}
{object V71;
V71= car((V59));
V59= cdr((V59));}
T212:;
V67= cdr((V67));
V68= car((V67));
goto T207;}
T203:;
V63= reverse((V66));}}
T198:;
base[2]= list(4,VV[21],(V62),cddr((V60)),(V63));
vs_top=(vs_base=base+2)+1;
return;}
T190:;
V72= (*(LnkLI145))((V60),(V58),(V59));
base[2]= (*(LnkLI122))(/* INLINE-ARGS */V72);
vs_top=(vs_base=base+2)+1;
return;
T186:;
{object V73;
V60= get((V58),VV[24],Cnil);
if(((V60))!=Cnil){
goto T233;}
V73= Cnil;
goto T232;
T233:;
if(((*(LnkLI146))((V58)))!=Cnil){
goto T236;}
V73= Cnil;
goto T232;
T236:;
V73= (
(type_of((V60)) == t_sfun ?(*(object (*)())(((V60))->sfn.sfn_self)):
(fcall.fun=((V60)),fcall.argd=2,fcalln))((V58),(V59)));
T232:;
if(((V73))==Cnil){
goto T239;}
base[2]= (V73);
vs_top=(vs_base=base+2)+1;
return;
T239:;
V60= get((V58),VV[25],Cnil);
if(((V60))==Cnil){
goto T242;}
if(((*(LnkLI146))((V58)))==Cnil){
goto T242;}
base[2]= (V59);
vs_top=(vs_base=base+2)+1;
super_funcall_no_event((V60));
return;
T242:;
V60= get((V58),VV[26],Cnil);
if(((V60))==Cnil){
goto T249;}
if(((*(LnkLI146))((V58)))==Cnil){
goto T249;}
base[2]= car((V60));
base[3]= (V59);
vs_top=(vs_base=base+3)+1;
super_funcall_no_event(base[2]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T249;}
base[2]= cdr((V60));
base[3]= (V59);
vs_top=(vs_base=base+3)+1;
super_funcall_no_event(base[2]);
return;
T249:;
{object V74;
base[2]= (V58);
vs_top=(vs_base=base+2)+1;
Lsymbol_package();
vs_top=sup;
V75= vs_base[0];
base[2]= VV[27];
vs_top=(vs_base=base+2)+1;
Lsymbol_package();
vs_top=sup;
V76= vs_base[0];
if((V75)==(V76)){
goto T262;}
goto T261;
T262:;
base[2]= (V58);
vs_top=(vs_base=base+2)+1;
Lfboundp();
vs_top=sup;
V77= vs_base[0];
if((V77)==Cnil){
goto T268;}
goto T261;
T268:;
(void)((VFUN_NARGS=2,(*(LnkLI137))(VV[28],(V58))));
T261:;
if(symbol_value(VV[29])==Cnil){
goto T272;}
(void)((*(LnkLI30))(VV[30],(V58)));
T272:;
V74= Cnil;
if(((V74))==Cnil){
goto T274;}
base[2]= (V74);
vs_top=(vs_base=base+2)+1;
return;
T274:;
base[2]= (V58);
vs_top=(vs_base=base+2)+1;
Lmacro_function();
vs_top=sup;
V60= vs_base[0];
if(((V60))==Cnil){
goto T277;}
V78= (*(LnkLI145))((V60),(V58),(V59));
base[2]= (*(LnkLI122))(/* INLINE-ARGS */V78);
vs_top=(vs_base=base+2)+1;
return;
T277:;
V60= get((V58),VV[31],Cnil);
if(((V60))==Cnil){
goto T282;}
V80= list(2,VV[33],(V60));
base[2]= list(4,VV[32],/* INLINE-ARGS */V80,list(2,VV[33],make_cons((V58),(V59))),Cnil);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk147)();
vs_top=sup;
V79= vs_base[0];
base[2]= (*(LnkLI122))(V79);
vs_top=(vs_base=base+2)+1;
return;
T282:;
V60= get((V58),VV[34],Cnil);
if(((V60))==Cnil){
goto T288;}
if(((*(LnkLI146))((V58)))==Cnil){
goto T288;}
if(!(type_of((V60))==t_cons)){
goto T288;}
base[2]= cdr((V60));
vs_top=(vs_base=base+2)+1;
(void) (*Lnk148)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T288;}
if(endp((V59))){
goto T288;}
if(!(endp(cdr((V59))))){
goto T288;}
{object V81= car((V60));
if((V81!= VV[44]))goto T302;
V82= list(3,VV[35],car((V59)),cdr((V60)));
base[2]= (*(LnkLI122))(/* INLINE-ARGS */V82);
vs_top=(vs_base=base+2)+1;
return;
T302:;
if((V81!= VV[112]))goto T303;
V83= list(3,VV[36],cdr((V60)),car((V59)));
base[2]= (*(LnkLI122))(/* INLINE-ARGS */V83);
vs_top=(vs_base=base+2)+1;
return;
T303:;
base[2]= (*(LnkLI149))(car((V59)),car((V60)),cdr((V60)));
vs_top=(vs_base=base+2)+1;
return;}
T288:;
if(!(((V58))==(VV[5]))){
goto T305;}
base[2]= (VFUN_NARGS=1,(*(LnkLI134))(VV[37]));
vs_top=(vs_base=base+2)+1;
return;
T305:;
{object V84;
object V85;
V86= get((V58),VV[38],Cnil);
V84= (VFUN_NARGS=2,(*(LnkLI126))(VV[22],((V86)==Cnil?Ct:Cnil)));
V85= (*(LnkLI141))((V59),(V84));
{object V87;
V87= (*(LnkLI150))((V58));
if(((V87))==Cnil){
goto T310;}
if(!(equal((V87),VV[39]))){
goto T315;}
V87= Cnil;
goto T310;
T315:;
(void)(structure_set((V84),VV[23],2,(V87)));}
T310:;
{object V88;
V88= (*(LnkLI151))((V58));
if(((V88))==Cnil){
goto T318;}
{object V89;
object V90;
object V91;
V89= (V85);
V90= Cnil;
V91= (V59);
T326:;
if(!(endp((V89)))){
goto T327;}
V85= reverse((V90));
goto T318;
T327:;
if(!(endp((V88)))){
goto T334;}
V90= make_cons(car((V89)),(V90));
goto T332;
T334:;
V92= (*(LnkLI144))(car((V88)),car((V89)),car((V91)));
V90= make_cons(/* INLINE-ARGS */V92,(V90));
{object V93;
V93= car((V88));
V88= cdr((V88));}
T332:;
V89= cdr((V89));
V91= cdr((V91));
goto T326;}}
T318:;
{object V94;
V94= get((V58),VV[40],Cnil);
if(((V94))==Cnil){
goto T346;}
{object V95;
object V96;
V95= (V85);
V96= (V59);
T353:;
if(endp((V94))){
goto T355;}
if(!(endp((V95)))){
goto T354;}
T355:;
goto T346;
T354:;
(void)((*(LnkLI152))(car((V94)),car((V95)),car((V96))));
{object V97;
V97= car((V94));
V94= cdr((V94));}
V95= cdr((V95));
V96= cdr((V96));
goto T353;}}
T346:;
{object V98= (V58);
if((V98!= VV[153]))goto T370;
{object V99;
V99= structure_ref(cadar((V85)),VV[23],2);
if(!(((V99))==(VV[41]))){
goto T373;}
V99= VV[42];
if((VV[42])!=Cnil){
goto T372;}
T373:;
if(!(type_of((V99))==t_cons)){
goto T369;}
if((car((V99)))==(VV[43])){
goto T380;}
if(!((car((V99)))==(VV[44]))){
goto T369;}
T380:;
V99= cadr((V99));
if(((V99))==Cnil){
goto T369;}
T372:;
V100= structure_ref((V84),VV[23],2);
V99= (*(LnkLI154))(/* INLINE-ARGS */V100,(V99));
if(((V99))!=Cnil){
goto T388;}
V101= make_cons((V58),(V59));
(void)((VFUN_NARGS=2,(*(LnkLI137))(VV[45],/* INLINE-ARGS */V101)));
T388:;
(void)(structure_set((V84),VV[23],2,(V99)));
goto T369;}
T370:;
if((V98!= VV[155]))goto T391;
{object V102;
V102= structure_ref(cadar((V85)),VV[23],2);
if(!(((V102))==(VV[41]))){
goto T394;}
V102= VV[42];
if((VV[42])!=Cnil){
goto T393;}
T394:;
if(!(type_of((V102))==t_cons)){
goto T369;}
if((car((V102)))==(VV[43])){
goto T401;}
if(!((car((V102)))==(VV[44]))){
goto T369;}
T401:;
V102= cadr((V102));
if(((V102))==Cnil){
goto T369;}
T393:;
V103= structure_ref((V84),VV[23],2);
base[2]= (V85);
vs_top=(vs_base=base+2)+1;
Llast();
vs_top=sup;
V104= vs_base[0];
V105= structure_ref(cadar(V104),VV[23],2);
V106= (*(LnkLI154))(/* INLINE-ARGS */V105,(V102));
V102= (*(LnkLI154))(/* INLINE-ARGS */V103,/* INLINE-ARGS */V106);
if(((V102))!=Cnil){
goto T411;}
V107= make_cons((V58),(V59));
(void)((VFUN_NARGS=2,(*(LnkLI137))(VV[46],/* INLINE-ARGS */V107)));
T411:;
(void)(structure_set((V84),VV[23],2,(V102)));
base[2]= (V85);
vs_top=(vs_base=base+2)+1;
Llast();
vs_top=sup;
V108= vs_base[0];
(void)(structure_set(cadar(V108),VV[23],2,(V102)));
goto T369;}
T391:;}
T369:;
{object V109;
base[2]= (V58);
{object V110;
object V111= (V85);
if(endp(V111)){
base[3]= Cnil;
goto T420;}
base[4]=V110=MMcons(Cnil,Cnil);
T421:;
{object V112;
V112= (V111->c.c_car);
(V110->c.c_car)= structure_ref(cadr((V112)),VV[23],2);}
if(endp(V111=MMcdr(V111))){
base[3]= base[4];
goto T420;}
V110=MMcdr(V110)=MMcons(Cnil,Cnil);
goto T421;}
T420:;
vs_top=(vs_base=base+2)+2;
(void) (*Lnk156)();
vs_top=sup;
V109= vs_base[0];
if(((V109))==Cnil){
goto T417;}
V113= structure_ref((V84),VV[23],2);
V109= (*(LnkLI154))((V109),/* INLINE-ARGS */V113);
(void)(structure_set((V84),VV[23],2,(V109)));}
T417:;
base[2]= list(4,VV[47],(V84),(V58),(V85));
vs_top=(vs_base=base+2)+1;
return;}}}}}
}
}
/* local entry for function REPLACE-CONSTANT */
static object LI13(V115)
object V115;
{ VMB13 VMS13 VMV13
TTL:;
{object V116;
object V117;
V116= Cnil;
V117= Cnil;
{object V118;
V118= (V115);
T432:;
if(((V118))!=Cnil){
goto T433;}
{object V119 = (V116);
VMR13(V119)}
T433:;
base[0]= car((V118));
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T437;}
base[0]= car((V118));
vs_top=(vs_base=base+0)+1;
Leval();
vs_top=sup;
V117= vs_base[0];
if(type_of((V117))==t_fixnum||
type_of((V117))==t_bignum||
type_of((V117))==t_ratio||
type_of((V117))==t_shortfloat||
type_of((V117))==t_longfloat||
type_of((V117))==t_complex){
goto T438;}
if(!(type_of((V117))==t_character)){
goto T437;}
T438:;
V116= Ct;
{object V120;
object V121;
V120= (V118);
V121= (V117);
if(type_of((V120))!=t_cons)FEwrong_type_argument(Scons,(V120));
((V120))->c.c_car = (V121);}
T437:;
V118= cdr((V118));
goto T432;}}
}
/* local entry for function C1LAMBDA-FUN */
static object LI14(V124,V125)
register object V124;object V125;
{ VMB14 VMS14 VMV14
TTL:;
{object V126;
V126= (VFUN_NARGS=2,(*(LnkLI126))(VV[22],Ct));
V125= (*(LnkLI141))((V125),(V126));
V124= (VFUN_NARGS=1,(*(LnkLI157))((V124)));
(void)((*(LnkLI123))((V126),cadr((V124))));
{object V127 = list(4,VV[48],(V126),(V124),(V125));
VMR14(V127)}}
}
/* function definition for C2EXPR */
static L15()
{register object *base=vs_base;
register object *sup=base+VM15; VC15
vs_reserve(VM15);
bds_check;
{register object V128;
check_arg(1);
V128=(base[0]);
vs_top=sup;
TTL:;
if(!((car((V128)))==(VV[47]))){
goto T462;}
V129= caddr((V128));
V130= cadddr((V128));
V131= structure_ref(cadr((V128)),VV[23],2);
base[1]= (*(LnkLI158))(/* INLINE-ARGS */V129,/* INLINE-ARGS */V130,Cnil,/* INLINE-ARGS */V131);
vs_top=(vs_base=base+1)+1;
return;
T462:;
if((car((V128)))==(VV[49])){
goto T464;}
if(!((car((V128)))==(VV[50]))){
goto T465;}
T464:;
base[1]= (*(LnkLI159))(cadr((V128)));
bds_bind(VV[51],base[1]);
base[2]= get(car((V128)),VV[52],Cnil);
{object V132;
V132= cddr((V128));
vs_top=base+3;
while(!endp(V132))
{vs_push(car(V132));V132=cdr(V132);}
vs_base=base+3;}
super_funcall_no_event(base[2]);
bds_unwind1;
return;
T465:;
{object V133;
V133= get(car((V128)),VV[52],Cnil);
if(((V133))==Cnil){
goto T474;}
base[1]= (V133);
{object V134;
V134= cddr((V128));
vs_top=base+2;
while(!endp(V134))
{vs_push(car(V134));V134=cdr(V134);}
vs_base=base+2;}
super_funcall_no_event(base[1]);
return;
T474:;
V133= get(car((V128)),VV[53],Cnil);
if(((V133))==Cnil){
goto T479;}
base[1]= (V128);
vs_top=(vs_base=base+1)+1;
super_funcall_no_event((V133));
return;
T479:;
base[1]= (*(LnkLI160))();
vs_top=(vs_base=base+1)+1;
return;}
}
}
/* local entry for function C2FUNCALL-SFUN */
static object LI16(V138,V139,V140)
object V138;object V139;object V140;
{ VMB16 VMS16 VMV16
bds_check;
TTL:;
{object V141;
object V142;
V141= Cnil;
V142= make_cons((V138),(V139));
bds_bind(VV[54],small_fixnum(0));
base[1]= make_fixnum(length((V142)));
base[2]= VV[55];
base[3]= Ct;
vs_top=(vs_base=base+1)+3;
Lmake_list();
vs_top=sup;
V143= vs_base[0];
V144= list(4,V143,Ct,small_fixnum(3),VV[56]);
V141= (*(LnkLI161))(/* INLINE-ARGS */V144,(V142));
(void)((VFUN_NARGS=1,(*(LnkLI162))((V141))));
{object V145 = (*(LnkLI163))();
bds_unwind1;
VMR16(V145)}}
}
/* local entry for function C2EXPR* */
static object LI17(V147)
object V147;
{ VMB17 VMS17 VMV17
bds_check;
TTL:;
setq(VV[58],number_plus(symbol_value(VV[58]),small_fixnum(1)));
bds_bind(VV[57],make_cons(symbol_value(VV[58]),Cnil));
bds_bind(VV[59],make_cons((VV[57]->s.s_dbind),symbol_value(VV[59])));
base[2]= (V147);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk164)();
vs_top=sup;
if((cdr((VV[57]->s.s_dbind)))==Cnil){
goto T499;}
princ_str("\nT",VV[60]);
(void)((*(LnkLI165))(car((VV[57]->s.s_dbind))));
princ_str(":;",VV[60]);
{object V148 = Cnil;
bds_unwind1;
bds_unwind1;
VMR17(V148)}
T499:;
{object V149 = Cnil;
bds_unwind1;
bds_unwind1;
VMR17(V149)}
}
/* local entry for function C2EXPR-TOP */
static object LI18(V152,V153)
object V152;object V153;
{ VMB18 VMS18 VMV18
bds_check;
TTL:;
bds_bind(VV[61],small_fixnum(0));
bds_bind(VV[62],small_fixnum(0));
bds_bind(VV[63],one_plus(symbol_value(VV[63])));
setq(VV[64],number_plus(symbol_value(VV[64]),small_fixnum(1)));
bds_bind(VV[65],symbol_value(VV[64]));
princ_str("\n {register object *base",VV[60]);
V154= one_minus((VV[63]->s.s_dbind));
(void)((*(LnkLI165))(/* INLINE-ARGS */V154));
princ_str("=base;",VV[60]);
setq(VV[66],Ct);
princ_str("\n {register object *base=V",VV[60]);
(void)((*(LnkLI165))((V153)));
princ_char(59,VV[60]);
princ_str("\n register object *sup=vs_base+VM",VV[60]);
(void)((*(LnkLI165))((VV[65]->s.s_dbind)));
princ_char(59,VV[60]);
if((symbol_value(VV[67]))==Cnil){
goto T523;}
princ_str("\n vs_reserve(VM",VV[60]);
(void)((*(LnkLI165))((VV[65]->s.s_dbind)));
princ_str(");",VV[60]);
goto T521;
T523:;
princ_str("\n vs_check;",VV[60]);
T521:;
princ_str("\n ",VV[60]);
(void)((*(LnkLI166))());
base[4]= (V152);
vs_top=(vs_base=base+4)+1;
(void) (*Lnk164)();
vs_top=sup;
V155= make_cons((VV[65]->s.s_dbind),(VV[62]->s.s_dbind));
setq(VV[68],make_cons(/* INLINE-ARGS */V155,symbol_value(VV[68])));
princ_str("\n }}",VV[60]);
{object V156 = Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR18(V156)}
}
/* local entry for function C2EXPR-TOP* */
static object LI19(V159,V160)
object V159;object V160;
{ VMB19 VMS19 VMV19
bds_check;
TTL:;
setq(VV[58],number_plus(symbol_value(VV[58]),small_fixnum(1)));
bds_bind(VV[57],make_cons(symbol_value(VV[58]),Cnil));
bds_bind(VV[59],make_cons((VV[57]->s.s_dbind),symbol_value(VV[59])));
(void)((*(LnkLI167))((V159),(V160)));
if((cdr((VV[57]->s.s_dbind)))==Cnil){
goto T541;}
princ_str("\nT",VV[60]);
(void)((*(LnkLI165))(car((VV[57]->s.s_dbind))));
princ_str(":;",VV[60]);
{object V161 = Cnil;
bds_unwind1;
bds_unwind1;
VMR19(V161)}
T541:;
{object V162 = Cnil;
bds_unwind1;
bds_unwind1;
VMR19(V162)}
}
/* local entry for function C1PROGN */
static object LI20(V164)
register object V164;
{ VMB20 VMS20 VMV20
TTL:;
{object V165;
V165= Cnil;
if(!(endp((V164)))){
goto T548;}
{object V166 = (*(LnkLI124))();
VMR20(V166)}
T548:;
if(!(endp(cdr((V164))))){
goto T551;}
{object V167 = (*(LnkLI122))(car((V164)));
VMR20(V167)}
T551:;
{object V168;
V168= (VFUN_NARGS=0,(*(LnkLI126))());
{object V169;
object V170;
V169= (V164);
V170= car((V169));
T558:;
if(!(endp((V169)))){
goto T559;}
goto T554;
T559:;
V170= (*(LnkLI122))((V170));
V165= make_cons((V170),(V165));
(void)((*(LnkLI123))((V168),cadr((V170))));
V169= cdr((V169));
V170= car((V169));
goto T558;}
T554:;
V171= structure_ref(cadar((V165)),VV[23],2);
(void)(structure_set((V168),VV[23],2,/* INLINE-ARGS */V171));
{object V172 = list(3,VV[69],(V168),reverse((V165)));
VMR20(V172)}}}
}
/* local entry for function C1PROGN* */
static object LI21(V175,V176)
register object V175;object V176;
{ VMB21 VMS21 VMV21
TTL:;
V175= (*(LnkLI168))((V175));
(void)((*(LnkLI123))((V176),cadr((V175))));
{object V177 = (V175);
VMR21(V177)}
}
/* function definition for C2PROGN */
static L22()
{register object *base=vs_base;
register object *sup=base+VM22; VC22
vs_reserve(VM22);
bds_check;
{object V178;
check_arg(1);
V178=(base[0]);
vs_top=sup;
TTL:;
{object V179;
V179= (V178);
T579:;
if(!(endp(cdr((V179))))){
goto T580;}
base[1]= car((V179));
vs_top=(vs_base=base+1)+1;
(void) (*Lnk164)();
return;
T580:;
bds_bind(VV[70],VV[71]);
setq(VV[58],number_plus(symbol_value(VV[58]),small_fixnum(1)));
bds_bind(VV[57],make_cons(symbol_value(VV[58]),Cnil));
bds_bind(VV[59],make_cons((VV[57]->s.s_dbind),symbol_value(VV[59])));
base[4]= car((V179));
vs_top=(vs_base=base+4)+1;
(void) (*Lnk164)();
vs_top=sup;
if((cdr((VV[57]->s.s_dbind)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T585;}
princ_str("\nT",VV[60]);
(void)((*(LnkLI165))(car((VV[57]->s.s_dbind))));
princ_str(":;",VV[60]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T585:;
V179= cdr((V179));
goto T579;}
}
}
/* local entry for function C1ARGS */
static object LI23(V182,V183)
object V182;object V183;
{ VMB23 VMS23 VMV23
TTL:;
{object V184;
object V185= (V182);
if(endp(V185)){
{object V186 = Cnil;
VMR23(V186)}}
base[0]=V184=MMcons(Cnil,Cnil);
T599:;
{object V187;
V187= (V185->c.c_car);
(V184->c.c_car)= (*(LnkLI169))((V187),(V183));}
if(endp(V185=MMcdr(V185))){
{object V188 = base[0];
VMR23(V188)}}
V184=MMcdr(V184)=MMcons(Cnil,Cnil);
goto T599;}
}
/* local entry for function C1STRUCTURE-REF */
static object LI24(V190)
register object V190;
{ VMB24 VMS24 VMV24
TTL:;
if((symbol_value(VV[67]))!=Cnil){
goto T603;}
if(endp((V190))){
goto T603;}
if(endp(cdr((V190)))){
goto T603;}
if(!(type_of(cadr((V190)))==t_cons)){
goto T603;}
if(!((caadr((V190)))==(VV[33]))){
goto T603;}
if(endp(cdadr((V190)))){
goto T603;}
if(!(type_of(cadadr((V190)))==t_symbol)){
goto T603;}
if(!(endp(cddadr((V190))))){
goto T603;}
if(endp(cddr((V190)))){
goto T603;}
base[0]= caddr((V190));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk148)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T603;}
if(!(endp(cdddr((V190))))){
goto T603;}
{object V191 = (*(LnkLI149))(car((V190)),cadadr((V190)),caddr((V190)));
VMR24(V191)}
T603:;
{object V192;
V192= (VFUN_NARGS=0,(*(LnkLI126))());
{object V193 = list(4,VV[47],(V192),VV[72],(*(LnkLI141))((V190),(V192)));
VMR24(V193)}}
}
/* local entry for function C1STRUCTURE-REF1 */
static object LI25(V197,V198,V199)
object V197;object V198;object V199;
{ VMB25 VMS25 VMV25
TTL:;
{object V200;
V200= (VFUN_NARGS=0,(*(LnkLI126))());
if((symbol_value(VV[67]))==Cnil){
goto T629;}
V201= list(4,VV[72],(V197),list(2,VV[33],(V198)),(V199));
{object V202 = (*(LnkLI122))(/* INLINE-ARGS */V201);
VMR25(V202)}
T629:;
{object V203;
object V204;
V203= get((V198),VV[74],Cnil);
V205= structure_ref((V203),VV[74],2);
V204= aref1(/* INLINE-ARGS */V205,fixint((V199)));
V206= aref1(symbol_value(VV[73]),fixint((V204)));
V207= (*(LnkLI170))(/* INLINE-ARGS */V206);
(void)(structure_set((V200),VV[23],2,/* INLINE-ARGS */V207));
V208= (*(LnkLI169))((V197),(V200));
V209= (*(LnkLI171))((V198));
{object V210 = list(6,VV[75],(V200),/* INLINE-ARGS */V208,/* INLINE-ARGS */V209,(V199),(V203));
VMR25(V210)}}}
}
/* local entry for function COERCE-LOC-STRUCTURE-REF */
static object LI26(V213,V214)
object V213;object V214;
{ VMB26 VMS26 VMV26
TTL:;
{object V215;
V215= cdr((V213));
{object V216;
object V217;
V216= cadddr((V215));
V217= caddr((V215));
if(((V216))==Cnil){
goto T638;}
{object V218;
object V219;
V220= structure_ref((V216),VV[74],2);
V218= aref1(/* INLINE-ARGS */V220,fixint((V217)));
V219= aref1(symbol_value(VV[73]),fixint((V218)));
V221= (*(LnkLI170))((V219));
V222= (*(LnkLI172))(/* INLINE-ARGS */V221);
if(!((/* INLINE-ARGS */V222)==(VV[76]))){
goto T642;}
if(!(eql((V218),small_fixnum(0)))){
goto T645;}
goto T642;
T645:;
base[1]= VV[77];
base[2]= (V219);
vs_top=(vs_base=base+1)+2;
Lerror();
vs_top=sup;
T642:;
V223= car((V213));
V224= (*(LnkLI170))((V219));
(void)(structure_set(/* INLINE-ARGS */V223,VV[23],2,/* INLINE-ARGS */V224));
V225= (*(LnkLI170))((V219));
V226= (*(LnkLI172))(/* INLINE-ARGS */V225);
V227= make_cons(car((V215)),Cnil);
V228= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V227,VV[79]));
V229= list(4,/* INLINE-ARGS */V226,small_fixnum(0),VV[78],list(4,car(/* INLINE-ARGS */V228),VV[80],(V217),(V216)));
V230= (*(LnkLI170))((V214));
{object V231 = (*(LnkLI173))(/* INLINE-ARGS */V229,/* INLINE-ARGS */V230);
VMR26(V231)}}
T638:;
{object V232 = (*(LnkLI175))();
VMR26(V232)}}}
}
/* local entry for function C2STRUCTURE-REF */
static object LI27(V237,V238,V239,V240)
object V237;object V238;object V239;object V240;
{ VMB27 VMS27 VMV27
bds_check;
TTL:;
bds_bind(VV[61],symbol_value(VV[61]));
bds_bind(VV[54],small_fixnum(0));
{object V241;
object V242;
V243= make_cons((V237),Cnil);
V244= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V243,VV[81]));
V241= car(/* INLINE-ARGS */V244);{object V245;
V245= symbol_value(VV[73]);
V246= structure_ref((V240),VV[74],2);
V247= aref1(/* INLINE-ARGS */V246,fixint((V239)));
V242= aref1(V245,fixint(/* INLINE-ARGS */V247));}
V248= (*(LnkLI170))((V242));
V249= (*(LnkLI172))(/* INLINE-ARGS */V248);
V250= list(4,/* INLINE-ARGS */V249,small_fixnum(0),VV[78],list(4,(V241),(V238),(V239),(V240)));
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V250)));}
{object V251 = (*(LnkLI163))();
bds_unwind1;
bds_unwind1;
VMR27(V251)}
}
/* local entry for function MY-CALL */
static object LI28(V256,V257,V258,V259)
object V256;object V257;object V258;object V259;
{ VMB28 VMS28 VMV28
TTL:;
{object V260;
object V261;
V260= structure_ref((V259),VV[74],2);
V261= structure_ref((V259),VV[74],8);
if((symbol_value(VV[67]))==Cnil){
goto T657;}
{object V262 = (*(LnkLI175))();
VMR28(V262)}
T657:;
princ_str("STREF(",VV[60]);{object V263;
V263= symbol_value(VV[73]);
V264= aref1((V260),fixint((V258)));
V265= aref1(V263,fixint(/* INLINE-ARGS */V264));
V266= (*(LnkLI176))(/* INLINE-ARGS */V265);
(void)((*(LnkLI165))(/* INLINE-ARGS */V266));}
princ_char(44,VV[60]);
(void)((*(LnkLI165))((V256)));
princ_char(44,VV[60]);
V267= aref1((V261),fixint((V258)));
(void)((*(LnkLI165))(/* INLINE-ARGS */V267));
princ_char(41,VV[60]);
{object V268 = Cnil;
VMR28(V268)}}
}
/* local entry for function C1STRUCTURE-SET */
static object LI29(V270)
register object V270;
{ VMB29 VMS29 VMV29
TTL:;
{object V271;
V271= (VFUN_NARGS=0,(*(LnkLI126))());
if(endp((V270))){
goto T668;}
if((symbol_value(VV[67]))!=Cnil){
goto T668;}
if(endp(cdr((V270)))){
goto T668;}
if(!(type_of(cadr((V270)))==t_cons)){
goto T668;}
if(!((caadr((V270)))==(VV[33]))){
goto T668;}
if(endp(cdadr((V270)))){
goto T668;}
if(!(type_of(cadadr((V270)))==t_symbol)){
goto T668;}
if(!(endp(cddadr((V270))))){
goto T668;}
if(endp(cddr((V270)))){
goto T668;}
base[0]= caddr((V270));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk148)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T668;}
if(endp(cdddr((V270)))){
goto T668;}
if(!(endp(cddddr((V270))))){
goto T668;}
{object V272;
object V273;
V272= (*(LnkLI122))(car((V270)));
V273= (*(LnkLI122))(cadddr((V270)));
(void)((*(LnkLI123))((V271),cadr((V272))));
(void)((*(LnkLI123))((V271),cadr((V273))));
V274= structure_ref(cadr((V273)),VV[23],2);
(void)(structure_set((V271),VV[23],2,/* INLINE-ARGS */V274));
V275= (*(LnkLI171))(cadadr((V270)));
V276= caddr((V270));
V277= get(cadadr((V270)),VV[74],Cnil);
{object V278 = list(7,VV[82],(V271),(V272),/* INLINE-ARGS */V275,/* INLINE-ARGS */V276,(V273),V277);
VMR29(V278)}}
T668:;
{object V279 = list(4,VV[47],(V271),VV[83],(*(LnkLI141))((V270),(V271)));
VMR29(V279)}}
}
/* local entry for function C2STRUCTURE-SET */
static object LI30(V285,V286,V287,V288,V289)
object V285;object V286;object V287;object V288;object V289;
{ VMB30 VMS30 VMV30
bds_check;
TTL:;
{object V290;
V290= Cnil;
bds_bind(VV[61],symbol_value(VV[61]));
bds_bind(VV[54],small_fixnum(0));
{object V291;
object V292;
object V293;
object V294;
object V295;
object V296;
V291= structure_ref((V289),VV[74],2);{object V297;
V297= symbol_value(VV[73]);
V298= aref1((V291),fixint((V287)));
V292= aref1(V297,fixint(/* INLINE-ARGS */V298));}
V293= structure_ref((V289),VV[74],8);
V294= (*(LnkLI170))((V292));
V295= Cnil;
V296= Cnil;
V299= (VFUN_NARGS=0,(*(LnkLI126))());
V300= list(3,(V285),(V288),list(4,VV[47],/* INLINE-ARGS */V299,VV[84],Cnil));
if(!(((V292))==(Ct))){
goto T711;}
V301= VV[85];
goto T709;
T711:;
V301= list(3,Ct,(V294),Ct);
T709:;
V290= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V300,V301));
V295= car((V290));
V296= cadr((V290));
if((symbol_value(VV[67]))==Cnil){
goto T717;}
(void)((*(LnkLI175))());
T717:;
princ_str("\n STSET(",VV[60]);
V302= (*(LnkLI176))((V292));
(void)((*(LnkLI165))(/* INLINE-ARGS */V302));
princ_char(44,VV[60]);
(void)((*(LnkLI165))((V295)));
princ_char(44,VV[60]);
V303= aref1((V293),fixint((V287)));
(void)((*(LnkLI165))(/* INLINE-ARGS */V303));
princ_str(", ",VV[60]);
(void)((*(LnkLI165))((V296)));
princ_str(");",VV[60]);
V304= (*(LnkLI172))((V294));
V305= list(4,/* INLINE-ARGS */V304,small_fixnum(0),VV[86],make_cons((V296),Cnil));
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V305)));
{object V306 = (*(LnkLI163))();
bds_unwind1;
bds_unwind1;
VMR30(V306)}}}
}
/* local entry for function C1CONSTANT-VALUE */
static object LI31(V309,V310)
register object V309;object V310;
{ VMB31 VMS31 VMV31
TTL:;
if(!(((V309))==(Cnil))){
goto T732;}
{object V311 = (*(LnkLI124))();
VMR31(V311)}
T732:;
if(!(((V309))==(Ct))){
goto T735;}
{object V312 = (*(LnkLI125))();
VMR31(V312)}
T735:;
base[0]= (V309);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk148)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T738;}
V313= (VFUN_NARGS=2,(*(LnkLI126))(VV[2],VV[87]));
V315= (*(LnkLI177))((V309));
if(number_compare(/* INLINE-ARGS */V315,VV[89])>=0){
goto T742;}
V314= Cnil;
goto T741;
T742:;
V314= (*(LnkLI128))((V309));
T741:;
{object V316 = list(3,VV[1],/* INLINE-ARGS */V313,list(3,VV[88],V314,(V309)));
VMR31(V316)}
T738:;
if(!(type_of((V309))==t_character)){
goto T745;}
V317= (VFUN_NARGS=2,(*(LnkLI126))(VV[2],VV[42]));
V318= (*(LnkLI128))((V309));
base[0]= (V309);
vs_top=(vs_base=base+0)+1;
Lchar_code();
vs_top=sup;
V319= vs_base[0];
{object V320 = list(3,VV[1],/* INLINE-ARGS */V317,list(3,VV[90],/* INLINE-ARGS */V318,V319));
VMR31(V320)}
T745:;
if(!(type_of((V309))==t_longfloat)){
goto T750;}
{object V321;
object V322;
V321= Cnil;
V322= Cnil;
{register object x= (V309),V324= symbol_value(VV[91]);
while(!endp(V324))
if(type_of(V324->c.c_car)==t_cons &&eql(x,V324->c.c_car->c.c_car)){
V323= (V324->c.c_car);
goto T758;
}else V324=V324->c.c_cdr;
V323= Cnil;}
T758:;
V321= cadr(V323);
if(((V321))!=Cnil){
goto T754;}
V322= (*(LnkLI177))((V309));
base[0]= VV[92];
base[1]= small_fixnum(2);
vs_top=(vs_base=base+0)+2;
Ldivide();
vs_top=sup;
V325= vs_base[0];
if(!(number_compare((V322),V325)>0)){
goto T760;}
base[0]= (V309);
base[1]= VV[92];
vs_top=(vs_base=base+0)+2;
Ldivide();
vs_top=sup;
V326= vs_base[0];
V327= list(4,VV[5],VV[93],V326,VV[94]);
if(((*(LnkLI122))(/* INLINE-ARGS */V327))!=Cnil){
goto T759;}
T760:;
V328= number_times(VV[95],VV[96]);
if(!(number_compare((V322),/* INLINE-ARGS */V328)<0)){
goto T754;}
base[0]= (V309);
base[1]= VV[95];
vs_top=(vs_base=base+0)+2;
Ldivide();
vs_top=sup;
V329= vs_base[0];
V330= list(4,VV[5],VV[93],V329,VV[97]);
if(((*(LnkLI122))(/* INLINE-ARGS */V330))==Cnil){
goto T754;}
T759:;
V321= symbol_value(VV[98]);
V331= list(2,(V309),(V321));
setq(VV[91],make_cons(/* INLINE-ARGS */V331,symbol_value(VV[91])));
T754:;
V332= (VFUN_NARGS=2,(*(LnkLI126))(VV[2],VV[99]));
if((V321)!=Cnil){
V333= (V321);
goto T779;}
V333= (*(LnkLI128))((V309));
T779:;
{object V334 = list(3,VV[1],/* INLINE-ARGS */V332,list(3,VV[100],V333,(V309)));
VMR31(V334)}}
T750:;
if(!(type_of((V309))==t_shortfloat)){
goto T781;}
V335= (VFUN_NARGS=2,(*(LnkLI126))(VV[2],VV[101]));
V336= (*(LnkLI128))((V309));
{object V337 = list(3,VV[1],/* INLINE-ARGS */V335,list(3,VV[102],/* INLINE-ARGS */V336,(V309)));
VMR31(V337)}
T781:;
if(((V310))==Cnil){
goto T784;}
V338= (*(LnkLI127))((V309));
V339= (VFUN_NARGS=2,(*(LnkLI126))(VV[2],/* INLINE-ARGS */V338));
{object V340 = list(3,VV[1],/* INLINE-ARGS */V339,list(2,VV[3],(*(LnkLI128))((V309))));
VMR31(V340)}
T784:;
{object V341 = Cnil;
VMR31(V341)}
}
/* macro definition for DEFINE-COMPILER-MACRO */
static L32()
{register object *base=vs_base;
register object *sup=base+VM32; VC32
vs_reserve(VM32);
check_arg(2);
vs_top=sup;
{object V342=base[0]->c.c_cdr;
if(endp(V342))invalid_macro_call();
base[2]= (V342->c.c_car);
V342=V342->c.c_cdr;
if(endp(V342))invalid_macro_call();
base[3]= (V342->c.c_car);
V342=V342->c.c_cdr;
base[4]= V342;}
V343= list(2,VV[33],base[2]);
V344= list(2,VV[33],base[2]);
V345= list(2,VV[33],base[3]);
V346= list(4,VV[103],/* INLINE-ARGS */V343,list(2,VV[104],list(4,VV[105],/* INLINE-ARGS */V344,/* INLINE-ARGS */V345,list(2,VV[33],base[4]))),VV[106]);
base[5]= list(3,VV[69],/* INLINE-ARGS */V346,list(2,VV[33],base[2]));
vs_top=(vs_base=base+5)+1;
return;
}
/* local entry for function UNDEF-COMPILER-MACRO */
static object LI33(V348)
object V348;
{ VMB33 VMS33 VMV33
TTL:;
{object V349 = remprop((V348),VV[31]);
VMR33(V349)}
}
/* macro definition for DEFINE-INLINE-FUNCTION */
static L34()
{register object *base=vs_base;
register object *sup=base+VM34; VC34
vs_reserve(VM34);
bds_check;
check_arg(2);
vs_top=sup;
{object V350=base[0]->c.c_cdr;
if(endp(V350))invalid_macro_call();
base[2]= (V350->c.c_car);
V350=V350->c.c_cdr;
if(endp(V350))invalid_macro_call();
base[3]= (V350->c.c_car);
V350=V350->c.c_cdr;
base[4]= V350;}
{object V351;
V351= Cnil;
bds_bind(VV[107],symbol_value(VV[107]));
{object V352;
object V353;
V352= base[3];
V353= car((V352));
T791:;
if(!(endp((V352)))){
goto T792;}
goto T787;
T792:;
if(!(type_of((V353))==t_symbol)){
goto T798;}
{register object x= (V353),V354= VV[108];
while(!endp(V354))
if(x==(V354->c.c_car)){
goto T798;
}else V354=V354->c.c_cdr;}
{object V356;
V356= car((VV[107]->s.s_dbind));
(VV[107]->s.s_dbind)= cdr((VV[107]->s.s_dbind));
base[6]= (V356);}
if(base[6]==Cnil)goto T804;
V355= base[6];
goto T803;
T804:;
base[7]= VV[109];
base[9]= VV[110];
vs_top=(vs_base=base+9)+1;
Lfind_package();
vs_top=sup;
base[8]= vs_base[0];
vs_top=(vs_base=base+7)+2;
Lgentemp();
vs_top=sup;
V355= vs_base[0];
T803:;
V351= make_cons(V355,(V351));
goto T796;
T798:;
base[6]= VV[111];
base[7]= (V353);
base[8]= base[2];
vs_top=(vs_base=base+6)+3;
Lerror();
vs_top=sup;
T796:;
V352= cdr((V352));
V353= car((V352));
goto T791;}
T787:;
{object V357;
{object V359;
object V360= base[3];
object V361= (V351);
if(endp(V360)||endp(V361)){
V358= Cnil;
goto T821;}
base[6]=V359=MMcons(Cnil,Cnil);
T822:;
{object V362;
object V363;
V362= (V360->c.c_car);
V363= (V361->c.c_car);
(V359->c.c_car)= list(3,VV[112],list(2,VV[33],(V362)),(V363));}
if(endp(V360=MMcdr(V360))||endp(V361=MMcdr(V361))){
V358= base[6];
goto T821;}
V359=MMcdr(V359)=MMcons(Cnil,Cnil);
goto T822;}
T821:;
V357= make_cons(VV[112],V358);
V364= listA(4,VV[113],base[2],base[3],base[4]);
base[6]= list(3,VV[69],/* INLINE-ARGS */V364,list(4,VV[114],base[2],(V351),list(4,VV[115],VV[116],(V357),list(2,VV[33],base[4]))));
vs_top=(vs_base=base+6)+1;
bds_unwind1;
return;}}
}
/* local entry for function NAME-TO-SD */
static object LI35(V366)
object V366;
{ VMB35 VMS35 VMV35
TTL:;
{object V367;
V367= Cnil;
if(type_of((V366))==t_symbol){
goto T830;}
base[0]= Cnil;
goto T829;
T830:;
V367= get((V366),VV[74],Cnil);
base[0]= (V367);
T829:;
if(base[0]==Cnil)goto T828;
goto T827;
T828:;
base[1]= VV[117];
base[2]= (V366);
vs_top=(vs_base=base+1)+2;
Lerror();
vs_top=sup;
T827:;
{object V368 = (V367);
VMR35(V368)}}
}
/* local entry for function NAME-SD1 */
static object LI36(V370)
object V370;
{ VMB36 VMS36 VMV36
TTL:;
base[0]= get((V370),VV[118],Cnil);
if(base[0]==Cnil)goto T835;
{object V371 = base[0];
VMR36(V371)}
T835:;
V372= list(3,VV[5],VV[118],list(2,VV[33],(V370)));
{object V373 = sputprop((V370),VV[119],/* INLINE-ARGS */V372);
VMR36(V373)}
}
/* local entry for function CO1STRUCTURE-PREDICATE */
static object LI37(V376,V377)
object V376;object V377;
{ VMB37 VMS37 VMV37
TTL:;
{object V378;
V378= Cnil;
if(!(type_of((V376))==t_symbol)){
goto T839;}
V378= get((V376),VV[120],Cnil);
if(((V378))==Cnil){
goto T839;}
V379= car((V377));
V380= list(3,VV[121],/* INLINE-ARGS */V379,list(2,VV[33],(V378)));
{object V381 = (*(LnkLI122))(/* INLINE-ARGS */V380);
VMR37(V381)}
T839:;
{object V382 = Cnil;
VMR37(V382)}}
}
static object LnkTLI177(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[177],&LnkLI177,1,ap);} /* ABS */
static object LnkTLI176(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[176],&LnkLI176,1,ap);} /* AET-C-TYPE */
static object LnkTLI175(){return call_proc0(VV[175],&LnkLI175);} /* WFS-ERROR */
static object LnkTLI174(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[174],&LnkLI174,ap);} /* INLINE-ARGS */
static object LnkTLI173(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[173],&LnkLI173,2,ap);} /* COERCE-LOC */
static object LnkTLI172(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[172],&LnkLI172,1,ap);} /* INLINE-TYPE */
static object LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],&LnkLI171,1,ap);} /* ADD-SYMBOL */
static object LnkTLI170(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[170],&LnkLI170,1,ap);} /* TYPE-FILTER */
static object LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[169],&LnkLI169,2,ap);} /* C1EXPR* */
static object LnkTLI168(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[168],&LnkLI168,1,ap);} /* C1PROGN */
static object LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],&LnkLI167,2,ap);} /* C2EXPR-TOP */
static object LnkTLI166(){return call_proc0(VV[166],&LnkLI166);} /* RESET-TOP */
static object LnkTLI165(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[165],&LnkLI165,1,ap);} /* WT1 */
static LnkT164(){ call_or_link(VV[164],&Lnk164);} /* C2EXPR */
static object LnkTLI163(){return call_proc0(VV[163],&LnkLI163);} /* CLOSE-INLINE-BLOCKS */
static object LnkTLI162(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[162],&LnkLI162,ap);} /* UNWIND-EXIT */
static object LnkTLI161(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[161],&LnkLI161,2,ap);} /* GET-INLINE-LOC */
static object LnkTLI160(){return call_proc0(VV[160],&LnkLI160);} /* BABOON */
static object LnkTLI159(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[159],&LnkLI159,1,ap);} /* VOLATILE */
static object LnkTLI158(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[158],&LnkLI158,4,ap);} /* C2CALL-GLOBAL */
static object LnkTLI157(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[157],&LnkLI157,ap);} /* C1LAMBDA-EXPR */
static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* RESULT-TYPE-FROM-ARGS */
static object LnkTLI154(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[154],&LnkLI154,2,ap);} /* TYPE-AND */
static object LnkTLI152(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[152],&LnkLI152,3,ap);} /* CHECK-FORM-TYPE */
static object LnkTLI151(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[151],&LnkLI151,1,ap);} /* GET-ARG-TYPES */
static object LnkTLI150(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[150],&LnkLI150,1,ap);} /* GET-RETURN-TYPE */
static object LnkTLI149(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[149],&LnkLI149,3,ap);} /* C1STRUCTURE-REF1 */
static LnkT148(){ call_or_link(VV[148],&Lnk148);} /* FIXNUMP */
static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* CMP-EVAL */
static object LnkTLI30(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[30],&LnkLI30,2,ap);} /* RECORD-CALL-INFO */
static object LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],&LnkLI146,1,ap);} /* INLINE-POSSIBLE */
static object LnkTLI145(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[145],&LnkLI145,3,ap);} /* CMP-EXPAND-MACRO */
static object LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],&LnkLI144,3,ap);} /* AND-FORM-TYPE */
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],&LnkLI143,1,ap);} /* GET-LOCAL-ARG-TYPES */
static object LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],&LnkLI142,1,ap);} /* GET-LOCAL-RETURN-TYPE */
static object LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,2,ap);} /* C1ARGS */
static object LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],&LnkLI140,1,ap);} /* C1LOCAL-FUN */
static object LnkTLI139(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[139],&LnkLI139,2,ap);} /* TYPE>= */
static LnkT138(){ call_or_link(VV[138],&Lnk138);} /* FIX-OPT */
static object LnkTLI137(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[137],&LnkLI137,ap);} /* CMPWARN */
static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* FLAGS-POS */
static object LnkTLI135(){return call_proc0(VV[135],&LnkLI135);} /* ADD-LOAD-TIME-SHARP-COMMA */
static object LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[134],&LnkLI134,ap);} /* CMPERR */
static object LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[133],&LnkLI133,2,ap);} /* C1LAMBDA-FUN */
static LnkT132(){ call_or_link(VV[132],&Lnk132);} /* C1SYMBOL-FUN */
static object LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,1,ap);} /* C1VAR */
static object LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],&LnkLI130,1,ap);} /* ADD-CONSTANT */
static object LnkTLI129(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[129],&LnkLI129,2,ap);} /* C1CONSTANT-VALUE */
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],&LnkLI128,1,ap);} /* ADD-OBJECT */
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[127],&LnkLI127,1,ap);} /* OBJECT-TYPE */
static object LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[126],&LnkLI126,ap);} /* MAKE-INFO */
static object LnkTLI125(){return call_proc0(VV[125],&LnkLI125);} /* C1T */
static object LnkTLI124(){return call_proc0(VV[124],&LnkLI124);} /* C1NIL */
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],&LnkLI123,2,ap);} /* ADD-INFO */
static object LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],&LnkLI122,1,ap);} /* C1EXPR */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.