116 |
register object V24; |
register object V24; |
117 |
V23= (*(LnkLI56))((V14)); |
V23= (*(LnkLI56))((V14)); |
118 |
V24= Cnil; |
V24= Cnil; |
119 |
{object V25= car((V23)); |
{object V25= CMPcar((V23)); |
120 |
if((V25!= VV[57]) |
if((V25!= VV[57]) |
121 |
&& (V25!= VV[2]))goto T20; |
&& (V25!= VV[2]))goto T20; |
122 |
if(endp_prop(cdr((V23)))){ |
if((CMPcdr((V23)))==Cnil){ |
123 |
goto T21;} |
goto T21;} |
124 |
if(!((VV[7])==(cadr((V23))))){ |
if(!((VV[7])==(CMPcadr((V23))))){ |
125 |
goto T28;} |
goto T28;} |
126 |
V24= Cnil; |
V24= Cnil; |
127 |
goto T26; |
goto T26; |
128 |
goto T28; |
goto T28; |
129 |
T28:; |
T28:; |
130 |
{object V26; |
{object V26; |
131 |
V26= (*(LnkLI58))(cadr((V23))); |
V26= (*(LnkLI58))(CMPcadr((V23))); |
132 |
if(((V26))==Cnil){ |
if(((V26))==Cnil){ |
133 |
goto T32;} |
goto T32;} |
134 |
V24= (V26); |
V24= (V26); |
146 |
VMR2(V27)} |
VMR2(V27)} |
147 |
goto T22; |
goto T22; |
148 |
T22:; |
T22:; |
149 |
if(endp_prop(cddr((V23)))){ |
if((CMPcddr((V23)))==Cnil){ |
150 |
goto T35;} |
goto T35;} |
151 |
if((caddr((V23)))==(VV[7])){ |
if((CMPcaddr((V23)))==(VV[7])){ |
152 |
goto T35;} |
goto T35;} |
153 |
if(eql(caddr((V23)),small_fixnum(1))){ |
if(eql(CMPcaddr((V23)),small_fixnum(1))){ |
154 |
goto T34;} |
goto T34;} |
155 |
if(!(type_of(caddr((V23)))==t_cons)){ |
if(!(type_of(CMPcaddr((V23)))==t_cons)){ |
156 |
goto T35;} |
goto T35;} |
157 |
if(!(((long)length(caddr((V23))))==(1))){ |
if(!(((long)length(CMPcaddr((V23))))==(1))){ |
158 |
goto T35;} |
goto T35;} |
159 |
goto T34; |
goto T34; |
160 |
T34:; |
T34:; |
178 |
goto T20; |
goto T20; |
179 |
T20:; |
T20:; |
180 |
if((V25!= VV[11]))goto T47; |
if((V25!= VV[11]))goto T47; |
181 |
V33= cdr((V23)); |
V33= CMPcdr((V23)); |
182 |
V34= list(2,VV[8],VV[9]); |
V34= list(2,VV[8],VV[9]); |
183 |
if(((*(LnkLI59))(/* INLINE-ARGS */V33,/* INLINE-ARGS */V34))==Cnil){ |
if(((*(LnkLI59))(/* INLINE-ARGS */V33,/* INLINE-ARGS */V34))==Cnil){ |
184 |
goto T49;} |
goto T49;} |
394 |
VMR2(V56)} |
VMR2(V56)} |
395 |
goto T135; |
goto T135; |
396 |
T135:; |
T135:; |
397 |
if(!((car((V23)))==(VV[34]))){ |
if(!((CMPcar((V23)))==(VV[34]))){ |
398 |
goto T140;} |
goto T140;} |
399 |
if((cddr((V23)))!=Cnil){ |
if((CMPcddr((V23)))!=Cnil){ |
400 |
goto T143;} |
goto T143;} |
401 |
{object V57 = list(2,VV[34],(*(LnkLI36))(cadr((V23)))); |
{object V57 = list(2,VV[34],(*(LnkLI36))(CMPcadr((V23)))); |
402 |
VMR2(V57)} |
VMR2(V57)} |
403 |
goto T143; |
goto T143; |
404 |
T143:; |
T143:; |
407 |
goto T140; |
goto T140; |
408 |
T140:; |
T140:; |
409 |
{object V59; |
{object V59; |
410 |
if((car((V23)))==(VV[35])){ |
if((CMPcar((V23)))==(VV[35])){ |
411 |
goto T146;} |
goto T146;} |
412 |
V59= Cnil; |
V59= Cnil; |
413 |
goto T145; |
goto T145; |
414 |
goto T146; |
goto T146; |
415 |
T146:; |
T146:; |
416 |
if(type_of(cadr((V23)))==t_symbol){ |
if(type_of(CMPcadr((V23)))==t_symbol){ |
417 |
goto T148;} |
goto T148;} |
418 |
V59= Cnil; |
V59= Cnil; |
419 |
goto T145; |
goto T145; |
420 |
goto T148; |
goto T148; |
421 |
T148:; |
T148:; |
422 |
V59= get(cadr((V23)),VV[36],Cnil); |
{object V60 =(CMPcadr((V23)))->s.s_plist; |
423 |
|
object ind= VV[36]; |
424 |
|
while(V60!=Cnil){ |
425 |
|
if(V60->c.c_car==ind){ |
426 |
|
V59= (V60->c.c_cdr->c.c_car); |
427 |
|
goto T145; |
428 |
|
}else V60=V60->c.c_cdr->c.c_cdr;} |
429 |
|
V59= Cnil;} |
430 |
goto T145; |
goto T145; |
431 |
T145:; |
T145:; |
432 |
if(((V59))==Cnil){ |
if(((V59))==Cnil){ |
433 |
goto T151;} |
goto T151;} |
434 |
{object V60 = (V59); |
{object V61 = (V59); |
435 |
VMR2(V60)} |
VMR2(V61)} |
436 |
goto T151; |
goto T151; |
437 |
T151:; |
T151:; |
438 |
{object V61 = Ct; |
{object V62 = Ct; |
439 |
VMR2(V61)}}}}} |
VMR2(V62)}}}}} |
440 |
base[0]=base[0]; |
base[0]=base[0]; |
441 |
return Cnil; |
return Cnil; |
442 |
} |
} |
443 |
/* local entry for function TYPE-AND */ |
/* local entry for function TYPE-AND */ |
444 |
|
|
445 |
static object LI3(V64,V65) |
static object LI3(V65,V66) |
446 |
|
|
447 |
register object V64;register object V65; |
register object V65;register object V66; |
448 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
449 |
goto TTL; |
goto TTL; |
450 |
TTL:; |
TTL:; |
451 |
if(!(equal((V64),(V65)))){ |
if(!(equal((V65),(V66)))){ |
452 |
goto T154;} |
goto T154;} |
453 |
{object V66 = (V64); |
{object V67 = (V65); |
454 |
VMR3(V66)} |
VMR3(V67)} |
455 |
goto T154; |
goto T154; |
456 |
T154:; |
T154:; |
457 |
if(!(((V64))==(Ct))){ |
if(!(((V65))==(Ct))){ |
458 |
goto T157;} |
goto T157;} |
459 |
{object V67 = (V65); |
{object V68 = (V66); |
460 |
VMR3(V67)} |
VMR3(V68)} |
461 |
goto T157; |
goto T157; |
462 |
T157:; |
T157:; |
463 |
if(!(((V64))==(VV[7]))){ |
if(!(((V65))==(VV[7]))){ |
464 |
goto T160;} |
goto T160;} |
465 |
{object V68 = (V65); |
{object V69 = (V66); |
466 |
VMR3(V68)} |
VMR3(V69)} |
467 |
goto T160; |
goto T160; |
468 |
T160:; |
T160:; |
469 |
if(!(((V64))==(VV[37]))){ |
if(!(((V65))==(VV[37]))){ |
470 |
goto T163;} |
goto T163;} |
471 |
{object V69 = (V65); |
{object V70 = (V66); |
472 |
VMR3(V69)} |
VMR3(V70)} |
473 |
goto T163; |
goto T163; |
474 |
T163:; |
T163:; |
475 |
if(!(((V65))==(VV[37]))){ |
if(!(((V66))==(VV[37]))){ |
476 |
goto T166;} |
goto T166;} |
477 |
{object V70 = (V64); |
{object V71 = (V65); |
478 |
VMR3(V70)} |
VMR3(V71)} |
479 |
goto T166; |
goto T166; |
480 |
T166:; |
T166:; |
481 |
if(!(((V65))==(Ct))){ |
if(!(((V66))==(Ct))){ |
482 |
goto T169;} |
goto T169;} |
483 |
{object V71 = (V64); |
{object V72 = (V65); |
484 |
VMR3(V71)} |
VMR3(V72)} |
485 |
goto T169; |
goto T169; |
486 |
T169:; |
T169:; |
487 |
if(!(((V65))==(VV[7]))){ |
if(!(((V66))==(VV[7]))){ |
488 |
goto T172;} |
goto T172;} |
489 |
{object V72 = (V64); |
{object V73 = (V65); |
490 |
VMR3(V72)} |
VMR3(V73)} |
491 |
goto T172; |
goto T172; |
492 |
T172:; |
T172:; |
493 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V66))==t_cons)){ |
494 |
goto T175;} |
goto T175;} |
495 |
if(!((car((V65)))==(VV[34]))){ |
if(!((CMPcar((V66)))==(VV[34]))){ |
496 |
goto T175;} |
goto T175;} |
497 |
V65= cadr((V65)); |
V66= CMPcadr((V66)); |
498 |
goto TTL; |
goto TTL; |
499 |
goto T175; |
goto T175; |
500 |
T175:; |
T175:; |
501 |
if(!(type_of((V64))==t_cons)){ |
if(!(type_of((V65))==t_cons)){ |
502 |
goto T183;} |
goto T183;} |
503 |
{object V73= car((V64)); |
{object V74= CMPcar((V65)); |
504 |
if((V73!= VV[2]))goto T185; |
if((V74!= VV[2]))goto T185; |
505 |
{object V74= cadr((V64)); |
{object V75= CMPcadr((V65)); |
506 |
if((V74!= VV[38]))goto T186; |
if((V75!= VV[38]))goto T186; |
507 |
if(!(((V65))==(VV[5]))){ |
if(!(((V66))==(VV[5]))){ |
508 |
goto T188;} |
goto T188;} |
509 |
{object V75 = (V65); |
{object V76 = (V66); |
510 |
VMR3(V75)} |
VMR3(V76)} |
511 |
goto T188; |
goto T188; |
512 |
T188:; |
T188:; |
513 |
{object V76 = Cnil; |
{object V77 = Cnil; |
514 |
VMR3(V76)} |
VMR3(V77)} |
515 |
goto T186; |
goto T186; |
516 |
T186:; |
T186:; |
517 |
if((V74!= VV[39]))goto T190; |
if((V75!= VV[39]))goto T190; |
518 |
if(!(((V65))==(VV[6]))){ |
if(!(((V66))==(VV[6]))){ |
519 |
goto T192;} |
goto T192;} |
520 |
{object V77 = (V65); |
{object V78 = (V66); |
521 |
VMR3(V77)} |
VMR3(V78)} |
522 |
goto T192; |
goto T192; |
523 |
T192:; |
T192:; |
524 |
{object V78 = Cnil; |
{object V79 = Cnil; |
525 |
VMR3(V78)} |
VMR3(V79)} |
526 |
goto T190; |
goto T190; |
527 |
T190:; |
T190:; |
528 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V66))==t_cons)){ |
529 |
goto T195;} |
goto T195;} |
530 |
if(!((car((V65)))==(VV[1]))){ |
if(!((CMPcar((V66)))==(VV[1]))){ |
531 |
goto T195;} |
goto T195;} |
532 |
if(!((cadr((V64)))==(cadr((V65))))){ |
if(!((CMPcadr((V65)))==(CMPcadr((V66))))){ |
533 |
goto T195;} |
goto T195;} |
534 |
{object V79 = (V65); |
{object V80 = (V66); |
535 |
VMR3(V79)} |
VMR3(V80)} |
536 |
goto T195; |
goto T195; |
537 |
T195:; |
T195:; |
538 |
{object V80 = Cnil; |
{object V81 = Cnil; |
539 |
VMR3(V80)}} |
VMR3(V81)}} |
540 |
goto T185; |
goto T185; |
541 |
T185:; |
T185:; |
542 |
if((V73!= VV[1]))goto T201; |
if((V74!= VV[1]))goto T201; |
543 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V66))==t_cons)){ |
544 |
goto T203;} |
goto T203;} |
545 |
if(!((car((V65)))==(VV[2]))){ |
if(!((CMPcar((V66)))==(VV[2]))){ |
546 |
goto T203;} |
goto T203;} |
547 |
if(!((cadr((V64)))==(cadr((V65))))){ |
if(!((CMPcadr((V65)))==(CMPcadr((V66))))){ |
548 |
goto T203;} |
goto T203;} |
549 |
{object V81 = (V64); |
{object V82 = (V65); |
550 |
VMR3(V81)} |
VMR3(V82)} |
551 |
goto T203; |
goto T203; |
552 |
T203:; |
T203:; |
553 |
{object V82 = Cnil; |
{object V83 = Cnil; |
554 |
VMR3(V82)} |
VMR3(V83)} |
555 |
goto T201; |
goto T201; |
556 |
T201:; |
T201:; |
557 |
if((V73!= VV[34]))goto T209; |
if((V74!= VV[34]))goto T209; |
558 |
V64= cadr((V64)); |
V65= CMPcadr((V65)); |
559 |
goto TTL; |
goto TTL; |
560 |
goto T209; |
goto T209; |
561 |
T209:; |
T209:; |
562 |
{object V83 = Cnil; |
{object V84 = Cnil; |
563 |
VMR3(V83)}} |
VMR3(V84)}} |
564 |
goto T183; |
goto T183; |
565 |
T183:; |
T183:; |
566 |
{object V84= (V64); |
{object V85= (V65); |
567 |
if((V84!= VV[5]))goto T213; |
if((V85!= VV[5]))goto T213; |
568 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V66))==t_cons)){ |
569 |
goto T215;} |
goto T215;} |
570 |
if(!((car((V65)))==(VV[2]))){ |
if(!((CMPcar((V66)))==(VV[2]))){ |
571 |
goto T215;} |
goto T215;} |
572 |
if(!((cadr((V65)))==(VV[38]))){ |
if(!((CMPcadr((V66)))==(VV[38]))){ |
573 |
goto T215;} |
goto T215;} |
574 |
{object V85 = (V64); |
{object V86 = (V65); |
575 |
VMR3(V85)} |
VMR3(V86)} |
576 |
goto T215; |
goto T215; |
577 |
T215:; |
T215:; |
578 |
{object V86 = Cnil; |
{object V87 = Cnil; |
579 |
VMR3(V86)} |
VMR3(V87)} |
580 |
goto T213; |
goto T213; |
581 |
T213:; |
T213:; |
582 |
if((V84!= VV[6]))goto T221; |
if((V85!= VV[6]))goto T221; |
583 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V66))==t_cons)){ |
584 |
goto T223;} |
goto T223;} |
585 |
if(!((car((V65)))==(VV[2]))){ |
if(!((CMPcar((V66)))==(VV[2]))){ |
586 |
goto T223;} |
goto T223;} |
587 |
if(!((cadr((V65)))==(VV[39]))){ |
if(!((CMPcadr((V66)))==(VV[39]))){ |
588 |
goto T223;} |
goto T223;} |
589 |
{object V87 = (V64); |
{object V88 = (V65); |
590 |
VMR3(V87)} |
VMR3(V88)} |
591 |
goto T223; |
goto T223; |
592 |
T223:; |
T223:; |
593 |
{object V88 = Cnil; |
{object V89 = Cnil; |
594 |
VMR3(V88)} |
VMR3(V89)} |
595 |
goto T221; |
goto T221; |
596 |
T221:; |
T221:; |
597 |
if((V84!= VV[61]))goto T229; |
if((V85!= VV[61]))goto T229; |
598 |
{register object x= (V65),V89= VV[40]; |
{register object x= (V66),V90= VV[40]; |
599 |
while(!endp(V89)) |
while(V90!=Cnil) |
600 |
if(eql(x,V89->c.c_car)){ |
if(eql(x,V90->c.c_car)){ |
601 |
goto T232; |
goto T232; |
602 |
}else V89=V89->c.c_cdr; |
}else V90=V90->c.c_cdr; |
603 |
goto T231;} |
goto T231;} |
604 |
goto T232; |
goto T232; |
605 |
T232:; |
T232:; |
606 |
{object V90 = (V65); |
{object V91 = (V66); |
607 |
VMR3(V90)} |
VMR3(V91)} |
608 |
goto T231; |
goto T231; |
609 |
T231:; |
T231:; |
610 |
{object V91 = Cnil; |
{object V92 = Cnil; |
611 |
VMR3(V91)} |
VMR3(V92)} |
612 |
goto T229; |
goto T229; |
613 |
T229:; |
T229:; |
614 |
if((V84!= VV[62]))goto T233; |
if((V85!= VV[62]))goto T233; |
615 |
{register object x= (V65),V92= VV[41]; |
{register object x= (V66),V93= VV[41]; |
616 |
while(!endp(V92)) |
while(V93!=Cnil) |
617 |
if(eql(x,V92->c.c_car)){ |
if(eql(x,V93->c.c_car)){ |
618 |
goto T236; |
goto T236; |
619 |
}else V92=V92->c.c_cdr; |
}else V93=V93->c.c_cdr; |
620 |
goto T235;} |
goto T235;} |
621 |
goto T236; |
goto T236; |
622 |
T236:; |
T236:; |
623 |
{object V93 = (V65); |
{object V94 = (V66); |
624 |
VMR3(V93)} |
VMR3(V94)} |
625 |
goto T235; |
goto T235; |
626 |
T235:; |
T235:; |
627 |
{object V94 = Cnil; |
{object V95 = Cnil; |
628 |
VMR3(V94)} |
VMR3(V95)} |
629 |
goto T233; |
goto T233; |
630 |
T233:; |
T233:; |
631 |
if((V84!= VV[3]) |
if((V85!= VV[3]) |
632 |
&& (V84!= VV[12]))goto T237; |
&& (V85!= VV[12]))goto T237; |
633 |
{register object x= (V65),V95= VV[42]; |
{register object x= (V66),V96= VV[42]; |
634 |
while(!endp(V95)) |
while(V96!=Cnil) |
635 |
if(eql(x,V95->c.c_car)){ |
if(eql(x,V96->c.c_car)){ |
636 |
goto T240; |
goto T240; |
637 |
}else V95=V95->c.c_cdr; |
}else V96=V96->c.c_cdr; |
638 |
goto T239;} |
goto T239;} |
639 |
goto T240; |
goto T240; |
640 |
T240:; |
T240:; |
641 |
{object V96 = (V64); |
{object V97 = (V65); |
642 |
VMR3(V96)} |
VMR3(V97)} |
643 |
goto T239; |
goto T239; |
644 |
T239:; |
T239:; |
645 |
{object V97 = Cnil; |
{object V98 = Cnil; |
646 |
VMR3(V97)} |
VMR3(V98)} |
647 |
goto T237; |
goto T237; |
648 |
T237:; |
T237:; |
649 |
if((V84!= VV[63]) |
if((V85!= VV[63]) |
650 |
&& (V84!= VV[64]) |
&& (V85!= VV[64]) |
651 |
&& (V84!= VV[65]))goto T241; |
&& (V85!= VV[65]))goto T241; |
652 |
if(!(((V65))==(VV[10]))){ |
if(!(((V66))==(VV[10]))){ |
653 |
goto T243;} |
goto T243;} |
654 |
{object V98 = (V64); |
{object V99 = (V65); |
655 |
VMR3(V98)} |
VMR3(V99)} |
656 |
goto T243; |
goto T243; |
657 |
T243:; |
T243:; |
658 |
{object V99 = Cnil; |
{object V100 = Cnil; |
659 |
VMR3(V99)} |
VMR3(V100)} |
660 |
goto T241; |
goto T241; |
661 |
T241:; |
T241:; |
662 |
if((V84!= VV[66]))goto T245; |
if((V85!= VV[66]))goto T245; |
663 |
base[0]= (V64); |
base[0]= (V65); |
664 |
base[1]= (V65); |
base[1]= (V66); |
665 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
666 |
(void) (*Lnk60)(); |
(void) (*Lnk60)(); |
667 |
vs_top=sup; |
vs_top=sup; |
668 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
669 |
goto T247;} |
goto T247;} |
670 |
{object V100 = (V64); |
{object V101 = (V65); |
671 |
VMR3(V100)} |
VMR3(V101)} |
672 |
goto T247; |
goto T247; |
673 |
T247:; |
T247:; |
674 |
{object V101 = Cnil; |
{object V102 = Cnil; |
675 |
VMR3(V101)} |
VMR3(V102)} |
676 |
goto T245; |
goto T245; |
677 |
T245:; |
T245:; |
678 |
if((V84!= VV[11]))goto T251; |
if((V85!= VV[11]))goto T251; |
679 |
{object V102= (V65); |
{object V103= (V66); |
680 |
if((V102!= VV[10]))goto T252; |
if((V103!= VV[10]))goto T252; |
681 |
{object V103 = (V65); |
{object V104 = (V66); |
682 |
VMR3(V103)} |
VMR3(V104)} |
683 |
goto T252; |
goto T252; |
684 |
T252:; |
T252:; |
685 |
{object V104 = Cnil; |
{object V105 = Cnil; |
686 |
VMR3(V104)}} |
VMR3(V105)}} |
687 |
goto T251; |
goto T251; |
688 |
T251:; |
T251:; |
689 |
if((V84!= VV[10]))goto T253; |
if((V85!= VV[10]))goto T253; |
690 |
{object V105= (V65); |
{object V106= (V66); |
691 |
if((V105!= VV[11]) |
if((V106!= VV[11]) |
692 |
&& (V105!= VV[61]))goto T254; |
&& (V106!= VV[61]))goto T254; |
693 |
{object V106 = VV[10]; |
{object V107 = VV[10]; |
694 |
VMR3(V106)} |
VMR3(V107)} |
695 |
goto T254; |
goto T254; |
696 |
T254:; |
T254:; |
697 |
if((V105!= VV[63]) |
if((V106!= VV[63]) |
698 |
&& (V105!= VV[64]) |
&& (V106!= VV[64]) |
699 |
&& (V105!= VV[65]) |
&& (V106!= VV[65]) |
700 |
&& (V105!= VV[39]))goto T255; |
&& (V106!= VV[39]))goto T255; |
701 |
{object V107 = (V65); |
{object V108 = (V66); |
702 |
VMR3(V107)} |
VMR3(V108)} |
703 |
goto T255; |
goto T255; |
704 |
T255:; |
T255:; |
705 |
if((V105!= VV[66]))goto T256; |
if((V106!= VV[66]))goto T256; |
706 |
base[0]= (V65); |
base[0]= (V66); |
707 |
base[1]= (V64); |
base[1]= (V65); |
708 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
709 |
(void) (*Lnk60)(); |
(void) (*Lnk60)(); |
710 |
vs_top=sup; |
vs_top=sup; |
711 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
712 |
goto T258;} |
goto T258;} |
713 |
{object V108 = (V65); |
{object V109 = (V66); |
714 |
VMR3(V108)} |
VMR3(V109)} |
715 |
goto T258; |
goto T258; |
716 |
T258:; |
T258:; |
717 |
{object V109 = Cnil; |
{object V110 = Cnil; |
718 |
VMR3(V109)} |
VMR3(V110)} |
719 |
goto T256; |
goto T256; |
720 |
T256:; |
T256:; |
|
{object V110 = Cnil; |
|
|
VMR3(V110)}} |
|
|
goto T253; |
|
|
T253:; |
|
721 |
{object V111 = Cnil; |
{object V111 = Cnil; |
722 |
VMR3(V111)}} |
VMR3(V111)}} |
723 |
|
goto T253; |
724 |
|
T253:; |
725 |
|
{object V112 = Cnil; |
726 |
|
VMR3(V112)}} |
727 |
base[0]=base[0]; |
base[0]=base[0]; |
728 |
return Cnil; |
return Cnil; |
729 |
} |
} |
730 |
/* local entry for function TYPE>= */ |
/* local entry for function TYPE>= */ |
731 |
|
|
732 |
static object LI4(V114,V115) |
static object LI4(V115,V116) |
733 |
|
|
734 |
object V114;object V115; |
object V115;object V116; |
735 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
736 |
goto TTL; |
goto TTL; |
737 |
TTL:; |
TTL:; |
738 |
V116= (*(LnkLI67))((V114),(V115)); |
V117= (*(LnkLI67))((V115),(V116)); |
739 |
{object V117 = (equal(/* INLINE-ARGS */V116,(V115))?Ct:Cnil); |
{object V118 = (equal(/* INLINE-ARGS */V117,(V116))?Ct:Cnil); |
740 |
VMR4(V117)} |
VMR4(V118)} |
741 |
return Cnil; |
return Cnil; |
742 |
} |
} |
743 |
/* local entry for function RESET-INFO-TYPE */ |
/* local entry for function RESET-INFO-TYPE */ |
744 |
|
|
745 |
static object LI5(V119) |
static object LI5(V120) |
746 |
|
|
747 |
object V119; |
object V120; |
748 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
749 |
goto TTL; |
goto TTL; |
750 |
TTL:; |
TTL:; |
751 |
if((structure_ref((V119),VV[43],2))==Cnil){ |
if((STREF(object,(V120),8))==Cnil){ |
752 |
goto T263;} |
goto T263;} |
753 |
{object V120; |
{object V121; |
754 |
base[0]= (V119); |
base[0]= (V120); |
755 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
756 |
(void) (*Lnk68)(); |
(void) (*Lnk68)(); |
757 |
vs_top=sup; |
vs_top=sup; |
758 |
V120= vs_base[0]; |
V121= vs_base[0]; |
759 |
(void)(structure_set((V120),VV[43],2,Ct)); |
V122= Ct; |
760 |
{object V121 = (V120); |
STSET(object,(V121),8, Ct); |
761 |
VMR5(V121)}} |
(void)(Ct); |
762 |
|
{object V123 = (V121); |
763 |
|
VMR5(V123)}} |
764 |
goto T263; |
goto T263; |
765 |
T263:; |
T263:; |
766 |
{object V122 = (V119); |
{object V124 = (V120); |
767 |
VMR5(V122)} |
VMR5(V124)} |
768 |
base[0]=base[0]; |
base[0]=base[0]; |
769 |
return Cnil; |
return Cnil; |
770 |
} |
} |
771 |
/* local entry for function AND-FORM-TYPE */ |
/* local entry for function AND-FORM-TYPE */ |
772 |
|
|
773 |
static object LI6(V126,V127,V128) |
static object LI6(V128,V129,V130) |
774 |
|
|
775 |
object V126;register object V127;object V128; |
object V128;register object V129;object V130; |
776 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
777 |
goto TTL; |
goto TTL; |
778 |
TTL:; |
TTL:; |
779 |
{register object V129; |
{register object V131; |
780 |
V129= Cnil; |
V131= Cnil; |
781 |
V130= structure_ref(cadr((V127)),VV[43],2); |
V131= (*(LnkLI67))((V128),STREF(object,CMPcadr((V129)),8)); |
782 |
V129= (*(LnkLI67))((V126),/* INLINE-ARGS */V130); |
if(((V131))!=Cnil){ |
|
if(((V129))!=Cnil){ |
|
783 |
goto T271;} |
goto T271;} |
784 |
(void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V128),(V126)))); |
(void)((VFUN_NARGS=3,(*(LnkLI69))(VV[44],(V130),(V128)))); |
785 |
goto T271; |
goto T271; |
786 |
T271:; |
T271:; |
787 |
V131= structure_ref(cadr((V127)),VV[43],2); |
if(!(((V131))==(STREF(object,CMPcadr((V129)),8)))){ |
|
if(!(((V129))==(/* INLINE-ARGS */V131))){ |
|
788 |
goto T275;} |
goto T275;} |
789 |
{object V132 = (V127); |
{object V132 = (V129); |
790 |
VMR6(V132)} |
VMR6(V132)} |
791 |
goto T275; |
goto T275; |
792 |
T275:; |
T275:; |
793 |
{object V133; |
{object V133; |
794 |
base[0]= cadr((V127)); |
base[0]= CMPcadr((V129)); |
795 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
796 |
(void) (*Lnk68)(); |
(void) (*Lnk68)(); |
797 |
vs_top=sup; |
vs_top=sup; |
798 |
V133= vs_base[0]; |
V133= vs_base[0]; |
799 |
(void)(structure_set((V133),VV[43],2,(V129))); |
V134= Ct; |
800 |
{object V134 = listA(3,car((V127)),(V133),cddr((V127))); |
STSET(object,(V133),8, (V131)); |
801 |
VMR6(V134)}}} |
(void)((V131)); |
802 |
|
{object V135 = listA(3,CMPcar((V129)),(V133),CMPcddr((V129))); |
803 |
|
VMR6(V135)}}} |
804 |
base[0]=base[0]; |
base[0]=base[0]; |
805 |
return Cnil; |
return Cnil; |
806 |
} |
} |
807 |
/* local entry for function CHECK-FORM-TYPE */ |
/* local entry for function CHECK-FORM-TYPE */ |
808 |
|
|
809 |
static object LI7(V138,V139,V140) |
static object LI7(V139,V140,V141) |
810 |
|
|
811 |
object V138;object V139;object V140; |
object V139;object V140;object V141; |
812 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
813 |
goto TTL; |
goto TTL; |
814 |
TTL:; |
TTL:; |
815 |
V141= structure_ref(cadr((V139)),VV[43],2); |
if(((*(LnkLI67))((V139),STREF(object,CMPcadr((V140)),8)))!=Cnil){ |
|
if(((*(LnkLI67))((V138),/* INLINE-ARGS */V141))!=Cnil){ |
|
816 |
goto T281;} |
goto T281;} |
817 |
{object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V140),(V138))); |
{object V142 = (VFUN_NARGS=3,(*(LnkLI69))(VV[45],(V141),(V139))); |
818 |
VMR7(V142)} |
VMR7(V142)} |
819 |
goto T281; |
goto T281; |
820 |
T281:; |
T281:; |