This is setf.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "setf.h"
init_setf(){do_init(VV);}
/* macro definition for DEFSETF */
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;
base[3]= V1;}
if((car(base[3]))==Cnil){
goto T2;}
if(type_of(car(base[3]))==t_symbol){
goto T1;}
base[4]= car(base[3]);
vs_top=(vs_base=base+4)+1;
Lfunctionp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T2;}
T1:;
V2= list(2,VV[3],base[2]);
V3= list(4,VV[2],/* INLINE-ARGS */V2,list(2,VV[3],car(base[3])),VV[4]);
V4= list(3,VV[5],list(2,VV[3],base[2]),VV[6]);
V5= list(3,VV[5],list(2,VV[3],base[2]),VV[7]);
V6= list(2,VV[3],base[2]);
if(endp(cdr(base[3]))){
goto T11;}
if(type_of(cadr(base[3]))==t_string){
goto T13;}
base[4]= VV[8];
vs_top=(vs_base=base+4)+1;
Lerror();
vs_top=sup;
T13:;
if(endp(cddr(base[3]))){
goto T17;}
base[4]= VV[9];
vs_top=(vs_base=base+4)+1;
Lerror();
vs_top=sup;
T17:;
V7= cadr(base[3]);
goto T9;
T11:;
V7= Cnil;
T9:;
V8= list(4,VV[2],/* INLINE-ARGS */V6,V7,VV[10]);
base[4]= list(7,VV[0],VV[1],/* INLINE-ARGS */V3,/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,/* INLINE-ARGS */V8,list(2,VV[3],base[2]));
vs_top=(vs_base=base+4)+1;
return;
T2:;
base[4]= cadr(base[3]);
vs_top=(vs_base=base+4)+1;
Llist_length();
vs_top=sup;
V9= vs_base[0];
if(number_compare(V9,small_fixnum(1))==0){
goto T21;}
base[4]= VV[11];
vs_top=(vs_base=base+4)+1;
Lerror();
vs_top=sup;
T21:;
V10= list(2,VV[3],base[2]);
V11= list(4,VV[2],/* INLINE-ARGS */V10,list(2,VV[3],base[3]),VV[13]);
V12= list(3,VV[5],list(2,VV[3],base[2]),VV[14]);
V13= list(3,VV[5],list(2,VV[3],base[2]),VV[15]);
V14= list(2,VV[3],base[2]);
V15= (*(LnkLI93))(cddr(base[3]));
V16= list(4,VV[2],/* INLINE-ARGS */V14,/* INLINE-ARGS */V15,VV[16]);
base[4]= list(7,VV[0],VV[12],/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,/* INLINE-ARGS */V13,/* INLINE-ARGS */V16,list(2,VV[3],base[2]));
vs_top=(vs_base=base+4)+1;
return;
}
/* macro definition for DEFINE-SETF-METHOD */
static L2()
{register object *base=vs_base;
register object *sup=base+VM2; VC2
vs_reserve(VM2);
check_arg(2);
vs_top=sup;
{object V17=base[0]->c.c_cdr;
if(endp(V17))invalid_macro_call();
base[2]= (V17->c.c_car);
V17=V17->c.c_cdr;
base[3]= V17;
base[4]= Cnil;
base[5]= Cnil;
base[6]= Cnil;}
base[7]= car(base[3]);
vs_top=(vs_base=base+7)+1;
(void) (*Lnk94)();
if(vs_base<vs_top){
base[4]= vs_base[0];
vs_base++;
}else{
base[4]= Cnil;}
if(vs_base<vs_top){
base[5]= vs_base[0];
}else{
base[5]= Cnil;}
vs_top=sup;
base[6]= cdr(base[3]);
if((base[5])==Cnil){
goto T37;}
base[4]= make_cons(base[5],base[4]);
goto T35;
T37:;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V18= vs_base[0];
base[4]= make_cons(V18,base[4]);
V19= list(2,VV[17],list(2,VV[18],car(base[4])));
base[6]= make_cons(/* INLINE-ARGS */V19,base[6]);
T35:;
V20= list(2,VV[3],base[2]);
V21= list(4,VV[2],/* INLINE-ARGS */V20,list(2,VV[20],listA(3,VV[21],base[4],base[6])),VV[22]);
V22= list(3,VV[5],list(2,VV[3],base[2]),VV[23]);
V23= list(3,VV[5],list(2,VV[3],base[2]),VV[24]);
V24= list(2,VV[3],base[2]);
V25= (*(LnkLI93))(cdr(base[3]));
V26= list(4,VV[2],/* INLINE-ARGS */V24,/* INLINE-ARGS */V25,VV[25]);
base[7]= list(7,VV[0],VV[19],/* INLINE-ARGS */V21,/* INLINE-ARGS */V22,/* INLINE-ARGS */V23,/* INLINE-ARGS */V26,list(2,VV[3],base[2]));
vs_top=(vs_base=base+7)+1;
return;
}
/* function definition for GET-SETF-METHOD */
static L3()
{register object *base=vs_base;
register object *sup=base+VM3; VC3
vs_reserve(VM3);
{object V27;
object V28;
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
V27=(base[0]);
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T44;}
V28=(base[1]);
vs_top=sup;
goto T45;
T44:;
V28= Cnil;
T45:;
{object V29;
object V30;
object V31;
object V32;
object V33;
base[2]= (V27);
base[3]= (V28);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk95)();
if(vs_base>=vs_top){vs_top=sup;goto T50;}
V29= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T51;}
V30= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T52;}
V31= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T53;}
V32= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T54;}
V33= vs_base[0];
vs_top=sup;
goto T55;
T50:;
V29= Cnil;
T51:;
V30= Cnil;
T52:;
V31= Cnil;
T53:;
V32= Cnil;
T54:;
V33= Cnil;
T55:;
base[2]= (V31);
vs_top=(vs_base=base+2)+1;
Llist_length();
vs_top=sup;
V34= vs_base[0];
if(number_compare(V34,small_fixnum(1))==0){
goto T56;}
base[2]= VV[26];
vs_top=(vs_base=base+2)+1;
Lerror();
vs_top=sup;
T56:;
base[2]= (V29);
base[3]= (V30);
base[4]= (V31);
base[5]= (V32);
base[6]= (V33);
vs_top=(vs_base=base+2)+5;
return;}
}
}
/* function definition for GET-SETF-METHOD-MULTIPLE-VALUE */
static L4()
{register object *base=vs_base;
register object *sup=base+VM4; VC4
vs_reserve(VM4);
{register object V35;
register object V36;
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
V35=(base[0]);
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T67;}
V36=(base[1]);
vs_top=sup;
goto T68;
T67:;
V36= Cnil;
T68:;
{object V37;
V37= Cnil;
if(!(type_of((V35))==t_symbol)){
goto T72;}
{object V38;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V38= vs_base[0];
base[2]= Cnil;
base[3]= Cnil;
base[4]= make_cons((V38),Cnil);
base[5]= list(3,VV[27],(V35),(V38));
base[6]= (V35);
vs_top=(vs_base=base+2)+5;
return;}
T72:;
if(!(type_of((V35))==t_cons)){
goto T80;}
if(type_of(car((V35)))==t_symbol){
goto T81;}
T80:;
base[2]= VV[28];
base[3]= (V35);
vs_top=(vs_base=base+2)+2;
Lerror();
return;
T81:;
if(((V36))==Cnil){
goto T88;}
{register object x= car((V35)),V39= cadr((V36));
while(!endp(V39))
if(type_of(V39->c.c_car)==t_cons &&eql(x,V39->c.c_car->c.c_car)){
V37= (V39->c.c_car);
goto T92;
}else V39=V39->c.c_cdr;
V37= Cnil;}
T92:;
if(((V37))==Cnil){
goto T88;}
base[2]= (V35);
base[3]= (V36);
vs_top=(vs_base=base+2)+2;
Lmacroexpand();
vs_top=sup;
V37= vs_base[0];
if(!(((V35))==((V37)))){
goto T97;}
base[2]= VV[29];
base[3]= (V35);
vs_top=(vs_base=base+2)+2;
Lerror();
vs_top=sup;
T97:;
base[2]= (V37);
base[3]= (V36);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk95)();
return;
T88:;
if((get(car((V35)),VV[30],Cnil))==Cnil){
goto T105;}
base[2]= get(car((V35)),VV[30],Cnil);
base[3]= (V36);
{object V40;
V40= cdr((V35));
vs_top=base+4;
while(!endp(V40))
{vs_push(car(V40));V40=cdr(V40);}
vs_base=base+3;}
super_funcall_no_event(base[2]);
return;
T105:;
if((get(car((V35)),VV[31],Cnil))!=Cnil){
goto T110;}
V37= get(car((V35)),VV[32],Cnil);
if(((V37))==Cnil){
goto T111;}
T110:;
{object V41;
object V42;
{object V43;
object V44= cdr((V35));
if(endp(V44)){
V41= Cnil;
goto T116;}
base[2]=V43=MMcons(Cnil,Cnil);
T117:;
{object V45;
V45= (V44->c.c_car);
vs_base=vs_top;
Lgensym();
vs_top=sup;
(V43->c.c_car)= vs_base[0];}
if(endp(V44=MMcdr(V44))){
V41= base[2];
goto T116;}
V43=MMcdr(V43)=MMcons(Cnil,Cnil);
goto T117;}
T116:;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V42= vs_base[0];
base[2]= (V41);
base[3]= cdr((V35));
base[4]= make_cons((V42),Cnil);
if(((V37))==Cnil){
goto T126;}
base[5]= (*(LnkLI96))(car((V41)),car((V37)),cdr((V37)),(V42));
goto T124;
T126:;
V46= get(car((V35)),VV[31],Cnil);
V47= make_cons((V42),Cnil);
V48= append((V41),/* INLINE-ARGS */V47);
base[5]= make_cons(V46,/* INLINE-ARGS */V48);
T124:;
base[6]= make_cons(car((V35)),(V41));
vs_top=(vs_base=base+2)+5;
return;}
T111:;
if((get(car((V35)),VV[33],Cnil))==Cnil){
goto T131;}
{object V49;
object V50;
object V51;
object V52;
{object V53;
object V54= cdr((V35));
if(endp(V54)){
V49= Cnil;
goto T133;}
base[2]=V53=MMcons(Cnil,Cnil);
T134:;
{object V55;
V55= (V54->c.c_car);
vs_base=vs_top;
Lgensym();
vs_top=sup;
(V53->c.c_car)= vs_base[0];}
if(endp(V54=MMcdr(V54))){
V49= base[2];
goto T133;}
V53=MMcdr(V53)=MMcons(Cnil,Cnil);
goto T134;}
T133:;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V50= vs_base[0];
V51= get(car((V35)),VV[33],Cnil);
V56= car((V51));
V52= list(3,VV[21],/* INLINE-ARGS */V56,list(2,VV[20],listA(3,VV[21],cadr((V51)),cddr((V51)))));
base[2]= (V49);
base[3]= cdr((V35));
base[4]= make_cons((V50),Cnil);
base[7]= (V52);
{object V57;
V57= (V49);
vs_top=base+8;
while(!endp(V57))
{vs_push(car(V57));V57=cdr(V57);}
vs_base=base+8;}
super_funcall_no_event(base[7]);
vs_top=sup;
base[6]= vs_base[0];
base[7]= (V50);
vs_top=(vs_base=base+7)+1;
super_funcall_no_event(base[6]);
vs_top=sup;
base[5]= vs_base[0];
base[6]= make_cons(car((V35)),(V49));
vs_top=(vs_base=base+2)+5;
return;}
T131:;
base[2]= car((V35));
vs_top=(vs_base=base+2)+1;
Lmacro_function();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T150;}
base[3]= (V35);
vs_top=(vs_base=base+3)+1;
Lmacroexpand();
vs_top=sup;
base[2]= vs_base[0];
vs_top=(vs_base=base+2)+1;
(void) (*Lnk95)();
return;
T150:;
base[2]= VV[34];
base[3]= (V35);
vs_top=(vs_base=base+2)+2;
Lerror();
return;}
}
}
/* macro definition for PUT-AUX */
static L5()
{register object *base=vs_base;
register object *sup=base+VM5; VC5
vs_reserve(VM5);
check_arg(2);
vs_top=sup;
{object V58=base[0]->c.c_cdr;
if(endp(V58))invalid_macro_call();
base[2]= (V58->c.c_car);
V58=V58->c.c_cdr;
if(endp(V58))invalid_macro_call();
base[3]= (V58->c.c_car);
V58=V58->c.c_cdr;
base[4]= V58;}
base[5]= base[4];
vs_top=(vs_base=base+5)+1;
Llast();
vs_top=sup;
V59= vs_base[0];
base[5]= list(4,VV[35],base[2],base[3],car(V59));
vs_top=(vs_base=base+5)+1;
return;
}
/* function definition for G2089 */
static L6()
{register object *base=vs_base;
register object *sup=base+VM6; VC6
vs_reserve(VM6);
{object V60;
object V61;
object V62;
object V63;
if(vs_top-vs_base<3) too_few_arguments();
if(vs_top-vs_base>4) too_many_arguments();
V60=(base[0]);
V61=(base[1]);
V62=(base[2]);
vs_base=vs_base+3;
if(vs_base>=vs_top){vs_top=sup;goto T159;}
V63=(base[3]);
vs_top=sup;
goto T160;
T159:;
V63= Cnil;
T160:;
{object V64;
object V65;
object V66;
object V67;
object V68;
base[4]= (V61);
base[5]= (V60);
vs_top=(vs_base=base+4)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T165;}
V64= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T166;}
V65= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T167;}
V66= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T168;}
V67= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T169;}
V68= vs_base[0];
vs_top=sup;
goto T170;
T165:;
V64= Cnil;
T166:;
V65= Cnil;
T167:;
V66= Cnil;
T168:;
V67= Cnil;
T169:;
V68= Cnil;
T170:;
{object V69;
object V70;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V69= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V70= vs_base[0];
V71= make_cons((V69),Cnil);
base[4]= append((V64),/* INLINE-ARGS */V71);
V72= make_cons((V62),Cnil);
base[5]= append((V65),/* INLINE-ARGS */V72);
base[6]= make_cons((V70),Cnil);
V73= car((V66));
V74= list(2,/* INLINE-ARGS */V73,list(4,VV[37],(V68),(V70),(V69)));
base[7]= list(4,VV[36],make_cons(/* INLINE-ARGS */V74,Cnil),(V67),(V70));
base[8]= list(4,VV[38],(V68),(V69),(V63));
vs_top=(vs_base=base+4)+5;
return;}}
}
}
/* function definition for G2184 */
static L7()
{register object *base=vs_base;
register object *sup=base+VM7; VC7
vs_reserve(VM7);
{object V75;
object V76;
object V77;
check_arg(3);
V75=(base[0]);
V76=(base[1]);
V77=(base[2]);
vs_top=sup;
TTL:;
{object V78;
object V79;
object V80;
object V81;
object V82;
base[3]= (V77);
base[4]= (V75);
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T181;}
V78= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T182;}
V79= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T183;}
V80= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T184;}
V81= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T185;}
V82= vs_base[0];
vs_top=sup;
goto T186;
T181:;
V78= Cnil;
T182:;
V79= Cnil;
T183:;
V80= Cnil;
T184:;
V81= Cnil;
T185:;
V82= Cnil;
T186:;
{object V83;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V83= vs_base[0];
base[3]= (V78);
base[4]= (V79);
base[5]= make_cons((V83),Cnil);
V84= car((V80));
V85= list(2,/* INLINE-ARGS */V84,list(3,VV[39],(V76),(V83)));
base[6]= list(3,VV[36],make_cons(/* INLINE-ARGS */V85,Cnil),(V81));
base[7]= list(3,VV[39],(V76),(V82));
vs_top=(vs_base=base+3)+5;
return;}}
}
}
/* function definition for G2255 */
static L8()
{register object *base=vs_base;
register object *sup=base+VM8; VC8
vs_reserve(VM8);
{object V86;
register object V87;
object V88;
if(vs_top-vs_base<2) too_few_arguments();
V86=(base[0]);
V87=(base[1]);
vs_base=vs_base+2;
vs_top[0]=Cnil;
{object *p=vs_top;
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
V88=(base[2]);
vs_top=sup;
if(!(type_of((V87))==t_cons)){
goto T194;}
if((car((V87)))==(VV[20])){
goto T197;}
if(!((car((V87)))==(VV[3]))){
goto T194;}
T197:;
if(!(type_of(cadr((V87)))==t_symbol)){
goto T194;}
if((cddr((V87)))==Cnil){
goto T193;}
T194:;
base[3]= VV[40];
base[4]= (V87);
vs_top=(vs_base=base+3)+2;
Lerror();
vs_top=sup;
T193:;
{object V89;
object V90;
object V91;
object V92;
object V93;
base[3]= make_cons(cadr((V87)),(V88));
base[4]= (V86);
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T209;}
V89= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T210;}
V90= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T211;}
V91= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T212;}
V92= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T213;}
V93= vs_base[0];
vs_top=sup;
goto T214;
T209:;
V89= Cnil;
T210:;
V90= Cnil;
T211:;
V91= Cnil;
T212:;
V92= Cnil;
T213:;
V93= Cnil;
T214:;
base[3]= (V92);
vs_top=(vs_base=base+3)+1;
Llast();
vs_top=sup;
V94= vs_base[0];
V95= car(V94);
base[3]= (V89);
vs_top=(vs_base=base+3)+1;
Llast();
vs_top=sup;
V96= vs_base[0];
if(!((/* INLINE-ARGS */V95)==(car(V96)))){
goto T216;}
base[3]= (V89);
base[4]= (V90);
base[5]= (V91);
base[6]= listA(3,VV[41],list(2,VV[20],car((V92))),cdr((V92)));
base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));
vs_top=(vs_base=base+3)+5;
return;
T216:;
base[4]= (V92);
vs_top=(vs_base=base+4)+1;
Lbutlast();
vs_top=sup;
base[3]= vs_base[0];
vs_top=(vs_base=base+3)+1;
Llast();
vs_top=sup;
V97= vs_base[0];
V98= car(V97);
base[3]= (V89);
vs_top=(vs_base=base+3)+1;
Llast();
vs_top=sup;
V99= vs_base[0];
if(!((/* INLINE-ARGS */V98)==(car(V99)))){
goto T228;}
base[3]= (V89);
base[4]= (V90);
base[5]= (V91);
V100= list(2,VV[20],car((V92)));
base[7]= (V92);
base[8]= small_fixnum(2);
vs_top=(vs_base=base+7)+2;
Lbutlast();
vs_top=sup;
V101= vs_base[0];
V102= cdr(V101);
base[8]= (V92);
vs_top=(vs_base=base+8)+1;
Lbutlast();
vs_top=sup;
base[7]= vs_base[0];
vs_top=(vs_base=base+7)+1;
Llast();
vs_top=sup;
V103= vs_base[0];
V104= car(V103);
base[7]= (V92);
vs_top=(vs_base=base+7)+1;
Llast();
vs_top=sup;
V105= vs_base[0];
V106= list(3,VV[42],/* INLINE-ARGS */V104,list(2,VV[43],car(V105)));
V107= make_cons(/* INLINE-ARGS */V106,Cnil);
base[6]= listA(3,VV[41],/* INLINE-ARGS */V100,append(/* INLINE-ARGS */V102,/* INLINE-ARGS */V107));
base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));
vs_top=(vs_base=base+3)+5;
return;
T228:;
base[3]= VV[44];
base[4]= (V87);
vs_top=(vs_base=base+3)+2;
Lerror();
return;}
}
}
/* function definition for G2422 */
static L9()
{register object *base=vs_base;
register object *sup=base+VM9; VC9
vs_reserve(VM9);
{object V108;
object V109;
object V110;
check_arg(3);
V108=(base[0]);
V109=(base[1]);
V110=(base[2]);
vs_top=sup;
TTL:;
{object V111;
object V112;
object V113;
object V114;
object V115;
base[3]= (V109);
base[4]= (V108);
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T253;}
V111= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T254;}
V112= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T255;}
V113= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T256;}
V114= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T257;}
V115= vs_base[0];
vs_top=sup;
goto T258;
T253:;
V111= Cnil;
T254:;
V112= Cnil;
T255:;
V113= Cnil;
T256:;
V114= Cnil;
T257:;
V115= Cnil;
T258:;
{object V116;
object V117;
object V118;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V116= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V117= vs_base[0];
V118= car((V113));
base[3]= make_cons((V116),(V111));
base[4]= make_cons((V110),(V112));
base[5]= make_cons((V117),Cnil);
V119= list(2,(V118),list(4,VV[45],(V115),(V116),(V117)));
base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V119,Cnil),(V114),(V117));
base[7]= list(3,VV[46],(V115),(V116));
vs_top=(vs_base=base+3)+5;
return;}}
}
}
/* function definition for G2513 */
static L10()
{register object *base=vs_base;
register object *sup=base+VM10; VC10
vs_reserve(VM10);
{object V120;
object V121;
object V122;
check_arg(3);
V120=(base[0]);
V121=(base[1]);
V122=(base[2]);
vs_top=sup;
TTL:;
{object V123;
object V124;
object V125;
object V126;
object V127;
base[3]= (V122);
base[4]= (V120);
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T270;}
V123= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T271;}
V124= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T272;}
V125= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T273;}
V126= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T274;}
V127= vs_base[0];
vs_top=sup;
goto T275;
T270:;
V123= Cnil;
T271:;
V124= Cnil;
T272:;
V125= Cnil;
T273:;
V126= Cnil;
T274:;
V127= Cnil;
T275:;
{object V128;
object V129;
object V130;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V128= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V129= vs_base[0];
V130= car((V125));
base[3]= make_cons((V128),(V123));
base[4]= make_cons((V121),(V124));
base[5]= make_cons((V129),Cnil);
V131= list(2,(V130),list(4,VV[47],(V129),(V128),(V127)));
base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V131,Cnil),(V126),(V129));
base[7]= list(3,VV[48],(V128),(V127));
vs_top=(vs_base=base+3)+5;
return;}}
}
}
/* function definition for G2604 */
static L11()
{register object *base=vs_base;
register object *sup=base+VM11; VC11
vs_reserve(VM11);
{object V132;
object V133;
object V134;
check_arg(3);
V132=(base[0]);
V133=(base[1]);
V134=(base[2]);
vs_top=sup;
TTL:;
{object V135;
object V136;
object V137;
object V138;
object V139;
base[3]= (V134);
base[4]= (V132);
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T287;}
V135= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T288;}
V136= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T289;}
V137= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T290;}
V138= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T291;}
V139= vs_base[0];
vs_top=sup;
goto T292;
T287:;
V135= Cnil;
T288:;
V136= Cnil;
T289:;
V137= Cnil;
T290:;
V138= Cnil;
T291:;
V139= Cnil;
T292:;
{object V140;
object V141;
object V142;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V140= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V141= vs_base[0];
V142= car((V137));
base[3]= make_cons((V140),(V135));
base[4]= make_cons((V133),(V136));
base[5]= make_cons((V141),Cnil);
V143= list(2,(V142),list(4,VV[49],(V141),(V140),(V139)));
base[6]= list(4,VV[36],make_cons(/* INLINE-ARGS */V143,Cnil),(V138),(V141));
base[7]= list(3,VV[50],(V140),(V139));
vs_top=(vs_base=base+3)+5;
return;}}
}
}
/* local entry for function SETF-EXPAND-1 */
static object LI12(V147,V148,V149)
register object V147;register object V148;register object V149;
{ VMB12 VMS12 VMV12
TTL:;
{object V150;
V150= Cnil;
if(!(type_of((V147))==t_cons)){
goto T302;}
if(!((car((V147)))==(VV[39]))){
goto T302;}
{object V151;
V151= caddr((V147));
V148= list(3,VV[39],cadr((V147)),(V148));
V147= (V151);}
goto TTL;
T302:;
if(!(type_of((V147))==t_symbol)){
goto T311;}
{object V152 = list(3,VV[27],(V147),(V148));
VMR12(V152)}
T311:;
if(!(type_of((V147))==t_cons)){
goto T314;}
if((get(car((V147)),VV[33],Cnil))!=Cnil){
goto T314;}
if((get(car((V147)),VV[31],Cnil))!=Cnil){
goto T314;}
base[0]= (V147);
base[1]= (V149);
vs_top=(vs_base=base+0)+2;
Lmacroexpand();
if(vs_base<vs_top){
V147= vs_base[0];
vs_base++;
}else{
V147= Cnil;}
if(vs_base<vs_top){
V150= vs_base[0];
}else{
V150= Cnil;}
vs_top=sup;
if(((V150))==Cnil){
goto T314;}
goto TTL;
T314:;
if(!(type_of(car((V147)))==t_symbol)){
goto T331;}
V150= get(car((V147)),VV[31],Cnil);
if(((V150))==Cnil){
goto T331;}
V153= cdr((V147));
V154= make_cons((V148),Cnil);
V155= append(/* INLINE-ARGS */V153,/* INLINE-ARGS */V154);
{object V156 = make_cons((V150),/* INLINE-ARGS */V155);
VMR12(V156)}
T331:;
if(!(type_of(car((V147)))==t_symbol)){
goto T337;}
V150= get(car((V147)),VV[32],Cnil);
if(((V150))==Cnil){
goto T337;}
{object V157 = (*(LnkLI96))(cadr((V147)),car((V150)),cdr((V150)),(V148));
VMR12(V157)}
T337:;
{object V158;
object V159;
object V160;
object V161;
object V162;
base[0]= (V147);
base[1]= (V149);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T346;}
V158= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T347;}
V159= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T348;}
V160= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T349;}
V161= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T350;}
V162= vs_base[0];
vs_top=sup;
goto T351;
T346:;
V158= Cnil;
T347:;
V159= Cnil;
T348:;
V160= Cnil;
T349:;
V161= Cnil;
T350:;
V162= Cnil;
T351:;
V167= append((V158),(V160));
V168= make_cons((V148),Cnil);
V169= append((V159),/* INLINE-ARGS */V168);
{object V164;
object V165= /* INLINE-ARGS */V167;
object V166= /* INLINE-ARGS */V169;
if(endp(V165)||endp(V166)){
V163= Cnil;
goto T352;}
base[0]=V164=MMcons(Cnil,Cnil);
T353:;
(V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car));
if(endp(V165=MMcdr(V165))||endp(V166=MMcdr(V166))){
V163= base[0];
goto T352;}
V164=MMcdr(V164)=MMcons(Cnil,Cnil);
goto T353;}
T352:;
{object V170 = list(3,VV[51],V163,(V161));
VMR12(V170)}}}
}
/* local entry for function SETF-STRUCTURE-ACCESS */
static object LI13(V175,V176,V177,V178)
object V175;object V176;object V177;object V178;
{ VMB13 VMS13 VMV13
TTL:;
{object V179= (V176);
if((V179!= VV[43]))goto T355;
{object V180 = list(4,VV[52],(V175),(V177),(V178));
VMR13(V180)}
T355:;
if((V179!= VV[98]))goto T356;
{object V181 = list(4,VV[53],(V175),(V177),(V178));
VMR13(V181)}
T356:;
{object V182 = list(5,VV[54],(V175),list(2,VV[3],(V176)),(V177),(V178));
VMR13(V182)}}
}
/* local entry for function SETF-EXPAND */
static object LI14(V185,V186)
register object V185;object V186;
{ VMB14 VMS14 VMV14
TTL:;
if(!(endp((V185)))){
goto T358;}
{object V187 = Cnil;
VMR14(V187)}
T358:;
if(!(endp(cdr((V185))))){
goto T361;}
base[0]= VV[55];
base[1]= (V185);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
{object V188 = vs_base[0];
VMR14(V188)}
T361:;
V189= (*(LnkLI99))(car((V185)),cadr((V185)),(V186));
V190= (*(LnkLI100))(cddr((V185)),(V186));
{object V191 = make_cons(/* INLINE-ARGS */V189,/* INLINE-ARGS */V190);
VMR14(V191)}
}
/* local entry for function SETF-HELPER */
static object LI15(V194,V195)
register object V194;object V195;
{ VMB15 VMS15 VMV15
TTL:;
V194= cdr((V194));
if(!(endp((V194)))){
goto T368;}
{object V196 = Cnil;
VMR15(V196)}
T368:;
if(!(endp(cdr((V194))))){
goto T371;}
base[0]= VV[56];
base[1]= (V194);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
{object V197 = vs_base[0];
VMR15(V197)}
T371:;
if(!(endp(cddr((V194))))){
goto T376;}
{object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195));
VMR15(V198)}
T376:;
V199= (*(LnkLI100))((V194),(V195));
{object V200 = make_cons(VV[57],/* INLINE-ARGS */V199);
VMR15(V200)}
}
/* macro definition for PSETF */
static L16()
{register object *base=vs_base;
register object *sup=base+VM16; VC16
vs_reserve(VM16);
check_arg(2);
vs_top=sup;
{object V201=base[0]->c.c_cdr;
base[2]= V201;}
if(!(endp(base[2]))){
goto T379;}
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T379:;
if(!(endp(cdr(base[2])))){
goto T382;}
base[3]= VV[58];
base[4]= base[2];
vs_top=(vs_base=base+3)+2;
Lerror();
return;
T382:;
if(!(endp(cddr(base[2])))){
goto T387;}
V202= (*(LnkLI99))(car(base[2]),cadr(base[2]),base[1]);
base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil);
vs_top=(vs_base=base+3)+1;
return;
T387:;
{object V203;
object V204;
object V205;
V203= base[2];
V204= Cnil;
V205= Cnil;
T393:;
if(!(endp((V203)))){
goto T394;}
V206= nreverse((V205));
base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59]));
vs_top=(vs_base=base+3)+1;
return;
T394:;
if(!(endp(cdr((V203))))){
goto T398;}
base[3]= VV[60];
base[4]= base[2];
vs_top=(vs_base=base+3)+2;
Lerror();
vs_top=sup;
T398:;
{object V207;
object V208;
object V209;
object V210;
object V211;
base[3]= car((V203));
base[4]= base[1];
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T407;}
V207= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T408;}
V208= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T409;}
V209= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T410;}
V210= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T411;}
V211= vs_base[0];
vs_top=sup;
goto T412;
T407:;
V207= Cnil;
T408:;
V208= Cnil;
T409:;
V209= Cnil;
T410:;
V210= Cnil;
T411:;
V211= Cnil;
T412:;
V205= make_cons((V210),(V205));
V216= append((V207),(V209));
V217= make_cons(cadr((V203)),Cnil);
V218= append((V208),/* INLINE-ARGS */V217);
{object V213;
object V214= /* INLINE-ARGS */V216;
object V215= /* INLINE-ARGS */V218;
if(endp(V214)||endp(V215)){
V212= Cnil;
goto T416;}
base[3]=V213=MMcons(Cnil,Cnil);
T417:;
(V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car));
if(endp(V214=MMcdr(V214))||endp(V215=MMcdr(V215))){
V212= base[3];
goto T416;}
V213=MMcdr(V213)=MMcons(Cnil,Cnil);
goto T417;}
T416:;
V204= nconc((V204),V212);}
V203= cddr((V203));
goto T393;}
}
/* macro definition for SHIFTF */
static L17()
{register object *base=vs_base;
register object *sup=base+VM17; VC17
vs_reserve(VM17);
check_arg(2);
vs_top=sup;
{object V219=base[0]->c.c_cdr;
base[2]= V219;}
{object V220;
object V221;
object V222;
object V223;
object V224;
object V225;
V220= base[2];
V221= Cnil;
V222= Cnil;
V223= Cnil;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V224= vs_base[0];
V225= Cnil;
T429:;
if(!(endp(cdr((V220))))){
goto T430;}
V222= nreverse((V222));
V223= nreverse((V223));
V225= nreverse((V225));
base[3]= (V221);
V227= list(2,(V224),car((V225)));
base[4]= make_cons(/* INLINE-ARGS */V227,Cnil);
{object V228;
object V229= (V222);
object V230= cdr((V225));
if(endp(V229)||endp(V230)){
base[5]= Cnil;
goto T442;}
base[6]=V228=MMcons(Cnil,Cnil);
T443:;
(V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car));
if(endp(V229=MMcdr(V229))||endp(V230=MMcdr(V230))){
base[5]= base[6];
goto T442;}
V228=MMcdr(V228)=MMcons(Cnil,Cnil);
goto T443;}
T442:;
base[7]= (V222);
vs_top=(vs_base=base+7)+1;
Llast();
vs_top=sup;
V231= vs_base[0];
V232= list(2,car(V231),car((V220)));
base[6]= make_cons(/* INLINE-ARGS */V232,Cnil);
vs_top=(vs_base=base+3)+4;
Lnconc();
vs_top=sup;
V226= vs_base[0];
V233= make_cons((V224),Cnil);
base[3]= listA(3,VV[51],V226,append((V223),/* INLINE-ARGS */V233));
vs_top=(vs_base=base+3)+1;
return;
T430:;
{object V234;
object V235;
object V236;
object V237;
object V238;
base[3]= car((V220));
base[4]= base[1];
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T453;}
V234= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T454;}
V235= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T455;}
V236= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T456;}
V237= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T457;}
V238= vs_base[0];
vs_top=sup;
goto T458;
T453:;
V234= Cnil;
T454:;
V235= Cnil;
T455:;
V236= Cnil;
T456:;
V237= Cnil;
T457:;
V238= Cnil;
T458:;
{object V240;
object V241= (V234);
object V242= (V235);
if(endp(V241)||endp(V242)){
V239= Cnil;
goto T461;}
base[3]=V240=MMcons(Cnil,Cnil);
T462:;
(V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car));
if(endp(V241=MMcdr(V241))||endp(V242=MMcdr(V242))){
V239= base[3];
goto T461;}
V240=MMcdr(V240)=MMcons(Cnil,Cnil);
goto T462;}
T461:;
V221= nconc((V221),V239);
V222= make_cons(car((V236)),(V222));
V223= make_cons((V237),(V223));
V225= make_cons((V238),(V225));}
V220= cdr((V220));
goto T429;}
}
/* macro definition for ROTATEF */
static L18()
{register object *base=vs_base;
register object *sup=base+VM18; VC18
vs_reserve(VM18);
check_arg(2);
vs_top=sup;
{object V243=base[0]->c.c_cdr;
base[2]= V243;}
{object V244;
object V245;
object V246;
object V247;
object V248;
V244= base[2];
V245= Cnil;
V246= Cnil;
V247= Cnil;
V248= Cnil;
T478:;
if(!(endp((V244)))){
goto T479;}
V246= nreverse((V246));
V247= nreverse((V247));
V248= nreverse((V248));
base[3]= (V245);
{object V250;
object V251= (V246);
object V252= cdr((V248));
if(endp(V251)||endp(V252)){
base[4]= Cnil;
goto T490;}
base[5]=V250=MMcons(Cnil,Cnil);
T491:;
(V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car));
if(endp(V251=MMcdr(V251))||endp(V252=MMcdr(V252))){
base[4]= base[5];
goto T490;}
V250=MMcdr(V250)=MMcons(Cnil,Cnil);
goto T491;}
T490:;
base[6]= (V246);
vs_top=(vs_base=base+6)+1;
Llast();
vs_top=sup;
V253= vs_base[0];
V254= list(2,car(V253),car((V248)));
base[5]= make_cons(/* INLINE-ARGS */V254,Cnil);
vs_top=(vs_base=base+3)+3;
Lnconc();
vs_top=sup;
V249= vs_base[0];
base[3]= listA(3,VV[51],V249,append((V247),VV[61]));
vs_top=(vs_base=base+3)+1;
return;
T479:;
{object V255;
object V256;
object V257;
object V258;
object V259;
base[3]= car((V244));
base[4]= base[1];
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T501;}
V255= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T502;}
V256= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T503;}
V257= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T504;}
V258= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T505;}
V259= vs_base[0];
vs_top=sup;
goto T506;
T501:;
V255= Cnil;
T502:;
V256= Cnil;
T503:;
V257= Cnil;
T504:;
V258= Cnil;
T505:;
V259= Cnil;
T506:;
{object V261;
object V262= (V255);
object V263= (V256);
if(endp(V262)||endp(V263)){
V260= Cnil;
goto T509;}
base[3]=V261=MMcons(Cnil,Cnil);
T510:;
(V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car));
if(endp(V262=MMcdr(V262))||endp(V263=MMcdr(V263))){
V260= base[3];
goto T509;}
V261=MMcdr(V261)=MMcons(Cnil,Cnil);
goto T510;}
T509:;
V245= nconc((V245),V260);
V246= make_cons(car((V257)),(V246));
V247= make_cons((V258),(V247));
V248= make_cons((V259),(V248));}
V244= cdr((V244));
goto T478;}
}
/* macro definition for DEFINE-MODIFY-MACRO */
static L19()
{register object *base=vs_base;
register object *sup=base+VM19; VC19
vs_reserve(VM19);
check_arg(2);
vs_top=sup;
{object V264=base[0]->c.c_cdr;
if(endp(V264))invalid_macro_call();
base[2]= (V264->c.c_car);
V264=V264->c.c_cdr;
if(endp(V264))invalid_macro_call();
base[3]= (V264->c.c_car);
V264=V264->c.c_cdr;
if(endp(V264))invalid_macro_call();
base[4]= (V264->c.c_car);
V264=V264->c.c_cdr;
if(endp(V264)){
base[5]= Cnil;
} else {
base[5]= (V264->c.c_car);
V264=V264->c.c_cdr;}
if(!endp(V264))invalid_macro_call();}
{object V265;
{object V266;
object V267;
V266= base[3];
V267= Cnil;
T525:;
if(((V266))!=Cnil){
goto T526;}
V268= list(2,VV[3],base[4]);
V265= listA(4,VV[43],/* INLINE-ARGS */V268,VV[62],nreverse((V267)));
goto T521;
T526:;
if((car((V266)))==(VV[63])){
goto T530;}
if(!((car((V266)))==(VV[64]))){
goto T533;}
V269= list(2,VV[3],base[4]);
V270= nreverse((V267));
V271= make_cons(cadr((V266)),Cnil);
V265= listA(4,VV[65],/* INLINE-ARGS */V269,VV[62],append(/* INLINE-ARGS */V270,/* INLINE-ARGS */V271));
goto T521;
T533:;
if(!(type_of(car((V266)))==t_symbol)){
goto T537;}
V267= make_cons(car((V266)),(V267));
goto T530;
T537:;
V267= make_cons(caar((V266)),(V267));
T530:;
V266= cdr((V266));
goto T525;}
T521:;
V272= listA(4,VV[67],VV[68],VV[69],base[3]);
if((base[5])==Cnil){
goto T546;}
V273= make_cons(base[5],Cnil);
goto T544;
T546:;
V273= Cnil;
T544:;
V274= list(3,VV[70],VV[71],list(3,VV[72],base[2],list(3,VV[36],VV[73],list(4,VV[43],VV[74],VV[69],(V265)))));
V275= list(2,/* INLINE-ARGS */V274,list(4,VV[75],VV[76],VV[77],list(4,VV[43],VV[78],list(4,VV[79],VV[80],VV[81],list(3,VV[42],VV[82],list(2,VV[43],(V265)))),VV[83])));
base[6]= listA(4,VV[66],base[2],/* INLINE-ARGS */V272,append(V273,/* INLINE-ARGS */V275));
vs_top=(vs_base=base+6)+1;
return;}
}
/* macro definition for REMF */
static L20()
{register object *base=vs_base;
register object *sup=base+VM20; VC20
vs_reserve(VM20);
check_arg(2);
vs_top=sup;
{object V276=base[0]->c.c_cdr;
if(endp(V276))invalid_macro_call();
base[2]= (V276->c.c_car);
V276=V276->c.c_cdr;
if(endp(V276))invalid_macro_call();
base[3]= (V276->c.c_car);
V276=V276->c.c_cdr;
if(!endp(V276))invalid_macro_call();}
{object V277;
object V278;
object V279;
object V280;
object V281;
base[4]= base[2];
base[5]= base[1];
vs_top=(vs_base=base+4)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T551;}
V277= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T552;}
V278= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T553;}
V279= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T554;}
V280= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T555;}
V281= vs_base[0];
vs_top=sup;
goto T556;
T551:;
V277= Cnil;
T552:;
V278= Cnil;
T553:;
V279= Cnil;
T554:;
V280= Cnil;
T555:;
V281= Cnil;
T556:;
{object V283;
object V284= (V277);
object V285= (V278);
if(endp(V284)||endp(V285)){
V282= Cnil;
goto T557;}
base[4]=V283=MMcons(Cnil,Cnil);
T558:;
(V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car));
if(endp(V284=MMcdr(V284))||endp(V285=MMcdr(V285))){
V282= base[4];
goto T557;}
V283=MMcdr(V283)=MMcons(Cnil,Cnil);
goto T558;}
T557:;
V286= list(2,car((V279)),VV[84]);
base[4]= list(3,VV[51],V282,list(5,VV[75],/* INLINE-ARGS */V286,list(3,VV[85],(V281),base[3]),(V280),VV[84]));
vs_top=(vs_base=base+4)+1;
return;}
}
/* macro definition for INCF */
static L21()
{register object *base=vs_base;
register object *sup=base+VM21; VC21
vs_reserve(VM21);
check_arg(2);
vs_top=sup;
{object V287=base[0]->c.c_cdr;
if(endp(V287))invalid_macro_call();
base[2]= (V287->c.c_car);
V287=V287->c.c_cdr;
if(endp(V287)){
base[3]= small_fixnum(1);
} else {
base[3]= (V287->c.c_car);
V287=V287->c.c_cdr;}
if(!endp(V287))invalid_macro_call();}
if(!(type_of(base[2])==t_symbol)){
goto T561;}
{object V288;
V288= base[2];
base[4]= list(3,VV[27],base[2],list(3,VV[86],(V288),base[3]));
vs_top=(vs_base=base+4)+1;
return;}
T561:;
{object V289;
object V290;
object V291;
object V292;
object V293;
base[4]= base[2];
base[5]= base[1];
vs_top=(vs_base=base+4)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T568;}
V289= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T569;}
V290= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T570;}
V291= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T571;}
V292= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T572;}
V293= vs_base[0];
vs_top=sup;
goto T573;
T568:;
V289= Cnil;
T569:;
V290= Cnil;
T570:;
V291= Cnil;
T571:;
V292= Cnil;
T572:;
V293= Cnil;
T573:;
V298= append((V289),(V291));
V299= list(3,VV[86],(V293),base[3]);
V300= make_cons(/* INLINE-ARGS */V299,Cnil);
V301= append((V290),/* INLINE-ARGS */V300);
{object V295;
object V296= /* INLINE-ARGS */V298;
object V297= /* INLINE-ARGS */V301;
if(endp(V296)||endp(V297)){
V294= Cnil;
goto T574;}
base[4]=V295=MMcons(Cnil,Cnil);
T575:;
(V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car));
if(endp(V296=MMcdr(V296))||endp(V297=MMcdr(V297))){
V294= base[4];
goto T574;}
V295=MMcdr(V295)=MMcons(Cnil,Cnil);
goto T575;}
T574:;
base[4]= list(3,VV[51],V294,(V292));
vs_top=(vs_base=base+4)+1;
return;}
}
/* macro definition for DECF */
static L22()
{register object *base=vs_base;
register object *sup=base+VM22; VC22
vs_reserve(VM22);
check_arg(2);
vs_top=sup;
{object V302=base[0]->c.c_cdr;
if(endp(V302))invalid_macro_call();
base[2]= (V302->c.c_car);
V302=V302->c.c_cdr;
if(endp(V302)){
base[3]= small_fixnum(1);
} else {
base[3]= (V302->c.c_car);
V302=V302->c.c_cdr;}
if(!endp(V302))invalid_macro_call();}
if(!(type_of(base[2])==t_symbol)){
goto T578;}
{object V303;
V303= base[2];
base[4]= list(3,VV[27],base[2],list(3,VV[87],(V303),base[3]));
vs_top=(vs_base=base+4)+1;
return;}
T578:;
{object V304;
object V305;
object V306;
object V307;
object V308;
base[4]= base[2];
base[5]= base[1];
vs_top=(vs_base=base+4)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T585;}
V304= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T586;}
V305= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T587;}
V306= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T588;}
V307= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T589;}
V308= vs_base[0];
vs_top=sup;
goto T590;
T585:;
V304= Cnil;
T586:;
V305= Cnil;
T587:;
V306= Cnil;
T588:;
V307= Cnil;
T589:;
V308= Cnil;
T590:;
V313= append((V304),(V306));
V314= list(3,VV[87],(V308),base[3]);
V315= make_cons(/* INLINE-ARGS */V314,Cnil);
V316= append((V305),/* INLINE-ARGS */V315);
{object V310;
object V311= /* INLINE-ARGS */V313;
object V312= /* INLINE-ARGS */V316;
if(endp(V311)||endp(V312)){
V309= Cnil;
goto T591;}
base[4]=V310=MMcons(Cnil,Cnil);
T592:;
(V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car));
if(endp(V311=MMcdr(V311))||endp(V312=MMcdr(V312))){
V309= base[4];
goto T591;}
V310=MMcdr(V310)=MMcons(Cnil,Cnil);
goto T592;}
T591:;
base[4]= list(3,VV[51],V309,(V307));
vs_top=(vs_base=base+4)+1;
return;}
}
/* macro definition for PUSH */
static L23()
{register object *base=vs_base;
register object *sup=base+VM23; VC23
vs_reserve(VM23);
check_arg(2);
vs_top=sup;
{object V317=base[0]->c.c_cdr;
if(endp(V317))invalid_macro_call();
base[2]= (V317->c.c_car);
V317=V317->c.c_cdr;
if(endp(V317))invalid_macro_call();
base[3]= (V317->c.c_car);
V317=V317->c.c_cdr;
if(!endp(V317))invalid_macro_call();}
if(!(type_of(base[3])==t_symbol)){
goto T594;}
base[4]= list(3,VV[27],base[3],list(3,VV[88],base[2],base[3]));
vs_top=(vs_base=base+4)+1;
return;
T594:;
{object V318;
object V319;
object V320;
object V321;
object V322;
base[4]= base[3];
base[5]= base[1];
vs_top=(vs_base=base+4)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T600;}
V318= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T601;}
V319= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T602;}
V320= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T603;}
V321= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T604;}
V322= vs_base[0];
vs_top=sup;
goto T605;
T600:;
V318= Cnil;
T601:;
V319= Cnil;
T602:;
V320= Cnil;
T603:;
V321= Cnil;
T604:;
V322= Cnil;
T605:;
V327= append((V318),(V320));
V328= list(3,VV[88],base[2],(V322));
V329= make_cons(/* INLINE-ARGS */V328,Cnil);
V330= append((V319),/* INLINE-ARGS */V329);
{object V324;
object V325= /* INLINE-ARGS */V327;
object V326= /* INLINE-ARGS */V330;
if(endp(V325)||endp(V326)){
V323= Cnil;
goto T606;}
base[4]=V324=MMcons(Cnil,Cnil);
T607:;
(V324->c.c_car)= list(2,(V325->c.c_car),(V326->c.c_car));
if(endp(V325=MMcdr(V325))||endp(V326=MMcdr(V326))){
V323= base[4];
goto T606;}
V324=MMcdr(V324)=MMcons(Cnil,Cnil);
goto T607;}
T606:;
base[4]= list(3,VV[51],V323,(V321));
vs_top=(vs_base=base+4)+1;
return;}
}
/* macro definition for PUSHNEW */
static L24()
{register object *base=vs_base;
register object *sup=base+VM24; VC24
vs_reserve(VM24);
check_arg(2);
vs_top=sup;
{object V331=base[0]->c.c_cdr;
if(endp(V331))invalid_macro_call();
base[2]= (V331->c.c_car);
V331=V331->c.c_cdr;
if(endp(V331))invalid_macro_call();
base[3]= (V331->c.c_car);
V331=V331->c.c_cdr;
base[4]= V331;}
if(!(type_of(base[3])==t_symbol)){
goto T609;}
base[5]= list(3,VV[27],base[3],listA(4,VV[89],base[2],base[3],base[4]));
vs_top=(vs_base=base+5)+1;
return;
T609:;
{object V332;
object V333;
object V334;
object V335;
object V336;
base[5]= base[3];
base[6]= base[1];
vs_top=(vs_base=base+5)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T615;}
V332= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T616;}
V333= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T617;}
V334= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T618;}
V335= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T619;}
V336= vs_base[0];
vs_top=sup;
goto T620;
T615:;
V332= Cnil;
T616:;
V333= Cnil;
T617:;
V334= Cnil;
T618:;
V335= Cnil;
T619:;
V336= Cnil;
T620:;
V341= append((V332),(V334));
V342= listA(4,VV[89],base[2],(V336),base[4]);
V343= make_cons(/* INLINE-ARGS */V342,Cnil);
V344= append((V333),/* INLINE-ARGS */V343);
{object V338;
object V339= /* INLINE-ARGS */V341;
object V340= /* INLINE-ARGS */V344;
if(endp(V339)||endp(V340)){
V337= Cnil;
goto T621;}
base[5]=V338=MMcons(Cnil,Cnil);
T622:;
(V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car));
if(endp(V339=MMcdr(V339))||endp(V340=MMcdr(V340))){
V337= base[5];
goto T621;}
V338=MMcdr(V338)=MMcons(Cnil,Cnil);
goto T622;}
T621:;
base[5]= list(3,VV[51],V337,(V335));
vs_top=(vs_base=base+5)+1;
return;}
}
/* macro definition for POP */
static L25()
{register object *base=vs_base;
register object *sup=base+VM25; VC25
vs_reserve(VM25);
check_arg(2);
vs_top=sup;
{object V345=base[0]->c.c_cdr;
if(endp(V345))invalid_macro_call();
base[2]= (V345->c.c_car);
V345=V345->c.c_cdr;
if(!endp(V345))invalid_macro_call();}
if(!(type_of(base[2])==t_symbol)){
goto T624;}
{object V346;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V346= vs_base[0];
V347= list(2,(V346),list(2,VV[90],base[2]));
V348= make_cons(/* INLINE-ARGS */V347,Cnil);
base[3]= list(4,VV[36],/* INLINE-ARGS */V348,list(3,VV[27],base[2],list(2,VV[91],base[2])),(V346));
vs_top=(vs_base=base+3)+1;
return;}
T624:;
{object V349;
object V350;
object V351;
object V352;
object V353;
base[3]= base[2];
base[4]= base[1];
vs_top=(vs_base=base+3)+2;
(void) (*Lnk97)();
if(vs_base>=vs_top){vs_top=sup;goto T631;}
V349= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T632;}
V350= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T633;}
V351= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T634;}
V352= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T635;}
V353= vs_base[0];
vs_top=sup;
goto T636;
T631:;
V349= Cnil;
T632:;
V350= Cnil;
T633:;
V351= Cnil;
T634:;
V352= Cnil;
T635:;
V353= Cnil;
T636:;
V358= append((V349),(V351));
V359= list(2,VV[91],(V353));
V360= make_cons(/* INLINE-ARGS */V359,Cnil);
V361= append((V350),/* INLINE-ARGS */V360);
{object V355;
object V356= /* INLINE-ARGS */V358;
object V357= /* INLINE-ARGS */V361;
if(endp(V356)||endp(V357)){
V354= Cnil;
goto T637;}
base[3]=V355=MMcons(Cnil,Cnil);
T638:;
(V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car));
if(endp(V356=MMcdr(V356))||endp(V357=MMcdr(V357))){
V354= base[3];
goto T637;}
V355=MMcdr(V355)=MMcons(Cnil,Cnil);
goto T638;}
T637:;
base[3]= list(3,VV[51],V354,list(3,VV[92],list(2,VV[90],(V353)),(V352)));
vs_top=(vs_base=base+3)+1;
return;}
}
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* SETF-EXPAND */
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,3,ap);} /* SETF-EXPAND-1 */
static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* GET-SETF-METHOD */
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,4,ap);} /* SETF-STRUCTURE-ACCESS */
static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* GET-SETF-METHOD-MULTIPLE-VALUE */
static LnkT94(){ call_or_link(VV[94],&Lnk94);} /* GET-&ENVIRONMENT */
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],&LnkLI93,1,ap);} /* FIND-DOCUMENTATION */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.