14 |
object V4; |
object V4; |
15 |
V3= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct)); |
V3= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct)); |
16 |
V4= Cnil; |
V4= Cnil; |
17 |
setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1))); |
(VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1)); |
18 |
if(!(endp_prop((V2)))){ |
if(!(((V2))==Cnil)){ |
19 |
goto T5;} |
goto T5;} |
20 |
(void)((*(LnkLI24))(VV[2],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI24))(VV[2],small_fixnum(1),small_fixnum(0))); |
21 |
goto T5; |
goto T5; |
22 |
T5:; |
T5:; |
23 |
V4= (*(LnkLI25))(car((V2))); |
V4= (*(LnkLI25))(CMPcar((V2))); |
24 |
(void)((*(LnkLI26))((V3),cadr((V4)))); |
(void)((*(LnkLI26))((V3),CMPcadr((V4)))); |
25 |
V2= (*(LnkLI27))(cdr((V2))); |
V2= (*(LnkLI27))(CMPcdr((V2))); |
26 |
(void)((*(LnkLI26))((V3),cadr((V2)))); |
(void)((*(LnkLI26))((V3),CMPcadr((V2)))); |
27 |
{object V5 = list(4,VV[2],(V3),(V4),(V2)); |
{object V5 = list(4,VV[2],(V3),(V4),(V2)); |
28 |
VMR1(V5)}} |
VMR1(V5)}} |
29 |
base[0]=base[0]; |
base[0]=base[0]; |
38 |
bds_check; |
bds_check; |
39 |
goto TTL; |
goto TTL; |
40 |
TTL:; |
TTL:; |
41 |
bds_bind(VV[3],symbol_value(VV[3])); |
bds_bind(VV[3],(VV[3]->s.s_dbind)); |
42 |
bds_bind(VV[4],VV[5]); |
bds_bind(VV[4],VV[5]); |
43 |
V10= (*(LnkLI28))((V8)); |
V10= (*(LnkLI28))((V8)); |
44 |
bds_unwind1; |
bds_unwind1; |
47 |
(void)((VFUN_NARGS=2,(*(LnkLI29))(VV[7],VV[8]))); |
(void)((VFUN_NARGS=2,(*(LnkLI29))(VV[7],VV[8]))); |
48 |
princ_char(125,VV[6]); |
princ_char(125,VV[6]); |
49 |
princ_str("\n else{",VV[6]); |
princ_str("\n else{",VV[6]); |
50 |
base[1]= make_cons(VV[10],symbol_value(VV[9])); |
base[1]= make_cons(VV[10],(VV[9]->s.s_dbind)); |
51 |
bds_bind(VV[9],base[1]); |
bds_bind(VV[9],base[1]); |
52 |
base[2]= (V9); |
base[2]= (V9); |
53 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
89 |
object V18; |
object V18; |
90 |
V17= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct)); |
V17= (VFUN_NARGS=2,(*(LnkLI23))(VV[0],Ct)); |
91 |
V18= Cnil; |
V18= Cnil; |
92 |
setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1))); |
(VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1)); |
93 |
if(!(endp_prop((V16)))){ |
if(!(((V16))==Cnil)){ |
94 |
goto T35;} |
goto T35;} |
95 |
(void)((*(LnkLI24))(VV[11],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI24))(VV[11],small_fixnum(1),small_fixnum(0))); |
96 |
goto T35; |
goto T35; |
97 |
T35:; |
T35:; |
98 |
base[1]= make_cons(VV[13],symbol_value(VV[12])); |
base[1]= make_cons(VV[13],(VV[12]->s.s_dbind)); |
99 |
base[2]= make_cons(VV[13],symbol_value(VV[14])); |
base[2]= make_cons(VV[13],(VV[14]->s.s_dbind)); |
100 |
base[3]= make_cons(VV[13],symbol_value(VV[15])); |
base[3]= make_cons(VV[13],(VV[15]->s.s_dbind)); |
101 |
bds_bind(VV[12],base[1]); |
bds_bind(VV[12],base[1]); |
102 |
bds_bind(VV[14],base[2]); |
bds_bind(VV[14],base[2]); |
103 |
bds_bind(VV[15],base[3]); |
bds_bind(VV[15],base[3]); |
104 |
V19= (*(LnkLI25))(car((V16))); |
V19= (*(LnkLI25))(CMPcar((V16))); |
105 |
bds_unwind1; |
bds_unwind1; |
106 |
bds_unwind1; |
bds_unwind1; |
107 |
bds_unwind1; |
bds_unwind1; |
108 |
V18= V19; |
V18= V19; |
109 |
(void)((*(LnkLI26))((V17),cadr((V18)))); |
(void)((*(LnkLI26))((V17),CMPcadr((V18)))); |
110 |
V16= (*(LnkLI27))(cdr((V16))); |
V16= (*(LnkLI27))(CMPcdr((V16))); |
111 |
(void)((*(LnkLI26))((V17),cadr((V16)))); |
(void)((*(LnkLI26))((V17),CMPcadr((V16)))); |
112 |
{object V20 = list(4,VV[11],(V17),(V18),(V16)); |
{object V20 = list(4,VV[11],(V17),(V18),(V16)); |
113 |
VMR4(V20)}} |
VMR4(V20)}} |
114 |
base[0]=base[0]; |
base[0]=base[0]; |
125 |
TTL:; |
TTL:; |
126 |
{register object V25; |
{register object V25; |
127 |
object V26; |
object V26; |
128 |
bds_bind(VV[3],symbol_value(VV[3])); |
bds_bind(VV[3],(VV[3]->s.s_dbind)); |
129 |
V25= list(2,VV[16],(*(LnkLI32))()); |
V25= list(2,VV[16],(*(LnkLI32))()); |
130 |
V26= Cnil; |
V26= Cnil; |
131 |
princ_str("\n frs_push(FRS_PROTECT,Cnil);",VV[6]); |
princ_str("\n frs_push(FRS_PROTECT,Cnil);",VV[6]); |
157 |
princ_str("\n vs_base=vs_top=base+",VV[6]); |
princ_str("\n vs_base=vs_top=base+",VV[6]); |
158 |
(void)((*(LnkLI31))((VV[3]->s.s_dbind))); |
(void)((*(LnkLI31))((VV[3]->s.s_dbind))); |
159 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
160 |
setq(VV[20],Ct); |
(VV[20]->s.s_dbind)= Ct; |
161 |
princ_str("\n for(p= ",VV[6]); |
princ_str("\n for(p= ",VV[6]); |
162 |
(void)((*(LnkLI31))((V25))); |
(void)((*(LnkLI31))((V25))); |
163 |
princ_str(";!endp(p);p=MMcdr(p))vs_push(MMcar(p));",VV[6]); |
princ_str(";!endp(p);p=MMcdr(p))vs_push(MMcar(p));",VV[6]); |
164 |
princ_str("\n if(active)unwind(fr,tag);else{",VV[6]); |
princ_str("\n if(active)unwind(fr,tag);else{",VV[6]); |
165 |
if(((V26))==Cnil){ |
if(((V26))==Cnil){ |
166 |
goto T94;} |
goto T94;} |
167 |
V28= car((V26)); |
V28= CMPcar((V26)); |
168 |
goto T92; |
goto T92; |
169 |
goto T94; |
goto T94; |
170 |
T94:; |
T94:; |
191 |
object V33; |
object V33; |
192 |
V32= (VFUN_NARGS=0,(*(LnkLI23))()); |
V32= (VFUN_NARGS=0,(*(LnkLI23))()); |
193 |
V33= Cnil; |
V33= Cnil; |
194 |
if(endp_prop((V31))){ |
if(((V31))==Cnil){ |
195 |
goto T100;} |
goto T100;} |
196 |
if(!(endp_prop(cdr((V31))))){ |
if(!((CMPcdr((V31)))==Cnil)){ |
197 |
goto T99;} |
goto T99;} |
198 |
goto T100; |
goto T100; |
199 |
T100:; |
T100:; |
200 |
V34 = make_fixnum((long)length((V31))); |
V34 = CMPmake_fixnum((long)length((V31))); |
201 |
(void)((*(LnkLI24))(VV[21],small_fixnum(2),V34)); |
(void)((*(LnkLI24))(VV[21],small_fixnum(2),V34)); |
202 |
goto T99; |
goto T99; |
203 |
T99:; |
T99:; |
204 |
if(endp_prop(cddr((V31)))){ |
if((CMPcddr((V31)))==Cnil){ |
205 |
goto T104;} |
goto T104;} |
206 |
V35 = make_fixnum((long)length((V31))); |
V35 = CMPmake_fixnum((long)length((V31))); |
207 |
(void)((*(LnkLI34))(VV[21],small_fixnum(2),V35)); |
(void)((*(LnkLI34))(VV[21],small_fixnum(2),V35)); |
208 |
goto T104; |
goto T104; |
209 |
T104:; |
T104:; |
210 |
V33= (*(LnkLI25))(car((V31))); |
V33= (*(LnkLI25))(CMPcar((V31))); |
211 |
(void)((*(LnkLI26))((V32),cadr((V33)))); |
(void)((*(LnkLI26))((V32),CMPcadr((V33)))); |
212 |
V31= (*(LnkLI25))(cadr((V31))); |
V31= (*(LnkLI25))(CMPcadr((V31))); |
213 |
(void)((*(LnkLI26))((V32),cadr((V31)))); |
(void)((*(LnkLI26))((V32),CMPcadr((V31)))); |
214 |
{object V36 = list(4,VV[21],(V32),(V33),(V31)); |
{object V36 = list(4,VV[21],(V32),(V33),(V31)); |
215 |
VMR6(V36)}} |
VMR6(V36)}} |
216 |
base[0]=base[0]; |
base[0]=base[0]; |
226 |
goto TTL; |
goto TTL; |
227 |
TTL:; |
TTL:; |
228 |
{register object V41; |
{register object V41; |
229 |
bds_bind(VV[3],symbol_value(VV[3])); |
bds_bind(VV[3],(VV[3]->s.s_dbind)); |
230 |
V41= Cnil; |
V41= Cnil; |
231 |
princ_str("\n {frame_ptr fr;",VV[6]); |
princ_str("\n {frame_ptr fr;",VV[6]); |
232 |
{object V42= car((V39)); |
{object V42= CMPcar((V39)); |
233 |
if((V42!= VV[35]))goto T117; |
if((V42!= VV[35]))goto T117; |
234 |
V41= caddr((V39)); |
V41= CMPcaddr((V39)); |
235 |
goto T116; |
goto T116; |
236 |
goto T117; |
goto T117; |
237 |
T117:; |
T117:; |
238 |
if((V42!= VV[22]))goto T119; |
if((V42!= VV[22]))goto T119; |
239 |
V41= make_cons(VV[22],caddr((V39))); |
V41= make_cons(VV[22],CMPcaddr((V39))); |
240 |
goto T116; |
goto T116; |
241 |
goto T119; |
goto T119; |
242 |
T119:; |
T119:; |