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

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

#include <cmpinclude.h>
#include "debug.h"
init_debug(){do_init(VV);}
/*	function definition for SHOW-BREAK-VARIABLES	*/

static L1()
{register object *base=vs_base;
	register object *sup=base+VM1; VC1
	vs_reserve(VM1);
	{register object V1;
	if(vs_top-vs_base>1) too_many_arguments();
	if(vs_base>=vs_top){vs_top=sup;goto T1;}
	V1=(base[0]);
	vs_top=sup;
	goto T2;
T1:;
	V1= small_fixnum(1);
T2:;
T5:;
	{object V2;
	object V3;
	V2= reverse(car(symbol_value(VV[0])));
	V3= car((V2));
T11:;
	if(!(endp((V2)))){
	goto T12;}
	goto T7;
T12:;
	base[1]= symbol_value(VV[1]);
	base[2]= VV[2];
	base[3]= car((V3));
	base[4]= cadr((V3));
	vs_top=(vs_base=base+1)+4;
	Lformat();
	vs_top=sup;
	V2= cdr((V2));
	V3= car((V2));
	goto T11;}
T7:;
	V1= number_plus((V1),small_fixnum(-1));
	if(!((fix((V1)))>(0))){
	goto T27;}
	goto T26;
T27:;
	vs_base=vs_top=base+2;
	vs_base[0]=Cnil;
	return;
T26:;
	vs_base=vs_top;
	(void) (*Lnk107)();
	vs_top=sup;
	goto T5;
	}
}
/*	local entry for function SHOW-ENVIRONMENT	*/

static object LI2(V5)

object V5;
{	 VMB2 VMS2 VMV2
TTL:;
	{object V6;
	base[1]= (V5);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V6= vs_base[0];
	if(!(type_of((V6))==t_cons||((V6))==Cnil)){
	goto T35;}
	{object V7;
	object V8;
	base[1]= (V5);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	base[0]= vs_base[0];
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V9= vs_base[0];
	V7= reverse(V9);
	V8= car((V7));
T43:;
	if(!(endp((V7)))){
	goto T44;}
	{object V10 = Cnil;
	VMR2(V10)}
T44:;
	base[0]= symbol_value(VV[1]);
	base[1]= VV[3];
	base[2]= car((V8));
	base[3]= cadr((V8));
	vs_top=(vs_base=base+0)+4;
	Lformat();
	vs_top=sup;
	V7= cdr((V7));
	V8= car((V7));
	goto T43;}
T35:;
	{object V11 = Cnil;
	VMR2(V11)}}
}
/*	function definition for SEARCH-STACK	*/

static L3()
{register object *base=vs_base;
	register object *sup=base+VM3; VC3
	vs_reserve(VM3);
	{object V12;
	check_arg(1);
	V12=(base[0]);
	vs_top=sup;
TTL:;
	{object V13;
	V13= Cnil;
	if(!(type_of((V12))==t_symbol)){
	goto T62;}
	V13= symbol_name((V12));
	goto T60;
T62:;
	V13= (V12);
T60:;
	{int V14;
	int V15;
	{object V16;
	vs_base=vs_top;
	(void) (*Lnk110)();
	vs_top=sup;
	V16= vs_base[0];
	base[1]= (type_of((V16))==t_fixnum?Ct:Cnil);
	if(base[1]==Cnil)goto T67;
	goto T66;
T67:;
	(void)((*(LnkLI111))());
T66:;
	V14= fix((V16));}
	V15= 2;
	{object V17;
	V17= Cnil;
	{object V18;
	V18= Cnil;
T73:;
	if((V14)<=(V15)){
	goto T76;}
	goto T75;
T76:;
	goto T74;
T75:;
	{object V19;
	base[1]= make_fixnum(V14);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk112)();
	vs_top=sup;
	V19= vs_base[0];
	V17= (V19);}
	base[1]= (V17);
	vs_top=(vs_base=base+1)+1;
	Lcompiled_function_p();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T84;}
	base[1]= (V17);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk113)();
	vs_top=sup;
	V18= vs_base[0];
	goto T82;
T84:;
	if(!(type_of((V17))==t_symbol)){
	goto T90;}
	V18= (V17);
	goto T82;
T90:;
	if(!(type_of((V17))==t_cons||((V17))==Cnil)){
	goto T94;}
	{register object x= car((V17)),V20= VV[4];
	while(!endp(V20))
	if(eql(x,V20->c.c_car)){
	goto T97;
	}else V20=V20->c.c_cdr;
	goto T94;}
T97:;
	V18= cadr((V17));
	goto T82;
T94:;
	V18= VV[5];
T82:;
	V21= symbol_name((V18));
	if(((VFUN_NARGS=4,(*(LnkLI114))((V13),/* INLINE-ARGS */V21,VV[6],VV[7])))==Cnil){
	goto T100;}
	base[1]= make_fixnum(V14);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk115)();
	vs_top=sup;
	princ_char(10,Cnil);
	vs_base=vs_top;
	(void) (*Lnk116)();
	return;
T100:;
	V14= (V14)-(1);
	goto T73;
T74:;
	base[1]= symbol_value(VV[1]);
	base[2]= VV[8];
	base[3]= (V13);
	vs_top=(vs_base=base+1)+3;
	Lformat();
	vs_top=sup;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;}}}}
	}
}
/*	function definition for BREAK-LOCALS	*/

static L4()
{register object *base=vs_base;
	register object *sup=base+VM4; VC4
	vs_reserve(VM4);
	bds_check;
	{object V22;
	if(vs_top-vs_base>1) too_many_arguments();
	if(vs_base>=vs_top){vs_top=sup;goto T114;}
	V22=(base[0]);
	vs_top=sup;
	goto T115;
T114:;
	V22= small_fixnum(1);
T115:;
	{object V23;
	object V24;
	object V25;
	object V26;
	object V27;
	object V28;
	V23= symbol_value(VV[9]);
	base[1]= (V23);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	V24= vs_base[0];
	bds_bind(VV[11],symbol_value(VV[10]));
	bds_bind(VV[12],Cnil);
	bds_bind(VV[13],symbol_value(VV[10]));
	V25= symbol_value(VV[9]);
	base[4]= (V23);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk112)();
	vs_top=sup;
	V26= vs_base[0];
	V27= Cnil;
	V28= Cnil;
	if(!((fix((V22)))>(1))){
	goto T126;}
	{int V29;
	int V30;
	V29= 0;
	base[4]= (type_of((V22))==t_fixnum?Ct:Cnil);
	if(base[4]==Cnil)goto T131;
	goto T130;
T131:;
	(void)((*(LnkLI111))());
T130:;
	V30= fix((V22));
	{int V31;
	int V32;
	base[4]= (type_of((V25))==t_fixnum?Ct:Cnil);
	if(base[4]==Cnil)goto T135;
	goto T134;
T135:;
	(void)((*(LnkLI111))());
T134:;
	V31= fix((V25));
	V32= 2;
T139:;
	if((V31)<=(V32)){
	goto T142;}
	goto T141;
T142:;
	goto T140;
T141:;
	if((V29)>=(V30)){
	goto T145;}
	goto T144;
T145:;
	goto T140;
T144:;
	bds_bind(VV[9],make_fixnum(V31));
	vs_base=vs_top;
	(void) (*Lnk116)();
	vs_top=sup;
	princ_char(10,Cnil);
	princ_char(10,Cnil);
	bds_unwind1;
	V29= (V29)+(1);
	V31= (V31)-(1);
	goto T139;
T140:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;}}
T126:;
	base[4]= (V26);
	vs_top=(vs_base=base+4)+1;
	Lcompiled_function_p();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T158;}
	base[4]= (V26);
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk113)();
	vs_top=sup;
	V27= vs_base[0];
	goto T156;
T158:;
	V27= (V26);
T156:;
	if(!(type_of((V27))==t_symbol)){
	goto T164;}
	V28= get((V27),VV[14],Cnil);
T164:;
	{object V33;
	base[4]= make_fixnum((1)+(fix(symbol_value(VV[9]))));
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	V33= vs_base[0];
	if(((V33))==Cnil){
	goto T171;}
	base[4]= symbol_value(VV[1]);
	base[5]= VV[15];
	base[6]= (V27);
	vs_top=(vs_base=base+4)+3;
	Lformat();
	vs_top=sup;
	if(!(type_of((V27))==t_symbol)){
	goto T178;}
	{int V34;
	int V35;
	base[4]= (type_of((V24))==t_fixnum?Ct:Cnil);
	if(base[4]==Cnil)goto T182;
	goto T181;
T182:;
	(void)((*(LnkLI111))());
T181:;
	V34= fix((V24));
	base[4]= (type_of((V33))==t_fixnum?Ct:Cnil);
	if(base[4]==Cnil)goto T186;
	goto T185;
T186:;
	(void)((*(LnkLI111))());
T185:;
	V35= fix((V33));
	{int V36;
	V36= 0;
	{object V37;
	V37= Cnil;
T191:;
	if((V34)>=(V35)){
	goto T194;}
	goto T193;
T194:;
	goto T192;
T193:;
	V37= Cnil;
	{register object x= small_fixnum(0),V38= (V28);
	while(!endp(V38))
	if(eql(x,V38->c.c_car)){
	goto T201;
	}else V38=V38->c.c_cdr;
	goto T200;}
T201:;
	base[4]= (V28);
	base[5]= make_fixnum(V36);
	vs_top=(vs_base=base+4)+2;
	Lgetf();
	vs_top=sup;
	V37= vs_base[0];
	goto T198;
T200:;
	V37= nth(V36,(V28));
T198:;
	if(((V37))==Cnil){
	goto T208;}
	base[4]= Ct;
	base[5]= VV[16];
	base[6]= make_fixnum(V36);
	base[7]= (V37);
	base[9]= make_fixnum(V34);
	vs_top=(vs_base=base+9)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	base[8]= vs_base[0];
	vs_top=(vs_base=base+4)+5;
	Lformat();
	vs_top=sup;
	goto T206;
T208:;
	base[4]= symbol_value(VV[1]);
	base[5]= VV[17];
	base[6]= make_fixnum(V36);
	base[8]= make_fixnum(V34);
	vs_top=(vs_base=base+8)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	base[7]= vs_base[0];
	vs_top=(vs_base=base+4)+4;
	Lformat();
	vs_top=sup;
T206:;
	V34= (V34)+(1);
	if(!((V36)<(2147483646))){
	goto T224;}
	goto T223;
T224:;
	(void)((*(LnkLI111))());
T223:;
	V36= (V36)+(1);
	goto T191;
T192:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;}}}
T178:;
	if(!(type_of((V27))==t_cons||((V27))==Cnil)){
	goto T231;}
	base[4]= (*(LnkLI117))((V23));
	vs_top=(vs_base=base+4)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
T231:;
	base[4]= symbol_value(VV[1]);
	base[5]= VV[19];
	vs_top=(vs_base=base+4)+2;
	Lformat();
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
T171:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;}}
	}
}
/*	function definition for LOC	*/

static L5()
{register object *base=vs_base;
	register object *sup=base+VM5; VC5
	vs_reserve(VM5);
	{object V39;
	if(vs_top-vs_base>1) too_many_arguments();
	if(vs_base>=vs_top){vs_top=sup;goto T235;}
	V39=(base[0]);
	vs_top=sup;
	goto T236;
T235:;
	V39= small_fixnum(0);
T236:;
	{object V40;
	base[1]= symbol_value(VV[9]);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	V40= vs_base[0];
	if(!((fix((V39)))>=(0))){
	goto T241;}
	vs_base=vs_top;
	(void) (*Lnk110)();
	vs_top=sup;
	V42= vs_base[0];
	V43 = make_fixnum((1)+(fix(symbol_value(VV[9]))));
	base[1]= (number_compare(V42,V43)<=0?(V42):V43);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	V41= vs_base[0];
	if((fix((V39)))<((fix(V41))-(fix((V40))))){
	goto T240;}
T241:;
	base[1]= VV[20];
	vs_top=(vs_base=base+1)+1;
	Lerror();
	vs_top=sup;
T240:;
	base[1]= make_fixnum((fix((V39)))+(fix((V40))));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk109)();
	return;}
	}
}
/*	macro definition for MV-SETQ	*/

static L6()
{register object *base=vs_base;
	register object *sup=base+VM6; VC6
	vs_reserve(VM6);
	check_arg(2);
	vs_top=sup;
	{object V44=base[0]->c.c_cdr;
	if(endp(V44))invalid_macro_call();
	base[2]= (V44->c.c_car);
	V44=V44->c.c_cdr;
	if(endp(V44))invalid_macro_call();
	base[3]= (V44->c.c_car);
	V44=V44->c.c_cdr;
	if(!endp(V44))invalid_macro_call();}
	V45= list(3,VV[22],car(base[2]),base[3]);
	{object V47;
	object V48;
	object V49;
	V47= cdr(base[2]);
	V48= small_fixnum(0);
	V49= Cnil;
T255:;
	if(((V47))!=Cnil){
	goto T256;}
	V46= reverse((V49));
	goto T250;
T256:;
	V50= car((V47));
	V51= list(3,VV[22],/* INLINE-ARGS */V50,list(2,VV[23],(V48)));
	V49= make_cons(/* INLINE-ARGS */V51,(V49));
	V47= cdr((V47));
	V48= one_plus((V48));
	goto T255;}
T250:;
	base[4]= listA(3,VV[21],/* INLINE-ARGS */V45,V46);
	vs_top=(vs_base=base+4)+1;
	return;
}
/*	macro definition for MV-VALUES	*/

static L7()
{register object *base=vs_base;
	register object *sup=base+VM7; VC7
	vs_reserve(VM7);
	check_arg(2);
	vs_top=sup;
	{object V52=base[0]->c.c_cdr;
	base[2]= V52;}
	V53= car(base[2]);
	{object V55;
	object V56;
	object V57;
	V55= cdr(base[2]);
	V56= small_fixnum(0);
	V57= Cnil;
T271:;
	if(((V55))!=Cnil){
	goto T272;}
	V54= reverse((V57));
	goto T266;
T272:;
	V58= list(3,VV[24],(V56),car((V55)));
	V57= make_cons(/* INLINE-ARGS */V58,(V57));
	V55= cdr((V55));
	V56= one_plus((V56));
	goto T271;}
T266:;
	base[3]= listA(3,VV[21],/* INLINE-ARGS */V53,V54);
	vs_top=(vs_base=base+3)+1;
	return;
}
/*	function definition for DBL	*/

static L8()
{register object *base=vs_base;
	register object *sup=base+VM8; VC8
	vs_reserve(VM8);
	check_arg(0);
	vs_top=sup;
TTL:;
	base[0]= Cnil;
	base[1]= Cnil;
	vs_top=(vs_base=base+0)+2;
	(void) (*Lnk118)();
	return;
}
/*	function definition for MAKE-INSTREAM	*/

static L9()
{register object *base=vs_base;
	register object *sup=base+VM9; VC9
	vs_reserve(VM9);
	{object V59;
	object V60;
	object V61;
	parse_key(vs_base,FALSE,FALSE,3,VV[27],VV[36],VV[119]);
	vs_top=sup;
	V59=(base[0]);
	if(base[4]==Cnil){
	V60= small_fixnum(0);
	}else{
	V60=(base[1]);}
	V61=(base[2]);
	base[6]= VV[25];
	base[7]= (V59);
	base[8]= (V60);
	base[9]= (V61);
	vs_top=(vs_base=base+6)+4;
	siLmake_structure();
	return;
	}
}
/*	function definition for CLEANUP	*/

static L10()
{register object *base=vs_base;
	register object *sup=base+VM10; VC10
	vs_reserve(VM10);
	check_arg(0);
	vs_top=sup;
TTL:;
	{object V62;
	object V63;
	V62= symbol_value(VV[26]);
	V63= car((V62));
T292:;
	if(!(endp((V62)))){
	goto T293;}
	base[0]= Cnil;
	vs_top=(vs_base=base+0)+1;
	return;
T293:;
	base[0]= structure_ref((V63),VV[25],0);
	vs_top=(vs_base=base+0)+1;
	(void) (*Lnk120)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T297;}
	setq(VV[26],(VFUN_NARGS=2,(*(LnkLI121))((V63),symbol_value(VV[26]))));
T297:;
	V62= cdr((V62));
	V63= car((V62));
	goto T292;}
}
/*	function definition for GET-INSTREAM	*/

static L11()
{register object *base=vs_base;
	register object *sup=base+VM11; VC11
	vs_reserve(VM11);
	{register object V64;
	check_arg(1);
	V64=(base[0]);
	vs_top=sup;
TTL:;
	{object V65;
	object V66;
	V65= symbol_value(VV[26]);
	V66= car((V65));
T312:;
	if(!(endp((V65)))){
	goto T313;}
	base[1]= Cnil;
	goto T308;
T313:;
	V67= structure_ref((V66),VV[25],0);
	if(!(((V64))==(/* INLINE-ARGS */V67))){
	goto T317;}
	base[1]= (V66);
	goto T308;
T317:;
	V65= cdr((V65));
	V66= car((V65));
	goto T312;}
T308:;
	if(base[1]==Cnil)goto T307;
	vs_top=(vs_base=base+1)+1;
	return;
T307:;
	base[2]= VV[27];
	base[3]= (V64);
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk122)();
	vs_top=sup;
	V68= vs_base[0];
	setq(VV[26],make_cons(V68,symbol_value(VV[26])));
	base[2]= car(symbol_value(VV[26]));
	vs_top=(vs_base=base+2)+1;
	return;
	}
}
/*	function definition for NEWLINE	*/

static L12()
{register object *base=vs_base;
	register object *sup=base+VM12; VC12
	vs_reserve(VM12);
	{object V69;
	object V70;
	check_arg(2);
	V69=(base[0]);
	V70=(base[1]);
	vs_top=sup;
TTL:;
	{object V71;
	base[2]= (V69);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk123)();
	vs_top=sup;
	V71= vs_base[0];
	{int V72= fix(structure_ref((V71),VV[25],1));
	V73 = make_fixnum((1)+(/* INLINE-ARGS */V72));
	(void)(structure_set((V71),VV[25],1,V73));}}
	base[2]= Cnil;
	base[3]= (V69);
	base[4]= Cnil;
	vs_top=(vs_base=base+2)+3;
	Lpeek_char();
	vs_top=sup;
	V74= vs_base[0];
	if(!(eql(V74,VV[29]))){
	goto T336;}
	setq(VV[28],VV[30]);
	goto T334;
T336:;
	setq(VV[28],Ct);
T334:;
	vs_base=vs_top=base+2;
	vs_base[0]=Cnil;
	return;
	}
}
/*	function definition for QUOTATION-READER	*/

static L13()
{register object *base=vs_base;
	register object *sup=base+VM13; VC13
	vs_reserve(VM13);
	{object V75;
	object V76;
	check_arg(2);
	V75=(base[0]);
	V76=(base[1]);
	vs_top=sup;
TTL:;
	{object V77;
	object V78;
	V77= (
	(type_of(symbol_value(VV[31])) == t_sfun ?(*(object (*)())((symbol_value(VV[31]))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(VV[31])),fcall.argd=2,fcalln))((V75),(V76)));
	base[2]= (V75);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk123)();
	vs_top=sup;
	V78= vs_base[0];
	{object V79;
	object V80;
	V79= (V78);
	V81= structure_ref((V79),VV[25],1);
	V82= (VFUN_NARGS=2,(*(LnkLI124))(VV[32],(V77)));
	V80= number_plus(/* INLINE-ARGS */V81,/* INLINE-ARGS */V82);
	(void)(structure_set((V79),VV[25],1,(V80)));}
	base[2]= (V77);
	vs_top=(vs_base=base+2)+1;
	return;}
	}
}
/*	function definition for NEW-SEMI-COLON-READER	*/

static L14()
{register object *base=vs_base;
	register object *sup=base+VM14; VC14
	vs_reserve(VM14);
	bds_check;
	{register object V83;
	object V84;
	check_arg(2);
	V83=(base[0]);
	V84=(base[1]);
	vs_top=sup;
TTL:;
	{object V85;
	object V86;
	base[2]= (V83);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk123)();
	vs_top=sup;
	V85= vs_base[0];
	base[2]= Cnil;
	base[3]= (V83);
	base[4]= Cnil;
	base[5]= Cnil;
	vs_top=(vs_base=base+2)+4;
	Lpeek_char();
	vs_top=sup;
	V86= vs_base[0];
	{int V87= fix(structure_ref((V85),VV[25],1));
	V88 = make_fixnum((1)+(/* INLINE-ARGS */V87));
	(void)(structure_set((V85),VV[25],1,V88));}
	if(!(eql((V86),VV[33]))){
	goto T358;}
	base[2]= (V83);
	vs_top=(vs_base=base+2)+1;
	Lread_char();
	vs_top=sup;
	{object V89;
	bds_bind(VV[34],symbol_value(VV[35]));
	base[4]= (V83);
	base[5]= Cnil;
	base[6]= Cnil;
	vs_top=(vs_base=base+4)+3;
	Lread_line();
	vs_top=sup;
	base[3]= vs_base[0];
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk125)();
	vs_top=sup;
	V89= vs_base[0];
	if(!(type_of((V89))==t_cons)){
	bds_unwind1;
	goto T356;}
	if(!((car((V89)))==(VV[36]))){
	bds_unwind1;
	goto T356;}
	if(!(type_of(cadr((V89)))==t_string)){
	bds_unwind1;
	goto T356;}
	if(!(type_of(caddr((V89)))==t_fixnum)){
	bds_unwind1;
	goto T356;}
	(void)(structure_set((V85),VV[25],2,cadr((V89))));
	V90= structure_set((V85),VV[25],1,caddr((V89)));
	bds_unwind1;
	goto T356;}
T358:;
	(void)((
	(type_of(symbol_value(VV[37])) == t_sfun ?(*(object (*)())((symbol_value(VV[37]))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(VV[37])),fcall.argd=2,fcalln))((V83),(V84))));
T356:;
	base[2]= Cnil;
	base[3]= (V83);
	base[4]= Cnil;
	vs_top=(vs_base=base+2)+3;
	Lpeek_char();
	vs_top=sup;
	V91= vs_base[0];
	if(!(eql(V91,VV[29]))){
	goto T379;}
	setq(VV[28],VV[30]);
	goto T377;
T379:;
	setq(VV[28],Ct);
T377:;
	vs_base=vs_top=base+2;
	vs_base[0]=Cnil;
	return;}
	}
}
/*	function definition for SETUP-LINEINFO	*/

static L15()
{register object *base=vs_base;
	register object *sup=base+VM15; VC15
	vs_reserve(VM15);
	check_arg(0);
	vs_top=sup;
TTL:;
	base[0]= VV[32];
	base[1]= symbol_function(VV[126]);
	base[2]= Cnil;
	base[3]= symbol_value(VV[38]);
	vs_top=(vs_base=base+0)+4;
	Lset_macro_character();
	vs_top=sup;
	base[0]= VV[39];
	base[1]= symbol_function(VV[127]);
	base[2]= Cnil;
	base[3]= symbol_value(VV[38]);
	vs_top=(vs_base=base+0)+4;
	Lset_macro_character();
	vs_top=sup;
	base[0]= VV[29];
	base[1]= VV[40];
	base[2]= Cnil;
	base[3]= symbol_value(VV[38]);
	vs_top=(vs_base=base+0)+4;
	Lset_macro_character();
	vs_top=sup;
	base[0]= VV[41];
	base[1]= VV[42];
	base[2]= Cnil;
	base[3]= symbol_value(VV[38]);
	vs_top=(vs_base=base+0)+4;
	Lset_macro_character();
	return;
}
/*	function definition for NLOAD	*/

static L16()
{register object *base=vs_base;
	register object *sup=base+VM16; VC16
	vs_reserve(VM16);
	bds_check;
	{object V92;
	object V93;
	if(vs_top-vs_base<1) too_few_arguments();
	V92=(base[0]);
	vs_base=vs_base+1;
	vs_top[0]=Cnil;
	{object *p=vs_top;
	 for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
	V93=(base[1]);
	vs_top=sup;
	base[2]= symbol_value(VV[43]);
	vs_top=(vs_base=base+2)+1;
	Lclrhash();
	vs_top=sup;
	vs_base=vs_top;
	(void) (*Lnk128)();
	vs_top=sup;
	base[2]= (V92);
	vs_top=(vs_base=base+2)+1;
	Ltruename();
	vs_top=sup;
	V92= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk129)();
	vs_top=sup;
	bds_bind(VV[34],symbol_value(VV[38]));
	base[3]= (V92);
	{object V94;
	V94= (V93);
	 vs_top=base+4;
	 while(!endp(V94))
	 {vs_push(car(V94));V94=cdr(V94);}
	vs_base=base+3;}
	Lload();
	bds_unwind1;
	return;
	}
}
/*	function definition for LEFT-PARENTHESIS-READER	*/

static L17()
{register object *base=vs_base;
	register object *sup=base+VM17; VC17
	vs_reserve(VM17);
	{object V95;
	object V96;
	check_arg(2);
	V95=(base[0]);
	V96=(base[1]);
	vs_top=sup;
TTL:;
	{object V97;
	object V98;
	V97= Cnil;
	V98= symbol_value(VV[28]);
	if(!((symbol_value(VV[28]))==(Ct))){
	goto T415;}
	setq(VV[28],Cnil);
T415:;
	if(((V98))==Cnil){
	goto T419;}
	base[2]= (V95);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk123)();
	vs_top=sup;
	V98= vs_base[0];
	V97= structure_ref((V98),VV[25],1);
T419:;
	{object V99;
	V99= (
	(type_of(symbol_value(VV[44])) == t_sfun ?(*(object (*)())((symbol_value(VV[44]))->sfn.sfn_self)):
	(fcall.fun=(symbol_value(VV[44])),fcall.argd=2,fcalln))((V95),(V96)));
	if(((V98))==Cnil){
	goto T427;}
	{object V100;
	object V101;
	object V102;
	V100= (V99);
	V101= symbol_value(VV[43]);
	base[2]= (V98);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk130)();
	vs_top=sup;
	V103= vs_base[0];
	V102= make_cons(V103,(V97));
	base[2]= (V100);
	base[3]= (V101);
	base[4]= (V102);
	vs_top=(vs_base=base+2)+3;
	siLhash_set();
	vs_top=sup;}
T427:;
	base[2]= (V99);
	vs_top=(vs_base=base+2)+1;
	return;}}
	}
}
/*	function definition for WALK-THROUGH	*/

static L18()
{register object *base=vs_base;
	register object *sup=base+VM18; VC18
	vs_reserve(VM18);
	{register object V104;
	check_arg(1);
	V104=(base[0]);
	vs_top=sup;
TTL:;
	{object V105;
	V105= Cnil;
T440:;
	if(!(type_of((V104))==t_cons)){
	goto T441;}
	base[1]= (V104);
	base[2]= symbol_value(VV[43]);
	vs_top=(vs_base=base+1)+2;
	Lgethash();
	vs_top=sup;
	V105= vs_base[0];
	if(((V105))==Cnil){
	goto T444;}
	if(!(type_of(car((V104)))==t_cons)){
	goto T451;}
	if((caar((V104)))==(VV[45])){
	goto T451;}
	base[1]= (V104);
	base[2]= symbol_value(VV[43]);
	vs_top=(vs_base=base+1)+2;
	Lremhash();
	vs_top=sup;
	{object V106;
	object V107;
	object V108;
	V106= car((V104));
	V107= symbol_value(VV[43]);
	V108= (V105);
	base[1]= (V106);
	base[2]= (V107);
	base[3]= (V108);
	vs_top=(vs_base=base+1)+3;
	siLhash_set();
	vs_top=sup;
	goto T444;}
T451:;
	V109= make_cons((V105),(V104));
	(void)((VFUN_NARGS=2,(*(LnkLI131))(/* INLINE-ARGS */V109,symbol_value(VV[46]))));
T444:;
	base[1]= car((V104));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk132)();
	vs_top=sup;
	V104= cdr((V104));
	goto T440;
T441:;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
/*	function definition for COMPILER-DEF-HOOK	*/

static L19()
{register object *base=vs_base;
	register object *sup=base+VM19; VC19
	vs_reserve(VM19);
	{object V110;
	object V111;
	check_arg(2);
	V110=(base[0]);
	V111=(base[1]);
	vs_top=sup;
TTL:;
	{object V112;
	int V113;
	int V114;
	V112= symbol_value(VV[46]);
	V113= 2147483647;
	V114= -1;
	if(!(type_of((V111))!=t_cons)){
	goto T472;}
	base[2]= remprop((V110),VV[48]);
	vs_top=(vs_base=base+2)+1;
	return;
T472:;
	if(!((symbol_value(VV[34]))==(symbol_value(VV[38])))){
	goto T475;}
	base[2]= symbol_value(VV[46]);
	base[3]= small_fixnum(0);
	vs_top=(vs_base=base+2)+2;
	siLfill_pointer_set();
	vs_top=sup;
	base[2]= (V111);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk132)();
	vs_top=sup;
	{object V115;
	int V116;
	V115= make_fixnum(length((V112)));
	V116= 0;
T486:;
	V117 = make_fixnum(V116);
	if(!(number_compare(V117,(V115))>=0)){
	goto T487;}
	goto T482;
T487:;
	{int V118;
	V119= aref1((V112),V116);
	V118= fix(cdar(/* INLINE-ARGS */V119));
	if(!((V118)>(V114))){
	goto T493;}
	V114= V118;
T493:;
	if(!((V118)<(V113))){
	goto T491;}
	V113= V118;}
T491:;
	V116= (V116)+1;
	goto T486;}
T482:;
	if(!((length(symbol_value(VV[46])))>(0))){
	goto T504;}
	{object V120;
	object V121;
	V122 = make_fixnum(((V114)-(V113))+(2));
	V120= (VFUN_NARGS=3,(*(LnkLI133))(V122,VV[49],VV[50]));
	V121= get((V110),VV[48],Cnil);
	V123= aref1((V112),0);
	V124= caar(/* INLINE-ARGS */V123);
	V125 = make_fixnum(V113);
	V126= make_cons(/* INLINE-ARGS */V124,V125);
	(void)(aset1((V120),0,/* INLINE-ARGS */V126));
	V113= (V113)-(1);
	{object V127;
	object V128;
	V127= make_fixnum(length((V112)));
	V128= small_fixnum(0);
T515:;
	if(!(number_compare((V128),(V127))>=0)){
	goto T516;}
	goto T511;
T516:;
	{object V129;
	V129= aref1((V112),fixint((V128)));
	(void)(aset1((V120),(fix(cdar((V129))))-(V113),cdr((V129))));}
	V128= one_plus((V128));
	goto T515;}
T511:;
	(void)(sputprop((V110),VV[48],(V120)));
	if(((V121))==Cnil){
	goto T527;}
	{object V130;
	object V131;
	V130= get((V110),VV[51],Cnil);
	V132= aref1((V121),0);
	V131= cdr(/* INLINE-ARGS */V132);
	{object V133;
	object V134;
	V133= (V130);
	V134= car((V133));
T534:;
	if(!(endp((V133)))){
	goto T535;}
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;
T535:;
	{object V135;
	object V136;
	object V137;
	V135= aref1(symbol_value(VV[52]),fixint((V134)));
	{object V138= cdr(cdr(cdr((V135))));
	if((type_of(V138)!=t_cons) && ((V135)!= Cnil))
	 FEwrong_type_argument(Scons,V138);
	V136= (V138->c.c_car);}
	{object V140= cdr(cdr((V135)));
	if((type_of(V140)!=t_cons) && ((V135)!= Cnil))
	 FEwrong_type_argument(Scons,V140);
	V139= fix((V140->c.c_car));}
	V137= make_fixnum((V139)-(fix((V131))));{object V141;
	V141= symbol_value(VV[52]);
	base[2]= (V136);
	base[3]= (V120);
	base[4]= (V137);
	vs_top=(vs_base=base+2)+3;
	(void) (*Lnk134)();
	vs_top=sup;
	V142= vs_base[0];
	(void)(aset1(V141,fixint((V134)),V142));}}
	V133= cdr((V133));
	V134= car((V133));
	goto T534;}}
T527:;
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;}
T504:;
	{object V143;
	V143= get((V110),VV[51],Cnil);
	base[2]= (V143);
	base[3]= VV[53];
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk135)();
	return;}
T475:;
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;}
	}
}
/*	function definition for INSTREAM-NAME	*/

static L20()
{register object *base=vs_base;
	register object *sup=base+VM20; VC20
	vs_reserve(VM20);
	{object V144;
	check_arg(1);
	V144=(base[0]);
	vs_top=sup;
TTL:;
	base[1]= structure_ref((V144),VV[25],2);
	if(base[1]==Cnil)goto T556;
	vs_top=(vs_base=base+1)+1;
	return;
T556:;
	base[2]= structure_ref((V144),VV[25],0);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk136)();
	return;
	}
}
static object stream_name(str) object str;{return str->sm.sm_object1; }
/*	function definition for STREAM-NAME	*/

static L21()
{	object *old_base=vs_base;
	object x;
	check_arg(1);
	x=
	stream_name(
	vs_base[0]);
	vs_top=(vs_base=old_base)+1;
	vs_base[0]=x;
}
static object closedp(str) object str;{return (str->sm.sm_fp==0 ? Ct :Cnil); }
/*	function definition for CLOSEDP	*/

static L22()
{	object *old_base=vs_base;
	object x;
	check_arg(1);
	x=
	closedp(
	vs_base[0]);
	vs_top=(vs_base=old_base)+1;
	vs_base[0]=x;
}
/*	function definition for FIND-LINE-IN-FUN	*/

static L23()
{register object *base=vs_base;
	register object *sup=base+VM21; VC21
	vs_reserve(VM21);
	{object V145;
	object V146;
	register object V147;
	register object V148;
	check_arg(4);
	V145=(base[0]);
	V146=(base[1]);
	V147=(base[2]);
	V148=(base[3]);
	vs_top=sup;
TTL:;
	{object V149;
	V149= Cnil;
	V149= get((V147),VV[48],Cnil);
	if(((V149))==Cnil){
	goto T563;}
	{object V150;
	V150= (V149);
	if(((V150))==Cnil){
	goto T567;}
	{object V151;
	object V152;
	V151= make_fixnum(length((V150)));
	V152= small_fixnum(0);
T572:;
	if(!(number_compare((V152),(V151))>=0)){
	goto T573;}
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;
T573:;
	V153= aref1((V150),fixint((V152)));
	if(!(((V145))==(/* INLINE-ARGS */V153))){
	goto T577;}
	if(((V148))==Cnil){
	goto T580;}
	{object V154;
	object V155;
	V154= (V148);
	V155= number_minus(car((V154)),small_fixnum(1));
	if(type_of((V154))!=t_cons)FEwrong_type_argument(Scons,(V154));
	((V154))->c.c_car = (V155);}
	if(!((fix(car((V148))))>(0))){
	goto T580;}
	base[4]= VV[54];
	vs_top=(vs_base=base+4)+1;
	return;
T580:;
	base[5]= (V147);
	base[6]= (V150);
	base[7]= (V152);
	vs_top=(vs_base=base+5)+3;
	(void) (*Lnk134)();
	vs_top=sup;
	setq(VV[55],vs_base[0]);
	base[4]= symbol_value(VV[55]);
	base[5]= (V146);
	vs_top=(vs_base=base+4)+2;
	(void) (*Lnk118)();
	vs_top=sup;
	base[4]= VV[54];
	vs_top=(vs_base=base+4)+1;
	return;
T577:;
	V152= one_plus((V152));
	goto T572;}
T567:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;}
T563:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;}
	}
}
/*	function definition for CURRENT-STEP-FUN	*/

static L24()
{register object *base=vs_base;
	register object *sup=base+VM22; VC22
	vs_reserve(VM22);
	{object V156;
	if(vs_top-vs_base>1) too_many_arguments();
	if(vs_base>=vs_top){vs_top=sup;goto T599;}
	V156=(base[0]);
	vs_top=sup;
	goto T600;
T599:;
	vs_base=vs_top;
	(void) (*Lnk110)();
	vs_top=sup;
	V156= vs_base[0];
T600:;
	{object V157;
	V157= one_minus((V156));
T604:;
	if(!((fix((V157)))<=(0))){
	goto T605;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
T605:;
	{object V158;
	base[1]= (V157);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk137)();
	vs_top=sup;
	V158= vs_base[0];
	if((get((V158),VV[48],Cnil))==Cnil){
	goto T609;}
	base[1]= (V158);
	vs_top=(vs_base=base+1)+1;
	return;}
T609:;
	V157= make_fixnum((fix((V157)))-(1));
	goto T604;}
	}
}
/*	function definition for INIT-BREAK-POINTS	*/

static L25()
{register object *base=vs_base;
	register object *sup=base+VM23; VC23
	vs_reserve(VM23);
	check_arg(0);
	vs_top=sup;
TTL:;
	base[0]= symbol_value(VV[56]);
	base[1]= small_fixnum(0);
	vs_top=(vs_base=base+0)+2;
	siLfill_pointer_set();
	vs_top=sup;
	setq(VV[52],symbol_value(VV[56]));
	base[0]= symbol_value(VV[52]);
	vs_top=(vs_base=base+0)+1;
	return;
}
/*	function definition for STEP-INTO	*/

static L26()
{register object *base=vs_base;
	register object *sup=base+VM24; VC24
	vs_reserve(VM24);
	{object V159;
	if(vs_top-vs_base>1) too_many_arguments();
	if(vs_base>=vs_top){vs_top=sup;goto T621;}
	V159=(base[0]);
	vs_top=sup;
	goto T622;
T621:;
	V159= small_fixnum(1);
T622:;
	if(symbol_value(VV[52])!=Cnil){
	goto T624;}
	vs_base=vs_top;
	(void) (*Lnk138)();
	vs_top=sup;
T624:;
	setq(VV[57],VV[58]);
	base[1]= VV[59];
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	function definition for STEP-NEXT	*/

static L27()
{register object *base=vs_base;
	register object *sup=base+VM25; VC25
	vs_reserve(VM25);
	{object V160;
	if(vs_top-vs_base>1) too_many_arguments();
	if(vs_base>=vs_top){vs_top=sup;goto T627;}
	V160=(base[0]);
	vs_top=sup;
	goto T628;
T627:;
	V160= small_fixnum(1);
T628:;
	{object V161;
	vs_base=vs_top;
	(void) (*Lnk139)();
	vs_top=sup;
	V161= vs_base[0];
	setq(VV[60],make_cons((V160),(V161)));
	if(symbol_value(VV[52])!=Cnil){
	goto T633;}
	vs_base=vs_top;
	(void) (*Lnk138)();
	vs_top=sup;
T633:;
	setq(VV[57],VV[61]);
	base[1]= VV[59];
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
/*	function definition for MAYBE-BREAK	*/

static L28()
{register object *base=vs_base;
	register object *sup=base+VM26; VC26
	vs_reserve(VM26);
	{object V162;
	object V163;
	object V164;
	object V165;
	check_arg(4);
	V162=(base[0]);
	V163=(base[1]);
	V164=(base[2]);
	V165=(base[3]);
	vs_top=sup;
TTL:;
	{object V166;
	V166= Cnil;
	V166= (VFUN_NARGS=2,(*(LnkLI140))((V162),(V163)));
	if(((V166))==Cnil){
	goto T638;}
	setq(VV[57],Cnil);
	if(!((length(symbol_value(VV[52])))>(0))){
	goto T644;}
	goto T643;
T644:;
	setq(VV[52],Cnil);
T643:;
	base[5]= (V164);
	base[6]= (V163);
	base[7]= (V166);
	vs_top=(vs_base=base+5)+3;
	(void) (*Lnk134)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= (V165);
	vs_top=(vs_base=base+4)+2;
	(void) (*Lnk118)();
	vs_top=sup;
	base[4]= Ct;
	vs_top=(vs_base=base+4)+1;
	return;
T638:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;}
	}
}
/*	function definition for BREAK-STEP-INTO	*/

static L29()
{register object *base=vs_base;
	register object *sup=base+VM27; VC27
	vs_reserve(VM27);
	{object V167;
	object V168;
	check_arg(2);
	V167=(base[0]);
	V168=(base[1]);
	vs_top=sup;
TTL:;
	{object V169;
	vs_base=vs_top;
	(void) (*Lnk139)();
	vs_top=sup;
	V169= vs_base[0];
	{object V170;
	V170= get((V169),VV[48],Cnil);
	base[2]= (V167);
	base[3]= (V170);
	base[4]= (V169);
	base[5]= (V168);
	vs_top=(vs_base=base+2)+4;
	(void) (*Lnk141)();
	return;}}
	}
}
/*	function definition for BREAK-STEP-NEXT	*/

static L30()
{register object *base=vs_base;
	register object *sup=base+VM28; VC28
	vs_reserve(VM28);
	{object V171;
	object V172;
	check_arg(2);
	V171=(base[0]);
	V172=(base[1]);
	vs_top=sup;
TTL:;
	{object V173;
	vs_base=vs_top;
	(void) (*Lnk139)();
	vs_top=sup;
	V173= vs_base[0];
	if(!(eql(cdr(symbol_value(VV[60])),(V173)))){
	goto T661;}
	{object V174;
	V174= get((V173),VV[48],Cnil);
	base[2]= (V171);
	base[3]= (V174);
	base[4]= (V173);
	base[5]= (V172);
	vs_top=(vs_base=base+2)+4;
	(void) (*Lnk141)();
	return;}
T661:;
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;}
	}
}
/*	function definition for *BREAK-POINTS*	*/

static L31()
{register object *base=vs_base;
	register object *sup=base+VM29; VC29
	vs_reserve(VM29);
	{object V175;
	object V176;
	check_arg(2);
	V175=(base[0]);
	V176=(base[1]);
	vs_top=sup;
TTL:;
	{object V177;
	V177= (VFUN_NARGS=4,(*(LnkLI140))((V175),symbol_value(VV[52]),VV[62],VV[63]));
	base[2]= Ct;
	base[3]= VV[64];
	base[4]= (V177);
	vs_top=(vs_base=base+2)+3;
	Lformat();
	vs_top=sup;
	base[2]= aref1(symbol_value(VV[52]),fixint((V177)));
	base[3]= (V176);
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk118)();
	return;}
	}
}
/*	function definition for DWIM	*/

static L32()
{register object *base=vs_base;
	register object *sup=base+VM30; VC30
	vs_reserve(VM30);
	{register object V178;
	check_arg(1);
	V178=(base[0]);
	vs_top=sup;
TTL:;
	{object V179;
	object V180;
	vs_base=vs_top;
	Llist_all_packages();
	vs_top=sup;
	V179= vs_base[0];
	V180= car((V179));
T679:;
	if(!(endp((V179)))){
	goto T680;}
	goto T675;
T680:;
	{object V181;
	object V182;
	base[1]= symbol_name((V178));
	base[2]= (V180);
	vs_top=(vs_base=base+1)+2;
	Lintern();
	if(vs_base>=vs_top){vs_top=sup;goto T688;}
	V181= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T689;}
	V182= vs_base[0];
	vs_top=sup;
	goto T690;
T688:;
	V181= Cnil;
T689:;
	V182= Cnil;
T690:;
	if((get((V181),VV[48],Cnil))==Cnil){
	goto T692;}
	base[1]= (V181);
	vs_top=(vs_base=base+1)+1;
	return;
T692:;
	if((V182)!=Cnil){
	goto T684;}
	base[2]= (V181);
	vs_top=(vs_base=base+2)+1;
	Lunintern();
	vs_top=sup;}
T684:;
	V179= cdr((V179));
	V180= car((V179));
	goto T679;}
T675:;
	base[1]= Ct;
	base[2]= VV[65];
	base[3]= (V178);
	vs_top=(vs_base=base+1)+3;
	Lformat();
	return;
	}
}
/*	function definition for BREAK-FUNCTION	*/

static L33()
{register object *base=vs_base;
	register object *sup=base+VM31; VC31
	vs_reserve(VM31);
	{register object V183;
	register object V184;
	object V185;
	if(vs_top-vs_base<1) too_few_arguments();
	if(vs_top-vs_base>3) too_many_arguments();
	V183=(base[0]);
	vs_base=vs_base+1;
	if(vs_base>=vs_top){vs_top=sup;goto T703;}
	V184=(base[1]);
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T704;}
	V185=(base[2]);
	vs_top=sup;
	goto T705;
T703:;
	V184= small_fixnum(1);
T704:;
	V185= Cnil;
T705:;
	{object V186;
	V186= Cnil;
	{object V187;
	V187= get((V183),VV[48],Cnil);
	if(((V187))!=Cnil){
	goto T710;}
	base[3]= (V183);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk142)();
	vs_top=sup;
	V186= vs_base[0];
	if(((V186))==Cnil){
	goto T710;}
	base[3]= (V186);
	base[4]= (V184);
	base[5]= (V185);
	vs_top=(vs_base=base+3)+3;
	(void) (*Lnk143)();
	return;
T710:;
	if(!(type_of((V187))==t_array||
type_of((V187))==t_vector||
type_of((V187))==t_string||
type_of((V187))==t_bitvector)){
	goto T722;}
	goto T721;
T722:;
	base[4]= Ct;
	base[5]= VV[66];
	base[6]= (V183);
	vs_top=(vs_base=base+4)+3;
	Lformat();
	vs_top=sup;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;
T721:;
	{object V188;
	V189= aref1((V187),0);
	V188= cdr(/* INLINE-ARGS */V189);
	if(((V185))==Cnil){
	goto T729;}
	V184= make_fixnum((fix((V184)))-(fix((V188))));
T729:;
	if((fix((V184)))>=(1)){
	goto T736;}
	base[3]= Cnil;
	goto T735;
T736:;
	base[3]= ((fix((V184)))<(length((V187)))?Ct:Cnil);
T735:;
	if(base[3]==Cnil)goto T734;
	goto T733;
T734:;
	base[4]= Ct;
	base[5]= VV[67];
	base[6]= (V183);
	vs_top=(vs_base=base+4)+3;
	Lformat();
	vs_top=sup;
	base[3]= vs_base[0];
	if(base[3]==Cnil)goto T738;
	goto T733;
T738:;
	base[4]= Cnil;
	vs_top=(vs_base=base+4)+1;
	return;
T733:;
	if(!(eql((V184),small_fixnum(1)))){
	goto T743;}
	{object V190;
	base[3]= (V183);
	vs_top=(vs_base=base+3)+1;
	Lsymbol_function();
	vs_top=sup;
	V190= vs_base[0];
	if(!(type_of((V190))==t_cons)){
	goto T743;}
	if(!((car((V190)))==(VV[68]))){
	goto T743;}
	if((caddr((V190)))==Cnil){
	goto T743;}
	V184= small_fixnum(2);}
T743:;
	{object V191;
	object V192;
	V191= make_fixnum((length((V187)))-(fix((V184))));
	V192= small_fixnum(0);
T759:;
	if(!(number_compare((V192),(V191))>=0)){
	goto T760;}
	goto T755;
T760:;
	V193= aref1((V187),fixint((V192)));
	if((/* INLINE-ARGS */V193)==(VV[50])){
	goto T764;}
	base[5]= (V183);
	base[6]= (V187);
	base[7]= make_fixnum((fix((V184)))+(fix((V192))));
	vs_top=(vs_base=base+5)+3;
	(void) (*Lnk134)();
	vs_top=sup;
	base[4]= vs_base[0];
	vs_top=(vs_base=base+4)+1;
	(void) (*Lnk144)();
	vs_top=sup;
	base[3]= vs_base[0];
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk145)();
	vs_top=sup;
	vs_base=vs_top=base+3;
	vs_base[0]=Cnil;
	return;
T764:;
	V192= one_plus((V192));
	goto T759;}
T755:;
	base[3]= Ct;
	base[4]= VV[69];
	vs_top=(vs_base=base+3)+2;
	Lformat();
	return;}}}
	}
}
/*	function definition for INSERT-BREAK-POINT	*/

static L34()
{register object *base=vs_base;
	register object *sup=base+VM32; VC32
	vs_reserve(VM32);
	{object V194;
	check_arg(1);
	V194=(base[0]);
	vs_top=sup;
TTL:;
	{object V195;
	V195= Cnil;
	if(symbol_value(VV[52])!=Cnil){
	goto T779;}
	vs_base=vs_top;
	(void) (*Lnk138)();
	vs_top=sup;
T779:;
	base[1]= (VFUN_NARGS=2,(*(LnkLI140))(Cnil,symbol_value(VV[52])));
	if(base[1]==Cnil)goto T782;
	V195= base[1];
	goto T781;
T782:;
	{object V196;
	V196= make_fixnum(length(symbol_value(VV[52])));
	(void)((VFUN_NARGS=2,(*(LnkLI131))(Cnil,symbol_value(VV[52]))));
	V195= (V196);}
T781:;
	{object V197;
	{object V198= cdr(cdr(cdr((V194))));
	if((type_of(V198)!=t_cons) && ((V194)!= Cnil))
	 FEwrong_type_argument(Scons,V198);
	V197= (V198->c.c_car);}
	{object V199;
	object V200;
	object V201;
	V199= (V197);
	V200= VV[51];
	V202= get((V199),(V200),Cnil);
	V201= make_cons((V195),V202);
	(void)(sputprop((V199),(V200),(V201)));}}
	(void)(aset1(symbol_value(VV[52]),fixint((V195)),(V194)));
	base[1]= (V195);
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
/*	function definition for SHORT-NAME	*/

static L35()
{register object *base=vs_base;
	register object *sup=base+VM33; VC33
	vs_reserve(VM33);
	{object V203;
	check_arg(1);
	V203=(base[0]);
	vs_top=sup;
TTL:;
	{object V204;
	V204= (VFUN_NARGS=4,(*(LnkLI140))(VV[70],(V203),VV[71],Ct));
	if(((V204))==Cnil){
	goto T795;}
	base[1]= (V203);
	base[2]= make_fixnum((1)+(fix((V204))));
	vs_top=(vs_base=base+1)+2;
	Lsubseq();
	return;
T795:;
	base[1]= (V203);
	vs_top=(vs_base=base+1)+1;
	return;}
	}
}
/*	function definition for SHOW-BREAK-POINT	*/

static L36()
{register object *base=vs_base;
	register object *sup=base+VM34; VC34
	vs_reserve(VM34);
	{object V205;
	check_arg(1);
	V205=(base[0]);
	vs_top=sup;
TTL:;
	{object V206;
	V206= Cnil;
	{object V207;
	V207= aref1(symbol_value(VV[52]),fixint((V205)));
	if(((V207))==Cnil){
	goto T802;}
	if(!((car((V207)))==(Cnil))){
	goto T804;}
	V206= Ct;
	V207= cdr((V207));
T804:;
	base[1]= Ct;
	base[2]= VV[72];
	base[3]= (V205);
	base[5]= cadr((V207));
	vs_top=(vs_base=base+5)+1;
	(void) (*Lnk146)();
	vs_top=sup;
	base[4]= vs_base[0];
	base[5]= caddr((V207));
	base[6]= (V206);
	vs_top=(vs_base=base+1)+6;
	Lformat();
	vs_top=sup;
	{object V208;
	V208= cadddr((V207));
	base[1]= Ct;
	base[2]= VV[73];
	base[4]= (V208);
	base[5]= caddr((V207));
	vs_top=(vs_base=base+4)+2;
	(void) (*Lnk147)();
	vs_top=sup;
	base[3]= vs_base[0];
	base[4]= (V208);
	vs_top=(vs_base=base+1)+4;
	Lformat();
	return;}
T802:;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;}}
	}
}
/*	function definition for ITERATE-OVER-BKPTS	*/

static L37()
{register object *base=vs_base;
	register object *sup=base+VM35; VC35
	vs_reserve(VM35);
	{register object V209;
	register object V210;
	check_arg(2);
	V209=(base[0]);
	V210=(base[1]);
	vs_top=sup;
TTL:;
	{object V211;
	object V212;
	V211= make_fixnum(length(symbol_value(VV[52])));
	V212= small_fixnum(0);
T828:;
	if(!(number_compare((V212),(V211))>=0)){
	goto T829;}
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;
T829:;
	{register object x= (V212),V213= (V209);
	while(!endp(V213))
	if(eql(x,V213->c.c_car)){
	goto T834;
	}else V213=V213->c.c_cdr;}
	if(((V209))!=Cnil){
	goto T833;}
T834:;
	{object V214;
	V214= aref1(symbol_value(VV[52]),fixint((V212)));{object V215;
	V215= symbol_value(VV[52]);
	{object V217= (V210);
	if((V217!= VV[53]))goto T840;
	if(((V214))==Cnil){
	goto T841;}
	{object V219= cdr(cdr(cdr((V214))));
	if((type_of(V219)!=t_cons) && ((V214)!= Cnil))
	 FEwrong_type_argument(Scons,V219);
	V218= (V219->c.c_car);}
	{object V222= cdr(cdr(cdr((V214))));
	if((type_of(V222)!=t_cons) && ((V214)!= Cnil))
	 FEwrong_type_argument(Scons,V222);
	V221= (V222->c.c_car);}
	V220= get(V221,VV[51],Cnil);
	V223= (VFUN_NARGS=2,(*(LnkLI121))((V212),V220));
	(void)(sputprop(V218,VV[51],/* INLINE-ARGS */V223));
T841:;
	V216= Cnil;
	goto T839;
T840:;
	if((V217!= VV[148]))goto T847;
	if(!((car((V214)))==(Cnil))){
	goto T849;}
	V216= cdr((V214));
	goto T839;
T849:;
	V216= Cnil;
	goto T839;
T847:;
	if((V217!= VV[149]))goto T851;
	if(((V214))==Cnil){
	goto T853;}
	if((car((V214)))==(Cnil)){
	goto T853;}
	V216= make_cons(Cnil,(V214));
	goto T839;
T853:;
	V216= (V214);
	goto T839;
T851:;
	if((V217!= VV[150]))goto T857;
	if(((V214))==Cnil){
	goto T858;}
	base[2]= (V212);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk145)();
	vs_top=sup;
	princ_char(10,Cnil);
T858:;
	V216= (V214);
	goto T839;
T857:;
	V216= Cnil;}
T839:;
	(void)(aset1(V215,fixint((V212)),V216));}}
T833:;
	V212= one_plus((V212));
	goto T828;}
	}
}
/*	function definition for DISPLAY-ENV	*/

static L38()
{register object *base=vs_base;
	register object *sup=base+VM36; VC36
	vs_reserve(VM36);
	{register object V224;
	object V225;
	check_arg(2);
	V224=(base[0]);
	V225=(base[1]);
	vs_top=sup;
TTL:;
	{object V226;
	V226= reverse((V225));
T868:;
	if(!(type_of((V226))==t_cons)){
	goto T870;}
	base[2]= symbol_value(VV[74]);
	vs_top=(vs_base=base+2)+1;
	Lfill_pointer();
	vs_top=sup;
	V227= vs_base[0];
	if(!((fix(V227))>(fix((V224))))){
	goto T869;}
T870:;
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;
T869:;
	if(type_of(car((V226)))==t_cons){
	goto T880;}
	base[2]= Cnil;
	goto T879;
T880:;
	{object V228= cdar((V226));
	base[2]= (type_of(V228)==t_cons||(V228)==Cnil?Ct:Cnil);}
T879:;
	if(base[2]==Cnil)goto T878;
	goto T877;
T878:;
	base[3]= Cnil;
	vs_top=(vs_base=base+3)+1;
	return;
T877:;
	base[2]= symbol_value(VV[74]);
	base[3]= VV[75];
	base[4]= caar((V226));
	base[5]= cadar((V226));
	base[6]= cdr((V226));
	vs_top=(vs_base=base+2)+5;
	Lformat();
	vs_top=sup;
	V226= cdr((V226));
	goto T868;}
	}
}
/*	function definition for APPLY-DISPLAY-FUN	*/

static L39()
{register object *base=vs_base;
	register object *sup=base+VM37; VC37
	vs_reserve(VM37);
	bds_check;
	{object V229;
	object V230;
	object V231;
	check_arg(3);
	V229=(base[0]);
	V230=(base[1]);
	V231=(base[2]);
	vs_top=sup;
TTL:;
	bds_bind(VV[13],symbol_value(VV[10]));
	bds_bind(VV[11],symbol_value(VV[10]));
	bds_bind(VV[76],Cnil);
	bds_bind(VV[77],VV[78]);
	bds_bind(VV[12],Ct);
	base[8]= symbol_value(VV[74]);
	base[9]= small_fixnum(0);
	vs_top=(vs_base=base+8)+2;
	siLfill_pointer_set();
	vs_top=sup;
	base[8]= symbol_value(VV[74]);
	base[9]= VV[79];
	vs_top=(vs_base=base+8)+2;
	Lformat();
	vs_top=sup;
	(void)((
	(type_of((V229)) == t_sfun ?(*(object (*)())(((V229))->sfn.sfn_self)):
	(fcall.fun=((V229)),fcall.argd=2,fcalln))((V230),(V231))));
	base[8]= symbol_value(VV[74]);
	vs_top=(vs_base=base+8)+1;
	Lfill_pointer();
	vs_top=sup;
	V232= vs_base[0];
	if(!((fix(V232))>(fix((V230))))){
	goto T899;}
	base[8]= symbol_value(VV[74]);
	base[9]= (V230);
	vs_top=(vs_base=base+8)+2;
	siLfill_pointer_set();
	vs_top=sup;
	base[8]= symbol_value(VV[74]);
	base[9]= VV[80];
	vs_top=(vs_base=base+8)+2;
	Lformat();
	vs_top=sup;
T899:;
	base[8]= symbol_value(VV[74]);
	base[9]= VV[81];
	vs_top=(vs_base=base+8)+2;
	Lformat();
	vs_top=sup;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	base[3]= symbol_value(VV[74]);
	vs_top=(vs_base=base+3)+1;
	return;
	}
}
/*	function definition for GET-LINE-OF-FORM	*/

static L40()
{register object *base=vs_base;
	register object *sup=base+VM38; VC38
	vs_reserve(VM38);
	{object V233;
	object V234;
	check_arg(2);
	V233=(base[0]);
	V234=(base[1]);
	vs_top=sup;
TTL:;
	{object V235;
	V235= (VFUN_NARGS=2,(*(LnkLI140))((V233),(V234)));
	if(((V235))==Cnil){
	goto T913;}
	V236= aref1((V234),0);
	base[2]= make_fixnum((fix((V235)))+(fix(cdr(/* INLINE-ARGS */V236))));
	vs_top=(vs_base=base+2)+1;
	return;
T913:;
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;}
	}
}
/*	function definition for GET-NEXT-VISIBLE-FUN	*/

static L41()
{register object *base=vs_base;
	register object *sup=base+VM39; VC39
	vs_reserve(VM39);
	{object V237;
	check_arg(1);
	V237=(base[0]);
	vs_top=sup;
TTL:;
	{object V238;
	V238= (V237);
T917:;
	if(!((fix((V238)))<(fix(symbol_value(VV[82]))))){
	goto T918;}
	{object V239;
	V239= Cnil;
	(void)((MVloc[(0)]=((V238))));
	base[1]= (V239);
	vs_top=(vs_base=base+1)+1;
	return;}
T918:;
	{object V240;
	base[1]= (V238);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk137)();
	vs_top=sup;
	V240= vs_base[0];
	{object V241;
	base[1]= (V240);
	vs_top=(vs_base=base+1)+1;
	Lspecial_form_p();
	vs_top=sup;
	V241= vs_base[0];
	if(((V241))==Cnil){
	goto T930;}
	goto T924;
T930:;
	{object V242;
	V242= get((V240),VV[83],Cnil);
	if(((V242))==Cnil){
	goto T934;}
	goto T924;
T934:;
	base[1]= (V240);
	vs_top=(vs_base=base+1)+1;
	Lfboundp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T924;}
	{object V243;
	V243= (V240);
	(void)((MVloc[(0)]=((V238))));
	base[1]= (V243);
	vs_top=(vs_base=base+1)+1;
	return;}}}}
T924:;
	V238= make_fixnum((fix((V238)))-(1));
	goto T917;}
	}
}
/*	function definition for DBL-WHAT-FRAME	*/

static L42()
{register object *base=vs_base;
	register object *sup=base+VM40; VC40
	vs_reserve(VM40);
	{register int V244;
	check_arg(1);
	V244=fix(base[0]);
	vs_top=sup;
TTL:;
	{int V245;
	int V246;
	object V247;
	V245= fix(symbol_value(VV[84]));
	V246= 0;
	V247= Cnil;
T948:;
	{object V248;
	base[1]= make_fixnum(V245);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk151)();
	vs_top=sup;
	V247= vs_base[0];
	V248= (V247);
	V245= fix((MVloc[(0)]));}
	if(!((V245)<=(V244))){
	goto T956;}
	base[1]= make_fixnum(V246);
	vs_top=(vs_base=base+1)+1;
	return;
T956:;
	V246= (V246)+(1);
	V245= (V245)-(1);
	goto T948;}
	}
}
/*	function definition for DBL-UP	*/

static L43()
{register object *base=vs_base;
	register object *sup=base+VM41; VC41
	vs_reserve(VM41);
	{register object V249;
	object V250;
	check_arg(2);
	V249=(base[0]);
	V250=(base[1]);
	vs_top=sup;
TTL:;
	{object V251;
	object V252;
	object V253;
	object V254;
	object V255;
	V251= Cnil;
	V252= Cnil;
	V253= Cnil;
	V254= Cnil;
	V255= Cnil;
	base[2]= (V250);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk152)();
	vs_top=sup;
	V251= vs_base[0];
	if(!((fix((V249)))>=(0))){
	goto T972;}
	{object V256;
	base[2]= (V249);
	base[3]= (V250);
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk153)();
	vs_top=sup;
	setq(VV[9],vs_base[0]);
	V256= symbol_value(VV[9]);
	V249= (MVloc[(0)]);
	V252= (MVloc[(1)]);
	V253= (MVloc[(2)]);
	V254= (MVloc[(3)]);
	V255= (MVloc[(4)]);}
	(void)((*(LnkLI154))());
	base[2]= make_fixnum((fix((V251)))+(fix((V249))));
	base[3]= Ct;
	base[4]= symbol_value(VV[9]);
	base[5]= (V252);
	base[6]= (V253);
	base[7]= (V254);
	base[8]= (V255);
	vs_top=(vs_base=base+2)+7;
	(void) (*Lnk155)();
	return;
T972:;
	V249= make_fixnum((fix((V251)))+(fix((V249))));
	if(!((fix((V249)))>=(0))){
	goto T1000;}
	goto T999;
T1000:;
	V249= small_fixnum(0);
T999:;
	V250= symbol_value(VV[84]);
	goto TTL;}
	}
}
/*	function definition for NEXT-STACK-FRAME	*/

static L44()
{register object *base=vs_base;
	register object *sup=base+VM42; VC42
	vs_reserve(VM42);
	{object V257;
	check_arg(1);
	V257=(base[0]);
	vs_top=sup;
TTL:;
	{object V258;
	object V259;
	object V260;
	object V261;
	object V262;
	V258= Cnil;
	V259= Cnil;
	V260= Cnil;
	V261= Cnil;
	V262= Cnil;
	if(!((fix((V257)))<(fix(symbol_value(VV[82]))))){
	goto T1012;}
	{object V263;
	V263= Cnil;
	(void)((MVloc[(0)]=(Cnil)));
	(void)((MVloc[(1)]=(Cnil)));
	(void)((MVloc[(2)]=(Cnil)));
	(void)((MVloc[(3)]=(Cnil)));
	base[1]= (V263);
	vs_top=(vs_base=base+1)+1;
	return;}
T1012:;
	{object V264;
	V264= Cnil;
	{object V265;
	base[1]= (V257);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk151)();
	vs_top=sup;
	V264= vs_base[0];
	V265= (V264);
	V260= (MVloc[(0)]);}
	V262= (V264);
	{object V266;
	V258= get((V264),VV[48],Cnil);
	if(((V258))!=Cnil){
	goto T1029;}
	V266= Cnil;
	goto T1028;
T1029:;
	{object V267;
	object V268;
	V267= make_fixnum((fix((V257)))+(1));
	V268= Cnil;
T1035:;
	if(!(number_compare((V267),(V260))<=0)){
	goto T1036;}
	V266= Cnil;
	goto T1028;
T1036:;
	base[1]= (V267);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk112)();
	vs_top=sup;
	V268= vs_base[0];
	base[2]= (V267);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk112)();
	vs_top=sup;
	base[1]= vs_base[0];
	base[2]= (V258);
	vs_top=(vs_base=base+1)+2;
	(void) (*Lnk156)();
	vs_top=sup;
	V259= vs_base[0];
	if(((V259))==Cnil){
	goto T1043;}
	{object V269;
	V269= (V260);
	(void)((MVloc[(0)]=((V264))));
	(void)((MVloc[(1)]=((V259))));
	V270= aref1((V258),0);
	(void)((MVloc[(2)]=(car(/* INLINE-ARGS */V270))));
	base[2]= (V267);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	V261= vs_base[0];
	base[1]= (V261);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V271= vs_base[0];
	base[1]= one_plus((V261));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V272= vs_base[0];
	base[1]= number_plus((V261),small_fixnum(2));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V273= vs_base[0];
	V274= list(3,V271,V272,V273);
	(void)((MVloc[(3)]=(/* INLINE-ARGS */V274)));
	base[1]= (V269);
	vs_top=(vs_base=base+1)+1;
	return;}
T1043:;
	V267= make_fixnum((fix((V267)))-(1));
	goto T1035;}
T1028:;
	if(((V266))==Cnil){
	goto T1067;}
	base[1]= (V266);
	vs_top=(vs_base=base+1)+1;
	return;
T1067:;
	base[1]= (V262);
	vs_top=(vs_base=base+1)+1;
	Lspecial_form_p();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1070;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
T1070:;
	{object V275;
	V275= get((V262),VV[83],Cnil);
	if(((V275))==Cnil){
	goto T1075;}
	base[1]= (V275);
	vs_top=(vs_base=base+1)+1;
	return;
T1075:;
	base[1]= (V262);
	vs_top=(vs_base=base+1)+1;
	Lfboundp();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1078;}
	{object V276;
	V276= (V260);
	(void)((MVloc[(0)]=((V262))));
	(void)((MVloc[(1)]=(Cnil)));
	(void)((MVloc[(2)]=(Cnil)));
	base[1]= (V260);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk157)();
	vs_top=sup;
	if((vs_base[0])==Cnil){
	goto T1088;}
	V277= Cnil;
	goto T1086;
T1088:;
	{object V278;
	base[1]= (V260);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	V278= vs_base[0];
	base[1]= (V278);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V279= vs_base[0];
	base[1]= one_plus((V278));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V280= vs_base[0];
	base[1]= make_fixnum((fix((V278)))+(2));
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V281= vs_base[0];
	V277= list(3,V279,V280,V281);}
T1086:;
	(void)((MVloc[(3)]=(V277)));
	base[1]= (V276);
	vs_top=(vs_base=base+1)+1;
	return;}
T1078:;
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;}}}}
	}
}
/*	function definition for NTH-STACK-FRAME	*/

static L45()
{register object *base=vs_base;
	register object *sup=base+VM43; VC43
	vs_reserve(VM43);
	{register object V282;
	register object V283;
	if(vs_top-vs_base<1) too_few_arguments();
	if(vs_top-vs_base>2) too_many_arguments();
	V282=(base[0]);
	vs_base=vs_base+1;
	if(vs_base>=vs_top){vs_top=sup;goto T1099;}
	V283=(base[1]);
	vs_top=sup;
	goto T1100;
T1099:;
	V283= symbol_value(VV[84]);
T1100:;
	{object V284;
	object V285;
	object V286;
	object V287;
	object V288;
	V284= Cnil;
	V285= Cnil;
	V286= Cnil;
	V287= Cnil;
	V288= Cnil;
	if(!((fix((V282)))>=(0))){
	goto T1108;}
	goto T1107;
T1108:;
	V282= small_fixnum(0);
T1107:;
	{object V289;
	object V290;
	V289= make_fixnum((fix((V282)))+(1));
	V290= small_fixnum(0);
T1115:;
	if(!(number_compare((V290),(V289))>=0)){
	goto T1116;}
	goto T1111;
T1116:;
	base[2]= (V283);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk158)();
	vs_top=sup;
	V288= vs_base[0];
	if(((V288))==Cnil){
	goto T1125;}
	{object V291;
	V283= (V288);
	V291= (V283);
	V284= (MVloc[(0)]);
	V285= (MVloc[(1)]);
	V286= (MVloc[(2)]);
	V287= (MVloc[(3)]);}
	V283= make_fixnum((fix((V288)))-(1));
	goto T1123;
T1125:;
	V282= make_fixnum((fix((V290)))-(1));
	goto T1111;
T1123:;
	V290= one_plus((V290));
	goto T1115;}
T1111:;
	V283= make_fixnum((fix((V283)))+(1));
	base[2]= (V283);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk137)();
	vs_top=sup;
	V284= vs_base[0];
	{object V292;
	V292= (V283);
	(void)((MVloc[(0)]=((V282))));
	(void)((MVloc[(1)]=((V284))));
	(void)((MVloc[(2)]=((V285))));
	(void)((MVloc[(3)]=((V286))));
	(void)((MVloc[(4)]=((V287))));
	base[2]= (V292);
	vs_top=(vs_base=base+2)+1;
	return;}}
	}
}
/*	function definition for DBL-BACKTRACE	*/

static L46()
{register object *base=vs_base;
	register object *sup=base+VM44; VC44
	vs_reserve(VM44);
	{object V293;
	register object V294;
	if(vs_top-vs_base>2) too_many_arguments();
	if(vs_base>=vs_top){vs_top=sup;goto T1154;}
	V293=(base[0]);
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T1155;}
	V294=(base[1]);
	vs_top=sup;
	goto T1156;
T1154:;
	V293= small_fixnum(1000);
T1155:;
	V294= symbol_value(VV[84]);
T1156:;
	{object V295;
	object V296;
	object V297;
	object V298;
	object V299;
	V295= Cnil;
	V296= Cnil;
	V297= Cnil;
	V298= Cnil;
	V299= small_fixnum(0);
T1166:;
	{object V300;
	base[2]= (V294);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk158)();
	vs_top=sup;
	V294= vs_base[0];
	V300= (V294);
	V295= (MVloc[(0)]);
	V297= (MVloc[(1)]);
	V296= (MVloc[(2)]);
	V298= (MVloc[(3)]);}
	if((V295)!=Cnil){
	goto T1180;}
	goto T1164;
T1180:;
	base[2]= (V299);
	base[3]= Cnil;
	base[4]= (V294);
	base[5]= (V295);
	base[6]= (V297);
	base[7]= (V296);
	base[8]= (V298);
	vs_top=(vs_base=base+2)+7;
	(void) (*Lnk155)();
	vs_top=sup;
	V299= number_plus((V299),small_fixnum(1));
	if(!((fix((V299)))>=(fix((V293))))){
	goto T1191;}
	vs_base=vs_top=base+2;
	vs_base[0]=Cnil;
	vs_top=sup;
	goto T1164;
T1191:;
	V294= make_fixnum((fix((V294)))-(1));
	goto T1166;
T1164:;
	vs_base=vs_top=base+2;
	vs_base[0]=Cnil;
	return;}
	}
}
/*	function definition for DISPLAY-COMPILED-ENV	*/

static L47()
{register object *base=vs_base;
	register object *sup=base+VM45; VC45
	vs_reserve(VM45);
	{register object V301;
	object V302;
	check_arg(2);
	V301=(base[0]);
	V302=(base[1]);
	vs_top=sup;
TTL:;
	{object V303;
	object V304;
	base[2]= (V302);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	V303= vs_base[0];
	base[2]= one_plus((V302));
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	V305= vs_base[0];
	vs_base=vs_top;
	(void) (*Lnk159)();
	vs_top=sup;
	V306= vs_base[0];
	V304= (number_compare(V305,V306)<=0?(V305):V306);
	base[2]= symbol_value(VV[74]);
	base[3]= VV[85];
	vs_top=(vs_base=base+2)+2;
	Lformat();
	vs_top=sup;
	{object V307;
	object V308;
	V307= (V303);
	base[2]= (V302);
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk137)();
	vs_top=sup;
	V309= vs_base[0];
	V308= get(V309,VV[14],Cnil);
T1210:;
	if((fix((V307)))>=(fix((V304)))){
	goto T1212;}
	base[2]= symbol_value(VV[74]);
	vs_top=(vs_base=base+2)+1;
	Lfill_pointer();
	vs_top=sup;
	V310= vs_base[0];
	if(!((fix(V310))>(fix((V301))))){
	goto T1211;}
T1212:;
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;
T1211:;
	base[2]= symbol_value(VV[74]);
	base[3]= VV[86];
	base[5]= car((V308));
	if(base[5]==Cnil)goto T1223;
	base[4]= base[5];
	goto T1222;
T1223:;
	base[4]= VV[87];
T1222:;
	if((car((V308)))!=Cnil){
	goto T1227;}
	base[5]= make_fixnum((fix((V307)))-(fix((V303))));
	goto T1225;
T1227:;
	base[5]= Cnil;
T1225:;
	base[7]= (V307);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	base[6]= vs_base[0];
	V307= make_fixnum((fix((V307)))+(1));
	base[7]= ((fix((V307)))<(fix((V304)))?Ct:Cnil);
	vs_top=(vs_base=base+2)+6;
	Lformat();
	vs_top=sup;
	V308= cdr((V308));
	goto T1210;}}
	}
}
/*	function definition for COMPUTING-ARGS-P	*/

static L48()
{register object *base=vs_base;
	register object *sup=base+VM46; VC46
	vs_reserve(VM46);
	{object V311;
	check_arg(1);
	V311=(base[0]);
	vs_top=sup;
TTL:;
	base[1]= (V311);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk112)();
	vs_top=sup;
	V312= vs_base[0];
	if(type_of(V312)==t_cons){
	goto T1236;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
T1236:;
	if(number_compare((V311),small_fixnum(3))>0){
	goto T1240;}
	base[1]= Cnil;
	vs_top=(vs_base=base+1)+1;
	return;
T1240:;
	base[1]= (V311);
	vs_top=(vs_base=base+1)+1;
	(void) (*Lnk112)();
	vs_top=sup;
	V315= vs_base[0];
	{register object x= car(V315),V314= VV[88];
	while(!endp(V314))
	if(eql(x,V314->c.c_car)){
	V313= V314;
	goto T1242;
	}else V314=V314->c.c_cdr;
	V313= Cnil;}
T1242:;
	base[1]= ((V313)==Cnil?Ct:Cnil);
	vs_top=(vs_base=base+1)+1;
	return;
	}
}
/*	function definition for PRINT-STACK-FRAME	*/

static L49()
{register object *base=vs_base;
	register object *sup=base+VM47; VC47
	vs_reserve(VM47);
	{object V316;
	object V317;
	register object V318;
	object V319;
	object V320;
	object V321;
	object V322;
	if(vs_top-vs_base<4) too_few_arguments();
	if(vs_top-vs_base>7) too_many_arguments();
	V316=(base[0]);
	V317=(base[1]);
	V318=(base[2]);
	V319=(base[3]);
	vs_base=vs_base+4;
	if(vs_base>=vs_top){vs_top=sup;goto T1245;}
	V320=(base[4]);
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T1246;}
	V321=(base[5]);
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T1247;}
	V322=(base[6]);
	vs_top=sup;
	goto T1248;
T1245:;
	V320= Cnil;
T1246:;
	V321= Cnil;
T1247:;
	V322= Cnil;
T1248:;
	if(((V317))==Cnil){
	goto T1252;}
	if(((V320))==Cnil){
	goto T1252;}
	base[7]= symbol_value(VV[1]);
	base[8]= VV[89];
	base[9]= (V321);
	base[10]= (V320);
	vs_top=(vs_base=base+7)+4;
	Lformat();
	vs_top=sup;
T1252:;
	{object V323;
	base[7]= (V318);
	vs_top=(vs_base=base+7)+1;
	(void) (*Lnk160)();
	vs_top=sup;
	V323= vs_base[0];
	base[7]= symbol_value(VV[1]);
	base[8]= VV[90];
	base[9]= (V316);
	if((V323)==Cnil){
	base[10]= Cnil;
	goto T1267;}
	base[10]= VV[91];
T1267:;
	base[11]= (V319);
	base[13]= (V318);
	vs_top=(vs_base=base+13)+1;
	(void) (*Lnk157)();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1271;}
	base[13]= VV[92];
	base[14]= small_fixnum(80);
	base[17]= (V318);
	vs_top=(vs_base=base+17)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	base[16]= vs_base[0];
	vs_top=(vs_base=base+16)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V324= vs_base[0];
	base[15]= car(V324);
	vs_top=(vs_base=base+13)+3;
	(void) (*Lnk161)();
	vs_top=sup;
	base[12]= vs_base[0];
	goto T1269;
T1271:;
	base[13]= VV[93];
	base[14]= small_fixnum(80);
	base[15]= (V318);
	vs_top=(vs_base=base+13)+3;
	(void) (*Lnk161)();
	vs_top=sup;
	base[12]= vs_base[0];
T1269:;
	vs_top=(vs_base=base+7)+6;
	Lformat();
	vs_top=sup;
	if(((V321))==Cnil){
	goto T1283;}
	base[7]= symbol_value(VV[1]);
	base[8]= VV[94];
	base[9]= (V321);
	base[10]= (V320);
	vs_top=(vs_base=base+7)+4;
	Lformat();
	vs_top=sup;
T1283:;
	base[7]= symbol_value(VV[1]);
	base[8]= VV[95];
	base[9]= (V318);
	vs_top=(vs_base=base+7)+3;
	Lformat();
	return;}
	}
}
/*	function definition for MAKE-BREAK-POINT	*/

static L50()
{register object *base=vs_base;
	register object *sup=base+VM48; VC48
	vs_reserve(VM48);
	{object V325;
	object V326;
	object V327;
	check_arg(3);
	V325=(base[0]);
	V326=(base[1]);
	V327=(base[2]);
	vs_top=sup;
TTL:;
	V328= aref1((V326),fixint((V327)));
	V329= aref1((V326),0);
	V330= car(/* INLINE-ARGS */V329);
	V331= aref1((V326),0);
	V332 = make_fixnum((fix(cdr(/* INLINE-ARGS */V331)))+(fix((V327))));
	base[3]= list(4,/* INLINE-ARGS */V328,/* INLINE-ARGS */V330,V332,(V325));
	vs_top=(vs_base=base+3)+1;
	return;
	}
}
/*	function definition for RELATIVE-LINE	*/

static L51()
{register object *base=vs_base;
	register object *sup=base+VM49; VC49
	vs_reserve(VM49);
	{object V333;
	object V334;
	check_arg(2);
	V333=(base[0]);
	V334=(base[1]);
	vs_top=sup;
TTL:;
	{object V335;
	V335= get((V333),VV[48],Cnil);
	if(((V335))==Cnil){
	goto T1295;}
	V336= aref1((V335),0);
	base[2]= make_fixnum((fix((V334)))-(fix(cdr(/* INLINE-ARGS */V336))));
	vs_top=(vs_base=base+2)+1;
	return;
T1295:;
	base[2]= small_fixnum(0);
	vs_top=(vs_base=base+2)+1;
	return;}
	}
}
/*	function definition for SAFE-EVAL	*/

static L52()
{register object *base=vs_base;
	register object *sup=base+VM50; VC50
	vs_reserve(VM50);
	bds_check;
	{register object V337;
	object V338;
	check_arg(2);
	V337=(base[0]);
	V338=(base[1]);
	vs_top=sup;
TTL:;
	bds_bind(VV[96],Cnil);
	bds_bind(VV[97],symbol_value(VV[98]));
	bds_bind(VV[1],symbol_value(VV[98]));
	if(!(type_of((V337))==t_symbol)){
	goto T1297;}
	base[5]= (V337);
	vs_top=(vs_base=base+5)+1;
	Lboundp();
	vs_top=sup;
	if((vs_base[0])!=Cnil){
	goto T1297;}
	{register object x= (V337),V339= car((V338));
	while(!endp(V339))
	if(type_of(V339->c.c_car)==t_cons &&eql(x,V339->c.c_car->c.c_car)){
	goto T1297;
	}else V339=V339->c.c_cdr;}
	base[5]= VV[99];
	vs_top=(vs_base=base+5)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
T1297:;
	{object V340;
	object V341;
	V342= list(2,VV[101],(V337));
	base[5]= list(5,VV[100],/* INLINE-ARGS */V342,Cnil,Cnil,list(2,VV[101],(V338)));
	vs_top=(vs_base=base+5)+1;
	siLerror_set();
	if(vs_base>=vs_top){vs_top=sup;goto T1307;}
	V340= vs_base[0];
	vs_base++;
	if(vs_base>=vs_top){vs_top=sup;goto T1308;}
	V341= vs_base[0];
	vs_top=sup;
	goto T1309;
T1307:;
	V340= Cnil;
T1308:;
	V341= Cnil;
T1309:;
	if(((V340))==Cnil){
	goto T1311;}
	base[5]= VV[99];
	vs_top=(vs_base=base+5)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;
T1311:;
	base[5]= (V341);
	vs_top=(vs_base=base+5)+1;
	bds_unwind1;
	bds_unwind1;
	bds_unwind1;
	return;}
	}
}
/*	function definition for SET-BACK	*/

static L53()
{register object *base=vs_base;
	register object *sup=base+VM51; VC51
	vs_reserve(VM51);
	{register object V343;
	register object V344;
	check_arg(2);
	V343=(base[0]);
	V344=(base[1]);
	vs_top=sup;
TTL:;
	{object V345;
	V345= symbol_value(VV[9]);
	setq(VV[102],Cnil);
	setq(VV[9],(V345));
	if(((V344))==Cnil){
	goto T1320;}
	setq(VV[0],(V344));
	goto T1318;
T1320:;
	base[3]= (V345);
	vs_top=(vs_base=base+3)+1;
	(void) (*Lnk108)();
	vs_top=sup;
	base[2]= vs_base[0];
	vs_top=(vs_base=base+2)+1;
	(void) (*Lnk109)();
	vs_top=sup;
	V346= vs_base[0];
	(void)(make_cons(V346,Cnil));
T1318:;
	if(((V343))==Cnil){
	goto T1326;}
	base[2]= symbol_value(VV[1]);
	base[3]= VV[103];
	base[4]= cadr((V343));
	base[5]= caddr((V343));
	vs_top=(vs_base=base+2)+4;
	Lformat();
	vs_top=sup;
	base[2]= symbol_value(VV[1]);
	base[3]= VV[104];
	base[4]= cadr((V343));
	base[5]= caddr((V343));
	vs_top=(vs_base=base+2)+4;
	Lformat();
	vs_top=sup;
T1326:;
	{object V347;
	object V348;
	V347= symbol_value(VV[105]);
	V348= car((V347));
T1341:;
	if(!(endp((V347)))){
	goto T1342;}
	base[2]= Cnil;
	vs_top=(vs_base=base+2)+1;
	return;
T1342:;
	{object V349;
	base[2]= (V348);
	base[3]= (V344);
	vs_top=(vs_base=base+2)+2;
	(void) (*Lnk162)();
	vs_top=sup;
	V349= vs_base[0];
	if(!(((V349))==(VV[99]))){
	goto T1350;}
	goto T1346;
T1350:;
	base[3]= Ct;
	base[4]= VV[106];
	base[5]= (V348);
	base[6]= (V349);
	vs_top=(vs_base=base+3)+4;
	Lformat();
	vs_top=sup;}
T1346:;
	V347= cdr((V347));
	V348= car((V347));
	goto T1341;}}
	}
}
static LnkT162(){ call_or_link(VV[162],&Lnk162);} /* SAFE-EVAL */
static LnkT161(){ call_or_link(VV[161],&Lnk161);} /* APPLY-DISPLAY-FUN */
static LnkT160(){ call_or_link(VV[160],&Lnk160);} /* COMPUTING-ARGS-P */
static LnkT159(){ call_or_link(VV[159],&Lnk159);} /* VS-TOP */
static LnkT158(){ call_or_link(VV[158],&Lnk158);} /* NEXT-STACK-FRAME */
static LnkT157(){ call_or_link(VV[157],&Lnk157);} /* IHS-NOT-INTERPRETED-ENV */
static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* GET-LINE-OF-FORM */
static LnkT155(){ call_or_link(VV[155],&Lnk155);} /* PRINT-STACK-FRAME */
static object  LnkTLI154(){return call_proc0(VV[154],&LnkLI154);} /* SET-ENV */
static LnkT153(){ call_or_link(VV[153],&Lnk153);} /* NTH-STACK-FRAME */
static LnkT152(){ call_or_link(VV[152],&Lnk152);} /* DBL-WHAT-FRAME */
static LnkT151(){ call_or_link(VV[151],&Lnk151);} /* GET-NEXT-VISIBLE-FUN */
static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* RELATIVE-LINE */
static LnkT146(){ call_or_link(VV[146],&Lnk146);} /* SHORT-NAME */
static LnkT145(){ call_or_link(VV[145],&Lnk145);} /* SHOW-BREAK-POINT */
static LnkT144(){ call_or_link(VV[144],&Lnk144);} /* INSERT-BREAK-POINT */
static LnkT143(){ call_or_link(VV[143],&Lnk143);} /* BREAK-FUNCTION */
static LnkT142(){ call_or_link(VV[142],&Lnk142);} /* DWIM */
static LnkT141(){ call_or_link(VV[141],&Lnk141);} /* MAYBE-BREAK */
static object  LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[140],&LnkLI140,ap);} /* POSITION */
static LnkT139(){ call_or_link(VV[139],&Lnk139);} /* CURRENT-STEP-FUN */
static LnkT138(){ call_or_link(VV[138],&Lnk138);} /* INIT-BREAK-POINTS */
static LnkT137(){ call_or_link(VV[137],&Lnk137);} /* IHS-FNAME */
static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* STREAM-NAME */
static LnkT135(){ call_or_link(VV[135],&Lnk135);} /* ITERATE-OVER-BKPTS */
static LnkT134(){ call_or_link(VV[134],&Lnk134);} /* MAKE-BREAK-POINT */
static object  LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[133],&LnkLI133,ap);} /* MAKE-ARRAY */
static LnkT132(){ call_or_link(VV[132],&Lnk132);} /* WALK-THROUGH */
static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[131],&LnkLI131,ap);} /* VECTOR-PUSH-EXTEND */
static LnkT130(){ call_or_link(VV[130],&Lnk130);} /* INSTREAM-NAME */
static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* SETUP-LINEINFO */
static LnkT128(){ call_or_link(VV[128],&Lnk128);} /* CLEANUP */
static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* READ-FROM-STRING */
static object  LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[124],&LnkLI124,ap);} /* COUNT */
static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* GET-INSTREAM */
static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* MAKE-INSTREAM */
static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],&LnkLI121,ap);} /* DELETE */
static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* CLOSEDP */
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* BREAK-LEVEL */
static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,1,ap);} /* SHOW-ENVIRONMENT */
static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* BREAK-LOCALS */
static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* BREAK-GO */
static object  LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[114],&LnkLI114,ap);} /* SEARCH */
static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* COMPILED-FUNCTION-NAME */
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* IHS-FUN */
static object  LnkTLI111(){return call_proc0(VV[111],&LnkLI111);} /* TYPE-ERROR */
static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* IHS-TOP */
static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* VS */
static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* IHS-VS */
static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* BREAK-PREVIOUS */

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