85 |
T12:; |
T12:; |
86 |
{register object V20; |
{register object V20; |
87 |
V21= CMPcar((V19)); |
V21= CMPcar((V19)); |
88 |
V22= (VV[69]->s.s_gfdef); |
V22= (VV[97]->s.s_gfdef); |
89 |
V20= list(3,/* INLINE-ARGS */V21,VV[3],V22); |
V20= list(3,/* INLINE-ARGS */V21,VV[3],V22); |
90 |
V16= make_cons((V20),(V16));} |
V16= make_cons((V20),(V16));} |
91 |
V18= CMPcdr((V18)); |
V18= CMPcdr((V18)); |
312 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
313 |
goto TTL; |
goto TTL; |
314 |
TTL:; |
TTL:; |
315 |
{object V69 = (*(LnkLI70))((V68),(VV[23]->s.s_dbind)); |
{object V69 = (*(LnkLI98))((V68),(VV[23]->s.s_dbind)); |
316 |
VMR9(V69)} |
VMR9(V69)} |
317 |
return Cnil; |
return Cnil; |
318 |
} |
} |
362 |
V78=(Vcs[4]); |
V78=(Vcs[4]); |
363 |
V79= Ct;} |
V79= Ct;} |
364 |
{register object V80; |
{register object V80; |
365 |
V80= (*(LnkLI70))((V71),(VV[23]->s.s_dbind));{object V81; |
V80= (*(LnkLI98))((V71),(VV[23]->s.s_dbind));{object V81; |
366 |
V81= (VV[23]->s.s_dbind); |
V81= (VV[23]->s.s_dbind); |
367 |
if(((V73))==Cnil){ |
if(((V73))==Cnil){ |
368 |
goto T73;} |
goto T73;} |
414 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
415 |
goto TTL; |
goto TTL; |
416 |
TTL:; |
TTL:; |
417 |
V90= (*(LnkLI72))((V89)); |
V90= (*(LnkLI100))((V89)); |
418 |
{object V91 = CMPcar(/* INLINE-ARGS */V90); |
{object V91 = CMPcar(/* INLINE-ARGS */V90); |
419 |
VMR11(V91)} |
VMR11(V91)} |
420 |
return Cnil; |
return Cnil; |
427 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
428 |
goto TTL; |
goto TTL; |
429 |
TTL:; |
TTL:; |
430 |
V94= (*(LnkLI72))((V93)); |
V94= (*(LnkLI100))((V93)); |
431 |
{object V95 = CMPcadr(/* INLINE-ARGS */V94); |
{object V95 = CMPcadr(/* INLINE-ARGS */V94); |
432 |
VMR12(V95)} |
VMR12(V95)} |
433 |
return Cnil; |
return Cnil; |
440 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
441 |
goto TTL; |
goto TTL; |
442 |
TTL:; |
TTL:; |
443 |
V98= (*(LnkLI72))((V97)); |
V98= (*(LnkLI100))((V97)); |
444 |
{object V99 = CMPcaddr(/* INLINE-ARGS */V98); |
{object V99 = CMPcaddr(/* INLINE-ARGS */V98); |
445 |
VMR13(V99)} |
VMR13(V99)} |
446 |
return Cnil; |
return Cnil; |
453 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
454 |
goto TTL; |
goto TTL; |
455 |
TTL:; |
TTL:; |
456 |
V102= (*(LnkLI72))((V101)); |
V102= (*(LnkLI100))((V101)); |
457 |
{object V103 = CMPcadddr(/* INLINE-ARGS */V102); |
{object V103 = CMPcadddr(/* INLINE-ARGS */V102); |
458 |
VMR14(V103)} |
VMR14(V103)} |
459 |
return Cnil; |
return Cnil; |
468 |
TTL:; |
TTL:; |
469 |
{object V109; |
{object V109; |
470 |
object V110; |
object V110; |
471 |
V109= (*(LnkLI72))((V107)); |
V109= (*(LnkLI100))((V107)); |
472 |
V110= make_cons(V106,CMPcaddr((V109))); |
V110= make_cons(V106,CMPcaddr((V109))); |
473 |
(CMPcddr((V109)))->c.c_car = (V110); |
(CMPcddr((V109)))->c.c_car = (V110); |
474 |
(void)(CMPcddr((V109))); |
(void)(CMPcddr((V109))); |
489 |
object V117; |
object V117; |
490 |
object V118; |
object V118; |
491 |
V116= list(2,(V114),VV[24]); |
V116= list(2,(V114),VV[24]); |
492 |
V117= (*(LnkLI72))((V115)); |
V117= (*(LnkLI100))((V115)); |
493 |
V118= make_cons((V116),CMPcadddr((V117))); |
V118= make_cons((V116),CMPcadddr((V117))); |
494 |
(CMPcdddr((V117)))->c.c_car = (V118); |
(CMPcdddr((V117)))->c.c_car = (V118); |
495 |
(void)(CMPcdddr((V117))); |
(void)(CMPcdddr((V117))); |
508 |
TTL:; |
TTL:; |
509 |
{object V124; |
{object V124; |
510 |
base[0]= (V122); |
base[0]= (V122); |
511 |
base[1]= (*(LnkLI73))((V123)); |
base[1]= (*(LnkLI101))((V123)); |
512 |
base[2]= VV[25]; |
base[2]= VV[25]; |
513 |
base[3]= (VV[8]->s.s_gfdef); |
base[3]= (VV[8]->s.s_gfdef); |
514 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
536 |
TTL:; |
TTL:; |
537 |
{object V131; |
{object V131; |
538 |
base[0]= (V129); |
base[0]= (V129); |
539 |
base[1]= (*(LnkLI73))((V130)); |
base[1]= (*(LnkLI101))((V130)); |
540 |
base[2]= VV[25]; |
base[2]= VV[25]; |
541 |
base[3]= (VV[8]->s.s_gfdef); |
base[3]= (VV[8]->s.s_gfdef); |
542 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
577 |
goto T111; |
goto T111; |
578 |
T111:; |
T111:; |
579 |
{register object V142;{object V143; |
{register object V142;{object V143; |
580 |
V143= (*(LnkLI74))((V138),(V139)); |
V143= (*(LnkLI102))((V138),(V139)); |
581 |
if(V143==Cnil)goto T116; |
if(V143==Cnil)goto T116; |
582 |
V142= V143; |
V142= V143; |
583 |
goto T115; |
goto T115; |
588 |
T115:; |
T115:; |
589 |
{register object V144; |
{register object V144; |
590 |
register object V145; |
register object V145; |
591 |
V144= (*(LnkLI75))((V139)); |
V144= (*(LnkLI103))((V139)); |
592 |
V145= CMPcar((V144)); |
V145= CMPcar((V144)); |
593 |
goto T121; |
goto T121; |
594 |
T121:; |
T121:; |
620 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
621 |
goto TTL; |
goto TTL; |
622 |
TTL:; |
TTL:; |
623 |
V152= (*(LnkLI76))(VV[29],(V150),(V151)); |
V152= (*(LnkLI104))(VV[29],(V150),(V151)); |
624 |
if(!((((/* INLINE-ARGS */V152)==Cnil?Ct:Cnil))==Cnil)){ |
if(!((((/* INLINE-ARGS */V152)==Cnil?Ct:Cnil))==Cnil)){ |
625 |
goto T136;} |
goto T136;} |
626 |
{object V153 = Ct; |
{object V153 = Ct; |
627 |
VMR20(V153)} |
VMR20(V153)} |
628 |
goto T136; |
goto T136; |
629 |
T136:; |
T136:; |
630 |
{object V154 = (*(LnkLI77))((V150)); |
{object V154 = (*(LnkLI105))((V150)); |
631 |
VMR20(V154)} |
VMR20(V154)} |
632 |
return Cnil; |
return Cnil; |
633 |
} |
} |
713 |
VMR24(V165)} |
VMR24(V165)} |
714 |
goto T143; |
goto T143; |
715 |
T143:;} |
T143:;} |
716 |
{object V166 = (*(LnkLI78))((V162)); |
{object V166 = (*(LnkLI106))((V162)); |
717 |
VMR24(V166)} |
VMR24(V166)} |
718 |
goto T141; |
goto T141; |
719 |
T141:; |
T141:; |
773 |
base[3]= (V172); |
base[3]= (V172); |
774 |
base[4]= (V173); |
base[4]= (V173); |
775 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
776 |
(void) (*Lnk79)(); |
(void) (*Lnk107)(); |
777 |
bds_unwind1; |
bds_unwind1; |
778 |
return; |
return; |
779 |
} |
} |
803 |
V175= Cnil; |
V175= Cnil; |
804 |
goto T158; |
goto T158; |
805 |
T158:; |
T158:; |
806 |
V176= VV[80]; |
V176= VV[108]; |
807 |
goto T159; |
goto T159; |
808 |
T159:; |
T159:; |
809 |
{object V177; |
{object V177; |
810 |
V178 = (V175); |
V178= (VFUN_NARGS=3,(*(LnkLI22))((V175),VV[43],(V176))); |
811 |
V179= (VFUN_NARGS=3,(*(LnkLI22))((V175),VV[43],(V176))); |
V177= (*(LnkLI2))((V175),Cnil,/* INLINE-ARGS */V178); |
|
V177= (*(LnkLI2))(V178,Cnil,/* INLINE-ARGS */V179); |
|
812 |
base[3]= (V174); |
base[3]= (V174); |
813 |
base[4]= VV[44]; |
base[4]= VV[44]; |
814 |
base[5]= (V177); |
base[5]= (V177); |
815 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
816 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
817 |
return;} |
return;} |
818 |
} |
} |
819 |
} |
} |
823 |
{register object *base=vs_base; |
{register object *base=vs_base; |
824 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
825 |
vs_check; |
vs_check; |
826 |
{object V180; |
{object V179; |
827 |
|
object V180; |
828 |
object V181; |
object V181; |
|
object V182; |
|
829 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
830 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
831 |
V180=(base[0]); |
V179=(base[0]); |
832 |
V181=(base[1]); |
V180=(base[1]); |
833 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
834 |
if(vs_base>=vs_top){vs_top=sup;goto T166;} |
if(vs_base>=vs_top){vs_top=sup;goto T166;} |
835 |
V182=(base[2]); |
V181=(base[2]); |
836 |
vs_base++; |
vs_base++; |
837 |
if(vs_base>=vs_top){vs_top=sup;goto T167;} |
if(vs_base>=vs_top){vs_top=sup;goto T167;} |
838 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
840 |
goto T168; |
goto T168; |
841 |
goto T166; |
goto T166; |
842 |
T166:; |
T166:; |
843 |
V182= Cnil; |
V181= Cnil; |
844 |
goto T167; |
goto T167; |
845 |
T167:; |
T167:; |
846 |
base[3]= VV[82]; |
base[3]= VV[110]; |
847 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
848 |
goto T168; |
goto T168; |
849 |
T168:; |
T168:; |
850 |
V183 = (V180); |
V182= (*(LnkLI111))((V181)); |
851 |
V184= (*(LnkLI83))((V182)); |
if(!(((V179))==(/* INLINE-ARGS */V182))){ |
|
if(!((V183)==(/* INLINE-ARGS */V184))){ |
|
852 |
goto T172;} |
goto T172;} |
853 |
base[4]= (*(LnkLI84))((V182)); |
base[4]= (*(LnkLI112))((V181)); |
854 |
base[4]=MMcons(base[4],base[3]); |
base[4]=MMcons(base[4],base[3]); |
855 |
{frame_ptr fr; |
{frame_ptr fr; |
856 |
fr=frs_sch_catch((V180)); |
fr=frs_sch_catch((V179)); |
857 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V180)); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,(V179)); |
858 |
base[5]= (V181); |
base[5]= (V180); |
859 |
base[6]= (V182); |
base[6]= (V181); |
860 |
base[7]= |
base[7]= |
861 |
make_cclosure_new(LC81,Cnil,base[4],Cdata); |
make_cclosure_new(LC81,Cnil,base[4],Cdata); |
862 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
863 |
(void) (*Lnk79)(); |
(void) (*Lnk107)(); |
864 |
unwind(fr,(V180));} |
unwind(fr,(V179));} |
865 |
goto T172; |
goto T172; |
866 |
T172:; |
T172:; |
867 |
base[4]= (V181); |
base[4]= (V180); |
868 |
base[5]= (V182); |
base[5]= (V181); |
869 |
base[6]= (base[3]->c.c_car); |
base[6]= (base[3]->c.c_car); |
870 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
871 |
(void) (*Lnk79)(); |
(void) (*Lnk107)(); |
872 |
return; |
return; |
873 |
} |
} |
874 |
} |
} |
878 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
879 |
register object *VOL sup=base+VM29; VC29 |
register object *VOL sup=base+VM29; VC29 |
880 |
vs_check; |
vs_check; |
881 |
{VOL object V185; |
{VOL object V183; |
882 |
VOL object V186; |
VOL object V184; |
883 |
VOL object V187; |
VOL object V185; |
884 |
check_arg(3); |
check_arg(3); |
885 |
V185=(base[0]); |
V183=(base[0]); |
886 |
V186=(base[1]); |
V184=(base[1]); |
887 |
V187=(base[2]); |
V185=(base[2]); |
888 |
vs_top=sup; |
vs_top=sup; |
889 |
goto TTL; |
goto TTL; |
890 |
TTL:; |
TTL:; |
891 |
frs_push(FRS_CATCH,(V185)); |
frs_push(FRS_CATCH,(V183)); |
892 |
if(nlj_active) |
if(nlj_active) |
893 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
894 |
return;} |
return;} |
895 |
else{ |
else{ |
896 |
{VOL object V188; |
{VOL object V186; |
897 |
VOL object V189; |
VOL object V187; |
898 |
base[3]= (*(LnkLI84))((V187)); |
base[3]= (*(LnkLI112))((V185)); |
899 |
base[4]= (V185); |
base[4]= (V183); |
900 |
base[5]= (V186); |
base[5]= (V184); |
901 |
base[6]= (V187); |
base[6]= (V185); |
902 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
903 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
904 |
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
905 |
V188= vs_base[0]; |
V186= vs_base[0]; |
906 |
vs_base++; |
vs_base++; |
907 |
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
908 |
V189= vs_base[0]; |
V187= vs_base[0]; |
909 |
vs_top=sup; |
vs_top=sup; |
910 |
goto T190; |
goto T190; |
911 |
goto T188; |
goto T188; |
912 |
T188:; |
T188:; |
913 |
V188= Cnil; |
V186= Cnil; |
914 |
goto T189; |
goto T189; |
915 |
T189:; |
T189:; |
916 |
V189= Cnil; |
V187= Cnil; |
917 |
goto T190; |
goto T190; |
918 |
T190:; |
T190:; |
919 |
frs_push(FRS_CATCH,(V188)); |
frs_push(FRS_CATCH,(V186)); |
920 |
if(nlj_active) |
if(nlj_active) |
921 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
922 |
frs_pop(); |
frs_pop(); |
923 |
return;} |
return;} |
924 |
else{ |
else{ |
925 |
if(((V189))==Cnil){ |
if(((V187))==Cnil){ |
926 |
goto T193;} |
goto T193;} |
927 |
frs_pop(); |
frs_pop(); |
928 |
frs_pop(); |
frs_pop(); |
929 |
base[3]= (V188); |
base[3]= (V186); |
930 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
931 |
return; |
return; |
932 |
goto T193; |
goto T193; |
933 |
T193:; |
T193:; |
934 |
if(((V185))==((V188))){ |
if(((V183))==((V186))){ |
935 |
goto T196;} |
goto T196;} |
936 |
base[3]= (V188); |
base[3]= (V186); |
937 |
base[4]= (V186); |
base[4]= (V184); |
938 |
base[5]= (V187); |
base[5]= (V185); |
939 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
940 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
941 |
frs_pop(); |
frs_pop(); |
942 |
frs_pop(); |
frs_pop(); |
943 |
return; |
return; |
944 |
goto T196; |
goto T196; |
945 |
T196:; |
T196:; |
946 |
if(type_of((V188))==t_cons){ |
if(type_of((V186))==t_cons){ |
947 |
goto T202;} |
goto T202;} |
948 |
{object V190; |
{object V188; |
949 |
V191= (*(LnkLI85))((V188),(V187)); |
V189= (*(LnkLI113))((V186),(V185)); |
950 |
V190= CMPcar(/* INLINE-ARGS */V191); |
V188= CMPcar(/* INLINE-ARGS */V189); |
951 |
if(((V190))==Cnil){ |
if(((V188))==Cnil){ |
952 |
goto T206;} |
goto T206;} |
953 |
{object V192; |
{object V190; |
954 |
base[3]= CMPcddr((V190)); |
base[3]= CMPcddr((V188)); |
955 |
base[4]= (V186); |
base[4]= (V184); |
956 |
base[5]= (V187); |
base[5]= (V185); |
957 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
958 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
959 |
vs_top=sup; |
vs_top=sup; |
960 |
V192= vs_base[0]; |
V190= vs_base[0]; |
961 |
if(!(((V192))==(CMPcddr((V190))))){ |
if(!(((V190))==(CMPcddr((V188))))){ |
962 |
goto T213;} |
goto T213;} |
963 |
if(((VV[42]->s.s_dbind))==Cnil){ |
if(((VV[42]->s.s_dbind))==Cnil){ |
964 |
goto T216;} |
goto T216;} |
965 |
frs_pop(); |
frs_pop(); |
966 |
frs_pop(); |
frs_pop(); |
967 |
base[3]= (V192); |
base[3]= (V190); |
968 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
969 |
return; |
return; |
970 |
goto T216; |
goto T216; |
971 |
T216:; |
T216:; |
972 |
frs_pop(); |
frs_pop(); |
973 |
frs_pop(); |
frs_pop(); |
974 |
base[3]= (V188); |
base[3]= (V186); |
975 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
976 |
return; |
return; |
977 |
goto T213; |
goto T213; |
978 |
T213:; |
T213:; |
979 |
frs_pop(); |
frs_pop(); |
980 |
frs_pop(); |
frs_pop(); |
981 |
base[3]= (V192); |
base[3]= (V190); |
982 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
983 |
return;} |
return;} |
984 |
goto T206; |
goto T206; |
985 |
T206:; |
T206:; |
986 |
frs_pop(); |
frs_pop(); |
987 |
frs_pop(); |
frs_pop(); |
988 |
base[3]= (V188); |
base[3]= (V186); |
989 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
990 |
return;} |
return;} |
991 |
goto T202; |
goto T202; |
992 |
T202:; |
T202:; |
993 |
{register object V193; |
{register object V191; |
994 |
register object V194; |
register object V192; |
995 |
V193= CMPcar((V188)); |
V191= CMPcar((V186)); |
996 |
V194= (*(LnkLI86))((V193)); |
V192= (*(LnkLI114))((V191)); |
997 |
if(((V194))==Cnil){ |
if(((V192))==Cnil){ |
998 |
goto T221;} |
goto T221;} |
999 |
if(!(type_of((V194))==t_symbol)){ |
if(!(type_of((V192))==t_symbol)){ |
1000 |
goto T224;} |
goto T224;} |
1001 |
base[5]= (V188); |
base[5]= (V186); |
1002 |
base[6]= (V186); |
base[6]= (V184); |
1003 |
base[7]= (V187); |
base[7]= (V185); |
1004 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1005 |
super_funcall_no_event((V194)); |
super_funcall_no_event((V192)); |
1006 |
frs_pop(); |
frs_pop(); |
1007 |
frs_pop(); |
frs_pop(); |
1008 |
return; |
return; |
1009 |
goto T224; |
goto T224; |
1010 |
T224:; |
T224:; |
1011 |
V195= (*(LnkLI87))((V188),(V194),(V186),(V187)); |
V193= (*(LnkLI115))((V186),(V192),(V184),(V185)); |
1012 |
frs_pop(); |
frs_pop(); |
1013 |
frs_pop(); |
frs_pop(); |
1014 |
base[5]= V195; |
base[5]= V193; |
1015 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1016 |
return; |
return; |
1017 |
goto T221; |
goto T221; |
1018 |
T221:; |
T221:; |
1019 |
{register object V196; |
{register object V194; |
1020 |
object V197; |
object V195; |
1021 |
{object V198; |
{object V196; |
1022 |
V199 = (V187); |
V197= (VFUN_NARGS=3,(*(LnkLI22))((V185),VV[45],(V186))); |
1023 |
V200= (VFUN_NARGS=3,(*(LnkLI22))((V187),VV[45],(V188))); |
V196= (*(LnkLI2))((V185),Cnil,/* INLINE-ARGS */V197); |
1024 |
V198= (*(LnkLI2))(V199,Cnil,/* INLINE-ARGS */V200); |
base[5]= (V186); |
1025 |
base[5]= (V188); |
base[6]= (V196); |
|
base[6]= (V198); |
|
1026 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1027 |
Lmacroexpand_1();} |
Lmacroexpand_1();} |
1028 |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
1029 |
V196= vs_base[0]; |
V194= vs_base[0]; |
1030 |
vs_base++; |
vs_base++; |
1031 |
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
1032 |
V197= vs_base[0]; |
V195= vs_base[0]; |
1033 |
vs_top=sup; |
vs_top=sup; |
1034 |
goto T235; |
goto T235; |
1035 |
goto T233; |
goto T233; |
1036 |
T233:; |
T233:; |
1037 |
V196= Cnil; |
V194= Cnil; |
1038 |
goto T234; |
goto T234; |
1039 |
T234:; |
T234:; |
1040 |
V197= Cnil; |
V195= Cnil; |
1041 |
goto T235; |
goto T235; |
1042 |
T235:; |
T235:; |
1043 |
if(((V197))==Cnil){ |
if(((V195))==Cnil){ |
1044 |
goto T237;} |
goto T237;} |
1045 |
{object V201; |
{object V198; |
1046 |
base[5]= (V196); |
base[5]= (V194); |
1047 |
base[6]= (V186); |
base[6]= (V184); |
1048 |
base[7]= (V187); |
base[7]= (V185); |
1049 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1050 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
1051 |
vs_top=sup; |
vs_top=sup; |
1052 |
V201= vs_base[0]; |
V198= vs_base[0]; |
1053 |
if(!(((V201))==((V196)))){ |
if(!(((V198))==((V194)))){ |
1054 |
goto T244;} |
goto T244;} |
1055 |
if(((VV[42]->s.s_dbind))==Cnil){ |
if(((VV[42]->s.s_dbind))==Cnil){ |
1056 |
goto T247;} |
goto T247;} |
1057 |
frs_pop(); |
frs_pop(); |
1058 |
frs_pop(); |
frs_pop(); |
1059 |
base[5]= (V196); |
base[5]= (V194); |
1060 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1061 |
return; |
return; |
1062 |
goto T247; |
goto T247; |
1063 |
T247:; |
T247:; |
1064 |
frs_pop(); |
frs_pop(); |
1065 |
frs_pop(); |
frs_pop(); |
1066 |
base[5]= (V188); |
base[5]= (V186); |
1067 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1068 |
return; |
return; |
1069 |
goto T244; |
goto T244; |
1070 |
T244:; |
T244:; |
1071 |
frs_pop(); |
frs_pop(); |
1072 |
frs_pop(); |
frs_pop(); |
1073 |
base[5]= (V201); |
base[5]= (V198); |
1074 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1075 |
return;} |
return;} |
1076 |
goto T237; |
goto T237; |
1077 |
T237:; |
T237:; |
1078 |
if(!(type_of((V193))==t_symbol)){ |
if(!(type_of((V191))==t_symbol)){ |
1079 |
goto T250;} |
goto T250;} |
1080 |
base[5]= (V193); |
base[5]= (V191); |
1081 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1082 |
Lfboundp(); |
Lfboundp(); |
1083 |
vs_top=sup; |
vs_top=sup; |
1084 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1085 |
goto T250;} |
goto T250;} |
1086 |
base[5]= (V193); |
base[5]= (V191); |
1087 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1088 |
Lspecial_form_p(); |
Lspecial_form_p(); |
1089 |
vs_top=sup; |
vs_top=sup; |
1090 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1091 |
goto T250;} |
goto T250;} |
1092 |
base[5]= VV[46]; |
base[5]= VV[46]; |
1093 |
base[6]= (V193); |
base[6]= (V191); |
1094 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1095 |
Lerror(); |
Lerror(); |
1096 |
frs_pop(); |
frs_pop(); |
1098 |
return; |
return; |
1099 |
goto T250; |
goto T250; |
1100 |
T250:; |
T250:; |
1101 |
V202= (*(LnkLI87))((V196),VV[47],(V186),(V187)); |
V199= (*(LnkLI115))((V194),VV[47],(V184),(V185)); |
1102 |
frs_pop(); |
frs_pop(); |
1103 |
frs_pop(); |
frs_pop(); |
1104 |
base[5]= V202; |
base[5]= V199; |
1105 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1106 |
return;}}}}} |
return;}}}}} |
1107 |
} |
} |
1108 |
} |
} |
1109 |
/* local entry for function WALK-TEMPLATE */ |
/* local entry for function WALK-TEMPLATE */ |
1110 |
|
|
1111 |
static object LI30(V207,V208,V209,V210) |
static object LI30(V204,V205,V206,V207) |
1112 |
|
|
1113 |
register object V207;register object V208;register object V209;register object V210; |
register object V204;register object V205;register object V206;register object V207; |
1114 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1115 |
goto TTL; |
goto TTL; |
1116 |
TTL:; |
TTL:; |
1117 |
if(!(type_of((V208))!=t_cons)){ |
if(!(type_of((V205))!=t_cons)){ |
1118 |
goto T261;} |
goto T261;} |
1119 |
{object V211= (V208); |
{object V209= V205; |
1120 |
if((V211!= VV[63]) |
if((V209!= VV[71]) |
1121 |
&& (V211!= VV[3]) |
&& (V209!= VV[3]) |
1122 |
&& (V211!= VV[88]) |
&& (V209!= VV[116]) |
1123 |
&& (V211!= VV[89]) |
&& (V209!= VV[117]) |
1124 |
&& (V211!= VV[90]))goto T263; |
&& (V209!= VV[118]))goto T263; |
1125 |
base[0]= (V207); |
base[0]= (V204); |
1126 |
base[1]= VV[44]; |
base[1]= VV[44]; |
1127 |
base[2]= (V210); |
base[2]= (V207); |
1128 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1129 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
1130 |
vs_top=sup; |
vs_top=sup; |
1131 |
{object V212 = vs_base[0]; |
{object V210 = vs_base[0]; |
1132 |
VMR30(V212)} |
VMR30(V210)} |
1133 |
goto T263; |
goto T263; |
1134 |
T263:; |
T263:; |
1135 |
if((V211!= VV[37]) |
if((V209!= VV[37]) |
1136 |
&& (V211!= Cnil))goto T267; |
&& (V209!= Cnil))goto T267; |
1137 |
{object V213 = (V207); |
{object V211 = (V204); |
1138 |
VMR30(V213)} |
VMR30(V211)} |
1139 |
goto T267; |
goto T267; |
1140 |
T267:; |
T267:; |
1141 |
if((V211!= VV[91]))goto T268; |
if((V209!= VV[119]))goto T268; |
1142 |
base[0]= (V207); |
base[0]= (V204); |
1143 |
base[1]= VV[48]; |
base[1]= VV[48]; |
1144 |
base[2]= (V210); |
base[2]= (V207); |
1145 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1146 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
1147 |
vs_top=sup; |
vs_top=sup; |
1148 |
{object V214 = vs_base[0]; |
{object V212 = vs_base[0]; |
1149 |
VMR30(V214)} |
VMR30(V212)} |
1150 |
goto T268; |
goto T268; |
1151 |
T268:; |
T268:; |
1152 |
if((V211!= VV[39]) |
if((V209!= VV[39]) |
1153 |
&& (V211!= VV[92]))goto T272; |
&& (V209!= VV[120]))goto T272; |
1154 |
if(type_of((V207))==t_symbol){ |
if(type_of((V204))==t_symbol){ |
1155 |
goto T273;} |
goto T273;} |
1156 |
if(!(type_of((V207))==t_cons||((V207))==Cnil)){ |
if(!(type_of((V204))==t_cons||((V204))==Cnil)){ |
1157 |
goto T274;} |
goto T274;} |
1158 |
if(!(((long)length((V207)))==(2))){ |
if(!(((long)length((V204)))==(2))){ |
1159 |
goto T274;} |
goto T274;} |
1160 |
if(!((CMPcar((V207)))==(VV[35]))){ |
if(!((CMPcar((V204)))==(VV[35]))){ |
1161 |
goto T274;} |
goto T274;} |
1162 |
goto T273; |
goto T273; |
1163 |
T273:; |
T273:; |
1164 |
{object V215 = (V207); |
{object V213 = (V204); |
1165 |
VMR30(V215)} |
VMR30(V213)} |
1166 |
goto T274; |
goto T274; |
1167 |
T274:; |
T274:; |
1168 |
base[0]= (V207); |
base[0]= (V204); |
1169 |
base[1]= (V209); |
base[1]= (V206); |
1170 |
base[2]= (V210); |
base[2]= (V207); |
1171 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1172 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
1173 |
vs_top=sup; |
vs_top=sup; |
1174 |
{object V216 = vs_base[0]; |
{object V214 = vs_base[0]; |
1175 |
VMR30(V216)} |
VMR30(V214)} |
1176 |
goto T272; |
goto T272; |
1177 |
T272:; |
T272:; |
1178 |
FEerror("The ECASE key value ~s is illegal.",1,V211); |
base[0]= VV[49]; |
1179 |
{object V217 = Cnil; |
base[1]= VV[50]; |
1180 |
VMR30(V217)}} |
base[2]= VV[51]; |
1181 |
|
base[3]= VV[52]; |
1182 |
|
base[4]= V205; |
1183 |
|
base[5]= VV[53]; |
1184 |
|
base[6]= VV[54]; |
1185 |
|
base[7]= VV[55]; |
1186 |
|
base[8]= VV[56]; |
1187 |
|
vs_top=(vs_base=base+0)+9; |
1188 |
|
(void) (*Lnk121)(); |
1189 |
|
vs_top=sup; |
1190 |
|
{object V215 = vs_base[0]; |
1191 |
|
VMR30(V215)}} |
1192 |
goto T261; |
goto T261; |
1193 |
T261:; |
T261:; |
1194 |
{object V218= CMPcar((V208)); |
{object V216= CMPcar((V205)); |
1195 |
if((V218!= VV[93]))goto T285; |
if((V216!= VV[122]))goto T294; |
1196 |
V219 = (V207); |
V217= CMPcdr((V205)); |
1197 |
V220= CMPcdr((V208)); |
if((CMPcddr((V205)))!=Cnil){ |
1198 |
if((CMPcddr((V208)))!=Cnil){ |
goto T297;} |
1199 |
goto T288;} |
V218= Cnil; |
1200 |
V221= Cnil; |
goto T295; |
1201 |
goto T286; |
goto T297; |
1202 |
goto T288; |
T297:; |
1203 |
T288:; |
V219 = CMPmake_fixnum((long)length((V204))); |
1204 |
V222 = CMPmake_fixnum((long)length((V207))); |
V220 = CMPmake_fixnum((long)length(CMPcddr((V205)))); |
1205 |
V223 = CMPmake_fixnum((long)length(CMPcddr((V208)))); |
V221= number_minus(V219,V220); |
1206 |
V224= number_minus(V222,V223); |
V218= nthcdr(fix(/* INLINE-ARGS */V221),(V204)); |
1207 |
V221= nthcdr(fix(/* INLINE-ARGS */V224),(V207)); |
goto T295; |
1208 |
goto T286; |
T295:; |
1209 |
T286:; |
{object V222 = (*(LnkLI123))((V204),/* INLINE-ARGS */V217,V218,(V206),(V207)); |
1210 |
V225 = (V209); |
VMR30(V222)} |
1211 |
V226 = (V210); |
goto T294; |
1212 |
{object V227 = (*(LnkLI94))(V219,/* INLINE-ARGS */V220,V221,V225,V226); |
T294:; |
1213 |
VMR30(V227)} |
if((V216!= VV[65]))goto T299; |
1214 |
goto T285; |
{object V223; |
1215 |
T285:; |
V223= (V204); |
1216 |
if((V218!= VV[57]))goto T290; |
{object V224= CMPcadr((V205)); |
1217 |
{object V228; |
if(!(type_of(V224)==t_cons||(V224)==Cnil)){ |
1218 |
V228= (V207); |
goto T307;}} |
1219 |
{object V229= CMPcadr((V208)); |
base[0]= CMPcadr((V205)); |
|
if(!(type_of(V229)==t_cons||(V229)==Cnil)){ |
|
|
goto T298;}} |
|
|
base[0]= CMPcadr((V208)); |
|
1220 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1221 |
Leval(); |
Leval(); |
1222 |
vs_top=sup; |
vs_top=sup; |
1223 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1224 |
goto T295;} |
goto T304;} |
1225 |
goto T296; |
goto T305; |
1226 |
goto T298; |
goto T307; |
1227 |
T298:; |
T307:; |
1228 |
base[0]= CMPcadr((V208)); |
base[0]= CMPcadr((V205)); |
1229 |
base[1]= (V207); |
base[1]= (V204); |
1230 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1231 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
1232 |
vs_top=sup; |
vs_top=sup; |
1233 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1234 |
goto T295;} |
goto T304;} |
|
goto T296; |
|
|
T296:; |
|
|
V208= CMPcaddr((V208)); |
|
|
goto T293; |
|
|
goto T295; |
|
|
T295:; |
|
|
V208= CMPcadddr((V208)); |
|
|
goto T293; |
|
|
T293:; |
|
|
V207= (V228);} |
|
|
goto TTL; |
|
|
goto T290; |
|
|
T290:; |
|
|
if((V218!= VV[95]))goto T305; |
|
|
V208= CMPcadr((V208)); |
|
|
goto TTL; |
|
1235 |
goto T305; |
goto T305; |
1236 |
T305:; |
T305:; |
1237 |
if(!(type_of((V207))!=t_cons)){ |
V205= CMPcaddr((V205)); |
1238 |
goto T312;} |
goto T302; |
1239 |
{object V230 = (V207); |
goto T304; |
1240 |
VMR30(V230)} |
T304:; |
1241 |
goto T312; |
V205= CMPcadddr((V205)); |
1242 |
T312:; |
goto T302; |
1243 |
V231 = (V207); |
T302:; |
1244 |
V232= (*(LnkLI87))(CMPcar((V207)),CMPcar((V208)),(V209),(V210)); |
V204= (V223);} |
1245 |
V233= (*(LnkLI87))(CMPcdr((V207)),CMPcdr((V208)),(V209),(V210)); |
goto TTL; |
1246 |
{object V234 = (*(LnkLI96))(V231,/* INLINE-ARGS */V232,/* INLINE-ARGS */V233); |
goto T299; |
1247 |
VMR30(V234)}} |
T299:; |
1248 |
|
if((V216!= VV[124]))goto T314; |
1249 |
|
V205= CMPcadr((V205)); |
1250 |
|
goto TTL; |
1251 |
|
goto T314; |
1252 |
|
T314:; |
1253 |
|
if(!(type_of((V204))!=t_cons)){ |
1254 |
|
goto T321;} |
1255 |
|
{object V225 = (V204); |
1256 |
|
VMR30(V225)} |
1257 |
|
goto T321; |
1258 |
|
T321:; |
1259 |
|
V226= (*(LnkLI115))(CMPcar((V204)),CMPcar((V205)),(V206),(V207)); |
1260 |
|
V227= (*(LnkLI115))(CMPcdr((V204)),CMPcdr((V205)),(V206),(V207)); |
1261 |
|
{object V228 = (*(LnkLI125))((V204),/* INLINE-ARGS */V226,/* INLINE-ARGS */V227); |
1262 |
|
VMR30(V228)}} |
1263 |
base[0]=base[0]; |
base[0]=base[0]; |
1264 |
return Cnil; |
return Cnil; |
1265 |
} |
} |
1266 |
/* local entry for function WALK-TEMPLATE-HANDLE-REPEAT */ |
/* local entry for function WALK-TEMPLATE-HANDLE-REPEAT */ |
1267 |
|
|
1268 |
static object LI31(V240,V241,V242,V243,V244) |
static object LI31(V234,V235,V236,V237,V238) |
1269 |
|
|
1270 |
object V240;object V241;object V242;object V243;object V244; |
object V234;object V235;object V236;object V237;object V238; |
1271 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1272 |
goto TTL; |
goto TTL; |
1273 |
TTL:; |
TTL:; |
1274 |
if(!(((V240))==((V242)))){ |
if(!(((V234))==((V236)))){ |
1275 |
goto T315;} |
goto T324;} |
1276 |
{object V245 = (*(LnkLI87))((V240),CMPcdr((V241)),(V243),(V244)); |
{object V239 = (*(LnkLI115))((V234),CMPcdr((V235)),(V237),(V238)); |
1277 |
VMR31(V245)} |
VMR31(V239)} |
1278 |
goto T315; |
goto T324; |
1279 |
T315:; |
T324:; |
1280 |
{object V246 = (*(LnkLI97))((V240),(V241),CMPcar((V241)),(V242),(V243),(V244)); |
{object V240 = (*(LnkLI126))((V234),(V235),CMPcar((V235)),(V236),(V237),(V238)); |
1281 |
VMR31(V246)} |
VMR31(V240)} |
1282 |
return Cnil; |
return Cnil; |
1283 |
} |
} |
1284 |
/* local entry for function WALK-TEMPLATE-HANDLE-REPEAT-1 */ |
/* local entry for function WALK-TEMPLATE-HANDLE-REPEAT-1 */ |
1285 |
|
|
1286 |
static object LI32(V253,V254,V255,V256,V257,V258) |
static object LI32(V247,V248,V249,V250,V251,V252) |
1287 |
|
|
1288 |
register object V253;register object V254;register object V255;register object V256;register object V257;register object V258; |
register object V247;register object V248;register object V249;register object V250;register object V251;register object V252; |
1289 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1290 |
goto TTL; |
goto TTL; |
1291 |
TTL:; |
TTL:; |
1292 |
if(((V253))!=Cnil){ |
if(((V247))!=Cnil){ |
1293 |
goto T318;} |
goto T327;} |
1294 |
{object V259 = Cnil; |
{object V253 = Cnil; |
1295 |
VMR32(V259)} |
VMR32(V253)} |
1296 |
goto T318; |
goto T327; |
1297 |
T318:; |
T327:; |
1298 |
if(!(((V253))==((V256)))){ |
if(!(((V247))==((V250)))){ |
1299 |
goto T321;} |
goto T330;} |
1300 |
if(((V255))!=Cnil){ |
if(((V249))!=Cnil){ |
1301 |
goto T324;} |
goto T333;} |
1302 |
{object V260 = (*(LnkLI87))((V256),CMPcdr((V254)),(V257),(V258)); |
{object V254 = (*(LnkLI115))((V250),CMPcdr((V248)),(V251),(V252)); |
1303 |
VMR32(V260)} |
VMR32(V254)} |
1304 |
goto T324; |
goto T333; |
1305 |
T324:; |
T333:; |
1306 |
base[0]= VV[49]; |
base[0]= VV[57]; |
1307 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1308 |
Lerror(); |
Lerror(); |
1309 |
vs_top=sup; |
vs_top=sup; |
1310 |
{object V261 = vs_base[0]; |
{object V255 = vs_base[0]; |
1311 |
VMR32(V261)} |
VMR32(V255)} |
1312 |
goto T321; |
goto T330; |
1313 |
T321:; |
T330:; |
1314 |
if(((V255))!=Cnil){ |
if(((V249))!=Cnil){ |
1315 |
goto T328;} |
goto T337;} |
1316 |
{object V262; |
{object V256; |
1317 |
V262= (V254); |
V256= (V248); |
1318 |
V255= CMPcar((V254)); |
V249= CMPcar((V248)); |
1319 |
V254= (V262);} |
V248= (V256);} |
1320 |
goto TTL; |
goto TTL; |
1321 |
goto T328; |
goto T337; |
1322 |
T328:; |
T337:; |
1323 |
V263 = (V253); |
V257= (*(LnkLI115))(CMPcar((V247)),CMPcar((V249)),(V251),(V252)); |
1324 |
V264= (*(LnkLI87))(CMPcar((V253)),CMPcar((V255)),(V257),(V258)); |
V258= (*(LnkLI126))(CMPcdr((V247)),(V248),CMPcdr((V249)),(V250),(V251),(V252)); |
1325 |
V265= (*(LnkLI97))(CMPcdr((V253)),(V254),CMPcdr((V255)),(V256),(V257),(V258)); |
{object V259 = (*(LnkLI125))((V247),/* INLINE-ARGS */V257,/* INLINE-ARGS */V258); |
1326 |
{object V266 = (*(LnkLI96))(V263,/* INLINE-ARGS */V264,/* INLINE-ARGS */V265); |
VMR32(V259)} |
|
VMR32(V266)} |
|
1327 |
base[0]=base[0]; |
base[0]=base[0]; |
1328 |
return Cnil; |
return Cnil; |
1329 |
} |
} |
1330 |
/* local entry for function WALK-REPEAT-EVAL */ |
/* local entry for function WALK-REPEAT-EVAL */ |
1331 |
|
|
1332 |
static object LI33(V269,V270) |
static object LI33(V262,V263) |
1333 |
|
|
1334 |
register object V269;object V270; |
register object V262;object V263; |
1335 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1336 |
goto TTL; |
goto TTL; |
1337 |
TTL:; |
TTL:; |
1338 |
if((V269)==Cnil){ |
if((V262)==Cnil){ |
1339 |
{object V271 = Cnil; |
{object V264 = Cnil; |
1340 |
VMR33(V271)}} |
VMR33(V264)}} |
1341 |
V272 = (V269); |
base[0]= CMPcar((V262)); |
|
base[0]= CMPcar((V269)); |
|
1342 |
base[1]= VV[44]; |
base[1]= VV[44]; |
1343 |
base[2]= (V270); |
base[2]= (V263); |
1344 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1345 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
1346 |
vs_top=sup; |
vs_top=sup; |
1347 |
V273= vs_base[0]; |
V265= vs_base[0]; |
1348 |
V274= (*(LnkLI98))(CMPcdr((V269)),(V270)); |
V266= (*(LnkLI127))(CMPcdr((V262)),(V263)); |
1349 |
{object V275 = (*(LnkLI96))(V272,V273,/* INLINE-ARGS */V274); |
{object V267 = (*(LnkLI125))((V262),V265,/* INLINE-ARGS */V266); |
1350 |
VMR33(V275)} |
VMR33(V267)} |
1351 |
base[0]=base[0]; |
base[0]=base[0]; |
1352 |
return Cnil; |
return Cnil; |
1353 |
} |
} |
1354 |
/* local entry for function RECONS */ |
/* local entry for function RECONS */ |
1355 |
|
|
1356 |
static object LI34(V279,V280,V281) |
static object LI34(V271,V272,V273) |
1357 |
|
|
1358 |
object V279;object V280;object V281; |
object V271;object V272;object V273; |
1359 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
1360 |
goto TTL; |
goto TTL; |
1361 |
TTL:; |
TTL:; |
1362 |
if(!((CMPcar((V279)))==((V280)))){ |
if(!((CMPcar((V271)))==((V272)))){ |
1363 |
goto T341;} |
goto T350;} |
1364 |
if((CMPcdr((V279)))==((V281))){ |
if((CMPcdr((V271)))==((V273))){ |
1365 |
goto T342;} |
goto T351;} |
1366 |
goto T341; |
goto T350; |
1367 |
T341:; |
T350:; |
1368 |
{object V282 = make_cons((V280),(V281)); |
{object V274 = make_cons((V272),(V273)); |
1369 |
VMR34(V282)} |
VMR34(V274)} |
1370 |
goto T342; |
goto T351; |
1371 |
T342:; |
T351:; |
1372 |
{object V283 = (V279); |
{object V275 = (V271); |
1373 |
VMR34(V283)} |
VMR34(V275)} |
1374 |
return Cnil; |
return Cnil; |
1375 |
} |
} |
1376 |
/* local entry for function RELIST */ |
/* local entry for function RELIST */ |
1377 |
|
|
1378 |
static object LI35(object V284,object first,...) |
static object LI35(object V276,object first,...) |
1379 |
{ |
{ |
1380 |
va_list ap; |
va_list ap; |
1381 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
1382 |
{object V285; |
{object V277; |
1383 |
object V286; |
object V278; |
1384 |
va_start(ap,first); |
va_start(ap,first); |
1385 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1386 |
V285= V284; |
V277= V276; |
1387 |
narg= narg - 1; |
narg= narg - 1; |
1388 |
V287 = list_vector_new(narg,first,ap); |
V279 = list_vector_new(narg,first,ap); |
1389 |
V286= V287; |
V278= V279; |
1390 |
if(((V286))!=Cnil){ |
if(((V278))!=Cnil){ |
1391 |
goto T347;} |
goto T356;} |
1392 |
{object V288 = Cnil; |
{object V280 = Cnil; |
1393 |
VMR35(V288)} |
VMR35(V280)} |
1394 |
goto T347; |
goto T356; |
1395 |
T347:; |
T356:; |
1396 |
{object V289 = (*(LnkLI99))((V285),(V286),Cnil); |
{object V281 = (*(LnkLI128))((V277),(V278),Cnil); |
1397 |
VMR35(V289)} |
VMR35(V281)} |
1398 |
va_end(ap); |
va_end(ap); |
1399 |
return Cnil;} |
return Cnil;} |
1400 |
} |
} |
1401 |
/* local entry for function RELIST* */ |
/* local entry for function RELIST* */ |
1402 |
|
|
1403 |
static object LI36(object V290,object first,...) |
static object LI36(object V282,object first,...) |
1404 |
{ |
{ |
1405 |
va_list ap; |
va_list ap; |
1406 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
1407 |
{object V291; |
{object V283; |
1408 |
object V292; |
object V284; |
1409 |
va_start(ap,first); |
va_start(ap,first); |
1410 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1411 |
V291= V290; |
V283= V282; |
1412 |
narg= narg - 1; |
narg= narg - 1; |
1413 |
V293 = list_vector_new(narg,first,ap); |
V285 = list_vector_new(narg,first,ap); |
1414 |
V292= V293; |
V284= V285; |
1415 |
{object V294 = (*(LnkLI99))((V291),(V292),Ct); |
{object V286 = (*(LnkLI128))((V283),(V284),Ct); |
1416 |
VMR36(V294)} |
VMR36(V286)} |
1417 |
va_end(ap); |
va_end(ap); |
1418 |
return Cnil;} |
return Cnil;} |
1419 |
} |
} |
1420 |
/* local entry for function RELIST-INTERNAL */ |
/* local entry for function RELIST-INTERNAL */ |
1421 |
|
|
1422 |
static object LI37(V298,V299,V300) |
static object LI37(V290,V291,V292) |
1423 |
|
|
1424 |
object V298;register object V299;object V300; |
object V290;register object V291;object V292; |
1425 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
1426 |
goto TTL; |
goto TTL; |
1427 |
TTL:; |
TTL:; |
1428 |
if((CMPcdr((V299)))!=Cnil){ |
if((CMPcdr((V291)))!=Cnil){ |
1429 |
goto T350;} |
goto T359;} |
1430 |
if(((V300))==Cnil){ |
if(((V292))==Cnil){ |
1431 |
goto T353;} |
goto T362;} |
1432 |
{object V301 = CMPcar((V299)); |
{object V293 = CMPcar((V291)); |
1433 |
VMR37(V301)} |
VMR37(V293)} |
1434 |
goto T353; |
goto T362; |
1435 |
T353:; |
T362:; |
1436 |
{object V302 = (*(LnkLI96))((V298),CMPcar((V299)),Cnil); |
{object V294 = (*(LnkLI125))((V290),CMPcar((V291)),Cnil); |
1437 |
VMR37(V302)} |
VMR37(V294)} |
1438 |
goto T350; |
goto T359; |
1439 |
T350:; |
T359:; |
1440 |
V303 = (V298); |
V295= CMPcar((V291)); |
1441 |
V304= CMPcar((V299)); |
V296= (*(LnkLI128))(CMPcdr((V290)),CMPcdr((V291)),(V292)); |
1442 |
V305= (*(LnkLI99))(CMPcdr((V298)),CMPcdr((V299)),(V300)); |
{object V297 = (*(LnkLI125))((V290),/* INLINE-ARGS */V295,/* INLINE-ARGS */V296); |
1443 |
{object V306 = (*(LnkLI96))(V303,/* INLINE-ARGS */V304,/* INLINE-ARGS */V305); |
VMR37(V297)} |
|
VMR37(V306)} |
|
1444 |
return Cnil; |
return Cnil; |
1445 |
} |
} |
1446 |
/* function definition for WALK-DECLARATIONS */ |
/* function definition for WALK-DECLARATIONS */ |
1449 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1450 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
1451 |
vs_check; |
vs_check; |
1452 |
{object V307; |
{object V298; |
1453 |
object V308; |
object V299; |
1454 |
register object V309; |
register object V300; |
1455 |
object V310; |
object V301; |
1456 |
register object V311; |
register object V302; |
1457 |
object V312; |
object V303; |
1458 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
1459 |
if(vs_top-vs_base>6) too_many_arguments(); |
if(vs_top-vs_base>6) too_many_arguments(); |
1460 |
V307=(base[0]); |
V298=(base[0]); |
1461 |
V308=(base[1]); |
V299=(base[1]); |
1462 |
V309=(base[2]); |
V300=(base[2]); |
1463 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
1464 |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
if(vs_base>=vs_top){vs_top=sup;goto T364;} |
1465 |
V310=(base[3]); |
V301=(base[3]); |
1466 |
vs_base++; |
vs_base++; |
1467 |
if(vs_base>=vs_top){vs_top=sup;goto T356;} |
if(vs_base>=vs_top){vs_top=sup;goto T365;} |
1468 |
V311=(base[4]); |
V302=(base[4]); |
1469 |
vs_base++; |
vs_base++; |
1470 |
if(vs_base>=vs_top){vs_top=sup;goto T357;} |
if(vs_base>=vs_top){vs_top=sup;goto T366;} |
1471 |
V312=(base[5]); |
V303=(base[5]); |
1472 |
vs_top=sup; |
vs_top=sup; |
1473 |
goto T358; |
goto T367; |
1474 |
goto T355; |
goto T364; |
1475 |
T355:; |
T364:; |
1476 |
V310= Cnil; |
V301= Cnil; |
1477 |
goto T356; |
goto T365; |
1478 |
T356:; |
T365:; |
1479 |
V311= Cnil; |
V302= Cnil; |
1480 |
goto T357; |
goto T366; |
1481 |
T357:; |
T366:; |
1482 |
V312= Cnil; |
V303= Cnil; |
1483 |
goto T358; |
goto T367; |
1484 |
T358:; |
T367:; |
1485 |
{object V313; |
{object V304; |
1486 |
object V314; |
object V305; |
1487 |
object V315; |
object V306; |
1488 |
V313= CMPcar((V307)); |
V304= CMPcar((V298)); |
1489 |
V314= Cnil; |
V305= Cnil; |
1490 |
V315= Cnil; |
V306= Cnil; |
1491 |
if(!(type_of((V313))==t_string)){ |
if(!(type_of((V304))==t_string)){ |
1492 |
goto T366;} |
goto T375;} |
1493 |
if((CMPcdr((V307)))==Cnil){ |
if((CMPcdr((V298)))==Cnil){ |
1494 |
goto T366;} |
goto T375;} |
1495 |
if(((V310))!=Cnil){ |
if(((V301))!=Cnil){ |
1496 |
goto T366;} |
goto T375;} |
1497 |
if(((V311))!=Cnil){ |
if(((V302))!=Cnil){ |
1498 |
goto T366;} |
goto T375;} |
1499 |
V316 = (V307); |
base[7]= CMPcdr((V298)); |
1500 |
V317 = (V313); |
base[8]= (V299); |
1501 |
base[7]= CMPcdr((V307)); |
base[9]= (V300); |
|
base[8]= (V308); |
|
|
base[9]= (V309); |
|
1502 |
base[10]= Ct; |
base[10]= Ct; |
1503 |
vs_top=(vs_base=base+7)+4; |
vs_top=(vs_base=base+7)+4; |
1504 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
1505 |
vs_top=sup; |
vs_top=sup; |
1506 |
V318= vs_base[0]; |
V307= vs_base[0]; |
1507 |
base[7]= (*(LnkLI96))(V316,V317,V318); |
base[7]= (*(LnkLI125))((V298),(V304),V307); |
1508 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1509 |
return; |
return; |
1510 |
goto T366; |
goto T375; |
1511 |
T366:; |
T375:; |
1512 |
if(!(type_of((V313))==t_cons||((V313))==Cnil)){ |
if(!(type_of((V304))==t_cons||((V304))==Cnil)){ |
|
goto T380;} |
|
|
if(!((CMPcar((V313)))==(VV[50]))){ |
|
|
goto T380;} |
|
|
{register object V319; |
|
|
register object V320; |
|
|
V319= CMPcdr((V313)); |
|
|
V320= CMPcar((V319)); |
|
|
goto T388; |
|
|
T388:; |
|
|
if(!(((V319))==Cnil)){ |
|
1513 |
goto T389;} |
goto T389;} |
1514 |
goto T384; |
if(!((CMPcar((V304)))==(VV[58]))){ |
1515 |
goto T389; |
goto T389;} |
1516 |
T389:; |
{register object V308; |
1517 |
{register object V321; |
register object V309; |
1518 |
register object V322; |
V308= CMPcdr((V304)); |
1519 |
object V323; |
V309= CMPcar((V308)); |
|
V321= CMPcar((V320)); |
|
|
V322= CMPcadr((V320)); |
|
|
V323= CMPcddr((V320)); |
|
|
{register object x= (V321),V324= (VV[27]->s.s_dbind); |
|
|
while(V324!=Cnil) |
|
|
if(eql(x,V324->c.c_car)){ |
|
|
goto T400; |
|
|
}else V324=V324->c.c_cdr; |
|
|
goto T399;} |
|
|
goto T400; |
|
|
T400:; |
|
|
V325 = (V321);{object V327; |
|
|
V327= (*(LnkLI74))((V322),(V309)); |
|
|
if(V327==Cnil)goto T402; |
|
|
V326= V327; |
|
|
goto T401; |
|
|
goto T402; |
|
|
T402:;} |
|
|
V326= (V322); |
|
|
goto T401; |
|
|
T401:; |
|
|
V328 = (V323); |
|
|
V329= listA(3,V325,V326,V328); |
|
|
(void)((*(LnkLI101))(/* INLINE-ARGS */V329,(V309))); |
|
|
goto T397; |
|
|
goto T399; |
|
|
T399:; |
|
|
(void)((*(LnkLI101))((V320),(V309))); |
|
1520 |
goto T397; |
goto T397; |
1521 |
T397:; |
T397:; |
1522 |
V311= make_cons(V320,(V311));} |
if(!(((V308))==Cnil)){ |
1523 |
V319= CMPcdr((V319)); |
goto T398;} |
1524 |
V320= CMPcar((V319)); |
goto T393; |
1525 |
goto T388;} |
goto T398; |
1526 |
goto T384; |
T398:; |
1527 |
T384:; |
{register object V310; |
1528 |
V331 = (V307); |
register object V311; |
1529 |
V332 = (V313); |
object V312; |
1530 |
base[7]= CMPcdr((V307)); |
V310= CMPcar((V309)); |
1531 |
base[8]= (V308); |
V311= CMPcadr((V309)); |
1532 |
base[9]= (V309); |
V312= CMPcddr((V309)); |
1533 |
base[10]= (V310); |
{register object x= (V310),V313= (VV[27]->s.s_dbind); |
1534 |
base[11]= (V311); |
while(V313!=Cnil) |
1535 |
|
if(eql(x,V313->c.c_car)){ |
1536 |
|
goto T409; |
1537 |
|
}else V313=V313->c.c_cdr; |
1538 |
|
goto T408;} |
1539 |
|
goto T409; |
1540 |
|
T409:;{object V315; |
1541 |
|
V315= (*(LnkLI102))((V311),(V300)); |
1542 |
|
if(V315==Cnil)goto T411; |
1543 |
|
V314= V315; |
1544 |
|
goto T410; |
1545 |
|
goto T411; |
1546 |
|
T411:;} |
1547 |
|
V314= (V311); |
1548 |
|
goto T410; |
1549 |
|
T410:; |
1550 |
|
V316= listA(3,(V310),V314,(V312)); |
1551 |
|
(void)((*(LnkLI130))(/* INLINE-ARGS */V316,(V300))); |
1552 |
|
goto T406; |
1553 |
|
goto T408; |
1554 |
|
T408:; |
1555 |
|
(void)((*(LnkLI130))((V309),(V300))); |
1556 |
|
goto T406; |
1557 |
|
T406:; |
1558 |
|
V302= make_cons(V309,(V302));} |
1559 |
|
V308= CMPcdr((V308)); |
1560 |
|
V309= CMPcar((V308)); |
1561 |
|
goto T397;} |
1562 |
|
goto T393; |
1563 |
|
T393:; |
1564 |
|
base[7]= CMPcdr((V298)); |
1565 |
|
base[8]= (V299); |
1566 |
|
base[9]= (V300); |
1567 |
|
base[10]= (V301); |
1568 |
|
base[11]= (V302); |
1569 |
vs_top=(vs_base=base+7)+5; |
vs_top=(vs_base=base+7)+5; |
1570 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
1571 |
vs_top=sup; |
vs_top=sup; |
1572 |
V333= vs_base[0]; |
V318= vs_base[0]; |
1573 |
base[7]= (*(LnkLI96))(V331,V332,V333); |
base[7]= (*(LnkLI125))((V298),(V304),V318); |
1574 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1575 |
return; |
return; |
1576 |
goto T380; |
goto T389; |
1577 |
T380:; |
T389:; |
1578 |
if(((V313))==Cnil){ |
if(((V304))==Cnil){ |
1579 |
goto T417;} |
goto T426;} |
1580 |
if(!(type_of((V313))==t_cons||((V313))==Cnil)){ |
if(!(type_of((V304))==t_cons||((V304))==Cnil)){ |
1581 |
goto T417;} |
goto T426;} |
1582 |
if(((*(LnkLI86))(CMPcar((V313))))!=Cnil){ |
if(((*(LnkLI114))(CMPcar((V304))))!=Cnil){ |
1583 |
goto T417;} |
goto T426;} |
1584 |
base[7]= (V313); |
base[7]= (V304); |
1585 |
base[8]= (V309); |
base[8]= (V300); |
1586 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1587 |
Lmacroexpand_1(); |
Lmacroexpand_1(); |
1588 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
1589 |
V315= vs_base[0]; |
V306= vs_base[0]; |
1590 |
vs_base++; |
vs_base++; |
1591 |
}else{ |
}else{ |
1592 |
V315= Cnil;} |
V306= Cnil;} |
1593 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
1594 |
V314= vs_base[0]; |
V305= vs_base[0]; |
1595 |
}else{ |
}else{ |
1596 |
V314= Cnil;} |
V305= Cnil;} |
1597 |
vs_top=sup; |
vs_top=sup; |
1598 |
if(((V314))==Cnil){ |
if(((V305))==Cnil){ |
1599 |
goto T417;} |
goto T426;} |
1600 |
base[7]= (*(LnkLI96))((V307),(V315),CMPcdr((V307))); |
base[7]= (*(LnkLI125))((V298),(V306),CMPcdr((V298))); |
1601 |
base[8]= (V308); |
base[8]= (V299); |
1602 |
base[9]= (V309); |
base[9]= (V300); |
1603 |
base[10]= (V310); |
base[10]= (V301); |
1604 |
base[11]= (V311); |
base[11]= (V302); |
1605 |
if((V312)!=Cnil){ |
if((V303)!=Cnil){ |
1606 |
base[12]= (V312); |
base[12]= (V303); |
1607 |
goto T434;} |
goto T443;} |
1608 |
base[12]= (V307); |
base[12]= (V298); |
1609 |
goto T434; |
goto T443; |
1610 |
T434:; |
T443:; |
1611 |
vs_top=(vs_base=base+7)+6; |
vs_top=(vs_base=base+7)+6; |
1612 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
1613 |
return; |
return; |
1614 |
goto T417; |
goto T426; |
1615 |
T417:; |
T426:; |
1616 |
if((V312)!=Cnil){ |
if((V303)!=Cnil){ |
1617 |
base[7]= (V312); |
base[7]= (V303); |
1618 |
goto T435;} |
goto T444;} |
1619 |
base[7]= (V307); |
base[7]= (V298); |
1620 |
goto T435; |
goto T444; |
1621 |
T435:; |
T444:; |
1622 |
base[8]= (V309); |
base[8]= (V300); |
1623 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1624 |
super_funcall_no_event((V308)); |
super_funcall_no_event((V299)); |
1625 |
return;} |
return;} |
1626 |
} |
} |
1627 |
} |
} |
1628 |
/* local entry for function WALK-UNEXPECTED-DECLARE */ |
/* local entry for function WALK-UNEXPECTED-DECLARE */ |
1629 |
|
|
1630 |
static object LI39(V337,V338,V339) |
static object LI39(V322,V323,V324) |
1631 |
|
|
1632 |
object V337;object V338;object V339; |
object V322;object V323;object V324; |
1633 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
1634 |
goto TTL; |
goto TTL; |
1635 |
TTL:; |
TTL:; |
1636 |
base[0]= VV[51]; |
base[0]= VV[59]; |
1637 |
base[1]= (V337); |
base[1]= (V322); |
1638 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1639 |
(void) (*Lnk102)(); |
(void) (*Lnk131)(); |
1640 |
vs_top=sup; |
vs_top=sup; |
1641 |
{object V340 = (V337); |
{object V325 = (V322); |
1642 |
VMR39(V340)} |
VMR39(V325)} |
1643 |
base[0]=base[0]; |
base[0]=base[0]; |
1644 |
return Cnil; |
return Cnil; |
1645 |
} |
} |
1646 |
/* local entry for function WALK-ARGLIST */ |
/* local entry for function WALK-ARGLIST */ |
1647 |
|
|
1648 |
static object LI40(object V343,object V342,object V341,object first,...) |
static object LI40(object V328,object V327,object V326,object first,...) |
1649 |
{ |
{ |
1650 |
va_list ap; |
va_list ap; |
1651 |
int narg = VFUN_NARGS; VMB40 VMS40 VMV40 |
int narg = VFUN_NARGS; VMB40 VMS40 VMV40 |
1652 |
{register object V344; |
{register object V329; |
1653 |
object V345; |
object V330; |
1654 |
register object V346; |
register object V331; |
1655 |
object V347; |
object V332; |
1656 |
va_start(ap,first); |
va_start(ap,first); |
1657 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1658 |
V344= V343; |
V329= V328; |
1659 |
V345= V342; |
V330= V327; |
1660 |
V346= V341; |
V331= V326; |
1661 |
narg = narg - 3; |
narg = narg - 3; |
1662 |
if (narg <= 0) goto T440; |
if (narg <= 0) goto T449; |
1663 |
else { |
else { |
1664 |
V347= first;} |
V332= first;} |
1665 |
--narg; goto T441; |
--narg; goto T450; |
1666 |
goto T440; |
goto T449; |
1667 |
T440:; |
T449:; |
1668 |
V347= Cnil; |
V332= Cnil; |
1669 |
goto T441; |
goto T450; |
1670 |
T441:; |
T450:; |
1671 |
{register object V348; |
{register object V333; |
1672 |
V348= Cnil; |
V333= Cnil; |
1673 |
if(((V344))!=Cnil){ |
if(((V329))!=Cnil){ |
|
goto T445;} |
|
|
{object V349 = Cnil; |
|
|
VMR40(V349)} |
|
|
goto T445; |
|
|
T445:; |
|
|
V348= CMPcar((V344)); |
|
|
V350 = (V348); |
|
|
if(!(type_of(V350)==t_symbol)){ |
|
|
goto T448;}{object V351; |
|
|
{register object x= (V348),V352= VV[52]; |
|
|
while(V352!=Cnil) |
|
|
if(eql(x,V352->c.c_car)){ |
|
|
V351= V352; |
|
|
goto T453; |
|
|
}else V352=V352->c.c_cdr; |
|
|
V351= Cnil;} |
|
|
goto T453; |
|
|
T453:; |
|
|
if(V351==Cnil)goto T452; |
|
|
goto T451; |
|
|
goto T452; |
|
|
T452:;} |
|
|
(void)((*(LnkLI103))((V348),(V346))); |
|
|
goto T451; |
|
|
T451:; |
|
|
V353 = (V344); |
|
|
V354 = (V348); |
|
|
V355= CMPcdr((V344)); |
|
|
V356 = (V345); |
|
|
V357 = (V346); |
|
|
if((V347)==Cnil){ |
|
|
V358= Cnil; |
|
1674 |
goto T454;} |
goto T454;} |
1675 |
{register object x= (V348),V360= VV[52]; |
{object V334 = Cnil; |
1676 |
while(V360!=Cnil) |
VMR40(V334)} |
|
if(eql(x,V360->c.c_car)){ |
|
|
V359= V360; |
|
|
goto T455; |
|
|
}else V360=V360->c.c_cdr; |
|
|
V359= Cnil;} |
|
|
goto T455; |
|
|
T455:; |
|
|
V358= ((V359)==Cnil?Ct:Cnil); |
|
1677 |
goto T454; |
goto T454; |
1678 |
T454:; |
T454:; |
1679 |
V361= (VFUN_NARGS=4,(*(LnkLI104))(/* INLINE-ARGS */V355,V356,V357,V358)); |
V333= CMPcar((V329)); |
1680 |
{object V362 = (*(LnkLI96))(V353,V354,/* INLINE-ARGS */V361); |
if(!(type_of((V333))==t_symbol)){ |
1681 |
VMR40(V362)} |
goto T457;}{object V335; |
1682 |
goto T448; |
{register object x= (V333),V336= VV[60]; |
1683 |
T448:; |
while(V336!=Cnil) |
1684 |
if(!(type_of((V348))==t_cons)){ |
if(eql(x,V336->c.c_car)){ |
1685 |
goto T457;} |
V335= V336; |
1686 |
{object V363; |
goto T462; |
1687 |
V364 = (V344); |
}else V336=V336->c.c_cdr; |
1688 |
if(((V347))==Cnil){ |
V335= Cnil;} |
|
goto T462;} |
|
|
V365= (VFUN_NARGS=4,(*(LnkLI104))((V348),(V345),(V346),(V347))); |
|
|
goto T460; |
|
1689 |
goto T462; |
goto T462; |
1690 |
T462:; |
T462:; |
1691 |
V366 = (V348); |
if(V335==Cnil)goto T461; |
1692 |
V367= CMPcar((V348)); |
goto T460; |
1693 |
base[0]= CMPcadr((V348)); |
goto T461; |
1694 |
base[1]= VV[44]; |
T461:;} |
1695 |
base[2]= (V346); |
(void)((*(LnkLI132))((V333),(V331))); |
|
vs_top=(vs_base=base+0)+3; |
|
|
(void) (*Lnk81)(); |
|
|
vs_top=sup; |
|
|
V368= vs_base[0]; |
|
|
V365= (VFUN_NARGS=4,(*(LnkLI105))(V366,/* INLINE-ARGS */V367,V368,CMPcddr((V348)))); |
|
1696 |
goto T460; |
goto T460; |
1697 |
T460:; |
T460:; |
1698 |
V369= (VFUN_NARGS=4,(*(LnkLI104))(CMPcdr((V344)),(V345),(V346),Cnil)); |
V337= CMPcdr((V329)); |
1699 |
V363= (*(LnkLI96))(V364,V365,/* INLINE-ARGS */V369); |
if((V332)==Cnil){ |
1700 |
if(!(type_of(CMPcar((V348)))==t_symbol)){ |
V338= Cnil; |
1701 |
goto T470;} |
goto T463;} |
1702 |
(void)((*(LnkLI103))(CMPcar((V348)),(V346))); |
{register object x= (V333),V340= VV[60]; |
1703 |
goto T468; |
while(V340!=Cnil) |
1704 |
goto T470; |
if(eql(x,V340->c.c_car)){ |
1705 |
T470:; |
V339= V340; |
1706 |
(void)((*(LnkLI103))(CMPcadar((V348)),(V346))); |
goto T464; |
1707 |
goto T468; |
}else V340=V340->c.c_cdr; |
1708 |
T468:; |
V339= Cnil;} |
1709 |
if(!((CMPcddr((V348)))==Cnil)){ |
goto T464; |
1710 |
goto T473;} |
T464:; |
1711 |
goto T472; |
V338= ((V339)==Cnil?Ct:Cnil); |
1712 |
goto T473; |
goto T463; |
1713 |
T473:; |
T463:; |
1714 |
if(!(((type_of(CMPcaddr((V348)))==t_symbol?Ct:Cnil))==Cnil)){ |
V341= (VFUN_NARGS=4,(*(LnkLI133))(/* INLINE-ARGS */V337,(V330),(V331),V338)); |
1715 |
goto T475;} |
{object V342 = (*(LnkLI125))((V329),(V333),/* INLINE-ARGS */V341); |
1716 |
goto T472; |
VMR40(V342)} |
|
goto T475; |
|
|
T475:; |
|
|
(void)((*(LnkLI103))(CMPcaddr((V348)),(V346))); |
|
|
goto T472; |
|
|
T472:; |
|
|
{object V370 = (V363); |
|
|
VMR40(V370)}} |
|
1717 |
goto T457; |
goto T457; |
1718 |
T457:; |
T457:; |
1719 |
base[0]= VV[53]; |
if(!(type_of((V333))==t_cons)){ |
1720 |
base[1]= (V344); |
goto T466;} |
1721 |
|
{object V343; |
1722 |
|
if(((V332))==Cnil){ |
1723 |
|
goto T471;} |
1724 |
|
V344= (VFUN_NARGS=4,(*(LnkLI133))((V333),(V330),(V331),(V332))); |
1725 |
|
goto T469; |
1726 |
|
goto T471; |
1727 |
|
T471:; |
1728 |
|
V345= CMPcar((V333)); |
1729 |
|
base[0]= CMPcadr((V333)); |
1730 |
|
base[1]= VV[44]; |
1731 |
|
base[2]= (V331); |
1732 |
|
vs_top=(vs_base=base+0)+3; |
1733 |
|
(void) (*Lnk109)(); |
1734 |
|
vs_top=sup; |
1735 |
|
V346= vs_base[0]; |
1736 |
|
V344= (VFUN_NARGS=4,(*(LnkLI134))((V333),/* INLINE-ARGS */V345,V346,CMPcddr((V333)))); |
1737 |
|
goto T469; |
1738 |
|
T469:; |
1739 |
|
V347= (VFUN_NARGS=4,(*(LnkLI133))(CMPcdr((V329)),(V330),(V331),Cnil)); |
1740 |
|
V343= (*(LnkLI125))((V329),V344,/* INLINE-ARGS */V347); |
1741 |
|
if(!(type_of(CMPcar((V333)))==t_symbol)){ |
1742 |
|
goto T479;} |
1743 |
|
(void)((*(LnkLI132))(CMPcar((V333)),(V331))); |
1744 |
|
goto T477; |
1745 |
|
goto T479; |
1746 |
|
T479:; |
1747 |
|
(void)((*(LnkLI132))(CMPcadar((V333)),(V331))); |
1748 |
|
goto T477; |
1749 |
|
T477:; |
1750 |
|
if(!((CMPcddr((V333)))==Cnil)){ |
1751 |
|
goto T482;} |
1752 |
|
goto T481; |
1753 |
|
goto T482; |
1754 |
|
T482:; |
1755 |
|
if(!(((type_of(CMPcaddr((V333)))==t_symbol?Ct:Cnil))==Cnil)){ |
1756 |
|
goto T484;} |
1757 |
|
goto T481; |
1758 |
|
goto T484; |
1759 |
|
T484:; |
1760 |
|
(void)((*(LnkLI132))(CMPcaddr((V333)),(V331))); |
1761 |
|
goto T481; |
1762 |
|
T481:; |
1763 |
|
{object V348 = (V343); |
1764 |
|
VMR40(V348)}} |
1765 |
|
goto T466; |
1766 |
|
T466:; |
1767 |
|
base[0]= VV[61]; |
1768 |
|
base[1]= (V329); |
1769 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1770 |
Lerror(); |
Lerror(); |
1771 |
vs_top=sup; |
vs_top=sup; |
1772 |
{object V371 = vs_base[0]; |
{object V349 = vs_base[0]; |
1773 |
VMR40(V371)}} |
VMR40(V349)}} |
1774 |
va_end(ap); |
va_end(ap); |
1775 |
base[0]=base[0]; |
base[0]=base[0]; |
1776 |
return Cnil;} |
return Cnil;} |
1777 |
} |
} |
1778 |
/* local entry for function WALK-LET */ |
/* local entry for function WALK-LET */ |
1779 |
|
|
1780 |
static object LI41(V375,V376,V377) |
static object LI41(V353,V354,V355) |
1781 |
|
|
1782 |
object V375;object V376;object V377; |
object V353;object V354;object V355; |
1783 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
1784 |
goto TTL; |
goto TTL; |
1785 |
TTL:; |
TTL:; |
1786 |
{object V378 = (*(LnkLI106))((V375),(V376),(V377),Cnil); |
{object V356 = (*(LnkLI135))((V353),(V354),(V355),Cnil); |
1787 |
VMR41(V378)} |
VMR41(V356)} |
1788 |
return Cnil; |
return Cnil; |
1789 |
} |
} |
1790 |
/* local entry for function WALK-LET* */ |
/* local entry for function WALK-LET* */ |
1791 |
|
|
1792 |
static object LI42(V382,V383,V384) |
static object LI42(V360,V361,V362) |
1793 |
|
|
1794 |
object V382;object V383;object V384; |
object V360;object V361;object V362; |
1795 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
1796 |
goto TTL; |
goto TTL; |
1797 |
TTL:; |
TTL:; |
1798 |
{object V385 = (*(LnkLI106))((V382),(V383),(V384),Ct); |
{object V363 = (*(LnkLI135))((V360),(V361),(V362),Ct); |
1799 |
VMR42(V385)} |
VMR42(V363)} |
1800 |
return Cnil; |
return Cnil; |
1801 |
} |
} |
1802 |
/* local entry for function WALK-PROG */ |
/* local entry for function WALK-PROG */ |
1803 |
|
|
1804 |
static object LI43(V389,V390,V391) |
static object LI43(V367,V368,V369) |
1805 |
|
|
1806 |
object V389;object V390;object V391; |
object V367;object V368;object V369; |
1807 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
1808 |
goto TTL; |
goto TTL; |
1809 |
TTL:; |
TTL:; |
1810 |
{object V392 = (*(LnkLI107))((V389),(V390),(V391),Cnil); |
{object V370 = (*(LnkLI136))((V367),(V368),(V369),Cnil); |
1811 |
VMR43(V392)} |
VMR43(V370)} |
1812 |
return Cnil; |
return Cnil; |
1813 |
} |
} |
1814 |
/* local entry for function WALK-PROG* */ |
/* local entry for function WALK-PROG* */ |
1815 |
|
|
1816 |
static object LI44(V396,V397,V398) |
static object LI44(V374,V375,V376) |
1817 |
|
|
1818 |
object V396;object V397;object V398; |
object V374;object V375;object V376; |
1819 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
1820 |
goto TTL; |
goto TTL; |
1821 |
TTL:; |
TTL:; |
1822 |
{object V399 = (*(LnkLI107))((V396),(V397),(V398),Ct); |
{object V377 = (*(LnkLI136))((V374),(V375),(V376),Ct); |
1823 |
VMR44(V399)} |
VMR44(V377)} |
1824 |
return Cnil; |
return Cnil; |
1825 |
} |
} |
1826 |
/* local entry for function WALK-DO */ |
/* local entry for function WALK-DO */ |
1827 |
|
|
1828 |
static object LI45(V403,V404,V405) |
static object LI45(V381,V382,V383) |
1829 |
|
|
1830 |
object V403;object V404;object V405; |
object V381;object V382;object V383; |
1831 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
1832 |
goto TTL; |
goto TTL; |
1833 |
TTL:; |
TTL:; |
1834 |
{object V406 = (*(LnkLI108))((V403),(V404),(V405),Cnil); |
{object V384 = (*(LnkLI137))((V381),(V382),(V383),Cnil); |
1835 |
VMR45(V406)} |
VMR45(V384)} |
1836 |
return Cnil; |
return Cnil; |
1837 |
} |
} |
1838 |
/* local entry for function WALK-DO* */ |
/* local entry for function WALK-DO* */ |
1839 |
|
|
1840 |
static object LI46(V410,V411,V412) |
static object LI46(V388,V389,V390) |
1841 |
|
|
1842 |
object V410;object V411;object V412; |
object V388;object V389;object V390; |
1843 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
1844 |
goto TTL; |
goto TTL; |
1845 |
TTL:; |
TTL:; |
1846 |
{object V413 = (*(LnkLI108))((V410),(V411),(V412),Ct); |
{object V391 = (*(LnkLI137))((V388),(V389),(V390),Ct); |
1847 |
VMR46(V413)} |
VMR46(V391)} |
1848 |
return Cnil; |
return Cnil; |
1849 |
} |
} |
1850 |
/* local entry for function WALK-LETLET* */ |
/* local entry for function WALK-LETLET* */ |
1851 |
|
|
1852 |
static object LI47(V418,V419,V420,V421) |
static object LI47(V396,V397,V398,V399) |
1853 |
|
|
1854 |
register object V418;object V419;object V420;object V421; |
register object V396;object V397;object V398;object V399; |
1855 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
1856 |
goto TTL; |
goto TTL; |
1857 |
TTL:; |
TTL:; |
1858 |
{object V422; |
{object V400; |
1859 |
V423 = (V420); |
V401= (VFUN_NARGS=1,(*(LnkLI22))((V398))); |
1860 |
V424= (VFUN_NARGS=1,(*(LnkLI22))((V420))); |
V400= (*(LnkLI2))((V398),Cnil,/* INLINE-ARGS */V401); |
1861 |
V422= (*(LnkLI2))(V423,Cnil,/* INLINE-ARGS */V424); |
{object V402; |
1862 |
{object V425; |
object V403; |
1863 |
object V426; |
object V404; |
1864 |
object V427; |
object V405; |
1865 |
object V428; |
object V406; |
1866 |
object V429; |
V402= CMPcar((V396)); |
1867 |
V425= CMPcar((V418)); |
V403= CMPcadr((V396)); |
1868 |
V426= CMPcadr((V418)); |
V404= CMPcddr((V396)); |
1869 |
V427= CMPcddr((V418)); |
V405= (*(LnkLI138))((V403),(V398),(V400),(V397),(V399)); |
1870 |
V428= (*(LnkLI109))((V426),(V420),(V422),(V419),(V421)); |
base[5]= (V404); |
1871 |
base[5]= (V427); |
base[6]= (VV[127]->s.s_gfdef); |
1872 |
base[6]= (VV[98]->s.s_gfdef); |
base[7]= (V400); |
|
base[7]= (V422); |
|
1873 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1874 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
1875 |
vs_top=sup; |
vs_top=sup; |
1876 |
V429= vs_base[0]; |
V406= vs_base[0]; |
1877 |
{object V430 = (VFUN_NARGS=4,(*(LnkLI105))((V418),(V425),(V428),(V429))); |
{object V407 = (VFUN_NARGS=4,(*(LnkLI134))((V396),(V402),(V405),(V406))); |
1878 |
VMR47(V430)}}} |
VMR47(V407)}}} |
1879 |
base[0]=base[0]; |
base[0]=base[0]; |
1880 |
return Cnil; |
return Cnil; |
1881 |
} |
} |
1882 |
/* local entry for function WALK-LOCALLY */ |
/* local entry for function WALK-LOCALLY */ |
1883 |
|
|
1884 |
static object LI48(V434,V435,V436) |
static object LI48(V411,V412,V413) |
1885 |
|
|
1886 |
object V434;object V435;object V436; |
object V411;object V412;object V413; |
1887 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
1888 |
goto TTL; |
goto TTL; |
1889 |
TTL:; |
TTL:; |
1890 |
{object V437; |
{object V414; |
1891 |
object V438; |
object V415; |
1892 |
object V439; |
object V416; |
1893 |
V437= CMPcar((V434)); |
V414= CMPcar((V411)); |
1894 |
V438= CMPcdr((V434)); |
V415= CMPcdr((V411)); |
1895 |
base[3]= (V438); |
base[3]= (V415); |
1896 |
base[4]= (VV[98]->s.s_gfdef); |
base[4]= (VV[127]->s.s_gfdef); |
1897 |
base[5]= (V436); |
base[5]= (V413); |
1898 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1899 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
1900 |
vs_top=sup; |
vs_top=sup; |
1901 |
V439= vs_base[0]; |
V416= vs_base[0]; |
1902 |
{object V440 = (VFUN_NARGS=3,(*(LnkLI105))((V434),(V437),(V439))); |
{object V417 = (VFUN_NARGS=3,(*(LnkLI134))((V411),(V414),(V416))); |
1903 |
VMR48(V440)}} |
VMR48(V417)}} |
1904 |
base[0]=base[0]; |
base[0]=base[0]; |
1905 |
return Cnil; |
return Cnil; |
1906 |
} |
} |
1907 |
/* local entry for function WALK-PROGPROG* */ |
/* local entry for function WALK-PROGPROG* */ |
1908 |
|
|
1909 |
static object LI50(V445,V446,V447,V448) |
static object LI50(V422,V423,V424,V425) |
1910 |
|
|
1911 |
register object V445;object V446;object V447;object V448; |
register object V422;object V423;object V424;object V425; |
1912 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
1913 |
goto TTL; |
goto TTL; |
1914 |
TTL:; |
TTL:; |
1915 |
base[0]=MMcons((V446),Cnil); |
base[0]=MMcons((V423),Cnil); |
1916 |
{object V449; |
{object V426; |
1917 |
V450 = (V447); |
V427= (VFUN_NARGS=1,(*(LnkLI22))((V424))); |
1918 |
V451= (VFUN_NARGS=1,(*(LnkLI22))((V447))); |
V426= (*(LnkLI2))((V424),Cnil,/* INLINE-ARGS */V427); |
1919 |
V449= (*(LnkLI2))(V450,Cnil,/* INLINE-ARGS */V451); |
{object V428; |
1920 |
{object V452; |
object V429; |
1921 |
object V453; |
V428= CMPcadr((V422)); |
1922 |
V452= CMPcadr((V445)); |
if(type_of((V428))==t_symbol){ |
1923 |
if(type_of((V452))==t_symbol){ |
goto T506;} |
1924 |
goto T497;} |
V429= Cnil; |
1925 |
V453= Cnil; |
goto T505; |
1926 |
goto T496; |
goto T506; |
1927 |
goto T497; |
T506:; |
1928 |
T497:; |
V429= (((((V428))==(Cnil)?Ct:Cnil))==Cnil?Ct:Cnil); |
1929 |
V453= (((((V452))==(Cnil)?Ct:Cnil))==Cnil?Ct:Cnil); |
goto T505; |
1930 |
goto T496; |
T505:; |
1931 |
T496:; |
{object V430; |
1932 |
{object V454; |
object V431; |
1933 |
object V455; |
object V432; |
1934 |
object V456; |
object V433; |
1935 |
object V457; |
if(((V429))==Cnil){ |
1936 |
if(((V453))==Cnil){ |
goto T510;} |
1937 |
goto T501;} |
base[3]= CMPcar((V422)); |
1938 |
base[3]= CMPcar((V445)); |
base[4]= CMPcadr((V422)); |
1939 |
base[4]= CMPcadr((V445)); |
base[5]= CMPcaddr((V422)); |
1940 |
base[5]= CMPcaddr((V445)); |
base[6]= CMPcdddr((V422)); |
|
base[6]= CMPcdddr((V445)); |
|
1941 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1942 |
goto T499; |
goto T508; |
1943 |
goto T501; |
goto T510; |
1944 |
T501:; |
T510:; |
1945 |
base[3]= CMPcar((V445)); |
base[3]= CMPcar((V422)); |
1946 |
base[4]= Cnil; |
base[4]= Cnil; |
1947 |
base[5]= CMPcadr((V445)); |
base[5]= CMPcadr((V422)); |
1948 |
base[6]= CMPcddr((V445)); |
base[6]= CMPcddr((V422)); |
1949 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1950 |
goto T499; |
goto T508; |
1951 |
T499:; |
T508:; |
1952 |
if(vs_base>=vs_top){vs_top=sup;goto T511;} |
if(vs_base>=vs_top){vs_top=sup;goto T520;} |
1953 |
V454= vs_base[0]; |
V430= vs_base[0]; |
1954 |
vs_base++; |
vs_base++; |
1955 |
if(vs_base>=vs_top){vs_top=sup;goto T512;} |
if(vs_base>=vs_top){vs_top=sup;goto T521;} |
1956 |
V455= vs_base[0]; |
V431= vs_base[0]; |
1957 |
vs_base++; |
vs_base++; |
1958 |
if(vs_base>=vs_top){vs_top=sup;goto T513;} |
if(vs_base>=vs_top){vs_top=sup;goto T522;} |
1959 |
V456= vs_base[0]; |
V432= vs_base[0]; |
1960 |
vs_base++; |
vs_base++; |
1961 |
if(vs_base>=vs_top){vs_top=sup;goto T514;} |
if(vs_base>=vs_top){vs_top=sup;goto T523;} |
1962 |
V457= vs_base[0]; |
V433= vs_base[0]; |
1963 |
vs_top=sup; |
vs_top=sup; |
1964 |
goto T515; |
goto T524; |
1965 |
goto T511; |
goto T520; |
1966 |
T511:; |
T520:; |
1967 |
V454= Cnil; |
V430= Cnil; |
1968 |
goto T512; |
goto T521; |
1969 |
T512:; |
T521:; |
1970 |
V455= Cnil; |
V431= Cnil; |
1971 |
goto T513; |
goto T522; |
1972 |
T513:; |
T522:; |
1973 |
V456= Cnil; |
V432= Cnil; |
1974 |
goto T514; |
goto T523; |
1975 |
T514:; |
T523:; |
1976 |
V457= Cnil; |
V433= Cnil; |
1977 |
goto T515; |
goto T524; |
1978 |
T515:; |
T524:; |
1979 |
{object V458; |
{object V434; |
1980 |
object V459; |
object V435; |
1981 |
V458= (*(LnkLI109))((V456),(V447),(V449),(base[0]->c.c_car),(V448)); |
V434= (*(LnkLI138))((V432),(V424),(V426),(base[0]->c.c_car),(V425)); |
1982 |
base[5]= (V457); |
base[5]= (V433); |
1983 |
base[6]= |
base[6]= |
1984 |
make_cclosure_new(LC82,Cnil,base[0],Cdata); |
make_cclosure_new(LC82,Cnil,base[0],Cdata); |
1985 |
base[7]= (V449); |
base[7]= (V426); |
1986 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1987 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
1988 |
vs_top=sup; |
vs_top=sup; |
1989 |
V459= vs_base[0]; |
V435= vs_base[0]; |
1990 |
if(((V455))==Cnil){ |
if(((V431))==Cnil){ |
1991 |
goto T522;} |
goto T531;} |
1992 |
{object V460 = (VFUN_NARGS=5,(*(LnkLI105))((V445),(V454),(V455),(V458),(V459))); |
{object V436 = (VFUN_NARGS=5,(*(LnkLI134))((V422),(V430),(V431),(V434),(V435))); |
1993 |
VMR49(V460)} |
VMR49(V436)} |
1994 |
goto T522; |
goto T531; |
1995 |
T522:; |
T531:; |
1996 |
{object V461 = (VFUN_NARGS=4,(*(LnkLI105))((V445),(V454),(V458),(V459))); |
{object V437 = (VFUN_NARGS=4,(*(LnkLI134))((V422),(V430),(V434),(V435))); |
1997 |
VMR49(V461)}}}}} |
VMR49(V437)}}}}} |
1998 |
base[0]=base[0]; |
base[0]=base[0]; |
1999 |
return Cnil; |
return Cnil; |
2000 |
} |
} |
2001 |
/* local entry for function WALK-DODO* */ |
/* local entry for function WALK-DODO* */ |
2002 |
|
|
2003 |
static object LI51(V466,V467,V468,V469) |
static object LI51(V442,V443,V444,V445) |
2004 |
|
|
2005 |
register object V466;object V467;object V468;object V469; |
register object V442;object V443;object V444;object V445; |
2006 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
2007 |
goto TTL; |
goto TTL; |
2008 |
TTL:; |
TTL:; |
2009 |
{register object V470; |
{register object V446; |
2010 |
V471 = (V468); |
V447= (VFUN_NARGS=1,(*(LnkLI22))((V444))); |
2011 |
V472= (VFUN_NARGS=1,(*(LnkLI22))((V468))); |
V446= (*(LnkLI2))((V444),Cnil,/* INLINE-ARGS */V447); |
2012 |
V470= (*(LnkLI2))(V471,Cnil,/* INLINE-ARGS */V472); |
{object V448; |
2013 |
{object V473; |
object V449; |
2014 |
object V474; |
object V450; |
2015 |
object V475; |
object V451; |
2016 |
object V476; |
object V452; |
2017 |
object V477; |
object V453; |
2018 |
object V478; |
V448= CMPcar((V442)); |
2019 |
V473= CMPcar((V466)); |
V449= CMPcadr((V442)); |
2020 |
V474= CMPcadr((V466)); |
V450= CMPcaddr((V442)); |
2021 |
V475= CMPcaddr((V466)); |
V451= CMPcdddr((V442)); |
2022 |
V476= CMPcdddr((V466)); |
V452= (*(LnkLI138))((V449),(V444),(V446),(V443),(V445)); |
2023 |
V477= (*(LnkLI109))((V474),(V468),(V470),(V467),(V469)); |
base[6]= (V451); |
2024 |
base[6]= (V476); |
base[7]= (VV[127]->s.s_gfdef); |
2025 |
base[7]= (VV[98]->s.s_gfdef); |
base[8]= (V446); |
|
base[8]= (V470); |
|
2026 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
2027 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
2028 |
vs_top=sup; |
vs_top=sup; |
2029 |
V478= vs_base[0]; |
V453= vs_base[0]; |
2030 |
V479 = (V466); |
V454= (*(LnkLI139))((V449),(V452),(V443),(V446)); |
2031 |
V480 = (V473); |
V455= (*(LnkLI115))((V450),VV[62],(V443),(V446)); |
2032 |
V481= (*(LnkLI110))((V474),(V477),(V467),(V470)); |
{object V456 = (VFUN_NARGS=5,(*(LnkLI134))((V442),(V448),/* INLINE-ARGS */V454,/* INLINE-ARGS */V455,(V453))); |
2033 |
V482= (*(LnkLI87))((V475),VV[54],(V467),(V470)); |
VMR50(V456)}}} |
|
V483 = (V478); |
|
|
{object V484 = (VFUN_NARGS=5,(*(LnkLI105))(V479,V480,/* INLINE-ARGS */V481,/* INLINE-ARGS */V482,V483)); |
|
|
VMR50(V484)}}} |
|
2034 |
base[0]=base[0]; |
base[0]=base[0]; |
2035 |
return Cnil; |
return Cnil; |
2036 |
} |
} |
2040 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2041 |
register object *sup=base+VM51; VC51 |
register object *sup=base+VM51; VC51 |
2042 |
vs_check; |
vs_check; |
2043 |
{object V485; |
{object V457; |
2044 |
object V486; |
object V458; |
2045 |
object V487; |
object V459; |
2046 |
check_arg(3); |
check_arg(3); |
2047 |
V485=(base[0]); |
V457=(base[0]); |
2048 |
V486=(base[1]); |
V458=(base[1]); |
2049 |
V487=(base[2]); |
V459=(base[2]); |
2050 |
vs_top=sup; |
vs_top=sup; |
2051 |
goto TTL; |
goto TTL; |
2052 |
TTL:; |
TTL:; |
2053 |
{object V488; |
{object V460; |
2054 |
object V489; |
object V461; |
2055 |
object V490; |
object V462; |
2056 |
V488= CMPcadr((V485)); |
V460= CMPcadr((V457)); |
2057 |
V489= CMPcaddr((V485)); |
V461= CMPcaddr((V457)); |
2058 |
V490= CMPcdddr((V485)); |
V462= CMPcdddr((V457)); |
2059 |
{object V492; |
{object V464; |
2060 |
object V493= (V489); |
object V465= (V461); |
2061 |
if(V493==Cnil){ |
if(V465==Cnil){ |
2062 |
V491= Cnil; |
V463= Cnil; |
2063 |
goto T538;} |
goto T547;} |
2064 |
base[4]=V492=MMcons(Cnil,Cnil); |
base[4]=V464=MMcons(Cnil,Cnil); |
2065 |
goto T539; |
goto T548; |
2066 |
T539:; |
T548:; |
2067 |
if(!(type_of((V493->c.c_car))==t_cons||((V493->c.c_car))==Cnil)){ |
if(!(type_of((V465->c.c_car))==t_cons||((V465->c.c_car))==Cnil)){ |
2068 |
goto T542;} |
goto T551;} |
2069 |
(V492->c.c_car)= CMPcar((V493->c.c_car)); |
(V464->c.c_car)= CMPcar((V465->c.c_car)); |
2070 |
goto T540; |
goto T549; |
2071 |
goto T542; |
goto T551; |
2072 |
T542:; |
T551:; |
2073 |
(V492->c.c_car)= (V493->c.c_car); |
(V464->c.c_car)= (V465->c.c_car); |
2074 |
goto T540; |
goto T549; |
2075 |
T540:; |
T549:; |
2076 |
if((V493=MMcdr(V493))==Cnil){ |
if((V465=MMcdr(V465))==Cnil){ |
2077 |
V491= base[4]; |
V463= base[4]; |
2078 |
goto T538;} |
goto T547;} |
2079 |
V492=MMcdr(V492)=MMcons(Cnil,Cnil); |
V464=MMcdr(V464)=MMcons(Cnil,Cnil); |
2080 |
goto T539;} |
goto T548;} |
2081 |
goto T538; |
goto T547; |
2082 |
T538:; |
T547:; |
2083 |
V495= list(2,VV[50],make_cons(VV[29],V491)); |
V467= list(2,VV[58],make_cons(VV[29],V463)); |
2084 |
V496= listA(3,VV[56],Cnil,(V490)); |
V468= listA(3,VV[64],Cnil,(V462)); |
2085 |
V497= make_cons(/* INLINE-ARGS */V496,Cnil); |
V469= make_cons(/* INLINE-ARGS */V468,Cnil); |
2086 |
base[3]= list(4,VV[1],Cnil,/* INLINE-ARGS */V495,list(3,VV[55],/* INLINE-ARGS */V497,list(4,VV[57],(V488),list(3,VV[1],(V489),VV[58]),VV[59]))); |
base[3]= list(4,VV[1],Cnil,/* INLINE-ARGS */V467,list(3,VV[63],/* INLINE-ARGS */V469,list(4,VV[65],(V460),list(3,VV[1],(V461),VV[66]),VV[67]))); |
2087 |
base[4]= (V486); |
base[4]= (V458); |
2088 |
base[5]= (V487); |
base[5]= (V459); |
2089 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2090 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2091 |
return;} |
return;} |
2092 |
} |
} |
2093 |
} |
} |
2094 |
/* local entry for function WALK-MULTIPLE-VALUE-SETQ */ |
/* local entry for function WALK-MULTIPLE-VALUE-SETQ */ |
2095 |
|
|
2096 |
static object LI54(V501,V502,V503) |
static object LI54(V473,V474,V475) |
2097 |
|
|
2098 |
register object V501;object V502;object V503; |
register object V473;object V474;object V475; |
2099 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
2100 |
goto TTL; |
goto TTL; |
2101 |
TTL:; |
TTL:; |
2102 |
base[0]=MMcons((V503),Cnil); |
base[0]=MMcons((V475),Cnil); |
2103 |
{object V504; |
{object V476; |
2104 |
V504= CMPcadr((V501)); |
V476= CMPcadr((V473)); |
2105 |
base[1]= |
base[1]= |
2106 |
make_cclosure_new(LC83,Cnil,base[0],Cdata); |
make_cclosure_new(LC83,Cnil,base[0],Cdata); |
2107 |
base[2]= (V504); |
base[2]= (V476); |
2108 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2109 |
(void) (*Lnk111)(); |
(void) (*Lnk140)(); |
2110 |
vs_top=sup; |
vs_top=sup; |
2111 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2112 |
goto T548;} |
goto T557;} |
2113 |
{object V505; |
{object V477; |
2114 |
object V506; |
object V478; |
2115 |
object V507; |
object V479; |
2116 |
object V508; |
object V480; |
2117 |
{object V509; |
{object V481; |
2118 |
object V510= (V504); |
object V482= (V476); |
2119 |
if(V510==Cnil){ |
if(V482==Cnil){ |
2120 |
V505= Cnil; |
V477= Cnil; |
2121 |
goto T552;} |
goto T561;} |
2122 |
base[5]=V509=MMcons(Cnil,Cnil); |
base[5]=V481=MMcons(Cnil,Cnil); |
2123 |
goto T553; |
goto T562; |
2124 |
T553:; |
T562:; |
2125 |
vs_base=vs_top; |
vs_base=vs_top; |
2126 |
Lgensym(); |
Lgensym(); |
2127 |
vs_top=sup; |
vs_top=sup; |
2128 |
(V509->c.c_car)= vs_base[0]; |
(V481->c.c_car)= vs_base[0]; |
2129 |
if((V510=MMcdr(V510))==Cnil){ |
if((V482=MMcdr(V482))==Cnil){ |
2130 |
V505= base[5]; |
V477= base[5]; |
2131 |
goto T552;} |
goto T561;} |
2132 |
V509=MMcdr(V509)=MMcons(Cnil,Cnil); |
V481=MMcdr(V481)=MMcons(Cnil,Cnil); |
2133 |
goto T553;} |
goto T562;} |
2134 |
goto T552; |
goto T561; |
2135 |
T552:; |
T561:; |
2136 |
{object V512; |
{object V484; |
2137 |
object V513= (V504); |
object V485= (V476); |
2138 |
object V514= (V505); |
object V486= (V477); |
2139 |
if(V513==Cnil||V514==Cnil){ |
if(V485==Cnil||V486==Cnil){ |
2140 |
V506= Cnil; |
V478= Cnil; |
2141 |
goto T555;} |
goto T564;} |
2142 |
base[5]=V512=MMcons(Cnil,Cnil); |
base[5]=V484=MMcons(Cnil,Cnil); |
2143 |
goto T556; |
goto T565; |
2144 |
T556:; |
T565:; |
2145 |
(V512->c.c_car)= list(3,VV[60],(V513->c.c_car),(V514->c.c_car)); |
(V484->c.c_car)= list(3,VV[68],(V485->c.c_car),(V486->c.c_car)); |
2146 |
if((V513=MMcdr(V513))==Cnil||(V514=MMcdr(V514))==Cnil){ |
if((V485=MMcdr(V485))==Cnil||(V486=MMcdr(V486))==Cnil){ |
2147 |
V506= base[5]; |
V478= base[5]; |
|
goto T555;} |
|
|
V512=MMcdr(V512)=MMcons(Cnil,Cnil); |
|
|
goto T556;} |
|
|
goto T555; |
|
|
T555:; |
|
|
V507= listA(4,VV[61],(V505),CMPcaddr((V501)),(V506)); |
|
|
base[5]= (V507); |
|
|
base[6]= (V502); |
|
|
base[7]= (base[0]->c.c_car); |
|
|
vs_top=(vs_base=base+5)+3; |
|
|
(void) (*Lnk81)(); |
|
|
vs_top=sup; |
|
|
V508= vs_base[0]; |
|
|
if(!(((V508))==((V507)))){ |
|
2148 |
goto T564;} |
goto T564;} |
2149 |
{object V517 = (V501); |
V484=MMcdr(V484)=MMcons(Cnil,Cnil); |
2150 |
VMR52(V517)} |
goto T565;} |
2151 |
goto T564; |
goto T564; |
2152 |
T564:; |
T564:; |
2153 |
{object V518 = (V508); |
V479= listA(4,VV[69],(V477),CMPcaddr((V473)),(V478)); |
2154 |
VMR52(V518)}} |
base[5]= (V479); |
2155 |
goto T548; |
base[6]= (V474); |
2156 |
T548:; |
base[7]= (base[0]->c.c_car); |
2157 |
{object V519 = (*(LnkLI87))((V501),VV[62],(V502),(base[0]->c.c_car)); |
vs_top=(vs_base=base+5)+3; |
2158 |
VMR52(V519)}} |
(void) (*Lnk109)(); |
2159 |
|
vs_top=sup; |
2160 |
|
V480= vs_base[0]; |
2161 |
|
if(!(((V480))==((V479)))){ |
2162 |
|
goto T573;} |
2163 |
|
{object V489 = (V473); |
2164 |
|
VMR52(V489)} |
2165 |
|
goto T573; |
2166 |
|
T573:; |
2167 |
|
{object V490 = (V480); |
2168 |
|
VMR52(V490)}} |
2169 |
|
goto T557; |
2170 |
|
T557:; |
2171 |
|
{object V491 = (*(LnkLI115))((V473),VV[70],(V474),(base[0]->c.c_car)); |
2172 |
|
VMR52(V491)}} |
2173 |
base[0]=base[0]; |
base[0]=base[0]; |
2174 |
return Cnil; |
return Cnil; |
2175 |
} |
} |
2176 |
/* local entry for function WALK-MULTIPLE-VALUE-BIND */ |
/* local entry for function WALK-MULTIPLE-VALUE-BIND */ |
2177 |
|
|
2178 |
static object LI56(V523,V524,V525) |
static object LI56(V495,V496,V497) |
2179 |
|
|
2180 |
register object V523;object V524;object V525; |
register object V495;object V496;object V497; |
2181 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
2182 |
goto TTL; |
goto TTL; |
2183 |
TTL:; |
TTL:; |
2184 |
base[0]=MMcons((V525),Cnil); |
base[0]=MMcons((V497),Cnil); |
2185 |
base[1]=MMcons((V524),base[0]); |
base[1]=MMcons((V496),base[0]); |
2186 |
V526 = (base[0]->c.c_car); |
V498= (VFUN_NARGS=1,(*(LnkLI22))((base[0]->c.c_car))); |
2187 |
V527= (VFUN_NARGS=1,(*(LnkLI22))((base[0]->c.c_car))); |
base[2]= (*(LnkLI2))((base[0]->c.c_car),Cnil,/* INLINE-ARGS */V498); |
|
base[2]= (*(LnkLI2))(V526,Cnil,/* INLINE-ARGS */V527); |
|
2188 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
2189 |
{object V528; |
{object V499; |
2190 |
object V529; |
object V500; |
2191 |
object V530; |
object V501; |
2192 |
object V531; |
object V502; |
2193 |
V528= CMPcar((V523)); |
V499= CMPcar((V495)); |
2194 |
base[4]= CMPcadr((V523)); |
base[4]= CMPcadr((V495)); |
2195 |
base[4]=MMcons(base[4],base[2]); |
base[4]=MMcons(base[4],base[2]); |
2196 |
V529= (*(LnkLI87))(CMPcaddr((V523)),VV[63],(base[1]->c.c_car),(base[0]->c.c_car)); |
V500= (*(LnkLI115))(CMPcaddr((V495)),VV[71],(base[1]->c.c_car),(base[0]->c.c_car)); |
2197 |
V530= CMPcdddr((V523)); |
V501= CMPcdddr((V495)); |
2198 |
base[7]=MMcons(Cnil,base[4]); |
base[7]=MMcons(Cnil,base[4]); |
2199 |
base[9]= (V530); |
base[9]= (V501); |
2200 |
base[10]= |
base[10]= |
2201 |
make_cclosure_new(LC84,Cnil,base[7],Cdata); |
make_cclosure_new(LC84,Cnil,base[7],Cdata); |
2202 |
base[11]= (base[2]->c.c_car); |
base[11]= (base[2]->c.c_car); |
2203 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
2204 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
2205 |
vs_top=sup; |
vs_top=sup; |
2206 |
V531= vs_base[0]; |
V502= vs_base[0]; |
2207 |
{object V532 = (VFUN_NARGS=5,(*(LnkLI105))((V523),(V528),(base[7]->c.c_car),(V529),(V531))); |
{object V503 = (VFUN_NARGS=5,(*(LnkLI134))((V495),(V499),(base[7]->c.c_car),(V500),(V502))); |
2208 |
VMR53(V532)}} |
VMR53(V503)}} |
2209 |
base[0]=base[0]; |
base[0]=base[0]; |
2210 |
return Cnil; |
return Cnil; |
2211 |
} |
} |
2212 |
/* local entry for function WALK-BINDINGS-1 */ |
/* local entry for function WALK-BINDINGS-1 */ |
2213 |
|
|
2214 |
static object LI57(V538,V539,V540,V541,V542) |
static object LI57(V509,V510,V511,V512,V513) |
2215 |
|
|
2216 |
register object V538;object V539;register object V540;object V541;object V542; |
register object V509;object V510;register object V511;object V512;object V513; |
2217 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
2218 |
goto TTL; |
goto TTL; |
2219 |
TTL:; |
TTL:; |
2220 |
if((V538)==Cnil){ |
if((V509)==Cnil){ |
2221 |
{object V543 = Cnil; |
{object V514 = Cnil; |
2222 |
VMR54(V543)}} |
VMR54(V514)}} |
2223 |
{register object V544; |
{register object V515; |
2224 |
V544= CMPcar((V538)); |
V515= CMPcar((V509)); |
2225 |
V545 = (V538); |
if(!(type_of((V515))==t_symbol)){ |
|
if(!(type_of((V544))==t_symbol)){ |
|
|
goto T578;} |
|
|
(void)((*(LnkLI103))((V544),(V540))); |
|
|
V546= V544; |
|
|
goto T576; |
|
|
goto T578; |
|
|
T578:; |
|
|
{object V548; |
|
|
V549 = (V544); |
|
|
V550= CMPcar((V544)); |
|
|
base[0]= CMPcadr((V544)); |
|
|
base[1]= (V541); |
|
|
if(((V542))==Cnil){ |
|
2226 |
goto T587;} |
goto T587;} |
2227 |
base[2]= (V540); |
(void)((*(LnkLI132))((V515),(V511))); |
2228 |
|
V516= V515; |
2229 |
goto T585; |
goto T585; |
2230 |
goto T587; |
goto T587; |
2231 |
T587:; |
T587:; |
2232 |
base[2]= (V539); |
{object V518; |
2233 |
goto T585; |
V519= CMPcar((V515)); |
2234 |
T585:; |
base[0]= CMPcadr((V515)); |
2235 |
|
base[1]= (V512); |
2236 |
|
if(((V513))==Cnil){ |
2237 |
|
goto T596;} |
2238 |
|
base[2]= (V511); |
2239 |
|
goto T594; |
2240 |
|
goto T596; |
2241 |
|
T596:; |
2242 |
|
base[2]= (V510); |
2243 |
|
goto T594; |
2244 |
|
T594:; |
2245 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2246 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2247 |
vs_top=sup; |
vs_top=sup; |
2248 |
V551= vs_base[0]; |
V520= vs_base[0]; |
2249 |
V548= (VFUN_NARGS=4,(*(LnkLI105))(V549,/* INLINE-ARGS */V550,V551,CMPcddr((V544)))); |
V518= (VFUN_NARGS=4,(*(LnkLI134))((V515),/* INLINE-ARGS */V519,V520,CMPcddr((V515)))); |
2250 |
(void)((*(LnkLI103))(CMPcar((V544)),(V540))); |
(void)((*(LnkLI132))(CMPcar((V515)),(V511))); |
2251 |
V546= (V548);} |
V516= (V518);} |
2252 |
goto T576; |
goto T585; |
2253 |
T576:; |
T585:; |
2254 |
V552= (*(LnkLI109))(CMPcdr((V538)),(V539),(V540),(V541),(V542)); |
V521= (*(LnkLI138))(CMPcdr((V509)),(V510),(V511),(V512),(V513)); |
2255 |
{object V553 = (*(LnkLI96))(V545,V546,/* INLINE-ARGS */V552); |
{object V522 = (*(LnkLI125))((V509),V516,/* INLINE-ARGS */V521); |
2256 |
VMR54(V553)}} |
VMR54(V522)}} |
2257 |
base[0]=base[0]; |
base[0]=base[0]; |
2258 |
return Cnil; |
return Cnil; |
2259 |
} |
} |
2260 |
/* local entry for function WALK-BINDINGS-2 */ |
/* local entry for function WALK-BINDINGS-2 */ |
2261 |
|
|
2262 |
static object LI58(V558,V559,V560,V561) |
static object LI58(V527,V528,V529,V530) |
2263 |
|
|
2264 |
register object V558;object V559;object V560;object V561; |
register object V527;object V528;object V529;object V530; |
2265 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
2266 |
goto TTL; |
goto TTL; |
2267 |
TTL:; |
TTL:; |
2268 |
if((V558)==Cnil){ |
if((V527)==Cnil){ |
2269 |
{object V562 = Cnil; |
{object V531 = Cnil; |
2270 |
VMR55(V562)}} |
VMR55(V531)}} |
2271 |
{register object V563; |
{register object V532; |
2272 |
object V564; |
object V533; |
2273 |
V563= CMPcar((V558)); |
V532= CMPcar((V527)); |
2274 |
V564= CMPcar((V559)); |
V533= CMPcar((V528)); |
2275 |
V565 = (V558); |
if(!(type_of((V532))==t_symbol)){ |
2276 |
if(!(type_of((V563))==t_symbol)){ |
goto T603;} |
2277 |
goto T594;} |
V534= (V532); |
2278 |
V566= (V563); |
goto T601; |
2279 |
goto T592; |
goto T603; |
2280 |
goto T594; |
T603:; |
2281 |
T594:; |
V535= CMPcar((V533)); |
2282 |
V567 = (V563); |
V536= CMPcadr((V533)); |
2283 |
V568= CMPcar((V564)); |
V537= (*(LnkLI115))(CMPcddr((V532)),VV[72],(V529),(V530)); |
2284 |
V569= CMPcadr((V564)); |
V534= (VFUN_NARGS=4,(*(LnkLI134))((V532),/* INLINE-ARGS */V535,/* INLINE-ARGS */V536,/* INLINE-ARGS */V537)); |
2285 |
V570= (*(LnkLI87))(CMPcddr((V563)),VV[64],(V560),(V561)); |
goto T601; |
2286 |
V566= (VFUN_NARGS=4,(*(LnkLI105))(V567,/* INLINE-ARGS */V568,/* INLINE-ARGS */V569,/* INLINE-ARGS */V570)); |
T601:; |
2287 |
goto T592; |
V538= (*(LnkLI139))(CMPcdr((V527)),CMPcdr((V528)),(V529),(V530)); |
2288 |
T592:; |
{object V539 = (*(LnkLI125))((V527),V534,/* INLINE-ARGS */V538); |
2289 |
V571= (*(LnkLI110))(CMPcdr((V558)),CMPcdr((V559)),(V560),(V561)); |
VMR55(V539)}} |
|
{object V572 = (*(LnkLI96))(V565,V566,/* INLINE-ARGS */V571); |
|
|
VMR55(V572)}} |
|
2290 |
return Cnil; |
return Cnil; |
2291 |
} |
} |
2292 |
/* local entry for function WALK-LAMBDA */ |
/* local entry for function WALK-LAMBDA */ |
2293 |
|
|
2294 |
static object LI59(V576,V577,V578) |
static object LI59(V543,V544,V545) |
2295 |
|
|
2296 |
register object V576;object V577;object V578; |
register object V543;object V544;object V545; |
2297 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
2298 |
goto TTL; |
goto TTL; |
2299 |
TTL:; |
TTL:; |
2300 |
{object V579; |
{object V546; |
2301 |
V580 = (V578); |
V547= (VFUN_NARGS=1,(*(LnkLI22))((V545))); |
2302 |
V581= (VFUN_NARGS=1,(*(LnkLI22))((V578))); |
V546= (*(LnkLI2))((V545),Cnil,/* INLINE-ARGS */V547); |
2303 |
V579= (*(LnkLI2))(V580,Cnil,/* INLINE-ARGS */V581); |
{object V548; |
2304 |
{object V582; |
object V549; |
2305 |
object V583; |
object V550; |
2306 |
object V584; |
object V551; |
2307 |
object V585; |
V548= CMPcadr((V543)); |
2308 |
V582= CMPcadr((V576)); |
V549= CMPcddr((V543)); |
2309 |
V583= CMPcddr((V576)); |
V550= (VFUN_NARGS=3,(*(LnkLI133))((V548),(V544),(V546))); |
2310 |
V584= (VFUN_NARGS=3,(*(LnkLI104))((V582),(V577),(V579))); |
base[4]= (V549); |
2311 |
base[4]= (V583); |
base[5]= (VV[127]->s.s_gfdef); |
2312 |
base[5]= (VV[98]->s.s_gfdef); |
base[6]= (V546); |
|
base[6]= (V579); |
|
2313 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2314 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
2315 |
vs_top=sup; |
vs_top=sup; |
2316 |
V585= vs_base[0]; |
V551= vs_base[0]; |
2317 |
{object V586 = (VFUN_NARGS=4,(*(LnkLI105))((V576),CMPcar((V576)),(V584),(V585))); |
{object V552 = (VFUN_NARGS=4,(*(LnkLI134))((V543),CMPcar((V543)),(V550),(V551))); |
2318 |
VMR56(V586)}}} |
VMR56(V552)}}} |
2319 |
base[0]=base[0]; |
base[0]=base[0]; |
2320 |
return Cnil; |
return Cnil; |
2321 |
} |
} |
2322 |
/* local entry for function WALK-NAMED-LAMBDA */ |
/* local entry for function WALK-NAMED-LAMBDA */ |
2323 |
|
|
2324 |
static object LI60(V590,V591,V592) |
static object LI60(V556,V557,V558) |
2325 |
|
|
2326 |
register object V590;object V591;object V592; |
register object V556;object V557;object V558; |
2327 |
{ VMB57 VMS57 VMV57 |
{ VMB57 VMS57 VMV57 |
2328 |
goto TTL; |
goto TTL; |
2329 |
TTL:; |
TTL:; |
2330 |
{object V593; |
{object V559; |
2331 |
V594 = (V592); |
V560= (VFUN_NARGS=1,(*(LnkLI22))((V558))); |
2332 |
V595= (VFUN_NARGS=1,(*(LnkLI22))((V592))); |
V559= (*(LnkLI2))((V558),Cnil,/* INLINE-ARGS */V560); |
2333 |
V593= (*(LnkLI2))(V594,Cnil,/* INLINE-ARGS */V595); |
{object V561; |
2334 |
{object V596; |
object V562; |
2335 |
object V597; |
object V563; |
2336 |
object V598; |
object V564; |
2337 |
object V599; |
object V565; |
2338 |
object V600; |
V561= CMPcadr((V556)); |
2339 |
V596= CMPcadr((V590)); |
V562= CMPcaddr((V556)); |
2340 |
V597= CMPcaddr((V590)); |
V563= CMPcdddr((V556)); |
2341 |
V598= CMPcdddr((V590)); |
V564= (VFUN_NARGS=3,(*(LnkLI133))((V562),(V557),(V559))); |
2342 |
V599= (VFUN_NARGS=3,(*(LnkLI104))((V597),(V591),(V593))); |
base[5]= (V563); |
2343 |
base[5]= (V598); |
base[6]= (VV[127]->s.s_gfdef); |
2344 |
base[6]= (VV[98]->s.s_gfdef); |
base[7]= (V559); |
|
base[7]= (V593); |
|
2345 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2346 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
2347 |
vs_top=sup; |
vs_top=sup; |
2348 |
V600= vs_base[0]; |
V565= vs_base[0]; |
2349 |
{object V601 = (VFUN_NARGS=5,(*(LnkLI105))((V590),CMPcar((V590)),(V596),(V599),(V600))); |
{object V566 = (VFUN_NARGS=5,(*(LnkLI134))((V556),CMPcar((V556)),(V561),(V564),(V565))); |
2350 |
VMR57(V601)}}} |
VMR57(V566)}}} |
2351 |
base[0]=base[0]; |
base[0]=base[0]; |
2352 |
return Cnil; |
return Cnil; |
2353 |
} |
} |
2354 |
/* local entry for function WALK-SETQ */ |
/* local entry for function WALK-SETQ */ |
2355 |
|
|
2356 |
static object LI61(V605,V606,V607) |
static object LI61(V570,V571,V572) |
2357 |
|
|
2358 |
object V605;object V606;object V607; |
object V570;object V571;object V572; |
2359 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
2360 |
goto TTL; |
goto TTL; |
2361 |
TTL:; |
TTL:; |
2362 |
if((CMPcdddr((V605)))==Cnil){ |
if((CMPcdddr((V570)))==Cnil){ |
2363 |
goto T614;} |
goto T623;} |
2364 |
{object V608; |
{object V573; |
2365 |
object V609; |
object V574; |
2366 |
{register object V610; |
{register object V575; |
2367 |
register object V611; |
register object V576; |
2368 |
V611= CMPcdr((V605)); |
V576= CMPcdr((V570)); |
2369 |
V610= Cnil; |
V575= Cnil; |
2370 |
goto T619; |
goto T628; |
2371 |
T619:; |
T628:; |
2372 |
if(((V611))!=Cnil){ |
if(((V576))!=Cnil){ |
2373 |
goto T621;} |
goto T630;} |
2374 |
V608= nreverse((V610)); |
V573= nreverse((V575)); |
2375 |
goto T616; |
goto T625; |
2376 |
goto T621; |
goto T630; |
2377 |
T621:; |
T630:; |
2378 |
{register object V612; |
{register object V577; |
2379 |
register object V613; |
register object V578; |
2380 |
{register object V614; |
{register object V579; |
2381 |
V614= CMPcar((V611)); |
V579= CMPcar((V576)); |
2382 |
V611= CMPcdr((V611)); |
V576= CMPcdr((V576)); |
2383 |
V612= (V614);} |
V577= (V579);} |
2384 |
{register object V615; |
{register object V580; |
2385 |
V615= CMPcar((V611)); |
V580= CMPcar((V576)); |
2386 |
V611= CMPcdr((V611)); |
V576= CMPcdr((V576)); |
2387 |
V613= (V615);} |
V578= (V580);} |
2388 |
{register object V616; |
{register object V581; |
2389 |
V616= list(3,VV[60],(V612),(V613)); |
V581= list(3,VV[68],(V577),(V578)); |
2390 |
V610= make_cons((V616),(V610));}} |
V575= make_cons((V581),(V575));}} |
2391 |
goto T619;} |
goto T628;} |
2392 |
goto T616; |
goto T625; |
2393 |
T616:; |
T625:; |
2394 |
V609= (*(LnkLI98))((V608),(V607)); |
V574= (*(LnkLI127))((V573),(V572)); |
2395 |
if(!(((V608))==((V609)))){ |
if(!(((V573))==((V574)))){ |
2396 |
goto T637;} |
goto T646;} |
2397 |
{object V617 = (V605); |
{object V582 = (V570); |
2398 |
VMR58(V617)} |
VMR58(V582)} |
2399 |
goto T637; |
goto T646; |
2400 |
T637:; |
T646:; |
2401 |
{object V618 = make_cons(VV[65],(V609)); |
{object V583 = make_cons(VV[73],(V574)); |
2402 |
VMR58(V618)}} |
VMR58(V583)}} |
2403 |
goto T614; |
goto T623; |
2404 |
T614:; |
T623:; |
2405 |
{object V619; |
{object V584; |
2406 |
object V620; |
object V585; |
2407 |
object V621; |
object V586; |
2408 |
V619= CMPcadr((V605)); |
V584= CMPcadr((V570)); |
2409 |
V620= CMPcaddr((V605)); |
V585= CMPcaddr((V570)); |
2410 |
V622= (*(LnkLI85))((V619),(V607)); |
V587= (*(LnkLI113))((V584),(V572)); |
2411 |
V621= CMPcar(/* INLINE-ARGS */V622); |
V586= CMPcar(/* INLINE-ARGS */V587); |
2412 |
if(((V621))==Cnil){ |
if(((V586))==Cnil){ |
2413 |
goto T643;} |
goto T652;} |
2414 |
{object V623; |
{object V588; |
2415 |
object V624; |
object V589; |
2416 |
V623= list(3,VV[35],CMPcddr((V621)),(V620)); |
V588= list(3,VV[35],CMPcddr((V586)),(V585)); |
2417 |
base[5]= (V623); |
base[5]= (V588); |
2418 |
base[6]= (V606); |
base[6]= (V571); |
2419 |
base[7]= (V607); |
base[7]= (V572); |
2420 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2421 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2422 |
vs_top=sup; |
vs_top=sup; |
2423 |
V624= vs_base[0]; |
V589= vs_base[0]; |
2424 |
if(!(((V623))==((V624)))){ |
if(!(((V588))==((V589)))){ |
2425 |
goto T651;} |
goto T660;} |
2426 |
{object V625 = (V605); |
{object V590 = (V570); |
2427 |
VMR58(V625)} |
VMR58(V590)} |
2428 |
goto T651; |
goto T660; |
2429 |
T651:; |
T660:; |
2430 |
{object V626 = (V624); |
{object V591 = (V589); |
2431 |
VMR58(V626)}} |
VMR58(V591)}} |
2432 |
goto T643; |
goto T652; |
2433 |
T643:; |
T652:; |
2434 |
V627 = (V605); |
base[3]= (V584); |
|
base[3]= (V619); |
|
2435 |
base[4]= VV[48]; |
base[4]= VV[48]; |
2436 |
base[5]= (V607); |
base[5]= (V572); |
2437 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2438 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2439 |
vs_top=sup; |
vs_top=sup; |
2440 |
V628= vs_base[0]; |
V592= vs_base[0]; |
2441 |
base[3]= (V620); |
base[3]= (V585); |
2442 |
base[4]= VV[44]; |
base[4]= VV[44]; |
2443 |
base[5]= (V607); |
base[5]= (V572); |
2444 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2445 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2446 |
vs_top=sup; |
vs_top=sup; |
2447 |
V629= vs_base[0]; |
V593= vs_base[0]; |
2448 |
{object V630 = (VFUN_NARGS=4,(*(LnkLI112))(V627,VV[60],V628,V629)); |
{object V594 = (VFUN_NARGS=4,(*(LnkLI141))((V570),VV[68],V592,V593)); |
2449 |
VMR58(V630)}} |
VMR58(V594)}} |
2450 |
base[0]=base[0]; |
base[0]=base[0]; |
2451 |
return Cnil; |
return Cnil; |
2452 |
} |
} |
2453 |
/* local entry for function WALK-SYMBOL-MACROLET */ |
/* local entry for function WALK-SYMBOL-MACROLET */ |
2454 |
|
|
2455 |
static object LI62(V634,V635,V636) |
static object LI62(V598,V599,V600) |
2456 |
|
|
2457 |
object V634;object V635;object V636; |
object V598;object V599;object V600; |
2458 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
2459 |
goto TTL; |
goto TTL; |
2460 |
TTL:; |
TTL:; |
2461 |
{object V637; |
{object V601; |
2462 |
V637= CMPcadr((V634)); |
V601= CMPcadr((V598)); |
2463 |
{object V638; |
{object V602; |
2464 |
V639 = (V636); |
{object V604; |
2465 |
{object V641; |
object V605= (V601); |
2466 |
object V642= (V637); |
if(V605==Cnil){ |
2467 |
if(V642==Cnil){ |
V603= Cnil; |
2468 |
V640= Cnil; |
goto T672;} |
2469 |
goto T663;} |
base[1]=V604=MMcons(Cnil,Cnil); |
2470 |
base[1]=V641=MMcons(Cnil,Cnil); |
goto T673; |
2471 |
goto T664; |
T673:; |
2472 |
T664:; |
(V604->c.c_car)= listA(3,CMPcar((V605->c.c_car)),VV[26],CMPcadr((V605->c.c_car))); |
2473 |
(V641->c.c_car)= listA(3,CMPcar((V642->c.c_car)),VV[26],CMPcadr((V642->c.c_car))); |
if((V605=MMcdr(V605))==Cnil){ |
2474 |
if((V642=MMcdr(V642))==Cnil){ |
V603= base[1]; |
2475 |
V640= base[1]; |
goto T672;} |
2476 |
goto T663;} |
V604=MMcdr(V604)=MMcons(Cnil,Cnil); |
2477 |
V641=MMcdr(V641)=MMcons(Cnil,Cnil); |
goto T673;} |
2478 |
goto T664;} |
goto T672; |
2479 |
goto T663; |
T672:; |
2480 |
T663:; |
V607= (*(LnkLI101))((V600)); |
2481 |
V644= (*(LnkLI73))((V636)); |
V608= append(V603,/* INLINE-ARGS */V607); |
2482 |
V645= append(V640,/* INLINE-ARGS */V644); |
V609= (VFUN_NARGS=3,(*(LnkLI22))((V600),VV[74],/* INLINE-ARGS */V608)); |
2483 |
V646= (VFUN_NARGS=3,(*(LnkLI22))((V636),VV[66],/* INLINE-ARGS */V645)); |
V602= (*(LnkLI2))((V600),Cnil,/* INLINE-ARGS */V609); |
2484 |
V638= (*(LnkLI2))(V639,Cnil,/* INLINE-ARGS */V646); |
V610= (*(LnkLI127))(CMPcddr((V598)),(V602)); |
2485 |
V647 = (V634); |
{object V611 = (VFUN_NARGS=4,(*(LnkLI134))((V598),VV[75],(V601),/* INLINE-ARGS */V610)); |
2486 |
V648 = (V637); |
VMR59(V611)}}} |
|
V649= (*(LnkLI98))(CMPcddr((V634)),(V638)); |
|
|
{object V650 = (VFUN_NARGS=4,(*(LnkLI105))(V647,VV[67],V648,/* INLINE-ARGS */V649)); |
|
|
VMR59(V650)}}} |
|
2487 |
base[0]=base[0]; |
base[0]=base[0]; |
2488 |
return Cnil; |
return Cnil; |
2489 |
} |
} |
2490 |
/* local entry for function WALK-TAGBODY */ |
/* local entry for function WALK-TAGBODY */ |
2491 |
|
|
2492 |
static object LI63(V654,V655,V656) |
static object LI63(V615,V616,V617) |
2493 |
|
|
2494 |
object V654;object V655;object V656; |
object V615;object V616;object V617; |
2495 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
2496 |
goto TTL; |
goto TTL; |
2497 |
TTL:; |
TTL:; |
2498 |
V657 = (V654); |
V618= CMPcar((V615)); |
2499 |
V658= CMPcar((V654)); |
V619= (*(LnkLI142))(CMPcdr((V615)),(V616),(V617)); |
2500 |
V659= (*(LnkLI113))(CMPcdr((V654)),(V655),(V656)); |
{object V620 = (*(LnkLI125))((V615),/* INLINE-ARGS */V618,/* INLINE-ARGS */V619); |
2501 |
{object V660 = (*(LnkLI96))(V657,/* INLINE-ARGS */V658,/* INLINE-ARGS */V659); |
VMR60(V620)} |
|
VMR60(V660)} |
|
2502 |
return Cnil; |
return Cnil; |
2503 |
} |
} |
2504 |
/* local entry for function WALK-TAGBODY-1 */ |
/* local entry for function WALK-TAGBODY-1 */ |
2505 |
|
|
2506 |
static object LI64(V664,V665,V666) |
static object LI64(V624,V625,V626) |
2507 |
|
|
2508 |
register object V664;object V665;object V666; |
register object V624;object V625;object V626; |
2509 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
2510 |
goto TTL; |
goto TTL; |
2511 |
TTL:; |
TTL:; |
2512 |
if((V664)==Cnil){ |
if((V624)==Cnil){ |
2513 |
{object V667 = Cnil; |
{object V627 = Cnil; |
2514 |
VMR61(V667)}} |
VMR61(V627)}} |
2515 |
V668 = (V664); |
base[0]= CMPcar((V624)); |
2516 |
base[0]= CMPcar((V664)); |
if(!(type_of(CMPcar((V624)))==t_symbol)){ |
2517 |
if(!(type_of(CMPcar((V664)))==t_symbol)){ |
goto T679;} |
|
goto T670;} |
|
2518 |
base[1]= VV[37]; |
base[1]= VV[37]; |
2519 |
goto T668; |
goto T677; |
2520 |
goto T670; |
goto T679; |
2521 |
T670:; |
T679:; |
2522 |
base[1]= (V665); |
base[1]= (V625); |
2523 |
goto T668; |
goto T677; |
2524 |
T668:; |
T677:; |
2525 |
base[2]= (V666); |
base[2]= (V626); |
2526 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2527 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2528 |
vs_top=sup; |
vs_top=sup; |
2529 |
V669= vs_base[0]; |
V628= vs_base[0]; |
2530 |
V670= (*(LnkLI113))(CMPcdr((V664)),(V665),(V666)); |
V629= (*(LnkLI142))(CMPcdr((V624)),(V625),(V626)); |
2531 |
{object V671 = (*(LnkLI96))(V668,V669,/* INLINE-ARGS */V670); |
{object V630 = (*(LnkLI125))((V624),V628,/* INLINE-ARGS */V629); |
2532 |
VMR61(V671)} |
VMR61(V630)} |
2533 |
base[0]=base[0]; |
base[0]=base[0]; |
2534 |
return Cnil; |
return Cnil; |
2535 |
} |
} |
2536 |
/* local entry for function WALK-COMPILER-LET */ |
/* local entry for function WALK-COMPILER-LET */ |
2537 |
|
|
2538 |
static object LI65(V675,V676,V677) |
static object LI65(V634,V635,V636) |
2539 |
|
|
2540 |
object V675;object V676;object V677; |
object V634;object V635;object V636; |
2541 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
2542 |
goto TTL; |
goto TTL; |
2543 |
TTL:; |
TTL:; |
2544 |
{register object V678; |
{register object V637; |
2545 |
register object V679; |
register object V638; |
2546 |
V678= Cnil; |
V637= Cnil; |
2547 |
V679= Cnil; |
V638= Cnil; |
2548 |
{register object V680; |
{register object V639; |
2549 |
register object V681; |
register object V640; |
2550 |
V680= CMPcadr((V675)); |
V639= CMPcadr((V634)); |
2551 |
V681= CMPcar((V680)); |
V640= CMPcar((V639)); |
2552 |
goto T677; |
goto T686; |
2553 |
T677:; |
T686:; |
2554 |
if(!(((V680))==Cnil)){ |
if(!(((V639))==Cnil)){ |
2555 |
goto T678;} |
goto T687;} |
2556 |
goto T673; |
goto T682; |
2557 |
goto T678; |
goto T687; |
2558 |
T678:; |
T687:; |
2559 |
if(!(type_of((V681))==t_symbol)){ |
if(!(type_of((V640))==t_symbol)){ |
2560 |
goto T684;} |
goto T693;} |
2561 |
{register object V682; |
{register object V641; |
2562 |
V682= (V681); |
V641= (V640); |
2563 |
V678= make_cons((V682),(V678));} |
V637= make_cons((V641),(V637));} |
2564 |
{register object V683; |
{register object V642; |
2565 |
V683= Cnil; |
V642= Cnil; |
2566 |
V679= make_cons((V683),(V679)); |
V638= make_cons((V642),(V638)); |
2567 |
goto T682;} |
goto T691;} |
2568 |
goto T684; |
goto T693; |
2569 |
T684:; |
T693:; |
2570 |
{register object V684; |
{register object V643; |
2571 |
V684= CMPcar((V681)); |
V643= CMPcar((V640)); |
2572 |
V678= make_cons((V684),(V678));} |
V637= make_cons((V643),(V637));} |
2573 |
{register object V685; |
{register object V644; |
2574 |
base[3]= CMPcadr((V681)); |
base[3]= CMPcadr((V640)); |
2575 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2576 |
Leval(); |
Leval(); |
2577 |
vs_top=sup; |
vs_top=sup; |
2578 |
V685= vs_base[0]; |
V644= vs_base[0]; |
2579 |
V679= make_cons((V685),(V679));} |
V638= make_cons((V644),(V638));} |
2580 |
|
goto T691; |
2581 |
|
T691:; |
2582 |
|
V639= CMPcdr((V639)); |
2583 |
|
V640= CMPcar((V639)); |
2584 |
|
goto T686;} |
2585 |
goto T682; |
goto T682; |
2586 |
T682:; |
T682:; |
2587 |
V680= CMPcdr((V680)); |
V645= CMPcar((V634)); |
2588 |
V681= CMPcar((V680)); |
V646= CMPcadr((V634)); |
|
goto T677;} |
|
|
goto T673; |
|
|
T673:; |
|
|
V686 = (V675); |
|
|
V687= CMPcar((V675)); |
|
|
V688= CMPcadr((V675)); |
|
2589 |
{object symbols,values; |
{object symbols,values; |
2590 |
bds_ptr V690=bds_top; |
bds_ptr V648=bds_top; |
2591 |
base[0]= (V678); |
base[0]= (V637); |
2592 |
symbols= base[0]; |
symbols= base[0]; |
2593 |
base[1]= (V679); |
base[1]= (V638); |
2594 |
values= base[1]; |
values= base[1]; |
2595 |
while(!endp(symbols)){ |
while(!endp(symbols)){ |
2596 |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
if(endp(values))bds_bind(MMcar(symbols),OBJNULL); |
2597 |
else{bds_bind(MMcar(symbols),MMcar(values)); |
else{bds_bind(MMcar(symbols),MMcar(values)); |
2598 |
values=MMcdr(values);} |
values=MMcdr(values);} |
2599 |
symbols=MMcdr(symbols);} |
symbols=MMcdr(symbols);} |
2600 |
V691= (*(LnkLI98))(CMPcddr((V675)),(V677)); |
V649= (*(LnkLI127))(CMPcddr((V634)),(V636)); |
2601 |
bds_unwind(V690); |
bds_unwind(V648); |
2602 |
V689= V691;} |
V647= V649;} |
2603 |
{object V692 = (VFUN_NARGS=4,(*(LnkLI105))(V686,/* INLINE-ARGS */V687,/* INLINE-ARGS */V688,V689)); |
{object V650 = (VFUN_NARGS=4,(*(LnkLI134))((V634),/* INLINE-ARGS */V645,/* INLINE-ARGS */V646,V647)); |
2604 |
VMR62(V692)}} |
VMR62(V650)}} |
2605 |
base[0]=base[0]; |
base[0]=base[0]; |
2606 |
return Cnil; |
return Cnil; |
2607 |
} |
} |
2608 |
/* local entry for function WALK-MACROLET */ |
/* local entry for function WALK-MACROLET */ |
2609 |
|
|
2610 |
static object LI68(V696,V697,V698) |
static object LI68(V654,V655,V656) |
2611 |
|
|
2612 |
object V696;object V697;object V698; |
object V654;object V655;object V656; |
2613 |
{ VMB63 VMS63 VMV63 |
{ VMB63 VMS63 VMV63 |
2614 |
goto TTL; |
goto TTL; |
2615 |
TTL:; |
TTL:; |
2616 |
base[0]= (V697); |
base[0]= (V655); |
2617 |
V699= (*(LnkLI84))((V698)); |
V657= (*(LnkLI112))((V656)); |
2618 |
V700= (VFUN_NARGS=3,(*(LnkLI22))(Cnil,VV[43],/* INLINE-ARGS */V699)); |
V658= (VFUN_NARGS=3,(*(LnkLI22))(Cnil,VV[43],/* INLINE-ARGS */V657)); |
2619 |
base[1]= (*(LnkLI2))(Cnil,Cnil,/* INLINE-ARGS */V700); |
base[1]= (*(LnkLI2))(Cnil,Cnil,/* INLINE-ARGS */V658); |
2620 |
{register object V701; |
{object V659; |
2621 |
register object V702; |
object V660; |
2622 |
V701= Cnil; |
V659= Cnil; |
2623 |
V702= Cnil; |
V660= Cnil; |
2624 |
{object V703= CMPcar((V696)); |
{object V661; |
2625 |
if((V703!= VV[55]) |
V661= CMPcar((V654)); |
2626 |
&& (V703!= VV[114]))goto T707; |
{object V662= (V661); |
2627 |
{register object V704; |
if((V662!= VV[63]) |
2628 |
register object V705; |
&& (V662!= VV[143]))goto T717; |
2629 |
V704= CMPcadr((V696)); |
{register object V663; |
2630 |
V705= CMPcar((V704)); |
object V664; |
2631 |
goto T711; |
V663= CMPcadr((V654)); |
2632 |
T711:; |
V664= CMPcar((V663)); |
2633 |
if(!(((V704))==Cnil)){ |
goto T721; |
2634 |
goto T712;} |
T721:; |
2635 |
goto T706; |
if(!(((V663))==Cnil)){ |
2636 |
goto T712; |
goto T722;} |
2637 |
T712:; |
goto T715; |
2638 |
V701= make_cons(V705,(V701)); |
goto T722; |
2639 |
V704= CMPcdr((V704)); |
T722:; |
2640 |
V705= CMPcar((V704)); |
V659= make_cons(V664,(V659)); |
2641 |
goto T711;} |
V663= CMPcdr((V663)); |
2642 |
goto T707; |
V664= CMPcar((V663)); |
2643 |
T707:; |
goto T721;} |
2644 |
if((V703!= VV[115]))goto T723; |
goto T717; |
2645 |
{register object V707; |
T717:; |
2646 |
register object V708; |
if((V662!= VV[144]))goto T733; |
2647 |
V707= CMPcadr((V696)); |
{register object V666; |
2648 |
V708= CMPcar((V707)); |
register object V667; |
2649 |
goto T727; |
V666= CMPcadr((V654)); |
2650 |
T727:; |
V667= CMPcar((V666)); |
2651 |
if(!(((V707))==Cnil)){ |
goto T737; |
2652 |
goto T728;} |
T737:; |
2653 |
goto T706; |
if(!(((V666))==Cnil)){ |
2654 |
goto T728; |
goto T738;} |
2655 |
T728:; |
goto T715; |
2656 |
{object V709; |
goto T738; |
2657 |
V710= CMPcar((V708)); |
T738:; |
2658 |
V711= CMPcadr((V708)); |
{object V668; |
2659 |
V712= CMPcddr((V708)); |
V669= CMPcar((V667)); |
2660 |
V713= coerce_to_string(CMPcar((V708))); |
V670= CMPcadr((V667)); |
2661 |
V709= list(2,/* INLINE-ARGS */V710,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V711,/* INLINE-ARGS */V712,/* INLINE-ARGS */V713))); |
V671= CMPcddr((V667)); |
2662 |
V702= make_cons((V709),(V702));} |
V672= coerce_to_string(CMPcar((V667))); |
2663 |
V707= CMPcdr((V707)); |
V668= list(2,/* INLINE-ARGS */V669,(VFUN_NARGS=3,(*(LnkLI145))(/* INLINE-ARGS */V670,/* INLINE-ARGS */V671,/* INLINE-ARGS */V672))); |
2664 |
V708= CMPcar((V707)); |
V660= make_cons((V668),(V660));} |
2665 |
goto T727;} |
V666= CMPcdr((V666)); |
2666 |
goto T723; |
V667= CMPcar((V666)); |
2667 |
T723:; |
goto T737;} |
2668 |
FEerror("The ECASE key value ~s is illegal.",1,V703); |
goto T733; |
2669 |
goto T706;} |
T733:; |
2670 |
goto T706; |
base[2]= VV[49]; |
2671 |
T706:; |
base[3]= VV[50]; |
2672 |
{object V714; |
base[4]= VV[51]; |
2673 |
V714= (*(LnkLI2))((V698),(V701),(V702)); |
base[5]= VV[52]; |
2674 |
V715 = (V696); |
base[6]= (V661); |
2675 |
V716= CMPcar((V696)); |
base[7]= VV[53]; |
2676 |
base[2]= CMPcadr((V696)); |
base[8]= VV[82]; |
2677 |
|
base[9]= VV[55]; |
2678 |
|
base[10]= VV[83]; |
2679 |
|
vs_top=(vs_base=base+2)+9; |
2680 |
|
(void) (*Lnk121)(); |
2681 |
|
vs_top=sup;}} |
2682 |
|
goto T715; |
2683 |
|
T715:; |
2684 |
|
{object V673; |
2685 |
|
V673= (*(LnkLI2))((V656),(V659),(V660)); |
2686 |
|
V674= CMPcar((V654)); |
2687 |
|
base[2]= CMPcadr((V654)); |
2688 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2689 |
L69(base); |
L69(base); |
2690 |
vs_top=sup; |
vs_top=sup; |
2691 |
V717= vs_base[0]; |
V675= vs_base[0]; |
2692 |
base[2]= CMPcddr((V696)); |
base[2]= CMPcddr((V654)); |
2693 |
base[3]= (VV[98]->s.s_gfdef); |
base[3]= (VV[127]->s.s_gfdef); |
2694 |
base[4]= (V714); |
base[4]= (V673); |
2695 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2696 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
2697 |
vs_top=sup; |
vs_top=sup; |
2698 |
V718= vs_base[0]; |
V676= vs_base[0]; |
2699 |
{object V719 = (VFUN_NARGS=4,(*(LnkLI105))(V715,/* INLINE-ARGS */V716,V717,V718)); |
{object V677 = (VFUN_NARGS=4,(*(LnkLI134))((V654),/* INLINE-ARGS */V674,V675,V676)); |
2700 |
VMR63(V719)}}} |
VMR63(V677)}}} |
2701 |
base[0]=base[0]; |
base[0]=base[0]; |
2702 |
return Cnil; |
return Cnil; |
2703 |
} |
} |
2704 |
/* local entry for function WALK-FLET */ |
/* local entry for function WALK-FLET */ |
2705 |
|
|
2706 |
static object LI72(V723,V724,V725) |
static object LI72(V681,V682,V683) |
2707 |
|
|
2708 |
object V723;object V724;object V725; |
object V681;object V682;object V683; |
2709 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
2710 |
goto TTL; |
goto TTL; |
2711 |
TTL:; |
TTL:; |
2712 |
base[0]= (V725); |
base[0]= (V683); |
2713 |
base[1]= (V724); |
base[1]= (V682); |
2714 |
V726 = (V723); |
V684= CMPcar((V681)); |
2715 |
V727= CMPcar((V723)); |
V685= CMPcdr((V681)); |
2716 |
V728= CMPcdr((V723)); |
base[2]= CMPcadr((V681)); |
|
base[2]= CMPcadr((V723)); |
|
2717 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2718 |
L73(base); |
L73(base); |
2719 |
vs_top=sup; |
vs_top=sup; |
2720 |
V729= vs_base[0]; |
V686= vs_base[0]; |
2721 |
{register object V731; |
{object V688; |
2722 |
register object V732; |
object V689; |
2723 |
V731= Cnil; |
V688= Cnil; |
2724 |
V732= Cnil; |
V689= Cnil; |
2725 |
{object V733= CMPcar((V723)); |
{object V690; |
2726 |
if((V733!= VV[55]) |
V690= CMPcar((V681)); |
2727 |
&& (V733!= VV[114]))goto T751; |
{object V691= (V690); |
2728 |
{register object V734; |
if((V691!= VV[63]) |
2729 |
register object V735; |
&& (V691!= VV[143]))goto T771; |
2730 |
V734= CMPcadr((V723)); |
{register object V692; |
2731 |
V735= CMPcar((V734)); |
object V693; |
2732 |
goto T755; |
V692= CMPcadr((V681)); |
2733 |
T755:; |
V693= CMPcar((V692)); |
2734 |
if(!(((V734))==Cnil)){ |
goto T775; |
2735 |
goto T756;} |
T775:; |
2736 |
goto T750; |
if(!(((V692))==Cnil)){ |
2737 |
goto T756; |
goto T776;} |
2738 |
T756:; |
goto T769; |
2739 |
V731= make_cons(V735,(V731)); |
goto T776; |
2740 |
V734= CMPcdr((V734)); |
T776:; |
2741 |
V735= CMPcar((V734)); |
V688= make_cons(V693,(V688)); |
2742 |
goto T755;} |
V692= CMPcdr((V692)); |
2743 |
goto T751; |
V693= CMPcar((V692)); |
2744 |
T751:; |
goto T775;} |
|
if((V733!= VV[115]))goto T767; |
|
|
{register object V737; |
|
|
register object V738; |
|
|
V737= CMPcadr((V723)); |
|
|
V738= CMPcar((V737)); |
|
2745 |
goto T771; |
goto T771; |
2746 |
T771:; |
T771:; |
2747 |
if(!(((V737))==Cnil)){ |
if((V691!= VV[144]))goto T787; |
2748 |
goto T772;} |
{register object V695; |
2749 |
goto T750; |
register object V696; |
2750 |
goto T772; |
V695= CMPcadr((V681)); |
2751 |
T772:; |
V696= CMPcar((V695)); |
2752 |
{object V739; |
goto T791; |
2753 |
V740= CMPcar((V738)); |
T791:; |
2754 |
V741= CMPcadr((V738)); |
if(!(((V695))==Cnil)){ |
2755 |
V742= CMPcddr((V738)); |
goto T792;} |
2756 |
V743= coerce_to_string(CMPcar((V738))); |
goto T769; |
2757 |
V739= list(2,/* INLINE-ARGS */V740,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V741,/* INLINE-ARGS */V742,/* INLINE-ARGS */V743))); |
goto T792; |
2758 |
V732= make_cons((V739),(V732));} |
T792:; |
2759 |
V737= CMPcdr((V737)); |
{object V697; |
2760 |
V738= CMPcar((V737)); |
V698= CMPcar((V696)); |
2761 |
goto T771;} |
V699= CMPcadr((V696)); |
2762 |
goto T767; |
V700= CMPcddr((V696)); |
2763 |
T767:; |
V701= coerce_to_string(CMPcar((V696))); |
2764 |
FEerror("The ECASE key value ~s is illegal.",1,V733); |
V697= list(2,/* INLINE-ARGS */V698,(VFUN_NARGS=3,(*(LnkLI145))(/* INLINE-ARGS */V699,/* INLINE-ARGS */V700,/* INLINE-ARGS */V701))); |
2765 |
goto T750;} |
V689= make_cons((V697),(V689));} |
2766 |
goto T750; |
V695= CMPcdr((V695)); |
2767 |
T750:; |
V696= CMPcar((V695)); |
2768 |
{object V744; |
goto T791;} |
2769 |
V744= (*(LnkLI2))(base[0],(V731),(V732)); |
goto T787; |
2770 |
base[2]= CMPcddr((V723)); |
T787:; |
2771 |
base[3]= (VV[98]->s.s_gfdef); |
base[2]= VV[49]; |
2772 |
base[4]= (V744); |
base[3]= VV[50]; |
2773 |
|
base[4]= VV[51]; |
2774 |
|
base[5]= VV[52]; |
2775 |
|
base[6]= (V690); |
2776 |
|
base[7]= VV[53]; |
2777 |
|
base[8]= VV[90]; |
2778 |
|
base[9]= VV[55]; |
2779 |
|
base[10]= VV[91]; |
2780 |
|
vs_top=(vs_base=base+2)+9; |
2781 |
|
(void) (*Lnk121)(); |
2782 |
|
vs_top=sup;}} |
2783 |
|
goto T769; |
2784 |
|
T769:; |
2785 |
|
{object V702; |
2786 |
|
V702= (*(LnkLI2))(base[0],(V688),(V689)); |
2787 |
|
base[2]= CMPcddr((V681)); |
2788 |
|
base[3]= (VV[127]->s.s_gfdef); |
2789 |
|
base[4]= (V702); |
2790 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2791 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
2792 |
vs_top=sup; |
vs_top=sup; |
2793 |
V730= vs_base[0];}} |
V687= vs_base[0];}} |
2794 |
V745= (*(LnkLI96))(/* INLINE-ARGS */V728,V729,V730); |
V703= (*(LnkLI125))(/* INLINE-ARGS */V685,V686,V687); |
2795 |
{object V746 = (*(LnkLI96))(V726,/* INLINE-ARGS */V727,/* INLINE-ARGS */V745); |
{object V704 = (*(LnkLI125))((V681),/* INLINE-ARGS */V684,/* INLINE-ARGS */V703); |
2796 |
VMR64(V746)} |
VMR64(V704)} |
2797 |
base[0]=base[0]; |
base[0]=base[0]; |
2798 |
return Cnil; |
return Cnil; |
2799 |
} |
} |
2800 |
/* local entry for function WALK-LABELS */ |
/* local entry for function WALK-LABELS */ |
2801 |
|
|
2802 |
static object LI76(V750,V751,V752) |
static object LI76(V708,V709,V710) |
2803 |
|
|
2804 |
object V750;object V751;object V752; |
object V708;object V709;object V710; |
2805 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
2806 |
goto TTL; |
goto TTL; |
2807 |
TTL:; |
TTL:; |
2808 |
base[0]= (V751); |
base[0]= (V709); |
2809 |
{register object V753; |
{register object V711; |
2810 |
register object V754; |
register object V712; |
2811 |
V753= Cnil; |
V711= Cnil; |
2812 |
V754= Cnil; |
V712= Cnil; |
2813 |
{object V755= CMPcar((V750)); |
{object V713; |
2814 |
if((V755!= VV[55]) |
V713= CMPcar((V708)); |
2815 |
&& (V755!= VV[114]))goto T789; |
{object V714= (V713); |
2816 |
{register object V756; |
if((V714!= VV[63]) |
2817 |
register object V757; |
&& (V714!= VV[143]))goto T819; |
2818 |
V756= CMPcadr((V750)); |
{register object V715; |
2819 |
V757= CMPcar((V756)); |
register object V716; |
2820 |
goto T793; |
V715= CMPcadr((V708)); |
2821 |
T793:; |
V716= CMPcar((V715)); |
2822 |
if(!(((V756))==Cnil)){ |
goto T823; |
2823 |
goto T794;} |
T823:; |
2824 |
goto T788; |
if(!(((V715))==Cnil)){ |
2825 |
goto T794; |
goto T824;} |
2826 |
T794:; |
goto T817; |
2827 |
V753= make_cons(V757,(V753)); |
goto T824; |
2828 |
V756= CMPcdr((V756)); |
T824:; |
2829 |
V757= CMPcar((V756)); |
V711= make_cons(V716,(V711)); |
2830 |
goto T793;} |
V715= CMPcdr((V715)); |
2831 |
goto T789; |
V716= CMPcar((V715)); |
2832 |
T789:; |
goto T823;} |
2833 |
if((V755!= VV[115]))goto T805; |
goto T819; |
2834 |
{register object V759; |
T819:; |
2835 |
register object V760; |
if((V714!= VV[144]))goto T835; |
2836 |
V759= CMPcadr((V750)); |
{register object V718; |
2837 |
V760= CMPcar((V759)); |
register object V719; |
2838 |
goto T809; |
V718= CMPcadr((V708)); |
2839 |
T809:; |
V719= CMPcar((V718)); |
2840 |
if(!(((V759))==Cnil)){ |
goto T839; |
2841 |
goto T810;} |
T839:; |
2842 |
goto T788; |
if(!(((V718))==Cnil)){ |
2843 |
goto T810; |
goto T840;} |
2844 |
T810:; |
goto T817; |
2845 |
{object V761; |
goto T840; |
2846 |
V762= CMPcar((V760)); |
T840:; |
2847 |
V763= CMPcadr((V760)); |
{object V720; |
2848 |
V764= CMPcddr((V760)); |
V721= CMPcar((V719)); |
2849 |
V765= coerce_to_string(CMPcar((V760))); |
V722= CMPcadr((V719)); |
2850 |
V761= list(2,/* INLINE-ARGS */V762,(VFUN_NARGS=3,(*(LnkLI116))(/* INLINE-ARGS */V763,/* INLINE-ARGS */V764,/* INLINE-ARGS */V765))); |
V723= CMPcddr((V719)); |
2851 |
V754= make_cons((V761),(V754));} |
V724= coerce_to_string(CMPcar((V719))); |
2852 |
V759= CMPcdr((V759)); |
V720= list(2,/* INLINE-ARGS */V721,(VFUN_NARGS=3,(*(LnkLI145))(/* INLINE-ARGS */V722,/* INLINE-ARGS */V723,/* INLINE-ARGS */V724))); |
2853 |
V760= CMPcar((V759)); |
V712= make_cons((V720),(V712));} |
2854 |
goto T809;} |
V718= CMPcdr((V718)); |
2855 |
goto T805; |
V719= CMPcar((V718)); |
2856 |
T805:; |
goto T839;} |
2857 |
FEerror("The ECASE key value ~s is illegal.",1,V755); |
goto T835; |
2858 |
goto T788;} |
T835:; |
2859 |
goto T788; |
base[1]= VV[49]; |
2860 |
T788:; |
base[2]= VV[50]; |
2861 |
base[1]= (*(LnkLI2))((V752),(V753),(V754)); |
base[3]= VV[51]; |
2862 |
V766 = (V750); |
base[4]= VV[52]; |
2863 |
V767= CMPcar((V750)); |
base[5]= (V713); |
2864 |
V768= CMPcdr((V750)); |
base[6]= VV[53]; |
2865 |
base[2]= CMPcadr((V750)); |
base[7]= VV[94]; |
2866 |
|
base[8]= VV[55]; |
2867 |
|
base[9]= VV[95]; |
2868 |
|
vs_top=(vs_base=base+1)+9; |
2869 |
|
(void) (*Lnk121)(); |
2870 |
|
vs_top=sup;}} |
2871 |
|
goto T817; |
2872 |
|
T817:; |
2873 |
|
base[1]= (*(LnkLI2))((V710),(V711),(V712)); |
2874 |
|
V725= CMPcar((V708)); |
2875 |
|
V726= CMPcdr((V708)); |
2876 |
|
base[2]= CMPcadr((V708)); |
2877 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2878 |
L77(base); |
L77(base); |
2879 |
vs_top=sup; |
vs_top=sup; |
2880 |
V769= vs_base[0]; |
V727= vs_base[0]; |
2881 |
base[2]= CMPcddr((V750)); |
base[2]= CMPcddr((V708)); |
2882 |
base[3]= (VV[98]->s.s_gfdef); |
base[3]= (VV[127]->s.s_gfdef); |
2883 |
base[4]= base[1]; |
base[4]= base[1]; |
2884 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2885 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
2886 |
vs_top=sup; |
vs_top=sup; |
2887 |
V770= vs_base[0]; |
V728= vs_base[0]; |
2888 |
V771= (*(LnkLI96))(/* INLINE-ARGS */V768,V769,V770); |
V729= (*(LnkLI125))(/* INLINE-ARGS */V726,V727,V728); |
2889 |
{object V772 = (*(LnkLI96))(V766,/* INLINE-ARGS */V767,/* INLINE-ARGS */V771); |
{object V730 = (*(LnkLI125))((V708),/* INLINE-ARGS */V725,/* INLINE-ARGS */V729); |
2890 |
VMR65(V772)}} |
VMR65(V730)}} |
2891 |
base[0]=base[0]; |
base[0]=base[0]; |
2892 |
return Cnil; |
return Cnil; |
2893 |
} |
} |
2894 |
/* local entry for function WALK-IF */ |
/* local entry for function WALK-IF */ |
2895 |
|
|
2896 |
static object LI78(V776,V777,V778) |
static object LI78(V734,V735,V736) |
2897 |
|
|
2898 |
register object V776;object V777;object V778; |
register object V734;object V735;object V736; |
2899 |
{ VMB66 VMS66 VMV66 |
{ VMB66 VMS66 VMV66 |
2900 |
goto TTL; |
goto TTL; |
2901 |
TTL:; |
TTL:; |
2902 |
{object V779; |
{object V737; |
2903 |
object V780; |
object V738; |
2904 |
object V781; |
object V739; |
2905 |
V779= CMPcadr((V776)); |
V737= CMPcadr((V734)); |
2906 |
V780= CMPcaddr((V776)); |
V738= CMPcaddr((V734)); |
2907 |
if((CMPcddddr((V776)))==Cnil){ |
if((CMPcddddr((V734)))==Cnil){ |
2908 |
goto T833;} |
goto T872;} |
2909 |
base[0]= VV[68]; |
base[0]= VV[96]; |
2910 |
base[1]= (V776); |
base[1]= (V734); |
2911 |
base[2]= CMPmake_fixnum((long)length(CMPcdr((V776)))); |
base[2]= CMPmake_fixnum((long)length(CMPcdr((V734)))); |
2912 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2913 |
(void) (*Lnk102)(); |
(void) (*Lnk131)(); |
2914 |
vs_top=sup; |
vs_top=sup; |
2915 |
V781= make_cons(VV[65],CMPcdddr((V776))); |
V739= make_cons(VV[73],CMPcdddr((V734))); |
2916 |
goto T831; |
goto T870; |
2917 |
goto T833; |
goto T872; |
2918 |
T833:; |
T872:; |
2919 |
V781= CMPcadddr((V776)); |
V739= CMPcadddr((V734)); |
2920 |
goto T831; |
goto T870; |
2921 |
T831:; |
T870:; |
2922 |
V782 = (V776); |
base[0]= (V737); |
2923 |
base[0]= (V779); |
base[1]= (V735); |
2924 |
base[1]= (V777); |
base[2]= (V736); |
|
base[2]= (V778); |
|
2925 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2926 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2927 |
vs_top=sup; |
vs_top=sup; |
2928 |
V783= vs_base[0]; |
V740= vs_base[0]; |
2929 |
base[0]= (V780); |
base[0]= (V738); |
2930 |
base[1]= (V777); |
base[1]= (V735); |
2931 |
base[2]= (V778); |
base[2]= (V736); |
2932 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2933 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2934 |
vs_top=sup; |
vs_top=sup; |
2935 |
V784= vs_base[0]; |
V741= vs_base[0]; |
2936 |
base[0]= (V781); |
base[0]= (V739); |
2937 |
base[1]= (V777); |
base[1]= (V735); |
2938 |
base[2]= (V778); |
base[2]= (V736); |
2939 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2940 |
(void) (*Lnk81)(); |
(void) (*Lnk109)(); |
2941 |
vs_top=sup; |
vs_top=sup; |
2942 |
V785= vs_base[0]; |
V742= vs_base[0]; |
2943 |
{object V786 = (VFUN_NARGS=5,(*(LnkLI112))(V782,VV[57],V783,V784,V785)); |
{object V743 = (VFUN_NARGS=5,(*(LnkLI141))((V734),VV[65],V740,V741,V742)); |
2944 |
VMR66(V786)}} |
VMR66(V743)}} |
2945 |
base[0]=base[0]; |
base[0]=base[0]; |
2946 |
return Cnil; |
return Cnil; |
2947 |
} |
} |
2952 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2953 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM67; VC67 |
2954 |
vs_check; |
vs_check; |
2955 |
{object V787; |
{object V744; |
2956 |
check_arg(1); |
check_arg(1); |
2957 |
V787=(base[0]); |
V744=(base[0]); |
2958 |
vs_top=sup; |
vs_top=sup; |
2959 |
goto TTL; |
goto TTL; |
2960 |
TTL:; |
TTL:; |
2961 |
if(((V787))!=Cnil){ |
if(((V744))!=Cnil){ |
2962 |
goto T852;} |
goto T891;} |
2963 |
base[1]= Cnil; |
base[1]= Cnil; |
2964 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2965 |
return; |
return; |
2966 |
goto T852; |
goto T891; |
2967 |
T852:; |
T891:; |
2968 |
V788 = (V787); |
V745= (*(LnkLI146))(CMPcar((V744)),base0[0],base0[1]); |
2969 |
V789= (*(LnkLI117))(CMPcar((V787)),base0[0],base0[1]); |
base[1]= CMPcdr((V744)); |
|
base[1]= CMPcdr((V787)); |
|
2970 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2971 |
L77(base0); |
L77(base0); |
2972 |
vs_top=sup; |
vs_top=sup; |
2973 |
V790= vs_base[0]; |
V746= vs_base[0]; |
2974 |
base[1]= (*(LnkLI96))(V788,/* INLINE-ARGS */V789,V790); |
base[1]= (*(LnkLI125))((V744),/* INLINE-ARGS */V745,V746); |
2975 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2976 |
return; |
return; |
2977 |
} |
} |
2983 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2984 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM68; VC68 |
2985 |
vs_check; |
vs_check; |
2986 |
{object V791; |
{object V747; |
2987 |
check_arg(1); |
check_arg(1); |
2988 |
V791=(base[0]); |
V747=(base[0]); |
2989 |
vs_top=sup; |
vs_top=sup; |
2990 |
goto TTL; |
goto TTL; |
2991 |
TTL:; |
TTL:; |
2992 |
if(((V791))!=Cnil){ |
if(((V747))!=Cnil){ |
2993 |
goto T857;} |
goto T896;} |
2994 |
base[1]= Cnil; |
base[1]= Cnil; |
2995 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2996 |
return; |
return; |
2997 |
goto T857; |
goto T896; |
2998 |
T857:; |
T896:; |
2999 |
V792 = (V791); |
V748= (*(LnkLI146))(CMPcar((V747)),base0[1],base0[0]); |
3000 |
V793= (*(LnkLI117))(CMPcar((V791)),base0[1],base0[0]); |
base[1]= CMPcdr((V747)); |
|
base[1]= CMPcdr((V791)); |
|
3001 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3002 |
L73(base0); |
L73(base0); |
3003 |
vs_top=sup; |
vs_top=sup; |
3004 |
V794= vs_base[0]; |
V749= vs_base[0]; |
3005 |
base[1]= (*(LnkLI96))(V792,/* INLINE-ARGS */V793,V794); |
base[1]= (*(LnkLI125))((V747),/* INLINE-ARGS */V748,V749); |
3006 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3007 |
return; |
return; |
3008 |
} |
} |
3014 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3015 |
register object *sup=base+VM69; VC69 |
register object *sup=base+VM69; VC69 |
3016 |
vs_check; |
vs_check; |
3017 |
{object V795; |
{object V750; |
3018 |
check_arg(1); |
check_arg(1); |
3019 |
V795=(base[0]); |
V750=(base[0]); |
3020 |
vs_top=sup; |
vs_top=sup; |
3021 |
goto TTL; |
goto TTL; |
3022 |
TTL:; |
TTL:; |
3023 |
if((V795)==Cnil){ |
if((V750)==Cnil){ |
3024 |
base[1]= Cnil; |
base[1]= Cnil; |
3025 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3026 |
return;} |
return;} |
3027 |
{object V796; |
{object V751; |
3028 |
V796= CMPcar((V795)); |
V751= CMPcar((V750)); |
3029 |
V797 = (V795); |
V752= CMPcar((V751)); |
3030 |
V798 = (V796); |
V753= (VFUN_NARGS=4,(*(LnkLI133))(CMPcadr((V751)),base0[0],base0[1],Ct)); |
3031 |
V799= CMPcar((V796)); |
base[1]= CMPcddr((V751)); |
3032 |
V800= (VFUN_NARGS=4,(*(LnkLI104))(CMPcadr((V796)),base0[0],base0[1],Ct)); |
base[2]= (VV[127]->s.s_gfdef); |
|
base[1]= CMPcddr((V796)); |
|
|
base[2]= (VV[98]->s.s_gfdef); |
|
3033 |
base[3]= base0[1]; |
base[3]= base0[1]; |
3034 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3035 |
(void) (*Lnk100)(); |
(void) (*Lnk129)(); |
3036 |
vs_top=sup; |
vs_top=sup; |
3037 |
V801= vs_base[0]; |
V754= vs_base[0]; |
3038 |
V802= (VFUN_NARGS=4,(*(LnkLI105))(V798,/* INLINE-ARGS */V799,/* INLINE-ARGS */V800,V801)); |
V755= (VFUN_NARGS=4,(*(LnkLI134))((V751),/* INLINE-ARGS */V752,/* INLINE-ARGS */V753,V754)); |
3039 |
base[1]= CMPcdr((V795)); |
base[1]= CMPcdr((V750)); |
3040 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3041 |
L69(base0); |
L69(base0); |
3042 |
vs_top=sup; |
vs_top=sup; |
3043 |
V803= vs_base[0]; |
V756= vs_base[0]; |
3044 |
base[1]= (*(LnkLI96))(V797,/* INLINE-ARGS */V802,V803); |
base[1]= (*(LnkLI125))((V750),/* INLINE-ARGS */V755,V756); |
3045 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3046 |
return;} |
return;} |
3047 |
} |
} |
3053 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3054 |
register object *sup=base+VM70; VC70 |
register object *sup=base+VM70; VC70 |
3055 |
vs_check; |
vs_check; |
3056 |
{object V804; |
{object V757; |
3057 |
object V805; |
object V758; |
3058 |
check_arg(2); |
check_arg(2); |
3059 |
V804=(base[0]); |
V757=(base[0]); |
3060 |
V805=(base[1]); |
V758=(base[1]); |
3061 |
vs_top=sup; |
vs_top=sup; |
3062 |
(base0[0]->c.c_car)= (*(LnkLI109))((base0[1]->c.c_car),(base0[4]->c.c_car),(base0[2]->c.c_car),(base0[3]->c.c_car),Cnil); |
(base0[0]->c.c_car)= (*(LnkLI138))((base0[1]->c.c_car),(base0[4]->c.c_car),(base0[2]->c.c_car),(base0[3]->c.c_car),Cnil); |
3063 |
base[2]= (*(LnkLI98))((V804),(V805)); |
base[2]= (*(LnkLI127))((V757),(V758)); |
3064 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3065 |
return; |
return; |
3066 |
} |
} |
3072 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3073 |
register object *sup=base+VM71; VC71 |
register object *sup=base+VM71; VC71 |
3074 |
vs_check; |
vs_check; |
3075 |
{object V806; |
{object V759; |
3076 |
check_arg(1); |
check_arg(1); |
3077 |
V806=(base[0]); |
V759=(base[0]); |
3078 |
vs_top=sup; |
vs_top=sup; |
3079 |
base[1]= (*(LnkLI85))((V806),(base0[0]->c.c_car)); |
base[1]= (*(LnkLI113))((V759),(base0[0]->c.c_car)); |
3080 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3081 |
return; |
return; |
3082 |
} |
} |
3088 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3089 |
register object *sup=base+VM72; VC72 |
register object *sup=base+VM72; VC72 |
3090 |
vs_check; |
vs_check; |
3091 |
{object V807; |
{object V760; |
3092 |
object V808; |
object V761; |
3093 |
check_arg(2); |
check_arg(2); |
3094 |
V807=(base[0]); |
V760=(base[0]); |
3095 |
V808=(base[1]); |
V761=(base[1]); |
3096 |
vs_top=sup; |
vs_top=sup; |
3097 |
base[2]= (*(LnkLI113))((V807),(base0[0]->c.c_car),(V808)); |
base[2]= (*(LnkLI142))((V760),(base0[0]->c.c_car),(V761)); |
3098 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3099 |
return; |
return; |
3100 |
} |
} |
3106 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3107 |
register object *sup=base+VM73; VC73 |
register object *sup=base+VM73; VC73 |
3108 |
vs_check; |
vs_check; |
3109 |
{register object V809; |
{register object V762; |
3110 |
object V810; |
object V763; |
3111 |
register object V811; |
register object V764; |
3112 |
check_arg(3); |
check_arg(3); |
3113 |
V809=(base[0]); |
V762=(base[0]); |
3114 |
V810=(base[1]); |
V763=(base[1]); |
3115 |
V811=(base[2]); |
V764=(base[2]); |
3116 |
vs_top=sup; |
vs_top=sup; |
3117 |
{register object V812; |
{register object V765; |
3118 |
register object V813; |
register object V766; |
3119 |
object V814; |
object V767; |
3120 |
object V815; |
object V768; |
3121 |
V812= Cnil; |
V765= Cnil; |
3122 |
V813= Cnil; |
V766= Cnil; |
3123 |
V814= Cnil; |
V767= Cnil; |
3124 |
V815= Cnil; |
V768= Cnil; |
3125 |
goto T872; |
goto T911; |
3126 |
T872:; |
T911:; |
3127 |
base[3]= (V809); |
base[3]= (V762); |
3128 |
base[4]= (V810); |
base[4]= (V763); |
3129 |
base[5]= (V811); |
base[5]= (V764); |
3130 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3131 |
super_funcall_no_event((base0[1]->c.c_car)); |
super_funcall_no_event((base0[1]->c.c_car)); |
3132 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3133 |
V812= vs_base[0]; |
V765= vs_base[0]; |
3134 |
vs_base++; |
vs_base++; |
3135 |
}else{ |
}else{ |
3136 |
V812= Cnil;} |
V765= Cnil;} |
3137 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3138 |
V813= vs_base[0]; |
V766= vs_base[0]; |
3139 |
}else{ |
}else{ |
3140 |
V813= Cnil;} |
V766= Cnil;} |
3141 |
vs_top=sup; |
vs_top=sup; |
3142 |
if(((V813))==Cnil){ |
if(((V766))==Cnil){ |
3143 |
goto T881;} |
goto T920;} |
3144 |
goto T870; |
goto T909; |
3145 |
goto T881; |
goto T920; |
3146 |
T881:; |
T920:; |
3147 |
{register object V816; |
{register object V769; |
3148 |
V816= (((((V812))==((V809))?Ct:Cnil))==Cnil?Ct:Cnil); |
V769= (((((V765))==((V762))?Ct:Cnil))==Cnil?Ct:Cnil); |
3149 |
if(((V816))==Cnil){ |
if(((V769))==Cnil){ |
3150 |
goto T885;} |
goto T924;} |
3151 |
goto T879; |
goto T918; |
3152 |
goto T885; |
goto T924; |
3153 |
T885:; |
T924:; |
3154 |
if(type_of((V812))==t_cons){ |
if(type_of((V765))==t_cons){ |
3155 |
goto T888;} |
goto T927;} |
3156 |
goto T870; |
goto T909; |
3157 |
goto T888; |
goto T927; |
3158 |
T888:; |
T927:; |
3159 |
if(((*(LnkLI86))(CMPcar((V812))))==Cnil){ |
if(((*(LnkLI114))(CMPcar((V765))))==Cnil){ |
3160 |
goto T891;} |
goto T930;} |
3161 |
goto T870; |
goto T909; |
3162 |
goto T891; |
goto T930; |
3163 |
T891:; |
T930:; |
3164 |
{register object V817; |
{register object V770; |
3165 |
register object V818; |
register object V771; |
3166 |
{register object V819; |
{register object V772; |
3167 |
V820 = (V811); |
V773= (VFUN_NARGS=3,(*(LnkLI22))((V764),VV[45],(V765))); |
3168 |
V821= (VFUN_NARGS=3,(*(LnkLI22))((V811),VV[45],(V812))); |
V772= (*(LnkLI2))((V764),Cnil,/* INLINE-ARGS */V773); |
3169 |
V819= (*(LnkLI2))(V820,Cnil,/* INLINE-ARGS */V821); |
base[3]= (V765); |
3170 |
base[3]= (V812); |
base[4]= (V772); |
|
base[4]= (V819); |
|
3171 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3172 |
Lmacroexpand_1();} |
Lmacroexpand_1();} |
3173 |
if(vs_base>=vs_top){vs_top=sup;goto T897;} |
if(vs_base>=vs_top){vs_top=sup;goto T936;} |
3174 |
V817= vs_base[0]; |
V770= vs_base[0]; |
3175 |
vs_base++; |
vs_base++; |
3176 |
if(vs_base>=vs_top){vs_top=sup;goto T898;} |
if(vs_base>=vs_top){vs_top=sup;goto T937;} |
3177 |
V818= vs_base[0]; |
V771= vs_base[0]; |
3178 |
vs_top=sup; |
vs_top=sup; |
3179 |
goto T899; |
goto T938; |
3180 |
goto T897; |
goto T936; |
3181 |
T897:; |
T936:; |
3182 |
V817= Cnil; |
V770= Cnil; |
3183 |
goto T898; |
goto T937; |
3184 |
T898:; |
T937:; |
3185 |
V818= Cnil; |
V771= Cnil; |
3186 |
goto T899; |
goto T938; |
3187 |
T899:; |
T938:; |
3188 |
if(((V818))==Cnil){ |
if(((V771))==Cnil){ |
3189 |
goto T901;} |
goto T940;} |
3190 |
V812= (V817); |
V765= (V770); |
3191 |
goto T879; |
goto T918; |
3192 |
goto T901; |
goto T940; |
3193 |
T901:; |
T940:; |
3194 |
goto T870;}} |
goto T909;}} |
3195 |
goto T879; |
goto T918; |
3196 |
T879:; |
T918:; |
3197 |
V809= (V812); |
V762= (V765); |
3198 |
goto T872; |
goto T911; |
3199 |
goto T870; |
goto T909; |
3200 |
T870:; |
T909:; |
3201 |
base[3]= (V812); |
base[3]= (V765); |
3202 |
base[4]= (V810); |
base[4]= (V763); |
3203 |
base[5]= (V811); |
base[5]= (V764); |
3204 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3205 |
super_funcall_no_event((base0[0]->c.c_car)); |
super_funcall_no_event((base0[0]->c.c_car)); |
3206 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3207 |
V814= vs_base[0]; |
V767= vs_base[0]; |
3208 |
vs_base++; |
vs_base++; |
3209 |
}else{ |
}else{ |
3210 |
V814= Cnil;} |
V767= Cnil;} |
3211 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
3212 |
V815= vs_base[0]; |
V768= vs_base[0]; |
3213 |
}else{ |
}else{ |
3214 |
V815= Cnil;} |
V768= Cnil;} |
3215 |
vs_top=sup; |
vs_top=sup; |
3216 |
base[3]= (V814); |
base[3]= (V767); |
3217 |
if((V813)==Cnil){ |
if((V766)==Cnil){ |
3218 |
base[4]= Cnil; |
base[4]= Cnil; |
3219 |
goto T912;} |
goto T951;} |
3220 |
base[4]= (V815); |
base[4]= (V768); |
3221 |
goto T912; |
goto T951; |
3222 |
T912:; |
T951:; |
3223 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3224 |
return;} |
return;} |
3225 |
} |
} |
3231 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3232 |
register object *sup=base+VM74; VC74 |
register object *sup=base+VM74; VC74 |
3233 |
vs_check; |
vs_check; |
3234 |
{object V822; |
{object V774; |
3235 |
object V823; |
object V775; |
3236 |
object V824; |
object V776; |
3237 |
check_arg(3); |
check_arg(3); |
3238 |
V822=(base[0]); |
V774=(base[0]); |
3239 |
V823=(base[1]); |
V775=(base[1]); |
3240 |
V824=(base[2]); |
V776=(base[2]); |
3241 |
vs_top=sup; |
vs_top=sup; |
3242 |
base[3]= (V822); |
base[3]= (V774); |
3243 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3244 |
return; |
return; |
3245 |
} |
} |
3251 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3252 |
register object *sup=base+VM75; VC75 |
register object *sup=base+VM75; VC75 |
3253 |
vs_check; |
vs_check; |
3254 |
{object V825; |
{object V777; |
3255 |
object V826; |
object V778; |
3256 |
object V827; |
object V779; |
3257 |
check_arg(3); |
check_arg(3); |
3258 |
V825=(base[0]); |
V777=(base[0]); |
3259 |
V826=(base[1]); |
V778=(base[1]); |
3260 |
V827=(base[2]); |
V779=(base[2]); |
3261 |
vs_top=sup; |
vs_top=sup; |
3262 |
base[3]= (V825); |
base[3]= (V777); |
3263 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3264 |
return; |
return; |
3265 |
} |
} |
3266 |
} |
} |
3267 |
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,3,first,ap);va_end(ap);return V1;} /* WALK-LAMBDA */ |
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,3,first,ap);va_end(ap);return V1;} /* WALK-LAMBDA */ |
3268 |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[116],(void **)(void *)&LnkLI116,first,ap);va_end(ap);return V1;} /* CONVERT-MACRO-TO-LAMBDA */ |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[145],(void **)(void *)&LnkLI145,first,ap);va_end(ap);return V1;} /* CONVERT-MACRO-TO-LAMBDA */ |
3269 |
static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,3,first,ap);va_end(ap);return V1;} /* WALK-TAGBODY-1 */ |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,3,first,ap);va_end(ap);return V1;} /* WALK-TAGBODY-1 */ |
3270 |
static object LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[112],(void **)(void *)&LnkLI112,first,ap);va_end(ap);return V1;} /* RELIST */ |
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[141],(void **)(void *)&LnkLI141,first,ap);va_end(ap);return V1;} /* RELIST */ |
3271 |
static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* SOME */ |
static void LnkT140(){ call_or_link(VV[140],(void **)(void *)&Lnk140);} /* SOME */ |
3272 |
static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,4,first,ap);va_end(ap);return V1;} /* WALK-BINDINGS-2 */ |
static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,4,first,ap);va_end(ap);return V1;} /* WALK-BINDINGS-2 */ |
3273 |
static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,5,first,ap);va_end(ap);return V1;} /* WALK-BINDINGS-1 */ |
static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,5,first,ap);va_end(ap);return V1;} /* WALK-BINDINGS-1 */ |
3274 |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,4,first,ap);va_end(ap);return V1;} /* WALK-DODO* */ |
static object LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)(void *)&LnkLI137,4,first,ap);va_end(ap);return V1;} /* WALK-DODO* */ |
3275 |
static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,4,first,ap);va_end(ap);return V1;} /* WALK-PROGPROG* */ |
static object LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,4,first,ap);va_end(ap);return V1;} /* WALK-PROGPROG* */ |
3276 |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,4,first,ap);va_end(ap);return V1;} /* WALK-LETLET* */ |
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,4,first,ap);va_end(ap);return V1;} /* WALK-LETLET* */ |
3277 |
static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[105],(void **)(void *)&LnkLI105,first,ap);va_end(ap);return V1;} /* RELIST* */ |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[134],(void **)(void *)&LnkLI134,first,ap);va_end(ap);return V1;} /* RELIST* */ |
3278 |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[104],(void **)(void *)&LnkLI104,first,ap);va_end(ap);return V1;} /* WALK-ARGLIST */ |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)(void *)&LnkLI133,first,ap);va_end(ap);return V1;} /* WALK-ARGLIST */ |
3279 |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,2,first,ap);va_end(ap);return V1;} /* NOTE-LEXICAL-BINDING */ |
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,2,first,ap);va_end(ap);return V1;} /* NOTE-LEXICAL-BINDING */ |
3280 |
static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* WARN */ |
static void LnkT131(){ call_or_link(VV[131],(void **)(void *)&Lnk131);} /* WARN */ |
3281 |
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* NOTE-DECLARATION */ |
static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,2,first,ap);va_end(ap);return V1;} /* NOTE-DECLARATION */ |
3282 |
static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* WALK-DECLARATIONS */ |
static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* WALK-DECLARATIONS */ |
3283 |
static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,3,first,ap);va_end(ap);return V1;} /* RELIST-INTERNAL */ |
static object LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[128],(void **)(void *)&LnkLI128,3,first,ap);va_end(ap);return V1;} /* RELIST-INTERNAL */ |
3284 |
static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,2,first,ap);va_end(ap);return V1;} /* WALK-REPEAT-EVAL */ |
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* WALK-REPEAT-EVAL */ |
3285 |
static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,6,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE-HANDLE-REPEAT-1 */ |
static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,6,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE-HANDLE-REPEAT-1 */ |
3286 |
static object LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,3,first,ap);va_end(ap);return V1;} /* RECONS */ |
static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,3,first,ap);va_end(ap);return V1;} /* RECONS */ |
3287 |
static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[94],(void **)(void *)&LnkLI94,5,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE-HANDLE-REPEAT */ |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,5,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE-HANDLE-REPEAT */ |
3288 |
static object LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,4,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE */ |
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ERROR */ |
3289 |
static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,1,first,ap);va_end(ap);return V1;} /* GET-WALKER-TEMPLATE */ |
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,4,first,ap);va_end(ap);return V1;} /* WALK-TEMPLATE */ |
3290 |
static object LnkTLI85(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[85],(void **)(void *)&LnkLI85,2,first,ap);va_end(ap);return V1;} /* VARIABLE-SYMBOL-MACRO-P */ |
static object LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* GET-WALKER-TEMPLATE */ |
3291 |
static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* ENV-WALK-FUNCTION */ |
static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,2,first,ap);va_end(ap);return V1;} /* VARIABLE-SYMBOL-MACRO-P */ |
3292 |
static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* ENV-WALK-FORM */ |
static object LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)(void *)&LnkLI112,1,first,ap);va_end(ap);return V1;} /* ENV-WALK-FUNCTION */ |
3293 |
static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* WALK-FORM-INTERNAL */ |
static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,1,first,ap);va_end(ap);return V1;} /* ENV-WALK-FORM */ |
3294 |
|
static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* WALK-FORM-INTERNAL */ |
3295 |
static object LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[22],(void **)(void *)&LnkLI22,first,ap);va_end(ap);return V1;} /* WALKER-ENVIRONMENT-BIND-1 */ |
static object LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[22],(void **)(void *)&LnkLI22,first,ap);va_end(ap);return V1;} /* WALKER-ENVIRONMENT-BIND-1 */ |
3296 |
static object LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[2],(void **)(void *)&LnkLI2,3,first,ap);va_end(ap);return V1;} /* WITH-AUGMENTED-ENVIRONMENT-INTERNAL */ |
static object LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[2],(void **)(void *)&LnkLI2,3,first,ap);va_end(ap);return V1;} /* WITH-AUGMENTED-ENVIRONMENT-INTERNAL */ |
3297 |
static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* WALK-FORM */ |
static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* WALK-FORM */ |
3298 |
static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[78],(void **)(void *)&LnkLI78,1,first,ap);va_end(ap);return V1;} /* GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE */ |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* GET-IMPLEMENTATION-DEPENDENT-WALKER-TEMPLATE */ |
3299 |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* VARIABLE-GLOBALLY-SPECIAL-P */ |
static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* VARIABLE-GLOBALLY-SPECIAL-P */ |
3300 |
static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */ |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* VARIABLE-DECLARATION */ |
3301 |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* ENV-DECLARATIONS */ |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* ENV-DECLARATIONS */ |
3302 |
static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */ |
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */ |
3303 |
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* ENV-LEXICAL-VARIABLES */ |
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* ENV-LEXICAL-VARIABLES */ |
3304 |
static object LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* ENV-LOCK */ |
static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* ENV-LOCK */ |
3305 |
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,2,first,ap);va_end(ap);return V1;} /* ENVIRONMENT-MACRO */ |
static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,2,first,ap);va_end(ap);return V1;} /* ENVIRONMENT-MACRO */ |
3306 |
|
|
3307 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3308 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |