This is cmploc.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmploc.h"
init_cmploc(){do_init(VV);}
/* local entry for function WT-NEXT-VAR-ARG */
static object LI1()
{ VMB1 VMS1 VMV1
TTL:;
princ_str("va_arg(ap,object)",VV[0]);
{object V1 = Cnil;
VMR1(V1)}
}
/* function definition for SET-LOC */
static L2()
{register object *base=vs_base;
register object *sup=base+VM2; VC2
vs_reserve(VM2);
{register object V2;
check_arg(1);
V2=(base[0]);
vs_top=sup;
TTL:;
{object V3;
V3= Cnil;
if(!((symbol_value(VV[1]))==(VV[2]))){
goto T4;}
base[1]= (*(LnkLI34))((V2));
vs_top=(vs_base=base+1)+1;
return;
T4:;
if(!((symbol_value(VV[1]))==(VV[3]))){
goto T7;}
if(!(type_of((V2))==t_cons)){
goto T10;}
{register object x= car((V2)),V4= VV[4];
while(!endp(V4))
if(eql(x,V4->c.c_car)){
goto T14;
}else V4=V4->c.c_cdr;
goto T10;}
T14:;
if((cadr((V2)))==Cnil){
goto T10;}
princ_str("\n (void)(",VV[0]);
base[1]= Ct;
base[2]= caddr((V2));
base[3]= cadddr((V2));
vs_top=(vs_base=base+1)+3;
(void) (*Lnk35)();
vs_top=sup;
princ_str(");",VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T10:;
if(!(type_of((V2))==t_cons)){
goto T24;}
if(!((car((V2)))==(VV[5]))){
goto T24;}
princ_str("\n (void)",VV[0]);
(void)((*(LnkLI36))((V2)));
princ_char(59,VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T24:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T7:;
if(!((symbol_value(VV[1]))==(VV[6]))){
goto T32;}
if(((V2))==(VV[7])){
goto T35;}
base[1]= (*(LnkLI37))((V2));
vs_top=(vs_base=base+1)+1;
return;
T35:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T32:;
if(!((symbol_value(VV[1]))==(VV[8]))){
goto T38;}
base[1]= (V2);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk38)();
return;
T38:;
if(!((symbol_value(VV[1]))==(VV[9]))){
goto T42;}
base[1]= (V2);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk39)();
return;
T42:;
if(!((symbol_value(VV[1]))==(VV[10]))){
goto T46;}
base[1]= (V2);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk40)();
return;
T46:;
if(!((symbol_value(VV[1]))==(VV[11]))){
goto T50;}
base[1]= (V2);
vs_top=(vs_base=base+1)+1;
(void) (*Lnk41)();
return;
T50:;
if(!(type_of(symbol_value(VV[1]))==t_cons)){
goto T53;}
if(type_of(car(symbol_value(VV[1])))==t_symbol){
goto T54;}
T53:;
base[1]= (*(LnkLI42))();
vs_top=(vs_base=base+1)+1;
return;
T54:;
V3= get(car(symbol_value(VV[1])),VV[12],Cnil);
if(((V3))==Cnil){
goto T59;}
base[1]= (V3);
base[2]= (V2);
{object V5;
V5= cdr(symbol_value(VV[1]));
vs_top=base+3;
while(!endp(V5))
{vs_push(car(V5));V5=cdr(V5);}
vs_base=base+2;}
super_funcall_no_event(base[1]);
return;
T59:;
V3= get(car(symbol_value(VV[1])),VV[13],Cnil);
if(((V3))==Cnil){
goto T66;}
princ_str("\n ",VV[0]);
base[1]= (V3);
{object V6;
V6= cdr(symbol_value(VV[1]));
vs_top=base+2;
while(!endp(V6))
{vs_push(car(V6));V6=cdr(V6);}
vs_base=base+2;}
super_funcall_no_event(base[1]);
vs_top=sup;
princ_str("= ",VV[0]);
(void)((*(LnkLI36))((V2)));
princ_char(59,VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T66:;
base[1]= (*(LnkLI42))();
vs_top=(vs_base=base+1)+1;
return;}
}
}
/* function definition for WT-LOC */
static L3()
{register object *base=vs_base;
register object *sup=base+VM3; VC3
vs_reserve(VM3);
{register object V7;
check_arg(1);
V7=(base[0]);
vs_top=sup;
TTL:;
if(!(((V7))==(Cnil))){
goto T77;}
princ_str("Cnil",VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T77:;
if(!(((V7))==(Ct))){
goto T81;}
princ_str("Ct",VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T81:;
if(!(((V7))==(VV[7]))){
goto T85;}
princ_str("vs_base[0]",VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T85:;
if(!(type_of((V7))==t_cons)){
goto T88;}
if(type_of(car((V7)))==t_symbol){
goto T89;}
T88:;
base[1]= (*(LnkLI42))();
vs_top=(vs_base=base+1)+1;
return;
T89:;
{object V8;
V8= get(car((V7)),VV[13],Cnil);
if(((V8))!=Cnil){
goto T94;}
(void)((*(LnkLI42))());
T94:;
base[1]= (V8);
{object V9;
V9= cdr((V7));
vs_top=base+2;
while(!endp(V9))
{vs_push(car(V9));V9=cdr(V9);}
vs_base=base+2;}
super_funcall_no_event(base[1]);
return;}
}
}
/* local entry for function SET-RETURN */
static object LI4(V11)
register object V11;
{ VMB4 VMS4 VMV4
TTL:;
{object V12;
V12= (((V11))==(VV[7])?Ct:Cnil);
if(((V12))==Cnil){
goto T101;}
{object V13 = (V12);
VMR4(V13)}
T101:;
if(!(type_of((V11))==t_cons)){
goto T104;}
if(!((car((V11)))==(VV[14]))){
goto T104;}
if(!(number_compare(caadr((V11)),symbol_value(VV[15]))==0)){
goto T104;}
princ_str("\n vs_top=(vs_base=base+",VV[0]);
(void)((*(LnkLI36))(cdadr((V11))));
princ_str(")+1;",VV[0]);
setq(VV[16],Ct);
{object V14 = Ct;
VMR4(V14)}
T104:;
if(!(type_of((V11))==t_cons)){
goto T116;}
if(!((car((V11)))==(VV[17]))){
goto T116;}
V15= structure_ref(cadr((V11)),VV[17],1);
if(!((/* INLINE-ARGS */V15)==(VV[18]))){
goto T116;}
if((structure_ref(cadr((V11)),VV[17],3))!=Cnil){
goto T116;}
V16= structure_ref(cadr((V11)),VV[17],2);
if(!(eql(car(/* INLINE-ARGS */V16),symbol_value(VV[15])))){
goto T116;}
princ_str("\n vs_top=(vs_base=base+",VV[0]);
V17= structure_ref(cadr((V11)),VV[17],2);
(void)((*(LnkLI36))(cdr(/* INLINE-ARGS */V17)));
princ_str(")+1;",VV[0]);
setq(VV[16],Ct);
{object V18 = Ct;
VMR4(V18)}
T116:;
{object V19 = (*(LnkLI37))((V11));
VMR4(V19)}}
}
/* local entry for function SET-TOP */
static object LI5(V21)
object V21;
{ VMB5 VMS5 VMV5
bds_check;
TTL:;
bds_bind(VV[19],symbol_value(VV[19]));
princ_str("\n ",VV[0]);
V22= (*(LnkLI44))();
(void)((*(LnkLI43))(/* INLINE-ARGS */V22));
princ_str("= ",VV[0]);
(void)((*(LnkLI36))((V21)));
princ_char(59,VV[0]);
princ_str("\n vs_top=(vs_base=base+",VV[0]);
V23= one_minus((VV[19]->s.s_dbind));
(void)((*(LnkLI36))(/* INLINE-ARGS */V23));
princ_str(")+1;",VV[0]);
setq(VV[16],Ct);
{object V24 = Ct;
bds_unwind1;
VMR5(V24)}
}
/* local entry for function WT-VS-BASE */
static object LI6(V26)
object V26;
{ VMB6 VMS6 VMV6
TTL:;
princ_str("vs_base[",VV[0]);
(void)((*(LnkLI36))((V26)));
princ_char(93,VV[0]);
{object V27 = Cnil;
VMR6(V27)}
}
/* local entry for function WT-CAR */
static object LI7(V29)
object V29;
{ VMB7 VMS7 VMV7
TTL:;
princ_str("(V",VV[0]);
(void)((*(LnkLI36))((V29)));
princ_str("->c.c_car)",VV[0]);
{object V30 = Cnil;
VMR7(V30)}
}
/* local entry for function WT-CDR */
static object LI8(V32)
object V32;
{ VMB8 VMS8 VMV8
TTL:;
princ_str("(V",VV[0]);
(void)((*(LnkLI36))((V32)));
princ_str("->c.c_cdr)",VV[0]);
{object V33 = Cnil;
VMR8(V33)}
}
/* local entry for function WT-CADR */
static object LI9(V35)
object V35;
{ VMB9 VMS9 VMV9
TTL:;
princ_str("(V",VV[0]);
(void)((*(LnkLI36))((V35)));
princ_str("->c.c_cdr->c.c_car)",VV[0]);
{object V36 = Cnil;
VMR9(V36)}
}
/* local entry for function WT-CVAR */
static object LI10(V37,va_alist)
object V37;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB10 VMS10 VMV10
{object V38;
object V39;
if(narg <1) too_few_arguments();
V38= V37;
narg = narg - 1;
if (narg <= 0) goto T154;
else {
va_start(ap);
V39= va_arg(ap,object);}
--narg; goto T155;
T154:;
V39= Cnil;
T155:;
if(((V39))==Cnil){
goto T157;}
princ_str("/* ",VV[0]);
V40= symbol_name((V39));
(void)((*(LnkLI36))(/* INLINE-ARGS */V40));
princ_str(" */",VV[0]);
T157:;
princ_char(86,VV[0]);
(void)((*(LnkLI36))((V38)));
{object V41 = Cnil;
VMR10(V41)}}
}
/* local entry for function WT-VV */
static object LI11(V43)
object V43;
{ VMB11 VMS11 VMV11
TTL:;
princ_str("VV[",VV[0]);
(void)((*(LnkLI36))((V43)));
princ_char(93,VV[0]);
{object V44 = Cnil;
VMR11(V44)}
}
/* function definition for WT-FIXNUM-LOC */
static L12()
{register object *base=vs_base;
register object *sup=base+VM12; VC12
vs_reserve(VM12);
{register object V45;
check_arg(1);
V45=(base[0]);
vs_top=sup;
TTL:;
if(!(type_of((V45))==t_cons)){
goto T169;}
if(!((car((V45)))==(VV[17]))){
goto T169;}
V46= structure_ref(cadr((V45)),VV[17],1);
if(!((/* INLINE-ARGS */V46)==(VV[20]))){
goto T169;}
princ_char(86,VV[0]);
V47= structure_ref(cadr((V45)),VV[17],4);
(void)((*(LnkLI36))(/* INLINE-ARGS */V47));
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T169:;
if(!(type_of((V45))==t_cons)){
goto T178;}
if(!((car((V45)))==(VV[21]))){
goto T178;}
base[1]= caddr((V45));
base[2]= cadddr((V45));
vs_top=(vs_base=base+1)+2;
(void) (*Lnk45)();
return;
T178:;
if(!(type_of((V45))==t_cons)){
goto T185;}
if(!((car((V45)))==(VV[22]))){
goto T185;}
(void)((*(LnkLI36))(caddr((V45))));
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T185:;
if(!(type_of((V45))==t_cons)){
goto T191;}
{register object x= car((V45)),V48= VV[23];
while(!endp(V48))
if(eql(x,V48->c.c_car)){
goto T194;
}else V48=V48->c.c_cdr;
goto T191;}
T194:;
princ_str("((int)(",VV[0]);
base[1]= caddr((V45));
base[2]= cadddr((V45));
vs_top=(vs_base=base+1)+2;
(void) (*Lnk45)();
vs_top=sup;
princ_str("))",VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T191:;
princ_str("fix(",VV[0]);
(void)((*(LnkLI36))((V45)));
princ_char(41,VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
}
/* function definition for WT-INTEGER-LOC */
static L13()
{register object *base=vs_base;
register object *sup=base+VM13; VC13
vs_reserve(VM13);
{register object V49;
object V50;
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
V49=(base[0]);
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T204;}
V50=(base[1]);
vs_top=sup;
goto T205;
T204:;
V50= Cnil;
T205:;
{object V51;
object V52;
V51= Ct;
if(type_of((V49))==t_cons){
goto T209;}
V52= Cnil;
goto T208;
T209:;
V52= car((V49));
T208:;
{object V53= (V52);
if((V53!= VV[21]))goto T212;
princ_str("stoi(",VV[0]);
base[2]= caddr((V49));
base[3]= cadddr((V49));
vs_top=(vs_base=base+2)+2;
(void) (*Lnk45)();
vs_top=sup;
princ_char(41,VV[0]);
goto T211;
T212:;
if((V53!= VV[46]))goto T219;
V51= Cnil;
base[2]= caddr((V49));
base[3]= cadddr((V49));
vs_top=(vs_base=base+2)+2;
(void) (*Lnk45)();
vs_top=sup;
goto T211;
T219:;
if((V53!= VV[22]))goto T224;
princ_str("stoi(",VV[0]);
(void)((*(LnkLI36))(caddr((V49))));
princ_char(41,VV[0]);
goto T211;
T224:;
if((V53!= VV[17]))goto T228;
V55= structure_ref(cadr((V49)),VV[17],1);
{object V54= /* INLINE-ARGS */V55;
if((V54!= VV[47]))goto T229;
V51= Cnil;
princ_char(86,VV[0]);
V56= structure_ref(cadr((V49)),VV[17],4);
(void)((*(LnkLI36))(/* INLINE-ARGS */V56));
goto T211;
T229:;
if((V54!= VV[20]))goto T234;
princ_str("stoi(V",VV[0]);
V57= structure_ref(cadr((V49)),VV[17],4);
(void)((*(LnkLI36))(/* INLINE-ARGS */V57));
princ_char(41,VV[0]);
goto T211;
T234:;
princ_str("otoi(",VV[0]);
(void)((*(LnkLI36))((V49)));
princ_char(41,VV[0]);
goto T211;}
T228:;
princ_str("otoi(",VV[0]);
(void)((*(LnkLI36))((V49)));
princ_char(41,VV[0]);}
T211:;
if((V51)==Cnil){
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;}
if((symbol_value(VV[24]))==Cnil){
goto T244;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T244:;
base[2]= (*(LnkLI48))();
vs_top=(vs_base=base+2)+1;
return;}
}
}
/* local entry for function FIXNUM-LOC-P */
static object LI14(V59)
register object V59;
{ VMB14 VMS14 VMV14
TTL:;
if(type_of((V59))==t_cons){
goto T246;}
{object V60 = Cnil;
VMR14(V60)}
T246:;
if((car((V59)))==(VV[17])){
goto T250;}
base[0]= Cnil;
goto T249;
T250:;
V61= structure_ref(cadr((V59)),VV[17],1);
base[0]= ((/* INLINE-ARGS */V61)==(VV[20])?Ct:Cnil);
T249:;
if(base[0]==Cnil)goto T248;
{object V62 = base[0];
VMR14(V62)}
T248:;
if(!((car((V59)))==(VV[21]))){
goto T252;}
{object V63 = Ct;
VMR14(V63)}
T252:;
{object V64 = ((car((V59)))==(VV[22])?Ct:Cnil);
VMR14(V64)}
}
/* local entry for function WT-FIXNUM-VALUE */
static object LI15(V67,V68)
object V67;object V68;
{ VMB15 VMS15 VMV15
TTL:;
if(((V67))==Cnil){
goto T255;}
princ_str("VV[",VV[0]);
(void)((*(LnkLI36))((V67)));
princ_char(93,VV[0]);
{object V69 = Cnil;
VMR15(V69)}
T255:;
princ_str("small_fixnum(",VV[0]);
(void)((*(LnkLI36))((V68)));
princ_char(41,VV[0]);
{object V70 = Cnil;
VMR15(V70)}
}
/* function definition for WT-CHARACTER-LOC */
static L16()
{register object *base=vs_base;
register object *sup=base+VM16; VC16
vs_reserve(VM16);
{register object V71;
check_arg(1);
V71=(base[0]);
vs_top=sup;
TTL:;
if(!(type_of((V71))==t_cons)){
goto T264;}
if(!((car((V71)))==(VV[17]))){
goto T264;}
V72= structure_ref(cadr((V71)),VV[17],1);
if(!((/* INLINE-ARGS */V72)==(VV[25]))){
goto T264;}
princ_char(86,VV[0]);
V73= structure_ref(cadr((V71)),VV[17],4);
(void)((*(LnkLI36))(/* INLINE-ARGS */V73));
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T264:;
if(!(type_of((V71))==t_cons)){
goto T273;}
if(!((car((V71)))==(VV[26]))){
goto T273;}
base[1]= caddr((V71));
base[2]= cadddr((V71));
vs_top=(vs_base=base+1)+2;
(void) (*Lnk45)();
return;
T273:;
if(!(type_of((V71))==t_cons)){
goto T280;}
if(!((car((V71)))==(VV[27]))){
goto T280;}
(void)((*(LnkLI36))(caddr((V71))));
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T280:;
princ_str("char_code(",VV[0]);
(void)((*(LnkLI36))((V71)));
princ_char(41,VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
}
/* local entry for function CHARACTER-LOC-P */
static object LI17(V75)
register object V75;
{ VMB17 VMS17 VMV17
TTL:;
if(type_of((V75))==t_cons){
goto T288;}
{object V76 = Cnil;
VMR17(V76)}
T288:;
if((car((V75)))==(VV[17])){
goto T292;}
base[0]= Cnil;
goto T291;
T292:;
V77= structure_ref(cadr((V75)),VV[17],1);
base[0]= ((/* INLINE-ARGS */V77)==(VV[25])?Ct:Cnil);
T291:;
if(base[0]==Cnil)goto T290;
{object V78 = base[0];
VMR17(V78)}
T290:;
if(!((car((V75)))==(VV[26]))){
goto T294;}
{object V79 = Ct;
VMR17(V79)}
T294:;
{object V80 = ((car((V75)))==(VV[27])?Ct:Cnil);
VMR17(V80)}
}
/* local entry for function WT-CHARACTER-VALUE */
static object LI18(V83,V84)
object V83;object V84;
{ VMB18 VMS18 VMV18
TTL:;
princ_str("VV[",VV[0]);
(void)((*(LnkLI36))((V83)));
princ_char(93,VV[0]);
{object V85 = Cnil;
VMR18(V85)}
}
/* function definition for WT-LONG-FLOAT-LOC */
static L19()
{register object *base=vs_base;
register object *sup=base+VM19; VC19
vs_reserve(VM19);
{register object V86;
check_arg(1);
V86=(base[0]);
vs_top=sup;
TTL:;
if(!(type_of((V86))==t_cons)){
goto T300;}
if(!((car((V86)))==(VV[17]))){
goto T300;}
V87= structure_ref(cadr((V86)),VV[17],1);
if(!((/* INLINE-ARGS */V87)==(VV[28]))){
goto T300;}
princ_char(86,VV[0]);
V88= structure_ref(cadr((V86)),VV[17],4);
(void)((*(LnkLI36))(/* INLINE-ARGS */V88));
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T300:;
if(!(type_of((V86))==t_cons)){
goto T309;}
if(!((car((V86)))==(VV[29]))){
goto T309;}
base[1]= caddr((V86));
base[2]= cadddr((V86));
vs_top=(vs_base=base+1)+2;
(void) (*Lnk45)();
return;
T309:;
if(!(type_of((V86))==t_cons)){
goto T316;}
if(!((car((V86)))==(VV[30]))){
goto T316;}
(void)((*(LnkLI36))(caddr((V86))));
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T316:;
princ_str("lf(",VV[0]);
(void)((*(LnkLI36))((V86)));
princ_char(41,VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
}
/* local entry for function LONG-FLOAT-LOC-P */
static object LI20(V90)
register object V90;
{ VMB20 VMS20 VMV20
TTL:;
if(type_of((V90))==t_cons){
goto T324;}
{object V91 = Cnil;
VMR20(V91)}
T324:;
if((car((V90)))==(VV[17])){
goto T328;}
base[0]= Cnil;
goto T327;
T328:;
V92= structure_ref(cadr((V90)),VV[17],1);
base[0]= ((/* INLINE-ARGS */V92)==(VV[28])?Ct:Cnil);
T327:;
if(base[0]==Cnil)goto T326;
{object V93 = base[0];
VMR20(V93)}
T326:;
if(!((car((V90)))==(VV[29]))){
goto T330;}
{object V94 = Ct;
VMR20(V94)}
T330:;
{object V95 = ((car((V90)))==(VV[30])?Ct:Cnil);
VMR20(V95)}
}
/* local entry for function WT-LONG-FLOAT-VALUE */
static object LI21(V98,V99)
object V98;object V99;
{ VMB21 VMS21 VMV21
TTL:;
princ_str("VV[",VV[0]);
(void)((*(LnkLI36))((V98)));
princ_char(93,VV[0]);
{object V100 = Cnil;
VMR21(V100)}
}
/* function definition for WT-SHORT-FLOAT-LOC */
static L22()
{register object *base=vs_base;
register object *sup=base+VM22; VC22
vs_reserve(VM22);
{register object V101;
check_arg(1);
V101=(base[0]);
vs_top=sup;
TTL:;
if(!(type_of((V101))==t_cons)){
goto T336;}
if(!((car((V101)))==(VV[17]))){
goto T336;}
V102= structure_ref(cadr((V101)),VV[17],1);
if(!((/* INLINE-ARGS */V102)==(VV[31]))){
goto T336;}
princ_char(86,VV[0]);
V103= structure_ref(cadr((V101)),VV[17],4);
(void)((*(LnkLI36))(/* INLINE-ARGS */V103));
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T336:;
if(!(type_of((V101))==t_cons)){
goto T345;}
if(!((car((V101)))==(VV[32]))){
goto T345;}
base[1]= caddr((V101));
base[2]= cadddr((V101));
vs_top=(vs_base=base+1)+2;
(void) (*Lnk45)();
return;
T345:;
if(!(type_of((V101))==t_cons)){
goto T352;}
if(!((car((V101)))==(VV[33]))){
goto T352;}
(void)((*(LnkLI36))(caddr((V101))));
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T352:;
princ_str("sf(",VV[0]);
(void)((*(LnkLI36))((V101)));
princ_char(41,VV[0]);
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
}
/* local entry for function SHORT-FLOAT-LOC-P */
static object LI23(V105)
register object V105;
{ VMB23 VMS23 VMV23
TTL:;
if(type_of((V105))==t_cons){
goto T360;}
{object V106 = Cnil;
VMR23(V106)}
T360:;
if((car((V105)))==(VV[17])){
goto T364;}
base[0]= Cnil;
goto T363;
T364:;
V107= structure_ref(cadr((V105)),VV[17],1);
base[0]= ((/* INLINE-ARGS */V107)==(VV[31])?Ct:Cnil);
T363:;
if(base[0]==Cnil)goto T362;
{object V108 = base[0];
VMR23(V108)}
T362:;
if(!((car((V105)))==(VV[32]))){
goto T366;}
{object V109 = Ct;
VMR23(V109)}
T366:;
{object V110 = ((car((V105)))==(VV[33])?Ct:Cnil);
VMR23(V110)}
}
/* local entry for function WT-SHORT-FLOAT-VALUE */
static object LI24(V113,V114)
object V113;object V114;
{ VMB24 VMS24 VMV24
TTL:;
princ_str("VV[",VV[0]);
(void)((*(LnkLI36))((V113)));
princ_char(93,VV[0]);
{object V115 = Cnil;
VMR24(V115)}
}
static object LnkTLI48(){return call_proc0(VV[48],&LnkLI48);} /* WFS-ERROR */
static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* WT-INLINE-LOC */
static object LnkTLI44(){return call_proc0(VV[44],&LnkLI44);} /* VS-PUSH */
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,1,ap);} /* WT-VS */
static object LnkTLI42(){return call_proc0(VV[42],&LnkLI42);} /* BABOON */
static LnkT41(){ call_or_link(VV[41],&Lnk41);} /* SET-RETURN-SHORT-FLOAT */
static LnkT40(){ call_or_link(VV[40],&Lnk40);} /* SET-RETURN-LONG-FLOAT */
static LnkT39(){ call_or_link(VV[39],&Lnk39);} /* SET-RETURN-CHARACTER */
static LnkT38(){ call_or_link(VV[38],&Lnk38);} /* SET-RETURN-FIXNUM */
static object LnkTLI37(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[37],&LnkLI37,1,ap);} /* SET-TOP */
static object LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],&LnkLI36,1,ap);} /* WT1 */
static LnkT35(){ call_or_link(VV[35],&Lnk35);} /* WT-INLINE */
static object LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],&LnkLI34,1,ap);} /* SET-RETURN */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.