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

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

#include <cmpinclude.h>
#include "sloop.h"
init_sloop(){do_init(VV);}
/*	macro definition for LCASE	*/

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;}
	{object V2;
	object V3;
	object V4;
	V2= Cnil;
	V3= Cnil;
	V4= Cnil;
	{object V5;
	object V6;
	V5= base[3];
	V6= Cnil;
T8:;
	if(((V3))!=Cnil){
	goto T10;}
	if(((V5))!=Cnil){
	goto T9;}
T10:;
	goto T4;
T9:;
	V6= car((V5));
	if(!(eql(car((V6)),Ct))){
	goto T21;}
	V3= Ct;
	V7= (V6);
	goto T19;
T21:;
	if(!(eql(car((V6)),VV[0]))){
	goto T26;}
	V7= make_cons(VV[1],cdr((V6)));
	goto T19;
T26:;
	if(!(eql(car((V6)),VV[2]))){
	goto T29;}
	V7= make_cons(VV[3],cdr((V6)));
	goto T19;
T29:;
	{register object x= car((V6)),V8= VV[4];
	while(!endp(V8))
	if(eql(x,V8->c.c_car)){
	V4= V8;
	goto T34;
	}else V8=V8->c.c_cdr;
	V4= Cnil;}
T34:;
	if(((V4))==Cnil){
	goto T32;}
	V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],car((V4))));
	V7= make_cons(/* INLINE-ARGS */V9,cdr((V6)));
	goto T19;
T32:;
	V10= list(3,VV[9],VV[8],list(2,VV[10],car((V6))));
	V7= make_cons(/* INLINE-ARGS */V10,cdr((V6)));
T19:;
	V2= make_cons(V7,(V2));
	V5= cdr((V5));
	goto T8;}
T4:;
	if((V3)!=Cnil){
	goto T38;}
	V2= make_cons(VV[11],(V2));
T38:;
	V11= list(2,VV[8],list(2,VV[13],base[2]));
	V12= make_cons(/* INLINE-ARGS */V11,Cnil);
	V13= nreverse((V2));
	base[4]= list(3,VV[12],/* INLINE-ARGS */V12,make_cons(VV[14],/* INLINE-ARGS */V13));
	vs_top=(vs_base=base+4)+1;
	return;}
}
/*	local entry for function DESETQ1	*/

static object LI2(V16,V17)

register object V16;register object V17;
{	 VMB2 VMS2 VMV2
TTL:;
	if(!(type_of((V16))==t_symbol)){
	goto T41;}
	if((V16)==Cnil){
	{object V18 = Cnil;
	VMR2(V18)}}
	{object V19 = list(3,VV[15],(V16),(V17));
	VMR2(V19)}
T41:;
	if(!(type_of((V16))==t_cons)){
	goto T44;}
	V20= car((V16));
	V21= list(2,VV[17],(V17));
	V22= (*(LnkLI246))(/* INLINE-ARGS */V20,/* INLINE-ARGS */V21);
	if(!(type_of(cdr((V16)))==t_cons)){
	goto T48;}
	V24= cdr((V16));
	V25= list(2,VV[18],(V17));
	V26= (*(LnkLI246))(/* INLINE-ARGS */V24,/* INLINE-ARGS */V25);
	V23= make_cons(/* INLINE-ARGS */V26,Cnil);
	goto T46;
T48:;
	if((cdr((V16)))!=Cnil){
	goto T50;}
	V23= Cnil;
	goto T46;
T50:;
	V27= cdr((V16));
	V28= list(3,VV[15],/* INLINE-ARGS */V27,list(2,VV[18],(V17)));
	V23= make_cons(/* INLINE-ARGS */V28,Cnil);
T46:;
	{object V29 = listA(3,VV[16],/* INLINE-ARGS */V22,V23);
	VMR2(V29)}
T44:;
	base[0]= VV[19];
	vs_top=(vs_base=base+0)+1;
	Lerror();
	vs_top=sup;
	{object V30 = vs_base[0];
	VMR2(V30)}
}
/*	macro definition for DESETQ	*/

static L3()
{register object *base=vs_base;
	register object *sup=base+VM3; VC3
	vs_reserve(VM3);
	check_arg(2);
	vs_top=sup;
	{object V31=base[0]->c.c_cdr;
	if(endp(V31))invalid_macro_call();
	base[2]= (V31->c.c_car);
	V31=V31->c.c_cdr;
	if(endp(V31))invalid_macro_call();
	base[3]= (V31->c.c_car);
	V31=V31->c.c_cdr;
	if(!endp(V31))invalid_macro_call();}
	if(!(type_of(base[3])!=t_cons)){
	goto T54;}
	base[4]= (*(LnkLI246))(base[2],base[3]);
	vs_top=(vs_base=base+4)+1;
	return;
T54:;
	{object V32;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V32= vs_base[0];
	V33= list(2,(V32),base[3]);
	V34= make_cons(/* INLINE-ARGS */V33,Cnil);
	base[4]= list(3,VV[12],/* INLINE-ARGS */V34,(*(LnkLI246))(base[2],(V32)));
	vs_top=(vs_base=base+4)+1;
	return;}
}
/*	macro definition for LOOP-RETURN	*/

static L4()
{register object *base=vs_base;
	register object *sup=base+VM4; VC4
	vs_reserve(VM4);
	check_arg(2);
	vs_top=sup;
	{object V35=base[0]->c.c_cdr;
	base[2]= V35;}
	if(!((length(base[2]))<=(1))){
	goto T58;}
	base[3]= make_cons(VV[20],base[2]);
	vs_top=(vs_base=base+3)+1;
	return;
T58:;
	base[3]= list(2,VV[20],make_cons(VV[21],base[2]));
	vs_top=(vs_base=base+3)+1;
	return;
}
/*	macro definition for LOOP-FINISH	*/

static L5()
{register object *base=vs_base;
	register object *sup=base+VM5; VC5
	vs_reserve(VM5);
	check_arg(2);
	vs_top=sup;
	{object V36=base[0]->c.c_cdr;
	if(!endp(V36))invalid_macro_call();}
	base[2]= VV[22];
	vs_top=(vs_base=base+2)+1;
	return;
}
/*	macro definition for LOCAL-FINISH	*/

static L6()
{register object *base=vs_base;
	register object *sup=base+VM6; VC6
	vs_reserve(VM6);
	check_arg(2);
	vs_top=sup;
	{object V37=base[0]->c.c_cdr;
	if(!endp(V37))invalid_macro_call();}
	base[2]= VV[23];
	vs_top=(vs_base=base+2)+1;
	return;
}
/*	macro definition for SLOOP	*/

static L7()
{register object *base=vs_base;
	register object *sup=base+VM7; VC7
	vs_reserve(VM7);
	check_arg(2);
	vs_top=sup;
	{object V38=base[0]->c.c_cdr;
	base[2]= V38;}
	base[3]= (*(LnkLI247))(base[2]);
	vs_top=(vs_base=base+3)+1;
	return;
}
/*	macro definition for DEF-LOOP-MAP	*/

static L8()
{register object *base=vs_base;
	register object *sup=base+VM8; VC8
	vs_reserve(VM8);
	check_arg(2);
	vs_top=sup;
	{object V39=base[0]->c.c_cdr;
	if(endp(V39))invalid_macro_call();
	base[2]= (V39->c.c_car);
	V39=V39->c.c_cdr;
	if(endp(V39))invalid_macro_call();
	base[3]= (V39->c.c_car);
	V39=V39->c.c_cdr;
	base[4]= V39;}
	base[5]= (VFUN_NARGS=4,(*(LnkLI248))(base[2],base[3],base[4],VV[24]));
	vs_top=(vs_base=base+5)+1;
	return;
}
/*	macro definition for DEF-LOOP-FOR	*/

static L9()
{register object *base=vs_base;
	register object *sup=base+VM9; VC9
	vs_reserve(VM9);
	check_arg(2);
	vs_top=sup;
	{object V40=base[0]->c.c_cdr;
	if(endp(V40))invalid_macro_call();
	base[2]= (V40->c.c_car);
	V40=V40->c.c_cdr;
	if(endp(V40))invalid_macro_call();
	base[3]= (V40->c.c_car);
	V40=V40->c.c_cdr;
	base[4]= V40;}
	base[5]= (VFUN_NARGS=6,(*(LnkLI248))(base[2],base[3],base[4],VV[25],Cnil,small_fixnum(1)));
	vs_top=(vs_base=base+5)+1;
	return;
}
/*	macro definition for DEF-LOOP-MACRO	*/

static L10()
{register object *base=vs_base;
	register object *sup=base+VM10; VC10
	vs_reserve(VM10);
	check_arg(2);
	vs_top=sup;
	{object V41=base[0]->c.c_cdr;
	if(endp(V41))invalid_macro_call();
	base[2]= (V41->c.c_car);
	V41=V41->c.c_cdr;
	if(endp(V41))invalid_macro_call();
	base[3]= (V41->c.c_car);
	V41=V41->c.c_cdr;
	base[4]= V41;}
	base[5]= (VFUN_NARGS=4,(*(LnkLI248))(base[2],base[3],base[4],VV[26]));
	vs_top=(vs_base=base+5)+1;
	return;
}
/*	macro definition for DEF-LOOP-COLLECT	*/

static L11()
{register object *base=vs_base;
	register object *sup=base+VM11; VC11
	vs_reserve(VM11);
	check_arg(2);
	vs_top=sup;
	{object V42=base[0]->c.c_cdr;
	if(endp(V42))invalid_macro_call();
	base[2]= (V42->c.c_car);
	V42=V42->c.c_cdr;
	if(endp(V42))invalid_macro_call();
	base[3]= (V42->c.c_car);
	V42=V42->c.c_cdr;
	base[4]= V42;}
	base[5]= (VFUN_NARGS=7,(*(LnkLI248))(base[2],base[3],base[4],VV[27],VV[28],small_fixnum(2),small_fixnum(2)));
	vs_top=(vs_base=base+5)+1;
	return;
}
/*	macro definition for SLOOP-SWAP	*/

static L12()
{register object *base=vs_base;
	register object *sup=base+VM12; VC12
	vs_reserve(VM12);
	check_arg(2);
	vs_top=sup;
	{object V43=base[0]->c.c_cdr;
	if(!endp(V43))invalid_macro_call();}
	base[2]= VV[29];
	vs_top=(vs_base=base+2)+1;
	return;
}
/*	local entry for function L-EQUAL	*/

static object LI13(V46,V47)

object V46;register object V47;
{	 VMB13 VMS13 VMV13
TTL:;
	if(type_of((V46))==t_symbol){
	goto T60;}
	{object V48 = Cnil;
	VMR13(V48)}
T60:;
	if(!(type_of((V47))==t_symbol)){
	goto T63;}
	V49= symbol_name((V46));
	V50= symbol_name((V47));
	{object V51 = (equal(/* INLINE-ARGS */V49,/* INLINE-ARGS */V50)?Ct:Cnil);
	VMR13(V51)}
T63:;
	if(!(type_of((V47))==t_cons||((V47))==Cnil)){
	goto T66;}
	base[0]= (V46);
	base[1]= (V47);
	base[2]= VV[30];
	base[3]= VV[9];
	vs_top=(vs_base=base+0)+4;
	Lmember();
	vs_top=sup;
	{object V52 = vs_base[0];
	VMR13(V52)}
T66:;
	{object V53 = Cnil;
	VMR13(V53)}
}
/*	local entry for function LOOP-COLLECT-KEYWORD-P	*/

static object LI14(V55)

object V55;
{	 VMB14 VMS14 VMV14
TTL:;
	base[1]= (V55);
	base[2]= VV[31];
	base[3]= VV[30];
	base[4]= VV[9];
	vs_top=(vs_base=base+1)+4;
	Lmember();
	vs_top=sup;
	base[0]= vs_base[0];
	if(base[0]==Cnil)goto T72;
	{object V56 = base[0];
	VMR14(V56)}
T72:;
	{object V57 = (VFUN_NARGS=4,(*(LnkLI249))((V55),symbol_value(VV[28]),VV[30],VV[9]));
	VMR14(V57)}
}
/*	local entry for function TRANSLATE-NAME	*/

static object LI15(V59)

object V59;
{	 VMB15 VMS15 VMV15
TTL:;
	{object V60;
	if(type_of((V59))==t_symbol){
	goto T79;}
	V60= Cnil;
	goto T78;
T79:;
	base[0]= (V59);
	base[1]= symbol_value(VV[32]);
	base[2]= VV[30];
	base[3]= VV[9];
	base[4]= VV[33];
	base[5]= VV[17];
	vs_top=(vs_base=base+0)+6;
	Lmember();
	vs_top=sup;
	V61= vs_base[0];
	V60= cdar(V61);
T78:;
	if(((V60))==Cnil){
	goto T89;}
	{object V62 = (V60);
	VMR15(V62)}
T89:;
	{object V63 = (V59);
	VMR15(V63)}}
}
/*	local entry for function LOOP-POP	*/

static object LI16()

{	 VMB16 VMS16 VMV16
TTL:;
	if((symbol_value(VV[34]))==Cnil){
	goto T92;}
	{object V64;
	V64= car(symbol_value(VV[34]));
	setq(VV[34],cdr(symbol_value(VV[34])));
	setq(VV[35],(V64));}
	{object V65 = symbol_value(VV[35]);
	VMR16(V65)}
T92:;
	setq(VV[35],VV[36]);
	{object V66 = Cnil;
	VMR16(V66)}
}
/*	local entry for function LOOP-UN-POP	*/

static object LI17()

{	 VMB17 VMS17 VMV17
TTL:;
	{object V67= symbol_value(VV[35]);
	if((V67!= VV[36]))goto T100;
	{object V68 = Cnil;
	VMR17(V68)}
T100:;
	if((V67!= VV[250]))goto T101;
	base[0]= VV[37];
	vs_top=(vs_base=base+0)+1;
	Lerror();
	vs_top=sup;
	{object V69 = vs_base[0];
	VMR17(V69)}
T101:;
	setq(VV[34],make_cons(symbol_value(VV[35]),symbol_value(VV[34])));
	setq(VV[35],VV[38]);
	{object V70 = VV[38];
	VMR17(V70)}}
}
/*	local entry for function LOOP-PEEK	*/

static object LI18()

{	 VMB18 VMS18 VMV18
TTL:;
	{object V71 = car(symbol_value(VV[34]));
	VMR18(V71)}
}
/*	local entry for function LOOP-LET-BINDINGS	*/

static object LI19(V73)

register object V73;
{	 VMB19 VMS19 VMV19
TTL:;
	{object V74;
	V74= car((V73));
T108:;
	if(((V74))!=Cnil){
	goto T109;}
	{object V75 = nreverse(car((V73)));
	VMR19(V75)}
T109:;
	base[0]= cdar((V74));
	if(base[0]==Cnil)goto T114;
	goto T113;
T114:;
	{object V76;
	object V77;
	V76= (V74);
	V77= caar((V74));
	if(type_of((V76))!=t_cons)FEwrong_type_argument(Scons,(V76));
	((V76))->c.c_car = (V77);}
T113:;
	V74= cdr((V74));
	goto T108;}
}
/*	local entry for function PARSE-LOOP	*/

static object LI20(V79)

object V79;
{	 VMB20 VMS20 VMV20
	bds_check;
TTL:;
	{object V80;
	V80= Cnil;
	{object V81;
	object V82;
	V81= Cnil;
	V82= VV[55];
	bds_bind(VV[34],(V79));
	bds_bind(VV[54],symbol_value(VV[54]));
	bds_bind(VV[35],Cnil);
	bds_bind(VV[53],Cnil);
	bds_bind(VV[49],Cnil);
	bds_bind(VV[51],Cnil);
	bds_bind(VV[48],Cnil);
	bds_bind(VV[50],Cnil);
	bds_bind(VV[43],Cnil);
	bds_bind(VV[42],Cnil);
	bds_bind(VV[52],Cnil);
	bds_bind(VV[44],Cnil);
	bds_bind(VV[45],Cnil);
	bds_bind(VV[47],Cnil);
	bds_bind(VV[41],Cnil);
	bds_bind(VV[46],Cnil);
	bds_bind(VV[40],Cnil);
	bds_bind(VV[39],Cnil);
	if(!(type_of(car((VV[34]->s.s_dbind)))==t_symbol)){
	goto T126;}
	if((car((VV[34]->s.s_dbind)))!=Cnil){
	goto T125;}
T126:;
	(VV[34]->s.s_dbind)= make_cons(VV[56],(VV[34]->s.s_dbind));
T125:;
	(void)((*(LnkLI251))());
	if(((VV[53]->s.s_dbind))!=Cnil){
	goto T133;}
	if(((VV[40]->s.s_dbind))==Cnil){
	goto T132;}
T133:;
	if((VV[51]->s.s_dbind)!=Cnil){
	goto T137;}
	base[19]= VV[57];
	vs_top=(vs_base=base+19)+1;
	Lgensym();
	vs_top=sup;
	(VV[51]->s.s_dbind)= vs_base[0];
T137:;
	if(eql(VV[55],(V82))){
	goto T140;}
	goto T132;
T140:;
	base[18]= VV[58];
	vs_top=(vs_base=base+18)+1;
	Lgensym();
	vs_top=sup;
	V82= vs_base[0];
T132:;
	V83= list(3,VV[59],VV[60],list(4,VV[61],VV[62],list(2,VV[10],(VV[51]->s.s_dbind)),VV[63]));
	V81= make_cons(/* INLINE-ARGS */V83,(V81));
	V84= list(3,VV[64],Cnil,list(3,VV[61],VV[65],list(2,VV[10],(V82))));
	V81= make_cons(/* INLINE-ARGS */V84,(V81));
	V85= list(3,VV[66],Cnil,list(3,VV[61],VV[67],list(2,VV[10],(V82))));
	V81= make_cons(/* INLINE-ARGS */V85,(V81));
	if((VV[45]->s.s_dbind)==Cnil){
	goto T150;}
	V86= list(3,VV[68],(VV[51]->s.s_dbind),(VV[45]->s.s_dbind));
	(VV[43]->s.s_dbind)= make_cons(/* INLINE-ARGS */V86,(VV[43]->s.s_dbind));
T150:;
	base[18]= (VV[41]->s.s_dbind);
	base[19]= nreverse((VV[49]->s.s_dbind));
	base[20]= nreverse((VV[42]->s.s_dbind));
	vs_top=(vs_base=base+18)+3;
	Lappend();
	vs_top=sup;
	V80= vs_base[0];
	if(((VV[53]->s.s_dbind))==Cnil){
	goto T159;}
	V80= (*(LnkLI252))((V80));
	goto T157;
T159:;
	V87= append((V80),VV[70]);
	V80= make_cons(VV[69],/* INLINE-ARGS */V87);
T157:;
	{object V88;{object V89;
	V89= (VV[51]->s.s_dbind);
	base[18]= nreverse((VV[48]->s.s_dbind));
	base[19]= (V80);
	base[20]= make_cons((V82),Cnil);
	base[21]= nreverse((VV[43]->s.s_dbind));
	base[22]= VV[74];
	vs_top=(vs_base=base+18)+5;
	Lappend();
	vs_top=sup;
	V90= vs_base[0];
	V88= list(3,VV[71],(V81),list(3,VV[72],V89,make_cons(VV[73],V90)));}
	if(eql(symbol_value(VV[75]),symbol_value(VV[76]))){
	goto T170;}
	base[18]= (V88);
	vs_top=(vs_base=base+18)+1;
	Lcopy_tree();
	vs_top=sup;
	V88= vs_base[0];
T170:;
	{object V91;
	object V92;
	V91= (VV[46]->s.s_dbind);
	V92= car((V91));
T179:;
	if(!(endp((V91)))){
	goto T180;}
	goto T175;
T180:;
	V93= (*(LnkLI253))((V92));
	if((cdr((V92)))!=Cnil){
	goto T187;}
	V94= Cnil;
	goto T186;
T187:;
	V95= make_cons(VV[77],cdr((V92)));
	V94= make_cons(/* INLINE-ARGS */V95,Cnil);
T186:;
	V96= make_cons((V88),Cnil);
	V88= listA(3,VV[12],/* INLINE-ARGS */V93,append(V94,/* INLINE-ARGS */V96));
	V91= cdr((V91));
	V92= car((V91));
	goto T179;}
T175:;
	{object V97 = (V88);
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR20(V97)}}}}
}
/*	local entry for function PARSE-LOOP1	*/

static object LI21()

{	 VMB21 VMS21 VMV21
TTL:;
	{object V98;
	V99= (*(LnkLI254))();
	V98= (*(LnkLI13))(/* INLINE-ARGS */V99);
	if(((*(LnkLI9))((V98),VV[78]))==Cnil){
	goto T194;}
	(void)((*(LnkLI255))());
	setq(VV[51],(*(LnkLI255))());}
T194:;
	{object V100;
	V100= (*(LnkLI255))();
T202:;
	if(((V100))!=Cnil){
	goto T203;}
	if((symbol_value(VV[34]))!=Cnil){
	goto T203;}
	{object V101 = Cnil;
	VMR21(V101)}
T203:;
	{object V102;
	V102= (*(LnkLI13))((V100));
	{object V103;
	V103= (*(LnkLI256))((V102));
	if(((V103))==Cnil){
	goto T213;}
	goto T209;
T213:;
	if(((*(LnkLI9))((V102),VV[25]))==Cnil){
	goto T216;}
	(void)((*(LnkLI257))());
	goto T209;
T216:;
	if(((*(LnkLI9))((V102),VV[79]))==Cnil){
	goto T219;}
	V104= (*(LnkLI255))();
	V105= list(3,VV[80],/* INLINE-ARGS */V104,VV[81]);
	setq(VV[49],make_cons(/* INLINE-ARGS */V105,symbol_value(VV[49])));
	goto T209;
T219:;
	if(((*(LnkLI9))((V102),VV[82]))==Cnil){
	goto T223;}
	V106= (*(LnkLI255))();
	V107= list(3,VV[5],/* INLINE-ARGS */V106,VV[83]);
	setq(VV[49],make_cons(/* INLINE-ARGS */V107,symbol_value(VV[49])));
	goto T209;
T223:;
	if(((*(LnkLI9))((V102),VV[56]))==Cnil){
	goto T227;}
	V108= (*(LnkLI258))();
	setq(VV[49],append(/* INLINE-ARGS */V108,symbol_value(VV[49])));
	goto T209;
T227:;
	if(((*(LnkLI9))((V102),VV[84]))==Cnil){
	goto T231;}
	V109= (*(LnkLI259))();
	setq(VV[49],append(/* INLINE-ARGS */V109,symbol_value(VV[49])));
	goto T209;
T231:;
	if(((*(LnkLI260))((V102)))==Cnil){
	goto T235;}
	V110= (*(LnkLI261))();
	setq(VV[49],append(/* INLINE-ARGS */V110,symbol_value(VV[49])));
	goto T209;
T235:;
	base[0]= VV[85];
	base[1]= (V102);
	vs_top=(vs_base=base+0)+2;
	Lerror();
	vs_top=sup;}}
T209:;
	V100= (*(LnkLI255))();
	goto T202;}
}
/*	local entry for function PARSE-NO-BODY	*/

static object LI22(V112)

object V112;
{	 VMB22 VMS22 VMV22
TTL:;
	{object V113;
	object V114;
	V113= Ct;
	V114= Ct;
	{object V115;
	V115= (V112);
T248:;
	if(((V114))!=Cnil){
	goto T249;}
	if((symbol_value(VV[34]))!=Cnil){
	goto T249;}
	goto T245;
T249:;
	{object V116;
	V116= (*(LnkLI13))((V115));
	if(((*(LnkLI9))((V116),VV[86]))==Cnil){
	goto T258;}
	(void)((*(LnkLI262))((V115)));
	goto T255;
T258:;
	if(((*(LnkLI9))((V116),Cnil))==Cnil){
	goto T261;}
	goto T255;
T261:;
	if(((*(LnkLI9))((V116),VV[87]))==Cnil){
	goto T264;}
	(void)((VFUN_NARGS=0,(*(LnkLI263))()));
	goto T255;
T264:;
	if(((*(LnkLI9))((V116),VV[77]))==Cnil){
	goto T267;}
	V117= (*(LnkLI255))();
	(void)((VFUN_NARGS=2,(*(LnkLI264))(/* INLINE-ARGS */V117,Ct)));
	goto T255;
T267:;
	if(((*(LnkLI9))((V116),VV[88]))==Cnil){
	goto T270;}
	setq(VV[47],(*(LnkLI255))());
	goto T255;
T270:;
	if(((*(LnkLI9))((V116),VV[89]))==Cnil){
	goto T274;}
	V118= (*(LnkLI258))();
	setq(VV[42],append(/* INLINE-ARGS */V118,symbol_value(VV[42])));
	goto T255;
T274:;
	if(((*(LnkLI9))((V116),VV[90]))==Cnil){
	goto T278;}
	V119= (*(LnkLI258))();
	setq(VV[41],append(/* INLINE-ARGS */V119,symbol_value(VV[41])));
	goto T255;
T278:;
	if(((*(LnkLI9))((V116),VV[91]))==Cnil){
	goto T282;}
	(void)((VFUN_NARGS=2,(*(LnkLI263))(Cnil,Ct)));
	goto T255;
T282:;
	if(!(type_of((V116))==t_symbol)){
	goto T285;}
	if((get((V116),VV[92],Cnil))==Cnil){
	goto T285;}
	(void)((VFUN_NARGS=2,(*(LnkLI265))((V115),VV[92])));
	goto T255;
T285:;
	if(((V114))==Cnil){
	goto T291;}
	V113= Cnil;
	goto T289;
T291:;
	(void)((*(LnkLI266))());
T289:;
	goto T245;}
T255:;
	V114= Cnil;
	V115= (*(LnkLI255))();
	goto T248;}
T245:;
	{object V120 = (V113);
	VMR22(V120)}}
}
/*	local entry for function PARSE-LOOP-WITH	*/

static object LI23(va_alist)
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB23 VMS23 VMV23
	{object V121;
	object V122;
	narg = narg - 0;
	if (narg <= 0) goto T299;
	else {
	va_start(ap);
	V121= va_arg(ap,object);}
	if (--narg <= 0) goto T300;
	else {
	V122= va_arg(ap,object);}
	--narg; goto T301;
T299:;
	V121= Cnil;
T300:;
	V122= Cnil;
T301:;
	{object V123;
	V123= (*(LnkLI255))();
	{object V124;
	V125= (*(LnkLI254))();
	V124= (*(LnkLI13))(/* INLINE-ARGS */V125);
	if(((*(LnkLI9))((V124),VV[94]))==Cnil){
	goto T308;}
	(void)((*(LnkLI255))());
	if(!(type_of((V123))==t_symbol)){
	goto T312;}
	goto T311;
T312:;
	base[1]= VV[95];
	base[2]= (V123);
	vs_top=(vs_base=base+1)+2;
	Lerror();
	vs_top=sup;
T311:;
	V126= (*(LnkLI255))();
	(void)((VFUN_NARGS=7,(*(LnkLI267))((V123),/* INLINE-ARGS */V126,(((V121))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V122))));
	goto T305;
T308:;
	(void)((VFUN_NARGS=5,(*(LnkLI268))((V123),Cnil,Cnil,(((V121))==Cnil?Ct:Cnil),(V122))));}
T305:;
	{object V127;
	V128= (*(LnkLI254))();
	V127= (*(LnkLI13))(/* INLINE-ARGS */V128);
	if(((*(LnkLI9))((V127),VV[5]))==Cnil){
	goto T318;}
	(void)((*(LnkLI255))());
	{object V129;
	V130= (*(LnkLI255))();
	V129= (*(LnkLI13))(/* INLINE-ARGS */V130);
	if(((*(LnkLI9))((V129),VV[87]))==Cnil){
	goto T323;}
	{object V131 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));
	VMR23(V131)}
T323:;
	if(((*(LnkLI9))((V129),VV[91]))==Cnil){
	goto T326;}
	{object V132 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct));
	VMR23(V132)}
T326:;
	(void)((*(LnkLI266))());
	{object V133 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));
	VMR23(V133)}}
T318:;
	{object V134 = Cnil;
	VMR23(V134)}}}}
	}
/*	local entry for function PARSE-LOOP-DO	*/

static object LI24()

{	 VMB24 VMS24 VMV24
TTL:;
	{object V135;
	V135= Cnil;
	{object V136;
	V136= (*(LnkLI255))();
T333:;
	if(!(type_of((V136))==t_cons||((V136))==Cnil)){
	goto T338;}
	V135= make_cons((V136),(V135));
	if(symbol_value(VV[34])!=Cnil){
	goto T336;}
	goto T330;
T338:;
	(void)((*(LnkLI266))());
	goto T330;
T336:;
	V136= (*(LnkLI255))();
	goto T333;}
T330:;
	if((V135)!=Cnil){
	goto T346;}
	base[1]= VV[96];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T346:;
	{object V137 = (V135);
	VMR24(V137)}}
}
/*	local entry for function PARSE-LOOP-INITIALLY	*/

static object LI25(V139)

object V139;
{	 VMB25 VMS25 VMV25
TTL:;
	{object V140;
	V140= (*(LnkLI13))((V139));
	if(((*(LnkLI9))((V140),VV[97]))==Cnil){
	goto T350;}
	{object V141;
	V141= (*(LnkLI258))();
	{object V142;
	object V143;
	V142= nreverse((V141));
	V143= car((V142));
T356:;
	if(!(endp((V142)))){
	goto T357;}
	{object V144 = Cnil;
	VMR25(V144)}
T357:;
	{object V145;
	if(type_of((V143))==t_cons||((V143))==Cnil){
	goto T363;}
	V145= Cnil;
	goto T362;
T363:;
	{register object x= car((V143)),V146= VV[98];
	while(!endp(V146))
	if(eql(x,V146->c.c_car)){
	goto T365;
	}else V146=V146->c.c_cdr;}
	V145= Cnil;
	goto T362;
T365:;
	if((length((V143)))==(3)){
	goto T367;}
	V145= Cnil;
	goto T362;
T367:;
	if(type_of(cadr((V143)))==t_symbol){
	goto T369;}
	V145= Cnil;
	goto T362;
T369:;
	base[0]= caddr((V143));
	vs_top=(vs_base=base+0)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T371;}
	V145= Cnil;
	goto T362;
T371:;
	{register object x= cadr((V143)),V147= caar(symbol_value(VV[46]));
	while(!endp(V147))
	if(type_of(V147->c.c_car)==t_cons &&eql(x,V147->c.c_car->c.c_car)){
	goto T374;
	}else V147=V147->c.c_cdr;}
	V145= Cnil;
	goto T362;
T374:;
	V145= (VFUN_NARGS=7,(*(LnkLI267))(cadr((V143)),caddr((V143)),Cnil,Cnil,Cnil,Ct,Ct));
T362:;
	if(((V145))==Cnil){
	goto T377;}
	goto T361;
T377:;
	setq(VV[48],make_cons((V143),symbol_value(VV[48])));}
T361:;
	V142= cdr((V142));
	V143= car((V142));
	goto T356;}}
T350:;
	if(((*(LnkLI9))((V140),VV[99]))==Cnil){
	goto T386;}
	V148= (*(LnkLI258))();
	setq(VV[43],append(/* INLINE-ARGS */V148,symbol_value(VV[43])));
	{object V149 = symbol_value(VV[43]);
	VMR25(V149)}
T386:;
	base[0]= VV[85];
	base[1]= (V140);
	vs_top=(vs_base=base+0)+2;
	Lerror();
	vs_top=sup;
	{object V150 = vs_base[0];
	VMR25(V150)}}
}
/*	local entry for function PARSE-ONE-WHEN-CLAUSE	*/

static object LI26()

{	 VMB26 VMS26 VMV26
TTL:;
	{object V151;
	object V152;
	object V153;
	V151= Cnil;
	V152= VV[100];
	V153= Cnil;
T396:;
	if((symbol_value(VV[34]))==Cnil){
	goto T399;}
	goto T398;
T399:;
	goto T394;
T398:;
	V153= (*(LnkLI255))();
	{object V154;
	V154= (*(LnkLI13))((V153));
	{object V155;
	V155= (*(LnkLI256))((V154));
	if(((V155))==Cnil){
	goto T407;}
	goto T403;
T407:;
	if(((*(LnkLI260))((V154)))==Cnil){
	goto T410;}
	if(!(eql(VV[100],(V152)))){
	goto T413;}
	goto T412;
T413:;
	goto T397;
T412:;
	V156= (*(LnkLI261))();
	V151= append(/* INLINE-ARGS */V156,(V151));
	V152= VV[5];
	goto T403;
T410:;
	if(((*(LnkLI9))((V154),VV[101]))==Cnil){
	goto T419;}
	if(!(eql(VV[100],(V152)))){
	goto T422;}
	goto T421;
T422:;
	goto T397;
T421:;
	V157= (*(LnkLI259))();
	V151= append(/* INLINE-ARGS */V157,(V151));
	V152= VV[5];
	goto T403;
T419:;
	if(((*(LnkLI9))((V154),VV[56]))==Cnil){
	goto T428;}
	if(!(eql(VV[100],(V152)))){
	goto T431;}
	goto T430;
T431:;
	goto T397;
T430:;
	V158= (*(LnkLI258))();
	V151= append(/* INLINE-ARGS */V158,(V151));
	V152= VV[5];
	goto T403;
T428:;
	if(((*(LnkLI9))((V154),VV[5]))==Cnil){
	goto T437;}
	if(!(eql(VV[5],(V152)))){
	goto T440;}
	goto T439;
T440:;
	base[1]= VV[102];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T439:;
	V152= VV[100];
	goto T403;
T437:;
	(void)((*(LnkLI266))());
	goto T394;}}
T403:;
	goto T396;
T397:;
	(void)((*(LnkLI266))());
	goto T394;
T394:;
	if((V151)!=Cnil){
	goto T446;}
	base[1]= VV[103];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T446:;
	{object V159 = (V151);
	VMR26(V159)}}
}
/*	local entry for function PARSE-LOOP-WHEN	*/

static object LI27()

{	 VMB27 VMS27 VMV27
TTL:;
	{object V160;
	object V161;
	object V162;
	V160= Cnil;
	V161= Cnil;
	V162= Cnil;
	{object V163;
	if(((*(LnkLI9))(symbol_value(VV[35]),VV[104]))==Cnil){
	goto T453;}
	V163= list(2,VV[105],(*(LnkLI255))());
	goto T451;
T453:;
	V163= (*(LnkLI255))();
T451:;
	V160= (*(LnkLI269))();
	{object V164;
	V165= (*(LnkLI254))();
	V164= (*(LnkLI13))(/* INLINE-ARGS */V165);
	if(((*(LnkLI9))((V164),VV[106]))==Cnil){
	goto T457;}
	(void)((*(LnkLI255))());
	V161= Ct;
	V162= (*(LnkLI269))();}
T457:;
	V166= nreverse((V160));
	V167= make_cons((V163),/* INLINE-ARGS */V166);
	if((V161)==Cnil){
	V168= Cnil;
	goto T465;}
	V169= nreverse((V162));
	V170= make_cons(Ct,/* INLINE-ARGS */V169);
	V168= make_cons(/* INLINE-ARGS */V170,Cnil);
T465:;
	V171= listA(3,VV[14],/* INLINE-ARGS */V167,V168);
	{object V172 = make_cons(/* INLINE-ARGS */V171,Cnil);
	VMR27(V172)}}}
}
/*	local entry for function POINTER-FOR-COLLECT	*/

static object LI28(V174)

object V174;
{	 VMB28 VMS28 VMV28
TTL:;
	{register object x= (V174),V176= symbol_value(VV[52]);
	while(!endp(V176))
	if(type_of(V176->c.c_car)==t_cons &&eql(x,V176->c.c_car->c.c_car)){
	V175= (V176->c.c_car);
	goto T468;
	}else V176=V176->c.c_cdr;
	V175= Cnil;}
T468:;
	base[0]= cdr(V175);
	if(base[0]==Cnil)goto T466;
	{object V177 = base[0];
	VMR28(V177)}
T466:;
	{object V178;
	base[1]= VV[107];
	vs_top=(vs_base=base+1)+1;
	Lgensym();
	vs_top=sup;
	V179= vs_base[0];
	V178= (VFUN_NARGS=4,(*(LnkLI267))(V179,Cnil,Cnil,VV[0]));
	V180= make_cons((V174),(V178));
	setq(VV[52],make_cons(/* INLINE-ARGS */V180,symbol_value(VV[52])));
	{object V181 = (V178);
	VMR28(V181)}}
}
/*	local entry for function PARSE-LOOP-COLLECT	*/

static object LI29()

{	 VMB29 VMS29 VMV29
TTL:;
	{object V182;
	object V183;
	object V184;
	V182= Cnil;
	V183= Cnil;
	V184= Cnil;
	if(symbol_value(VV[50])==Cnil){
	goto T477;}
	{frame_ptr fr;
	fr=frs_sch_catch(VV[27]);
	if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[27]);
	base[0]= Cnil;
	vs_top=(vs_base=base+0)+1;
	unwind(fr,VV[27]);}
T477:;
	{object V185;
	object V186;
	V185= symbol_value(VV[35]);
	V186= (*(LnkLI255))();
	{object V187;
	V188= (*(LnkLI255))();
	V187= (*(LnkLI13))(/* INLINE-ARGS */V188);
	if(((*(LnkLI9))((V187),VV[108]))==Cnil){
	goto T484;}
	V182= (*(LnkLI255))();
	(void)((VFUN_NARGS=6,(*(LnkLI267))((V182),Cnil,Cnil,Ct,Cnil,Ct)));
	goto T481;
T484:;
	(void)((*(LnkLI266))());
	if((symbol_value(VV[45]))==Cnil){
	goto T489;}
	V182= symbol_value(VV[45]);
	goto T481;
T489:;
	base[0]= VV[109];
	vs_top=(vs_base=base+0)+1;
	Lgensym();
	vs_top=sup;
	V189= vs_base[0];
	setq(VV[45],(VFUN_NARGS=2,(*(LnkLI267))(V189,Cnil)));
	V182= symbol_value(VV[45]);}
T481:;
	{object V190;
	V190= (*(LnkLI13))((V185));
	if(((*(LnkLI9))((V190),VV[110]))==Cnil){
	goto T496;}
	V183= (*(LnkLI270))((V182));
	if((symbol_value(VV[111]))==Cnil){
	goto T502;}
	base[0]= list(3,VV[15],(V183),list(2,VV[112],(V182)));
	base[1]= symbol_value(VV[48]);
	base[2]= VV[30];
	base[3]= VV[113];
	vs_top=(vs_base=base+0)+4;
	Ladjoin();
	vs_top=sup;
	setq(VV[48],vs_base[0]);
T502:;
	{object V191;
	V191= (*(LnkLI13))((V185));
	if(((*(LnkLI9))((V191),VV[114]))==Cnil){
	goto T496;}
	if(!(type_of((V186))==t_cons||((V186))==Cnil)){
	goto T513;}
	if(eql(car((V186)),VV[61])){
	goto T496;}
T513:;
	V186= list(2,VV[115],(V186));}}
T496:;
	if(!(type_of((V186))==t_cons||((V186))==Cnil)){
	goto T520;}
	if((symbol_value(VV[111]))!=Cnil){
	goto T520;}
	base[0]= VV[116];
	vs_top=(vs_base=base+0)+1;
	Lgensym();
	vs_top=sup;
	V192= vs_base[0];
	V184= (VFUN_NARGS=3,(*(LnkLI267))(V192,Cnil,Cnil));
	goto T518;
T520:;
	V184= (V186);
T518:;
	{object V193;
	{object V194;
	V194= (*(LnkLI13))((V185));
	if(((*(LnkLI9))((V194),VV[117]))==Cnil){
	goto T531;}
	{object V195;
	V196= list(3,VV[15],list(2,VV[18],(V183)),(V184));
	V195= list(3,VV[5],/* INLINE-ARGS */V196,list(3,VV[15],(V183),list(2,VV[118],list(2,VV[18],(V183)))));
	if((symbol_value(VV[111]))==Cnil){
	goto T535;}
	V193= make_cons((V195),Cnil);
	goto T528;
T535:;
	V197= list(2,(V183),(V195));
	V198= list(3,VV[14],/* INLINE-ARGS */V197,list(2,Ct,list(3,VV[15],(V183),list(2,VV[118],list(3,VV[15],(V182),(V184))))));
	V193= make_cons(/* INLINE-ARGS */V198,Cnil);
	goto T528;}
T531:;
	if(((*(LnkLI9))((V194),VV[27]))==Cnil){
	goto T538;}
	if((symbol_value(VV[111]))==Cnil){
	goto T541;}
	V199= list(2,VV[18],(V183));
	V200= list(3,VV[15],/* INLINE-ARGS */V199,list(3,VV[15],(V183),list(3,VV[119],(V184),Cnil)));
	V193= make_cons(/* INLINE-ARGS */V200,Cnil);
	goto T528;
T541:;
	V201= list(2,VV[18],(V183));
	V202= list(2,(V183),list(3,VV[15],/* INLINE-ARGS */V201,list(3,VV[15],(V183),list(3,VV[119],(V184),Cnil))));
	V203= list(3,VV[14],/* INLINE-ARGS */V202,list(2,Ct,list(3,VV[15],(V182),list(3,VV[15],(V183),list(3,VV[119],(V184),Cnil)))));
	V193= make_cons(/* INLINE-ARGS */V203,Cnil);
	goto T528;
T538:;
	V185= (*(LnkLI13))((V185));
	if(((VFUN_NARGS=4,(*(LnkLI249))((V185),symbol_value(VV[28]),VV[30],VV[9])))==Cnil){
	goto T546;}
	V193= (*(LnkLI271))((V185),(V182),(V184));
	goto T528;
T546:;
	base[0]= VV[120];
	base[1]= (V185);
	vs_top=(vs_base=base+0)+2;
	Lerror();
	vs_top=sup;
	V193= vs_base[0];}
T528:;
	if(!(eql((V184),(V186)))){
	goto T551;}
	{object V204 = (V193);
	VMR29(V204)}
T551:;
	V205= list(3,VV[15],(V184),(V186));
	V206= make_cons(/* INLINE-ARGS */V205,Cnil);
	{object V207 = nconc((V193),/* INLINE-ARGS */V206);
	VMR29(V207)}}}}
}
/*	local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS	*/

static object LI30(V211,V212,V213)

object V211;object V212;object V213;
{	 VMB30 VMS30 VMV30
	bds_check;
TTL:;
	{object V214;
	V214= Cnil;
	{object V215;
	object V216;
	V215= (VFUN_NARGS=4,(*(LnkLI249))((V211),symbol_value(VV[28]),VV[30],VV[9]));
	V216= get((V215),VV[121],Cnil);
	{object V217;
	V217= (
	(type_of((V216)) == t_sfun ?(*(object (*)())(((V216))->sfn.sfn_self)):
	(fcall.fun=((V216)),fcall.argd=2,fcalln))((V212),(V213)));
	bds_bind(VV[34],(V217));
	bds_bind(VV[35],Cnil);
	{object V218;
	V218= (*(LnkLI255))();
T560:;
	if(((VV[34]->s.s_dbind))!=Cnil){
	goto T561;}
	goto T557;
T561:;
	{object V219;
	V219= (*(LnkLI13))((V218));
	{object V220;
	V220= (*(LnkLI256))((V219));
	if(((V220))==Cnil){
	goto T569;}
	goto T565;
T569:;
	if(((*(LnkLI9))((V219),VV[56]))==Cnil){
	goto T572;}
	V214= (*(LnkLI258))();
	goto T565;
T572:;
	base[2]= VV[85];
	base[3]= (V219);
	vs_top=(vs_base=base+2)+2;
	Lerror();
	vs_top=sup;}}
T565:;
	V218= (*(LnkLI255))();
	goto T560;}
T557:;
	{object V221 = (V214);
	bds_unwind1;
	bds_unwind1;
	VMR30(V221)}}}}
}
/*	local entry for function THE-TYPE	*/

static object LI31(V224,V225)

object V224;register object V225;
{	 VMB31 VMS31 VMV31
TTL:;
	if(symbol_value(VV[47])==Cnil){
	goto T580;}
	V225= Cnil;
T580:;
	if((V225)==Cnil){
	goto T582;}
	base[1]= symbol_value(VV[54]);
	base[2]= (V225);
	vs_top=(vs_base=base+1)+2;
	Lgetf();
	vs_top=sup;
	base[0]= vs_base[0];
	if(base[0]==Cnil)goto T584;
	V225= base[0];
	goto T583;
T584:;
	if((((type_of((V225))==t_symbol&&((V225))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){
	goto T588;}
	V225= Cnil;
	goto T583;
T588:;
T583:;
T582:;
	if(type_of((V225))==t_cons){
	goto T591;}
	goto T590;
T591:;
	if((car((V225)))==(VV[122])){
	goto T593;}
	goto T590;
T593:;
	V225= cadr((V225));
T590:;
	if(((V225))==Cnil){
	goto T597;}
	{object V226 = list(3,VV[123],(V225),(V224));
	VMR31(V226)}
T597:;
	{object V227 = (V224);
	VMR31(V227)}
}
/*	local entry for function TYPE-ERROR	*/

static object LI32()

{	 VMB32 VMS32 VMV32
TTL:;
	base[0]= VV[124];
	vs_top=(vs_base=base+0)+1;
	Lerror();
	vs_top=sup;
	{object V228 = vs_base[0];
	VMR32(V228)}
}
/*	local entry for function MAKE-VALUE	*/

static object LI33(V231,V232)

register object V231;object V232;
{	 VMB33 VMS33 VMV33
TTL:;
	{object V233;
	V233= Cnil;
	if((symbol_value(VV[47]))!=Cnil){
	goto T602;}
	if((symbol_value(VV[125]))==Cnil){
	goto T602;}
	if(!(((V232))==(VV[126]))){
	goto T602;}
	base[0]= symbol_value(VV[54]);
	base[1]= (V232);
	vs_top=(vs_base=base+0)+2;
	Lgetf();
	vs_top=sup;
	V233= vs_base[0];
	if(((V233))==Cnil){
	goto T602;}
	if(!(type_of((V233))==t_cons)){
	goto T616;}
	if(!((car((V233)))==(VV[122]))){
	goto T616;}
	V233= cadr((V233));
	goto T614;
T616:;
T614:;
	base[0]= (V231);
	vs_top=(vs_base=base+0)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T621;}
	{object V234;
	if((symbol_value(VV[39]))==Cnil){
	goto T626;}
	base[1]= (V231);
	base[2]= VV[127];
	base[3]= symbol_value(VV[39]);
	vs_top=(vs_base=base+1)+3;
	Lsubst();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	Leval();
	vs_top=sup;
	V234= vs_base[0];
	goto T624;
T626:;
	base[0]= (V231);
	vs_top=(vs_base=base+0)+1;
	Leval();
	vs_top=sup;
	V234= vs_base[0];
T624:;
	base[1]= (V234);
	base[2]= (V233);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk129)();
	vs_top=sup;
	base[0]= vs_base[0];
	if(base[0]==Cnil)goto T634;
	goto T633;
T634:;
	base[1]= VV[128];
	base[2]= (V231);
	base[3]= (V233);
	vs_top=(vs_base=base+1)+3;
	Lerror();
	vs_top=sup;
T633:;
	{object V235 = make_cons((V231),Cnil);
	VMR33(V235)}}
T621:;
	{object V236;
	V236= Cnil;
	if(!(type_of((V231))!=t_cons)){
	goto T644;}
	V237= Cnil;
	goto T642;
T644:;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V236= vs_base[0];
	V238= list(2,(V236),(V231));
	V237= make_cons(/* INLINE-ARGS */V238,Cnil);
T642:;
	if((symbol_value(VV[39]))==Cnil){
	goto T649;}
	if((V236)!=Cnil){
	base[0]= (V236);
	goto T651;}
	base[0]= (V231);
T651:;
	base[1]= VV[127];
	base[2]= symbol_value(VV[39]);
	vs_top=(vs_base=base+0)+3;
	Lsubst();
	vs_top=sup;
	V239= vs_base[0];
	goto T647;
T649:;
	if((V236)!=Cnil){
	V239= (V236);
	goto T647;}
	V239= (V231);
T647:;
	V240= list(3,VV[80],list(3,VV[129],V239,list(2,VV[10],(V233))),VV[130]);
	if((V236)!=Cnil){
	V241= (V236);
	goto T654;}
	V241= (V231);
T654:;
	V242= list(4,VV[12],V237,/* INLINE-ARGS */V240,V241);
	{object V243 = make_cons(/* INLINE-ARGS */V242,Cnil);
	VMR33(V243)}}
T602:;
	{object V244 = make_cons((V231),Cnil);
	VMR33(V244)}}
}
/*	local entry for function LOOP-ADD-BINDING	*/

static object LI34(V246,V245,va_alist)
	object V246,V245;
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB34 VMS34 VMV34
	{object V247;
	register object V248;
	object V249;
	object V250;
	object V251;
	object V252;
	object V253;
	if(narg <2) too_few_arguments();
	V247= V246;
	V248= V245;
	narg = narg - 2;
	if (narg <= 0) goto T655;
	else {
	va_start(ap);
	V249= va_arg(ap,object);}
	if (--narg <= 0) goto T656;
	else {
	V250= va_arg(ap,object);}
	if (--narg <= 0) goto T657;
	else {
	V251= va_arg(ap,object);}
	if (--narg <= 0) goto T658;
	else {
	V252= va_arg(ap,object);}
	if (--narg <= 0) goto T659;
	else {
	V253= va_arg(ap,object);}
	--narg; goto T660;
T655:;
	V249= Ct;
T656:;
	V250= Cnil;
T657:;
	V251= Cnil;
T658:;
	V252= Ct;
T659:;
	V253= Cnil;
T660:;
	{object V254;
	V254= Cnil;
	if(((V249))!=Cnil){
	goto T668;}
	if((symbol_value(VV[46]))!=Cnil){
	goto T667;}
T668:;
	V255= make_cons(Cnil,Cnil);
	setq(VV[46],make_cons(/* INLINE-ARGS */V255,symbol_value(VV[46])));
T667:;
	{register object x= (V247),V256= caar(symbol_value(VV[46]));
	while(!endp(V256))
	if(type_of(V256->c.c_car)==t_cons &&eql(x,V256->c.c_car->c.c_car)){
	V254= (V256->c.c_car);
	goto T677;
	}else V256=V256->c.c_cdr;
	V254= Cnil;}
T677:;
	if(((V254))==Cnil){
	goto T675;}
	if((V252)==Cnil){
	goto T673;}
	{object V257;
	object V258;
	V257= (V254);
	if((V248)==Cnil){
	V258= Cnil;
	goto T679;}
	V258= (*(LnkLI272))((V248),(V250));
T679:;
	if(type_of((V257))!=t_cons)FEwrong_type_argument(Scons,(V257));
	((V257))->c.c_cdr = (V258);
	goto T673;}
T675:;
	{object V259;
	if((V253)!=Cnil){
	if(((V253))!=Cnil){
	goto T682;}
	goto T683;}
	base[1]= (V247);
	vs_top=(vs_base=base+1)+1;
	Lsymbol_package();
	vs_top=sup;
	V260= vs_base[0];
	if((V260)==Cnil){
	goto T684;}
	goto T683;
T684:;
	base[1]= (V248);
	vs_top=(vs_base=base+1)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T682;}
T683:;
	V259= Cnil;
	goto T681;
T682:;
	{object V261;
	object V262;
	V261= cdr(symbol_value(VV[46]));
	V262= car((V261));
T692:;
	if(!(endp((V261)))){
	goto T693;}
	V259= Cnil;
	goto T681;
T693:;
	{register object x= (V247),V263= car((V262));
	while(!endp(V263))
	if(type_of(V263->c.c_car)==t_cons &&eql(x,V263->c.c_car->c.c_car)){
	V254= (V263->c.c_car);
	goto T700;
	}else V263=V263->c.c_cdr;
	V254= Cnil;}
T700:;
	if(((V254))==Cnil){
	goto T697;}
	if((V252)==Cnil){
	goto T701;}
	{object V264;
	object V265;
	V264= (V254);
	if((V248)==Cnil){
	V265= Cnil;
	goto T703;}
	V265= (*(LnkLI272))((V248),(V250));
T703:;
	if(type_of((V264))!=t_cons)FEwrong_type_argument(Scons,(V264));
	((V264))->c.c_cdr = (V265);}
T701:;
	V259= Ct;
	goto T681;
T697:;
	V261= cdr((V261));
	V262= car((V261));
	goto T692;}
T681:;
	if(((V259))==Cnil){
	goto T711;}
	goto T673;
T711:;
	{object V266;
	object V267;
	V266= symbol_value(VV[46]);
	if((V248)==Cnil){
	V268= Cnil;
	goto T715;}
	V268= (*(LnkLI272))((V248),(V250));
T715:;
	V269= make_cons((V247),V268);
	V267= make_cons(/* INLINE-ARGS */V269,caar((V266)));
	if(type_of(car((V266)))!=t_cons)FEwrong_type_argument(Scons,car((V266)));
	(car((V266)))->c.c_car = (V267);
	(void)(car((V266)));}}
T673:;
	if((V250)==Cnil){
	goto T717;}
	(void)((VFUN_NARGS=3,(*(LnkLI273))((V247),(V250),(V251))));
T717:;
	{object V270 = (V247);
	VMR34(V270)}}}
	}
/*	local entry for function LOOP-DECLARE-BINDING	*/

static object LI35(V273,V272,V271,va_alist)
	object V273,V272,V271;
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB35 VMS35 VMV35
	{register object V274;
	register object V275;
	object V276;
	object V277;
	if(narg <3) too_few_arguments();
	V274= V273;
	V275= V272;
	V276= V271;
	narg = narg - 3;
	if (narg <= 0) goto T718;
	else {
	va_start(ap);
	V277= va_arg(ap,object);}
	--narg; goto T719;
T718:;
	V277= Cnil;
T719:;
	{object V278;
	V278= Cnil;
	if((V275)==Cnil){
	goto T723;}
	{register object x= (V275),V279= symbol_value(VV[131]);
	while(!endp(V279))
	if(eql(x,V279->c.c_car)){
	goto T724;
	}else V279=V279->c.c_cdr;}
	goto T723;
T724:;
	base[0]= symbol_value(VV[54]);
	base[1]= (V275);
	vs_top=(vs_base=base+0)+2;
	Lgetf();
	vs_top=sup;
	V275= vs_base[0];
	if(((V275))!=Cnil){
	goto T726;}
	goto T723;
T726:;
	if(symbol_value(VV[132])==Cnil){
	goto T723;}
	(void)((VFUN_NARGS=3,(*(LnkLI273))((V274),VV[133],(V276))));
T723:;
	if(((V275))==Cnil){
	goto T731;}
	if(((V276))!=Cnil){
	goto T732;}
	if((symbol_value(VV[47]))!=Cnil){
	goto T731;}
T732:;
	{object V280;
	object V281;
	V280= symbol_value(VV[46]);
	V281= car((V280));
T742:;
	if(!(endp((V280)))){
	goto T743;}
	goto T738;
T743:;
	{register object x= (V274),V282= car((V281));
	while(!endp(V282))
	if(type_of(V282->c.c_car)==t_cons &&eql(x,V282->c.c_car->c.c_car)){
	goto T749;
	}else V282=V282->c.c_cdr;
	goto T747;}
T749:;
	V278= Ct;
	{object V283;
	object V284;
	V283= (V281);
	if(!(type_of((V275))==t_cons)){
	goto T757;}
	if(!((car((V275)))==(VV[122]))){
	goto T757;}
	base[0]= list(3,VV[122],cadr((V275)),(V274));
	goto T755;
T757:;
	if(((V277))==Cnil){
	goto T762;}
	base[0]= list(3,VV[122],(V275),(V274));
	goto T755;
T762:;
	base[0]= list(2,(V275),(V274));
T755:;
	base[1]= cdr((V283));
	base[2]= VV[30];
	base[3]= VV[113];
	vs_top=(vs_base=base+0)+4;
	Ladjoin();
	vs_top=sup;
	V284= vs_base[0];
	if(type_of((V283))!=t_cons)FEwrong_type_argument(Scons,(V283));
	((V283))->c.c_cdr = (V284);}
	goto T738;
T747:;
	V280= cdr((V280));
	V281= car((V280));
	goto T742;}
T738:;
	if((V278)!=Cnil){
	goto T731;}
	if(symbol_value(VV[53])!=Cnil){
	goto T731;}
	base[1]= VV[134];
	base[2]= (V274);
	vs_top=(vs_base=base+1)+2;
	Lerror();
	vs_top=sup;
T731:;
	{object V285 = (V274);
	VMR35(V285)}}}
	}
/*	local entry for function PARSE-LOOP-DECLARE	*/

static object LI36(va_alist)
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB36 VMS36 VMV36
	{register object V286;
	register object V287;
	narg = narg - 0;
	if (narg <= 0) goto T775;
	else {
	va_start(ap);
	V286= va_arg(ap,object);}
	if (--narg <= 0) goto T776;
	else {
	V287= va_arg(ap,object);}
	--narg; goto T777;
T775:;
	V286= (*(LnkLI255))();
T776:;
	V287= Ct;
T777:;
	{object V288;
	object V289;
	V288= car((V286));
	V289= Cnil;
	if(!(((V288))==(VV[122]))){
	goto T782;}
	V286= cdr((V286));
	V288= car((V286));
	V289= Ct;
T782:;
	{object V290;
	object V291;
	V290= cdr((V286));
	V291= car((V290));
T793:;
	if(!(endp((V290)))){
	goto T794;}
	{object V292 = Cnil;
	VMR36(V292)}
T794:;
	(void)((VFUN_NARGS=4,(*(LnkLI273))((V291),car((V286)),(V287),(V289))));
	V290= cdr((V290));
	V291= car((V290));
	goto T793;}}}
	}
/*	local entry for function LOOP-ADD-TEMPS	*/

static object LI37(V293,va_alist)
	object V293;
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB37 VMS37 VMV37
	{register object V294;
	object V295;
	object V296;
	object V297;
	object V298;
	if(narg <1) too_few_arguments();
	V294= V293;
	narg = narg - 1;
	if (narg <= 0) goto T804;
	else {
	va_start(ap);
	V295= va_arg(ap,object);}
	if (--narg <= 0) goto T805;
	else {
	V296= va_arg(ap,object);}
	if (--narg <= 0) goto T806;
	else {
	V297= va_arg(ap,object);}
	if (--narg <= 0) goto T807;
	else {
	V298= va_arg(ap,object);}
	--narg; goto T808;
T804:;
	V295= Cnil;
T805:;
	V296= Cnil;
T806:;
	V297= Cnil;
T807:;
	V298= Cnil;
T808:;
	{object V299;
	V299= (((V294))==Cnil?Ct:Cnil);
	if(((V299))==Cnil){
	goto T815;}
	{object V300 = (V299);
	VMR37(V300)}
T815:;
	if(!(type_of((V294))==t_symbol)){
	goto T818;}
	{object V301 = (VFUN_NARGS=7,(*(LnkLI267))((V294),(V295),(V297),(V296),Cnil,Ct,(V298)));
	VMR37(V301)}
T818:;
	if(!(type_of((V294))==t_cons||((V294))==Cnil)){
	goto T821;}
	(void)((VFUN_NARGS=1,(*(LnkLI268))(car((V294)))));
	{object V302 = (VFUN_NARGS=1,(*(LnkLI268))(cdr((V294))));
	VMR37(V302)}
T821:;
	{object V303 = Cnil;
	VMR37(V303)}}}
	}
/*	local entry for function ADD-FROM-DATA	*/

static object LI38(V304,va_alist)
	object V304;
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB38 VMS38 VMV38
	{register object V305;
	object V306;
	if(narg <1) too_few_arguments();
	V305= V304;
	narg= narg - 1;
	va_start(ap);
	V307 = list_vector(narg,ap);
	V306= V307;
	if((V305)!=Cnil){
	goto T824;}
	base[1]= VV[135];
	vs_top=(vs_base=base+1)+1;
	Lcopy_list();
	vs_top=sup;
	V305= vs_base[0];
T824:;
	{object V308;
	object V309;
	V308= (V305);
	V309= (V306);
T831:;
	if(((V309))!=Cnil){
	goto T832;}
	goto T827;
T832:;
	if((car((V309)))!=Cnil){
	goto T837;}
	goto T836;
T837:;
	{object V310;
	object V311;
	V310= (V308);
	V311= car((V309));
	if(type_of((V310))!=t_cons)FEwrong_type_argument(Scons,(V310));
	((V310))->c.c_car = (V311);}
T836:;
	V308= cdr((V308));
	V309= cdr((V309));
	goto T831;}
T827:;
	{object V312 = (V305);
	VMR38(V312)}}
	}
/*	local entry for function PARSE-LOOP-FOR	*/

static object LI39()

{	 VMB39 VMS39 VMV39
	bds_check;
TTL:;
	{object V313;
	object V314;
	V313= Cnil;
	V314= Cnil;
	{object V315;
	object V316;
	object V317;
	V315= (*(LnkLI255))();
	V316= Cnil;
	V317= Cnil;
	{object V318;
	V318= (*(LnkLI255))();
T854:;
	{object V319;
	V319= (*(LnkLI13))((V318));
	if(((*(LnkLI9))((V319),VV[136]))==Cnil){
	goto T860;}
	{object V320;
	base[0]= VV[137];
	vs_top=(vs_base=base+0)+1;
	Lgensym();
	vs_top=sup;
	V320= vs_base[0];
	(void)((VFUN_NARGS=4,(*(LnkLI268))((V315),Cnil,VV[138],Ct)));
	V321= (*(LnkLI255))();
	(void)((VFUN_NARGS=3,(*(LnkLI267))((V320),/* INLINE-ARGS */V321,Cnil)));
	V322= list(3,VV[139],(V315),list(2,VV[17],(V320)));
	setq(VV[49],make_cons(/* INLINE-ARGS */V322,symbol_value(VV[49])));
	V317= list(3,VV[15],(V320),list(2,VV[18],(V320)));
	V316= list(2,VV[140],(V320));
	goto T857;}
T860:;
	if(((*(LnkLI9))((V319),VV[141]))==Cnil){
	goto T872;}
	{object V323;
	if(!(type_of((V315))==t_symbol)){
	goto T876;}
	V323= (V315);
	goto T874;
T876:;
	base[0]= VV[142];
	vs_top=(vs_base=base+0)+1;
	Lgensym();
	vs_top=sup;
	V323= vs_base[0];
T874:;
	(void)((VFUN_NARGS=4,(*(LnkLI268))((V315),Cnil,VV[138],Ct)));
	V324= (*(LnkLI255))();
	(void)((VFUN_NARGS=3,(*(LnkLI267))((V323),/* INLINE-ARGS */V324,Cnil)));
	V317= list(3,VV[15],(V323),list(2,VV[18],(V323)));
	if(eql((V323),(V315))){
	goto T883;}
	V325= list(3,VV[139],(V315),(V323));
	setq(VV[49],make_cons(/* INLINE-ARGS */V325,symbol_value(VV[49])));
T883:;
	V316= list(2,VV[140],(V323));
	goto T857;}
T872:;
	if(((*(LnkLI9))((V319),VV[143]))==Cnil){
	goto T889;}
	V326= (*(LnkLI255))();
	V314= (VFUN_NARGS=6,(*(LnkLI274))((V314),(V315),/* INLINE-ARGS */V326,Cnil,Cnil,VV[144]));
	goto T857;
T889:;
	if(((*(LnkLI9))((V319),VV[145]))==Cnil){
	goto T893;}
	V327= (*(LnkLI255))();
	V314= (VFUN_NARGS=6,(*(LnkLI274))((V314),(V315),/* INLINE-ARGS */V327,Cnil,Cnil,VV[146]));
	goto T857;
T893:;
	if(((*(LnkLI9))((V319),VV[147]))==Cnil){
	goto T897;}
	V313= (*(LnkLI255))();
	if(((V314))==Cnil){
	goto T902;}
	V314= (VFUN_NARGS=5,(*(LnkLI274))((V314),Cnil,Cnil,Cnil,(V313)));
	goto T857;
T902:;
	bds_bind(VV[148],small_fixnum(4));
	bds_bind(VV[149],small_fixnum(4));
T907:;
	if(!((car(caddr((V317))))==(VV[18]))){
	goto T908;}
	bds_unwind1;
	bds_unwind1;
	goto T905;
T908:;
	base[2]= VV[150];
	base[3]= VV[151];
	base[4]= VV[152];
	vs_top=(vs_base=base+2)+3;
	Lcerror();
	vs_top=sup;
	base[2]= symbol_value(VV[153]);
	base[3]= VV[154];
	vs_top=(vs_base=base+2)+2;
	Lformat();
	vs_top=sup;
	goto T907;
T905:;
	V328= cadr((V317));
	if(!(type_of((V313))==t_cons)){
	goto T924;}
	{register object x= car((V313)),V330= VV[155];
	while(!endp(V330))
	if(eql(x,V330->c.c_car)){
	goto T927;
	}else V330=V330->c.c_cdr;
	goto T924;}
T927:;
	V329= list(2,cadr((V313)),cadr((V317)));
	goto T922;
T924:;
	V329= list(3,VV[156],(V313),cadr((V317)));
T922:;
	V317= list(3,VV[15],/* INLINE-ARGS */V328,V329);
	goto T857;
T897:;
	if(((*(LnkLI9))((V319),VV[157]))==Cnil){
	goto T929;}
	V331= (*(LnkLI255))();
	V314= (VFUN_NARGS=6,(*(LnkLI274))((V314),(V315),Cnil,/* INLINE-ARGS */V331,Cnil,VV[144]));
	goto T857;
T929:;
	if(((*(LnkLI9))((V319),VV[158]))==Cnil){
	goto T933;}
	V332= (*(LnkLI255))();
	V314= (VFUN_NARGS=6,(*(LnkLI274))((V314),(V315),Cnil,/* INLINE-ARGS */V332,Cnil,VV[146]));
	goto T857;
T933:;
	if(((*(LnkLI9))((V319),VV[159]))==Cnil){
	goto T937;}
	V333= (*(LnkLI255))();
	V314= (VFUN_NARGS=7,(*(LnkLI274))((V314),(V315),Cnil,/* INLINE-ARGS */V333,Cnil,Cnil,Ct));
	goto T857;
T937:;
	if(!(type_of((V319))==t_symbol)){
	goto T941;}
	if((get((V319),VV[160],Cnil))==Cnil){
	goto T941;}
	V334= (*(LnkLI13))((V318));
	(void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V334,VV[160],(V315))));
	goto T851;
T941:;
	if(!(type_of((V319))==t_symbol)){
	goto T947;}
	if((get((V319),VV[161],Cnil))==Cnil){
	goto T947;}
	V335= (*(LnkLI13))((V318));
	(void)((*(LnkLI275))(/* INLINE-ARGS */V335,(V315)));
	goto T851;
T947:;
	(void)((*(LnkLI266))());
	goto T851;}
T857:;
	V318= (*(LnkLI255))();
	goto T854;}
T851:;
	if(((V314))==Cnil){
	goto T956;}
	{object V336;
	object V337;
	object V338;
	object V339;
	object V340;
	object V341;
	V336= car(cddddr((V314)));
	V337= cadr(cddddr((V314)));
	V338= car((V314));
	V339= caddr((V314));
	V340= cadddr((V314));
	V341= Cnil;
	(void)((VFUN_NARGS=4,(*(LnkLI267))((V338),cadr((V314)),Ct,VV[126])));
	base[1]= (V340);
	vs_top=(vs_base=base+1)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T967;}
	goto T966;
T967:;
	setq(VV[47],Ct);
T966:;
	V342= list(3,(V336),(V338),(V340));
	V317= list(3,VV[15],(V338),(*(LnkLI276))(/* INLINE-ARGS */V342,VV[126]));
	if(((V339))==Cnil){
	goto T974;}
	{object V343;
	base[1]= VV[162];
	vs_top=(vs_base=base+1)+1;
	Lgensym();
	vs_top=sup;
	V343= vs_base[0];
	if(!(eql((V340),small_fixnum(1)))){
	goto T980;}
	if((cadr(cddddr((V314))))!=Cnil){
	goto T980;}
	base[0]= Cnil;
	goto T978;
T980:;
	base[0]= list(3,(V336),VV[127],(V340));
T978:;
	bds_bind(VV[39],base[0]);
	(void)((VFUN_NARGS=6,(*(LnkLI267))((V343),(V339),Cnil,VV[126],Cnil,Cnil)));
	if(((V337))==Cnil){
	goto T988;}
	if(!(((V336))==(VV[144]))){
	goto T991;}
	V344= VV[163];
	goto T986;
T991:;
	V344= VV[164];
	goto T986;
T988:;
	if(!(((V336))==(VV[144]))){
	goto T994;}
	V344= VV[165];
	goto T986;
T994:;
	V344= VV[166];
T986:;
	V316= list(3,V344,(V338),(V343));
	bds_unwind1;
	goto T956;}
T974:;
	if((symbol_value(VV[47]))!=Cnil){
	goto T956;}
	if((symbol_value(VV[125]))==Cnil){
	goto T956;}
	base[0]= symbol_value(VV[54]);
	base[1]= VV[126];
	vs_top=(vs_base=base+0)+2;
	Lgetf();
	vs_top=sup;
	V341= vs_base[0];
	if(((V341))==Cnil){
	goto T956;}
	if(!(type_of((V341))==t_cons)){
	goto T1007;}
	if(!((car((V341)))==(VV[122]))){
	goto T1007;}
	V341= cadr((V341));
T1007:;
	base[0]= (V341);
	base[1]= VV[167];
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk277)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T956;}
	base[1]= (V340);
	vs_top=(vs_base=base+1)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1016;}
	goto T1015;
T1016:;
	base[1]= VV[168];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T1015:;
	if(!(((V336))==(VV[144]))){
	goto T1023;}
	if((V340)!=Cnil){
	V346= (V340);
	goto T1025;}
	V346= small_fixnum(1);
T1025:;
	V345= list(3,VV[164],(V338),number_minus(VV[169],V346));
	goto T1021;
T1023:;
	if((V340)!=Cnil){
	V347= (V340);
	goto T1026;}
	V347= small_fixnum(1);
T1026:;
	V345= list(3,VV[163],(V338),number_plus(VV[170],V347));
T1021:;
	V348= list(3,VV[80],V345,VV[171]);
	setq(VV[42],make_cons(/* INLINE-ARGS */V348,symbol_value(VV[42])));}
T956:;
	if((V316)==Cnil){
	goto T1027;}
	base[0]= list(3,VV[5],(V316),VV[172]);
	vs_top=(vs_base=base+0)+1;
	Lcopy_tree();
	vs_top=sup;
	V349= vs_base[0];
	setq(VV[41],make_cons(V349,symbol_value(VV[41])));
T1027:;
	if((V317)==Cnil){
	{object V350 = Cnil;
	VMR39(V350)}}
	setq(VV[42],make_cons((V317),symbol_value(VV[42])));
	{object V351 = symbol_value(VV[42]);
	VMR39(V351)}}}
}
/*	local entry for function PARSE-LOOP-MACRO	*/

static object LI40(V353,V352,va_alist)
	object V353,V352;
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB40 VMS40 VMV40
	{object V354;
	object V355;
	object V356;
	if(narg <2) too_few_arguments();
	V354= V353;
	V355= V352;
	narg = narg - 2;
	if (narg <= 0) goto T1032;
	else {
	va_start(ap);
	V356= va_arg(ap,object);}
	--narg; goto T1033;
T1032:;
	V356= Cnil;
T1033:;
	{object V357;
	V357= Cnil;
	{object V358;
	object V359;
	V358= get((V354),(V355),Cnil);
	V359= Cnil;
	{object V360= (V355);
	if((V360!= VV[160]))goto T1040;
	{object V361;
	V361= get((V354),VV[173],Cnil);
	base[0]= cdr((V361));
	if(base[0]==Cnil)goto T1043;
	goto T1042;
T1043:;
	base[1]= VV[174];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T1042:;
	V359= cdr((V361));
	goto T1039;}
T1040:;
	if((V360!= VV[92]))goto T1046;
	V359= get((V354),VV[175],Cnil);
	goto T1039;
T1046:;
	FEerror("The ECASE key value ~s is illegal.",1,V360);}
T1039:;
	{object V362;
	{register object x= VV[176],V363= (V359);
	while(!endp(V363))
	if(eql(x,V363->c.c_car)){
	goto T1050;
	}else V363=V363->c.c_cdr;
	goto T1049;}
T1050:;
	{object V364;
	V364= symbol_value(VV[34]);
	setq(VV[34],Cnil);
	V362= (V364);
	goto T1047;}
T1049:;
	{object V365;
	object V366;
	V365= make_fixnum(length((V359)));
	V366= small_fixnum(0);
T1057:;
	if(!(number_compare((V366),(V365))>=0)){
	goto T1058;}
	V362= nreverse((V357));
	goto T1047;
T1058:;
	V357= make_cons(car(symbol_value(VV[34])),(V357));
	setq(VV[34],cdr(symbol_value(VV[34])));
	V366= one_plus((V366));
	goto T1057;}
T1047:;
	{object V368= (V355);
	if((V368!= VV[160]))goto T1071;
	base[0]= (V358);
	base[1]= (V356);
	{object V369;
	V369= (V362);
	 vs_top=base+2;
	 while(!endp(V369))
	 {vs_push(car(V369));V369=cdr(V369);}
	vs_base=base+1;}
	super_funcall_no_event(base[0]);
	vs_top=sup;
	V367= vs_base[0];
	goto T1070;
T1071:;
	if((V368!= VV[92]))goto T1075;
	base[0]= (V358);
	{object V370;
	V370= (V362);
	 vs_top=base+1;
	 while(!endp(V370))
	 {vs_push(car(V370));V370=cdr(V370);}
	vs_base=base+1;}
	super_funcall_no_event(base[0]);
	vs_top=sup;
	V367= vs_base[0];
	goto T1070;
T1075:;
	V367= Cnil;}
T1070:;
	setq(VV[34],append(V367,symbol_value(VV[34])));
	{object V371 = symbol_value(VV[34]);
	VMR40(V371)}}}}}
	}
/*	local entry for function PARSE-LOOP-MAP	*/

static object LI41(V374,V375)

object V374;object V375;
{	 VMB41 VMS41 VMV41
TTL:;
	if(symbol_value(VV[53])==Cnil){
	goto T1078;}
	base[0]= VV[177];
	vs_top=(vs_base=base+0)+1;
	Lerror();
	vs_top=sup;
T1078:;
	{object V376;
	object V377;
	V376= get((V374),VV[161],Cnil);
	V377= get((V374),VV[178],Cnil);
	if((V377)!=Cnil){
	goto T1082;}
	base[1]= VV[179];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T1082:;
	{register object x= VV[176],V378= (V377);
	while(!endp(V378))
	if(eql(x,V378->c.c_car)){
	goto T1086;
	}else V378=V378->c.c_cdr;
	goto T1084;}
T1086:;
	base[0]= VV[180];
	vs_top=(vs_base=base+0)+1;
	Lerror();
	vs_top=sup;
T1084:;
	{object V379;
	object V380;
	V379= Cnil;
	{object V381;
	object V382;
	V383 = make_fixnum(length((V377)));
	V381= one_minus(V383);
	V382= small_fixnum(0);
T1093:;
	if(!(number_compare((V382),(V381))>=0)){
	goto T1094;}
	V380= nreverse((V379));
	goto T1089;
T1094:;
	V379= make_cons(car(symbol_value(VV[34])),(V379));
	setq(VV[34],cdr(symbol_value(VV[34])));
	V382= one_plus((V382));
	goto T1093;}
T1089:;
	{object V384;
	object V385;
	V384= (*(LnkLI255))();
	V385= Cnil;
T1110:;
	if(((*(LnkLI9))((V384),VV[77]))!=Cnil){
	goto T1111;}
	(void)((*(LnkLI266))());
	if((V385)==Cnil){
	setq(VV[44],Cnil);
	goto T1106;}
	setq(VV[44],make_cons(VV[77],(V385)));
	goto T1106;
T1111:;
	V386= (*(LnkLI255))();
	V385= make_cons(/* INLINE-ARGS */V386,(V385));
	V384= (*(LnkLI255))();
	goto T1110;}
T1106:;
	base[0]= (V376);
	base[1]= (V375);
	{object V387;
	V387= (V380);
	 vs_top=base+2;
	 while(!endp(V387))
	 {vs_push(car(V387));V387=cdr(V387);}
	vs_base=base+1;}
	super_funcall_no_event(base[0]);
	vs_top=sup;
	setq(VV[53],vs_base[0]);
	{object V388 = Cnil;
	VMR41(V388)}}}
}
/*	local entry for function SUBSTITUTE-SLOOP-BODY	*/

static object LI42(V390)

register object V390;
{	 VMB42 VMS42 VMV42
TTL:;
	if((symbol_value(VV[53]))==Cnil){
	goto T1126;}
	base[0]= make_cons(VV[16],(V390));
	base[1]= VV[181];
	base[2]= symbol_value(VV[53]);
	vs_top=(vs_base=base+0)+3;
	Lsubst();
	vs_top=sup;
	V391= vs_base[0];
	V390= make_cons(V391,Cnil);
	if(symbol_value(VV[44])==Cnil){
	goto T1126;}
	base[0]= symbol_value(VV[44]);
	base[1]= VV[182];
	base[2]= (V390);
	vs_top=(vs_base=base+0)+3;
	Lsubst();
	vs_top=sup;
	V390= vs_base[0];
T1126:;
	{object V392 = (V390);
	VMR42(V392)}
}
/*	local entry for function DEF-LOOP-INTERNAL	*/

static object LI43(V396,V395,V394,V393,va_alist)
	object V396,V395,V394,V393;
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB43 VMS43 VMV43
	bds_check;
	{register object V397;
	register object V398;
	object V399;
	object V400;
	object V401;
	object V402;
	object V403;
	if(narg <4) too_few_arguments();
	V397= V396;
	V398= V395;
	V399= V394;
	V400= V393;
	narg = narg - 4;
	if (narg <= 0) goto T1139;
	else {
	va_start(ap);
	V401= va_arg(ap,object);}
	if (--narg <= 0) goto T1140;
	else {
	V402= va_arg(ap,object);}
	if (--narg <= 0) goto T1141;
	else {
	V403= va_arg(ap,object);}
	--narg; goto T1142;
T1139:;
	V401= Cnil;
T1140:;
	V402= Cnil;
T1141:;
	V403= Cnil;
T1142:;
	{object V404;
	bds_bind(VV[184],VV[183]);
	base[2]= Cnil;
	base[3]= VV[185];
	base[4]= (V397);
	base[5]= (V400);
	vs_top=(vs_base=base+2)+4;
	Lformat();
	vs_top=sup;
	base[1]= vs_base[0];
	vs_top=(vs_base=base+1)+1;
	Lintern();
	vs_top=sup;
	V404= vs_base[0];
	if((V402)==Cnil){
	goto T1152;}
	V405 = make_fixnum(length((V398)));
	if(!(number_compare(V405,(V402))>=0)){
	goto T1153;}
	goto T1152;
T1153:;
	base[2]= VV[186];
	vs_top=(vs_base=base+2)+1;
	Lerror();
	vs_top=sup;
T1152:;
	if((V403)==Cnil){
	goto T1156;}
	V406 = make_fixnum(length((V398)));
	if(!(number_compare(V406,(V403))<=0)){
	goto T1157;}
	goto T1156;
T1157:;
	base[2]= VV[187];
	vs_top=(vs_base=base+2)+1;
	Lerror();
	vs_top=sup;
T1156:;
	V407= listA(4,VV[190],(V404),(V398),(V399));
	if((V401)==Cnil){
	V408= Cnil;
	goto T1160;}
	V409= list(3,VV[191],list(2,VV[10],(V397)),(V401));
	V408= make_cons(/* INLINE-ARGS */V409,Cnil);
T1160:;
	V410= list(2,VV[10],(V397));
	base[2]= Cnil;
	base[3]= VV[192];
	base[4]= (V400);
	vs_top=(vs_base=base+2)+3;
	Lformat();
	vs_top=sup;
	base[1]= vs_base[0];
	base[3]= VV[193];
	vs_top=(vs_base=base+3)+1;
	Lfind_package();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+1)+2;
	Lintern();
	vs_top=sup;
	V411= vs_base[0];
	V412= list(3,VV[7],/* INLINE-ARGS */V410,V411);
	V413= list(3,VV[15],/* INLINE-ARGS */V412,list(2,VV[10],(V404)));
	V414= list(2,VV[10],(V397));
	base[2]= Cnil;
	base[3]= VV[194];
	base[4]= (V400);
	vs_top=(vs_base=base+2)+3;
	Lformat();
	vs_top=sup;
	base[1]= vs_base[0];
	base[3]= VV[193];
	vs_top=(vs_base=base+3)+1;
	Lfind_package();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+1)+2;
	Lintern();
	vs_top=sup;
	V415= vs_base[0];
	V416= list(3,VV[7],/* INLINE-ARGS */V414,V415);
	V417= list(2,/* INLINE-ARGS */V413,list(3,VV[15],/* INLINE-ARGS */V416,list(2,VV[10],(V398))));
	{object V418 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V407,append(V408,/* INLINE-ARGS */V417));
	bds_unwind1;
	VMR43(V418)}}}
	}
/*	local entry for function SUM-SLOOP-COLLECT	*/

static object LI44(V421,V422)

object V421;object V422;
{	 VMB44 VMS44 VMV44
TTL:;
	V423= list(3,VV[195],(V421),small_fixnum(0));
	{object V424 = list(4,VV[97],/* INLINE-ARGS */V423,VV[56],list(3,VV[195],(V421),list(3,VV[144],(V421),(V422))));
	VMR44(V424)}
}
/*	local entry for function LOGXOR-SLOOP-COLLECT	*/

static object LI45(V427,V428)

register object V427;object V428;
{	 VMB45 VMS45 VMV45
TTL:;
	V429= list(3,VV[15],(V427),small_fixnum(0));
	V430= list(3,VV[15],(V427),list(3,VV[196],(V427),(V428)));
	{object V431 = list(6,VV[97],/* INLINE-ARGS */V429,VV[56],/* INLINE-ARGS */V430,VV[77],list(3,VV[167],(V427),(V428)));
	VMR45(V431)}
}
/*	local entry for function MAXIMIZE-SLOOP-COLLECT	*/

static object LI46(V434,V435)

register object V434;object V435;
{	 VMB46 VMS46 VMV46
TTL:;
	V436= list(3,VV[195],(V434),Cnil);
	V437= list(3,VV[15],(V434),list(3,VV[198],(V434),(V435)));
	{object V438 = list(4,VV[97],/* INLINE-ARGS */V436,VV[56],list(4,VV[197],(V434),/* INLINE-ARGS */V437,list(3,VV[15],(V434),(V435))));
	VMR46(V438)}
}
/*	local entry for function MINIMIZE-SLOOP-COLLECT	*/

static object LI47(V441,V442)

register object V441;object V442;
{	 VMB47 VMS47 VMV47
TTL:;
	V443= list(3,VV[195],(V441),Cnil);
	V444= list(3,VV[15],(V441),list(3,VV[199],(V441),(V442)));
	{object V445 = list(4,VV[97],/* INLINE-ARGS */V443,VV[56],list(4,VV[197],(V441),/* INLINE-ARGS */V444,list(3,VV[15],(V441),(V442))));
	VMR47(V445)}
}
/*	local entry for function COUNT-SLOOP-COLLECT	*/

static object LI48(V448,V449)

object V448;object V449;
{	 VMB48 VMS48 VMV48
TTL:;
	V450= list(3,VV[195],(V448),small_fixnum(0));
	{object V451 = list(4,VV[97],/* INLINE-ARGS */V450,VV[56],list(3,VV[5],(V449),list(3,VV[15],(V448),list(2,VV[200],(V448)))));
	VMR48(V451)}
}
/*	local entry for function THEREIS-SLOOP-COLLECT	*/

static object LI49(V454,V455)

object V454;object V455;
{	 VMB49 VMS49 VMV49
TTL:;
	{object V456 = list(2,VV[56],list(3,VV[197],(V455),list(2,VV[59],(V455))));
	VMR49(V456)}
}
/*	local entry for function ALWAYS-SLOOP-COLLECT	*/

static object LI50(V459,V460)

object V459;object V460;
{	 VMB50 VMS50 VMV50
TTL:;
	V461= list(3,VV[195],(V459),Ct);
	{object V462 = list(4,VV[97],/* INLINE-ARGS */V461,VV[56],list(3,VV[5],list(2,VV[140],(V460)),VV[201]));
	VMR50(V462)}
}
/*	local entry for function NEVER-SLOOP-COLLECT	*/

static object LI51(V465,V466)

object V465;object V466;
{	 VMB51 VMS51 VMV51
TTL:;
	V467= list(3,VV[195],(V465),Ct);
	{object V468 = list(4,VV[97],/* INLINE-ARGS */V467,VV[56],list(3,VV[5],(V466),VV[202]));
	VMR51(V468)}
}
/*	local entry for function AVERAGING-SLOOP-MACRO	*/

static object LI52(V470)

object V470;
{	 VMB52 VMS52 VMV52
TTL:;
	base[0]= VV[91];
	base[1]= VV[203];
	base[2]= VV[94];
	base[3]= VV[204];
	base[4]= VV[5];
	base[5]= VV[91];
	base[6]= VV[205];
	base[7]= VV[94];
	base[8]= small_fixnum(0);
	base[9]= VV[77];
	base[10]= VV[206];
	base[11]= VV[77];
	base[12]= VV[207];
	base[13]= VV[56];
	base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V470)),VV[210]));
	base[15]= VV[211];
	vs_top=(vs_base=base+0)+16;
	LlistA();
	vs_top=sup;
	{object V471 = vs_base[0];
	VMR52(V471)}
}
/*	local entry for function REPEAT-SLOOP-MACRO	*/

static object LI53(V473)

object V473;
{	 VMB53 VMS53 VMV53
TTL:;
	{object V474;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V474= vs_base[0];
	{object V475 = list(4,VV[25],(V474),VV[157],(V473));
	VMR53(V475)}}
}
/*	local entry for function RETURN-SLOOP-MACRO	*/

static object LI54(V477)

register object V477;
{	 VMB54 VMS54 VMV54
TTL:;
	if(!(type_of((V477))==t_cons)){
	goto T1194;}
	if(!((car((V477)))==(VV[21]))){
	goto T1194;}
	V478= cdr((V477));
	goto T1192;
T1194:;
	V478= make_cons((V477),Cnil);
T1192:;
	{object V479 = list(2,VV[56],make_cons(VV[59],V478));
	VMR54(V479)}
}
/*	local entry for function IN-TABLE-SLOOP-MAP	*/

static object LI55(V482,V483)

object V482;object V483;
{	 VMB55 VMS55 VMV55
TTL:;
	{object V484 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V482),VV[215])),(V483));
	VMR55(V484)}
}
/*	local entry for function IN-PACKAGE-SLOOP-MAP	*/

static object LI56(V487,V488)

object V487;object V488;
{	 VMB56 VMS56 VMV56
TTL:;
	{object V489 = list(3,VV[216],list(2,(V487),list(2,VV[217],(V488))),VV[181]);
	VMR56(V489)}
}
/*	local entry for function IN-ARRAY-SLOOP-FOR	*/

static object LI57(V491,V490,va_alist)
	object V491,V490;
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB57 VMS57 VMV57
	{object V492;
	object V493;
	register object V494;
	if(narg <2) too_few_arguments();
	V492= V491;
	V493= V490;
	narg= narg - 2;
	va_start(ap);
	V495 = list_vector(narg,ap);
	V494= V495;
	{object V496;
	object V497;
	object V498;
	V496= Cnil;
	V497= Cnil;
	V498= Cnil;
	if(!(type_of((V492))==t_cons||((V492))==Cnil)){
	goto T1203;}
	V496= car((V492));
	V497= cadr((V492));
	goto T1201;
T1203:;
	V496= (V492);
	base[0]= VV[218];
	vs_top=(vs_base=base+0)+1;
	Lgensym();
	vs_top=sup;
	V497= vs_base[0];
T1201:;
	{object V499;
	{object V500;
	object V501;
	V500= (V494);
	V501= Cnil;
T1216:;
	{object V502;
	V502= (*(LnkLI13))(car((V500)));
	{object V503;
	V503= (*(LnkLI9))((V502),VV[219]);
	if(((V503))==Cnil){
	goto T1223;}
	goto T1219;
T1223:;
	if(((*(LnkLI9))((V502),VV[220]))==Cnil){
	goto T1226;}
	V498= Ct;
	goto T1219;
T1226:;
	{object V504;
	V504= (*(LnkLI9))((V502),VV[147]);
	if(((V504))==Cnil){
	goto T1231;}
	goto T1219;
T1231:;
	base[0]= (V500);
	vs_top=(vs_base=base+0)+1;
	Lcopy_list();
	vs_top=sup;
	V494= vs_base[0];
	V499= nreverse((V501));
	goto T1212;}}}
T1219:;
	V501= make_cons(car((V500)),(V501));
	V501= make_cons(cadr((V500)),(V501));
	V500= cddr((V500));
	goto T1216;}
T1212:;
	if((V498)!=Cnil){
	goto T1243;}
	V505= list(2,VV[157],list(2,VV[221],(V493)));
	V499= nconc(/* INLINE-ARGS */V505,(V499));
T1243:;
	V506= listA(5,VV[87],(V496),VV[56],list(3,VV[15],(V496),list(3,VV[222],(V493),(V497))),(V494));
	{object V507 = listA(3,VV[25],(V497),append((V499),/* INLINE-ARGS */V506));
	VMR57(V507)}}}}
	}
/*	local entry for function =-SLOOP-FOR	*/

static object LI58(V510,V511)

register object V510;object V511;
{	 VMB58 VMS58 VMV58
TTL:;
	{object V512;
	V513= (*(LnkLI254))();
	V512= (*(LnkLI13))(/* INLINE-ARGS */V513);
	if(((*(LnkLI9))((V512),VV[223]))==Cnil){
	goto T1247;}
	(void)((*(LnkLI255))());
	V514= list(3,VV[139],(V510),(V511));
	{object V515 = list(6,VV[87],(V510),VV[97],/* INLINE-ARGS */V514,VV[89],list(3,VV[139],(V510),(*(LnkLI255))()));
	VMR58(V515)}
T1247:;
	{object V516 = list(4,VV[87],(V510),VV[56],list(3,VV[139],(V510),(V511)));
	VMR58(V516)}}
}
/*	local entry for function SLOOP-SLOOP-MACRO	*/

static object LI59(V518)

object V518;
{	 VMB59 VMS59 VMV59
	bds_check;
TTL:;
	{object V519;
	V519= (*(LnkLI13))(car((V518)));
	{object V520;
	V520= (*(LnkLI9))((V519),VV[25]);
	if(((V520))==Cnil){
	goto T1254;}
	goto T1250;
T1254:;
	base[0]= VV[85];
	base[1]= (V519);
	vs_top=(vs_base=base+0)+2;
	Lerror();
	vs_top=sup;}}
T1250:;
	{object V521;
	object V522;
	object V523;
	object V524;
	object V525;
	object V526;
	object V527;
	V521= Cnil;
	base[4]= VV[224];
	vs_top=(vs_base=base+4)+1;
	Lgensym();
	vs_top=sup;
	V522= vs_base[0];
	V523= Cnil;
	V524= Cnil;
	V525= Cnil;
	V526= Cnil;
	V527= Cnil;
	bds_bind(VV[50],Cnil);
	bds_bind(VV[49],Cnil);
	bds_bind(VV[53],Cnil);
	bds_bind(VV[34],(V518));
	setq(VV[40],Ct);
	(void)((*(LnkLI255))());
	{object V528;
	object V529;
	V528= symbol_value(VV[46]);
	V529= (V523);
	V523= (V528);
	setq(VV[46],(V529));}
	{object V530;
	object V531;
	V530= symbol_value(VV[48]);
	V531= (V524);
	V524= (V530);
	setq(VV[48],(V531));}
	{object V532;
	object V533;
	V532= symbol_value(VV[43]);
	V533= (V525);
	V525= (V532);
	setq(VV[43],(V533));}
	{object V534;
	object V535;
	V534= symbol_value(VV[41]);
	V535= (V526);
	V526= (V534);
	setq(VV[41],(V535));}
	{object V536;
	object V537;
	V536= symbol_value(VV[42]);
	V537= (V527);
	V527= (V536);
	setq(VV[42],(V537));}
	(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
	(void)((*(LnkLI257))());
	{object V538;
	object V539;
	V538= symbol_value(VV[46]);
	V539= (V523);
	V523= (V538);
	setq(VV[46],(V539));}
	{object V540;
	object V541;
	V540= symbol_value(VV[48]);
	V541= (V524);
	V524= (V540);
	setq(VV[48],(V541));}
	{object V542;
	object V543;
	V542= symbol_value(VV[43]);
	V543= (V525);
	V525= (V542);
	setq(VV[43],(V543));}
	{object V544;
	object V545;
	V544= symbol_value(VV[41]);
	V545= (V526);
	V526= (V544);
	setq(VV[41],(V545));}
	{object V546;
	object V547;
	V546= symbol_value(VV[42]);
	V547= (V527);
	V527= (V546);
	setq(VV[42],(V547));}
	(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
T1346:;
	if(((VV[34]->s.s_dbind))!=Cnil){
	goto T1347;}
	goto T1344;
T1347:;
	{object V548;
	frs_push(FRS_CATCH,VV[27]);
	if(nlj_active)
	{nlj_active=FALSE;frs_pop();
	vs_top=sup;
	V548= vs_base[0];
	goto T1352;}
	else{
	V549= (*(LnkLI251))();
	frs_pop();
	V548= V549;}
T1352:;
	if(((V548))==Cnil){
	goto T1355;}
	goto T1351;
T1355:;
	if(((VV[34]->s.s_dbind))!=Cnil){
	goto T1358;}
	goto T1344;
T1358:;
	(void)(print((VV[34]->s.s_dbind),Cnil));
	{object V550;
	object V551;
	V550= symbol_value(VV[46]);
	V551= (V523);
	V523= (V550);
	setq(VV[46],(V551));}
	{object V552;
	object V553;
	V552= symbol_value(VV[48]);
	V553= (V524);
	V524= (V552);
	setq(VV[48],(V553));}
	{object V554;
	object V555;
	V554= symbol_value(VV[43]);
	V555= (V525);
	V525= (V554);
	setq(VV[43],(V555));}
	{object V556;
	object V557;
	V556= symbol_value(VV[41]);
	V557= (V526);
	V526= (V556);
	setq(VV[41],(V557));}
	{object V558;
	object V559;
	V558= symbol_value(VV[42]);
	V559= (V527);
	V527= (V558);
	setq(VV[42],(V559));}
	(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
	(void)((*(LnkLI261))());
	{object V560;
	object V561;
	V560= symbol_value(VV[46]);
	V561= (V523);
	V523= (V560);
	setq(VV[46],(V561));}
	{object V562;
	object V563;
	V562= symbol_value(VV[48]);
	V563= (V524);
	V524= (V562);
	setq(VV[48],(V563));}
	{object V564;
	object V565;
	V564= symbol_value(VV[43]);
	V565= (V525);
	V525= (V564);
	setq(VV[43],(V565));}
	{object V566;
	object V567;
	V566= symbol_value(VV[41]);
	V567= (V526);
	V526= (V566);
	setq(VV[41],(V567));}
	{object V568;
	object V569;
	V568= symbol_value(VV[42]);
	V569= (V527);
	V527= (V568);
	setq(VV[42],(V569));}
	(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
	(void)(print((VV[34]->s.s_dbind),Cnil));}
T1351:;
	goto T1346;
T1344:;
	{object V570;
	object V571;
	V570= symbol_value(VV[46]);
	V571= (V523);
	V523= (V570);
	setq(VV[46],(V571));}
	{object V572;
	object V573;
	V572= symbol_value(VV[48]);
	V573= (V524);
	V524= (V572);
	setq(VV[48],(V573));}
	{object V574;
	object V575;
	V574= symbol_value(VV[43]);
	V575= (V525);
	V525= (V574);
	setq(VV[43],(V575));}
	{object V576;
	object V577;
	V576= symbol_value(VV[41]);
	V577= (V526);
	V526= (V576);
	setq(VV[41],(V577));}
	{object V578;
	object V579;
	V578= symbol_value(VV[42]);
	V579= (V527);
	V527= (V578);
	setq(VV[42],(V579));}
	(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
	V521= nreverse((VV[49]->s.s_dbind));
	if((VV[53]->s.s_dbind)==Cnil){
	goto T1477;}
	V521= (*(LnkLI252))((V521));
T1477:;
	{object V580;
	V581= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[10],(V522))));
	V582= make_cons(/* INLINE-ARGS */V581,Cnil);
	base[4]= nreverse(symbol_value(VV[48]));
	if(((VV[53]->s.s_dbind))==Cnil){
	goto T1483;}
	base[5]= Cnil;
	goto T1482;
T1483:;
	base[5]= VV[226];
T1482:;
	base[6]= nreverse(symbol_value(VV[41]));
	base[7]= (V521);
	base[8]= nreverse(symbol_value(VV[42]));
	if(((VV[53]->s.s_dbind))==Cnil){
	goto T1489;}
	base[9]= Cnil;
	goto T1488;
T1489:;
	base[9]= VV[227];
T1488:;
	V584= nreverse(symbol_value(VV[43]));
	base[10]= make_cons((V522),/* INLINE-ARGS */V584);
	vs_top=(vs_base=base+4)+7;
	Lappend();
	vs_top=sup;
	V583= vs_base[0];
	V580= list(3,VV[71],/* INLINE-ARGS */V582,make_cons(VV[73],V583));
	{object V585;
	object V586;
	V585= symbol_value(VV[46]);
	V586= car((V585));
T1496:;
	if(!(endp((V585)))){
	goto T1497;}
	goto T1492;
T1497:;
	V587= (*(LnkLI253))((V586));
	if((cdr((V586)))!=Cnil){
	goto T1504;}
	V588= Cnil;
	goto T1503;
T1504:;
	V589= make_cons(VV[77],cdr((V586)));
	V588= make_cons(/* INLINE-ARGS */V589,Cnil);
T1503:;
	V590= make_cons((V580),Cnil);
	V580= listA(3,VV[12],/* INLINE-ARGS */V587,append(V588,/* INLINE-ARGS */V590));
	V585= cdr((V585));
	V586= car((V585));
	goto T1496;}
T1492:;
	{object V591;
	object V592;
	V591= symbol_value(VV[46]);
	V592= (V523);
	V523= (V591);
	setq(VV[46],(V592));}
	{object V593;
	object V594;
	V593= symbol_value(VV[48]);
	V594= (V524);
	V524= (V593);
	setq(VV[48],(V594));}
	{object V595;
	object V596;
	V595= symbol_value(VV[43]);
	V596= (V525);
	V525= (V595);
	setq(VV[43],(V596));}
	{object V597;
	object V598;
	V597= symbol_value(VV[41]);
	V598= (V526);
	V526= (V597);
	setq(VV[41],(V598));}
	{object V599;
	object V600;
	V599= symbol_value(VV[42]);
	V600= (V527);
	V527= (V599);
	setq(VV[42],(V600));}
	(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
	{object V601 = list(2,VV[56],(V580));
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR59(V601)}}}
}
/*	local entry for function IN-CAREFULLY-SLOOP-FOR	*/

static object LI60(V604,V605)

object V604;object V605;
{	 VMB60 VMS60 VMV60
TTL:;
	{object V606;
	base[0]= VV[228];
	vs_top=(vs_base=base+0)+1;
	Lgensym();
	vs_top=sup;
	V606= vs_base[0];
	base[0]= VV[87];
	base[1]= (V606);
	base[2]= VV[5];
	base[3]= VV[87];
	base[4]= (V604);
	base[5]= VV[97];
	base[6]= list(3,VV[15],(V606),(V605));
	base[7]= VV[56];
	base[8]= list(3,VV[139],(V604),list(2,VV[17],(V606)));
	base[9]= VV[90];
	base[10]= list(3,VV[5],list(2,VV[229],(V606)),VV[230]);
	base[11]= VV[89];
	base[12]= list(3,VV[15],(V606),list(2,VV[18],(V606)));
	vs_top=(vs_base=base+0)+13;
	Llist();
	vs_top=sup;
	{object V607 = vs_base[0];
	VMR60(V607)}}
}
/*	local entry for function FIRST-USE-SLOOP-FOR	*/

static object LI61(V612,V613,V614,V615)

object V612;object V613;object V614;object V615;
{	 VMB61 VMS61 VMV61
TTL:;
	base[0]= (*(LnkLI9))((V614),VV[223]);
	if(base[0]==Cnil)goto T1564;
	goto T1563;
T1564:;
	base[1]= VV[231];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T1563:;
	V616= list(3,VV[139],(V612),(V613));
	{object V617 = list(6,VV[87],(V612),VV[97],/* INLINE-ARGS */V616,VV[89],list(3,VV[139],(V612),(V615)));
	VMR61(V617)}
}
/*	local entry for function FIRST-SLOOP-FOR	*/

static object LI62(V622,V623,V624,V625)

register object V622;object V623;object V624;object V625;
{	 VMB62 VMS62 VMV62
TTL:;
	base[0]= (*(LnkLI9))((V624),VV[223]);
	if(base[0]==Cnil)goto T1568;
	goto T1567;
T1568:;
	base[1]= VV[232];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T1567:;
	if((symbol_value(VV[42]))!=Cnil){
	goto T1572;}
	V626= list(3,VV[139],(V622),(V623));
	{object V627 = list(6,VV[87],(V622),VV[97],/* INLINE-ARGS */V626,VV[89],list(3,VV[139],(V622),(V625)));
	VMR62(V627)}
T1572:;
	{object V628;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V628= vs_base[0];
	V629= list(2,(V628),list(3,VV[139],(V622),(V625)));
	V630= list(3,VV[14],/* INLINE-ARGS */V629,list(2,Ct,list(3,VV[139],(V622),(V623))));
	{object V631 = list(8,VV[87],(V622),VV[87],(V628),VV[56],/* INLINE-ARGS */V630,VV[89],list(3,VV[139],(V628),Ct));
	VMR62(V631)}}
}
/*	function definition for FIND-IN-ORDERED-LIST	*/

static L63()
{register object *base=vs_base;
	register object *sup=base+VM63; VC63
	vs_reserve(VM63);
	{register object V632;
	object V633;
	register object V634;
	if(vs_top-vs_base<2) too_few_arguments();
	if(vs_top-vs_base>3) too_many_arguments();
	V632=(base[0]);
	V633=(base[1]);
	vs_base=vs_base+2;
	if(vs_base>=vs_top){vs_top=sup;goto T1575;}
	V634=(base[2]);
	vs_top=sup;
	goto T1576;
T1575:;
	V634= symbol_value(VV[233]);
T1576:;
	{object V635;
	V635= Cnil;
	{object V636;
	V636= (V633);
T1581:;
	if(((V636))!=Cnil){
	goto T1582;}
	base[3]= (V635);
	base[4]= Cnil;
	vs_top=(vs_base=base+3)+2;
	return;
T1582:;
	if(!(eql(car((V636)),(V632)))){
	goto T1590;}
	base[3]= (V636);
	base[4]= Ct;
	vs_top=(vs_base=base+3)+2;
	return;
T1590:;
	base[3]= (V632);
	base[4]= car((V636));
	vs_top=(vs_base=base+3)+2;
	super_funcall_no_event((V634));
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1588;}
	base[3]= (V635);
	base[4]= Cnil;
	vs_top=(vs_base=base+3)+2;
	return;
T1588:;
	V635= (V636);
	V636= cdr((V636));
	goto T1581;}}
	}
}
/*	local entry for function COLLATE-SLOOP-COLLECT	*/

static object LI64(V639,V640)

object V639;object V640;
{	 VMB64 VMS64 VMV64
TTL:;
	V641= list(3,VV[236],(V640),(V639));
	V642= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V640),VV[240])));
	{object V643 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V641,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V642,list(2,Ct,list(3,VV[15],(V639),list(3,VV[119],(V640),(V639))))))));
	VMR64(V643)}
}
/*	local entry for function IN-FRINGE-SLOOP-MAP	*/

static object LI65(V646,V647)

register object V646;object V647;
{	 VMB65 VMS65 VMV65
TTL:;
	{object V648;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V648= vs_base[0];
	V649= list(2,(V648),VV[244]);
	V650= make_cons(/* INLINE-ARGS */V649,Cnil);
	V651= list(2,VV[140],(V648));
	V652= make_cons(/* INLINE-ARGS */V651,Cnil);
	V653= list(2,VV[229],(V648));
	V654= list(3,VV[15],(V646),(V648));
	V655= list(3,/* INLINE-ARGS */V653,/* INLINE-ARGS */V654,list(3,VV[15],(V648),Cnil));
	V656= list(3,VV[15],(V646),list(2,VV[17],(V648)));
	V657= list(3,VV[14],/* INLINE-ARGS */V655,list(3,Ct,/* INLINE-ARGS */V656,list(3,VV[15],(V648),list(2,VV[18],(V648)))));
	V658= list(2,VV[140],(V646));
	V659= make_cons(/* INLINE-ARGS */V658,Cnil);
	V660= list(2,VV[229],(V646));
	V661= make_cons(/* INLINE-ARGS */V660,VV[245]);
	V662= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V650,/* INLINE-ARGS */V652,/* INLINE-ARGS */V657,list(4,VV[14],/* INLINE-ARGS */V659,/* INLINE-ARGS */V661,list(2,Ct,list(2,VV[242],(V646))))));
	V663= make_cons(/* INLINE-ARGS */V662,Cnil);
	{object V664 = list(3,VV[241],/* INLINE-ARGS */V663,list(2,VV[242],(V647)));
	VMR65(V664)}}
}
static LnkT277(){ call_or_link(VV[277],&Lnk277);} /* SUBTYPEP */
static object  LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,2,ap);} /* THE-TYPE */
static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,2,ap);} /* PARSE-LOOP-MAP */
static object  LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],&LnkLI274,ap);} /* ADD-FROM-DATA */
static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[273],&LnkLI273,ap);} /* LOOP-DECLARE-BINDING */
static object  LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[272],&LnkLI272,2,ap);} /* MAKE-VALUE */
static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* TYPEP */
static object  LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],&LnkLI271,3,ap);} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */
static object  LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],&LnkLI270,1,ap);} /* POINTER-FOR-COLLECT */
static object  LnkTLI269(){return call_proc0(VV[269],&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */
static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[268],&LnkLI268,ap);} /* LOOP-ADD-TEMPS */
static object  LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[267],&LnkLI267,ap);} /* LOOP-ADD-BINDING */
static object  LnkTLI266(){return call_proc0(VV[266],&LnkLI266);} /* LOOP-UN-POP */
static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[265],&LnkLI265,ap);} /* PARSE-LOOP-MACRO */
static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[264],&LnkLI264,ap);} /* PARSE-LOOP-DECLARE */
static object  LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[263],&LnkLI263,ap);} /* PARSE-LOOP-WITH */
static object  LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* PARSE-LOOP-INITIALLY */
static object  LnkTLI261(){return call_proc0(VV[261],&LnkLI261);} /* PARSE-LOOP-COLLECT */
static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* LOOP-COLLECT-KEYWORD-P */
static object  LnkTLI259(){return call_proc0(VV[259],&LnkLI259);} /* PARSE-LOOP-WHEN */
static object  LnkTLI258(){return call_proc0(VV[258],&LnkLI258);} /* PARSE-LOOP-DO */
static object  LnkTLI257(){return call_proc0(VV[257],&LnkLI257);} /* PARSE-LOOP-FOR */
static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* PARSE-NO-BODY */
static object  LnkTLI255(){return call_proc0(VV[255],&LnkLI255);} /* LOOP-POP */
static object  LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[9],&LnkLI9,2,ap);} /* L-EQUAL */
static object  LnkTLI254(){return call_proc0(VV[254],&LnkLI254);} /* LOOP-PEEK */
static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* TRANSLATE-NAME */
static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],&LnkLI253,1,ap);} /* LOOP-LET-BINDINGS */
static object  LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],&LnkLI252,1,ap);} /* SUBSTITUTE-SLOOP-BODY */
static object  LnkTLI251(){return call_proc0(VV[251],&LnkLI251);} /* PARSE-LOOP1 */
static object  LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[249],&LnkLI249,ap);} /* FIND */
static object  LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[248],&LnkLI248,ap);} /* DEF-LOOP-INTERNAL */
static object  LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],&LnkLI247,1,ap);} /* PARSE-LOOP */
static object  LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],&LnkLI246,2,ap);} /* DESETQ1 */

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