ftp.nice.ch/pub/next/developer/languages/lisp/gcl.2.2-LISP.I.bs.tar.gz#/gcl-2.2/cmpnew/cmpinline.c

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

#include <cmpinclude.h>
#include "cmpinline.h"
init_cmpinline(){do_init(VV);}
/*	local entry for function MAKE-INFO	*/

static object LI1(va_alist)
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB1 VMS1 VMV1
	{object V1;
	object V2;
	object V3;
	object V4;
	object V5;
	narg= narg - 0;
	va_start(ap);
	{
	parse_key_new(narg,Vcs +0,&LI1key,ap);
	V1=(Vcs[0]);
	V2=(Vcs[1]);
	if(Vcs[2]==0){
	V3= Ct;
	}else{
	V3=(Vcs[2]);}
	V4=(Vcs[3]);
	V5=(Vcs[4]);
	base[0]= VV[0];
	base[1]= (V1);
	base[2]= (V2);
	base[3]= (V3);
	base[4]= (V4);
	base[5]= (V5);
	vs_top=(vs_base=base+0)+6;
	siLmake_structure();
	vs_top=sup;
	{object V6 = vs_base[0];
	VMR1(V6)}}
	}}
/*	local entry for function ADD-INFO	*/

static object LI2(V9,V10)

register object V9;object V10;
{	 VMB2 VMS2 VMV2
TTL:;
	V11= structure_ref((V10),VV[0],0);
	V12= structure_ref((V9),VV[0],0);
	V13= append(/* INLINE-ARGS */V11,/* INLINE-ARGS */V12);
	(void)(structure_set((V9),VV[0],0,/* INLINE-ARGS */V13));
	V14= structure_ref((V10),VV[0],1);
	V15= structure_ref((V9),VV[0],1);
	V16= append(/* INLINE-ARGS */V14,/* INLINE-ARGS */V15);
	(void)(structure_set((V9),VV[0],1,/* INLINE-ARGS */V16));
	if((structure_ref((V10),VV[0],3))==Cnil){
	goto T11;}
	{object V17 = structure_set((V9),VV[0],3,Ct);
	VMR2(V17)}
T11:;
	{object V18 = Cnil;
	VMR2(V18)}
}
/*	local entry for function ARGS-INFO-CHANGED-VARS	*/

static object LI3(V21,V22)

register object V21;object V22;
{	 VMB3 VMS3 VMV3
TTL:;
	V24= structure_ref((V21),VV[1],1);
	{object V23= /* INLINE-ARGS */V24;
	if((V23== VV[71])
	|| (V23== VV[45])
	|| (V23== VV[72])
	|| (V23== VV[46])
	|| (V23== VV[47]))goto T14;
	if((V23!= VV[18]))goto T13;
T14:;
	{register object V25;
	register object V26;
	V25= (V22);
	V26= car((V25));
T18:;
	if(!(endp((V25)))){
	goto T19;}
	{object V27 = Cnil;
	VMR3(V27)}
T19:;
	V29= structure_ref(cadr((V26)),VV[0],0);
	{register object x= (V21),V28= /* INLINE-ARGS */V29;
	while(!endp(V28))
	if(eql(x,V28->c.c_car)){
	goto T25;
	}else V28=V28->c.c_cdr;
	goto T23;}
T25:;
	{object V30 = Ct;
	VMR3(V30)}
T23:;
	V25= cdr((V25));
	V26= car((V25));
	goto T18;}
T13:;
	if((V23!= VV[73]))goto T31;
	{object V31 = Cnil;
	VMR3(V31)}
T31:;
	{register object V32;
	register object V33;
	V32= (V22);
	V33= car((V32));
T35:;
	if(!(endp((V32)))){
	goto T36;}
	{object V34 = Cnil;
	VMR3(V34)}
T36:;
	V36= structure_ref(cadr((V33)),VV[0],0);
	{register object x= (V21),V35= /* INLINE-ARGS */V36;
	while(!endp(V35))
	if(eql(x,V35->c.c_car)){
	goto T41;
	}else V35=V35->c.c_cdr;}
	if((structure_ref(cadr((V33)),VV[0],3))==Cnil){
	goto T40;}
T41:;
	{object V37 = Ct;
	VMR3(V37)}
T40:;
	V32= cdr((V32));
	V33= car((V32));
	goto T35;}}
}
/*	local entry for function ARGS-INFO-REFERRED-VARS	*/

static object LI4(V40,V41)

register object V40;object V41;
{	 VMB4 VMS4 VMV4
TTL:;
	V43= structure_ref((V40),VV[1],1);
	{object V42= /* INLINE-ARGS */V43;
	if((V42== VV[71])
	|| (V42== VV[73])
	|| (V42== VV[45])
	|| (V42== VV[72])
	|| (V42== VV[46]))goto T51;
	if((V42!= VV[47])
	&& (V42!= VV[18]))goto T50;
T51:;
	{register object V44;
	register object V45;
	V44= (V41);
	V45= car((V44));
T55:;
	if(!(endp((V44)))){
	goto T56;}
	{object V46 = Cnil;
	VMR4(V46)}
T56:;
	V48= structure_ref(cadr((V45)),VV[0],1);
	{register object x= (V40),V47= /* INLINE-ARGS */V48;
	while(!endp(V47))
	if(eql(x,V47->c.c_car)){
	goto T62;
	}else V47=V47->c.c_cdr;
	goto T60;}
T62:;
	{object V49 = Ct;
	VMR4(V49)}
T60:;
	V44= cdr((V44));
	V45= car((V44));
	goto T55;}
T50:;
	{register object V50;
	register object V51;
	V50= (V41);
	V51= car((V50));
T71:;
	if(!(endp((V50)))){
	goto T72;}
	{object V52 = Cnil;
	VMR4(V52)}
T72:;
	V54= structure_ref(cadr((V51)),VV[0],1);
	{register object x= (V40),V53= /* INLINE-ARGS */V54;
	while(!endp(V53))
	if(eql(x,V53->c.c_car)){
	goto T77;
	}else V53=V53->c.c_cdr;}
	if((structure_ref(cadr((V51)),VV[0],3))==Cnil){
	goto T76;}
T77:;
	{object V55 = Ct;
	VMR4(V55)}
T76:;
	V50= cdr((V50));
	V51= car((V50));
	goto T71;}}
}
/*	function definition for INC-INLINE-BLOCKS	*/

static L5()
{register object *base=vs_base;
	register object *sup=base+VM5; VC5
	vs_reserve(VM5);
	check_arg(0);
	vs_top=sup;
TTL:;
	if(!(type_of(symbol_value(VV[2]))==t_cons)){
	goto T87;}
	{object V56;
	object V57;
	V56= symbol_value(VV[2]);
	V57= number_plus(car((V56)),small_fixnum(1));
	if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));
	((V56))->c.c_car = (V57);
	base[1]= (V57);
	vs_top=(vs_base=base+1)+1;
	return;}
T87:;
	setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1)));
	base[0]= symbol_value(VV[2]);
	vs_top=(vs_base=base+0)+1;
	return;
}
/*	local entry for function INLINE-ARGS	*/

static object LI6(V59,V58,va_alist)
	object V59,V58;
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB6 VMS6 VMV6
	bds_check;
	{object V60;
	object V61;
	object V62;
	if(narg <2) too_few_arguments();
	V60= V59;
	V61= V58;
	narg = narg - 2;
	if (narg <= 0) goto T93;
	else {
	va_start(ap);
	V62= va_arg(ap,object);}
	--narg; goto T94;
T93:;
	V62= Cnil;
T94:;
	{register object V63;
	register object V64;
	V63= Cnil;
	V64= Cnil;
	{register object V65;
	object V66;
	V65= (V60);
	V66= (V61);
T99:;
	if(!(endp((V65)))){
	goto T100;}
	{object V67 = reverse((V63));
	VMR6(V67)}
T100:;
	{register object V68;
	register object V69;
	V68= car((V65));
	V69= car((V66));
	{object V70= car((V68));
	if((V70!= VV[14]))goto T107;
	V71= (*(LnkLI74))(caddr((V68)),(V69));
	V63= make_cons(/* INLINE-ARGS */V71,(V63));
	goto T104;
T107:;
	if((V70!= VV[1]))goto T109;
	if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){
	goto T111;}
	V73= structure_ref(caaddr((V68)),VV[1],1);
	{register object x= /* INLINE-ARGS */V73,V72= symbol_value(VV[3]);
	while(!endp(V72))
	if(eql(x,V72->c.c_car)){
	goto T116;
	}else V72=V72->c.c_cdr;
	goto T114;}
T116:;
	V74= structure_ref(caaddr((V68)),VV[1],1);
	if(!(((V69))==(/* INLINE-ARGS */V74))){
	goto T114;}
	{object V75;
	setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
	V75= symbol_value(VV[4]);
	princ_str("\n	{",VV[5]);
	V76= (*(LnkLI77))((V69));
	(void)((*(LnkLI76))(/* INLINE-ARGS */V76));
	princ_char(86,VV[5]);
	(void)((*(LnkLI76))((V75)));
	princ_str("= V",VV[5]);
	V77= structure_ref(caaddr((V68)),VV[1],4);
	(void)((*(LnkLI76))(/* INLINE-ARGS */V77));
	princ_char(59,VV[5]);
	V78= list(3,VV[6],(V75),VV[7]);
	V63= make_cons(/* INLINE-ARGS */V78,(V63));
	vs_base=vs_top;
	(void) (*Lnk78)();
	vs_top=sup;
	goto T104;}
T114:;
	{object V79;
	V79= (*(LnkLI79))();
	princ_str("\n	",VV[5]);
	(void)((*(LnkLI76))((V79)));
	princ_str("= ",VV[5]);
	(void)((*(LnkLI80))(caaddr((V68)),cadr(caddr((V68)))));
	princ_char(59,VV[5]);
	V80= (*(LnkLI74))((V79),(V69));
	V63= make_cons(/* INLINE-ARGS */V80,(V63));
	goto T104;}
T111:;
	V82= structure_ref(caaddr((V68)),VV[1],1);
	{register object x= /* INLINE-ARGS */V82,V81= VV[8];
	while(!endp(V81))
	if(eql(x,V81->c.c_car)){
	goto T142;
	}else V81=V81->c.c_cdr;
	goto T140;}
T142:;
	V83= structure_ref(caaddr((V68)),VV[1],1);
	if(((V69))==(/* INLINE-ARGS */V83)){
	goto T140;}
	{object V84;
	V84= (VFUN_NARGS=1,(*(LnkLI81))((V69)));
	princ_str("\n	V",VV[5]);
	(void)((*(LnkLI76))((V84)));
	princ_str(" = ",VV[5]);
	V85= make_cons(VV[1],caddr((V68)));
	V86= (*(LnkLI74))(/* INLINE-ARGS */V85,(V69));
	(void)((*(LnkLI76))(/* INLINE-ARGS */V86));
	princ_char(59,VV[5]);
	V87= list(2,VV[6],(V84));
	V63= make_cons(/* INLINE-ARGS */V87,(V63));
	goto T104;}
T140:;
	V88= make_cons(VV[1],caddr((V68)));
	V89= (*(LnkLI74))(/* INLINE-ARGS */V88,(V69));
	V63= make_cons(/* INLINE-ARGS */V89,(V63));
	goto T104;
T109:;
	if((V70!= VV[82]))goto T153;
	{object V90;
	V90= caddr((V68));
	if(((*(LnkLI83))((V90)))!=Cnil){
	goto T158;}
	goto T155;
T158:;
	V91= cadddr((V68));
	V92= structure_ref(cadr((V68)),VV[0],2);
	V64= (*(LnkLI84))((V90),/* INLINE-ARGS */V91,/* INLINE-ARGS */V92);
	if(((V64))!=Cnil){
	goto T160;}
	goto T155;
T160:;
	base[0]= (V64);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk85)();
	vs_top=sup;}
	{register object V93;
	V93= (*(LnkLI86))((V64),cadddr((V68)));
	base[0]= small_fixnum(0);
	base[1]= caddr((V64));
	vs_top=(vs_base=base+0)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T168;}
	if((symbol_value(VV[9]))==Cnil){
	goto T166;}
T168:;
	{register object x= cadr((V64)),V94= VV[10];
	while(!endp(V94))
	if(eql(x,V94->c.c_car)){
	goto T175;
	}else V94=V94->c.c_cdr;
	goto T167;}
T175:;
	if(((V69))==(cadr((V64)))){
	goto T167;}
T166:;
	{object V95;
	V95= (VFUN_NARGS=1,(*(LnkLI81))((V69)));
	princ_str("\n	V",VV[5]);
	(void)((*(LnkLI76))((V95)));
	princ_str(" = ",VV[5]);
	V96= (*(LnkLI74))((V93),(V69));
	(void)((*(LnkLI76))(/* INLINE-ARGS */V96));
	princ_char(59,VV[5]);
	V97= list(2,VV[6],(V95));
	V63= make_cons(/* INLINE-ARGS */V97,(V63));
	goto T104;}
T167:;
	if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){
	goto T185;}
	base[0]= small_fixnum(0);
	base[1]= caddr((V64));
	vs_top=(vs_base=base+0)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T189;}
	if(((V62))==Cnil){
	goto T185;}
	{register object x= (V62),V98= VV[11];
	while(!endp(V98))
	if(x==(V98->c.c_car)){
	goto T196;
	}else V98=V98->c.c_cdr;
	goto T185;}
T196:;
T189:;
	base[0]= small_fixnum(4);
	base[1]= caddr((V64));
	vs_top=(vs_base=base+0)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T185;}
	base[0]= small_fixnum(1);
	base[1]= caddr((V64));
	vs_top=(vs_base=base+0)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T186;}
	if((cdr((V65)))==Cnil){
	goto T186;}
T185:;
	{object V99;
	V99= Cnil;
	if(!(((V69))==(Ct))){
	goto T208;}
	V99= (VFUN_NARGS=0,(*(LnkLI81))());
	princ_str("\n	V",VV[5]);
	(void)((*(LnkLI76))((V99)));
	princ_str("= ",VV[5]);
	base[0]= (V93);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk88)();
	vs_top=sup;
	goto T206;
T208:;
	setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
	V99= symbol_value(VV[4]);
	princ_str("\n	{",VV[5]);
	V100= (*(LnkLI77))((V69));
	(void)((*(LnkLI76))(/* INLINE-ARGS */V100));
	princ_char(86,VV[5]);
	(void)((*(LnkLI76))((V99)));
	princ_str("= ",VV[5]);
	{object V101= (V69);
	if((V101!= VV[45]))goto T227;
	base[0]= (V93);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk89)();
	vs_top=sup;
	goto T226;
T227:;
	if((V101!= VV[40]))goto T229;
	base[0]= (V93);
	base[1]= VV[7];
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk90)();
	vs_top=sup;
	goto T226;
T229:;
	if((V101!= VV[72]))goto T232;
	base[0]= (V93);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk91)();
	vs_top=sup;
	goto T226;
T232:;
	if((V101!= VV[46]))goto T234;
	base[0]= (V93);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk92)();
	vs_top=sup;
	goto T226;
T234:;
	if((V101!= VV[47]))goto T236;
	base[0]= (V93);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk93)();
	vs_top=sup;
	goto T226;
T236:;
	base[0]= (V93);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk88)();
	vs_top=sup;}
T226:;
	vs_base=vs_top;
	(void) (*Lnk78)();
	vs_top=sup;
T206:;
	princ_char(59,VV[5]);
	V102= list(3,VV[6],(V99),VV[7]);
	V63= make_cons(/* INLINE-ARGS */V102,(V63));
	goto T104;}
T186:;
	V103= (*(LnkLI74))((V93),(V69));
	V63= make_cons(/* INLINE-ARGS */V103,(V63));
	goto T104;}
T155:;
	{object V104;
	if((symbol_value(VV[9]))==Cnil){
	goto T245;}
	V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));
	goto T243;
T245:;
	V104= list(2,VV[12],(*(LnkLI94))());
T243:;
	bds_bind(VV[13],(V104));
	V105= (*(LnkLI95))((V68));
	bds_unwind1;
	V106= (*(LnkLI74))((V104),(V69));
	V63= make_cons(/* INLINE-ARGS */V106,(V63));
	goto T104;}
T153:;
	if((V70!= VV[96]))goto T249;
	V107= (*(LnkLI97))(cdr((V68)),(V69));
	V63= make_cons(/* INLINE-ARGS */V107,(V63));
	goto T104;
T249:;
	if((V70!= VV[98]))goto T251;
	{object V108;
	object V109;
	V108= caddr((V68));
	V109= cadddr((V68));
	base[0]= make_cons(VV[1],(V108));
	bds_bind(VV[13],base[0]);
	V110= (*(LnkLI95))((V109));
	bds_unwind1;
	if(!((car((V109)))==(VV[14]))){
	goto T257;}
	V111= (*(LnkLI74))(caddr((V109)),(V69));
	V63= make_cons(/* INLINE-ARGS */V111,(V63));
	goto T104;
T257:;
	V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65)));
	V66= make_cons((V69),(V66));
	goto T104;}
T251:;
	{object V112;
	if((symbol_value(VV[9]))==Cnil){
	goto T265;}
	if(!(((V69))==(Ct))){
	goto T268;}
	V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));
	goto T263;
T268:;
	setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
	V113= make_cons((V69),symbol_value(VV[4]));
	setq(VV[15],make_cons(/* INLINE-ARGS */V113,symbol_value(VV[15])));
	{register object x= (V69),V115= symbol_value(VV[3]);
	while(!endp(V115))
	if(eql(x,V115->c.c_car)){
	goto T276;
	}else V115=V115->c.c_cdr;
	goto T275;}
T276:;
	V114= (V69);
	goto T273;
T275:;
	V114= VV[18];
T273:;
	V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15]))));
	V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil);
	goto T263;
T265:;
	V112= list(2,VV[12],(*(LnkLI94))());
T263:;
	bds_bind(VV[13],(V112));
	(void)((*(LnkLI95))((V68)));
	V117= (*(LnkLI74))((V112),(V69));
	V63= make_cons(/* INLINE-ARGS */V117,(V63));
	bds_unwind1;}}}
T104:;
	V65= cdr((V65));
	V66= cdr((V66));
	goto T99;}}}
	}
/*	local entry for function COERCE-LOC	*/

static object LI7(V120,V121)

register object V120;object V121;
{	 VMB7 VMS7 VMV7
TTL:;
	{object V122= (V121);
	if((V122!= VV[45]))goto T283;
	{object V123 = list(2,VV[20],(V120));
	VMR7(V123)}
T283:;
	if((V122!= VV[40]))goto T284;
	{object V124 = list(2,VV[21],(V120));
	VMR7(V124)}
T284:;
	if((V122!= VV[72]))goto T285;
	{object V125 = list(2,VV[22],(V120));
	VMR7(V125)}
T285:;
	if((V122!= VV[46]))goto T286;
	{object V126 = list(2,VV[23],(V120));
	VMR7(V126)}
T286:;
	if((V122!= VV[47]))goto T287;
	{object V127 = list(2,VV[24],(V120));
	VMR7(V127)}
T287:;
	{object V128 = (V120);
	VMR7(V128)}}
}
/*	local entry for function GET-INLINE-LOC	*/

static object LI8(V131,V132)

object V131;object V132;
{	 VMB8 VMS8 VMV8
TTL:;
	{object V133;
	object V134;
	V133= car(cdddr((V131)));
	V134= Cnil;
	V134= (VFUN_NARGS=3,(*(LnkLI7))((V132),car((V131)),(V133)));
	if(!(type_of((V133))==t_string)){
	goto T292;}
	base[1]= elt((V133),0);
	base[2]= VV[25];
	vs_top=(vs_base=base+1)+2;
	Lchar_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T292;}
	{register int V135;
	object V136;
	V135= 1;
	V136= Cnil;
	{unsigned char V137;
	V137= char_code(elt((V133),V135));
T303:;
	base[1]= code_char(V137);
	base[2]= VV[26];
	vs_top=(vs_base=base+1)+2;
	Lchar_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T304;}
	V135= (V135)+(1);
	goto T300;
T304:;
	V138 = make_fixnum(((V137))-(48));
	V136= make_cons(V138,(V136));
	V135= (V135)+(1);
	V137= char_code(elt((V133),V135));
	goto T303;}
T300:;
	{object V139;
	int V140;
	register object V141;
	V140= 0;
	V139= (V134);
	V141= Cnil;
T320:;
	if(!(endp((V139)))){
	goto T321;}
	V134= reverse((V141));
	goto T292;
T321:;
	V143 = make_fixnum(V140);
	{register object x= V143,V142= (V136);
	while(!endp(V142))
	if(eql(x,V142->c.c_car)){
	goto T329;
	}else V142=V142->c.c_cdr;
	goto T328;}
T329:;
	{register object V144;
	register object V145;
	object V146;
	V144= car((V139));
	V145= (V144);
	V146= Cnil;
	if(!(type_of((V144))==t_cons)){
	goto T333;}
	{register object x= car((V144)),V147= VV[27];
	while(!endp(V147))
	if(eql(x,V147->c.c_car)){
	goto T337;
	}else V147=V147->c.c_cdr;
	goto T333;}
T337:;
	V146= car((V144));
	V145= cadr((V144));
T333:;
	if(!(type_of((V145))==t_cons)){
	goto T342;}
	{register object x= car((V145)),V148= VV[28];
	while(!endp(V148))
	if(eql(x,V148->c.c_car)){
	goto T341;
	}else V148=V148->c.c_cdr;}
	{register object x= car((V145)),V149= VV[29];
	while(!endp(V149))
	if(eql(x,V149->c.c_car)){
	goto T348;
	}else V149=V149->c.c_cdr;
	goto T342;}
T348:;
	base[2]= small_fixnum(0);
	base[3]= cadr((V145));
	vs_top=(vs_base=base+2)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T341;}
	base[2]= small_fixnum(1);
	base[3]= cadr((V145));
	vs_top=(vs_base=base+2)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T342;}
T341:;
	princ_str("\n	{",VV[5]);
	vs_base=vs_top;
	(void) (*Lnk78)();
	vs_top=sup;
	{register object V150;
	setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
	V150= symbol_value(VV[4]);
	V151= list(2,VV[6],(V150));
	V141= make_cons(/* INLINE-ARGS */V151,(V141));
	{object V152= (V146);
	if((V152!= Cnil))goto T364;
	princ_str("object V",VV[5]);
	(void)((*(LnkLI76))((V150)));
	princ_str("= ",VV[5]);
	base[2]= (V144);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk88)();
	vs_top=sup;
	goto T359;
T364:;
	if((V152!= VV[20]))goto T370;
	princ_str("int V",VV[5]);
	(void)((*(LnkLI76))((V150)));
	princ_str("= ",VV[5]);
	base[2]= (V145);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk89)();
	vs_top=sup;
	goto T359;
T370:;
	if((V152!= VV[21]))goto T376;
	princ_str("GEN V",VV[5]);
	(void)((*(LnkLI76))((V150)));
	princ_str("= ",VV[5]);
	base[2]= (V145);
	base[3]= VV[30];
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk90)();
	vs_top=sup;
	goto T359;
T376:;
	if((V152!= VV[22]))goto T383;
	princ_str("unsigned char V",VV[5]);
	(void)((*(LnkLI76))((V150)));
	princ_str("= ",VV[5]);
	base[2]= (V145);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk91)();
	vs_top=sup;
	goto T359;
T383:;
	if((V152!= VV[23]))goto T389;
	princ_str("double V",VV[5]);
	(void)((*(LnkLI76))((V150)));
	princ_str("= ",VV[5]);
	base[2]= (V145);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk92)();
	vs_top=sup;
	goto T359;
T389:;
	if((V152!= VV[24]))goto T395;
	princ_str("float V",VV[5]);
	(void)((*(LnkLI76))((V150)));
	princ_str("= ",VV[5]);
	base[2]= (V145);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk93)();
	vs_top=sup;
	goto T359;
T395:;
	(void)((*(LnkLI100))());}}
T359:;
	princ_char(59,VV[5]);
	goto T326;
T342:;
	V141= make_cons((V144),(V141));
	goto T326;}
T328:;
	V141= make_cons(car((V139)),(V141));
T326:;
	V139= cdr((V139));
	V140= (V140)+1;
	goto T320;}}
T292:;
	V153= (*(LnkLI101))(cadr((V131)));
	{object V154 = list(4,/* INLINE-ARGS */V153,caddr((V131)),(V133),(V134));
	VMR8(V154)}}
}
/*	local entry for function INLINE-TYPE	*/

static object LI9(V156)

object V156;
{	 VMB9 VMS9 VMV9
TTL:;{object V157;
	{register object x= (V156),V159= symbol_value(VV[31]);
	while(!endp(V159))
	if(type_of(V159->c.c_car)==t_cons &&eql(x,V159->c.c_car->c.c_car)){
	V158= (V159->c.c_car);
	goto T410;
	}else V159=V159->c.c_cdr;
	V158= Cnil;}
T410:;
	V157= cdr(V158);
	if(V157==Cnil)goto T408;
	{object V160 = V157;
	VMR9(V160)}
T408:;}
	{object V161 = VV[32];
	VMR9(V161)}
}
/*	local entry for function GET-INLINE-INFO	*/

static object LI10(V165,V166,V167)

object V165;register object V166;object V167;
{	 VMB10 VMS10 VMV10
TTL:;
	{register object V168;
	base[0]=MMcons(Cnil,Cnil);
	V168= Cnil;
	if(((VFUN_NARGS=2,(*(LnkLI102))((V165),(V166))))!=Cnil){
	goto T413;}
	goto T412;
T413:;
	(void)((*(LnkLI103))((V165),(V167),(V166)));
T412:;
	{object V169;
	object V170= (V166);
	if(endp(V170)){
	V166= Cnil;
	goto T416;}
	base[1]=V169=MMcons(Cnil,Cnil);
T417:;
	(V169->c.c_car)= structure_ref(cadr((V170->c.c_car)),VV[0],2);
	if(endp(V170=MMcdr(V170))){
	V166= base[1];
	goto T416;}
	V169=MMcdr(V169)=MMcons(Cnil,Cnil);
	goto T417;}
T416:;
	if((symbol_value(VV[33]))==Cnil){
	goto T423;}
	(base[0]->c.c_car)= get((V165),VV[34],Cnil);
	if(((base[0]->c.c_car))==Cnil){
	goto T419;}
	goto T421;
T423:;
	(base[0]->c.c_car)= get((V165),VV[35],Cnil);
	if(((base[0]->c.c_car))==Cnil){
	goto T419;}
T421:;
	{register object V172;
	object V173;
	V172= (base[0]->c.c_car);
	V173= car((V172));
T430:;
	if(!(endp((V172)))){
	goto T431;}
	goto T419;
T431:;
	V168= (*(LnkLI104))((V173),(V166),(V167));
	if(((V168))==Cnil){
	goto T435;}
	{object V174 = (V168);
	VMR10(V174)}
T435:;
	V172= cdr((V172));
	V173= car((V172));
	goto T430;}
T419:;
	(base[0]->c.c_car)= get((V165),VV[36],Cnil);
	if(((base[0]->c.c_car))==Cnil){
	goto T444;}
	{register object V175;
	object V176;
	V175= (base[0]->c.c_car);
	V176= car((V175));
T451:;
	if(!(endp((V175)))){
	goto T452;}
	goto T444;
T452:;
	V168= (*(LnkLI104))((V176),(V166),(V167));
	if(((V168))==Cnil){
	goto T456;}
	{object V177 = (V168);
	VMR10(V177)}
T456:;
	V175= cdr((V175));
	V176= car((V175));
	goto T451;}
T444:;
	{register object V178;
	object V179;
	V178= symbol_value(VV[37]);
	V179= car((V178));
T469:;
	if(!(endp((V178)))){
	goto T470;}
	goto T465;
T470:;
	if(!((car((V179)))==((V165)))){
	goto T474;}
	V168= (*(LnkLI104))(cdr((V179)),(V166),(V167));
	if(((V168))==Cnil){
	goto T474;}
	{object V180 = (V168);
	VMR10(V180)}
T474:;
	V178= cdr((V178));
	V179= car((V178));
	goto T469;}
T465:;
	(base[0]->c.c_car)= get((V165),VV[38],Cnil);
	if(((base[0]->c.c_car))==Cnil){
	goto T485;}
	if(!(type_of((base[0]->c.c_car))==t_cons)){
	goto T492;}
	if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){
	goto T492;}
	{object V181;
	V182 = make_fixnum(length((V166)));
	V181= (number_compare(V182,car((base[0]->c.c_car)))>=0?Ct:Cnil);
	(base[0]->c.c_car)= cdr((base[0]->c.c_car));
	if(((V181))==Cnil){
	goto T485;}
	goto T490;}
T492:;
T490:;
	base[1]= make_fixnum(length((V166)));
	base[2]= VV[39];
	base[3]= Ct;
	vs_top=(vs_base=base+1)+3;
	Lmake_list();
	vs_top=sup;
	V183= vs_base[0];
	V184= 
	make_cclosure_new(LC27,Cnil,base[0],Cdata);
	{object V185 = list(4,V183,Ct,small_fixnum(3),V184);
	VMR10(V185)}
T485:;
	{object V186 = Cnil;
	VMR10(V186)}}
}
/*	local entry for function INLINE-TYPE-MATCHES	*/

static object LI11(V190,V191,V192)

register object V190;object V191;object V192;
{	 VMB11 VMS11 VMV11
TTL:;
	{register object V193;
	V193= Cnil;
	if(type_of(caddr((V190)))==t_fixnum){
	goto T505;}
	base[0]= (V190);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk105)();
	vs_top=sup;
T505:;
	{register object x= VV[40],V194= car((V190));
	while(!endp(V194))
	if(eql(x,V194->c.c_car)){
	goto T511;
	}else V194=V194->c.c_cdr;
	goto T509;}
T511:;
	{object V195 = Cnil;
	VMR11(V195)}
T509:;
	{register object V196;
	V196= car((V190));
	{register object V197;
	register object V198;
	V197= (V191);
	V198= car((V197));
T520:;
	if(!(endp((V197)))){
	goto T521;}
	if(!(equal((V196),VV[41]))){
	goto T524;}
	goto T515;
T524:;
	if(!(endp((V196)))){
	goto T513;}
	goto T515;
T521:;
	if(!(endp((V196)))){
	goto T527;}
	goto T513;
T527:;
	if(!(equal((V196),VV[42]))){
	goto T530;}
	V196= VV[43];
T530:;
	if(!((car((V196)))==(VV[44]))){
	goto T536;}
	if(((*(LnkLI106))(VV[45],(V198)))==Cnil){
	goto T539;}
	V193= make_cons(VV[45],(V193));
	goto T534;
T539:;
	if(((*(LnkLI106))(VV[46],(V198)))==Cnil){
	goto T543;}
	V193= make_cons(VV[46],(V193));
	goto T534;
T543:;
	if(((*(LnkLI106))(VV[47],(V198)))==Cnil){
	goto T547;}
	V193= make_cons(VV[47],(V193));
	goto T534;
T547:;
	goto T513;
T536:;
	if(((*(LnkLI106))(car((V196)),(V198)))==Cnil){
	goto T551;}
	V193= make_cons(car((V196)),(V193));
	goto T534;
T551:;
	goto T513;
T534:;
	{register object V199;
	V199= car((V196));
	V196= cdr((V196));}
	V197= cdr((V197));
	V198= car((V197));
	goto T520;}}
T515:;
	if(((*(LnkLI106))(cadr((V190)),(V192)))==Cnil){
	goto T513;}
	V200= reverse((V193));
	{object V201 = make_cons(/* INLINE-ARGS */V200,cdr((V190)));
	VMR11(V201)}
T513:;
	{object V202 = Cnil;
	VMR11(V202)}}
}
/*	local entry for function NEED-TO-PROTECT	*/

static object LI12(V205,V206)

object V205;object V206;
{	 VMB12 VMS12 VMV12
TTL:;
	{register object V207;
	V207= Cnil;
	{register object V208;
	register object V209;
	V208= (V205);
	V209= (V206);
T566:;
	if(!(endp((V208)))){
	goto T567;}
	{object V210 = Cnil;
	VMR12(V210)}
T567:;
	{register object V211;
	V211= car((V208));
	{object V212= car((V211));
	if((V212!= VV[14]))goto T573;
	goto T571;
T573:;
	if((V212!= VV[1]))goto T574;
	if(((*(LnkLI75))(caaddr((V211)),cdr((V208))))!=Cnil){
	goto T575;}
	V214= structure_ref(caaddr((V211)),VV[1],1);
	{register object x= /* INLINE-ARGS */V214,V213= VV[48];
	while(!endp(V213))
	if(eql(x,V213->c.c_car)){
	goto T579;
	}else V213=V213->c.c_cdr;
	goto T571;}
T579:;
	V215= car((V209));
	V216= structure_ref(caaddr((V211)),VV[1],1);
	if((/* INLINE-ARGS */V215)==(/* INLINE-ARGS */V216)){
	goto T571;}
T575:;
	{object V217 = Ct;
	VMR12(V217)}
T574:;
	if((V212!= VV[82]))goto T581;
	{register object V218;
	V218= caddr((V211));
	if(((*(LnkLI83))((V218)))==Cnil){
	goto T583;}
	V219= cadddr((V211));
	V220= structure_ref(cadr((V211)),VV[0],2);
	V207= (*(LnkLI84))((V218),/* INLINE-ARGS */V219,/* INLINE-ARGS */V220);
	if(((V207))==Cnil){
	goto T583;}
	base[0]= small_fixnum(0);
	base[1]= caddr((V207));
	vs_top=(vs_base=base+0)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T583;}
	base[0]= small_fixnum(1);
	base[1]= caddr((V207));
	vs_top=(vs_base=base+0)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T583;}
	base[0]= small_fixnum(4);
	base[1]= caddr((V207));
	vs_top=(vs_base=base+0)+2;
	Llogbitp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T583;}
	{register object x= cadr((V207)),V221= VV[49];
	while(!endp(V221))
	if(eql(x,V221->c.c_car)){
	goto T603;
	}else V221=V221->c.c_cdr;
	goto T601;}
T603:;
	if(!((car((V209)))==(cadr((V207))))){
	goto T583;}
T601:;
	if(((*(LnkLI87))(cadddr((V211)),car((V207))))==Cnil){
	goto T571;}
T583:;
	{object V222 = Ct;
	VMR12(V222)}}
T581:;
	if((V212!= VV[96]))goto T606;
	V223= make_cons(caddr((V211)),Cnil);
	if(((*(LnkLI87))(/* INLINE-ARGS */V223,VV[50]))==Cnil){
	goto T571;}
	{object V224 = Ct;
	VMR12(V224)}
T606:;
	{object V225 = Ct;
	VMR12(V225)}}}
T571:;
	V208= cdr((V208));
	V209= cdr((V209));
	goto T566;}}
}
/*	local entry for function WT-C-PUSH	*/

static object LI13()

{	 VMB13 VMS13 VMV13
TTL:;
	if((symbol_value(VV[9]))==Cnil){
	goto T614;}
	vs_base=vs_top;
	(void) (*Lnk78)();
	vs_top=sup;
	{object V226;
	setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));
	V226= symbol_value(VV[4]);
	princ_char(123,VV[5]);
	(void)((*(LnkLI76))(symbol_value(VV[51])));
	princ_str("object V",VV[5]);
	(void)((*(LnkLI76))((V226)));
	princ_char(59,VV[5]);
	{object V227 = list(2,VV[6],(V226));
	VMR13(V227)}}
T614:;
	{object V228 = list(2,VV[12],(*(LnkLI94))());
	VMR13(V228)}
}
/*	local entry for function CLOSE-INLINE-BLOCKS	*/

static object LI14()

{	 VMB14 VMS14 VMV14
TTL:;
	{register object V229;
	V229= symbol_value(VV[2]);
	if(!(type_of((V229))==t_cons)){
	goto T626;}
	if(!(eql(cdr((V229)),VV[52]))){
	goto T629;}
	princ_str("restore_avma;",VV[5]);
T629:;
	V229= car((V229));
T626:;
	{register int V230;
	register int V231;
	V230= fix((V229));
	V231= 0;
T637:;
	if(!((V231)>=(V230))){
	goto T638;}
	{object V232 = Cnil;
	VMR14(V232)}
T638:;
	princ_char(125,VV[5]);
	V231= (V231)+1;
	goto T637;}}
}
/*	function definition for WT-INLINE-LOC	*/

static L15()
{register object *base=vs_base;
	register object *sup=base+VM15; VC15
	vs_reserve(VM15);
	{register object V233;
	object V234;
	check_arg(2);
	V233=(base[0]);
	V234=(base[1]);
	vs_top=sup;
TTL:;
	{register int V235;
	int V236;
	V235= 0;
	V236= -1;
	if(!(type_of((V233))==t_string)){
	goto T650;}
	base[2]= elt((V233),0);
	base[3]= VV[25];
	vs_top=(vs_base=base+2)+2;
	Lchar_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T652;}
	V235= 1;
T660:;
	base[2]= elt((V233),V235);
	base[3]= VV[26];
	vs_top=(vs_base=base+2)+2;
	Lchar_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T661;}
	V235= (V235)+(1);
	goto T652;
T661:;
	V235= (V235)+(1);
	goto T660;
T652:;
	{int V237;
	V237= length((V233));
T674:;
	if(!((V235)>=(V237))){
	goto T675;}
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;
T675:;
	{unsigned char V238;
	V238= char_code(elt((V233),V235));
	base[2]= code_char(V238);
	base[3]= VV[53];
	vs_top=(vs_base=base+2)+2;
	Lchar_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T682;}
	{register object V239;
	register object V240;
	V239= elt((V233),(V235)+1);
	V240= small_fixnum(0);
	if(!(eql((V239),VV[54]))){
	goto T689;}
	if(!((V236)>=(0))){
	goto T691;}
	V241 = make_fixnum(V236);
	V242= one_plus(V241);
	V243 = make_fixnum(length((V234)));
	if(!(number_compare(/* INLINE-ARGS */V242,V243)<0)){
	goto T691;}
	princ_char(44,VV[5]);
T691:;
	{register object V244;
	V245 = make_fixnum(V236);
	V246= one_plus(V245);
	V244= nthcdr(fixint(/* INLINE-ARGS */V246),(V234));
T699:;
	if(((V244))!=Cnil){
	goto T700;}
	goto T686;
T700:;
	base[2]= car((V244));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk88)();
	vs_top=sup;
	if((cdr((V244)))==Cnil){
	goto T706;}
	princ_char(44,VV[5]);
T706:;
	V244= cdr((V244));
	goto T699;}
T689:;
	base[2]= (V239);
	base[3]= small_fixnum(10);
	vs_top=(vs_base=base+2)+2;
	Ldigit_char_p();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T686;}
	base[2]= (V239);
	vs_top=(vs_base=base+2)+1;
	Lchar_code();
	vs_top=sup;
	V247= vs_base[0];
	V248 = make_fixnum((48));
	V240= number_minus(V247,V248);
	V249 = make_fixnum(length((V233)));
	V250 = make_fixnum(V235);
	V251= number_plus(V250,small_fixnum(2));
	if(!(number_compare(V249,/* INLINE-ARGS */V251)>0)){
	goto T721;}
	V252 = make_fixnum(V235);
	V253= number_plus(V252,small_fixnum(2));
	V239= elt((V233),fixint(/* INLINE-ARGS */V253));
	if(((V239))==Cnil){
	goto T721;}
	base[2]= (V239);
	vs_top=(vs_base=base+2)+1;
	Ldigit_char_p();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T721;}
	V254= number_times((V240),small_fixnum(10));
	base[2]= (V239);
	vs_top=(vs_base=base+2)+1;
	Lchar_code();
	vs_top=sup;
	V255= vs_base[0];
	V256 = make_fixnum((48));
	V257= number_minus(V255,V256);
	V240= number_plus(/* INLINE-ARGS */V254,/* INLINE-ARGS */V257);
	V235= (V235)+(1);
T721:;
	V258 = make_fixnum(V236);
	if(!(number_compare((V240),V258)>=0)){
	goto T735;}
	V236= fix((V240));
T735:;
	base[2]= nth(fixint((V240)),(V234));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk88)();
	vs_top=sup;}
T686:;
	V235= (V235)+(2);
	goto T679;
T682:;
	(void)(princ(code_char(V238),symbol_value(VV[5])));
	V235= (V235)+(1);}
T679:;
	goto T674;}
T650:;
	base[2]= (V233);
	{object V259;
	V259= (V234);
	 vs_top=base+3;
	 while(!endp(V259))
	 {vs_push(car(V259));V259=cdr(V259);}
	vs_base=base+3;}
	super_funcall_no_event(base[2]);
	return;}
	}
}
/*	function definition for WT-INLINE	*/

static L16()
{register object *base=vs_base;
	register object *sup=base+VM16; VC16
	vs_reserve(VM16);
	{object V260;
	object V261;
	object V262;
	check_arg(3);
	V260=(base[0]);
	V261=(base[1]);
	V262=(base[2]);
	vs_top=sup;
TTL:;
	base[3]= (V261);
	base[4]= (V262);
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk107)();
	return;
	}
}
/*	local entry for function WT-INLINE-COND	*/

static object LI17(V266,V267,V268)

object V266;object V267;object V268;
{	 VMB17 VMS17 VMV17
TTL:;
	princ_char(40,VV[5]);
	base[0]= (V267);
	base[1]= (V268);
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk107)();
	vs_top=sup;
	princ_str("?Ct:Cnil)",VV[5]);
	{object V269 = Cnil;
	VMR17(V269)}
}
/*	local entry for function WT-INLINE-FIXNUM	*/

static object LI18(V273,V274,V275)

object V273;object V274;object V275;
{	 VMB18 VMS18 VMV18
TTL:;
	if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){
	goto T755;}
	princ_str("CMP",VV[5]);
T755:;
	princ_str("make_fixnum(",VV[5]);
	base[0]= (V274);
	base[1]= (V275);
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk107)();
	vs_top=sup;
	princ_char(41,VV[5]);
	{object V276 = Cnil;
	VMR18(V276)}
}
/*	function definition for WT-INLINE-INTEGER	*/

static L19()
{register object *base=vs_base;
	register object *sup=base+VM19; VC19
	vs_reserve(VM19);
	{object V277;
	object V278;
	object V279;
	check_arg(3);
	V277=(base[0]);
	V278=(base[1]);
	V279=(base[2]);
	vs_top=sup;
TTL:;
	princ_str("make_integer(",VV[5]);
	base[3]= (V278);
	base[4]= (V279);
	vs_top=(vs_base=base+3)+2;
	(void) (*Lnk107)();
	vs_top=sup;
	princ_char(41,VV[5]);
	base[3]= Cnil;
	vs_top=(vs_base=base+3)+1;
	return;
	}
}
/*	local entry for function WT-INLINE-CHARACTER	*/

static object LI20(V283,V284,V285)

object V283;object V284;object V285;
{	 VMB20 VMS20 VMV20
TTL:;
	princ_str("code_char(",VV[5]);
	base[0]= (V284);
	base[1]= (V285);
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk107)();
	vs_top=sup;
	princ_char(41,VV[5]);
	{object V286 = Cnil;
	VMR20(V286)}
}
/*	local entry for function WT-INLINE-LONG-FLOAT	*/

static object LI21(V290,V291,V292)

object V290;object V291;object V292;
{	 VMB21 VMS21 VMV21
TTL:;
	princ_str("make_longfloat(",VV[5]);
	base[0]= (V291);
	base[1]= (V292);
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk107)();
	vs_top=sup;
	princ_char(41,VV[5]);
	{object V293 = Cnil;
	VMR21(V293)}
}
/*	local entry for function WT-INLINE-SHORT-FLOAT	*/

static object LI22(V297,V298,V299)

object V297;object V298;object V299;
{	 VMB22 VMS22 VMV22
TTL:;
	princ_str("make_shortfloat(",VV[5]);
	base[0]= (V298);
	base[1]= (V299);
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk107)();
	vs_top=sup;
	princ_char(41,VV[5]);
	{object V300 = Cnil;
	VMR22(V300)}
}
/*	local entry for function ARGS-CAUSE-SIDE-EFFECT	*/

static object LI23(V302)

object V302;
{	 VMB23 VMS23 VMV23
TTL:;
	{register object V303;
	V303= Cnil;
	{register object V304;
	register object V305;
	V304= (V302);
	V305= car((V304));
T793:;
	if(!(endp((V304)))){
	goto T794;}
	{object V306 = Cnil;
	VMR23(V306)}
T794:;
	{object V307= car((V305));
	if((V307!= VV[14])
	&& (V307!= VV[1])
	&& (V307!= VV[96]))goto T799;
	goto T798;
T799:;
	if((V307!= VV[82]))goto T800;
	{register object V308;
	V308= caddr((V305));
	if(((*(LnkLI83))((V308)))==Cnil){
	goto T802;}
	V309= cadddr((V305));
	V310= structure_ref(cadr((V305)),VV[0],2);
	V303= (*(LnkLI84))((V308),/* INLINE-ARGS */V309,/* INLINE-ARGS */V310);
	if(((V303))==Cnil){
	goto T802;}
	base[1]= (V303);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk105)();
	vs_top=sup;
	base[1]= small_fixnum(1);
	base[2]= caddr((V303));
	vs_top=(vs_base=base+1)+2;
	Llogbitp();
	vs_top=sup;
	V311= vs_base[0];
	if((V311)==Cnil){
	goto T798;}
T802:;
	{object V312 = Ct;
	VMR23(V312)}}
T800:;
	{object V313 = Ct;
	VMR23(V313)}}
T798:;
	V304= cdr((V304));
	V305= car((V304));
	goto T793;}}
}
/*	local entry for function LIST-INLINE	*/

static object LI24(va_alist)
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB24 VMS24 VMV24
	{object V314;
	narg= narg - 0;
	va_start(ap);
	V315 = list_vector(narg,ap);
	V314= V315;
	{object V316;
	object V317;
	V316= Cnil;
	V317= make_fixnum(length((V314)));
	if(type_of(symbol_value(VV[13]))==t_cons){
	goto T826;}
	V316= Cnil;
	goto T825;
T826:;
	if((car(symbol_value(VV[13])))==(VV[1])){
	goto T828;}
	V316= Cnil;
	goto T825;
T828:;
	V318= structure_ref(cadr(symbol_value(VV[13])),VV[1],5);
	V316= ((/* INLINE-ARGS */V318)==(VV[57])?Ct:Cnil);
T825:;
	if(((V316))==Cnil){
	goto T823;}
	princ_str("(ALLOCA_CONS(",VV[5]);
	(void)((*(LnkLI76))((V317)));
	princ_str("),ON_STACK_LIST(",VV[5]);
	(void)((*(LnkLI76))((V317)));
	goto T821;
T823:;
	princ_str("list(",VV[5]);
	V319 = make_fixnum(length((V314)));
	(void)((*(LnkLI76))(V319));
T821:;
	{register object V320;
	register object V321;
	V320= (V314);
	V321= car((V320));
T840:;
	if(!(endp((V320)))){
	goto T841;}
	goto T836;
T841:;
	(void)((*(LnkLI76))(VV[58]));
	(void)((*(LnkLI76))((V321)));
	V320= cdr((V320));
	V321= car((V320));
	goto T840;}
T836:;
	(void)((*(LnkLI76))(VV[59]));
	if(((V316))==Cnil){
	goto T856;}
	(void)((*(LnkLI76))(VV[59]));
	{object V322 = Cnil;
	VMR24(V322)}
T856:;
	{object V323 = Cnil;
	VMR24(V323)}}}
	}
/*	local entry for function LIST*-INLINE	*/

static object LI25(va_alist)
	va_dcl 
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB25 VMS25 VMV25
	{register object V324;
	narg= narg - 0;
	va_start(ap);
	V325 = list_vector(narg,ap);
	V324= V325;switch(length((V324))){
	case 1:
T860:;
	(void)((*(LnkLI76))(car((V324))));
	{object V326 = Cnil;
	VMR25(V326)}
	case 2:
T861:;
	princ_str("make_cons(",VV[5]);
	(void)((*(LnkLI76))(car((V324))));
	princ_char(44,VV[5]);
	(void)((*(LnkLI76))(cadr((V324))));
	princ_char(41,VV[5]);
	{object V327 = Cnil;
	VMR25(V327)}
	default:
T862:;
	princ_str("listA(",VV[5]);
	V328 = make_fixnum(length((V324)));
	(void)((*(LnkLI76))(V328));
	{register object V329;
	register object V330;
	V329= (V324);
	V330= car((V329));
T877:;
	if(!(endp((V329)))){
	goto T878;}
	goto T873;
T878:;
	(void)((*(LnkLI76))(VV[58]));
	(void)((*(LnkLI76))((V330)));
	V329= cdr((V329));
	V330= car((V329));
	goto T877;}
T873:;
	(void)((*(LnkLI76))(VV[59]));
	{object V331 = Cnil;
	VMR25(V331)}
	{object V332 = Cnil;
	VMR25(V332)}}
	{object V333 = Cnil;
	VMR25(V333)}}
	}
/*	local entry for function DEFSYSFUN	*/

static object LI26(V340,V341,V342,V343,V344,V345)

register object V340;object V341;object V342;register object V343;object V344;object V345;
{	 VMB26 VMS26 VMV26
TTL:;
	if(((V341))==Cnil){
	goto T891;}
	(void)(putprop((V340),(V341),VV[60]));
T891:;
	if(((V342))==Cnil){
	goto T894;}
	{object V347;
	object V348= (V342);
	if(endp(V348)){
	V346= Cnil;
	goto T897;}
	base[0]=V347=MMcons(Cnil,Cnil);
T898:;
	if(!(((V348->c.c_car))==(VV[61]))){
	goto T901;}
	(V347->c.c_car)= VV[61];
	goto T899;
T901:;
	(V347->c.c_car)= (*(LnkLI108))((V348->c.c_car));
T899:;
	if(endp(V348=MMcdr(V348))){
	V346= base[0];
	goto T897;}
	V347=MMcdr(V347)=MMcons(Cnil,Cnil);
	goto T898;}
T897:;
	(void)(putprop((V340),V346,VV[62]));
T894:;
	if(((V343))==Cnil){
	goto T903;}
	{register object V350;
	if(!(type_of((V343))!=t_cons)){
	goto T909;}
	V351= make_cons((V343),Cnil);
	goto T907;
T909:;
	V351= (V343);
T907:;
	V350= (*(LnkLI109))(V351);
	if(!(type_of((V350))==t_cons)){
	goto T912;}
	goto T911;
T912:;
	V350= make_cons((V350),Cnil);
T911:;
	if((cdr((V350)))!=Cnil){
	goto T917;}
	V352= car((V350));
	goto T915;
T917:;
	V352= make_cons(VV[63],(V350));
T915:;
	(void)(putprop((V340),V352,VV[64]));}
T903:;
	if(((V344))==Cnil){
	goto T919;}
	(void)(putprop((V340),Ct,VV[65]));
T919:;
	if(((V345))==Cnil){
	goto T923;}
	{object V353 = putprop((V340),Ct,VV[66]);
	VMR26(V353)}
T923:;
	{object V354 = Cnil;
	VMR26(V354)}
}
/*	local function CLOSURE	*/

static LC27(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM27; VC27
	vs_reserve(VM27);
	{object V355;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V355=(base[0]);
	vs_top=sup;
	princ_str("(VFUN_NARGS=",VV[5]);
	V356 = make_fixnum(length((V355)));
	(void)((*(LnkLI76))(V356));
	princ_char(44,VV[5]);
	base[1]= (base0[0]->c.c_car);
	base[2]= (V355);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk107)();
	vs_top=sup;
	princ_char(41,VV[5]);
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* FUNCTION-RETURN-TYPE */
static object  LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* TYPE-FILTER */
static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* WT-INLINE-LOC */
static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* TYPE>= */
static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FIX-OPT */
static object  LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],&LnkLI104,3,ap);} /* INLINE-TYPE-MATCHES */
static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,3,ap);} /* ADD-FAST-LINK */
static object  LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[102],&LnkLI102,ap);} /* FAST-LINK-PROCLAIMED-TYPE-P */
static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,1,ap);} /* INLINE-TYPE */
static object  LnkTLI100(){return call_proc0(VV[100],&LnkLI100);} /* BABOON */
static object  LnkTLI7(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[7],&LnkLI7,ap);} /* INLINE-ARGS */
static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],&LnkLI99,ap);} /* MAKE-VAR */
static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,2,ap);} /* COERCE-LOC-STRUCTURE-REF */
static object  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],&LnkLI95,1,ap);} /* C2EXPR* */
static object  LnkTLI94(){return call_proc0(VV[94],&LnkLI94);} /* VS-PUSH */
static LnkT93(){ call_or_link(VV[93],&Lnk93);} /* WT-SHORT-FLOAT-LOC */
static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* WT-LONG-FLOAT-LOC */
static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* WT-CHARACTER-LOC */
static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* WT-INTEGER-LOC */
static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* WT-FIXNUM-LOC */
static LnkT88(){ call_or_link(VV[88],&Lnk88);} /* WT-LOC */
static object  LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[87],&LnkLI87,2,ap);} /* NEED-TO-PROTECT */
static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],&LnkLI86,2,ap);} /* GET-INLINE-LOC */
static LnkT85(){ call_or_link(VV[85],&Lnk85);} /* SAVE-AVMA */
static object  LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[84],&LnkLI84,3,ap);} /* GET-INLINE-INFO */
static object  LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[83],&LnkLI83,1,ap);} /* INLINE-POSSIBLE */
static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[81],&LnkLI81,ap);} /* CS-PUSH */
static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,2,ap);} /* WT-VAR */
static object  LnkTLI79(){return call_proc0(VV[79],&LnkLI79);} /* WT-C-PUSH */
static LnkT78(){ call_or_link(VV[78],&Lnk78);} /* INC-INLINE-BLOCKS */
static object  LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],&LnkLI77,1,ap);} /* REP-TYPE */
static object  LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,1,ap);} /* WT1 */
static object  LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,2,ap);} /* ARGS-INFO-CHANGED-VARS */
static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,2,ap);} /* COERCE-LOC */

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