2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_kcl_cond.h" |
#include "clcs_kcl_cond.h" |
4 |
void init_clcs_kcl_cond(){do_init(VV);} |
void init_clcs_kcl_cond(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2186 */ |
/* local entry for function progn 'compile2191 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
18 |
base[0]=base[0]; |
base[0]=base[0]; |
19 |
return Cnil; |
return Cnil; |
20 |
} |
} |
21 |
/* local entry for function progn 'compile2198 */ |
/* local entry for function progn 'compile2203 */ |
22 |
|
|
23 |
static object LI2() |
static object LI2() |
24 |
|
|
43 |
base[0]=base[0]; |
base[0]=base[0]; |
44 |
return Cnil; |
return Cnil; |
45 |
} |
} |
46 |
/* local entry for function progn 'compile2211 */ |
/* local entry for function progn 'compile2216 */ |
47 |
|
|
48 |
static object LI3() |
static object LI3() |
49 |
|
|
300 |
base[0]=base[0]; |
base[0]=base[0]; |
301 |
return Cnil; |
return Cnil; |
302 |
} |
} |
303 |
/* local entry for function progn 'compile2361 */ |
/* local entry for function progn 'compile2366 */ |
304 |
|
|
305 |
static object LI8() |
static object LI8() |
306 |
|
|
316 |
base[0]=base[0]; |
base[0]=base[0]; |
317 |
return Cnil; |
return Cnil; |
318 |
} |
} |
319 |
/* local entry for function progn 'compile2373 */ |
/* local entry for function progn 'compile2378 */ |
320 |
|
|
321 |
static object LI9() |
static object LI9() |
322 |
|
|
328 |
VMR9(V43)} |
VMR9(V43)} |
329 |
return Cnil; |
return Cnil; |
330 |
} |
} |
331 |
/* local entry for function progn 'compile2385 */ |
/* local entry for function progn 'compile2390 */ |
332 |
|
|
333 |
static object LI10() |
static object LI10() |
334 |
|
|
339 |
VMR10(V44)} |
VMR10(V44)} |
340 |
return Cnil; |
return Cnil; |
341 |
} |
} |
342 |
/* local entry for function progn 'compile2487 */ |
/* local entry for function progn 'compile2495 */ |
343 |
|
|
344 |
static object LI11() |
static object LI11() |
345 |
|
|
412 |
base[0]=base[0]; |
base[0]=base[0]; |
413 |
return Cnil; |
return Cnil; |
414 |
} |
} |
415 |
/* local entry for function progn 'compile2515 */ |
/* local entry for function progn 'compile2523 */ |
416 |
|
|
417 |
static object LI13() |
static object LI13() |
418 |
|
|
428 |
base[0]=base[0]; |
base[0]=base[0]; |
429 |
return Cnil; |
return Cnil; |
430 |
} |
} |
431 |
/* local entry for function progn 'compile2527 */ |
/* local entry for function progn 'compile2535 */ |
432 |
|
|
433 |
static object LI14() |
static object LI14() |
434 |
|
|
447 |
VMR14(V53)} |
VMR14(V53)} |
448 |
return Cnil; |
return Cnil; |
449 |
} |
} |
450 |
/* local entry for function progn 'compile2540 */ |
/* local entry for function progn 'compile2548 */ |
451 |
|
|
452 |
static object LI15() |
static object LI15() |
453 |
|
|
550 |
base[0]=base[0]; |
base[0]=base[0]; |
551 |
return Cnil; |
return Cnil; |
552 |
} |
} |
553 |
/* local entry for function progn 'compile2632 */ |
/* local entry for function progn 'compile2640 */ |
554 |
|
|
555 |
static object LI18() |
static object LI18() |
556 |
|
|
562 |
VMR18(V67)} |
VMR18(V67)} |
563 |
return Cnil; |
return Cnil; |
564 |
} |
} |
565 |
/* local entry for function progn 'compile2664 */ |
/* local entry for function progn 'compile2672 */ |
566 |
|
|
567 |
static object LI19() |
static object LI19() |
568 |
|
|
574 |
VMR19(V68)} |
VMR19(V68)} |
575 |
return Cnil; |
return Cnil; |
576 |
} |
} |
577 |
/* local entry for function progn 'compile2696 */ |
/* local entry for function progn 'compile2704 */ |
578 |
|
|
579 |
static object LI20() |
static object LI20() |
580 |
|
|
586 |
VMR20(V69)} |
VMR20(V69)} |
587 |
return Cnil; |
return Cnil; |
588 |
} |
} |
589 |
/* local entry for function progn 'compile2708 */ |
/* local entry for function progn 'compile2716 */ |
590 |
|
|
591 |
static object LI21() |
static object LI21() |
592 |
|
|
621 |
Lfind_package(); |
Lfind_package(); |
622 |
vs_top=sup; |
vs_top=sup; |
623 |
V73= vs_base[0]; |
V73= vs_base[0]; |
624 |
bds_bind(VV[38],make_cons(V73,(VV[38]->s.s_dbind))); |
V74 = (VV[38]->s.s_dbind); |
625 |
|
bds_bind(VV[38],make_cons(V73,V74)); |
626 |
base[4]= (V71); |
base[4]= (V71); |
627 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
628 |
(void) (*Lnk28)(); |
(void) (*Lnk28)(); |
639 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
640 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
641 |
vs_check; |
vs_check; |
642 |
{object V74; |
{object V75; |
643 |
V74=(base[0]); |
V75=(base[0]); |
644 |
vs_top=sup; |
vs_top=sup; |
645 |
if(((VV[33]->s.s_dbind))!=Cnil){ |
if(((VV[33]->s.s_dbind))!=Cnil){ |
646 |
goto T131;} |
goto T131;} |
647 |
if(((VV[27]->s.s_dbind))!=Cnil){ |
if(((VV[27]->s.s_dbind))!=Cnil){ |
648 |
goto T131;} |
goto T131;} |
649 |
(void)((*(LnkLI51))((V74))); |
(void)((*(LnkLI51))((V75))); |
650 |
{frame_ptr fr; |
{frame_ptr fr; |
651 |
fr=frs_sch((base0[3]->c.c_car)); |
fr=frs_sch((base0[3]->c.c_car)); |
652 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[49]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[49]); |
653 |
base[1]= (V74); |
base[1]= (V75); |
654 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
655 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
656 |
goto T131; |
goto T131; |
657 |
T131:; |
T131:; |
658 |
(base0[2]->c.c_car)= (V74); |
(base0[2]->c.c_car)= (V75); |
659 |
base[1]= Cnil; |
base[1]= Cnil; |
660 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
661 |
return; |
return; |
668 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
669 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
670 |
vs_check; |
vs_check; |
671 |
{object V75; |
{object V76; |
672 |
V75=(base[0]); |
V76=(base[0]); |
673 |
vs_top=sup; |
vs_top=sup; |
674 |
base[1]= (V75); |
base[1]= (V76); |
675 |
base[2]= VV[29]; |
base[2]= VV[29]; |
676 |
base[3]= list(2,VV[28],list(2,VV[30],(base0[4]->c.c_car))); |
base[3]= list(2,VV[28],list(2,VV[30],(base0[4]->c.c_car))); |
677 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
686 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
687 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
688 |
vs_check; |
vs_check; |
689 |
{object V76; |
{object V77; |
690 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
691 |
{object *p=vs_top; |
{object *p=vs_top; |
692 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
693 |
V76=(base[0]); |
V77=(base[0]); |
694 |
vs_top=sup; |
vs_top=sup; |
695 |
(base0[1]->c.c_car)= (V76); |
(base0[1]->c.c_car)= (V77); |
696 |
{frame_ptr fr; |
{frame_ptr fr; |
697 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
698 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[34]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[34]); |
707 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
708 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
709 |
vs_check; |
vs_check; |
710 |
{object V77; |
{object V78; |
711 |
V77=(base[0]); |
V78=(base[0]); |
712 |
vs_top=sup; |
vs_top=sup; |
713 |
base[1]= (V77); |
base[1]= (V78); |
714 |
base[2]= VV[10]; |
base[2]= VV[10]; |
715 |
base[4]= Cnil; |
base[4]= Cnil; |
716 |
base[5]= (base0[3]->c.c_car); |
base[5]= (base0[3]->c.c_car); |
717 |
{object V78; |
{object V79; |
718 |
V78= (base0[2]->c.c_car); |
V79= (base0[2]->c.c_car); |
719 |
vs_top=base+6; |
vs_top=base+6; |
720 |
while(V78!=Cnil) |
while(V79!=Cnil) |
721 |
{vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;} |
{vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;} |
722 |
vs_base=base+4;} |
vs_base=base+4;} |
723 |
Lformat(); |
Lformat(); |
724 |
vs_top=sup; |
vs_top=sup; |
735 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
736 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
737 |
vs_check; |
vs_check; |
738 |
{object V79; |
{object V80; |
739 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
740 |
{object *p=vs_top; |
{object *p=vs_top; |
741 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
742 |
V79=(base[0]); |
V80=(base[0]); |
743 |
vs_top=sup; |
vs_top=sup; |
744 |
(base0[1]->c.c_car)= (V79); |
(base0[1]->c.c_car)= (V80); |
745 |
{frame_ptr fr; |
{frame_ptr fr; |
746 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
747 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[14]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[14]); |