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

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

#include <cmpinclude.h>
#include "cmptop.h"
init_cmptop(){do_init(VV);}
/*	function definition for T1EXPR	*/

static L1()
{register object *base=vs_base;
	register object *sup=base+VM1; VC1
	vs_reserve(VM1);
	bds_check;
	{register object V1;
	check_arg(1);
	V1=(base[0]);
	vs_top=sup;
TTL:;
	bds_bind(VV[0],(V1));
	bds_bind(VV[1],Ct);
	frs_push(FRS_CATCH,VV[2]);
	if(nlj_active)
	{nlj_active=FALSE;frs_pop();
	bds_unwind1;
	bds_unwind1;
	return;}
	else{
	if(!(type_of((V1))==t_cons)){
	goto T3;}
	{object V2;
	object V3;
	object V4;
	V2= car((V1));
	V3= cdr((V1));
	V4= Cnil;
	if(!(type_of((V2))==t_symbol)){
	goto T9;}
	if(!(((V2))==(VV[3]))){
	goto T12;}
	V5= (VFUN_NARGS=1,(*(LnkLI251))(VV[4]));
	frs_pop();
	base[3]= V5;
	vs_top=(vs_base=base+3)+1;
	bds_unwind1;
	bds_unwind1;
	return;
T12:;
	if((get((V2),VV[5],Cnil))==Cnil){
	goto T15;}
	if((symbol_value(VV[6]))==Cnil){
	goto T17;}
	(void)((VFUN_NARGS=2,(*(LnkLI252))(VV[7],(V1))));
T17:;
	(void)((*(LnkLI253))(Ct,(V1)));
	V6= (*(LnkLI254))((V1));
	frs_pop();
	base[3]= V6;
	vs_top=(vs_base=base+3)+1;
	bds_unwind1;
	bds_unwind1;
	return;
T15:;
	V4= get((V2),VV[8],Cnil);
	if(((V4))==Cnil){
	goto T22;}
	if((symbol_value(VV[9]))==Cnil){
	goto T25;}
	(void)((*(LnkLI255))());
T25:;
	base[3]= (V3);
	vs_top=(vs_base=base+3)+1;
	super_funcall_no_event((V4));
	frs_pop();
	bds_unwind1;
	bds_unwind1;
	return;
T22:;
	if((get((V2),VV[10],Cnil))==Cnil){
	goto T30;}
	if((symbol_value(VV[9]))==Cnil){
	goto T32;}
	(void)((*(LnkLI255))());
T32:;
	base[3]= (*(LnkLI256))((V1));
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk257)();
	frs_pop();
	bds_unwind1;
	bds_unwind1;
	return;
T30:;
	if((get((V2),VV[11],Cnil))==Cnil){
	goto T37;}
	V7= (*(LnkLI258))((V1));
	frs_pop();
	base[3]= V7;
	vs_top=(vs_base=base+3)+1;
	bds_unwind1;
	bds_unwind1;
	return;
T37:;
	base[3]= (V2);
	vs_top=(vs_base=base+3)+1;
	Lmacro_function();
	vs_top=sup;
	V4= vs_base[0];
	if(((V4))==Cnil){
	goto T40;}
	{object V8;
	base[3]= cdr((V1));
	vs_top=(vs_base=base+3)+1;
	Lcopy_list();
	vs_top=sup;
	V9= vs_base[0];
	V8= (*(LnkLI259))((V4),(V2),V9);
	base[3]= (V8);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk257)();
	frs_pop();
	bds_unwind1;
	bds_unwind1;
	return;}
T40:;
	V10= (*(LnkLI258))((V1));
	frs_pop();
	base[3]= V10;
	vs_top=(vs_base=base+3)+1;
	bds_unwind1;
	bds_unwind1;
	return;
T9:;
	if(!(type_of((V2))==t_cons)){
	goto T49;}
	V11= (*(LnkLI258))((V1));
	frs_pop();
	base[3]= V11;
	vs_top=(vs_base=base+3)+1;
	bds_unwind1;
	bds_unwind1;
	return;
T49:;
	V12= (VFUN_NARGS=2,(*(LnkLI251))(VV[12],(V2)));
	frs_pop();
	base[3]= V12;
	vs_top=(vs_base=base+3)+1;
	bds_unwind1;
	bds_unwind1;
	return;}
T3:;
	frs_pop();
	base[3]= Cnil;
	vs_top=(vs_base=base+3)+1;
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	local entry for function CTOP-WRITE	*/

static object LI2(V14)

object V14;
{	 VMB2 VMS2 VMV2
	bds_check;
TTL:;
	{object V15;
	V15= Cnil;
	bds_bind(VV[13],Cnil);
	bds_bind(VV[14],Cnil);
	bds_bind(VV[16],VV[15]);
	bds_bind(VV[17],Cnil);
	bds_bind(VV[18],small_fixnum(0));
	bds_bind(VV[19],Cnil);
	bds_bind(VV[0],Cnil);
	setq(VV[20],reverse(symbol_value(VV[20])));
	princ_str("\ninit_",VV[21]);
	(void)((*(LnkLI260))((V14)));
	princ_str("(){",VV[21]);
	princ_str("do_init(VV);",VV[21]);
	princ_char(125,VV[21]);
	{object V16;
	V16= symbol_value(VV[20]);
	bds_bind(VV[0],car((V16)));
T64:;
	if(!(endp((V16)))){
	goto T65;}
	bds_unwind1;
	goto T60;
T65:;
	setq(VV[1],Ct);
	V15= get(car((VV[0]->s.s_dbind)),VV[22],Cnil);
	if(((V15))==Cnil){
	goto T71;}
	base[8]= (V15);
	{object V17;
	V17= cdr((VV[0]->s.s_dbind));
	 vs_top=base+9;
	 while(!endp(V17))
	 {vs_push(car(V17));V17=cdr(V17);}
	vs_base=base+9;}
	super_funcall_no_event(base[8]);
	vs_top=sup;
T71:;
	V16= cdr((V16));
	(VV[0]->s.s_dbind)= car((V16));
	goto T64;}
T60:;
	{object V18;
	V18= symbol_value(VV[20]);
	bds_bind(VV[0],car((V18)));
T86:;
	if(!(endp((V18)))){
	goto T87;}
	bds_unwind1;
	goto T82;
T87:;
	setq(VV[1],Ct);
	V15= get(car((VV[0]->s.s_dbind)),VV[23],Cnil);
	if(((V15))==Cnil){
	goto T93;}
	base[8]= (V15);
	{object V19;
	V19= cdr((VV[0]->s.s_dbind));
	 vs_top=base+9;
	 while(!endp(V19))
	 {vs_push(car(V19));V19=cdr(V19);}
	vs_base=base+9;}
	super_funcall_no_event(base[8]);
	vs_top=sup;
T93:;
	V18= cdr((V18));
	(VV[0]->s.s_dbind)= car((V18));
	goto T86;}
T82:;
	{object V20;
	V20= Cnil;
T107:;
	if(!(endp(symbol_value(VV[24])))){
	goto T109;}
	goto T104;
T109:;
	V20= car(symbol_value(VV[24]));
	{object V21;
	V21= car(symbol_value(VV[24]));
	setq(VV[24],cdr(symbol_value(VV[24])));}
	{object V22;
	V22= (V20);
	 vs_top=base+7;
	 while(!endp(V22))
	 {vs_push(car(V22));V22=cdr(V22);}
	vs_base=base+7;}
	(void) (*Lnk243)();
	vs_top=sup;
	goto T107;}
T104:;
	{object V23;
	object V24;
	V23= symbol_value(VV[25]);
	V24= car((V23));
T124:;
	if(!(endp((V23)))){
	goto T125;}
	goto T120;
T125:;
	{object V25;
	V25= (V24);
	 vs_top=base+7;
	 while(!endp(V25))
	 {vs_push(car(V25));V25=cdr(V25);}
	vs_base=base+7;}
	(void) (*Lnk261)();
	vs_top=sup;
	V23= cdr((V23));
	V24= car((V23));
	goto T124;}
T120:;
	{object V26;
	object V27;
	V26= (VV[13]->s.s_dbind);
	V27= car((V26));
T140:;
	if(!(endp((V26)))){
	goto T141;}
	goto T136;
T141:;
	(void)((*(LnkLI262))((V27)));
	V26= cdr((V26));
	V27= car((V26));
	goto T140;}
T136:;
	{object V28;
	object V29;
	V28= symbol_value(VV[26]);
	V29= car((V28));
T155:;
	if(!(endp((V28)))){
	goto T156;}
	goto T151;
T156:;
	princ_str("\nstatic LC",VV[27]);
	V30= structure_ref((V29),VV[28],3);
	(void)((*(LnkLI263))(/* INLINE-ARGS */V30));
	princ_str("();",VV[27]);
	V28= cdr((V28));
	V29= car((V28));
	goto T155;}
T151:;
	{object V31;
	object V32;
	V31= symbol_value(VV[29]);
	V32= car((V31));
T173:;
	if(!(endp((V31)))){
	goto T174;}
	goto T169;
T174:;
	princ_str("\n#define VM",VV[27]);
	(void)((*(LnkLI263))(car((V32))));
	princ_char(32,VV[27]);
	(void)((*(LnkLI263))(cdr((V32))));
	V31= cdr((V31));
	V32= car((V31));
	goto T173;}
T169:;
	(void)((*(LnkLI264))(Cnil));
	{object V33;
	object V34;
	base[7]= (VV[18]->s.s_dbind);
	base[8]= symbol_value(VV[30]);
	base[9]= small_fixnum(1);
	vs_top=(vs_base=base+7)+3;
	Lminus();
	vs_top=sup;
	V33= vs_base[0];
	V34= small_fixnum(0);
T196:;
	if(!(number_compare((V34),(V33))>=0)){
	goto T197;}
	goto T189;
T197:;
	(void)((*(LnkLI264))(Cnil));
	V34= one_plus((V34));
	goto T196;}
T189:;
	princ_str("\nstatic char * VVi[",VV[27]);
	V35= number_plus(small_fixnum(1),symbol_value(VV[30]));
	(void)((*(LnkLI263))(/* INLINE-ARGS */V35));
	princ_str("]={",VV[27]);
	princ_str("\n#define Cdata VV[",VV[27]);
	(void)((*(LnkLI263))(symbol_value(VV[30])));
	princ_char(93,VV[27]);
	if((VV[17]->s.s_dbind)!=Cnil){
	goto T213;}
	princ_char(10,VV[27]);
	(void)((*(LnkLI263))(small_fixnum(0)));
T213:;
	{object V36;
	V36= nreverse((VV[17]->s.s_dbind));
T219:;
	if(((V36))!=Cnil){
	goto T220;}
	princ_str("\n};",VV[27]);
	goto T216;
T220:;
	princ_str("\n(char *)(",VV[27]);
	(void)((*(LnkLI263))(caar((V36))));
	(void)((*(LnkLI263))(cadar((V36))));
	if((cdr((V36)))==Cnil){
	goto T232;}
	V37= VV[31];
	goto T230;
T232:;
	V37= VV[32];
T230:;
	(void)((*(LnkLI263))(V37));
	V36= cdr((V36));
	goto T219;}
T216:;
	princ_str("\n#define VV ((object *)VVi)",VV[27]);
	vs_base=vs_top;
	(void) (*Lnk265)();
	vs_top=sup;
	{object V38;
	object V39;
	V38= (VV[13]->s.s_dbind);
	V39= car((V38));
T243:;
	if(!(endp((V38)))){
	goto T244;}
	{object V40 = Cnil;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR2(V40)}
T244:;
	{object V41;
	object V42;
	V41= cadr((V39));
	V42= caddr((V39));
	if(((V42))==Cnil){
	goto T254;}
	V42= (*(LnkLI266))((V42));
	goto T252;
T254:;
	V42= VV[33];
T252:;
	princ_str("\nstatic ",VV[27]);
	(void)((*(LnkLI263))((V42)));
	princ_str(" LnkT",VV[27]);
	(void)((*(LnkLI263))((V41)));
	princ_str("() ;",VV[27]);
	princ_str("\nstatic ",VV[27]);
	(void)((*(LnkLI263))((V42)));
	princ_str(" (*Lnk",VV[27]);
	(void)((*(LnkLI263))((V41)));
	princ_str(")() = LnkT",VV[27]);
	(void)((*(LnkLI263))((V41)));
	princ_char(59,VV[27]);}
	V38= cdr((V38));
	V39= car((V38));
	goto T243;}}
}
/*	local entry for function MAYBE-EVAL	*/

static object LI3(V45,V46)

object V45;register object V46;
{	 VMB3 VMS3 VMV3
TTL:;
	if((V45)!=Cnil){
	goto T274;}
	if(type_of(car((V46)))==t_symbol){
	goto T275;}
	goto T274;
T275:;
	V45= get(car((V46)),VV[34],Cnil);
T274:;
	if(((V45))==Cnil){
	goto T280;}
	if((VV[35])==(symbol_value(VV[36]))){
	goto T278;}
T280:;
	if(!(type_of(symbol_value(VV[36]))==t_cons)){
	goto T279;}
	{register object x= VV[37],V47= symbol_value(VV[36]);
	while(!endp(V47))
	if(eql(x,V47->c.c_car)){
	goto T286;
	}else V47=V47->c.c_cdr;
	goto T279;}
T286:;
T278:;
	if(((V46))==Cnil){
	goto T287;}
	base[0]= (V46);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk267)();
	vs_top=sup;
T287:;
	{object V48 = Ct;
	VMR3(V48)}
T279:;
	{object V49 = Cnil;
	VMR3(V49)}
}
/*	function definition for T1EVAL-WHEN	*/

static L4()
{register object *base=vs_base;
	register object *sup=base+VM4; VC4
	vs_reserve(VM4);
	bds_check;
	{register object V50;
	check_arg(1);
	V50=(base[0]);
	vs_top=sup;
TTL:;
	{object V51;
	object V52;
	V51= Cnil;
	V52= Cnil;
	if(!(endp((V50)))){
	goto T293;}
	(void)((*(LnkLI268))(VV[38],small_fixnum(1),small_fixnum(0)));
T293:;
	{object V53;
	object V54;
	V53= car((V50));
	V54= car((V53));
T300:;
	if(!(endp((V53)))){
	goto T301;}
	goto T296;
T301:;
	{object V55= (V54);
	if((V55!= VV[269]))goto T306;
	V51= Ct;
	goto T305;
T306:;
	if((V55!= VV[37]))goto T308;
	V52= Ct;
	goto T305;
T308:;
	if((V55!= VV[270]))goto T310;
	goto T305;
T310:;
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[39],(V54))));}
T305:;
	V53= cdr((V53));
	V54= car((V53));
	goto T300;}
T296:;
	base[1]= car((V50));
	bds_bind(VV[36],base[1]);
	if(((V51))==Cnil){
	goto T318;}
	base[2]= (*(LnkLI271))(cdr((V50)));
	vs_top=(vs_base=base+2)+1;
	bds_unwind1;
	return;
T318:;
	if(((V52))==Cnil){
	goto T321;}
	base[2]= make_cons(VV[40],cdr((V50)));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk267)();
	bds_unwind1;
	return;
T321:;
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	bds_unwind1;
	return;}
	}
}
/*	local entry for function T1PROGN	*/

static object LI5(V57)

object V57;
{	 VMB5 VMS5 VMV5
	bds_check;
TTL:;
	if(!(equal(car((V57)),VV[41]))){
	goto T325;}
	bds_bind(VV[42],Ct);
	{object V58 = (*(LnkLI271))(cdr((V57)));
	bds_unwind1;
	VMR5(V58)}
T325:;
	{object V59;
	object V60;
	V59= (V57);
	V60= car((V59));
T330:;
	if(!(endp((V59)))){
	goto T331;}
	{object V61 = Cnil;
	VMR5(V61)}
T331:;
	base[0]= (V60);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk257)();
	vs_top=sup;
	V59= cdr((V59));
	V60= car((V59));
	goto T330;}
}
/*	local entry for function CMPFIX-ARGS	*/

static object LI6(V64,V65)

object V64;object V65;
{	 VMB6 VMS6 VMV6
TTL:;
	{object V66;
	object V67;
	V66= Cnil;
	base[0]= cadr((V64));
	vs_top=(vs_base=base+0)+1;
	Lcopy_list();
	vs_top=sup;
	V67= vs_base[0];
	{object V68;
	object V69;
	V68= (V65);
	V69= car((V68));
T349:;
	if(!(endp((V68)))){
	goto T350;}
	goto T345;
T350:;
	{register object x= car((V69)),V70= (V67);
	while(!endp(V70))
	if(eql(x,V70->c.c_car)){
	V66= V70;
	goto T355;
	}else V70=V70->c.c_cdr;
	V66= Cnil;}
T355:;
	if((V66)==Cnil){
	goto T356;}
	{object V71;
	object V72;
	V71= (V66);
	V72= cadr((V69));
	if(type_of((V71))!=t_cons)FEwrong_type_argument(Scons,(V71));
	((V71))->c.c_car = (V72);}
T356:;
	V68= cdr((V68));
	V69= car((V68));
	goto T349;}
T345:;
	{register object x= VV[43],V73= (V67);
	while(!endp(V73))
	if(eql(x,V73->c.c_car)){
	V66= V73;
	goto T369;
	}else V73=V73->c.c_cdr;
	V66= Cnil;}
T369:;
	if(((V66))==Cnil){
	goto T367;}
	{object V74;
	object V75;
	V74= (V66);
	V75= append((V65),cdr((V66)));
	if(type_of((V74))!=t_cons)FEwrong_type_argument(Scons,(V74));
	((V74))->c.c_cdr = (V75);
	goto T365;}
T367:;
	V76= make_cons(VV[43],(V65));
	V67= append((V67),/* INLINE-ARGS */V76);
T365:;
	{object V77 = listA(3,car((V64)),(V67),cddr((V64)));
	VMR6(V77)}}
}
/*	local entry for function T1DEFUN	*/

static object LI7(V79)

object V79;
{	 VMB7 VMS7 VMV7
	bds_check;
TTL:;
	{object V80;
	object V81;
	V80= symbol_value(VV[44]);
	V81= VV[45];
	if(endp((V79))){
	goto T377;}
	if(!(endp(cdr((V79))))){
	goto T376;}
T377:;
	V82 = make_fixnum(length((V79)));
	(void)((*(LnkLI268))(VV[45],small_fixnum(2),V82));
T376:;
	if(type_of(car((V79)))==t_symbol){
	goto T381;}
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[46],car((V79)))));
T381:;
	V83= make_cons(VV[45],(V79));
	(void)((*(LnkLI253))(Cnil,/* INLINE-ARGS */V83));
T386:;
	setq(VV[6],Ct);
	setq(VV[47],Cnil);
	{object V84;
	object V85;
	object V86;
	object V87;
	V84= Cnil;
	base[6]= get(car((V79)),VV[54],Cnil);
	if(base[6]==Cnil)goto T394;
	V85= base[6];
	goto T393;
T394:;
	setq(VV[55],number_plus(symbol_value(VV[55]),small_fixnum(1)));
	V85= symbol_value(VV[55]);
T393:;
	V86= Cnil;
	V87= car((V79));
	bds_bind(VV[48],Cnil);
	bds_bind(VV[49],Cnil);
	bds_bind(VV[50],Cnil);
	bds_bind(VV[51],Cnil);
	bds_bind(VV[52],Cnil);
	bds_bind(VV[53],Cnil);
	V84= (VFUN_NARGS=2,(*(LnkLI272))(cdr((V79)),(V87)));
	if(!(eql((V80),symbol_value(VV[44])))){
	goto T402;}
	goto T401;
T402:;
	(void)(structure_set(cadr((V84)),VV[56],4,Ct));
T401:;
	V88= structure_ref(cadr((V84)),VV[56],1);
	(void)((*(LnkLI273))(/* INLINE-ARGS */V88));
	if((get((V87),VV[57],Cnil))==Cnil){
	goto T405;}
	{object V89;
	V89= make_fixnum(length(car(caddr((V84)))));
	(void)(sputprop((V87),VV[57],(V89)));
	base[6]= (V89);
	base[7]= VV[59];
	base[8]= Ct;
	vs_top=(vs_base=base+6)+3;
	Lmake_list();
	vs_top=sup;
	V90= vs_base[0];
	V91= list(4,VV[58],(V87),V90,Ct);
	(void)((*(LnkLI274))(/* INLINE-ARGS */V91));}
T405:;
	if((get((V87),VV[60],Cnil))==Cnil){
	goto T416;}
	{object V92;
	object V93;
	V92= caddr((V84));
	V93= Cnil;
	if((cadr((V92)))==Cnil){
	goto T422;}
	goto T416;
T422:;
	if((caddr((V92)))==Cnil){
	goto T424;}
	goto T416;
T424:;
	if((cadddr((V92)))==Cnil){
	goto T426;}
	goto T416;
T426:;
	if((length(car((V92))))<(64)){
	goto T428;}
	goto T416;
T428:;
	{object V94;
	object V95;
	object V96;
	V94= car((V92));
	V95= get((V87),VV[61],Cnil);
	V96= Cnil;
T436:;
	if(!(endp((V94)))){
	goto T437;}
	if(endp((V95))){
	goto T440;}
	goto T431;
T440:;
	if(((V93))==Cnil){
	goto T443;}
	V79= (*(LnkLI275))((V79),(V93));
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	goto T386;
T443:;
	if(((V96))==Cnil){
	goto T430;}
	goto T431;
T437:;
	{object V97;
	V97= car((V94));
	if(!(equal(car((V95)),VV[62]))){
	goto T450;}
	goto T431;
T450:;
	V98= structure_ref((V97),VV[63],1);
	if((/* INLINE-ARGS */V98)==(VV[64])){
	goto T456;}
	V99= structure_ref((V97),VV[63],1);
	if(!((/* INLINE-ARGS */V99)==(VV[65]))){
	goto T455;}
	if(!((car((V95)))==(Ct))){
	goto T455;}
T456:;
	if((structure_ref((V97),VV[63],3))!=Cnil){
	goto T455;}
	V100= structure_ref((V97),VV[63],4);
	if(!((/* INLINE-ARGS */V100)==(VV[66]))){
	goto T454;}
T455:;
	V101= structure_ref((V97),VV[63],0);
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V102= vs_base[0];
	V103= list(2,/* INLINE-ARGS */V101,V102);
	V93= make_cons(/* INLINE-ARGS */V103,(V93));
T454:;
	V104= car((V95));
	V105= structure_ref((V97),VV[63],5);
	if(((*(LnkLI276))(/* INLINE-ARGS */V104,/* INLINE-ARGS */V105))==Cnil){
	goto T453;}
	{register object x= car((V95)),V106= VV[67];
	while(!endp(V106))
	if(eql(x,V106->c.c_car)){
	goto T448;
	}else V106=V106->c.c_cdr;}
	V107= structure_ref((V97),VV[63],4);
	if((/* INLINE-ARGS */V107)==(VV[68])){
	goto T448;}
	if((symbol_value(VV[69]))!=Cnil){
	goto T448;}
	V109= structure_ref(cadr((V84)),VV[56],0);
	{register object x= (V97),V108= /* INLINE-ARGS */V109;
	while(!endp(V108))
	if(eql(x,V108->c.c_car)){
	goto T477;
	}else V108=V108->c.c_cdr;
	goto T448;}
T477:;
T453:;
	if(((V93))!=Cnil){
	goto T478;}
	V110= structure_ref((V97),VV[63],0);
	(void)((VFUN_NARGS=3,(*(LnkLI252))(VV[70],(V87),/* INLINE-ARGS */V110)));
T478:;
	V96= Ct;}
T448:;
	V94= cdr((V94));
	V95= cdr((V95));
	goto T436;}
T431:;
	goto T416;
T430:;
	if(!(type_of((V85))==t_fixnum||
type_of((V85))==t_bignum||
type_of((V85))==t_ratio||
type_of((V85))==t_shortfloat||
type_of((V85))==t_longfloat||
type_of((V85))==t_complex)){
	goto T416;}}
	V111= get((V87),VV[61],Cnil);
	V112= get((V87),VV[72],Cnil);
	V113= get((V87),VV[61],Cnil);
	V114= list(5,(V87),V111,V112,small_fixnum(3),(*(LnkLI277))((V85),V113));
	setq(VV[71],make_cons(/* INLINE-ARGS */V114,symbol_value(VV[71])));
	goto T414;
T416:;
	{object V115;
	V116= get((V87),VV[72],Cnil);
	V115= ((V116)==(Ct)?Ct:Cnil);
	if(((V115))==Cnil){
	goto T414;}}
T414:;
	if((cadddr((V84)))==Cnil){
	goto T494;}
	V86= cadddr((V84));
T494:;
	(void)((*(LnkLI278))());
	V117= list(6,(V81),(V87),(V85),(V84),(V86),(VV[53]->s.s_dbind));
	setq(VV[20],make_cons(/* INLINE-ARGS */V117,symbol_value(VV[20])));
	V118= make_cons((V87),(V85));
	setq(VV[73],make_cons(/* INLINE-ARGS */V118,symbol_value(VV[73])));
	V119= symbol_value(VV[73]);
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;}
	{object V120 = Cnil;
	VMR7(V120)}}
}
/*	local entry for function MAKE-INLINE-STRING	*/

static object LI8(V123,V124)

object V123;object V124;
{	 VMB8 VMS8 VMV8
TTL:;
	if(((V124))!=Cnil){
	goto T503;}
	base[0]= Cnil;
	base[1]= VV[74];
	base[2]= (V123);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	{object V125 = vs_base[0];
	VMR8(V125)}
T503:;
	{object V126;
	V126= (VFUN_NARGS=7,(*(LnkLI279))(small_fixnum(100),VV[75],VV[76],VV[77],small_fixnum(0),VV[78],Ct));
	base[0]= (V126);
	base[1]= VV[79];
	base[2]= (V123);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	{object V127;
	int V128;
	V127= (V124);
	V128= 0;
T517:;
	if(!(endp(cdr((V127))))){
	goto T518;}
	base[0]= (V126);
	base[1]= VV[80];
	base[2]= make_fixnum(V128);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	goto T513;
T518:;
	base[0]= (V126);
	base[1]= VV[81];
	base[2]= make_fixnum(V128);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	V127= cdr((V127));
	V128= (V128)+1;
	goto T517;}
T513:;
	{object V129 = (V126);
	VMR8(V129)}}
}
/*	local entry for function CS-PUSH	*/

static object LI9(va_alist)
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB9 VMS9 VMV9
	{object V130;
	narg = narg - 0;
	if (narg <= 0) goto T533;
	else {
	va_start(ap);
	V130= va_arg(ap,object);}
	--narg; goto T534;
T533:;
	V130= Cnil;
T534:;
	{object V131;
	setq(VV[82],number_plus(symbol_value(VV[82]),small_fixnum(1)));
	V131= symbol_value(VV[82]);
	if(((V130))==Cnil){
	goto T542;}
	V132= make_cons((V130),(V131));
	goto T540;
T542:;
	V132= (V131);
T540:;
	setq(VV[14],make_cons(V132,symbol_value(VV[14])));
	{object V133 = (V131);
	VMR9(V133)}}}
	}
/*	local entry for function F-TYPE	*/

static int LI10(V135)

register object V135;
{	 VMB10 VMS10 VMV10
TTL:;
	base[0]= (V135);
	base[1]= VV[63];
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk280)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T544;}
	V135= structure_ref((V135),VV[63],5);
T544:;
	if(((V135))==Cnil){
	goto T551;}
	base[0]= (V135);
	base[1]= VV[83];
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk281)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T551;}
	{int V136 = 1;
	VMR10(V136)}
T551:;
	{int V137 = 0;
	VMR10(V137)}
}
/*	local entry for function PROCLAIMED-ARGD	*/

static int LI11(V140,V141)

register object V140;object V141;
{	 VMB11 VMS11 VMV11
TTL:;
	{int V142;
	int V143;
	object V144;
	object V145;
	V142= length((V140));
	V143= 8;
	V144= make_fixnum((*(LnkLI282))((V141)));
	V145= Ct;
T562:;
	if(eql(small_fixnum(0),(V144))){
	goto T564;}
	V142= (V142)+(((fix((V144))) << (V143)));
T564:;
	if(((V145))==Cnil){
	goto T568;}
	V143= 10;
	V145= Cnil;
T568:;
	if(((V140))!=Cnil){
	goto T574;}
	{int V146 = V142;
	VMR11(V146)}
T574:;
	V143= (V143)+(2);
	{object V148;
	V148= car((V140));
	V140= cdr((V140));
	V147= (V148);}
	V144= make_fixnum((*(LnkLI282))(V147));
	goto T562;}
}
/*	local entry for function WT-IF-PROCLAIMED	*/

static object LI12(V152,V153,V154)

register object V152;object V153;object V154;
{	 VMB12 VMS12 VMV12
TTL:;
	if(((VFUN_NARGS=1,(*(LnkLI284))((V152))))==Cnil){
	goto T586;}
	{register object x= (V152),V155= symbol_value(VV[71]);
	while(!endp(V155))
	if(type_of(V155->c.c_car)==t_cons &&eql(x,V155->c.c_car->c.c_car)){
	goto T590;
	}else V155=V155->c.c_cdr;
	goto T589;}
T590:;
	V156= list(2,VV[85],(V152));
	V157= (*(LnkLI286))(VV[86],(V153));
	V158= get((V152),VV[61],Cnil);
	V159= get((V152),VV[72],Cnil);
	V160 = make_fixnum((*(LnkLI287))(V158,V159));
	V161= list(4,VV[84],/* INLINE-ARGS */V156,/* INLINE-ARGS */V157,V160);
	(void)((VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V161)));
	{object V162 = Ct;
	VMR12(V162)}
T589:;
	{object V163;
	object V164;
	object V165;
	V163= make_fixnum(length(car(caddr((V154)))));
	V166= get((V152),VV[61],Cnil);
	V164= make_fixnum(length(V166));
	V168= get((V152),VV[61],Cnil);
	{register object x= VV[62],V167= V168;
	while(!endp(V167))
	if(eql(x,V167->c.c_car)){
	V165= V167;
	goto T598;
	}else V167=V167->c.c_cdr;
	V165= Cnil;}
T598:;
	if(((V165))==Cnil){
	goto T601;}
	base[1]= (V163);
	vs_top=(vs_base=base+1)+1;
	Lmonotonically_nonincreasing();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T603;}
	goto T594;
T603:;
	V169 = make_fixnum(length((V165)));
	base[0]= number_minus((V164),V169);
	if(base[0]==Cnil)goto T606;
	goto T594;
T606:;
	V170 = make_fixnum(length((V165)));
	V171= number_minus((V164),V170);
	(void)((VFUN_NARGS=4,(*(LnkLI252))(VV[87],(V152),/* INLINE-ARGS */V171,(V163))));
	goto T594;
T601:;
	if(eql((V163),(V164))){
	goto T609;}
	(void)((VFUN_NARGS=4,(*(LnkLI252))(VV[88],(V152),(V164),(V163))));
	goto T594;
T609:;
	(void)((VFUN_NARGS=2,(*(LnkLI252))(VV[89],(V152))));}
T594:;
	{object V172 = Cnil;
	VMR12(V172)}
T586:;
	{object V173 = Cnil;
	VMR12(V173)}
}
/*	local entry for function VOLATILE	*/

static object LI13(V175)

object V175;
{	 VMB13 VMS13 VMV13
TTL:;
	if((structure_ref((V175),VV[56],4))==Cnil){
	goto T612;}
	{object V176 = VV[90];
	VMR13(V176)}
T612:;
	{object V177 = VV[91];
	VMR13(V177)}
}
/*	local entry for function REGISTER	*/

static object LI14(V179)

object V179;
{	 VMB14 VMS14 VMV14
TTL:;
	if(!(equal(symbol_value(VV[16]),VV[92]))){
	goto T615;}
	{int V180= fix(structure_ref((V179),VV[63],6));
	if(!((/* INLINE-ARGS */V180)>=(fix(symbol_value(VV[93]))))){
	goto T615;}}
	{object V181 = VV[94];
	VMR14(V181)}
T615:;
	{object V182 = VV[95];
	VMR14(V182)}
}
/*	local entry for function VARARG-P	*/

static object LI15(V184)

object V184;
{	 VMB15 VMS15 VMV15
TTL:;
	V185= get((V184),VV[72],Cnil);
	{object V186 = (equal(V185,Ct)?Ct:Cnil);
	VMR15(V186)}
}
/*	local entry for function MAXARGS	*/

static object LI16(V188)

register object V188;
{	 VMB16 VMS16 VMV16
TTL:;
	if((cadr(cddddr((V188))))!=Cnil){
	goto T620;}
	if((caddr((V188)))==Cnil){
	goto T621;}
T620:;
	{object V189 = small_fixnum(64);
	VMR16(V189)}
T621:;
	{ save_avma;
	V190 = stoi(length(car((V188))));
	V191 = stoi(length(cadr((V188))));
	V192 = stoi(length(car(cddddr((V188)))));
	{GEN V193= mulsi(2,V192);
	{object V194 = make_integer(addii(V190,addii(V191,/* INLINE-ARGS */V193)));
	restore_avma; 
	VMR16(V194)}restore_avma;}}
}
/*	local entry for function ADD-ADDRESS	*/

static object LI17(V197,V198)

object V197;object V198;
{	 VMB17 VMS17 VMV17
TTL:;
	V199= list(2,(V197),(V198));
	setq(VV[17],make_cons(/* INLINE-ARGS */V199,symbol_value(VV[17])));
	{object V200;
	V200= symbol_value(VV[18]);
	setq(VV[18],number_plus(symbol_value(VV[18]),small_fixnum(1)));
	{object V201 = (V200);
	VMR17(V201)}}
}
/*	local entry for function T2DEFUN	*/

static object LI18(V207,V208,V209,V210,V211)

register object V207;register object V208;register object V209;object V210;object V211;
{	 VMB18 VMS18 VMV18
TTL:;
	if((get((V207),VV[96],Cnil))==Cnil){
	goto T630;}
	{object V212 = Cnil;
	VMR18(V212)}
T630:;
	if(((V210))==Cnil){
	goto T633;}
	V213= list(4,VV[97],list(2,VV[85],(V207)),(V210),VV[98]);
	(void)((VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V213)));
T633:;
	{object V214;
	V214= (*(LnkLI288))((V207),(V208),(V209));
	if(((V214))==Cnil){
	goto T639;}
	goto T636;
T639:;
	if(((*(LnkLI289))((V207)))==Cnil){
	goto T642;}
	{object V215;
	V215= cadddr(caddr((V209)));
	princ_str("\nstatic object LI",VV[27]);
	(void)((*(LnkLI263))((V208)));
	princ_str("();",VV[27]);
	if(((V215))==Cnil){
	goto T650;}
	V216= list(2,VV[85],(V207));
	V217= (*(LnkLI286))(VV[100],(V208));
	V218 = make_fixnum(length(car(caddr((V209)))));
	V219= (*(LnkLI290))(caddr((V209)));
	V220= (*(LnkLI283))(/* INLINE-ARGS */V219,small_fixnum(8));
	V221= number_plus(V218,/* INLINE-ARGS */V220);
	base[0]= Cnil;
	base[1]= VV[101];
	base[2]= (V208);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	V222= vs_base[0];
	V223= list(5,VV[99],/* INLINE-ARGS */V216,/* INLINE-ARGS */V217,/* INLINE-ARGS */V221,(*(LnkLI286))(V222,VV[102]));
	(void)((VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V223)));
	goto T636;
T650:;
	V224= list(2,VV[85],(V207));
	V225= (*(LnkLI286))(VV[104],(V208));
	V226 = make_fixnum(length(car(caddr((V209)))));
	V227= (*(LnkLI290))(caddr((V209)));
	V228= (*(LnkLI283))(/* INLINE-ARGS */V227,small_fixnum(8));
	V229= list(4,VV[103],/* INLINE-ARGS */V224,/* INLINE-ARGS */V225,number_plus(V226,/* INLINE-ARGS */V228));
	(void)((VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V229)));
	goto T636;}
T642:;
	if(!(type_of((V208))==t_fixnum||
type_of((V208))==t_bignum||
type_of((V208))==t_ratio||
type_of((V208))==t_shortfloat||
type_of((V208))==t_longfloat||
type_of((V208))==t_complex)){
	goto T657;}
	princ_str("\nstatic L",VV[27]);
	(void)((*(LnkLI263))((V208)));
	princ_str("();",VV[27]);
	V230= list(2,VV[85],(V207));
	V231= list(3,VV[105],/* INLINE-ARGS */V230,(*(LnkLI286))(VV[106],(V208)));
	(void)((VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V231)));
	goto T636;
T657:;
	princ_char(10,VV[27]);
	(void)((*(LnkLI263))((V208)));
	princ_str("();",VV[27]);
	V232= list(2,VV[85],(V207));
	V233= list(3,VV[105],/* INLINE-ARGS */V232,(*(LnkLI286))(VV[107],(V208)));
	(void)((VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V233)));}
T636:;
	if(!(number_compare(symbol_value(VV[108]),small_fixnum(2))<0)){
	goto T668;}
	{object V234 = sputprop((V207),VV[109],Ct);
	VMR18(V234)}
T668:;
	{object V235 = Cnil;
	VMR18(V235)}
}
/*	local entry for function ADD-DEBUG	*/

static object LI19(V238,V239)

object V238;object V239;
{	 VMB19 VMS19 VMV19
TTL:;
	{object V240 = putprop((V238),(V239),VV[110]);
	VMR19(V240)}
}
/*	local entry for function T3DEFUN	*/

static object LI20(V246,V247,V248,V249,V250)

register object V246;register object V247;register object V248;object V249;object V250;
{	 VMB20 VMS20 VMV20
	bds_check;
TTL:;
	{object V251;
	V251= Cnil;
	bds_bind(VV[0],list(2,VV[45],(V246)));
	bds_bind(VV[16],(*(LnkLI291))(cadr((V248))));
	bds_bind(VV[111],Cnil);
	{object V252;
	object V253;
	V252= symbol_value(VV[71]);
	V253= car((V252));
T680:;
	if(!(endp((V252)))){
	goto T681;}
	goto T675;
T681:;
	base[4]= cadddr((V253));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk292)();
	vs_top=sup;
	base[3]= vs_base[0];
	if(base[3]==Cnil)goto T686;
	goto T685;
T686:;
	base[4]= VV[112];
	vs_top=(vs_base=base+4)+1;
	Lerror();
	vs_top=sup;
T685:;
	if((car((V253)))==((V246))){
	goto T691;}
	goto T690;
T691:;
	if((cadr(cddddr((V253))))==Cnil){
	goto T693;}
	goto T690;
T693:;
	V251= (V253);
	if(((V251))==Cnil){
	goto T675;}
	goto T676;
T690:;
	V252= cdr((V252));
	V253= car((V252));
	goto T680;}
T676:;
	if(((VFUN_NARGS=1,(*(LnkLI284))((V246))))!=Cnil){
	goto T701;}
	V254= list(4,(V246),(V247),cadr((V251)),caddr((V251)));
	setq(VV[25],make_cons(/* INLINE-ARGS */V254,symbol_value(VV[25])));
T701:;
	V255= structure_ref(cadr((V248)),VV[56],1);
	(void)((*(LnkLI293))(/* INLINE-ARGS */V255,small_fixnum(0)));
	base[3]= VV[113];
	{object V256= caddr((V251));
	if((V256!= VV[83]))goto T708;
	base[4]= VV[114];
	goto T707;
T708:;
	if((V256!= VV[136]))goto T709;
	base[4]= VV[115];
	goto T707;
T709:;
	if((V256!= VV[137]))goto T710;
	base[4]= VV[116];
	goto T707;
T710:;
	if((V256!= VV[138]))goto T711;
	base[4]= VV[117];
	goto T707;
T711:;
	base[4]= VV[118];}
T707:;
	base[5]= (V246);
	base[6]= (V247);
	base[7]= (V248);
	base[8]= (V250);
	base[9]= (V251);
	vs_top=(vs_base=base+3)+7;
	(void) (*Lnk294)();
	vs_top=sup;
	goto T673;
T675:;
	if(((*(LnkLI289))((V246)))==Cnil){
	goto T718;}
	V257= structure_ref(cadr((V248)),VV[56],1);
	(void)((*(LnkLI293))(/* INLINE-ARGS */V257,small_fixnum(0)));
	base[3]= VV[119];
	base[4]= VV[118];
	base[5]= (V246);
	base[6]= (V247);
	base[7]= (V248);
	base[8]= (V250);
	vs_top=(vs_base=base+3)+6;
	(void) (*Lnk294)();
	vs_top=sup;
	goto T673;
T718:;
	V258= structure_ref(cadr((V248)),VV[56],1);
	(void)((*(LnkLI293))(/* INLINE-ARGS */V258,small_fixnum(2)));
	base[3]= VV[120];
	base[4]= VV[121];
	base[5]= (V246);
	base[6]= (V247);
	base[7]= (V248);
	base[8]= (V250);
	vs_top=(vs_base=base+3)+6;
	(void) (*Lnk294)();
	vs_top=sup;
T673:;
	(void)((*(LnkLI295))((V247)));
	{object V259 = (*(LnkLI296))((V246),(V248));
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR20(V259)}}
}
/*	function definition for T3DEFUN-AUX	*/

static L21()
{register object *base=vs_base;
	register object *sup=base+VM21; VC21
	vs_reserve(VM21);
	bds_check;
	{object V260;
	object V261;
	if(vs_top-vs_base<2) too_few_arguments();
	V260=(base[0]);
	bds_bind(VV[122],base[1]);
	vs_base=vs_base+2;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V261=(base[2]);
	vs_top=sup;
	bds_bind(VV[14],Cnil);
	bds_bind(VV[123],small_fixnum(0));
	bds_bind(VV[124],small_fixnum(0));
	bds_bind(VV[125],small_fixnum(0));
	bds_bind(VV[126],small_fixnum(0));
	bds_bind(VV[127],Cnil);
	bds_bind(VV[128],make_cons((VV[122]->s.s_dbind),Cnil));
	bds_bind(VV[129],(VV[122]->s.s_dbind));
	setq(VV[131],number_plus(symbol_value(VV[131]),small_fixnum(1)));
	bds_bind(VV[130],symbol_value(VV[131]));
	bds_bind(VV[132],Cnil);
	bds_bind(VV[133],Cnil);
	bds_bind(VV[134],Cnil);
	bds_bind(VV[135],small_fixnum(0));
	base[16]= (V260);
	{object V262;
	V262= (V261);
	 vs_top=base+17;
	 while(!endp(V262))
	 {vs_push(car(V262));V262=cdr(V262);}
	vs_base=base+17;}
	super_funcall_no_event(base[16]);
	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;
	return;
	}
}
/*	local entry for function T3DEFUN-LOCAL-ENTRY	*/

static object LI22(V268,V269,V270,V271,V272)

object V268;object V269;object V270;object V271;object V272;
{	 VMB22 VMS22 VMV22
	bds_check;
TTL:;
	{object V273;
	object V274;
	V273= Cnil;
	V274= caaddr((V270));
	{object V275;
	object V276;
	V275= (V274);
	V276= cadr((V272));
T746:;
	if(!(endp((V275)))){
	goto T747;}
	goto T742;
T747:;
	V277= structure_ref(car((V275)),VV[63],1);
	if(!((/* INLINE-ARGS */V277)==(VV[65]))){
	goto T753;}
	V278= car((V275));
	V279= structure_ref(car((V275)),VV[63],4);
	V280= make_cons(/* INLINE-ARGS */V278,/* INLINE-ARGS */V279);
	V273= make_cons(/* INLINE-ARGS */V280,(V273));
	goto T751;
T753:;
	V281= car((V275));
	{object V283= car((V276));
	if((V283!= VV[83]))goto T757;
	V282= VV[83];
	goto T756;
T757:;
	if((V283!= VV[136]))goto T758;
	V282= VV[136];
	goto T756;
T758:;
	if((V283!= VV[137]))goto T759;
	V282= VV[137];
	goto T756;
T759:;
	if((V283!= VV[138]))goto T760;
	V282= VV[138];
	goto T756;
T760:;
	V282= VV[68];}
T756:;
	(void)(structure_set(/* INLINE-ARGS */V281,VV[63],1,V282));
T751:;
	V284= car((V275));
	setq(VV[82],number_plus(symbol_value(VV[82]),small_fixnum(1)));
	(void)(structure_set(/* INLINE-ARGS */V284,VV[63],4,symbol_value(VV[82])));
	V275= cdr((V275));
	V276= cdr((V276));
	goto T746;}
T742:;
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[139],(V268))));
	princ_str("\nstatic ",VV[27]);
	V285= (*(LnkLI266))(caddr((V272)));
	(void)((*(LnkLI263))(/* INLINE-ARGS */V285));
	princ_str("LI",VV[27]);
	(void)((*(LnkLI263))((V269)));
	princ_str("();",VV[27]);
	princ_str("\nstatic ",VV[21]);
	V286= (*(LnkLI266))(caddr((V272)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V286));
	princ_str("LI",VV[21]);
	(void)((*(LnkLI260))((V269)));
	princ_char(40,VV[21]);
	(void)((*(LnkLI298))((V274),cadr((V272))));
	{object V287;
	V287= symbol_value(VV[130]);
	if((symbol_value(VV[141]))==Cnil){
	goto T784;}
	base[0]= make_cons((V268),(V274));
	goto T782;
T784:;
	base[0]= Cnil;
T782:;
	bds_bind(VV[140],base[0]);
	bds_bind(VV[128],symbol_value(VV[128]));
	princ_str("\n{	",VV[21]);
	V288= structure_ref(cadr((V270)),VV[56],1);
	(void)((*(LnkLI299))(/* INLINE-ARGS */V288,(V269),VV[142]));
	princ_str(" VMB",VV[21]);
	(void)((*(LnkLI260))((V287)));
	princ_str(" VMS",VV[21]);
	(void)((*(LnkLI260))((V287)));
	princ_str(" VMV",VV[21]);
	(void)((*(LnkLI260))((V287)));
	if(((V271))==Cnil){
	goto T796;}
	princ_str("\n	bds_check;",VV[21]);
T796:;
	if((symbol_value(VV[143]))==Cnil){
	goto T800;}
	princ_str("\n	ihs_check;",VV[21]);
T800:;
	if(((VV[140]->s.s_dbind))==Cnil){
	goto T804;}
	(VV[128]->s.s_dbind)= make_cons(VV[144],(VV[128]->s.s_dbind));
	princ_str("\nTTL:;",VV[21]);
T804:;
	{object V289;
	object V290;
	V289= (V273);
	V290= car((V289));
T814:;
	if(!(endp((V289)))){
	goto T815;}
	goto T810;
T815:;
	princ_str("\n	bds_bind(VV[",VV[21]);
	(void)((*(LnkLI260))(cdr((V290))));
	princ_str("],V",VV[21]);
	V291= structure_ref(car((V290)),VV[63],4);
	(void)((*(LnkLI260))(/* INLINE-ARGS */V291));
	princ_str(");",VV[21]);
	(VV[128]->s.s_dbind)= make_cons(VV[145],(VV[128]->s.s_dbind));
	(void)(structure_set(car((V290)),VV[63],1,VV[65]));
	(void)(structure_set(car((V290)),VV[63],4,cdr((V290))));
	V289= cdr((V289));
	V290= car((V289));
	goto T814;}
T810:;
	base[2]= caddr(cddr((V270)));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk300)();
	vs_top=sup;
	princ_str("\n}",VV[21]);
	{object V292 = (*(LnkLI301))((V287),caddr((V272)));
	bds_unwind1;
	bds_unwind1;
	VMR22(V292)}}}
}
/*	local entry for function SET-UP-VAR-CVS	*/

static object LI23(V294)

object V294;
{	 VMB23 VMS23 VMV23
TTL:;
	if((symbol_value(VV[146]))==Cnil){
	goto T839;}
	V295= (*(LnkLI302))();
	{object V296 = structure_set((V294),VV[63],2,/* INLINE-ARGS */V295);
	VMR23(V296)}
T839:;
	V297= (*(LnkLI303))();
	{object V298 = structure_set((V294),VV[63],2,/* INLINE-ARGS */V297);
	VMR23(V298)}
}
/*	local entry for function T3DEFUN-VARARG	*/

static object LI24(V303,V304,V305,V306)

object V303;object V304;object V305;object V306;
{	 VMB24 VMS24 VMV24
	bds_check;
TTL:;
	{object V307;
	object V308;
	object V309;
	object V310;
	object V311;
	object V312;
	object V313;
	object V314;
	V307= Cnil;
	bds_bind(VV[146],Cnil);
	base[1]= Cnil;
	V308= Cnil;
	V309= Ct;
	V310= Cnil;
	bds_bind(VV[147],small_fixnum(0));
	V311= Cnil;
	V312= caddr((V305));
	V313= Cnil;
	base[3]= caddr((V312));
	if(base[3]==Cnil)goto T849;
	V314= base[3];
	goto T848;
T849:;
	base[3]= cadr((V312));
	if(base[3]==Cnil)goto T851;
	V314= base[3];
	goto T848;
T851:;
	V314= cadddr((V312));
T848:;
	{object V315;
	object V316;
	V315= car((V312));
	V316= car((V315));
T857:;
	if(!(endp((V315)))){
	goto T858;}
	goto T853;
T858:;
	setq(VV[82],number_plus(symbol_value(VV[82]),small_fixnum(1)));
	V317= list(2,VV[148],symbol_value(VV[82]));
	V307= make_cons(/* INLINE-ARGS */V317,(V307));
	V315= cdr((V315));
	V316= car((V315));
	goto T857;}
T853:;
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[149],(V303))));
	princ_str("\nstatic object LI",VV[27]);
	(void)((*(LnkLI263))((V304)));
	princ_str("();",VV[27]);
	princ_str("\nstatic object LI",VV[21]);
	(void)((*(LnkLI260))((V304)));
	princ_char(40,VV[21]);
	(void)((*(LnkLI304))((V307)));
	if(((V314))==Cnil){
	goto T880;}
	if(((V307))==Cnil){
	goto T883;}
	princ_char(44,VV[21]);
T883:;
	princ_str("va_alist",VV[21]);
T880:;
	princ_char(41,VV[21]);
	if(((V307))==Cnil){
	goto T890;}
	princ_str("\n	object ",VV[21]);
	(void)((*(LnkLI304))((V307)));
	princ_char(59,VV[21]);
T890:;
	if(((V314))==Cnil){
	goto T897;}
	princ_str("\n	va_dcl ",VV[21]);
T897:;
	{object V318;
	V318= symbol_value(VV[130]);
	if(symbol_value(VV[141])==Cnil){
	base[3]= Cnil;
	goto T902;}
	if((caddr((V312)))==Cnil){
	goto T903;}
	base[3]= Cnil;
	goto T902;
T903:;
	{object V319;
	object V320;
	V319= car((V312));
	V320= car((V319));
T910:;
	if(!(endp((V319)))){
	goto T911;}
	goto T905;
T911:;
	if((structure_ref((V320),VV[63],3))==Cnil){
	goto T915;}
	goto T906;
T915:;
	V319= cdr((V319));
	V320= car((V319));
	goto T910;}
T906:;
	base[3]= Cnil;
	goto T902;
T905:;
	if((cadr((V312)))==Cnil){
	goto T923;}
	base[3]= Cnil;
	goto T902;
T923:;
	if((car(cddddr((V312))))==Cnil){
	goto T925;}
	base[3]= Cnil;
	goto T902;
T925:;
	base[3]= make_cons((V303),car((V312)));
T902:;
	bds_bind(VV[140],base[3]);
	bds_bind(VV[128],symbol_value(VV[128]));
	princ_str("\n{	",VV[21]);
	if(((V314))==Cnil){
	goto T929;}
	princ_str("\n	va_list ap;",VV[21]);
T929:;
	princ_str("\n	int narg = VFUN_NARGS;",VV[21]);
	V321= structure_ref(cadr((V305)),VV[56],1);
	(void)((*(LnkLI299))(/* INLINE-ARGS */V321,(V304),VV[142]));
	princ_str(" VMB",VV[21]);
	(void)((*(LnkLI260))((V318)));
	princ_str(" VMS",VV[21]);
	(void)((*(LnkLI260))((V318)));
	princ_str(" VMV",VV[21]);
	(void)((*(LnkLI260))((V318)));
	if(((V306))==Cnil){
	goto T943;}
	princ_str("\n	bds_check;",VV[21]);
T943:;
	if((symbol_value(VV[143]))==Cnil){
	goto T947;}
	princ_str("\n	ihs_check;",VV[21]);
T947:;
	if((V314)!=Cnil){
	goto T951;}
	princ_str("\n	if ( narg!= ",VV[21]);
	V322 = make_fixnum(length((V307)));
	(void)((*(LnkLI260))(V322));
	princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[21]);
	V323 = make_fixnum(length((V307)));
	(void)((*(LnkLI260))(V323));
	princ_str("));",VV[21]);
T951:;
	{object V324;
	object V325;
	V324= car((V312));
	V325= car((V324));
T962:;
	if(!(endp((V324)))){
	goto T963;}
	goto T958;
T963:;
	base[5]= (V325);
	vs_top=(vs_base=base+5)+1;
	L25(base);
	vs_top=sup;
	V324= cdr((V324));
	V325= car((V324));
	goto T962;}
T958:;
	{object V326;
	object V327;
	V326= cadr((V312));
	V327= car((V326));
T978:;
	if(!(endp((V326)))){
	goto T979;}
	goto T974;
T979:;
	base[5]= car((V327));
	vs_top=(vs_base=base+5)+1;
	L25(base);
	vs_top=sup;
	if((caddr((V327)))==Cnil){
	goto T985;}
	base[5]= caddr((V327));
	vs_top=(vs_base=base+5)+1;
	L25(base);
	vs_top=sup;
T985:;
	V326= cdr((V326));
	V327= car((V326));
	goto T978;}
T974:;
	if((caddr((V312)))==Cnil){
	goto T994;}
	base[5]= caddr((V312));
	vs_top=(vs_base=base+5)+1;
	L25(base);
	vs_top=sup;
T994:;
	{object V328;
	object V329;
	V328= car(cddddr((V312)));
	V329= car((V328));
T1001:;
	if(!(endp((V328)))){
	goto T1002;}
	goto T957;
T1002:;
	base[5]= cadr((V329));
	vs_top=(vs_base=base+5)+1;
	L25(base);
	vs_top=sup;
	if((cadddr((V329)))==Cnil){
	goto T1008;}
	base[5]= cadddr((V329));
	vs_top=(vs_base=base+5)+1;
	L25(base);
	vs_top=sup;
T1008:;
	V328= cdr((V328));
	V329= car((V328));
	goto T1001;}
T957:;
	if((symbol_value(VV[150]))!=Cnil){
	goto T1019;}
	if((symbol_value(VV[151]))==Cnil){
	goto T1017;}
T1019:;
	if((car((V312)))==Cnil){
	goto T1017;}
	princ_str("\n	if(narg <",VV[21]);
	V330 = make_fixnum(length(car((V312))));
	(void)((*(LnkLI260))(V330));
	princ_str(") too_few_arguments();",VV[21]);
T1017:;
	{object V331;
	object V332;
	V331= car((V312));
	V332= car((V331));
T1031:;
	if(!(endp((V331)))){
	goto T1032;}
	goto T1027;
T1032:;
	(void)((*(LnkLI305))((V332)));
	V331= cdr((V331));
	V332= car((V331));
	goto T1031;}
T1027:;
	{object V333;
	object V334;
	V333= cadr((V312));
	V334= car((V333));
T1046:;
	if(!(endp((V333)))){
	goto T1047;}
	goto T1042;
T1047:;
	(void)((*(LnkLI305))(car((V334))));
	V333= cdr((V333));
	V334= car((V333));
	goto T1046;}
T1042:;
	if((caddr((V312)))==Cnil){
	goto T1057;}
	(void)((*(LnkLI305))(caddr((V312))));
T1057:;
	if(((VV[146]->s.s_dbind))==Cnil){
	goto T1063;}
	V310= symbol_value(VV[123]);
	goto T1061;
T1063:;
	V310= symbol_value(VV[135]);
T1061:;
	{object V335;
	object V336;
	V335= car(cddddr((V312)));
	V336= car((V335));
T1069:;
	if(!(endp((V335)))){
	goto T1070;}
	goto T1065;
T1070:;
	(void)((*(LnkLI305))(cadr((V336))));
	V335= cdr((V335));
	V336= car((V335));
	goto T1069;}
T1065:;
	{object V337;
	object V338;
	V337= car(cddddr((V312)));
	V338= car((V337));
T1084:;
	if(!(endp((V337)))){
	goto T1085;}
	goto T1080;
T1085:;
	(void)((*(LnkLI305))(cadddr((V338))));
	V337= cdr((V337));
	V338= car((V337));
	goto T1084;}
T1080:;
	{object V339;
	object V340;
	V339= (V307);
	V340= car((V312));
T1099:;
	if(((V339))!=Cnil){
	goto T1100;}
	goto T1095;
T1100:;
	(void)((*(LnkLI306))(car((V340)),car((V339))));
	V339= cdr((V339));
	V340= cdr((V340));
	goto T1099;}
T1095:;
	if((cadr((V312)))==Cnil){
	goto T1109;}
	bds_bind(VV[127],symbol_value(VV[127]));
	bds_bind(VV[128],(VV[128]->s.s_dbind));
	bds_bind(VV[126],symbol_value(VV[126]));
	princ_str("\n	narg = narg - ",VV[21]);
	V341 = make_fixnum(length((V307)));
	(void)((*(LnkLI260))(V341));
	princ_char(59,VV[21]);
	{object V342;
	object V343;
	V342= cadr((V312));
	V343= car((V342));
T1120:;
	if(!(endp((V342)))){
	goto T1121;}
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	goto T1112;
T1121:;
	setq(VV[152],number_plus(symbol_value(VV[152]),small_fixnum(1)));
	V344= make_cons(symbol_value(VV[152]),Cnil);
	V308= make_cons(/* INLINE-ARGS */V344,(V308));
	princ_str("\n	if (",VV[21]);
	if((cdr((V308)))==Cnil){
	goto T1133;}
	V345= VV[153];
	goto T1131;
T1133:;
	V345= VV[154];
T1131:;
	(void)((*(LnkLI260))(V345));
	princ_str("narg <= 0) ",VV[21]);
	if(type_of(car((V308)))!=t_cons)FEwrong_type_argument(Scons,car((V308)));
	(car((V308)))->c.c_cdr = Ct;
	(void)(car((V308)));
	princ_str("goto T",VV[21]);
	(void)((*(LnkLI260))(car(car((V308)))));
	princ_char(59,VV[21]);
	princ_str("\n	else {",VV[21]);
	if(((V313))!=Cnil){
	goto T1143;}
	V313= Ct;
	princ_str("\n	va_start(ap);",VV[21]);
T1143:;
	V346= car((V343));
	V347= make_cons(VV[155],Cnil);
	(void)((*(LnkLI306))(/* INLINE-ARGS */V346,/* INLINE-ARGS */V347));
	princ_char(125,VV[21]);
	if((caddr((V343)))==Cnil){
	goto T1152;}
	(void)((*(LnkLI306))(caddr((V343)),Ct));
T1152:;
	V342= cdr((V342));
	V343= car((V342));
	goto T1120;}
T1112:;
	V308= nreverse((V308));
	{object V348;
	setq(VV[152],number_plus(symbol_value(VV[152]),small_fixnum(1)));
	V348= make_cons(symbol_value(VV[152]),Cnil);
	princ_str("\n	--narg; ",VV[21]);
	if(type_of((V348))!=t_cons)FEwrong_type_argument(Scons,(V348));
	((V348))->c.c_cdr = Ct;
	princ_str("goto T",VV[21]);
	(void)((*(LnkLI260))(car((V348))));
	princ_char(59,VV[21]);
	{object V349;
	object V350;
	V349= cadr((V312));
	V350= car((V349));
T1175:;
	if(!(endp((V349)))){
	goto T1176;}
	goto T1171;
T1176:;
	if((cdr(car((V308))))==Cnil){
	goto T1180;}
	princ_str("\nT",VV[21]);
	(void)((*(LnkLI260))(car(car((V308)))));
	princ_str(":;",VV[21]);
T1180:;
	{object V351;
	V351= car((V308));
	V308= cdr((V308));}
	(void)((*(LnkLI307))(car((V350)),cadr((V350))));
	if((caddr((V350)))==Cnil){
	goto T1191;}
	(void)((*(LnkLI306))(caddr((V350)),Cnil));
T1191:;
	V349= cdr((V349));
	V350= car((V349));
	goto T1175;}
T1171:;
	if((cdr((V348)))==Cnil){
	goto T1109;}
	princ_str("\nT",VV[21]);
	(void)((*(LnkLI260))(car((V348))));
	princ_str(":;",VV[21]);}
T1109:;
	if((caddr((V312)))==Cnil){
	goto T1204;}
	V311= (VFUN_NARGS=0,(*(LnkLI308))());
	{object V352;
	V352= cadr((V312));
	if(((V352))==Cnil){
	goto T1212;}
	goto T1209;
T1212:;
	princ_str("\n	narg= narg - ",VV[21]);
	V353 = make_fixnum(length(car((V312))));
	(void)((*(LnkLI260))(V353));
	princ_char(59,VV[21]);}
T1209:;
	if(((V313))!=Cnil){
	goto T1217;}
	V313= Ct;
	princ_str("\n	va_start(ap);",VV[21]);
T1217:;
	princ_str("\n	V",VV[21]);
	(void)((*(LnkLI260))((V311)));
	princ_str(" = ",VV[21]);
	V354= structure_ref(caddr((V312)),VV[63],5);
	if(!((/* INLINE-ARGS */V354)==(VV[157]))){
	goto T1228;}
	base[5]= Ct;
	goto T1227;
T1228:;
	base[5]= symbol_value(VV[156]);
T1227:;
	bds_bind(VV[156],base[5]);
	if((cadddr((V312)))==Cnil){
	goto T1232;}
	if(((VV[156]->s.s_dbind))==Cnil){
	goto T1235;}
	princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[21]);
	goto T1230;
T1235:;
	princ_str("make_list(narg);",VV[21]);
	goto T1230;
T1232:;
	if(((VV[156]->s.s_dbind))==Cnil){
	goto T1240;}
	princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));",VV[21]);
	goto T1230;
T1240:;
	princ_str("list_vector(narg,ap);",VV[21]);
T1230:;
	V355= caddr((V312));
	V356= list(2,VV[148],(V311));
	V357= (*(LnkLI306))(/* INLINE-ARGS */V355,/* INLINE-ARGS */V356);
	bds_unwind1;
T1204:;
	if((cadddr((V312)))==Cnil){
	goto T1244;}
	{object V358;
	V358= caddr((V312));
	if(((V358))==Cnil){
	goto T1250;}
	goto T1247;
T1250:;
	{object V359;
	V359= cadr((V312));
	if(((V359))==Cnil){
	goto T1254;}
	goto T1247;
T1254:;
	princ_str("\n	narg= narg - ",VV[21]);
	V360 = make_fixnum(length(car((V312))));
	(void)((*(LnkLI260))(V360));
	princ_char(59,VV[21]);}}
T1247:;
	if(((V313))!=Cnil){
	goto T1259;}
	V313= Ct;
	princ_str("\n	va_start(ap);",VV[21]);
T1259:;
	{object V361;
	object V362= car(cddddr((V312)));
	if(endp(V362)){
	V309= Cnil;
	goto T1266;}
	base[5]=V361=MMcons(Cnil,Cnil);
T1267:;
	(V361->c.c_car)= caddr((V362->c.c_car));
	if(endp(V362=MMcdr(V362))){
	V309= base[5];
	goto T1266;}
	V361=MMcdr(V361)=MMcons(Cnil,Cnil);
	goto T1267;}
T1266:;
	{object V363;
	object V364;
	V363= Cnil;
	V364= make_fixnum(length(car(cddddr((V312)))));
	{object V365;
	object V366;
	object V367;
	V365= (V309);
	V366= car(cddddr((V312)));
	V367= car((V366));
T1276:;
	if(((V365))!=Cnil){
	goto T1277;}
	goto T1271;
T1277:;
	if(!((caar((V365)))==(VV[158]))){
	goto T1282;}
	if((caddr(car((V365))))==(Cnil)){
	goto T1281;}
T1282:;
	V363= Ct;
T1281:;
	if(!((caar((V365)))==(VV[158]))){
	goto T1288;}
	{object V368;
	V368= caddr(car((V365)));
	if(!(((V368))==(Cnil))){
	goto T1294;}
	goto T1292;
T1294:;
	if(type_of((V368))==t_cons){
	goto T1296;}
	goto T1288;
T1296:;
	{register object x= car((V368)),V369= VV[159];
	while(!endp(V369))
	if(eql(x,V369->c.c_car)){
	goto T1292;
	}else V369=V369->c.c_cdr;
	goto T1288;}}
T1292:;
	V370= structure_ref(cadddr((V367)),VV[63],1);
	if((/* INLINE-ARGS */V370)==(VV[160])){
	goto T1287;}
T1288:;
	V363= Ct;
	{object V371;
	object V372;
	V371= (V365);
	V372= small_fixnum(0);
	if(type_of((V371))!=t_cons)FEwrong_type_argument(Scons,(V371));
	((V371))->c.c_car = (V372);}
T1287:;
	V365= cdr((V365));
	V366= cdr((V366));
	V367= car((V366));
	goto T1276;}
T1271:;
	if(!((length((V309)))>(15))){
	goto T1311;}
	V363= Ct;
T1311:;
	princ_str("\n	{",VV[21]);
	vs_base=vs_top;
	(void) (*Lnk309)();
	vs_top=sup;
	bds_bind(VV[21],symbol_value(VV[27]));
	if(((V363))==Cnil){
	goto T1319;}
	princ_char(10,VV[27]);
	princ_str("static int VK",VV[21]);
	(void)((*(LnkLI260))((V304)));
	princ_str("defaults[",VV[21]);
	V373 = make_fixnum(length((V309)));
	(void)((*(LnkLI260))(V373));
	princ_str("]={",VV[21]);
	{object V374;
	object V375;
	V374= (V309);
	V375= Cnil;
T1333:;
	if(((V374))!=Cnil){
	goto T1334;}
	goto T1329;
T1334:;
	if(!(eql(car((V374)),small_fixnum(0)))){
	goto T1340;}
	princ_str("-1",VV[21]);
	goto T1338;
T1340:;
	V375= caddr(car((V374)));
	if(!(((V375))==(Cnil))){
	goto T1344;}
	princ_str("-2",VV[21]);
	goto T1338;
T1344:;
	if(!(type_of((V375))==t_cons)){
	goto T1349;}
	if(!((car((V375)))==(VV[161]))){
	goto T1349;}
	(void)((*(LnkLI260))(cadr((V375))));
	goto T1338;
T1349:;
	if(!(type_of((V375))==t_cons)){
	goto T1355;}
	if(!((car((V375)))==(VV[162]))){
	goto T1355;}
	V376= (*(LnkLI310))(caddr((V375)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V376));
	goto T1338;
T1355:;
	(void)((*(LnkLI311))());
T1338:;
	if((cdr((V374)))==Cnil){
	goto T1360;}
	princ_char(44,VV[21]);
T1360:;
	V374= cdr((V374));
	goto T1333;}
T1329:;
	princ_str("};",VV[21]);
T1319:;
	princ_char(10,VV[27]);
	princ_str("static struct { short n,allow_other_keys;",VV[21]);
	princ_str("int *defaults;",VV[21]);
	princ_str("\n	 int keys[",VV[21]);
	(void)((*(LnkLI260))((V364)));
	princ_str("];",VV[21]);
	princ_str("} LI",VV[21]);
	(void)((*(LnkLI260))((V304)));
	princ_str("key=",VV[21]);
	princ_char(123,VV[21]);
	V377 = make_fixnum(length(car(cddddr((V312)))));
	(void)((*(LnkLI260))(V377));
	princ_char(44,VV[21]);
	if((cadr(cddddr((V312))))==Cnil){
	goto T1387;}
	V378= small_fixnum(1);
	goto T1385;
T1387:;
	V378= small_fixnum(0);
T1385:;
	(void)((*(LnkLI260))(V378));
	princ_char(44,VV[21]);
	if(((V363))==Cnil){
	goto T1392;}
	princ_str("VK",VV[21]);
	(void)((*(LnkLI260))((V304)));
	princ_str("defaults",VV[21]);
	goto T1390;
T1392:;
	princ_str("(int *)Cstd_key_defaults",VV[21]);
T1390:;
	if((car(cddddr((V312))))==Cnil){
	goto T1398;}
	princ_str(",{",VV[21]);
	{object V379;
	V379= reverse(car(cddddr((V312))));
T1406:;
	if(((V379))!=Cnil){
	goto T1407;}
	goto T1403;
T1407:;
	V380= (*(LnkLI312))(caar((V379)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V380));
	if((cdr((V379)))==Cnil){
	goto T1413;}
	princ_char(44,VV[21]);
T1413:;
	V379= cdr((V379));
	goto T1406;}
T1403:;
	princ_char(125,VV[21]);
T1398:;
	princ_str("};",VV[21]);
	bds_unwind1;
	if((caddr((V312)))==Cnil){
	goto T1424;}
	princ_str("\n	parse_key_rest(",VV[21]);
	V381= list(2,VV[148],(V311));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V381));
	princ_char(44,VV[21]);
	goto T1422;
T1424:;
	princ_str("\n	parse_key_new(",VV[21]);
T1422:;
	princ_str("narg,",VV[21]);
	if(((VV[146]->s.s_dbind))==Cnil){
	goto T1434;}
	V382= VV[163];
	goto T1432;
T1434:;
	V382= VV[164];
T1432:;
	(void)((*(LnkLI260))(V382));
	princ_char(43,VV[21]);
	(void)((*(LnkLI260))((V310)));
	princ_str(",&LI",VV[21]);
	(void)((*(LnkLI260))((V304)));
	princ_str("key,ap);",VV[21]);}
T1244:;
	{object V383;
	object V384;
	V383= car(cddddr((V312)));
	V384= car((V383));
T1445:;
	if(!(endp((V383)))){
	goto T1446;}
	goto T1441;
T1446:;
	{object V386;
	V386= car((V309));
	V309= cdr((V309));
	V385= (V386);}
	if(eql(small_fixnum(0),V385)){
	goto T1452;}
	(void)((*(LnkLI313))(cadr((V384))));
	goto T1450;
T1452:;
	princ_str("\n	if(",VV[21]);
	V387= structure_ref(cadr((V384)),VV[63],2);
	(void)((*(LnkLI314))(/* INLINE-ARGS */V387));
	princ_str("==0){",VV[21]);
	bds_bind(VV[127],symbol_value(VV[127]));
	bds_bind(VV[128],(VV[128]->s.s_dbind));
	bds_bind(VV[126],symbol_value(VV[126]));
	V388= (*(LnkLI307))(cadr((V384)),caddr((V384)));
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	V389= structure_ref(cadddr((V384)),VV[63],1);
	if((/* INLINE-ARGS */V389)==(VV[160])){
	goto T1464;}
	(void)((*(LnkLI306))(cadddr((V384)),Cnil));
T1464:;
	princ_str("\n	}else{",VV[21]);
	(void)((*(LnkLI313))(cadr((V384))));
	V390= structure_ref(cadddr((V384)),VV[63],1);
	if((/* INLINE-ARGS */V390)==(VV[160])){
	goto T1470;}
	(void)((*(LnkLI306))(cadddr((V384)),Ct));
T1470:;
	princ_char(125,VV[21]);
T1450:;
	V383= cdr((V383));
	V384= car((V383));
	goto T1445;}
T1441:;
	if(((VV[140]->s.s_dbind))==Cnil){
	goto T1479;}
	(VV[128]->s.s_dbind)= make_cons(VV[144],(VV[128]->s.s_dbind));
	princ_str("\nTTL:;",VV[21]);
T1479:;
	base[5]= caddr(cddr((V305)));
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk300)();
	vs_top=sup;
	princ_char(125,VV[21]);
	if((base[1])==Cnil){
	goto T1489;}
	princ_str("\n	}",VV[21]);
T1489:;
	(void)((*(LnkLI315))());
	V391= get((V303),VV[72],Cnil);
	{object V392 = (*(LnkLI301))((V318),V391);
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR24(V392)}}}
}
/*	local entry for function T3DEFUN-NORMAL	*/

static object LI26(V397,V398,V399,V400)

object V397;register object V398;object V399;object V400;
{	 VMB25 VMS25 VMV25
TTL:;
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[165],(V397))));
	if(!(type_of((V398))==t_fixnum||
type_of((V398))==t_bignum||
type_of((V398))==t_ratio||
type_of((V398))==t_shortfloat||
type_of((V398))==t_longfloat||
type_of((V398))==t_complex)){
	goto T1498;}
	princ_str("\nstatic L",VV[21]);
	(void)((*(LnkLI260))((V398)));
	princ_str("()",VV[21]);
	goto T1496;
T1498:;
	princ_char(10,VV[21]);
	(void)((*(LnkLI260))((V398)));
	princ_str("()",VV[21]);
T1496:;
	princ_str("\n{",VV[21]);
	princ_str("register object *",VV[21]);
	(void)((*(LnkLI260))(symbol_value(VV[16])));
	princ_str("base=vs_base;",VV[21]);
	V401= structure_ref(cadr((V399)),VV[56],1);
	(void)((*(LnkLI299))(/* INLINE-ARGS */V401,(V398),VV[142]));
	princ_str("\n	register object *",VV[21]);
	(void)((*(LnkLI260))(symbol_value(VV[16])));
	princ_str("sup=base+VM",VV[21]);
	(void)((*(LnkLI260))(symbol_value(VV[130])));
	princ_char(59,VV[21]);
	princ_str(" VC",VV[21]);
	(void)((*(LnkLI260))(symbol_value(VV[130])));
	if((symbol_value(VV[150]))==Cnil){
	goto T1523;}
	princ_str("\n	vs_reserve(VM",VV[21]);
	(void)((*(LnkLI260))(symbol_value(VV[130])));
	princ_str(");",VV[21]);
	goto T1521;
T1523:;
	princ_str("\n	vs_check;",VV[21]);
T1521:;
	if(((V400))==Cnil){
	goto T1529;}
	princ_str("\n	bds_check;",VV[21]);
T1529:;
	if((symbol_value(VV[143]))==Cnil){
	goto T1533;}
	princ_str("\n	ihs_check;",VV[21]);
T1533:;
	(void)((VFUN_NARGS=3,(*(LnkLI316))(caddr((V399)),caddr(cddr((V399))),(V397))));
	princ_str("\n}",VV[21]);
	V402= make_cons(symbol_value(VV[130]),symbol_value(VV[124]));
	setq(VV[29],make_cons(/* INLINE-ARGS */V402,symbol_value(VV[29])));
	princ_str("\n#define VC",VV[27]);
	(void)((*(LnkLI263))(symbol_value(VV[130])));
	{object V403 = (*(LnkLI317))();
	VMR25(V403)}
}
/*	local entry for function WT-V*-MACROS	*/

static object LI27(V406,V407)

register object V406;object V407;
{	 VMB26 VMS26 VMV26
TTL:;
	V408= make_cons((V406),symbol_value(VV[124]));
	setq(VV[29],make_cons(/* INLINE-ARGS */V408,symbol_value(VV[29])));
	if(!(number_compare(small_fixnum(0),symbol_value(VV[124]))==0)){
	goto T1549;}
	if((symbol_value(VV[132]))!=Cnil){
	goto T1549;}
	if((symbol_value(VV[134]))!=Cnil){
	goto T1549;}
	princ_str("\n#define VMB",VV[27]);
	(void)((*(LnkLI263))((V406)));
	goto T1547;
T1549:;
	princ_str("\n#define VMB",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_char(32,VV[27]);
	princ_str("register object *",VV[27]);
	(void)((*(LnkLI263))(symbol_value(VV[16])));
	princ_str("base=vs_top;",VV[27]);
T1547:;
	(void)((*(LnkLI317))());
	if((symbol_value(VV[132]))==Cnil){
	goto T1566;}
	princ_str("\n#define VMS",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_char(32,VV[27]);
	princ_str(" register object *",VV[27]);
	(void)((*(LnkLI263))(symbol_value(VV[16])));
	princ_str("sup=vs_top+",VV[27]);
	(void)((*(LnkLI263))(symbol_value(VV[124])));
	princ_str(";vs_top=sup;",VV[27]);
	goto T1564;
T1566:;
	if(!(number_compare(small_fixnum(0),symbol_value(VV[124]))==0)){
	goto T1577;}
	princ_str("\n#define VMS",VV[27]);
	(void)((*(LnkLI263))((V406)));
	goto T1564;
T1577:;
	princ_str("\n#define VMS",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str(" vs_top += ",VV[27]);
	(void)((*(LnkLI263))(symbol_value(VV[124])));
	princ_char(59,VV[27]);
T1564:;
	if(!(number_compare(small_fixnum(0),symbol_value(VV[124]))==0)){
	goto T1588;}
	princ_str("\n#define VMV",VV[27]);
	(void)((*(LnkLI263))((V406)));
	goto T1586;
T1588:;
	if((symbol_value(VV[150]))==Cnil){
	goto T1593;}
	princ_str("\n#define VMV",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str(" vs_reserve(",VV[27]);
	(void)((*(LnkLI263))(symbol_value(VV[124])));
	princ_str(");",VV[27]);
	goto T1586;
T1593:;
	princ_str("\n#define VMV",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str(" vs_check;",VV[27]);
T1586:;
	if(!(number_compare(small_fixnum(0),symbol_value(VV[124]))==0)){
	goto T1604;}
	princ_str("\n#define VMR",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str("(VMT",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str(") return(VMT",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str(");",VV[27]);
	{object V409 = Cnil;
	VMR26(V409)}
T1604:;
	princ_str("\n#define VMR",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str("(VMT",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str(") vs_top=base ; return(VMT",VV[27]);
	(void)((*(LnkLI263))((V406)));
	princ_str(");",VV[27]);
	{object V410 = Cnil;
	VMR26(V410)}
}
/*	local entry for function WT-REQUIREDS	*/

static object LI28(V413,V414)

object V413;object V414;
{	 VMB27 VMS27 VMV27
TTL:;
	{object V415;
	V415= (V413);
T1623:;
	if(!(endp((V415)))){
	goto T1624;}
	goto T1620;
T1624:;
	{object V416;
	setq(VV[82],number_plus(symbol_value(VV[82]),small_fixnum(1)));
	V416= symbol_value(VV[82]);
	(void)(structure_set(car((V415)),VV[63],4,(V416)));
	princ_char(86,VV[21]);
	(void)((*(LnkLI260))((V416)));}
	if(endp(cdr((V415)))){
	goto T1634;}
	princ_char(44,VV[21]);
T1634:;
	V415= cdr((V415));
	goto T1623;}
T1620:;
	princ_str(")\n",VV[21]);
	if(((V413))==Cnil){
	goto T1644;}
	princ_char(10,VV[21]);
	{object V417;
	object V418;
	object V419;
	V417= (V413);
	V418= (V414);
	V419= Cnil;
T1651:;
	if(!(endp((V417)))){
	goto T1652;}
	princ_char(59,VV[21]);
	{object V420 = Cnil;
	VMR27(V420)}
T1652:;
	if(((V419))==Cnil){
	goto T1657;}
	princ_char(59,VV[21]);
T1657:;
	(void)((*(LnkLI260))(symbol_value(VV[16])));
	V421= (*(LnkLI318))(car((V417)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V421));
	V422= (*(LnkLI266))(car((V418)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V422));
	V419= car((V418));
	princ_char(86,VV[21]);
	V423= structure_ref(car((V417)),VV[63],4);
	(void)((*(LnkLI260))(/* INLINE-ARGS */V423));
	V417= cdr((V417));
	V418= cdr((V418));
	goto T1651;}
T1644:;
	{object V424 = Cnil;
	VMR27(V424)}
}
/*	local entry for function ADD-DEBUG-INFO	*/

static object LI29(V427,V428)

object V427;object V428;
{	 VMB28 VMS28 VMV28
TTL:;
	{object V429;
	V429= Cnil;
	{object V430;
	V430= (number_compare(symbol_value(VV[108]),small_fixnum(2))>=0?Ct:Cnil);
	if(((V430))==Cnil){
	goto T1677;}
	{object V431 = (V430);
	VMR28(V431)}
T1677:;
	if((get((V427),VV[109],Cnil))!=Cnil){
	goto T1680;}
	{object V432 = (VFUN_NARGS=2,(*(LnkLI319))(VV[166],(V427)));
	VMR28(V432)}
T1680:;
	(void)(remprop((V427),VV[109]));
	{object V433;
	V433= small_fixnum(0);
	{object V434;
	object V435;
	V434= structure_ref(cadr((V428)),VV[56],1);
	V435= car((V434));
T1688:;
	if(!(endp((V434)))){
	goto T1689;}
	goto T1684;
T1689:;
	V436= structure_ref((V435),VV[63],2);
	if(!(type_of(/* INLINE-ARGS */V436)==t_cons)){
	goto T1693;}
	V437= structure_ref((V435),VV[63],2);
	base[0]= cdr(/* INLINE-ARGS */V437);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk292)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1693;}
	V438= structure_ref((V435),VV[63],2);
	{object V439= cdr(/* INLINE-ARGS */V438);
	V433= (number_compare((V433),V439)>=0?((V433)):V439);}
T1693:;
	V434= cdr((V434));
	V435= car((V434));
	goto T1688;}
T1684:;
	base[0]= one_plus((V433));
	vs_top=(vs_base=base+0)+1;
	Lmake_list();
	vs_top=sup;
	V429= vs_base[0];
	{object V440;
	object V441;
	V440= structure_ref(cadr((V428)),VV[56],1);
	V441= car((V440));
T1712:;
	if(!(endp((V440)))){
	goto T1713;}
	goto T1708;
T1713:;
	V442= structure_ref((V441),VV[63],2);
	if(!(type_of(/* INLINE-ARGS */V442)==t_cons)){
	goto T1717;}
	V443= structure_ref((V441),VV[63],2);
	base[0]= cdr(/* INLINE-ARGS */V443);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk292)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1717;}
	{object V444;
	object V445;
	object V446;
	V447= structure_ref((V441),VV[63],2);
	V444= cdr(/* INLINE-ARGS */V447);
	V445= (V429);
	V446= structure_ref((V441),VV[63],0);
	if(type_of(nthcdr(fixint((V444)),(V445)))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V444)),(V445)));
	(nthcdr(fixint((V444)),(V445)))->c.c_car = (V446);
	(void)(nthcdr(fixint((V444)),(V445)));}
T1717:;
	V440= cdr((V440));
	V441= car((V440));
	goto T1712;}
T1708:;
	(void)(sputprop((V427),VV[110],(V429)));
	{object V448;
	V448= get((V427),VV[110],Cnil);
	if(((V448))==Cnil){
	goto T1735;}
	if((cdr((V448)))!=Cnil){
	goto T1734;}
	if((car((V448)))==Cnil){
	goto T1735;}
T1734:;
	V449= list(2,VV[85],(V427));
	V450= list(3,VV[110],/* INLINE-ARGS */V449,list(2,VV[85],(V448)));
	{object V451 = (VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V450));
	VMR28(V451)}
T1735:;
	{object V452 = Cnil;
	VMR28(V452)}}}}}
}
/*	local entry for function ANALYZE-REGS	*/

static int LI30(V455,V456)

object V455;object V456;
{	 VMB29 VMS29 VMV29
TTL:;
	{object V457;
	V457= number_minus(symbol_value(VV[167]),(V456));
	if(!(number_compare(small_fixnum(0),symbol_value(VV[168]))==0)){
	goto T1743;}
	V458= (VFUN_NARGS=1,(*(LnkLI321))((V455)));
	{int V459 = (*(LnkLI320))(/* INLINE-ARGS */V458,(V457));
	VMR29(V459)}
T1743:;
	{object V460;
	object V461;
	V460= Cnil;
	V461= Cnil;
	{object V462;
	object V463;
	V462= (V455);
	V463= car((V462));
T1751:;
	if(!(endp((V462)))){
	goto T1752;}
	goto T1747;
T1752:;
	V465= structure_ref((V463),VV[63],5);
	{register object x= /* INLINE-ARGS */V465,V464= VV[169];
	while(!endp(V464))
	if(x==(V464->c.c_car)){
	goto T1759;
	}else V464=V464->c.c_cdr;
	goto T1758;}
T1759:;
	{register object x= (V463),V466= (V461);
	while(!endp(V466))
	if(eql(x,V466->c.c_car)){
	base[0]= V466;
	goto T1761;
	}else V466=V466->c.c_cdr;
	base[0]= Cnil;}
T1761:;
	if(base[0]==Cnil)goto T1760;
	goto T1756;
T1760:;
	V461= make_cons((V463),(V461));
	goto T1756;
T1758:;
	{register object x= (V463),V467= (V460);
	while(!endp(V467))
	if(x==(V467->c.c_car)){
	base[0]= V467;
	goto T1764;
	}else V467=V467->c.c_cdr;
	base[0]= Cnil;}
T1764:;
	if(base[0]==Cnil)goto T1763;
	goto T1756;
T1763:;
	V461= make_cons((V463),(V461));
T1756:;
	V462= cdr((V462));
	V463= car((V462));
	goto T1751;}
T1747:;
	(void)((*(LnkLI320))((V460),(V457)));
	{int V468 = (*(LnkLI320))((V461),symbol_value(VV[168]));
	VMR29(V468)}}}
}
/*	local entry for function ANALYZE-REGS1	*/

static int LI31(V471,V472)

object V471;object V472;
{	 VMB30 VMS30 VMV30
TTL:;
	{int V473;
	int V474;
	int V475;
	int V476;
	int V477;
	V473= 0;
	V474= 3;
	V475= 100000;
	V476= fix((V472));
	V477= 0;
	V471= (VFUN_NARGS=1,(*(LnkLI321))((V471)));
T1780:;
	{object V478;
	object V479;
	V478= (V471);
	V479= car((V478));
T1786:;
	if(!(endp((V478)))){
	goto T1787;}
	goto T1782;
T1787:;
	V473= fix(structure_ref((V479),VV[63],6));
	if(!((V473)>=(V474))){
	goto T1793;}
	V477= (V477)+(1);
	if(!((V473)<(V475))){
	goto T1798;}
	V475= V473;
T1798:;
	if(!((V477)>(V476))){
	goto T1793;}
	goto T1781;
T1793:;
	V478= cdr((V478));
	V479= car((V478));
	goto T1786;}
T1782:;
	if(!((V477)<(V476))){
	goto T1809;}
	V474= (V474)-(1);
T1809:;
	{object V480;
	object V481;
	V480= (V471);
	V481= car((V480));
T1817:;
	if(!(endp((V480)))){
	goto T1818;}
	goto T1813;
T1818:;
	{int V482= fix(structure_ref((V481),VV[63],6));
	if(!((/* INLINE-ARGS */V482)<(V474))){
	goto T1822;}}
	(void)(structure_set((V481),VV[63],6,small_fixnum(0)));
T1822:;
	V480= cdr((V480));
	V481= car((V480));
	goto T1817;}
T1813:;
	{int V483 = V474;
	VMR30(V483)}
T1781:;
	V477= 0;
	V474= (V475)+(1);
	V475= 1000000;
	goto T1780;}
}
/*	local entry for function WT-GLOBAL-ENTRY	*/

static object LI32(V488,V489,V490,V491)

object V488;object V489;object V490;object V491;
{	 VMB31 VMS31 VMV31
TTL:;
	if((get((V488),VV[96],Cnil))==Cnil){
	goto T1837;}
	{object V492 = Cnil;
	VMR31(V492)}
T1837:;
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[172],(V488))));
	princ_str("\nstatic L",VV[21]);
	(void)((*(LnkLI260))((V489)));
	princ_str("()",VV[21]);
	princ_str("\n{	register object *base=vs_base;",VV[21]);
	if((symbol_value(VV[150]))!=Cnil){
	goto T1848;}
	if((symbol_value(VV[151]))==Cnil){
	goto T1847;}
T1848:;
	princ_str("\n	check_arg(",VV[21]);
	V493 = make_fixnum(length((V490)));
	(void)((*(LnkLI260))(V493));
	princ_str(");",VV[21]);
T1847:;
	princ_str("\n	base[0]=",VV[21]);
	{object V495= (V491);
	if((V495!= VV[83]))goto T1859;
	if(!(number_compare(small_fixnum(0),symbol_value(VV[108]))==0)){
	goto T1861;}
	V494= VV[173];
	goto T1858;
T1861:;
	V494= VV[174];
	goto T1858;
T1859:;
	if((V495!= VV[136]))goto T1863;
	V494= VV[175];
	goto T1858;
T1863:;
	if((V495!= VV[137]))goto T1864;
	V494= VV[176];
	goto T1858;
T1864:;
	if((V495!= VV[138]))goto T1865;
	V494= VV[177];
	goto T1858;
T1865:;
	V494= VV[178];}
T1858:;
	(void)((*(LnkLI260))(V494));
	princ_str("(LI",VV[21]);
	(void)((*(LnkLI260))((V489)));
	princ_char(40,VV[21]);
	{object V496;
	int V497;
	V496= (V490);
	V497= 0;
T1873:;
	if(!(endp((V496)))){
	goto T1874;}
	goto T1869;
T1874:;
	{object V499= car((V496));
	if((V499!= VV[83]))goto T1881;
	V498= VV[179];
	goto T1880;
T1881:;
	if((V499!= VV[136]))goto T1882;
	V498= VV[180];
	goto T1880;
T1882:;
	if((V499!= VV[137]))goto T1883;
	V498= VV[181];
	goto T1880;
T1883:;
	if((V499!= VV[138]))goto T1884;
	V498= VV[182];
	goto T1880;
T1884:;
	V498= VV[183];}
T1880:;
	(void)((*(LnkLI260))(V498));
	princ_str("(base[",VV[21]);
	V500 = make_fixnum(V497);
	(void)((*(LnkLI260))(V500));
	princ_str("])",VV[21]);
	if(endp(cdr((V496)))){
	goto T1888;}
	princ_char(44,VV[21]);
T1888:;
	V496= cdr((V496));
	V497= (V497)+1;
	goto T1873;}
T1869:;
	princ_str("));",VV[21]);
	princ_str("\n	vs_top=(vs_base=base)+1;",VV[21]);
	princ_str("\n}",VV[21]);
	{object V501 = Cnil;
	VMR31(V501)}
}
/*	local entry for function REP-TYPE	*/

static object LI33(V503)

object V503;
{	 VMB32 VMS32 VMV32
TTL:;
	{object V504= (V503);
	if((V504!= VV[83]))goto T1901;
	{object V505 = VV[184];
	VMR32(V505)}
T1901:;
	if((V504!= VV[247]))goto T1902;
	{object V506 = VV[185];
	VMR32(V506)}
T1902:;
	if((V504!= VV[136]))goto T1903;
	{object V507 = VV[186];
	VMR32(V507)}
T1903:;
	if((V504!= VV[138]))goto T1904;
	{object V508 = VV[187];
	VMR32(V508)}
T1904:;
	if((V504!= VV[137]))goto T1905;
	{object V509 = VV[188];
	VMR32(V509)}
T1905:;
	{object V510 = VV[189];
	VMR32(V510)}}
}
/*	local entry for function T1DEFMACRO	*/

static object LI34(V512)

register object V512;
{	 VMB33 VMS33 VMV33
	bds_check;
TTL:;
	if(endp((V512))){
	goto T1907;}
	if(!(endp(cdr((V512))))){
	goto T1906;}
T1907:;
	V513 = make_fixnum(length((V512)));
	(void)((*(LnkLI268))(VV[190],small_fixnum(2),V513));
T1906:;
	if(type_of(car((V512)))==t_symbol){
	goto T1911;}
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[191],car((V512)))));
T1911:;
	V514= make_cons(VV[190],(V512));
	(void)((*(LnkLI253))(Ct,/* INLINE-ARGS */V514));
	setq(VV[6],Ct);
	{object V515;
	object V516;
	V515= Cnil;
	setq(VV[55],number_plus(symbol_value(VV[55]),small_fixnum(1)));
	V516= symbol_value(VV[55]);
	bds_bind(VV[48],Cnil);
	bds_bind(VV[49],Cnil);
	bds_bind(VV[50],Cnil);
	bds_bind(VV[51],Cnil);
	bds_bind(VV[52],Cnil);
	bds_bind(VV[53],Cnil);
	V515= (*(LnkLI322))(car((V512)),cadr((V512)),cddr((V512)));
	(void)((*(LnkLI278))());
	V517= list(7,VV[190],car((V512)),(V516),cddr((V515)),car((V515)),cadr((V515)),(VV[53]->s.s_dbind));
	setq(VV[20],make_cons(/* INLINE-ARGS */V517,symbol_value(VV[20])));
	{object V518 = symbol_value(VV[20]);
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR33(V518)}}
}
/*	local entry for function T2DEFMACRO	*/

static object LI35(V525,V526,V527,V528,V529,V530)

object V525;object V526;object V527;object V528;object V529;object V530;
{	 VMB34 VMS34 VMV34
TTL:;
	if(((V528))==Cnil){
	goto T1924;}
	V531= list(4,VV[97],list(2,VV[85],(V525)),(V528),VV[192]);
	(void)((VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V531)));
T1924:;
	if(((V529))==Cnil){
	goto T1927;}
	V532= list(2,VV[85],(V525));
	V533= list(4,VV[97],/* INLINE-ARGS */V532,list(2,VV[85],(V529)),VV[193]);
	(void)((VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V533)));
T1927:;
	princ_str("\nstatic L",VV[27]);
	(void)((*(LnkLI263))((V526)));
	princ_str("();",VV[27]);
	V534= list(2,VV[85],(V525));
	V535= list(3,VV[194],/* INLINE-ARGS */V534,(*(LnkLI286))(VV[195],(V526)));
	{object V536 = (VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V535));
	VMR34(V536)}
}
/*	local entry for function T3DEFMACRO	*/

static object LI36(V543,V544,V545,V546,V547,V548)

object V543;object V544;register object V545;object V546;object V547;object V548;
{	 VMB35 VMS35 VMV35
	bds_check;
TTL:;
	if((get((V543),VV[196],Cnil))==Cnil){
	goto T1936;}
	bds_bind(VV[16],VV[197]);
	goto T1934;
T1936:;
	bds_bind(VV[16],VV[198]);
T1934:;
	bds_bind(VV[122],VV[121]);
	bds_bind(VV[14],Cnil);
	bds_bind(VV[123],small_fixnum(0));
	bds_bind(VV[124],small_fixnum(0));
	bds_bind(VV[125],small_fixnum(0));
	bds_bind(VV[126],small_fixnum(0));
	bds_bind(VV[127],Cnil);
	bds_bind(VV[128],make_cons((VV[122]->s.s_dbind),Cnil));
	bds_bind(VV[129],(VV[122]->s.s_dbind));
	setq(VV[131],number_plus(symbol_value(VV[131]),small_fixnum(1)));
	bds_bind(VV[130],symbol_value(VV[131]));
	bds_bind(VV[132],Cnil);
	bds_bind(VV[133],Cnil);
	bds_bind(VV[134],Cnil);
	bds_bind(VV[135],small_fixnum(0));
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[199],(V543))));
	princ_str("\nstatic L",VV[21]);
	(void)((*(LnkLI260))((V544)));
	princ_str("()",VV[21]);
	princ_str("\n{register object *",VV[21]);
	(void)((*(LnkLI260))((VV[16]->s.s_dbind)));
	princ_str("base=vs_base;",VV[21]);
	V549= structure_ref(car(cddddr((V545))),VV[56],1);
	(void)((*(LnkLI299))(/* INLINE-ARGS */V549,(V544),VV[142]));
	princ_str("\n	register object *",VV[21]);
	(void)((*(LnkLI260))((VV[16]->s.s_dbind)));
	princ_str("sup=base+VM",VV[21]);
	(void)((*(LnkLI260))((VV[130]->s.s_dbind)));
	princ_char(59,VV[21]);
	princ_str(" VC",VV[21]);
	(void)((*(LnkLI260))((VV[130]->s.s_dbind)));
	if((symbol_value(VV[150]))==Cnil){
	goto T1962;}
	princ_str("\n	vs_reserve(VM",VV[21]);
	(void)((*(LnkLI260))((VV[130]->s.s_dbind)));
	princ_str(");",VV[21]);
	goto T1960;
T1962:;
	princ_str("\n	vs_check;",VV[21]);
T1960:;
	if(((V548))==Cnil){
	goto T1968;}
	princ_str("\n	bds_check;",VV[21]);
T1968:;
	if((symbol_value(VV[143]))==Cnil){
	goto T1972;}
	princ_str("\n	ihs_check;",VV[21]);
T1972:;
	base[15]= car((V545));
	base[16]= cadr((V545));
	base[17]= caddr((V545));
	base[18]= cadddr((V545));
	vs_top=(vs_base=base+15)+4;
	(void) (*Lnk323)();
	vs_top=sup;
	princ_str("\n}",VV[21]);
	V550= make_cons((VV[130]->s.s_dbind),(VV[124]->s.s_dbind));
	setq(VV[29],make_cons(/* INLINE-ARGS */V550,symbol_value(VV[29])));
	princ_str("\n#define VC",VV[27]);
	(void)((*(LnkLI263))((VV[130]->s.s_dbind)));
	{object V551 = (*(LnkLI317))();
	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;
	VMR35(V551)}
}
/*	local entry for function T1ORDINARY	*/

static object LI37(V553)

register object V553;
{	 VMB36 VMS36 VMV36
	bds_check;
TTL:;
	{object V554;
	V554= Cnil;
	setq(VV[6],Ct);
	if((symbol_value(VV[42]))==Cnil){
	goto T1992;}
	(void)((*(LnkLI253))(Cnil,(V553)));
	{object V555;
	base[0]= VV[200];
	vs_top=(vs_base=base+0)+1;
	Lgensym();
	vs_top=sup;
	V555= vs_base[0];
	V556= listA(3,VV[58],(V555),VV[201]);
	(void)((*(LnkLI274))(/* INLINE-ARGS */V556));
	base[0]= list(5,VV[45],(V555),Cnil,(V553),Cnil);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk257)();
	vs_top=sup;
	V557= list(2,VV[202],make_cons((V555),Cnil));
	setq(VV[20],make_cons(/* INLINE-ARGS */V557,symbol_value(VV[20])));
	{object V558 = symbol_value(VV[20]);
	VMR36(V558)}}
T1992:;
	{object V559;
	if(type_of((V553))==t_cons){
	goto T2002;}
	V559= Cnil;
	goto T2001;
T2002:;
	if(type_of(car((V553)))==t_symbol){
	goto T2004;}
	V559= Cnil;
	goto T2001;
T2004:;
	if(!((car((V553)))==(VV[203]))){
	goto T2008;}
	goto T2006;
T2008:;
	base[1]= car((V553));
	vs_top=(vs_base=base+1)+1;
	Lspecial_form_p();
	vs_top=sup;
	V560= vs_base[0];
	if((V560)==Cnil){
	goto T2006;}
	V559= Cnil;
	goto T2001;
T2006:;
	{object V561;
	int V562;
	V561= cdr((V553));
	V562= 1;
T2015:;
	if((V562)>=(1000)){
	goto T2017;}
	if(type_of((V561))==t_cons){
	goto T2016;}
T2017:;
	V559= Cnil;
	goto T2001;
T2016:;
	if(!(type_of(car((V561)))==t_cons)){
	goto T2022;}
	if(!((caar((V561)))==(VV[58]))){
	goto T2022;}
	V554= cadr(car((V561)));
	if(!(type_of((V554))==t_cons)){
	goto T2022;}
	if(!((car((V554)))==(VV[204]))){
	goto T2022;}
	{object V563;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V563= vs_base[0];
	base[0]= listA(3,VV[45],(V563),cdr((V554)));
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk257)();
	vs_top=sup;
	base[1]= (V553);
	base[2]= small_fixnum(0);
	base[3]= make_fixnum(V562);
	vs_top=(vs_base=base+1)+3;
	Lsubseq();
	vs_top=sup;
	base[0]= vs_base[0];
	V564= list(2,VV[205],list(2,VV[85],(V563)));
	base[1]= make_cons(/* INLINE-ARGS */V564,Cnil);
	{ save_avma;
	V565 = stoi(V562);
	V566= make_integer(addii(stoi(1),V565));
	base[2]= nthcdr(fixint(/* INLINE-ARGS */V566),(V553));restore_avma;}
	vs_top=(vs_base=base+0)+3;
	Lappend();
	vs_top=sup;
	V553= vs_base[0];
	goto TTL;}
T2022:;
	if(type_of((V561))==t_cons){
	goto T2045;}
	V561= Cnil;
	goto T2044;
T2045:;
	V561= cdr((V561));
T2044:;
	V562= (1)+(V562);
	goto T2015;}
T2001:;
	if(((V559))==Cnil){
	goto T2050;}
	{object V567 = (V559);
	VMR36(V567)}
T2050:;
	(void)((*(LnkLI253))(Cnil,(V553)));
	bds_bind(VV[48],Cnil);
	bds_bind(VV[49],Cnil);
	bds_bind(VV[50],Cnil);
	bds_bind(VV[51],Cnil);
	bds_bind(VV[52],Cnil);
	V568= list(2,VV[202],(V553));
	setq(VV[20],make_cons(/* INLINE-ARGS */V568,symbol_value(VV[20])));
	{object V569 = Cnil;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	VMR36(V569)}}}
}
/*	local entry for function T2ORDINARY	*/

static object LI38(V571)

object V571;
{	 VMB37 VMS37 VMV37
TTL:;
	{object V572;
	V572= (type_of((V571))!=t_cons?Ct:Cnil);
	if(((V572))==Cnil){
	goto T2057;}
	{object V573 = (V572);
	VMR37(V573)}
T2057:;
	{object V574;
	base[0]= (V571);
	vs_top=(vs_base=base+0)+1;
	Lconstantp();
	vs_top=sup;
	V574= vs_base[0];
	if(((V574))==Cnil){
	goto T2062;}
	{object V575 = (V574);
	VMR37(V575)}
T2062:;
	{object V576 = (VFUN_NARGS=1,(*(LnkLI285))((V571)));
	VMR37(V576)}}}
}
/*	local entry for function ADD-LOAD-TIME-SHARP-COMMA	*/

static object LI39()

{	 VMB38 VMS38 VMV38
TTL:;
	{object V577;
	object V578;
	V577= reverse(symbol_value(VV[52]));
	V578= car((V577));
T2067:;
	if(!(endp((V577)))){
	goto T2068;}
	{object V579 = Cnil;
	VMR38(V579)}
T2068:;
	if(!(type_of((V578))!=t_cons)){
	goto T2072;}
	(void)((*(LnkLI324))());
T2072:;
	V580= make_cons(VV[206],(V578));
	setq(VV[20],make_cons(/* INLINE-ARGS */V580,symbol_value(VV[20])));
	V577= cdr((V577));
	V578= car((V577));
	goto T2067;}
}
/*	local entry for function T2SHARP-COMMA	*/

static object LI40(V583,V584)

object V583;object V584;
{	 VMB39 VMS39 VMV39
TTL:;
	V585= list(3,VV[207],(V583),(V584));
	{object V586 = (VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V585));
	VMR39(V586)}
}
/*	local entry for function T2DECLARE	*/

static object LI41(V588)

object V588;
{	 VMB40 VMS40 VMV40
TTL:;
	{object V589 = (*(LnkLI324))();
	VMR40(V589)}
}
/*	local entry for function T1DEFINE-STRUCTURE	*/

static object LI42(V591)

object V591;
{	 VMB41 VMS41 VMV41
TTL:;
	V592= (*(LnkLI253))(Cnil,Cnil);
	V593= make_cons(((/* INLINE-ARGS */V592)==Cnil?Ct:Cnil),Cnil);
	V594= append((V591),/* INLINE-ARGS */V593);
	V595= make_cons(VV[208],/* INLINE-ARGS */V594);
	(void)((*(LnkLI253))(Ct,/* INLINE-ARGS */V595));
	V596= make_cons(VV[208],(V591));
	{object V597 = (*(LnkLI258))(/* INLINE-ARGS */V596);
	VMR41(V597)}
}
/*	local entry for function SET-DBIND	*/

static object LI43(V600,V601)

object V600;object V601;
{	 VMB42 VMS42 VMV42
TTL:;
	princ_str("\n	VV[",VV[21]);
	(void)((*(LnkLI260))((V601)));
	princ_str("]->s.s_dbind = ",VV[21]);
	(void)((*(LnkLI260))((V600)));
	princ_char(59,VV[21]);
	{object V602 = Cnil;
	VMR42(V602)}
}
/*	local entry for function T1CLINES	*/

static object LI44(V604)

object V604;
{	 VMB43 VMS43 VMV43
TTL:;
	{object V605;
	object V606;
	V605= (V604);
	V606= car((V605));
T2093:;
	if(!(endp((V605)))){
	goto T2094;}
	goto T2089;
T2094:;
	if(type_of((V606))==t_string){
	goto T2098;}
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[209],(V606))));
T2098:;
	V605= cdr((V605));
	V606= car((V605));
	goto T2093;}
T2089:;
	V607= list(2,VV[210],(V604));
	setq(VV[20],make_cons(/* INLINE-ARGS */V607,symbol_value(VV[20])));
	{object V608 = symbol_value(VV[20]);
	VMR43(V608)}
}
/*	local entry for function T3CLINES	*/

static object LI45(V610)

object V610;
{	 VMB44 VMS44 VMV44
TTL:;
	{object V611;
	object V612;
	V611= (V610);
	V612= car((V611));
T2110:;
	if(!(endp((V611)))){
	goto T2111;}
	{object V613 = Cnil;
	VMR44(V613)}
T2111:;
	princ_char(10,VV[21]);
	(void)((*(LnkLI260))((V612)));
	V611= cdr((V611));
	V612= car((V611));
	goto T2110;}
}
/*	local entry for function T1DEFCFUN	*/

static object LI46(V615)

register object V615;
{	 VMB45 VMS45 VMV45
TTL:;
	{object V616;
	V616= Cnil;
	if(endp((V615))){
	goto T2125;}
	if(!(endp(cdr((V615))))){
	goto T2124;}
T2125:;
	V617 = make_fixnum(length((V615)));
	(void)((*(LnkLI268))(VV[211],small_fixnum(2),V617));
T2124:;
	if(type_of(car((V615)))==t_string){
	goto T2129;}
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[212],car((V615)))));
T2129:;
	{object V618= cadr((V615));
	if(type_of(V618)==t_fixnum||
type_of(V618)==t_bignum||
type_of(V618)==t_ratio||
type_of(V618)==t_shortfloat||
type_of(V618)==t_longfloat||
type_of(V618)==t_complex){
	goto T2132;}}
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[213],cadr((V615)))));
T2132:;
	{object V619;
	object V620;
	V619= cddr((V615));
	V620= car((V619));
T2139:;
	if(!(endp((V619)))){
	goto T2140;}
	goto T2135;
T2140:;
	if(!(type_of((V620))==t_string)){
	goto T2146;}
	V616= make_cons((V620),(V616));
	goto T2144;
T2146:;
	if(!(type_of((V620))==t_cons)){
	goto T2150;}
	if(!(type_of(car((V620)))==t_symbol)){
	goto T2153;}
	base[0]= car((V620));
	vs_top=(vs_base=base+0)+1;
	Lspecial_form_p();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T2155;}
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[214],car((V620)))));
T2155:;
	V621= car((V620));
	V622= (*(LnkLI325))(cdr((V620)));
	V623= make_cons(/* INLINE-ARGS */V621,/* INLINE-ARGS */V622);
	V624= make_cons(/* INLINE-ARGS */V623,Cnil);
	V616= make_cons(/* INLINE-ARGS */V624,(V616));
	goto T2144;
T2153:;
	if(!(type_of(car((V620)))==t_cons)){
	goto T2161;}
	if(!(type_of(caar((V620)))==t_symbol)){
	goto T2161;}
	if(!((caar((V620)))==(VV[85]))){
	goto T2168;}
	if(!(endp(cdar((V620))))){
	goto T2170;}
	goto T2161;
T2170:;
	if(!(((endp(cddar((V620)))?Ct:Cnil))==Cnil)){
	goto T2172;}
	goto T2161;
T2172:;
	if(!(endp(cdr((V620))))){
	goto T2174;}
	goto T2161;
T2174:;
	if(((endp(cddr((V620)))?Ct:Cnil))==Cnil){
	goto T2161;}
	goto T2166;
T2168:;
	base[0]= caar((V620));
	vs_top=(vs_base=base+0)+1;
	Lspecial_form_p();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T2161;}
T2166:;
	V625= caar((V620));
	if(!((caar((V620)))==(VV[85]))){
	goto T2180;}
	V627= (*(LnkLI310))(cadar((V620)));
	V626= make_cons(/* INLINE-ARGS */V627,Cnil);
	goto T2178;
T2180:;
	V626= (*(LnkLI325))(cdar((V620)));
T2178:;
	V628= make_cons(/* INLINE-ARGS */V625,V626);
	V629= (*(LnkLI325))(cdr((V620)));
	V630= make_cons(/* INLINE-ARGS */V628,/* INLINE-ARGS */V629);
	V616= make_cons(/* INLINE-ARGS */V630,(V616));
	goto T2144;
T2161:;
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[215],(V620))));
	goto T2144;
T2150:;
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[216],(V620))));
T2144:;
	V619= cdr((V619));
	V620= car((V619));
	goto T2139;}
T2135:;
	V631= car((V615));
	V632= cadr((V615));
	V633= list(4,VV[211],/* INLINE-ARGS */V631,/* INLINE-ARGS */V632,reverse((V616)));
	setq(VV[20],make_cons(/* INLINE-ARGS */V633,symbol_value(VV[20])));
	{object V634 = symbol_value(VV[20]);
	VMR45(V634)}}
}
/*	local entry for function T3DEFCFUN	*/

static object LI47(V638,V639,V640)

object V638;object V639;object V640;
{	 VMB46 VMS46 VMV46
TTL:;
	{object V641;
	V641= Cnil;
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[217],VV[211])));
	princ_char(10,VV[21]);
	(void)((*(LnkLI260))((V638)));
	princ_str("\n{",VV[21]);
	princ_str("\nobject *vs=vs_top;",VV[21]);
	princ_str("\nobject *old_top=vs_top+",VV[21]);
	(void)((*(LnkLI260))((V639)));
	princ_char(59,VV[21]);
	if(!(number_compare((V639),small_fixnum(0))>0)){
	goto T2201;}
	princ_str("\n	vs_top=old_top;",VV[21]);
T2201:;
	princ_str("\n{",VV[21]);
	{object V642;
	object V643;
	V642= (V640);
	V643= car((V642));
T2211:;
	if(!(endp((V642)))){
	goto T2212;}
	goto T2207;
T2212:;
	if(!(type_of((V643))==t_string)){
	goto T2218;}
	princ_char(10,VV[21]);
	(void)((*(LnkLI260))((V643)));
	goto T2216;
T2218:;
	if(!((caar((V643)))==(VV[85]))){
	goto T2223;}
	princ_char(10,VV[21]);
	(void)((*(LnkLI260))(cadadr((V643))));
	{object V644= caadr((V643));
	if((V644!= VV[68]))goto T2228;
	princ_str("=VV[",VV[21]);
	(void)((*(LnkLI260))(cadar((V643))));
	princ_str("];",VV[21]);
	goto T2216;
T2228:;
	princ_str("=object_to_",VV[21]);
	base[0]= symbol_name(caadr((V643)));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V645= vs_base[0];
	(void)((*(LnkLI260))(V645));
	princ_str("(VV[",VV[21]);
	(void)((*(LnkLI260))(cadar((V643))));
	princ_str("]);",VV[21]);
	goto T2216;}
T2223:;
	princ_str("\n{vs_base=vs_top=old_top;",VV[21]);
	{object V646;
	object V647;
	V646= cdar((V643));
	V647= car((V646));
T2245:;
	if(!(endp((V646)))){
	goto T2246;}
	goto T2241;
T2246:;
	princ_str("\nvs_push(",VV[21]);
	{object V648= car((V647));
	if((V648!= VV[68]))goto T2253;
	(void)((*(LnkLI260))(cadr((V647))));
	goto T2252;
T2253:;
	if((V648!= VV[326]))goto T2255;
	princ_str("code_char((int)",VV[21]);
	(void)((*(LnkLI260))(cadr((V647))));
	princ_char(41,VV[21]);
	goto T2252;
T2255:;
	if((V648!= VV[327]))goto T2259;
	if(!(number_compare(small_fixnum(0),symbol_value(VV[108]))==0)){
	goto T2260;}
	princ_str("CMP",VV[21]);
T2260:;
	princ_str("make_fixnum((int)",VV[21]);
	(void)((*(LnkLI260))(cadr((V647))));
	princ_char(41,VV[21]);
	goto T2252;
T2259:;
	if((V648!= VV[328]))goto T2267;
	princ_str("make_shortfloat((double)",VV[21]);
	(void)((*(LnkLI260))(cadr((V647))));
	princ_char(41,VV[21]);
	goto T2252;
T2267:;
	if((V648!= VV[329]))goto T2271;
	princ_str("make_longfloat((double)",VV[21]);
	(void)((*(LnkLI260))(cadr((V647))));
	princ_char(41,VV[21]);
	goto T2252;
T2271:;}
T2252:;
	princ_str(");",VV[21]);
	V646= cdr((V646));
	V647= car((V646));
	goto T2245;}
T2241:;
	{register object x= caar((V643)),V649= symbol_value(VV[73]);
	while(!endp(V649))
	if(type_of(V649->c.c_car)==t_cons &&eql(x,V649->c.c_car->c.c_car)){
	V641= (V649->c.c_car);
	goto T2286;
	}else V649=V649->c.c_cdr;
	V641= Cnil;}
T2286:;
	if(((V641))==Cnil){
	goto T2284;}
	if((symbol_value(VV[143]))==Cnil){
	goto T2288;}
	princ_str("\nihs_push(VV[",VV[21]);
	V650= (*(LnkLI312))(caar((V643)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V650));
	princ_str("]);",VV[21]);
	princ_str("\nL",VV[21]);
	(void)((*(LnkLI260))(cdr((V641))));
	princ_str("();",VV[21]);
	princ_str("\nihs_pop();",VV[21]);
	goto T2282;
T2288:;
	princ_str("\nL",VV[21]);
	(void)((*(LnkLI260))(cdr((V641))));
	princ_str("();",VV[21]);
	goto T2282;
T2284:;
	if((symbol_value(VV[143]))==Cnil){
	goto T2303;}
	princ_str("\nsuper_funcall(VV[",VV[21]);
	V651= (*(LnkLI312))(caar((V643)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V651));
	princ_str("]);",VV[21]);
	goto T2282;
T2303:;
	if((symbol_value(VV[150]))==Cnil){
	goto T2309;}
	princ_str("\nsuper_funcall_no_event(VV[",VV[21]);
	V652= (*(LnkLI312))(caar((V643)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V652));
	princ_str("]);",VV[21]);
	goto T2282;
T2309:;
	princ_str("\nCMPfuncall(VV[",VV[21]);
	V653= (*(LnkLI312))(caar((V643)));
	(void)((*(LnkLI260))(/* INLINE-ARGS */V653));
	princ_str("]->s.s_gfdef);",VV[21]);
T2282:;
	if(endp(cdr((V643)))){
	goto T2317;}
	princ_char(10,VV[21]);
	(void)((*(LnkLI260))(cadadr((V643))));
	{object V654= caadr((V643));
	if((V654!= VV[68]))goto T2324;
	princ_str("=vs_base[0];",VV[21]);
	goto T2323;
T2324:;
	princ_str("=object_to_",VV[21]);
	base[0]= symbol_name(caadr((V643)));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V655= vs_base[0];
	(void)((*(LnkLI260))(V655));
	princ_str("(vs_base[0]);",VV[21]);}
T2323:;
	{object V656;
	object V657;
	V656= cddr((V643));
	V657= car((V656));
T2334:;
	if(!(endp((V656)))){
	goto T2335;}
	goto T2317;
T2335:;
	princ_str("\nvs_base++;",VV[21]);
	princ_char(10,VV[21]);
	(void)((*(LnkLI260))(cadr((V657))));
	{object V658= car((V657));
	if((V658!= VV[68]))goto T2345;
	princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[21]);
	goto T2344;
T2345:;
	princ_str("=object_to_",VV[21]);
	base[0]= symbol_name(car((V657)));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V659= vs_base[0];
	(void)((*(LnkLI260))(V659));
	princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[21]);}
T2344:;
	V656= cdr((V656));
	V657= car((V656));
	goto T2334;}
T2317:;
	princ_str("\n}",VV[21]);
T2216:;
	V642= cdr((V642));
	V643= car((V642));
	goto T2211;}
T2207:;
	princ_str("\n}",VV[21]);
	princ_str("\nvs_top=vs;",VV[21]);
	princ_str("\n}",VV[21]);
	{object V660 = Cnil;
	VMR46(V660)}}
}
/*	local entry for function T1DEFENTRY	*/

static object LI48(V662)

register object V662;
{	 VMB47 VMS47 VMV47
TTL:;
	{object V663;
	object V664;
	object V665;
	object V666;
	V663= Cnil;
	V664= Cnil;
	setq(VV[55],number_plus(symbol_value(VV[55]),small_fixnum(1)));
	V665= symbol_value(VV[55]);
	V666= Cnil;
	if(endp((V662))){
	goto T2374;}
	if(endp(cdr((V662)))){
	goto T2374;}
	if(!(endp(cddr((V662))))){
	goto T2373;}
T2374:;
	V667 = make_fixnum(length((V662)));
	(void)((*(LnkLI268))(VV[218],small_fixnum(3),V667));
T2373:;
	if(type_of(car((V662)))==t_symbol){
	goto T2380;}
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[219],car((V662)))));
T2380:;
	{object V668;
	object V669;
	V668= cadr((V662));
	V669= car((V668));
T2387:;
	if(!(endp((V668)))){
	goto T2388;}
	goto T2383;
T2388:;
	{register object x= (V669),V670= VV[220];
	while(!endp(V670))
	if(eql(x,V670->c.c_car)){
	goto T2392;
	}else V670=V670->c.c_cdr;}
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[221],(V669))));
T2392:;
	V668= cdr((V668));
	V669= car((V668));
	goto T2387;}
T2383:;
	V666= caddr((V662));
	if(!(type_of((V666))==t_symbol)){
	goto T2404;}
	V663= VV[68];
	base[0]= symbol_name((V666));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V664= vs_base[0];
	goto T2402;
T2404:;
	if(!(type_of((V666))==t_string)){
	goto T2411;}
	V663= VV[68];
	V664= (V666);
	goto T2402;
T2411:;
	if(!(type_of((V666))==t_cons)){
	goto T2417;}
	{register object x= car((V666)),V671= VV[222];
	while(!endp(V671))
	if(eql(x,V671->c.c_car)){
	goto T2421;
	}else V671=V671->c.c_cdr;
	goto T2417;}
T2421:;
	if(!(type_of(cdr((V666)))==t_cons)){
	goto T2417;}
	if(type_of(cadr((V666)))==t_symbol){
	goto T2424;}
	if(!(type_of(cadr((V666)))==t_string)){
	goto T2417;}
T2424:;
	if(!(endp(cddr((V666))))){
	goto T2417;}
	if(!(type_of(cadr((V666)))==t_symbol)){
	goto T2432;}
	base[0]= symbol_name(cadr((V666)));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V664= vs_base[0];
	goto T2430;
T2432:;
	V664= cadr((V666));
T2430:;
	V663= car((V666));
	goto T2402;
T2417:;
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[223],(V666))));
T2402:;
	V672= list(6,VV[218],car((V662)),(V665),cadr((V662)),(V663),(V664));
	setq(VV[20],make_cons(/* INLINE-ARGS */V672,symbol_value(VV[20])));
	V673= make_cons(car((V662)),(V665));
	setq(VV[73],make_cons(/* INLINE-ARGS */V673,symbol_value(VV[73])));
	{object V674 = symbol_value(VV[73]);
	VMR47(V674)}}
}
/*	local entry for function T2DEFENTRY	*/

static object LI49(V680,V681,V682,V683,V684)

object V680;object V681;object V682;object V683;object V684;
{	 VMB48 VMS48 VMV48
TTL:;
	princ_str("\nstatic L",VV[27]);
	(void)((*(LnkLI263))((V681)));
	princ_str("();",VV[27]);
	V685= list(2,VV[85],(V680));
	V686= list(3,VV[105],/* INLINE-ARGS */V685,(*(LnkLI286))(VV[224],(V681)));
	{object V687 = (VFUN_NARGS=1,(*(LnkLI285))(/* INLINE-ARGS */V686));
	VMR48(V687)}
}
/*	local entry for function T3DEFENTRY	*/

static object LI50(V693,V694,V695,V696,V697)

object V693;object V694;object V695;register object V696;object V697;
{	 VMB49 VMS49 VMV49
TTL:;
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[225],(V693))));
	princ_str("\nstatic L",VV[21]);
	(void)((*(LnkLI260))((V694)));
	princ_str("()",VV[21]);
	princ_str("\n{	object *old_base=vs_base;",VV[21]);
	{object V698= (V696);
	if((V698!= VV[226]))goto T2451;
	goto T2450;
T2451:;
	if((V698!= VV[330]))goto T2452;
	princ_str("\n	char *x;",VV[21]);
	goto T2450;
T2452:;
	princ_str("\n	",VV[21]);
	base[0]= symbol_name((V696));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V699= vs_base[0];
	(void)((*(LnkLI260))(V699));
	princ_str(" x;",VV[21]);}
T2450:;
	if((symbol_value(VV[150]))==Cnil){
	goto T2459;}
	princ_str("\n	check_arg(",VV[21]);
	V700 = make_fixnum(length((V695)));
	(void)((*(LnkLI260))(V700));
	princ_str(");",VV[21]);
T2459:;
	if(((V696))==(VV[226])){
	goto T2465;}
	princ_str("\n	x=",VV[21]);
T2465:;
	princ_str("\n	",VV[21]);
	(void)((*(LnkLI260))((V697)));
	princ_char(40,VV[21]);
	if(endp((V695))){
	goto T2473;}
	{object V701;
	int V702;
	V701= (V695);
	V702= 0;
T2479:;
	{object V703= car((V701));
	if((V703!= VV[68]))goto T2483;
	princ_str("\n	vs_base[",VV[21]);
	V704 = make_fixnum(V702);
	(void)((*(LnkLI260))(V704));
	princ_char(93,VV[21]);
	goto T2482;
T2483:;
	princ_str("\n	object_to_",VV[21]);
	base[0]= symbol_name(car((V701)));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V705= vs_base[0];
	(void)((*(LnkLI260))(V705));
	princ_str("(vs_base[",VV[21]);
	V706 = make_fixnum(V702);
	(void)((*(LnkLI260))(V706));
	princ_str("])",VV[21]);}
T2482:;
	if(!(endp(cdr((V701))))){
	goto T2494;}
	goto T2473;
T2494:;
	princ_char(44,VV[21]);
	V701= cdr((V701));
	V702= (V702)+1;
	goto T2479;}
T2473:;
	princ_str(");",VV[21]);
	princ_str("\n	vs_top=(vs_base=old_base)+1;",VV[21]);
	princ_str("\n	vs_base[0]=",VV[21]);
	{object V707= (V696);
	if((V707!= VV[226]))goto T2510;
	princ_str("Cnil",VV[21]);
	goto T2509;
T2510:;
	if((V707!= VV[68]))goto T2512;
	princ_char(120,VV[21]);
	goto T2509;
T2512:;
	if((V707!= VV[326]))goto T2514;
	princ_str("code_char(x)",VV[21]);
	goto T2509;
T2514:;
	if((V707!= VV[327]))goto T2516;
	if(!(number_compare(small_fixnum(0),symbol_value(VV[108]))==0)){
	goto T2517;}
	princ_str("CMP",VV[21]);
T2517:;
	princ_str("make_fixnum(x)",VV[21]);
	goto T2509;
T2516:;
	if((V707!= VV[330]))goto T2522;
	princ_str("make_simple_string(x)",VV[21]);
	goto T2509;
T2522:;
	if((V707!= VV[328]))goto T2524;
	princ_str("make_shortfloat(x)",VV[21]);
	goto T2509;
T2524:;
	if((V707!= VV[329]))goto T2526;
	princ_str("make_longfloat(x)",VV[21]);
	goto T2509;
T2526:;}
T2509:;
	princ_char(59,VV[21]);
	princ_str("\n}",VV[21]);
	{object V708 = Cnil;
	VMR49(V708)}
}
/*	local entry for function T1DEFLA	*/

static object LI51(V710)

object V710;
{	 VMB50 VMS50 VMV50
TTL:;
	{object V711 = Cnil;
	VMR50(V711)}
}
/*	local entry for function PARSE-CVSPECS	*/

static object LI52(V713)

object V713;
{	 VMB51 VMS51 VMV51
TTL:;
	{object V714;
	V714= Cnil;
	{object V715;
	object V716;
	V715= (V713);
	V716= car((V715));
T2535:;
	if(!(endp((V715)))){
	goto T2536;}
	{object V717 = reverse((V714));
	VMR51(V717)}
T2536:;
	if(!(type_of((V716))==t_symbol)){
	goto T2542;}
	base[0]= symbol_name((V716));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V718= vs_base[0];
	V719= list(2,VV[68],V718);
	V714= make_cons(/* INLINE-ARGS */V719,(V714));
	goto T2540;
T2542:;
	if(!(type_of((V716))==t_string)){
	goto T2548;}
	V720= list(2,VV[68],(V716));
	V714= make_cons(/* INLINE-ARGS */V720,(V714));
	goto T2540;
T2548:;
	if(!(type_of((V716))==t_cons)){
	goto T2552;}
	{register object x= car((V716)),V721= VV[227];
	while(!endp(V721))
	if(eql(x,V721->c.c_car)){
	goto T2555;
	}else V721=V721->c.c_cdr;
	goto T2552;}
T2555:;
	{object V722;
	object V723;
	V722= cdr((V716));
	V723= car((V722));
T2559:;
	if(!(endp((V722)))){
	goto T2560;}
	goto T2540;
T2560:;
	V724= car((V716));
	if(!(type_of((V723))==t_symbol)){
	goto T2568;}
	base[0]= symbol_name((V723));
	vs_top=(vs_base=base+0)+1;
	Lstring_downcase();
	vs_top=sup;
	V725= vs_base[0];
	goto T2566;
T2568:;
	if(!(type_of((V723))==t_string)){
	goto T2572;}
	V725= (V723);
	goto T2566;
T2572:;
	V725= (VFUN_NARGS=2,(*(LnkLI251))(VV[228],(V723)));
T2566:;
	V726= list(2,/* INLINE-ARGS */V724,V725);
	V714= make_cons(/* INLINE-ARGS */V726,(V714));
	V722= cdr((V722));
	V723= car((V722));
	goto T2559;}
T2552:;
	(void)((VFUN_NARGS=2,(*(LnkLI251))(VV[229],(V716))));
T2540:;
	V715= cdr((V715));
	V716= car((V715));
	goto T2535;}}
}
/*	local entry for function T3LOCAL-DCFUN	*/

static object LI53(V732,V733,V734,V735,V736)

object V732;object V733;object V734;register object V735;register object V736;
{	 VMB52 VMS52 VMV52
	bds_check;
TTL:;
	{object V737;
	object V738;
	object V739;
	if(((V732))==Cnil){
	goto T2586;}
	V737= small_fixnum(0);
	goto T2584;
T2586:;
	V737= structure_ref((V735),VV[28],4);
T2584:;
	V738= Cnil;
	bds_bind(VV[16],(*(LnkLI291))(cadr((V736))));
	bds_bind(VV[111],Cnil);
	V739= caaddr((V736));
	if((structure_ref((V735),VV[28],0))==Cnil){
	goto T2594;}
	V740= structure_ref((V735),VV[28],0);
	goto T2592;
T2594:;
	V740= Cnil;
T2592:;
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[230],V740)));
	princ_str("\nstatic ",VV[21]);
	if(((V732))==Cnil){
	goto T2601;}
	V741= VV[231];
	goto T2599;
T2601:;
	V741= VV[232];
T2599:;
	(void)((*(LnkLI260))(V741));
	V742= structure_ref((V735),VV[28],3);
	(void)((*(LnkLI260))(/* INLINE-ARGS */V742));
	princ_char(40,VV[21]);
	princ_str("base0",VV[21]);
	if(((V739))==Cnil){
	goto T2610;}
	V743= VV[233];
	goto T2608;
T2610:;
	V743= VV[234];
T2608:;
	(void)((*(LnkLI260))(V743));
	V744= structure_ref(cadr((V736)),VV[56],1);
	(void)((*(LnkLI293))(/* INLINE-ARGS */V744,small_fixnum(2)));
	(void)((*(LnkLI298))(caaddr((V736)),Cnil));
	princ_str("register object *",VV[21]);
	(void)((*(LnkLI260))((VV[16]->s.s_dbind)));
	princ_str("base0;",VV[21]);
	bds_bind(VV[235],(V734));
	bds_bind(VV[122],VV[118]);
	bds_bind(VV[14],Cnil);
	bds_bind(VV[123],small_fixnum(0));
	bds_bind(VV[124],small_fixnum(0));
	bds_bind(VV[125],one_plus((V737)));
	bds_bind(VV[126],(V734));
	bds_bind(VV[127],(V733));
	bds_bind(VV[128],make_cons((VV[122]->s.s_dbind),Cnil));
	bds_bind(VV[129],(VV[122]->s.s_dbind));
	setq(VV[131],number_plus(symbol_value(VV[131]),small_fixnum(1)));
	bds_bind(VV[130],symbol_value(VV[131]));
	bds_bind(VV[132],Cnil);
	bds_bind(VV[133],Cnil);
	bds_bind(VV[134],Cnil);
	bds_bind(VV[135],small_fixnum(0));
	V738= (VV[130]->s.s_dbind);
	princ_str("\n{",VV[21]);
	V745= structure_ref(cadr((V736)),VV[56],1);
	V746= structure_ref((V735),VV[28],3);
	(void)((*(LnkLI299))(/* INLINE-ARGS */V745,/* INLINE-ARGS */V746,VV[236]));
	princ_str("\n	VMB",VV[21]);
	(void)((*(LnkLI260))((V738)));
	princ_str(" VMS",VV[21]);
	(void)((*(LnkLI260))((V738)));
	princ_str(" VMV",VV[21]);
	(void)((*(LnkLI260))((V738)));
	if((symbol_value(VV[143]))==Cnil){
	goto T2634;}
	princ_str("\n	ihs_check;",VV[21]);
T2634:;
	base[17]= caddr(cddr((V736)));
	vs_top=(vs_base=base+17)+1;
	(void) (*Lnk300)();
	vs_top=sup;
	princ_str("\n}",VV[21]);
	(void)((*(LnkLI301))((V738),Ct));
	V747= structure_ref((V735),VV[28],3);
	{object V748 = (*(LnkLI295))(/* INLINE-ARGS */V747);
	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;
	VMR52(V748)}}
}
/*	local entry for function T3LOCAL-FUN	*/

static object LI54(V754,V755,V756,V757,V758)

object V754;object V755;object V756;object V757;object V758;
{	 VMB53 VMS53 VMV53
	bds_check;
TTL:;
	{int V759;
	if(((V754))==Cnil){
	goto T2645;}
	V759= 0;
	goto T2643;
T2645:;
	V759= fix(structure_ref((V757),VV[28],4));
T2643:;
	bds_bind(VV[16],(*(LnkLI291))(cadr((V758))));
	bds_bind(VV[111],Cnil);
	if(!(((V754))==(VV[237]))){
	goto T2648;}
	{object V760 = (*(LnkLI236))((V754),(V755),(V756),(V757),(V758));
	bds_unwind1;
	bds_unwind1;
	VMR53(V760)}
T2648:;
	if((structure_ref((V757),VV[28],0))==Cnil){
	goto T2654;}
	V761= structure_ref((V757),VV[28],0);
	goto T2652;
T2654:;
	V761= Cnil;
T2652:;
	(void)((VFUN_NARGS=2,(*(LnkLI297))(VV[238],V761)));
	princ_str("\nstatic ",VV[27]);
	if(((V754))==Cnil){
	goto T2661;}
	V762= VV[239];
	goto T2659;
T2661:;
	V762= VV[240];
T2659:;
	(void)((*(LnkLI263))(V762));
	V763= structure_ref((V757),VV[28],3);
	(void)((*(LnkLI263))(/* INLINE-ARGS */V763));
	princ_str("();",VV[27]);
	princ_str("\nstatic ",VV[21]);
	if(((V754))==Cnil){
	goto T2670;}
	V764= VV[241];
	goto T2668;
T2670:;
	V764= VV[242];
T2668:;
	(void)((*(LnkLI260))(V764));
	V765= structure_ref((V757),VV[28],3);
	(void)((*(LnkLI260))(/* INLINE-ARGS */V765));
	princ_char(40,VV[21]);
	{object V766;
	int V767;
	V766= make_fixnum(V759);
	V767= 0;
T2678:;
	V768 = make_fixnum(V767);
	if(!(number_compare(V768,(V766))>=0)){
	goto T2679;}
	princ_str("base",VV[21]);
	V769 = make_fixnum(V767);
	(void)((*(LnkLI260))(V769));
	princ_char(41,VV[21]);
	goto T2674;
T2679:;
	princ_str("base",VV[21]);
	V770 = make_fixnum(V767);
	(void)((*(LnkLI260))(V770));
	princ_char(44,VV[21]);
	V767= (V767)+1;
	goto T2678;}
T2674:;
	princ_str("\nregister object ",VV[21]);
	{object V771;
	int V772;
	V771= make_fixnum(V759);
	V772= 0;
T2699:;
	V773 = make_fixnum(V772);
	if(!(number_compare(V773,(V771))>=0)){
	goto T2700;}
	princ_char(42,VV[21]);
	(void)((*(LnkLI260))((VV[16]->s.s_dbind)));
	princ_str("base",VV[21]);
	V774 = make_fixnum(V772);
	(void)((*(LnkLI260))(V774));
	princ_char(59,VV[21]);
	goto T2695;
T2700:;
	princ_char(42,VV[21]);
	(void)((*(LnkLI260))((VV[16]->s.s_dbind)));
	princ_str("base",VV[21]);
	V775 = make_fixnum(V772);
	(void)((*(LnkLI260))(V775));
	princ_char(44,VV[21]);
	V772= (V772)+1;
	goto T2699;}
T2695:;
	V776= structure_ref(cadr((V758)),VV[56],1);
	(void)((*(LnkLI293))(/* INLINE-ARGS */V776,small_fixnum(2)));
	bds_bind(VV[122],VV[121]);
	bds_bind(VV[235],(V756));
	bds_bind(VV[14],Cnil);
	bds_bind(VV[123],small_fixnum(0));
	bds_bind(VV[124],small_fixnum(0));
	V777 = make_fixnum(V759);
	bds_bind(VV[125],one_plus(V777));
	bds_bind(VV[126],(V756));
	bds_bind(VV[127],(V755));
	bds_bind(VV[128],make_cons((VV[122]->s.s_dbind),Cnil));
	bds_bind(VV[129],(VV[122]->s.s_dbind));
	setq(VV[131],number_plus(symbol_value(VV[131]),small_fixnum(1)));
	bds_bind(VV[130],symbol_value(VV[131]));
	bds_bind(VV[132],Cnil);
	bds_bind(VV[133],Cnil);
	bds_bind(VV[134],Cnil);
	bds_bind(VV[135],small_fixnum(0));
	princ_str("\n{	register object *",VV[21]);
	(void)((*(LnkLI260))((VV[16]->s.s_dbind)));
	princ_str("base=vs_base;",VV[21]);
	princ_str("\n	register object *",VV[21]);
	(void)((*(LnkLI260))((VV[16]->s.s_dbind)));
	princ_str("sup=base+VM",VV[21]);
	(void)((*(LnkLI260))((VV[130]->s.s_dbind)));
	princ_char(59,VV[21]);
	V778= structure_ref(cadr((V758)),VV[56],1);
	V779= structure_ref((V757),VV[28],3);
	(void)((*(LnkLI299))(/* INLINE-ARGS */V778,/* INLINE-ARGS */V779,VV[243]));
	princ_str(" VC",VV[21]);
	(void)((*(LnkLI260))((VV[130]->s.s_dbind)));
	if((symbol_value(VV[150]))==Cnil){
	goto T2740;}
	princ_str("\n	vs_reserve(VM",VV[21]);
	(void)((*(LnkLI260))((VV[130]->s.s_dbind)));
	princ_str(");",VV[21]);
	goto T2738;
T2740:;
	princ_str("\n	vs_check;",VV[21]);
T2738:;
	if((symbol_value(VV[143]))==Cnil){
	goto T2746;}
	princ_str("\n	ihs_check;",VV[21]);
T2746:;
	if(((V754))==Cnil){
	goto T2752;}
	(void)((VFUN_NARGS=2,(*(LnkLI316))(caddr((V758)),caddr(cddr((V758))))));
	goto T2750;
T2752:;
	(void)((VFUN_NARGS=3,(*(LnkLI316))(caddr((V758)),caddr(cddr((V758))),(V757))));
T2750:;
	princ_str("\n}",VV[21]);
	V780= make_cons((VV[130]->s.s_dbind),(VV[124]->s.s_dbind));
	setq(VV[29],make_cons(/* INLINE-ARGS */V780,symbol_value(VV[29])));
	princ_str("\n#define VC",VV[27]);
	(void)((*(LnkLI263))((VV[130]->s.s_dbind)));
	V781= (*(LnkLI317))();
	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;
	V782= structure_ref((V757),VV[28],3);
	{object V783 = (*(LnkLI295))(/* INLINE-ARGS */V782);
	bds_unwind1;
	bds_unwind1;
	VMR53(V783)}}
}
/*	local entry for function WT-CVARS	*/

static object LI55()

{	 VMB54 VMS54 VMV54
TTL:;
	{object V784;
	V784= Cnil;
	{object V785;
	object V786;
	V785= symbol_value(VV[14]);
	V786= car((V785));
T2766:;
	if(!(endp((V785)))){
	goto T2767;}
	goto T2762;
T2767:;
	{object V787;
	if(!(type_of((V786))==t_cons)){
	goto T2774;}
	{object V788;
	V788= car((V786));
	V786= cdr((V786));
	V787= (V788);
	goto T2772;}
T2774:;
	V787= Ct;
T2772:;
	if(!(((V784))==((V787)))){
	goto T2781;}
	base[0]= symbol_value(VV[27]);
	base[1]= VV[244];
	base[2]= (V786);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	goto T2779;
T2781:;
	if(!(((V784))==Cnil)){
	goto T2787;}
	goto T2786;
T2787:;
	base[1]= symbol_value(VV[27]);
	base[2]= VV[245];
	vs_top=(vs_base=base+1)+2;
	Lformat();
	vs_top=sup;
T2786:;
	V784= (V787);
	base[0]= symbol_value(VV[27]);
	base[1]= VV[246];
	base[2]= (*(LnkLI266))((V784));
	base[3]= (V786);
	vs_top=(vs_base=base+0)+4;
	Lformat();
	vs_top=sup;
T2779:;
	if(!(((V784))==(VV[247]))){
	goto T2771;}
	base[0]= symbol_value(VV[27]);
	base[1]= VV[248];
	vs_top=(vs_base=base+0)+2;
	Lformat();
	vs_top=sup;}
T2771:;
	V785= cdr((V785));
	V786= car((V785));
	goto T2766;}
T2762:;
	if(symbol_value(VV[14])==Cnil){
	goto T2806;}
	base[0]= symbol_value(VV[27]);
	base[1]= VV[249];
	vs_top=(vs_base=base+0)+2;
	Lformat();
	vs_top=sup;
T2806:;
	if(eql(symbol_value(VV[135]),small_fixnum(0))){
	goto T2810;}
	base[0]= symbol_value(VV[27]);
	base[1]= VV[250];
	base[2]= symbol_value(VV[135]);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	{object V789 = vs_base[0];
	VMR54(V789)}
T2810:;
	{object V790 = Cnil;
	VMR54(V790)}}
}
/*	local function DO-DECL	*/

static L25(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM55; VC55
	vs_reserve(VM55);
	{object V791;
	check_arg(1);
	V791=(base[0]);
	vs_top=sup;
TTL:;
	V792= structure_ref((V791),VV[63],4);
	if(eql(/* INLINE-ARGS */V792,VV[66])){
	goto T2816;}
	goto T2815;
T2816:;
	(VV[146]->s.s_dbind)= Ct;
T2815:;
	{object V793;
	V793= (*(LnkLI331))((V791));
	if(((V793))==Cnil){
	goto T2821;}
	{object V794;
	setq(VV[82],number_plus(symbol_value(VV[82]),small_fixnum(1)));
	V794= symbol_value(VV[82]);
	(void)(structure_set((V791),VV[63],1,(V793)));
	(void)(structure_set((V791),VV[63],4,(V794)));
	princ_str("\n	",VV[21]);
	if((base0[1])!=Cnil){
	goto T2828;}
	princ_char(123,VV[21]);
	base0[1]= Ct;
T2828:;
	base[1]= (V791);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk332)();
	return;}
T2821:;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
static LnkT332(){ call_or_link(VV[332],&Lnk332);} /* WT-VAR-DECL */
static object  LnkTLI331(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[331],&LnkLI331,1,ap);} /* C2VAR-KIND */
static object  LnkTLI236(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[236],&LnkLI236,5,ap);} /* T3LOCAL-DCFUN */
static object  LnkTLI325(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[325],&LnkLI325,1,ap);} /* PARSE-CVSPECS */
static object  LnkTLI324(){return call_proc0(VV[324],&LnkLI324);} /* WFS-ERROR */
static LnkT323(){ call_or_link(VV[323],&Lnk323);} /* C2DM */
static object  LnkTLI322(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[322],&LnkLI322,3,ap);} /* C1DM */
static object  LnkTLI321(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[321],&LnkLI321,ap);} /* REMOVE-DUPLICATES */
static int  LnkTLI320(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[320],&LnkLI320,258,ap);} /* ANALYZE-REGS1 */
static object  LnkTLI319(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[319],&LnkLI319,ap);} /* WARN */
static object  LnkTLI318(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[318],&LnkLI318,1,ap);} /* REGISTER */
static object  LnkTLI317(){return call_proc0(VV[317],&LnkLI317);} /* WT-CVARS */
static object  LnkTLI316(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[316],&LnkLI316,ap);} /* C2LAMBDA-EXPR */
static object  LnkTLI315(){return call_proc0(VV[315],&LnkLI315);} /* CLOSE-INLINE-BLOCKS */
static object  LnkTLI314(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[314],&LnkLI314,1,ap);} /* WT-VS */
static object  LnkTLI313(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[313],&LnkLI313,1,ap);} /* C2BIND */
static object  LnkTLI312(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[312],&LnkLI312,1,ap);} /* ADD-SYMBOL */
static object  LnkTLI311(){return call_proc0(VV[311],&LnkLI311);} /* BABOON */
static object  LnkTLI310(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[310],&LnkLI310,1,ap);} /* ADD-OBJECT */
static LnkT309(){ call_or_link(VV[309],&Lnk309);} /* INC-INLINE-BLOCKS */
static object  LnkTLI308(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[308],&LnkLI308,ap);} /* CS-PUSH */
static object  LnkTLI307(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[307],&LnkLI307,2,ap);} /* C2BIND-INIT */
static object  LnkTLI306(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[306],&LnkLI306,2,ap);} /* C2BIND-LOC */
static object  LnkTLI305(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[305],&LnkLI305,1,ap);} /* SET-UP-VAR-CVS */
static object  LnkTLI304(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[304],&LnkLI304,1,ap);} /* WT-LIST */
static object  LnkTLI303(){return call_proc0(VV[303],&LnkLI303);} /* CVS-PUSH */
static object  LnkTLI302(){return call_proc0(VV[302],&LnkLI302);} /* VS-PUSH */
static object  LnkTLI301(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[301],&LnkLI301,2,ap);} /* WT-V*-MACROS */
static LnkT300(){ call_or_link(VV[300],&Lnk300);} /* C2EXPR */
static object  LnkTLI299(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[299],&LnkLI299,3,ap);} /* ASSIGN-DOWN-VARS */
static object  LnkTLI298(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[298],&LnkLI298,2,ap);} /* WT-REQUIREDS */
static object  LnkTLI297(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[297],&LnkLI297,ap);} /* WT-COMMENT */
static object  LnkTLI296(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[296],&LnkLI296,2,ap);} /* ADD-DEBUG-INFO */
static object  LnkTLI295(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[295],&LnkLI295,1,ap);} /* WT-DOWNWARD-CLOSURE-MACRO */
static LnkT294(){ call_or_link(VV[294],&Lnk294);} /* T3DEFUN-AUX */
static int  LnkTLI293(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[293],&LnkLI293,258,ap);} /* ANALYZE-REGS */
static LnkT292(){ call_or_link(VV[292],&Lnk292);} /* FIXNUMP */
static object  LnkTLI291(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[291],&LnkLI291,1,ap);} /* VOLATILE */
static object  LnkTLI290(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[290],&LnkLI290,1,ap);} /* MAXARGS */
static object  LnkTLI289(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[289],&LnkLI289,1,ap);} /* VARARG-P */
static object  LnkTLI288(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[288],&LnkLI288,3,ap);} /* WT-IF-PROCLAIMED */
static int  LnkTLI287(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[287],&LnkLI287,258,ap);} /* PROCLAIMED-ARGD */
static object  LnkTLI286(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[286],&LnkLI286,2,ap);} /* ADD-ADDRESS */
static object  LnkTLI285(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[285],&LnkLI285,ap);} /* ADD-INIT */
static object  LnkTLI284(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[284],&LnkLI284,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */
static object  LnkTLI283(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[283],&LnkLI283,2,ap);} /* SHIFT<< */
static int  LnkTLI282(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[282],&LnkLI282,257,ap);} /* F-TYPE */
static LnkT281(){ call_or_link(VV[281],&Lnk281);} /* SUBTYPEP */
static LnkT280(){ call_or_link(VV[280],&Lnk280);} /* STRUCTURE-SUBTYPE-P */
static object  LnkTLI279(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[279],&LnkLI279,ap);} /* MAKE-ARRAY */
static object  LnkTLI278(){return call_proc0(VV[278],&LnkLI278);} /* ADD-LOAD-TIME-SHARP-COMMA */
static object  LnkTLI277(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[277],&LnkLI277,2,ap);} /* MAKE-INLINE-STRING */
static object  LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,2,ap);} /* TYPE-AND */
static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,2,ap);} /* CMPFIX-ARGS */
static object  LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[274],&LnkLI274,1,ap);} /* PROCLAIM */
static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[273],&LnkLI273,1,ap);} /* CHECK-DOWNWARD */
static object  LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[272],&LnkLI272,ap);} /* C1LAMBDA-EXPR */
static object  LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],&LnkLI271,1,ap);} /* T1PROGN */
static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[268],&LnkLI268,3,ap);} /* TOO-FEW-ARGS */
static LnkT267(){ call_or_link(VV[267],&Lnk267);} /* CMP-EVAL */
static object  LnkTLI266(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[266],&LnkLI266,1,ap);} /* REP-TYPE */
static LnkT265(){ call_or_link(VV[265],&Lnk265);} /* WT-DATA-FILE */
static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[264],&LnkLI264,1,ap);} /* PUSH-DATA-INCF */
static object  LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[263],&LnkLI263,1,ap);} /* WT-H1 */
static object  LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* WT-FUNCTION-LINK */
static LnkT261(){ call_or_link(VV[261],&Lnk261);} /* WT-GLOBAL-ENTRY */
static LnkT243(){ call_or_link(VV[243],&Lnk243);} /* T3LOCAL-FUN */
static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* WT1 */
static object  LnkTLI259(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[259],&LnkLI259,3,ap);} /* CMP-EXPAND-MACRO */
static object  LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[258],&LnkLI258,1,ap);} /* T1ORDINARY */
static LnkT257(){ call_or_link(VV[257],&Lnk257);} /* T1EXPR */
static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* CMP-MACROEXPAND-1 */
static object  LnkTLI255(){return call_proc0(VV[255],&LnkLI255);} /* PRINT-CURRENT-FORM */
static object  LnkTLI254(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[254],&LnkLI254,1,ap);} /* WT-DATA-PACKAGE-OPERATION */
static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],&LnkLI253,2,ap);} /* MAYBE-EVAL */
static object  LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[252],&LnkLI252,ap);} /* CMPWARN */
static object  LnkTLI251(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[251],&LnkLI251,ap);} /* CMPERR */

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