32 |
VMR1(V4)} |
VMR1(V4)} |
33 |
goto T4; |
goto T4; |
34 |
T4:; |
T4:; |
35 |
if((length((V3)))<(64)){ |
if(((long)length((V3)))<(64)){ |
36 |
goto T6;} |
goto T6;} |
37 |
{object V5 = Cnil; |
{object V5 = Cnil; |
38 |
VMR1(V5)} |
VMR1(V5)} |
129 |
TTL:; |
TTL:; |
130 |
{object V23; |
{object V23; |
131 |
V23= Cnil; |
V23= Cnil; |
132 |
V23= (*(LnkLI96))((V22)); |
V23= (*(LnkLI100))((V22)); |
133 |
if(((V23))==Cnil){ |
if(((V23))==Cnil){ |
134 |
goto T39;} |
goto T39;} |
135 |
if(!((car((V23)))==(VV[6]))){ |
if(!((car((V23)))==(VV[6]))){ |
166 |
goto T47;} |
goto T47;} |
167 |
if(!(type_of(car((V28)))==t_symbol)){ |
if(!(type_of(car((V28)))==t_symbol)){ |
168 |
goto T47;} |
goto T47;} |
169 |
if(((*(LnkLI97))(car((V28))))==Cnil){ |
if(((*(LnkLI101))(car((V28))))==Cnil){ |
170 |
goto T47;} |
goto T47;} |
171 |
V28= (*(LnkLI98))((V28)); |
V28= (*(LnkLI102))((V28)); |
172 |
goto T47; |
goto T47; |
173 |
T47:;{object V30; |
T47:;{object V30; |
174 |
if(type_of((V28))==t_cons){ |
if(type_of((V28))==t_cons){ |
218 |
bds_bind(VV[11],Cnil); |
bds_bind(VV[11],Cnil); |
219 |
bds_bind(VV[12],Cnil); |
bds_bind(VV[12],Cnil); |
220 |
{object V33; |
{object V33; |
221 |
V33= (VFUN_NARGS=1,(*(LnkLI99))(cdadr((V28)))); |
V33= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28)))); |
222 |
V34= list(3,VV[13],cadr((V33)),(V33)); |
V34= list(3,VV[13],cadr((V33)),(V33)); |
223 |
bds_unwind1; |
bds_unwind1; |
224 |
bds_unwind1; |
bds_unwind1; |
238 |
goto T60; |
goto T60; |
239 |
goto T76; |
goto T76; |
240 |
T76:;{object V35; |
T76:;{object V35; |
241 |
V29= (*(LnkLI96))(cadr((V28))); |
V29= (*(LnkLI100))(cadr((V28))); |
242 |
if(((V29))!=Cnil){ |
if(((V29))!=Cnil){ |
243 |
goto T80;} |
goto T80;} |
244 |
V35= Cnil; |
V35= Cnil; |
260 |
goto T78; |
goto T78; |
261 |
T78:;} |
T78:;} |
262 |
V36= get(cadr((V28)),VV[16],Cnil); |
V36= get(cadr((V28)),VV[16],Cnil); |
263 |
V37= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],((V36)==Cnil?Ct:Cnil))); |
V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil))); |
264 |
V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28))); |
V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28))); |
265 |
goto T60; |
goto T60; |
266 |
T60:; |
T60:; |
306 |
goto T98; |
goto T98; |
307 |
T98:; |
T98:; |
308 |
{object V39; |
{object V39; |
309 |
V39= (VFUN_NARGS=1,(*(LnkLI99))(cdadr((V28)))); |
V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28)))); |
310 |
V38= list(3,VV[13],cadr((V39)),(V39));} |
V38= list(3,VV[13],cadr((V39)),(V39));} |
311 |
goto T93; |
goto T93; |
312 |
T93:; |
T93:; |
321 |
goto T56; |
goto T56; |
322 |
goto T101; |
goto T101; |
323 |
T101:;{object V40; |
T101:;{object V40; |
324 |
V29= (*(LnkLI96))(cadr((V28))); |
V29= (*(LnkLI100))(cadr((V28))); |
325 |
if(((V29))!=Cnil){ |
if(((V29))!=Cnil){ |
326 |
goto T105;} |
goto T105;} |
327 |
V40= Cnil; |
V40= Cnil; |
343 |
goto T103; |
goto T103; |
344 |
T103:;} |
T103:;} |
345 |
V41= get(cadr((V28)),VV[16],Cnil); |
V41= get(cadr((V28)),VV[16],Cnil); |
346 |
V42= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],((V41)==Cnil?Ct:Cnil))); |
V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil))); |
347 |
V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28))); |
V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28))); |
348 |
goto T56; |
goto T56; |
349 |
T56:; |
T56:; |
354 |
T55:;} |
T55:;} |
355 |
{object V44; |
{object V44; |
356 |
object V45; |
object V45; |
357 |
V44= (*(LnkLI101))((V28)); |
V44= (*(LnkLI105))((V28)); |
358 |
V45= (VFUN_NARGS=2,(*(LnkLI100))(VV[15],Ct)); |
V45= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],Ct)); |
359 |
(void)((*(LnkLI102))((V45),cadr((V44)))); |
(void)((*(LnkLI106))((V45),cadr((V44)))); |
360 |
{object V46 = list(3,VV[18],(V45),(V44)); |
{object V46 = list(3,VV[18],(V45),(V44)); |
361 |
VMR3(V46)}}} |
VMR3(V46)}}} |
362 |
base[0]=base[0]; |
base[0]=base[0]; |
378 |
V50= caddr((V48)); |
V50= caddr((V48)); |
379 |
V51= cadddr((V48)); |
V51= cadddr((V48)); |
380 |
V52= car(cddddr((V48))); |
V52= car(cddddr((V48))); |
381 |
{object V53 = (VFUN_NARGS=4,(*(LnkLI103))((V50),(V51),(V52),(V49))); |
{object V53 = (VFUN_NARGS=4,(*(LnkLI107))((V50),(V51),(V52),(V49))); |
382 |
VMR4(V53)}} |
VMR4(V53)}} |
383 |
base[0]=base[0]; |
base[0]=base[0]; |
384 |
return Cnil; |
return Cnil; |
419 |
T120:; |
T120:; |
420 |
{object V60= car((V56)); |
{object V60= car((V56)); |
421 |
if((V60!= VV[14]))goto T123; |
if((V60!= VV[14]))goto T123; |
422 |
{object V61 = (*(LnkLI104))(caddr((V56)),(V57),(V58),Ct); |
{object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct); |
423 |
VMR5(V61)} |
VMR5(V61)} |
424 |
goto T123; |
goto T123; |
425 |
T123:; |
T123:; |
426 |
if((V60!= VV[6]))goto T124; |
if((V60!= VV[6]))goto T124; |
427 |
{object V62 = (*(LnkLI105))(cddr((V56)),(V57)); |
{object V62 = (*(LnkLI109))(cddr((V56)),(V57)); |
428 |
VMR5(V62)} |
VMR5(V62)} |
429 |
goto T124; |
goto T124; |
430 |
T124:; |
T124:; |
431 |
if((V60!= VV[13]))goto T125; |
if((V60!= VV[13]))goto T125; |
432 |
{object V63 = (*(LnkLI106))(caddr((V56)),(V57)); |
{object V63 = (*(LnkLI110))(caddr((V56)),(V57)); |
433 |
VMR5(V63)} |
VMR5(V63)} |
434 |
goto T125; |
goto T125; |
435 |
T125:; |
T125:; |
457 |
goto T129;} |
goto T129;} |
458 |
goto T130; |
goto T130; |
459 |
T130:; |
T130:; |
460 |
(void)((*(LnkLI107))((V64),(V57),(V59))); |
(void)((*(LnkLI111))((V64),(V57),(V59))); |
461 |
{object V66 = Cnil; |
{object V66 = Cnil; |
462 |
bds_unwind1; |
bds_unwind1; |
463 |
VMR5(V66)} |
VMR5(V66)} |
467 |
goto T145;} |
goto T145;} |
468 |
if(type_of((V57))==t_cons||((V57))==Cnil){ |
if(type_of((V57))==t_cons||((V57))==Cnil){ |
469 |
goto T148;} |
goto T148;} |
470 |
(void)((*(LnkLI108))()); |
(void)((*(LnkLI112))()); |
471 |
goto T148; |
goto T148; |
472 |
T148:; |
T148:; |
473 |
if(!((car((V64)))==(VV[26]))){ |
if(!((car((V64)))==(VV[26]))){ |
478 |
T152:; |
T152:; |
479 |
if(!((car((V64)))==(VV[23]))){ |
if(!((car((V64)))==(VV[23]))){ |
480 |
goto T156;} |
goto T156;} |
481 |
if(((*(LnkLI109))(caaddr((V64)),(V57)))!=Cnil){ |
if(((*(LnkLI113))(caaddr((V64)),(V57)))!=Cnil){ |
482 |
goto T156;} |
goto T156;} |
483 |
V58= make_cons(VV[23],caddr((V64))); |
V58= make_cons(VV[23],caddr((V64))); |
484 |
goto T145; |
goto T145; |
485 |
goto T156; |
goto T156; |
486 |
T156:; |
T156:; |
487 |
V58= list(2,VV[27],(*(LnkLI110))()); |
V58= list(2,VV[27],(*(LnkLI114))()); |
488 |
bds_bind(VV[21],(V58)); |
bds_bind(VV[21],(V58)); |
489 |
V67= (*(LnkLI111))(caddr((V56))); |
V67= (*(LnkLI115))(caddr((V56))); |
490 |
bds_unwind1; |
bds_unwind1; |
491 |
goto T145; |
goto T145; |
492 |
T145:; |
T145:; |
493 |
(void)((*(LnkLI112))((V57))); |
(void)((*(LnkLI116))((V57))); |
494 |
if((symbol_value(VV[28]))==Cnil){ |
if((symbol_value(VV[28]))==Cnil){ |
495 |
goto T166;} |
goto T166;} |
496 |
princ_str("\n super_funcall(",VV[29]); |
princ_str("\n super_funcall(",VV[29]); |
497 |
(void)((*(LnkLI113))((V58))); |
(void)((*(LnkLI117))((V58))); |
498 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
499 |
goto T164; |
goto T164; |
500 |
goto T166; |
goto T166; |
502 |
if((symbol_value(VV[30]))==Cnil){ |
if((symbol_value(VV[30]))==Cnil){ |
503 |
goto T172;} |
goto T172;} |
504 |
(void)(( |
(void)(( |
505 |
(type_of(symbol_value(VV[30])) == t_sfun ?(*(object (*)())((symbol_value(VV[30]))->sfn.sfn_self)): |
(type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)): |
506 |
(fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58)))); |
(fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58)))); |
507 |
goto T164; |
goto T164; |
508 |
goto T172; |
goto T172; |
509 |
T172:; |
T172:; |
510 |
princ_str("\n super_funcall_no_event(",VV[29]); |
princ_str("\n super_funcall_no_event(",VV[29]); |
511 |
(void)((*(LnkLI113))((V58))); |
(void)((*(LnkLI117))((V58))); |
512 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
513 |
goto T164; |
goto T164; |
514 |
T164:; |
T164:; |
515 |
{object V68 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31])); |
{object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
516 |
bds_unwind1; |
bds_unwind1; |
517 |
VMR5(V68)}} |
VMR5(V68)}} |
518 |
goto T126; |
goto T126; |
519 |
T126:; |
T126:; |
520 |
{object V69 = (*(LnkLI108))(); |
{object V69 = (*(LnkLI112))(); |
521 |
VMR5(V69)}} |
VMR5(V69)}} |
522 |
va_end(ap); |
va_end(ap); |
523 |
base[0]=base[0]; |
base[0]=base[0]; |
540 |
object V73; |
object V73; |
541 |
V72= car((V70)); |
V72= car((V70)); |
542 |
V73= Cnil; |
V73= Cnil; |
543 |
(void)((*(LnkLI113))(VV[32])); |
(void)((*(LnkLI117))(VV[32])); |
544 |
if(!(type_of((V72))==t_cons)){ |
if(!(type_of((V72))==t_cons)){ |
545 |
goto T182;} |
goto T182;} |
546 |
if((car((V72)))==(VV[23])){ |
if((car((V72)))==(VV[23])){ |
547 |
goto T181;} |
goto T181;} |
548 |
goto T182; |
goto T182; |
549 |
T182:; |
T182:; |
550 |
V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI115))())); |
V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))())); |
551 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
552 |
(void)((*(LnkLI113))((V72))); |
(void)((*(LnkLI117))((V72))); |
553 |
princ_str(" = ",VV[29]); |
princ_str(" = ",VV[29]); |
554 |
(void)((*(LnkLI113))(car((V70)))); |
(void)((*(LnkLI117))(car((V70)))); |
555 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
556 |
goto T181; |
goto T181; |
557 |
T181:; |
T181:; |
558 |
princ_str("\n (type_of(",VV[29]); |
princ_str("\n (type_of(",VV[29]); |
559 |
(void)((*(LnkLI113))((V72))); |
(void)((*(LnkLI117))((V72))); |
560 |
princ_str(") == t_sfun ?",VV[29]); |
princ_str(") == t_sfun ?",VV[29]); |
561 |
princ_str("(*(object (*)())((",VV[29]); |
princ_str("(*((",VV[29]); |
562 |
(void)((*(LnkLI113))((V72))); |
(void)((*(LnkLI117))((V72))); |
563 |
princ_str(")->sfn.sfn_self)):",VV[29]); |
princ_str(")->sfn.sfn_self)):",VV[29]); |
564 |
if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){ |
if(!(number_compare(symbol_value(VV[34]),small_fixnum(3))<0)){ |
565 |
goto T200;} |
goto T200;} |
566 |
V73= Ct; |
V73= Ct; |
567 |
princ_str("\n (fcall.argd=",VV[29]); |
princ_str("\n (fcall.argd=",VV[29]); |
568 |
V74 = make_fixnum(length(cdr((V70)))); |
V74 = make_fixnum((long)length(cdr((V70)))); |
569 |
(void)((*(LnkLI113))(V74)); |
(void)((*(LnkLI117))(V74)); |
570 |
princ_str(",type_of(",VV[29]); |
princ_str(",type_of(",VV[29]); |
571 |
(void)((*(LnkLI113))((V72))); |
(void)((*(LnkLI117))((V72))); |
572 |
princ_str(")==t_vfun) ?",VV[29]); |
princ_str(")==t_vfun) ?",VV[29]); |
573 |
princ_str("\n (*(object (*)())((",VV[29]); |
princ_str("\n (*((",VV[29]); |
574 |
(void)((*(LnkLI113))((V72))); |
(void)((*(LnkLI117))((V72))); |
575 |
princ_str(")->sfn.sfn_self)):",VV[29]); |
princ_str(")->sfn.sfn_self)):",VV[29]); |
576 |
goto T200; |
goto T200; |
577 |
T200:; |
T200:; |
578 |
princ_str("\n (fcall.fun=(",VV[29]); |
princ_str("\n (fcall.fun=(",VV[29]); |
579 |
(void)((*(LnkLI113))((V72))); |
(void)((*(LnkLI117))((V72))); |
580 |
princ_str("),",VV[29]); |
princ_str("),",VV[29]); |
581 |
if(((V73))!=Cnil){ |
if(((V73))!=Cnil){ |
582 |
goto T218;} |
goto T218;} |
583 |
princ_str("fcall.argd=",VV[29]); |
princ_str("fcall.argd=",VV[29]); |
584 |
V75 = make_fixnum(length(cdr((V70)))); |
V75 = make_fixnum((long)length(cdr((V70)))); |
585 |
(void)((*(LnkLI113))(V75)); |
(void)((*(LnkLI117))(V75)); |
586 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
587 |
goto T218; |
goto T218; |
588 |
T218:; |
T218:; |
589 |
princ_str("fcalln))(",VV[29]); |
princ_str("fcalln))(",VV[29]); |
590 |
if((cdr((V70)))==Cnil){ |
if((cdr((V70)))==Cnil){ |
591 |
goto T226;} |
goto T226;} |
592 |
(void)((*(LnkLI113))(cadr((V70)))); |
(void)((*(LnkLI117))(cadr((V70)))); |
593 |
{register object V76; |
{register object V76; |
594 |
register object V77; |
register object V77; |
595 |
V76= cddr((V70)); |
V76= cddr((V70)); |
601 |
goto T226; |
goto T226; |
602 |
goto T235; |
goto T235; |
603 |
T235:; |
T235:; |
604 |
(void)((*(LnkLI113))(VV[35])); |
(void)((*(LnkLI117))(VV[35])); |
605 |
(void)((*(LnkLI113))((V77))); |
(void)((*(LnkLI117))((V77))); |
606 |
V76= cdr((V76)); |
V76= cdr((V76)); |
607 |
V77= car((V76)); |
V77= car((V76)); |
608 |
goto T234;} |
goto T234;} |
609 |
goto T226; |
goto T226; |
610 |
T226:; |
T226:; |
611 |
(void)((*(LnkLI113))(VV[36])); |
(void)((*(LnkLI117))(VV[36])); |
612 |
(void)((*(LnkLI113))(VV[36])); |
(void)((*(LnkLI117))(VV[36])); |
613 |
{object V78 = Cnil; |
{object V78 = Cnil; |
614 |
VMR6(V78)}} |
VMR6(V78)}} |
615 |
va_end(ap); |
va_end(ap); |
642 |
{object V84; |
{object V84; |
643 |
V84= symbol_value(VV[19]); |
V84= symbol_value(VV[19]); |
644 |
bds_bind(VV[19],symbol_value(VV[19])); |
bds_bind(VV[19],symbol_value(VV[19])); |
645 |
(void)((*(LnkLI116))((V82))); |
(void)((*(LnkLI120))((V82))); |
646 |
if(((*(LnkLI117))((V83)))==Cnil){ |
if(((*(LnkLI121))((V83)))==Cnil){ |
647 |
bds_unwind1; |
bds_unwind1; |
648 |
goto T259;} |
goto T259;} |
649 |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
650 |
(void)((*(LnkLI113))((V84))); |
(void)((*(LnkLI117))((V84))); |
651 |
princ_str(")+",VV[29]); |
princ_str(")+",VV[29]); |
652 |
V85= number_minus((VV[19]->s.s_dbind),(V84)); |
V85= number_minus((VV[19]->s.s_dbind),(V84)); |
653 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V85)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V85)); |
654 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
655 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
656 |
bds_unwind1;} |
bds_unwind1;} |
657 |
goto T259; |
goto T259; |
658 |
T259:; |
T259:; |
659 |
{object V86 = (VFUN_NARGS=2,(*(LnkLI118))((V83),caddr(cddr((V81))))); |
{object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81))))); |
660 |
VMR7(V86)} |
VMR7(V86)} |
661 |
goto T251; |
goto T251; |
662 |
T251:; |
T251:; |
663 |
{object V87; |
{object V87; |
664 |
object V88; |
object V88; |
665 |
V87= make_fixnum(length(car((V83)))); |
V87= make_fixnum((long)length(car((V83)))); |
666 |
V88= make_fixnum(length((V82))); |
V88= make_fixnum((long)length((V82))); |
667 |
if(!(eql((V88),(V87)))){ |
if(!(eql((V88),(V87)))){ |
668 |
goto T276;} |
goto T276;} |
669 |
goto T273; |
goto T273; |
670 |
goto T276; |
goto T276; |
671 |
T276:; |
T276:; |
672 |
(void)((VFUN_NARGS=3,(*(LnkLI119))(VV[38],(V88),(V87))));} |
(void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));} |
673 |
goto T273; |
goto T273; |
674 |
T273:; |
T273:; |
675 |
{object V89 = (*(LnkLI120))(car((V83)),(V82),caddr(cddr((V81)))); |
{object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81)))); |
676 |
VMR7(V89)}} |
VMR7(V89)}} |
677 |
base[0]=base[0]; |
base[0]=base[0]; |
678 |
return Cnil; |
return Cnil; |
709 |
if(eql(x,V95->c.c_car)){ |
if(eql(x,V95->c.c_car)){ |
710 |
goto T286; |
goto T286; |
711 |
}else V95=V95->c.c_cdr;} |
}else V95=V95->c.c_cdr;} |
712 |
if(!((length((V94)))==(length((V93))))){ |
if(!(((long)length((V94)))==((long)length((V93))))){ |
713 |
goto T292;} |
goto T292;} |
714 |
{object V96 = Ct; |
{object V96 = Ct; |
715 |
VMR8(V96)} |
VMR8(V96)} |
716 |
goto T292; |
goto T292; |
717 |
T292:; |
T292:; |
718 |
V97 = make_fixnum(length((V93))); |
V97 = make_fixnum((long)length((V93))); |
719 |
V98 = make_fixnum(length((V94))); |
V98 = make_fixnum((long)length((V94))); |
720 |
{object V99 = (VFUN_NARGS=4,(*(LnkLI121))(VV[42],(V92),V97,V98)); |
{object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98)); |
721 |
VMR8(V99)} |
VMR8(V99)} |
722 |
goto T286; |
goto T286; |
723 |
T286:; |
T286:; |
771 |
goto T295;} |
goto T295;} |
772 |
princ_str("\n { save_avma;",VV[29]); |
princ_str("\n { save_avma;",VV[29]); |
773 |
vs_base=vs_top; |
vs_base=vs_top; |
774 |
(void) (*Lnk122)(); |
(void) (*Lnk126)(); |
775 |
vs_top=sup; |
vs_top=sup; |
776 |
if(!(type_of(symbol_value(VV[45]))==t_cons)){ |
if(!(type_of(symbol_value(VV[45]))==t_cons)){ |
777 |
goto T309;} |
goto T309;} |
803 |
{register object V112; |
{register object V112; |
804 |
V112= Cnil; |
V112= Cnil; |
805 |
bds_bind(VV[19],symbol_value(VV[19])); |
bds_bind(VV[19],symbol_value(VV[19])); |
806 |
if(((*(LnkLI123))((V108)))==Cnil){ |
if(((*(LnkLI127))((V108)))==Cnil){ |
807 |
goto T314;} |
goto T314;} |
808 |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
809 |
goto T317;} |
goto T317;} |
821 |
goto T317;} |
goto T317;} |
822 |
goto T327; |
goto T327; |
823 |
T327:; |
T327:; |
824 |
if(((*(LnkLI124))())==Cnil){ |
if(((*(LnkLI128))())==Cnil){ |
825 |
goto T317;} |
goto T317;} |
826 |
if(!((length((V109)))==(length(cdr(symbol_value(VV[48])))))){ |
if(!(((long)length((V109)))==((long)length(cdr(symbol_value(VV[48])))))){ |
827 |
goto T317;} |
goto T317;} |
828 |
bds_bind(VV[21],VV[22]); |
bds_bind(VV[21],VV[22]); |
829 |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
845 |
goto T337;} |
goto T337;} |
846 |
goto T336; |
goto T336; |
847 |
T336:; |
T336:; |
848 |
(void)((*(LnkLI125))(V114,(V109))); |
(void)((*(LnkLI129))(V114,(V109))); |
849 |
if((cdr((VV[49]->s.s_dbind)))==Cnil){ |
if((cdr((VV[49]->s.s_dbind)))==Cnil){ |
850 |
bds_unwind1; |
bds_unwind1; |
851 |
bds_unwind1; |
bds_unwind1; |
852 |
bds_unwind1; |
bds_unwind1; |
853 |
goto T331;} |
goto T331;} |
854 |
princ_str("\ngoto T",VV[29]); |
princ_str("\ngoto T",VV[29]); |
855 |
(void)((*(LnkLI113))(car((VV[49]->s.s_dbind)))); |
(void)((*(LnkLI117))(car((VV[49]->s.s_dbind)))); |
856 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
857 |
princ_str("\nT",VV[29]); |
princ_str("\nT",VV[29]); |
858 |
(void)((*(LnkLI113))(car((VV[49]->s.s_dbind)))); |
(void)((*(LnkLI117))(car((VV[49]->s.s_dbind)))); |
859 |
princ_str(":;",VV[29]); |
princ_str(":;",VV[29]); |
860 |
bds_unwind1; |
bds_unwind1; |
861 |
bds_unwind1; |
bds_unwind1; |
862 |
bds_unwind1; |
bds_unwind1; |
863 |
goto T331; |
goto T331; |
864 |
T331:; |
T331:; |
865 |
(void)((*(LnkLI126))(VV[53])); |
(void)((*(LnkLI130))(VV[53])); |
866 |
princ_str("\n goto TTL;",VV[29]); |
princ_str("\n goto TTL;",VV[29]); |
867 |
{object V118 = (VFUN_NARGS=2,(*(LnkLI127))(VV[54],(V108))); |
{object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108))); |
868 |
bds_unwind1; |
bds_unwind1; |
869 |
VMR10(V118)} |
VMR10(V118)} |
870 |
goto T317; |
goto T317; |
873 |
goto T352;} |
goto T352;} |
874 |
if(((V110))!=Cnil){ |
if(((V110))!=Cnil){ |
875 |
goto T352;} |
goto T352;} |
876 |
V112= (*(LnkLI128))((V108),(V109),(V111)); |
V112= (*(LnkLI132))((V108),(V109),(V111)); |
877 |
if(((V112))==Cnil){ |
if(((V112))==Cnil){ |
878 |
goto T352;} |
goto T352;} |
879 |
bds_bind(VV[45],small_fixnum(0)); |
bds_bind(VV[45],small_fixnum(0)); |
880 |
bds_bind(VV[43],symbol_value(VV[43])); |
bds_bind(VV[43],symbol_value(VV[43])); |
881 |
base[3]= (V112); |
base[3]= (V112); |
882 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
883 |
(void) (*Lnk129)(); |
(void) (*Lnk133)(); |
884 |
vs_top=sup; |
vs_top=sup; |
885 |
V119= (*(LnkLI130))((V112),(V109)); |
V119= (*(LnkLI134))((V112),(V109)); |
886 |
(void)((VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V119,Cnil,(V108)))); |
(void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V119,Cnil,(V108)))); |
887 |
{object V120 = (*(LnkLI131))(); |
{object V120 = (*(LnkLI135))(); |
888 |
bds_unwind1; |
bds_unwind1; |
889 |
bds_unwind1; |
bds_unwind1; |
890 |
bds_unwind1; |
bds_unwind1; |
902 |
T365:; |
T365:; |
903 |
if(((V112))==Cnil){ |
if(((V112))==Cnil){ |
904 |
goto T363;} |
goto T363;} |
905 |
(void)((*(LnkLI132))((V108),(V109))); |
(void)((*(LnkLI136))((V108),(V109))); |
906 |
(void)((*(LnkLI112))((V109))); |
(void)((*(LnkLI116))((V109))); |
907 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
908 |
(void)((*(LnkLI113))((V112))); |
(void)((*(LnkLI117))((V112))); |
909 |
princ_str("();",VV[29]); |
princ_str("();",VV[29]); |
910 |
{object V122 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V108))); |
{object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
911 |
bds_unwind1; |
bds_unwind1; |
912 |
VMR10(V122)} |
VMR10(V122)} |
913 |
goto T363; |
goto T363; |
914 |
T363:; |
T363:; |
915 |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
if(!(type_of((V109))==t_cons||((V109))==Cnil)){ |
916 |
goto T375;} |
goto T375;} |
917 |
if(!((length((V109)))<(10))){ |
if(!(((long)length((V109)))<(10))){ |
918 |
goto T375;} |
goto T375;} |
919 |
if((symbol_value(VV[57]))!=Cnil){ |
if((symbol_value(VV[57]))!=Cnil){ |
920 |
goto T380;} |
goto T380;} |
937 |
if(((V110))!=Cnil){ |
if(((V110))!=Cnil){ |
938 |
goto T375;} |
goto T375;} |
939 |
bds_bind(VV[45],small_fixnum(0)); |
bds_bind(VV[45],small_fixnum(0)); |
940 |
V123= (*(LnkLI133))((V108),(V109)); |
V123= (*(LnkLI137))((V108),(V109)); |
941 |
V124= (*(LnkLI130))(/* INLINE-ARGS */V123,(V109)); |
V124= (*(LnkLI134))(/* INLINE-ARGS */V123,(V109)); |
942 |
(void)((VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V124,Cnil,(V108)))); |
(void)((VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V124,Cnil,(V108)))); |
943 |
{object V125 = (*(LnkLI131))(); |
{object V125 = (*(LnkLI135))(); |
944 |
bds_unwind1; |
bds_unwind1; |
945 |
bds_unwind1; |
bds_unwind1; |
946 |
VMR10(V125)} |
VMR10(V125)} |
947 |
goto T375; |
goto T375; |
948 |
T375:; |
T375:; |
949 |
(void)((*(LnkLI112))((V109))); |
(void)((*(LnkLI116))((V109))); |
950 |
{object V126; |
{object V126; |
951 |
V126= (*(LnkLI134))((V108),Cnil,(V109)); |
V126= (*(LnkLI138))((V108),Cnil,(V109)); |
952 |
princ_str("\n (void) (*Lnk",VV[29]); |
princ_str("\n (void) (*Lnk",VV[29]); |
953 |
(void)((*(LnkLI113))((V126))); |
(void)((*(LnkLI117))((V126))); |
954 |
princ_str(")(",VV[29]); |
princ_str(")(",VV[29]); |
955 |
if((get((V108),VV[61],Cnil))==Cnil){ |
if((get((V108),VV[61],Cnil))==Cnil){ |
956 |
goto T402;} |
goto T402;} |
957 |
princ_str("Lclptr",VV[29]); |
princ_str("Lclptr",VV[29]); |
958 |
(void)((*(LnkLI113))((V126))); |
(void)((*(LnkLI117))((V126))); |
959 |
goto T402; |
goto T402; |
960 |
T402:; |
T402:; |
961 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
962 |
{object V127 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V108))); |
{object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108))); |
963 |
bds_unwind1; |
bds_unwind1; |
964 |
VMR10(V127)}} |
VMR10(V127)}} |
965 |
goto T314; |
goto T314; |
966 |
T314:; |
T314:; |
967 |
{object V128 = (*(LnkLI135))((V108),(V109),(V110),Cnil); |
{object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil); |
968 |
bds_unwind1; |
bds_unwind1; |
969 |
VMR10(V128)}} |
VMR10(V128)}} |
970 |
base[0]=base[0]; |
base[0]=base[0]; |
982 |
object V136; |
object V136; |
983 |
object V137; |
object V137; |
984 |
register object V138; |
register object V138; |
985 |
V137= (*(LnkLI136))((V132)); |
V137= (*(LnkLI140))((V132)); |
986 |
V135= Cnil; |
V135= Cnil; |
987 |
V136= Cnil; |
V136= Cnil; |
988 |
V138= Cnil; |
V138= Cnil; |
1000 |
goto T416; |
goto T416; |
1001 |
goto T417; |
goto T417; |
1002 |
T417:; |
T417:; |
1003 |
V141= make_fixnum(length((V134))); |
V141= make_fixnum((long)length((V134))); |
1004 |
goto T416; |
goto T416; |
1005 |
T416:; |
T416:; |
1006 |
if((get((V132),VV[1],Cnil))==Cnil){ |
if((get((V132),VV[1],Cnil))==Cnil){ |
1019 |
goto T428; |
goto T428; |
1020 |
goto T432; |
goto T432; |
1021 |
T432:; |
T432:; |
1022 |
(void)((VFUN_NARGS=2,(*(LnkLI121))(VV[62],(V132)))); |
(void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132)))); |
1023 |
goto T428; |
goto T428; |
1024 |
goto T430; |
goto T430; |
1025 |
T430:; |
T430:; |
1041 |
T420:; |
T420:; |
1042 |
if((V141)==Cnil){ |
if((V141)==Cnil){ |
1043 |
goto T437;} |
goto T437;} |
1044 |
V142 = make_fixnum(length((V140))); |
V142 = make_fixnum((long)length((V140))); |
1045 |
if(!(eql((V141),V142))){ |
if(!(eql((V141),V142))){ |
1046 |
goto T438;} |
goto T438;} |
1047 |
goto T437; |
goto T437; |
1060 |
goto T437; |
goto T437; |
1061 |
goto T440; |
goto T440; |
1062 |
T440:;} |
T440:;} |
1063 |
V145 = make_fixnum(length((V140))); |
V145 = make_fixnum((long)length((V140))); |
1064 |
(void)((VFUN_NARGS=4,(*(LnkLI121))(VV[64],(V132),(V141),V145))); |
(void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145))); |
1065 |
goto T437; |
goto T437; |
1066 |
T437:; |
T437:; |
1067 |
{register object x= (V132),V146= symbol_value(VV[65]); |
{register object x= (V132),V146= symbol_value(VV[65]); |
1077 |
goto T410;} |
goto T410;} |
1078 |
{register object V147; |
{register object V147; |
1079 |
vs_base=vs_top; |
vs_base=vs_top; |
1080 |
(void) (*Lnk137)(); |
(void) (*Lnk141)(); |
1081 |
vs_top=sup; |
vs_top=sup; |
1082 |
V147= vs_base[0]; |
V147= vs_base[0]; |
1083 |
base[2]= (V147); |
base[2]= (V147); |
1131 |
(void)(princ(VV[70],(V147))); |
(void)(princ(VV[70],(V147))); |
1132 |
base[2]= (V147); |
base[2]= (V147); |
1133 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1134 |
(void) (*Lnk138)(); |
(void) (*Lnk142)(); |
1135 |
vs_top=sup; |
vs_top=sup; |
1136 |
(base[0]->c.c_car)= vs_base[0];} |
(base[0]->c.c_car)= vs_base[0];} |
1137 |
if(((V138))==Cnil){ |
if(((V138))==Cnil){ |
1138 |
goto T479;} |
goto T479;} |
1139 |
V135= |
V135= |
1140 |
make_cclosure_new(LC20,Cnil,base[0],Cdata); |
make_cclosure_new(LC21,Cnil,base[0],Cdata); |
1141 |
goto T479; |
goto T479; |
1142 |
T479:;{object V152; |
T479:;{object V152; |
1143 |
V152= get((V132),VV[2],Cnil); |
V152= get((V132),VV[2],Cnil); |
1177 |
goto T410;} |
goto T410;} |
1178 |
goto T412; |
goto T412; |
1179 |
T412:; |
T412:; |
1180 |
(void)((*(LnkLI132))((V132),(V134))); |
(void)((*(LnkLI136))((V132),(V134))); |
1181 |
if((get((V132),VV[61],Cnil))==Cnil){ |
if((get((V132),VV[61],Cnil))==Cnil){ |
1182 |
goto T501;} |
goto T501;} |
1183 |
V158= VV[61]; |
V158= VV[61]; |
1203 |
base[0]=base[0]; |
base[0]=base[0]; |
1204 |
return Cnil; |
return Cnil; |
1205 |
} |
} |
1206 |
|
/* function definition for DECLARATION-TYPE */ |
1207 |
|
|
1208 |
|
static void L12() |
1209 |
|
{register object *base=vs_base; |
1210 |
|
register object *sup=base+VM12; VC12 |
1211 |
|
vs_reserve(VM12); |
1212 |
|
{object V160; |
1213 |
|
check_arg(1); |
1214 |
|
V160=(base[0]); |
1215 |
|
vs_top=sup; |
1216 |
|
goto TTL; |
1217 |
|
TTL:; |
1218 |
|
if(!(equal((V160),VV[76]))){ |
1219 |
|
goto T510;} |
1220 |
|
base[1]= VV[77]; |
1221 |
|
vs_top=(vs_base=base+1)+1; |
1222 |
|
return; |
1223 |
|
goto T510; |
1224 |
|
T510:; |
1225 |
|
if(!(equal((V160),VV[78]))){ |
1226 |
|
goto T513;} |
1227 |
|
base[1]= VV[79]; |
1228 |
|
vs_top=(vs_base=base+1)+1; |
1229 |
|
return; |
1230 |
|
goto T513; |
1231 |
|
T513:; |
1232 |
|
base[1]= (V160); |
1233 |
|
vs_top=(vs_base=base+1)+1; |
1234 |
|
return; |
1235 |
|
} |
1236 |
|
} |
1237 |
/* local entry for function WT-FUNCTION-LINK */ |
/* local entry for function WT-FUNCTION-LINK */ |
1238 |
|
|
1239 |
static object LI12(V161) |
static object LI13(V162) |
1240 |
|
|
1241 |
register object V161; |
register object V162; |
1242 |
{ VMB12 VMS12 VMV12 |
{ VMB13 VMS13 VMV13 |
1243 |
goto TTL; |
goto TTL; |
1244 |
TTL:; |
TTL:; |
1245 |
{register object V162; |
{register object V163; |
|
register object V163; |
|
1246 |
register object V164; |
register object V164; |
1247 |
object V165; |
register object V165; |
1248 |
V162= car((V161)); |
object V166; |
1249 |
V163= cadr((V161)); |
V163= car((V162)); |
1250 |
V164= caddr((V161)); |
V164= cadr((V162)); |
1251 |
V165= cadddr((V161)); |
V165= caddr((V162)); |
1252 |
if(((V164))!=Cnil){ |
V166= cadddr((V162)); |
1253 |
goto T515;} |
if(((V165))!=Cnil){ |
1254 |
|
goto T521;} |
1255 |
princ_str("\nstatic void LnkT",VV[29]); |
princ_str("\nstatic void LnkT",VV[29]); |
1256 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1257 |
princ_str("(){ call_or_link(VV[",VV[29]); |
princ_str("(){ call_or_link(VV[",VV[29]); |
1258 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1259 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1260 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1261 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1262 |
goto T513; |
goto T519; |
1263 |
goto T515; |
goto T521; |
1264 |
T515:; |
T521:; |
1265 |
if(!(eql((V164),VV[61]))){ |
if(!(eql((V165),VV[61]))){ |
1266 |
goto T525;} |
goto T531;} |
1267 |
princ_str("\nstatic void LnkT",VV[29]); |
princ_str("\nstatic void LnkT",VV[29]); |
1268 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1269 |
princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]); |
princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]); |
1270 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1271 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1272 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1273 |
princ_str(",&Lclptr",VV[29]); |
princ_str(",&Lclptr",VV[29]); |
1274 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1275 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1276 |
goto T513; |
goto T519; |
1277 |
goto T525; |
goto T531; |
1278 |
T525:; |
T531:; |
1279 |
princ_str("\nstatic ",VV[29]); |
princ_str("\nstatic ",VV[29]); |
1280 |
V166= (*(LnkLI139))((V164)); |
base[0]= (*(LnkLI143))((V165)); |
1281 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V166)); |
vs_top=(vs_base=base+0)+1; |
1282 |
|
(void) (*Lnk144)(); |
1283 |
|
vs_top=sup; |
1284 |
|
V167= vs_base[0]; |
1285 |
|
(void)((*(LnkLI117))(V167)); |
1286 |
princ_str(" LnkT",VV[29]); |
princ_str(" LnkT",VV[29]); |
1287 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1288 |
if(((V165))!=Cnil){ |
if(((V166))!=Cnil){ |
1289 |
goto T541;} |
goto T549;} |
1290 |
if((Ct)==((V164))){ |
if((Ct)==((V165))){ |
1291 |
goto T542;} |
goto T550;} |
1292 |
goto T541; |
goto T549; |
1293 |
T541:; |
T549:; |
1294 |
{object V167; |
{object V168; |
1295 |
{register object x= VV[5],V168= (V165); |
{register object x= VV[5],V169= (V166); |
1296 |
while(!endp(V168)) |
while(!endp(V169)) |
1297 |
if(eql(x,V168->c.c_car)){ |
if(eql(x,V169->c.c_car)){ |
1298 |
V167= V168; |
V168= V169; |
1299 |
goto T546; |
goto T554; |
1300 |
}else V168=V168->c.c_cdr; |
}else V169=V169->c.c_cdr; |
1301 |
V167= Cnil;} |
V168= Cnil;} |
|
goto T546; |
|
|
T546:; |
|
|
princ_str("(va_alist)va_dcl{va_list ap;va_start(ap);return(",VV[29]); |
|
|
V169= (*(LnkLI139))((V164)); |
|
|
(void)((*(LnkLI113))(/* INLINE-ARGS */V169)); |
|
|
princ_str(")call_",VV[29]); |
|
|
if(((V167))==Cnil){ |
|
|
goto T554;} |
|
|
V170= VV[76]; |
|
|
goto T552; |
|
1302 |
goto T554; |
goto T554; |
1303 |
T554:; |
T554:; |
1304 |
V170= VV[77]; |
princ_str("(va_alist)va_dcl{",VV[29]); |
1305 |
goto T552; |
base[0]= (*(LnkLI143))((V165)); |
1306 |
T552:; |
vs_top=(vs_base=base+0)+1; |
1307 |
(void)((*(LnkLI113))(V170)); |
(void) (*Lnk144)(); |
1308 |
|
vs_top=sup; |
1309 |
|
V170= vs_base[0]; |
1310 |
|
(void)((*(LnkLI117))(V170)); |
1311 |
|
princ_str("V1;",VV[29]); |
1312 |
|
princ_str("va_list ap;va_start(ap);V1=call_",VV[29]); |
1313 |
|
if(((V168))==Cnil){ |
1314 |
|
goto T565;} |
1315 |
|
V171= VV[80]; |
1316 |
|
goto T563; |
1317 |
|
goto T565; |
1318 |
|
T565:; |
1319 |
|
V171= VV[81]; |
1320 |
|
goto T563; |
1321 |
|
T563:; |
1322 |
|
(void)((*(LnkLI117))(V171)); |
1323 |
princ_str("proc(VV[",VV[29]); |
princ_str("proc(VV[",VV[29]); |
1324 |
V171= (*(LnkLI140))((V162)); |
V172= (*(LnkLI145))((V163)); |
1325 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V171)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V172)); |
1326 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1327 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1328 |
if((V167)!=Cnil){ |
if((V168)!=Cnil){ |
1329 |
goto T560;} |
goto T571;} |
1330 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1331 |
V172 = make_fixnum((*(LnkLI141))((V165),(V164))); |
V173 = make_fixnum((long)(*(LnkLI146))((V166),(V165))); |
1332 |
(void)((*(LnkLI113))(V172)); |
(void)((*(LnkLI117))(V173)); |
1333 |
goto T560; |
goto T571; |
1334 |
T560:; |
T571:; |
1335 |
princ_str(",ap);}",VV[29]); |
princ_str(",ap);va_end(ap);return V1;}",VV[29]); |
1336 |
goto T513;} |
goto T519;} |
1337 |
goto T542; |
goto T550; |
1338 |
T542:; |
T550:; |
1339 |
princ_str("(){return call_proc0(VV[",VV[29]); |
princ_str("(){return call_proc0(VV[",VV[29]); |
1340 |
V173= (*(LnkLI140))((V162)); |
V174= (*(LnkLI145))((V163)); |
1341 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V173)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V174)); |
1342 |
princ_str("],(void **)&Lnk",VV[29]); |
princ_str("],(void **)&Lnk",VV[29]); |
1343 |
(void)((*(LnkLI113))((V163))); |
(void)((*(LnkLI117))((V164))); |
1344 |
princ_str(");}",VV[29]); |
princ_str(");}",VV[29]); |
1345 |
goto T513; |
goto T519; |
1346 |
T513:; |
T519:; |
1347 |
V162= symbol_name((V162)); |
V163= symbol_name((V163)); |
1348 |
if(((VFUN_NARGS=2,(*(LnkLI142))(VV[78],(V162))))==Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V163))))==Cnil){ |
1349 |
goto T571;} |
goto T582;} |
1350 |
V162= (VFUN_NARGS=2,(*(LnkLI143))(VV[78],(V162))); |
V163= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V163))); |
1351 |
goto T571; |
goto T582; |
1352 |
T571:; |
T582:; |
1353 |
princ_str(" /* ",VV[29]); |
princ_str(" /* ",VV[29]); |
1354 |
(void)((*(LnkLI113))((V162))); |
(void)((*(LnkLI117))((V163))); |
1355 |
princ_str(" */",VV[29]); |
princ_str(" */",VV[29]); |
1356 |
{object V174 = Cnil; |
{object V175 = Cnil; |
1357 |
VMR12(V174)}} |
VMR13(V175)}} |
1358 |
|
base[0]=base[0]; |
1359 |
return Cnil; |
return Cnil; |
1360 |
} |
} |
1361 |
/* local entry for function WT-FUNCALL-C */ |
/* local entry for function WT-FUNCALL-C */ |
1362 |
|
|
1363 |
static object LI13(V176) |
static object LI14(V177) |
1364 |
|
|
1365 |
register object V176; |
register object V177; |
1366 |
{ VMB13 VMS13 VMV13 |
{ VMB14 VMS14 VMV14 |
1367 |
bds_check; |
bds_check; |
1368 |
goto TTL; |
goto TTL; |
1369 |
TTL:; |
TTL:; |
1370 |
{object V177; |
{object V178; |
1371 |
object V178; |
object V179; |
1372 |
register object V179; |
register object V180; |
1373 |
V177= car((V176)); |
V178= car((V177)); |
1374 |
V178= cdr((V176)); |
V179= cdr((V177)); |
1375 |
V179= Cnil; |
V180= Cnil; |
1376 |
if(!(eql(car((V177)),VV[23]))){ |
if(!(eql(car((V178)),VV[23]))){ |
1377 |
goto T583;} |
goto T594;} |
1378 |
{object V180; |
{object V181; |
1379 |
V180= make_cons(car((V177)),caddr((V177))); |
V181= make_cons(car((V178)),caddr((V178))); |
1380 |
if((symbol_value(VV[79]))==Cnil){ |
if((symbol_value(VV[83]))==Cnil){ |
1381 |
goto T586;} |
goto T597;} |
1382 |
princ_str("\n (type_of(",VV[29]); |
princ_str("\n (type_of(",VV[29]); |
1383 |
base[0]= (V180); |
base[0]= (V181); |
1384 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1385 |
(void) (*Lnk144)(); |
(void) (*Lnk149)(); |
1386 |
vs_top=sup; |
vs_top=sup; |
1387 |
princ_str(")==t_cfun)||FEinvalid_function(",VV[29]); |
princ_str(")==t_cfun)||FEinvalid_function(",VV[29]); |
1388 |
base[0]= (V180); |
base[0]= (V181); |
1389 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1390 |
(void) (*Lnk144)(); |
(void) (*Lnk149)(); |
1391 |
vs_top=sup; |
vs_top=sup; |
1392 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1393 |
goto T586; |
goto T597; |
1394 |
T586:; |
T597:; |
1395 |
(void)((*(LnkLI112))((V178))); |
(void)((*(LnkLI116))((V179))); |
1396 |
princ_str("\n (",VV[29]); |
princ_str("\n (",VV[29]); |
1397 |
base[0]= (V180); |
base[0]= (V181); |
1398 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1399 |
(void) (*Lnk144)(); |
(void) (*Lnk149)(); |
1400 |
vs_top=sup; |
vs_top=sup; |
1401 |
goto T581;} |
goto T592;} |
1402 |
goto T583; |
goto T594; |
1403 |
T583:; |
T594:; |
1404 |
setq(VV[80],number_plus(symbol_value(VV[80]),small_fixnum(1))); |
setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1))); |
1405 |
V179= list(2,VV[33],symbol_value(VV[80])); |
V180= list(2,VV[33],symbol_value(VV[84])); |
1406 |
bds_bind(VV[21],(V179)); |
bds_bind(VV[21],(V180)); |
1407 |
princ_str("\n {object V",VV[29]); |
princ_str("\n {object V",VV[29]); |
1408 |
(void)((*(LnkLI113))(cadr((V179)))); |
(void)((*(LnkLI117))(cadr((V180)))); |
1409 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
1410 |
(void)((*(LnkLI111))(car((V176)))); |
(void)((*(LnkLI115))(car((V177)))); |
1411 |
(void)((*(LnkLI112))(cdr((V176)))); |
(void)((*(LnkLI116))(cdr((V177)))); |
1412 |
princ_str("(V",VV[29]); |
princ_str("(V",VV[29]); |
1413 |
(void)((*(LnkLI113))(cadr((V179)))); |
(void)((*(LnkLI117))(cadr((V180)))); |
1414 |
bds_unwind1; |
bds_unwind1; |
1415 |
goto T581; |
goto T592; |
1416 |
T581:; |
T592:; |
1417 |
princ_str(")->cf.cf_self ();",VV[29]); |
princ_str(")->cf.cf_self ();",VV[29]); |
1418 |
if((V179)==Cnil){ |
if((V180)==Cnil){ |
1419 |
goto T578;} |
goto T589;} |
1420 |
princ_char(125,VV[29]);} |
princ_char(125,VV[29]);} |
1421 |
goto T578; |
goto T589; |
1422 |
T578:; |
T589:; |
1423 |
{object V181 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31])); |
{object V182 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1424 |
VMR13(V181)} |
VMR14(V182)} |
1425 |
base[0]=base[0]; |
base[0]=base[0]; |
1426 |
return Cnil; |
return Cnil; |
1427 |
} |
} |
1428 |
/* local entry for function INLINE-PROC */ |
/* local entry for function INLINE-PROC */ |
1429 |
|
|
1430 |
static object LI14(V184,V185) |
static object LI15(V185,V186) |
1431 |
|
|
1432 |
object V184;object V185; |
object V185;object V186; |
1433 |
{ VMB14 VMS14 VMV14 |
{ VMB15 VMS15 VMV15 |
1434 |
goto TTL; |
goto TTL; |
1435 |
TTL:; |
TTL:; |
1436 |
{register object V186; |
{register object V187; |
1437 |
register object V187; |
register object V188; |
1438 |
object V188; |
object V189; |
1439 |
V186= make_fixnum(length((V185))); |
V187= make_fixnum((long)length((V186))); |
1440 |
V187= Cnil; |
V188= Cnil; |
1441 |
V188= (*(LnkLI140))((V184)); |
V189= (*(LnkLI145))((V185)); |
1442 |
base[2]= Ct; |
base[2]= Ct; |
1443 |
base[3]= VV[81]; |
base[3]= VV[85]; |
1444 |
base[4]= (V184); |
base[4]= (V185); |
1445 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1446 |
Lformat(); |
Lformat(); |
1447 |
vs_top=sup; |
vs_top=sup; |
1448 |
{object V189; |
{object V190; |
1449 |
{object V190= (V186); |
{object V191= (V187); |
1450 |
if(!eql(V190,VV[82]))goto T624; |
if(!eql(V191,VV[86]))goto T635; |
1451 |
base[2]= Cnil; |
base[2]= Cnil; |
1452 |
base[3]= VV[84]; |
base[3]= VV[88]; |
1453 |
base[4]= (V188); |
base[4]= (V189); |
1454 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1455 |
Lformat(); |
Lformat(); |
1456 |
vs_top=sup; |
vs_top=sup; |
1457 |
V191= vs_base[0]; |
V192= vs_base[0]; |
1458 |
V189= list(5,VV[83],Ct,small_fixnum(3),V191,VV[58]); |
V190= list(5,VV[87],Ct,small_fixnum(3),V192,VV[58]); |
1459 |
goto T623; |
goto T634; |
1460 |
goto T624; |
goto T635; |
1461 |
T624:; |
T635:; |
1462 |
if(!eql(V190,VV[85]))goto T629; |
if(!eql(V191,VV[89]))goto T640; |
1463 |
base[2]= Cnil; |
base[2]= Cnil; |
1464 |
base[3]= VV[87]; |
base[3]= VV[91]; |
1465 |
base[4]= (V188); |
base[4]= (V189); |
1466 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1467 |
Lformat(); |
Lformat(); |
1468 |
vs_top=sup; |
vs_top=sup; |
1469 |
V192= vs_base[0]; |
V193= vs_base[0]; |
1470 |
V189= list(5,VV[86],Ct,small_fixnum(3),V192,VV[58]); |
V190= list(5,VV[90],Ct,small_fixnum(3),V193,VV[58]); |
1471 |
goto T623; |
goto T634; |
1472 |
goto T629; |
goto T640; |
1473 |
T629:; |
T640:; |
1474 |
base[2]= (V186); |
base[2]= (V187); |
1475 |
base[3]= VV[63]; |
base[3]= VV[63]; |
1476 |
base[4]= Ct; |
base[4]= Ct; |
1477 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1478 |
Lmake_list(); |
Lmake_list(); |
1479 |
vs_top=sup; |
vs_top=sup; |
1480 |
V193= vs_base[0]; |
V194= vs_base[0]; |
1481 |
base[2]= Cnil; |
base[2]= Cnil; |
1482 |
base[3]= VV[88]; |
base[3]= VV[92]; |
1483 |
base[4]= (V188); |
base[4]= (V189); |
1484 |
base[5]= (V186); |
base[5]= (V187); |
1485 |
{register object V195; |
{register object V196; |
1486 |
register object V196; |
register object V197; |
1487 |
V195= (V186); |
V196= (V187); |
1488 |
V196= small_fixnum(0); |
V197= small_fixnum(0); |
1489 |
goto T647; |
goto T658; |
1490 |
T647:; |
T658:; |
1491 |
if(!(number_compare((V196),(V195))>=0)){ |
if(!(number_compare((V197),(V196))>=0)){ |
1492 |
goto T648;} |
goto T659;} |
1493 |
base[6]= nreverse((V187)); |
base[6]= nreverse((V188)); |
1494 |
goto T643; |
goto T654; |
1495 |
goto T648; |
goto T659; |
1496 |
T648:; |
T659:; |
1497 |
V187= make_cons((V196),(V187)); |
V188= make_cons((V197),(V188)); |
1498 |
V196= one_plus((V196)); |
V197= one_plus((V197)); |
1499 |
goto T647;} |
goto T658;} |
1500 |
goto T643; |
goto T654; |
1501 |
T643:; |
T654:; |
1502 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1503 |
Lformat(); |
Lformat(); |
1504 |
vs_top=sup; |
vs_top=sup; |
1505 |
V194= vs_base[0]; |
V195= vs_base[0]; |
1506 |
V189= list(5,V193,Ct,small_fixnum(3),V194,VV[58]);} |
V190= list(5,V194,Ct,small_fixnum(3),V195,VV[58]);} |
1507 |
goto T623; |
goto T634; |
1508 |
T623:; |
T634:; |
1509 |
V197= make_cons((V184),(V189)); |
V198= make_cons((V185),(V190)); |
1510 |
setq(VV[71],make_cons(/* INLINE-ARGS */V197,symbol_value(VV[71]))); |
setq(VV[71],make_cons(/* INLINE-ARGS */V198,symbol_value(VV[71]))); |
1511 |
{object V198 = (V189); |
{object V199 = (V190); |
1512 |
VMR14(V198)}}} |
VMR15(V199)}}} |
1513 |
base[0]=base[0]; |
base[0]=base[0]; |
1514 |
return Cnil; |
return Cnil; |
1515 |
} |
} |
1516 |
/* local entry for function WT-SIMPLE-CALL */ |
/* local entry for function WT-SIMPLE-CALL */ |
1517 |
|
|
1518 |
static object LI15(V201,V200,V199,va_alist) |
static object LI16(V202,V201,V200,va_alist) |
1519 |
object V201,V200,V199; |
object V202,V201,V200; |
1520 |
va_dcl |
va_dcl |
1521 |
{ |
{ |
1522 |
va_list ap; |
va_list ap; |
1523 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
int narg = VFUN_NARGS; VMB16 VMS16 VMV16 |
1524 |
{object V202; |
{object V203; |
|
object V203; |
|
1525 |
object V204; |
object V204; |
1526 |
object V205; |
object V205; |
1527 |
|
object V206; |
1528 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1529 |
va_start(ap); |
va_start(ap); |
1530 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1531 |
V202= V201; |
V203= V202; |
1532 |
V203= V200; |
V204= V201; |
1533 |
V204= V199; |
V205= V200; |
1534 |
narg = narg - 3; |
narg = narg - 3; |
1535 |
if (narg <= 0) goto T659; |
if (narg <= 0) goto T670; |
1536 |
else { |
else { |
1537 |
V205= va_arg(ap,object);} |
V206= va_arg(ap,object);} |
1538 |
--narg; goto T660; |
--narg; goto T671; |
1539 |
goto T659; |
goto T670; |
1540 |
T659:; |
T670:; |
1541 |
V205= Cnil; |
V206= Cnil; |
1542 |
goto T660; |
goto T671; |
1543 |
T660:; |
T671:; |
1544 |
princ_str("simple_",VV[29]); |
princ_str("simple_",VV[29]); |
1545 |
(void)((*(LnkLI113))((V202))); |
(void)((*(LnkLI117))((V203))); |
1546 |
princ_char(40,VV[29]); |
princ_char(40,VV[29]); |
1547 |
if(((V205))==Cnil){ |
if(((V206))==Cnil){ |
1548 |
goto T666;} |
goto T677;} |
1549 |
princ_str("VV[",VV[29]); |
princ_str("VV[",VV[29]); |
1550 |
(void)((*(LnkLI113))((V205))); |
(void)((*(LnkLI117))((V206))); |
1551 |
princ_str("],",VV[29]); |
princ_str("],",VV[29]); |
1552 |
goto T666; |
goto T677; |
1553 |
T666:; |
T677:; |
1554 |
princ_str("base+",VV[29]); |
princ_str("base+",VV[29]); |
1555 |
(void)((*(LnkLI113))((V203))); |
(void)((*(LnkLI117))((V204))); |
1556 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1557 |
(void)((*(LnkLI113))((V204))); |
(void)((*(LnkLI117))((V205))); |
1558 |
princ_char(41,VV[29]); |
princ_char(41,VV[29]); |
1559 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1560 |
{object V206 = Ct; |
{object V207 = Ct; |
1561 |
VMR15(V206)} |
VMR16(V207)} |
1562 |
va_end(ap); |
va_end(ap); |
1563 |
return Cnil;} |
return Cnil;} |
1564 |
} |
} |
1565 |
/* local entry for function SAVE-FUNOB */ |
/* local entry for function SAVE-FUNOB */ |
1566 |
|
|
1567 |
static object LI16(V208) |
static object LI17(V209) |
1568 |
|
|
1569 |
register object V208; |
register object V209; |
1570 |
{ VMB16 VMS16 VMV16 |
{ VMB17 VMS17 VMV17 |
1571 |
bds_check; |
bds_check; |
1572 |
goto TTL; |
goto TTL; |
1573 |
TTL:; |
TTL:; |
1574 |
{object V209= car((V208)); |
{object V210= car((V209)); |
1575 |
if((V209!= VV[13]) |
if((V210!= VV[13]) |
1576 |
&& (V209!= VV[145]) |
&& (V210!= VV[150]) |
1577 |
&& (V209!= VV[6]))goto T679; |
&& (V210!= VV[6]))goto T690; |
1578 |
{object V210 = Cnil; |
{object V211 = Cnil; |
1579 |
VMR16(V210)} |
VMR17(V211)} |
1580 |
goto T679; |
goto T690; |
1581 |
T679:; |
T690:; |
1582 |
if((V209!= VV[14]))goto T680; |
if((V210!= VV[14]))goto T691; |
1583 |
if(((*(LnkLI123))(caddr((V208))))==Cnil){ |
if(((*(LnkLI127))(caddr((V209))))==Cnil){ |
1584 |
goto T681;} |
goto T692;} |
1585 |
if((get(caddr((V208)),VV[55],Cnil))!=Cnil){ |
if((get(caddr((V209)),VV[55],Cnil))!=Cnil){ |
1586 |
goto T682;} |
goto T693;} |
1587 |
if((get(caddr((V208)),VV[56],Cnil))!=Cnil){ |
if((get(caddr((V209)),VV[56],Cnil))!=Cnil){ |
|
goto T682;} |
|
|
{register object x= caddr((V208)),V211= symbol_value(VV[89]); |
|
|
while(!endp(V211)) |
|
|
if(type_of(V211->c.c_car)==t_cons &&eql(x,V211->c.c_car->c.c_car)){ |
|
|
goto T682; |
|
|
}else V211=V211->c.c_cdr;} |
|
|
goto T681; |
|
|
T681:; |
|
|
{object V212; |
|
|
V212= list(2,VV[27],(*(LnkLI110))()); |
|
|
if((symbol_value(VV[79]))==Cnil){ |
|
1588 |
goto T693;} |
goto T693;} |
1589 |
|
{register object x= caddr((V209)),V212= symbol_value(VV[93]); |
1590 |
|
while(!endp(V212)) |
1591 |
|
if(type_of(V212->c.c_car)==t_cons &&eql(x,V212->c.c_car->c.c_car)){ |
1592 |
|
goto T693; |
1593 |
|
}else V212=V212->c.c_cdr;} |
1594 |
|
goto T692; |
1595 |
|
T692:; |
1596 |
|
{object V213; |
1597 |
|
V213= list(2,VV[27],(*(LnkLI114))()); |
1598 |
|
if((symbol_value(VV[83]))==Cnil){ |
1599 |
|
goto T704;} |
1600 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1601 |
(void)((*(LnkLI113))((V212))); |
(void)((*(LnkLI117))((V213))); |
1602 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1603 |
V213= (*(LnkLI136))(caddr((V208))); |
V214= (*(LnkLI140))(caddr((V209))); |
1604 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V213)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V214)); |
1605 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1606 |
goto T691; |
goto T702; |
1607 |
goto T693; |
goto T704; |
1608 |
T693:; |
T704:; |
1609 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1610 |
(void)((*(LnkLI113))((V212))); |
(void)((*(LnkLI117))((V213))); |
1611 |
princ_str("=VV[",VV[29]); |
princ_str("=VV[",VV[29]); |
1612 |
V214= (*(LnkLI136))(caddr((V208))); |
V215= (*(LnkLI140))(caddr((V209))); |
1613 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V214)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V215)); |
1614 |
princ_str("]->s.s_gfdef;",VV[29]); |
princ_str("]->s.s_gfdef;",VV[29]); |
1615 |
|
goto T702; |
1616 |
|
T702:; |
1617 |
|
{object V216 = (V213); |
1618 |
|
VMR17(V216)}} |
1619 |
|
goto T693; |
1620 |
|
T693:; |
1621 |
|
{object V217 = Cnil; |
1622 |
|
VMR17(V217)} |
1623 |
goto T691; |
goto T691; |
1624 |
T691:; |
T691:; |
1625 |
{object V215 = (V212); |
if((V210!= VV[18]))goto T716; |
1626 |
VMR16(V215)}} |
{object V218; |
1627 |
goto T682; |
V218= list(2,VV[27],(*(LnkLI114))()); |
1628 |
T682:; |
bds_bind(VV[21],(V218)); |
1629 |
{object V216 = Cnil; |
(void)((*(LnkLI115))(caddr((V209)))); |
1630 |
VMR16(V216)} |
{object V219 = (V218); |
1631 |
goto T680; |
bds_unwind1; |
1632 |
T680:; |
VMR17(V219)}} |
1633 |
if((V209!= VV[18]))goto T705; |
goto T716; |
1634 |
{object V217; |
T716:; |
1635 |
V217= list(2,VV[27],(*(LnkLI110))()); |
{object V220 = (*(LnkLI112))(); |
1636 |
bds_bind(VV[21],(V217)); |
VMR17(V220)}} |
|
(void)((*(LnkLI111))(caddr((V208)))); |
|
|
{object V218 = (V217); |
|
|
bds_unwind1; |
|
|
VMR16(V218)}} |
|
|
goto T705; |
|
|
T705:; |
|
|
{object V219 = (*(LnkLI108))(); |
|
|
VMR16(V219)}} |
|
1637 |
base[0]=base[0]; |
base[0]=base[0]; |
1638 |
return Cnil; |
return Cnil; |
1639 |
} |
} |
1640 |
/* local entry for function PUSH-ARGS */ |
/* local entry for function PUSH-ARGS */ |
1641 |
|
|
1642 |
static object LI17(V221) |
static object LI18(V222) |
1643 |
|
|
1644 |
object V221; |
object V222; |
1645 |
{ VMB17 VMS17 VMV17 |
{ VMB18 VMS18 VMV18 |
1646 |
bds_check; |
bds_check; |
1647 |
goto TTL; |
goto TTL; |
1648 |
TTL:; |
TTL:; |
1649 |
if(((V221))!=Cnil){ |
if(((V222))!=Cnil){ |
1650 |
goto T709;} |
goto T720;} |
1651 |
princ_str("\n vs_base=vs_top;",VV[29]); |
princ_str("\n vs_base=vs_top;",VV[29]); |
1652 |
{object V222 = Cnil; |
{object V223 = Cnil; |
1653 |
VMR17(V222)} |
VMR18(V223)} |
|
goto T709; |
|
|
T709:; |
|
|
if(!(type_of((V221))==t_cons)){ |
|
|
goto T713;} |
|
|
{object V223; |
|
|
V223= symbol_value(VV[19]); |
|
|
bds_bind(VV[19],symbol_value(VV[19])); |
|
|
{register object V224; |
|
|
register object V225; |
|
|
V224= (V221); |
|
|
V225= car((V224)); |
|
1654 |
goto T720; |
goto T720; |
1655 |
T720:; |
T720:; |
1656 |
if(!(endp((V224)))){ |
if(!(type_of((V222))==t_cons)){ |
1657 |
goto T721;} |
goto T724;} |
1658 |
goto T716; |
{object V224; |
1659 |
goto T721; |
V224= symbol_value(VV[19]); |
1660 |
T721:; |
bds_bind(VV[19],symbol_value(VV[19])); |
1661 |
base[2]= list(2,VV[27],(*(LnkLI110))()); |
{register object V225; |
1662 |
|
register object V226; |
1663 |
|
V225= (V222); |
1664 |
|
V226= car((V225)); |
1665 |
|
goto T731; |
1666 |
|
T731:; |
1667 |
|
if(!(endp((V225)))){ |
1668 |
|
goto T732;} |
1669 |
|
goto T727; |
1670 |
|
goto T732; |
1671 |
|
T732:; |
1672 |
|
base[2]= list(2,VV[27],(*(LnkLI114))()); |
1673 |
bds_bind(VV[21],base[2]); |
bds_bind(VV[21],base[2]); |
1674 |
V226= (*(LnkLI111))((V225)); |
V227= (*(LnkLI115))((V226)); |
1675 |
bds_unwind1; |
bds_unwind1; |
1676 |
V224= cdr((V224)); |
V225= cdr((V225)); |
1677 |
V225= car((V224)); |
V226= car((V225)); |
1678 |
goto T720;} |
goto T731;} |
1679 |
goto T716; |
goto T727; |
1680 |
T716:; |
T727:; |
1681 |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
princ_str("\n vs_top=(vs_base=base+",VV[29]); |
1682 |
(void)((*(LnkLI113))((V223))); |
(void)((*(LnkLI117))((V224))); |
1683 |
princ_str(")+",VV[29]); |
princ_str(")+",VV[29]); |
1684 |
V227= number_minus((VV[19]->s.s_dbind),(V223)); |
V228= number_minus((VV[19]->s.s_dbind),(V224)); |
1685 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V227)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V228)); |
1686 |
princ_char(59,VV[29]); |
princ_char(59,VV[29]); |
1687 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1688 |
{object V228 = Ct; |
{object V229 = Ct; |
1689 |
bds_unwind1; |
bds_unwind1; |
1690 |
VMR17(V228)}} |
VMR18(V229)}} |
1691 |
goto T713; |
goto T724; |
1692 |
T713:; |
T724:; |
1693 |
{object V229 = Cnil; |
{object V230 = Cnil; |
1694 |
VMR17(V229)} |
VMR18(V230)} |
1695 |
base[0]=base[0]; |
base[0]=base[0]; |
1696 |
return Cnil; |
return Cnil; |
1697 |
} |
} |
1698 |
/* local entry for function PUSH-ARGS-LISPCALL */ |
/* local entry for function PUSH-ARGS-LISPCALL */ |
1699 |
|
|
1700 |
static object LI18(V231) |
static object LI19(V232) |
1701 |
|
|
1702 |
object V231; |
object V232; |
1703 |
{ VMB18 VMS18 VMV18 |
{ VMB19 VMS19 VMV19 |
1704 |
bds_check; |
bds_check; |
1705 |
goto TTL; |
goto TTL; |
1706 |
TTL:; |
TTL:; |
1707 |
{register object V232; |
{register object V233; |
1708 |
register object V233; |
register object V234; |
1709 |
V232= (V231); |
V233= (V232); |
1710 |
V233= car((V232)); |
V234= car((V233)); |
1711 |
goto T742; |
goto T753; |
1712 |
T742:; |
T753:; |
1713 |
if(!(endp((V232)))){ |
if(!(endp((V233)))){ |
1714 |
goto T743;} |
goto T754;} |
1715 |
{object V234 = Cnil; |
{object V235 = Cnil; |
1716 |
VMR18(V234)} |
VMR19(V235)} |
1717 |
goto T743; |
goto T754; |
1718 |
T743:; |
T754:; |
1719 |
base[1]= list(2,VV[27],(*(LnkLI110))()); |
base[1]= list(2,VV[27],(*(LnkLI114))()); |
1720 |
bds_bind(VV[21],base[1]); |
bds_bind(VV[21],base[1]); |
1721 |
V235= (*(LnkLI111))((V233)); |
V236= (*(LnkLI115))((V234)); |
1722 |
bds_unwind1; |
bds_unwind1; |
1723 |
V232= cdr((V232)); |
V233= cdr((V233)); |
1724 |
V233= car((V232)); |
V234= car((V233)); |
1725 |
goto T742;} |
goto T753;} |
1726 |
base[0]=base[0]; |
base[0]=base[0]; |
1727 |
return Cnil; |
return Cnil; |
1728 |
} |
} |
1729 |
/* local entry for function C2CALL-UNKNOWN-GLOBAL */ |
/* local entry for function C2CALL-UNKNOWN-GLOBAL */ |
1730 |
|
|
1731 |
static object LI19(V240,V241,V242,V243) |
static object LI20(V241,V242,V243,V244) |
1732 |
|
|
1733 |
register object V240;register object V241;register object V242;register object V243; |
register object V241;register object V242;register object V243;register object V244; |
1734 |
{ VMB19 VMS19 VMV19 |
{ VMB20 VMS20 VMV20 |
1735 |
goto TTL; |
goto TTL; |
1736 |
TTL:; |
TTL:; |
1737 |
if((symbol_value(VV[28]))==Cnil){ |
if((symbol_value(VV[28]))==Cnil){ |
1738 |
goto T755;} |
goto T766;} |
1739 |
if(((V242))!=Cnil){ |
if(((V243))!=Cnil){ |
1740 |
goto T757;} |
goto T768;} |
1741 |
V242= list(2,VV[27],(*(LnkLI110))()); |
V243= list(2,VV[27],(*(LnkLI114))()); |
1742 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1743 |
(void)((*(LnkLI113))((V242))); |
(void)((*(LnkLI117))((V243))); |
1744 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1745 |
V244= (*(LnkLI136))((V240)); |
V245= (*(LnkLI140))((V241)); |
1746 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V244)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V245)); |
1747 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1748 |
goto T757; |
goto T768; |
1749 |
T757:; |
T768:; |
1750 |
(void)((*(LnkLI112))((V241))); |
(void)((*(LnkLI116))((V242))); |
1751 |
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
princ_str("\n funcall_with_catcher(VV[",VV[29]); |
1752 |
V245= (*(LnkLI136))((V240)); |
V246= (*(LnkLI140))((V241)); |
1753 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V245)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V246)); |
1754 |
princ_str("],",VV[29]); |
princ_str("],",VV[29]); |
1755 |
(void)((*(LnkLI113))((V242))); |
(void)((*(LnkLI117))((V243))); |
1756 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1757 |
{object V246 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V240))); |
{object V247 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V241))); |
1758 |
VMR19(V246)} |
VMR20(V247)} |
1759 |
goto T755; |
goto T766; |
1760 |
T755:; |
T766:; |
|
if(((V242))==Cnil){ |
|
|
goto T775;} |
|
|
(void)((*(LnkLI112))((V241))); |
|
1761 |
if(((V243))==Cnil){ |
if(((V243))==Cnil){ |
1762 |
goto T780;} |
goto T786;} |
1763 |
if((symbol_value(VV[79]))==Cnil){ |
(void)((*(LnkLI116))((V242))); |
1764 |
goto T783;} |
if(((V244))==Cnil){ |
1765 |
|
goto T791;} |
1766 |
|
if((symbol_value(VV[83]))==Cnil){ |
1767 |
|
goto T794;} |
1768 |
princ_str("\n funcall_no_event(",VV[29]); |
princ_str("\n funcall_no_event(",VV[29]); |
1769 |
(void)((*(LnkLI113))((V242))); |
(void)((*(LnkLI117))((V243))); |
1770 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1771 |
goto T778; |
goto T789; |
1772 |
goto T783; |
goto T794; |
1773 |
T783:; |
T794:; |
1774 |
princ_str("\n CMPfuncall(",VV[29]); |
princ_str("\n CMPfuncall(",VV[29]); |
1775 |
(void)((*(LnkLI113))((V242))); |
(void)((*(LnkLI117))((V243))); |
1776 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1777 |
goto T778; |
goto T789; |
1778 |
goto T780; |
goto T791; |
1779 |
T780:; |
T791:; |
1780 |
princ_str("\n funcall(",VV[29]); |
princ_str("\n funcall(",VV[29]); |
1781 |
(void)((*(LnkLI113))((V242))); |
(void)((*(LnkLI117))((V243))); |
1782 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1783 |
goto T778; |
goto T789; |
1784 |
T778:; |
T789:; |
1785 |
{object V247 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31])); |
{object V248 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1786 |
VMR19(V247)} |
VMR20(V248)} |
1787 |
goto T775; |
goto T786; |
1788 |
T775:; |
T786:; |
1789 |
if(((*(LnkLI146))((V241)))==Cnil){ |
if(((*(LnkLI151))((V242)))==Cnil){ |
1790 |
goto T795;} |
goto T806;} |
1791 |
{object V248; |
{object V249; |
1792 |
V248= symbol_value(VV[19]); |
V249= symbol_value(VV[19]); |
1793 |
V242= list(2,VV[27],(*(LnkLI110))()); |
V243= list(2,VV[27],(*(LnkLI114))()); |
1794 |
if((symbol_value(VV[79]))==Cnil){ |
if((symbol_value(VV[83]))==Cnil){ |
1795 |
goto T801;} |
goto T812;} |
1796 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1797 |
(void)((*(LnkLI113))((V242))); |
(void)((*(LnkLI117))((V243))); |
1798 |
princ_str("=symbol_function(VV[",VV[29]); |
princ_str("=symbol_function(VV[",VV[29]); |
1799 |
V249= (*(LnkLI136))((V240)); |
V250= (*(LnkLI140))((V241)); |
1800 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V249)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V250)); |
1801 |
princ_str("]);",VV[29]); |
princ_str("]);",VV[29]); |
1802 |
goto T799; |
goto T810; |
1803 |
goto T801; |
goto T812; |
1804 |
T801:; |
T812:; |
1805 |
princ_str("\n ",VV[29]); |
princ_str("\n ",VV[29]); |
1806 |
(void)((*(LnkLI113))((V242))); |
(void)((*(LnkLI117))((V243))); |
1807 |
princ_str("=(VV[",VV[29]); |
princ_str("=(VV[",VV[29]); |
1808 |
V250= (*(LnkLI136))((V240)); |
V251= (*(LnkLI140))((V241)); |
1809 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V250)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V251)); |
1810 |
princ_str("]->s.s_gfdef);",VV[29]); |
princ_str("]->s.s_gfdef);",VV[29]); |
1811 |
goto T799; |
goto T810; |
1812 |
T799:; |
T810:; |
1813 |
(void)((*(LnkLI116))((V241))); |
(void)((*(LnkLI120))((V242))); |
1814 |
if((symbol_value(VV[21]))==(VV[90])){ |
if((symbol_value(VV[21]))==(VV[94])){ |
1815 |
goto T814;} |
goto T825;} |
1816 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
1817 |
goto T815;} |
goto T826;} |
1818 |
goto T814; |
goto T825; |
1819 |
T814:; |
T825:; |
1820 |
princ_str("\n lispcall",VV[29]); |
princ_str("\n lispcall",VV[29]); |
1821 |
if(((V243))==Cnil){ |
if(((V244))==Cnil){ |
1822 |
goto T821;} |
goto T832;} |
1823 |
princ_str("_no_event",VV[29]); |
princ_str("_no_event",VV[29]); |
1824 |
goto T821; |
goto T832; |
1825 |
T821:; |
T832:; |
1826 |
princ_str("(base+",VV[29]); |
princ_str("(base+",VV[29]); |
1827 |
(void)((*(LnkLI113))((V248))); |
(void)((*(LnkLI117))((V249))); |
1828 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1829 |
V251 = make_fixnum(length((V241))); |
V252 = make_fixnum((long)length((V242))); |
1830 |
(void)((*(LnkLI113))(V251)); |
(void)((*(LnkLI117))(V252)); |
1831 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1832 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1833 |
{object V252 = (VFUN_NARGS=1,(*(LnkLI114))(VV[31])); |
{object V253 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31])); |
1834 |
VMR19(V252)} |
VMR20(V253)} |
1835 |
goto T815; |
goto T826; |
1836 |
T815:; |
T826:; |
1837 |
if(((V243))==Cnil){ |
if(((V244))==Cnil){ |
1838 |
goto T835;} |
goto T846;} |
1839 |
V253= VV[92]; |
V254= VV[96]; |
1840 |
goto T833; |
goto T844; |
1841 |
goto T835; |
goto T846; |
1842 |
T835:; |
T846:; |
1843 |
V253= VV[93]; |
V254= VV[97]; |
1844 |
goto T833; |
goto T844; |
1845 |
T833:; |
T844:; |
1846 |
V254 = make_fixnum(length((V241))); |
V255 = make_fixnum((long)length((V242))); |
1847 |
V255= list(4,VV[91],V253,(V248),V254); |
V256= list(4,VV[95],V254,(V249),V255); |
1848 |
{object V256 = (VFUN_NARGS=1,(*(LnkLI114))(/* INLINE-ARGS */V255)); |
{object V257 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V256)); |
1849 |
VMR19(V256)}} |
VMR20(V257)}} |
1850 |
goto T795; |
goto T806; |
1851 |
T795:; |
T806:; |
1852 |
{object V257; |
{object V258; |
1853 |
V257= symbol_value(VV[19]); |
V258= symbol_value(VV[19]); |
1854 |
(void)((*(LnkLI116))((V241))); |
(void)((*(LnkLI120))((V242))); |
1855 |
if((symbol_value(VV[21]))==(VV[90])){ |
if((symbol_value(VV[21]))==(VV[94])){ |
1856 |
goto T838;} |
goto T849;} |
1857 |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
if(!((symbol_value(VV[21]))==(VV[59]))){ |
1858 |
goto T839;} |
goto T850;} |
1859 |
goto T838; |
goto T849; |
1860 |
T838:; |
T849:; |
1861 |
princ_str("\n symlispcall",VV[29]); |
princ_str("\n symlispcall",VV[29]); |
1862 |
if(((V243))==Cnil){ |
if(((V244))==Cnil){ |
1863 |
goto T845;} |
goto T856;} |
1864 |
princ_str("_no_event",VV[29]); |
princ_str("_no_event",VV[29]); |
1865 |
goto T845; |
goto T856; |
1866 |
T845:; |
T856:; |
1867 |
princ_str("(VV[",VV[29]); |
princ_str("(VV[",VV[29]); |
1868 |
V258= (*(LnkLI136))((V240)); |
V259= (*(LnkLI140))((V241)); |
1869 |
(void)((*(LnkLI113))(/* INLINE-ARGS */V258)); |
(void)((*(LnkLI117))(/* INLINE-ARGS */V259)); |
1870 |
princ_str("],base+",VV[29]); |
princ_str("],base+",VV[29]); |
1871 |
(void)((*(LnkLI113))((V257))); |
(void)((*(LnkLI117))((V258))); |
1872 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1873 |
V259 = make_fixnum(length((V241))); |
V260 = make_fixnum((long)length((V242))); |
1874 |
(void)((*(LnkLI113))(V259)); |
(void)((*(LnkLI117))(V260)); |
1875 |
princ_str(");",VV[29]); |
princ_str(");",VV[29]); |
1876 |
setq(VV[37],Ct); |
setq(VV[37],Ct); |
1877 |
{object V260 = (VFUN_NARGS=3,(*(LnkLI114))(VV[31],Cnil,(V240))); |
{object V261 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V241))); |
1878 |
VMR19(V260)} |
VMR20(V261)} |
1879 |
goto T839; |
goto T850; |
1880 |
T839:; |
T850:; |
1881 |
if(((V243))==Cnil){ |
if(((V244))==Cnil){ |
1882 |
goto T861;} |
goto T872;} |
1883 |
V261= VV[94]; |
V262= VV[98]; |
1884 |
goto T859; |
goto T870; |
1885 |
goto T861; |
goto T872; |
1886 |
T861:; |
T872:; |
1887 |
V261= VV[95]; |
V262= VV[99]; |
1888 |
goto T859; |
goto T870; |
1889 |
T859:; |
T870:; |
1890 |
V262 = make_fixnum(length((V241))); |
V263 = make_fixnum((long)length((V242))); |
1891 |
V263= list(5,VV[91],V261,(V257),V262,(*(LnkLI136))((V240))); |
V264= list(5,VV[95],V262,(V258),V263,(*(LnkLI140))((V241))); |
1892 |
{object V264 = (VFUN_NARGS=3,(*(LnkLI114))(/* INLINE-ARGS */V263,Cnil,(V240))); |
{object V265 = (VFUN_NARGS=3,(*(LnkLI118))(/* INLINE-ARGS */V264,Cnil,(V241))); |
1893 |
VMR19(V264)}} |
VMR20(V265)}} |
1894 |
return Cnil; |
return Cnil; |
1895 |
} |
} |
1896 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1897 |
|
|
1898 |
static void LC20(base0) |
static void LC21(base0) |
1899 |
register object *base0; |
register object *base0; |
1900 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1901 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM21; VC21 |
1902 |
vs_reserve(VM20); |
vs_reserve(VM21); |
1903 |
{object V265; |
{object V266; |
1904 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1905 |
{object *p=vs_top; |
{object *p=vs_top; |
1906 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1907 |
V265=(base[0]); |
V266=(base[0]); |
1908 |
vs_top=sup; |
vs_top=sup; |
1909 |
princ_str("(VFUN_NARGS=",VV[29]); |
princ_str("(VFUN_NARGS=",VV[29]); |
1910 |
V266 = make_fixnum(length((V265))); |
V267 = make_fixnum((long)length((V266))); |
1911 |
(void)((*(LnkLI113))(V266)); |
(void)((*(LnkLI117))(V267)); |
1912 |
princ_char(44,VV[29]); |
princ_char(44,VV[29]); |
1913 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1914 |
base[2]= (V265); |
base[2]= (V266); |
1915 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1916 |
(void) (*Lnk147)(); |
(void) (*Lnk152)(); |
1917 |
vs_top=sup; |
vs_top=sup; |
1918 |
princ_char(41,VV[29]); |
princ_char(41,VV[29]); |
1919 |
base[1]= Cnil; |
base[1]= Cnil; |
1921 |
return; |
return; |
1922 |
} |
} |
1923 |
} |
} |
1924 |
static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* WT-INLINE-LOC */ |
static void LnkT152(){ call_or_link(VV[152],(void **)&Lnk152);} /* WT-INLINE-LOC */ |
1925 |
static object LnkTLI146(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[146],(void **)&LnkLI146,1,ap);} /* ARGS-CAUSE-SIDE-EFFECT */ |
static object LnkTLI151(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[151],(void **)&LnkLI151,1,ap);va_end(ap);return V1;} /* ARGS-CAUSE-SIDE-EFFECT */ |
1926 |
static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* WT-LOC */ |
static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* WT-LOC */ |
1927 |
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[143],(void **)&LnkLI143,ap);} /* REMOVE */ |
static object LnkTLI148(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[148],(void **)&LnkLI148,ap);va_end(ap);return V1;} /* REMOVE */ |
1928 |
static object LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[142],(void **)&LnkLI142,ap);} /* FIND */ |
static object LnkTLI147(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[147],(void **)&LnkLI147,ap);va_end(ap);return V1;} /* FIND */ |
1929 |
static long LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[141],(void **)&LnkLI141,258,ap);} /* PROCLAIMED-ARGD */ |
static object LnkTLI146(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[146],(void **)&LnkLI146,258,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
1930 |
static object LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],(void **)&LnkLI140,1,ap);} /* ADD-OBJECT */ |
static object LnkTLI145(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[145],(void **)&LnkLI145,1,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
1931 |
static object LnkTLI139(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[139],(void **)&LnkLI139,1,ap);} /* REP-TYPE */ |
static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* DECLARATION-TYPE */ |
1932 |
static void LnkT138(){ call_or_link(VV[138],(void **)&Lnk138);} /* GET-OUTPUT-STREAM-STRING */ |
static object LnkTLI143(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[143],(void **)&LnkLI143,1,ap);va_end(ap);return V1;} /* REP-TYPE */ |
1933 |
static void LnkT137(){ call_or_link(VV[137],(void **)&Lnk137);} /* MAKE-STRING-OUTPUT-STREAM */ |
static void LnkT142(){ call_or_link(VV[142],(void **)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */ |
1934 |
static object LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],(void **)&LnkLI136,1,ap);} /* ADD-SYMBOL */ |
static void LnkT141(){ call_or_link(VV[141],(void **)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */ |
1935 |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],(void **)&LnkLI135,4,ap);} /* C2CALL-UNKNOWN-GLOBAL */ |
static object LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
1936 |
static object LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,3,ap);} /* ADD-FAST-LINK */ |
static object LnkTLI139(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[139],(void **)&LnkLI139,4,ap);va_end(ap);return V1;} /* C2CALL-UNKNOWN-GLOBAL */ |
1937 |
static object LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[133],(void **)&LnkLI133,2,ap);} /* INLINE-PROC */ |
static object LnkTLI138(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[138],(void **)&LnkLI138,3,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */ |
1938 |
static object LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[132],(void **)&LnkLI132,2,ap);} /* CHECK-FNAME-ARGS */ |
static object LnkTLI137(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[137],(void **)&LnkLI137,2,ap);va_end(ap);return V1;} /* INLINE-PROC */ |
1939 |
static object LnkTLI131(){return call_proc0(VV[131],(void **)&LnkLI131);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,2,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */ |
1940 |
static object LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[130],(void **)&LnkLI130,2,ap);} /* GET-INLINE-LOC */ |
static object LnkTLI135(){return call_proc0(VV[135],(void **)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */ |
1941 |
static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* SAVE-AVMA */ |
static object LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,2,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
1942 |
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],(void **)&LnkLI128,3,ap);} /* GET-INLINE-INFO */ |
static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* SAVE-AVMA */ |
1943 |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[127],(void **)&LnkLI127,ap);} /* CMPNOTE */ |
static object LnkTLI132(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[132],(void **)&LnkLI132,3,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
1944 |
static object LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],(void **)&LnkLI126,1,ap);} /* UNWIND-NO-EXIT */ |
static object LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[131],(void **)&LnkLI131,ap);va_end(ap);return V1;} /* CMPNOTE */ |
1945 |
static object LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],(void **)&LnkLI125,2,ap);} /* C2PSETQ */ |
static object LnkTLI130(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[130],(void **)&LnkLI130,1,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */ |
1946 |
static object LnkTLI124(){return call_proc0(VV[124],(void **)&LnkLI124);} /* TAIL-RECURSION-POSSIBLE */ |
static object LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,2,ap);va_end(ap);return V1;} /* C2PSETQ */ |
1947 |
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[123],(void **)&LnkLI123,1,ap);} /* INLINE-POSSIBLE */ |
static object LnkTLI128(){return call_proc0(VV[128],(void **)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */ |
1948 |
static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* INC-INLINE-BLOCKS */ |
static object LnkTLI127(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[127],(void **)&LnkLI127,1,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
1949 |
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],(void **)&LnkLI121,ap);} /* CMPWARN */ |
static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* INC-INLINE-BLOCKS */ |
1950 |
static object LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[120],(void **)&LnkLI120,3,ap);} /* C2LET */ |
static object LnkTLI125(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[125],(void **)&LnkLI125,ap);va_end(ap);return V1;} /* CMPWARN */ |
1951 |
static object LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],(void **)&LnkLI119,ap);} /* CMPERR */ |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,3,ap);va_end(ap);return V1;} /* C2LET */ |
1952 |
static object LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[118],(void **)&LnkLI118,ap);} /* C2LAMBDA-EXPR */ |
static object LnkTLI123(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[123],(void **)&LnkLI123,ap);va_end(ap);return V1;} /* CMPERR */ |
1953 |
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],(void **)&LnkLI117,1,ap);} /* NEED-TO-SET-VS-POINTERS */ |
static object LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[122],(void **)&LnkLI122,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
1954 |
static object LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],(void **)&LnkLI116,1,ap);} /* PUSH-ARGS-LISPCALL */ |
static object LnkTLI121(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[121],(void **)&LnkLI121,1,ap);va_end(ap);return V1;} /* NEED-TO-SET-VS-POINTERS */ |
1955 |
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[115],(void **)&LnkLI115,ap);} /* CS-PUSH */ |
static object LnkTLI120(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[120],(void **)&LnkLI120,1,ap);va_end(ap);return V1;} /* PUSH-ARGS-LISPCALL */ |
1956 |
static object LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[114],(void **)&LnkLI114,ap);} /* UNWIND-EXIT */ |
static object LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[119],(void **)&LnkLI119,ap);va_end(ap);return V1;} /* CS-PUSH */ |
1957 |
static object LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],(void **)&LnkLI113,1,ap);} /* WT1 */ |
static object LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[118],(void **)&LnkLI118,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
1958 |
static object LnkTLI112(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[112],(void **)&LnkLI112,1,ap);} /* PUSH-ARGS */ |
static object LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,1,ap);va_end(ap);return V1;} /* WT1 */ |
1959 |
static object LnkTLI111(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[111],(void **)&LnkLI111,1,ap);} /* C2EXPR* */ |
static object LnkTLI116(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[116],(void **)&LnkLI116,1,ap);va_end(ap);return V1;} /* PUSH-ARGS */ |
1960 |
static object LnkTLI110(){return call_proc0(VV[110],(void **)&LnkLI110);} /* VS-PUSH */ |
static object LnkTLI115(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[115],(void **)&LnkLI115,1,ap);va_end(ap);return V1;} /* C2EXPR* */ |
1961 |
static object LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],(void **)&LnkLI109,2,ap);} /* ARGS-INFO-CHANGED-VARS */ |
static object LnkTLI114(){return call_proc0(VV[114],(void **)&LnkLI114);} /* VS-PUSH */ |
1962 |
static object LnkTLI108(){return call_proc0(VV[108],(void **)&LnkLI108);} /* BABOON */ |
static object LnkTLI113(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[113],(void **)&LnkLI113,2,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */ |
1963 |
static object LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],(void **)&LnkLI107,3,ap);} /* C2FUNCALL-SFUN */ |
static object LnkTLI112(){return call_proc0(VV[112],(void **)&LnkLI112);} /* BABOON */ |
1964 |
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],(void **)&LnkLI106,2,ap);} /* C2CALL-LAMBDA */ |
static object LnkTLI111(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[111],(void **)&LnkLI111,3,ap);va_end(ap);return V1;} /* C2FUNCALL-SFUN */ |
1965 |
static object LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],(void **)&LnkLI105,2,ap);} /* C2CALL-LOCAL */ |
static object LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[110],(void **)&LnkLI110,2,ap);va_end(ap);return V1;} /* C2CALL-LAMBDA */ |
1966 |
static object LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],(void **)&LnkLI104,4,ap);} /* C2CALL-GLOBAL */ |
static object LnkTLI109(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[109],(void **)&LnkLI109,2,ap);va_end(ap);return V1;} /* C2CALL-LOCAL */ |
1967 |
static object LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[103],(void **)&LnkLI103,ap);} /* C2FUNCALL */ |
static object LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[108],(void **)&LnkLI108,4,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */ |
1968 |
static object LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[102],(void **)&LnkLI102,2,ap);} /* ADD-INFO */ |
static object LnkTLI107(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[107],(void **)&LnkLI107,ap);va_end(ap);return V1;} /* C2FUNCALL */ |
1969 |
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],(void **)&LnkLI101,1,ap);} /* C1EXPR */ |
static object LnkTLI106(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[106],(void **)&LnkLI106,2,ap);va_end(ap);return V1;} /* ADD-INFO */ |
1970 |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[100],(void **)&LnkLI100,ap);} /* MAKE-INFO */ |
static object LnkTLI105(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[105],(void **)&LnkLI105,1,ap);va_end(ap);return V1;} /* C1EXPR */ |
1971 |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[99],(void **)&LnkLI99,ap);} /* C1LAMBDA-EXPR */ |
static object LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[104],(void **)&LnkLI104,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
1972 |
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],(void **)&LnkLI98,1,ap);} /* CMP-MACROEXPAND */ |
static object LnkTLI103(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[103],(void **)&LnkLI103,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
1973 |
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,1,ap);} /* CMP-MACRO-FUNCTION */ |
static object LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,1,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */ |
1974 |
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,1,ap);} /* C1LOCAL-FUN */ |
static object LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,1,ap);va_end(ap);return V1;} /* CMP-MACRO-FUNCTION */ |
1975 |
|
static object LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,1,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */ |
1976 |
|
|
1977 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1978 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |