This is top.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "top.h"
init_top(){do_init(VV);}
/* local entry for function TOP-LEVEL */
static object LI1()
{ VMB1 VMS1 VMV1
bds_check;
TTL:;
bds_bind(VV[0],Cnil);
bds_bind(VV[1],Cnil);
bds_bind(VV[2],Cnil);
bds_bind(VV[3],Cnil);
bds_bind(VV[4],Cnil);
bds_bind(VV[5],Cnil);
bds_bind(VV[6],Cnil);
bds_bind(VV[7],Cnil);
bds_bind(VV[8],Cnil);
bds_bind(VV[9],Cnil);
setq(VV[10],Ct);
frs_push(FRS_CATCH,symbol_value(VV[11]));
if(nlj_active)
{nlj_active=FALSE;frs_pop();
vs_top=sup;
goto T3;}
else{
{object V1;
base[10]= symbol_value(VV[12]);
base[11]= VV[13];
vs_top=(vs_base=base+10)+2;
(void) (*Lnk119)();
vs_top=sup;
V1= vs_base[0];
base[10]= (V1);
vs_top=(vs_base=base+10)+1;
Lprobe_file();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T5;}
base[10]= (V1);
base[11]= VV[14];
base[12]= Cnil;
vs_top=(vs_base=base+10)+3;
Lload();
vs_top=sup;}
T5:;
if((symbol_value(VV[15]))==Cnil){
goto T17;}
setq(VV[15],Cnil);
goto T15;
T17:;
base[10]= VV[16];
vs_top=(vs_base=base+10)+1;
Lprobe_file();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T15;}
base[10]= VV[17];
vs_top=(vs_base=base+10)+1;
Lload();
vs_top=sup;
T15:;
base[10]= symbol_value(VV[18]);
vs_top=(vs_base=base+10)+1;
Lfunctionp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T24;}
frs_pop();
goto T3;
T24:;
V2= (
(type_of(symbol_value(VV[18])) == t_sfun ?(*(object (*)())((symbol_value(VV[18]))->sfn.sfn_self)):
(fcall.fun=(symbol_value(VV[18])),fcall.argd=0,fcalln))());
frs_pop();}
T3:;
T28:;
(VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
(VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
(VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
if((symbol_value(VV[19]))==Cnil){
goto T38;}
setq(VV[19],Cnil);
goto T36;
T38:;
base[10]= Ct;
base[11]= VV[20];{object V3;
V3= symbol_value(VV[21]);
base[13]= VV[22];
vs_top=(vs_base=base+13)+1;
Lfind_package();
vs_top=sup;
V4= vs_base[0];
if(!((V3)==(V4))){
goto T45;}}
base[12]= VV[23];
goto T43;
T45:;
base[13]= symbol_value(VV[21]);
vs_top=(vs_base=base+13)+1;
Lpackage_name();
vs_top=sup;
base[12]= vs_base[0];
T43:;
vs_top=(vs_base=base+10)+3;
Lformat();
vs_top=sup;
T36:;
vs_base=vs_top;
siLreset_stack_limits();
vs_top=sup;
if((symbol_value(VV[15]))==Cnil){
goto T51;}
{object V5 = Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR1(V5)}
T51:;
frs_push(FRS_CATCH,symbol_value(VV[11]));
if(nlj_active)
{nlj_active=FALSE;frs_pop();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T29;}
goto T55;}
else{
base[10]= symbol_value(VV[24]);
base[11]= Cnil;
base[12]= symbol_value(VV[25]);
(VV[3]->s.s_dbind)= simple_symlispcall(VV[120],base+10,3);
if(!(((VV[3]->s.s_dbind))==(symbol_value(VV[25])))){
goto T62;}
vs_base=vs_top;
Lby();
vs_top=sup;
T62:;
{object V6;
base[10]= (VV[3]->s.s_dbind);
symlispcall(VV[121],base+10,1);
Llist();
vs_top=sup;
V6= vs_base[0];
(VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
(VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
(VV[7]->s.s_dbind)= (V6);
(VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
(VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
(VV[4]->s.s_dbind)= car((VV[7]->s.s_dbind));
vs_base=vs_top;
Lfresh_line();
vs_top=sup;
{object V7;
object V8;
V7= (VV[7]->s.s_dbind);
V8= car((V7));
T85:;
if(!(endp((V7)))){
goto T86;}
goto T81;
T86:;
base[10]= (V8);
(void)simple_symlispcall(VV[122],base+10,1);
princ_char(10,Cnil);
V7= cdr((V7));
V8= car((V7));
goto T85;}
T81:;
frs_pop();
goto T29;}}
T55:;
setq(VV[26],Cnil);
setq(VV[27],Cnil);
princ_char(10,VV[28]);
vs_base=vs_top;
(void) (*Lnk123)();
vs_top=sup;
T29:;
goto T28;
}
/* function definition for DBL-READ */
static L2()
{register object *base=vs_base;
register object *sup=base+VM2; VC2
vs_reserve(VM2);
{register object V9;
register object V10;
register object V11;
if(vs_top-vs_base>3) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T104;}
V9=(base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T105;}
V10=(base[1]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T106;}
V11=(base[2]);
vs_top=sup;
goto T107;
T104:;
V9= symbol_value(VV[24]);
T105:;
V10= Ct;
T106:;
V11= Cnil;
T107:;
{object V12;
object V13;
V12= Cnil;
V13= Cnil;
T115:;
base[3]= (V9);
base[4]= (V10);
base[5]= (V11);
vs_top=(vs_base=base+3)+3;
Lread_char();
vs_top=sup;
V13= vs_base[0];
if(!(eql((V13),VV[29]))){
goto T123;}
goto T115;
T123:;
if(!(((V13))==((V11)))){
goto T121;}
base[3]= (V11);
vs_top=(vs_base=base+3)+1;
return;
T121:;
base[3]= (V13);
base[4]= (V9);
vs_top=(vs_base=base+3)+2;
Lunread_char();
vs_top=sup;
goto T113;
T113:;
if(!(eql(VV[30],(V13)))){
goto T131;}
base[3]= VV[31];
base[5]= (V9);
base[6]= (V10);
base[7]= (V11);
vs_top=(vs_base=base+5)+3;
Lread_line();
vs_top=sup;
base[4]= vs_base[0];
base[5]= VV[32];
vs_top=(vs_base=base+3)+3;
(void) (*Lnk119)();
vs_top=sup;
V12= vs_base[0];
base[4]= (V12);
vs_top=(vs_base=base+4)+1;
(void) (*Lnk124)();
vs_top=sup;
base[3]= vs_base[0];
base[4]= (V10);
base[5]= (V11);
vs_top=(vs_base=base+3)+3;
Lread();
return;
T131:;
base[3]= (V9);
base[4]= (V10);
base[5]= (V11);
vs_top=(vs_base=base+3)+3;
Lread();
return;}
}
}
/* function definition for BREAK-LEVEL */
static L3()
{register object *base=vs_base;
register object *sup=base+VM3; VC3
vs_reserve(VM3);
bds_check;
{object V14;
object V15;
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
V14=(base[0]);
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T148;}
V15=(base[1]);
vs_top=sup;
goto T149;
T148:;
V15= Cnil;
T149:;
{object V16;
if(!(type_of((V14))==t_string)){
goto T153;}
bds_bind(VV[33],(V14));
goto T151;
T153:;
bds_bind(VV[33],symbol_value(VV[33]));
T151:;
V17= make_cons(symbol_value(VV[35]),symbol_value(VV[11]));
bds_bind(VV[34],make_cons(/* INLINE-ARGS */V17,symbol_value(VV[34])));
bds_bind(VV[11],make_cons(Cnil,Cnil));
if(((V14))!=Cnil){
goto T159;}
bds_bind(VV[35],symbol_value(VV[35]));
goto T157;
T159:;
bds_bind(VV[35],make_cons(Ct,symbol_value(VV[35])));
T157:;
bds_bind(VV[36],one_plus(symbol_value(VV[37])));
vs_base=vs_top;
(void) (*Lnk125)();
vs_top=sup;
V18= vs_base[0];
bds_bind(VV[37],one_minus(V18));
bds_bind(VV[38],(VV[37]->s.s_dbind));
base[11]= symbol_value(VV[40]);
base[12]= (VV[36]->s.s_dbind);
vs_top=(vs_base=base+11)+2;
(void) (*Lnk126)();
vs_top=sup;
base[10]= vs_base[0];
if(base[10]==Cnil)goto T165;
bds_bind(VV[39],base[10]);
goto T164;
T165:;
vs_base=vs_top;
(void) (*Lnk127)();
vs_top=sup;
V19= vs_base[0];
bds_bind(VV[39],one_plus(V19));
T164:;
vs_base=vs_top;
(void) (*Lnk127)();
vs_top=sup;
bds_bind(VV[40],vs_base[0]);
bds_bind(VV[41],Cnil);
V16= symbol_value(VV[42]);
if(!(type_of((V14))==t_string)){
goto T174;}
bds_bind(VV[42],Cnil);
goto T172;
T174:;
bds_bind(VV[42],(V16));
T172:;
if(symbol_value(VV[44])!=Cnil){
bds_bind(VV[43],symbol_value(VV[44]));
goto T176;}
bds_bind(VV[43],symbol_value(VV[43]));
T176:;
bds_bind(VV[45],Cnil);
bds_bind(VV[0],symbol_value(VV[0]));
bds_bind(VV[1],symbol_value(VV[1]));
bds_bind(VV[2],symbol_value(VV[2]));
bds_bind(VV[3],symbol_value(VV[3]));
bds_bind(VV[4],symbol_value(VV[4]));
bds_bind(VV[5],symbol_value(VV[5]));
bds_bind(VV[6],symbol_value(VV[6]));
bds_bind(VV[7],symbol_value(VV[7]));
bds_bind(VV[8],symbol_value(VV[8]));
bds_bind(VV[9],symbol_value(VV[9]));
if(((V16))!=Cnil){
goto T177;}
if(!(type_of((V14))==t_string)){
goto T177;}
vs_base=vs_top;
(void) (*Lnk128)();
vs_top=sup;
base[25]= make_fixnum(length(cdr((VV[35]->s.s_dbind))));
vs_top=(vs_base=base+25)+1;
(void) (*Lnk129)();
vs_top=sup;
T177:;
base[25]= small_fixnum(1);
vs_top=(vs_base=base+25)+1;
(void) (*Lnk130)();
vs_top=sup;
setq(VV[46],Ct);
if(!(type_of((V14))==t_string)){
goto T190;}
(void)((*(LnkLI131))());
princ_char(10,VV[28]);
setq(VV[19],Cnil);
goto T188;
T190:;
base[25]= (V14);
base[26]= (V15);
vs_top=(vs_base=base+25)+2;
(void) (*Lnk132)();
vs_top=sup;
T188:;
T198:;
(VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
(VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
(VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
if((symbol_value(VV[19]))==Cnil){
goto T208;}
setq(VV[19],Cnil);
goto T206;
T208:;
base[25]= symbol_value(VV[47]);
base[26]= VV[48];
if(!(type_of((V14))==t_string)){
goto T215;}
base[27]= VV[49];
goto T213;
T215:;
base[27]= VV[50];
T213:;{object V20;
V20= symbol_value(VV[21]);
base[29]= VV[22];
vs_top=(vs_base=base+29)+1;
Lfind_package();
vs_top=sup;
V21= vs_base[0];
if(!((V20)==(V21))){
goto T219;}}
base[28]= VV[51];
goto T217;
T219:;
base[29]= symbol_value(VV[21]);
vs_top=(vs_base=base+29)+1;
Lpackage_name();
vs_top=sup;
base[28]= vs_base[0];
T217:;
base[29]= (VV[35]->s.s_dbind);
vs_top=(vs_base=base+25)+5;
Lformat();
vs_top=sup;
T206:;
frs_push(FRS_CATCH,VV[52]);
if(nlj_active)
{nlj_active=FALSE;frs_pop();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T199;}
goto T226;}
else{
frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
if(nlj_active)
{nlj_active=FALSE;frs_pop();
vs_top=sup;
if((vs_base[0])==Cnil){
frs_pop();
goto T199;}
frs_pop();
goto T226;}
else{
base[25]= symbol_value(VV[47]);
base[26]= Cnil;
base[27]= symbol_value(VV[25]);
vs_top=(vs_base=base+25)+3;
(void) (*Lnk133)();
vs_top=sup;
(VV[3]->s.s_dbind)= vs_base[0];
if(!(((VV[3]->s.s_dbind))==(symbol_value(VV[25])))){
goto T234;}
vs_base=vs_top;
Lby();
vs_top=sup;
T234:;
{object V22;
object V23;
V22= Cnil;
if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){
goto T241;}
(VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);
T241:;
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
goto T246;}
{object V24= car((VV[3]->s.s_dbind));
if(!((type_of(V24)==t_symbol&&(V24)->s.s_hpack==keyword_package))){
goto T246;}}
V22= Ct;
base[25]= car((VV[3]->s.s_dbind));
base[26]= cdr((VV[3]->s.s_dbind));
symlispcall(VV[134],base+25,2);
goto T240;
T246:;
base[25]= (VV[3]->s.s_dbind);
base[26]= Cnil;
base[27]= Cnil;
base[28]= (VV[41]->s.s_dbind);
symlispcall(VV[135],base+25,4);
T240:;
Llist();
vs_top=sup;
V23= vs_base[0];
if((V22)==Cnil){
goto T258;}
if((car((V23)))==(VV[53])){
goto T259;}
goto T258;
T259:;
frs_pop();
frs_pop();
base[25]= Cnil;
vs_top=(vs_base=base+25)+1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
T258:;
(VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
(VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
(VV[7]->s.s_dbind)= (V23);
(VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
(VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
(VV[4]->s.s_dbind)= car((VV[7]->s.s_dbind));
base[25]= symbol_value(VV[47]);
vs_top=(vs_base=base+25)+1;
Lfresh_line();
vs_top=sup;
{object V25;
object V26;
V25= (VV[7]->s.s_dbind);
V26= car((V25));
T278:;
if(!(endp((V25)))){
goto T279;}
goto T237;
T279:;
base[25]= (V26);
base[26]= symbol_value(VV[47]);
(void)simple_symlispcall(VV[122],base+25,2);
princ_char(10,VV[47]);
V25= cdr((V25));
V26= car((V25));
goto T278;}}
T237:;
frs_pop();
frs_pop();
goto T199;}}
T226:;
princ_char(10,VV[47]);
vs_base=vs_top;
(void) (*Lnk123)();
vs_top=sup;
T199:;
goto T198;}
}
}
/* local entry for function WARN */
static object LI4(V27,va_alist)
object V27;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB4 VMS4 VMV4
bds_check;
{object V28;
object V29;
if(narg <1) too_few_arguments();
V28= V27;
narg= narg - 1;
va_start(ap);
V30 = list_vector(narg,ap);
V29= V30;
bds_bind(VV[54],small_fixnum(4));
bds_bind(VV[55],small_fixnum(4));
bds_bind(VV[56],VV[57]);
if((symbol_value(VV[58]))==Cnil){
goto T295;}
base[3]= (V28);
{object V31;
V31= (V29);
vs_top=base+4;
while(!endp(V31))
{vs_push(car(V31));V31=cdr(V31);}
vs_base=base+3;}
(void) (*Lnk136)();
vs_top=sup;
{object V32 = vs_base[0];
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR4(V32)}
T295:;
base[3]= symbol_value(VV[28]);
base[4]= VV[59];
vs_top=(vs_base=base+3)+2;
Lformat();
vs_top=sup;
bds_bind(VV[60],Ct);
base[4]= symbol_value(VV[28]);
base[5]= (V28);
{object V33;
V33= (V29);
vs_top=base+6;
while(!endp(V33))
{vs_push(car(V33));V33=cdr(V33);}
vs_base=base+4;}
Lformat();
vs_top=sup;
bds_unwind1;
{object V34 = Cnil;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR4(V34)}}
}
/* local entry for function UNIVERSAL-ERROR-HANDLER */
static object LI5(V39,V38,V37,V36,V35,va_alist)
object V39,V38,V37,V36,V35;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB5 VMS5 VMV5
bds_check;
{object V40;
object V41;
register object V42;
object V43;
register object V44;
register object V45;
if(narg <5) too_few_arguments();
V40= V39;
V41= V38;
V42= V37;
V43= V36;
V44= V35;
narg= narg - 5;
va_start(ap);
V46 = list_vector(narg,ap);
V45= V46;
{object V47;
V47= Cnil;
bds_bind(VV[61],Cnil);
bds_bind(VV[54],symbol_value(VV[62]));
bds_bind(VV[55],symbol_value(VV[62]));
bds_bind(VV[56],VV[57]);
princ_char(10,VV[28]);
if(((V41))==Cnil){
goto T310;}
if((symbol_value(VV[42]))==Cnil){
goto T310;}
base[4]= symbol_value(VV[28]);
base[5]= VV[63];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
bds_bind(VV[60],Ct);
base[5]= symbol_value(VV[28]);
base[6]= (V44);
{object V48;
V48= (V45);
vs_top=base+7;
while(!endp(V48))
{vs_push(car(V48));V48=cdr(V48);}
vs_base=base+5;}
Lformat();
vs_top=sup;
bds_unwind1;
princ_char(10,VV[28]);
base[4]= Cnil;
base[5]= (V44);
{object V49;
V49= (V45);
vs_top=base+6;
while(!endp(V49))
{vs_push(car(V49));V49=cdr(V49);}
vs_base=base+4;}
Lformat();
vs_top=sup;
V47= vs_base[0];
if(((V42))==Cnil){
goto T329;}
base[4]= symbol_value(VV[28]);
base[5]= VV[64];
base[6]= (V42);
vs_top=(vs_base=base+4)+3;
Lformat();
vs_top=sup;
goto T327;
T329:;
base[4]= symbol_value(VV[28]);
base[5]= VV[65];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
T327:;
base[4]= symbol_value(VV[28]);
base[5]= VV[66];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
bds_bind(VV[60],Ct);
base[5]= symbol_value(VV[28]);
base[6]= VV[67];
base[7]= (V43);
base[8]= (V45);
vs_top=(vs_base=base+5)+4;
Lformat();
vs_top=sup;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T307;
T310:;
base[4]= symbol_value(VV[28]);
base[5]= VV[68];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
bds_bind(VV[60],Ct);
base[5]= symbol_value(VV[28]);
base[6]= (V44);
{object V50;
V50= (V45);
vs_top=base+7;
while(!endp(V50))
{vs_push(car(V50));V50=cdr(V50);}
vs_base=base+5;}
Lformat();
vs_top=sup;
bds_unwind1;
princ_char(10,VV[28]);
if(!((length(symbol_value(VV[69])))>(0))){
goto T351;}
base[4]= symbol_value(VV[28]);
base[5]= VV[70];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
T351:;
base[4]= Cnil;
base[5]= (V44);
{object V51;
V51= (V45);
vs_top=base+6;
while(!endp(V51))
{vs_push(car(V51));V51=cdr(V51);}
vs_base=base+4;}
Lformat();
vs_top=sup;
V47= vs_base[0];
if(((V42))==Cnil){
goto T362;}
base[4]= symbol_value(VV[28]);
base[5]= VV[71];
base[6]= (V42);
vs_top=(vs_base=base+4)+3;
Lformat();
vs_top=sup;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T307;
T362:;
base[4]= symbol_value(VV[28]);
base[5]= VV[72];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
T307:;
base[0]= (V47);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk137)();
vs_top=sup;
if(((V41))!=Cnil){
goto T372;}
{frame_ptr fr;
base[0]= symbol_value(VV[11]);
fr=frs_sch_catch(base[0]);
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]);
base[1]= symbol_value(VV[11]);
vs_top=(vs_base=base+1)+1;
unwind(fr,base[0]);}
T372:;
{object V52 = Cnil;
VMR5(V52)}}}
}
/* local entry for function BREAK */
static object LI6(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB6 VMS6 VMV6
bds_check;
{object V53;
object V54;
narg = narg - 0;
if (narg <= 0) goto T375;
else {
va_start(ap);
V53= va_arg(ap,object);}
--narg; goto T376;
T375:;
V53= Cnil;
T376:;
V55 = list_vector(narg,ap);
V54= V55;
{object V56;
V56= Cnil;
bds_bind(VV[61],Cnil);
bds_bind(VV[54],small_fixnum(4));
bds_bind(VV[55],small_fixnum(4));
bds_bind(VV[56],VV[57]);
princ_char(10,VV[28]);
if(((V53))==Cnil){
goto T382;}
base[4]= symbol_value(VV[28]);
base[5]= VV[73];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
bds_bind(VV[60],Ct);
base[5]= symbol_value(VV[28]);
base[6]= (V53);
{object V57;
V57= (V54);
vs_top=base+7;
while(!endp(V57))
{vs_push(car(V57));V57=cdr(V57);}
vs_base=base+5;}
Lformat();
vs_top=sup;
bds_unwind1;
princ_char(10,VV[28]);
base[4]= Cnil;
base[5]= (V53);
{object V58;
V58= (V54);
vs_top=base+6;
while(!endp(V58))
{vs_push(car(V58));V58=cdr(V58);}
vs_base=base+4;}
Lformat();
vs_top=sup;
V56= vs_base[0];
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T379;
T382:;
base[4]= symbol_value(VV[28]);
base[5]= VV[74];
vs_top=(vs_base=base+4)+2;
Lformat();
vs_top=sup;
V56= VV[75];
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
T379:;
bds_bind(VV[42],Ct);
base[1]= (V56);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk137)();
vs_top=sup;
bds_unwind1;
{object V59 = Cnil;
VMR6(V59)}}}
}
/* local entry for function TERMINAL-INTERRUPT */
static object LI7(V61)
object V61;
{ VMB7 VMS7 VMV7
bds_check;
TTL:;
bds_bind(VV[42],Ct);
if(((V61))==Cnil){
goto T403;}
base[1]= VV[76];
base[2]= VV[77];
vs_top=(vs_base=base+1)+2;
Lcerror();
vs_top=sup;
{object V62 = vs_base[0];
bds_unwind1;
VMR7(V62)}
T403:;
base[1]= VV[78];
vs_top=(vs_base=base+1)+1;
Lerror();
vs_top=sup;
{object V63 = vs_base[0];
bds_unwind1;
VMR7(V63)}
}
/* local entry for function BREAK-CALL */
static object LI8(V66,V67)
object V66;object V67;
{ VMB8 VMS8 VMV8
TTL:;
{object V68;
V68= get((V66),VV[79],Cnil);
if(((V68))==Cnil){
goto T410;}
base[0]= make_cons((V68),(V67));
base[1]= Cnil;
base[2]= Cnil;
base[3]= symbol_value(VV[41]);
vs_top=(vs_base=base+0)+4;
Levalhook();
vs_top=sup;
{object V69 = vs_base[0];
VMR8(V69)}
T410:;
base[0]= symbol_value(VV[47]);
base[1]= VV[80];
base[2]= (V66);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
{object V70 = vs_base[0];
VMR8(V70)}}
}
/* function definition for BREAK-QUIT */
static L9()
{register object *base=vs_base;
register object *sup=base+VM9; VC9
vs_reserve(VM9);
{object V71;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T419;}
V71=(base[0]);
vs_top=sup;
goto T420;
T419:;
V71= small_fixnum(0);
T420:;
{object V72;
V72= make_fixnum(length(symbol_value(VV[35])));
if(!(number_compare((V71),small_fixnum(0))>=0)){
goto T423;}
if(!(number_compare((V71),(V72))<0)){
goto T423;}
{object V73;
base[1]= (V72);
base[2]= (V71);
base[3]= small_fixnum(1);
vs_top=(vs_base=base+1)+3;
Lminus();
vs_top=sup;
V74= vs_base[0];
V73= nth(fixint(V74),symbol_value(VV[34]));
{frame_ptr fr;
base[1]= cdr((V73));
fr=frs_sch_catch(base[1]);
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[1]);
base[2]= cdr((V73));
vs_top=(vs_base=base+2)+1;
unwind(fr,base[1]);}}
T423:;
vs_base=vs_top;
(void) (*Lnk123)();
return;}
}
}
/* function definition for BREAK-PREVIOUS */
static L10()
{register object *base=vs_base;
register object *sup=base+VM10; VC10
vs_reserve(VM10);
{register object V75;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T435;}
V75=(base[0]);
vs_top=sup;
goto T436;
T435:;
V75= small_fixnum(1);
T436:;
{object V76;
V76= one_minus(symbol_value(VV[38]));
T440:;
if(number_compare((V76),symbol_value(VV[36]))<0){
goto T442;}
if(!(number_compare((V75),small_fixnum(0))<=0)){
goto T441;}
T442:;
(void)((*(LnkLI138))());
vs_base=vs_top;
(void) (*Lnk123)();
return;
T441:;
if(((*(LnkLI139))((V76)))==Cnil){
goto T448;}
setq(VV[38],(V76));
V75= one_minus((V75));
T448:;
V76= one_minus((V76));
goto T440;}
}
}
/* local entry for function SET-CURRENT */
static object LI11()
{ VMB11 VMS11 VMV11
TTL:;
{object V77;
V77= symbol_value(VV[38]);
T459:;
if(((*(LnkLI139))((V77)))!=Cnil){
goto T461;}
if(!(number_compare((V77),symbol_value(VV[36]))<=0)){
goto T460;}
T461:;
setq(VV[38],(V77));
(void)((*(LnkLI138))());
base[0]= symbol_value(VV[47]);
base[1]= VV[81];
base[3]= symbol_value(VV[38]);
vs_top=(vs_base=base+3)+1;
(void) (*Lnk140)();
vs_top=sup;
base[2]= vs_base[0];
base[3]= cdr(symbol_value(VV[35]));
vs_top=(vs_base=base+0)+4;
Lformat();
vs_top=sup;
{object V78 = vs_base[0];
VMR11(V78)}
T460:;
V77= one_minus((V77));
goto T459;}
}
/* function definition for BREAK-NEXT */
static L12()
{register object *base=vs_base;
register object *sup=base+VM12; VC12
vs_reserve(VM12);
{register object V79;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T477;}
V79=(base[0]);
vs_top=sup;
goto T478;
T477:;
V79= small_fixnum(1);
T478:;
{object V80;
V80= symbol_value(VV[38]);
T482:;
if(number_compare((V80),symbol_value(VV[37]))>0){
goto T484;}
if(!(number_compare((V79),small_fixnum(0))<0)){
goto T483;}
T484:;
(void)((*(LnkLI138))());
vs_base=vs_top;
(void) (*Lnk123)();
return;
T483:;
if(((*(LnkLI139))((V80)))==Cnil){
goto T490;}
setq(VV[38],(V80));
V79= one_minus((V79));
T490:;
V80= one_plus((V80));
goto T482;}
}
}
/* function definition for BREAK-GO */
static L13()
{register object *base=vs_base;
register object *sup=base+VM13; VC13
vs_reserve(VM13);
{object V81;
check_arg(1);
V81=(base[0]);
vs_top=sup;
TTL:;
{object V82= (number_compare((V81),symbol_value(VV[36]))>=0?((V81)):symbol_value(VV[36]));
setq(VV[38],(number_compare(V82,symbol_value(VV[37]))<=0?(V82):symbol_value(VV[37])));}
if(((*(LnkLI139))(symbol_value(VV[38])))==Cnil){
goto T502;}
(void)((*(LnkLI138))());
vs_base=vs_top;
(void) (*Lnk123)();
return;
T502:;
vs_base=vs_top;
(void) (*Lnk141)();
return;
}
}
/* function definition for BREAK-MESSAGE */
static L14()
{register object *base=vs_base;
register object *sup=base+VM14; VC14
vs_reserve(VM14);
check_arg(0);
vs_top=sup;
TTL:;
(void)(princ(symbol_value(VV[33]),symbol_value(VV[47])));
princ_char(10,VV[47]);
vs_base=vs_top=base+0;
vs_base[0]=Cnil;
return;
}
/* function definition for DESCRIBE-ENVIRONMENT */
static L15()
{register object *base=vs_base;
register object *sup=base+VM15; VC15
vs_reserve(VM15);
{object V83;
register object V84;
if(vs_top-vs_base>2) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T507;}
V83=(base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T508;}
V84=(base[1]);
vs_top=sup;
goto T509;
T507:;
V83= symbol_value(VV[41]);
T508:;
V84= symbol_value(VV[47]);
T509:;
if(!((length((V83)))==(3))){
goto T513;}
goto T512;
T513:;
base[3]= VV[82];
vs_top=(vs_base=base+3)+1;
Lerror();
vs_top=sup;
T512:;
{object V85;
V85= VV[83];
base[2]= (V84);
base[3]= (V85);
base[4]= VV[84];
{object V86;
{object V87;
object V88= car(symbol_value(VV[41]));
if(endp(V88)){
V86= Cnil;
goto T521;}
base[5]=V87=MMcons(Cnil,Cnil);
T522:;
(V87->c.c_car)= car((V88->c.c_car));
if(endp(V88=MMcdr(V88))){
V86= base[5];
goto T521;}
V87=MMcdr(V87)=MMcons(Cnil,Cnil);
goto T522;}
T521:;
vs_top=base+5;
while(!endp(V86))
{vs_push(car(V86));V86=cdr(V86);}
vs_base=base+2;}
Lformat();
vs_top=sup;
base[2]= (V84);
base[3]= (V85);
base[4]= VV[85];
{object V89;
{object V90;
object V91= cadr(symbol_value(VV[41]));
if(endp(V91)){
V89= Cnil;
goto T528;}
base[5]=V90=MMcons(Cnil,Cnil);
T529:;
(V90->c.c_car)= car((V91->c.c_car));
if(endp(V91=MMcdr(V91))){
V89= base[5];
goto T528;}
V90=MMcdr(V90)=MMcons(Cnil,Cnil);
goto T529;}
T528:;
vs_top=base+5;
while(!endp(V89))
{vs_push(car(V89));V89=cdr(V89);}
vs_base=base+2;}
Lformat();
vs_top=sup;
base[2]= (V84);
base[3]= (V85);
base[4]= VV[86];
{object V92;
{object V93;
object V94= caddr(symbol_value(VV[41]));
if(endp(V94)){
V92= Cnil;
goto T535;}
base[5]=V93=MMcons(Cnil,Cnil);
T536:;
{object V95;
V95= (V94->c.c_car);
if(!((cadr((V95)))==(VV[87]))){
goto T540;}
(V93->c.c_cdr)= make_cons(car((V95)),Cnil);
goto T537;
T540:;
(V93->c.c_cdr)= Cnil;}
T537:;
while(!endp(MMcdr(V93)))V93=MMcdr(V93);
if(endp(V94=MMcdr(V94))){
base[5]=base[5]->c.c_cdr;
V92= base[5];
goto T535;}
goto T536;}
T535:;
vs_top=base+5;
while(!endp(V92))
{vs_push(car(V92));V92=cdr(V92);}
vs_base=base+2;}
Lformat();
vs_top=sup;
base[2]= (V84);
base[3]= (V85);
base[4]= VV[88];
{object V96;
{object V97;
object V98= caddr(symbol_value(VV[41]));
if(endp(V98)){
V96= Cnil;
goto T545;}
base[5]=V97=MMcons(Cnil,Cnil);
T546:;
{object V99;
V99= (V98->c.c_car);
if(!((cadr((V99)))==(VV[89]))){
goto T550;}
(V97->c.c_cdr)= make_cons(car((V99)),Cnil);
goto T547;
T550:;
(V97->c.c_cdr)= Cnil;}
T547:;
while(!endp(MMcdr(V97)))V97=MMcdr(V97);
if(endp(V98=MMcdr(V98))){
base[5]=base[5]->c.c_cdr;
V96= base[5];
goto T545;}
goto T546;}
T545:;
vs_top=base+5;
while(!endp(V96))
{vs_push(car(V96));V96=cdr(V96);}
vs_base=base+2;}
Lformat();
return;}
}
}
/* function definition for BREAK-VS */
static L16()
{register object *base=vs_base;
register object *sup=base+VM16; VC16
vs_reserve(VM16);
{register object V100;
object V101;
if(vs_top-vs_base>2) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T552;}
V100=(base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T553;}
V101=(base[1]);
vs_top=sup;
goto T554;
T552:;
base[2]= symbol_value(VV[36]);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk142)();
vs_top=sup;
V100= vs_base[0];
T553:;
base[2]= symbol_value(VV[37]);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk142)();
vs_top=sup;
V101= vs_base[0];
T554:;
base[2]= symbol_value(VV[36]);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk142)();
vs_top=sup;
V102= vs_base[0];
V100= (number_compare((V100),V102)>=0?((V100)):V102);
base[2]= one_plus(symbol_value(VV[37]));
vs_top=(vs_base=base+2)+1;
(void) (*Lnk142)();
vs_top=sup;
V103= vs_base[0];
V104= one_minus(V103);
V101= (number_compare((V101),/* INLINE-ARGS */V104)<=0?((V101)):/* INLINE-ARGS */V104);
{object V105;
V105= symbol_value(VV[36]);
T569:;
if(number_compare((V105),symbol_value(VV[37]))>=0){
goto T571;}
base[2]= (V105);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk142)();
vs_top=sup;
V106= vs_base[0];
if(!(number_compare(V106,(V100))>=0)){
goto T570;}
T571:;
{object V107;
V107= (V100);
T579:;
if(!(number_compare((V107),(V101))>0)){
goto T580;}
vs_base=vs_top=base+2;
vs_base[0]=Cnil;
return;
T580:;
T586:;
base[2]= (V105);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk142)();
vs_top=sup;
V108= vs_base[0];
if(!(number_compare(V108,(V107))>0)){
goto T587;}
goto T584;
T587:;
if(((*(LnkLI139))((V105)))==Cnil){
goto T593;}
(void)((*(LnkLI143))((V105)));
T593:;
V105= number_plus((V105),small_fixnum(1));
goto T586;
T584:;
base[2]= symbol_value(VV[47]);
base[3]= VV[90];
base[4]= (V107);
base[6]= (V107);
vs_top=(vs_base=base+6)+1;
(void) (*Lnk144)();
vs_top=sup;
base[5]= vs_base[0];
vs_top=(vs_base=base+2)+4;
Lformat();
vs_top=sup;
V107= one_plus((V107));
goto T579;}
T570:;
V105= one_plus((V105));
goto T569;}
}
}
/* function definition for BREAK-LOCAL */
static L17()
{register object *base=vs_base;
register object *sup=base+VM17; VC17
vs_reserve(VM17);
{object V109;
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T613;}
V109=(base[0]);
vs_top=sup;
goto T614;
T613:;
V109= small_fixnum(0);
T614:;
{object V110;
base[1]= symbol_value(VV[38]);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk142)();
vs_top=sup;
V111= vs_base[0];
V110= number_plus(V111,(V109));
base[1]= (V110);
base[2]= (V110);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk145)();
return;}
}
}
/* function definition for BREAK-BDS */
static L18()
{register object *base=vs_base;
register object *sup=base+VM18; VC18
vs_reserve(VM18);
{register object V112;
vs_top[0]=Cnil;
{object *p=vs_top;
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
V112=(base[0]);
vs_top=sup;
{object V113;
V113= symbol_value(VV[39]);
{object V114;
object V115;
base[1]= one_minus(symbol_value(VV[39]));
vs_top=(vs_base=base+1)+1;
(void) (*Lnk146)();
vs_top=sup;
V116= vs_base[0];
V114= one_plus(V116);
base[1]= one_plus(symbol_value(VV[40]));
vs_top=(vs_base=base+1)+1;
(void) (*Lnk146)();
vs_top=sup;
V115= vs_base[0];
T628:;
if(!(number_compare((V114),(V115))>0)){
goto T629;}
vs_base=vs_top=base+1;
vs_base[0]=Cnil;
return;
T629:;
if(((V112))==Cnil){
goto T634;}
base[1]= (V114);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk147)();
vs_top=sup;
V118= vs_base[0];
{register object x= V118,V117= (V112);
while(!endp(V117))
if(eql(x,V117->c.c_car)){
goto T637;
}else V117=V117->c.c_cdr;
goto T633;}
T637:;
T634:;
T642:;
if(number_compare((V113),symbol_value(VV[40]))>0){
goto T644;}
base[1]= (V113);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk146)();
vs_top=sup;
V119= vs_base[0];
if(!(number_compare(V119,(V114))>0)){
goto T643;}
T644:;
goto T640;
T643:;
(void)((*(LnkLI148))((V113)));
V113= number_plus((V113),small_fixnum(1));
goto T642;
T640:;
base[1]= symbol_value(VV[47]);
base[2]= VV[91];
base[3]= (V114);
base[5]= (V114);
vs_top=(vs_base=base+5)+1;
(void) (*Lnk147)();
vs_top=sup;
base[4]= vs_base[0];
base[6]= (V114);
vs_top=(vs_base=base+6)+1;
(void) (*Lnk149)();
vs_top=sup;
base[5]= vs_base[0];
vs_top=(vs_base=base+1)+5;
Lformat();
vs_top=sup;
T633:;
V114= one_plus((V114));
goto T628;}}
}
}
/* function definition for SIMPLE-BACKTRACE */
static L19()
{register object *base=vs_base;
register object *sup=base+VM19; VC19
vs_reserve(VM19);
check_arg(0);
vs_top=sup;
TTL:;
princ_str("Backtrace: ",VV[47]);
{object V120;
object V121;
V120= symbol_value(VV[36]);
V121= Cnil;
T670:;
if(!(number_compare((V120),symbol_value(VV[37]))>0)){
goto T671;}
princ_char(10,VV[47]);
vs_base=vs_top=base+0;
vs_base[0]=Cnil;
return;
T671:;
if(((*(LnkLI139))((V120)))==Cnil){
goto T676;}
if(((V121))==Cnil){
goto T679;}
princ_str(" > ",VV[47]);
T679:;
base[1]= (V120);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk140)();
vs_top=sup;
base[0]= vs_base[0];
base[1]= VV[92];
base[2]= symbol_value(VV[47]);
base[3]= VV[93];
base[4]= Ct;
base[5]= VV[94];
if(!(number_compare((V120),symbol_value(VV[38]))==0)){
goto T691;}
base[6]= VV[57];
goto T689;
T691:;
base[6]= VV[95];
T689:;
vs_top=(vs_base=base+0)+7;
Lwrite();
vs_top=sup;
T676:;
V120= one_plus((V120));
V121= Ct;
goto T670;}
}
/* function definition for IHS-BACKTRACE */
static L20()
{register object *base=vs_base;
register object *sup=base+VM20; VC20
vs_reserve(VM20);
{object V122;
register object V123;
if(vs_top-vs_base>2) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T698;}
V122=(base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T699;}
V123=(base[1]);
vs_top=sup;
goto T700;
T698:;
V122= symbol_value(VV[36]);
T699:;
V123= symbol_value(VV[37]);
T700:;
V122= (number_compare((V122),symbol_value(VV[36]))>=0?((V122)):symbol_value(VV[36]));
V123= (number_compare((V123),symbol_value(VV[37]))<=0?((V123)):symbol_value(VV[37]));
{object V124;
object V125;
V124= (V122);
base[3]= symbol_value(VV[39]);
base[4]= (V122);
vs_top=(vs_base=base+3)+2;
(void) (*Lnk126)();
vs_top=sup;
base[2]= vs_base[0];
if(base[2]==Cnil)goto T709;
V125= base[2];
goto T708;
T709:;
V125= one_plus(symbol_value(VV[40]));
T708:;
T714:;
if(!(number_compare((V124),(V123))>0)){
goto T715;}
vs_base=vs_top=base+2;
vs_base[0]=Cnil;
return;
T715:;
if(((*(LnkLI139))((V124)))==Cnil){
goto T719;}
(void)((*(LnkLI143))((V124)));
T719:;
T724:;
if(number_compare((V125),symbol_value(VV[40]))>0){
goto T726;}
base[2]= (V125);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk150)();
vs_top=sup;
V126= vs_base[0];
if(!(number_compare(V126,(V124))>0)){
goto T725;}
T726:;
goto T722;
T725:;
(void)((*(LnkLI148))((V125)));
V125= number_plus((V125),small_fixnum(1));
goto T724;
T722:;
V124= one_plus((V124));
goto T714;}
}
}
/* local entry for function PRINT-IHS */
static object LI21(V128)
register object V128;
{ VMB21 VMS21 VMV21
bds_check;
TTL:;
bds_bind(VV[54],small_fixnum(2));
bds_bind(VV[55],small_fixnum(4));
base[2]= Ct;
base[3]= VV[96];
base[4]= (number_compare((V128),symbol_value(VV[38]))==0?Ct:Cnil);
base[5]= (V128);
{object V129;
base[7]= (V128);
vs_top=(vs_base=base+7)+1;
(void) (*Lnk151)();
vs_top=sup;
V129= vs_base[0];
if(type_of((V129))==t_symbol){
goto T748;}
base[7]= (V129);
vs_top=(vs_base=base+7)+1;
Lcompiled_function_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T749;}
T748:;
base[6]= (V129);
goto T745;
T749:;
if(!(type_of((V129))==t_cons)){
goto T755;}
{object V130= car((V129));
if((V130!= VV[97]))goto T757;
base[6]= (V129);
goto T745;
T757:;
if((V130!= VV[152])
&& (V130!= VV[153]))goto T758;
base[6]= cdr((V129));
goto T745;
T758:;
if((V130!= VV[114]))goto T759;
base[6]= make_cons(VV[97],cddddr((V129)));
goto T745;
T759:;
if((V130!= VV[154]))goto T760;
base[6]= cddddr((V129));
goto T745;
T760:;
if(!(type_of(car((V129)))==t_symbol)){
goto T762;}
base[7]= car((V129));
vs_top=(vs_base=base+7)+1;
Lspecial_form_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T761;}
base[7]= car((V129));
vs_top=(vs_base=base+7)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T762;}
T761:;
base[6]= car((V129));
goto T745;
T762:;
base[6]= VV[98];
goto T745;}
T755:;
(void)(print((V129),Cnil));
base[6]= VV[99];}
T745:;
base[8]= (V128);
vs_top=(vs_base=base+8)+1;
(void) (*Lnk142)();
vs_top=sup;
base[7]= vs_base[0];
vs_top=(vs_base=base+2)+6;
Lformat();
vs_top=sup;
{object V131 = vs_base[0];
bds_unwind1;
bds_unwind1;
VMR21(V131)}
}
/* local entry for function PRINT-FRS */
static object LI22(V133)
register object V133;
{ VMB22 VMS22 VMV22
TTL:;
base[0]= symbol_value(VV[47]);
base[1]= VV[100];
base[2]= (V133);
base[3]= (*(LnkLI155))((V133));
base[5]= (V133);
vs_top=(vs_base=base+5)+1;
(void) (*Lnk150)();
vs_top=sup;
base[4]= vs_base[0];
base[6]= (V133);
vs_top=(vs_base=base+6)+1;
(void) (*Lnk156)();
vs_top=sup;
base[5]= vs_base[0];
base[7]= (V133);
vs_top=(vs_base=base+7)+1;
(void) (*Lnk146)();
vs_top=sup;
base[6]= vs_base[0];
vs_top=(vs_base=base+0)+7;
Lformat();
vs_top=sup;
{object V134 = vs_base[0];
VMR22(V134)}
}
/* local entry for function FRS-KIND */
static object LI23(V136)
register object V136;
{ VMB23 VMS23 VMV23
TTL:;
{object V137;
V137= Cnil;
base[0]= (V136);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk157)();
vs_top=sup;
V139= vs_base[0];
{object V138= V139;
if((V138!= VV[158]))goto T786;
base[1]= (V136);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk159)();
vs_top=sup;
base[0]= vs_base[0];
vs_top=(vs_base=base+0)+1;
(void) (*Lnk160)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T788;}
base[2]= (V136);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk159)();
vs_top=sup;
base[1]= vs_base[0];
base[4]= (V136);
vs_top=(vs_base=base+4)+1;
(void) (*Lnk156)();
vs_top=sup;
V140= vs_base[0];
base[3]= number_plus(V140,small_fixnum(2));
vs_top=(vs_base=base+3)+1;
(void) (*Lnk144)();
vs_top=sup;
base[2]= vs_base[0];
base[3]= VV[101];
base[4]= symbol_function(VV[161]);
base[5]= VV[102];
base[6]= symbol_function(VV[162]);
vs_top=(vs_base=base+1)+6;
Lmember();
vs_top=sup;
V137= vs_base[0];
if(((V137))!=Cnil){
goto T794;}
base[0]= Cnil;
goto T793;
T794:;
if(!((cadar((V137)))==(VV[87]))){
goto T808;}
base[0]= list(3,VV[87],caar((V137)),VV[6]);
goto T793;
T808:;
base[2]= (V136);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk159)();
vs_top=sup;
V144= vs_base[0];
V145= symbol_function(VV[162]);
V146= symbol_function(VV[161]);
V147= (VFUN_NARGS=6,(*(LnkLI163))(V144,(V137),VV[104],V145,VV[101],V146));
{object V142;
object V143= /* INLINE-ARGS */V147;
if(endp(V143)){
V141= Cnil;
goto T810;}
base[1]=V142=MMcons(Cnil,Cnil);
T811:;
(V142->c.c_car)= car((V143->c.c_car));
if(endp(V143=MMcdr(V143))){
V141= base[1];
goto T810;}
V142=MMcdr(V142)=MMcons(Cnil,Cnil);
goto T811;}
T810:;
V148= reverse(V141);
V149= append(/* INLINE-ARGS */V148,VV[105]);
base[0]= make_cons(VV[103],/* INLINE-ARGS */V149);
T793:;
if(base[0]==Cnil)goto T792;
{object V150 = base[0];
VMR23(V150)}
T792:;
base[1]= (V136);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk159)();
vs_top=sup;
V151= vs_base[0];
{object V152 = list(2,VV[106],V151);
VMR23(V152)}
T788:;
base[0]= (V136);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk159)();
vs_top=sup;
V153= vs_base[0];
{object V154 = list(3,VV[107],list(2,VV[108],V153),VV[6]);
VMR23(V154)}
T786:;
if((V138!= VV[164]))goto T821;
{object V155 = VV[109];
VMR23(V155)}
T821:;
base[0]= (V136);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk159)();
vs_top=sup;
V156= vs_base[0];
{object V157 = list(2,VV[110],V156);
VMR23(V157)}}}
}
/* function definition for BREAK-CURRENT */
static L24()
{register object *base=vs_base;
register object *sup=base+VM24; VC24
vs_reserve(VM24);
check_arg(0);
vs_top=sup;
TTL:;
if((symbol_value(VV[35]))==Cnil){
goto T826;}
base[0]= symbol_value(VV[47]);
base[1]= VV[111];
base[3]= symbol_value(VV[38]);
vs_top=(vs_base=base+3)+1;
(void) (*Lnk140)();
vs_top=sup;
base[2]= vs_base[0];
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
goto T824;
T826:;
base[0]= symbol_value(VV[47]);
base[1]= VV[112];
vs_top=(vs_base=base+0)+2;
Lformat();
vs_top=sup;
T824:;
vs_base=vs_top=base+0;
vs_base[0]=Cnil;
return;
}
/* local entry for function IHS-VISIBLE */
static object LI25(V159)
object V159;
{ VMB25 VMS25 VMV25
TTL:;
{object V160;
base[0]= (V159);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk140)();
vs_top=sup;
V160= vs_base[0];
if((V160)==Cnil){
{object V161 = Cnil;
VMR25(V161)}}
{register object x= (V160),V163= symbol_value(VV[113]);
while(!endp(V163))
if(eql(x,V163->c.c_car)){
V162= V163;
goto T836;
}else V163=V163->c.c_cdr;
V162= Cnil;}
T836:;
{object V164 = ((V162)==Cnil?Ct:Cnil);
VMR25(V164)}}
}
/* function definition for IHS-FNAME */
static L26()
{register object *base=vs_base;
register object *sup=base+VM26; VC26
vs_reserve(VM26);
{object V165;
check_arg(1);
V165=(base[0]);
vs_top=sup;
TTL:;
{object V166;
base[1]= (V165);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk151)();
vs_top=sup;
V166= vs_base[0];
if(!(type_of((V166))==t_symbol)){
goto T840;}
base[1]= (V166);
vs_top=(vs_base=base+1)+1;
return;
T840:;
if(!(type_of((V166))==t_cons)){
goto T843;}
{object V167= car((V166));
if((V167!= VV[97]))goto T845;
base[1]= VV[97];
vs_top=(vs_base=base+1)+1;
return;
T845:;
if((V167!= VV[152])
&& (V167!= VV[153]))goto T846;
base[1]= cadr((V166));
vs_top=(vs_base=base+1)+1;
return;
T846:;
if((V167!= VV[154]))goto T847;
base[1]= car(cddddr((V166)));
vs_top=(vs_base=base+1)+1;
return;
T847:;
if((V167!= VV[114]))goto T848;
base[1]= VV[114];
vs_top=(vs_base=base+1)+1;
return;
T848:;
if(!(type_of(car((V166)))==t_symbol)){
goto T850;}
base[1]= car((V166));
vs_top=(vs_base=base+1)+1;
Lspecial_form_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T849;}
base[1]= car((V166));
vs_top=(vs_base=base+1)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T850;}
T849:;
base[1]= car((V166));
vs_top=(vs_base=base+1)+1;
return;
T850:;
base[1]= VV[99];
vs_top=(vs_base=base+1)+1;
return;}
T843:;
base[1]= (V166);
vs_top=(vs_base=base+1)+1;
Lcompiled_function_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T859;}
base[1]= (V166);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk165)();
return;
T859:;
base[1]= VV[99];
vs_top=(vs_base=base+1)+1;
return;}
}
}
/* function definition for IHS-NOT-INTERPRETED-ENV */
static L27()
{register object *base=vs_base;
register object *sup=base+VM27; VC27
vs_reserve(VM27);
{object V168;
check_arg(1);
V168=(base[0]);
vs_top=sup;
TTL:;
{object V169;
base[1]= (V168);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk151)();
vs_top=sup;
V169= vs_base[0];
if(!(type_of((V169))==t_cons)){
goto T866;}
if(!(number_compare((V168),small_fixnum(3))>0)){
goto T866;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T866:;
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;}
}
}
/* local entry for function SET-ENV */
static object LI28()
{ VMB28 VMS28 VMV28
TTL:;
base[0]= symbol_value(VV[38]);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk166)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T872;}
setq(VV[41],Cnil);
goto T870;
T872:;
{object V170;
base[0]= symbol_value(VV[38]);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk142)();
vs_top=sup;
V170= vs_base[0];
base[0]= (V170);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk144)();
vs_top=sup;
V171= vs_base[0];
base[0]= one_plus((V170));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk144)();
vs_top=sup;
V172= vs_base[0];
base[0]= number_plus((V170),small_fixnum(2));
vs_top=(vs_base=base+0)+1;
(void) (*Lnk144)();
vs_top=sup;
V173= vs_base[0];
setq(VV[41],list(3,V171,V172,V173));}
T870:;
{object V174 = symbol_value(VV[41]);
VMR28(V174)}
}
/* local entry for function LIST-DELQ */
static object LI29(V177,V178)
object V177;register object V178;
{ VMB29 VMS29 VMV29
TTL:;
if(((V178))!=Cnil){
goto T884;}
{object V179 = Cnil;
VMR29(V179)}
T884:;
if(!(((V177))==(car((V178))))){
goto T887;}
{object V180 = cdr((V178));
VMR29(V180)}
T887:;
V181= (*(LnkLI167))((V177),cdr((V178)));
if(type_of((V178))!=t_cons)FEwrong_type_argument(Scons,(V178));
((V178))->c.c_cdr = /* INLINE-ARGS */V181;
{object V182 = (V178);
VMR29(V182)}
}
/* local entry for function SUPER-GO */
static object LI30(V185,V186)
register object V185;register object V186;
{ VMB30 VMS30 VMV30
TTL:;
{object V187;
V187= Cnil;
if(!(number_compare((V185),symbol_value(VV[39]))>=0)){
goto T890;}
if(!(number_compare((V185),symbol_value(VV[40]))<=0)){
goto T890;}
base[1]= (V185);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk159)();
vs_top=sup;
base[0]= vs_base[0];
vs_top=(vs_base=base+0)+1;
(void) (*Lnk160)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T890;}
base[1]= (V185);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk159)();
vs_top=sup;
base[0]= vs_base[0];
base[3]= (V185);
vs_top=(vs_base=base+3)+1;
(void) (*Lnk156)();
vs_top=sup;
V188= vs_base[0];
base[2]= number_plus(V188,small_fixnum(2));
vs_top=(vs_base=base+2)+1;
(void) (*Lnk144)();
vs_top=sup;
base[1]= vs_base[0];
base[2]= VV[101];
base[3]= symbol_function(VV[161]);
base[4]= VV[102];
base[5]= symbol_function(VV[162]);
vs_top=(vs_base=base+0)+6;
Lmember();
vs_top=sup;
V187= vs_base[0];
if(((V187))==Cnil){
goto T900;}
if(!((cadar((V187)))==(VV[89]))){
goto T890;}
base[1]= (V185);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk159)();
vs_top=sup;
V193= vs_base[0];
V194= symbol_function(VV[162]);
V195= symbol_function(VV[161]);
V196= (VFUN_NARGS=6,(*(LnkLI163))(V193,(V187),VV[104],V194,VV[101],V195));
{object V191;
object V192= /* INLINE-ARGS */V196;
if(endp(V192)){
V190= Cnil;
goto T917;}
base[0]=V191=MMcons(Cnil,Cnil);
T918:;
(V191->c.c_car)= car((V192->c.c_car));
if(endp(V192=MMcdr(V192))){
V190= base[0];
goto T917;}
V191=MMcdr(V191)=MMcons(Cnil,Cnil);
goto T918;}
T917:;
{register object x= (V186),V189= V190;
while(!endp(V189))
if(eql(x,V189->c.c_car)){
goto T916;
}else V189=V189->c.c_cdr;
goto T890;}
T916:;
base[1]= (V185);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk159)();
vs_top=sup;
base[0]= vs_base[0];
base[1]= (V186);
base[2]= Ct;
vs_top=(vs_base=base+0)+3;
(void) (*Lnk168)();
vs_top=sup;
goto T890;
T900:;
base[1]= (V185);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk159)();
vs_top=sup;
base[0]= vs_base[0];
base[1]= (V186);
base[2]= Cnil;
vs_top=(vs_base=base+0)+3;
(void) (*Lnk168)();
vs_top=sup;
T890:;
base[0]= symbol_value(VV[47]);
base[1]= VV[115];
base[2]= (V185);
base[3]= (V186);
vs_top=(vs_base=base+0)+4;
Lformat();
vs_top=sup;
{object V197 = vs_base[0];
VMR30(V197)}}
}
/* local entry for function BREAK-BACKWARD-SEARCH-STACK */
static object LI31(V199)
object V199;
{ VMB31 VMS31 VMV31
TTL:;
{object V200;
V200= Cnil;
V200= coerce_to_string((V199));
{object V201;
object V202;
V201= one_minus(symbol_value(VV[38]));
base[0]= (V201);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk140)();
vs_top=sup;
V202= vs_base[0];
T943:;
if(!(number_compare((V201),symbol_value(VV[36]))<0)){
goto T944;}
base[0]= symbol_value(VV[47]);
base[1]= VV[116];
base[2]= (V200);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
{object V203 = vs_base[0];
VMR31(V203)}
T944:;
if(((*(LnkLI139))((V201)))==Cnil){
goto T951;}
V204= symbol_name((V202));
V205= symbol_function(VV[170]);
if(((VFUN_NARGS=4,(*(LnkLI169))((V200),/* INLINE-ARGS */V204,VV[102],V205)))==Cnil){
goto T951;}
base[0]= (V201);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk171)();
vs_top=sup;
{object V206 = Cnil;
VMR31(V206)}
T951:;
V201= one_minus((V201));
base[0]= (V201);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk140)();
vs_top=sup;
V202= vs_base[0];
goto T943;}}
}
/* local entry for function BREAK-FORWARD-SEARCH-STACK */
static object LI32(V208)
object V208;
{ VMB32 VMS32 VMV32
TTL:;
{object V209;
V209= Cnil;
V209= coerce_to_string((V208));
{object V210;
object V211;
V210= one_plus(symbol_value(VV[38]));
base[0]= (V210);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk140)();
vs_top=sup;
V211= vs_base[0];
T972:;
if(!(number_compare((V210),symbol_value(VV[37]))>0)){
goto T973;}
base[0]= symbol_value(VV[47]);
base[1]= VV[117];
base[2]= (V209);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
{object V212 = vs_base[0];
VMR32(V212)}
T973:;
if(((*(LnkLI139))((V210)))==Cnil){
goto T980;}
V213= symbol_name((V211));
V214= symbol_function(VV[170]);
if(((VFUN_NARGS=4,(*(LnkLI169))((V209),/* INLINE-ARGS */V213,VV[102],V214)))==Cnil){
goto T980;}
base[0]= (V210);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk171)();
vs_top=sup;
{object V215 = Cnil;
VMR32(V215)}
T980:;
V210= one_plus((V210));
base[0]= (V210);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk140)();
vs_top=sup;
V211= vs_base[0];
goto T972;}}
}
/* local entry for function BREAK-HELP */
static object LI33()
{ VMB33 VMS33 VMV33
TTL:;
base[0]= symbol_value(VV[47]);
base[1]= VV[118];
vs_top=(vs_base=base+0)+2;
Lformat();
vs_top=sup;
vs_base=vs_top=base+0;
vs_base[0]=Cnil;
vs_top=sup;
{object V216 = vs_base[0];
VMR33(V216)}
}
static LnkT171(){ call_or_link(VV[171],&Lnk171);} /* BREAK-GO */
static object LnkTLI169(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[169],&LnkLI169,ap);} /* SEARCH */
static LnkT168(){ call_or_link(VV[168],&Lnk168);} /* INTERNAL-SUPER-GO */
static object LnkTLI167(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[167],&LnkLI167,2,ap);} /* LIST-DELQ */
static LnkT166(){ call_or_link(VV[166],&Lnk166);} /* IHS-NOT-INTERPRETED-ENV */
static LnkT165(){ call_or_link(VV[165],&Lnk165);} /* COMPILED-FUNCTION-NAME */
static object LnkTLI163(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[163],&LnkLI163,ap);} /* REMOVE */
static LnkT160(){ call_or_link(VV[160],&Lnk160);} /* SPICEP */
static LnkT159(){ call_or_link(VV[159],&Lnk159);} /* FRS-TAG */
static LnkT157(){ call_or_link(VV[157],&Lnk157);} /* FRS-CLASS */
static LnkT156(){ call_or_link(VV[156],&Lnk156);} /* FRS-VS */
static object LnkTLI155(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[155],&LnkLI155,1,ap);} /* FRS-KIND */
static LnkT151(){ call_or_link(VV[151],&Lnk151);} /* IHS-FUN */
static LnkT150(){ call_or_link(VV[150],&Lnk150);} /* FRS-IHS */
static LnkT149(){ call_or_link(VV[149],&Lnk149);} /* BDS-VAL */
static object LnkTLI148(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[148],&LnkLI148,1,ap);} /* PRINT-FRS */
static LnkT147(){ call_or_link(VV[147],&Lnk147);} /* BDS-VAR */
static LnkT146(){ call_or_link(VV[146],&Lnk146);} /* FRS-BDS */
static LnkT145(){ call_or_link(VV[145],&Lnk145);} /* BREAK-VS */
static LnkT144(){ call_or_link(VV[144],&Lnk144);} /* VS */
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],&LnkLI143,1,ap);} /* PRINT-IHS */
static LnkT142(){ call_or_link(VV[142],&Lnk142);} /* IHS-VS */
static LnkT141(){ call_or_link(VV[141],&Lnk141);} /* BREAK-PREVIOUS */
static LnkT140(){ call_or_link(VV[140],&Lnk140);} /* IHS-FNAME */
static object LnkTLI139(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[139],&LnkLI139,1,ap);} /* IHS-VISIBLE */
static object LnkTLI138(){return call_proc0(VV[138],&LnkLI138);} /* SET-ENV */
static LnkT137(){ call_or_link(VV[137],&Lnk137);} /* BREAK-LEVEL */
static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* BREAK */
static LnkT133(){ call_or_link(VV[133],&Lnk133);} /* DBL-READ */
static LnkT132(){ call_or_link(VV[132],&Lnk132);} /* SET-BACK */
static object LnkTLI131(){return call_proc0(VV[131],&LnkLI131);} /* SET-CURRENT */
static LnkT130(){ call_or_link(VV[130],&Lnk130);} /* CATCH-FATAL */
static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* BREAK-QUIT */
static LnkT128(){ call_or_link(VV[128],&Lnk128);} /* SIMPLE-BACKTRACE */
static LnkT127(){ call_or_link(VV[127],&Lnk127);} /* FRS-TOP */
static LnkT126(){ call_or_link(VV[126],&Lnk126);} /* SCH-FRS-BASE */
static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* IHS-TOP */
static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* MAKE-STRING-INPUT-STREAM */
static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* BREAK-CURRENT */
static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* STRING-CONCATENATE */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.