333 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
334 |
goto TTL; |
goto TTL; |
335 |
TTL:; |
TTL:; |
336 |
{register object V54; |
{object V54; |
337 |
register object V55; |
register object V55; |
338 |
V54= (VFUN_NARGS=0,(*(LnkLI48))()); |
V54= (VFUN_NARGS=0,(*(LnkLI48))()); |
339 |
V55= Cnil; |
V55= Cnil; |
378 |
goto T207; |
goto T207; |
379 |
T207:; |
T207:; |
380 |
V58= (*(LnkLI57))((V58)); |
V58= (*(LnkLI57))((V58)); |
|
V55= make_cons((V58),(V55)); |
|
381 |
{register object V59; |
{register object V59; |
382 |
register object V60; |
V59= (V58); |
383 |
V59= (V54); |
V55= make_cons((V59),(V55));} |
384 |
V61= car((V58)); |
{register object V60; |
385 |
V62= structure_ref((V59),VV[22],0); |
register object V61; |
386 |
V60= make_cons(/* INLINE-ARGS */V61,/* INLINE-ARGS */V62); |
register object V62; |
387 |
(void)(structure_set((V59),VV[22],0,(V60)));} |
V60= car((V58)); |
388 |
|
V61= (V54); |
389 |
|
V63= structure_ref((V61),VV[22],0); |
390 |
|
V62= make_cons((V60),/* INLINE-ARGS */V63); |
391 |
|
(void)(structure_set((V61),VV[22],0,(V62)));} |
392 |
V57= cdr((V57)); |
V57= cdr((V57)); |
393 |
V58= car((V57)); |
V58= car((V57)); |
394 |
goto T199;} |
goto T199;} |
395 |
goto T195; |
goto T195; |
396 |
T195:; |
T195:; |
397 |
V63= reverse((V55)); |
V64= reverse((V55)); |
398 |
{object V64 = list(4,VV[19],(V54),/* INLINE-ARGS */V63,(*(LnkLI49))(cadr((V53)),(V54))); |
{object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54))); |
399 |
VMR7(V64)}} |
VMR7(V65)}} |
400 |
base[0]=base[0]; |
base[0]=base[0]; |
401 |
return Cnil; |
return Cnil; |
402 |
} |
} |
403 |
/* local entry for function MULTIPLE-VALUE-CHECK */ |
/* local entry for function MULTIPLE-VALUE-CHECK */ |
404 |
|
|
405 |
static object LI8(V67,V68) |
static object LI8(V68,V69) |
406 |
|
|
407 |
object V67;object V68; |
object V68;object V69; |
408 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
409 |
goto TTL; |
goto TTL; |
410 |
TTL:; |
TTL:; |
411 |
if((cdr((V67)))!=Cnil){ |
if((cdr((V68)))!=Cnil){ |
|
goto T223;} |
|
|
{object V69 = Cnil; |
|
|
VMR8(V69)} |
|
|
goto T223; |
|
|
T223:; |
|
|
if((car((V68)))==(VV[23])){ |
|
412 |
goto T225;} |
goto T225;} |
413 |
{object V70 = Cnil; |
{object V70 = Cnil; |
414 |
VMR8(V70)} |
VMR8(V70)} |
415 |
goto T225; |
goto T225; |
416 |
T225:; |
T225:; |
417 |
{object V71; |
if((car((V69)))==(VV[23])){ |
418 |
V71= caddr((V68)); |
goto T227;} |
419 |
if(!(type_of((V71))==t_symbol)){ |
{object V71 = Cnil; |
420 |
goto T229;} |
VMR8(V71)} |
421 |
{register object V72; |
goto T227; |
422 |
V72= get((V71),VV[24],Cnil); |
T227:; |
423 |
if((V72)==Cnil){ |
{object V72; |
424 |
goto T229;} |
V72= caddr((V69)); |
425 |
if(type_of((V72))==t_cons){ |
if(!(type_of((V72))==t_symbol)){ |
426 |
goto T234;} |
goto T231;} |
427 |
goto T229; |
{register object V73; |
428 |
goto T234; |
V73= get((V72),VV[24],Cnil); |
429 |
T234:; |
if((V73)==Cnil){ |
430 |
if(((equal((V72),VV[25])?Ct:Cnil))==Cnil){ |
goto T231;} |
431 |
|
if(type_of((V73))==t_cons){ |
432 |
goto T236;} |
goto T236;} |
433 |
goto T229; |
goto T231; |
434 |
goto T236; |
goto T236; |
435 |
T236:; |
T236:; |
436 |
if(!((cdr((V72)))==Cnil)){ |
if(((equal((V73),VV[25])?Ct:Cnil))==Cnil){ |
437 |
goto T229;}} |
goto T238;} |
438 |
{object V73 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V71))); |
goto T231; |
439 |
VMR8(V73)} |
goto T238; |
440 |
goto T229; |
T238:; |
441 |
T229:; |
if(!((cdr((V73)))==Cnil)){ |
442 |
{object V74 = Cnil; |
goto T231;}} |
443 |
VMR8(V74)}} |
{object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72))); |
444 |
|
VMR8(V74)} |
445 |
|
goto T231; |
446 |
|
T231:; |
447 |
|
{object V75 = Cnil; |
448 |
|
VMR8(V75)}} |
449 |
return Cnil; |
return Cnil; |
450 |
} |
} |
451 |
/* local entry for function C2MULTIPLE-VALUE-SETQ */ |
/* local entry for function C2MULTIPLE-VALUE-SETQ */ |
452 |
|
|
453 |
static object LI9(V77,V78) |
static object LI9(V78,V79) |
454 |
|
|
455 |
register object V77;object V78; |
register object V78;object V79; |
456 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
457 |
bds_check; |
bds_check; |
458 |
goto TTL; |
goto TTL; |
459 |
TTL:; |
TTL:; |
460 |
{object V79; |
{object V80; |
461 |
V79= Cnil; |
V80= Cnil; |
462 |
(void)((*(LnkLI58))((V77),(V78))); |
(void)((*(LnkLI58))((V78),(V79))); |
463 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
464 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
465 |
(void)((*(LnkLI44))((V78))); |
(void)((*(LnkLI44))((V79))); |
466 |
V79= (VV[9]->s.s_dbind); |
V80= (VV[9]->s.s_dbind); |
467 |
bds_unwind1; |
bds_unwind1; |
468 |
bds_unwind1; |
bds_unwind1; |
469 |
if(symbol_value(VV[27])==Cnil){ |
if(symbol_value(VV[27])==Cnil){ |
470 |
goto T243;} |
goto T245;} |
471 |
(void)((*(LnkLI59))(Cnil,car((V79)))); |
(void)((*(LnkLI59))(Cnil,car((V80)))); |
472 |
goto T243; |
goto T245; |
473 |
T243:; |
T245:; |
|
{register object V80; |
|
|
V80= (V77); |
|
|
goto T246; |
|
|
T246:; |
|
|
if(!(endp_prop((V80)))){ |
|
|
goto T247;} |
|
|
goto T244; |
|
|
goto T247; |
|
|
T247:; |
|
474 |
{register object V81; |
{register object V81; |
475 |
V81= car((V80)); |
V81= (V78); |
476 |
|
goto T248; |
477 |
|
T248:; |
478 |
|
if(!(endp_prop((V81)))){ |
479 |
|
goto T249;} |
480 |
|
goto T246; |
481 |
|
goto T249; |
482 |
|
T249:; |
483 |
|
{register object V82; |
484 |
|
V82= car((V81)); |
485 |
princ_str("\n if(vs_base<vs_top){",VV[6]); |
princ_str("\n if(vs_base<vs_top){",VV[6]); |
486 |
(void)((*(LnkLI60))(VV[11],car((V81)),cadr((V81)))); |
(void)((*(LnkLI60))(VV[11],car((V82)),cadr((V82)))); |
487 |
if(endp_prop(cdr((V80)))){ |
if(endp_prop(cdr((V81)))){ |
488 |
goto T256;} |
goto T258;} |
489 |
princ_str("\n vs_base++;",VV[6]); |
princ_str("\n vs_base++;",VV[6]); |
490 |
goto T256; |
goto T258; |
491 |
T256:; |
T258:; |
492 |
princ_str("\n }else{",VV[6]); |
princ_str("\n }else{",VV[6]); |
493 |
(void)((*(LnkLI60))(Cnil,car((V81)),cadr((V81)))); |
(void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82)))); |
494 |
princ_char(125,VV[6]);} |
princ_char(125,VV[6]);} |
495 |
V80= cdr((V80)); |
V81= cdr((V81)); |
496 |
goto T246;} |
goto T248;} |
497 |
goto T244; |
goto T246; |
498 |
T244:; |
T246:; |
499 |
if(((V77))!=Cnil){ |
if(((V78))!=Cnil){ |
500 |
goto T268;} |
goto T270;} |
501 |
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
502 |
{object V82 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
{object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
503 |
VMR9(V82)} |
VMR9(V83)} |
504 |
goto T268; |
goto T270; |
505 |
T268:; |
T270:; |
506 |
if((symbol_value(VV[28]))==(VV[29])){ |
if((symbol_value(VV[28]))==(VV[29])){ |
507 |
goto T272;} |
goto T274;} |
508 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
509 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
510 |
goto T272; |
goto T274; |
511 |
T272:; |
T274:; |
512 |
V83= make_cons(VV[30],car((V77))); |
V84= make_cons(VV[30],car((V78))); |
513 |
{object V84 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V83)); |
{object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84)); |
514 |
VMR9(V84)}} |
VMR9(V85)}} |
515 |
base[0]=base[0]; |
base[0]=base[0]; |
516 |
return Cnil; |
return Cnil; |
517 |
} |
} |
518 |
/* local entry for function C1MULTIPLE-VALUE-BIND */ |
/* local entry for function C1MULTIPLE-VALUE-BIND */ |
519 |
|
|
520 |
static object LI10(V86) |
static object LI10(V87) |
521 |
|
|
522 |
object V86; |
object V87; |
523 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
524 |
bds_check; |
bds_check; |
525 |
goto TTL; |
goto TTL; |
526 |
TTL:; |
TTL:; |
527 |
{object V87; |
{object V88; |
|
register object V88; |
|
528 |
register object V89; |
register object V89; |
529 |
object V90; |
register object V90; |
530 |
object V91; |
object V91; |
531 |
object V92; |
object V92; |
532 |
object V93; |
object V93; |
533 |
object V94; |
object V94; |
534 |
object V95; |
object V95; |
535 |
V87= (VFUN_NARGS=0,(*(LnkLI48))()); |
object V96; |
536 |
V88= Cnil; |
V88= (VFUN_NARGS=0,(*(LnkLI48))()); |
537 |
V89= Cnil; |
V89= Cnil; |
538 |
V90= Cnil; |
V90= Cnil; |
539 |
V91= Cnil; |
V91= Cnil; |
541 |
V93= Cnil; |
V93= Cnil; |
542 |
V94= Cnil; |
V94= Cnil; |
543 |
V95= Cnil; |
V95= Cnil; |
544 |
|
V96= Cnil; |
545 |
bds_bind(VV[31],symbol_value(VV[31])); |
bds_bind(VV[31],symbol_value(VV[31])); |
546 |
if(endp_prop((V86))){ |
if(endp_prop((V87))){ |
547 |
goto T286;} |
goto T288;} |
548 |
if(!(endp_prop(cdr((V86))))){ |
if(!(endp_prop(cdr((V87))))){ |
549 |
goto T285;} |
goto T287;} |
550 |
goto T286; |
goto T288; |
551 |
T286:; |
T288:; |
552 |
V96 = make_fixnum((long)length((V86))); |
V97 = make_fixnum((long)length((V87))); |
553 |
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V96)); |
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V97)); |
554 |
goto T285; |
goto T287; |
555 |
T285:; |
T287:; |
556 |
base[2]= cddr((V86)); |
base[2]= cddr((V87)); |
557 |
base[3]= Cnil; |
base[3]= Cnil; |
558 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
559 |
(void) (*Lnk62)(); |
(void) (*Lnk62)(); |
560 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
561 |
V94= vs_base[0]; |
V95= vs_base[0]; |
562 |
vs_base++; |
vs_base++; |
563 |
}else{ |
}else{ |
564 |
V94= Cnil;} |
V95= Cnil;} |
565 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
566 |
V91= vs_base[0]; |
V92= vs_base[0]; |
567 |
vs_base++; |
vs_base++; |
568 |
}else{ |
}else{ |
569 |
V91= Cnil;} |
V92= Cnil;} |
570 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
571 |
V93= vs_base[0]; |
V94= vs_base[0]; |
572 |
vs_base++; |
vs_base++; |
573 |
}else{ |
}else{ |
574 |
V93= Cnil;} |
V94= Cnil;} |
575 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
576 |
V92= vs_base[0]; |
V93= vs_base[0]; |
577 |
vs_base++; |
vs_base++; |
578 |
}else{ |
}else{ |
579 |
V92= Cnil;} |
V93= Cnil;} |
580 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
581 |
V95= vs_base[0]; |
V96= vs_base[0]; |
582 |
}else{ |
}else{ |
583 |
V95= Cnil;} |
V96= Cnil;} |
584 |
vs_top=sup; |
vs_top=sup; |
585 |
(void)((*(LnkLI63))((V91))); |
(void)((*(LnkLI63))((V92))); |
586 |
{register object V97; |
{register object V98; |
587 |
register object V98; |
register object V99; |
588 |
V97= car((V86)); |
V98= car((V87)); |
589 |
V98= car((V97)); |
V99= car((V98)); |
590 |
goto T299; |
goto T301; |
591 |
T299:; |
T301:; |
592 |
if(!(endp_prop((V97)))){ |
if(!(endp_prop((V98)))){ |
593 |
goto T300;} |
goto T302;} |
594 |
goto T295; |
goto T297; |
595 |
goto T300; |
goto T302; |
596 |
T300:; |
T302:; |
597 |
{object V99; |
{object V100; |
598 |
V99= (*(LnkLI64))((V98),(V91),(V92),(V93)); |
V100= (*(LnkLI64))((V99),(V92),(V93),(V94)); |
599 |
V89= make_cons((V98),(V89)); |
V90= make_cons(V99,(V90)); |
600 |
V88= make_cons((V99),(V88));} |
V89= make_cons(V100,(V89));} |
601 |
V97= cdr((V97)); |
V98= cdr((V98)); |
602 |
V98= car((V97)); |
V99= car((V98)); |
603 |
goto T299;} |
goto T301;} |
604 |
goto T295; |
goto T297; |
605 |
T295:; |
T297:; |
606 |
V90= (*(LnkLI49))(cadr((V86)),(V87)); |
V91= (*(LnkLI49))(cadr((V87)),(V88)); |
|
{register object V100; |
|
|
object V101; |
|
|
V100= reverse((V88)); |
|
|
V101= car((V100)); |
|
|
goto T320; |
|
|
T320:; |
|
|
if(!(endp_prop((V100)))){ |
|
|
goto T321;} |
|
|
goto T316; |
|
|
goto T321; |
|
|
T321:; |
|
|
(VV[31]->s.s_dbind)= make_cons((V101),(VV[31]->s.s_dbind)); |
|
|
V100= cdr((V100)); |
|
|
V101= car((V100)); |
|
|
goto T320;} |
|
|
goto T316; |
|
|
T316:; |
|
|
(void)((*(LnkLI65))((V89),(V93),(V92))); |
|
|
V94= (*(LnkLI66))((V95),(V94)); |
|
|
(void)((*(LnkLI67))((V87),cadr((V94)))); |
|
|
V102= structure_ref(cadr((V94)),VV[22],2); |
|
|
(void)(structure_set((V87),VV[22],2,/* INLINE-ARGS */V102)); |
|
607 |
{register object V103; |
{register object V103; |
608 |
object V104; |
object V104; |
609 |
V103= (V88); |
V103= reverse((V89)); |
610 |
V104= car((V103)); |
V104= car((V103)); |
611 |
goto T341; |
goto T322; |
612 |
T341:; |
T322:; |
613 |
if(!(endp_prop((V103)))){ |
if(!(endp_prop((V103)))){ |
614 |
goto T342;} |
goto T323;} |
615 |
goto T337; |
goto T318; |
616 |
goto T342; |
goto T323; |
617 |
T342:; |
T323:; |
618 |
(void)((*(LnkLI68))((V104))); |
(VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind)); |
619 |
V103= cdr((V103)); |
V103= cdr((V103)); |
620 |
V104= car((V103)); |
V104= car((V103)); |
621 |
goto T341;} |
goto T322;} |
622 |
goto T337; |
goto T318; |
623 |
T337:; |
T318:; |
624 |
{object V105 = list(5,VV[32],(V87),reverse((V88)),(V90),(V94)); |
(void)((*(LnkLI65))((V90),(V94),(V93))); |
625 |
|
V95= (*(LnkLI66))((V96),(V95)); |
626 |
|
(void)((*(LnkLI67))((V88),cadr((V95)))); |
627 |
|
V106= structure_ref(cadr((V95)),VV[22],2); |
628 |
|
(void)(structure_set((V88),VV[22],2,/* INLINE-ARGS */V106)); |
629 |
|
{register object V107; |
630 |
|
object V108; |
631 |
|
V107= (V89); |
632 |
|
V108= car((V107)); |
633 |
|
goto T343; |
634 |
|
T343:; |
635 |
|
if(!(endp_prop((V107)))){ |
636 |
|
goto T344;} |
637 |
|
goto T339; |
638 |
|
goto T344; |
639 |
|
T344:; |
640 |
|
(void)((*(LnkLI68))((V108))); |
641 |
|
V107= cdr((V107)); |
642 |
|
V108= car((V107)); |
643 |
|
goto T343;} |
644 |
|
goto T339; |
645 |
|
T339:; |
646 |
|
{object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95)); |
647 |
bds_unwind1; |
bds_unwind1; |
648 |
VMR10(V105)}} |
VMR10(V109)}} |
649 |
base[0]=base[0]; |
base[0]=base[0]; |
650 |
return Cnil; |
return Cnil; |
651 |
} |
} |
652 |
/* local entry for function C2MULTIPLE-VALUE-BIND */ |
/* local entry for function C2MULTIPLE-VALUE-BIND */ |
653 |
|
|
654 |
static object LI11(V109,V110,V111) |
static object LI11(V113,V114,V115) |
655 |
|
|
656 |
object V109;object V110;object V111; |
object V113;object V114;object V115; |
657 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
658 |
bds_check; |
bds_check; |
659 |
goto TTL; |
goto TTL; |
660 |
TTL:; |
TTL:; |
661 |
{object V112; |
{object V116; |
662 |
register object V113; |
register object V117; |
663 |
object V114; |
object V118; |
664 |
V112= Cnil; |
V116= Cnil; |
665 |
V113= Cnil; |
V117= Cnil; |
666 |
bds_bind(VV[33],symbol_value(VV[33])); |
bds_bind(VV[33],symbol_value(VV[33])); |
667 |
bds_bind(VV[1],symbol_value(VV[1])); |
bds_bind(VV[1],symbol_value(VV[1])); |
668 |
bds_bind(VV[34],symbol_value(VV[34])); |
bds_bind(VV[34],symbol_value(VV[34])); |
669 |
bds_bind(VV[35],symbol_value(VV[35])); |
bds_bind(VV[35],symbol_value(VV[35])); |
670 |
V114= Cnil; |
V118= Cnil; |
671 |
(void)((*(LnkLI58))((V109),(V110))); |
(void)((*(LnkLI58))((V113),(V114))); |
672 |
{register object V115; |
{register object V119; |
673 |
register object V116; |
register object V120; |
674 |
V115= (V109); |
V119= (V113); |
675 |
V116= car((V115)); |
V120= car((V119)); |
676 |
goto T360; |
goto T362; |
677 |
T360:; |
T362:; |
678 |
if(!(endp_prop((V115)))){ |
if(!(endp_prop((V119)))){ |
679 |
goto T361;} |
goto T363;} |
680 |
goto T356; |
goto T358; |
681 |
goto T361; |
goto T363; |
682 |
T361:; |
T363:; |
683 |
{object V117; |
{object V121; |
684 |
V117= (*(LnkLI69))((V116)); |
V121= (*(LnkLI69))((V120)); |
685 |
if(((V117))==Cnil){ |
if(((V121))==Cnil){ |
686 |
goto T368;} |
goto T370;} |
687 |
{object V118; |
{object V122; |
688 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
689 |
V118= symbol_value(VV[5]); |
V122= symbol_value(VV[5]); |
690 |
(void)(structure_set((V116),VV[30],1,(V117))); |
(void)(structure_set((V120),VV[30],1,(V121))); |
691 |
(void)(structure_set((V116),VV[30],4,(V118))); |
(void)(structure_set((V120),VV[30],4,(V122))); |
692 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
693 |
if(((V112))!=Cnil){ |
if(((V116))!=Cnil){ |
694 |
goto T375;} |
goto T377;} |
695 |
princ_char(123,VV[6]); |
princ_char(123,VV[6]); |
696 |
V112= Ct; |
V116= Ct; |
697 |
goto T375; |
goto T377; |
698 |
T375:; |
T377:; |
699 |
base[5]= (V116); |
base[5]= (V120); |
700 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
701 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
702 |
vs_top=sup; |
vs_top=sup; |
703 |
goto T365;} |
goto T367;} |
704 |
goto T368; |
goto T370; |
705 |
T368:; |
T370:; |
706 |
V119= (*(LnkLI54))(); |
V123= (*(LnkLI54))(); |
707 |
(void)(structure_set((V116),VV[30],2,/* INLINE-ARGS */V119));} |
(void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));} |
708 |
goto T365; |
goto T367; |
709 |
T365:; |
T367:; |
710 |
V115= cdr((V115)); |
V119= cdr((V119)); |
711 |
V116= car((V115)); |
V120= car((V119)); |
712 |
goto T360;} |
goto T362;} |
713 |
goto T356; |
goto T358; |
714 |
T356:; |
T358:; |
715 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
716 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
717 |
(void)((*(LnkLI44))((V110))); |
(void)((*(LnkLI44))((V114))); |
718 |
V114= (VV[9]->s.s_dbind); |
V118= (VV[9]->s.s_dbind); |
719 |
bds_unwind1; |
bds_unwind1; |
720 |
bds_unwind1; |
bds_unwind1; |
721 |
if(symbol_value(VV[27])==Cnil){ |
if(symbol_value(VV[27])==Cnil){ |
722 |
goto T390;} |
goto T392;} |
723 |
(void)((*(LnkLI59))(Cnil,car((V114)))); |
(void)((*(LnkLI59))(Cnil,car((V118)))); |
724 |
goto T390; |
goto T392; |
725 |
T390:; |
T392:; |
726 |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
727 |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
728 |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
729 |
{register object V120; |
{register object V124; |
730 |
V120= (V109); |
V124= (V113); |
731 |
goto T393; |
goto T395; |
732 |
T393:; |
T395:; |
733 |
if(!(endp_prop((V120)))){ |
if(!(endp_prop((V124)))){ |
734 |
goto T394;} |
goto T396;} |
735 |
bds_unwind1; |
bds_unwind1; |
736 |
bds_unwind1; |
bds_unwind1; |
737 |
bds_unwind1; |
bds_unwind1; |
738 |
goto T391; |
goto T393; |
739 |
goto T394; |
goto T396; |
740 |
T394:; |
T396:; |
741 |
|
{object V125; |
742 |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
743 |
V121= make_cons(symbol_value(VV[36]),Cnil); |
V125= make_cons(symbol_value(VV[36]),Cnil); |
744 |
V113= make_cons(/* INLINE-ARGS */V121,(V113)); |
V117= make_cons((V125),(V117));} |
745 |
princ_str("\n if(vs_base>=vs_top){",VV[6]); |
princ_str("\n if(vs_base>=vs_top){",VV[6]); |
746 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
747 |
if(type_of(car((V113)))!=t_cons)FEwrong_type_argument(Scons,car((V113))); |
if(type_of(car((V117)))!=t_cons)FEwrong_type_argument(Scons,car((V117))); |
748 |
(car((V113)))->c.c_cdr = Ct; |
(car((V117)))->c.c_cdr = Ct; |
749 |
(void)(car((V113))); |
(void)(car((V117))); |
750 |
princ_str("goto T",VV[6]); |
princ_str("goto T",VV[6]); |
751 |
(void)((*(LnkLI46))(car(car((V113))))); |
(void)((*(LnkLI46))(car(car((V117))))); |
752 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
753 |
princ_char(125,VV[6]); |
princ_char(125,VV[6]); |
754 |
(void)((*(LnkLI71))(car((V120)),VV[37])); |
(void)((*(LnkLI71))(car((V124)),VV[37])); |
755 |
if(endp_prop(cdr((V120)))){ |
if(endp_prop(cdr((V124)))){ |
756 |
goto T412;} |
goto T415;} |
757 |
princ_str("\n vs_base++;",VV[6]); |
princ_str("\n vs_base++;",VV[6]); |
758 |
goto T412; |
goto T415; |
759 |
T412:; |
T415:; |
760 |
V120= cdr((V120)); |
V124= cdr((V124)); |
761 |
goto T393;} |
goto T395;} |
762 |
goto T391; |
goto T393; |
763 |
T391:; |
T393:; |
764 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
765 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
766 |
{object V122; |
{object V126; |
767 |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
768 |
V122= make_cons(symbol_value(VV[36]),Cnil); |
V126= make_cons(symbol_value(VV[36]),Cnil); |
769 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
770 |
if(type_of((V122))!=t_cons)FEwrong_type_argument(Scons,(V122)); |
if(type_of((V126))!=t_cons)FEwrong_type_argument(Scons,(V126)); |
771 |
((V122))->c.c_cdr = Ct; |
((V126))->c.c_cdr = Ct; |
772 |
princ_str("goto T",VV[6]); |
princ_str("goto T",VV[6]); |
773 |
(void)((*(LnkLI46))(car((V122)))); |
(void)((*(LnkLI46))(car((V126)))); |
774 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
775 |
V113= reverse((V113)); |
V117= reverse((V117)); |
776 |
{register object V123; |
{register object V127; |
777 |
object V124; |
object V128; |
778 |
V123= (V109); |
V127= (V113); |
779 |
V124= car((V123)); |
V128= car((V127)); |
780 |
goto T436; |
goto T439; |
781 |
T436:; |
T439:; |
782 |
if(!(endp_prop((V123)))){ |
if(!(endp_prop((V127)))){ |
783 |
goto T437;} |
goto T440;} |
784 |
goto T432; |
goto T435; |
785 |
goto T437; |
goto T440; |
786 |
T437:; |
T440:; |
787 |
if((cdr(car((V113))))==Cnil){ |
if((cdr(car((V117))))==Cnil){ |
788 |
goto T441;} |
goto T444;} |
789 |
princ_str("\ngoto T",VV[6]); |
princ_str("\ngoto T",VV[6]); |
790 |
(void)((*(LnkLI46))(car(car((V113))))); |
(void)((*(LnkLI46))(car(car((V117))))); |
791 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
792 |
princ_str("\nT",VV[6]); |
princ_str("\nT",VV[6]); |
793 |
(void)((*(LnkLI46))(car(car((V113))))); |
(void)((*(LnkLI46))(car(car((V117))))); |
794 |
princ_str(":;",VV[6]); |
princ_str(":;",VV[6]); |
795 |
goto T441; |
goto T444; |
796 |
T441:; |
T444:; |
797 |
{object V125; |
{object V129; |
798 |
V125= car((V113)); |
V129= car((V117)); |
799 |
V113= cdr((V113));} |
V117= cdr((V117));} |
800 |
(void)((*(LnkLI71))((V124),Cnil)); |
(void)((*(LnkLI71))((V128),Cnil)); |
801 |
V123= cdr((V123)); |
V127= cdr((V127)); |
802 |
V124= car((V123)); |
V128= car((V127)); |
803 |
goto T436;} |
goto T439;} |
804 |
goto T432; |
goto T435; |
805 |
T432:; |
T435:; |
806 |
if((cdr((V122)))==Cnil){ |
if((cdr((V126)))==Cnil){ |
807 |
goto T421;} |
goto T424;} |
808 |
princ_str("\ngoto T",VV[6]); |
princ_str("\ngoto T",VV[6]); |
809 |
(void)((*(LnkLI46))(car((V122)))); |
(void)((*(LnkLI46))(car((V126)))); |
810 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
811 |
princ_str("\nT",VV[6]); |
princ_str("\nT",VV[6]); |
812 |
(void)((*(LnkLI46))(car((V122)))); |
(void)((*(LnkLI46))(car((V126)))); |
813 |
princ_str(":;",VV[6]);} |
princ_str(":;",VV[6]);} |
814 |
goto T421; |
goto T424; |
815 |
T421:; |
T424:; |
816 |
base[4]= (V111); |
base[4]= (V115); |
817 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
818 |
(void) (*Lnk72)(); |
(void) (*Lnk72)(); |
819 |
vs_top=sup; |
vs_top=sup; |
820 |
if(((V112))==Cnil){ |
if(((V116))==Cnil){ |
821 |
goto T473;} |
goto T476;} |
822 |
princ_char(125,VV[6]); |
princ_char(125,VV[6]); |
823 |
{object V126 = Cnil; |
{object V130 = Cnil; |
824 |
bds_unwind1; |
bds_unwind1; |
825 |
bds_unwind1; |
bds_unwind1; |
826 |
bds_unwind1; |
bds_unwind1; |
827 |
bds_unwind1; |
bds_unwind1; |
828 |
VMR11(V126)} |
VMR11(V130)} |
829 |
goto T473; |
goto T476; |
830 |
T473:; |
T476:; |
831 |
{object V127 = Cnil; |
{object V131 = Cnil; |
832 |
bds_unwind1; |
bds_unwind1; |
833 |
bds_unwind1; |
bds_unwind1; |
834 |
bds_unwind1; |
bds_unwind1; |
835 |
bds_unwind1; |
bds_unwind1; |
836 |
VMR11(V127)}} |
VMR11(V131)}} |
837 |
base[0]=base[0]; |
base[0]=base[0]; |
838 |
return Cnil; |
return Cnil; |
839 |
} |
} |