ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/cmpnew/cmplet.c

This is cmplet.c in view mode; [Download] [Up]

#include <cmpinclude.h>
#include "cmplet.h"
init_cmplet(){do_init(VV);}
/*	local entry for function C1LET	*/

static object LI1(V2)

object V2;
{	 VMB1 VMS1 VMV1
	bds_check;
TTL:;
	{object V3;
	object V4;
	register object V5;
	register object V6;
	register object V7;
	object V8;
	object V9;
	object V10;
	object V11;
	object V12;
	V3= (VFUN_NARGS=0,(*(LnkLI39))());
	V4= symbol_value(VV[0]);
	V5= Cnil;
	V6= Cnil;
	V7= Cnil;
	V8= Cnil;
	V9= Cnil;
	V10= Cnil;
	V11= Cnil;
	V12= Cnil;
	bds_bind(VV[1],symbol_value(VV[1]));
	if(!(endp((V2)))){
	goto T11;}
	(void)((*(LnkLI40))(VV[2],small_fixnum(1),small_fixnum(0)));
T11:;
	base[2]= cdr((V2));
	base[3]= Cnil;
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk41)();
	if(vs_base<vs_top){
	V11= vs_base[0];
	vs_base++;
	}else{
	V11= Cnil;}
	if(vs_base<vs_top){
	V8= vs_base[0];
	vs_base++;
	}else{
	V8= Cnil;}
	if(vs_base<vs_top){
	V10= vs_base[0];
	vs_base++;
	}else{
	V10= Cnil;}
	if(vs_base<vs_top){
	V9= vs_base[0];
	vs_base++;
	}else{
	V9= Cnil;}
	if(vs_base<vs_top){
	V12= vs_base[0];
	}else{
	V12= Cnil;}
	vs_top=sup;
	(void)((*(LnkLI42))((V8)));
	{register object V13;
	register object V14;
	V13= car((V2));
	V14= car((V13));
T23:;
	if(!(endp((V13)))){
	goto T24;}
	goto T19;
T24:;
	if(!(type_of((V14))==t_symbol)){
	goto T30;}
	{object V15;
	V15= (*(LnkLI43))((V14),(V8),(V9),(V10));
	V7= make_cons((V14),(V7));
	V6= make_cons((V15),(V6));
	V16= structure_ref((V15),VV[3],5);
	V17= (*(LnkLI44))(/* INLINE-ARGS */V16);
	V5= make_cons(/* INLINE-ARGS */V17,(V5));
	goto T28;}
T30:;
	if(!(type_of((V14))==t_cons)){
	goto T39;}
	if(endp(cdr((V14)))){
	goto T38;}
	if(endp(cddr((V14)))){
	goto T38;}
T39:;
	(void)((VFUN_NARGS=2,(*(LnkLI45))(VV[4],(V14))));
T38:;
	{object V18;
	V18= (*(LnkLI43))(car((V14)),(V8),(V9),(V10));
	V7= make_cons(car((V14)),(V7));
	V6= make_cons((V18),(V6));
	if(!(endp(cdr((V14))))){
	goto T53;}
	V20= structure_ref((V18),VV[3],5);
	V19= (*(LnkLI44))(/* INLINE-ARGS */V20);
	goto T51;
T53:;
	V21= structure_ref((V18),VV[3],5);
	V22= (*(LnkLI47))(cadr((V14)),(V3));
	V19= (*(LnkLI46))(/* INLINE-ARGS */V21,/* INLINE-ARGS */V22,cadr((V14)));
T51:;
	V5= make_cons(V19,(V5));}
T28:;
	V13= cdr((V13));
	V14= car((V13));
	goto T23;}
T19:;
	{register object V23;
	object V24;
	V23= reverse((V6));
	V24= car((V23));
T64:;
	if(!(endp((V23)))){
	goto T65;}
	goto T60;
T65:;
	(VV[1]->s.s_dbind)= make_cons((V24),(VV[1]->s.s_dbind));
	V23= cdr((V23));
	V24= car((V23));
	goto T64;}
T60:;
	(void)((*(LnkLI48))((V7),(V10),(V9)));
	V11= (*(LnkLI49))((V12),(V11));
	(void)((*(LnkLI50))((V3),cadr((V11))));
	V25= structure_ref(cadr((V11)),VV[5],2);
	(void)(structure_set((V3),VV[5],2,/* INLINE-ARGS */V25));
	{register object V26;
	object V27;
	V26= (V6);
	V27= car((V26));
T85:;
	if(!(endp((V26)))){
	goto T86;}
	goto T81;
T86:;
	(void)((*(LnkLI51))((V27)));
	V26= cdr((V26));
	V27= car((V26));
	goto T85;}
T81:;
	if(!(eql((V4),symbol_value(VV[0])))){
	goto T97;}
	goto T96;
T97:;
	(void)(structure_set((V3),VV[5],4,Ct));
T96:;
	V28= reverse((V6));
	{object V29 = list(5,VV[2],(V3),/* INLINE-ARGS */V28,reverse((V5)),(V11));
	bds_unwind1;
	VMR1(V29)}}
}
/*	local entry for function C2LET	*/

static object LI2(V33,V34,V35)

object V33;object V34;object V35;
{	 VMB2 VMS2 VMV2
	bds_check;
TTL:;
	{object V36;
	register object V37;
	register object V38;
	V36= Cnil;
	V37= Cnil;
	V38= Cnil;
	bds_bind(VV[6],symbol_value(VV[6]));
	bds_bind(VV[7],symbol_value(VV[7]));
	bds_bind(VV[8],symbol_value(VV[8]));
	bds_bind(VV[9],symbol_value(VV[9]));
	{object V39;
	object V40;
	object V41;
	V39= (V33);
	V40= (V34);
	V41= Cnil;
T104:;
	if(!(endp((V39)))){
	goto T105;}
	goto T102;
T105:;
	{register object V42;
	register object V43;
	object V44;
	V42= car((V40));
	V43= car((V39));
	V44= (*(LnkLI52))((V43));
	if(((V44))==Cnil){
	goto T115;}
	(void)(structure_set((V43),VV[3],1,(V44)));
	setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
	(void)(structure_set((V43),VV[3],4,symbol_value(VV[10])));
	goto T113;
T115:;
	V45= structure_ref((V43),VV[3],1);
	if(!((/* INLINE-ARGS */V45)==(VV[11]))){
	goto T120;}
	base[8]= structure_ref((V43),VV[3],4);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk53)();
	vs_top=sup;
	base[7]= vs_base[0];
	if(base[7]==Cnil)goto T122;
	goto T113;
T122:;
	(void)((*(LnkLI54))());
	goto T113;
T120:;
	V46= (*(LnkLI55))();
	(void)(structure_set((V43),VV[3],2,/* INLINE-ARGS */V46));
T113:;
	V48= structure_ref((V43),VV[3],1);
	{object V47= /* INLINE-ARGS */V48;
	if((V47!= VV[56])
	&& (V47!= VV[57])
	&& (V47!= VV[58])
	&& (V47!= VV[59])
	&& (V47!= VV[60]))goto T126;
	V49= list(3,VV[12],list(3,VV[3],(V43),Cnil),(V42));
	V38= make_cons(/* INLINE-ARGS */V49,(V38));
	goto T125;
T126:;
	{object V50= car((V42));
	if((V50!= VV[61]))goto T128;
	if(((*(LnkLI62))((V43),(V35)))==Cnil){
	goto T130;}
	(void)(structure_set((V43),VV[3],1,VV[13]));
	(void)(structure_set((V43),VV[3],4,caddr((V42))));
	goto T125;
T130:;
	V51= list(2,(V43),caddr((V42)));
	V37= make_cons(/* INLINE-ARGS */V51,(V37));
	goto T125;
T128:;
	if((V50!= VV[3]))goto T134;
	{register object V52;
	V52= caaddr((V42));
	if(((*(LnkLI63))((V52),cdr((V40))))!=Cnil){
	goto T136;}
	V54= structure_ref((V52),VV[3],1);
	{register object x= /* INLINE-ARGS */V54,V53= VV[14];
	while(!endp(V53))
	if(eql(x,V53->c.c_car)){
	goto T141;
	}else V53=V53->c.c_cdr;
	goto T137;}
T141:;
	V56= structure_ref((V52),VV[3],0);
	{register object x= /* INLINE-ARGS */V56,V55= (V41);
	while(!endp(V55))
	if(eql(x,V55->c.c_car)){
	goto T142;
	}else V55=V55->c.c_cdr;
	goto T137;}
T142:;
T136:;
	V58= structure_ref((V43),VV[3],1);
	if(!((/* INLINE-ARGS */V58)==(VV[15]))){
	goto T146;}
	V57= list(3,VV[3],(V43),Cnil);
	goto T144;
T146:;
	V59= structure_ref((V43),VV[3],1);
	if(!((/* INLINE-ARGS */V59)==(VV[11]))){
	goto T149;}
	V57= list(2,VV[11],structure_ref((V43),VV[3],4));
	goto T144;
T149:;
	V60= make_cons((V43),Cnil);
	V37= make_cons(/* INLINE-ARGS */V60,(V37));
	V57= list(2,VV[16],structure_ref((V43),VV[3],2));
T144:;
	V61= list(3,VV[12],V57,(V42));
	V38= make_cons(/* INLINE-ARGS */V61,(V38));
	goto T125;
T137:;
	if(((*(LnkLI62))((V43),(V35)))==Cnil){
	goto T154;}
	V63= structure_ref((V52),VV[3],1);
	{register object x= /* INLINE-ARGS */V63,V62= VV[17];
	while(!endp(V62))
	if(eql(x,V62->c.c_car)){
	goto T158;
	}else V62=V62->c.c_cdr;
	goto T154;}
T158:;
	if((structure_ref((V52),VV[3],3))!=Cnil){
	goto T154;}
	V65= structure_ref(cadr((V35)),VV[5],0);
	{register object x= (V52),V64= /* INLINE-ARGS */V65;
	while(!endp(V64))
	if(eql(x,V64->c.c_car)){
	goto T154;
	}else V64=V64->c.c_cdr;}
	(void)(structure_set((V43),VV[3],1,VV[13]));
	V68= structure_ref((V52),VV[3],1);
	{object V67= /* INLINE-ARGS */V68;
	if((V67!= VV[28]))goto T164;
	V66= list(2,VV[16],structure_ref((V52),VV[3],2));
	goto T163;
T164:;
	if((V67!= VV[13]))goto T165;
	V66= structure_ref((V52),VV[3],4);
	goto T163;
T165:;
	if((V67!= VV[15]))goto T166;
	V66= list(2,VV[18],structure_ref((V52),VV[3],4));
	goto T163;
T166:;
	V66= (*(LnkLI64))();}
T163:;
	(void)(structure_set((V43),VV[3],4,V66));
	goto T125;
T154:;
	V69= list(2,(V43),list(3,VV[3],(V52),cadr(caddr((V42)))));
	V37= make_cons(/* INLINE-ARGS */V69,(V37));
	goto T125;}
T134:;
	V71= structure_ref((V43),VV[3],1);
	if(!((/* INLINE-ARGS */V71)==(VV[15]))){
	goto T171;}
	V70= list(3,VV[3],(V43),Cnil);
	goto T169;
T171:;
	V72= structure_ref((V43),VV[3],1);
	if(!((/* INLINE-ARGS */V72)==(VV[11]))){
	goto T174;}
	V70= list(2,VV[11],structure_ref((V43),VV[3],4));
	goto T169;
T174:;
	V73= make_cons((V43),Cnil);
	V37= make_cons(/* INLINE-ARGS */V73,(V37));
	V70= list(2,VV[16],structure_ref((V43),VV[3],2));
T169:;
	V74= list(3,VV[12],V70,(V42));
	V38= make_cons(/* INLINE-ARGS */V74,(V38));}}
T125:;
	V75= structure_ref((V43),VV[3],1);
	if(!((/* INLINE-ARGS */V75)==(VV[19]))){
	goto T109;}
	V76= structure_ref((V43),VV[3],0);
	V41= make_cons(/* INLINE-ARGS */V76,(V41));}
T109:;
	V39= cdr((V39));
	V40= cdr((V40));
	goto T104;}
T102:;
	V36= (*(LnkLI65))((V33));
	{object V77;
	object V78;
	V77= reverse((V38));
	V78= car((V77));
T191:;
	if(!(endp((V77)))){
	goto T192;}
	goto T187;
T192:;
	base[6]= cadr((V78));
	bds_bind(VV[20],base[6]);
	V79= (*(LnkLI12))(caddr((V78)));
	bds_unwind1;
	V77= cdr((V77));
	V78= car((V77));
	goto T191;}
T187:;
	{object V80;
	object V81;
	V80= reverse((V37));
	V81= car((V80));
T207:;
	if(!(endp((V80)))){
	goto T208;}
	goto T203;
T208:;
	if((cdr((V81)))==Cnil){
	goto T214;}
	(void)((*(LnkLI66))(car((V81)),cadr((V81))));
	goto T212;
T214:;
	(void)((*(LnkLI67))(car((V81))));
T212:;
	V80= cdr((V80));
	V81= car((V80));
	goto T207;}
T203:;
	base[4]= (V35);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk68)();
	vs_top=sup;
	if(((V36))==Cnil){
	goto T224;}
	princ_char(125,VV[21]);
	{object V82 = Cnil;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR2(V82)}
T224:;
	{object V83 = Cnil;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR2(V83)}}
}
/*	local entry for function C1LET*	*/

static object LI3(V85)

object V85;
{	 VMB3 VMS3 VMV3
	bds_check;
TTL:;
	{register object V86;
	register object V87;
	register object V88;
	object V89;
	object V90;
	object V91;
	object V92;
	object V93;
	object V94;
	object V95;
	V86= Cnil;
	V87= Cnil;
	V88= Cnil;
	V89= symbol_value(VV[0]);
	V90= Cnil;
	V91= Cnil;
	V92= Cnil;
	V93= Cnil;
	V94= Cnil;
	V95= (VFUN_NARGS=0,(*(LnkLI39))());
	bds_bind(VV[1],symbol_value(VV[1]));
	if(!(endp((V85)))){
	goto T237;}
	(void)((*(LnkLI40))(VV[22],small_fixnum(1),small_fixnum(0)));
T237:;
	base[2]= cdr((V85));
	base[3]= Cnil;
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk41)();
	if(vs_base<vs_top){
	V93= vs_base[0];
	vs_base++;
	}else{
	V93= Cnil;}
	if(vs_base<vs_top){
	V90= vs_base[0];
	vs_base++;
	}else{
	V90= Cnil;}
	if(vs_base<vs_top){
	V92= vs_base[0];
	vs_base++;
	}else{
	V92= Cnil;}
	if(vs_base<vs_top){
	V91= vs_base[0];
	vs_base++;
	}else{
	V91= Cnil;}
	if(vs_base<vs_top){
	V94= vs_base[0];
	}else{
	V94= Cnil;}
	vs_top=sup;
	(void)((*(LnkLI42))((V90)));
	{register object V96;
	register object V97;
	V96= car((V85));
	V97= car((V96));
T249:;
	if(!(endp((V96)))){
	goto T250;}
	goto T245;
T250:;
	if(!(type_of((V97))==t_symbol)){
	goto T256;}
	{object V98;
	V98= (*(LnkLI43))((V97),(V90),(V91),(V92));
	V88= make_cons((V97),(V88));
	V99= structure_ref((V98),VV[3],5);
	V100= (*(LnkLI44))(/* INLINE-ARGS */V99);
	V86= make_cons(/* INLINE-ARGS */V100,(V86));
	V87= make_cons((V98),(V87));
	(VV[1]->s.s_dbind)= make_cons((V98),(VV[1]->s.s_dbind));
	goto T254;}
T256:;
	if(!(type_of((V97))==t_cons)){
	goto T266;}
	if(endp(cdr((V97)))){
	goto T267;}
	if(endp(cddr((V97)))){
	goto T267;}
T266:;
	(void)((VFUN_NARGS=2,(*(LnkLI45))(VV[23],(V97))));
	goto T254;
T267:;
	{register object V101;
	V101= (*(LnkLI43))(car((V97)),(V90),(V91),(V92));
	V88= make_cons(car((V97)),(V88));
	if(!(endp(cdr((V97))))){
	goto T280;}
	V103= structure_ref((V101),VV[3],5);
	V102= (*(LnkLI44))(/* INLINE-ARGS */V103);
	goto T278;
T280:;
	V104= structure_ref((V101),VV[3],5);
	V105= (*(LnkLI47))(cadr((V97)),(V95));
	V102= (*(LnkLI46))(/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,cadr((V97)));
T278:;
	V86= make_cons(V102,(V86));
	V87= make_cons((V101),(V87));
	(VV[1]->s.s_dbind)= make_cons((V101),(VV[1]->s.s_dbind));}
T254:;
	V96= cdr((V96));
	V97= car((V96));
	goto T249;}
T245:;
	(void)((*(LnkLI48))((V88),(V92),(V91)));
	V93= (*(LnkLI49))((V94),(V93));
	(void)((*(LnkLI50))((V95),cadr((V93))));
	V106= structure_ref(cadr((V93)),VV[5],2);
	(void)(structure_set((V95),VV[5],2,/* INLINE-ARGS */V106));
	{register object V107;
	object V108;
	V107= (V87);
	V108= car((V107));
T299:;
	if(!(endp((V107)))){
	goto T300;}
	goto T295;
T300:;
	(void)((*(LnkLI51))((V108)));
	V107= cdr((V107));
	V108= car((V107));
	goto T299;}
T295:;
	if(!(eql((V89),symbol_value(VV[0])))){
	goto T311;}
	goto T310;
T311:;
	(void)(structure_set((V95),VV[5],4,Ct));
T310:;
	V109= reverse((V87));
	{object V110 = list(5,VV[22],(V95),/* INLINE-ARGS */V109,reverse((V86)),(V93));
	bds_unwind1;
	VMR3(V110)}}
}
/*	local entry for function C2LET*	*/

static object LI4(V114,V115,V116)

object V114;object V115;object V116;
{	 VMB4 VMS4 VMV4
	bds_check;
TTL:;
	{object V117;
	V117= Cnil;
	bds_bind(VV[6],symbol_value(VV[6]));
	bds_bind(VV[7],symbol_value(VV[7]));
	bds_bind(VV[8],symbol_value(VV[8]));
	bds_bind(VV[9],symbol_value(VV[9]));
	{object V118;
	register object V119;
	V118= (V114);
	V119= (V115);
T316:;
	if(!(endp((V118)))){
	goto T317;}
	goto T314;
T317:;
	{object V120;
	register object V121;
	object V122;
	V120= car((V119));
	V121= car((V118));
	V122= (*(LnkLI52))((V121));
	if(((V122))==Cnil){
	goto T325;}
	(void)(structure_set((V121),VV[3],1,(V122)));
	setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
	(void)(structure_set((V121),VV[3],4,symbol_value(VV[10])));
T325:;
	V124= structure_ref((V121),VV[3],1);
	{register object x= /* INLINE-ARGS */V124,V123= VV[24];
	while(!endp(V123))
	if(eql(x,V123->c.c_car)){
	goto T332;
	}else V123=V123->c.c_cdr;
	goto T331;}
T332:;
	goto T321;
T331:;
	{object V125= car((V120));
	if((V125!= VV[61]))goto T333;
	if(((*(LnkLI69))((V121),(V116),cdr((V119))))==Cnil){
	goto T335;}
	(void)(structure_set((V121),VV[3],1,VV[13]));
	(void)(structure_set((V121),VV[3],4,caddr((V120))));
	goto T321;
T335:;
	{object V126;
	V127= structure_ref((V121),VV[3],1);
	V126= ((/* INLINE-ARGS */V127)==(VV[15])?Ct:Cnil);
	if(((V126))==Cnil){
	goto T340;}
	goto T321;
T340:;
	V128= structure_ref((V121),VV[3],1);
	if(!((/* INLINE-ARGS */V128)==(VV[11]))){
	goto T343;}
	base[8]= structure_ref((V121),VV[3],4);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk53)();
	vs_top=sup;
	base[7]= vs_base[0];
	if(base[7]==Cnil)goto T345;
	goto T321;
T345:;
	(void)((*(LnkLI64))());
	goto T321;
T343:;
	V129= (*(LnkLI55))();
	(void)(structure_set((V121),VV[3],2,/* INLINE-ARGS */V129));
	goto T321;}
T333:;
	if((V125!= VV[3]))goto T348;
	{register object V130;
	V130= caaddr((V120));
	if(((*(LnkLI69))((V121),(V116),cdr((V119))))==Cnil){
	goto T351;}
	V132= structure_ref((V130),VV[3],1);
	{register object x= /* INLINE-ARGS */V132,V131= VV[25];
	while(!endp(V131))
	if(eql(x,V131->c.c_car)){
	goto T355;
	}else V131=V131->c.c_cdr;
	goto T351;}
T355:;
	if((structure_ref((V130),VV[3],3))!=Cnil){
	goto T351;}
	if(((*(LnkLI63))((V130),cdr((V119))))!=Cnil){
	goto T351;}
	V134= structure_ref(cadr((V116)),VV[5],0);
	{register object x= (V130),V133= /* INLINE-ARGS */V134;
	while(!endp(V133))
	if(eql(x,V133->c.c_car)){
	goto T351;
	}else V133=V133->c.c_cdr;}
	(void)(structure_set((V121),VV[3],1,VV[13]));
	V137= structure_ref((V130),VV[3],1);
	{object V136= /* INLINE-ARGS */V137;
	if((V136!= VV[28]))goto T363;
	V135= list(2,VV[16],structure_ref((V130),VV[3],2));
	goto T362;
T363:;
	if((V136!= VV[13]))goto T364;
	V135= structure_ref((V130),VV[3],4);
	goto T362;
T364:;
	if((V136!= VV[15]))goto T365;
	V135= list(2,VV[18],structure_ref((V130),VV[3],4));
	goto T362;
T365:;
	V135= (*(LnkLI64))();}
T362:;
	(void)(structure_set((V121),VV[3],4,V135));
	goto T321;
T351:;
	{object V138;
	V139= structure_ref((V121),VV[3],1);
	V138= ((/* INLINE-ARGS */V139)==(VV[15])?Ct:Cnil);
	if(((V138))==Cnil){
	goto T368;}
	goto T321;
T368:;
	V140= (*(LnkLI55))();
	(void)(structure_set((V121),VV[3],2,/* INLINE-ARGS */V140));
	goto T321;}}
T348:;
	if((V125!= VV[70])
	&& !eql(V125,VV[26])
	&& !eql(V125,VV[27]))goto T370;
	goto T321;
T370:;
	V141= (*(LnkLI55))();
	(void)(structure_set((V121),VV[3],2,/* INLINE-ARGS */V141));}}
T321:;
	V118= cdr((V118));
	V119= cdr((V119));
	goto T316;}
T314:;
	V117= (*(LnkLI65))((V114));
	{object V142;
	object V143;
	register object V144;
	register object V145;
	V142= (V114);
	V143= (V115);
	V144= Cnil;
	V145= Cnil;
T379:;
	if(((V142))!=Cnil){
	goto T380;}
	goto T377;
T380:;
	V144= car((V142));
	V145= car((V143));
	V147= structure_ref((V144),VV[3],1);
	{object V146= /* INLINE-ARGS */V147;
	if((V146== VV[56])
	|| (V146== VV[57])
	|| (V146== VV[58])
	|| (V146== VV[59])
	|| (V146== VV[15]))goto T390;
	if((V146!= VV[60]))goto T389;
T390:;
	base[4]= list(3,VV[3],(V144),Cnil);
	bds_bind(VV[20],base[4]);
	V148= (*(LnkLI12))((V145));
	bds_unwind1;
	goto T388;
T389:;
	if((V146!= VV[13]))goto T392;
	goto T388;
T392:;
	{object V149= car((V145));
	if((V149!= VV[61]))goto T393;
	(void)((*(LnkLI66))((V144),caddr((V145))));
	goto T388;
T393:;
	if((V149!= VV[3]))goto T394;
	V150= list(3,VV[3],caaddr((V145)),cadr(caddr((V145))));
	(void)((*(LnkLI66))((V144),/* INLINE-ARGS */V150));
	goto T388;
T394:;
	(void)((*(LnkLI71))((V144),(V145)));}}
T388:;
	V142= cdr((V142));
	V143= cdr((V143));
	goto T379;}
T377:;
	base[4]= (V116);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk68)();
	vs_top=sup;
	if(((V117))==Cnil){
	goto T402;}
	princ_char(125,VV[21]);
	{object V151 = Cnil;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR4(V151)}
T402:;
	{object V152 = Cnil;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR4(V152)}}
}
/*	local entry for function CAN-BE-REPLACED	*/

static object LI5(V155,V156)

register object V155;object V156;
{	 VMB5 VMS5 VMV5
TTL:;
	V157= structure_ref((V155),VV[3],1);
	if(!((/* INLINE-ARGS */V157)==(VV[28]))){
	goto T407;}
	goto T405;
T407:;
	V158= structure_ref((V155),VV[3],1);
	if((/* INLINE-ARGS */V158)==(VV[15])){
	goto T409;}
	goto T406;
T409:;
	{int V159= fix(structure_ref((V155),VV[3],6));
	if((/* INLINE-ARGS */V159)<(fix(symbol_value(VV[29])))){
	goto T405;}}
T406:;
	{object V160 = Cnil;
	VMR5(V160)}
T405:;
	V161= structure_ref((V155),VV[3],3);
	if((/* INLINE-ARGS */V161)==Cnil){
	goto T411;}
	{object V162 = Cnil;
	VMR5(V162)}
T411:;
	V163= structure_ref((V155),VV[3],4);
	if((((/* INLINE-ARGS */V163)==(VV[30])?Ct:Cnil))==Cnil){
	goto T413;}
	{object V164 = Cnil;
	VMR5(V164)}
T413:;
	V167= structure_ref(cadr((V156)),VV[5],0);
	{register object x= (V155),V166= /* INLINE-ARGS */V167;
	while(!endp(V166))
	if(eql(x,V166->c.c_car)){
	V165= V166;
	goto T415;
	}else V166=V166->c.c_cdr;
	V165= Cnil;}
T415:;
	{object V168 = ((V165)==Cnil?Ct:Cnil);
	VMR5(V168)}
}
/*	local entry for function CAN-BE-REPLACED*	*/

static object LI6(V172,V173,V174)

register object V172;object V173;object V174;
{	 VMB6 VMS6 VMV6
TTL:;
	if(((*(LnkLI62))((V172),(V173)))!=Cnil){
	goto T416;}
	{object V175 = Cnil;
	VMR6(V175)}
T416:;
	{register object V176;
	register object V177;
	V176= (V174);
	V177= car((V176));
T421:;
	if(!(endp((V176)))){
	goto T422;}
	{object V178 = Ct;
	VMR6(V178)}
T422:;
	V180= structure_ref(cadr((V177)),VV[5],0);
	{register object x= (V172),V179= /* INLINE-ARGS */V180;
	while(!endp(V179))
	if(eql(x,V179->c.c_car)){
	goto T428;
	}else V179=V179->c.c_cdr;
	goto T426;}
T428:;
	{object V181 = Cnil;
	VMR6(V181)}
T426:;
	V176= cdr((V176));
	V177= car((V176));
	goto T421;}
}
/*	local entry for function WRITE-BLOCK-OPEN	*/

static object LI7(V183)

object V183;
{	 VMB7 VMS7 VMV7
TTL:;
	{register object V184;
	V184= Cnil;
	{register object V185;
	register object V186;
	V185= (V183);
	V186= car((V185));
T438:;
	if(!(endp((V185)))){
	goto T439;}
	goto T434;
T439:;
	{register object V187;
	V187= structure_ref((V186),VV[3],1);
	{register object x= (V187),V188= VV[31];
	while(!endp(V188))
	if(eql(x,V188->c.c_car)){
	goto T446;
	}else V188=V188->c.c_cdr;
	goto T443;}
T446:;
	princ_str("\n	",VV[21]);
	if(((V184))!=Cnil){
	goto T448;}
	princ_char(123,VV[21]);
	V184= Ct;
T448:;
	base[1]= (V186);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk72)();
	vs_top=sup;}
T443:;
	V185= cdr((V185));
	V186= car((V185));
	goto T438;}
T434:;
	{object V189 = (V184);
	VMR7(V189)}}
}
/*	macro definition for STACK-LET	*/

static L8()
{register object *base=vs_base;
	register object *sup=base+VM8; VC8
	vs_reserve(VM8);
	check_arg(2);
	vs_top=sup;
	{object V190=base[0]->c.c_cdr;
	base[2]= V190;}
	base[3]= make_cons(VV[2],base[2]);
	vs_top=(vs_base=base+3)+1;
	return;
}
/*	local entry for function C1STACK-LET	*/

static object LI9(V192)

object V192;
{	 VMB9 VMS9 VMV9
TTL:;
	{object V193;
	register object V194;
	V193= Cnil;
	V194= Cnil;
	{object V195;
	V195= car((V192));
	{register object V196;
	register object V197;
	V196= (V195);
	V197= car((V196));
T467:;
	if(!(endp((V196)))){
	goto T468;}
	goto T463;
T468:;
	if(!(type_of((V197))!=t_cons)){
	goto T476;}
	V198= (V197);
	goto T474;
T476:;
	{register object V199;
	{object V200;
	register object V201;
	V200= car((V197));
	V201= cadr((V197));
	if(type_of((V201))==t_cons){
	goto T481;}
	V199= Cnil;
	goto T478;
T481:;
	if(!((car((V201)))==(VV[32]))){
	goto T485;}
	goto T483;
T485:;
	if((car((V201)))==(VV[33])){
	goto T487;}
	goto T484;
T487:;
	if((cddr((V201)))==Cnil){
	goto T489;}
	goto T484;
T489:;
	V201= list(3,VV[32],cadr((V201)),Cnil);
	if(((V201))!=Cnil){
	goto T483;}
T484:;
	V199= Cnil;
	goto T478;
T483:;
	setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
	V194= make_cons(symbol_value(VV[10]),(V194));
	V199= list(2,(V200),listA(3,VV[34],car((V194)),cdr((V201))));}
T478:;
	if(((V199))==Cnil){
	goto T496;}
	V198= (V199);
	goto T474;
T496:;
	(void)((VFUN_NARGS=3,(*(LnkLI73))(VV[35],(V197),cdr((V192)))));
	V198= (V197);}
T474:;
	V193= make_cons(V198,(V193));
	V196= cdr((V196));
	V197= car((V196));
	goto T467;}
T463:;
	{object V202;
	V203= nreverse((V193));
	V204= listA(3,VV[2],/* INLINE-ARGS */V203,cdr((V192)));
	V202= (*(LnkLI74))(/* INLINE-ARGS */V204);
	{object V205 = list(4,VV[36],cadr((V202)),(V194),(V202));
	VMR9(V205)}}}}
}
/*	local entry for function C2STACK-LET	*/

static object LI10(V208,V209)

object V208;object V209;
{	 VMB10 VMS10 VMV10
TTL:;
	{object V210;
	setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
	V210= symbol_value(VV[10]);
	princ_str("\n	{Cons_Macro",VV[21]);
	(void)((*(LnkLI75))((V210)));
	princ_char(59,VV[21]);
	base[0]= (V209);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk68)();
	vs_top=sup;
	princ_char(125,VV[21]);
	princ_str("\n#define Cons_Macro",VV[37]);
	(void)((*(LnkLI76))((V210)));
	base[0]= Cnil;
	base[1]= VV[38];
	base[2]= (V208);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	V211= vs_base[0];
	(void)((*(LnkLI76))(V211));
	{object V212 = Cnil;
	VMR10(V212)}}
}
static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,1,ap);} /* WT-H1 */
static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* WT1 */
static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* C1EXPR */
static object  LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[73],&LnkLI73,ap);} /* CMPWARN */
static LnkT72(){ call_or_link(VV[72],&Lnk72);} /* WT-VAR-DECL */
static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,2,ap);} /* C2BIND-INIT */
static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,3,ap);} /* CAN-BE-REPLACED* */
static LnkT68(){ call_or_link(VV[68],&Lnk68);} /* C2EXPR */
static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,1,ap);} /* C2BIND */
static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],&LnkLI66,2,ap);} /* C2BIND-LOC */
static object  LnkTLI12(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[12],&LnkLI12,1,ap);} /* C2EXPR* */
static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* WRITE-BLOCK-OPEN */
static object  LnkTLI64(){return call_proc0(VV[64],&LnkLI64);} /* BABOON */
static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,2,ap);} /* ARGS-INFO-CHANGED-VARS */
static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[62],&LnkLI62,2,ap);} /* CAN-BE-REPLACED */
static object  LnkTLI55(){return call_proc0(VV[55],&LnkLI55);} /* VS-PUSH */
static object  LnkTLI54(){return call_proc0(VV[54],&LnkLI54);} /* WFS-ERROR */
static LnkT53(){ call_or_link(VV[53],&Lnk53);} /* FIXNUMP */
static object  LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[52],&LnkLI52,1,ap);} /* C2VAR-KIND */
static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* CHECK-VREF */
static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,2,ap);} /* ADD-INFO */
static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1DECL-BODY */
static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],&LnkLI48,3,ap);} /* CHECK-VDECL */
static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,2,ap);} /* C1EXPR* */
static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,3,ap);} /* AND-FORM-TYPE */
static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],&LnkLI45,ap);} /* CMPERR */
static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,1,ap);} /* DEFAULT-INIT */
static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,4,ap);} /* C1MAKE-VAR */
static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,1,ap);} /* C1ADD-GLOBALS */
static LnkT41(){ call_or_link(VV[41],&Lnk41);} /* C1BODY */
static object  LnkTLI40(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[40],&LnkLI40,3,ap);} /* TOO-FEW-ARGS */
static object  LnkTLI39(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[39],&LnkLI39,ap);} /* MAKE-INFO */

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.