#include "cmpinclude.h"
#include "pcl_braid.h"
void init_pcl_braid(){do_init(VV);}
/*	local entry for function ALLOCATE-STANDARD-INSTANCE	*/

static object LI1(object V1,object first,...)
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB1 VMS1 VMV1
	{object V2;
	object V3;
	object V4;
	va_start(ap,first);
	if(narg <1) too_few_arguments();
	V2= V1;
	narg = narg - 1;
	if (narg <= 0) goto T1;
	else {
	V3= first;}
	V4= Ct;
	--narg; goto T2;
	goto T1;
T1:;
	V3= Cnil;
	V4= Cnil;
	goto T2;
T2:;
	{object V5;
	V5= (*(LnkLI178))();
	V6= Ct;
	STSET(object,(V5),0, (V2));
	(void)((V2));
	if(((V4))==Cnil){
	goto T9;}
	base[0]= (V3);
	vs_top=(vs_base=base+0)+1;
	Lcopy_seq();
	vs_top=sup;
	V7= vs_base[0];
	goto T7;
	goto T9;
T9:;
	base[0]= ((V2))->v.v_self[12];
	base[1]= VV[2];
	base[2]= (VV[0]->s.s_dbind);
	vs_top=(vs_base=base+0)+3;
	(void) (*Lnk179)();
	vs_top=sup;
	V7= vs_base[0];
	goto T7;
T7:;
	V8= Ct;
	STSET(object,(V5),4, V7);
	(void)(V7);
	{object V9 = (V5);
	VMR1(V9)}}
	va_end(ap);
	base[0]=base[0];
	return Cnil;}
	}
/*	macro definition for ALLOCATE-FUNCALLABLE-INSTANCE-SLOTS	*/

static void L2()
{register object *base=vs_base;
	register object *sup=base+VM2; VC2
	vs_check;
	check_arg(2);
	vs_top=sup;
	{object V10=base[0]->c.c_cdr;
	if(endp(V10))invalid_macro_call();
	base[2]= (V10->c.c_car);
	V10=V10->c.c_cdr;
	if(endp(V10)){
	base[3]= Cnil;
	} else {
	base[3]= (V10->c.c_car);
	V10=V10->c.c_cdr;}
	if(endp(V10)){
	base[4]= Cnil;
	} else {
	base[4]= (V10->c.c_car);
	V10=V10->c.c_cdr;}
	if(!endp(V10))invalid_macro_call();}
	V11= list(2,VV[4],list(2,VV[5],base[2]));
	V12= make_cons(/* INLINE-ARGS */V11,Cnil);
	if((base[3])==Cnil){
	goto T19;}
	V13= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]);
	goto T17;
	goto T19;
T19:;
	V13= VV[9];
	goto T17;
T17:;
	base[5]= list(3,VV[3],/* INLINE-ARGS */V12,V13);
	vs_top=(vs_base=base+5)+1;
	return;
}
/*	local entry for function ALLOCATE-FUNCALLABLE-INSTANCE	*/

static object LI3(object V14,object first,...)
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB3 VMS3 VMV3
	{object V15;
	object V16;
	object V17;
	va_start(ap,first);
	if(narg <1) too_few_arguments();
	V15= V14;
	narg = narg - 1;
	if (narg <= 0) goto T21;
	else {
	V16= first;}
	V17= Ct;
	--narg; goto T22;
	goto T21;
T21:;
	V16= Cnil;
	V17= Cnil;
	goto T22;
T22:;
	base[0]= (*(LnkLI180))();
	base[0]=MMcons(base[0],Cnil);
	V18= 
	make_cclosure_new(LC45,Cnil,base[0],Cdata);
	(void)((*(LnkLI181))((base[0]->c.c_car),V18));
	{object V19;
	V19= ((base[0]->c.c_car))->cc.cc_turbo[13];
	((V19))->c.c_car = V15;}
	{object V21;
	object V22;
	V21= ((base[0]->c.c_car))->cc.cc_turbo[12];
	{object V23;
	V23= ((V15))->v.v_self[12];
	if(((V17))==Cnil){
	goto T35;}
	base[3]= (V16);
	vs_top=(vs_base=base+3)+1;
	Lcopy_seq();
	vs_top=sup;
	V22= vs_base[0];
	goto T32;
	goto T35;
T35:;
	base[3]= (V23);
	base[4]= VV[2];
	base[5]= (VV[0]->s.s_dbind);
	vs_top=(vs_base=base+3)+3;
	(void) (*Lnk179)();
	vs_top=sup;
	V22= vs_base[0];}
	goto T32;
T32:;
	((V21))->c.c_car = (V22);}
	{object V24 = (base[0]->c.c_car);
	VMR3(V24)}
	va_end(ap);
	base[0]=base[0];
	return Cnil;}
	}
/*	local entry for function ALLOCATE-STRUCTURE-INSTANCE	*/

static object LI4(object V25,object first,...)
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB4 VMS4 VMV4
	{object V26;
	object V27;
	object V28;
	va_start(ap,first);
	if(narg <1) too_few_arguments();
	V26= V25;
	narg = narg - 1;
	if (narg <= 0) goto T42;
	else {
	V27= first;}
	V28= Ct;
	--narg; goto T43;
	goto T42;
T42:;
	V27= Cnil;
	V28= Cnil;
	goto T43;
T43:;
	{object V29;
	object V30;
	V29= ((V26))->v.v_self[11];
	base[2]= (V29);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk183)(Lclptr183);
	vs_top=sup;
	V30= vs_base[0];
	if(((V30))==Cnil){
	goto T49;}
	{object V31;
	register object V32;
	V31= (
	(type_of((V30)) == t_sfun ?(*(((V30))->sfn.sfn_self)):
	(fcall.argd=0,type_of((V30))==t_vfun) ?
	(*(((V30))->sfn.sfn_self)):
	(fcall.fun=((V30)),fcalln))());
	base[2]= (V29);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk184)(Lclptr184);
	vs_top=sup;
	V32= vs_base[0];
	if(((V28))==Cnil){
	goto T54;}
	{long V33;
	register long V34;
	V33= (long)length((V27));
	V34= 0;
	goto T60;
T60:;
	if(!((V34)>=(V33))){
	goto T61;}
	goto T54;
	goto T61;
T61:;
	{register object V35;
	{register object V36;
	V36= CMPcar((V32));
	V32= CMPcdr((V32));
	V35= (V36);}
	{register object V37;
	register object V38;
	register object V39;
	register object V40;
	V37= (V29);
	V38= (V31);
	V39= (V35);
	V40= ((V27))->v.v_self[V34];
	V41= ({object _tmp=get(VV[185],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[185])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[185])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V42 = V41,
	(type_of(V42) == t_sfun ?(*((V42)->sfn.sfn_self)):
	(fcall.argd=4,type_of(V42)==t_vfun) ?
	(*((V42)->sfn.sfn_self)):
	(fcall.fun=(V42),fcalln))((V40),(V37),(V38),(V39))));}}
	V34= (long)(V34)+1;
	goto T60;}
	goto T54;
T54:;
	{object V43 = (V31);
	VMR4(V43)}}
	goto T49;
T49:;
	base[2]= VV[11];
	base[4]= (V29);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk186)(Lclptr186);
	vs_top=sup;
	base[3]= vs_base[0];
	vs_top=(vs_base=base+2)+2;
	Lerror();
	vs_top=sup;
	{object V44 = vs_base[0];
	VMR4(V44)}}
	va_end(ap);
	base[0]=base[0];
	return Cnil;}
	}
/*	macro definition for INITIAL-CLASSES-AND-WRAPPERS	*/

static void L5()
{register object *base=vs_base;
	register object *sup=base+VM5; VC5
	vs_check;
	check_arg(2);
	vs_top=sup;
	{object V45=base[0]->c.c_cdr;
	base[2]= V45;}
	{object V47;
	object V48= base[2];
	if(V48==Cnil){
	V46= Cnil;
	goto T80;}
	base[3]=V47=MMcons(Cnil,Cnil);
	goto T81;
T81:;
	{register object V49;
	V49= (V48->c.c_car);
	{object V50;
	base[5]= Cnil;
	base[6]= VV[13];
	base[7]= (V49);
	vs_top=(vs_base=base+5)+3;
	Lformat();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= (VV[14]->s.s_dbind);
	vs_top=(vs_base=base+4)+2;
	Lintern();
	vs_top=sup;
	V50= vs_base[0];
	if(!(((V49))==(VV[16]))){
	goto T91;}
	V51= VV[17];
	goto T89;
	goto T91;
T91:;
	V51= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V49))));
	goto T89;
T89:;
	if(!(((V49))==(VV[16]))){
	goto T95;}
	V52= VV[22];
	goto T93;
	goto T95;
T95:;
	V52= VV[23];
	goto T93;
T93:;
	V53= list(2,VV[21],V52);
	V54= list(2,VV[24],(V50));
	(V47->c.c_car)= list(9,VV[15],(V50),V51,(V49),/* INLINE-ARGS */V53,/* INLINE-ARGS */V54,(V49),list(2,VV[25],list(2,VV[20],(V49))),(V49));}}
	if((V48=MMcdr(V48))==Cnil){
	V46= base[3];
	goto T80;}
	V47=MMcdr(V47)=MMcons(Cnil,Cnil);
	goto T81;}
	goto T80;
T80:;
	base[3]= make_cons(VV[12],V46);
	vs_top=(vs_base=base+3)+1;
	return;
}
/*	local entry for function BOOTSTRAP-META-BRAID	*/

static object LI6()

{	 VMB6 VMS6 VMV6
	bds_check;
	goto TTL;
TTL:;
	{object V56;
	V56= (VFUN_NARGS=1,(*(LnkLI187))(VV[26]));
	{object V58;
	V58= VV[188];
	V59= ({object _tmp=get(VV[189],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[189])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[189])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V60 = V59,
	(type_of(V60) == t_sfun ?(*((V60)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V60)==t_vfun) ?
	(*((V60)->sfn.sfn_self)):
	(fcall.fun=(V60),fcalln))((V58),V56)));}
	(void)((*(LnkLI190))(VV[26],(V56)));}
	{object V61;
	object V62;
	object V63;
	object V64;
	object V65;
	object V66;
	object V67;
	object V68;
	object V69;
	object V70;
	object V71;
	object V72;
	object V73;
	object V74;
	object V75;
	object V76;
	object V77;
	object V78;
	bds_bind(VV[27],Cnil);
	V61= Cnil;
	V62= Cnil;
	V63= Cnil;
	V64= Cnil;
	V65= Cnil;
	V66= Cnil;
	V67= Cnil;
	V68= Cnil;
	V69= Cnil;
	V70= Cnil;
	V71= Cnil;
	V72= Cnil;
	V73= Cnil;
	V74= Cnil;
	V75= Cnil;
	V76= Cnil;
	V77= Cnil;
	V78= Cnil;
	V79 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28]));
	V61= (VFUN_NARGS=1,(*(LnkLI18))(V79));
	V62= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
	(void)(((V61))->v.v_self[11]= ((V62)));
	V82= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V83 = V82,
	(type_of(V83) == t_sfun ?(*((V83)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V83)==t_vfun) ?
	(*((V83)->sfn.sfn_self)):
	(fcall.fun=(V83),fcalln))(V62,VV[28])));
	V84 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29]));
	V63= (VFUN_NARGS=1,(*(LnkLI18))(V84));
	V64= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
	(void)(((V63))->v.v_self[11]= ((V64)));
	V87= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V88 = V87,
	(type_of(V88) == t_sfun ?(*((V88)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V88)==t_vfun) ?
	(*((V88)->sfn.sfn_self)):
	(fcall.fun=(V88),fcalln))(V64,VV[29])));
	V89 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30]));
	V65= (VFUN_NARGS=1,(*(LnkLI18))(V89));
	V66= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
	(void)(((V65))->v.v_self[11]= ((V66)));
	V92= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V93 = V92,
	(type_of(V93) == t_sfun ?(*((V93)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V93)==t_vfun) ?
	(*((V93)->sfn.sfn_self)):
	(fcall.fun=(V93),fcalln))(V66,VV[30])));
	V94 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31]));
	V67= (VFUN_NARGS=1,(*(LnkLI18))(V94));
	V68= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
	(void)(((V67))->v.v_self[11]= ((V68)));
	V97= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V98 = V97,
	(type_of(V98) == t_sfun ?(*((V98)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V98)==t_vfun) ?
	(*((V98)->sfn.sfn_self)):
	(fcall.fun=(V98),fcalln))(V68,VV[31])));
	V99 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32]));
	V69= (VFUN_NARGS=1,(*(LnkLI18))(V99));
	V70= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
	(void)(((V69))->v.v_self[11]= ((V70)));
	V102= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V103 = V102,
	(type_of(V103) == t_sfun ?(*((V103)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V103)==t_vfun) ?
	(*((V103)->sfn.sfn_self)):
	(fcall.fun=(V103),fcalln))(V70,VV[32])));
	V104 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33]));
	V71= (VFUN_NARGS=1,(*(LnkLI18))(V104));
	V72= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
	(void)(((V71))->v.v_self[11]= ((V72)));
	V107= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V108 = V107,
	(type_of(V108) == t_sfun ?(*((V108)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V108)==t_vfun) ?
	(*((V108)->sfn.sfn_self)):
	(fcall.fun=(V108),fcalln))(V72,VV[33])));
	V109 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34]));
	V73= (VFUN_NARGS=1,(*(LnkLI18))(V109));
	V74= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
	(void)(((V73))->v.v_self[11]= ((V74)));
	V112= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V113 = V112,
	(type_of(V113) == t_sfun ?(*((V113)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V113)==t_vfun) ?
	(*((V113)->sfn.sfn_self)):
	(fcall.fun=(V113),fcalln))(V74,VV[34])));
	V114 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35]));
	V75= (VFUN_NARGS=1,(*(LnkLI18))(V114));
	V76= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
	(void)(((V75))->v.v_self[11]= ((V76)));
	V117= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V118 = V117,
	(type_of(V118) == t_sfun ?(*((V118)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V118)==t_vfun) ?
	(*((V118)->sfn.sfn_self)):
	(fcall.fun=(V118),fcalln))(V76,VV[35])));
	V77= (VV[17]->s.s_dbind);
	V78= (VFUN_NARGS=1,(*(LnkLI21))((V63)));
	(void)(((V77))->v.v_self[11]= ((V78)));
	V121= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V122 = V121,
	(type_of(V122) == t_sfun ?(*((V122)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V122)==t_vfun) ?
	(*((V122)->sfn.sfn_self)):
	(fcall.fun=(V122),fcalln))(V78,VV[16])));
	{object V123;
	object V124;
	V123= (VV[36]->s.s_dbind);
	V124= CMPcar((V123));
	goto T187;
T187:;
	if(!(((V123))==Cnil)){
	goto T188;}
	goto T183;
	goto T188;
T188:;
	{object V125;
	object V126;
	object V127;
	object V128;
	V125= (*(LnkLI191))((V124));
	V126= (*(LnkLI192))((V124));
	{object V130= V126;
	if((V130!= VV[30]))goto T196;
	V127= (V65);
	goto T195;
	goto T196;
T196:;
	if((V130!= VV[28]))goto T197;
	V127= (V61);
	goto T195;
	goto T197;
T197:;
	if((V130!= VV[29]))goto T198;
	V127= (V63);
	goto T195;
	goto T198;
T198:;
	if((V130!= VV[31]))goto T199;
	V127= (V67);
	goto T195;
	goto T199;
T199:;
	if((V130!= VV[32]))goto T200;
	V127= (V69);
	goto T195;
	goto T200;
T200:;
	base[6]= VV[37];
	base[7]= VV[38];
	base[8]= VV[39];
	base[9]= VV[40];
	base[10]= V126;
	base[11]= VV[41];
	base[12]= VV[42];
	base[13]= VV[43];
	base[14]= VV[44];
	vs_top=(vs_base=base+6)+9;
	(void) (*Lnk193)();
	vs_top=sup;
	V127= vs_base[0];}
	goto T195;
T195:;{object V131;
	V131= (VFUN_NARGS=2,(*(LnkLI25))((V125),Cnil));
	if(V131==Cnil)goto T211;
	V128= V131;
	goto T210;
	goto T211;
T211:;}
	V128= (VFUN_NARGS=1,(*(LnkLI21))((V127)));
	goto T210;
T210:;
	if(((V126))==(VV[28])){
	goto T214;}
	if(!(((V126))==(VV[29]))){
	goto T213;}
	goto T214;
T214:;
	(void)((*(LnkLI194))((V125)));
	goto T213;
T213:;
	V134= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V135 = V134,
	(type_of(V135) == t_sfun ?(*((V135)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V135)==t_vfun) ?
	(*((V135)->sfn.sfn_self)):
	(fcall.fun=(V135),fcalln))(V128,V125)));}
	V123= CMPcdr((V123));
	V124= CMPcar((V123));
	goto T187;}
	goto T183;
T183:;
	{object V136;
	register object V137;
	V136= (VV[36]->s.s_dbind);
	V137= CMPcar((V136));
	goto T228;
T228:;
	if(!(((V136))==Cnil)){
	goto T229;}
	goto T224;
	goto T229;
T229:;
	{register object V138;
	register object V139;
	object V140;
	object V141;
	object V142;
	object V143;
	V138= (*(LnkLI191))((V137));
	V139= (*(LnkLI192))((V137));
	V140= (*(LnkLI195))((V137));
	V141= (*(LnkLI196))((V137));
	V142= (*(LnkLI197))((V137));
	V143= (*(LnkLI198))((V137));
	{object V144;
	base[2]= (V143);
	base[3]= VV[45];
	vs_top=(vs_base=base+2)+2;
	Lgetf();
	vs_top=sup;
	V144= vs_base[0];
	{register object V145;
	object V146;
	object V147;
	object V148;
	base[2]= (V138);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk199)();
	if(vs_base>=vs_top){vs_top=sup;goto T245;}
	V145= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T246;}
	V146= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T247;}
	V147= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T248;}
	V148= vs_base[0];
	vs_top=sup;
	goto T249;
	goto T245;
T245:;
	V145= Cnil;
	goto T246;
T246:;
	V146= Cnil;
	goto T247;
T247:;
	V147= Cnil;
	goto T248;
T248:;
	V148= Cnil;
	goto T249;
T249:;
	{register object V149;
	register object V150;
	object V151;
	V149= (VFUN_NARGS=1,(*(LnkLI25))((V138)));
	if(!(((V149))==((V66)))){
	goto T253;}
	V150= (V65);
	goto T251;
	goto T253;
T253:;
	if(!(((V149))==((V62)))){
	goto T256;}
	V150= (V61);
	goto T251;
	goto T256;
T256:;
	if(!(((V149))==((V64)))){
	goto T259;}
	V150= (V63);
	goto T251;
	goto T259;
T259:;
	if(!(((V149))==((V72)))){
	goto T262;}
	V150= (V71);
	goto T251;
	goto T262;
T262:;
	if(!(((V149))==((V74)))){
	goto T265;}
	V150= (V73);
	goto T251;
	goto T265;
T265:;
	if(!(((V149))==((V68)))){
	goto T268;}
	V150= (V67);
	goto T251;
	goto T268;
T268:;
	if(!(((V149))==((V70)))){
	goto T271;}
	V150= (V69);
	goto T251;
	goto T271;
T271:;
	if(!(((V149))==((V76)))){
	goto T274;}
	V150= (V75);
	goto T251;
	goto T274;
T274:;
	if(!(((V149))==((V78)))){
	goto T277;}
	V150= (V77);
	goto T251;
	goto T277;
T277:;
	V152 = CMPmake_fixnum((long)length((V145)));
	V150= (VFUN_NARGS=2,(*(LnkLI18))(V152,(V149)));
	goto T251;
T251:;
	V151= Cnil;
	if(!(((V138))==(Ct))){
	goto T280;}
	(VV[46]->s.s_dbind)= (V150);
	goto T280;
T280:;
	base[6]= Cnil;
	base[7]= VV[47];
	base[8]= symbol_name((V138));
	vs_top=(vs_base=base+6)+3;
	Lformat();
	vs_top=sup;
	base[5]= vs_base[0];
	base[6]= (VV[14]->s.s_dbind);
	vs_top=(vs_base=base+5)+2;
	Lintern();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= (V149);
	vs_top=(vs_base=base+4)+2;
	Lset();
	vs_top=sup;
	{register object V153;
	object V154;
	V153= (V145);
	V154= CMPcar((V153));
	goto T296;
T296:;
	if(!(((V153))==Cnil)){
	goto T297;}
	goto T292;
	goto T297;
T297:;
	base[5]= (V154);
	base[6]= VV[48];
	base[7]= VV[49];
	vs_top=(vs_base=base+5)+3;
	Lgetf();
	vs_top=sup;
	V155= vs_base[0];
	if((V155)==(VV[49])){
	goto T301;}
	base[5]= VV[50];
	vs_top=(vs_base=base+5)+1;
	Lerror();
	vs_top=sup;
	goto T301;
T301:;
	V153= CMPcdr((V153));
	V154= CMPcar((V153));
	goto T296;}
	goto T292;
T292:;
	base[5]=VV[200]->s.s_gfdef;
	{object V157;
	object V158= (V145);
	if(V158==Cnil){
	V156= Cnil;
	goto T316;}
	base[4]=V157=MMcons(Cnil,Cnil);
	goto T317;
T317:;
	base[6]= (V158->c.c_car);
	vs_top=(vs_base=base+6)+1;
	(void) (*Lnk200)();
	vs_top=sup;
	(V157->c.c_car)= vs_base[0];
	if((V158=MMcdr(V158))==Cnil){
	V156= base[4];
	goto T316;}
	V157=MMcdr(V157)=MMcons(Cnil,Cnil);
	goto T317;}
	goto T316;
T316:;
	(void)(((V150))->v.v_self[9]= (V156));
	(void)(((V150))->v.v_self[10]= (Cnil));
	if(!(((V139))==(VV[29]))){
	goto T323;}
	V151= (VFUN_NARGS=1,(*(LnkLI201))((V150)));
	goto T321;
	goto T323;
T323:;
	V151= (VFUN_NARGS=1,(*(LnkLI21))((V150)));
	goto T321;
T321:;
	V142= (*(LnkLI202))((V138),(V149),(V142),(V71),Cnil);
	V145= (*(LnkLI202))((V138),(V149),(V145),(V73),Ct);
	{object V159= (V139);
	if((V159!= VV[28])
	&& (V159!= VV[29]))goto T329;
	(void)((VFUN_NARGS=14,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151),(V142),(V145),(V144),(V147))));
	goto T233;
	goto T329;
T329:;
	if((V159!= VV[31]))goto T330;
	(void)((VFUN_NARGS=10,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151))));
	goto T233;
	goto T330;
T330:;
	if((V159!= VV[30]))goto T331;
	(void)((VFUN_NARGS=10,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151))));
	goto T233;
	goto T331;
T331:;
	if((V159!= VV[32]))goto T332;
	(void)((VFUN_NARGS=9,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150))));
	goto T233;
	goto T332;
T332:;}}}}}
	goto T233;
T233:;
	V136= CMPcdr((V136));
	V137= CMPcar((V136));
	goto T228;}
	goto T224;
T224:;
	{object V160;
	object V161;
	V160= (VFUN_NARGS=1,(*(LnkLI25))(VV[51]));
	if(type_of(V160)==t_structure){
	goto T344;}
	goto T342;
	goto T344;
T344:;
	if(!(((V160)->str.str_def)==(VV[52]))){
	goto T342;}
	V162= STREF(object,(V160),4);
	goto T340;
	goto T342;
T342:;{object V164;
	V164= (VV[53]->s.s_dbind);
	base[4]= small_fixnum(14);
	base[5]= (V160);
	vs_top=(vs_base=base+4)+2;
	(void) (*Lnk204)();
	vs_top=sup;
	V165= vs_base[0];
	if(!((V164)==(CMPcar(V165)))){
	goto T347;}}
	V162= CMPcar(((V160))->cc.cc_turbo[12]);
	goto T340;
	goto T347;
T347:;
	base[4]= VV[54];
	vs_top=(vs_base=base+4)+1;
	Lerror();
	vs_top=sup;
	V162= vs_base[0];
	goto T340;
T340:;
	V166= (*(LnkLI205))(VV[28],VV[55]);
	V161= (V162)->v.v_self[fix(/* INLINE-ARGS */V166)];
	base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V161)));
	base[4]= VV[56];
	vs_base=vs_top;
	(void) (*Lnk206)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L7(base);
	vs_top=sup;
	base[4]= VV[57];
	base[5]= VV[58];
	vs_top=(vs_base=base+4)+2;
	L7(base);
	vs_top=sup;
	base[4]= VV[59];
	base[5]= VV[60];
	vs_top=(vs_base=base+4)+2;
	L7(base);
	vs_top=sup;
	base[4]= VV[61];
	base[5]= Cnil;
	vs_top=(vs_base=base+4)+2;
	L7(base);
	vs_top=sup;
	(VV[62]->s.s_dbind)= base[3];
	{object V167 = (VV[62]->s.s_dbind);
	bds_unwind1;
	VMR6(V167)}}}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function BOOTSTRAP-INITIALIZE-CLASS	*/

static object LI8(object V176,object V175,object V174,object V173,object V172,object V171,object V170,object V169,object V168,object first,...)
{	
	va_list ap;
	int narg = VFUN_NARGS; VMB7 VMS7 VMV7
	{register object V177;
	object V178;
	object V179;
	object V180;
	object V181;
	register object V182;
	register object V183;
	object V184;
	object V185;
	object V186;
	register object V187;
	register object V188;
	va_start(ap,first);
	if(narg <9) too_few_arguments();
	base[0]= V176;
	base[1]= V175;
	V177= V174;
	V178= V173;
	V179= V172;
	V180= V171;
	V181= V170;
	V182= V169;
	V183= V168;
	narg = narg - 9;
	if (narg <= 0) goto T367;
	else {
	V184= first;}
	if (--narg <= 0) goto T368;
	else {
	V185= va_arg(ap,object);}
	if (--narg <= 0) goto T369;
	else {
	V186= va_arg(ap,object);}
	if (--narg <= 0) goto T370;
	else {
	V187= va_arg(ap,object);}
	if (--narg <= 0) goto T371;
	else {
	V188= va_arg(ap,object);}
	--narg; goto T372;
	goto T367;
T367:;
	V184= Cnil;
	goto T368;
T368:;
	V185= Cnil;
	goto T369;
T369:;
	V186= Cnil;
	goto T370;
T370:;
	V187= Cnil;
	goto T371;
T371:;
	V188= Cnil;
	goto T372;
T372:;
	base[14]= VV[63];
	base[15]= (V177);
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[56];
	base[15]= (V179);
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[57];
	V189= (VFUN_NARGS=1,(*(LnkLI25))(Ct));
	if(!((base[1])==(/* INLINE-ARGS */V189))){
	goto T388;}
	base[15]= Ct;
	goto T386;
	goto T388;
T388:;
	base[15]= list(2,VV[26],base[1]);
	goto T386;
T386:;
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[35];
	{object V190;
	V190= (VFUN_NARGS=1,(*(LnkLI21))((V178)));
	V191= list(2,VV[64],base[1]);
	(void)((*(LnkLI207))(VV[35],(V190),VV[57],/* INLINE-ARGS */V191));
	(void)((*(LnkLI207))(VV[35],(V190),VV[65],base[1]));
	base[15]= (V190);}
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[66];
	base[16]= (V182);
	vs_top=(vs_base=base+16)+1;
	L9(base);
	vs_top=sup;
	base[15]= vs_base[0];
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[67];
	base[16]= CMPcdr((V182));
	vs_top=(vs_base=base+16)+1;
	L9(base);
	vs_top=sup;
	base[15]= vs_base[0];
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[68];
	base[15]= Cnil;
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[69];
	base[16]= (V180);
	vs_top=(vs_base=base+16)+1;
	L9(base);
	vs_top=sup;
	base[15]= vs_base[0];
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[70];
	base[16]= (V181);
	vs_top=(vs_base=base+16)+1;
	L9(base);
	vs_top=sup;
	base[15]= vs_base[0];
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[71];
	base[15]= make_cons(Cnil,Cnil);
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[55];
	base[15]= (V183);
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[72];{object V192;
	{register object x= (V177),V194= (VV[73]->s.s_dbind);
	while(V194!=Cnil)
	if(eql(x,V194->c.c_car->c.c_car) &&V194->c.c_car != Cnil){
	V193= (V194->c.c_car);
	goto T426;
	}else V194=V194->c.c_cdr;
	V193= Cnil;}
	goto T426;
T426:;
	V192= CMPcadr(V193);
	if(V192==Cnil)goto T424;
	base[15]= V192;
	goto T423;
	goto T424;
T424:;}
	base[16]= (V177);
	vs_top=(vs_base=base+16)+1;
	(void) (*Lnk208)();
	vs_top=sup;
	base[15]= vs_base[0];
	goto T423;
T423:;
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[74];
	if((V187)==Cnil){
	V195= Cnil;
	goto T431;}
	V195= list(2,VV[75],(V187));
	goto T431;
T431:;
	if((V188)==Cnil){
	V196= Cnil;
	goto T432;}
	V196= list(2,VV[76],(V188));
	goto T432;
T432:;
	base[15]= append(V195,V196);
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	{register object x= base[0],V197= VV[77];
	while(V197!=Cnil)
	if(x==(V197->c.c_car)){
	goto T435;
	}else V197=V197->c.c_cdr;
	goto T433;}
	goto T435;
T435:;
	base[14]= VV[78];
	base[15]= (V185);
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[79];
	base[15]= (V186);
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[80];
	base[15]= Cnil;
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	goto T433;
T433:;
	if(!((base[0])==(VV[32]))){
	goto T446;}
	base[14]= VV[72];{object V199;
	{register object x= (V177),V201= (VV[73]->s.s_dbind);
	while(V201!=Cnil)
	if(eql(x,V201->c.c_car->c.c_car) &&V201->c.c_car != Cnil){
	V200= (V201->c.c_car);
	goto T453;
	}else V201=V201->c.c_cdr;
	V200= Cnil;}
	goto T453;
T453:;
	V199= CMPcadr(V200);
	if(V199==Cnil)goto T451;
	base[15]= V199;
	goto T450;
	goto T451;
T451:;}
	base[16]= (V177);
	vs_top=(vs_base=base+16)+1;
	(void) (*Lnk208)();
	vs_top=sup;
	base[15]= vs_base[0];
	goto T450;
T450:;
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[82];
	base[15]= list(2,VV[83],list(2,VV[84],list(2,VV[85],VV[81])));
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[86];
	base[15]= VV[81];
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[87];
	base[15]= Ct;
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[74];
	base[15]= Cnil;
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	base[14]= VV[88];
	vs_base=vs_top;
	{object _funobj = VV[81];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	base[15]= vs_base[0];
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	goto T444;
	goto T446;
T446:;
	base[14]= VV[88];
	if((V184)!=Cnil){
	base[15]= (V184);
	goto T470;}
	base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V183)));
	goto T470;
T470:;
	vs_top=(vs_base=base+14)+2;
	L10(base);
	vs_top=sup;
	goto T444;
T444:;
	{object V202 = base[1];
	VMR7(V202)}
	va_end(ap);
	base[0]=base[0];
	return Cnil;}
	}
/*	local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS	*/

static object LI11(V208,V209,V210,V211,V212)

object V208;object V209;object V210;object V211;object V212;
{	 VMB8 VMS8 VMV8
	goto TTL;
TTL:;
	{object V213;
	V213= small_fixnum(-1);
	{object V214;
	object V215= (V210);
	if(V215==Cnil){
	{object V216 = Cnil;
	VMR8(V216)}}
	base[0]=V214=MMcons(Cnil,Cnil);
	goto T471;
T471:;
	V213= number_plus((V213),small_fixnum(1));
	(V214->c.c_car)= (*(LnkLI209))((V208),(V209),(V215->c.c_car),(V211),(V212),(V213));
	if((V215=MMcdr(V215))==Cnil){
	{object V218 = base[0];
	VMR8(V218)}}
	V214=MMcdr(V214)=MMcons(Cnil,Cnil);
	goto T471;}}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION	*/

static object LI15(V225,V226,V227,V228,V229,V230)

register object V225;register object V226;object V227;object V228;register object V229;register object V230;
{	 VMB9 VMS9 VMV9
	goto TTL;
TTL:;
	base[0]= (V227);
	{register object V231;
	if(((V229))==Cnil){
	goto T477;}
	base[1]= VV[34];
	goto T475;
	goto T477;
T477:;
	base[1]= VV[33];
	goto T475;
T475:;
	base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V228)));
	base[4]= base[0];
	base[5]= VV[38];
	vs_top=(vs_base=base+4)+2;
	Lgetf();
	vs_top=sup;
	V231= vs_base[0];
	base[4]= VV[63];
	base[5]= (V231);
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[89];
	base[6]= VV[90];
	vs_top=(vs_base=base+6)+1;
	L16(base);
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[91];
	base[6]= VV[92];
	vs_top=(vs_base=base+6)+1;
	L16(base);
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[93];
	base[6]= VV[94];
	vs_top=(vs_base=base+6)+1;
	L16(base);
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[95];
	base[6]= VV[96];
	vs_top=(vs_base=base+6)+1;
	L16(base);
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[97];
	base[6]= VV[98];
	vs_top=(vs_base=base+6)+1;
	L16(base);
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[99];
	base[5]= VV[49];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[57];{object V232;
	base[6]= VV[100];
	vs_top=(vs_base=base+6)+1;
	L16(base);
	vs_top=sup;
	V232= vs_base[0];
	if(V232==Cnil)goto T512;
	base[5]= V232;
	goto T511;
	goto T512;
T512:;}
	base[5]= Ct;
	goto T511;
T511:;
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[59];{object V233;
	base[6]= VV[101];
	vs_top=(vs_base=base+6)+1;
	L16(base);
	vs_top=sup;
	V233= vs_base[0];
	if(V233==Cnil)goto T518;
	base[5]= V233;
	goto T517;
	goto T518;
T518:;}
	base[5]= VV[102];
	goto T517;
T517:;
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[26];
	base[5]= (V226);
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	if(((V229))==Cnil){
	goto T524;}
	base[4]= VV[103];
	base[5]= (V230);
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[104];
	base[6]= Cnil;
	base[7]= (V231);
	base[8]= (V230);
	vs_top=(vs_base=base+6)+3;
	(void) (*Lnk210)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[105];
	base[6]= Cnil;
	base[7]= (V231);
	base[8]= (V230);
	vs_top=(vs_base=base+6)+3;
	(void) (*Lnk211)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[106];
	base[6]= Cnil;
	base[7]= (V231);
	base[8]= (V230);
	vs_top=(vs_base=base+6)+3;
	(void) (*Lnk212)();
	vs_top=sup;
	base[5]= vs_base[0];
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	base[4]= VV[107];
	base[5]= small_fixnum(7);
	vs_top=(vs_base=base+4)+2;
	L17(base);
	vs_top=sup;
	{object V235;{object V236;
	base[4]= (V231);
	base[5]= (VV[108]->s.s_dbind);
	vs_top=(vs_base=base+4)+2;
	Lgethash();
	vs_top=sup;
	V236= vs_base[0];
	if(V236==Cnil)goto T552;
	V235= V236;
	goto T551;
	goto T552;
T552:;}
	{object V238;
	object V239;
	V238= (VV[108]->s.s_dbind);
	base[5]= VV[109];
	base[6]= VV[110];
	base[7]= VV[111];
	base[8]= small_fixnum(5);
	vs_top=(vs_base=base+5)+4;
	Lmake_hash_table();
	vs_top=sup;
	V239= vs_base[0];
	base[5]= V231;
	base[6]= (V238);
	base[7]= (V239);
	vs_top=(vs_base=base+5)+3;
	siLhash_set();
	vs_top=sup;
	V235= vs_base[0];}
	goto T551;
T551:;
	base[4]= V226;
	base[5]= V235;
	base[6]= base[2];
	vs_top=(vs_base=base+4)+3;
	siLhash_set();
	vs_top=sup;}
	goto T524;
T524:;
	if(!(((V225))==(VV[28]))){
	goto T568;}
	if(!(((V231))==(VV[79]))){
	goto T568;}
	if(((V229))==Cnil){
	goto T568;}
	(VV[112]->s.s_dbind)= base[2];
	goto T568;
T568:;
	if(!(((V225))==(VV[29]))){
	goto T576;}
	if(!(((V231))==(VV[79]))){
	goto T576;}
	if(((V229))==Cnil){
	goto T576;}
	(VV[113]->s.s_dbind)= base[2];
	goto T576;
T576:;
	{object V243 = base[2];
	VMR9(V243)}}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS	*/

static object LI18(V245)

object V245;
{	 VMB10 VMS10 VMV10
	bds_check;
	goto TTL;
TTL:;
	bds_bind(VV[114],(V245));
	{register object V246;
	register object V247;
	V246= (VV[36]->s.s_dbind);
	V247= CMPcar((V246));
	goto T587;
T587:;
	if(!(((V246))==Cnil)){
	goto T588;}
	{object V248 = Cnil;
	bds_unwind1;
	VMR10(V248)}
	goto T588;
T588:;
	{object V249;
	object V250;
	V249= (*(LnkLI191))((V247));
	V250= (*(LnkLI192))((V247));
	if(((V250))==(VV[31])){
	goto T592;}
	{object V251;
	V251= (*(LnkLI197))((V247));
	{register object V252;
	register object V253;
	V252= (V251);
	V253= CMPcar((V252));
	goto T601;
T601:;
	if(!(((V252))==Cnil)){
	goto T602;}
	goto T592;
	goto T602;
T602:;
	{register object V254;
	register object V255;
	register object V256;
	base[3]= (V253);
	base[4]= VV[38];
	vs_top=(vs_base=base+3)+2;
	Lgetf();
	vs_top=sup;
	V254= vs_base[0];
	base[3]= (V253);
	base[4]= VV[96];
	vs_top=(vs_base=base+3)+2;
	Lgetf();
	vs_top=sup;
	V255= vs_base[0];
	base[3]= (V253);
	base[4]= VV[98];
	vs_top=(vs_base=base+3)+2;
	Lgetf();
	vs_top=sup;
	V256= vs_base[0];
	(void)((*(LnkLI213))((V249),(V254),(V255),(V256),Cnil));
	V257= (*(LnkLI214))((V254));
	V258= make_cons(/* INLINE-ARGS */V257,Cnil);
	V259= (*(LnkLI215))((V254));
	V260= make_cons(/* INLINE-ARGS */V259,Cnil);
	V261= (*(LnkLI216))((V254));
	V262= make_cons(/* INLINE-ARGS */V261,Cnil);
	(void)((*(LnkLI213))(VV[115],(V254),/* INLINE-ARGS */V258,/* INLINE-ARGS */V260,/* INLINE-ARGS */V262));}
	V252= CMPcdr((V252));
	V253= CMPcar((V252));
	goto T601;}}}
	goto T592;
T592:;
	V246= CMPcdr((V246));
	V247= CMPcar((V246));
	goto T587;}
	base[0]=base[0];
	return Cnil;
}
/*	function definition for BOOTSTRAP-ACCESSOR-DEFINITION	*/

static void L19()
{register object *base=vs_base;
	register object *sup=base+VM11; VC11
	vs_check;
	{register object V263;
	object V264;
	object V265;
	object V266;
	check_arg(4);
	V263=(base[0]);
	V264=(base[1]);
	V265=(base[2]);
	V266=(base[3]);
	vs_top=sup;
	goto TTL;
TTL:;
	{object V267;
	object V268;
	object V269;
	object V270;
	object V271;
	{object V273= V266;
	if((V273!= VV[129]))goto T628;
	base[4]= VV[116];
	base[5]= (VV[217]->s.s_gfdef);
	base[6]= make_cons((V263),Cnil);
	base[7]= make_cons((V263),Cnil);
	base[8]= VV[117];
	vs_top=(vs_base=base+4)+5;
	goto T627;
	goto T628;
T628:;
	if((V273!= VV[130]))goto T634;
	base[4]= VV[118];
	base[5]= (VV[218]->s.s_gfdef);
	base[6]= list(2,VV[119],(V263));
	base[7]= list(2,Ct,(V263));
	base[8]= VV[120];
	vs_top=(vs_base=base+4)+5;
	goto T627;
	goto T634;
T634:;
	if((V273!= VV[131]))goto T640;
	base[4]= VV[121];
	base[5]= (VV[219]->s.s_gfdef);
	base[6]= make_cons((V263),Cnil);
	base[7]= make_cons((V263),Cnil);
	base[8]= VV[122];
	vs_top=(vs_base=base+4)+5;
	goto T627;
	goto T640;
T640:;
	base[4]= VV[37];
	base[5]= VV[38];
	base[6]= VV[39];
	base[7]= VV[40];
	base[8]= V266;
	base[9]= VV[41];
	base[10]= VV[123];
	base[11]= VV[43];
	base[12]= VV[124];
	vs_top=(vs_base=base+4)+9;
	(void) (*Lnk193)();}
	goto T627;
T627:;
	if(vs_base>=vs_top){vs_top=sup;goto T655;}
	V267= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T656;}
	V268= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T657;}
	V269= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T658;}
	V270= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T659;}
	V271= vs_base[0];
	vs_top=sup;
	goto T660;
	goto T655;
T655:;
	V267= Cnil;
	goto T656;
T656:;
	V268= Cnil;
	goto T657;
T657:;
	V269= Cnil;
	goto T658;
T658:;
	V270= Cnil;
	goto T659;
T659:;
	V271= Cnil;
	goto T660;
T660:;
	{register object V274;
	base[4]= (V264);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk220)();
	vs_top=sup;
	V274= vs_base[0];
	base[4]= (V270);
	if(type_of(V274)==t_structure){
	goto T672;}
	goto T670;
	goto T672;
T672:;
	if(!(((V274)->str.str_def)==(VV[125]))){
	goto T670;}
	V275= STREF(object,(V274),4);
	goto T668;
	goto T670;
T670:;{object V277;
	V277= (VV[53]->s.s_dbind);
	base[6]= small_fixnum(14);
	base[7]= (V274);
	vs_top=(vs_base=base+6)+2;
	(void) (*Lnk204)();
	vs_top=sup;
	V278= vs_base[0];
	if(!((V277)==(CMPcar(V278)))){
	goto T675;}}
	V275= CMPcar(((V274))->cc.cc_turbo[12]);
	goto T668;
	goto T675;
T675:;
	base[6]= VV[54];
	vs_top=(vs_base=base+6)+1;
	Lerror();
	vs_top=sup;
	V275= vs_base[0];
	goto T668;
T668:;
	base[5]= (V275)->v.v_self[fix((VV[126]->s.s_dbind))];
	base[6]= VV[127];
	base[7]= (VV[221]->s.s_gfdef);
	base[8]= VV[109];
	base[9]= (VV[222]->s.s_gfdef);
	vs_top=(vs_base=base+4)+6;
	(void) (*Lnk223)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T664;}
	{register object x= (V264),V279= (VV[128]->s.s_dbind);
	while(V279!=Cnil)
	if(equal(x,V279->c.c_car->c.c_car) &&V279->c.c_car != Cnil){
	goto T686;
	}else V279=V279->c.c_cdr;}
	base[4]= (VFUN_NARGS=1,(*(LnkLI224))((V274)));
	vs_top=(vs_base=base+4)+1;
	return;
	goto T686;
T686:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;
	goto T664;
T664:;
	base[4]=(VV[225]->s.s_gfdef);
	base[5]= (V274);
	base[7]=(VV[226]->s.s_gfdef);
	base[8]= (V267);
	base[9]= Cnil;
	base[10]= (V269);
	base[11]= (V270);
	base[13]= (V263);
	base[14]= (V265);
	vs_top=(vs_base=base+13)+2;
	{object _funobj = (V268);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	vs_top=sup;
	base[12]= vs_base[0];
	base[13]= (V271);
	base[14]= (V265);
	base[6]= simple_lispcall(base+7,7);
	lispcall(base+4,2);
	return;}}
	}
}
/*	local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1	*/

static object LI24(V285,V286,V287,V288,V289)

object V285;object V286;object V287;object V288;object V289;
{	 VMB12 VMS12 VMV12
	goto TTL;
TTL:;
	base[0]= (V286);
	base[1]= (V285);
	{register object V290;
	object V291;
	V290= (V287);
	V291= CMPcar((V290));
	goto T703;
T703:;
	if(!(((V290))==Cnil)){
	goto T704;}
	goto T699;
	goto T704;
T704:;
	base[3]= (V291);
	vs_top=(vs_base=base+3)+1;
	L25(base);
	vs_top=sup;
	V290= CMPcdr((V290));
	V291= CMPcar((V290));
	goto T703;}
	goto T699;
T699:;
	{register object V292;
	object V293;
	V292= (V288);
	V293= CMPcar((V292));
	goto T719;
T719:;
	if(!(((V292))==Cnil)){
	goto T720;}
	goto T715;
	goto T720;
T720:;
	base[3]= (V293);
	vs_top=(vs_base=base+3)+1;
	L26(base);
	vs_top=sup;
	V292= CMPcdr((V292));
	V293= CMPcar((V292));
	goto T719;}
	goto T715;
T715:;
	{register object V294;
	object V295;
	V294= (V289);
	V295= CMPcar((V294));
	goto T734;
T734:;
	if(!(((V294))==Cnil)){
	goto T735;}
	{object V296 = Cnil;
	VMR12(V296)}
	goto T735;
T735:;
	base[3]= (V295);
	vs_top=(vs_base=base+3)+1;
	L27(base);
	vs_top=sup;
	V294= CMPcdr((V294));
	V295= CMPcar((V294));
	goto T734;}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function BOOTSTRAP-CLASS-PREDICATES	*/

static object LI28(V298)

object V298;
{	 VMB13 VMS13 VMV13
	bds_check;
	goto TTL;
TTL:;
	bds_bind(VV[114],(V298));
	{register object V299;
	register object V300;
	V299= (VV[36]->s.s_dbind);
	V300= CMPcar((V299));
	goto T749;
T749:;
	if(!(((V299))==Cnil)){
	goto T750;}
	{object V301 = Cnil;
	bds_unwind1;
	VMR13(V301)}
	goto T750;
T750:;
	{register object V302;
	register object V303;
	V302= (*(LnkLI191))((V300));
	V303= (VFUN_NARGS=1,(*(LnkLI25))((V302)));
	{register object V304;
	register object V305;
	V304= (V302);
	base[5]= (V303);
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk228)(Lclptr228);
	vs_top=sup;
	V306= vs_base[0];
	V305= (*(LnkLI227))((V303),V306);
	V307= ({object _tmp=get(VV[229],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[229])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[229])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V308 = V307,
	(type_of(V308) == t_sfun ?(*((V308)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V308)==t_vfun) ?
	(*((V308)->sfn.sfn_self)):
	(fcall.fun=(V308),fcalln))((V305),(V304))));}}
	V299= CMPcdr((V299));
	V300= CMPcar((V299));
	goto T749;}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function BOOTSTRAP-BUILT-IN-CLASSES	*/

static object LI29()

{	 VMB14 VMS14 VMV14
	goto TTL;
TTL:;
	{register object V309;
	object V310;
	V309= (VV[132]->s.s_dbind);
	V310= CMPcar((V309));
	goto T771;
T771:;
	if(!(((V309))==Cnil)){
	goto T772;}
	goto T767;
	goto T772;
T772:;
	{register object V311;
	register object V312;
	V311= CMPcadr((V310));
	V312= CMPcar((V311));
	goto T780;
T780:;
	if(!(((V311))==Cnil)){
	goto T781;}
	goto T776;
	goto T781;
T781:;
	if(((V312))==(Ct)){
	goto T785;}
	{register object x= (V312),V313= (VV[132]->s.s_dbind);
	while(V313!=Cnil)
	if(EQ(x,V313->c.c_car->c.c_car) &&V313->c.c_car != Cnil){
	goto T785;
	}else V313=V313->c.c_cdr;}
	base[3]= VV[133];
	base[4]= CMPcar((V310));
	base[5]= (V312);
	base[6]= (V312);
	vs_top=(vs_base=base+3)+4;
	Lerror();
	vs_top=sup;
	goto T785;
T785:;
	V311= CMPcdr((V311));
	V312= CMPcar((V311));
	goto T780;}
	goto T776;
T776:;
	V309= CMPcdr((V309));
	V310= CMPcar((V309));
	goto T771;}
	goto T767;
T767:;
	{object V314;
	object V315;
	V314= (VFUN_NARGS=1,(*(LnkLI25))(VV[31]));
	base[2]= (V314);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk230)(Lclptr230);
	vs_top=sup;
	V315= vs_base[0];
	{register object V316;
	object V317;
	V316= (VV[132]->s.s_dbind);
	V317= CMPcar((V316));
	goto T811;
T811:;
	if(!(((V316))==Cnil)){
	goto T812;}
	goto T804;
	goto T812;
T812:;
	{object V318;
	V318= (VFUN_NARGS=1,(*(LnkLI21))((V315)));
	{object V319;
	V319= CMPcar((V317));
	V321= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V322 = V321,
	(type_of(V322) == t_sfun ?(*((V322)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V322)==t_vfun) ?
	(*((V322)->sfn.sfn_self)):
	(fcall.fun=(V322),fcalln))(V318,(V319))));}}
	V316= CMPcdr((V316));
	V317= CMPcar((V316));
	goto T811;}}
	goto T804;
T804:;
	{object V323;
	base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35]));
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk230)(Lclptr230);
	vs_top=sup;
	V323= vs_base[0];
	{register object V324;
	object V325;
	V324= (VV[132]->s.s_dbind);
	V325= CMPcar((V324));
	goto T831;
T831:;
	if(!(((V324))==Cnil)){
	goto T832;}
	goto T825;
	goto T832;
T832:;
	{object V326;
	object V327;
	object V328;
	object V329;
	register object V330;
	register object V331;
	V326= Cnil;
	V327= Cnil;
	V328= Cnil;
	V329= Cnil;
	V330= Cnil;
	V331= Cnil;
	V331= (V325);
	V330= CMPcar((V331));
	V331= CMPcdr((V331));
	V329= CMPcar((V331));
	V331= CMPcdr((V331));
	V328= CMPcar((V331));
	V331= CMPcdr((V331));
	V327= CMPcar((V331));
	V331= CMPcdr((V331));
	V326= CMPcar((V331));
	{object V332;
	register object V333;
	V332= (VFUN_NARGS=1,(*(LnkLI25))((V330)));
	V333= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V332)));
	base[3]= (*(LnkLI231))((V330));
	base[4]= (V332);
	vs_top=(vs_base=base+3)+2;
	Lset();
	vs_top=sup;
	base[3]= (*(LnkLI232))((V330));
	base[4]= (V333);
	vs_top=(vs_base=base+3)+2;
	Lset();
	vs_top=sup;
	(void)(((V333))->v.v_self[9]= (Cnil));
	(void)(((V333))->v.v_self[10]= (Cnil));
	V334= make_cons((V330),(V327));
	(void)((VFUN_NARGS=10,(*(LnkLI203))(VV[31],(V332),(V330),(V323),Cnil,(V329),(V328),/* INLINE-ARGS */V334,(V333),(V326))));}}
	V324= CMPcdr((V324));
	V325= CMPcar((V324));
	goto T831;}}
	goto T825;
T825:;
	{register object V335;
	object V336;
	V335= (VV[132]->s.s_dbind);
	V336= CMPcar((V335));
	goto T877;
T877:;
	if(!(((V335))==Cnil)){
	goto T878;}
	{object V337 = Cnil;
	VMR14(V337)}
	goto T878;
T878:;
	{object V338;
	object V339;
	V338= CMPcar((V336));
	V339= (VFUN_NARGS=1,(*(LnkLI25))((V338)));
	{object V341;
	base[4]= (V339);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk228)(Lclptr228);
	vs_top=sup;
	V342= vs_base[0];
	V341= (*(LnkLI227))((V339),V342);
	V343= ({object _tmp=get(VV[229],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[229])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[229])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V344 = V343,
	(type_of(V344) == t_sfun ?(*((V344)->sfn.sfn_self)):
	(fcall.argd=2,type_of(V344)==t_vfun) ?
	(*((V344)->sfn.sfn_self)):
	(fcall.fun=(V344),fcalln))((V341),V338)));}}
	V335= CMPcdr((V335));
	V336= CMPcar((V335));
	goto T877;}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function WRAPPER-FOR-STRUCTURE	*/

static object LI30(V346)

object V346;
{	 VMB15 VMS15 VMV15
	goto TTL;
TTL:;
	{register object V347;
	if(type_of((V346))==t_structure){
	goto T895;}
	V347= Cnil;
	goto T894;
	goto T895;
T895:;
	V347= ((V346))->str.str_def->str.str_self[0];
	goto T894;
T894:;
	if(!(type_of((V347))==t_symbol)){
	goto T897;}
	if(!(((V347))==(VV[1]))){
	goto T901;}
	{object V348 = STREF(object,(V346),0);
	VMR15(V348)}
	goto T901;
T901:;
	if(!(((V347))==((VV[134]->s.s_dbind)))){
	goto T904;}
	{object V349 = (VV[135]->s.s_dbind);
	VMR15(V349)}
	goto T904;
T904:;
	if(!(((V347))==((VV[136]->s.s_dbind)))){
	goto T907;}
	{object V350 = (VV[137]->s.s_dbind);
	VMR15(V350)}
	goto T907;
T907:;
	(VV[136]->s.s_dbind)= (VV[134]->s.s_dbind);
	(VV[137]->s.s_dbind)= (VV[135]->s.s_dbind);
	goto T897;
T897:;
	{object V351;
	object V352;
	object V353;
	V351= (VFUN_NARGS=1,(*(LnkLI234))((V347)));{object V354;
	V354= CMPcar((V351));
	if(V354==Cnil)goto T914;
	V352= V354;
	goto T913;
	goto T914;
T914:;}
	V352= (VFUN_NARGS=2,(*(LnkLI235))((V347),(V351)));
	goto T913;
T913:;
	if(((V352))==Cnil){
	goto T918;}
	base[3]= (V352);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk230)(Lclptr230);
	vs_top=sup;
	V353= vs_base[0];
	goto T916;
	goto T918;
T918:;
	V353= (VV[46]->s.s_dbind);
	goto T916;
T916:;
	if(!(type_of((V347))==t_symbol)){
	goto T921;}
	(VV[134]->s.s_dbind)= (V347);
	(VV[135]->s.s_dbind)= (V353);
	goto T921;
T921:;
	{object V355 = (V353);
	VMR15(V355)}}}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1	*/

static object LI31(V357)

object V357;
{	 VMB16 VMS16 VMV16
	goto TTL;
TTL:;
	{object V358;{object V359;
	V359= (*(LnkLI236))((V357));
	if(V359==Cnil)goto T928;
	V358= V359;
	goto T927;
	goto T928;
T928:;}
	V358= (VV[46]->s.s_dbind);
	goto T927;
T927:;{object V360;
	if(((V358))==((VV[46]->s.s_dbind))){
	goto T932;}
	V360= Cnil;
	goto T931;
	goto T932;
T932:;
	if(type_of((V357))==t_structure){
	goto T934;}
	V360= Cnil;
	goto T931;
	goto T934;
T934:;
	{object V361;
	object V362;
	base[2]= (V357);
	vs_top=(vs_base=base+2)+1;
	Ltype_of();
	vs_top=sup;
	V361= vs_base[0];
	V362= (VFUN_NARGS=2,(*(LnkLI25))((V361),Cnil));
	if((V362)==Cnil){
	V360= Cnil;
	goto T931;}
	base[2]= (V362);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk230)(Lclptr230);
	vs_top=sup;
	V360= vs_base[0];}
	goto T931;
T931:;
	if(V360==Cnil)goto T930;
	{object V363 = V360;
	VMR16(V363)}
	goto T930;
T930:;}
	{object V364 = (V358);
	VMR16(V364)}}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function CLASS-OF	*/

static object LI32(V366)

register object V366;
{	 VMB17 VMS17 VMV17
	goto TTL;
TTL:;
	if(type_of(V366)==t_structure){
	goto T944;}
	goto T942;
	goto T944;
T944:;
	if(!(((V366)->str.str_def)==(VV[138]))){
	goto T942;}
	V367= STREF(object,(V366),0);
	goto T940;
	goto T942;
T942:;{object V369;
	V369= (VV[53]->s.s_dbind);
	base[0]= small_fixnum(14);
	base[1]= (V366);
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk204)();
	vs_top=sup;
	V370= vs_base[0];
	if(!((V369)==(CMPcar(V370)))){
	goto T947;}}
	V367= CMPcar(((V366))->cc.cc_turbo[13]);
	goto T940;
	goto T947;
T947:;
	if(!(type_of((V366))==t_structure)){
	goto T953;}
	V367= (*(LnkLI237))((V366));
	goto T940;
	goto T953;
T953:;
	if(!(type_of((V366))==t_symbol)){
	goto T956;}
	if(((V366))==Cnil){
	goto T959;}
	V367= (VV[139]->s.s_dbind);
	goto T940;
	goto T959;
T959:;
	V367= (VV[140]->s.s_dbind);
	goto T940;
	goto T956;
T956:;
	V367= (*(LnkLI236))((V366));
	goto T940;
T940:;
	{object V371 = (V367)->v.v_self[11];
	VMR17(V371)}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function WRAPPER-OF	*/

static object LI33(V373)

register object V373;
{	 VMB18 VMS18 VMV18
	goto TTL;
TTL:;
	if(type_of(V373)==t_structure){
	goto T964;}
	goto T962;
	goto T964;
T964:;
	if(!(((V373)->str.str_def)==(VV[141]))){
	goto T962;}
	{object V375 = STREF(object,(V373),0);
	VMR18(V375)}
	goto T962;
T962:;{object V376;
	V376= (VV[53]->s.s_dbind);
	base[0]= small_fixnum(14);
	base[1]= (V373);
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk204)();
	vs_top=sup;
	V377= vs_base[0];
	if(!((V376)==(CMPcar(V377)))){
	goto T967;}}
	{object V378 = CMPcar(((V373))->cc.cc_turbo[13]);
	VMR18(V378)}
	goto T967;
T967:;
	if(!(type_of((V373))==t_structure)){
	goto T973;}
	{object V379 = (*(LnkLI237))((V373));
	VMR18(V379)}
	goto T973;
T973:;
	if(!(type_of((V373))==t_symbol)){
	goto T976;}
	if(((V373))==Cnil){
	goto T979;}
	{object V380 = (VV[139]->s.s_dbind);
	VMR18(V380)}
	goto T979;
T979:;
	{object V381 = (VV[140]->s.s_dbind);
	VMR18(V381)}
	goto T976;
T976:;
	{object V382 = (*(LnkLI236))((V373));
	VMR18(V382)}
	base[0]=base[0];
	return Cnil;
}
/*	function definition for STRUCTURE-WRAPPER	*/

static void L34()
{register object *base=vs_base;
	register object *sup=base+VM19; VC19
	vs_check;
	{object V383;
	check_arg(1);
	V383=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(type_of((V383))==t_structure){
	goto T983;}
	V384= Cnil;
	goto T982;
	goto T983;
T983:;
	V384= ((V383))->str.str_def->str.str_self[0];
	goto T982;
T982:;
	base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V384));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk230)(Lclptr230);
	return;
	}
}
/*	local entry for function EVAL-FORM	*/

static object LI36(V386)

object V386;
{	 VMB20 VMS20 VMV20
	goto TTL;
TTL:;
	base[0]=MMcons((V386),Cnil);
	{object V387 = 
	make_cclosure_new(LC47,Cnil,base[0],Cdata);
	VMR20(V387)}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD	*/

static object LI37(V389)

register object V389;
{	 VMB21 VMS21 VMV21
	goto TTL;
TTL:;
	base[0]= VV[38];
	base[1]= (*(LnkLI238))((V389));
	base[2]= VV[142];
	base[3]= (*(LnkLI239))((V389));
	base[4]= VV[143];
	base[5]= (*(LnkLI240))((V389));
	base[6]= VV[144];
	base[7]= (*(LnkLI241))((V389));
	base[8]= VV[100];{object V390;
	V390= (*(LnkLI242))((V389));
	if(V390==Cnil)goto T995;
	base[9]= V390;
	goto T994;
	goto T995;
T995:;}
	base[9]= Ct;
	goto T994;
T994:;
	base[10]= VV[90];
	base[12]= (V389);
	vs_top=(vs_base=base+12)+1;
	(void) (*Lnk243)();
	vs_top=sup;
	base[11]= vs_base[0];
	base[12]= VV[92];
	base[14]= (V389);
	vs_top=(vs_base=base+14)+1;
	(void) (*Lnk243)();
	vs_top=sup;
	V391= vs_base[0];
	base[13]= (*(LnkLI244))(V391);
	vs_top=(vs_base=base+0)+14;
	Llist();
	vs_top=sup;
	{object V392 = vs_base[0];
	VMR21(V392)}
	base[0]=base[0];
	return Cnil;
}
/*	function definition for FIND-STRUCTURE-CLASS	*/

static void L38()
{register object *base=vs_base;
	register object *sup=base+VM22; VC22
	vs_check;
	bds_check;
	{register object V393;
	check_arg(1);
	V393=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	if(((*(LnkLI245))((V393)))==Cnil){
	goto T1005;}
	if(((VV[145]->s.s_dbind))==((V393))){
	goto T1008;}
	bds_bind(VV[145],(V393));
	base[2]= (V393);
	base[3]= VV[146];
	base[4]= VV[32];
	base[5]= VV[38];
	base[6]= (V393);
	base[7]= VV[147];
	if(((*(LnkLI246))((V393)))==Cnil){
	goto T1018;}
	V394= (*(LnkLI246))((V393));
	base[8]= make_cons(/* INLINE-ARGS */V394,Cnil);
	goto T1016;
	goto T1018;
T1018:;
	base[8]= Cnil;
	goto T1016;
T1016:;
	base[9]= VV[148];
	V397= (*(LnkLI247))((V393));
	{object V395;
	object V396= /* INLINE-ARGS */V397;
	if(V396==Cnil){
	base[10]= Cnil;
	goto T1021;}
	base[11]=V395=MMcons(Cnil,Cnil);
	goto T1022;
T1022:;
	(V395->c.c_car)= (*(LnkLI248))((V396->c.c_car));
	if((V396=MMcdr(V396))==Cnil){
	base[10]= base[11];
	goto T1021;}
	V395=MMcdr(V395)=MMcons(Cnil,Cnil);
	goto T1022;}
	goto T1021;
T1021:;
	vs_top=(vs_base=base+2)+9;
	(void) (*Lnk249)();
	bds_unwind1;
	return;
	goto T1008;
T1008:;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	goto T1005;
T1005:;
	base[1]= VV[149];
	base[2]= (V393);
	vs_top=(vs_base=base+1)+2;
	Lerror();
	return;
	}
}
/*	local entry for function BUILT-IN-WRAPPER-OF	*/

static object LI39(V399)

register object V399;
{	 VMB23 VMS23 VMV23
	goto TTL;
TTL:;{object V400;
	if(type_of((V399))==t_symbol){
	goto T1028;}
	V400= Cnil;
	goto T1027;
	goto T1028;
T1028:;{object V401;
	if(((V399))==Cnil){
	goto T1032;}
	V401= Cnil;
	goto T1031;
	goto T1032;
T1032:;
	V401= (VV[140]->s.s_dbind);
	goto T1031;
T1031:;
	if(V401==Cnil)goto T1030;
	V400= V401;
	goto T1027;
	goto T1030;
T1030:;}
	V400= (VV[139]->s.s_dbind);
	goto T1027;
T1027:;
	if(V400==Cnil)goto T1026;
	{object V402 = V400;
	VMR23(V402)}
	goto T1026;
T1026:;}{object V403;
	if(type_of((V399))==t_character){
	goto T1036;}
	V403= Cnil;
	goto T1035;
	goto T1036;
T1036:;
	V403= (VV[150]->s.s_dbind);
	goto T1035;
T1035:;
	if(V403==Cnil)goto T1034;
	{object V404 = V403;
	VMR23(V404)}
	goto T1034;
T1034:;}{object V405;
	if(type_of((V399))==t_array||
type_of((V399))==t_vector||
type_of((V399))==t_string||
type_of((V399))==t_bitvector){
	goto T1040;}
	V405= Cnil;
	goto T1039;
	goto T1040;
T1040:;{object V406;
	if(type_of((V399))==t_vector||
type_of((V399))==t_string||
type_of((V399))==t_bitvector){
	goto T1044;}
	V406= Cnil;
	goto T1043;
	goto T1044;
T1044:;{object V407;
	if((type_of((V399))==t_bitvector)){
	goto T1048;}
	V407= Cnil;
	goto T1047;
	goto T1048;
T1048:;
	V407= (VV[153]->s.s_dbind);
	goto T1047;
T1047:;
	if(V407==Cnil)goto T1046;
	V406= V407;
	goto T1043;
	goto T1046;
T1046:;}{object V408;
	if(type_of((V399))==t_string){
	goto T1052;}
	V408= Cnil;
	goto T1051;
	goto T1052;
T1052:;
	V408= (VV[154]->s.s_dbind);
	goto T1051;
T1051:;
	if(V408==Cnil)goto T1050;
	V406= V408;
	goto T1043;
	goto T1050;
T1050:;}
	V406= (VV[152]->s.s_dbind);
	goto T1043;
T1043:;
	if(V406==Cnil)goto T1042;
	V405= V406;
	goto T1039;
	goto T1042;
T1042:;}
	V405= (VV[151]->s.s_dbind);
	goto T1039;
T1039:;
	if(V405==Cnil)goto T1038;
	{object V409 = V405;
	VMR23(V409)}
	goto T1038;
T1038:;}{object V410;
	if(!(type_of(V399)==t_cons||(V399)==Cnil)){
	goto T1058;}
	goto T1056;
	goto T1058;
T1058:;
	if(type_of(V399)==t_vector||
type_of(V399)==t_string||
type_of(V399)==t_bitvector){
	goto T1056;}
	V410= Cnil;
	goto T1055;
	goto T1056;
T1056:;{object V412;
	if(type_of((V399))==t_vector||
type_of((V399))==t_string||
type_of((V399))==t_bitvector){
	goto T1062;}
	V412= Cnil;
	goto T1061;
	goto T1062;
T1062:;{object V413;
	if((type_of((V399))==t_bitvector)){
	goto T1066;}
	V413= Cnil;
	goto T1065;
	goto T1066;
T1066:;
	V413= (VV[153]->s.s_dbind);
	goto T1065;
T1065:;
	if(V413==Cnil)goto T1064;
	V412= V413;
	goto T1061;
	goto T1064;
T1064:;}{object V414;
	if(type_of((V399))==t_string){
	goto T1070;}
	V414= Cnil;
	goto T1069;
	goto T1070;
T1070:;
	V414= (VV[154]->s.s_dbind);
	goto T1069;
T1069:;
	if(V414==Cnil)goto T1068;
	V412= V414;
	goto T1061;
	goto T1068;
T1068:;}
	V412= (VV[152]->s.s_dbind);
	goto T1061;
T1061:;
	if(V412==Cnil)goto T1060;
	V410= V412;
	goto T1055;
	goto T1060;
T1060:;}{object V415;
	if(!(type_of(V399)==t_cons)){
	goto T1076;}
	goto T1074;
	goto T1076;
T1076:;
	if((V399)==Cnil){
	goto T1074;}
	V415= Cnil;
	goto T1073;
	goto T1074;
T1074:;{object V417;
	if(((V399))==Cnil){
	goto T1080;}
	V417= Cnil;
	goto T1079;
	goto T1080;
T1080:;
	V417= (VV[140]->s.s_dbind);
	goto T1079;
T1079:;
	if(V417==Cnil)goto T1078;
	V415= V417;
	goto T1073;
	goto T1078;
T1078:;}{object V418;
	if(type_of((V399))==t_cons){
	goto T1084;}
	V418= Cnil;
	goto T1083;
	goto T1084;
T1084:;
	V418= (VV[157]->s.s_dbind);
	goto T1083;
T1083:;
	if(V418==Cnil)goto T1082;
	V415= V418;
	goto T1073;
	goto T1082;
T1082:;}
	V415= (VV[156]->s.s_dbind);
	goto T1073;
T1073:;
	if(V415==Cnil)goto T1072;
	V410= V415;
	goto T1055;
	goto T1072;
T1072:;}
	V410= (VV[155]->s.s_dbind);
	goto T1055;
T1055:;
	if(V410==Cnil)goto T1054;
	{object V419 = V410;
	VMR23(V419)}
	goto T1054;
T1054:;}{object V420;
	if(type_of((V399))==t_fixnum||
type_of((V399))==t_bignum||
type_of((V399))==t_ratio||
type_of((V399))==t_shortfloat||
type_of((V399))==t_longfloat||
type_of((V399))==t_complex){
	goto T1088;}
	V420= Cnil;
	goto T1087;
	goto T1088;
T1088:;{object V421;
	base[0]= (V399);
	base[1]= VV[165];
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk250)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1092;}
	V421= Cnil;
	goto T1091;
	goto T1092;
T1092:;{object V422;
	base[0]= (V399);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk251)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1098;}
	V422= Cnil;
	goto T1097;
	goto T1098;
T1098:;{object V423;
	if(type_of((V399))==t_ratio){
	goto T1103;}
	V423= Cnil;
	goto T1102;
	goto T1103;
T1103:;
	V423= (VV[161]->s.s_dbind);
	goto T1102;
T1102:;
	if(V423==Cnil)goto T1101;
	V422= V423;
	goto T1097;
	goto T1101;
T1101:;}{object V424;
	if(type_of((V399))==t_fixnum||type_of((V399))==t_bignum){
	goto T1107;}
	V424= Cnil;
	goto T1106;
	goto T1107;
T1107:;
	V424= (VV[162]->s.s_dbind);
	goto T1106;
T1106:;
	if(V424==Cnil)goto T1105;
	V422= V424;
	goto T1097;
	goto T1105;
T1105:;}
	V422= (VV[160]->s.s_dbind);
	goto T1097;
T1097:;
	if(V422==Cnil)goto T1096;
	V421= V422;
	goto T1091;
	goto T1096;
T1096:;}{object V425;
	if(type_of((V399))==t_shortfloat||type_of((V399))==t_longfloat){
	goto T1111;}
	V425= Cnil;
	goto T1110;
	goto T1111;
T1111:;
	V425= (VV[163]->s.s_dbind);
	goto T1110;
T1110:;
	if(V425==Cnil)goto T1109;
	V421= V425;
	goto T1091;
	goto T1109;
T1109:;}
	V421= (VV[159]->s.s_dbind);
	goto T1091;
T1091:;
	if(V421==Cnil)goto T1090;
	V420= V421;
	goto T1087;
	goto T1090;
T1090:;}{object V426;
	base[0]= (V399);
	vs_top=(vs_base=base+0)+1;
	Lcomplexp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1115;}
	V426= Cnil;
	goto T1114;
	goto T1115;
T1115:;
	V426= (VV[164]->s.s_dbind);
	goto T1114;
T1114:;
	if(V426==Cnil)goto T1113;
	V420= V426;
	goto T1087;
	goto T1113;
T1113:;}
	V420= (VV[158]->s.s_dbind);
	goto T1087;
T1087:;
	if(V420==Cnil)goto T1086;
	{object V427 = V420;
	VMR23(V427)}
	goto T1086;
T1086:;}
	{object V428 = (VV[46]->s.s_dbind);
	VMR23(V428)}
	base[0]=base[0];
	return Cnil;
}
/*	local entry for function METHOD-FUNCTION-RETURNING-NIL	*/

static object LI40(V431,V432)

object V431;object V432;
{	 VMB24 VMS24 VMV24
	goto TTL;
TTL:;
	{object V433 = Cnil;
	VMR24(V433)}
	return Cnil;
}
/*	local entry for function METHOD-FUNCTION-RETURNING-T	*/

static object LI41(V436,V437)

object V436;object V437;
{	 VMB25 VMS25 VMV25
	goto TTL;
TTL:;
	{object V438 = Ct;
	VMR25(V438)}
	return Cnil;
}
/*	local entry for function MAKE-CLASS-PREDICATE	*/

static object LI42(V441,V442)

object V441;object V442;
{	 VMB26 VMS26 VMV26
	goto TTL;
TTL:;
	{register object V443;
	object V444;
	base[2]= (V442);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk220)();
	vs_top=sup;
	V443= vs_base[0];
	if(!(((VV[166]->s.s_dbind))==(VV[167]))){
	goto T1122;}
	base[2]= (V443);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk252)(Lclptr252);
	vs_top=sup;
	V444= vs_base[0];
	goto T1120;
	goto T1122;
T1122:;
	if(type_of(V443)==t_structure){
	goto T1129;}
	goto T1127;
	goto T1129;
T1129:;
	if(!(((V443)->str.str_def)==(VV[168]))){
	goto T1127;}
	V445= STREF(object,(V443),4);
	goto T1125;
	goto T1127;
T1127:;{object V447;
	V447= (VV[53]->s.s_dbind);
	base[2]= small_fixnum(14);
	base[3]= (V443);
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk204)();
	vs_top=sup;
	V448= vs_base[0];
	if(!((V447)==(CMPcar(V448)))){
	goto T1132;}}
	V445= CMPcar(((V443))->cc.cc_turbo[12]);
	goto T1125;
	goto T1132;
T1132:;
	base[2]= VV[54];
	vs_top=(vs_base=base+2)+1;
	Lerror();
	vs_top=sup;
	V445= vs_base[0];
	goto T1125;
T1125:;
	V444= (V445)->v.v_self[fix((VV[126]->s.s_dbind))];
	goto T1120;
T1120:;
	if(((V444))!=Cnil){
	goto T1138;}
	if(((V441))==((VV[169]->s.s_dbind))){
	goto T1141;}
	{object V449;
	object V450;
	object V451;
	V449= (VV[253]->s.s_gfdef);
	V450= list(2,VV[170],(V449));
	base[5]= VV[171];
	base[6]= Cnil;
	base[7]= make_cons(VV[65],Cnil);
	base[8]= make_cons((VV[169]->s.s_dbind),Cnil);
	base[9]= (V450);
	base[10]= VV[172];
	V451= simple_symlispcall(VV[226],base+5,6);
	V455= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V456 = V455,
	(type_of(V456) == t_sfun ?(*((V456)->sfn.sfn_self)):
	(fcall.argd=3,type_of(V456)==t_vfun) ?
	(*((V456)->sfn.sfn_self)):
	(fcall.fun=(V456),fcalln))(Cnil,V449,VV[173])));
	base[5]= (V443);
	base[6]= (V451);
	(void)simple_symlispcall(VV[225],base+5,2);}
	goto T1141;
T1141:;
	{object V457;
	object V458;
	object V459;
	V457= (VV[255]->s.s_gfdef);
	V458= list(2,VV[170],(V457));
	base[5]= VV[171];
	base[6]= Cnil;
	base[7]= make_cons(VV[65],Cnil);
	base[8]= make_cons((V441),Cnil);
	base[9]= (V458);
	base[10]= VV[174];
	V459= simple_symlispcall(VV[226],base+5,6);
	V463= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
	(void)((
	V464 = V463,
	(type_of(V464) == t_sfun ?(*((V464)->sfn.sfn_self)):
	(fcall.argd=3,type_of(V464)==t_vfun) ?
	(*((V464)->sfn.sfn_self)):
	(fcall.fun=(V464),fcalln))(Ct,V457,VV[173])));
	base[5]= (V443);
	base[6]= (V459);
	(void)simple_symlispcall(VV[225],base+5,2);}
	goto T1138;
T1138:;
	{object V465 = (V443);
	VMR26(V465)}}
	base[0]=base[0];
	return Cnil;
}
/*	function definition for G5978	*/

static void L43()
{register object *base=vs_base;
	register object *sup=base+VM27; VC27
	vs_check;
	check_arg(0);
	vs_top=sup;
	goto TTL;
TTL:;
	base[0]= VV[175];
	vs_top=(vs_base=base+0)+1;
	return;
}
/*	function definition for (FAST-METHOD NO-APPLICABLE-METHOD (T))	*/

static void L44()
{register object *base=vs_base;
	register object *sup=base+VM28; VC28
	vs_check;
	{object V466;
	object V467;
	register object V468;
	object V469;
	check_arg(4);
	V466=(base[0]);
	V467=(base[1]);
	V468=(base[2]);
	V469=(base[3]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[4]= VV[176];
	base[5]= VV[177];
	base[6]= (V468);
	base[7]= V469;
	vs_top=(vs_base=base+4)+4;
	Lcerror();
	vs_top=sup;
	base[4]= (V468);
	{object V472;
	V472= V469;
	 vs_top=base+5;
	 while(V472!=Cnil)
	 {vs_push((V472)->c.c_car);V472=(V472)->c.c_cdr;}
	vs_base=base+5;}
	{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
                   (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
               else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
               else super_funcall_no_event(_funobj);}
	return;
	}
}
/*	local function CLOSURE	*/

static void LC47(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM29; VC29
	vs_check;
	check_arg(0);
	vs_top=sup;
	base[0]= (base0[0]->c.c_car);
	vs_top=(vs_base=base+0)+1;
	Leval();
	return;
}
/*	local function DO-BOUNDP-DEFINITION	*/

static void L27(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM30; VC30
	vs_check;
	{object V473;
	check_arg(1);
	V473=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[1]= base0[1];
	base[2]= (V473);
	base[3]= base0[0];
	base[4]= VV[131];
	vs_top=(vs_base=base+1)+4;
	(void) (*Lnk256)();
	return;
	}
}
/*	local function DO-WRITER-DEFINITION	*/

static void L26(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM31; VC31
	vs_check;
	{object V474;
	check_arg(1);
	V474=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[1]= base0[1];
	base[2]= (V474);
	base[3]= base0[0];
	base[4]= VV[130];
	vs_top=(vs_base=base+1)+4;
	(void) (*Lnk256)();
	return;
	}
}
/*	local function DO-READER-DEFINITION	*/

static void L25(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM32; VC32
	vs_check;
	{object V475;
	check_arg(1);
	V475=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[1]= base0[1];
	base[2]= (V475);
	base[3]= base0[0];
	base[4]= VV[129];
	vs_top=(vs_base=base+1)+4;
	(void) (*Lnk256)();
	return;
	}
}
/*	local function SET-VAL	*/

static void L17(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM33; VC33
	vs_check;
	{object V476;
	object V477;
	check_arg(2);
	V476=(base[0]);
	V477=(base[1]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[2]= (*(LnkLI207))(base0[1],base0[2],(V476),(V477));
	vs_top=(vs_base=base+2)+1;
	return;
	}
}
/*	local function GET-VAL	*/

static void L16(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM34; VC34
	vs_check;
	{object V478;
	check_arg(1);
	V478=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[1]= base0[0];
	base[2]= (V478);
	vs_top=(vs_base=base+1)+2;
	Lgetf();
	return;
	}
}
/*	local function SET-SLOT	*/

static void L10(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM35; VC35
	vs_check;
	{object V479;
	object V480;
	check_arg(2);
	V479=(base[0]);
	V480=(base[1]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[2]= (*(LnkLI207))(base0[0],base0[1],(V479),(V480));
	vs_top=(vs_base=base+2)+1;
	return;
	}
}
/*	local function CLASSES	*/

static void L9(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM36; VC36
	vs_check;
	{object V481;
	check_arg(1);
	V481=(base[0]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[2]=VV[25]->s.s_gfdef;
	{object V482;
	object V483= (V481);
	if(V483==Cnil){
	base[3]= Cnil;
	vs_top=(vs_base=base+3)+1;
	return;}
	base[1]=V482=MMcons(Cnil,Cnil);
	goto T1194;
T1194:;
	base[3]= (V483->c.c_car);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk25)();
	vs_top=sup;
	(V482->c.c_car)= vs_base[0];
	if((V483=MMcdr(V483))==Cnil){
	vs_top=(vs_base=base+1)+1;
	return;}
	V482=MMcdr(V482)=MMcons(Cnil,Cnil);
	goto T1194;}
	}
}
/*	local function SET-SLOT	*/

static void L7(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM37; VC37
	vs_check;
	{object V484;
	object V485;
	check_arg(2);
	V484=(base[0]);
	V485=(base[1]);
	vs_top=sup;
	goto TTL;
TTL:;
	base[2]= (*(LnkLI207))(VV[51],base0[3],(V484),(V485));
	vs_top=(vs_base=base+2)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC46(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM38; VC38
	vs_check;
	{object V486;
	check_arg(1);
	V486=(base[0]);
	vs_top=sup;
	base[1]= Ct;
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	local function CLOSURE	*/

static void LC45(base0)
register object *base0;
{	register object *base=vs_base;
	register object *sup=base+VM39; VC39
	vs_check;
	{object V487;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V487=(base[0]);
	vs_top=sup;
	base[1]= VV[10];
	base[2]= (base0[0]->c.c_car);
	vs_top=(vs_base=base+1)+2;
	Lerror();
	return;
	}
}
static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* FIND-CLASS */
static void LnkT256(){ call_or_link(VV[256],(void **)(void *)&Lnk256);} /* BOOTSTRAP-ACCESSOR-DEFINITION */
static void LnkT252(ptr) object *ptr;{ call_or_link_closure(VV[252],(void **)(void *)&Lnk252,(void **)(void *)&Lclptr252);} /* GENERIC-FUNCTION-METHODS */
static void LnkT251(){ call_or_link(VV[251],(void **)(void *)&Lnk251);} /* RATIONALP */
static void LnkT250(){ call_or_link(VV[250],(void **)(void *)&Lnk250);} /* TYPEP */
static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* ENSURE-CLASS */
static object  LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[248],(void **)(void *)&LnkLI248,1,first,ap);va_end(ap);return V1;} /* SLOT-INITARGS-FROM-STRUCTURE-SLOTD */
static object  LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */
static object  LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */
static object  LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */
static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* EVAL-FORM */
static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* STRUCTURE-SLOTD-INIT-FORM */
static object  LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */
static object  LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */
static object  LnkTLI240(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[240],(void **)(void *)&LnkLI240,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-READER-FUNCTION */
static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[239],(void **)(void *)&LnkLI239,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */
static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */
static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */
static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */
static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[235],(void **)(void *)&LnkLI235,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */
static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[234],(void **)(void *)&LnkLI234,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */
static object  LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[233],(void **)(void *)&LnkLI233,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */
static object  LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-WRAPPER-SYMBOL */
static object  LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-CLASS-SYMBOL */
static void LnkT230(ptr) object *ptr;{ call_or_link_closure(VV[230],(void **)(void *)&Lnk230,(void **)(void *)&Lclptr230);} /* CLASS-WRAPPER */
static void LnkT228(ptr) object *ptr;{ call_or_link_closure(VV[228],(void **)(void *)&Lnk228,(void **)(void *)&Lclptr228);} /* CLASS-PREDICATE-NAME */
static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */
static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */
static void LnkT223(){ call_or_link(VV[223],(void **)(void *)&Lnk223);} /* FIND */
static void LnkT220(){ call_or_link(VV[220],(void **)(void *)&Lnk220);} /* ENSURE-GENERIC-FUNCTION */
static object  LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,1,first,ap);va_end(ap);return V1;} /* SLOT-BOUNDP-SYMBOL */
static object  LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,1,first,ap);va_end(ap);return V1;} /* SLOT-WRITER-SYMBOL */
static object  LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[214],(void **)(void *)&LnkLI214,1,first,ap);va_end(ap);return V1;} /* SLOT-READER-SYMBOL */
static object  LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-ACCESSOR-DEFINITIONS1 */
static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION */
static void LnkT211(){ call_or_link(VV[211],(void **)(void *)&Lnk211);} /* MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION */
static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION */
static object  LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,6,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITION */
static void LnkT208(){ call_or_link(VV[208],(void **)(void *)&Lnk208);} /* MAKE-CLASS-PREDICATE-NAME */
static object  LnkTLI207(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[207],(void **)(void *)&LnkLI207,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */
static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* LOAD-TRUENAME */
static object  LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */
static void LnkT204(){ call_or_link(VV[204],(void **)(void *)&Lnk204);} /* CCLOSURE-ENV-NTHCDR */
static object  LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[203],(void **)(void *)&LnkLI203,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-INITIALIZE-CLASS */
static object  LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[202],(void **)(void *)&LnkLI202,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITIONS */
static object  LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[201],(void **)(void *)&LnkLI201,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */
static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* CANONICAL-SLOT-NAME */
static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* EARLY-COLLECT-INHERITANCE */
static object  LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */
static object  LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[197],(void **)(void *)&LnkLI197,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */
static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */
static object  LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,1,first,ap);va_end(ap);return V1;} /* ECD-SOURCE */
static object  LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */
static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* ERROR */
static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,1,first,ap);va_end(ap);return V1;} /* ECD-METACLASS */
static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */
static object  LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[21],(void **)(void *)&LnkLI21,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */
static object  LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,257,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SIZE */
static object  LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[18],(void **)(void *)&LnkLI18,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */
static object  LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */
static object  LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[187],(void **)(void *)&LnkLI187,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */
static void LnkT186(ptr) object *ptr;{ call_or_link_closure(VV[186],(void **)(void *)&Lnk186,(void **)(void *)&Lclptr186);} /* CLASS-NAME */
static void LnkT184(ptr) object *ptr;{ call_or_link_closure(VV[184],(void **)(void *)&Lnk184,(void **)(void *)&Lclptr184);} /* CLASS-SLOTS */
static void LnkT183(ptr) object *ptr;{ call_or_link_closure(VV[183],(void **)(void *)&Lnk183,(void **)(void *)&Lclptr183);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */
static object  LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */
static object  LnkTLI180(){return call_proc0(VV[180],(void **)(void *)&LnkLI180);} /* ALLOCATE-FUNCALLABLE-INSTANCE-1 */
static void LnkT179(){ call_or_link(VV[179],(void **)(void *)&Lnk179);} /* MAKE-ARRAY */
static object  LnkTLI178(){return call_proc0(VV[178],(void **)(void *)&LnkLI178);} /* %%ALLOCATE-INSTANCE--CLASS */

#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
#endif