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

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

#include <cmpinclude.h>
#include "cmpfun.h"
init_cmpfun(){do_init(VV);}
/*	local entry for function C1PRINC	*/

static object LI1(V2)

register object V2;
{	 VMB1 VMS1 VMV1
TTL:;
	{object V3;
	object V4;
	V3= Cnil;
	V4= (VFUN_NARGS=0,(*(LnkLI215))());
	if(!(endp((V2)))){
	goto T3;}
	(void)((*(LnkLI216))(VV[0],small_fixnum(1),small_fixnum(0)));
T3:;
	if(endp(cdr((V2)))){
	goto T6;}
	if(endp(cddr((V2)))){
	goto T6;}
	V5 = make_fixnum(length((V2)));
	(void)((*(LnkLI217))(VV[0],small_fixnum(2),V5));
T6:;
	if(!(endp(cdr((V2))))){
	goto T14;}
	V3= (*(LnkLI218))();
	goto T12;
T14:;
	V3= (*(LnkLI219))(cadr((V2)),(V4));
T12:;
	if(!(type_of(car((V2)))==t_string)){
	goto T19;}
	V6 = make_fixnum(length(car((V2))));
	if(number_compare(V6,symbol_value(VV[1]))<=0){
	goto T18;}
T19:;
	if(!(type_of(car((V2)))==t_character)){
	goto T17;}
T18:;
	if(endp(cdr((V2)))){
	goto T16;}
	if(!((car((V3)))==(VV[2]))){
	goto T17;}
	V8= structure_ref(caaddr((V3)),VV[2],1);
	{register object x= /* INLINE-ARGS */V8,V7= VV[3];
	while(!endp(V7))
	if(eql(x,V7->c.c_car)){
	goto T28;
	}else V7=V7->c.c_cdr;
	goto T17;}
T28:;
T16:;
	V9= car((V2));
	if(!(endp(cdr((V2))))){
	goto T31;}
	V10= Cnil;
	goto T29;
T31:;
	V10= structure_ref(caaddr((V3)),VV[2],4);
T29:;
	{object V11 = list(5,VV[0],(V4),/* INLINE-ARGS */V9,V10,(V3));
	VMR1(V11)}
T17:;
	V12= (*(LnkLI219))(car((V2)),(V4));
	{object V13 = list(4,VV[4],(V4),VV[0],list(2,/* INLINE-ARGS */V12,(V3)));
	VMR1(V13)}}
}
/*	local entry for function C2PRINC	*/

static object LI2(V17,V18,V19)

register object V17;register object V18;object V19;
{	 VMB2 VMS2 VMV2
TTL:;
	if(!((symbol_value(VV[5]))==(VV[6]))){
	goto T34;}
	if(!(type_of((V17))==t_character)){
	goto T38;}
	princ_str("\n	princ_char(",VV[7]);
	base[0]= (V17);
	vs_top=(vs_base=base+0)+1;
	Lchar_code();
	vs_top=sup;
	V20= vs_base[0];
	(void)((*(LnkLI220))(V20));
	if(((V18))!=Cnil){
	goto T47;}
	princ_str(",Cnil",VV[7]);
	goto T45;
T47:;
	princ_str(",VV[",VV[7]);
	(void)((*(LnkLI220))((V18)));
	princ_char(93,VV[7]);
T45:;
	princ_str(");",VV[7]);
	goto T36;
T38:;
	if(!((length((V17)))==(1))){
	goto T55;}
	princ_str("\n	princ_char(",VV[7]);
	base[0]= aref1((V17),0);
	vs_top=(vs_base=base+0)+1;
	Lchar_code();
	vs_top=sup;
	V21= vs_base[0];
	(void)((*(LnkLI220))(V21));
	if(((V18))!=Cnil){
	goto T64;}
	princ_str(",Cnil",VV[7]);
	goto T62;
T64:;
	princ_str(",VV[",VV[7]);
	(void)((*(LnkLI220))((V18)));
	princ_char(93,VV[7]);
T62:;
	princ_str(");",VV[7]);
	goto T36;
T55:;
	princ_str("\n	princ_str(\"",VV[7]);
	{int V22;
	int V23;
	V22= length((V17));
	V23= 0;
T77:;
	if(!((V23)>=(V22))){
	goto T78;}
	goto T73;
T78:;
	{object V24;
	V24= elt((V17),V23);
	base[0]= (V24);
	base[1]= VV[8];
	vs_top=(vs_base=base+0)+2;
	Lchar_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T85;}
	princ_str("\\\\",VV[7]);
	goto T82;
T85:;
	base[0]= (V24);
	base[1]= VV[9];
	vs_top=(vs_base=base+0)+2;
	Lchar_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T91;}
	princ_str("\\\"",VV[7]);
	goto T82;
T91:;
	base[0]= (V24);
	base[1]= VV[10];
	vs_top=(vs_base=base+0)+2;
	Lchar_eq();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T97;}
	princ_str("\\n",VV[7]);
	goto T82;
T97:;
	(void)((*(LnkLI220))((V24)));}
T82:;
	V23= (V23)+1;
	goto T77;}
T73:;
	princ_str("\",",VV[7]);
	if(((V18))!=Cnil){
	goto T110;}
	princ_str("Cnil",VV[7]);
	goto T108;
T110:;
	princ_str("VV[",VV[7]);
	(void)((*(LnkLI220))((V18)));
	princ_char(93,VV[7]);
T108:;
	princ_str(");",VV[7]);
T36:;
	{object V25 = (VFUN_NARGS=1,(*(LnkLI221))(Cnil));
	VMR2(V25)}
T34:;
	if(!(eql((V17),VV[10]))){
	goto T118;}
	V26= make_cons((V19),Cnil);
	{object V27 = (*(LnkLI222))(VV[11],/* INLINE-ARGS */V26,Cnil,Ct);
	VMR2(V27)}
T118:;
	if(!(type_of((V17))==t_character)){
	goto T122;}
	V28= VV[14];
	goto T120;
T122:;
	V28= VV[15];
T120:;
	V29= (VFUN_NARGS=2,(*(LnkLI215))(VV[13],V28));
	V30= list(2,list(3,VV[12],/* INLINE-ARGS */V29,list(2,VV[16],(*(LnkLI223))((V17)))),(V19));
	{object V31 = (*(LnkLI222))(VV[0],/* INLINE-ARGS */V30,Cnil,Ct);
	VMR2(V31)}
}
/*	local entry for function C1TERPRI	*/

static object LI3(V33)

register object V33;
{	 VMB3 VMS3 VMV3
TTL:;
	{object V34;
	object V35;
	V34= Cnil;
	V35= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V33))){
	goto T126;}
	if(endp(cdr((V33)))){
	goto T126;}
	V36 = make_fixnum(length((V33)));
	(void)((*(LnkLI217))(VV[11],small_fixnum(1),V36));
T126:;
	if(!(endp((V33)))){
	goto T134;}
	V34= (*(LnkLI218))();
	goto T132;
T134:;
	V34= (*(LnkLI219))(car((V33)),(V35));
T132:;
	if(endp((V33))){
	goto T136;}
	if(!((car((V34)))==(VV[2]))){
	goto T137;}
	V38= structure_ref(caaddr((V34)),VV[2],1);
	{register object x= /* INLINE-ARGS */V38,V37= VV[17];
	while(!endp(V37))
	if(eql(x,V37->c.c_car)){
	goto T142;
	}else V37=V37->c.c_cdr;
	goto T137;}
T142:;
T136:;
	if(!(endp((V33)))){
	goto T145;}
	V39= Cnil;
	goto T143;
T145:;
	V39= structure_ref(caaddr((V34)),VV[2],4);
T143:;
	{object V40 = list(5,VV[0],(V35),VV[10],V39,(V34));
	VMR3(V40)}
T137:;
	{object V41 = list(4,VV[4],(V35),VV[11],make_cons((V34),Cnil));
	VMR3(V41)}}
}
/*	local entry for function C1APPLY	*/

static object LI4(V43)

register object V43;
{	 VMB4 VMS4 VMV4
TTL:;
	{object V44;
	V44= Cnil;
	if(endp((V43))){
	goto T149;}
	if(!(endp(cdr((V43))))){
	goto T148;}
T149:;
	V45 = make_fixnum(length((V43)));
	(void)((*(LnkLI216))(VV[18],small_fixnum(2),V45));
T148:;
	{object V46;
	V46= (*(LnkLI224))(car((V43)));
	base[0]= cadr((V46));
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk225)();
	vs_top=sup;
	V44= vs_base[0];
	V43= (*(LnkLI226))(cdr((V43)),(V44));
	if(!((car((V46)))==(VV[19]))){
	goto T160;}
	{object V47;
	object V48;
	V47= caddr((V46));
	V48= caddr((V47));
	if((cadr((V48)))!=Cnil){
	goto T165;}
	if((cadddr((V48)))!=Cnil){
	goto T165;}
	{object V49 = (*(LnkLI227))((V44),car((V48)),caddr((V48)),car(cddddr((V47))),(V43));
	VMR4(V49)}
T165:;
	{object V50 = list(4,VV[18],(V44),(V46),(V43));
	VMR4(V50)}}
T160:;
	{object V51 = list(4,VV[18],(V44),(V46),(V43));
	VMR4(V51)}}}
}
/*	local entry for function C2APPLY	*/

static object LI5(V54,V55)

object V54;object V55;
{	 VMB5 VMS5 VMV5
	bds_check;
TTL:;
	{object V56;
	bds_bind(VV[20],symbol_value(VV[20]));
	V56= Cnil;
	V56= (*(LnkLI228))((V54));
	{object V57;
	object V58;
	base[1]= (VV[20]->s.s_dbind);
	V57= (VV[20]->s.s_dbind);
	setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
	V58= list(2,VV[21],symbol_value(VV[22]));
	bds_bind(VV[20],base[1]);
	{object V59;
	V59= (V55);
T180:;
	if(!(endp(cdr((V59))))){
	goto T181;}
	princ_str("\n	{object ",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_char(59,VV[7]);
	bds_bind(VV[5],(V58));
	V60= (*(LnkLI229))(car((V59)));
	bds_unwind1;
	goto T177;
T181:;
	base[2]= list(2,VV[23],(*(LnkLI230))());
	bds_bind(VV[5],base[2]);
	V61= (*(LnkLI229))(car((V59)));
	bds_unwind1;
	V59= cdr((V59));
	goto T180;}
T177:;
	princ_str("\n	 vs_top=base+",VV[7]);
	(void)((*(LnkLI220))((VV[20]->s.s_dbind)));
	princ_char(59,VV[7]);
	setq(VV[24],Ct);
	if((symbol_value(VV[25]))==Cnil){
	goto T202;}
	princ_str("\n	 while(!endp(",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_str("))",VV[7]);
	princ_str("\n	 {vs_push(car(",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_str("));",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_str("=cdr(",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_str(");}",VV[7]);
	goto T200;
T202:;
	princ_str("\n	 while(",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_str("!=Cnil)",VV[7]);
	princ_str("\n	 {vs_push((",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_str(")->c.c_car);",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_str("=(",VV[7]);
	(void)((*(LnkLI220))((V58)));
	princ_str(")->c.c_cdr;}",VV[7]);
T200:;
	princ_str("\n	vs_base=base+",VV[7]);
	(void)((*(LnkLI220))((V57)));
	princ_str(";}",VV[7]);
	setq(VV[24],Ct);
	bds_unwind1;}
	{object V62 = (VFUN_NARGS=3,(*(LnkLI231))((V54),VV[26],(V56)));
	bds_unwind1;
	VMR5(V62)}}
}
/*	local entry for function C1APPLY-OPTIMIZE	*/

static object LI6(V68,V69,V70,V71,V72)

object V68;register object V69;object V70;object V71;register object V72;
{	 VMB6 VMS6 VMV6
TTL:;
	{object V73;
	object V74;
	V73= Cnil;
	V74= Cnil;
T237:;
	if(endp(cdr((V72)))){
	goto T239;}
	if(!(endp((V69)))){
	goto T238;}
T239:;
	goto T235;
T238:;
	{object V76;
	V76= car((V69));
	V69= cdr((V69));
	V75= (V76);}
	V73= make_cons(V75,(V73));
	{object V78;
	V78= car((V72));
	V72= cdr((V72));
	V77= (V78);}
	V74= make_cons(V77,(V74));
	goto T237;
T235:;
	if((cdr((V72)))==Cnil){
	goto T259;}
	if(((V70))!=Cnil){
	goto T261;}
	(void)((VFUN_NARGS=1,(*(LnkLI232))(VV[27])));
T261:;
	V73= make_cons((V70),(V73));
	V79= list(4,VV[4],(V68),VV[28],(V72));
	V74= make_cons(/* INLINE-ARGS */V79,(V74));
	V80= reverse((V73));
	{object V81 = list(5,VV[29],(V68),/* INLINE-ARGS */V80,reverse((V74)),(V71));
	VMR6(V81)}
T259:;
	if(((V69))==Cnil){
	goto T269;}
	{object V82;
	V82= (VFUN_NARGS=4,(*(LnkLI233))(VV[30],VV[31],VV[32],Ct));
	V73= make_cons((V82),(V73));
	V74= make_cons(car((V72)),(V74));
	V83= reverse((V73));
	V84= reverse((V74));
	{object V85 = list(5,VV[29],(V68),/* INLINE-ARGS */V83,/* INLINE-ARGS */V84,list(6,VV[33],cadr((V71)),(V82),(V69),(V70),(V71)));
	VMR6(V85)}}
T269:;
	if(((V70))==Cnil){
	goto T277;}
	V73= make_cons((V70),(V73));
	V74= make_cons(car((V72)),(V74));
	V86= reverse((V73));
	{object V87 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,reverse((V74)),(V71));
	VMR6(V87)}
T277:;
	{object V88;
	V88= (VFUN_NARGS=4,(*(LnkLI233))(VV[30],VV[31],VV[32],Ct));
	V73= make_cons((V88),(V73));
	V74= make_cons(car((V72)),(V74));
	V89= reverse((V73));
	V90= reverse((V74));
	{object V91 = list(5,VV[29],(V68),/* INLINE-ARGS */V89,/* INLINE-ARGS */V90,list(6,VV[33],cadr((V71)),(V88),(V69),(V70),(V71)));
	VMR6(V91)}}}
}
/*	function definition for C2APPLY-OPTIMIZE	*/

static L7()
{register object *base=vs_base;
	register object *sup=base+VM7; VC7
	vs_reserve(VM7);
	bds_check;
	{object V92;
	object V93;
	object V94;
	object V95;
	check_arg(4);
	V92=(base[0]);
	V93=(base[1]);
	V94=(base[2]);
	V95=(base[3]);
	vs_top=sup;
TTL:;
	bds_bind(VV[34],symbol_value(VV[34]));
	bds_bind(VV[20],symbol_value(VV[20]));
	bds_bind(VV[35],symbol_value(VV[35]));
	bds_bind(VV[36],symbol_value(VV[36]));
	if((symbol_value(VV[25]))!=Cnil){
	goto T289;}
	if((symbol_value(VV[37]))==Cnil){
	goto T288;}
T289:;
	princ_str("\n	",VV[7]);
	if(((V94))==Cnil){
	goto T298;}
	V96= VV[38];
	goto T296;
T298:;
	V96= VV[39];
T296:;
	(void)((*(LnkLI220))(V96));
	princ_char(40,VV[7]);
	V97 = make_fixnum(length((V93)));
	(void)((*(LnkLI220))(V97));
	princ_char(44,VV[7]);
	(void)((*(LnkLI234))((V92),Cnil));
	princ_str(");",VV[7]);
T288:;
	{object V98;
	object V99;
	V98= (V93);
	V99= car((V98));
T309:;
	if(!(endp((V98)))){
	goto T310;}
	goto T305;
T310:;
	V100= (*(LnkLI230))();
	(void)(structure_set((V99),VV[2],2,/* INLINE-ARGS */V100));
	V98= cdr((V98));
	V99= car((V98));
	goto T309;}
T305:;
	if(((V94))==Cnil){
	goto T320;}
	V101= (*(LnkLI230))();
	(void)(structure_set((V94),VV[2],2,/* INLINE-ARGS */V101));
T320:;
	{int V102;
	object V103;
	V102= 0;
	V103= (V93);
T327:;
	if(!(endp((V103)))){
	goto T328;}
	if(((V94))==Cnil){
	goto T323;}
	princ_str("\n	",VV[7]);
	V104= structure_ref((V94),VV[2],2);
	(void)((*(LnkLI235))(/* INLINE-ARGS */V104));
	princ_str("= ",VV[7]);
	{int V105;
	int V106;
	V105= V102;
	V106= 0;
T341:;
	if(!((V106)>=(V105))){
	goto T342;}
	goto T337;
T342:;
	princ_char(40,VV[7]);
	V106= (V106)+1;
	goto T341;}
T337:;
	(void)((*(LnkLI234))((V92),Cnil));
	{int V107;
	int V108;
	V107= V102;
	V108= 0;
T356:;
	if(!((V108)>=(V107))){
	goto T357;}
	goto T352;
T357:;
	princ_str("\n	)->c.c_cdr",VV[7]);
	V108= (V108)+1;
	goto T356;}
T352:;
	princ_char(59,VV[7]);
	goto T323;
T328:;
	princ_str("\n	",VV[7]);
	V109= structure_ref(car((V103)),VV[2],2);
	(void)((*(LnkLI235))(/* INLINE-ARGS */V109));
	princ_str("=(",VV[7]);
	{int V110;
	int V111;
	V110= V102;
	V111= 0;
T376:;
	if(!((V111)>=(V110))){
	goto T377;}
	goto T372;
T377:;
	princ_char(40,VV[7]);
	V111= (V111)+1;
	goto T376;}
T372:;
	(void)((*(LnkLI234))((V92),Cnil));
	{int V112;
	int V113;
	V112= V102;
	V113= 0;
T391:;
	if(!((V113)>=(V112))){
	goto T392;}
	goto T387;
T392:;
	princ_str("\n	)->c.c_cdr",VV[7]);
	V113= (V113)+1;
	goto T391;}
T387:;
	princ_str(")->c.c_car;",VV[7]);
	V102= (V102)+1;
	V103= cdr((V103));
	goto T327;}
T323:;
	{object V114;
	object V115;
	V114= (V93);
	V115= car((V114));
T411:;
	if(!(endp((V114)))){
	goto T412;}
	goto T407;
T412:;
	(void)((*(LnkLI236))((V115)));
	V114= cdr((V114));
	V115= car((V114));
	goto T411;}
T407:;
	if(((V94))==Cnil){
	goto T422;}
	(void)((*(LnkLI236))((V94)));
T422:;
	base[8]= (V95);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk237)();
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
	}
}
/*	local entry for function C1FUNCALL	*/

static object LI8(V117)

object V117;
{	 VMB8 VMS8 VMV8
TTL:;
	{object V118;
	object V119;
	V118= Cnil;
	V119= (VFUN_NARGS=0,(*(LnkLI215))());
	if(!(endp((V117)))){
	goto T428;}
	(void)((*(LnkLI216))(VV[40],small_fixnum(1),small_fixnum(0)));
T428:;
	V118= (*(LnkLI224))(car((V117)));
	(void)((*(LnkLI238))((V119),cadr((V118))));
	{object V120 = list(4,VV[40],(V119),(V118),(*(LnkLI226))(cdr((V117)),(V119)));
	VMR8(V120)}}
}
/*	local entry for function C1RPLACA	*/

static object LI9(V122)

register object V122;
{	 VMB9 VMS9 VMV9
TTL:;
	{object V123;
	V123= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V122))){
	goto T436;}
	if(!(endp(cdr((V122))))){
	goto T435;}
T436:;
	V124 = make_fixnum(length((V122)));
	(void)((*(LnkLI216))(VV[41],small_fixnum(2),V124));
T435:;
	if(endp(cddr((V122)))){
	goto T440;}
	V125 = make_fixnum(length((V122)));
	(void)((*(LnkLI217))(VV[41],small_fixnum(2),V125));
T440:;
	V122= (*(LnkLI226))((V122),(V123));
	{object V126 = list(3,VV[41],(V123),(V122));
	VMR9(V126)}}
}
/*	local entry for function C2RPLACA	*/

static object LI10(V128)

register object V128;
{	 VMB10 VMS10 VMV10
	bds_check;
TTL:;
	bds_bind(VV[20],symbol_value(VV[20]));
	bds_bind(VV[42],small_fixnum(0));
	V128= (VFUN_NARGS=2,(*(LnkLI239))((V128),VV[43]));
	if((symbol_value(VV[25]))==Cnil){
	goto T447;}
	princ_str("\n	if(type_of(",VV[7]);
	(void)((*(LnkLI220))(car((V128))));
	princ_str(")!=t_cons)",VV[7]);
	princ_str("FEwrong_type_argument(Scons,",VV[7]);
	(void)((*(LnkLI220))(car((V128))));
	princ_str(");",VV[7]);
T447:;
	princ_str("\n	(",VV[7]);
	(void)((*(LnkLI220))(car((V128))));
	princ_str(")->c.c_car = ",VV[7]);
	(void)((*(LnkLI220))(cadr((V128))));
	princ_char(59,VV[7]);
	(void)((VFUN_NARGS=1,(*(LnkLI221))(car((V128)))));
	{object V129 = (*(LnkLI240))();
	bds_unwind1;
	bds_unwind1;
	VMR10(V129)}
}
/*	local entry for function C1RPLACD	*/

static object LI11(V131)

register object V131;
{	 VMB11 VMS11 VMV11
TTL:;
	{object V132;
	V132= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V131))){
	goto T465;}
	if(!(endp(cdr((V131))))){
	goto T464;}
T465:;
	V133 = make_fixnum(length((V131)));
	(void)((*(LnkLI216))(VV[44],small_fixnum(2),V133));
T464:;
	if(endp(cddr((V131)))){
	goto T469;}
	V134 = make_fixnum(length((V131)));
	(void)((*(LnkLI217))(VV[44],small_fixnum(2),V134));
T469:;
	V131= (*(LnkLI226))((V131),(V132));
	{object V135 = list(3,VV[44],(V132),(V131));
	VMR11(V135)}}
}
/*	local entry for function C2RPLACD	*/

static object LI12(V137)

register object V137;
{	 VMB12 VMS12 VMV12
	bds_check;
TTL:;
	bds_bind(VV[20],symbol_value(VV[20]));
	bds_bind(VV[42],small_fixnum(0));
	V137= (VFUN_NARGS=2,(*(LnkLI239))((V137),VV[45]));
	if((symbol_value(VV[25]))==Cnil){
	goto T476;}
	princ_str("\n	if(type_of(",VV[7]);
	(void)((*(LnkLI220))(car((V137))));
	princ_str(")!=t_cons)",VV[7]);
	princ_str("FEwrong_type_argument(Scons,",VV[7]);
	(void)((*(LnkLI220))(car((V137))));
	princ_str(");",VV[7]);
T476:;
	princ_str("\n	(",VV[7]);
	(void)((*(LnkLI220))(car((V137))));
	princ_str(")->c.c_cdr = ",VV[7]);
	(void)((*(LnkLI220))(cadr((V137))));
	princ_char(59,VV[7]);
	(void)((VFUN_NARGS=1,(*(LnkLI221))(car((V137)))));
	{object V138 = (*(LnkLI240))();
	bds_unwind1;
	bds_unwind1;
	VMR12(V138)}
}
/*	local entry for function C1MEMQ	*/

static object LI13(V140)

register object V140;
{	 VMB13 VMS13 VMV13
TTL:;
	{object V141;
	V141= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V140))){
	goto T494;}
	if(!(endp(cdr((V140))))){
	goto T493;}
T494:;
	V142 = make_fixnum(length((V140)));
	(void)((*(LnkLI216))(VV[46],small_fixnum(2),V142));
T493:;
	if(endp(cddr((V140)))){
	goto T498;}
	V143 = make_fixnum(length((V140)));
	(void)((*(LnkLI217))(VV[46],small_fixnum(2),V143));
T498:;
	V144= list(2,car((V140)),cadr((V140)));
	{object V145 = list(4,VV[47],(V141),VV[48],(*(LnkLI226))(/* INLINE-ARGS */V144,(V141)));
	VMR13(V145)}}
}
/*	local entry for function C1MEMBER	*/

static object LI14(V147)

register object V147;
{	 VMB14 VMS14 VMV14
TTL:;
	{object V148;
	V148= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V147))){
	goto T503;}
	if(!(endp(cdr((V147))))){
	goto T502;}
T503:;
	V149 = make_fixnum(length((V147)));
	(void)((*(LnkLI216))(VV[49],small_fixnum(2),V149));
T502:;
	if(!(endp(cddr((V147))))){
	goto T508;}
	{object V150 = list(4,VV[47],(V148),VV[50],(*(LnkLI226))((V147),(V148)));
	VMR14(V150)}
T508:;
	if(!((caddr((V147)))==(VV[51]))){
	goto T511;}
	if(!((length((V147)))==(4))){
	goto T511;}
	{register object x= cadddr((V147)),V151= VV[52];
	while(!endp(V151))
	if(equal(x,V151->c.c_car)){
	goto T516;
	}else V151=V151->c.c_cdr;
	goto T511;}
T516:;
	V152= cadr(cadddr((V147)));
	V153= list(2,car((V147)),cadr((V147)));
	{object V154 = list(4,VV[47],(V148),/* INLINE-ARGS */V152,(*(LnkLI226))(/* INLINE-ARGS */V153,(V148)));
	VMR14(V154)}
T511:;
	{object V155 = list(4,VV[4],(V148),VV[49],(*(LnkLI226))((V147),(V148)));
	VMR14(V155)}}
}
/*	local entry for function C2MEMBER!2	*/

static object LI15(V158,V159)

object V158;register object V159;
{	 VMB15 VMS15 VMV15
	bds_check;
TTL:;
	{object V160;
	bds_bind(VV[20],symbol_value(VV[20]));
	bds_bind(VV[42],small_fixnum(0));
	setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
	V160= symbol_value(VV[22]);
	V159= (VFUN_NARGS=2,(*(LnkLI239))((V159),VV[53]));
	princ_str("\n	{register object x= ",VV[7]);
	(void)((*(LnkLI220))(car((V159))));
	princ_str(",V",VV[7]);
	(void)((*(LnkLI220))((V160)));
	princ_str("= ",VV[7]);
	(void)((*(LnkLI220))(cadr((V159))));
	princ_char(59,VV[7]);
	if((symbol_value(VV[25]))==Cnil){
	goto T531;}
	princ_str("\n	while(!endp(V",VV[7]);
	(void)((*(LnkLI220))((V160)));
	princ_str("))",VV[7]);
	goto T529;
T531:;
	princ_str("\n	while(V",VV[7]);
	(void)((*(LnkLI220))((V160)));
	princ_str("!=Cnil)",VV[7]);
T529:;
	if(!(((V158))==(VV[48]))){
	goto T541;}
	princ_str("\n	if(x==(V",VV[7]);
	(void)((*(LnkLI220))((V160)));
	princ_str("->c.c_car)){",VV[7]);
	goto T539;
T541:;
	princ_str("\n	if(",VV[7]);
	base[2]= symbol_name((V158));
	vs_top=(vs_base=base+2)+1;
	Lstring_downcase();
	vs_top=sup;
	V161= vs_base[0];
	(void)((*(LnkLI220))(V161));
	princ_str("(x,V",VV[7]);
	(void)((*(LnkLI220))((V160)));
	princ_str("->c.c_car)){",VV[7]);
T539:;
	if(!(type_of(symbol_value(VV[5]))==t_cons)){
	goto T555;}
	if((car(symbol_value(VV[5])))==(VV[54])){
	goto T554;}
	if(!((car(symbol_value(VV[5])))==(VV[55]))){
	goto T555;}
T554:;
	(void)((VFUN_NARGS=2,(*(LnkLI221))(Ct,VV[56])));
	goto T553;
T555:;
	V162= list(2,VV[21],(V160));
	(void)((VFUN_NARGS=2,(*(LnkLI221))(/* INLINE-ARGS */V162,VV[56])));
T553:;
	princ_str("\n	}else V",VV[7]);
	(void)((*(LnkLI220))((V160)));
	princ_str("=V",VV[7]);
	(void)((*(LnkLI220))((V160)));
	princ_str("->c.c_cdr;",VV[7]);
	(void)((VFUN_NARGS=1,(*(LnkLI221))(Cnil)));
	princ_char(125,VV[7]);
	{object V163 = (*(LnkLI240))();
	bds_unwind1;
	bds_unwind1;
	VMR15(V163)}}
}
/*	local entry for function C1ASSOC	*/

static object LI16(V165)

register object V165;
{	 VMB16 VMS16 VMV16
TTL:;
	{object V166;
	V166= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V165))){
	goto T572;}
	if(!(endp(cdr((V165))))){
	goto T571;}
T572:;
	V167 = make_fixnum(length((V165)));
	(void)((*(LnkLI216))(VV[57],small_fixnum(2),V167));
T571:;
	if(!(endp(cddr((V165))))){
	goto T577;}
	{object V168 = list(4,VV[58],(V166),VV[50],(*(LnkLI226))((V165),(V166)));
	VMR16(V168)}
T577:;
	if(!((caddr((V165)))==(VV[51]))){
	goto T580;}
	if(!((length((V165)))==(4))){
	goto T580;}
	{register object x= cadddr((V165)),V169= VV[59];
	while(!endp(V169))
	if(equal(x,V169->c.c_car)){
	goto T585;
	}else V169=V169->c.c_cdr;
	goto T580;}
T585:;
	V170= cadr(cadddr((V165)));
	V171= list(2,car((V165)),cadr((V165)));
	{object V172 = list(4,VV[58],(V166),/* INLINE-ARGS */V170,(*(LnkLI226))(/* INLINE-ARGS */V171,(V166)));
	VMR16(V172)}
T580:;
	{object V173 = list(4,VV[4],(V166),VV[57],(*(LnkLI226))((V165),(V166)));
	VMR16(V173)}}
}
/*	local entry for function C2ASSOC!2	*/

static object LI17(V176,V177)

object V176;register object V177;
{	 VMB17 VMS17 VMV17
	bds_check;
TTL:;
	{object V178;
	object V179;
	bds_bind(VV[20],symbol_value(VV[20]));
	bds_bind(VV[42],small_fixnum(0));
	setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
	V178= symbol_value(VV[22]);
	V179= Cnil;
	V177= (VFUN_NARGS=2,(*(LnkLI239))((V177),VV[60]));
	V179= symbol_name((V176));
	if(!(((V176))==(VV[48]))){
	goto T594;}
	goto T593;
T594:;
	base[3]= (V179);
	vs_top=(vs_base=base+3)+1;
	Lstring_downcase();
	vs_top=sup;
	V179= vs_base[0];
T593:;
	princ_str("\n	{register object x= ",VV[7]);
	(void)((*(LnkLI220))(car((V177))));
	princ_str(",V",VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("= ",VV[7]);
	(void)((*(LnkLI220))(cadr((V177))));
	princ_char(59,VV[7]);
	if((symbol_value(VV[25]))==Cnil){
	goto T608;}
	princ_str("\n	while(!endp(V",VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("))",VV[7]);
	princ_str("\n	if(type_of(V",VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("->c.c_car)==t_cons &&",VV[7]);
	(void)((*(LnkLI220))((V179)));
	princ_str("(x,V",VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("->c.c_car->c.c_car)){",VV[7]);
	goto T606;
T608:;
	princ_str("\n	while(V",VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("!=Cnil)",VV[7]);
	princ_str("\n	if(",VV[7]);
	(void)((*(LnkLI220))((V179)));
	princ_str("(x,V",VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("->c.c_car->c.c_car) &&",VV[7]);
	princ_char(86,VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("->c.c_car != Cnil){",VV[7]);
T606:;
	if(!(type_of(symbol_value(VV[5]))==t_cons)){
	goto T635;}
	if((car(symbol_value(VV[5])))==(VV[54])){
	goto T634;}
	if(!((car(symbol_value(VV[5])))==(VV[55]))){
	goto T635;}
T634:;
	(void)((VFUN_NARGS=2,(*(LnkLI221))(Ct,VV[56])));
	goto T633;
T635:;
	V180= list(2,VV[61],(V178));
	(void)((VFUN_NARGS=2,(*(LnkLI221))(/* INLINE-ARGS */V180,VV[56])));
T633:;
	princ_str("\n	}else V",VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("=V",VV[7]);
	(void)((*(LnkLI220))((V178)));
	princ_str("->c.c_cdr;",VV[7]);
	(void)((VFUN_NARGS=1,(*(LnkLI221))(Cnil)));
	princ_char(125,VV[7]);
	{object V181 = (*(LnkLI240))();
	bds_unwind1;
	bds_unwind1;
	VMR17(V181)}}
}
/*	local entry for function C1BOOLE-CONDITION	*/

static object LI18(V183)

object V183;
{	 VMB18 VMS18 VMV18
TTL:;
	if(((endp(cddr((V183)))?Ct:Cnil))==Cnil){
	goto T650;}
	{object V184 = Cnil;
	VMR18(V184)}
T650:;
	if(endp(cdddr((V183)))){
	goto T652;}
	{object V185 = Cnil;
	VMR18(V185)}
T652:;
	{object V186 = (*(LnkLI241))(car((V183)));
	VMR18(V186)}
}
/*	local entry for function C1BOOLE3	*/

static object LI19(V188)

object V188;
{	 VMB19 VMS19 VMV19
TTL:;
	V189= make_cons(VV[62],(V188));
	{object V190 = (*(LnkLI242))(/* INLINE-ARGS */V189);
	VMR19(V190)}
}
/*	function definition for INLINE-BOOLE3	*/

static L20()
{register object *base=vs_base;
	register object *sup=base+VM20; VC20
	vs_reserve(VM20);
	{object V191;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V191=(base[0]);
	vs_top=sup;
	{object V192;
	V192= cadr(car((V191)));
	if(!((car((V192)))==(VV[63]))){
	goto T656;}
	goto T655;
T656:;
	base[2]= VV[64];
	vs_top=(vs_base=base+2)+1;
	Lerror();
	vs_top=sup;
T655:;
	{object V193;
	V193= (*(LnkLI241))(caddr((V192)));
	if((V193)!=Cnil){
	goto T660;}
	base[2]= VV[65];
	vs_top=(vs_base=base+2)+1;
	Lerror();
	vs_top=sup;
T660:;
	base[1]= (V193);
	base[2]= cdr((V191));
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk243)();
	return;}}
	}
}
/*	local entry for function INLINE-BOOLE3-STRING	*/

static object LI21(V195)

register object V195;
{	 VMB21 VMS21 VMV21
TTL:;
	base[0]= (V195);
	vs_top=(vs_base=base+0)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T665;}
	goto T664;
T665:;
	base[0]= (V195);
	vs_top=(vs_base=base+0)+1;
	Leval();
	vs_top=sup;
	V195= vs_base[0];
T664:;
	{object V196= (V195);
	if(!eql(V196,VV[66]))goto T670;
	{object V197 = VV[67];
	VMR21(V197)}
T670:;
	if(!eql(V196,VV[68]))goto T671;
	{object V198 = VV[69];
	VMR21(V198)}
T671:;
	if(!eql(V196,VV[70]))goto T672;
	{object V199 = VV[71];
	VMR21(V199)}
T672:;
	if(!eql(V196,VV[72]))goto T673;
	{object V200 = VV[73];
	VMR21(V200)}
T673:;
	if(!eql(V196,VV[74]))goto T674;
	{object V201 = VV[75];
	VMR21(V201)}
T674:;
	if(!eql(V196,VV[76]))goto T675;
	{object V202 = VV[77];
	VMR21(V202)}
T675:;
	if(!eql(V196,VV[78]))goto T676;
	{object V203 = VV[79];
	VMR21(V203)}
T676:;
	if(!eql(V196,VV[80]))goto T677;
	{object V204 = VV[81];
	VMR21(V204)}
T677:;
	if(!eql(V196,VV[82]))goto T678;
	{object V205 = VV[83];
	VMR21(V205)}
T678:;
	if(!eql(V196,VV[84]))goto T679;
	{object V206 = VV[85];
	VMR21(V206)}
T679:;
	{object V207 = Cnil;
	VMR21(V207)}}
}
/*	local entry for function C1ASH-CONDITION	*/

static object LI22(V209)

object V209;
{	 VMB22 VMS22 VMV22
TTL:;
	{object V210;
	V210= cadr((V209));
	{object V211;
	V211= (V210);
	if(type_of((V211))==t_fixnum){
	goto T684;}
	base[0]= Cnil;
	goto T682;
T684:;
	if((fix((V211)))>=(0)){
	goto T686;}
	base[0]= Cnil;
	goto T682;
T686:;
	base[0]= ((fix((V211)))<=(31)?Ct:Cnil);}
T682:;
	if(base[0]==Cnil)goto T681;
	{object V212 = base[0];
	VMR22(V212)}
T681:;
	if(type_of((V210))==t_cons){
	goto T688;}
	{object V213 = Cnil;
	VMR22(V213)}
T688:;
	if((car((V210)))==(VV[86])){
	goto T690;}
	{object V214 = Cnil;
	VMR22(V214)}
T690:;
	{object V215;
	V215= cadr((V210));
	base[1]= (V215);
	base[2]= VV[87];
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk244)();
	vs_top=sup;
	{object V216 = vs_base[0];
	VMR22(V216)}}}
}
/*	local entry for function C1ASH	*/

static object LI23(V218)

object V218;
{	 VMB23 VMS23 VMV23
TTL:;
	{object V219;
	object V220;
	V219= cadr((V218));
	V220= Cnil;
	base[0]= (V219);
	vs_top=(vs_base=base+0)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T699;}
	base[0]= (V219);
	vs_top=(vs_base=base+0)+1;
	Leval();
	vs_top=sup;
	V219= vs_base[0];
	base[1]= (V219);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk114)();
	vs_top=sup;
	base[0]= vs_base[0];
	if(base[0]==Cnil)goto T706;
	goto T705;
T706:;
	base[1]= VV[88];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T705:;
	if(!(number_compare((V219),small_fixnum(0))<0)){
	goto T711;}
	V220= VV[89];
	goto T697;
T711:;
	if(!(number_compare((V219),small_fixnum(0))>=0)){
	goto T697;}
	V220= VV[90];
	goto T697;
T699:;
	{object V221;
	V221= cadr((V219));
	base[0]= (V221);
	base[1]= VV[91];
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk244)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T719;}
	V220= VV[90];
	goto T697;
T719:;
	base[0]= (V221);
	base[1]= VV[92];
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk244)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T725;}
	V220= VV[89];
	goto T697;
T725:;
	base[0]= VV[93];
	vs_top=(vs_base=base+0)+1;
	Lerror();
	vs_top=sup;}
T697:;
	V222= make_cons((V220),(V218));
	{object V223 = (*(LnkLI242))(/* INLINE-ARGS */V222);
	VMR23(V223)}}
}
/*	local entry for function SHIFT>>	*/

static object LI24(V226,V227)

object V226;object V227;
{	 VMB24 VMS24 VMV24
TTL:;
	base[0]= (V226);
	base[1]= (V227);
	vs_top=(vs_base=base+0)+2;
	Lash();
	vs_top=sup;
	{object V228 = vs_base[0];
	VMR24(V228)}
}
/*	local entry for function SHIFT<<	*/

static object LI25(V231,V232)

object V231;object V232;
{	 VMB25 VMS25 VMV25
TTL:;
	base[0]= (V231);
	base[1]= (V232);
	vs_top=(vs_base=base+0)+2;
	Lash();
	vs_top=sup;
	{object V233 = vs_base[0];
	VMR25(V233)}
}
/*	function definition for CO1LDB	*/

static L26()
{register object *base=vs_base;
	register object *sup=base+VM26; VC26
	vs_reserve(VM26);
	{object V234;
	object V235;
	check_arg(2);
	V234=(base[0]);
	V235=(base[1]);
	vs_top=sup;
TTL:;
	{object V236;
	object V237;
	V236= Cnil;
	base[2]= VV[94];
	vs_top=(vs_base=base+2)+1;
	Linteger_length();
	vs_top=sup;
	V237= vs_base[0];
	{object V238;
	{object V239;
	V236= car((V235));
	if(type_of((V236))==t_cons){
	goto T741;}
	V239= Cnil;
	goto T740;
T741:;
	if((VV[95])==(car((V236)))){
	goto T744;}
	V239= Cnil;
	goto T740;
T744:;
	V239= make_cons(cadr((V236)),caddr((V236)));
T740:;
	if(((V239))==Cnil){
	goto T747;}
	V238= (V239);
	goto T739;
T747:;
	V238= Cnil;}
T739:;
	{object V240= cdr((V238));
	if(!(type_of(V240)==t_fixnum||type_of(V240)==t_bignum)){
	goto T750;}}
	{object V241= car((V238));
	if(!(type_of(V241)==t_fixnum||type_of(V241)==t_bignum)){
	goto T750;}}
	V242= number_plus(car((V238)),cdr((V238)));
	if(!(number_compare(/* INLINE-ARGS */V242,(V237))<0)){
	goto T750;}
	base[2]= (*(LnkLI245))(cadr((V235)));
	base[3]= VV[96];
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk244)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T750;}
	V243= list(3,VV[86],VV[96],list(4,VV[97],car((V238)),cdr((V238)),cadr((V235))));
	base[2]= (*(LnkLI242))(/* INLINE-ARGS */V243);
	vs_top=(vs_base=base+2)+1;
	return;
T750:;
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;}}
	}
}
/*	local entry for function C1LENGTH	*/

static object LI27(V245)

register object V245;
{	 VMB27 VMS27 VMV27
TTL:;
	{object V246;
	V246= (VFUN_NARGS=0,(*(LnkLI215))());
	(void)(structure_set((V246),VV[98],2,VV[96]));
	{object V247;
	if(type_of(car((V245)))==t_cons){
	goto T763;}
	V247= Cnil;
	goto T762;
T763:;
	if((caar((V245)))==(VV[99])){
	goto T765;}
	V247= Cnil;
	goto T762;
T765:;
	{object V248;
	V248= cdr(car((V245)));
	if((V248)==Cnil){
	V247= Cnil;
	goto T762;}
	if((cddr((V248)))==Cnil){
	goto T768;}
	V247= Cnil;
	goto T762;
T768:;
	V247= list(4,VV[4],(V246),VV[100],(*(LnkLI226))((V248),(V246)));}
T762:;
	if(((V247))==Cnil){
	goto T771;}
	{object V249 = (V247);
	VMR27(V249)}
T771:;
	V245= (*(LnkLI226))((V245),(V246));
	{object V250 = list(4,VV[4],(V246),VV[101],(V245));
	VMR27(V250)}}}
}
/*	local entry for function C1GET	*/

static object LI28(V252)

register object V252;
{	 VMB28 VMS28 VMV28
TTL:;
	{object V253;
	V253= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V252))){
	goto T777;}
	if(!(endp(cdr((V252))))){
	goto T776;}
T777:;
	V254 = make_fixnum(length((V252)));
	(void)((*(LnkLI216))(VV[102],small_fixnum(2),V254));
T776:;
	if(endp(cddr((V252)))){
	goto T781;}
	if(endp(cdddr((V252)))){
	goto T781;}
	V255 = make_fixnum(length((V252)));
	(void)((*(LnkLI217))(VV[102],small_fixnum(3),V255));
T781:;
	{object V256 = list(3,VV[102],(V253),(*(LnkLI226))((V252),(V253)));
	VMR28(V256)}}
}
/*	local entry for function C2GET	*/

static object LI29(V258)

register object V258;
{	 VMB29 VMS29 VMV29
	bds_check;
TTL:;
	if((symbol_value(VV[25]))==Cnil){
	goto T787;}
	{object V259 = (*(LnkLI222))(VV[102],(V258),Cnil,Ct);
	VMR29(V259)}
T787:;
	{object V260;
	base[0]= symbol_value(VV[20]);
	setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
	V260= symbol_value(VV[22]);
	bds_bind(VV[20],base[0]);
	bds_bind(VV[42],small_fixnum(0));
	if((cddr((V258)))==Cnil){
	goto T796;}
	V261= VV[103];
	goto T794;
T796:;
	V261= VV[104];
T794:;
	V258= (VFUN_NARGS=2,(*(LnkLI239))((V258),V261));
	princ_str("\n	{object V",VV[7]);
	(void)((*(LnkLI220))((V260)));
	princ_str(" =(",VV[7]);
	(void)((*(LnkLI220))(car((V258))));
	princ_str(")->s.s_plist;",VV[7]);
	princ_str("\n	 object ind= ",VV[7]);
	(void)((*(LnkLI220))(cadr((V258))));
	princ_char(59,VV[7]);
	princ_str("\n	while(V",VV[7]);
	(void)((*(LnkLI220))((V260)));
	princ_str("!=Cnil){",VV[7]);
	princ_str("\n	if(V",VV[7]);
	(void)((*(LnkLI220))((V260)));
	princ_str("->c.c_car==ind){",VV[7]);
	V262= list(2,VV[105],(V260));
	(void)((VFUN_NARGS=2,(*(LnkLI221))(/* INLINE-ARGS */V262,VV[56])));
	princ_str("\n	}else V",VV[7]);
	(void)((*(LnkLI220))((V260)));
	princ_str("=V",VV[7]);
	(void)((*(LnkLI220))((V260)));
	princ_str("->c.c_cdr->c.c_cdr;}",VV[7]);
	if((cddr((V258)))==Cnil){
	goto T826;}
	V263= caddr((V258));
	goto T824;
T826:;
	V263= Cnil;
T824:;
	(void)((VFUN_NARGS=1,(*(LnkLI221))(V263)));
	princ_char(125,VV[7]);
	{object V264 = (*(LnkLI240))();
	bds_unwind1;
	bds_unwind1;
	VMR29(V264)}}
}
/*	local entry for function CO1EQL	*/

static object LI30(V267,V268)

object V267;register object V268;
{	 VMB30 VMS30 VMV30
TTL:;
	if((cdr((V268)))!=Cnil){
	goto T834;}
	base[0]= Cnil;
	goto T833;
T834:;
	base[0]= ((symbol_value(VV[25]))==Cnil?Ct:Cnil);
T833:;
	if(base[0]==Cnil)goto T832;
	goto T831;
T832:;
	{object V269 = Cnil;
	VMR30(V269)}
T831:;
	if(((*(LnkLI246))((V268)))==Cnil){
	goto T837;}
	if(!(type_of(cadr((V268)))==t_character)){
	goto T839;}
	V268= reverse((V268));
T839:;
	if(!(type_of(car((V268)))==t_character)){
	goto T844;}
	{object V270;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V270= vs_base[0];
	V271= list(2,(V270),cadr((V268)));
	V272= make_cons(/* INLINE-ARGS */V271,Cnil);
	V273= (*(LnkLI245))(cadr((V268)));
	V274= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V273,(V270)));
	V275= list(3,VV[109],(V270),VV[110]);
	V276= list(2,VV[112],car((V268)));
	V277= list(4,VV[29],/* INLINE-ARGS */V272,/* INLINE-ARGS */V274,list(3,VV[108],/* INLINE-ARGS */V275,list(3,VV[111],/* INLINE-ARGS */V276,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V270)))))));
	{object V278 = (*(LnkLI242))(/* INLINE-ARGS */V277);
	VMR30(V278)}}
T844:;
	{object V279 = Cnil;
	VMR30(V279)}
T837:;
	{object V280 = Cnil;
	VMR30(V280)}
}
/*	local entry for function RESULT-TYPE	*/

static object LI31(V282)

register object V282;
{	 VMB31 VMS31 VMV31
TTL:;
	if(!(type_of((V282))==t_symbol)){
	goto T848;}
	{object V283;
	V283= (*(LnkLI242))((V282));
	{object V284 = structure_ref(cadr((V283)),VV[98],2);
	VMR31(V284)}}
T848:;
	base[0]= (V282);
	vs_top=(vs_base=base+0)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T852;}
	base[0]= (V282);
	vs_top=(vs_base=base+0)+1;
	Ltype_of();
	vs_top=sup;
	V285= vs_base[0];
	{object V286 = (*(LnkLI247))(V285);
	VMR31(V286)}
T852:;
	if(!(type_of((V282))==t_cons)){
	goto T858;}
	if(!((car((V282)))==(VV[86]))){
	goto T858;}
	{object V287 = (*(LnkLI247))(cadr((V282)));
	VMR31(V287)}
T858:;
	{object V288 = Ct;
	VMR31(V288)}
}
/*	local entry for function CO1TYPEP	*/

static object LI32(V291,V292)

object V291;register object V292;
{	 VMB32 VMS32 VMV32
TTL:;
	{object V293;
	V293= Cnil;
	{object V294;
	object V295;
	object V296;
	V294= car((V292));
	V295= Cnil;
	if(type_of(cadr((V292)))==t_cons){
	goto T867;}
	V296= Cnil;
	goto T866;
T867:;
	if((car(cadr((V292))))==(VV[113])){
	goto T869;}
	V296= Cnil;
	goto T866;
T869:;
	V296= cadr(cadr((V292)));
T866:;
	base[0]= (*(LnkLI245))(car((V292)));
	base[1]= (V296);
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk244)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T871;}
	V295= Ct;
	{object V297 = (*(LnkLI242))((V295));
	VMR32(V297)}
T871:;
	if((V296)==Cnil){
	V295= Cnil;
	goto T879;}
	{object V298= (V296);
	if((V298!= VV[96]))goto T880;
	V295= list(2,VV[114],(V294));
	goto T879;
T880:;
	if((V298!= VV[248]))goto T881;
	V295= list(2,VV[115],(V294));
	goto T879;
T881:;
	if((V298!= VV[249]))goto T882;
	V295= list(2,VV[116],(V294));
	goto T879;
T882:;
	if((V298!= VV[250]))goto T883;
	V295= list(2,VV[117],(V294));
	goto T879;
T883:;
	if((V298!= VV[251]))goto T884;
	V295= list(2,VV[118],(V294));
	goto T879;
T884:;
	if((V298!= VV[14]))goto T885;
	V295= list(2,VV[119],(V294));
	goto T879;
T885:;
	if((V298!= VV[144]))goto T886;
	V295= list(2,VV[120],(V294));
	goto T879;
T886:;
	if(!(type_of((V296))==t_cons)){
	goto T888;}
	if(!((car((V296)))==(VV[121]))){
	goto T891;}
	if((cddr((V296)))==Cnil){
	goto T887;}
T891:;
	{register object x= car((V296)),V299= VV[122];
	while(!endp(V299))
	if(eql(x,V299->c.c_car)){
	goto T896;
	}else V299=V299->c.c_cdr;
	goto T888;}
T896:;
	if(!(equal(caddr((V296)),VV[123]))){
	goto T888;}
T887:;
	V293= (*(LnkLI252))(cadr((V296)));
	if(!(((V293))==(VV[124]))){
	goto T901;}
	V295= list(2,VV[125],(V294));
	goto T879;
T901:;
	if(!(((V293))==(VV[126]))){
	goto T904;}
	V295= list(2,VV[127],(V294));
	goto T879;
T904:;
	V293= (VFUN_NARGS=2,(*(LnkLI253))((V293),symbol_value(VV[128])));
	if(((V293))==Cnil){
	goto T907;}
	V295= list(3,VV[86],VV[129],list(3,VV[130],(V294),(V293)));
	goto T879;
T907:;
	V295= Cnil;
	goto T879;
T888:;
	base[0]= (V296);
	base[1]= VV[96];
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk244)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T911;}
	V293= (*(LnkLI254))((V296));
	if(type_of((V293))==t_cons){
	goto T917;}
	V295= Cnil;
	goto T879;
T917:;
	base[0]= cadr((V293));
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk114)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T919;}
	V295= Cnil;
	goto T879;
T919:;
	base[0]= caddr((V293));
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk114)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T922;}
	V295= Cnil;
	goto T879;
T922:;
	V300= list(2,VV[131],(V294));
	V301= make_cons(/* INLINE-ARGS */V300,Cnil);
	V302= (*(LnkLI245))((V294));
	V303= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V302,VV[131]));
	V304= list(3,VV[133],VV[134],cadr((V293)));
	V295= list(4,VV[29],/* INLINE-ARGS */V301,/* INLINE-ARGS */V303,list(4,VV[108],VV[132],/* INLINE-ARGS */V304,list(3,VV[135],VV[136],caddr((V293)))));
	goto T879;
T911:;
	if(!(type_of((V296))==t_symbol)){
	goto T926;}
	V293= get((V296),VV[137],Cnil);
	if(((V293))==Cnil){
	goto T926;}
	if((structure_ref((V293),VV[137],11))!=Cnil){
	goto T931;}
	if((symbol_value(VV[138]))==Cnil){
	goto T932;}
T931:;
	V295= (*(LnkLI255))((V294),(V293));
	goto T879;
T932:;
	V295= list(3,VV[139],(V294),list(2,VV[113],(V296)));
	goto T879;
T926:;
	V295= Cnil;}
T879:;
	if((V295)==Cnil){
	{object V305 = Cnil;
	VMR32(V305)}}
	V306= list(3,VV[86],VV[129],(V295));
	{object V307 = (*(LnkLI242))(/* INLINE-ARGS */V306);
	VMR32(V307)}}}
}
/*	local entry for function STRUCT-TYPE-OPT	*/

static object LI33(V310,V311)

object V310;object V311;
{	 VMB33 VMS33 VMV33
TTL:;
	{object V312;
	object V313;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V312= vs_base[0];
	V314= structure_ref((V311),VV[137],0);
	V313= (*(LnkLI256))(/* INLINE-ARGS */V314);
	V315= list(2,(V312),(V310));
	V316= make_cons(/* INLINE-ARGS */V315,Cnil);
	V317= list(2,VV[140],(V312));
	if(!((length((V313)))<(3))){
	goto T940;}
	{object V320;
	object V321= (V313);
	if(endp(V321)){
	V319= Cnil;
	goto T942;}
	base[0]=V320=MMcons(Cnil,Cnil);
T943:;
	{object V322;
	V322= (V321->c.c_car);
	V323= list(2,VV[142],(V312));
	(V320->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V323,(*(LnkLI257))((V322)));}
	if(endp(V321=MMcdr(V321))){
	V319= base[0];
	goto T942;}
	V320=MMcdr(V320)=MMcons(Cnil,Cnil);
	goto T943;}
T942:;
	V318= make_cons(VV[141],V319);
	goto T938;
T940:;
	V324= structure_ref((V311),VV[137],0);
	V318= list(3,VV[139],(V312),(*(LnkLI257))(/* INLINE-ARGS */V324));
T938:;
	{object V325 = list(3,VV[29],/* INLINE-ARGS */V316,list(3,VV[108],/* INLINE-ARGS */V317,V318));
	VMR33(V325)}}
}
/*	local entry for function GET-INCLUDED	*/

static object LI34(V327)

object V327;
{	 VMB34 VMS34 VMV34
TTL:;
	{object V328;
	V328= get((V327),VV[137],Cnil);
	V329= structure_ref((V328),VV[137],0);
	V333= structure_ref((V328),VV[137],3);
	{object V331;
	object V332= /* INLINE-ARGS */V333;
	if(endp(V332)){
	V330= Cnil;
	goto T947;}
	base[0]=V331=MMcons(Cnil,Cnil);
T948:;
	(V331->c.c_cdr)= (*(LnkLI256))((V332->c.c_car));
	while(!endp(MMcdr(V331)))V331=MMcdr(V331);
	if(endp(V332=MMcdr(V332))){
	base[0]=base[0]->c.c_cdr;
	V330= base[0];
	goto T947;}
	goto T948;}
T947:;
	{object V334 = make_cons(/* INLINE-ARGS */V329,V330);
	VMR34(V334)}}
}
/*	local entry for function CO1SCHAR	*/

static object LI35(V337,V338)

object V337;register object V338;
{	 VMB35 VMS35 VMV35
TTL:;
	{object V339= car((V338));
	if(type_of(V339)==t_cons||(V339)==Cnil){
	goto T951;}}
	{object V340 = Cnil;
	VMR35(V340)}
T951:;
	if((symbol_value(VV[25]))==Cnil){
	goto T953;}
	{object V341 = Cnil;
	VMR35(V341)}
T953:;
	if((cdr((V338)))!=Cnil){
	goto T955;}
	{object V342 = Cnil;
	VMR35(V342)}
T955:;
	if((caar((V338)))==(VV[99])){
	goto T957;}
	{object V343 = Cnil;
	VMR35(V343)}
T957:;
	V344= list(3,VV[143],list(3,VV[86],VV[15],cadr(car((V338)))),cadr((V338)));
	{object V345 = (*(LnkLI242))(/* INLINE-ARGS */V344);
	VMR35(V345)}
}
/*	local entry for function CONS-TO-LISTA	*/

static object LI36(V347)

object V347;
{	 VMB36 VMS36 VMV36
TTL:;
	{object V348;
	base[0]= (V347);
	vs_top=(vs_base=base+0)+1;
	Llast();
	vs_top=sup;
	V348= vs_base[0];
	{object V349;
	if(type_of((V348))==t_cons){
	goto T962;}
	V349= Cnil;
	goto T961;
T962:;
	if(type_of(car((V348)))==t_cons){
	goto T964;}
	V349= Cnil;
	goto T961;
T964:;
	if((caar((V348)))==(VV[144])){
	goto T966;}
	V349= Cnil;
	goto T961;
T966:;
	if((length(cdar((V348))))==(2)){
	goto T968;}
	V349= Cnil;
	goto T961;
T968:;
	base[0]= (V347);
	vs_top=(vs_base=base+0)+1;
	Lbutlast();
	vs_top=sup;
	V350= vs_base[0];
	V351= append(V350,cdar((V348)));
	V349= (*(LnkLI258))(/* INLINE-ARGS */V351);
T961:;
	if(((V349))==Cnil){
	goto T973;}
	{object V352 = (V349);
	VMR36(V352)}
T973:;
	{object V353 = (V347);
	VMR36(V353)}}}
}
/*	local entry for function CO1CONS	*/

static object LI37(V356,V357)

object V356;object V357;
{	 VMB37 VMS37 VMV37
TTL:;
	{object V358;
	if((length((V357)))==(2)){
	goto T977;}
	V358= Cnil;
	goto T976;
T977:;
	V358= (*(LnkLI258))((V357));
T976:;
	if(((((V358))==((V357))?Ct:Cnil))==Cnil){
	goto T979;}
	{object V359 = Cnil;
	VMR37(V359)}
T979:;
	base[0]= (V358);
	vs_top=(vs_base=base+0)+1;
	Llast();
	vs_top=sup;
	V361= vs_base[0];
	if(!(equal(VV[145],V361))){
	goto T983;}
	base[0]= (V358);
	vs_top=(vs_base=base+0)+1;
	Lbutlast();
	vs_top=sup;
	V362= vs_base[0];
	V360= make_cons(VV[146],V362);
	goto T981;
T983:;
	V360= make_cons(VV[28],(V358));
T981:;
	{object V363 = (*(LnkLI242))(V360);
	VMR37(V363)}}
}
/*	local entry for function C1NTH-CONDITION	*/

static object LI38(V365)

register object V365;
{	 VMB38 VMS38 VMV38
TTL:;
	if(((endp((V365))?Ct:Cnil))==Cnil){
	goto T989;}
	{object V366 = Cnil;
	VMR38(V366)}
T989:;
	if(((endp(cdr((V365)))?Ct:Cnil))==Cnil){
	goto T991;}
	{object V367 = Cnil;
	VMR38(V367)}
T991:;
	if(endp(cddr((V365)))){
	goto T993;}
	{object V368 = Cnil;
	VMR38(V368)}
T993:;
	{object V369= car((V365));
	if(type_of(V369)==t_fixnum||
type_of(V369)==t_bignum||
type_of(V369)==t_ratio||
type_of(V369)==t_shortfloat||
type_of(V369)==t_longfloat||
type_of(V369)==t_complex){
	goto T995;}}
	{object V370 = Cnil;
	VMR38(V370)}
T995:;
	base[0]= small_fixnum(0);
	base[1]= car((V365));
	base[2]= small_fixnum(7);
	vs_top=(vs_base=base+0)+3;
	Lmonotonically_nondecreasing();
	vs_top=sup;
	{object V371 = vs_base[0];
	VMR38(V371)}
}
/*	local entry for function C1NTH	*/

static object LI39(V373)

register object V373;
{	 VMB39 VMS39 VMV39
TTL:;
	{object V375= car((V373));
	if(!eql(V375,VV[147]))goto T1001;
	V374= make_cons(VV[61],cdr((V373)));
	goto T1000;
T1001:;
	if(!eql(V375,VV[80]))goto T1002;
	V374= make_cons(VV[105],cdr((V373)));
	goto T1000;
T1002:;
	if(!eql(V375,VV[68]))goto T1003;
	V374= make_cons(VV[148],cdr((V373)));
	goto T1000;
T1003:;
	if(!eql(V375,VV[149]))goto T1004;
	V374= make_cons(VV[150],cdr((V373)));
	goto T1000;
T1004:;
	if(!eql(V375,VV[66]))goto T1005;
	V374= list(2,VV[61],make_cons(VV[151],cdr((V373))));
	goto T1000;
T1005:;
	if(!eql(V375,VV[152]))goto T1006;
	V374= list(2,VV[105],make_cons(VV[151],cdr((V373))));
	goto T1000;
T1006:;
	if(!eql(V375,VV[82]))goto T1007;
	V374= list(2,VV[148],make_cons(VV[151],cdr((V373))));
	goto T1000;
T1007:;
	if(!eql(V375,VV[84]))goto T1008;
	V374= list(2,VV[150],make_cons(VV[151],cdr((V373))));
	goto T1000;
T1008:;
	V374= Cnil;}
T1000:;
	{object V376 = (*(LnkLI242))(V374);
	VMR39(V376)}
}
/*	local entry for function C1NTHCDR-CONDITION	*/

static object LI40(V378)

register object V378;
{	 VMB40 VMS40 VMV40
TTL:;
	if(((endp((V378))?Ct:Cnil))==Cnil){
	goto T1009;}
	{object V379 = Cnil;
	VMR40(V379)}
T1009:;
	if(((endp(cdr((V378)))?Ct:Cnil))==Cnil){
	goto T1011;}
	{object V380 = Cnil;
	VMR40(V380)}
T1011:;
	if(endp(cddr((V378)))){
	goto T1013;}
	{object V381 = Cnil;
	VMR40(V381)}
T1013:;
	{object V382= car((V378));
	if(type_of(V382)==t_fixnum||
type_of(V382)==t_bignum||
type_of(V382)==t_ratio||
type_of(V382)==t_shortfloat||
type_of(V382)==t_longfloat||
type_of(V382)==t_complex){
	goto T1015;}}
	{object V383 = Cnil;
	VMR40(V383)}
T1015:;
	base[0]= small_fixnum(0);
	base[1]= car((V378));
	base[2]= small_fixnum(7);
	vs_top=(vs_base=base+0)+3;
	Lmonotonically_nondecreasing();
	vs_top=sup;
	{object V384 = vs_base[0];
	VMR40(V384)}
}
/*	local entry for function C1NTHCDR	*/

static object LI41(V386)

register object V386;
{	 VMB41 VMS41 VMV41
TTL:;
	{object V388= car((V386));
	if(!eql(V388,VV[147]))goto T1021;
	V387= cadr((V386));
	goto T1020;
T1021:;
	if(!eql(V388,VV[80]))goto T1022;
	V387= make_cons(VV[153],cdr((V386)));
	goto T1020;
T1022:;
	if(!eql(V388,VV[68]))goto T1023;
	V387= make_cons(VV[154],cdr((V386)));
	goto T1020;
T1023:;
	if(!eql(V388,VV[149]))goto T1024;
	V387= make_cons(VV[155],cdr((V386)));
	goto T1020;
T1024:;
	if(!eql(V388,VV[66]))goto T1025;
	V387= make_cons(VV[151],cdr((V386)));
	goto T1020;
T1025:;
	if(!eql(V388,VV[152]))goto T1026;
	V387= list(2,VV[153],make_cons(VV[151],cdr((V386))));
	goto T1020;
T1026:;
	if(!eql(V388,VV[82]))goto T1027;
	V387= list(2,VV[154],make_cons(VV[151],cdr((V386))));
	goto T1020;
T1027:;
	if(!eql(V388,VV[84]))goto T1028;
	V387= list(2,VV[155],make_cons(VV[151],cdr((V386))));
	goto T1020;
T1028:;
	V387= Cnil;}
T1020:;
	{object V389 = (*(LnkLI242))(V387);
	VMR41(V389)}
}
/*	local entry for function C1RPLACA-NTHCDR	*/

static object LI42(V391)

register object V391;
{	 VMB42 VMS42 VMV42
TTL:;
	{object V392;
	V392= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V391))){
	goto T1031;}
	if(endp(cdr((V391)))){
	goto T1031;}
	if(!(endp(cddr((V391))))){
	goto T1030;}
T1031:;
	V393 = make_fixnum(length((V391)));
	(void)((*(LnkLI216))(VV[156],small_fixnum(3),V393));
T1030:;
	if(endp(cdddr((V391)))){
	goto T1037;}
	V394 = make_fixnum(length((V391)));
	(void)((*(LnkLI216))(VV[156],small_fixnum(3),V394));
T1037:;
	{object V395= cadr((V391));
	if(!(type_of(V395)==t_fixnum||
type_of(V395)==t_bignum||
type_of(V395)==t_ratio||
type_of(V395)==t_shortfloat||
type_of(V395)==t_longfloat||
type_of(V395)==t_complex)){
	goto T1041;}}
	base[0]= small_fixnum(0);
	base[1]= cadr((V391));
	base[2]= small_fixnum(10);
	vs_top=(vs_base=base+0)+3;
	Lmonotonically_nondecreasing();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1041;}
	{object V396;
	object V397;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V396= vs_base[0];
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V397= vs_base[0];
	V398= list(2,(V396),car((V391)));
	V399= list(2,/* INLINE-ARGS */V398,list(2,(V397),caddr((V391))));
	V400= list(3,VV[157],(V396),list(3,VV[158],cadr((V391)),(V396)));
	V401= list(5,VV[29],/* INLINE-ARGS */V399,/* INLINE-ARGS */V400,list(3,VV[157],list(2,VV[61],(V396)),(V397)),(V397));
	{object V402 = (*(LnkLI242))(/* INLINE-ARGS */V401);
	VMR42(V402)}}
T1041:;
	{object V403 = list(4,VV[4],(V392),VV[156],(*(LnkLI226))((V391),(V392)));
	VMR42(V403)}}
}
/*	local entry for function FAST-READ	*/

static object LI43(V406,V407)

register object V406;object V407;
{	 VMB43 VMS43 VMV43
TTL:;
	if((symbol_value(VV[25]))!=Cnil){
	goto T1051;}
	if(!(number_compare(symbol_value(VV[159]),small_fixnum(2))<0)){
	goto T1051;}
	if((cadr((V406)))!=Cnil){
	goto T1051;}
	base[0]= VV[160];
	vs_top=(vs_base=base+0)+1;
	Lboundp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1051;}
	if(!(type_of(car((V406)))!=t_cons)){
	goto T1061;}
	base[0]= car((V406));
	if(base[0]==Cnil)goto T1064;
	goto T1063;
T1064:;
	V406= make_cons(VV[161],cdr((V406)));
T1063:;
	{object V408;
	object V409;
	V408= car((V406));
	V409= caddr((V406));
	V410= list(2,VV[162],list(2,VV[163],(V408)));
	V411= make_cons(/* INLINE-ARGS */V410,Cnil);
	V412= list(2,VV[166],list(3,(V407),(V408),(V409)));
	V413= list(3,VV[50],VV[162],symbol_value(VV[160]));
	V414= list(2,list(3,VV[108],/* INLINE-ARGS */V413,list(2,VV[168],list(3,VV[86],VV[96],list(2,VV[163],list(3,VV[86],VV[169],(V408)))))),(V409));
	if(!(((V407))==(VV[170]))){
	goto T1071;}
	V415= VV[171];
	goto T1069;
T1071:;
	V415= VV[162];
T1069:;
	{object V416 = list(4,VV[29],/* INLINE-ARGS */V411,VV[164],list(3,VV[165],/* INLINE-ARGS */V412,list(3,Ct,VV[167],list(3,VV[165],/* INLINE-ARGS */V414,list(2,Ct,V415)))));
	VMR43(V416)}}
T1061:;
	V417= list(2,VV[172],car((V406)));
	V418= make_cons(/* INLINE-ARGS */V417,Cnil);
	V419= (*(LnkLI245))(car((V406)));
	V420= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V419,VV[172]));
	V421= make_cons(VV[172],cdr((V406)));
	{object V422 = list(4,VV[29],/* INLINE-ARGS */V418,/* INLINE-ARGS */V420,(*(LnkLI259))(/* INLINE-ARGS */V421,(V407)));
	VMR43(V422)}
T1051:;
	{object V423 = Cnil;
	VMR43(V423)}
}
/*	local entry for function CO1READ-BYTE	*/

static object LI44(V426,V427)

object V426;object V427;
{	 VMB44 VMS44 VMV44
	bds_check;
TTL:;
	{object V428;
	V428= Cnil;
	V428= (*(LnkLI259))((V427),VV[173]);
	if(((V428))==Cnil){
	goto T1076;}
	bds_bind(VV[159],small_fixnum(10));
	{object V429 = (*(LnkLI242))((V428));
	bds_unwind1;
	VMR44(V429)}
T1076:;
	{object V430 = Cnil;
	VMR44(V430)}}
}
/*	local entry for function CO1READ-CHAR	*/

static object LI45(V433,V434)

object V433;object V434;
{	 VMB45 VMS45 VMV45
	bds_check;
TTL:;
	{object V435;
	V435= Cnil;
	V435= (*(LnkLI259))((V434),VV[170]);
	if(((V435))==Cnil){
	goto T1082;}
	bds_bind(VV[159],small_fixnum(10));
	{object V436 = (*(LnkLI242))((V435));
	bds_unwind1;
	VMR45(V436)}
T1082:;
	{object V437 = Cnil;
	VMR45(V437)}}
}
/*	local entry for function CFAST-WRITE	*/

static object LI46(V440,V441)

object V440;object V441;
{	 VMB46 VMS46 VMV46
TTL:;
	if((symbol_value(VV[25]))!=Cnil){
	goto T1086;}
	if(!(number_compare(symbol_value(VV[159]),small_fixnum(2))<0)){
	goto T1086;}
	base[0]= VV[160];
	vs_top=(vs_base=base+0)+1;
	Lboundp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1086;}
	{object V442;
	V442= cadr((V440));
	if((V442)!=Cnil){
	goto T1094;}
	V442= VV[174];
T1094:;
	if(!(type_of((V442))!=t_cons)){
	goto T1097;}
	V443= list(2,VV[162],list(2,VV[163],(V442)));
	V444= make_cons(/* INLINE-ARGS */V443,Cnil);
	{object V445 = list(4,VV[29],/* INLINE-ARGS */V444,VV[175],list(3,VV[165],list(2,VV[176],list(3,(V441),VV[177],(V442))),VV[178]));
	VMR46(V445)}
T1097:;
	V446= list(2,VV[179],(V442));
	V447= make_cons(/* INLINE-ARGS */V446,Cnil);
	V448= (*(LnkLI245))((V442));
	V449= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V448,VV[179]));
	V450= list(2,VV[177],VV[179]);
	{object V451 = list(4,VV[29],/* INLINE-ARGS */V447,/* INLINE-ARGS */V449,(*(LnkLI260))(/* INLINE-ARGS */V450,(V441)));
	VMR46(V451)}}
T1086:;
	{object V452 = Cnil;
	VMR46(V452)}
}
/*	local entry for function CO1WRITE-BYTE	*/

static object LI47(V455,V456)

object V455;register object V456;
{	 VMB47 VMS47 VMV47
	bds_check;
TTL:;
	{object V457;
	V457= (*(LnkLI260))((V456),VV[180]);
	if(((V457))==Cnil){
	goto T1102;}
	bds_bind(VV[159],small_fixnum(10));
	V458= list(2,VV[177],car((V456)));
	V459= make_cons(/* INLINE-ARGS */V458,Cnil);
	if(!(type_of(car((V456)))!=t_cons)){
	goto T1106;}
	V460= car((V456));
	goto T1104;
T1106:;
	V460= VV[177];
T1104:;
	V461= list(5,VV[29],/* INLINE-ARGS */V459,VV[181],(V457),V460);
	{object V462 = (*(LnkLI242))(/* INLINE-ARGS */V461);
	bds_unwind1;
	VMR47(V462)}
T1102:;
	{object V463 = Cnil;
	VMR47(V463)}}
}
/*	local entry for function CO1WRITE-CHAR	*/

static object LI48(V466,V467)

object V466;register object V467;
{	 VMB48 VMS48 VMV48
	bds_check;
TTL:;
	{object V468;
	V468= (*(LnkLI260))((V467),VV[182]);
	if(((V468))==Cnil){
	goto T1111;}
	bds_bind(VV[159],small_fixnum(10));
	V469= list(2,VV[177],car((V467)));
	V470= make_cons(/* INLINE-ARGS */V469,Cnil);
	if(!(type_of(car((V467)))!=t_cons)){
	goto T1115;}
	V471= car((V467));
	goto T1113;
T1115:;
	V471= VV[177];
T1113:;
	V472= list(5,VV[29],/* INLINE-ARGS */V470,VV[183],(V468),V471);
	{object V473 = (*(LnkLI242))(/* INLINE-ARGS */V472);
	bds_unwind1;
	VMR48(V473)}
T1111:;
	{object V474 = Cnil;
	VMR48(V474)}}
}
/*	local entry for function AET-C-TYPE	*/

static object LI49(V476)

object V476;
{	 VMB49 VMS49 VMV49
TTL:;
	{object V477= (V476);
	if((V477!= Ct))goto T1117;
	{object V478 = VV[184];
	VMR49(V478)}
T1117:;
	if((V477!= VV[124])
	&& (V477!= VV[261]))goto T1118;
	{object V479 = VV[185];
	VMR49(V479)}
T1118:;
	if((V477!= VV[96]))goto T1119;
	{object V480 = VV[186];
	VMR49(V480)}
T1119:;
	if((V477!= VV[262]))goto T1120;
	{object V481 = VV[187];
	VMR49(V481)}
T1120:;
	if((V477!= VV[263]))goto T1121;
	{object V482 = VV[188];
	VMR49(V482)}
T1121:;
	if((V477!= VV[264]))goto T1122;
	{object V483 = VV[189];
	VMR49(V483)}
T1122:;
	if((V477!= VV[263]))goto T1123;
	{object V484 = VV[190];
	VMR49(V484)}
T1123:;
	if((V477!= VV[250]))goto T1124;
	{object V485 = VV[191];
	VMR49(V485)}
T1124:;
	if((V477!= VV[249]))goto T1125;
	{object V486 = VV[192];
	VMR49(V486)}
T1125:;
	FEerror("The ECASE key value ~s is illegal.",1,V477);}
}
/*	local entry for function CO1VECTOR-PUSH	*/

static object LI50(V489,V490)

object V489;register object V490;
{	 VMB50 VMS50 VMV50
	bds_check;
TTL:;
	if((symbol_value(VV[25]))!=Cnil){
	goto T1128;}
	if(number_compare(symbol_value(VV[159]),small_fixnum(3))>0){
	goto T1128;}
	if((cdr((V490)))==Cnil){
	goto T1128;}
	bds_bind(VV[159],small_fixnum(10));
	V491= list(2,VV[194],car((V490)));
	V492= listA(3,/* INLINE-ARGS */V491,list(2,VV[195],cadr((V490))),VV[196]);
	V493= (*(LnkLI245))(cadr((V490)));
	V494= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V493,VV[195]));
	V495= (*(LnkLI245))(car((V490)));
	V496= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V495,VV[194]));
	if(!(((V489))==(VV[199]))){
	goto T1136;}
	V497= listA(4,VV[199],VV[194],VV[195],cddr((V490)));
	goto T1134;
T1136:;
	V497= Cnil;
T1134:;
	V498= list(6,VV[193],/* INLINE-ARGS */V492,VV[197],/* INLINE-ARGS */V494,/* INLINE-ARGS */V496,list(3,VV[165],VV[198],list(2,Ct,V497)));
	{object V499 = (*(LnkLI242))(/* INLINE-ARGS */V498);
	bds_unwind1;
	VMR50(V499)}
T1128:;
	{object V500 = Cnil;
	VMR50(V500)}
}
/*	local entry for function CONSTANT-FOLD-P	*/

static object LI51(V502)

register object V502;
{	 VMB51 VMS51 VMV51
TTL:;
	base[0]= (V502);
	vs_top=(vs_base=base+0)+1;
	Lconstantp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1139;}
	{object V503 = Ct;
	VMR51(V503)}
T1139:;
	if(!(type_of((V502))!=t_cons)){
	goto T1143;}
	{object V504 = Cnil;
	VMR51(V504)}
T1143:;
	if(!((car((V502)))==(VV[86]))){
	goto T1146;}
	V502= caddr((V502));
	goto TTL;
T1146:;
	if(!(type_of(car((V502)))==t_symbol)){
	goto T1151;}
	V505= get(car((V502)),VV[200],Cnil);
	if(!((V505)==(VV[201]))){
	goto T1151;}
	{object V506;
	object V507;
	V506= cdr((V502));
	V507= car((V506));
T1160:;
	if(!(endp((V506)))){
	goto T1161;}
	goto T1156;
T1161:;
	base[0]= (*(LnkLI265))((V507));
	if(base[0]==Cnil)goto T1166;
	goto T1165;
T1166:;
	{object V508 = Cnil;
	VMR51(V508)}
T1165:;
	V506= cdr((V506));
	V507= car((V506));
	goto T1160;}
T1156:;
	{object V509 = Ct;
	VMR51(V509)}
T1151:;
	{object V510 = Cnil;
	VMR51(V510)}
}
/*	local entry for function CO1CONSTANT-FOLD	*/

static object LI52(V513,V514)

object V513;object V514;
{	 VMB52 VMS52 VMV52
TTL:;
	base[0]= (V513);
	vs_top=(vs_base=base+0)+1;
	Lfboundp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1174;}
	{object V515;
	object V516;
	V515= (V514);
	V516= car((V515));
T1182:;
	if(!(endp((V515)))){
	goto T1183;}
	goto T1178;
T1183:;
	base[0]= (*(LnkLI265))((V516));
	if(base[0]==Cnil)goto T1188;
	goto T1187;
T1188:;
	{object V517 = Cnil;
	VMR52(V517)}
T1187:;
	V515= cdr((V515));
	V516= car((V515));
	goto T1182;}
T1178:;
	base[0]= make_cons((V513),(V514));
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk266)();
	vs_top=sup;
	V518= vs_base[0];
	{object V519 = (*(LnkLI242))(V518);
	VMR52(V519)}
T1174:;
	{object V520 = Cnil;
	VMR52(V520)}
}
/*	local entry for function CO1SPECIAL-FIX-DECL	*/

static object LI53(V523,V524)

object V523;register object V524;
{	 VMB53 VMS53 VMV53
TTL:;
	{object V526= (V523);
	if((V526!= VV[268])
	&& (V526!= VV[269]))goto T1198;
	V527= car((V524));
	V528= cadr((V524));
	base[0]= cddr((V524));
	vs_top=(vs_base=base+0)+1;
	L54(base);
	vs_top=sup;
	V529= vs_base[0];
	V525= listA(4,(V523),/* INLINE-ARGS */V527,/* INLINE-ARGS */V528,V529);
	goto T1197;
T1198:;
	if((V526!= VV[270])
	&& (V526!= VV[271]))goto T1201;
	V530= car((V524));
	base[0]= cdr((V524));
	vs_top=(vs_base=base+0)+1;
	L54(base);
	vs_top=sup;
	V531= vs_base[0];
	V525= listA(3,(V523),/* INLINE-ARGS */V530,V531);
	goto T1197;
T1201:;
	V525= Cnil;}
T1197:;
	V532= (*(LnkLI267))(V525);
	{object V533 = (*(LnkLI242))(/* INLINE-ARGS */V532);
	VMR53(V533)}
}
/*	local entry for function CO1SUBLIS	*/

static object LI55(V536,V537)

object V536;register object V537;
{	 VMB54 VMS54 VMV54
TTL:;
	{object V538;
	V538= Cnil;
	V540 = make_fixnum(length((V537)));
	{object V539= V540;
	if(!eql(V539,VV[68]))goto T1208;
	V538= VV[50];
	if((VV[50])!=Cnil){
	goto T1206;}
	goto T1207;
T1208:;
	if(!eql(V539,VV[66]))goto T1210;
	if((caddr((V537)))==(VV[51])){
	goto T1211;}
	goto T1207;
T1211:;
	{register object x= cadddr((V537)),V541= VV[202];
	while(!endp(V541))
	if(eql(x,V541->c.c_car)){
	goto T1215;
	}else V541=V541->c.c_cdr;
	goto T1214;}
T1215:;
	V538= VV[203];
	if((VV[203])!=Cnil){
	goto T1206;}
	goto T1207;
T1214:;
	{register object x= cadddr((V537)),V542= VV[204];
	while(!endp(V542))
	if(eql(x,V542->c.c_car)){
	goto T1219;
	}else V542=V542->c.c_cdr;
	goto T1218;}
T1219:;
	V538= VV[50];
	if((VV[50])!=Cnil){
	goto T1206;}
	goto T1207;
T1218:;
	{register object x= cadddr((V537)),V543= VV[205];
	while(!endp(V543))
	if(eql(x,V543->c.c_car)){
	goto T1223;
	}else V543=V543->c.c_cdr;
	goto T1222;}
T1223:;
	V538= VV[48];
	if((VV[48])!=Cnil){
	goto T1206;}
	goto T1207;
T1222:;
	goto T1207;
T1210:;}
T1207:;
	{object V544 = Cnil;
	VMR54(V544)}
T1206:;
	{object V545;
	vs_base=vs_top;
	Lgensym();
	vs_top=sup;
	V545= vs_base[0];
	V546= list(2,(V545),car((V537)));
	V547= make_cons(/* INLINE-ARGS */V546,Cnil);
	V548= cadr((V537));
	V549= list(3,VV[29],/* INLINE-ARGS */V547,list(4,VV[206],(V545),/* INLINE-ARGS */V548,list(2,VV[113],(V538))));
	{object V550 = (*(LnkLI242))(/* INLINE-ARGS */V549);
	VMR54(V550)}}}
}
/*	local entry for function SUBLIS1-INLINE	*/

static object LI56(V554,V555,V556)

object V554;object V555;object V556;
{	 VMB55 VMS55 VMV55
TTL:;
	{object V557;
	V558= (VFUN_NARGS=4,(*(LnkLI272))(cadr((V556)),symbol_value(VV[207]),VV[208],VV[105]));
	V557= car(/* INLINE-ARGS */V558);
	{register object x= (V557),V559= VV[209];
	while(!endp(V559))
	if(eql(x,V559->c.c_car)){
	base[0]= V559;
	goto T1229;
	}else V559=V559->c.c_cdr;
	base[0]= Cnil;}
T1229:;
	if(base[0]==Cnil)goto T1228;
	goto T1227;
T1228:;
	base[1]= VV[210];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T1227:;
	princ_str("(check_alist(",VV[7]);
	(void)((*(LnkLI220))((V554)));
	princ_str("),sublis1(",VV[7]);
	(void)((*(LnkLI220))((V554)));
	princ_char(44,VV[7]);
	(void)((*(LnkLI220))((V555)));
	princ_char(44,VV[7]);
	base[0]= Cnil;
	base[1]= VV[211];
	base[2]= (V557);
	vs_top=(vs_base=base+0)+3;
	Lformat();
	vs_top=sup;
	V560= vs_base[0];
	(void)((*(LnkLI220))(V560));
	{object V561 = Cnil;
	VMR55(V561)}}
}
/*	local entry for function C1LIST-NTH	*/

static object LI57(V563)

register object V563;
{	 VMB56 VMS56 VMV56
TTL:;
	{object V564;
	V564= (VFUN_NARGS=0,(*(LnkLI215))());
	if(endp((V563))){
	goto T1245;}
	if(!(endp(cdr((V563))))){
	goto T1244;}
T1245:;
	V565 = make_fixnum(length((V563)));
	(void)((*(LnkLI216))(VV[156],small_fixnum(2),V565));
T1244:;
	if(endp(cddr((V563)))){
	goto T1249;}
	V566 = make_fixnum(length((V563)));
	(void)((*(LnkLI216))(VV[156],small_fixnum(2),V566));
T1249:;
	{object V567= car((V563));
	if(!(type_of(V567)==t_fixnum||
type_of(V567)==t_bignum||
type_of(V567)==t_ratio||
type_of(V567)==t_shortfloat||
type_of(V567)==t_longfloat||
type_of(V567)==t_complex)){
	goto T1253;}}
	base[0]= small_fixnum(0);
	base[1]= car((V563));
	base[2]= small_fixnum(10);
	vs_top=(vs_base=base+0)+3;
	Lmonotonically_nondecreasing();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1253;}
	V568= car((V563));
	V569= make_cons(cadr((V563)),Cnil);
	{object V570 = list(4,VV[212],(V564),/* INLINE-ARGS */V568,(*(LnkLI226))(/* INLINE-ARGS */V569,(V564)));
	VMR56(V570)}
T1253:;
	{object V571 = list(4,VV[4],(V564),VV[213],(*(LnkLI226))((V563),(V564)));
	VMR56(V571)}}
}
/*	local entry for function C2LIST-NTH-IMMEDIATE	*/

static object LI58(V574,V575)

object V574;object V575;
{	 VMB57 VMS57 VMV57
	bds_check;
TTL:;
	{object V576;
	setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
	V576= symbol_value(VV[22]);
	bds_bind(VV[20],symbol_value(VV[20]));
	bds_bind(VV[42],small_fixnum(0));
	V575= (VFUN_NARGS=2,(*(LnkLI239))((V575),VV[214]));
	princ_str("\n	{object V",VV[7]);
	(void)((*(LnkLI220))((V576)));
	princ_str("= ",VV[7]);
	if((symbol_value(VV[25]))==Cnil){
	goto T1270;}
	{int V577;
	int V578;
	V577= fix((V574));
	V578= 0;
T1276:;
	if(!((V578)>=(V577))){
	goto T1277;}
	goto T1272;
T1277:;
	princ_str("cdr(",VV[7]);
	V578= (V578)+1;
	goto T1276;}
T1272:;
	(void)((*(LnkLI220))(car((V575))));
	{int V579;
	int V580;
	V579= fix((V574));
	V580= 0;
T1292:;
	if(!((V580)>=(V579))){
	goto T1293;}
	goto T1288;
T1293:;
	princ_char(41,VV[7]);
	V580= (V580)+1;
	goto T1292;}
T1288:;
	princ_char(59,VV[7]);
	princ_str("\n	if((type_of(V",VV[7]);
	(void)((*(LnkLI220))((V576)));
	princ_str(")!=t_cons) && (",VV[7]);
	(void)((*(LnkLI220))(car((V575))));
	princ_str("!= Cnil))",VV[7]);
	princ_str("\n	 FEwrong_type_argument(Scons,V",VV[7]);
	(void)((*(LnkLI220))((V576)));
	princ_str(");",VV[7]);
	goto T1268;
T1270:;
	princ_str("\n	",VV[7]);
	(void)((*(LnkLI220))(car((V575))));
	{int V581;
	int V582;
	V581= fix((V574));
	V582= 0;
T1320:;
	if(!((V582)>=(V581))){
	goto T1321;}
	goto T1316;
T1321:;
	princ_str("\n	->c.c_cdr",VV[7]);
	V582= (V582)+1;
	goto T1320;}
T1316:;
	princ_char(59,VV[7]);
T1268:;
	V583= list(2,VV[61],(V576));
	(void)((VFUN_NARGS=1,(*(LnkLI221))(/* INLINE-ARGS */V583)));
	princ_char(125,VV[7]);
	{object V584 = (*(LnkLI240))();
	bds_unwind1;
	bds_unwind1;
	VMR57(V584)}}
}
/*	local function FIXUP	*/

static L54(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM58; VC58
	vs_reserve(VM58);
	{register object V585;
	check_arg(1);
	V585=(base[0]);
	vs_top=sup;
TTL:;
	{object V586;
	V586= Cnil;
T1336:;
	if(!(type_of((V585))==t_cons)){
	goto T1339;}
	goto T1338;
T1339:;
	goto T1337;
T1338:;
	{object V587;
	V587= car((V585));
	if(!(type_of((V587))==t_cons)){
	goto T1344;}
	V587= (*(LnkLI267))((V587));
	if(((V587))==Cnil){
	goto T1344;}
	if(!((car((V587)))==(VV[106]))){
	goto T1344;}
	V586= make_cons((V587),(V586));
	{object V588;
	V588= car((V585));
	V585= cdr((V585));
	goto T1341;}
T1344:;
	goto T1337;}
T1341:;
	goto T1336;
T1337:;
	V589= nreverse((V586));
	base[1]= nconc(/* INLINE-ARGS */V589,(V585));
	vs_top=(vs_base=base+1)+1;
	return;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
static object  LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[272],&LnkLI272,ap);} /* FIND */
static object  LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[267],&LnkLI267,1,ap);} /* CMP-MACROEXPAND */
static LnkT266(){ call_or_link(VV[266],&Lnk266);} /* CMP-EVAL */
static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[265],&LnkLI265,1,ap);} /* CONSTANT-FOLD-P */
static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,2,ap);} /* CFAST-WRITE */
static object  LnkTLI259(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[259],&LnkLI259,2,ap);} /* FAST-READ */
static object  LnkTLI258(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[258],&LnkLI258,1,ap);} /* CONS-TO-LISTA */
static object  LnkTLI257(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[257],&LnkLI257,1,ap);} /* NAME-SD1 */
static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* GET-INCLUDED */
static object  LnkTLI255(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[255],&LnkLI255,2,ap);} /* STRUCT-TYPE-OPT */
static object  LnkTLI254(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[254],&LnkLI254,1,ap);} /* NORMALIZE-TYPE */
static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[253],&LnkLI253,ap);} /* POSITION */
static object  LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],&LnkLI252,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
static object  LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],&LnkLI247,1,ap);} /* TYPE-FILTER */
static object  LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],&LnkLI246,1,ap);} /* REPLACE-CONSTANT */
static object  LnkTLI245(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[245],&LnkLI245,1,ap);} /* RESULT-TYPE */
static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* FIXNUMP */
static LnkT244(){ call_or_link(VV[244],&Lnk244);} /* SUBTYPEP */
static LnkT243(){ call_or_link(VV[243],&Lnk243);} /* WT-INLINE-LOC */
static object  LnkTLI242(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[242],&LnkLI242,1,ap);} /* C1EXPR */
static object  LnkTLI241(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[241],&LnkLI241,1,ap);} /* INLINE-BOOLE3-STRING */
static object  LnkTLI240(){return call_proc0(VV[240],&LnkLI240);} /* CLOSE-INLINE-BLOCKS */
static object  LnkTLI239(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[239],&LnkLI239,ap);} /* INLINE-ARGS */
static object  LnkTLI238(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[238],&LnkLI238,2,ap);} /* ADD-INFO */
static LnkT237(){ call_or_link(VV[237],&Lnk237);} /* C2EXPR */
static object  LnkTLI236(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[236],&LnkLI236,1,ap);} /* C2BIND */
static object  LnkTLI235(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[235],&LnkLI235,1,ap);} /* WT-VS */
static object  LnkTLI234(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[234],&LnkLI234,2,ap);} /* WT-VAR */
static object  LnkTLI233(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[233],&LnkLI233,ap);} /* MAKE-VAR */
static object  LnkTLI232(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[232],&LnkLI232,ap);} /* CMPERR */
static object  LnkTLI231(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[231],&LnkLI231,ap);} /* C2FUNCALL */
static object  LnkTLI230(){return call_proc0(VV[230],&LnkLI230);} /* VS-PUSH */
static object  LnkTLI229(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[229],&LnkLI229,1,ap);} /* C2EXPR* */
static object  LnkTLI228(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[228],&LnkLI228,1,ap);} /* SAVE-FUNOB */
static object  LnkTLI227(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[227],&LnkLI227,5,ap);} /* C1APPLY-OPTIMIZE */
static object  LnkTLI226(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[226],&LnkLI226,2,ap);} /* C1ARGS */
static LnkT225(){ call_or_link(VV[225],&Lnk225);} /* COPY-INFO */
static object  LnkTLI224(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[224],&LnkLI224,1,ap);} /* C1FUNOB */
static object  LnkTLI223(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[223],&LnkLI223,1,ap);} /* ADD-OBJECT */
static object  LnkTLI222(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[222],&LnkLI222,4,ap);} /* C2CALL-GLOBAL */
static object  LnkTLI221(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[221],&LnkLI221,ap);} /* UNWIND-EXIT */
static object  LnkTLI220(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[220],&LnkLI220,1,ap);} /* WT1 */
static object  LnkTLI219(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[219],&LnkLI219,2,ap);} /* C1EXPR* */
static object  LnkTLI218(){return call_proc0(VV[218],&LnkLI218);} /* C1NIL */
static object  LnkTLI217(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[217],&LnkLI217,3,ap);} /* TOO-MANY-ARGS */
static object  LnkTLI216(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[216],&LnkLI216,3,ap);} /* TOO-FEW-ARGS */
static object  LnkTLI215(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[215],&LnkLI215,ap);} /* MAKE-INFO */

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