53 |
vs_top=sup; |
vs_top=sup; |
54 |
goto T12; |
goto T12; |
55 |
T12:; |
T12:; |
56 |
base[0]=VV[8]->s.s_gfdef; |
base[0]=VV[11]->s.s_gfdef; |
57 |
base[1]= CMPcar((V9)); |
base[1]= CMPcar((V9)); |
58 |
base[2]= (V4); |
base[2]= (V4); |
59 |
{object V12; |
{object V12; |
62 |
while(V12!=Cnil) |
while(V12!=Cnil) |
63 |
{vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;} |
{vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;} |
64 |
vs_base=base+1;} |
vs_base=base+1;} |
65 |
(void) (*Lnk8)(); |
(void) (*Lnk11)(); |
66 |
vs_top=sup; |
vs_top=sup; |
67 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
68 |
goto T16;} |
goto T16;} |
135 |
vs_top=sup; |
vs_top=sup; |
136 |
goto T44; |
goto T44; |
137 |
T44:; |
T44:; |
138 |
base[0]=VV[8]->s.s_gfdef; |
base[0]=VV[11]->s.s_gfdef; |
139 |
base[1]= CMPcar((V22)); |
base[1]= CMPcar((V22)); |
140 |
base[2]= (V17); |
base[2]= (V17); |
141 |
{object V25; |
{object V25; |
144 |
while(V25!=Cnil) |
while(V25!=Cnil) |
145 |
{vs_push((V25)->c.c_car);V25=(V25)->c.c_cdr;} |
{vs_push((V25)->c.c_car);V25=(V25)->c.c_cdr;} |
146 |
vs_base=base+1;} |
vs_base=base+1;} |
147 |
(void) (*Lnk8)(); |
(void) (*Lnk11)(); |
148 |
vs_top=sup; |
vs_top=sup; |
149 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
150 |
goto T48;} |
goto T48;} |
207 |
vs_top=sup; |
vs_top=sup; |
208 |
goto T70; |
goto T70; |
209 |
T70:; |
T70:; |
210 |
base[0]=VV[8]->s.s_gfdef; |
base[0]=VV[11]->s.s_gfdef; |
211 |
base[1]= CMPcar((V33)); |
base[1]= CMPcar((V33)); |
212 |
base[2]= (V29); |
base[2]= (V29); |
213 |
{object V35; |
{object V35; |
216 |
while(V35!=Cnil) |
while(V35!=Cnil) |
217 |
{vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;} |
{vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;} |
218 |
vs_base=base+1;} |
vs_base=base+1;} |
219 |
(void) (*Lnk8)(); |
(void) (*Lnk11)(); |
220 |
vs_top=sup; |
vs_top=sup; |
221 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
222 |
goto T74;} |
goto T74;} |
277 |
vs_top=sup; |
vs_top=sup; |
278 |
goto T95; |
goto T95; |
279 |
T95:; |
T95:; |
280 |
base[0]=VV[8]->s.s_gfdef; |
base[0]=VV[11]->s.s_gfdef; |
281 |
base[1]= CMPcar((V44)); |
base[1]= CMPcar((V44)); |
282 |
base[2]= (V39); |
base[2]= (V39); |
283 |
{object V46; |
{object V46; |
286 |
while(V46!=Cnil) |
while(V46!=Cnil) |
287 |
{vs_push((V46)->c.c_car);V46=(V46)->c.c_cdr;} |
{vs_push((V46)->c.c_car);V46=(V46)->c.c_cdr;} |
288 |
vs_base=base+1;} |
vs_base=base+1;} |
289 |
(void) (*Lnk8)(); |
(void) (*Lnk11)(); |
290 |
vs_top=sup; |
vs_top=sup; |
291 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
292 |
goto T99;} |
goto T99;} |
349 |
vs_top=sup; |
vs_top=sup; |
350 |
goto T121; |
goto T121; |
351 |
T121:; |
T121:; |
352 |
base[0]=VV[8]->s.s_gfdef; |
base[0]=VV[11]->s.s_gfdef; |
353 |
base[1]= CMPcar((V54)); |
base[1]= CMPcar((V54)); |
354 |
base[2]= (V50); |
base[2]= (V50); |
355 |
{object V56; |
{object V56; |
358 |
while(V56!=Cnil) |
while(V56!=Cnil) |
359 |
{vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;} |
{vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;} |
360 |
vs_base=base+1;} |
vs_base=base+1;} |
361 |
(void) (*Lnk8)(); |
(void) (*Lnk11)(); |
362 |
vs_top=sup; |
vs_top=sup; |
363 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
364 |
goto T125;} |
goto T125;} |
371 |
base[0]=base[0]; |
base[0]=base[0]; |
372 |
return Cnil;} |
return Cnil;} |
373 |
} |
} |
374 |
|
/* function definition for SET-DIFFERENCE-REV */ |
375 |
|
|
376 |
|
static void L6() |
377 |
|
{register object *base=vs_base; |
378 |
|
register object *sup=base+VM6; VC6 |
379 |
|
vs_check; |
380 |
|
{object V57; |
381 |
|
register object V58; |
382 |
|
register object V59; |
383 |
|
V57=(base[0]); |
384 |
|
V58=(base[1]); |
385 |
|
vs_base=vs_base+2; |
386 |
|
vs_top[0]=Cnil; |
387 |
|
{object *p=vs_top; |
388 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
389 |
|
V59=(base[2]); |
390 |
|
vs_top=sup; |
391 |
|
{register object V60; |
392 |
|
V60= Cnil; |
393 |
|
{register object V61; |
394 |
|
V61= (V57); |
395 |
|
goto T137; |
396 |
|
T137:; |
397 |
|
if(((V61))!=Cnil){ |
398 |
|
goto T138;} |
399 |
|
base[3]= (V60); |
400 |
|
vs_top=(vs_base=base+3)+1; |
401 |
|
return; |
402 |
|
goto T138; |
403 |
|
T138:; |
404 |
|
if(!(type_of((V61))==t_cons)){ |
405 |
|
goto T143;} |
406 |
|
goto T142; |
407 |
|
goto T143; |
408 |
|
T143:; |
409 |
|
base[3]= VV[5]; |
410 |
|
vs_top=(vs_base=base+3)+1; |
411 |
|
Lerror(); |
412 |
|
vs_top=sup; |
413 |
|
goto T142; |
414 |
|
T142:; |
415 |
|
base[3]=VV[11]->s.s_gfdef; |
416 |
|
base[4]= CMPcar((V61)); |
417 |
|
base[5]= (V58); |
418 |
|
base[6]= VV[6]; |
419 |
|
base[7]= Ct; |
420 |
|
{object V62; |
421 |
|
V62= (V59); |
422 |
|
vs_top=base+8; |
423 |
|
while(V62!=Cnil) |
424 |
|
{vs_push((V62)->c.c_car);V62=(V62)->c.c_cdr;} |
425 |
|
vs_base=base+4;} |
426 |
|
(void) (*Lnk11)(); |
427 |
|
vs_top=sup; |
428 |
|
if((vs_base[0])!=Cnil){ |
429 |
|
goto T146;} |
430 |
|
V60= make_cons(CMPcar((V61)),(V60)); |
431 |
|
goto T146; |
432 |
|
T146:; |
433 |
|
V61= CMPcdr((V61)); |
434 |
|
goto T137;}} |
435 |
|
} |
436 |
|
} |
437 |
/* local entry for function NSET-DIFFERENCE */ |
/* local entry for function NSET-DIFFERENCE */ |
438 |
|
|
439 |
static object LI6(V58,V57,va_alist) |
static object LI7(V64,V63,va_alist) |
440 |
object V58,V57; |
object V64,V63; |
441 |
va_dcl |
va_dcl |
442 |
{ |
{ |
443 |
va_list ap; |
va_list ap; |
444 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
445 |
{object V59; |
{object V65; |
446 |
register object V60; |
register object V66; |
447 |
register object V61; |
register object V67; |
448 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
449 |
va_start(ap); |
va_start(ap); |
450 |
V59= V58; |
V65= V64; |
451 |
V60= V57; |
V66= V63; |
452 |
narg= narg - 2; |
narg= narg - 2; |
453 |
V62 = list_vector(narg,ap); |
V68 = list_vector(narg,ap); |
454 |
V61= V62; |
V67= V68; |
455 |
{register object V63; |
{register object V69; |
456 |
register object V64; |
register object V70; |
457 |
V63= Cnil; |
V69= Cnil; |
458 |
V64= Cnil; |
V70= Cnil; |
459 |
{register object V65; |
{register object V71; |
460 |
V65= (V59); |
V71= (V65); |
461 |
goto T138; |
goto T161; |
462 |
T138:; |
T161:; |
463 |
if(((V65))!=Cnil){ |
if(((V71))!=Cnil){ |
464 |
goto T139;} |
goto T162;} |
465 |
if(((V64))==Cnil){ |
if(((V70))==Cnil){ |
466 |
goto T142;} |
goto T165;} |
467 |
((V64))->c.c_cdr = Cnil; |
((V70))->c.c_cdr = Cnil; |
468 |
goto T142; |
goto T165; |
469 |
T142:; |
T165:; |
470 |
{object V66 = (V63); |
{object V72 = (V69); |
471 |
VMR6(V66)} |
VMR7(V72)} |
472 |
goto T139; |
goto T162; |
473 |
T139:; |
T162:; |
474 |
if(!(type_of((V65))==t_cons)){ |
if(!(type_of((V71))==t_cons)){ |
475 |
goto T147;} |
goto T170;} |
476 |
goto T146; |
goto T169; |
477 |
goto T147; |
goto T170; |
478 |
T147:; |
T170:; |
479 |
base[0]= VV[5]; |
base[0]= VV[7]; |
480 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
481 |
Lerror(); |
Lerror(); |
482 |
vs_top=sup; |
vs_top=sup; |
483 |
goto T146; |
goto T169; |
484 |
T146:; |
T169:; |
485 |
base[0]=VV[8]->s.s_gfdef; |
base[0]=VV[11]->s.s_gfdef; |
486 |
base[1]= CMPcar((V65)); |
base[1]= CMPcar((V71)); |
487 |
base[2]= (V60); |
base[2]= (V66); |
488 |
{object V67; |
{object V73; |
489 |
V67= (V61); |
V73= (V67); |
490 |
vs_top=base+3; |
vs_top=base+3; |
491 |
while(V67!=Cnil) |
while(V73!=Cnil) |
492 |
{vs_push((V67)->c.c_car);V67=(V67)->c.c_cdr;} |
{vs_push((V73)->c.c_car);V73=(V73)->c.c_cdr;} |
493 |
vs_base=base+1;} |
vs_base=base+1;} |
494 |
(void) (*Lnk8)(); |
(void) (*Lnk11)(); |
495 |
vs_top=sup; |
vs_top=sup; |
496 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
497 |
goto T150;} |
goto T173;} |
498 |
if(((V64))==Cnil){ |
if(((V70))==Cnil){ |
499 |
goto T158;} |
goto T181;} |
500 |
((V64))->c.c_cdr = (V65); |
((V70))->c.c_cdr = (V71); |
501 |
goto T156; |
goto T179; |
502 |
goto T158; |
goto T181; |
503 |
T158:; |
T181:; |
504 |
V63= (V65); |
V69= (V71); |
505 |
goto T156; |
goto T179; |
506 |
T156:; |
T179:; |
507 |
V64= (V65); |
V70= (V71); |
508 |
goto T150; |
goto T173; |
509 |
T150:; |
T173:; |
510 |
V65= CMPcdr((V65)); |
V71= CMPcdr((V71)); |
511 |
goto T138;}} |
goto T161;}} |
512 |
va_end(ap); |
va_end(ap); |
513 |
base[0]=base[0]; |
base[0]=base[0]; |
514 |
return Cnil;} |
return Cnil;} |
515 |
} |
} |
516 |
|
/* function definition for NSET-DIFFERENCE-REV */ |
517 |
|
|
518 |
|
static void L8() |
519 |
|
{register object *base=vs_base; |
520 |
|
register object *sup=base+VM8; VC8 |
521 |
|
vs_check; |
522 |
|
{object V74; |
523 |
|
register object V75; |
524 |
|
register object V76; |
525 |
|
V74=(base[0]); |
526 |
|
V75=(base[1]); |
527 |
|
vs_base=vs_base+2; |
528 |
|
vs_top[0]=Cnil; |
529 |
|
{object *p=vs_top; |
530 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
531 |
|
V76=(base[2]); |
532 |
|
vs_top=sup; |
533 |
|
{register object V77; |
534 |
|
register object V78; |
535 |
|
V77= Cnil; |
536 |
|
V78= Cnil; |
537 |
|
{register object V79; |
538 |
|
V79= (V74); |
539 |
|
goto T191; |
540 |
|
T191:; |
541 |
|
if(((V79))!=Cnil){ |
542 |
|
goto T192;} |
543 |
|
if(((V78))==Cnil){ |
544 |
|
goto T195;} |
545 |
|
((V78))->c.c_cdr = Cnil; |
546 |
|
goto T195; |
547 |
|
T195:; |
548 |
|
base[3]= (V77); |
549 |
|
vs_top=(vs_base=base+3)+1; |
550 |
|
return; |
551 |
|
goto T192; |
552 |
|
T192:; |
553 |
|
if(!(type_of((V79))==t_cons)){ |
554 |
|
goto T200;} |
555 |
|
goto T199; |
556 |
|
goto T200; |
557 |
|
T200:; |
558 |
|
base[3]= VV[8]; |
559 |
|
vs_top=(vs_base=base+3)+1; |
560 |
|
Lerror(); |
561 |
|
vs_top=sup; |
562 |
|
goto T199; |
563 |
|
T199:; |
564 |
|
base[3]=VV[11]->s.s_gfdef; |
565 |
|
base[4]= CMPcar((V79)); |
566 |
|
base[5]= (V75); |
567 |
|
base[6]= VV[6]; |
568 |
|
base[7]= Ct; |
569 |
|
{object V80; |
570 |
|
V80= (V76); |
571 |
|
vs_top=base+8; |
572 |
|
while(V80!=Cnil) |
573 |
|
{vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;} |
574 |
|
vs_base=base+4;} |
575 |
|
(void) (*Lnk11)(); |
576 |
|
vs_top=sup; |
577 |
|
if((vs_base[0])!=Cnil){ |
578 |
|
goto T203;} |
579 |
|
if(((V78))==Cnil){ |
580 |
|
goto T213;} |
581 |
|
((V78))->c.c_cdr = (V79); |
582 |
|
goto T211; |
583 |
|
goto T213; |
584 |
|
T213:; |
585 |
|
V77= (V79); |
586 |
|
goto T211; |
587 |
|
T211:; |
588 |
|
V78= (V79); |
589 |
|
goto T203; |
590 |
|
T203:; |
591 |
|
V79= CMPcdr((V79)); |
592 |
|
goto T191;}} |
593 |
|
} |
594 |
|
} |
595 |
/* local entry for function SET-EXCLUSIVE-OR */ |
/* local entry for function SET-EXCLUSIVE-OR */ |
596 |
|
|
597 |
static object LI7(V69,V68,va_alist) |
static object LI9(V82,V81,va_alist) |
598 |
object V69,V68; |
object V82,V81; |
599 |
va_dcl |
va_dcl |
600 |
{ |
{ |
601 |
va_list ap; |
va_list ap; |
602 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
603 |
{object V70; |
{object V83; |
604 |
object V71; |
object V84; |
605 |
object V72; |
object V85; |
606 |
object V73; |
object V86; |
607 |
object V74; |
object V87; |
608 |
object V75; |
object V88; |
609 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
610 |
va_start(ap); |
va_start(ap); |
611 |
V70= V69; |
V83= V82; |
612 |
V71= V68; |
V84= V81; |
613 |
narg= narg - 2; |
narg= narg - 2; |
614 |
V76 = make_list(narg); |
V89 = make_list(narg); |
615 |
V72= V76; |
V85= V89; |
616 |
{ |
{ |
617 |
parse_key_rest(V76,narg,Vcs +3,(struct key *)&LI7key,ap); |
parse_key_rest(V89,narg,Vcs +3,(struct key *)&LI9key,ap); |
618 |
V73=(Vcs[3]); |
V86=(Vcs[3]); |
619 |
V74=(Vcs[4]); |
V87=(Vcs[4]); |
620 |
V75=(Vcs[5]); |
V88=(Vcs[5]); |
621 |
base[0]= (V70); |
base[0]= (V83); |
622 |
base[1]= (V71); |
base[1]= (V84); |
623 |
{object V78; |
{object V91; |
624 |
V78= (V72); |
V91= (V85); |
625 |
vs_top=base+2; |
vs_top=base+2; |
626 |
while(V78!=Cnil) |
while(V91!=Cnil) |
627 |
{vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;} |
{vs_push((V91)->c.c_car);V91=(V91)->c.c_cdr;} |
628 |
vs_base=base+0;} |
vs_base=base+0;} |
629 |
(void) (*Lnk12)(); |
(void) (*Lnk15)(); |
630 |
vs_top=sup; |
vs_top=sup; |
631 |
V77= vs_base[0]; |
V90= vs_base[0]; |
632 |
base[0]= (V71); |
base[0]= (V84); |
633 |
base[1]= (V70); |
base[1]= (V83); |
634 |
{object V80; |
{object V93; |
635 |
V80= (V72); |
V93= (V85); |
636 |
vs_top=base+2; |
vs_top=base+2; |
637 |
while(V80!=Cnil) |
while(V93!=Cnil) |
638 |
{vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;} |
{vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;} |
639 |
vs_base=base+0;} |
vs_base=base+0;} |
640 |
(void) (*Lnk12)(); |
(void) (*Lnk16)(); |
641 |
vs_top=sup; |
vs_top=sup; |
642 |
V79= vs_base[0]; |
V92= vs_base[0]; |
643 |
{object V81 = nconc(V77,V79); |
{object V94 = nconc(V90,V92); |
644 |
VMR7(V81)} |
VMR9(V94)} |
645 |
va_end(ap); |
va_end(ap); |
646 |
base[0]=base[0]; |
base[0]=base[0]; |
647 |
return Cnil;} |
return Cnil;} |
648 |
}} |
}} |
649 |
/* local entry for function NSET-EXCLUSIVE-OR */ |
/* local entry for function NSET-EXCLUSIVE-OR */ |
650 |
|
|
651 |
static object LI8(V83,V82,va_alist) |
static object LI10(V96,V95,va_alist) |
652 |
object V83,V82; |
object V96,V95; |
653 |
va_dcl |
va_dcl |
654 |
{ |
{ |
655 |
va_list ap; |
va_list ap; |
656 |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
657 |
{object V84; |
{object V97; |
658 |
register object V85; |
register object V98; |
659 |
register object V86; |
register object V99; |
660 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
661 |
va_start(ap); |
va_start(ap); |
662 |
V84= V83; |
V97= V96; |
663 |
V85= V82; |
V98= V95; |
664 |
narg= narg - 2; |
narg= narg - 2; |
665 |
V87 = list_vector(narg,ap); |
V100 = list_vector(narg,ap); |
666 |
V86= V87; |
V99= V100; |
667 |
{object V88; |
{object V101; |
668 |
register object V89; |
register object V102; |
669 |
register object V90; |
register object V103; |
670 |
register object V91; |
register object V104; |
671 |
V88= Cnil; |
V101= Cnil; |
672 |
V89= Cnil; |
V102= Cnil; |
673 |
V90= Cnil; |
V103= Cnil; |
674 |
V91= Cnil; |
V104= Cnil; |
675 |
{register object V92; |
{register object V105; |
676 |
V92= (V84); |
V105= (V97); |
677 |
goto T178; |
goto T233; |
678 |
T178:; |
T233:; |
679 |
if(((V92))!=Cnil){ |
if(((V105))!=Cnil){ |
680 |
goto T179;} |
goto T234;} |
681 |
if(((V91))==Cnil){ |
if(((V104))==Cnil){ |
682 |
goto T182;} |
goto T237;} |
683 |
((V91))->c.c_cdr = Cnil; |
((V104))->c.c_cdr = Cnil; |
684 |
goto T182; |
goto T237; |
685 |
T182:; |
T237:; |
686 |
if(((V89))==Cnil){ |
if(((V102))==Cnil){ |
687 |
goto T186;} |
goto T241;} |
688 |
base[0]= (V85); |
base[0]= (V98); |
689 |
base[1]= (V90); |
base[1]= (V103); |
690 |
{object V94; |
{object V107; |
691 |
V94= (V86); |
V107= (V99); |
692 |
vs_top=base+2; |
vs_top=base+2; |
693 |
while(V94!=Cnil) |
while(V107!=Cnil) |
694 |
{vs_push((V94)->c.c_car);V94=(V94)->c.c_cdr;} |
{vs_push((V107)->c.c_car);V107=(V107)->c.c_cdr;} |
695 |
vs_base=base+0;} |
vs_base=base+0;} |
696 |
(void) (*Lnk13)(); |
(void) (*Lnk17)(); |
697 |
vs_top=sup; |
vs_top=sup; |
698 |
V93= vs_base[0]; |
V106= vs_base[0]; |
699 |
((V89))->c.c_cdr = V93; |
((V102))->c.c_cdr = V106; |
700 |
{object V95 = (V88); |
{object V108 = (V101); |
701 |
VMR8(V95)} |
VMR10(V108)} |
702 |
goto T186; |
goto T241; |
703 |
T186:; |
T241:; |
704 |
base[0]= (V85); |
base[0]= (V98); |
705 |
base[1]= (V90); |
base[1]= (V103); |
706 |
{object V96; |
{object V109; |
707 |
V96= (V86); |
V109= (V99); |
708 |
vs_top=base+2; |
vs_top=base+2; |
709 |
while(V96!=Cnil) |
while(V109!=Cnil) |
710 |
{vs_push((V96)->c.c_car);V96=(V96)->c.c_cdr;} |
{vs_push((V109)->c.c_car);V109=(V109)->c.c_cdr;} |
711 |
vs_base=base+0;} |
vs_base=base+0;} |
712 |
(void) (*Lnk13)(); |
(void) (*Lnk17)(); |
713 |
vs_top=sup; |
vs_top=sup; |
714 |
{object V97 = vs_base[0]; |
{object V110 = vs_base[0]; |
715 |
VMR8(V97)} |
VMR10(V110)} |
716 |
goto T179; |
goto T234; |
717 |
T179:; |
T234:; |
718 |
if(!(type_of((V92))==t_cons)){ |
if(!(type_of((V105))==t_cons)){ |
719 |
goto T198;} |
goto T253;} |
720 |
goto T197; |
goto T252; |
721 |
goto T198; |
goto T253; |
722 |
T198:; |
T253:; |
723 |
base[0]= VV[6]; |
base[0]= VV[9]; |
724 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
725 |
Lerror(); |
Lerror(); |
726 |
vs_top=sup; |
vs_top=sup; |
727 |
goto T197; |
goto T252; |
728 |
T197:; |
T252:; |
729 |
base[0]=VV[8]->s.s_gfdef; |
base[0]=VV[11]->s.s_gfdef; |
730 |
base[1]= CMPcar((V92)); |
base[1]= CMPcar((V105)); |
731 |
base[2]= (V85); |
base[2]= (V98); |
732 |
{object V98; |
{object V111; |
733 |
V98= (V86); |
V111= (V99); |
734 |
vs_top=base+3; |
vs_top=base+3; |
735 |
while(V98!=Cnil) |
while(V111!=Cnil) |
736 |
{vs_push((V98)->c.c_car);V98=(V98)->c.c_cdr;} |
{vs_push((V111)->c.c_car);V111=(V111)->c.c_cdr;} |
737 |
vs_base=base+1;} |
vs_base=base+1;} |
738 |
(void) (*Lnk8)(); |
(void) (*Lnk11)(); |
739 |
vs_top=sup; |
vs_top=sup; |
740 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
741 |
goto T203;} |
goto T258;} |
742 |
if(((V91))==Cnil){ |
if(((V104))==Cnil){ |
743 |
goto T210;} |
goto T265;} |
744 |
((V91))->c.c_cdr = (V92); |
((V104))->c.c_cdr = (V105); |
745 |
goto T208; |
goto T263; |
746 |
goto T210; |
goto T265; |
747 |
T210:; |
T265:; |
748 |
V90= (V92); |
V103= (V105); |
749 |
goto T208; |
goto T263; |
750 |
T208:; |
T263:; |
751 |
V91= (V92); |
V104= (V105); |
752 |
goto T201; |
goto T256; |
753 |
goto T203; |
goto T258; |
754 |
T203:; |
T258:; |
755 |
if(((V89))==Cnil){ |
if(((V102))==Cnil){ |
756 |
goto T216;} |
goto T271;} |
757 |
((V89))->c.c_cdr = (V92); |
((V102))->c.c_cdr = (V105); |
758 |
goto T214; |
goto T269; |
759 |
goto T216; |
goto T271; |
760 |
T216:; |
T271:; |
761 |
V88= (V92); |
V101= (V105); |
762 |
goto T214; |
goto T269; |
763 |
T214:; |
T269:; |
764 |
V89= (V92); |
V102= (V105); |
765 |
goto T201; |
goto T256; |
766 |
T201:; |
T256:; |
767 |
V92= CMPcdr((V92)); |
V105= CMPcdr((V105)); |
768 |
goto T178;}} |
goto T233;}} |
769 |
va_end(ap); |
va_end(ap); |
770 |
base[0]=base[0]; |
base[0]=base[0]; |
771 |
return Cnil;} |
return Cnil;} |
772 |
} |
} |
773 |
/* local entry for function SUBSETP */ |
/* local entry for function SUBSETP */ |
774 |
|
|
775 |
static object LI9(V100,V99,va_alist) |
static object LI11(V113,V112,va_alist) |
776 |
object V100,V99; |
object V113,V112; |
777 |
va_dcl |
va_dcl |
778 |
{ |
{ |
779 |
va_list ap; |
va_list ap; |
780 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
781 |
{object V101; |
{object V114; |
782 |
register object V102; |
register object V115; |
783 |
register object V103; |
register object V116; |
784 |
object V104; |
object V117; |
785 |
object V105; |
object V118; |
786 |
object V106; |
object V119; |
787 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
788 |
va_start(ap); |
va_start(ap); |
789 |
V101= V100; |
V114= V113; |
790 |
V102= V99; |
V115= V112; |
791 |
narg= narg - 2; |
narg= narg - 2; |
792 |
V107 = make_list(narg); |
V120 = make_list(narg); |
793 |
V103= V107; |
V116= V120; |
794 |
{ |
{ |
795 |
parse_key_rest(V107,narg,Vcs +3,(struct key *)&LI9key,ap); |
parse_key_rest(V120,narg,Vcs +3,(struct key *)&LI11key,ap); |
796 |
V104=(Vcs[3]); |
V117=(Vcs[3]); |
797 |
V105=(Vcs[4]); |
V118=(Vcs[4]); |
798 |
V106=(Vcs[5]); |
V119=(Vcs[5]); |
799 |
{register object V108; |
{register object V121; |
800 |
V108= (V101); |
V121= (V114); |
801 |
goto T224; |
goto T279; |
802 |
T224:; |
T279:; |
803 |
if(((V108))!=Cnil){ |
if(((V121))!=Cnil){ |
804 |
goto T225;} |
goto T280;} |
805 |
{object V109 = Ct; |
{object V122 = Ct; |
806 |
VMR9(V109)} |
VMR11(V122)} |
807 |
goto T225; |
goto T280; |
808 |
T225:; |
T280:; |
809 |
if(!(type_of((V108))==t_cons)){ |
if(!(type_of((V121))==t_cons)){ |
810 |
goto T230;} |
goto T285;} |
811 |
goto T229; |
goto T284; |
812 |
goto T230; |
goto T285; |
813 |
T230:; |
T285:; |
814 |
base[0]= VV[7]; |
base[0]= VV[10]; |
815 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
816 |
Lerror(); |
Lerror(); |
817 |
vs_top=sup; |
vs_top=sup; |
818 |
goto T229; |
goto T284; |
819 |
T229:; |
T284:; |
820 |
base[0]=VV[8]->s.s_gfdef; |
base[0]=VV[11]->s.s_gfdef; |
821 |
base[1]= CMPcar((V108)); |
base[1]= CMPcar((V121)); |
822 |
base[2]= (V102); |
base[2]= (V115); |
823 |
{object V110; |
{object V123; |
824 |
V110= (V103); |
V123= (V116); |
825 |
vs_top=base+3; |
vs_top=base+3; |
826 |
while(V110!=Cnil) |
while(V123!=Cnil) |
827 |
{vs_push((V110)->c.c_car);V110=(V110)->c.c_cdr;} |
{vs_push((V123)->c.c_car);V123=(V123)->c.c_cdr;} |
828 |
vs_base=base+1;} |
vs_base=base+1;} |
829 |
(void) (*Lnk8)(); |
(void) (*Lnk11)(); |
830 |
vs_top=sup; |
vs_top=sup; |
831 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
832 |
goto T233;} |
goto T288;} |
833 |
{object V111 = Cnil; |
{object V124 = Cnil; |
834 |
VMR9(V111)} |
VMR11(V124)} |
835 |
goto T233; |
goto T288; |
836 |
T233:; |
T288:; |
837 |
V108= CMPcdr((V108)); |
V121= CMPcdr((V121)); |
838 |
goto T224;} |
goto T279;} |
839 |
va_end(ap); |
va_end(ap); |
840 |
base[0]=base[0]; |
base[0]=base[0]; |
841 |
return Cnil;} |
return Cnil;} |
842 |
}} |
}} |
843 |
static void LnkT13(){ call_or_link(VV[13],(void **)&Lnk13);} /* NSET-DIFFERENCE */ |
static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* NSET-DIFFERENCE-REV */ |
844 |
static void LnkT12(){ call_or_link(VV[12],(void **)&Lnk12);} /* SET-DIFFERENCE */ |
static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SET-DIFFERENCE-REV */ |
845 |
static void LnkT8(){ call_or_link(VV[8],(void **)&Lnk8);} /* MEMBER1 */ |
static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* SET-DIFFERENCE */ |
846 |
|
static void LnkT11(){ call_or_link(VV[11],(void **)&Lnk11);} /* MEMBER1 */ |
847 |
|
|
848 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
849 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |