58 |
goto T15; |
goto T15; |
59 |
T15:; |
T15:; |
60 |
V1= ( |
V1= ( |
61 |
(type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(object (*)())(((VV[17]->s.s_dbind))->sfn.sfn_self)): |
(type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)): |
62 |
(fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))()); |
(fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))()); |
63 |
frs_pop();} |
frs_pop();} |
64 |
goto T3; |
goto T3; |
450 |
vs_base=vs_top; |
vs_base=vs_top; |
451 |
(void) (*Lnk159)(); |
(void) (*Lnk159)(); |
452 |
vs_top=sup; |
vs_top=sup; |
453 |
base[25]= make_fixnum(length(CMPcdr((VV[36]->s.s_dbind)))); |
base[25]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind)))); |
454 |
vs_top=(vs_base=base+25)+1; |
vs_top=(vs_base=base+25)+1; |
455 |
(void) (*Lnk160)(); |
(void) (*Lnk160)(); |
456 |
vs_top=sup; |
vs_top=sup; |
857 |
vs_top=sup; |
vs_top=sup; |
858 |
bds_unwind1; |
bds_unwind1; |
859 |
princ_char(10,VV[27]); |
princ_char(10,VV[27]); |
860 |
if(!((length((VV[71]->s.s_dbind)))>(0))){ |
if(!(((long)length((VV[71]->s.s_dbind)))>(0))){ |
861 |
goto T365;} |
goto T365;} |
862 |
base[4]= (VV[27]->s.s_dbind); |
base[4]= (VV[27]->s.s_dbind); |
863 |
base[5]= VV[72]; |
base[5]= VV[72]; |
1153 |
goto T453; |
goto T453; |
1154 |
T453:; |
T453:; |
1155 |
{object V78; |
{object V78; |
1156 |
V78= make_fixnum(length((VV[36]->s.s_dbind))); |
V78= make_fixnum((long)length((VV[36]->s.s_dbind))); |
1157 |
if(!(number_compare((V77),small_fixnum(0))>=0)){ |
if(!(number_compare((V77),small_fixnum(0))>=0)){ |
1158 |
goto T456;} |
goto T456;} |
1159 |
if(!(number_compare((V77),(V78))<0)){ |
if(!(number_compare((V77),(V78))<0)){ |
1368 |
V90= (VV[48]->s.s_dbind); |
V90= (VV[48]->s.s_dbind); |
1369 |
goto T540; |
goto T540; |
1370 |
T540:; |
T540:; |
1371 |
if(!((length((V89)))==(3))){ |
if(!(((long)length((V89)))==(3))){ |
1372 |
goto T544;} |
goto T544;} |
1373 |
goto T543; |
goto T543; |
1374 |
goto T544; |
goto T544; |
2841 |
goto T1092; |
goto T1092; |
2842 |
T1092:; |
T1092:; |
2843 |
{long V242; |
{long V242; |
2844 |
V242= ((V241))->v.v_fillp; |
V242= (long)((V241))->v.v_fillp; |
2845 |
if(!((V242)>(0))){ |
if(!((V242)>(0))){ |
2846 |
goto T1099;} |
goto T1099;} |
2847 |
if((((V241))->ust.ust_self[(V242)-(1)])==(47)){ |
if((((V241))->ust.ust_self[(long)(V242)-(1)])==(47)){ |
2848 |
goto T1097;} |
goto T1097;} |
2849 |
goto T1099; |
goto T1099; |
2850 |
T1099:; |
T1099:; |
3274 |
V273= Cnil; |
V273= Cnil; |
3275 |
goto T1264; |
goto T1264; |
3276 |
T1264:; |
T1264:; |
3277 |
V272= (V272)-(1); |
V272= (long)(V272)-(1); |
3278 |
if(!((V272)<(0))){ |
if(!((V272)<(0))){ |
3279 |
goto T1269;} |
goto T1269;} |
3280 |
goto T1262; |
goto T1262; |
3547 |
static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* COERCE-SLASH-TERMINATED */ |
static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* COERCE-SLASH-TERMINATED */ |
3548 |
static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* PACKAGE-SIZE */ |
static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* PACKAGE-SIZE */ |
3549 |
static void LnkT203(){ call_or_link(VV[203],(void **)&Lnk203);} /* BREAK-GO */ |
static void LnkT203(){ call_or_link(VV[203],(void **)&Lnk203);} /* BREAK-GO */ |
3550 |
static object LnkTLI201(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[201],(void **)&LnkLI201,ap);} /* SEARCH */ |
static object LnkTLI201(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[201],(void **)&LnkLI201,ap);va_end(ap);return V1;} /* SEARCH */ |
3551 |
static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* INTERNAL-SUPER-GO */ |
static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* INTERNAL-SUPER-GO */ |
3552 |
static object LnkTLI199(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[199],(void **)&LnkLI199,2,ap);} /* LIST-DELQ */ |
static object LnkTLI199(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[199],(void **)&LnkLI199,2,ap);va_end(ap);return V1;} /* LIST-DELQ */ |
3553 |
static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* IHS-NOT-INTERPRETED-ENV */ |
static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* IHS-NOT-INTERPRETED-ENV */ |
3554 |
static void LnkT197(){ call_or_link(VV[197],(void **)&Lnk197);} /* COMPILED-FUNCTION-NAME */ |
static void LnkT197(){ call_or_link(VV[197],(void **)&Lnk197);} /* COMPILED-FUNCTION-NAME */ |
3555 |
static object LnkTLI195(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[195],(void **)&LnkLI195,ap);} /* REMOVE */ |
static object LnkTLI195(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[195],(void **)&LnkLI195,ap);va_end(ap);return V1;} /* REMOVE */ |
3556 |
static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* SPICEP */ |
static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* SPICEP */ |
3557 |
static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-TAG */ |
static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-TAG */ |
3558 |
static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-CLASS */ |
static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-CLASS */ |
3559 |
static void LnkT188(){ call_or_link(VV[188],(void **)&Lnk188);} /* FRS-VS */ |
static void LnkT188(){ call_or_link(VV[188],(void **)&Lnk188);} /* FRS-VS */ |
3560 |
static object LnkTLI187(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[187],(void **)&LnkLI187,1,ap);} /* FRS-KIND */ |
static object LnkTLI187(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[187],(void **)&LnkLI187,1,ap);va_end(ap);return V1;} /* FRS-KIND */ |
3561 |
static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* IHS-FUN */ |
static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* IHS-FUN */ |
3562 |
static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* FRS-IHS */ |
static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* FRS-IHS */ |
3563 |
static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAL */ |
static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAL */ |
3564 |
static object LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],(void **)&LnkLI180,1,ap);} /* PRINT-FRS */ |
static object LnkTLI180(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[180],(void **)&LnkLI180,1,ap);va_end(ap);return V1;} /* PRINT-FRS */ |
3565 |
static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BDS-VAR */ |
static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BDS-VAR */ |
3566 |
static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* FRS-BDS */ |
static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* FRS-BDS */ |
3567 |
static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* BREAK-VS */ |
static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* BREAK-VS */ |
3568 |
static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* VS */ |
static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* VS */ |
3569 |
static object LnkTLI175(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[175],(void **)&LnkLI175,1,ap);} /* PRINT-IHS */ |
static object LnkTLI175(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[175],(void **)&LnkLI175,1,ap);va_end(ap);return V1;} /* PRINT-IHS */ |
3570 |
static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-VS */ |
static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-VS */ |
3571 |
static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* BREAK-PREVIOUS */ |
static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* BREAK-PREVIOUS */ |
3572 |
static void LnkT172(){ call_or_link(VV[172],(void **)&Lnk172);} /* IHS-FNAME */ |
static void LnkT172(){ call_or_link(VV[172],(void **)&Lnk172);} /* IHS-FNAME */ |
3573 |
static object LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],(void **)&LnkLI171,1,ap);} /* IHS-VISIBLE */ |
static object LnkTLI171(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[171],(void **)&LnkLI171,1,ap);va_end(ap);return V1;} /* IHS-VISIBLE */ |
3574 |
static object LnkTLI170(){return call_proc0(VV[170],(void **)&LnkLI170);} /* SET-ENV */ |
static object LnkTLI170(){return call_proc0(VV[170],(void **)&LnkLI170);} /* SET-ENV */ |
3575 |
static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* COMPLETE-PROP */ |
static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* COMPLETE-PROP */ |
3576 |
static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK-LEVEL */ |
static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK-LEVEL */ |