154 |
T47:; |
T47:; |
155 |
base[6]= (V12); |
base[6]= (V12); |
156 |
base[7]= small_fixnum(0); |
base[7]= small_fixnum(0); |
157 |
base[8]= make_fixnum(length((V12))); |
base[8]= make_fixnum((long)length((V12))); |
158 |
base[9]= base[4]; |
base[9]= base[4]; |
159 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
160 |
(void) (*Lnk91)(); |
(void) (*Lnk91)(); |
201 |
register long V18; |
register long V18; |
202 |
V16= 0; |
V16= 0; |
203 |
V17= 0; |
V17= 0; |
204 |
V18= length((V14)); |
V18= (long)length((V14)); |
205 |
goto T66; |
goto T66; |
206 |
T66:; |
T66:; |
207 |
if(!((V15)<(V18))){ |
if(!((V15)<(V18))){ |
213 |
goto T68; |
goto T68; |
214 |
T68:; |
T68:; |
215 |
{unsigned char V19= char_code(aref1((V14),V15)); |
{unsigned char V19= char_code(aref1((V14),V15)); |
216 |
V17= (/* INLINE-ARGS */V19);} |
V17= (long)(/* INLINE-ARGS */V19);} |
217 |
V15= (V15)+(1); |
V15= (long)(V15)+(1); |
218 |
V17= (V17)-(48); |
V17= (long)(V17)-(48); |
219 |
if(!((V17)>=(0))){ |
if(!((V17)>=(0))){ |
220 |
goto T79;} |
goto T79;} |
221 |
if(!((V17)<(10))){ |
if(!((V17)<(10))){ |
274 |
{long V29= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[11],(V27),small_fixnum(0)))); |
{long V29= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[11],(V27),small_fixnum(0)))); |
275 |
if(!((/* INLINE-ARGS */V29)>=(0))){ |
if(!((/* INLINE-ARGS */V29)>=(0))){ |
276 |
goto T91;}} |
goto T91;}} |
277 |
V28= (*(LnkLI94))(0); |
V28= (long)(*(LnkLI94))(0); |
278 |
V30 = make_fixnum(V28); |
V30 = make_fixnum(V28); |
279 |
V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30))); |
V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30))); |
280 |
goto T99; |
goto T99; |
290 |
goto T100; |
goto T100; |
291 |
goto T101; |
goto T101; |
292 |
T101:; |
T101:; |
293 |
V28= (*(LnkLI94))(0); |
V28= (long)(*(LnkLI94))(0); |
294 |
base[3]= (V27); |
base[3]= (V27); |
295 |
base[4]= make_fixnum((*(LnkLI95))(2)); |
base[4]= make_fixnum((long)(*(LnkLI95))(2)); |
296 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
297 |
(void) (*Lnk96)(); |
(void) (*Lnk96)(); |
298 |
vs_top=sup; |
vs_top=sup; |
316 |
{long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37))); |
{long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37))); |
317 |
if(!((/* INLINE-ARGS */V38)>=(0))){ |
if(!((/* INLINE-ARGS */V38)>=(0))){ |
318 |
goto T115;}} |
goto T115;}} |
319 |
V28= (*(LnkLI94))(0); |
V28= (long)(*(LnkLI94))(0); |
320 |
V39 = make_fixnum(V28); |
V39 = make_fixnum(V28); |
321 |
{long V40= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[15],(V27),V39))); |
{long V40= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[15],(V27),V39))); |
322 |
if(!((/* INLINE-ARGS */V40)>=(0))){ |
if(!((/* INLINE-ARGS */V40)>=(0))){ |
323 |
goto T115;}} |
goto T115;}} |
324 |
base[3]= (V27); |
base[3]= (V27); |
325 |
base[4]= make_fixnum(V28); |
base[4]= make_fixnum(V28); |
326 |
base[5]= make_fixnum((*(LnkLI94))(0)); |
base[5]= make_fixnum((long)(*(LnkLI94))(0)); |
327 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
328 |
Lsubseq(); |
Lsubseq(); |
329 |
vs_top=sup; |
vs_top=sup; |
365 |
register object V45; |
register object V45; |
366 |
register long V46; |
register long V46; |
367 |
V43= 0; |
V43= 0; |
368 |
V44= length((V42)); |
V44= (long)length((V42)); |
369 |
V45= Cnil; |
V45= Cnil; |
370 |
V46= 0; |
V46= 0; |
371 |
{register object V47; |
{register object V47; |
391 |
goto T146; |
goto T146; |
392 |
goto T150; |
goto T150; |
393 |
T150:; |
T150:; |
394 |
V46= (V46)+(1); |
V46= (long)(V46)+(1); |
395 |
goto T146; |
goto T146; |
396 |
T146:; |
T146:; |
397 |
if(((V47))==Cnil){ |
if(((V47))==Cnil){ |
399 |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47)))); |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47)))); |
400 |
goto T153; |
goto T153; |
401 |
T153:; |
T153:; |
402 |
V43= (V43)+(1); |
V43= (long)(V43)+(1); |
403 |
goto T139; |
goto T139; |
404 |
goto T140; |
goto T140; |
405 |
T140:; |
T140:; |
416 |
T161:; |
T161:; |
417 |
if(!((V46)>(0))){ |
if(!((V46)>(0))){ |
418 |
goto T164;} |
goto T164;} |
419 |
V49 = make_fixnum((length((V42)))+(V46)); |
V49 = make_fixnum((long)((long)length((V42)))+(V46)); |
420 |
V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0))); |
V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0))); |
421 |
V43= 0; |
V43= 0; |
422 |
goto T136; |
goto T136; |
448 |
goto TTL; |
goto TTL; |
449 |
TTL:; |
TTL:; |
450 |
base[2]= (V50); |
base[2]= (V50); |
451 |
base[3]= make_fixnum((*(LnkLI95))(fix((V51)))); |
base[3]= make_fixnum((long)(*(LnkLI95))(fix((V51)))); |
452 |
base[4]= make_fixnum((*(LnkLI94))(fix((V51)))); |
base[4]= make_fixnum((long)(*(LnkLI94))(fix((V51)))); |
453 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
454 |
Lsubseq(); |
Lsubseq(); |
455 |
return; |
return; |
501 |
goto T188; |
goto T188; |
502 |
goto T189; |
goto T189; |
503 |
T189:; |
T189:; |
504 |
V54= (*(LnkLI94))(0); |
V54= (long)(*(LnkLI94))(0); |
505 |
base[4]= (V53); |
base[4]= (V53); |
506 |
base[5]= small_fixnum(1); |
base[5]= small_fixnum(1); |
507 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
635 |
goto T233; |
goto T233; |
636 |
goto T234; |
goto T234; |
637 |
T234:; |
T234:; |
638 |
V67= make_fixnum((*(LnkLI94))(0)); |
V67= make_fixnum((long)(*(LnkLI94))(0)); |
639 |
base[3]= (V69); |
base[3]= (V69); |
640 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
641 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
712 |
if(!((/* INLINE-ARGS */V77)>=(0))){ |
if(!((/* INLINE-ARGS */V77)>=(0))){ |
713 |
goto T259;}} |
goto T259;}} |
714 |
base[3]= (V75); |
base[3]= (V75); |
715 |
base[4]= make_fixnum((*(LnkLI95))(1)); |
base[4]= make_fixnum((long)(*(LnkLI95))(1)); |
716 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
717 |
(void) (*Lnk96)(); |
(void) (*Lnk96)(); |
718 |
bds_unwind1; |
bds_unwind1; |
767 |
goto T270; |
goto T270; |
768 |
T270:;{object V85; |
T270:;{object V85; |
769 |
V85= make_fixnum(V80); |
V85= make_fixnum(V80); |
770 |
V80= (*(LnkLI94))(0); |
V80= (long)(*(LnkLI94))(0); |
771 |
V86 = make_fixnum(V80); |
V86 = make_fixnum(V80); |
772 |
V83= list(2,V85,V86);} |
V83= list(2,V85,V86);} |
773 |
if(((V82))==Cnil){ |
if(((V82))==Cnil){ |
1304 |
goto T442; |
goto T442; |
1305 |
goto T443; |
goto T443; |
1306 |
T443:; |
T443:; |
1307 |
V124= make_fixnum((*(LnkLI94))(0)); |
V124= make_fixnum((long)(*(LnkLI94))(0)); |
1308 |
goto T441; |
goto T441; |
1309 |
goto T442; |
goto T442; |
1310 |
T442:; |
T442:; |
1321 |
object V132; |
object V132; |
1322 |
object V133; |
object V133; |
1323 |
object V134; |
object V134; |
1324 |
V130= make_fixnum((*(LnkLI95))(0)); |
V130= make_fixnum((long)(*(LnkLI95))(0)); |
1325 |
V131= make_fixnum((*(LnkLI94))(0)); |
V131= make_fixnum((long)(*(LnkLI94))(0)); |
1326 |
base[9]= (V126); |
base[9]= (V126); |
1327 |
base[10]= small_fixnum(1); |
base[10]= small_fixnum(1); |
1328 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
1332 |
{long V135= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[54],(V126),(V131)))); |
{long V135= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[54],(V126),(V131)))); |
1333 |
if(!((/* INLINE-ARGS */V135)>=(0))){ |
if(!((/* INLINE-ARGS */V135)>=(0))){ |
1334 |
goto T461;}} |
goto T461;}} |
1335 |
V133= make_fixnum((*(LnkLI95))(0)); |
V133= make_fixnum((long)(*(LnkLI95))(0)); |
1336 |
goto T459; |
goto T459; |
1337 |
goto T461; |
goto T461; |
1338 |
T461:; |
T461:; |
1339 |
V133= make_fixnum(length((V126))); |
V133= make_fixnum((long)length((V126))); |
1340 |
goto T459; |
goto T459; |
1341 |
T459:; |
T459:; |
1342 |
V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20])); |
V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20])); |
1497 |
register object V150; |
register object V150; |
1498 |
register object V151; |
register object V151; |
1499 |
object V152; |
object V152; |
1500 |
V149= make_fixnum((*(LnkLI95))(0)); |
V149= make_fixnum((long)(*(LnkLI95))(0)); |
1501 |
V150= make_fixnum((*(LnkLI94))(0)); |
V150= make_fixnum((long)(*(LnkLI94))(0)); |
1502 |
{long V153= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[63],(V145),(V150)))); |
{long V153= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[63],(V145),(V150)))); |
1503 |
if(!((/* INLINE-ARGS */V153)>=(0))){ |
if(!((/* INLINE-ARGS */V153)>=(0))){ |
1504 |
goto T539;}} |
goto T539;}} |
1505 |
V151= make_fixnum((*(LnkLI95))(0)); |
V151= make_fixnum((long)(*(LnkLI95))(0)); |
1506 |
goto T537; |
goto T537; |
1507 |
goto T539; |
goto T539; |
1508 |
T539:; |
T539:; |
1509 |
V151= make_fixnum(length((V145))); |
V151= make_fixnum((long)length((V145))); |
1510 |
goto T537; |
goto T537; |
1511 |
T537:; |
T537:; |
1512 |
V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20])); |
V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20])); |
1534 |
goto T542;}} |
goto T542;}} |
1535 |
goto T548; |
goto T548; |
1536 |
T548:; |
T548:; |
1537 |
V156 = make_fixnum((*(LnkLI95))(0)); |
V156 = make_fixnum((long)(*(LnkLI95))(0)); |
1538 |
V141= fix(number_minus(V156,(V150))); |
V141= fix(number_minus(V156,(V150))); |
1539 |
bds_unwind1; |
bds_unwind1; |
1540 |
goto T542; |
goto T542; |
1571 |
{long V160= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[66],(V145),V159,(V151)))); |
{long V160= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[66],(V145),V159,(V151)))); |
1572 |
if(!((/* INLINE-ARGS */V160)>=(0))){ |
if(!((/* INLINE-ARGS */V160)>=(0))){ |
1573 |
goto T568;}} |
goto T568;}} |
1574 |
V158= make_fixnum((*(LnkLI95))(0)); |
V158= make_fixnum((long)(*(LnkLI95))(0)); |
1575 |
goto T566; |
goto T566; |
1576 |
goto T568; |
goto T568; |
1577 |
T568:; |
T568:; |
1828 |
V181= vs_base[0]; |
V181= vs_base[0]; |
1829 |
V182= car((V179)); |
V182= car((V179)); |
1830 |
V183= number_minus((V176),(V182)); |
V183= number_minus((V176),(V182)); |
1831 |
V184= make_fixnum(length((V181))); |
V184= make_fixnum((long)length((V181))); |
1832 |
if(((V178))==Cnil){ |
if(((V178))==Cnil){ |
1833 |
goto T673;} |
goto T673;} |
1834 |
V185= number_minus((V178),(V182)); |
V185= number_minus((V178),(V182)); |
1841 |
{long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185))); |
{long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185))); |
1842 |
if(!((/* INLINE-ARGS */V186)>=(0))){ |
if(!((/* INLINE-ARGS */V186)>=(0))){ |
1843 |
goto T663;}} |
goto T663;}} |
1844 |
V187 = make_fixnum((*(LnkLI95))(0)); |
V187 = make_fixnum((long)(*(LnkLI95))(0)); |
1845 |
base[7]= number_plus((V182),V187); |
base[7]= number_plus((V182),V187); |
1846 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1847 |
return;} |
return;} |
1972 |
T717:; |
T717:; |
1973 |
if(((V198))==Cnil){ |
if(((V198))==Cnil){ |
1974 |
goto T722;} |
goto T722;} |
1975 |
base[3]= make_fixnum(length((V198))); |
base[3]= make_fixnum((long)length((V198))); |
1976 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
1977 |
{register long V199; |
{register long V199; |
1978 |
V199= 0; |
V199= 0; |
2037 |
(void)((*(LnkLI122))()); |
(void)((*(LnkLI122))()); |
2038 |
goto T765; |
goto T765; |
2039 |
T765:; |
T765:; |
2040 |
V199= (V199)+(1); |
V199= (long)(V199)+(1); |
2041 |
V201= cdr((V201)); |
V201= cdr((V201)); |
2042 |
goto T728; |
goto T728; |
2043 |
goto T729; |
goto T729; |
2046 |
goto T725;}}} |
goto T725;}}} |
2047 |
goto T725; |
goto T725; |
2048 |
T725:; |
T725:; |
2049 |
if(!((length((V198)))>(1))){ |
if(!(((long)length((V198)))>(1))){ |
2050 |
goto T775;} |
goto T775;} |
2051 |
base[4]= Ct; |
base[4]= Ct; |
2052 |
base[5]= VV[73]; |
base[5]= VV[73]; |
2062 |
{object V204; |
{object V204; |
2063 |
object V205; |
object V205; |
2064 |
register object V206; |
register object V206; |
2065 |
if(!((length((V198)))>(1))){ |
if(!(((long)length((V198)))>(1))){ |
2066 |
goto T781;} |
goto T781;} |
2067 |
vs_base=vs_top; |
vs_base=vs_top; |
2068 |
Lread_line(); |
Lread_line(); |
2165 |
long V210; |
long V210; |
2166 |
V209= 0; |
V209= 0; |
2167 |
{object V211; |
{object V211; |
2168 |
V211= make_fixnum(length((V198)));{object V212; |
V211= make_fixnum((long)length((V198)));{object V212; |
2169 |
V212= (type_of((V211))==t_fixnum?Ct:Cnil); |
V212= (type_of((V211))==t_fixnum?Ct:Cnil); |
2170 |
if(V212==Cnil)goto T828; |
if(V212==Cnil)goto T828; |
2171 |
goto T827; |
goto T827; |
2207 |
V213= (V214); |
V213= (V214); |
2208 |
goto T836; |
goto T836; |
2209 |
T836:; |
T836:; |
2210 |
V209= (V209)+(1); |
V209= (long)(V209)+(1); |
2211 |
goto T831; |
goto T831; |
2212 |
goto T832; |
goto T832; |
2213 |
T832:; |
T832:; |
2414 |
{register object V232; |
{register object V232; |
2415 |
V232= car((V228)); |
V232= car((V228)); |
2416 |
V227= (V232);} |
V227= (V232);} |
2417 |
{long V233= (*(LnkLI95))(fix((V227))); |
{long V233= (long)(*(LnkLI95))(fix((V227))); |
2418 |
if((/* INLINE-ARGS */V233)>=(0)){ |
if((/* INLINE-ARGS */V233)>=(0)){ |
2419 |
goto T917;}} |
goto T917;}} |
2420 |
V231= Cnil; |
V231= Cnil; |
2485 |
} |
} |
2486 |
static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* DEFAULT-INFO-HOTLIST */ |
static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* DEFAULT-INFO-HOTLIST */ |
2487 |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* USER-HOMEDIR-PATHNAME */ |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* USER-HOMEDIR-PATHNAME */ |
2488 |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[124],(void **)&LnkLI124,ap);} /* REMOVE-IF */ |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[124],(void **)&LnkLI124,ap);va_end(ap);return V1;} /* REMOVE-IF */ |
2489 |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* READ-FROM-STRING */ |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* READ-FROM-STRING */ |
2490 |
static object LnkTLI122(){return call_proc0(VV[122],(void **)&LnkLI122);} /* TYPE-ERROR */ |
static object LnkTLI122(){return call_proc0(VV[122],(void **)&LnkLI122);} /* TYPE-ERROR */ |
2491 |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* OFFER-CHOICES */ |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* OFFER-CHOICES */ |
2510 |
static void LnkT102(){ call_or_link(VV[102],(void **)&Lnk102);} /* GET-NODES */ |
static void LnkT102(){ call_or_link(VV[102],(void **)&Lnk102);} /* GET-NODES */ |
2511 |
static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* STRING-CONCATENATE */ |
static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* STRING-CONCATENATE */ |
2512 |
static void LnkT100(){ call_or_link(VV[100],(void **)&Lnk100);} /* RE-QUOTE-STRING */ |
static void LnkT100(){ call_or_link(VV[100],(void **)&Lnk100);} /* RE-QUOTE-STRING */ |
2513 |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],(void **)&LnkLI99,ap);} /* POSITION */ |
static object LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[99],(void **)&LnkLI99,ap);va_end(ap);return V1;} /* POSITION */ |
2514 |
static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* INFO-ERROR */ |
static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* INFO-ERROR */ |
2515 |
static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-MATCH */ |
static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-MATCH */ |
2516 |
static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* ATOI */ |
static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* ATOI */ |
2517 |
static long LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[95],(void **)&LnkLI95,4353,ap);} /* MATCH-BEGINNING */ |
static object LnkTLI95(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[95],(void **)&LnkLI95,4353,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */ |
2518 |
static long LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[94],(void **)&LnkLI94,4353,ap);} /* MATCH-END */ |
static object LnkTLI94(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[94],(void **)&LnkLI94,4353,ap);va_end(ap);return V1;} /* MATCH-END */ |
2519 |
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],(void **)&LnkLI93,ap);} /* STRING-MATCH */ |
static object LnkTLI93(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[93],(void **)&LnkLI93,ap);va_end(ap);return V1;} /* STRING-MATCH */ |
2520 |
static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* FILE-TO-STRING */ |
static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* FILE-TO-STRING */ |
2521 |
static void LnkT91(){ call_or_link(VV[91],(void **)&Lnk91);} /* FREAD */ |
static void LnkT91(){ call_or_link(VV[91],(void **)&Lnk91);} /* FREAD */ |
2522 |
static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* OPEN */ |
static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* OPEN */ |
2523 |
static object LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[89],(void **)&LnkLI89,ap);} /* VECTOR-PUSH-EXTEND */ |
static object LnkTLI89(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[89],(void **)&LnkLI89,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */ |
2524 |
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[88],(void **)&LnkLI88,ap);} /* MAKE-ARRAY */ |
static object LnkTLI88(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[88],(void **)&LnkLI88,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
2525 |
|
|
2526 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2527 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |