This is cmplam.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmplam.h"
init_cmplam(){do_init(VV);}
/* macro definition for CK-SPEC */
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]= list(3,VV[0],base[2],VV[1]);
vs_top=(vs_base=base+3)+1;
return;
}
/* macro definition for CK-VL */
static L2()
{register object *base=vs_base;
register object *sup=base+VM2; VC2
vs_reserve(VM2);
check_arg(2);
vs_top=sup;
{object V2=base[0]->c.c_cdr;
if(endp(V2))invalid_macro_call();
base[2]= (V2->c.c_car);
V2=V2->c.c_cdr;
if(!endp(V2))invalid_macro_call();}
base[3]= list(3,VV[0],base[2],VV[2]);
vs_top=(vs_base=base+3)+1;
return;
}
/* macro definition for DOWNWARD-FUNCTION */
static L3()
{register object *base=vs_base;
register object *sup=base+VM3; VC3
vs_reserve(VM3);
check_arg(2);
vs_top=sup;
{object V3=base[0]->c.c_cdr;
if(endp(V3))invalid_macro_call();
base[2]= (V3->c.c_car);
V3=V3->c.c_cdr;
if(!endp(V3))invalid_macro_call();}
base[3]= list(2,VV[3],base[2]);
vs_top=(vs_base=base+3)+1;
return;
}
/* local entry for function C1DOWNWARD-FUNCTION */
static object LI4(V5)
register object V5;
{ VMB4 VMS4 VMV4
TTL:;
{object V6;
object V7;
V8= list(2,VV[3],car((V5)));
V6= (*(LnkLI79))(/* INLINE-ARGS */V8);
V7= cadr((V6));
if(!(type_of((V5))==t_cons)){
goto T4;}
if(!(type_of(car((V5)))==t_cons)){
goto T4;}
if(!((caar((V5)))==(VV[4]))){
goto T4;}
if((cadr(car((V5))))!=Cnil){
goto T4;}
{object V9;
object V10;
V9= structure_ref((V7),VV[5],1);
V10= car((V9));
T16:;
if(!(endp((V9)))){
goto T17;}
goto T12;
T17:;
V11= structure_ref((V10),VV[6],1);
if(!((/* INLINE-ARGS */V11)==(VV[7]))){
goto T21;}
if((structure_ref((V10),VV[6],3))==Cnil){
goto T21;}
(void)(structure_set((V10),VV[6],1,VV[8]));
T21:;
V9= cdr((V9));
V10= car((V9));
goto T16;}
T12:;
{object V12;
object V13;
V12= (V6);
V13= VV[9];
if(type_of((V12))!=t_cons)FEwrong_type_argument(Scons,(V12));
((V12))->c.c_car = (V13);}
{object V14 = (V6);
VMR4(V14)}
T4:;
{object V15 = (V6);
VMR4(V15)}}
}
/* local entry for function WT-MAKE-DCLOSURE */
static object LI5(V18,V19)
register object V18;object V19;
{ VMB5 VMS5 VMV5
TTL:;
princ_str("\n (DownClose",VV[10]);
(void)((*(LnkLI80))((V18)));
princ_str(".t=t_dclosure,DownClose",VV[10]);
(void)((*(LnkLI80))((V18)));
princ_str(".dc_self=LC",VV[10]);
(void)((*(LnkLI80))((V18)));
princ_char(44,VV[10]);
princ_str("DownClose",VV[10]);
(void)((*(LnkLI80))((V18)));
princ_str(".dc_env=base0,(object)&DownClose",VV[10]);
(void)((*(LnkLI80))((V18)));
princ_char(41,VV[10]);
{object V20 = Cnil;
VMR5(V20)}
}
/* local entry for function WFS-ERROR */
static object LI6()
{ VMB6 VMS6 VMV6
TTL:;
base[0]= VV[11];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
{object V21 = vs_base[0];
VMR6(V21)}
}
/* local entry for function WT-DOWNWARD-CLOSURE-MACRO */
static object LI7(V23)
object V23;
{ VMB7 VMS7 VMV7
TTL:;
if((symbol_value(VV[12]))==Cnil){
goto T51;}
princ_str("\n#define DCnames",VV[13]);
(void)((*(LnkLI81))((V23)));
princ_char(32,VV[13]);
setq(VV[12],(VFUN_NARGS=2,(*(LnkLI82))(VV[14],symbol_value(VV[12]))));
if((symbol_value(VV[12]))==Cnil){
goto T60;}
(void)((*(LnkLI81))(VV[15]));
{object V24;
V24= symbol_value(VV[12]);
T66:;
if(((V24))!=Cnil){
goto T67;}
goto T63;
T67:;
(void)((*(LnkLI81))(VV[16]));
(void)((*(LnkLI81))(car((V24))));
if((cdr((V24)))==Cnil){
goto T73;}
(void)((*(LnkLI81))(VV[17]));
T73:;
V24= cdr((V24));
goto T66;}
T63:;
{object V25 = (*(LnkLI81))(VV[18]);
VMR7(V25)}
T60:;
{object V26 = Cnil;
VMR7(V26)}
T51:;
{object V27 = Cnil;
VMR7(V27)}
}
/* local entry for function C2DOWNWARD-FUNCTION */
static object LI8(V29)
object V29;
{ VMB8 VMS8 VMV8
TTL:;
{object V30;
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
V30= (VFUN_NARGS=4,(*(LnkLI83))(VV[19],VV[20],VV[21],symbol_value(VV[22])));
if((symbol_value(VV[25]))!=Cnil){
goto T85;}
V31= Cnil;
goto T83;
T85:;
V31= make_cons(small_fixnum(0),small_fixnum(0));
T83:;
V32= list(5,VV[24],V31,symbol_value(VV[26]),(V30),(V29));
setq(VV[23],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[23])));
setq(VV[27],make_cons((V30),symbol_value(VV[27])));
V33= structure_ref((V30),VV[28],3);
setq(VV[12],make_cons(/* INLINE-ARGS */V33,symbol_value(VV[12])));
V34= list(3,VV[29],structure_ref((V30),VV[28],3),symbol_value(VV[25]));
{object V35 = (VFUN_NARGS=1,(*(LnkLI84))(/* INLINE-ARGS */V34));
VMR8(V35)}}
}
/* local entry for function C1LAMBDA-EXPR */
static object LI9(V36,va_alist)
object V36;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB9 VMS9 VMV9
bds_check;
{object V37;
object V38;
object V39;
if(narg <1) too_few_arguments();
V37= V36;
narg = narg - 1;
if (narg <= 0) goto T91;
else {
va_start(ap);
V38= va_arg(ap,object);}
V39= Ct;
--narg; goto T92;
T91:;
V38= Cnil;
V39= Cnil;
T92:;
{object V40;
object V41;
object V42;
object V43;
object V44;
object V45;
object V46;
object V47;
object V48;
object V49;
object V50;
object V51;
object V52;
object V53;
object V54;
object V55;
object V56;
object V57;
object V58;
object V59;
object V60;
V40= Cnil;
V41= Cnil;
V42= Cnil;
V43= Cnil;
V44= Cnil;
V45= Cnil;
V46= Cnil;
V47= Cnil;
V48= Cnil;
V49= Cnil;
V50= Cnil;
V51= Cnil;
V52= Cnil;
V53= Cnil;
V54= Cnil;
V55= Cnil;
V56= Cnil;
V57= Cnil;
bds_bind(VV[30],symbol_value(VV[30]));
V58= (VFUN_NARGS=0,(*(LnkLI85))());
V59= Cnil;
V60= symbol_value(VV[31]);
if(!(endp((V37)))){
goto T115;}
V61= make_cons(VV[4],(V37));
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V61)));
T115:;
base[1]= cdr((V37));
base[2]= Ct;
vs_top=(vs_base=base+1)+2;
(void) (*Lnk87)();
if(vs_base<vs_top){
V52= vs_base[0];
vs_base++;
}else{
V52= Cnil;}
if(vs_base<vs_top){
V53= vs_base[0];
vs_base++;
}else{
V53= Cnil;}
if(vs_base<vs_top){
V55= vs_base[0];
vs_base++;
}else{
V55= Cnil;}
if(vs_base<vs_top){
V54= vs_base[0];
vs_base++;
}else{
V54= Cnil;}
if(vs_base<vs_top){
V56= vs_base[0];
vs_base++;
}else{
V56= Cnil;}
if(vs_base<vs_top){
V49= vs_base[0];
}else{
V49= Cnil;}
vs_top=sup;
if(((V39))==Cnil){
goto T122;}
V62= listA(3,VV[33],(V38),(V52));
V52= make_cons(/* INLINE-ARGS */V62,Cnil);
T122:;
(void)((*(LnkLI88))((V53)));
V50= car((V37));
T131:;
if(((V50))!=Cnil){
goto T137;}
goto T129;
T137:;
if(type_of((V50))==t_cons){
goto T140;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
T140:;
{object V64;
V64= car((V50));
V50= cdr((V50));
V51= (V64);}
{object V63= (V51);
if((V63!= VV[69]))goto T148;
goto T132;
T148:;
if((V63!= VV[68]))goto T149;
goto T133;
T149:;
if((V63!= VV[71]))goto T150;
goto T134;
T150:;
if((V63!= VV[73]))goto T151;
goto T135;
T151:;}
{object V65;
V65= (*(LnkLI89))((V51),(V53),(V54),(V55));
V57= make_cons((V51),(V57));
(VV[30]->s.s_dbind)= make_cons((V65),(VV[30]->s.s_dbind));
V40= make_cons((V65),(V40));}
goto T131;
T132:;
if(((V50))!=Cnil){
goto T159;}
goto T129;
T159:;
if(type_of((V50))==t_cons){
goto T162;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
T162:;
{object V67;
V67= car((V50));
V50= cdr((V50));
V51= (V67);}
{object V66= (V51);
if((V66!= VV[68]))goto T170;
goto T133;
T170:;
if((V66!= VV[71]))goto T171;
goto T134;
T171:;
if((V66!= VV[73]))goto T172;
goto T135;
T172:;}
if(type_of((V51))==t_cons){
goto T175;}
{object V68;
V68= (*(LnkLI89))((V51),(V53),(V54),(V55));
V57= make_cons((V51),(V57));
V69= structure_ref((V68),VV[6],5);
V70= (*(LnkLI90))(/* INLINE-ARGS */V69);
V71= list(3,(V68),/* INLINE-ARGS */V70,Cnil);
V41= make_cons(/* INLINE-ARGS */V71,(V41));
(VV[30]->s.s_dbind)= make_cons((V68),(VV[30]->s.s_dbind));
goto T173;}
T175:;
if(type_of(cdr((V51)))==t_cons){
goto T184;}
if((cdr((V51)))==Cnil){
goto T186;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T186:;
{object V72;
V72= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
V57= make_cons(car((V51)),(V57));
V73= structure_ref((V72),VV[6],5);
V74= (*(LnkLI90))(/* INLINE-ARGS */V73);
V75= list(3,(V72),/* INLINE-ARGS */V74,Cnil);
V41= make_cons(/* INLINE-ARGS */V75,(V41));
(VV[30]->s.s_dbind)= make_cons((V72),(VV[30]->s.s_dbind));
goto T173;}
T184:;
if(type_of(cddr((V51)))==t_cons){
goto T196;}
if((cddr((V51)))==Cnil){
goto T198;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T198:;
{object V76;
object V77;
V76= (*(LnkLI91))(cadr((V51)),(V58));
V77= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
V57= make_cons(car((V51)),(V57));
V78= structure_ref((V77),VV[6],5);
V79= (*(LnkLI92))(/* INLINE-ARGS */V78,(V76),cadr((V51)));
V80= list(3,(V77),/* INLINE-ARGS */V79,Cnil);
V41= make_cons(/* INLINE-ARGS */V80,(V41));
(VV[30]->s.s_dbind)= make_cons((V77),(VV[30]->s.s_dbind));
goto T173;}
T196:;
if((cdddr((V51)))==Cnil){
goto T208;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T208:;
{object V81;
object V82;
object V83;
V81= (*(LnkLI91))(cadr((V51)),(V58));
V82= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
V83= (*(LnkLI89))(caddr((V51)),(V53),(V54),(V55));
V57= make_cons(car((V51)),(V57));
V57= make_cons(caddr((V51)),(V57));
V84= structure_ref((V82),VV[6],5);
V85= (*(LnkLI92))(/* INLINE-ARGS */V84,(V81),cadr((V51)));
V86= list(3,(V82),/* INLINE-ARGS */V85,(V83));
V41= make_cons(/* INLINE-ARGS */V86,(V41));
(VV[30]->s.s_dbind)= make_cons((V82),(VV[30]->s.s_dbind));
(VV[30]->s.s_dbind)= make_cons((V83),(VV[30]->s.s_dbind));}
T173:;
goto T132;
T133:;
if(type_of((V50))==t_cons){
goto T223;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
T223:;
V57= make_cons(car((V50)),(V57));
{object V88;
V88= car((V50));
V50= cdr((V50));
V87= (V88);}
V42= (*(LnkLI89))(V87,(V53),(V54),(V55));
(VV[30]->s.s_dbind)= make_cons((V42),(VV[30]->s.s_dbind));
if(((V50))!=Cnil){
goto T236;}
goto T129;
T236:;
if(type_of((V50))==t_cons){
goto T239;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
T239:;
{object V90;
V90= car((V50));
V50= cdr((V50));
V51= (V90);}
{object V89= (V51);
if((V89!= VV[71]))goto T247;
goto T134;
T247:;
if((V89!= VV[73]))goto T248;
goto T135;
T248:;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V51))));
T134:;
V44= Ct;
if(((V50))!=Cnil){
goto T251;}
goto T129;
T251:;
if(type_of((V50))==t_cons){
goto T254;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
T254:;
{object V92;
V92= car((V50));
V50= cdr((V50));
V51= (V92);}
{object V91= (V51);
if((V91!= VV[73]))goto T262;
goto T135;
T262:;
if((V91!= VV[72]))goto T263;
V46= Ct;
if(((V50))!=Cnil){
goto T266;}
goto T129;
T266:;
if(type_of((V50))==t_cons){
goto T269;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
T269:;
{object V94;
V94= car((V50));
V50= cdr((V50));
V51= (V94);}
{object V93= (V51);
if((V93!= VV[73]))goto T277;
goto T135;
T277:;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V51))));
goto T257;
T263:;}
T257:;
if(type_of((V51))==t_cons){
goto T278;}
V51= make_cons((V51),Cnil);
T278:;
if(!(type_of(car((V51)))==t_cons)){
goto T284;}
{object V95= caar((V51));
if(!((type_of(V95)==t_symbol&&(V95)->s.s_hpack==keyword_package))){
goto T287;}}
if(!(type_of(cdar((V51)))==t_cons)){
goto T287;}
if((cddar((V51)))==Cnil){
goto T286;}
T287:;
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T286:;
V51= listA(3,caar((V51)),cadar((V51)),cdr((V51)));
goto T282;
T284:;
if(type_of(car((V51)))==t_symbol){
goto T294;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T294:;
base[1]= coerce_to_string(car((V51)));
base[2]= VV[38];
vs_top=(vs_base=base+1)+2;
Lintern();
vs_top=sup;
V96= vs_base[0];
V51= listA(3,V96,car((V51)),cdr((V51)));
T282:;
if(type_of(cddr((V51)))==t_cons){
goto T303;}
if((cddr((V51)))==Cnil){
goto T305;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T305:;
{object V97;
V97= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55));
V57= make_cons(cadr((V51)),(V57));
V98= car((V51));
V99= structure_ref((V97),VV[6],5);
V100= (*(LnkLI90))(/* INLINE-ARGS */V99);
V101= list(4,/* INLINE-ARGS */V98,(V97),/* INLINE-ARGS */V100,(VFUN_NARGS=2,(*(LnkLI93))(VV[39],VV[40])));
V43= make_cons(/* INLINE-ARGS */V101,(V43));
(VV[30]->s.s_dbind)= make_cons((V97),(VV[30]->s.s_dbind));
goto T301;}
T303:;
if(type_of(cdddr((V51)))==t_cons){
goto T315;}
if((cdddr((V51)))==Cnil){
goto T317;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T317:;
{object V102;
object V103;
V102= (*(LnkLI91))(caddr((V51)),(V58));
V103= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55));
V57= make_cons(cadr((V51)),(V57));
V104= car((V51));
V105= structure_ref((V103),VV[6],5);
V106= (*(LnkLI92))(/* INLINE-ARGS */V105,(V102),caddr((V51)));
V107= list(4,/* INLINE-ARGS */V104,(V103),/* INLINE-ARGS */V106,(VFUN_NARGS=2,(*(LnkLI93))(VV[39],VV[40])));
V43= make_cons(/* INLINE-ARGS */V107,(V43));
(VV[30]->s.s_dbind)= make_cons((V103),(VV[30]->s.s_dbind));
goto T301;}
T315:;
if((cddddr((V51)))==Cnil){
goto T327;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T327:;
{object V108;
object V109;
object V110;
V108= (*(LnkLI91))(caddr((V51)),(V58));
V109= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55));
V110= (*(LnkLI89))(cadddr((V51)),(V53),(V54),(V55));
V57= make_cons(cadr((V51)),(V57));
V57= make_cons(cadddr((V51)),(V57));
V111= car((V51));
V112= structure_ref((V109),VV[6],5);
V113= (*(LnkLI92))(/* INLINE-ARGS */V112,(V108),caddr((V51)));
V114= list(4,/* INLINE-ARGS */V111,(V109),/* INLINE-ARGS */V113,(V110));
V43= make_cons(/* INLINE-ARGS */V114,(V43));
(VV[30]->s.s_dbind)= make_cons((V109),(VV[30]->s.s_dbind));
(VV[30]->s.s_dbind)= make_cons((V110),(VV[30]->s.s_dbind));}
T301:;
goto T134;
T135:;
V59= (VFUN_NARGS=0,(*(LnkLI85))());
T136:;
if(((V50))!=Cnil){
goto T343;}
(void)((*(LnkLI94))((V58),(V59)));
goto T129;
T343:;
if(type_of((V50))==t_cons){
goto T347;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
T347:;
{object V115;
V115= car((V50));
V50= cdr((V50));
V51= (V115);}
if(!(type_of((V51))==t_cons)){
goto T357;}
if(type_of(cdr((V51)))==t_cons){
goto T360;}
if((cdr((V51)))==Cnil){
goto T362;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T362:;
{object V116;
V116= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
V57= make_cons(car((V51)),(V57));
V117= structure_ref((V116),VV[6],5);
V118= (*(LnkLI90))(/* INLINE-ARGS */V117);
V48= make_cons(/* INLINE-ARGS */V118,(V48));
V47= make_cons((V116),(V47));
(VV[30]->s.s_dbind)= make_cons((V116),(VV[30]->s.s_dbind));
goto T355;}
T360:;
if((cddr((V51)))==Cnil){
goto T373;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
T373:;
{object V119;
object V120;
V119= (*(LnkLI91))(cadr((V51)),(V59));
V120= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
V57= make_cons(car((V51)),(V57));
V121= structure_ref((V120),VV[6],5);
V122= (*(LnkLI92))(/* INLINE-ARGS */V121,(V119),cadr((V51)));
V48= make_cons(/* INLINE-ARGS */V122,(V48));
V47= make_cons((V120),(V47));
(VV[30]->s.s_dbind)= make_cons((V120),(VV[30]->s.s_dbind));
goto T355;}
T357:;
{object V123;
V123= (*(LnkLI89))((V51),(V53),(V54),(V55));
V57= make_cons((V51),(V57));
V124= structure_ref((V123),VV[6],5);
V125= (*(LnkLI90))(/* INLINE-ARGS */V124);
V48= make_cons(/* INLINE-ARGS */V125,(V48));
V47= make_cons((V123),(V47));
(VV[30]->s.s_dbind)= make_cons((V123),(VV[30]->s.s_dbind));}
T355:;
goto T136;
T129:;
V40= reverse((V40));
V41= reverse((V41));
V43= reverse((V43));
V47= reverse((V47));
V48= reverse((V48));
(void)((*(LnkLI95))((V57),(V55),(V54)));
V52= (*(LnkLI96))((V56),(V52));
(void)((*(LnkLI94))((V58),cadr((V52))));
{object V126;
object V127;
V126= (V40);
V127= car((V126));
T412:;
if(!(endp((V126)))){
goto T413;}
goto T408;
T413:;
(void)((*(LnkLI97))((V127)));
V126= cdr((V126));
V127= car((V126));
goto T412;}
T408:;
{object V128;
object V129;
V128= (V41);
V129= car((V128));
T427:;
if(!(endp((V128)))){
goto T428;}
goto T423;
T428:;
(void)((*(LnkLI97))(car((V129))));
if((caddr((V129)))==Cnil){
goto T433;}
(void)((*(LnkLI97))(caddr((V129))));
T433:;
V128= cdr((V128));
V129= car((V128));
goto T427;}
T423:;
if(((V42))==Cnil){
goto T441;}
(void)((*(LnkLI97))((V42)));
T441:;
{object V130;
object V131;
V130= (V43);
V131= car((V130));
T448:;
if(!(endp((V130)))){
goto T449;}
goto T444;
T449:;
(void)((*(LnkLI97))(cadr((V131))));
if((cadddr((V131)))==Cnil){
goto T454;}
(void)((*(LnkLI97))(cadddr((V131))));
T454:;
V130= cdr((V130));
V131= car((V130));
goto T448;}
T444:;
{object V132;
object V133;
V132= (V47);
V133= car((V132));
T466:;
if(!(endp((V132)))){
goto T467;}
goto T462;
T467:;
(void)((*(LnkLI97))((V133)));
V132= cdr((V132));
V133= car((V132));
goto T466;}
T462:;
if(((V47))==Cnil){
goto T477;}
(void)((*(LnkLI94))((V59),cadr((V52))));
V52= list(5,VV[41],(V59),(V47),(V48),(V52));
if(!(eql((V60),symbol_value(VV[31])))){
goto T483;}
goto T477;
T483:;
(void)(structure_set((V59),VV[5],4,Ct));
T477:;
V52= (*(LnkLI98))((V40),(V52),(V38));
V45= list(6,(V40),(V41),(V42),(V44),(V43),(V46));
if(symbol_value(VV[42])==Cnil){
goto T489;}
(void)((*(LnkLI99))((V45)));
T489:;
{object V134 = list(5,VV[4],(V58),(V45),(V49),(V52));
bds_unwind1;
VMR9(V134)}}}
}
/* local entry for function FIX-DOWN-ARGS */
static object LI10(V138,V139,V140)
object V138;object V139;object V140;
{ VMB10 VMS10 VMV10
TTL:;
{object V141;
object V142;
object V143;
object V144;
V141= Cnil;
V142= Cnil;
V143= Cnil;
V144= Cnil;
{object V145;
object V146;
V145= get((V140),VV[43],Cnil);
V146= get((V140),VV[44],Cnil);
{object V147;
object V148;
V147= (V138);
V148= (V145);
T500:;
if(((V147))!=Cnil){
goto T501;}
goto T496;
T501:;
V144= car((V147));
if(((V146))!=Cnil){
goto T509;}
if((car((V148)))==(Ct)){
goto T509;}
{object V149 = (V139);
VMR10(V149)}
T509:;
V150= structure_ref((V144),VV[6],1);
if(!((/* INLINE-ARGS */V150)==(VV[8]))){
goto T507;}
V151= structure_ref((V144),VV[6],4);
if(!((/* INLINE-ARGS */V151)==(VV[45]))){
goto T507;}
{object V152;
object V153;
V154= structure_ref((V144),VV[6],0);
V152= (*(LnkLI89))(/* INLINE-ARGS */V154,Cnil,Cnil,Cnil);
if((V143)!=Cnil){
V155= (V143);
goto T519;}
V143= (VFUN_NARGS=0,(*(LnkLI85))());
V155= (V143);
T519:;
V153= list(3,VV[6],V155,list(2,(V152),Cnil));
V141= make_cons((V144),(V141));
{object V156;
object V157;
V156= (V147);
V157= (V152);
if(type_of((V156))!=t_cons)FEwrong_type_argument(Scons,(V156));
((V156))->c.c_car = (V157);}
{object V158;
object V159;
V158= (V143);
V160= structure_ref((V158),VV[5],1);
V159= make_cons((V152),/* INLINE-ARGS */V160);
(void)(structure_set((V158),VV[5],1,(V159)));}
V142= make_cons((V153),(V142));}
T507:;
V147= cdr((V147));
V148= cdr((V148));
goto T500;}
T496:;
if(((V141))==Cnil){
goto T536;}
{object V161 = list(5,VV[41],(V143),(V141),(V142),(V139));
VMR10(V161)}
T536:;
{object V162 = (V139);
VMR10(V162)}}}
}
/* local entry for function THE-PARAMETER */
static object LI11(V164)
register object V164;
{ VMB11 VMS11 VMV11
TTL:;
if(type_of((V164))==t_symbol){
goto T538;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V164))));
T538:;
base[0]= (V164);
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T541;}
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V164))));
T541:;
{object V165 = (V164);
VMR11(V165)}
}
/* local entry for function C2LAMBDA-EXPR */
static object LI12(V167,V166,va_alist)
object V167,V166;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB12 VMS12 VMV12
bds_check;
{register object V168;
object V169;
object V170;
object V171;
if(narg <2) too_few_arguments();
V168= V167;
V169= V166;
narg = narg - 2;
if (narg <= 0) goto T545;
else {
va_start(ap);
V170= va_arg(ap,object);}
V171= Ct;
--narg; goto T546;
T545:;
V170= Cnil;
V171= Cnil;
T546:;
if((symbol_value(VV[49]))==Cnil){
goto T550;}
if(((V171))==Cnil){
goto T550;}
{object V172;
object V173;
V172= car((V168));
V173= car((V172));
T560:;
if(!(endp((V172)))){
goto T561;}
goto T556;
T561:;
if((structure_ref((V173),VV[6],3))==Cnil){
goto T565;}
goto T550;
T565:;
V172= cdr((V172));
V173= car((V172));
goto T560;}
T556:;
if((cadr((V168)))!=Cnil){
goto T550;}
if((caddr((V168)))!=Cnil){
goto T550;}
if((cadddr((V168)))!=Cnil){
goto T550;}
base[0]= make_cons((V170),car((V168)));
goto T548;
T550:;
base[0]= Cnil;
T548:;
bds_bind(VV[48],base[0]);
if((caddr((V168)))==Cnil){
goto T580;}
V174= structure_ref(caddr((V168)),VV[6],5);
if(!((/* INLINE-ARGS */V174)==(VV[51]))){
goto T580;}
base[1]= Ct;
goto T578;
T580:;
base[1]= symbol_value(VV[50]);
T578:;
bds_bind(VV[50],base[1]);
if((cadddr((V168)))==Cnil){
goto T585;}
{object V175 = (*(LnkLI100))((V168),(V169));
bds_unwind1;
bds_unwind1;
VMR12(V175)}
T585:;
{object V176 = (*(LnkLI101))((V168),(V169));
bds_unwind1;
bds_unwind1;
VMR12(V176)}}
}
/* local entry for function C2LAMBDA-EXPR-WITHOUT-KEY */
static object LI13(V179,V180)
object V179;object V180;
{ VMB13 VMS13 VMV13
bds_check;
TTL:;
{object V181;
object V182;
object V183;
object V184;
V181= car((V179));
V182= cadr((V179));
V183= caddr((V179));
V184= Cnil;
bds_bind(VV[52],symbol_value(VV[52]));
bds_bind(VV[53],symbol_value(VV[53]));
bds_bind(VV[25],symbol_value(VV[25]));
bds_bind(VV[26],symbol_value(VV[26]));
base[4]= Cnil;
{object V185;
object V186;
V185= (V181);
V186= car((V185));
T596:;
if(!(endp((V185)))){
goto T597;}
goto T592;
T597:;
base[5]= (V186);
vs_top=(vs_base=base+5)+1;
L14(base);
vs_top=sup;
V185= cdr((V185));
V186= car((V185));
goto T596;}
T592:;
{object V187;
object V188;
V187= (V182);
V188= car((V187));
T612:;
if(!(endp((V187)))){
goto T613;}
goto T608;
T613:;
base[5]= car((V188));
vs_top=(vs_base=base+5)+1;
L14(base);
vs_top=sup;
if((caddr((V188)))==Cnil){
goto T619;}
base[5]= caddr((V188));
vs_top=(vs_base=base+5)+1;
L14(base);
vs_top=sup;
T619:;
V187= cdr((V187));
V188= car((V187));
goto T612;}
T608:;
if(((V183))==Cnil){
goto T591;}
base[5]= (V183);
vs_top=(vs_base=base+5)+1;
L14(base);
vs_top=sup;
T591:;
if((symbol_value(VV[55]))!=Cnil){
goto T632;}
if((symbol_value(VV[56]))==Cnil){
goto T631;}
T632:;
if(((V183))!=Cnil){
goto T636;}
if(((V182))==Cnil){
goto T637;}
T636:;
if(((V181))==Cnil){
goto T641;}
princ_str("\n if(vs_top-vs_base<",VV[10]);
V189 = make_fixnum(length((V181)));
(void)((*(LnkLI80))(V189));
princ_str(") too_few_arguments();",VV[10]);
T641:;
if(((V183))!=Cnil){
goto T631;}
princ_str("\n if(vs_top-vs_base>",VV[10]);
{ save_avma;
V190 = stoi(length((V181)));
V191 = stoi(length((V182)));
V192= make_integer(addii(V190,V191));
(void)((*(LnkLI80))(/* INLINE-ARGS */V192));restore_avma;}
princ_str(") too_many_arguments();",VV[10]);
goto T631;
T637:;
princ_str("\n check_arg(",VV[10]);
V193 = make_fixnum(length((V181)));
(void)((*(LnkLI80))(V193));
princ_str(");",VV[10]);
T631:;
{object V194;
object V195;
V194= (V181);
V195= car((V194));
T659:;
if(!(endp((V194)))){
goto T660;}
goto T655;
T660:;
V196= (*(LnkLI102))();
(void)(structure_set((V195),VV[6],2,/* INLINE-ARGS */V196));
V194= cdr((V194));
V195= car((V194));
goto T659;}
T655:;
{object V197;
object V198;
V197= (V182);
V198= car((V197));
T674:;
if(!(endp((V197)))){
goto T675;}
goto T670;
T675:;
V199= car((V198));
V200= (*(LnkLI102))();
(void)(structure_set(/* INLINE-ARGS */V199,VV[6],2,/* INLINE-ARGS */V200));
V197= cdr((V197));
V198= car((V197));
goto T674;}
T670:;
if(((V183))==Cnil){
goto T685;}
V201= (*(LnkLI102))();
(void)(structure_set((V183),VV[6],2,/* INLINE-ARGS */V201));
T685:;
{object V202;
object V203;
V202= (V182);
V203= car((V202));
T692:;
if(!(endp((V202)))){
goto T693;}
goto T688;
T693:;
if((caddr((V203)))==Cnil){
goto T697;}
V204= caddr((V203));
V205= (*(LnkLI102))();
(void)(structure_set(/* INLINE-ARGS */V204,VV[6],2,/* INLINE-ARGS */V205));
T697:;
V202= cdr((V202));
V203= car((V202));
goto T692;}
T688:;
{object V206;
object V207;
V206= (V181);
V207= car((V206));
T709:;
if(!(endp((V206)))){
goto T710;}
goto T705;
T710:;
(void)((*(LnkLI103))((V207)));
V206= cdr((V206));
V207= car((V206));
goto T709;}
T705:;
if(((V182))!=Cnil){
goto T722;}
if(((V183))==Cnil){
goto T720;}
T722:;
if(((V181))==Cnil){
goto T720;}
princ_str("\n vs_base=vs_base+",VV[10]);
V208 = make_fixnum(length((V181)));
(void)((*(LnkLI80))(V208));
princ_char(59,VV[10]);
T720:;
if(((V182))==Cnil){
goto T732;}
bds_bind(VV[25],(VV[25]->s.s_dbind));
bds_bind(VV[52],(VV[52]->s.s_dbind));
bds_bind(VV[26],(VV[26]->s.s_dbind));
if(((V183))==Cnil){
goto T735;}
princ_str("\n vs_top[0]=Cnil;",VV[10]);
princ_str("\n {object *p=vs_top, *q=vs_base+",VV[10]);
V209 = make_fixnum(length((V182)));
(void)((*(LnkLI80))(V209));
princ_char(59,VV[10]);
princ_str("\n for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]);
T735:;
{object V210;
V210= (V182);
T748:;
if(!(endp((V210)))){
goto T749;}
goto T745;
T749:;
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
V211= make_cons(symbol_value(VV[57]),Cnil);
V184= make_cons(/* INLINE-ARGS */V211,(V184));
princ_str("\n if(vs_base>=vs_top){",VV[10]);
(void)((*(LnkLI104))());
if(type_of(car((V184)))!=t_cons)FEwrong_type_argument(Scons,car((V184)));
(car((V184)))->c.c_cdr = Ct;
(void)(car((V184)));
princ_str("goto T",VV[10]);
(void)((*(LnkLI80))(car(car((V184)))));
princ_char(59,VV[10]);
princ_char(125,VV[10]);
(void)((*(LnkLI103))(caar((V210))));
if((caddar((V210)))==Cnil){
goto T767;}
(void)((*(LnkLI105))(caddar((V210)),Ct));
T767:;
if((cdr((V210)))==Cnil){
goto T770;}
princ_str("\n vs_base++;",VV[10]);
T770:;
V210= cdr((V210));
goto T748;}
T745:;
if(((V183))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T734;}
V212= (*(LnkLI103))((V183));
bds_unwind1;
bds_unwind1;
bds_unwind1;
T734:;
princ_str("\n ",VV[10]);
(void)((*(LnkLI104))());
{object V213;
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
V213= make_cons(symbol_value(VV[57]),Cnil);
princ_str("\n ",VV[10]);
if(type_of((V213))!=t_cons)FEwrong_type_argument(Scons,(V213));
((V213))->c.c_cdr = Ct;
princ_str("goto T",VV[10]);
(void)((*(LnkLI80))(car((V213))));
princ_char(59,VV[10]);
V184= reverse((V184));
{object V214;
object V215;
V214= (V182);
V215= car((V214));
T795:;
if(!(endp((V214)))){
goto T796;}
goto T791;
T796:;
if((cdr(car((V184))))==Cnil){
goto T800;}
princ_str("\nT",VV[10]);
(void)((*(LnkLI80))(car(car((V184)))));
princ_str(":;",VV[10]);
T800:;
{object V216;
V216= car((V184));
V184= cdr((V184));}
(void)((*(LnkLI106))(car((V215)),cadr((V215))));
if((caddr((V215)))==Cnil){
goto T811;}
(void)((*(LnkLI105))(caddr((V215)),Cnil));
T811:;
V214= cdr((V214));
V215= car((V214));
goto T795;}
T791:;
if(((V183))==Cnil){
goto T819;}
(void)((*(LnkLI105))((V183),Cnil));
T819:;
if((cdr((V213)))==Cnil){
goto T730;}
princ_str("\nT",VV[10]);
(void)((*(LnkLI80))(car((V213))));
princ_str(":;",VV[10]);
goto T730;}
T732:;
if(((V183))==Cnil){
goto T828;}
princ_str("\n vs_top[0]=Cnil;",VV[10]);
princ_str("\n {object *p=vs_top;",VV[10]);
princ_str("\n for(;p>vs_base;p--)p[-1]=",VV[10]);
if((symbol_value(VV[50]))==Cnil){
goto T839;}
V217= VV[58];
goto T837;
T839:;
V217= VV[59];
T837:;
(void)((*(LnkLI80))(V217));
princ_str("(p[-1],p[0]);}",VV[10]);
(void)((*(LnkLI103))((V183)));
princ_str("\n ",VV[10]);
(void)((*(LnkLI104))());
goto T730;
T828:;
princ_str("\n ",VV[10]);
(void)((*(LnkLI104))());
T730:;
if((symbol_value(VV[48]))==Cnil){
goto T845;}
(VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind));
princ_str("\nTTL:;",VV[10]);
T845:;
base[5]= (V180);
vs_top=(vs_base=base+5)+1;
(void) (*Lnk107)();
vs_top=sup;
if((base[4])==Cnil){
goto T854;}
princ_str("\n }",VV[10]);
{object V218 = Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR13(V218)}
T854:;
{object V219 = Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR13(V219)}}
}
/* local entry for function C2LAMBDA-EXPR-WITH-KEY */
static object LI15(V222,V223)
object V222;object V223;
{ VMB14 VMS14 VMV14
bds_check;
TTL:;
{object V224;
object V225;
object V226;
object V227;
object V228;
object V229;
V224= car((V222));
V225= cadr((V222));
V226= caddr((V222));
V227= car(cddddr((V222)));
V228= cadr(cddddr((V222)));
V229= Cnil;
bds_bind(VV[52],symbol_value(VV[52]));
bds_bind(VV[53],symbol_value(VV[53]));
bds_bind(VV[25],symbol_value(VV[25]));
bds_bind(VV[26],symbol_value(VV[26]));
base[4]= Cnil;
{object V230;
object V231;
V230= (V224);
V231= car((V230));
T868:;
if(!(endp((V230)))){
goto T869;}
goto T864;
T869:;
base[5]= (V231);
vs_top=(vs_base=base+5)+1;
L16(base);
vs_top=sup;
V230= cdr((V230));
V231= car((V230));
goto T868;}
T864:;
{object V232;
object V233;
V232= (V225);
V233= car((V232));
T884:;
if(!(endp((V232)))){
goto T885;}
goto T880;
T885:;
base[5]= car((V233));
vs_top=(vs_base=base+5)+1;
L16(base);
vs_top=sup;
if((caddr((V233)))==Cnil){
goto T891;}
base[5]= caddr((V233));
vs_top=(vs_base=base+5)+1;
L16(base);
vs_top=sup;
T891:;
V232= cdr((V232));
V233= car((V232));
goto T884;}
T880:;
if(((V226))==Cnil){
goto T900;}
base[5]= (V226);
vs_top=(vs_base=base+5)+1;
L16(base);
vs_top=sup;
T900:;
{object V234;
object V235;
V234= (V227);
V235= car((V234));
T907:;
if(!(endp((V234)))){
goto T908;}
goto T863;
T908:;
base[5]= cadr((V235));
vs_top=(vs_base=base+5)+1;
L16(base);
vs_top=sup;
if((cadddr((V235)))==Cnil){
goto T914;}
base[5]= cadddr((V235));
vs_top=(vs_base=base+5)+1;
L16(base);
vs_top=sup;
T914:;
V234= cdr((V234));
V235= car((V234));
goto T907;}
T863:;
if((symbol_value(VV[55]))!=Cnil){
goto T925;}
if((symbol_value(VV[56]))==Cnil){
goto T923;}
T925:;
if(((V224))==Cnil){
goto T923;}
if(((V224))==Cnil){
goto T923;}
princ_str("\n if(vs_top-vs_base<",VV[10]);
V236 = make_fixnum(length((V224)));
(void)((*(LnkLI80))(V236));
princ_str(") too_few_arguments();",VV[10]);
T923:;
{object V237;
object V238;
V237= (V224);
V238= car((V237));
T939:;
if(!(endp((V237)))){
goto T940;}
goto T935;
T940:;
V239= (*(LnkLI102))();
(void)(structure_set((V238),VV[6],2,/* INLINE-ARGS */V239));
V237= cdr((V237));
V238= car((V237));
goto T939;}
T935:;
{object V240;
object V241;
V240= (V225);
V241= car((V240));
T954:;
if(!(endp((V240)))){
goto T955;}
goto T950;
T955:;
V242= car((V241));
V243= (*(LnkLI102))();
(void)(structure_set(/* INLINE-ARGS */V242,VV[6],2,/* INLINE-ARGS */V243));
V240= cdr((V240));
V241= car((V240));
goto T954;}
T950:;
if(((V226))==Cnil){
goto T965;}
V244= (*(LnkLI102))();
(void)(structure_set((V226),VV[6],2,/* INLINE-ARGS */V244));
T965:;
{object V245;
object V246;
V245= (V227);
V246= car((V245));
T972:;
if(!(endp((V245)))){
goto T973;}
goto T968;
T973:;
V247= cadr((V246));
V248= (*(LnkLI102))();
(void)(structure_set(/* INLINE-ARGS */V247,VV[6],2,/* INLINE-ARGS */V248));
V245= cdr((V245));
V246= car((V245));
goto T972;}
T968:;
{object V249;
object V250;
V249= (V227);
V250= car((V249));
T987:;
if(!(endp((V249)))){
goto T988;}
goto T983;
T988:;
V251= cadddr((V250));
V252= (*(LnkLI102))();
(void)(structure_set(/* INLINE-ARGS */V251,VV[6],2,/* INLINE-ARGS */V252));
V249= cdr((V249));
V250= car((V249));
goto T987;}
T983:;
{object V253;
object V254;
V253= (V225);
V254= car((V253));
T1002:;
if(!(endp((V253)))){
goto T1003;}
goto T998;
T1003:;
if((caddr((V254)))==Cnil){
goto T1007;}
V255= caddr((V254));
V256= (*(LnkLI102))();
(void)(structure_set(/* INLINE-ARGS */V255,VV[6],2,/* INLINE-ARGS */V256));
T1007:;
V253= cdr((V253));
V254= car((V253));
goto T1002;}
T998:;
princ_str("\n parse_key(vs_base",VV[10]);
if(((V224))!=Cnil){
goto T1018;}
if(((V225))==Cnil){
goto T1017;}
T1018:;
princ_char(43,VV[10]);
{ save_avma;
V257 = stoi(length((V224)));
V258 = stoi(length((V225)));
V259= make_integer(addii(V257,V258));
(void)((*(LnkLI80))(/* INLINE-ARGS */V259));restore_avma;}
T1017:;
if(((V226))==Cnil){
goto T1026;}
princ_str(",TRUE,",VV[10]);
goto T1024;
T1026:;
princ_str(",FALSE,",VV[10]);
T1024:;
if(((V228))==Cnil){
goto T1032;}
princ_str("TRUE,",VV[10]);
goto T1030;
T1032:;
princ_str("FALSE,",VV[10]);
T1030:;
V260 = make_fixnum(length((V227)));
(void)((*(LnkLI80))(V260));
{object V261;
object V262;
V261= (V227);
V262= car((V261));
T1042:;
if(!(endp((V261)))){
goto T1043;}
goto T1038;
T1043:;
princ_str(",VV[",VV[10]);
V263= (*(LnkLI108))(car((V262)));
(void)((*(LnkLI80))(/* INLINE-ARGS */V263));
princ_char(93,VV[10]);
V261= cdr((V261));
V262= car((V261));
goto T1042;}
T1038:;
princ_str(");",VV[10]);
{object V264;
object V265;
V264= (V224);
V265= car((V264));
T1062:;
if(!(endp((V264)))){
goto T1063;}
goto T1058;
T1063:;
(void)((*(LnkLI103))((V265)));
V264= cdr((V264));
V265= car((V264));
goto T1062;}
T1058:;
if(((V225))==Cnil){
goto T1073;}
if(((V224))==Cnil){
goto T1076;}
princ_str("\n vs_base += ",VV[10]);
V266 = make_fixnum(length((V224)));
(void)((*(LnkLI80))(V266));
princ_char(59,VV[10]);
T1076:;
bds_bind(VV[25],(VV[25]->s.s_dbind));
bds_bind(VV[52],(VV[52]->s.s_dbind));
bds_bind(VV[26],(VV[26]->s.s_dbind));
{object V267;
V267= (V225);
T1085:;
if(!(endp((V267)))){
goto T1086;}
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T1082;
T1086:;
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
V268= make_cons(symbol_value(VV[57]),Cnil);
V229= make_cons(/* INLINE-ARGS */V268,(V229));
princ_str("\n if(vs_base>=vs_top){vs_top=sup;",VV[10]);
if(type_of(car((V229)))!=t_cons)FEwrong_type_argument(Scons,car((V229)));
(car((V229)))->c.c_cdr = Ct;
(void)(car((V229)));
princ_str("goto T",VV[10]);
(void)((*(LnkLI80))(car(car((V229)))));
princ_char(59,VV[10]);
princ_char(125,VV[10]);
(void)((*(LnkLI103))(caar((V267))));
if((caddar((V267)))==Cnil){
goto T1103;}
(void)((*(LnkLI105))(caddar((V267)),Ct));
T1103:;
if((cdr((V267)))==Cnil){
goto T1106;}
princ_str("\n vs_base++;",VV[10]);
T1106:;
V267= cdr((V267));
goto T1085;}
T1082:;
V229= reverse((V229));
T1073:;
princ_str("\n vs_top=sup;",VV[10]);
if(((V225))==Cnil){
goto T1116;}
{object V269;
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
V269= make_cons(symbol_value(VV[57]),Cnil);
if(type_of((V269))!=t_cons)FEwrong_type_argument(Scons,(V269));
((V269))->c.c_cdr = Ct;
princ_str("goto T",VV[10]);
(void)((*(LnkLI80))(car((V269))));
princ_char(59,VV[10]);
{object V270;
object V271;
V270= (V225);
V271= car((V270));
T1130:;
if(!(endp((V270)))){
goto T1131;}
goto T1126;
T1131:;
if((cdr(car((V229))))==Cnil){
goto T1135;}
princ_str("\nT",VV[10]);
(void)((*(LnkLI80))(car(car((V229)))));
princ_str(":;",VV[10]);
T1135:;
{object V272;
V272= car((V229));
V229= cdr((V229));}
(void)((*(LnkLI106))(car((V271)),cadr((V271))));
if((caddr((V271)))==Cnil){
goto T1146;}
(void)((*(LnkLI105))(caddr((V271)),Cnil));
T1146:;
V270= cdr((V270));
V271= car((V270));
goto T1130;}
T1126:;
if((cdr((V269)))==Cnil){
goto T1116;}
princ_str("\nT",VV[10]);
(void)((*(LnkLI80))(car((V269))));
princ_str(":;",VV[10]);}
T1116:;
if(((V226))==Cnil){
goto T1159;}
(void)((*(LnkLI103))((V226)));
T1159:;
{object V273;
object V274;
V273= (V227);
V274= car((V273));
T1166:;
if(!(endp((V273)))){
goto T1167;}
goto T1162;
T1167:;
if(!((caaddr((V274)))==(VV[61]))){
goto T1173;}
if((caddr(caddr((V274))))!=Cnil){
goto T1173;}
(void)((*(LnkLI103))(cadr((V274))));
goto T1171;
T1173:;
princ_str("\n if(",VV[10]);
V275= structure_ref(cadddr((V274)),VV[6],2);
(void)((*(LnkLI109))(/* INLINE-ARGS */V275));
princ_str("==Cnil){",VV[10]);
bds_bind(VV[25],(VV[25]->s.s_dbind));
bds_bind(VV[52],(VV[52]->s.s_dbind));
bds_bind(VV[26],(VV[26]->s.s_dbind));
V276= (*(LnkLI106))(cadr((V274)),caddr((V274)));
bds_unwind1;
bds_unwind1;
bds_unwind1;
princ_str("\n }else{",VV[10]);
(void)((*(LnkLI103))(cadr((V274))));
princ_char(125,VV[10]);
T1171:;
V277= structure_ref(cadddr((V274)),VV[6],1);
if((/* INLINE-ARGS */V277)==(VV[40])){
goto T1187;}
(void)((*(LnkLI103))(cadddr((V274))));
T1187:;
V273= cdr((V273));
V274= car((V273));
goto T1166;}
T1162:;
base[5]= (V223);
vs_top=(vs_base=base+5)+1;
(void) (*Lnk107)();
vs_top=sup;
if((base[4])==Cnil){
goto T1198;}
princ_str("\n }",VV[10]);
{object V278 = Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR14(V278)}
T1198:;
{object V279 = Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR14(V279)}}
}
/* local entry for function NEED-TO-SET-VS-POINTERS */
static object LI17(V281)
object V281;
{ VMB15 VMS15 VMV15
TTL:;
if(symbol_value(VV[55])!=Cnil){
{object V282 = symbol_value(VV[55]);
VMR15(V282)}}
if(symbol_value(VV[56])!=Cnil){
{object V283 = symbol_value(VV[56]);
VMR15(V283)}}
base[0]= cadr((V281));
if(base[0]==Cnil)goto T1201;
{object V284 = base[0];
VMR15(V284)}
T1201:;
base[0]= caddr((V281));
if(base[0]==Cnil)goto T1203;
{object V285 = base[0];
VMR15(V285)}
T1203:;
{object V286 = cadddr((V281));
VMR15(V286)}
}
/* local entry for function C1DM */
static object LI18(V290,V291,V292)
object V290;register object V291;register object V292;
{ VMB16 VMS16 VMV16
bds_check;
TTL:;
{object V293;
object V294;
object V295;
object V296;
object V297;
object V298;
object V299;
object V300;
object V301;
bds_bind(VV[53],symbol_value(VV[53]));
V293= Cnil;
V294= Cnil;
V295= symbol_value(VV[31]);
bds_bind(VV[62],Cnil);
bds_bind(VV[63],(VFUN_NARGS=0,(*(LnkLI85))()));
bds_bind(VV[64],Cnil);
V296= Cnil;
V297= Cnil;
V298= Cnil;
V299= Cnil;
V300= Cnil;
V301= Cnil;
base[4]= (V292);
base[5]= Ct;
vs_top=(vs_base=base+4)+2;
(void) (*Lnk87)();
if(vs_base<vs_top){
V292= vs_base[0];
vs_base++;
}else{
V292= Cnil;}
if(vs_base<vs_top){
V297= vs_base[0];
vs_base++;
}else{
V297= Cnil;}
if(vs_base<vs_top){
V299= vs_base[0];
vs_base++;
}else{
V299= Cnil;}
if(vs_base<vs_top){
V298= vs_base[0];
vs_base++;
}else{
V298= Cnil;}
if(vs_base<vs_top){
V300= vs_base[0];
vs_base++;
}else{
V300= Cnil;}
if(vs_base<vs_top){
V296= vs_base[0];
}else{
V296= Cnil;}
vs_top=sup;
V302= listA(3,VV[33],(V290),(V292));
V292= make_cons(/* INLINE-ARGS */V302,Cnil);
(void)((*(LnkLI88))((V297)));
if(!(type_of((V291))==t_cons||((V291))==Cnil)){
goto T1222;}
if(!((car((V291)))==(VV[65]))){
goto T1222;}
(VV[62]->s.s_dbind)= make_cons(cadr((V291)),(VV[62]->s.s_dbind));
V293= (*(LnkLI89))(cadr((V291)),(V297),(V298),(V299));
(VV[64]->s.s_dbind)= make_cons((V293),(VV[64]->s.s_dbind));
setq(VV[30],make_cons((V293),symbol_value(VV[30])));
V291= cddr((V291));
T1222:;
{object V303;
if(type_of((V291))==t_cons||((V291))==Cnil){
goto T1238;}
V303= Cnil;
goto T1237;
T1238:;
{object V304;
V304= (V291);
T1242:;
if(type_of((V304))==t_cons){
goto T1243;}
V303= Cnil;
goto T1237;
T1243:;
if(!((VV[66])==(car((V304))))){
goto T1247;}
V303= (V304);
goto T1237;
T1247:;
V304= cdr((V304));
goto T1242;}
T1237:;
if(((V303))==Cnil){
goto T1236;}
(VV[62]->s.s_dbind)= make_cons(cadr((V303)),(VV[62]->s.s_dbind));
V294= (*(LnkLI89))(cadr((V303)),(V297),(V298),(V299));
(VV[64]->s.s_dbind)= make_cons((V294),(VV[64]->s.s_dbind));
setq(VV[30],make_cons((V294),symbol_value(VV[30])));
base[4]= (V291);
base[5]= (V303);
vs_top=(vs_base=base+4)+2;
Lldiff();
vs_top=sup;
V305= vs_base[0];
V291= append(V305,cddr((V303)));}
T1236:;
base[4]= (V291);
base[5]= (V297);
base[6]= (V298);
base[7]= (V299);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk110)();
if(vs_base<vs_top){
V291= vs_base[0];
vs_base++;
}else{
V291= Cnil;}
if(vs_base<vs_top){
V301= vs_base[0];
}else{
V301= Cnil;}
vs_top=sup;
(void)((*(LnkLI95))((VV[62]->s.s_dbind),(V299),(V298)));
V292= (*(LnkLI96))((V300),(V292));{object V306;
V306= (VV[63]->s.s_dbind);
(void)((*(LnkLI94))(V306,cadr((V292))));}
{object V307;
V307= (eql((V295),symbol_value(VV[31]))?Ct:Cnil);
if(((V307))==Cnil){
goto T1280;}
goto T1277;
T1280:;
(void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct));
(void)(sputprop((V290),VV[67],Ct));}
T1277:;
{object V308;
object V309;
V308= (VV[64]->s.s_dbind);
V309= car((V308));
T1287:;
if(!(endp((V308)))){
goto T1288;}
goto T1283;
T1288:;
(void)((*(LnkLI97))((V309)));
V308= cdr((V308));
V309= car((V308));
goto T1287;}
T1283:;
{object V310 = list(7,(V296),(V301),(V293),(V294),(V291),(V292),(VV[63]->s.s_dbind));
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR16(V310)}}
}
/* function definition for C1DM-VL */
static L19()
{register object *base=vs_base;
register object *sup=base+VM17; VC17
vs_reserve(VM17);
{register object V311;
register object V312;
register object V313;
register object V314;
check_arg(4);
V311=(base[0]);
V312=(base[1]);
V313=(base[2]);
V314=(base[3]);
vs_top=sup;
TTL:;
{object V315;
object V316;
object V317;
object V318;
object V319;
object V320;
object V321;
object V322;
object V323;
object V324;
object V325;
object V326;
object V327;
object V328;
V315= Cnil;
V316= Cnil;
V317= Cnil;
V318= Cnil;
V319= Cnil;
V320= Cnil;
V321= Cnil;
V322= Cnil;
V323= Cnil;
V324= Cnil;
V325= Cnil;
V326= Cnil;
V327= small_fixnum(0);
V328= Cnil;
T1313:;
if(type_of((V311))==t_cons){
goto T1314;}
if(((V311))==Cnil){
goto T1317;}
if(((V316))==Cnil){
goto T1320;}
base[4]= VV[68];
vs_top=(vs_base=base+4)+1;
(void) (*Lnk111)();
vs_top=sup;
T1320:;
base[4]= (V311);
base[5]= (V312);
base[6]= (V313);
base[7]= (V314);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk112)();
vs_top=sup;
V322= vs_base[0];
T1317:;
V329= reverse((V320));
V330= reverse((V321));
V331= reverse((V324));
base[4]= list(7,/* INLINE-ARGS */V329,/* INLINE-ARGS */V330,(V322),(V323),/* INLINE-ARGS */V331,(V326),reverse((V325)));
base[5]= (V328);
vs_top=(vs_base=base+4)+2;
return;
T1314:;
{object V332;
V332= car((V311));
if(!(((V332))==(VV[69]))){
goto T1335;}
if(((V315))==Cnil){
goto T1337;}
base[4]= VV[69];
vs_top=(vs_base=base+4)+1;
(void) (*Lnk111)();
vs_top=sup;
T1337:;
V315= Ct;
{object V333;
V333= car((V311));
V311= cdr((V311));
goto T1332;}
T1335:;
if(((V332))==(VV[68])){
goto T1346;}
if(!(((V332))==(VV[70]))){
goto T1347;}
T1346:;
if(((V316))==Cnil){
goto T1351;}
base[4]= (V332);
vs_top=(vs_base=base+4)+1;
(void) (*Lnk111)();
vs_top=sup;
T1351:;
base[4]= cadr((V311));
base[5]= (V312);
base[6]= (V313);
base[7]= (V314);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk112)();
vs_top=sup;
V322= vs_base[0];
V316= Ct;
V315= Ct;
V311= cddr((V311));
if(!(((V332))==(VV[70]))){
goto T1332;}
V328= (V327);
goto T1332;
T1347:;
if(!(((V332))==(VV[71]))){
goto T1371;}
if(((V317))==Cnil){
goto T1373;}
base[4]= VV[71];
vs_top=(vs_base=base+4)+1;
(void) (*Lnk111)();
vs_top=sup;
T1373:;
V317= Ct;
V316= Ct;
V315= Ct;
V323= Ct;
{object V334;
V334= car((V311));
V311= cdr((V311));
goto T1332;}
T1371:;
if(!(((V332))==(VV[72]))){
goto T1389;}
if(((V317))==Cnil){
goto T1392;}
if(((V318))==Cnil){
goto T1391;}
T1392:;
base[4]= VV[72];
vs_top=(vs_base=base+4)+1;
(void) (*Lnk111)();
vs_top=sup;
T1391:;
V318= Ct;
V326= Ct;
{object V335;
V335= car((V311));
V311= cdr((V311));
goto T1332;}
T1389:;
if(!(((V332))==(VV[73]))){
goto T1405;}
if(((V319))==Cnil){
goto T1407;}
base[4]= VV[73];
vs_top=(vs_base=base+4)+1;
(void) (*Lnk111)();
vs_top=sup;
T1407:;
V319= Ct;
V318= Ct;
V317= Ct;
V316= Ct;
V315= Ct;
{object V336;
V336= car((V311));
V311= cdr((V311));
goto T1332;}
T1405:;
if(((V319))==Cnil){
goto T1425;}
{object V337;
object V338;
V337= Cnil;
V338= Cnil;
if(!(type_of((V332))==t_symbol)){
goto T1432;}
V337= (V332);
V338= (*(LnkLI113))();
goto T1430;
T1432:;
V337= car((V332));
if(!(endp(cdr((V332))))){
goto T1440;}
V338= (*(LnkLI113))();
goto T1430;
T1440:;
V338= (*(LnkLI91))(cadr((V332)),symbol_value(VV[63]));
T1430:;
base[4]= (V337);
base[5]= (V312);
base[6]= (V313);
base[7]= (V314);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk112)();
vs_top=sup;
V339= vs_base[0];
V340= list(2,V339,(V338));
V325= make_cons(/* INLINE-ARGS */V340,(V325));}
{object V341;
V341= car((V311));
V311= cdr((V311));
goto T1332;}
T1425:;
if(((V317))==Cnil){
goto T1454;}
{object V342;
object V343;
object V344;
object V345;
V342= Cnil;
V343= Cnil;
V344= Cnil;
V345= Cnil;
if(!(type_of((V332))==t_symbol)){
goto T1463;}
V342= (V332);
base[4]= coerce_to_string((V332));
base[5]= VV[38];
vs_top=(vs_base=base+4)+2;
Lintern();
vs_top=sup;
V343= vs_base[0];
V344= (*(LnkLI113))();
goto T1461;
T1463:;
if(!(type_of(car((V332)))==t_symbol)){
goto T1474;}
V342= car((V332));
base[4]= coerce_to_string(car((V332)));
base[5]= VV[38];
vs_top=(vs_base=base+4)+2;
Lintern();
vs_top=sup;
V343= vs_base[0];
goto T1472;
T1474:;
V342= cadar((V332));
V343= caar((V332));
T1472:;
if(!(endp(cdr((V332))))){
goto T1485;}
V344= (*(LnkLI113))();
goto T1461;
T1485:;
V344= (*(LnkLI91))(cadr((V332)),symbol_value(VV[63]));
if(endp(cddr((V332)))){
goto T1461;}
V345= caddr((V332));
T1461:;
base[4]= (V342);
base[5]= (V312);
base[6]= (V313);
base[7]= (V314);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk112)();
vs_top=sup;
V346= vs_base[0];
if(((V345))==Cnil){
goto T1501;}
base[4]= (V345);
base[5]= (V312);
base[6]= (V313);
base[7]= (V314);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk112)();
vs_top=sup;
V347= vs_base[0];
goto T1499;
T1501:;
V347= Cnil;
T1499:;
V348= list(4,(V343),V346,(V344),V347);
V324= make_cons(/* INLINE-ARGS */V348,(V324));}
{object V349;
V349= car((V311));
V311= cdr((V311));
goto T1332;}
T1454:;
if(((V315))==Cnil){
goto T1511;}
{object V350;
object V351;
object V352;
V350= Cnil;
V351= Cnil;
V352= Cnil;
if(!(type_of((V332))==t_symbol)){
goto T1519;}
V350= (V332);
V351= (*(LnkLI113))();
goto T1517;
T1519:;
V350= car((V332));
if(!(endp(cdr((V332))))){
goto T1527;}
V351= (*(LnkLI113))();
goto T1517;
T1527:;
V351= (*(LnkLI91))(cadr((V332)),symbol_value(VV[63]));
if(endp(cddr((V332)))){
goto T1517;}
V352= caddr((V332));
T1517:;
base[4]= (V350);
base[5]= (V312);
base[6]= (V313);
base[7]= (V314);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk112)();
vs_top=sup;
V353= vs_base[0];
if(((V352))==Cnil){
goto T1543;}
base[4]= (V352);
base[5]= (V312);
base[6]= (V313);
base[7]= (V314);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk112)();
vs_top=sup;
V354= vs_base[0];
goto T1541;
T1543:;
V354= Cnil;
T1541:;
V355= list(3,V353,(V351),V354);
V321= make_cons(/* INLINE-ARGS */V355,(V321));}
{object V356;
V356= car((V311));
V311= cdr((V311));}
V327= number_plus((V327),small_fixnum(1));
goto T1332;
T1511:;
base[4]= (V332);
base[5]= (V312);
base[6]= (V313);
base[7]= (V314);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk112)();
vs_top=sup;
V357= vs_base[0];
V320= make_cons(V357,(V320));
{object V358;
V358= car((V311));
V311= cdr((V311));}
V327= number_plus((V327),small_fixnum(1));}
T1332:;
goto T1313;}
}
}
/* function definition for C1DM-V */
static L20()
{register object *base=vs_base;
register object *sup=base+VM18; VC18
vs_reserve(VM18);
{register object V359;
object V360;
object V361;
object V362;
check_arg(4);
V359=(base[0]);
V360=(base[1]);
V361=(base[2]);
V362=(base[3]);
vs_top=sup;
TTL:;
if(!(type_of((V359))==t_symbol)){
goto T1569;}
setq(VV[62],make_cons((V359),symbol_value(VV[62])));
V359= (*(LnkLI89))((V359),(V360),(V361),(V362));
setq(VV[30],make_cons((V359),symbol_value(VV[30])));
setq(VV[64],make_cons((V359),symbol_value(VV[64])));
base[4]= (V359);
vs_top=(vs_base=base+4)+1;
return;
T1569:;
base[4]= (V359);
base[5]= (V360);
base[6]= (V361);
base[7]= (V362);
vs_top=(vs_base=base+4)+4;
(void) (*Lnk110)();
return;
}
}
/* local entry for function C1DM-BAD-KEY */
static object LI21(V364)
object V364;
{ VMB19 VMS19 VMV19
TTL:;
{object V365 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V364)));
VMR19(V365)}
}
/* function definition for C2DM */
static L22()
{register object *base=vs_base;
register object *sup=base+VM20; VC20
vs_reserve(VM20);
{register object V366;
register object V367;
object V368;
object V369;
check_arg(4);
V366=(base[0]);
V367=(base[1]);
V368=(base[2]);
V369=(base[3]);
vs_top=sup;
TTL:;
{object V370;
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
V370= symbol_value(VV[54]);
if((symbol_value(VV[55]))!=Cnil){
goto T1586;}
if((symbol_value(VV[56]))==Cnil){
goto T1585;}
T1586:;
princ_str("\n check_arg(2);",VV[10]);
T1585:;
if(((V366))==Cnil){
goto T1593;}
V371= (*(LnkLI102))();
(void)(structure_set((V366),VV[6],2,/* INLINE-ARGS */V371));
goto T1591;
T1593:;
(void)((*(LnkLI102))());
T1591:;
if(((V367))==Cnil){
goto T1597;}
V372= (*(LnkLI102))();
(void)(structure_set((V367),VV[6],2,/* INLINE-ARGS */V372));
goto T1595;
T1597:;
(void)((*(LnkLI102))());
T1595:;
(void)((*(LnkLI114))((V368)));
princ_str("\n vs_top=sup;",VV[10]);
if(((V366))==Cnil){
goto T1602;}
(void)((*(LnkLI103))((V366)));
T1602:;
if(((V367))==Cnil){
goto T1605;}
(void)((*(LnkLI103))((V367)));
T1605:;
princ_str("\n {object V",VV[10]);
(void)((*(LnkLI80))((V370)));
princ_str("=base[0]->c.c_cdr;",VV[10]);
(void)((*(LnkLI115))((V368),(V370)));
princ_char(125,VV[10]);
base[4]= (V369);
vs_top=(vs_base=base+4)+1;
(void) (*Lnk107)();
return;}
}
}
/* local entry for function C2DM-RESERVE-VL */
static object LI23(V374)
object V374;
{ VMB21 VMS21 VMV21
TTL:;
{object V375;
object V376;
V375= car((V374));
V376= car((V375));
T1620:;
if(!(endp((V375)))){
goto T1621;}
goto T1616;
T1621:;
(void)((*(LnkLI116))((V376)));
V375= cdr((V375));
V376= car((V375));
goto T1620;}
T1616:;
{object V377;
object V378;
V377= cadr((V374));
V378= car((V377));
T1635:;
if(!(endp((V377)))){
goto T1636;}
goto T1631;
T1636:;
(void)((*(LnkLI116))(car((V378))));
if((caddr((V378)))==Cnil){
goto T1641;}
(void)((*(LnkLI116))(caddr((V378))));
T1641:;
V377= cdr((V377));
V378= car((V377));
goto T1635;}
T1631:;
if((caddr((V374)))==Cnil){
goto T1649;}
(void)((*(LnkLI116))(caddr((V374))));
T1649:;
{object V379;
object V380;
V379= car(cddddr((V374)));
V380= car((V379));
T1656:;
if(!(endp((V379)))){
goto T1657;}
goto T1652;
T1657:;
(void)((*(LnkLI116))(cadr((V380))));
if((cadddr((V380)))==Cnil){
goto T1662;}
(void)((*(LnkLI116))(cadddr((V380))));
T1662:;
V379= cdr((V379));
V380= car((V379));
goto T1656;}
T1652:;
{object V381;
object V382;
V381= caddr(cddddr((V374)));
V382= car((V381));
T1673:;
if(!(endp((V381)))){
goto T1674;}
{object V383 = Cnil;
VMR21(V383)}
T1674:;
(void)((*(LnkLI116))(car((V382))));
V381= cdr((V381));
V382= car((V381));
goto T1673;}
}
/* local entry for function C2DM-RESERVE-V */
static object LI24(V385)
object V385;
{ VMB22 VMS22 VMV22
TTL:;
if(!(type_of((V385))==t_cons)){
goto T1685;}
{object V386 = (*(LnkLI114))((V385));
VMR22(V386)}
T1685:;
V387= (*(LnkLI102))();
{object V388 = structure_set((V385),VV[6],2,/* INLINE-ARGS */V387);
VMR22(V388)}
}
/* local entry for function C2DM-BIND-VL */
static object LI25(V391,V392)
object V391;register object V392;
{ VMB23 VMS23 VMV23
bds_check;
TTL:;
{object V393;
object V394;
object V395;
object V396;
object V397;
object V398;
object V399;
V393= car((V391));
V394= cadr((V391));
V395= caddr((V391));
V396= cadddr((V391));
V397= car(cddddr((V391)));
V398= cadr(cddddr((V391)));
V399= caddr(cddddr((V391)));
{object V400;
V400= (V393);
T1697:;
if(!(endp((V400)))){
goto T1698;}
goto T1694;
T1698:;
if((symbol_value(VV[55]))!=Cnil){
goto T1703;}
if((symbol_value(VV[56]))==Cnil){
goto T1702;}
T1703:;
princ_str("\n if(endp(V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_str("))invalid_macro_call();",VV[10]);
T1702:;
V401= car((V400));
V402= list(2,VV[75],(V392));
(void)((*(LnkLI117))(/* INLINE-ARGS */V401,/* INLINE-ARGS */V402));
if((cdr((V400)))!=Cnil){
goto T1712;}
if(((V394))!=Cnil){
goto T1712;}
if(((V395))!=Cnil){
goto T1712;}
if(((V396))!=Cnil){
goto T1712;}
if((symbol_value(VV[55]))!=Cnil){
goto T1712;}
if((symbol_value(VV[56]))==Cnil){
goto T1711;}
T1712:;
princ_str("\n V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_str("=V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_str("->c.c_cdr;",VV[10]);
T1711:;
V400= cdr((V400));
goto T1697;}
T1694:;
{object V403;
V403= (V394);
T1735:;
if(!(endp((V403)))){
goto T1736;}
goto T1732;
T1736:;
{object V404;
V404= car((V403));
princ_str("\n if(endp(V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_str(")){",VV[10]);
bds_bind(VV[25],symbol_value(VV[25]));
bds_bind(VV[52],symbol_value(VV[52]));
bds_bind(VV[26],symbol_value(VV[26]));
(void)((*(LnkLI118))(car((V404)),cadr((V404))));
if((caddr((V404)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T1746;}
V405= (*(LnkLI117))(caddr((V404)),Cnil);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T1746:;
princ_str("\n } else {",VV[10]);
V406= car((V404));
V407= list(2,VV[75],(V392));
(void)((*(LnkLI117))(/* INLINE-ARGS */V406,/* INLINE-ARGS */V407));
if((caddr((V404)))==Cnil){
goto T1740;}
(void)((*(LnkLI117))(caddr((V404)),Ct));}
T1740:;
if((cdr((V403)))!=Cnil){
goto T1756;}
if(((V395))!=Cnil){
goto T1756;}
if(((V396))!=Cnil){
goto T1756;}
if((symbol_value(VV[55]))!=Cnil){
goto T1756;}
if((symbol_value(VV[56]))==Cnil){
goto T1755;}
T1756:;
princ_str("\n V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_str("=V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_str("->c.c_cdr;",VV[10]);
T1755:;
princ_char(125,VV[10]);
V403= cdr((V403));
goto T1735;}
T1732:;
if(((V395))==Cnil){
goto T1776;}
V408= list(2,VV[76],(V392));
(void)((*(LnkLI117))((V395),/* INLINE-ARGS */V408));
T1776:;
{object V409;
object V410;
V409= (V397);
V410= car((V409));
T1783:;
if(!(endp((V409)))){
goto T1784;}
goto T1779;
T1784:;
{object V411;
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
V411= symbol_value(VV[54]);
princ_str("\n {object V",VV[10]);
(void)((*(LnkLI80))((V411)));
princ_str("=getf(V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_str(",VV[",VV[10]);
V412= (*(LnkLI108))(car((V410)));
(void)((*(LnkLI80))(/* INLINE-ARGS */V412));
princ_str("],OBJNULL);",VV[10]);
princ_str("\n if(V",VV[10]);
(void)((*(LnkLI80))((V411)));
princ_str("==OBJNULL){",VV[10]);
bds_bind(VV[25],symbol_value(VV[25]));
bds_bind(VV[52],symbol_value(VV[52]));
bds_bind(VV[26],symbol_value(VV[26]));
(void)((*(LnkLI118))(cadr((V410)),caddr((V410))));
if((cadddr((V410)))==Cnil){
goto T1805;}
(void)((*(LnkLI117))(cadddr((V410)),Cnil));
T1805:;
princ_str("\n } else {",VV[10]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
V413= cadr((V410));
V414= list(2,VV[76],(V411));
(void)((*(LnkLI117))(/* INLINE-ARGS */V413,/* INLINE-ARGS */V414));
if((cadddr((V410)))==Cnil){
goto T1810;}
(void)((*(LnkLI117))(cadddr((V410)),Ct));
T1810:;
princ_str("}}",VV[10]);}
V409= cdr((V409));
V410= car((V409));
goto T1783;}
T1779:;
if((symbol_value(VV[55]))!=Cnil){
goto T1821;}
if((symbol_value(VV[56]))==Cnil){
goto T1819;}
T1821:;
if(((V395))!=Cnil){
goto T1819;}
if(((V396))!=Cnil){
goto T1819;}
princ_str("\n if(!endp(V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_str("))invalid_macro_call();",VV[10]);
T1819:;
if((symbol_value(VV[55]))!=Cnil){
goto T1833;}
if((symbol_value(VV[56]))==Cnil){
goto T1831;}
T1833:;
if(((V396))==Cnil){
goto T1831;}
if(((V398))!=Cnil){
goto T1831;}
princ_str("\n check_other_key(V",VV[10]);
(void)((*(LnkLI80))((V392)));
princ_char(44,VV[10]);
V415 = make_fixnum(length((V397)));
(void)((*(LnkLI80))(V415));
{object V416;
object V417;
V416= (V397);
V417= car((V416));
T1849:;
if(!(endp((V416)))){
goto T1850;}
goto T1845;
T1850:;
princ_str(",VV[",VV[10]);
V418= (*(LnkLI108))(car((V417)));
(void)((*(LnkLI80))(/* INLINE-ARGS */V418));
princ_char(93,VV[10]);
V416= cdr((V416));
V417= car((V416));
goto T1849;}
T1845:;
princ_str(");",VV[10]);
T1831:;
{object V419;
object V420;
V419= (V399);
V420= car((V419));
T1867:;
if(!(endp((V419)))){
goto T1868;}
{object V421 = Cnil;
VMR23(V421)}
T1868:;
(void)((*(LnkLI118))(car((V420)),cadr((V420))));
V419= cdr((V419));
V420= car((V419));
goto T1867;}}
}
/* local entry for function C2DM-BIND-LOC */
static object LI26(V424,V425)
object V424;object V425;
{ VMB24 VMS24 VMV24
TTL:;
if(!(type_of((V424))==t_cons)){
goto T1879;}
{object V426;
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
V426= symbol_value(VV[54]);
princ_str("\n {object V",VV[10]);
(void)((*(LnkLI80))((V426)));
princ_str("= ",VV[10]);
(void)((*(LnkLI80))((V425)));
princ_char(59,VV[10]);
(void)((*(LnkLI115))((V424),(V426)));
princ_char(125,VV[10]);
{object V427 = Cnil;
VMR24(V427)}}
T1879:;
{object V428 = (*(LnkLI105))((V424),(V425));
VMR24(V428)}
}
/* local entry for function C2DM-BIND-INIT */
static object LI27(V431,V432)
object V431;object V432;
{ VMB25 VMS25 VMV25
bds_check;
TTL:;
if(!(type_of((V431))==t_cons)){
goto T1892;}
{object V433;
object V434;
bds_bind(VV[53],symbol_value(VV[53]));
bds_bind(VV[77],small_fixnum(0));
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
V433= symbol_value(VV[54]);
V435= make_cons((V432),Cnil);
V436= (VFUN_NARGS=2,(*(LnkLI119))(/* INLINE-ARGS */V435,VV[78]));
V434= car(/* INLINE-ARGS */V436);
princ_str("\n {object V",VV[10]);
(void)((*(LnkLI80))((V433)));
princ_str("= ",VV[10]);
(void)((*(LnkLI80))((V434)));
princ_char(59,VV[10]);
(void)((*(LnkLI115))((V431),(V433)));
princ_char(125,VV[10]);
{object V437 = (*(LnkLI120))();
bds_unwind1;
bds_unwind1;
VMR25(V437)}}
T1892:;
{object V438 = (*(LnkLI106))((V431),(V432));
VMR25(V438)}
}
/* local function DO-DECL */
static L16(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM26; VC26
vs_reserve(VM26);
{object V439;
check_arg(1);
V439=(base[0]);
vs_top=sup;
TTL:;
{object V440;
V440= (*(LnkLI121))((V439));
if(((V440))==Cnil){
goto T1908;}
{object V441;
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
V441= symbol_value(VV[54]);
(void)(structure_set((V439),VV[6],1,(V440)));
(void)(structure_set((V439),VV[6],4,(V441)));
princ_str("\n ",VV[10]);
if((base0[4])!=Cnil){
goto T1915;}
princ_char(123,VV[10]);
base0[4]= Ct;
T1915:;
base[1]= (V439);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk122)();
return;}
T1908:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
}
}
/* local function DO-DECL */
static L14(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM27; VC27
vs_reserve(VM27);
{object V442;
check_arg(1);
V442=(base[0]);
vs_top=sup;
TTL:;
{object V443;
V443= (*(LnkLI121))((V442));
if(((V443))==Cnil){
goto T1924;}
{object V444;
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
V444= symbol_value(VV[54]);
(void)(structure_set((V442),VV[6],1,(V443)));
(void)(structure_set((V442),VV[6],4,(V444)));
princ_str("\n ",VV[10]);
if((base0[4])!=Cnil){
goto T1931;}
princ_char(123,VV[10]);
base0[4]= Ct;
T1931:;
base[1]= (V442);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk122)();
return;}
T1924:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;}
}
}
static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* WT-VAR-DECL */
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],&LnkLI121,1,ap);} /* C2VAR-KIND */
static object LnkTLI120(){return call_proc0(VV[120],&LnkLI120);} /* CLOSE-INLINE-BLOCKS */
static object LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],&LnkLI119,ap);} /* INLINE-ARGS */
static object LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],&LnkLI118,2,ap);} /* C2DM-BIND-INIT */
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,2,ap);} /* C2DM-BIND-LOC */
static object LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],&LnkLI116,1,ap);} /* C2DM-RESERVE-V */
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,2,ap);} /* C2DM-BIND-VL */
static object LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],&LnkLI114,1,ap);} /* C2DM-RESERVE-VL */
static object LnkTLI113(){return call_proc0(VV[113],&LnkLI113);} /* C1NIL */
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* C1DM-V */
static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* DM-BAD-KEY */
static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* C1DM-VL */
static object LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* WT-VS */
static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* ADD-SYMBOL */
static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* C2EXPR */
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* C2BIND-INIT */
static object LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],&LnkLI105,2,ap);} /* C2BIND-LOC */
static object LnkTLI104(){return call_proc0(VV[104],&LnkLI104);} /* RESET-TOP */
static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,1,ap);} /* C2BIND */
static object LnkTLI102(){return call_proc0(VV[102],&LnkLI102);} /* VS-PUSH */
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,2,ap);} /* C2LAMBDA-EXPR-WITHOUT-KEY */
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* C2LAMBDA-EXPR-WITH-KEY */
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,1,ap);} /* RECORD-ARG-INFO */
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],&LnkLI98,3,ap);} /* FIX-DOWN-ARGS */
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,1,ap);} /* CHECK-VREF */
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,2,ap);} /* C1DECL-BODY */
static object LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],&LnkLI95,3,ap);} /* CHECK-VDECL */
static object LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],&LnkLI94,2,ap);} /* ADD-INFO */
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],&LnkLI93,ap);} /* MAKE-VAR */
static object LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],&LnkLI92,3,ap);} /* AND-FORM-TYPE */
static object LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],&LnkLI91,2,ap);} /* C1EXPR* */
static object LnkTLI90(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[90],&LnkLI90,1,ap);} /* DEFAULT-INIT */
static object LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[89],&LnkLI89,4,ap);} /* C1MAKE-VAR */
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],&LnkLI88,1,ap);} /* C1ADD-GLOBALS */
static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* C1BODY */
static object LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[86],&LnkLI86,ap);} /* CMPERR */
static object LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[85],&LnkLI85,ap);} /* MAKE-INFO */
static object LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[84],&LnkLI84,ap);} /* UNWIND-EXIT */
static object LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[83],&LnkLI83,ap);} /* MAKE-FUN */
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],&LnkLI82,ap);} /* DELETE */
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* WT-H1 */
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* WT1 */
static object LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],&LnkLI79,1,ap);} /* C1EXPR */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.