342 |
goto T43;} |
goto T43;} |
343 |
goto T42; |
goto T42; |
344 |
T42:; |
T42:; |
345 |
V63= list(3,(V45),(V46),list(2,VV[28],listA(3,VV[24],V58,base[3]))); |
V63 = base[3]; |
346 |
V64= list(2,VV[33],(V45)); |
V64= list(3,(V45),(V46),list(2,VV[28],listA(3,VV[24],V58,V63))); |
347 |
base[4]= list(3,VV[27],/* INLINE-ARGS */V63,list(4,VV[29],VV[30],list(4,VV[31],VV[32],/* INLINE-ARGS */V64,list(2,VV[33],(V46))),VV[28])); |
V65= list(2,VV[33],(V45)); |
348 |
|
base[4]= list(3,VV[27],/* INLINE-ARGS */V64,list(4,VV[29],VV[30],list(4,VV[31],VV[32],/* INLINE-ARGS */V65,list(2,VV[33],(V46))),VV[28])); |
349 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
350 |
return;} |
return;} |
351 |
} |
} |
355 |
{register object *base=vs_base; |
{register object *base=vs_base; |
356 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
357 |
vs_check; |
vs_check; |
358 |
{register object V65; |
{register object V66; |
359 |
object V66; |
object V67; |
360 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
361 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
362 |
V65=(base[0]); |
V66=(base[0]); |
363 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
364 |
if(vs_base>=vs_top){vs_top=sup;goto T45;} |
if(vs_base>=vs_top){vs_top=sup;goto T45;} |
365 |
V66=(base[1]); |
V67=(base[1]); |
366 |
vs_top=sup; |
vs_top=sup; |
367 |
goto T46; |
goto T46; |
368 |
goto T45; |
goto T45; |
369 |
T45:; |
T45:; |
370 |
V66= Cnil; |
V67= Cnil; |
371 |
goto T46; |
goto T46; |
372 |
T46:; |
T46:; |
373 |
{object V67; |
{object V68; |
|
register object V68; |
|
374 |
register object V69; |
register object V69; |
375 |
V67= Cnil; |
register object V70; |
376 |
V68= Cnil; |
V68= Cnil; |
377 |
V69= Cnil; |
V69= Cnil; |
378 |
if(!(type_of(CMPcar((V65)))==t_string)){ |
V70= Cnil; |
379 |
|
if(!(type_of(CMPcar((V66)))==t_string)){ |
380 |
goto T48;} |
goto T48;} |
381 |
if((CMPcdr((V65)))==Cnil){ |
if((CMPcdr((V66)))==Cnil){ |
382 |
goto T48;} |
goto T48;} |
383 |
{object V70; |
{object V71; |
384 |
V70= CMPcar((V65)); |
V71= CMPcar((V66)); |
385 |
V65= CMPcdr((V65)); |
V66= CMPcdr((V66)); |
386 |
V67= (V70);} |
V68= (V71);} |
387 |
goto T48; |
goto T48; |
388 |
T48:; |
T48:; |
389 |
goto T59; |
goto T59; |
390 |
T59:; |
T59:; |
391 |
if(((V65))!=Cnil){ |
if(((V66))!=Cnil){ |
392 |
goto T61;} |
goto T61;} |
393 |
goto T57; |
goto T57; |
394 |
goto T61; |
goto T61; |
395 |
T61:; |
T61:; |
396 |
V69= CMPcar((V65)); |
V70= CMPcar((V66)); |
397 |
goto T69; |
goto T69; |
398 |
T69:; |
T69:; |
399 |
if(type_of((V69))==t_cons||((V69))==Cnil){ |
if(type_of((V70))==t_cons||((V70))==Cnil){ |
400 |
goto T72;} |
goto T72;} |
401 |
goto T57; |
goto T57; |
402 |
goto T72; |
goto T72; |
403 |
T72:; |
T72:; |
404 |
if(!((CMPcar((V69)))==(VV[34]))){ |
if(!((CMPcar((V70)))==(VV[34]))){ |
405 |
goto T75;} |
goto T75;} |
406 |
goto T67; |
goto T67; |
407 |
goto T75; |
goto T75; |
408 |
T75:; |
T75:; |
409 |
{register object V71; |
{register object V72; |
410 |
object V72; |
object V73; |
411 |
base[2]= (V69); |
base[2]= (V70); |
412 |
base[3]= (V66); |
base[3]= (V67); |
413 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
414 |
Lmacroexpand_1(); |
Lmacroexpand_1(); |
415 |
if(vs_base>=vs_top){vs_top=sup;goto T80;} |
if(vs_base>=vs_top){vs_top=sup;goto T80;} |
416 |
V71= vs_base[0]; |
V72= vs_base[0]; |
417 |
vs_base++; |
vs_base++; |
418 |
if(vs_base>=vs_top){vs_top=sup;goto T81;} |
if(vs_base>=vs_top){vs_top=sup;goto T81;} |
419 |
V72= vs_base[0]; |
V73= vs_base[0]; |
420 |
vs_top=sup; |
vs_top=sup; |
421 |
goto T82; |
goto T82; |
422 |
goto T80; |
goto T80; |
423 |
T80:; |
T80:; |
424 |
V71= Cnil; |
V72= Cnil; |
425 |
goto T81; |
goto T81; |
426 |
T81:; |
T81:; |
427 |
V72= Cnil; |
V73= Cnil; |
428 |
goto T82; |
goto T82; |
429 |
T82:; |
T82:; |
430 |
if(!(((V71))==((V69)))){ |
if(!(((V72))==((V70)))){ |
431 |
goto T83;} |
goto T83;} |
432 |
if(((V72))==Cnil){ |
if(((V73))==Cnil){ |
433 |
goto T84;} |
goto T84;} |
434 |
goto T83; |
goto T83; |
435 |
T83:; |
T83:; |
436 |
V69= (V71); |
V70= (V72); |
437 |
goto T70; |
goto T70; |
438 |
goto T84; |
goto T84; |
439 |
T84:; |
T84:; |
443 |
goto T69; |
goto T69; |
444 |
goto T67; |
goto T67; |
445 |
T67:; |
T67:; |
446 |
{object V73; |
{object V74; |
447 |
V73= CMPcar((V65)); |
V74= CMPcar((V66)); |
448 |
V65= CMPcdr((V65));} |
V66= CMPcdr((V66));} |
449 |
{register object V74; |
{register object V75; |
450 |
register object V75; |
register object V76; |
451 |
V74= CMPcdr((V69)); |
V75= CMPcdr((V70)); |
452 |
V75= CMPcar((V74)); |
V76= CMPcar((V75)); |
453 |
goto T97; |
goto T97; |
454 |
T97:; |
T97:; |
455 |
if(!(((V74))==Cnil)){ |
if(!(((V75))==Cnil)){ |
456 |
goto T98;} |
goto T98;} |
457 |
goto T60; |
goto T60; |
458 |
goto T98; |
goto T98; |
459 |
T98:; |
T98:; |
460 |
V68= make_cons(V75,(V68)); |
V69= make_cons(V76,(V69)); |
461 |
V74= CMPcdr((V74)); |
V75= CMPcdr((V75)); |
462 |
V75= CMPcar((V74)); |
V76= CMPcar((V75)); |
463 |
goto T97;} |
goto T97;} |
464 |
goto T60; |
goto T60; |
465 |
T60:; |
T60:; |
466 |
goto T59; |
goto T59; |
467 |
goto T57; |
goto T57; |
468 |
T57:; |
T57:; |
469 |
base[2]= (V67); |
base[2]= (V68); |
470 |
if((V68)==Cnil){ |
if((V69)==Cnil){ |
471 |
base[3]= Cnil; |
base[3]= Cnil; |
472 |
goto T111;} |
goto T111;} |
473 |
V77= nreverse((V68)); |
V78= nreverse((V69)); |
474 |
V78= make_cons(VV[34],/* INLINE-ARGS */V77); |
V79= make_cons(VV[34],/* INLINE-ARGS */V78); |
475 |
base[3]= make_cons(/* INLINE-ARGS */V78,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V79,Cnil); |
476 |
goto T111; |
goto T111; |
477 |
T111:; |
T111:; |
478 |
base[4]= (V65); |
base[4]= (V66); |
479 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
480 |
return;} |
return;} |
481 |
} |
} |
482 |
} |
} |
483 |
/* local entry for function GET-DECLARATION */ |
/* local entry for function GET-DECLARATION */ |
484 |
|
|
485 |
static object LI17(object V80,object V79,object first,...) |
static object LI17(object V81,object V80,object first,...) |
486 |
{ |
{ |
487 |
va_list ap; |
va_list ap; |
488 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
489 |
{register object V81; |
{register object V82; |
490 |
object V82; |
object V83; |
491 |
register object V83; |
register object V84; |
492 |
va_start(ap,first); |
va_start(ap,first); |
493 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
494 |
V81= V80; |
V82= V81; |
495 |
V82= V79; |
V83= V80; |
496 |
narg = narg - 2; |
narg = narg - 2; |
497 |
if (narg <= 0) goto T113; |
if (narg <= 0) goto T113; |
498 |
else { |
else { |
499 |
V83= first;} |
V84= first;} |
500 |
--narg; goto T114; |
--narg; goto T114; |
501 |
goto T113; |
goto T113; |
502 |
T113:; |
T113:; |
503 |
V83= Cnil; |
V84= Cnil; |
504 |
goto T114; |
goto T114; |
505 |
T114:; |
T114:; |
506 |
{register object V84; |
{register object V85; |
507 |
register object V85; |
register object V86; |
508 |
V84= (V82); |
V85= (V83); |
509 |
V85= CMPcar((V84)); |
V86= CMPcar((V85)); |
510 |
goto T119; |
goto T119; |
511 |
T119:; |
T119:; |
512 |
if(!(((V84))==Cnil)){ |
if(!(((V85))==Cnil)){ |
513 |
goto T120;} |
goto T120;} |
514 |
{object V86 = (V83); |
{object V87 = (V84); |
515 |
VMR17(V86)} |
VMR17(V87)} |
516 |
goto T120; |
goto T120; |
517 |
T120:; |
T120:; |
518 |
{register object V87; |
{register object V88; |
519 |
register object V88; |
register object V89; |
520 |
V87= CMPcdr((V85)); |
V88= CMPcdr((V86)); |
521 |
V88= CMPcar((V87)); |
V89= CMPcar((V88)); |
522 |
goto T128; |
goto T128; |
523 |
T128:; |
T128:; |
524 |
if(!(((V87))==Cnil)){ |
if(!(((V88))==Cnil)){ |
525 |
goto T129;} |
goto T129;} |
526 |
goto T124; |
goto T124; |
527 |
goto T129; |
goto T129; |
528 |
T129:; |
T129:; |
529 |
if(!(type_of((V88))==t_cons)){ |
if(!(type_of((V89))==t_cons)){ |
530 |
goto T133;} |
goto T133;} |
531 |
if(!((CMPcar((V88)))==((V81)))){ |
if(!((CMPcar((V89)))==((V82)))){ |
532 |
goto T133;} |
goto T133;} |
533 |
{object V89 = CMPcdr((V88)); |
{object V90 = CMPcdr((V89)); |
534 |
VMR17(V89)} |
VMR17(V90)} |
535 |
goto T133; |
goto T133; |
536 |
T133:; |
T133:; |
537 |
V87= CMPcdr((V87)); |
V88= CMPcdr((V88)); |
538 |
V88= CMPcar((V87)); |
V89= CMPcar((V88)); |
539 |
goto T128;} |
goto T128;} |
540 |
goto T124; |
goto T124; |
541 |
T124:; |
T124:; |
542 |
V84= CMPcdr((V84)); |
V85= CMPcdr((V85)); |
543 |
V85= CMPcar((V84)); |
V86= CMPcar((V85)); |
544 |
goto T119;} |
goto T119;} |
545 |
va_end(ap); |
va_end(ap); |
546 |
base[0]=base[0]; |
base[0]=base[0]; |
552 |
{register object *base=vs_base; |
{register object *base=vs_base; |
553 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
554 |
vs_check; |
vs_check; |
555 |
{object V90; |
{object V91; |
556 |
check_arg(1); |
check_arg(1); |
557 |
V90=(base[0]); |
V91=(base[0]); |
558 |
vs_top=sup; |
vs_top=sup; |
559 |
goto TTL; |
goto TTL; |
560 |
TTL:; |
TTL:; |
561 |
base[1]= symbol_name((V90)); |
base[1]= symbol_name((V91)); |
562 |
base[2]= (VV[35]->s.s_dbind); |
base[2]= (VV[35]->s.s_dbind); |
563 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
564 |
Lintern(); |
Lintern(); |
571 |
{ |
{ |
572 |
va_list ap; |
va_list ap; |
573 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
574 |
{register object V91; |
{register object V92; |
575 |
va_start(ap,first); |
va_start(ap,first); |
576 |
narg= narg - 0; |
narg= narg - 0; |
577 |
V92 = list_vector_new(narg,first,ap); |
V93 = list_vector_new(narg,first,ap); |
578 |
V91= V92; |
V92= V93; |
579 |
base[0]= (V91); |
base[0]= (V92); |
580 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
581 |
Lcopy_list(); |
Lcopy_list(); |
582 |
vs_top=sup; |
vs_top=sup; |
583 |
V91= vs_base[0]; |
V92= vs_base[0]; |
584 |
{register object V93; |
{register object V94; |
585 |
V93= (V91); |
V94= (V92); |
586 |
goto T154; |
goto T154; |
587 |
T154:; |
T154:; |
588 |
if(((V93))!=Cnil){ |
if(((V94))!=Cnil){ |
589 |
goto T155;} |
goto T155;} |
590 |
base[0]=VV[132]->s.s_gfdef; |
base[0]=VV[132]->s.s_gfdef; |
591 |
base[1]= VV[36]; |
base[1]= VV[36]; |
592 |
{object V94; |
{object V95; |
593 |
V94= (V91); |
V95= (V92); |
594 |
vs_top=base+2; |
vs_top=base+2; |
595 |
while(V94!=Cnil) |
while(V95!=Cnil) |
596 |
{vs_push((V94)->c.c_car);V94=(V94)->c.c_cdr;} |
{vs_push((V95)->c.c_car);V95=(V95)->c.c_cdr;} |
597 |
vs_base=base+1;} |
vs_base=base+1;} |
598 |
(void) (*Lnk132)(); |
(void) (*Lnk132)(); |
599 |
vs_top=sup; |
vs_top=sup; |
600 |
{object V95 = vs_base[0]; |
{object V96 = vs_base[0]; |
601 |
VMR19(V95)} |
VMR19(V96)} |
602 |
goto T155; |
goto T155; |
603 |
T155:; |
T155:; |
604 |
V96= coerce_to_string(CMPcar((V93))); |
V97= coerce_to_string(CMPcar((V94))); |
605 |
((V93))->c.c_car = /* INLINE-ARGS */V96; |
((V94))->c.c_car = /* INLINE-ARGS */V97; |
606 |
V93= CMPcdr((V93)); |
V94= CMPcdr((V94)); |
607 |
goto T154;} |
goto T154;} |
608 |
va_end(ap); |
va_end(ap); |
609 |
base[0]=base[0]; |
base[0]=base[0]; |
615 |
{register object *base=vs_base; |
{register object *base=vs_base; |
616 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
617 |
vs_check; |
vs_check; |
618 |
{object V97; |
{object V98; |
|
object V98; |
|
619 |
object V99; |
object V99; |
620 |
|
object V100; |
621 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
622 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
623 |
V97=(base[0]); |
V98=(base[0]); |
624 |
V98=(base[1]); |
V99=(base[1]); |
625 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
626 |
if(vs_base>=vs_top){vs_top=sup;goto T165;} |
if(vs_base>=vs_top){vs_top=sup;goto T165;} |
627 |
V99=(base[2]); |
V100=(base[2]); |
628 |
vs_top=sup; |
vs_top=sup; |
629 |
goto T166; |
goto T166; |
630 |
goto T165; |
goto T165; |
631 |
T165:; |
T165:; |
632 |
V99= (VV[37]->s.s_dbind); |
V100= (VV[37]->s.s_dbind); |
633 |
goto T166; |
goto T166; |
634 |
T166:; |
T166:; |
635 |
base[3]= (VFUN_NARGS=2,(*(LnkLI133))((V97),(V98))); |
base[3]= (VFUN_NARGS=2,(*(LnkLI133))((V98),(V99))); |
636 |
base[4]= (V99); |
base[4]= (V100); |
637 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
638 |
Lintern(); |
Lintern(); |
639 |
return; |
return; |
647 |
vs_check; |
vs_check; |
648 |
check_arg(2); |
check_arg(2); |
649 |
vs_top=sup; |
vs_top=sup; |
650 |
{object V100=base[0]->c.c_cdr; |
{object V101=base[0]->c.c_cdr; |
651 |
if(endp(V100))invalid_macro_call(); |
if(endp(V101))invalid_macro_call(); |
652 |
base[2]= (V100->c.c_car); |
base[2]= (V101->c.c_car); |
653 |
V100=V100->c.c_cdr; |
V101=V101->c.c_cdr; |
654 |
if(endp(V100))invalid_macro_call(); |
if(endp(V101))invalid_macro_call(); |
655 |
base[3]= (V100->c.c_car); |
base[3]= (V101->c.c_car); |
656 |
V100=V100->c.c_cdr; |
V101=V101->c.c_cdr; |
657 |
{object V101=getf(V100,VV[39],OBJNULL); |
{object V102=getf(V101,VV[39],OBJNULL); |
658 |
if(V101==OBJNULL){ |
if(V102==OBJNULL){ |
659 |
base[4]= (VV[134]->s.s_gfdef);} else { |
base[4]= (VV[134]->s.s_gfdef);} else { |
660 |
base[4]= V101; |
base[4]= V102; |
661 |
}} |
}} |
662 |
{object V102=getf(V100,VV[135],OBJNULL); |
{object V103=getf(V101,VV[135],OBJNULL); |
663 |
if(V102==OBJNULL){ |
if(V103==OBJNULL){ |
664 |
base[5]= base[2];} else { |
base[5]= base[2];} else { |
665 |
base[5]= V102; |
base[5]= V103; |
666 |
}} |
}} |
667 |
check_other_key(V100,2,VV[39],VV[135]);} |
check_other_key(V101,2,VV[39],VV[135]);} |
668 |
{register object V103; |
{register object V104; |
669 |
register object V104; |
register object V105; |
670 |
object V105; |
object V106; |
|
V103= Cnil; |
|
671 |
V104= Cnil; |
V104= Cnil; |
672 |
{object V106; |
V105= Cnil; |
673 |
object V107; |
{object V107; |
674 |
|
object V108; |
675 |
if(type_of(base[2])==t_symbol){ |
if(type_of(base[2])==t_symbol){ |
676 |
goto T176;} |
goto T176;} |
677 |
if(type_of(base[2])==t_fixnum|| |
if(type_of(base[2])==t_fixnum|| |
683 |
goto T176;} |
goto T176;} |
684 |
if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ |
if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ |
685 |
goto T177;} |
goto T177;} |
686 |
{register object x= CMPcar(base[2]),V108= VV[38]; |
{register object x= CMPcar(base[2]),V109= VV[38]; |
687 |
while(V108!=Cnil) |
while(V109!=Cnil) |
688 |
if(eql(x,V108->c.c_car)){ |
if(eql(x,V109->c.c_car)){ |
689 |
goto T184; |
goto T184; |
690 |
}else V108=V108->c.c_cdr; |
}else V109=V109->c.c_cdr; |
691 |
goto T177;} |
goto T177;} |
692 |
goto T184; |
goto T184; |
693 |
T184:; |
T184:; |
694 |
goto T176; |
goto T176; |
695 |
T176:; |
T176:; |
696 |
V106= base[2]; |
V107= base[2]; |
697 |
goto T175; |
goto T175; |
698 |
goto T177; |
goto T177; |
699 |
T177:; |
T177:; |
700 |
{object V109; |
{object V110; |
701 |
vs_base=vs_top; |
vs_base=vs_top; |
702 |
Lgensym(); |
Lgensym(); |
703 |
vs_top=sup; |
vs_top=sup; |
704 |
V109= vs_base[0]; |
V110= vs_base[0]; |
705 |
V103= make_cons(V109,(V103)); |
V104= make_cons(V110,(V104)); |
706 |
V104= make_cons(base[2],(V104)); |
V105= make_cons(base[2],(V105)); |
707 |
V106= (V109);} |
V107= (V110);} |
708 |
goto T175; |
goto T175; |
709 |
T175:; |
T175:; |
710 |
if(type_of(base[3])==t_symbol){ |
if(type_of(base[3])==t_symbol){ |
718 |
goto T191;} |
goto T191;} |
719 |
if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ |
if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ |
720 |
goto T192;} |
goto T192;} |
721 |
{register object x= CMPcar(base[3]),V112= VV[38]; |
{register object x= CMPcar(base[3]),V113= VV[38]; |
722 |
while(V112!=Cnil) |
while(V113!=Cnil) |
723 |
if(eql(x,V112->c.c_car)){ |
if(eql(x,V113->c.c_car)){ |
724 |
goto T199; |
goto T199; |
725 |
}else V112=V112->c.c_cdr; |
}else V113=V113->c.c_cdr; |
726 |
goto T192;} |
goto T192;} |
727 |
goto T199; |
goto T199; |
728 |
T199:; |
T199:; |
729 |
goto T191; |
goto T191; |
730 |
T191:; |
T191:; |
731 |
V107= base[3]; |
V108= base[3]; |
732 |
goto T190; |
goto T190; |
733 |
goto T192; |
goto T192; |
734 |
T192:; |
T192:; |
735 |
{object V113; |
{object V114; |
736 |
vs_base=vs_top; |
vs_base=vs_top; |
737 |
Lgensym(); |
Lgensym(); |
738 |
vs_top=sup; |
vs_top=sup; |
739 |
V113= vs_base[0]; |
V114= vs_base[0]; |
740 |
V103= make_cons(V113,(V103)); |
V104= make_cons(V114,(V104)); |
741 |
V104= make_cons(base[3],(V104)); |
V105= make_cons(base[3],(V105)); |
742 |
V107= (V113);} |
V108= (V114);} |
743 |
goto T190; |
goto T190; |
744 |
T190:; |
T190:; |
745 |
V116= list(5,VV[0],(V106),(V107),VV[39],base[4]); |
V117= list(5,VV[0],(V107),(V108),VV[39],base[4]); |
746 |
V105= list(3,VV[17],/* INLINE-ARGS */V116,list(5,VV[40],VV[41],list(2,VV[42],base[5]),(V106),(V107)));} |
V106= list(3,VV[17],/* INLINE-ARGS */V117,list(5,VV[40],VV[41],list(2,VV[42],base[5]),(V107),(V108)));} |
|
V121= reverse((V103)); |
|
747 |
V122= reverse((V104)); |
V122= reverse((V104)); |
748 |
{object V118; |
V123= reverse((V105)); |
749 |
object V119= /* INLINE-ARGS */V121; |
{object V119; |
750 |
object V120= /* INLINE-ARGS */V122; |
object V120= /* INLINE-ARGS */V122; |
751 |
if(V119==Cnil||V120==Cnil){ |
object V121= /* INLINE-ARGS */V123; |
752 |
V117= Cnil; |
if(V120==Cnil||V121==Cnil){ |
753 |
|
V118= Cnil; |
754 |
goto T205;} |
goto T205;} |
755 |
base[7]=V118=MMcons(Cnil,Cnil); |
base[7]=V119=MMcons(Cnil,Cnil); |
756 |
goto T206; |
goto T206; |
757 |
T206:; |
T206:; |
758 |
(V118->c.c_car)= list(2,(V119->c.c_car),(V120->c.c_car)); |
(V119->c.c_car)= list(2,(V120->c.c_car),(V121->c.c_car)); |
759 |
if((V119=MMcdr(V119))==Cnil||(V120=MMcdr(V120))==Cnil){ |
if((V120=MMcdr(V120))==Cnil||(V121=MMcdr(V121))==Cnil){ |
760 |
V117= base[7]; |
V118= base[7]; |
761 |
goto T205;} |
goto T205;} |
762 |
V118=MMcdr(V118)=MMcons(Cnil,Cnil); |
V119=MMcdr(V119)=MMcons(Cnil,Cnil); |
763 |
goto T206;} |
goto T206;} |
764 |
goto T205; |
goto T205; |
765 |
T205:; |
T205:; |
766 |
base[7]= list(3,VV[24],V117,(V105)); |
V124 = (V106); |
767 |
|
base[7]= list(3,VV[24],V118,V124); |
768 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
769 |
return;} |
return;} |
770 |
} |
} |
776 |
vs_check; |
vs_check; |
777 |
check_arg(2); |
check_arg(2); |
778 |
vs_top=sup; |
vs_top=sup; |
779 |
{object V123=base[0]->c.c_cdr; |
{object V125=base[0]->c.c_cdr; |
780 |
if(endp(V123))invalid_macro_call(); |
if(endp(V125))invalid_macro_call(); |
781 |
base[2]= (V123->c.c_car); |
base[2]= (V125->c.c_car); |
782 |
V123=V123->c.c_cdr; |
V125=V125->c.c_cdr; |
783 |
if(endp(V123))invalid_macro_call(); |
if(endp(V125))invalid_macro_call(); |
784 |
base[3]= (V123->c.c_car); |
base[3]= (V125->c.c_car); |
785 |
V123=V123->c.c_cdr; |
V125=V125->c.c_cdr; |
786 |
if(endp(V123))invalid_macro_call(); |
if(endp(V125))invalid_macro_call(); |
787 |
base[4]= (V123->c.c_car); |
base[4]= (V125->c.c_car); |
788 |
V123=V123->c.c_cdr; |
V125=V125->c.c_cdr; |
789 |
if(!endp(V123))invalid_macro_call();} |
if(!endp(V125))invalid_macro_call();} |
790 |
{register object V124; |
{register object V126; |
791 |
register object V125; |
register object V127; |
|
object V126; |
|
|
V124= Cnil; |
|
|
V125= Cnil; |
|
|
{register object V127; |
|
792 |
object V128; |
object V128; |
793 |
|
V126= Cnil; |
794 |
|
V127= Cnil; |
795 |
|
{register object V129; |
796 |
|
object V130; |
797 |
if(type_of(base[2])==t_symbol){ |
if(type_of(base[2])==t_symbol){ |
798 |
goto T212;} |
goto T212;} |
799 |
if(type_of(base[2])==t_fixnum|| |
if(type_of(base[2])==t_fixnum|| |
805 |
goto T212;} |
goto T212;} |
806 |
if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ |
if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ |
807 |
goto T213;} |
goto T213;} |
808 |
{register object x= CMPcar(base[2]),V129= VV[38]; |
{register object x= CMPcar(base[2]),V131= VV[38]; |
809 |
while(V129!=Cnil) |
while(V131!=Cnil) |
810 |
if(eql(x,V129->c.c_car)){ |
if(eql(x,V131->c.c_car)){ |
811 |
goto T220; |
goto T220; |
812 |
}else V129=V129->c.c_cdr; |
}else V131=V131->c.c_cdr; |
813 |
goto T213;} |
goto T213;} |
814 |
goto T220; |
goto T220; |
815 |
T220:; |
T220:; |
816 |
goto T212; |
goto T212; |
817 |
T212:; |
T212:; |
818 |
V127= base[2]; |
V129= base[2]; |
819 |
goto T211; |
goto T211; |
820 |
goto T213; |
goto T213; |
821 |
T213:; |
T213:; |
822 |
{object V130; |
{object V132; |
823 |
vs_base=vs_top; |
vs_base=vs_top; |
824 |
Lgensym(); |
Lgensym(); |
825 |
vs_top=sup; |
vs_top=sup; |
826 |
V130= vs_base[0]; |
V132= vs_base[0]; |
827 |
V124= make_cons(V130,(V124)); |
V126= make_cons(V132,(V126)); |
828 |
V125= make_cons(base[2],(V125)); |
V127= make_cons(base[2],(V127)); |
829 |
V127= (V130);} |
V129= (V132);} |
830 |
goto T211; |
goto T211; |
831 |
T211:; |
T211:; |
832 |
if(type_of(base[3])==t_symbol){ |
if(type_of(base[3])==t_symbol){ |
840 |
goto T227;} |
goto T227;} |
841 |
if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ |
if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ |
842 |
goto T228;} |
goto T228;} |
843 |
{register object x= CMPcar(base[3]),V133= VV[38]; |
{register object x= CMPcar(base[3]),V135= VV[38]; |
844 |
while(V133!=Cnil) |
while(V135!=Cnil) |
845 |
if(eql(x,V133->c.c_car)){ |
if(eql(x,V135->c.c_car)){ |
846 |
goto T235; |
goto T235; |
847 |
}else V133=V133->c.c_cdr; |
}else V135=V135->c.c_cdr; |
848 |
goto T228;} |
goto T228;} |
849 |
goto T235; |
goto T235; |
850 |
T235:; |
T235:; |
851 |
goto T227; |
goto T227; |
852 |
T227:; |
T227:; |
853 |
V128= base[3]; |
V130= base[3]; |
854 |
goto T226; |
goto T226; |
855 |
goto T228; |
goto T228; |
856 |
T228:; |
T228:; |
857 |
{object V134; |
{object V136; |
858 |
vs_base=vs_top; |
vs_base=vs_top; |
859 |
Lgensym(); |
Lgensym(); |
860 |
vs_top=sup; |
vs_top=sup; |
861 |
V134= vs_base[0]; |
V136= vs_base[0]; |
862 |
V124= make_cons(V134,(V124)); |
V126= make_cons(V136,(V126)); |
863 |
V125= make_cons(base[3],(V125)); |
V127= make_cons(base[3],(V127)); |
864 |
V128= (V134);} |
V130= (V136);} |
865 |
goto T226; |
goto T226; |
866 |
T226:; |
T226:; |
867 |
V137= list(3,VV[43],(V128),(V127)); |
V139= list(3,VV[43],(V130),(V129)); |
868 |
V138= list(3,VV[45],(V127),list(3,VV[46],list(2,base[4],(V128)),(V127))); |
V140= list(3,VV[45],(V129),list(3,VV[46],list(2,base[4],(V130)),(V129))); |
869 |
V126= list(3,VV[17],/* INLINE-ARGS */V137,list(3,VV[44],/* INLINE-ARGS */V138,list(2,VV[22],(V127))));} |
V128= list(3,VV[17],/* INLINE-ARGS */V139,list(3,VV[44],/* INLINE-ARGS */V140,list(2,VV[22],(V129))));} |
870 |
V143= reverse((V124)); |
V145= reverse((V126)); |
871 |
V144= reverse((V125)); |
V146= reverse((V127)); |
872 |
{object V140; |
{object V142; |
873 |
object V141= /* INLINE-ARGS */V143; |
object V143= /* INLINE-ARGS */V145; |
874 |
object V142= /* INLINE-ARGS */V144; |
object V144= /* INLINE-ARGS */V146; |
875 |
if(V141==Cnil||V142==Cnil){ |
if(V143==Cnil||V144==Cnil){ |
876 |
V139= Cnil; |
V141= Cnil; |
877 |
goto T241;} |
goto T241;} |
878 |
base[6]=V140=MMcons(Cnil,Cnil); |
base[6]=V142=MMcons(Cnil,Cnil); |
879 |
goto T242; |
goto T242; |
880 |
T242:; |
T242:; |
881 |
(V140->c.c_car)= list(2,(V141->c.c_car),(V142->c.c_car)); |
(V142->c.c_car)= list(2,(V143->c.c_car),(V144->c.c_car)); |
882 |
if((V141=MMcdr(V141))==Cnil||(V142=MMcdr(V142))==Cnil){ |
if((V143=MMcdr(V143))==Cnil||(V144=MMcdr(V144))==Cnil){ |
883 |
V139= base[6]; |
V141= base[6]; |
884 |
goto T241;} |
goto T241;} |
885 |
V140=MMcdr(V140)=MMcons(Cnil,Cnil); |
V142=MMcdr(V142)=MMcons(Cnil,Cnil); |
886 |
goto T242;} |
goto T242;} |
887 |
goto T241; |
goto T241; |
888 |
T241:; |
T241:; |
889 |
base[6]= list(3,VV[24],V139,(V126)); |
V147 = (V128); |
890 |
|
base[6]= list(3,VV[24],V141,V147); |
891 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
892 |
return;} |
return;} |
893 |
} |
} |
899 |
vs_check; |
vs_check; |
900 |
check_arg(2); |
check_arg(2); |
901 |
vs_top=sup; |
vs_top=sup; |
902 |
{object V145=base[0]->c.c_cdr; |
{object V148=base[0]->c.c_cdr; |
903 |
if(endp(V145))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
904 |
base[2]= (V145->c.c_car); |
base[2]= (V148->c.c_car); |
905 |
V145=V145->c.c_cdr; |
V148=V148->c.c_cdr; |
906 |
if(endp(V145))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
907 |
base[3]= (V145->c.c_car); |
base[3]= (V148->c.c_car); |
908 |
V145=V145->c.c_cdr; |
V148=V148->c.c_cdr; |
909 |
base[4]= V145;} |
base[4]= V148;} |
910 |
{object V146; |
{object V149; |
911 |
object V147; |
object V150; |
912 |
object V148; |
object V151; |
913 |
base[5]= base[4]; |
base[5]= base[4]; |
914 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
915 |
(void) (*Lnk136)(); |
(void) (*Lnk136)(); |
916 |
if(vs_base>=vs_top){vs_top=sup;goto T246;} |
if(vs_base>=vs_top){vs_top=sup;goto T246;} |
917 |
V146= vs_base[0]; |
V149= vs_base[0]; |
918 |
vs_base++; |
vs_base++; |
919 |
if(vs_base>=vs_top){vs_top=sup;goto T247;} |
if(vs_base>=vs_top){vs_top=sup;goto T247;} |
920 |
V147= vs_base[0]; |
V150= vs_base[0]; |
921 |
vs_base++; |
vs_base++; |
922 |
if(vs_base>=vs_top){vs_top=sup;goto T248;} |
if(vs_base>=vs_top){vs_top=sup;goto T248;} |
923 |
V148= vs_base[0]; |
V151= vs_base[0]; |
924 |
vs_top=sup; |
vs_top=sup; |
925 |
goto T249; |
goto T249; |
926 |
goto T246; |
goto T246; |
927 |
T246:; |
T246:; |
928 |
V146= Cnil; |
V149= Cnil; |
929 |
goto T247; |
goto T247; |
930 |
T247:; |
T247:; |
931 |
V147= Cnil; |
V150= Cnil; |
932 |
goto T248; |
goto T248; |
933 |
T248:; |
T248:; |
934 |
V148= Cnil; |
V151= Cnil; |
935 |
goto T249; |
goto T249; |
936 |
T249:; |
T249:; |
937 |
{object V149; |
{object V152; |
938 |
object V150; |
object V153; |
939 |
base[5]= base[2]; |
base[5]= base[2]; |
940 |
base[6]= base[3]; |
base[6]= base[3]; |
941 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
942 |
(void) (*Lnk137)(); |
(void) (*Lnk137)(); |
943 |
if(vs_base>=vs_top){vs_top=sup;goto T253;} |
if(vs_base>=vs_top){vs_top=sup;goto T253;} |
944 |
V149= vs_base[0]; |
V152= vs_base[0]; |
945 |
vs_base++; |
vs_base++; |
946 |
if(vs_base>=vs_top){vs_top=sup;goto T254;} |
if(vs_base>=vs_top){vs_top=sup;goto T254;} |
947 |
V150= vs_base[0]; |
V153= vs_base[0]; |
948 |
vs_top=sup; |
vs_top=sup; |
949 |
goto T255; |
goto T255; |
950 |
goto T253; |
goto T253; |
951 |
T253:; |
T253:; |
952 |
V149= Cnil; |
V152= Cnil; |
953 |
goto T254; |
goto T254; |
954 |
T254:; |
T254:; |
955 |
V150= Cnil; |
V153= Cnil; |
956 |
goto T255; |
goto T255; |
957 |
T255:; |
T255:; |
958 |
base[5]= (V147); |
V154 = (V153); |
959 |
base[6]= (V149); |
base[5]= (V150); |
960 |
base[7]= make_cons(VV[47],(V148)); |
base[6]= (V152); |
961 |
|
base[7]= make_cons(VV[47],(V151)); |
962 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
963 |
Lappend(); |
Lappend(); |
964 |
vs_top=sup; |
vs_top=sup; |
965 |
V151= vs_base[0]; |
V155= vs_base[0]; |
966 |
base[5]= listA(3,VV[24],(V150),V151); |
base[5]= listA(3,VV[24],V154,V155); |
967 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
968 |
return;}} |
return;}} |
969 |
} |
} |
974 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
975 |
vs_check; |
vs_check; |
976 |
bds_check; |
bds_check; |
977 |
{object V152; |
{object V156; |
978 |
object V153; |
object V157; |
979 |
check_arg(2); |
check_arg(2); |
980 |
V152=(base[0]); |
V156=(base[0]); |
981 |
V153=(base[1]); |
V157=(base[1]); |
982 |
vs_top=sup; |
vs_top=sup; |
983 |
goto TTL; |
goto TTL; |
984 |
TTL:; |
TTL:; |
985 |
{object V154; |
{object V158; |
986 |
bds_bind(VV[48],Cnil); |
bds_bind(VV[48],Cnil); |
987 |
V154= Cnil; |
V158= Cnil; |
988 |
(VV[48]->s.s_dbind)= VV[49]; |
(VV[48]->s.s_dbind)= VV[49]; |
989 |
V155= list(3,VV[50],VV[51],(V153)); |
V159= list(3,VV[50],VV[51],(V157)); |
990 |
V154= make_cons(/* INLINE-ARGS */V155,Cnil); |
V158= make_cons(/* INLINE-ARGS */V159,Cnil); |
991 |
V153= VV[51]; |
V157= VV[51]; |
992 |
V156= (*(LnkLI138))((V152),(V153)); |
V160 = (V158); |
993 |
V157= nreverse(/* INLINE-ARGS */V156); |
V161= (*(LnkLI138))((V156),(V157)); |
994 |
base[3]= nconc((V154),/* INLINE-ARGS */V157); |
V162= nreverse(/* INLINE-ARGS */V161); |
995 |
|
base[3]= nconc(V160,/* INLINE-ARGS */V162); |
996 |
base[5]= Cnil; |
base[5]= Cnil; |
997 |
base[6]= (VV[48]->s.s_dbind); |
base[6]= (VV[48]->s.s_dbind); |
998 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1006 |
} |
} |
1007 |
/* local entry for function DESTRUCTURE-INTERNAL */ |
/* local entry for function DESTRUCTURE-INTERNAL */ |
1008 |
|
|
1009 |
static object LI25(V160,V161) |
static object LI25(V165,V166) |
1010 |
|
|
1011 |
object V160;register object V161; |
object V165;register object V166; |
1012 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1013 |
goto TTL; |
goto TTL; |
1014 |
TTL:; |
TTL:; |
1015 |
{object V162; |
{object V167; |
1016 |
register object V163; |
register object V168; |
1017 |
register object V164; |
register object V169; |
1018 |
vs_base=vs_top; |
vs_base=vs_top; |
1019 |
Lgensym(); |
Lgensym(); |
1020 |
vs_top=sup; |
vs_top=sup; |
1021 |
V162= vs_base[0]; |
V167= vs_base[0]; |
1022 |
base[0]= small_fixnum(0); |
base[0]= small_fixnum(0); |
1023 |
V163= Cnil; |
V168= Cnil; |
1024 |
V164= Cnil; |
V169= Cnil; |
1025 |
{register object V165; |
{register object V170; |
1026 |
V165= (V160); |
V170= (V165); |
1027 |
goto T273; |
goto T273; |
1028 |
T273:; |
T273:; |
1029 |
if(((V165))!=Cnil){ |
if(((V170))!=Cnil){ |
1030 |
goto T274;} |
goto T274;} |
1031 |
goto T271; |
goto T271; |
1032 |
goto T274; |
goto T274; |
1033 |
T274:; |
T274:; |
1034 |
V163= CMPcar((V165)); |
V168= CMPcar((V170)); |
1035 |
if(!(type_of((V163))==t_symbol)){ |
V171 = (V168); |
1036 |
|
if(!(type_of(V171)==t_symbol)){ |
1037 |
goto T280;} |
goto T280;} |
1038 |
{register object x= (V163),V166= VV[52]; |
{register object x= (V168),V172= VV[52]; |
1039 |
while(V166!=Cnil) |
while(V172!=Cnil) |
1040 |
if(x==(V166->c.c_car)){ |
if(x==(V172->c.c_car)){ |
1041 |
goto T283; |
goto T283; |
1042 |
}else V166=V166->c.c_cdr;} |
}else V172=V172->c.c_cdr;} |
1043 |
(VV[48]->s.s_dbind)= make_cons(V163,(VV[48]->s.s_dbind)); |
(VV[48]->s.s_dbind)= make_cons(V168,(VV[48]->s.s_dbind)); |
1044 |
goto T283; |
goto T283; |
1045 |
T283:; |
T283:; |
1046 |
if((CMPcdr((V165)))!=Cnil){ |
if((CMPcdr((V170)))!=Cnil){ |
1047 |
goto T288;} |
goto T288;} |
1048 |
{object V168; |
{object V174; |
1049 |
base[2]= (V163); |
base[2]= (V168); |
1050 |
base[3]= (V161); |
base[3]= (V166); |
1051 |
base[4]= Cnil; |
base[4]= Cnil; |
1052 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1053 |
L26(base); |
L26(base); |
1054 |
vs_top=sup; |
vs_top=sup; |
1055 |
V168= vs_base[0]; |
V174= vs_base[0]; |
1056 |
V164= make_cons((V168),(V164)); |
V169= make_cons((V174),(V169)); |
1057 |
goto T278;} |
goto T278;} |
1058 |
goto T288; |
goto T288; |
1059 |
T288:; |
T288:; |
1060 |
if(!(type_of(CMPcdr((V165)))==t_symbol)){ |
if(!(type_of(CMPcdr((V170)))==t_symbol)){ |
1061 |
goto T296;} |
goto T296;} |
1062 |
{object V169; |
{object V175; |
1063 |
base[2]= (V163); |
base[2]= (V168); |
1064 |
base[3]= (V161); |
base[3]= (V166); |
1065 |
base[4]= CMPcdr((V165)); |
base[4]= CMPcdr((V170)); |
1066 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1067 |
L26(base); |
L26(base); |
1068 |
vs_top=sup; |
vs_top=sup; |
1069 |
V169= vs_base[0]; |
V175= vs_base[0]; |
1070 |
V164= make_cons((V169),(V164));} |
V169= make_cons((V175),(V169));} |
1071 |
{object V170; |
{object V176; |
1072 |
V170= CMPcdr((V165)); |
V176= CMPcdr((V170)); |
1073 |
(VV[48]->s.s_dbind)= make_cons((V170),(VV[48]->s.s_dbind));} |
(VV[48]->s.s_dbind)= make_cons((V176),(VV[48]->s.s_dbind));} |
1074 |
goto T271; |
goto T271; |
1075 |
goto T296; |
goto T296; |
1076 |
T296:; |
T296:; |
1077 |
{register object x= (V163),V171= VV[53]; |
{register object x= (V168),V177= VV[53]; |
1078 |
while(V171!=Cnil) |
while(V177!=Cnil) |
1079 |
if(x==(V171->c.c_car)){ |
if(x==(V177->c.c_car)){ |
1080 |
goto T309; |
goto T309; |
1081 |
}else V171=V171->c.c_cdr; |
}else V177=V177->c.c_cdr; |
1082 |
goto T308;} |
goto T308;} |
1083 |
goto T309; |
goto T309; |
1084 |
T309:; |
T309:; |
1086 |
goto T278; |
goto T278; |
1087 |
goto T308; |
goto T308; |
1088 |
T308:; |
T308:; |
1089 |
{register object x= CMPcadr((V165)),V172= VV[54]; |
{register object x= CMPcadr((V170)),V178= VV[54]; |
1090 |
while(V172!=Cnil) |
while(V178!=Cnil) |
1091 |
if(x==(V172->c.c_car)){ |
if(x==(V178->c.c_car)){ |
1092 |
goto T313; |
goto T313; |
1093 |
}else V172=V172->c.c_cdr; |
}else V178=V178->c.c_cdr; |
1094 |
goto T312;} |
goto T312;} |
1095 |
goto T313; |
goto T313; |
1096 |
T313:; |
T313:; |
1097 |
{object V173; |
{object V179; |
1098 |
base[2]= (V163); |
base[2]= (V168); |
1099 |
base[3]= (V161); |
base[3]= (V166); |
1100 |
base[4]= Cnil; |
base[4]= Cnil; |
1101 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1102 |
L26(base); |
L26(base); |
1103 |
vs_top=sup; |
vs_top=sup; |
1104 |
V173= vs_base[0]; |
V179= vs_base[0]; |
1105 |
V164= make_cons((V173),(V164));} |
V169= make_cons((V179),(V169));} |
1106 |
base[0]= number_plus(base[0],small_fixnum(1)); |
base[0]= number_plus(base[0],small_fixnum(1)); |
1107 |
goto T278; |
goto T278; |
1108 |
goto T312; |
goto T312; |
1109 |
T312:; |
T312:; |
1110 |
{object V174; |
{object V180; |
1111 |
base[2]= (V163); |
base[2]= (V168); |
1112 |
base[3]= (V161); |
base[3]= (V166); |
1113 |
base[4]= (V161); |
base[4]= (V166); |
1114 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1115 |
L26(base); |
L26(base); |
1116 |
vs_top=sup; |
vs_top=sup; |
1117 |
V174= vs_base[0]; |
V180= vs_base[0]; |
1118 |
V164= make_cons((V174),(V164)); |
V169= make_cons((V180),(V169)); |
1119 |
goto T278;} |
goto T278;} |
1120 |
goto T280; |
goto T280; |
1121 |
T280:; |
T280:; |
1122 |
{object V175; |
{object V181; |
1123 |
V176= list(2,(V162),Cnil); |
V182= list(2,(V167),Cnil); |
1124 |
V177= make_cons(/* INLINE-ARGS */V176,Cnil); |
V183= make_cons(/* INLINE-ARGS */V182,Cnil); |
1125 |
base[2]= (V162); |
base[2]= (V167); |
1126 |
base[3]= (V161); |
base[3]= (V166); |
1127 |
if(!(type_of(CMPcdr((V165)))==t_symbol)){ |
if(!(type_of(CMPcdr((V170)))==t_symbol)){ |
1128 |
goto T333;} |
goto T333;} |
1129 |
base[4]= CMPcdr((V165)); |
base[4]= CMPcdr((V170)); |
1130 |
goto T331; |
goto T331; |
1131 |
goto T333; |
goto T333; |
1132 |
T333:; |
T333:; |
1133 |
base[4]= (V161); |
base[4]= (V166); |
1134 |
goto T331; |
goto T331; |
1135 |
T331:; |
T331:; |
1136 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1137 |
L26(base); |
L26(base); |
1138 |
vs_top=sup; |
vs_top=sup; |
1139 |
V178= vs_base[0]; |
V184= vs_base[0]; |
1140 |
if(!(type_of((V165))==t_cons)){ |
if(!(type_of((V170))==t_cons)){ |
1141 |
goto T337;} |
goto T337;} |
1142 |
V179= CMPcar((V165)); |
V185= CMPcar((V170)); |
1143 |
goto T335; |
goto T335; |
1144 |
goto T337; |
goto T337; |
1145 |
T337:; |
T337:; |
1146 |
V179= (V165); |
V185= (V170); |
1147 |
goto T335; |
goto T335; |
1148 |
T335:; |
T335:; |
1149 |
V180= (*(LnkLI138))(V179,(V162)); |
V186 = (V167); |
1150 |
V175= listA(4,VV[24],/* INLINE-ARGS */V177,V178,nreverse(/* INLINE-ARGS */V180)); |
V187= (*(LnkLI138))(V185,V186); |
1151 |
V164= make_cons((V175),(V164));} |
V181= listA(4,VV[24],/* INLINE-ARGS */V183,V184,nreverse(/* INLINE-ARGS */V187)); |
1152 |
if(!(type_of(CMPcdr((V165)))==t_symbol)){ |
V169= make_cons((V181),(V169));} |
1153 |
|
if(!(type_of(CMPcdr((V170)))==t_symbol)){ |
1154 |
goto T278;} |
goto T278;} |
1155 |
{object V181; |
{object V188; |
1156 |
V181= CMPcdr((V165)); |
V188= CMPcdr((V170)); |
1157 |
(VV[48]->s.s_dbind)= make_cons((V181),(VV[48]->s.s_dbind));} |
(VV[48]->s.s_dbind)= make_cons((V188),(VV[48]->s.s_dbind));} |
1158 |
goto T271; |
goto T271; |
1159 |
goto T278; |
goto T278; |
1160 |
T278:; |
T278:; |
1161 |
V165= CMPcdr((V165)); |
V170= CMPcdr((V170)); |
1162 |
goto T273;} |
goto T273;} |
1163 |
goto T271; |
goto T271; |
1164 |
T271:; |
T271:; |
1165 |
{object V182 = (V164); |
{object V189 = (V169); |
1166 |
VMR25(V182)}} |
VMR25(V189)}} |
1167 |
base[0]=base[0]; |
base[0]=base[0]; |
1168 |
return Cnil; |
return Cnil; |
1169 |
} |
} |
1175 |
vs_check; |
vs_check; |
1176 |
check_arg(2); |
check_arg(2); |
1177 |
vs_top=sup; |
vs_top=sup; |
1178 |
{object V183=base[0]->c.c_cdr; |
{object V190=base[0]->c.c_cdr; |
1179 |
{object V184=getf(V183,VV[139],OBJNULL); |
{object V191=getf(V190,VV[139],OBJNULL); |
1180 |
if(V184==OBJNULL){ |
if(V191==OBJNULL){ |
1181 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
1182 |
base[2]= V184; |
base[2]= V191; |
1183 |
}} |
}} |
1184 |
check_other_key(V183,1,VV[139]);} |
check_other_key(V190,1,VV[139]);} |
1185 |
V185= list(2,VV[57],base[2]); |
V192= list(2,VV[57],base[2]); |
1186 |
if(base[2]==Cnil){ |
if(base[2]==Cnil){ |
1187 |
V186= Cnil; |
V193= Cnil; |
1188 |
goto T349;} |
goto T349;} |
1189 |
V186= VV[59]; |
V193= VV[59]; |
1190 |
goto T349; |
goto T349; |
1191 |
T349:; |
T349:; |
1192 |
base[3]= list(3,VV[27],list(2,/* INLINE-ARGS */V185,list(2,VV[58],V186)),VV[60]); |
base[3]= list(3,VV[27],list(2,/* INLINE-ARGS */V192,list(2,VV[58],V193)),VV[60]); |
1193 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1194 |
return; |
return; |
1195 |
} |
} |
1201 |
vs_check; |
vs_check; |
1202 |
check_arg(2); |
check_arg(2); |
1203 |
vs_top=sup; |
vs_top=sup; |
1204 |
{object V187=base[0]->c.c_cdr; |
{object V194=base[0]->c.c_cdr; |
1205 |
if(endp(V187))invalid_macro_call(); |
if(endp(V194))invalid_macro_call(); |
1206 |
{object V188= (V187->c.c_car); |
{object V195= (V194->c.c_car); |
1207 |
if(endp(V188))invalid_macro_call(); |
if(endp(V195))invalid_macro_call(); |
1208 |
base[2]= (V188->c.c_car); |
base[2]= (V195->c.c_car); |
1209 |
V188=V188->c.c_cdr; |
V195=V195->c.c_cdr; |
1210 |
if(endp(V188))invalid_macro_call(); |
if(endp(V195))invalid_macro_call(); |
1211 |
base[3]= (V188->c.c_car); |
base[3]= (V195->c.c_car); |
1212 |
V188=V188->c.c_cdr; |
V195=V195->c.c_cdr; |
1213 |
if(!endp(V188))invalid_macro_call();} |
if(!endp(V195))invalid_macro_call();} |
1214 |
V187=V187->c.c_cdr; |
V194=V194->c.c_cdr; |
1215 |
if(endp(V187))invalid_macro_call(); |
if(endp(V194))invalid_macro_call(); |
1216 |
base[4]= (V187->c.c_car); |
base[4]= (V194->c.c_car); |
1217 |
V187=V187->c.c_cdr; |
V194=V194->c.c_cdr; |
1218 |
base[5]= V187;} |
base[5]= V194;} |
1219 |
{object V189; |
{object V196; |
1220 |
object V190; |
object V197; |
1221 |
object V191; |
object V198; |
1222 |
base[6]= base[5]; |
base[6]= base[5]; |
1223 |
base[7]= base[1]; |
base[7]= base[1]; |
1224 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1225 |
(void) (*Lnk136)(); |
(void) (*Lnk136)(); |
1226 |
if(vs_base>=vs_top){vs_top=sup;goto T353;} |
if(vs_base>=vs_top){vs_top=sup;goto T353;} |
1227 |
V189= vs_base[0]; |
V196= vs_base[0]; |
1228 |
vs_base++; |
vs_base++; |
1229 |
if(vs_base>=vs_top){vs_top=sup;goto T354;} |
if(vs_base>=vs_top){vs_top=sup;goto T354;} |
1230 |
V190= vs_base[0]; |
V197= vs_base[0]; |
1231 |
vs_base++; |
vs_base++; |
1232 |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
1233 |
V191= vs_base[0]; |
V198= vs_base[0]; |
1234 |
vs_top=sup; |
vs_top=sup; |
1235 |
goto T356; |
goto T356; |
1236 |
goto T353; |
goto T353; |
1237 |
T353:; |
T353:; |
1238 |
V189= Cnil; |
V196= Cnil; |
1239 |
goto T354; |
goto T354; |
1240 |
T354:; |
T354:; |
1241 |
V190= Cnil; |
V197= Cnil; |
1242 |
goto T355; |
goto T355; |
1243 |
T355:; |
T355:; |
1244 |
V191= Cnil; |
V198= Cnil; |
1245 |
goto T356; |
goto T356; |
1246 |
T356:; |
T356:; |
1247 |
V192= list(3,list(2,VV[61],base[4]),base[2],base[3]); |
V199= list(3,list(2,VV[61],base[4]),base[2],base[3]); |
1248 |
V193= list(3,VV[50],base[2],VV[64]); |
V200= list(3,VV[50],base[2],VV[64]); |
1249 |
V194= list(3,VV[50],base[3],VV[66]); |
V201= list(3,VV[50],base[3],VV[66]); |
1250 |
V195= list(6,VV[62],VV[63],/* INLINE-ARGS */V193,VV[65],/* INLINE-ARGS */V194,make_cons(VV[44],(V191))); |
V202= list(6,VV[62],VV[63],/* INLINE-ARGS */V200,VV[65],/* INLINE-ARGS */V201,make_cons(VV[44],(V198))); |
1251 |
V196= make_cons(/* INLINE-ARGS */V195,Cnil); |
V203= make_cons(/* INLINE-ARGS */V202,Cnil); |
1252 |
base[6]= listA(3,VV[24],/* INLINE-ARGS */V192,append((V190),/* INLINE-ARGS */V196)); |
base[6]= listA(3,VV[24],/* INLINE-ARGS */V199,append((V197),/* INLINE-ARGS */V203)); |
1253 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1254 |
return;} |
return;} |
1255 |
} |
} |
1261 |
vs_check; |
vs_check; |
1262 |
check_arg(2); |
check_arg(2); |
1263 |
vs_top=sup; |
vs_top=sup; |
1264 |
{object V197=base[0]->c.c_cdr; |
{object V204=base[0]->c.c_cdr; |
1265 |
if(endp(V197))invalid_macro_call(); |
if(endp(V204))invalid_macro_call(); |
1266 |
base[2]= (V197->c.c_car); |
base[2]= (V204->c.c_car); |
1267 |
V197=V197->c.c_cdr; |
V204=V204->c.c_cdr; |
1268 |
if(endp(V197))invalid_macro_call(); |
if(endp(V204))invalid_macro_call(); |
1269 |
base[3]= (V197->c.c_car); |
base[3]= (V204->c.c_car); |
1270 |
V197=V197->c.c_cdr; |
V204=V204->c.c_cdr; |
1271 |
base[4]= V197;} |
base[4]= V204;} |
1272 |
base[5]= list(4,VV[16],base[2],base[3],make_cons(VV[44],base[4])); |
base[5]= list(4,VV[16],base[2],base[3],make_cons(VV[44],base[4])); |
1273 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1274 |
return; |
return; |
1281 |
vs_check; |
vs_check; |
1282 |
check_arg(2); |
check_arg(2); |
1283 |
vs_top=sup; |
vs_top=sup; |
1284 |
{object V198=base[0]->c.c_cdr; |
{object V205=base[0]->c.c_cdr; |
1285 |
if(endp(V198))invalid_macro_call(); |
if(endp(V205))invalid_macro_call(); |
1286 |
{object V199= (V198->c.c_car); |
{object V206= (V205->c.c_car); |
1287 |
if(endp(V199))invalid_macro_call(); |
if(endp(V206))invalid_macro_call(); |
1288 |
base[2]= (V199->c.c_car); |
base[2]= (V206->c.c_car); |
1289 |
V199=V199->c.c_cdr; |
V206=V206->c.c_cdr; |
1290 |
if(endp(V199))invalid_macro_call(); |
if(endp(V206))invalid_macro_call(); |
1291 |
base[3]= (V199->c.c_car); |
base[3]= (V206->c.c_car); |
1292 |
V199=V199->c.c_cdr; |
V206=V206->c.c_cdr; |
1293 |
if(endp(V199))invalid_macro_call(); |
if(endp(V206))invalid_macro_call(); |
1294 |
base[4]= (V199->c.c_car); |
base[4]= (V206->c.c_car); |
1295 |
V199=V199->c.c_cdr; |
V206=V206->c.c_cdr; |
1296 |
if(!endp(V199))invalid_macro_call();} |
if(!endp(V206))invalid_macro_call();} |
1297 |
V198=V198->c.c_cdr; |
V205=V205->c.c_cdr; |
1298 |
base[5]= V198;} |
base[5]= V205;} |
1299 |
V200= list(2,base[2],Cnil); |
V207= list(2,base[2],Cnil); |
1300 |
V201= list(2,/* INLINE-ARGS */V200,list(2,VV[67],base[3])); |
V208= list(2,/* INLINE-ARGS */V207,list(2,VV[67],base[3])); |
1301 |
V202= listA(3,VV[44],list(3,VV[50],base[2],VV[70]),base[5]); |
V209= listA(3,VV[44],list(3,VV[50],base[2],VV[70]),base[5]); |
1302 |
base[6]= list(3,VV[24],/* INLINE-ARGS */V201,list(3,VV[62],VV[68],list(4,VV[16],VV[69],/* INLINE-ARGS */V202,make_cons(base[4],Cnil)))); |
base[6]= list(3,VV[24],/* INLINE-ARGS */V208,list(3,VV[62],VV[68],list(4,VV[16],VV[69],/* INLINE-ARGS */V209,make_cons(base[4],Cnil)))); |
1303 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1304 |
return; |
return; |
1305 |
} |
} |
1311 |
vs_check; |
vs_check; |
1312 |
check_arg(2); |
check_arg(2); |
1313 |
vs_top=sup; |
vs_top=sup; |
1314 |
{object V203=base[0]->c.c_cdr; |
{object V210=base[0]->c.c_cdr; |
1315 |
if(endp(V203))invalid_macro_call(); |
if(endp(V210))invalid_macro_call(); |
1316 |
{object V204= (V203->c.c_car); |
{object V211= (V210->c.c_car); |
1317 |
if(endp(V204))invalid_macro_call(); |
if(endp(V211))invalid_macro_call(); |
1318 |
base[2]= (V204->c.c_car); |
base[2]= (V211->c.c_car); |
1319 |
V204=V204->c.c_cdr; |
V211=V211->c.c_cdr; |
1320 |
if(endp(V204))invalid_macro_call(); |
if(endp(V211))invalid_macro_call(); |
1321 |
base[3]= (V204->c.c_car); |
base[3]= (V211->c.c_car); |
1322 |
V204=V204->c.c_cdr; |
V211=V211->c.c_cdr; |
1323 |
if(!endp(V204))invalid_macro_call();} |
if(!endp(V211))invalid_macro_call();} |
1324 |
V203=V203->c.c_cdr; |
V210=V210->c.c_cdr; |
1325 |
base[4]= V203;} |
base[4]= V210;} |
1326 |
{register object V205; |
{register object V212; |
1327 |
register object V206; |
register object V213; |
1328 |
object V207; |
object V214; |
1329 |
V205= Cnil; |
V212= Cnil; |
1330 |
V206= Cnil; |
V213= Cnil; |
1331 |
{object V208; |
{object V215; |
1332 |
register object V209; |
register object V216; |
1333 |
if(type_of(base[2])==t_symbol){ |
if(type_of(base[2])==t_symbol){ |
1334 |
goto T361;} |
goto T361;} |
1335 |
if(type_of(base[2])==t_fixnum|| |
if(type_of(base[2])==t_fixnum|| |
1341 |
goto T361;} |
goto T361;} |
1342 |
if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ |
if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ |
1343 |
goto T362;} |
goto T362;} |
1344 |
{register object x= CMPcar(base[2]),V210= VV[38]; |
{register object x= CMPcar(base[2]),V217= VV[38]; |
1345 |
while(V210!=Cnil) |
while(V217!=Cnil) |
1346 |
if(eql(x,V210->c.c_car)){ |
if(eql(x,V217->c.c_car)){ |
1347 |
goto T369; |
goto T369; |
1348 |
}else V210=V210->c.c_cdr; |
}else V217=V217->c.c_cdr; |
1349 |
goto T362;} |
goto T362;} |
1350 |
goto T369; |
goto T369; |
1351 |
T369:; |
T369:; |
1352 |
goto T361; |
goto T361; |
1353 |
T361:; |
T361:; |
1354 |
V208= base[2]; |
V215= base[2]; |
1355 |
goto T360; |
goto T360; |
1356 |
goto T362; |
goto T362; |
1357 |
T362:; |
T362:; |
1358 |
{object V211; |
{object V218; |
1359 |
vs_base=vs_top; |
vs_base=vs_top; |
1360 |
Lgensym(); |
Lgensym(); |
1361 |
vs_top=sup; |
vs_top=sup; |
1362 |
V211= vs_base[0]; |
V218= vs_base[0]; |
1363 |
V205= make_cons(V211,(V205)); |
V212= make_cons(V218,(V212)); |
1364 |
V206= make_cons(base[2],(V206)); |
V213= make_cons(base[2],(V213)); |
1365 |
V208= (V211);} |
V215= (V218);} |
1366 |
goto T360; |
goto T360; |
1367 |
T360:; |
T360:; |
1368 |
if(type_of(base[3])==t_symbol){ |
if(type_of(base[3])==t_symbol){ |
1376 |
goto T376;} |
goto T376;} |
1377 |
if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ |
if(!(type_of(base[3])==t_cons||(base[3])==Cnil)){ |
1378 |
goto T377;} |
goto T377;} |
1379 |
{register object x= CMPcar(base[3]),V214= VV[38]; |
{register object x= CMPcar(base[3]),V221= VV[38]; |
1380 |
while(V214!=Cnil) |
while(V221!=Cnil) |
1381 |
if(eql(x,V214->c.c_car)){ |
if(eql(x,V221->c.c_car)){ |
1382 |
goto T384; |
goto T384; |
1383 |
}else V214=V214->c.c_cdr; |
}else V221=V221->c.c_cdr; |
1384 |
goto T377;} |
goto T377;} |
1385 |
goto T384; |
goto T384; |
1386 |
T384:; |
T384:; |
1387 |
goto T376; |
goto T376; |
1388 |
T376:; |
T376:; |
1389 |
V209= base[3]; |
V216= base[3]; |
1390 |
goto T375; |
goto T375; |
1391 |
goto T377; |
goto T377; |
1392 |
T377:; |
T377:; |
1393 |
{object V215; |
{object V222; |
1394 |
vs_base=vs_top; |
vs_base=vs_top; |
1395 |
Lgensym(); |
Lgensym(); |
1396 |
vs_top=sup; |
vs_top=sup; |
1397 |
V215= vs_base[0]; |
V222= vs_base[0]; |
1398 |
V205= make_cons(V215,(V205)); |
V212= make_cons(V222,(V212)); |
1399 |
V206= make_cons(base[3],(V206)); |
V213= make_cons(base[3],(V213)); |
1400 |
V209= (V215);} |
V216= (V222);} |
1401 |
goto T375; |
goto T375; |
1402 |
T375:; |
T375:; |
1403 |
V218= list(3,VV[71],(V209),VV[72]); |
V225= list(3,VV[71],(V216),VV[72]); |
1404 |
V219= list(3,VV[71],(V209),VV[73]); |
V226= list(3,VV[71],(V216),VV[73]); |
1405 |
V220= list(3,VV[74],(V208),(V209)); |
V227= list(3,VV[74],(V215),(V216)); |
1406 |
V221= list(3,/* INLINE-ARGS */V219,/* INLINE-ARGS */V220,list(3,VV[71],(V209),VV[75])); |
V228= list(3,/* INLINE-ARGS */V226,/* INLINE-ARGS */V227,list(3,VV[71],(V216),VV[75])); |
1407 |
V207= listA(3,VV[44],/* INLINE-ARGS */V218,append(base[4],/* INLINE-ARGS */V221));} |
V214= listA(3,VV[44],/* INLINE-ARGS */V225,append(base[4],/* INLINE-ARGS */V228));} |
1408 |
V226= reverse((V205)); |
V233= reverse((V212)); |
1409 |
V227= reverse((V206)); |
V234= reverse((V213)); |
1410 |
{object V223; |
{object V230; |
1411 |
object V224= /* INLINE-ARGS */V226; |
object V231= /* INLINE-ARGS */V233; |
1412 |
object V225= /* INLINE-ARGS */V227; |
object V232= /* INLINE-ARGS */V234; |
1413 |
if(V224==Cnil||V225==Cnil){ |
if(V231==Cnil||V232==Cnil){ |
1414 |
V222= Cnil; |
V229= Cnil; |
1415 |
goto T390;} |
goto T390;} |
1416 |
base[6]=V223=MMcons(Cnil,Cnil); |
base[6]=V230=MMcons(Cnil,Cnil); |
1417 |
goto T391; |
goto T391; |
1418 |
T391:; |
T391:; |
1419 |
(V223->c.c_car)= list(2,(V224->c.c_car),(V225->c.c_car)); |
(V230->c.c_car)= list(2,(V231->c.c_car),(V232->c.c_car)); |
1420 |
if((V224=MMcdr(V224))==Cnil||(V225=MMcdr(V225))==Cnil){ |
if((V231=MMcdr(V231))==Cnil||(V232=MMcdr(V232))==Cnil){ |
1421 |
V222= base[6]; |
V229= base[6]; |
1422 |
goto T390;} |
goto T390;} |
1423 |
V223=MMcdr(V223)=MMcons(Cnil,Cnil); |
V230=MMcdr(V230)=MMcons(Cnil,Cnil); |
1424 |
goto T391;} |
goto T391;} |
1425 |
goto T390; |
goto T390; |
1426 |
T390:; |
T390:; |
1427 |
base[6]= list(3,VV[24],V222,(V207)); |
V235 = (V214); |
1428 |
|
base[6]= list(3,VV[24],V229,V235); |
1429 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1430 |
return;} |
return;} |
1431 |
} |
} |
1432 |
/* local entry for function PRINTING-RANDOM-THING-INTERNAL */ |
/* local entry for function PRINTING-RANDOM-THING-INTERNAL */ |
1433 |
|
|
1434 |
static object LI32(V230,V231) |
static object LI32(V238,V239) |
1435 |
|
|
1436 |
object V230;object V231; |
object V238;object V239; |
1437 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1438 |
goto TTL; |
goto TTL; |
1439 |
TTL:; |
TTL:; |
1440 |
{object V232 = Cnil; |
{object V240 = Cnil; |
1441 |
VMR31(V232)} |
VMR31(V240)} |
1442 |
return Cnil; |
return Cnil; |
1443 |
} |
} |
1444 |
/* local entry for function CAPITALIZE-WORDS */ |
/* local entry for function CAPITALIZE-WORDS */ |
1445 |
|
|
1446 |
static object LI33(object V233,object first,...) |
static object LI33(object V241,object first,...) |
1447 |
{ |
{ |
1448 |
va_list ap; |
va_list ap; |
1449 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
int narg = VFUN_NARGS; VMB32 VMS32 VMV32 |
1450 |
{object V234; |
{object V242; |
1451 |
register object V235; |
register object V243; |
1452 |
va_start(ap,first); |
va_start(ap,first); |
1453 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1454 |
V234= V233; |
V242= V241; |
1455 |
narg = narg - 1; |
narg = narg - 1; |
1456 |
if (narg <= 0) goto T393; |
if (narg <= 0) goto T393; |
1457 |
else { |
else { |
1458 |
V235= first;} |
V243= first;} |
1459 |
--narg; goto T394; |
--narg; goto T394; |
1460 |
goto T393; |
goto T393; |
1461 |
T393:; |
T393:; |
1462 |
V235= Ct; |
V243= Ct; |
1463 |
goto T394; |
goto T394; |
1464 |
T394:; |
T394:; |
1465 |
{register object V236; |
{register object V244; |
1466 |
base[0]= coerce_to_string((V234)); |
base[0]= coerce_to_string((V242)); |
1467 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1468 |
Lcopy_seq(); |
Lcopy_seq(); |
1469 |
vs_top=sup; |
vs_top=sup; |
1470 |
V236= vs_base[0]; |
V244= vs_base[0]; |
1471 |
{register object V237; |
{register object V245; |
1472 |
register object V238; |
register object V246; |
1473 |
register object V239; |
register object V247; |
1474 |
register object V240; |
register object V248; |
1475 |
V237= Ct; |
V245= Ct; |
1476 |
V238= CMPmake_fixnum((long)((V236))->v.v_fillp); |
V246= CMPmake_fixnum((long)((V244))->v.v_fillp); |
1477 |
V239= Cnil; |
V247= Cnil; |
1478 |
V240= small_fixnum(0); |
V248= small_fixnum(0); |
1479 |
goto T403; |
goto T403; |
1480 |
T403:; |
T403:; |
1481 |
if(!(number_compare((V240),(V238))==0)){ |
if(!(number_compare((V248),(V246))==0)){ |
1482 |
goto T404;} |
goto T404;} |
1483 |
{object V241 = (V236); |
{object V249 = (V244); |
1484 |
VMR32(V241)} |
VMR32(V249)} |
1485 |
goto T404; |
goto T404; |
1486 |
T404:; |
T404:; |
1487 |
V239= elt((V236),fix((V240))); |
V247= elt((V244),fix((V248))); |
1488 |
base[1]= (V239); |
base[1]= (V247); |
1489 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1490 |
Lboth_case_p(); |
Lboth_case_p(); |
1491 |
vs_top=sup; |
vs_top=sup; |
1492 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1493 |
goto T412;} |
goto T412;} |
1494 |
if(((V237))==Cnil){ |
if(((V245))==Cnil){ |
1495 |
goto T417;} |
goto T417;} |
1496 |
base[1]= (V239); |
base[1]= (V247); |
1497 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1498 |
Llower_case_p(); |
Llower_case_p(); |
1499 |
vs_top=sup; |
vs_top=sup; |
1500 |
V237= vs_base[0]; |
V245= vs_base[0]; |
1501 |
if(((V237))!=Cnil){ |
if(((V245))!=Cnil){ |
1502 |
goto T419;} |
goto T419;} |
1503 |
goto T415; |
goto T415; |
1504 |
goto T419; |
goto T419; |
1505 |
T419:; |
T419:; |
1506 |
base[1]= (V239); |
V250 = (V244); |
1507 |
|
V251 = (V248); |
1508 |
|
base[1]= (V247); |
1509 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1510 |
Lchar_upcase(); |
Lchar_upcase(); |
1511 |
vs_top=sup; |
vs_top=sup; |
1512 |
V242= vs_base[0]; |
V252= vs_base[0]; |
1513 |
(void)(elt_set((V236),fix((V240)),V242)); |
(void)(elt_set(V250,fix(V251),V252)); |
1514 |
goto T415; |
goto T415; |
1515 |
goto T417; |
goto T417; |
1516 |
T417:; |
T417:; |
1517 |
if(((V237))==Cnil){ |
if(((V245))==Cnil){ |
1518 |
goto T425;} |
goto T425;} |
1519 |
goto T415; |
goto T415; |
1520 |
goto T425; |
goto T425; |
1521 |
T425:; |
T425:; |
1522 |
base[1]= (V239); |
V253 = (V244); |
1523 |
|
V254 = (V248); |
1524 |
|
base[1]= (V247); |
1525 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1526 |
Lchar_downcase(); |
Lchar_downcase(); |
1527 |
vs_top=sup; |
vs_top=sup; |
1528 |
V243= vs_base[0]; |
V255= vs_base[0]; |
1529 |
(void)(elt_set((V236),fix((V240)),V243)); |
(void)(elt_set(V253,fix(V254),V255)); |
1530 |
goto T415; |
goto T415; |
1531 |
T415:; |
T415:; |
1532 |
V237= Cnil; |
V245= Cnil; |
1533 |
goto T410; |
goto T410; |
1534 |
goto T412; |
goto T412; |
1535 |
T412:; |
T412:; |
1536 |
base[1]= (V239); |
base[1]= (V247); |
1537 |
base[2]= VV[76]; |
base[2]= VV[76]; |
1538 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1539 |
Lchar_equal(); |
Lchar_equal(); |
1540 |
vs_top=sup; |
vs_top=sup; |
1541 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1542 |
goto T431;} |
goto T431;} |
1543 |
V237= Ct; |
V245= Ct; |
1544 |
if(((V235))!=Cnil){ |
if(((V243))!=Cnil){ |
1545 |
goto T410;} |
goto T410;} |
1546 |
(void)(elt_set((V236),fix((V240)),VV[77])); |
(void)(elt_set((V244),fix((V248)),VV[77])); |
1547 |
goto T410; |
goto T410; |
1548 |
goto T431; |
goto T431; |
1549 |
T431:; |
T431:; |
1550 |
V237= Cnil; |
V245= Cnil; |
1551 |
goto T410; |
goto T410; |
1552 |
T410:; |
T410:; |
1553 |
V240= number_plus((V240),small_fixnum(1)); |
V248= number_plus((V248),small_fixnum(1)); |
1554 |
goto T403;}} |
goto T403;}} |
1555 |
va_end(ap); |
va_end(ap); |
1556 |
base[0]=base[0]; |
base[0]=base[0]; |
1564 |
vs_check; |
vs_check; |
1565 |
check_arg(2); |
check_arg(2); |
1566 |
vs_top=sup; |
vs_top=sup; |
1567 |
{object V244=base[0]->c.c_cdr; |
{object V256=base[0]->c.c_cdr; |
1568 |
if(endp(V244))invalid_macro_call(); |
if(endp(V256))invalid_macro_call(); |
1569 |
base[2]= (V244->c.c_car); |
base[2]= (V256->c.c_car); |
1570 |
V244=V244->c.c_cdr; |
V256=V256->c.c_cdr; |
1571 |
if(endp(V244))invalid_macro_call(); |
if(endp(V256))invalid_macro_call(); |
1572 |
base[3]= (V244->c.c_car); |
base[3]= (V256->c.c_car); |
1573 |
V244=V244->c.c_cdr; |
V256=V256->c.c_cdr; |
1574 |
base[4]= V244;} |
base[4]= V256;} |
1575 |
base[5]= listA(4,VV[78],base[2],base[3],base[4]); |
base[5]= listA(4,VV[78],base[2],base[3],base[4]); |
1576 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1577 |
return; |
return; |
1578 |
} |
} |
1579 |
/* local entry for function MAKE-CONSTANT-FUNCTION */ |
/* local entry for function MAKE-CONSTANT-FUNCTION */ |
1580 |
|
|
1581 |
static object LI36(V246) |
static object LI36(V258) |
1582 |
|
|
1583 |
object V246; |
object V258; |
1584 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
1585 |
goto TTL; |
goto TTL; |
1586 |
TTL:; |
TTL:; |
1587 |
base[0]=MMcons((V246),Cnil); |
base[0]=MMcons((V258),Cnil); |
1588 |
{object V247 = |
{object V259 = |
1589 |
make_cclosure_new(LC65,Cnil,base[0],Cdata); |
make_cclosure_new(LC65,Cnil,base[0],Cdata); |
1590 |
VMR34(V247)} |
VMR34(V259)} |
1591 |
base[0]=base[0]; |
base[0]=base[0]; |
1592 |
return Cnil; |
return Cnil; |
1593 |
} |
} |
1594 |
/* local entry for function FUNCTION-RETURNING-NIL */ |
/* local entry for function FUNCTION-RETURNING-NIL */ |
1595 |
|
|
1596 |
static object LI37(V249) |
static object LI37(V261) |
1597 |
|
|
1598 |
object V249; |
object V261; |
1599 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
1600 |
goto TTL; |
goto TTL; |
1601 |
TTL:; |
TTL:; |
1602 |
{object V250 = Cnil; |
{object V262 = Cnil; |
1603 |
VMR35(V250)} |
VMR35(V262)} |
1604 |
return Cnil; |
return Cnil; |
1605 |
} |
} |
1606 |
/* local entry for function FUNCTION-RETURNING-T */ |
/* local entry for function FUNCTION-RETURNING-T */ |
1607 |
|
|
1608 |
static object LI38(V252) |
static object LI38(V264) |
1609 |
|
|
1610 |
object V252; |
object V264; |
1611 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
1612 |
goto TTL; |
goto TTL; |
1613 |
TTL:; |
TTL:; |
1614 |
{object V253 = Ct; |
{object V265 = Ct; |
1615 |
VMR36(V253)} |
VMR36(V265)} |
1616 |
return Cnil; |
return Cnil; |
1617 |
} |
} |
1618 |
/* macro definition for FIND-CLASS-CELL-CLASS */ |
/* macro definition for FIND-CLASS-CELL-CLASS */ |
1623 |
vs_check; |
vs_check; |
1624 |
check_arg(2); |
check_arg(2); |
1625 |
vs_top=sup; |
vs_top=sup; |
1626 |
{object V254=base[0]->c.c_cdr; |
{object V266=base[0]->c.c_cdr; |
1627 |
if(endp(V254))invalid_macro_call(); |
if(endp(V266))invalid_macro_call(); |
1628 |
base[2]= (V254->c.c_car); |
base[2]= (V266->c.c_car); |
1629 |
V254=V254->c.c_cdr; |
V266=V266->c.c_cdr; |
1630 |
if(!endp(V254))invalid_macro_call();} |
if(!endp(V266))invalid_macro_call();} |
1631 |
base[3]= list(2,VV[22],base[2]); |
base[3]= list(2,VV[22],base[2]); |
1632 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1633 |
return; |
return; |
1640 |
vs_check; |
vs_check; |
1641 |
check_arg(2); |
check_arg(2); |
1642 |
vs_top=sup; |
vs_top=sup; |
1643 |
{object V255=base[0]->c.c_cdr; |
{object V267=base[0]->c.c_cdr; |
1644 |
if(endp(V255))invalid_macro_call(); |
if(endp(V267))invalid_macro_call(); |
1645 |
base[2]= (V255->c.c_car); |
base[2]= (V267->c.c_car); |
1646 |
V255=V255->c.c_cdr; |
V267=V267->c.c_cdr; |
1647 |
if(!endp(V255))invalid_macro_call();} |
if(!endp(V267))invalid_macro_call();} |
1648 |
base[3]= list(2,VV[79],base[2]); |
base[3]= list(2,VV[79],base[2]); |
1649 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1650 |
return; |
return; |
1657 |
vs_check; |
vs_check; |
1658 |
check_arg(2); |
check_arg(2); |
1659 |
vs_top=sup; |
vs_top=sup; |
1660 |
{object V256=base[0]->c.c_cdr; |
{object V268=base[0]->c.c_cdr; |
1661 |
if(endp(V256))invalid_macro_call(); |
if(endp(V268))invalid_macro_call(); |
1662 |
base[2]= (V256->c.c_car); |
base[2]= (V268->c.c_car); |
1663 |
V256=V256->c.c_cdr; |
V268=V268->c.c_cdr; |
1664 |
if(!endp(V256))invalid_macro_call();} |
if(!endp(V268))invalid_macro_call();} |
1665 |
base[3]= list(2,VV[80],base[2]); |
base[3]= list(2,VV[80],base[2]); |
1666 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1667 |
return; |
return; |
1674 |
vs_check; |
vs_check; |
1675 |
check_arg(2); |
check_arg(2); |
1676 |
vs_top=sup; |
vs_top=sup; |
1677 |
{object V257=base[0]->c.c_cdr; |
{object V269=base[0]->c.c_cdr; |
1678 |
if(endp(V257))invalid_macro_call(); |
if(endp(V269))invalid_macro_call(); |
1679 |
base[2]= (V257->c.c_car); |
base[2]= (V269->c.c_car); |
1680 |
V257=V257->c.c_cdr; |
V269=V269->c.c_cdr; |
1681 |
if(!endp(V257))invalid_macro_call();} |
if(!endp(V269))invalid_macro_call();} |
1682 |
base[3]= VV[81]; |
base[3]= VV[81]; |
1683 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1684 |
return; |
return; |
1685 |
} |
} |
1686 |
/* local entry for function FIND-CLASS-CELL */ |
/* local entry for function FIND-CLASS-CELL */ |
1687 |
|
|
1688 |
static object LI43(object V258,object first,...) |
static object LI43(object V270,object first,...) |
1689 |
{ |
{ |
1690 |
va_list ap; |
va_list ap; |
1691 |
int narg = VFUN_NARGS; VMB41 VMS41 VMV41 |
int narg = VFUN_NARGS; VMB41 VMS41 VMV41 |
1692 |
{register object V259; |
{register object V271; |
1693 |
object V260; |
object V272; |
1694 |
va_start(ap,first); |
va_start(ap,first); |
1695 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1696 |
V259= V258; |
V271= V270; |
1697 |
narg = narg - 1; |
narg = narg - 1; |
1698 |
if (narg <= 0) goto T449; |
if (narg <= 0) goto T449; |
1699 |
else { |
else { |
1700 |
V260= first;} |
V272= first;} |
1701 |
--narg; goto T450; |
--narg; goto T450; |
1702 |
goto T449; |
goto T449; |
1703 |
T449:; |
T449:; |
1704 |
V260= Cnil; |
V272= Cnil; |
1705 |
goto T450; |
goto T450; |
1706 |
T450:;{object V261; |
T450:;{object V273; |
1707 |
base[0]= (V259); |
base[0]= (V271); |
1708 |
base[1]= (VV[82]->s.s_dbind); |
base[1]= (VV[82]->s.s_dbind); |
1709 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1710 |
Lgethash(); |
Lgethash(); |
1711 |
vs_top=sup; |
vs_top=sup; |
1712 |
V261= vs_base[0]; |
V273= vs_base[0]; |
1713 |
if(V261==Cnil)goto T452; |
if(V273==Cnil)goto T452; |
1714 |
{object V262 = V261; |
{object V274 = V273; |
1715 |
VMR41(V262)} |
VMR41(V274)} |
1716 |
goto T452; |
goto T452; |
1717 |
T452:;} |
T452:;} |
1718 |
if(((V260))!=Cnil){ |
if(((V272))!=Cnil){ |
1719 |
goto T457;} |
goto T457;} |
1720 |
if(((*(LnkLI140))((V259)))!=Cnil){ |
if(((*(LnkLI140))((V271)))!=Cnil){ |
1721 |
goto T459;} |
goto T459;} |
1722 |
base[0]= VV[83]; |
base[0]= VV[83]; |
1723 |
base[1]= (V259); |
base[1]= (V271); |
1724 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1725 |
Lerror(); |
Lerror(); |
1726 |
vs_top=sup; |
vs_top=sup; |
1727 |
goto T459; |
goto T459; |
1728 |
T459:; |
T459:; |
1729 |
{object V264; |
{object V276; |
1730 |
object V265; |
object V277; |
1731 |
V264= (VV[82]->s.s_dbind); |
V276= (VV[82]->s.s_dbind); |
1732 |
V266= (VV[141]->s.s_gfdef); |
V278= (VV[141]->s.s_gfdef); |
1733 |
V265= listA(3,Cnil,V266,Cnil); |
V277= listA(3,Cnil,V278,Cnil); |
1734 |
base[1]= V259; |
base[1]= V271; |
1735 |
base[2]= (V264); |
base[2]= (V276); |
1736 |
base[3]= (V265); |
base[3]= (V277); |
1737 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1738 |
siLhash_set(); |
siLhash_set(); |
1739 |
vs_top=sup; |
vs_top=sup; |
1740 |
{object V267 = vs_base[0]; |
{object V279 = vs_base[0]; |
1741 |
VMR41(V267)}} |
VMR41(V279)}} |
1742 |
goto T457; |
goto T457; |
1743 |
T457:; |
T457:; |
1744 |
{object V268 = Cnil; |
{object V280 = Cnil; |
1745 |
VMR41(V268)} |
VMR41(V280)} |
1746 |
va_end(ap); |
va_end(ap); |
1747 |
base[0]=base[0]; |
base[0]=base[0]; |
1748 |
return Cnil;} |
return Cnil;} |
1749 |
} |
} |
1750 |
/* local entry for function FIND-CLASS-FROM-CELL */ |
/* local entry for function FIND-CLASS-FROM-CELL */ |
1751 |
|
|
1752 |
static object LI44(object V270,object V269,object first,...) |
static object LI44(object V282,object V281,object first,...) |
1753 |
{ |
{ |
1754 |
va_list ap; |
va_list ap; |
1755 |
int narg = VFUN_NARGS; VMB42 VMS42 VMV42 |
int narg = VFUN_NARGS; VMB42 VMS42 VMV42 |
1756 |
{register object V271; |
{register object V283; |
1757 |
object V272; |
object V284; |
1758 |
object V273; |
object V285; |
1759 |
va_start(ap,first); |
va_start(ap,first); |
1760 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1761 |
V271= V270; |
V283= V282; |
1762 |
V272= V269; |
V284= V281; |
1763 |
narg = narg - 2; |
narg = narg - 2; |
1764 |
if (narg <= 0) goto T470; |
if (narg <= 0) goto T470; |
1765 |
else { |
else { |
1766 |
V273= first;} |
V285= first;} |
1767 |
--narg; goto T471; |
--narg; goto T471; |
1768 |
goto T470; |
goto T470; |
1769 |
T470:; |
T470:; |
1770 |
V273= Ct; |
V285= Ct; |
1771 |
goto T471; |
goto T471; |
1772 |
T471:;{object V274; |
T471:;{object V286; |
1773 |
V274= CMPcar((V272)); |
V286= CMPcar((V284)); |
1774 |
if(V274==Cnil)goto T473; |
if(V286==Cnil)goto T473; |
1775 |
{object V275 = V274; |
{object V287 = V286; |
1776 |
VMR42(V275)} |
VMR42(V287)} |
1777 |
goto T473; |
goto T473; |
1778 |
T473:;}{object V276; |
T473:;}{object V288; |
1779 |
if((VV[84]->s.s_dbind)==Cnil){ |
if((VV[84]->s.s_dbind)==Cnil){ |
1780 |
V276= Cnil; |
V288= Cnil; |
1781 |
goto T476;} |
goto T476;} |
1782 |
if(((*(LnkLI142))((V271)))!=Cnil){ |
if(((*(LnkLI142))((V283)))!=Cnil){ |
1783 |
goto T477;} |
goto T477;} |
1784 |
V276= Cnil; |
V288= Cnil; |
1785 |
goto T476; |
goto T476; |
1786 |
goto T477; |
goto T477; |
1787 |
T477:; |
T477:; |
1788 |
base[0]= (V271); |
base[0]= (V283); |
1789 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1790 |
(void) (*Lnk143)(); |
(void) (*Lnk143)(); |
1791 |
vs_top=sup; |
vs_top=sup; |
1792 |
V276= vs_base[0]; |
V288= vs_base[0]; |
1793 |
goto T476; |
goto T476; |
1794 |
T476:; |
T476:; |
1795 |
if(V276==Cnil)goto T475; |
if(V288==Cnil)goto T475; |
1796 |
{object V277 = V276; |
{object V289 = V288; |
1797 |
VMR42(V277)} |
VMR42(V289)} |
1798 |
goto T475; |
goto T475; |
1799 |
T475:;} |
T475:;} |
1800 |
if(((V273))!=Cnil){ |
if(((V285))!=Cnil){ |
1801 |
goto T481;} |
goto T481;} |
1802 |
{object V278 = Cnil; |
{object V290 = Cnil; |
1803 |
VMR42(V278)} |
VMR42(V290)} |
1804 |
goto T481; |
goto T481; |
1805 |
T481:; |
T481:; |
1806 |
if(((*(LnkLI140))((V271)))==Cnil){ |
if(((*(LnkLI140))((V283)))==Cnil){ |
1807 |
goto T484;} |
goto T484;} |
1808 |
base[0]= VV[85]; |
base[0]= VV[85]; |
1809 |
base[1]= (V271); |
base[1]= (V283); |
1810 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1811 |
Lerror(); |
Lerror(); |
1812 |
vs_top=sup; |
vs_top=sup; |
1813 |
{object V279 = vs_base[0]; |
{object V291 = vs_base[0]; |
1814 |
VMR42(V279)} |
VMR42(V291)} |
1815 |
goto T484; |
goto T484; |
1816 |
T484:; |
T484:; |
1817 |
base[0]= VV[86]; |
base[0]= VV[86]; |
1818 |
base[1]= (V271); |
base[1]= (V283); |
1819 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1820 |
Lerror(); |
Lerror(); |
1821 |
vs_top=sup; |
vs_top=sup; |
1822 |
{object V280 = vs_base[0]; |
{object V292 = vs_base[0]; |
1823 |
VMR42(V280)} |
VMR42(V292)} |
1824 |
va_end(ap); |
va_end(ap); |
1825 |
base[0]=base[0]; |
base[0]=base[0]; |
1826 |
return Cnil;} |
return Cnil;} |
1827 |
} |
} |
1828 |
/* local entry for function FIND-CLASS-PREDICATE-FROM-CELL */ |
/* local entry for function FIND-CLASS-PREDICATE-FROM-CELL */ |
1829 |
|
|
1830 |
static object LI45(object V282,object V281,object first,...) |
static object LI45(object V294,object V293,object first,...) |
1831 |
{ |
{ |
1832 |
va_list ap; |
va_list ap; |
1833 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
1834 |
{object V283; |
{object V295; |
1835 |
object V284; |
object V296; |
1836 |
object V285; |
object V297; |
1837 |
va_start(ap,first); |
va_start(ap,first); |
1838 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1839 |
V283= V282; |
V295= V294; |
1840 |
V284= V281; |
V296= V293; |
1841 |
narg = narg - 2; |
narg = narg - 2; |
1842 |
if (narg <= 0) goto T490; |
if (narg <= 0) goto T490; |
1843 |
else { |
else { |
1844 |
V285= first;} |
V297= first;} |
1845 |
--narg; goto T491; |
--narg; goto T491; |
1846 |
goto T490; |
goto T490; |
1847 |
T490:; |
T490:; |
1848 |
V285= Ct; |
V297= Ct; |
1849 |
goto T491; |
goto T491; |
1850 |
T491:; |
T491:; |
1851 |
if((CMPcar((V284)))!=Cnil){ |
if((CMPcar((V296)))!=Cnil){ |
1852 |
goto T493;} |
goto T493;} |
1853 |
(void)((VFUN_NARGS=3,(*(LnkLI144))((V283),(V284),(V285)))); |
(void)((VFUN_NARGS=3,(*(LnkLI144))((V295),(V296),(V297)))); |
1854 |
goto T493; |
goto T493; |
1855 |
T493:; |
T493:; |
1856 |
{object V286 = CMPcadr((V284)); |
{object V298 = CMPcadr((V296)); |
1857 |
VMR43(V286)} |
VMR43(V298)} |
1858 |
va_end(ap); |
va_end(ap); |
1859 |
return Cnil;} |
return Cnil;} |
1860 |
} |
} |
1861 |
/* local entry for function LEGAL-CLASS-NAME-P */ |
/* local entry for function LEGAL-CLASS-NAME-P */ |
1862 |
|
|
1863 |
static object LI46(V288) |
static object LI46(V300) |
1864 |
|
|
1865 |
object V288; |
object V300; |
1866 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
1867 |
goto TTL; |
goto TTL; |
1868 |
TTL:; |
TTL:; |
1869 |
if(type_of((V288))==t_symbol){ |
if(type_of((V300))==t_symbol){ |
1870 |
goto T496;} |
goto T496;} |
1871 |
{object V289 = Cnil; |
{object V301 = Cnil; |
1872 |
VMR44(V289)} |
VMR44(V301)} |
1873 |
goto T496; |
goto T496; |
1874 |
T496:; |
T496:; |
1875 |
{object V290 = ((((type_of((V288))==t_symbol&&((V288))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V302 = ((((type_of((V300))==t_symbol&&((V300))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil?Ct:Cnil); |
1876 |
VMR44(V290)} |
VMR44(V302)} |
1877 |
return Cnil; |
return Cnil; |
1878 |
} |
} |
1879 |
/* local entry for function FIND-CLASS */ |
/* local entry for function FIND-CLASS */ |
1880 |
|
|
1881 |
static object LI47(object V291,object first,...) |
static object LI47(object V303,object first,...) |
1882 |
{ |
{ |
1883 |
va_list ap; |
va_list ap; |
1884 |
int narg = VFUN_NARGS; VMB45 VMS45 VMV45 |
int narg = VFUN_NARGS; VMB45 VMS45 VMV45 |
1885 |
{object V292; |
{object V304; |
1886 |
object V293; |
object V305; |
1887 |
object V294; |
object V306; |
1888 |
va_start(ap,first); |
va_start(ap,first); |
1889 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1890 |
V292= V291; |
V304= V303; |
1891 |
narg = narg - 1; |
narg = narg - 1; |
1892 |
if (narg <= 0) goto T498; |
if (narg <= 0) goto T498; |
1893 |
else { |
else { |
1894 |
V293= first;} |
V305= first;} |
1895 |
if (--narg <= 0) goto T499; |
if (--narg <= 0) goto T499; |
1896 |
else { |
else { |
1897 |
V294= va_arg(ap,object);} |
V306= va_arg(ap,object);} |
1898 |
--narg; goto T500; |
--narg; goto T500; |
1899 |
goto T498; |
goto T498; |
1900 |
T498:; |
T498:; |
1901 |
V293= Ct; |
V305= Ct; |
1902 |
goto T499; |
goto T499; |
1903 |
T499:; |
T499:; |
1904 |
V294= Cnil; |
V306= Cnil; |
1905 |
goto T500; |
goto T500; |
1906 |
T500:; |
T500:; |
1907 |
V295= (VFUN_NARGS=2,(*(LnkLI145))((V292),(V293))); |
V307 = (V304); |
1908 |
{object V296 = (VFUN_NARGS=3,(*(LnkLI144))((V292),/* INLINE-ARGS */V295,(V293))); |
V308= (VFUN_NARGS=2,(*(LnkLI145))((V304),(V305))); |
1909 |
VMR45(V296)} |
V309 = (V305); |
1910 |
|
{object V310 = (VFUN_NARGS=3,(*(LnkLI144))(V307,/* INLINE-ARGS */V308,V309)); |
1911 |
|
VMR45(V310)} |
1912 |
va_end(ap); |
va_end(ap); |
1913 |
return Cnil;} |
return Cnil;} |
1914 |
} |
} |
1915 |
/* local entry for function FIND-CLASS-PREDICATE */ |
/* local entry for function FIND-CLASS-PREDICATE */ |
1916 |
|
|
1917 |
static object LI48(object V297,object first,...) |
static object LI48(object V311,object first,...) |
1918 |
{ |
{ |
1919 |
va_list ap; |
va_list ap; |
1920 |
int narg = VFUN_NARGS; VMB46 VMS46 VMV46 |
int narg = VFUN_NARGS; VMB46 VMS46 VMV46 |
1921 |
{object V298; |
{object V312; |
1922 |
object V299; |
object V313; |
1923 |
object V300; |
object V314; |
1924 |
va_start(ap,first); |
va_start(ap,first); |
1925 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1926 |
V298= V297; |
V312= V311; |
1927 |
narg = narg - 1; |
narg = narg - 1; |
1928 |
if (narg <= 0) goto T503; |
if (narg <= 0) goto T503; |
1929 |
else { |
else { |
1930 |
V299= first;} |
V313= first;} |
1931 |
if (--narg <= 0) goto T504; |
if (--narg <= 0) goto T504; |
1932 |
else { |
else { |
1933 |
V300= va_arg(ap,object);} |
V314= va_arg(ap,object);} |
1934 |
--narg; goto T505; |
--narg; goto T505; |
1935 |
goto T503; |
goto T503; |
1936 |
T503:; |
T503:; |
1937 |
V299= Ct; |
V313= Ct; |
1938 |
goto T504; |
goto T504; |
1939 |
T504:; |
T504:; |
1940 |
V300= Cnil; |
V314= Cnil; |
1941 |
goto T505; |
goto T505; |
1942 |
T505:; |
T505:; |
1943 |
V301= (VFUN_NARGS=2,(*(LnkLI145))((V298),(V299))); |
V315 = (V312); |
1944 |
{object V302 = (VFUN_NARGS=3,(*(LnkLI146))((V298),/* INLINE-ARGS */V301,(V299))); |
V316= (VFUN_NARGS=2,(*(LnkLI145))((V312),(V313))); |
1945 |
VMR46(V302)} |
V317 = (V313); |
1946 |
|
{object V318 = (VFUN_NARGS=3,(*(LnkLI146))(V315,/* INLINE-ARGS */V316,V317)); |
1947 |
|
VMR46(V318)} |
1948 |
va_end(ap); |
va_end(ap); |
1949 |
return Cnil;} |
return Cnil;} |
1950 |
} |
} |
1951 |
/* local entry for function SETF PCL FIND-CLASS */ |
/* local entry for function SETF PCL FIND-CLASS */ |
1952 |
|
|
1953 |
static object LI49(V305,V306) |
static object LI49(V321,V322) |
1954 |
|
|
1955 |
register object V305;object V306; |
register object V321;object V322; |
1956 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
1957 |
goto TTL; |
goto TTL; |
1958 |
TTL:; |
TTL:; |
1959 |
if(((*(LnkLI140))((V306)))==Cnil){ |
if(((*(LnkLI140))((V322)))==Cnil){ |
1960 |
goto T509;} |
goto T509;} |
1961 |
{object V307; |
{object V323; |
1962 |
V307= (VFUN_NARGS=1,(*(LnkLI145))((V306))); |
V323= (VFUN_NARGS=1,(*(LnkLI145))((V322))); |
1963 |
(V307)->c.c_car = V305; |
(V323)->c.c_car = V321; |
1964 |
if(((VV[87]->s.s_dbind))==(VV[88])){ |
if(((VV[87]->s.s_dbind))==(VV[88])){ |
1965 |
goto T514;} |
goto T514;} |
1966 |
if(!(((VV[87]->s.s_dbind))==(VV[89]))){ |
if(!(((VV[87]->s.s_dbind))==(VV[89]))){ |
1967 |
goto T515;} |
goto T515;} |
1968 |
goto T514; |
goto T514; |
1969 |
T514:; |
T514:; |
1970 |
{object V311; |
{object V327; |
1971 |
base[2]= (V305); |
base[2]= (V321); |
1972 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1973 |
(void) (*Lnk147)(Lclptr147); |
(void) (*Lnk147)(Lclptr147); |
1974 |
vs_top=sup; |
vs_top=sup; |
1976 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1977 |
Lsymbol_function(); |
Lsymbol_function(); |
1978 |
vs_top=sup; |
vs_top=sup; |
1979 |
V311= vs_base[0]; |
V327= vs_base[0]; |
1980 |
(CMPcdr(V307))->c.c_car = (V311); |
(CMPcdr(V323))->c.c_car = (V327); |
1981 |
(void)(CMPcdr(V307));} |
(void)(CMPcdr(V323));} |
1982 |
if(((V305))==Cnil){ |
if(((V321))==Cnil){ |
1983 |
goto T525;} |
goto T525;} |
1984 |
base[0]= (V305); |
base[0]= (V321); |
1985 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1986 |
(void) (*Lnk148)(Lclptr148); |
(void) (*Lnk148)(Lclptr148); |
1987 |
vs_top=sup; |
vs_top=sup; |
1988 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1989 |
goto T525;} |
goto T525;} |
1990 |
{register object V312; |
{register object V328; |
1991 |
register object V313; |
register object V329; |
1992 |
V312= CMPcddr((V307)); |
V328= CMPcddr((V323)); |
1993 |
V313= CMPcar((V312)); |
V329= CMPcar((V328)); |
1994 |
goto T533; |
goto T533; |
1995 |
T533:; |
T533:; |
1996 |
if(!(((V312))==Cnil)){ |
if(!(((V328))==Cnil)){ |
1997 |
goto T534;} |
goto T534;} |
1998 |
{object V314 = Cnil; |
{object V330 = Cnil; |
1999 |
VMR47(V314)} |
VMR47(V330)} |
2000 |
goto T534; |
goto T534; |
2001 |
T534:; |
T534:; |
2002 |
V315= (VFUN_NARGS=4,(*(LnkLI150))((V305),CMPcar((V313)),Cnil,CMPcdr((V313)))); |
V331= (VFUN_NARGS=4,(*(LnkLI150))((V321),CMPcar((V329)),Cnil,CMPcdr((V329)))); |
2003 |
(void)((*(LnkLI149))(/* INLINE-ARGS */V315,VV[90])); |
(void)((*(LnkLI149))(/* INLINE-ARGS */V331,VV[90])); |
2004 |
V312= CMPcdr((V312)); |
V328= CMPcdr((V328)); |
2005 |
V313= CMPcar((V312)); |
V329= CMPcar((V328)); |
2006 |
goto T533;} |
goto T533;} |
2007 |
goto T525; |
goto T525; |
2008 |
T525:; |
T525:; |
2009 |
{object V316 = Cnil; |
{object V332 = Cnil; |
2010 |
VMR47(V316)} |
VMR47(V332)} |
2011 |
goto T515; |
goto T515; |
2012 |
T515:; |
T515:; |
2013 |
{object V317 = Cnil; |
{object V333 = Cnil; |
2014 |
VMR47(V317)}} |
VMR47(V333)}} |
2015 |
goto T509; |
goto T509; |
2016 |
T509:; |
T509:; |
2017 |
base[0]= VV[91]; |
base[0]= VV[91]; |
2018 |
base[1]= (V306); |
base[1]= (V322); |
2019 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2020 |
Lerror(); |
Lerror(); |
2021 |
vs_top=sup; |
vs_top=sup; |
2022 |
{object V318 = vs_base[0]; |
{object V334 = vs_base[0]; |
2023 |
VMR47(V318)} |
VMR47(V334)} |
2024 |
base[0]=base[0]; |
base[0]=base[0]; |
2025 |
return Cnil; |
return Cnil; |
2026 |
} |
} |
2027 |
/* local entry for function SETF PCL FIND-CLASS-PREDICATE */ |
/* local entry for function SETF PCL FIND-CLASS-PREDICATE */ |
2028 |
|
|
2029 |
static object LI50(V321,V322) |
static object LI50(V337,V338) |
2030 |
|
|
2031 |
object V321;object V322; |
object V337;object V338; |
2032 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
2033 |
goto TTL; |
goto TTL; |
2034 |
TTL:; |
TTL:; |
2035 |
if(((*(LnkLI140))((V322)))==Cnil){ |
if(((*(LnkLI140))((V338)))==Cnil){ |
2036 |
goto T547;} |
goto T547;} |
2037 |
{object V323; |
{object V339; |
2038 |
V323= (VFUN_NARGS=1,(*(LnkLI145))((V322))); |
V339= (VFUN_NARGS=1,(*(LnkLI145))((V338))); |
2039 |
(CMPcdr((V323)))->c.c_car = V321; |
(CMPcdr((V339)))->c.c_car = V337; |
2040 |
(void)(CMPcdr((V323))); |
(void)(CMPcdr((V339))); |
2041 |
{object V325 = V321; |
{object V341 = V337; |
2042 |
VMR48(V325)}} |
VMR48(V341)}} |
2043 |
goto T547; |
goto T547; |
2044 |
T547:; |
T547:; |
2045 |
base[0]= VV[92]; |
base[0]= VV[92]; |
2046 |
base[1]= (V322); |
base[1]= (V338); |
2047 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2048 |
Lerror(); |
Lerror(); |
2049 |
vs_top=sup; |
vs_top=sup; |
2050 |
{object V326 = vs_base[0]; |
{object V342 = vs_base[0]; |
2051 |
VMR48(V326)} |
VMR48(V342)} |
2052 |
base[0]=base[0]; |
base[0]=base[0]; |
2053 |
return Cnil; |
return Cnil; |
2054 |
} |
} |
2058 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2059 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
2060 |
vs_check; |
vs_check; |
2061 |
{object V327; |
{object V343; |
2062 |
check_arg(1); |
check_arg(1); |
2063 |
V327=(base[0]); |
V343=(base[0]); |
2064 |
vs_top=sup; |
vs_top=sup; |
2065 |
goto TTL; |
goto TTL; |
2066 |
TTL:; |
TTL:; |
2067 |
base[1]= (VFUN_NARGS=1,(*(LnkLI151))((V327))); |
base[1]= (VFUN_NARGS=1,(*(LnkLI151))((V343))); |
2068 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2069 |
(void) (*Lnk152)(Lclptr152); |
(void) (*Lnk152)(Lclptr152); |
2070 |
return; |
return; |
2078 |
vs_check; |
vs_check; |
2079 |
check_arg(2); |
check_arg(2); |
2080 |
vs_top=sup; |
vs_top=sup; |
2081 |
{object V328=base[0]->c.c_cdr; |
{object V344=base[0]->c.c_cdr; |
2082 |
if(endp(V328))invalid_macro_call(); |
if(endp(V344))invalid_macro_call(); |
2083 |
base[2]= (V328->c.c_car); |
base[2]= (V344->c.c_car); |
2084 |
V328=V328->c.c_cdr; |
V344=V344->c.c_cdr; |
2085 |
base[3]= V328;} |
base[3]= V344;} |
2086 |
V329= list(2,VV[94],base[2]); |
V345= list(2,VV[94],base[2]); |
2087 |
V330= make_cons(/* INLINE-ARGS */V329,Cnil); |
V346= make_cons(/* INLINE-ARGS */V345,Cnil); |
2088 |
base[4]= list(3,VV[93],/* INLINE-ARGS */V330,listA(3,VV[95],VV[96],base[3])); |
base[4]= list(3,VV[93],/* INLINE-ARGS */V346,listA(3,VV[95],VV[96],base[3])); |
2089 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2090 |
return; |
return; |
2091 |
} |
} |
2097 |
vs_check; |
vs_check; |
2098 |
check_arg(2); |
check_arg(2); |
2099 |
vs_top=sup; |
vs_top=sup; |
2100 |
{object V331=base[0]->c.c_cdr; |
{object V347=base[0]->c.c_cdr; |
2101 |
{object V332=getf(V331,VV[153],OBJNULL); |
{object V348=getf(V347,VV[153],OBJNULL); |
2102 |
if(V332==OBJNULL){ |
if(V348==OBJNULL){ |
2103 |
base[2]= small_fixnum(0);} else { |
base[2]= small_fixnum(0);} else { |
2104 |
base[2]= V332; |
base[2]= V348; |
2105 |
}} |
}} |
2106 |
check_other_key(V331,1,VV[153]);} |
check_other_key(V347,1,VV[153]);} |
2107 |
V333= list(2,VV[97],base[2]); |
V349= list(2,VV[97],base[2]); |
2108 |
base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V333,VV[98]),VV[99]); |
base[3]= list(3,VV[27],make_cons(/* INLINE-ARGS */V349,VV[98]),VV[99]); |
2109 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2110 |
return; |
return; |
2111 |
} |
} |
2117 |
vs_check; |
vs_check; |
2118 |
check_arg(2); |
check_arg(2); |
2119 |
vs_top=sup; |
vs_top=sup; |
2120 |
{object V334=base[0]->c.c_cdr; |
{object V350=base[0]->c.c_cdr; |
2121 |
if(endp(V334))invalid_macro_call(); |
if(endp(V350))invalid_macro_call(); |
2122 |
base[2]= (V334->c.c_car); |
base[2]= (V350->c.c_car); |
2123 |
V334=V334->c.c_cdr; |
V350=V350->c.c_cdr; |
2124 |
{object V335=getf(V334,VV[154],OBJNULL); |
{object V351=getf(V350,VV[154],OBJNULL); |
2125 |
if(V335==OBJNULL){ |
if(V351==OBJNULL){ |
2126 |
base[3]= (VV[55]->s.s_gfdef);} else { |
base[3]= (VV[55]->s.s_gfdef);} else { |
2127 |
base[3]= V335; |
base[3]= V351; |
2128 |
}} |
}} |
2129 |
check_other_key(V334,1,VV[154]);} |
check_other_key(V350,1,VV[154]);} |
2130 |
V336= list(2,VV[58],base[2]); |
V352= list(2,VV[58],base[2]); |
2131 |
V337= make_cons(/* INLINE-ARGS */V336,Cnil); |
V353= make_cons(/* INLINE-ARGS */V352,Cnil); |
2132 |
base[4]= list(3,VV[24],/* INLINE-ARGS */V337,list(2,VV[100],list(3,VV[101],VV[102],list(4,VV[16],VV[103],VV[104],list(3,VV[105],VV[106],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58]))))))); |
base[4]= list(3,VV[24],/* INLINE-ARGS */V353,list(2,VV[100],list(3,VV[101],VV[102],list(4,VV[16],VV[103],VV[104],list(3,VV[105],VV[106],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58]))))))); |
2133 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2134 |
return; |
return; |
2135 |
} |
} |
2141 |
vs_check; |
vs_check; |
2142 |
check_arg(2); |
check_arg(2); |
2143 |
vs_top=sup; |
vs_top=sup; |
2144 |
{object V338=base[0]->c.c_cdr; |
{object V354=base[0]->c.c_cdr; |
2145 |
if(endp(V338))invalid_macro_call(); |
if(endp(V354))invalid_macro_call(); |
2146 |
base[2]= (V338->c.c_car); |
base[2]= (V354->c.c_car); |
2147 |
V338=V338->c.c_cdr; |
V354=V354->c.c_cdr; |
2148 |
{object V339=getf(V338,VV[154],OBJNULL); |
{object V355=getf(V354,VV[154],OBJNULL); |
2149 |
if(V339==OBJNULL){ |
if(V355==OBJNULL){ |
2150 |
base[3]= (VV[55]->s.s_gfdef);} else { |
base[3]= (VV[55]->s.s_gfdef);} else { |
2151 |
base[3]= V339; |
base[3]= V355; |
2152 |
}} |
}} |
2153 |
check_other_key(V338,1,VV[154]);} |
check_other_key(V354,1,VV[154]);} |
2154 |
V340= list(2,VV[58],base[2]); |
V356= list(2,VV[58],base[2]); |
2155 |
V341= make_cons(/* INLINE-ARGS */V340,Cnil); |
V357= make_cons(/* INLINE-ARGS */V356,Cnil); |
2156 |
base[4]= list(3,VV[24],/* INLINE-ARGS */V341,list(2,VV[100],list(3,VV[101],VV[108],list(3,VV[105],VV[109],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58])))))); |
base[4]= list(3,VV[24],/* INLINE-ARGS */V357,list(2,VV[100],list(3,VV[101],VV[108],list(3,VV[105],VV[109],list(3,VV[50],VV[58],list(3,VV[107],base[3],VV[58])))))); |
2157 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2158 |
return; |
return; |
2159 |
} |
} |
2165 |
vs_check; |
vs_check; |
2166 |
check_arg(2); |
check_arg(2); |
2167 |
vs_top=sup; |
vs_top=sup; |
2168 |
{object V342=base[0]->c.c_cdr; |
{object V358=base[0]->c.c_cdr; |
2169 |
if(endp(V342))invalid_macro_call(); |
if(endp(V358))invalid_macro_call(); |
2170 |
base[2]= (V342->c.c_car); |
base[2]= (V358->c.c_car); |
2171 |
V342=V342->c.c_cdr; |
V358=V358->c.c_cdr; |
2172 |
base[3]= V342;} |
base[3]= V358;} |
2173 |
base[4]= listA(3,VV[107],base[2],base[3]); |
base[4]= listA(3,VV[107],base[2],base[3]); |
2174 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2175 |
return; |
return; |
2182 |
vs_check; |
vs_check; |
2183 |
check_arg(2); |
check_arg(2); |
2184 |
vs_top=sup; |
vs_top=sup; |
2185 |
{object V343=base[0]->c.c_cdr; |
{object V359=base[0]->c.c_cdr; |
2186 |
if(endp(V343))invalid_macro_call(); |
if(endp(V359))invalid_macro_call(); |
2187 |
base[2]= (V343->c.c_car); |
base[2]= (V359->c.c_car); |
2188 |
V343=V343->c.c_cdr; |
V359=V359->c.c_cdr; |
2189 |
base[3]= V343;} |
base[3]= V359;} |
2190 |
base[4]= listA(3,VV[110],base[2],base[3]); |
base[4]= listA(3,VV[110],base[2],base[3]); |
2191 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2192 |
return; |
return; |
2193 |
} |
} |
2194 |
/* local entry for function GET-SETF-FUNCTION-NAME */ |
/* local entry for function GET-SETF-FUNCTION-NAME */ |
2195 |
|
|
2196 |
static object LI58(V345) |
static object LI58(V361) |
2197 |
|
|
2198 |
register object V345; |
register object V361; |
2199 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
2200 |
goto TTL; |
goto TTL; |
2201 |
TTL:;{object V346; |
TTL:;{object V362; |
2202 |
base[0]= (V345); |
base[0]= (V361); |
2203 |
base[1]= (VV[111]->s.s_dbind); |
base[1]= (VV[111]->s.s_dbind); |
2204 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2205 |
Lgethash(); |
Lgethash(); |
2206 |
vs_top=sup; |
vs_top=sup; |
2207 |
V346= vs_base[0]; |
V362= vs_base[0]; |
2208 |
if(V346==Cnil)goto T557; |
if(V362==Cnil)goto T557; |
2209 |
{object V347 = V346; |
{object V363 = V362; |
2210 |
VMR56(V347)} |
VMR56(V363)} |
2211 |
goto T557; |
goto T557; |
2212 |
T557:;} |
T557:;} |
2213 |
{object V349; |
{object V365; |
2214 |
object V350; |
object V366; |
2215 |
V349= (VV[111]->s.s_dbind); |
V365= (VV[111]->s.s_dbind); |
2216 |
{object V351; |
{object V367; |
2217 |
base[1]= (V345); |
base[1]= (V361); |
2218 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2219 |
Lsymbol_package(); |
Lsymbol_package(); |
2220 |
vs_top=sup; |
vs_top=sup; |
2221 |
V351= vs_base[0]; |
V367= vs_base[0]; |
2222 |
if(((V351))==Cnil){ |
if(((V367))==Cnil){ |
2223 |
goto T566;} |
goto T566;} |
2224 |
base[2]= Cnil; |
base[2]= Cnil; |
2225 |
base[3]= VV[112]; |
base[3]= VV[112]; |
2226 |
base[5]= (V351); |
base[5]= (V367); |
2227 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2228 |
Lpackage_name(); |
Lpackage_name(); |
2229 |
vs_top=sup; |
vs_top=sup; |
2230 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2231 |
base[5]= symbol_name((V345)); |
base[5]= symbol_name((V361)); |
2232 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
2233 |
Lformat(); |
Lformat(); |
2234 |
vs_top=sup; |
vs_top=sup; |
2237 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2238 |
Lintern(); |
Lintern(); |
2239 |
vs_top=sup; |
vs_top=sup; |
2240 |
V350= vs_base[0]; |
V366= vs_base[0]; |
2241 |
goto T562; |
goto T562; |
2242 |
goto T566; |
goto T566; |
2243 |
T566:; |
T566:; |
2244 |
base[2]= Cnil; |
base[2]= Cnil; |
2245 |
base[3]= VV[114]; |
base[3]= VV[114]; |
2246 |
base[4]= symbol_name((V345)); |
base[4]= symbol_name((V361)); |
2247 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2248 |
Lformat(); |
Lformat(); |
2249 |
vs_top=sup; |
vs_top=sup; |
2251 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2252 |
Lmake_symbol(); |
Lmake_symbol(); |
2253 |
vs_top=sup; |
vs_top=sup; |
2254 |
V350= vs_base[0];} |
V366= vs_base[0];} |
2255 |
goto T562; |
goto T562; |
2256 |
T562:; |
T562:; |
2257 |
base[1]= V345; |
base[1]= V361; |
2258 |
base[2]= (V349); |
base[2]= (V365); |
2259 |
base[3]= (V350); |
base[3]= (V366); |
2260 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2261 |
siLhash_set(); |
siLhash_set(); |
2262 |
vs_top=sup; |
vs_top=sup; |
2263 |
{object V352 = vs_base[0]; |
{object V368 = vs_base[0]; |
2264 |
VMR56(V352)}} |
VMR56(V368)}} |
2265 |
base[0]=base[0]; |
base[0]=base[0]; |
2266 |
return Cnil; |
return Cnil; |
2267 |
} |
} |
2273 |
vs_check; |
vs_check; |
2274 |
check_arg(2); |
check_arg(2); |
2275 |
vs_top=sup; |
vs_top=sup; |
2276 |
{object V353=base[0]->c.c_cdr; |
{object V369=base[0]->c.c_cdr; |
2277 |
base[2]= V353;} |
base[2]= V369;} |
2278 |
base[3]= list(3,VV[115],VV[116],list(3,VV[117],list(2,VV[118],list(2,VV[42],base[2])),VV[119])); |
base[3]= list(3,VV[115],VV[116],list(3,VV[117],list(2,VV[118],list(2,VV[42],base[2])),VV[119])); |
2279 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2280 |
return; |
return; |
2281 |
} |
} |
2282 |
/* local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS */ |
/* local entry for function DO-STANDARD-DEFSETFS-FOR-DEFCLASS */ |
2283 |
|
|
2284 |
static object LI60(V355) |
static object LI60(V371) |
2285 |
|
|
2286 |
object V355; |
object V371; |
2287 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
2288 |
goto TTL; |
goto TTL; |
2289 |
TTL:; |
TTL:; |
2290 |
{register object V356; |
{register object V372; |
2291 |
register object V357; |
register object V373; |
2292 |
V356= (V355); |
V372= (V371); |
2293 |
V357= CMPcar((V356)); |
V373= CMPcar((V372)); |
2294 |
goto T585; |
goto T585; |
2295 |
T585:; |
T585:; |
2296 |
if(!(((V356))==Cnil)){ |
if(!(((V372))==Cnil)){ |
2297 |
goto T586;} |
goto T586;} |
2298 |
{object V358 = Cnil; |
{object V374 = Cnil; |
2299 |
VMR58(V358)} |
VMR58(V374)} |
2300 |
goto T586; |
goto T586; |
2301 |
T586:; |
T586:; |
2302 |
(void)((*(LnkLI155))((V357))); |
(void)((*(LnkLI155))((V373))); |
2303 |
V356= CMPcdr((V356)); |
V372= CMPcdr((V372)); |
2304 |
V357= CMPcar((V356)); |
V373= CMPcar((V372)); |
2305 |
goto T585;} |
goto T585;} |
2306 |
base[0]=base[0]; |
base[0]=base[0]; |
2307 |
return Cnil; |
return Cnil; |
2308 |
} |
} |
2309 |
/* local entry for function DO-STANDARD-DEFSETF-1 */ |
/* local entry for function DO-STANDARD-DEFSETF-1 */ |
2310 |
|
|
2311 |
static object LI61(V360) |
static object LI61(V376) |
2312 |
|
|
2313 |
register object V360; |
register object V376; |
2314 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
2315 |
goto TTL; |
goto TTL; |
2316 |
TTL:; |
TTL:; |
2317 |
if(((*(LnkLI156))((V360)))==Cnil){ |
if(((*(LnkLI156))((V376)))==Cnil){ |
2318 |
goto T596;} |
goto T596;} |
2319 |
{object V361 =((V360))->s.s_plist; |
{object V377 =((V376))->s.s_plist; |
2320 |
object ind= VV[120]; |
object ind= VV[120]; |
2321 |
while(V361!=Cnil){ |
while(V377!=Cnil){ |
2322 |
if(V361->c.c_car==ind){ |
if(V377->c.c_car==ind){ |
2323 |
if(((V361->c.c_cdr->c.c_car))!=Cnil){ |
if(((V377->c.c_cdr->c.c_car))!=Cnil){ |
2324 |
goto T597;} |
goto T597;} |
2325 |
goto T600; |
goto T600; |
2326 |
}else V361=V361->c.c_cdr->c.c_cdr;}} |
}else V377=V377->c.c_cdr->c.c_cdr;}} |
2327 |
goto T600; |
goto T600; |
2328 |
T600:; |
T600:; |
2329 |
goto T596; |
goto T596; |
2330 |
T596:; |
T596:; |
2331 |
(void)(sputprop((V360),VV[120],Ct)); |
(void)(sputprop((V376),VV[120],Ct)); |
2332 |
base[0]= (*(LnkLI157))((V360)); |
base[0]= (*(LnkLI157))((V376)); |
2333 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2334 |
{object V362; |
{object V378; |
2335 |
vs_base=vs_top; |
vs_base=vs_top; |
2336 |
Lgensym(); |
Lgensym(); |
2337 |
vs_top=sup; |
vs_top=sup; |
2338 |
V362= vs_base[0]; |
V378= vs_base[0]; |
2339 |
{object V364; |
{object V380; |
2340 |
V364= |
V380= |
2341 |
make_cclosure_new(LC66,Cnil,base[0],Cdata); |
make_cclosure_new(LC66,Cnil,base[0],Cdata); |
2342 |
base[2]= V362; |
base[2]= V378; |
2343 |
base[3]= make_cons(VV[121],(V364)); |
base[3]= make_cons(VV[121],(V380)); |
2344 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2345 |
siLfset(); |
siLfset(); |
2346 |
vs_top=sup;} |
vs_top=sup;} |
2347 |
base[1]= list(3,VV[122],(V360),(V362)); |
base[1]= list(3,VV[122],(V376),(V378)); |
2348 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2349 |
Leval(); |
Leval(); |
2350 |
vs_top=sup; |
vs_top=sup; |
2351 |
{object V365 = vs_base[0]; |
{object V381 = vs_base[0]; |
2352 |
VMR59(V365)}} |
VMR59(V381)}} |
2353 |
goto T597; |
goto T597; |
2354 |
T597:; |
T597:; |
2355 |
{object V366 = Cnil; |
{object V382 = Cnil; |
2356 |
VMR59(V366)} |
VMR59(V382)} |
2357 |
base[0]=base[0]; |
base[0]=base[0]; |
2358 |
return Cnil; |
return Cnil; |
2359 |
} |
} |
2360 |
/* local entry for function SETFBOUNDP */ |
/* local entry for function SETFBOUNDP */ |
2361 |
|
|
2362 |
static object LI62(V368) |
static object LI62(V384) |
2363 |
|
|
2364 |
object V368; |
object V384; |
2365 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
2366 |
goto TTL; |
goto TTL; |
2367 |
TTL:;{object V369; |
TTL:;{object V385; |
2368 |
{object V370 =((V368))->s.s_plist; |
{object V386 =((V384))->s.s_plist; |
2369 |
object ind= VV[123]; |
object ind= VV[123]; |
2370 |
while(V370!=Cnil){ |
while(V386!=Cnil){ |
2371 |
if(V370->c.c_car==ind){ |
if(V386->c.c_car==ind){ |
2372 |
V369= (V370->c.c_cdr->c.c_car); |
V385= (V386->c.c_cdr->c.c_car); |
2373 |
goto T611; |
goto T611; |
2374 |
}else V370=V370->c.c_cdr->c.c_cdr;} |
}else V386=V386->c.c_cdr->c.c_cdr;} |
2375 |
V369= Cnil;} |
V385= Cnil;} |
2376 |
goto T611; |
goto T611; |
2377 |
T611:; |
T611:; |
2378 |
if(V369==Cnil)goto T610; |
if(V385==Cnil)goto T610; |
2379 |
{object V371 = V369; |
{object V387 = V385; |
2380 |
VMR60(V371)} |
VMR60(V387)} |
2381 |
goto T610; |
goto T610; |
2382 |
T610:;}{object V372; |
T610:;}{object V388; |
2383 |
{object V373 =((V368))->s.s_plist; |
{object V389 =((V384))->s.s_plist; |
2384 |
object ind= VV[124]; |
object ind= VV[124]; |
2385 |
while(V373!=Cnil){ |
while(V389!=Cnil){ |
2386 |
if(V373->c.c_car==ind){ |
if(V389->c.c_car==ind){ |
2387 |
V372= (V373->c.c_cdr->c.c_car); |
V388= (V389->c.c_cdr->c.c_car); |
2388 |
goto T613; |
goto T613; |
2389 |
}else V373=V373->c.c_cdr->c.c_cdr;} |
}else V389=V389->c.c_cdr->c.c_cdr;} |
2390 |
V372= Cnil;} |
V388= Cnil;} |
2391 |
goto T613; |
goto T613; |
2392 |
T613:; |
T613:; |
2393 |
if(V372==Cnil)goto T612; |
if(V388==Cnil)goto T612; |
2394 |
{object V374 = V372; |
{object V390 = V388; |
2395 |
VMR60(V374)} |
VMR60(V390)} |
2396 |
goto T612; |
goto T612; |
2397 |
T612:;} |
T612:;} |
2398 |
{object V375 =((V368))->s.s_plist; |
{object V391 =((V384))->s.s_plist; |
2399 |
object ind= VV[125]; |
object ind= VV[125]; |
2400 |
while(V375!=Cnil){ |
while(V391!=Cnil){ |
2401 |
if(V375->c.c_car==ind){ |
if(V391->c.c_car==ind){ |
2402 |
{object V376 = (V375->c.c_cdr->c.c_car); |
{object V392 = (V391->c.c_cdr->c.c_car); |
2403 |
VMR60(V376)} |
VMR60(V392)} |
2404 |
}else V375=V375->c.c_cdr->c.c_cdr;} |
}else V391=V391->c.c_cdr->c.c_cdr;} |
2405 |
{object V377 = Cnil; |
{object V393 = Cnil; |
2406 |
VMR60(V377)}} |
VMR60(V393)}} |
2407 |
return Cnil; |
return Cnil; |
2408 |
} |
} |
2409 |
/* macro definition for ORIGINAL-DEFINITION */ |
/* macro definition for ORIGINAL-DEFINITION */ |
2414 |
vs_check; |
vs_check; |
2415 |
check_arg(2); |
check_arg(2); |
2416 |
vs_top=sup; |
vs_top=sup; |
2417 |
{object V378=base[0]->c.c_cdr; |
{object V394=base[0]->c.c_cdr; |
2418 |
if(endp(V378))invalid_macro_call(); |
if(endp(V394))invalid_macro_call(); |
2419 |
base[2]= (V378->c.c_car); |
base[2]= (V394->c.c_car); |
2420 |
V378=V378->c.c_cdr; |
V394=V394->c.c_cdr; |
2421 |
if(!endp(V378))invalid_macro_call();} |
if(!endp(V394))invalid_macro_call();} |
2422 |
base[3]= list(3,VV[126],base[2],VV[127]); |
base[3]= list(3,VV[126],base[2],VV[127]); |
2423 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2424 |
return; |
return; |
2425 |
} |
} |
2426 |
/* local entry for function REDEFINE-FUNCTION */ |
/* local entry for function REDEFINE-FUNCTION */ |
2427 |
|
|
2428 |
static object LI64(V381,V382) |
static object LI64(V397,V398) |
2429 |
|
|
2430 |
register object V381;object V382; |
register object V397;object V398; |
2431 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
2432 |
goto TTL; |
goto TTL; |
2433 |
TTL:; |
TTL:; |
2434 |
base[0]= V381; |
base[0]= V397; |
2435 |
base[1]= (VV[128]->s.s_dbind); |
base[1]= (VV[128]->s.s_dbind); |
2436 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2437 |
Ladjoin(); |
Ladjoin(); |
2438 |
vs_top=sup; |
vs_top=sup; |
2439 |
(VV[128]->s.s_dbind)= vs_base[0]; |
(VV[128]->s.s_dbind)= vs_base[0]; |
2440 |
{object V384 =((V381))->s.s_plist; |
{object V400 =((V397))->s.s_plist; |
2441 |
object ind= VV[129]; |
object ind= VV[129]; |
2442 |
while(V384!=Cnil){ |
while(V400!=Cnil){ |
2443 |
if(V384->c.c_car==ind){ |
if(V400->c.c_car==ind){ |
2444 |
if(((V384->c.c_cdr->c.c_car))!=Cnil){ |
if(((V400->c.c_cdr->c.c_car))!=Cnil){ |
2445 |
goto T618;} |
goto T618;} |
2446 |
goto T620; |
goto T620; |
2447 |
}else V384=V384->c.c_cdr->c.c_cdr;}} |
}else V400=V400->c.c_cdr->c.c_cdr;}} |
2448 |
goto T620; |
goto T620; |
2449 |
T620:; |
T620:; |
2450 |
base[0]= (V381); |
V401 = (V397); |
2451 |
|
base[0]= (V397); |
2452 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2453 |
Lsymbol_function(); |
Lsymbol_function(); |
2454 |
vs_top=sup; |
vs_top=sup; |
2455 |
V385= vs_base[0]; |
V402= vs_base[0]; |
2456 |
(void)(sputprop((V381),VV[129],V385)); |
(void)(sputprop(V401,VV[129],V402)); |
2457 |
goto T618; |
goto T618; |
2458 |
T618:; |
T618:; |
2459 |
base[0]= (V381); |
base[0]= (V397); |
2460 |
base[2]= (V382); |
base[2]= (V398); |
2461 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2462 |
Lsymbol_function(); |
Lsymbol_function(); |
2463 |
vs_top=sup; |
vs_top=sup; |
2465 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2466 |
siLfset(); |
siLfset(); |
2467 |
vs_top=sup; |
vs_top=sup; |
2468 |
{object V386 = vs_base[0]; |
{object V403 = vs_base[0]; |
2469 |
VMR62(V386)} |
VMR62(V403)} |
2470 |
base[0]=base[0]; |
base[0]=base[0]; |
2471 |
return Cnil; |
return Cnil; |
2472 |
} |
} |
2477 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2478 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM63; VC63 |
2479 |
vs_check; |
vs_check; |
2480 |
{object V387; |
{object V404; |
2481 |
object V388; |
object V405; |
2482 |
check_arg(2); |
check_arg(2); |
2483 |
V387=(base[0]); |
V404=(base[0]); |
2484 |
V388=(base[1]); |
V405=(base[1]); |
2485 |
vs_top=sup; |
vs_top=sup; |
2486 |
{object V389; |
{object V406; |
2487 |
object V390; |
object V407; |
2488 |
object V391; |
object V408; |
2489 |
base[5]= CMPcdr((V387)); |
base[5]= CMPcdr((V404)); |
2490 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2491 |
Lbutlast(); |
Lbutlast(); |
2492 |
vs_top=sup; |
vs_top=sup; |
2493 |
V389= vs_base[0]; |
V406= vs_base[0]; |
2494 |
{object V392; |
{object V409; |
2495 |
object V393= (V389); |
object V410= (V406); |
2496 |
if(V393==Cnil){ |
if(V410==Cnil){ |
2497 |
V390= Cnil; |
V407= Cnil; |
2498 |
goto T628;} |
goto T628;} |
2499 |
base[5]=V392=MMcons(Cnil,Cnil); |
base[5]=V409=MMcons(Cnil,Cnil); |
2500 |
goto T629; |
goto T629; |
2501 |
T629:; |
T629:; |
2502 |
vs_base=vs_top; |
vs_base=vs_top; |
2503 |
Lgensym(); |
Lgensym(); |
2504 |
vs_top=sup; |
vs_top=sup; |
2505 |
V395= vs_base[0]; |
V412= vs_base[0]; |
2506 |
(V392->c.c_car)= list(2,V395,(V393->c.c_car)); |
V413 = (V410->c.c_car); |
2507 |
if((V393=MMcdr(V393))==Cnil){ |
(V409->c.c_car)= list(2,V412,V413); |
2508 |
V390= base[5]; |
if((V410=MMcdr(V410))==Cnil){ |
2509 |
|
V407= base[5]; |
2510 |
goto T628;} |
goto T628;} |
2511 |
V392=MMcdr(V392)=MMcons(Cnil,Cnil); |
V409=MMcdr(V409)=MMcons(Cnil,Cnil); |
2512 |
goto T629;} |
goto T629;} |
2513 |
goto T628; |
goto T628; |
2514 |
T628:; |
T628:; |
2515 |
{object V396; |
{object V414; |
2516 |
object V397= (V390); |
object V415= (V407); |
2517 |
if(V397==Cnil){ |
if(V415==Cnil){ |
2518 |
V391= Cnil; |
V408= Cnil; |
2519 |
goto T632;} |
goto T632;} |
2520 |
base[5]=V396=MMcons(Cnil,Cnil); |
base[5]=V414=MMcons(Cnil,Cnil); |
2521 |
goto T633; |
goto T633; |
2522 |
T633:; |
T633:; |
2523 |
(V396->c.c_car)= CMPcar((V397->c.c_car)); |
(V414->c.c_car)= CMPcar((V415->c.c_car)); |
2524 |
if((V397=MMcdr(V397))==Cnil){ |
if((V415=MMcdr(V415))==Cnil){ |
2525 |
V391= base[5]; |
V408= base[5]; |
2526 |
goto T632;} |
goto T632;} |
2527 |
V396=MMcdr(V396)=MMcons(Cnil,Cnil); |
V414=MMcdr(V414)=MMcons(Cnil,Cnil); |
2528 |
goto T633;} |
goto T633;} |
2529 |
goto T632; |
goto T632; |
2530 |
T632:; |
T632:; |
2531 |
base[5]= (V387); |
base[5]= (V404); |
2532 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2533 |
Llast(); |
Llast(); |
2534 |
vs_top=sup; |
vs_top=sup; |
2535 |
V398= vs_base[0]; |
V416= vs_base[0]; |
2536 |
base[5]= list(3,VV[24],(V390),listA(3,(base0[0]->c.c_car),CMPcar(V398),(V391))); |
base[5]= list(3,VV[24],(V407),listA(3,(base0[0]->c.c_car),CMPcar(V416),(V408))); |
2537 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2538 |
return;} |
return;} |
2539 |
} |
} |
2545 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2546 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM64; VC64 |
2547 |
vs_check; |
vs_check; |
2548 |
{object V399; |
{object V417; |
2549 |
check_arg(1); |
check_arg(1); |
2550 |
V399=(base[0]); |
V417=(base[0]); |
2551 |
vs_top=sup; |
vs_top=sup; |
2552 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
2553 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2561 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2562 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM65; VC65 |
2563 |
vs_check; |
vs_check; |
2564 |
{object V400; |
{object V418; |
2565 |
object V401; |
object V419; |
2566 |
object V402; |
object V420; |
2567 |
check_arg(3); |
check_arg(3); |
2568 |
V400=(base[0]); |
V418=(base[0]); |
2569 |
V401=(base[1]); |
V419=(base[1]); |
2570 |
V402=(base[2]); |
V420=(base[2]); |
2571 |
vs_top=sup; |
vs_top=sup; |
2572 |
goto TTL; |
goto TTL; |
2573 |
TTL:; |
TTL:; |
2574 |
{object V403; |
{object V421; |
2575 |
if(!(number_compare(small_fixnum(0),base0[0])==0)){ |
if(!(number_compare(small_fixnum(0),base0[0])==0)){ |
2576 |
goto T639;} |
goto T639;} |
2577 |
if((V400)==Cnil){ |
if((V418)==Cnil){ |
2578 |
V404= Cnil; |
V422= Cnil; |
2579 |
goto T641;} |
goto T641;} |
2580 |
V404= list(3,VV[50],(V400),list(2,VV[22],(V401))); |
V422= list(3,VV[50],(V418),list(2,VV[22],(V419))); |
2581 |
goto T641; |
goto T641; |
2582 |
T641:; |
T641:; |
2583 |
if((V402)==Cnil){ |
if((V420)==Cnil){ |
2584 |
V405= Cnil; |
V423= Cnil; |
2585 |
goto T642;} |
goto T642;} |
2586 |
V405= list(3,VV[50],(V402),list(2,VV[55],(V401))); |
V423= list(3,VV[50],(V420),list(2,VV[55],(V419))); |
2587 |
goto T642; |
goto T642; |
2588 |
T642:; |
T642:; |
2589 |
V403= list(3,VV[44],V404,V405); |
V421= list(3,VV[44],V422,V423); |
2590 |
goto T637; |
goto T637; |
2591 |
goto T639; |
goto T639; |
2592 |
T639:; |
T639:; |
2593 |
if(((V402))!=Cnil){ |
if(((V420))!=Cnil){ |
2594 |
goto T644;} |
goto T644;} |
2595 |
if((V400)==Cnil){ |
if((V418)==Cnil){ |
2596 |
V403= Cnil; |
V421= Cnil; |
2597 |
goto T637;} |
goto T637;} |
2598 |
V403= list(3,VV[50],(V400),(*(LnkLI158))(base0[0],(V401))); |
V424 = (V418); |
2599 |
|
V421= list(3,VV[50],V424,(*(LnkLI158))(base0[0],(V419))); |
2600 |
goto T637; |
goto T637; |
2601 |
goto T644; |
goto T644; |
2602 |
T644:; |
T644:; |
2603 |
V406= list(3,VV[50],(V402),(*(LnkLI159))(base0[0],(V401))); |
V425 = (V420); |
2604 |
if((V400)==Cnil){ |
V426= list(3,VV[50],V425,(*(LnkLI159))(base0[0],(V419))); |
2605 |
V407= Cnil; |
if((V418)==Cnil){ |
2606 |
|
V427= Cnil; |
2607 |
goto T646;} |
goto T646;} |
2608 |
V407= list(3,VV[50],(V400),list(2,VV[56],(V402))); |
V427= list(3,VV[50],(V418),list(2,VV[56],(V420))); |
2609 |
goto T646; |
goto T646; |
2610 |
T646:; |
T646:; |
2611 |
V403= list(3,VV[44],/* INLINE-ARGS */V406,V407); |
V421= list(3,VV[44],/* INLINE-ARGS */V426,V427); |
2612 |
goto T637; |
goto T637; |
2613 |
T637:; |
T637:; |
2614 |
base0[0]= small_fixnum(0); |
base0[0]= small_fixnum(0); |
2615 |
base[3]= (V403); |
base[3]= (V421); |
2616 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2617 |
return;} |
return;} |
2618 |
} |
} |