330 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
331 |
vs_top=sup; |
vs_top=sup; |
332 |
V74= vs_base[0]; |
V74= vs_base[0]; |
333 |
{register object x= V74,V73= (V67); |
V75 = (V67); |
334 |
|
{register object x= V74,V73= V75; |
335 |
while(V73!=Cnil) |
while(V73!=Cnil) |
336 |
if(x==(V73->c.c_car)){ |
if(x==(V73->c.c_car)){ |
337 |
goto T108; |
goto T108; |
340 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
341 |
(void) (*Lnk34)(Lclptr34); |
(void) (*Lnk34)(Lclptr34); |
342 |
vs_top=sup; |
vs_top=sup; |
343 |
V75= vs_base[0]; |
V76= vs_base[0]; |
344 |
if(!((V75)==(VV[9]))){ |
if(!((V76)==(VV[9]))){ |
345 |
goto T108;} |
goto T108;} |
346 |
{register object V76; |
{register object V77; |
347 |
base[7]= (V72); |
base[7]= (V72); |
348 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
349 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
350 |
vs_top=sup; |
vs_top=sup; |
351 |
V76= vs_base[0]; |
V77= vs_base[0]; |
352 |
V65= make_cons((V76),(V65));} |
V65= make_cons((V77),(V65));} |
353 |
goto T108; |
goto T108; |
354 |
T108:; |
T108:; |
355 |
V71= CMPcdr((V71)); |
V71= CMPcdr((V71)); |
357 |
goto T103;} |
goto T103;} |
358 |
goto T99; |
goto T99; |
359 |
T99:; |
T99:; |
360 |
V77= (*(LnkLI31))((V61)); |
V78= (*(LnkLI31))((V61)); |
361 |
V78= listA(4,VV[10],(V60),(V61),V62); |
V79 = V62; |
362 |
V79= list(2,/* INLINE-ARGS */V78,listA(4,VV[11],(V61),(V65),V62)); |
V80= listA(4,VV[10],(V60),(V61),V62); |
363 |
(void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V77,V62,/* INLINE-ARGS */V79))); |
V81= list(2,/* INLINE-ARGS */V80,listA(4,VV[11],(V61),(V65),V62)); |
364 |
|
(void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V78,V79,/* INLINE-ARGS */V81))); |
365 |
base[5]=VV[11]->s.s_gfdef; |
base[5]=VV[11]->s.s_gfdef; |
366 |
base[6]= (V61); |
base[6]= (V61); |
367 |
base[7]= (V65); |
base[7]= (V65); |
368 |
{object V80; |
{object V82; |
369 |
V80= V62; |
V82= V62; |
370 |
vs_top=base+8; |
vs_top=base+8; |
371 |
while(V80!=Cnil) |
while(V82!=Cnil) |
372 |
{vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;} |
{vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;} |
373 |
vs_base=base+6;} |
vs_base=base+6;} |
374 |
(void) (*Lnk11)(Lclptr11); |
(void) (*Lnk11)(Lclptr11); |
375 |
return;} |
return;} |
381 |
{register object *base=vs_base; |
{register object *base=vs_base; |
382 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
383 |
vs_check; |
vs_check; |
384 |
{object V81; |
{object V83; |
|
object V82; |
|
|
register object V83; |
|
385 |
object V84; |
object V84; |
386 |
object V85; |
register object V85; |
387 |
object V86; |
object V86; |
388 |
object V87; |
object V87; |
389 |
|
object V88; |
390 |
|
object V89; |
391 |
check_arg(7); |
check_arg(7); |
392 |
V81=(base[0]); |
V83=(base[0]); |
393 |
V82=(base[1]); |
V84=(base[1]); |
394 |
V83=(base[2]); |
V85=(base[2]); |
395 |
V84=(base[3]); |
V86=(base[3]); |
396 |
V85=(base[4]); |
V87=(base[4]); |
397 |
V86=(base[5]); |
V88=(base[5]); |
398 |
V87=(base[6]); |
V89=(base[6]); |
399 |
vs_top=sup; |
vs_top=sup; |
400 |
goto TTL; |
goto TTL; |
401 |
TTL:; |
TTL:; |
402 |
{register object V89; |
{register object V91; |
403 |
V89= V87; |
V91= V89; |
404 |
V90= (*(LnkLI31))((V83)); |
V92= (*(LnkLI31))((V85)); |
405 |
V91= listA(6,VV[12],(V83),(V84),(V85),(V86),(V89)); |
V93 = (V91); |
406 |
V92= list(2,/* INLINE-ARGS */V91,listA(4,VV[11],(V83),(V84),(V89))); |
V94= listA(6,VV[12],(V85),(V86),(V87),(V88),(V91)); |
407 |
(void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V90,(V89),/* INLINE-ARGS */V92))); |
V95= list(2,/* INLINE-ARGS */V94,listA(4,VV[11],(V85),(V86),(V91))); |
408 |
|
(void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V92,V93,/* INLINE-ARGS */V95))); |
409 |
base[7]=VV[11]->s.s_gfdef; |
base[7]=VV[11]->s.s_gfdef; |
410 |
base[8]= (V83); |
base[8]= (V85); |
411 |
base[9]= (V84); |
base[9]= (V86); |
412 |
{object V93; |
{object V96; |
413 |
V93= (V89); |
V96= (V91); |
414 |
vs_top=base+10; |
vs_top=base+10; |
415 |
while(V93!=Cnil) |
while(V96!=Cnil) |
416 |
{vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;} |
{vs_push((V96)->c.c_car);V96=(V96)->c.c_cdr;} |
417 |
vs_base=base+8;} |
vs_base=base+8;} |
418 |
(void) (*Lnk11)(Lclptr11); |
(void) (*Lnk11)(Lclptr11); |
419 |
return;} |
return;} |
425 |
{register object *base=vs_base; |
{register object *base=vs_base; |
426 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
427 |
vs_check; |
vs_check; |
428 |
{object V94; |
{object V97; |
|
object V95; |
|
|
register object V96; |
|
|
register object V97; |
|
429 |
object V98; |
object V98; |
430 |
|
register object V99; |
431 |
|
register object V100; |
432 |
|
object V101; |
433 |
check_arg(5); |
check_arg(5); |
434 |
V94=(base[0]); |
V97=(base[0]); |
435 |
V95=(base[1]); |
V98=(base[1]); |
436 |
V96=(base[2]); |
V99=(base[2]); |
437 |
V97=(base[3]); |
V100=(base[3]); |
438 |
V98=(base[4]); |
V101=(base[4]); |
439 |
vs_top=sup; |
vs_top=sup; |
440 |
goto TTL; |
goto TTL; |
441 |
TTL:; |
TTL:; |
442 |
if(!(((V97))==(Ct))){ |
if(!(((V100))==(Ct))){ |
443 |
goto T140;} |
goto T140;} |
444 |
{object V101; |
{object V104; |
445 |
{object V102; |
{object V105; |
446 |
V103= (*(LnkLI31))((V96)); |
V106= (*(LnkLI31))((V99)); |
447 |
V104= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V103,V98)); |
V107 = V101; |
448 |
V102= STREF(object,/* INLINE-ARGS */V104,32); |
V108= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V106,V107)); |
449 |
if(!(((V102))==(VV[1]))){ |
V105= STREF(object,/* INLINE-ARGS */V108,32); |
450 |
|
if(!(((V105))==(VV[1]))){ |
451 |
goto T146;} |
goto T146;} |
452 |
V105= (*(LnkLI31))((V96)); |
V109= (*(LnkLI31))((V99)); |
453 |
V106= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V105,V98)); |
V110 = V101; |
454 |
(void)((*(LnkLI26))(/* INLINE-ARGS */V106,VV[13])); |
V111= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V109,V110)); |
455 |
V107= (*(LnkLI31))((V96)); |
(void)((*(LnkLI26))(/* INLINE-ARGS */V111,VV[13])); |
456 |
V108= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V107,V98)); |
V112= (*(LnkLI31))((V99)); |
457 |
V101= STREF(object,/* INLINE-ARGS */V108,32); |
V113 = V101; |
458 |
|
V114= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V112,V113)); |
459 |
|
V104= STREF(object,/* INLINE-ARGS */V114,32); |
460 |
goto T143; |
goto T143; |
461 |
goto T146; |
goto T146; |
462 |
T146:; |
T146:; |
463 |
V101= (V102);} |
V104= (V105);} |
464 |
goto T143; |
goto T143; |
465 |
T143:; |
T143:; |
466 |
if(!(type_of((V101))==t_cons)){ |
if(!(type_of((V104))==t_cons)){ |
467 |
goto T150;} |
goto T150;} |
468 |
if(!((CMPcar((V101)))==(VV[6]))){ |
if(!((CMPcar((V104)))==(VV[6]))){ |
469 |
goto T150;} |
goto T150;} |
470 |
base[5]= (*(LnkLI30))(CMPcadr((V101)),CMPcaddr((V101)),(V96),V98); |
base[5]= (*(LnkLI30))(CMPcadr((V104)),CMPcaddr((V104)),(V99),V101); |
471 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
472 |
return; |
return; |
473 |
goto T150; |
goto T150; |
474 |
T150:; |
T150:; |
475 |
base[5]= (V96); |
base[5]= (V99); |
476 |
base[6]= V98; |
base[6]= V101; |
477 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
478 |
{object _funobj = (V101);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V104);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
479 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
480 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
481 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
482 |
return;} |
return;} |
483 |
goto T140; |
goto T140; |
484 |
T140:; |
T140:; |
485 |
if(!(((V97))==(Cnil))){ |
if(!(((V100))==(Cnil))){ |
486 |
goto T156;} |
goto T156;} |
487 |
{object V109; |
{object V115; |
488 |
{object V110; |
{object V116; |
489 |
V111= (*(LnkLI31))((V96)); |
V117= (*(LnkLI31))((V99)); |
490 |
V112= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V111,V98)); |
V118 = V101; |
491 |
V110= STREF(object,/* INLINE-ARGS */V112,36); |
V119= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V117,V118)); |
492 |
if(!(((V110))==(VV[1]))){ |
V116= STREF(object,/* INLINE-ARGS */V119,36); |
493 |
|
if(!(((V116))==(VV[1]))){ |
494 |
goto T162;} |
goto T162;} |
495 |
V113= (*(LnkLI31))((V96)); |
V120= (*(LnkLI31))((V99)); |
496 |
V114= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V113,V98)); |
V121 = V101; |
497 |
(void)((*(LnkLI26))(/* INLINE-ARGS */V114,VV[14])); |
V122= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V120,V121)); |
498 |
V115= (*(LnkLI31))((V96)); |
(void)((*(LnkLI26))(/* INLINE-ARGS */V122,VV[14])); |
499 |
V116= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V115,V98)); |
V123= (*(LnkLI31))((V99)); |
500 |
V109= STREF(object,/* INLINE-ARGS */V116,36); |
V124 = V101; |
501 |
|
V125= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V123,V124)); |
502 |
|
V115= STREF(object,/* INLINE-ARGS */V125,36); |
503 |
goto T159; |
goto T159; |
504 |
goto T162; |
goto T162; |
505 |
T162:; |
T162:; |
506 |
V109= (V110);} |
V115= (V116);} |
507 |
goto T159; |
goto T159; |
508 |
T159:; |
T159:; |
509 |
if(!(type_of((V109))==t_cons)){ |
if(!(type_of((V115))==t_cons)){ |
510 |
goto T166;} |
goto T166;} |
511 |
if(!((CMPcar((V109)))==(VV[6]))){ |
if(!((CMPcar((V115)))==(VV[6]))){ |
512 |
goto T166;} |
goto T166;} |
513 |
base[5]= (*(LnkLI30))(CMPcadr((V109)),CMPcaddr((V109)),(V96),V98); |
base[5]= (*(LnkLI30))(CMPcadr((V115)),CMPcaddr((V115)),(V99),V101); |
514 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
515 |
return; |
return; |
516 |
goto T166; |
goto T166; |
517 |
T166:; |
T166:; |
518 |
base[5]= (V96); |
base[5]= (V99); |
519 |
base[6]= V98; |
base[6]= V101; |
520 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
521 |
{object _funobj = (V109);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V115);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
522 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
523 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
524 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
525 |
return;} |
return;} |
526 |
goto T156; |
goto T156; |
527 |
T156:; |
T156:; |
528 |
{object V117; |
{object V126; |
529 |
object V118; |
object V127; |
530 |
object V119; |
object V128; |
531 |
V117= (*(LnkLI31))((V96)); |
V126= (*(LnkLI31))((V99)); |
532 |
base[8]= (V117); |
base[8]= (V126); |
533 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
534 |
(void) (*Lnk32)(Lclptr32); |
(void) (*Lnk32)(Lclptr32); |
535 |
vs_top=sup; |
vs_top=sup; |
536 |
V118= vs_base[0];{object V120; |
V127= vs_base[0];{object V129; |
537 |
if(type_of(V96)==t_structure){ |
if(type_of(V99)==t_structure){ |
538 |
goto T178;} |
goto T178;} |
539 |
V120= Cnil; |
V129= Cnil; |
540 |
goto T177; |
goto T177; |
541 |
goto T178; |
goto T178; |
542 |
T178:; |
T178:; |
543 |
V120= (((V96)->str.str_def)==(VV[15])?Ct:Cnil); |
V129= (((V99)->str.str_def)==(VV[15])?Ct:Cnil); |
544 |
goto T177; |
goto T177; |
545 |
T177:; |
T177:; |
546 |
if(V120==Cnil)goto T176; |
if(V129==Cnil)goto T176; |
547 |
V119= V120; |
V128= V129; |
548 |
goto T175; |
goto T175; |
549 |
goto T176; |
goto T176; |
550 |
T176:;}{object V122; |
T176:;}{object V131; |
551 |
V122= (VV[16]->s.s_dbind); |
V131= (VV[16]->s.s_dbind); |
552 |
base[8]= small_fixnum(14); |
base[8]= small_fixnum(14); |
553 |
base[9]= (V96); |
base[9]= (V99); |
554 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
555 |
(void) (*Lnk36)(); |
(void) (*Lnk36)(); |
556 |
vs_top=sup; |
vs_top=sup; |
557 |
V123= vs_base[0]; |
V132= vs_base[0]; |
558 |
V119= ((V122)==(CMPcar(V123))?Ct:Cnil);} |
V128= ((V131)==(CMPcar(V132))?Ct:Cnil);} |
559 |
goto T175; |
goto T175; |
560 |
T175:; |
T175:; |
561 |
{object V124; |
{object V133; |
562 |
register object V125; |
register object V134; |
563 |
V124= (V118); |
V133= (V127); |
564 |
V125= CMPcar((V124)); |
V134= CMPcar((V133)); |
565 |
goto T187; |
goto T187; |
566 |
T187:; |
T187:; |
567 |
if(!(((V124))==Cnil)){ |
if(!(((V133))==Cnil)){ |
568 |
goto T188;} |
goto T188;} |
569 |
goto T183; |
goto T183; |
570 |
goto T188; |
goto T188; |
571 |
T188:; |
T188:; |
572 |
{object V126; |
{object V135; |
573 |
object V127; |
object V136; |
574 |
base[9]= (V125); |
base[9]= (V134); |
575 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
576 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
577 |
vs_top=sup; |
vs_top=sup; |
578 |
V126= vs_base[0]; |
V135= vs_base[0]; |
579 |
base[9]= (V125); |
base[9]= (V134); |
580 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
581 |
(void) (*Lnk37)(Lclptr37); |
(void) (*Lnk37)(Lclptr37); |
582 |
vs_top=sup; |
vs_top=sup; |
583 |
V127= vs_base[0]; |
V136= vs_base[0]; |
584 |
{register object V128; |
{register object V137; |
585 |
register object V129; |
register object V138; |
586 |
register object V130; |
register object V139; |
587 |
V128= V98; |
V137= V101; |
588 |
V129= Cnil; |
V138= Cnil; |
589 |
V130= Cnil; |
V139= Cnil; |
590 |
goto T200; |
goto T200; |
591 |
T200:; |
T200:; |
592 |
if(((V128))!=Cnil){ |
if(((V137))!=Cnil){ |
593 |
goto T202;} |
goto T202;} |
594 |
goto T198; |
goto T198; |
595 |
goto T202; |
goto T202; |
596 |
T202:; |
T202:; |
597 |
{object V131; |
{object V140; |
598 |
V131= CMPcar((V128)); |
V140= CMPcar((V137)); |
599 |
V128= CMPcdr((V128)); |
V137= CMPcdr((V137)); |
600 |
V129= (V131);} |
V138= (V140);} |
601 |
if(((V128))!=Cnil){ |
if(((V137))!=Cnil){ |
602 |
goto T210;} |
goto T210;} |
603 |
base[9]= VV[17]; |
base[9]= VV[17]; |
604 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
606 |
vs_top=sup; |
vs_top=sup; |
607 |
goto T210; |
goto T210; |
608 |
T210:; |
T210:; |
609 |
{object V132; |
{object V141; |
610 |
V132= CMPcar((V128)); |
V141= CMPcar((V137)); |
611 |
V128= CMPcdr((V128)); |
V137= CMPcdr((V137)); |
612 |
V130= (V132);} |
V139= (V141);} |
613 |
{register object x= (V129),V133= (V127); |
{register object x= (V138),V142= (V136); |
614 |
while(V133!=Cnil) |
while(V142!=Cnil) |
615 |
if(x==(V133->c.c_car)){ |
if(x==(V142->c.c_car)){ |
616 |
goto T220; |
goto T220; |
617 |
}else V133=V133->c.c_cdr; |
}else V142=V142->c.c_cdr; |
618 |
goto T201;} |
goto T201;} |
619 |
goto T220; |
goto T220; |
620 |
T220:; |
T220:; |
621 |
base[9]= (V130); |
base[9]= (V139); |
622 |
base[10]= V117; |
base[10]= V126; |
623 |
base[11]= V96; |
base[11]= V99; |
624 |
base[12]= V125; |
base[12]= V134; |
625 |
vs_top=(vs_base=base+9)+4; |
vs_top=(vs_base=base+9)+4; |
626 |
(void) (*Lnk38)(Lclptr38); |
(void) (*Lnk38)(Lclptr38); |
627 |
vs_top=sup; |
vs_top=sup; |
631 |
goto T200;} |
goto T200;} |
632 |
goto T198; |
goto T198; |
633 |
T198:; |
T198:; |
634 |
if(((V97))==Cnil){ |
if(((V100))==Cnil){ |
635 |
goto T192;} |
goto T192;} |
636 |
if(((V97))==(Ct)){ |
if(((V100))==(Ct)){ |
637 |
goto T230;} |
goto T230;} |
638 |
{register object x= (V126),V137= (V97); |
{register object x= (V135),V146= (V100); |
639 |
while(V137!=Cnil) |
while(V146!=Cnil) |
640 |
if(x==(V137->c.c_car)){ |
if(x==(V146->c.c_car)){ |
641 |
goto T233; |
goto T233; |
642 |
}else V137=V137->c.c_cdr; |
}else V146=V146->c.c_cdr; |
643 |
goto T192;} |
goto T192;} |
644 |
goto T233; |
goto T233; |
645 |
T233:; |
T233:; |
646 |
goto T230; |
goto T230; |
647 |
T230:; |
T230:; |
648 |
if(((V119))!=Cnil){ |
if(((V128))!=Cnil){ |
649 |
goto T234;} |
goto T234;} |
650 |
if(((V97))==(Ct)){ |
if(((V100))==(Ct)){ |
651 |
goto T227;} |
goto T227;} |
652 |
goto T234; |
goto T234; |
653 |
T234:; |
T234:; |
654 |
base[9]= (V117); |
base[9]= (V126); |
655 |
base[10]= (V96); |
base[10]= (V99); |
656 |
base[11]= (V125); |
base[11]= (V134); |
657 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
658 |
(void) (*Lnk39)(Lclptr39); |
(void) (*Lnk39)(Lclptr39); |
659 |
vs_top=sup; |
vs_top=sup; |
661 |
goto T192;} |
goto T192;} |
662 |
goto T227; |
goto T227; |
663 |
T227:; |
T227:; |
664 |
{object V138; |
{object V147; |
665 |
base[9]= (V125); |
base[9]= (V134); |
666 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
667 |
(void) (*Lnk40)(Lclptr40); |
(void) (*Lnk40)(Lclptr40); |
668 |
vs_top=sup; |
vs_top=sup; |
669 |
V138= vs_base[0]; |
V147= vs_base[0]; |
670 |
if(((V138))==Cnil){ |
if(((V147))==Cnil){ |
671 |
goto T192;} |
goto T192;} |
672 |
vs_base=vs_top; |
vs_base=vs_top; |
673 |
{object _funobj = (V138);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V147);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
674 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
675 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
676 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
677 |
vs_top=sup; |
vs_top=sup; |
678 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
679 |
base[10]= V117; |
base[10]= V126; |
680 |
base[11]= V96; |
base[11]= V99; |
681 |
base[12]= V125; |
base[12]= V134; |
682 |
vs_top=(vs_base=base+9)+4; |
vs_top=(vs_base=base+9)+4; |
683 |
(void) (*Lnk38)(Lclptr38); |
(void) (*Lnk38)(Lclptr38); |
684 |
vs_top=sup;}} |
vs_top=sup;}} |
685 |
goto T192; |
goto T192; |
686 |
T192:; |
T192:; |
687 |
V124= CMPcdr((V124)); |
V133= CMPcdr((V133)); |
688 |
V125= CMPcar((V124)); |
V134= CMPcar((V133)); |
689 |
goto T187;} |
goto T187;} |
690 |
goto T183; |
goto T183; |
691 |
T183:; |
T183:; |
692 |
base[8]= (V96); |
base[8]= (V99); |
693 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
694 |
return;} |
return;} |
695 |
} |
} |
696 |
} |
} |
697 |
/* local entry for function CHECK-INITARGS-1 */ |
/* local entry for function CHECK-INITARGS-1 */ |
698 |
|
|
699 |
static object LI9(object V144,object V143,object V142,object first,...) |
static object LI9(object V153,object V152,object V151,object first,...) |
700 |
{ |
{ |
701 |
va_list ap; |
va_list ap; |
702 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
703 |
{object V145; |
{object V154; |
704 |
object V146; |
object V155; |
705 |
object V147; |
object V156; |
706 |
object V148; |
object V157; |
707 |
object V149; |
object V158; |
708 |
va_start(ap,first); |
va_start(ap,first); |
709 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
710 |
V145= V144; |
V154= V153; |
711 |
V146= V143; |
V155= V152; |
712 |
V147= V142; |
V156= V151; |
713 |
narg = narg - 3; |
narg = narg - 3; |
714 |
if (narg <= 0) goto T255; |
if (narg <= 0) goto T255; |
715 |
else { |
else { |
716 |
V148= first;} |
V157= first;} |
717 |
if (--narg <= 0) goto T256; |
if (--narg <= 0) goto T256; |
718 |
else { |
else { |
719 |
V149= va_arg(ap,object);} |
V158= va_arg(ap,object);} |
720 |
--narg; goto T257; |
--narg; goto T257; |
721 |
goto T255; |
goto T255; |
722 |
T255:; |
T255:; |
723 |
V148= Ct; |
V157= Ct; |
724 |
goto T256; |
goto T256; |
725 |
T256:; |
T256:; |
726 |
V149= Ct; |
V158= Ct; |
727 |
goto T257; |
goto T257; |
728 |
T257:; |
T257:; |
729 |
{object V150; |
{object V159; |
730 |
object V151; |
object V160; |
731 |
base[0]= (V145); |
base[0]= (V154); |
732 |
base[1]= (V147); |
base[1]= (V156); |
733 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
734 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
735 |
if(vs_base>=vs_top){vs_top=sup;goto T263;} |
if(vs_base>=vs_top){vs_top=sup;goto T263;} |
736 |
V150= vs_base[0]; |
V159= vs_base[0]; |
737 |
vs_base++; |
vs_base++; |
738 |
if(vs_base>=vs_top){vs_top=sup;goto T264;} |
if(vs_base>=vs_top){vs_top=sup;goto T264;} |
739 |
V151= vs_base[0]; |
V160= vs_base[0]; |
740 |
vs_top=sup; |
vs_top=sup; |
741 |
goto T265; |
goto T265; |
742 |
goto T263; |
goto T263; |
743 |
T263:; |
T263:; |
744 |
V150= Cnil; |
V159= Cnil; |
745 |
goto T264; |
goto T264; |
746 |
T264:; |
T264:; |
747 |
V151= Cnil; |
V160= Cnil; |
748 |
goto T265; |
goto T265; |
749 |
T265:; |
T265:; |
750 |
if(((V151))!=Cnil){ |
if(((V160))!=Cnil){ |
751 |
goto T267;} |
goto T267;} |
752 |
if(((V148))==Cnil){ |
if(((V157))==Cnil){ |
753 |
goto T270;} |
goto T270;} |
754 |
{object V152 = (VFUN_NARGS=4,(*(LnkLI42))((V146),(V145),(V150),(V149))); |
{object V161 = (VFUN_NARGS=4,(*(LnkLI42))((V155),(V154),(V159),(V158))); |
755 |
VMR9(V152)} |
VMR9(V161)} |
756 |
goto T270; |
goto T270; |
757 |
T270:; |
T270:; |
758 |
{object V153 = (VFUN_NARGS=4,(*(LnkLI43))((V146),(V145),(V150),(V149))); |
{object V162 = (VFUN_NARGS=4,(*(LnkLI43))((V155),(V154),(V159),(V158))); |
759 |
VMR9(V153)} |
VMR9(V162)} |
760 |
goto T267; |
goto T267; |
761 |
T267:; |
T267:; |
762 |
{object V154 = Cnil; |
{object V163 = Cnil; |
763 |
VMR9(V154)}} |
VMR9(V163)}} |
764 |
va_end(ap); |
va_end(ap); |
765 |
base[0]=base[0]; |
base[0]=base[0]; |
766 |
return Cnil;} |
return Cnil;} |
771 |
{register object *base=vs_base; |
{register object *base=vs_base; |
772 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
773 |
vs_check; |
vs_check; |
774 |
{object V155; |
{object V164; |
775 |
object V156; |
object V165; |
776 |
check_arg(2); |
check_arg(2); |
777 |
V155=(base[0]); |
V164=(base[0]); |
778 |
V156=(base[1]); |
V165=(base[1]); |
779 |
vs_top=sup; |
vs_top=sup; |
780 |
goto TTL; |
goto TTL; |
781 |
TTL:; |
TTL:; |
782 |
{object V157; |
{object V166; |
783 |
register object V158; |
register object V167; |
784 |
{object V159; |
{object V168; |
785 |
object V160= (V156); |
object V169= (V165); |
786 |
if(V160==Cnil){ |
if(V169==Cnil){ |
787 |
V157= Cnil; |
V166= Cnil; |
788 |
goto T272;} |
goto T272;} |
789 |
base[2]=V159=MMcons(Cnil,Cnil); |
base[2]=V168=MMcons(Cnil,Cnil); |
790 |
goto T273; |
goto T273; |
791 |
T273:; |
T273:; |
792 |
{register object V161; |
{register object V170; |
793 |
V161= (V160->c.c_car); |
V170= (V169->c.c_car); |
794 |
if(!(type_of((V161))==t_cons)){ |
if(!(type_of((V170))==t_cons)){ |
795 |
goto T276;} |
goto T276;} |
796 |
base[4]= (*(LnkLI44))(CMPcar((V161))); |
base[4]= (*(LnkLI44))(CMPcar((V170))); |
797 |
base[5]= CMPcdr((V161)); |
base[5]= CMPcdr((V170)); |
798 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
799 |
(void) (*Lnk45)(Lclptr45); |
(void) (*Lnk45)(Lclptr45); |
800 |
vs_top=sup; |
vs_top=sup; |
802 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
803 |
Lcopy_list(); |
Lcopy_list(); |
804 |
vs_top=sup; |
vs_top=sup; |
805 |
(V159->c.c_cdr)= vs_base[0]; |
(V168->c.c_cdr)= vs_base[0]; |
806 |
goto T274; |
goto T274; |
807 |
goto T276; |
goto T276; |
808 |
T276:; |
T276:; |
809 |
(V159->c.c_cdr)= make_cons((V161),Cnil);} |
(V168->c.c_cdr)= make_cons((V170),Cnil);} |
810 |
goto T274; |
goto T274; |
811 |
T274:; |
T274:; |
812 |
while(MMcdr(V159)!=Cnil)V159=MMcdr(V159); |
while(MMcdr(V168)!=Cnil)V168=MMcdr(V168); |
813 |
if((V160=MMcdr(V160))==Cnil){ |
if((V169=MMcdr(V169))==Cnil){ |
814 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
815 |
V157= base[2]; |
V166= base[2]; |
816 |
goto T272;} |
goto T272;} |
817 |
goto T273;} |
goto T273;} |
818 |
goto T272; |
goto T272; |
819 |
T272:; |
T272:; |
820 |
{object V162; |
{object V171; |
821 |
base[3]=VV[37]->s.s_gfdef; |
base[3]=VV[37]->s.s_gfdef; |
822 |
base[4]= (V155); |
base[4]= (V164); |
823 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
824 |
(void) (*Lnk32)(Lclptr32); |
(void) (*Lnk32)(Lclptr32); |
825 |
vs_top=sup; |
vs_top=sup; |
826 |
V165= vs_base[0]; |
V174= vs_base[0]; |
827 |
{object V163; |
{object V172; |
828 |
object V164= V165; |
object V173= V174; |
829 |
if(V164==Cnil){ |
if(V173==Cnil){ |
830 |
V162= Cnil; |
V171= Cnil; |
831 |
goto T282;} |
goto T282;} |
832 |
base[2]=V163=MMcons(Cnil,Cnil); |
base[2]=V172=MMcons(Cnil,Cnil); |
833 |
goto T283; |
goto T283; |
834 |
T283:; |
T283:; |
835 |
base[4]= (V164->c.c_car); |
base[4]= (V173->c.c_car); |
836 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
837 |
(void) (*Lnk37)(Lclptr37); |
(void) (*Lnk37)(Lclptr37); |
838 |
vs_top=sup; |
vs_top=sup; |
839 |
(V163->c.c_car)= vs_base[0]; |
(V172->c.c_car)= vs_base[0]; |
840 |
if((V164=MMcdr(V164))==Cnil){ |
if((V173=MMcdr(V173))==Cnil){ |
841 |
V162= base[2]; |
V171= base[2]; |
842 |
goto T282;} |
goto T282;} |
843 |
V163=MMcdr(V163)=MMcons(Cnil,Cnil); |
V172=MMcdr(V172)=MMcons(Cnil,Cnil); |
844 |
goto T283;} |
goto T283;} |
845 |
goto T282; |
goto T282; |
846 |
T282:; |
T282:; |
847 |
vs_top=base+2; |
vs_top=base+2; |
848 |
while(V162!=Cnil) |
while(V171!=Cnil) |
849 |
{vs_push((V162)->c.c_car);V162=(V162)->c.c_cdr;} |
{vs_push((V171)->c.c_car);V171=(V171)->c.c_cdr;} |
850 |
vs_base=base+2;} |
vs_base=base+2;} |
851 |
Lappend(); |
Lappend(); |
852 |
vs_top=sup; |
vs_top=sup; |
853 |
V158= vs_base[0]; |
V167= vs_base[0]; |
854 |
{register object V166; |
{register object V175; |
855 |
register object V167; |
register object V176; |
856 |
V166= (V157); |
V175= (V166); |
857 |
V167= CMPcar((V166)); |
V176= CMPcar((V175)); |
858 |
goto T292; |
goto T292; |
859 |
T292:; |
T292:; |
860 |
if(!(((V166))==Cnil)){ |
if(!(((V175))==Cnil)){ |
861 |
goto T293;} |
goto T293;} |
862 |
goto T288; |
goto T288; |
863 |
goto T293; |
goto T293; |
864 |
T293:; |
T293:; |
865 |
{register object V168; |
{register object V177; |
866 |
register object V169; |
register object V178; |
867 |
register object V170; |
register object V179; |
868 |
register object V171; |
register object V180; |
869 |
register object V172; |
register object V181; |
870 |
register object V173; |
register object V182; |
871 |
if(!(type_of((V167))==t_cons)){ |
if(!(type_of((V176))==t_cons)){ |
872 |
goto T301;} |
goto T301;} |
873 |
base[3]= (*(LnkLI46))((V167)); |
base[3]= (*(LnkLI46))((V176)); |
874 |
goto T299; |
goto T299; |
875 |
goto T301; |
goto T301; |
876 |
T301:; |
T301:; |
877 |
base[4]= (V167); |
base[4]= (V176); |
878 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
879 |
(void) (*Lnk47)(Lclptr47); |
(void) (*Lnk47)(Lclptr47); |
880 |
vs_top=sup; |
vs_top=sup; |
884 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
885 |
(void) (*Lnk48)(); |
(void) (*Lnk48)(); |
886 |
if(vs_base>=vs_top){vs_top=sup;goto T304;} |
if(vs_base>=vs_top){vs_top=sup;goto T304;} |
887 |
V168= vs_base[0]; |
V177= vs_base[0]; |
888 |
vs_base++; |
vs_base++; |
889 |
if(vs_base>=vs_top){vs_top=sup;goto T305;} |
if(vs_base>=vs_top){vs_top=sup;goto T305;} |
890 |
V169= vs_base[0]; |
V178= vs_base[0]; |
891 |
vs_base++; |
vs_base++; |
892 |
if(vs_base>=vs_top){vs_top=sup;goto T306;} |
if(vs_base>=vs_top){vs_top=sup;goto T306;} |
893 |
V170= vs_base[0]; |
V179= vs_base[0]; |
894 |
vs_base++; |
vs_base++; |
895 |
if(vs_base>=vs_top){vs_top=sup;goto T307;} |
if(vs_base>=vs_top){vs_top=sup;goto T307;} |
896 |
V171= vs_base[0]; |
V180= vs_base[0]; |
897 |
vs_base++; |
vs_base++; |
898 |
if(vs_base>=vs_top){vs_top=sup;goto T308;} |
if(vs_base>=vs_top){vs_top=sup;goto T308;} |
899 |
V172= vs_base[0]; |
V181= vs_base[0]; |
900 |
vs_base++; |
vs_base++; |
901 |
if(vs_base>=vs_top){vs_top=sup;goto T309;} |
if(vs_base>=vs_top){vs_top=sup;goto T309;} |
902 |
V173= vs_base[0]; |
V182= vs_base[0]; |
903 |
vs_top=sup; |
vs_top=sup; |
904 |
goto T310; |
goto T310; |
905 |
goto T304; |
goto T304; |
906 |
T304:; |
T304:; |
907 |
V168= Cnil; |
V177= Cnil; |
908 |
goto T305; |
goto T305; |
909 |
T305:; |
T305:; |
910 |
V169= Cnil; |
V178= Cnil; |
911 |
goto T306; |
goto T306; |
912 |
T306:; |
T306:; |
913 |
V170= Cnil; |
V179= Cnil; |
914 |
goto T307; |
goto T307; |
915 |
T307:; |
T307:; |
916 |
V171= Cnil; |
V180= Cnil; |
917 |
goto T308; |
goto T308; |
918 |
T308:; |
T308:; |
919 |
V172= Cnil; |
V181= Cnil; |
920 |
goto T309; |
goto T309; |
921 |
T309:; |
T309:; |
922 |
V173= Cnil; |
V182= Cnil; |
923 |
goto T310; |
goto T310; |
924 |
T310:; |
T310:; |
925 |
if(((V172))==Cnil){ |
if(((V181))==Cnil){ |
926 |
goto T311;} |
goto T311;} |
927 |
base[3]= Cnil; |
base[3]= Cnil; |
928 |
base[4]= Ct; |
base[4]= Ct; |
930 |
return; |
return; |
931 |
goto T311; |
goto T311; |
932 |
T311:; |
T311:; |
933 |
V158= append((V173),(V158));} |
V167= append((V182),(V167));} |
934 |
V166= CMPcdr((V166)); |
V175= CMPcdr((V175)); |
935 |
V167= CMPcar((V166)); |
V176= CMPcar((V175)); |
936 |
goto T292;} |
goto T292;} |
937 |
goto T288; |
goto T288; |
938 |
T288:; |
T288:; |
939 |
base[2]= (V158); |
base[2]= (V167); |
940 |
base[3]= Cnil; |
base[3]= Cnil; |
941 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
942 |
return;} |
return;} |
944 |
} |
} |
945 |
/* local entry for function CHECK-INITARGS-2-PLIST */ |
/* local entry for function CHECK-INITARGS-2-PLIST */ |
946 |
|
|
947 |
static object LI11(object V176,object V175,object V174,object first,...) |
static object LI11(object V185,object V184,object V183,object first,...) |
948 |
{ |
{ |
949 |
va_list ap; |
va_list ap; |
950 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
951 |
{object V177; |
{object V186; |
952 |
register object V178; |
register object V187; |
953 |
register object V179; |
register object V188; |
954 |
register object V180; |
register object V189; |
955 |
va_start(ap,first); |
va_start(ap,first); |
956 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
957 |
V177= V176; |
V186= V185; |
958 |
V178= V175; |
V187= V184; |
959 |
V179= V174; |
V188= V183; |
960 |
narg = narg - 3; |
narg = narg - 3; |
961 |
if (narg <= 0) goto T324; |
if (narg <= 0) goto T324; |
962 |
else { |
else { |
963 |
V180= first;} |
V189= first;} |
964 |
--narg; goto T325; |
--narg; goto T325; |
965 |
goto T324; |
goto T324; |
966 |
T324:; |
T324:; |
967 |
V180= Ct; |
V189= Ct; |
968 |
goto T325; |
goto T325; |
969 |
T325:; |
T325:; |
970 |
base[0]= (V177); |
base[0]= (V186); |
971 |
base[1]= VV[18]; |
base[1]= VV[18]; |
972 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
973 |
Lgetf(); |
Lgetf(); |
974 |
vs_top=sup; |
vs_top=sup; |
975 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
976 |
goto T327;} |
goto T327;} |
977 |
{register object V181; |
{register object V190; |
978 |
register object V182; |
register object V191; |
979 |
register object V183; |
register object V192; |
980 |
V181= (V177); |
V190= (V186); |
981 |
V182= Cnil; |
V191= Cnil; |
982 |
V183= Cnil; |
V192= Cnil; |
983 |
goto T333; |
goto T333; |
984 |
T333:; |
T333:; |
985 |
if(((V181))!=Cnil){ |
if(((V190))!=Cnil){ |
986 |
goto T335;} |
goto T335;} |
987 |
goto T327; |
goto T327; |
988 |
goto T335; |
goto T335; |
989 |
T335:; |
T335:; |
990 |
{register object V184; |
{register object V193; |
991 |
V184= CMPcar((V181)); |
V193= CMPcar((V190)); |
992 |
V181= CMPcdr((V181)); |
V190= CMPcdr((V190)); |
993 |
V182= (V184);} |
V191= (V193);} |
994 |
if(((V181))!=Cnil){ |
if(((V190))!=Cnil){ |
995 |
goto T343;} |
goto T343;} |
996 |
base[0]= VV[17]; |
base[0]= VV[17]; |
997 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
999 |
vs_top=sup; |
vs_top=sup; |
1000 |
goto T343; |
goto T343; |
1001 |
T343:; |
T343:; |
1002 |
{register object V185; |
{register object V194; |
1003 |
V185= CMPcar((V181)); |
V194= CMPcar((V190)); |
1004 |
V181= CMPcdr((V181)); |
V190= CMPcdr((V190)); |
1005 |
V183= (V185);} |
V192= (V194);} |
1006 |
{register object x= (V182),V186= (V179); |
{register object x= (V191),V195= (V188); |
1007 |
while(V186!=Cnil) |
while(V195!=Cnil) |
1008 |
if(x==(V186->c.c_car)){ |
if(x==(V195->c.c_car)){ |
1009 |
goto T334; |
goto T334; |
1010 |
}else V186=V186->c.c_cdr;} |
}else V195=V195->c.c_cdr;} |
1011 |
if(((V180))==Cnil){ |
if(((V189))==Cnil){ |
1012 |
goto T355;} |
goto T355;} |
1013 |
base[0]= VV[19]; |
base[0]= VV[19]; |
1014 |
base[1]= (V182); |
base[1]= (V191); |
1015 |
base[3]= (V178); |
base[3]= (V187); |
1016 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1017 |
(void) (*Lnk27)(Lclptr27); |
(void) (*Lnk27)(Lclptr27); |
1018 |
vs_top=sup; |
vs_top=sup; |
1023 |
goto T334; |
goto T334; |
1024 |
goto T355; |
goto T355; |
1025 |
T355:; |
T355:; |
1026 |
{object V187 = Cnil; |
{object V196 = Cnil; |
1027 |
VMR11(V187)} |
VMR11(V196)} |
1028 |
goto T334; |
goto T334; |
1029 |
T334:; |
T334:; |
1030 |
goto T333;} |
goto T333;} |
1031 |
goto T327; |
goto T327; |
1032 |
T327:; |
T327:; |
1033 |
{object V188 = Ct; |
{object V197 = Ct; |
1034 |
VMR11(V188)} |
VMR11(V197)} |
1035 |
va_end(ap); |
va_end(ap); |
1036 |
base[0]=base[0]; |
base[0]=base[0]; |
1037 |
return Cnil;} |
return Cnil;} |
1038 |
} |
} |
1039 |
/* local entry for function CHECK-INITARGS-2-LIST */ |
/* local entry for function CHECK-INITARGS-2-LIST */ |
1040 |
|
|
1041 |
static object LI12(object V191,object V190,object V189,object first,...) |
static object LI12(object V200,object V199,object V198,object first,...) |
1042 |
{ |
{ |
1043 |
va_list ap; |
va_list ap; |
1044 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
1045 |
{object V192; |
{object V201; |
1046 |
register object V193; |
register object V202; |
1047 |
register object V194; |
register object V203; |
1048 |
register object V195; |
register object V204; |
1049 |
va_start(ap,first); |
va_start(ap,first); |
1050 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1051 |
V192= V191; |
V201= V200; |
1052 |
V193= V190; |
V202= V199; |
1053 |
V194= V189; |
V203= V198; |
1054 |
narg = narg - 3; |
narg = narg - 3; |
1055 |
if (narg <= 0) goto T362; |
if (narg <= 0) goto T362; |
1056 |
else { |
else { |
1057 |
V195= first;} |
V204= first;} |
1058 |
--narg; goto T363; |
--narg; goto T363; |
1059 |
goto T362; |
goto T362; |
1060 |
T362:; |
T362:; |
1061 |
V195= Ct; |
V204= Ct; |
1062 |
goto T363; |
goto T363; |
1063 |
T363:; |
T363:; |
1064 |
{register object x= VV[18],V196= (V192); |
{register object x= VV[18],V205= (V201); |
1065 |
while(V196!=Cnil) |
while(V205!=Cnil) |
1066 |
if(x==(V196->c.c_car)){ |
if(x==(V205->c.c_car)){ |
1067 |
goto T365; |
goto T365; |
1068 |
}else V196=V196->c.c_cdr;} |
}else V205=V205->c.c_cdr;} |
1069 |
{register object V197; |
{register object V206; |
1070 |
register object V198; |
register object V207; |
1071 |
V197= (V192); |
V206= (V201); |
1072 |
V198= CMPcar((V197)); |
V207= CMPcar((V206)); |
1073 |
goto T371; |
goto T371; |
1074 |
T371:; |
T371:; |
1075 |
if(!(((V197))==Cnil)){ |
if(!(((V206))==Cnil)){ |
1076 |
goto T372;} |
goto T372;} |
1077 |
goto T365; |
goto T365; |
1078 |
goto T372; |
goto T372; |
1079 |
T372:; |
T372:; |
1080 |
{register object x= (V198),V199= (V194); |
{register object x= (V207),V208= (V203); |
1081 |
while(V199!=Cnil) |
while(V208!=Cnil) |
1082 |
if(x==(V199->c.c_car)){ |
if(x==(V208->c.c_car)){ |
1083 |
goto T376; |
goto T376; |
1084 |
}else V199=V199->c.c_cdr;} |
}else V208=V208->c.c_cdr;} |
1085 |
if(((V195))==Cnil){ |
if(((V204))==Cnil){ |
1086 |
goto T380;} |
goto T380;} |
1087 |
base[1]= VV[20]; |
base[1]= VV[20]; |
1088 |
base[2]= (V198); |
base[2]= (V207); |
1089 |
base[4]= (V193); |
base[4]= (V202); |
1090 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1091 |
(void) (*Lnk27)(Lclptr27); |
(void) (*Lnk27)(Lclptr27); |
1092 |
vs_top=sup; |
vs_top=sup; |
1097 |
goto T376; |
goto T376; |
1098 |
goto T380; |
goto T380; |
1099 |
T380:; |
T380:; |
1100 |
{object V200 = Cnil; |
{object V209 = Cnil; |
1101 |
VMR12(V200)} |
VMR12(V209)} |
1102 |
goto T376; |
goto T376; |
1103 |
T376:; |
T376:; |
1104 |
V197= CMPcdr((V197)); |
V206= CMPcdr((V206)); |
1105 |
V198= CMPcar((V197)); |
V207= CMPcar((V206)); |
1106 |
goto T371;} |
goto T371;} |
1107 |
goto T365; |
goto T365; |
1108 |
T365:; |
T365:; |
1109 |
{object V201 = Ct; |
{object V210 = Ct; |
1110 |
VMR12(V201)} |
VMR12(V210)} |
1111 |
va_end(ap); |
va_end(ap); |
1112 |
base[0]=base[0]; |
base[0]=base[0]; |
1113 |
return Cnil;} |
return Cnil;} |