86 |
object V26; |
object V26; |
87 |
V25= Cnil; |
V25= Cnil; |
88 |
V26= Cnil; |
V26= Cnil; |
89 |
if(endp_prop((V24))){ |
if(((V24))==Cnil){ |
90 |
goto T4;} |
goto T4;} |
91 |
if(!(endp_prop(cdr((V24))))){ |
if(!((CMPcdr((V24)))==Cnil)){ |
92 |
goto T3;} |
goto T3;} |
93 |
goto T4; |
goto T4; |
94 |
T4:; |
T4:; |
95 |
V27 = make_fixnum((long)length((V24))); |
V27 = CMPmake_fixnum((long)length((V24))); |
96 |
(void)((*(LnkLI24))(VV[3],small_fixnum(2),V27)); |
(void)((*(LnkLI24))(VV[3],small_fixnum(2),V27)); |
97 |
goto T3; |
goto T3; |
98 |
T3:; |
T3:; |
99 |
V25= (*(LnkLI25))(car((V24))); |
V25= (*(LnkLI25))(CMPcar((V24))); |
100 |
base[0]= cadr((V25)); |
base[0]= CMPcadr((V25)); |
101 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
102 |
(void) (*Lnk26)(); |
(void) (*Lnk26)(); |
103 |
vs_top=sup; |
vs_top=sup; |
104 |
V26= vs_base[0]; |
V26= vs_base[0]; |
105 |
{object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26))); |
{object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(CMPcdr((V24)),(V26))); |
106 |
VMR7(V28)}} |
VMR7(V28)}} |
107 |
base[0]=base[0]; |
base[0]=base[0]; |
108 |
return Cnil; |
return Cnil; |
116 |
bds_check; |
bds_check; |
117 |
goto TTL; |
goto TTL; |
118 |
TTL:; |
TTL:; |
119 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],(VV[4]->s.s_dbind)); |
120 |
bds_bind(VV[5],small_fixnum(0)); |
bds_bind(VV[5],small_fixnum(0)); |
121 |
{object V35; |
{object V35; |
122 |
object V36; |
object V36; |
123 |
object V37; |
object V37; |
124 |
object V38; |
object V38; |
125 |
object V39; |
object V39; |
126 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
(VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1)); |
127 |
V35= make_cons(symbol_value(VV[6]),Ct); |
V35= make_cons((VV[6]->s.s_dbind),Ct); |
128 |
V36= list(2,VV[7],(*(LnkLI28))()); |
V36= list(2,VV[7],(*(LnkLI28))()); |
129 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
130 |
V37= list(2,VV[8],symbol_value(VV[9])); |
V37= list(2,VV[8],(VV[9]->s.s_dbind)); |
131 |
{object V40; |
{object V40; |
132 |
object V41= (V34); |
object V41= (V34); |
133 |
if(endp(V41)){ |
if(V41==Cnil){ |
134 |
V38= Cnil; |
V38= Cnil; |
135 |
goto T18;} |
goto T18;} |
136 |
base[2]=V40=MMcons(Cnil,Cnil); |
base[2]=V40=MMcons(Cnil,Cnil); |
137 |
goto T19; |
goto T19; |
138 |
T19:; |
T19:; |
139 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
140 |
(V40->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
(V40->c.c_car)= list(2,VV[8],(VV[9]->s.s_dbind)); |
141 |
V41=MMcdr(V41); |
if((V41=MMcdr(V41))==Cnil){ |
|
if(endp(V41)){ |
|
142 |
V38= base[2]; |
V38= base[2]; |
143 |
goto T18;} |
goto T18;} |
144 |
V40=MMcdr(V40)=MMcons(Cnil,Cnil); |
V40=MMcdr(V40)=MMcons(Cnil,Cnil); |
147 |
T18:; |
T18:; |
148 |
V39= Cnil; |
V39= Cnil; |
149 |
V39= (*(LnkLI29))((V32)); |
V39= (*(LnkLI29))((V32)); |
150 |
base[2]= make_fixnum((long)length((V34))); |
base[2]= CMPmake_fixnum((long)length((V34))); |
151 |
base[3]= VV[10]; |
base[3]= VV[10]; |
152 |
base[4]= Ct; |
base[4]= Ct; |
153 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
162 |
{register object V45; |
{register object V45; |
163 |
object V46; |
object V46; |
164 |
V45= (V38); |
V45= (V38); |
165 |
V46= car((V45)); |
V46= CMPcar((V45)); |
166 |
goto T38; |
goto T38; |
167 |
T38:; |
T38:; |
168 |
if(!(endp_prop((V45)))){ |
if(!(((V45))==Cnil)){ |
169 |
goto T39;} |
goto T39;} |
170 |
goto T34; |
goto T34; |
171 |
goto T39; |
goto T39; |
173 |
princ_str("\n object ",VV[11]); |
princ_str("\n object ",VV[11]); |
174 |
(void)((*(LnkLI32))((V46))); |
(void)((*(LnkLI32))((V46))); |
175 |
princ_str("= ",VV[11]); |
princ_str("= ",VV[11]); |
176 |
(void)((*(LnkLI32))(car((V34)))); |
(void)((*(LnkLI32))(CMPcar((V34)))); |
177 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
178 |
{object V47; |
{object V47; |
179 |
V47= car((V34)); |
V47= CMPcar((V34)); |
180 |
V34= cdr((V34));} |
V34= CMPcdr((V34));} |
181 |
V45= cdr((V45)); |
V45= CMPcdr((V45)); |
182 |
V46= car((V45)); |
V46= CMPcar((V45)); |
183 |
goto T38;} |
goto T38;} |
184 |
goto T34; |
goto T34; |
185 |
T34:; |
T34:; |
186 |
if((symbol_value(VV[12]))==Cnil){ |
if(((VV[12]->s.s_dbind))==Cnil){ |
187 |
goto T60;} |
goto T60;} |
188 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
189 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(CMPcar((V38)))); |
190 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
191 |
{register object V48; |
{register object V48; |
192 |
object V49; |
object V49; |
193 |
V48= cdr((V38)); |
V48= CMPcdr((V38)); |
194 |
V49= car((V48)); |
V49= CMPcar((V48)); |
195 |
goto T70; |
goto T70; |
196 |
T70:; |
T70:; |
197 |
if(!(endp_prop((V48)))){ |
if(!(((V48))==Cnil)){ |
198 |
goto T71;} |
goto T71;} |
199 |
goto T66; |
goto T66; |
200 |
goto T71; |
goto T71; |
202 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
203 |
(void)((*(LnkLI32))((V49))); |
(void)((*(LnkLI32))((V49))); |
204 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
205 |
V48= cdr((V48)); |
V48= CMPcdr((V48)); |
206 |
V49= car((V48)); |
V49= CMPcar((V48)); |
207 |
goto T70;} |
goto T70;} |
208 |
goto T66; |
goto T66; |
209 |
T66:; |
T66:; |
212 |
goto T60; |
goto T60; |
213 |
T60:; |
T60:; |
214 |
princ_str("\n if(",VV[11]); |
princ_str("\n if(",VV[11]); |
215 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(CMPcar((V38)))); |
216 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
217 |
{register object V50; |
{register object V50; |
218 |
object V51; |
object V51; |
219 |
V50= cdr((V38)); |
V50= CMPcdr((V38)); |
220 |
V51= car((V50)); |
V51= CMPcar((V50)); |
221 |
goto T93; |
goto T93; |
222 |
T93:; |
T93:; |
223 |
if(!(endp_prop((V50)))){ |
if(!(((V50))==Cnil)){ |
224 |
goto T94;} |
goto T94;} |
225 |
goto T89; |
goto T89; |
226 |
goto T94; |
goto T94; |
228 |
princ_str("||",VV[11]); |
princ_str("||",VV[11]); |
229 |
(void)((*(LnkLI32))((V51))); |
(void)((*(LnkLI32))((V51))); |
230 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
231 |
V50= cdr((V50)); |
V50= CMPcdr((V50)); |
232 |
V51= car((V50)); |
V51= CMPcar((V50)); |
233 |
goto T93;} |
goto T93;} |
234 |
goto T89; |
goto T89; |
235 |
T89:; |
T89:; |
243 |
princ_char(61,VV[11]); |
princ_char(61,VV[11]); |
244 |
(void)((*(LnkLI32))((V37))); |
(void)((*(LnkLI32))((V37))); |
245 |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
246 |
if((cdr((V35)))==Cnil){ |
if((CMPcdr((V35)))==Cnil){ |
247 |
goto T117;} |
goto T117;} |
248 |
princ_str("\n goto T",VV[11]); |
princ_str("\n goto T",VV[11]); |
249 |
(void)((*(LnkLI32))(car((V35)))); |
(void)((*(LnkLI32))(CMPcar((V35)))); |
250 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
251 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
252 |
(void)((*(LnkLI32))(car((V35)))); |
(void)((*(LnkLI32))(CMPcar((V35)))); |
253 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
254 |
goto T117; |
goto T117; |
255 |
T117:; |
T117:; |
256 |
bds_bind(VV[14],list(2,VV[15],cadr((V37)))); |
bds_bind(VV[14],list(2,VV[15],CMPcadr((V37)))); |
257 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
(VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1)); |
258 |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
bds_bind(VV[16],make_cons((VV[6]->s.s_dbind),Cnil)); |
259 |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),(VV[17]->s.s_dbind))); |
260 |
if(((V33))==Cnil){ |
if(((V33))==Cnil){ |
261 |
goto T135;} |
goto T135;} |
262 |
{object V53; |
{object V53; |
263 |
object V54= (V38); |
object V54= (V38); |
264 |
if(endp(V54)){ |
if(V54==Cnil){ |
265 |
V52= Cnil; |
V52= Cnil; |
266 |
goto T133;} |
goto T133;} |
267 |
base[5]=V53=MMcons(Cnil,Cnil); |
base[5]=V53=MMcons(Cnil,Cnil); |
268 |
goto T137; |
goto T137; |
269 |
T137:;{object V56; |
T137:;{object V56; |
270 |
V56= symbol_value(VV[19]); |
V56= (VV[19]->s.s_dbind); |
271 |
(V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));} |
(V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],CMPcadr((V54->c.c_car))));} |
272 |
V54=MMcdr(V54); |
if((V54=MMcdr(V54))==Cnil){ |
|
if(endp(V54)){ |
|
273 |
V52= base[5]; |
V52= base[5]; |
274 |
goto T133;} |
goto T133;} |
275 |
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
278 |
T135:; |
T135:; |
279 |
{object V57; |
{object V57; |
280 |
object V58= (V38); |
object V58= (V38); |
281 |
if(endp(V58)){ |
if(V58==Cnil){ |
282 |
V52= Cnil; |
V52= Cnil; |
283 |
goto T133;} |
goto T133;} |
284 |
base[5]=V57=MMcons(Cnil,Cnil); |
base[5]=V57=MMcons(Cnil,Cnil); |
285 |
goto T139; |
goto T139; |
286 |
T139:; |
T139:; |
287 |
(V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car)); |
(V57->c.c_car)= list(3,VV[18],(VV[19]->s.s_dbind),(V58->c.c_car)); |
288 |
V58=MMcdr(V58); |
if((V58=MMcdr(V58))==Cnil){ |
|
if(endp(V58)){ |
|
289 |
V52= base[5]; |
V52= base[5]; |
290 |
goto T133;} |
goto T133;} |
291 |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
293 |
goto T133; |
goto T133; |
294 |
T133:; |
T133:; |
295 |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39)))); |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39)))); |
296 |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[16]->s.s_dbind)))==Cnil){ |
297 |
bds_unwind1; |
bds_unwind1; |
298 |
bds_unwind1; |
bds_unwind1; |
299 |
bds_unwind1; |
bds_unwind1; |
300 |
goto T127;} |
goto T127;} |
301 |
princ_str("\n goto T",VV[11]); |
princ_str("\n goto T",VV[11]); |
302 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind)))); |
303 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
304 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
305 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind)))); |
306 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
307 |
bds_unwind1; |
bds_unwind1; |
308 |
bds_unwind1; |
bds_unwind1; |
309 |
bds_unwind1; |
bds_unwind1; |
310 |
goto T127; |
goto T127; |
311 |
T127:; |
T127:; |
312 |
if((symbol_value(VV[12]))==Cnil){ |
if(((VV[12]->s.s_dbind))==Cnil){ |
313 |
goto T152;} |
goto T152;} |
314 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
315 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(CMPcar((V38)))); |
316 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
317 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(CMPcar((V38)))); |
318 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
319 |
{register object V60; |
{register object V60; |
320 |
object V61; |
object V61; |
321 |
V60= cdr((V38)); |
V60= CMPcdr((V38)); |
322 |
V61= car((V60)); |
V61= CMPcar((V60)); |
323 |
goto T164; |
goto T164; |
324 |
T164:; |
T164:; |
325 |
if(!(endp_prop((V60)))){ |
if(!(((V60))==Cnil)){ |
326 |
goto T165;} |
goto T165;} |
327 |
goto T160; |
goto T160; |
328 |
goto T165; |
goto T165; |
332 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
333 |
(void)((*(LnkLI32))((V61))); |
(void)((*(LnkLI32))((V61))); |
334 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
335 |
V60= cdr((V60)); |
V60= CMPcdr((V60)); |
336 |
V61= car((V60)); |
V61= CMPcar((V60)); |
337 |
goto T164;} |
goto T164;} |
338 |
goto T160; |
goto T160; |
339 |
T160:; |
T160:; |
340 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
341 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(CMPcar((V38)))); |
342 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
343 |
{register object V62; |
{register object V62; |
344 |
object V63; |
object V63; |
345 |
V62= cdr((V38)); |
V62= CMPcdr((V38)); |
346 |
V63= car((V62)); |
V63= CMPcar((V62)); |
347 |
goto T188; |
goto T188; |
348 |
T188:; |
T188:; |
349 |
if(!(endp_prop((V62)))){ |
if(!(((V62))==Cnil)){ |
350 |
goto T189;} |
goto T189;} |
351 |
goto T184; |
goto T184; |
352 |
goto T189; |
goto T189; |
354 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
355 |
(void)((*(LnkLI32))((V63))); |
(void)((*(LnkLI32))((V63))); |
356 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
357 |
V62= cdr((V62)); |
V62= CMPcdr((V62)); |
358 |
V63= car((V62)); |
V63= CMPcar((V62)); |
359 |
goto T188;} |
goto T188;} |
360 |
goto T184; |
goto T184; |
361 |
T184:; |
T184:; |
364 |
goto T152; |
goto T152; |
365 |
T152:; |
T152:; |
366 |
princ_str("\n if((",VV[11]); |
princ_str("\n if((",VV[11]); |
367 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(CMPcar((V38)))); |
368 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
369 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(CMPcar((V38)))); |
370 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
371 |
{register object V64; |
{register object V64; |
372 |
object V65; |
object V65; |
373 |
V64= cdr((V38)); |
V64= CMPcdr((V38)); |
374 |
V65= car((V64)); |
V65= CMPcar((V64)); |
375 |
goto T213; |
goto T213; |
376 |
T213:; |
T213:; |
377 |
if(!(endp_prop((V64)))){ |
if(!(((V64))==Cnil)){ |
378 |
goto T214;} |
goto T214;} |
379 |
goto T209; |
goto T209; |
380 |
goto T214; |
goto T214; |
384 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
385 |
(void)((*(LnkLI32))((V65))); |
(void)((*(LnkLI32))((V65))); |
386 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
387 |
V64= cdr((V64)); |
V64= CMPcdr((V64)); |
388 |
V65= car((V64)); |
V65= CMPcar((V64)); |
389 |
goto T213;} |
goto T213;} |
390 |
goto T209; |
goto T209; |
391 |
T209:; |
T209:; |
400 |
(void)((*(LnkLI32))((V37))); |
(void)((*(LnkLI32))((V37))); |
401 |
princ_str(")=MMcons(Cnil,Cnil);",VV[11]); |
princ_str(")=MMcons(Cnil,Cnil);",VV[11]); |
402 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
|
if(type_of((V35))!=t_cons)FEwrong_type_argument(Scons,(V35)); |
|
403 |
((V35))->c.c_cdr = Ct; |
((V35))->c.c_cdr = Ct; |
404 |
princ_str("goto T",VV[11]); |
princ_str("goto T",VV[11]); |
405 |
(void)((*(LnkLI32))(car((V35)))); |
(void)((*(LnkLI32))(CMPcar((V35)))); |
406 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
407 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
408 |
{object V66 = (*(LnkLI35))(); |
{object V66 = (*(LnkLI35))(); |
421 |
bds_check; |
bds_check; |
422 |
goto TTL; |
goto TTL; |
423 |
TTL:; |
TTL:; |
424 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],(VV[4]->s.s_dbind)); |
425 |
bds_bind(VV[5],small_fixnum(0)); |
bds_bind(VV[5],small_fixnum(0)); |
426 |
{object V73; |
{object V73; |
427 |
object V74; |
object V74; |
428 |
object V75; |
object V75; |
429 |
object V76; |
object V76; |
430 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
(VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1)); |
431 |
V73= make_cons(symbol_value(VV[6]),Ct); |
V73= make_cons((VV[6]->s.s_dbind),Ct); |
432 |
{object V77; |
{object V77; |
433 |
object V78= (V72); |
object V78= (V72); |
434 |
if(endp(V78)){ |
if(V78==Cnil){ |
435 |
V75= Cnil; |
V75= Cnil; |
436 |
goto T249;} |
goto T249;} |
437 |
base[2]=V77=MMcons(Cnil,Cnil); |
base[2]=V77=MMcons(Cnil,Cnil); |
438 |
goto T250; |
goto T250; |
439 |
T250:; |
T250:; |
440 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
441 |
(V77->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
(V77->c.c_car)= list(2,VV[8],(VV[9]->s.s_dbind)); |
442 |
V78=MMcdr(V78); |
if((V78=MMcdr(V78))==Cnil){ |
|
if(endp(V78)){ |
|
443 |
V75= base[2]; |
V75= base[2]; |
444 |
goto T249;} |
goto T249;} |
445 |
V77=MMcdr(V77)=MMcons(Cnil,Cnil); |
V77=MMcdr(V77)=MMcons(Cnil,Cnil); |
449 |
V74= Cnil; |
V74= Cnil; |
450 |
V76= Cnil; |
V76= Cnil; |
451 |
V76= (*(LnkLI29))((V70)); |
V76= (*(LnkLI29))((V70)); |
452 |
base[2]= make_fixnum((long)length((V72))); |
base[2]= CMPmake_fixnum((long)length((V72))); |
453 |
base[3]= VV[10]; |
base[3]= VV[10]; |
454 |
base[4]= Ct; |
base[4]= Ct; |
455 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
458 |
V80= vs_base[0]; |
V80= vs_base[0]; |
459 |
V81= (VFUN_NARGS=2,(*(LnkLI31))((V72),V80)); |
V81= (VFUN_NARGS=2,(*(LnkLI31))((V72),V80)); |
460 |
V72= (*(LnkLI30))(/* INLINE-ARGS */V81,(V70)); |
V72= (*(LnkLI30))(/* INLINE-ARGS */V81,(V70)); |
461 |
V74= car((V72)); |
V74= CMPcar((V72)); |
462 |
princ_str("\n {",VV[11]); |
princ_str("\n {",VV[11]); |
463 |
{register object V82; |
{register object V82; |
464 |
object V83; |
object V83; |
465 |
V82= (V75); |
V82= (V75); |
466 |
V83= car((V82)); |
V83= CMPcar((V82)); |
467 |
goto T269; |
goto T269; |
468 |
T269:; |
T269:; |
469 |
if(!(endp_prop((V82)))){ |
if(!(((V82))==Cnil)){ |
470 |
goto T270;} |
goto T270;} |
471 |
goto T265; |
goto T265; |
472 |
goto T270; |
goto T270; |
474 |
princ_str("\n object ",VV[11]); |
princ_str("\n object ",VV[11]); |
475 |
(void)((*(LnkLI32))((V83))); |
(void)((*(LnkLI32))((V83))); |
476 |
princ_str("= ",VV[11]); |
princ_str("= ",VV[11]); |
477 |
(void)((*(LnkLI32))(car((V72)))); |
(void)((*(LnkLI32))(CMPcar((V72)))); |
478 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
479 |
{object V84; |
{object V84; |
480 |
V84= car((V72)); |
V84= CMPcar((V72)); |
481 |
V72= cdr((V72));} |
V72= CMPcdr((V72));} |
482 |
V82= cdr((V82)); |
V82= CMPcdr((V82)); |
483 |
V83= car((V82)); |
V83= CMPcar((V82)); |
484 |
goto T269;} |
goto T269;} |
485 |
goto T265; |
goto T265; |
486 |
T265:; |
T265:; |
487 |
if((symbol_value(VV[12]))==Cnil){ |
if(((VV[12]->s.s_dbind))==Cnil){ |
488 |
goto T291;} |
goto T291;} |
489 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
490 |
(void)((*(LnkLI32))(car((V75)))); |
(void)((*(LnkLI32))(CMPcar((V75)))); |
491 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
492 |
{register object V85; |
{register object V85; |
493 |
object V86; |
object V86; |
494 |
V85= cdr((V75)); |
V85= CMPcdr((V75)); |
495 |
V86= car((V85)); |
V86= CMPcar((V85)); |
496 |
goto T301; |
goto T301; |
497 |
T301:; |
T301:; |
498 |
if(!(endp_prop((V85)))){ |
if(!(((V85))==Cnil)){ |
499 |
goto T302;} |
goto T302;} |
500 |
goto T297; |
goto T297; |
501 |
goto T302; |
goto T302; |
503 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
504 |
(void)((*(LnkLI32))((V86))); |
(void)((*(LnkLI32))((V86))); |
505 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
506 |
V85= cdr((V85)); |
V85= CMPcdr((V85)); |
507 |
V86= car((V85)); |
V86= CMPcar((V85)); |
508 |
goto T301;} |
goto T301;} |
509 |
goto T297; |
goto T297; |
510 |
T297:; |
T297:; |
513 |
goto T291; |
goto T291; |
514 |
T291:; |
T291:; |
515 |
princ_str("\n if(",VV[11]); |
princ_str("\n if(",VV[11]); |
516 |
(void)((*(LnkLI32))(car((V75)))); |
(void)((*(LnkLI32))(CMPcar((V75)))); |
517 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
518 |
{register object V87; |
{register object V87; |
519 |
object V88; |
object V88; |
520 |
V87= cdr((V75)); |
V87= CMPcdr((V75)); |
521 |
V88= car((V87)); |
V88= CMPcar((V87)); |
522 |
goto T324; |
goto T324; |
523 |
T324:; |
T324:; |
524 |
if(!(endp_prop((V87)))){ |
if(!(((V87))==Cnil)){ |
525 |
goto T325;} |
goto T325;} |
526 |
goto T320; |
goto T320; |
527 |
goto T325; |
goto T325; |
529 |
princ_str("||",VV[11]); |
princ_str("||",VV[11]); |
530 |
(void)((*(LnkLI32))((V88))); |
(void)((*(LnkLI32))((V88))); |
531 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
532 |
V87= cdr((V87)); |
V87= CMPcdr((V87)); |
533 |
V88= car((V87)); |
V88= CMPcar((V87)); |
534 |
goto T324;} |
goto T324;} |
535 |
goto T320; |
goto T320; |
536 |
T320:; |
T320:; |
539 |
T289:; |
T289:; |
540 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
541 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
542 |
if((cdr((V73)))==Cnil){ |
if((CMPcdr((V73)))==Cnil){ |
543 |
goto T342;} |
goto T342;} |
544 |
princ_str("\n goto T",VV[11]); |
princ_str("\n goto T",VV[11]); |
545 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(CMPcar((V73)))); |
546 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
547 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
548 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(CMPcar((V73)))); |
549 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
550 |
goto T342; |
goto T342; |
551 |
T342:; |
T342:; |
552 |
bds_bind(VV[14],VV[20]); |
bds_bind(VV[14],VV[20]); |
553 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
(VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1)); |
554 |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
bds_bind(VV[16],make_cons((VV[6]->s.s_dbind),Cnil)); |
555 |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),(VV[17]->s.s_dbind))); |
556 |
if(((V71))==Cnil){ |
if(((V71))==Cnil){ |
557 |
goto T359;} |
goto T359;} |
558 |
{object V90; |
{object V90; |
559 |
object V91= (V75); |
object V91= (V75); |
560 |
if(endp(V91)){ |
if(V91==Cnil){ |
561 |
V89= Cnil; |
V89= Cnil; |
562 |
goto T357;} |
goto T357;} |
563 |
base[5]=V90=MMcons(Cnil,Cnil); |
base[5]=V90=MMcons(Cnil,Cnil); |
564 |
goto T361; |
goto T361; |
565 |
T361:;{object V93; |
T361:;{object V93; |
566 |
V93= symbol_value(VV[19]); |
V93= (VV[19]->s.s_dbind); |
567 |
(V90->c.c_car)= list(3,VV[18],V93,list(2,VV[15],cadr((V91->c.c_car))));} |
(V90->c.c_car)= list(3,VV[18],V93,list(2,VV[15],CMPcadr((V91->c.c_car))));} |
568 |
V91=MMcdr(V91); |
if((V91=MMcdr(V91))==Cnil){ |
|
if(endp(V91)){ |
|
569 |
V89= base[5]; |
V89= base[5]; |
570 |
goto T357;} |
goto T357;} |
571 |
V90=MMcdr(V90)=MMcons(Cnil,Cnil); |
V90=MMcdr(V90)=MMcons(Cnil,Cnil); |
574 |
T359:; |
T359:; |
575 |
{object V94; |
{object V94; |
576 |
object V95= (V75); |
object V95= (V75); |
577 |
if(endp(V95)){ |
if(V95==Cnil){ |
578 |
V89= Cnil; |
V89= Cnil; |
579 |
goto T357;} |
goto T357;} |
580 |
base[5]=V94=MMcons(Cnil,Cnil); |
base[5]=V94=MMcons(Cnil,Cnil); |
581 |
goto T363; |
goto T363; |
582 |
T363:; |
T363:; |
583 |
(V94->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V95->c.c_car)); |
(V94->c.c_car)= list(3,VV[18],(VV[19]->s.s_dbind),(V95->c.c_car)); |
584 |
V95=MMcdr(V95); |
if((V95=MMcdr(V95))==Cnil){ |
|
if(endp(V95)){ |
|
585 |
V89= base[5]; |
V89= base[5]; |
586 |
goto T357;} |
goto T357;} |
587 |
V94=MMcdr(V94)=MMcons(Cnil,Cnil); |
V94=MMcdr(V94)=MMcons(Cnil,Cnil); |
589 |
goto T357; |
goto T357; |
590 |
T357:; |
T357:; |
591 |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V70),V89,(V76)))); |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V70),V89,(V76)))); |
592 |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[16]->s.s_dbind)))==Cnil){ |
593 |
bds_unwind1; |
bds_unwind1; |
594 |
bds_unwind1; |
bds_unwind1; |
595 |
bds_unwind1; |
bds_unwind1; |
596 |
goto T352;} |
goto T352;} |
597 |
princ_str("\n goto T",VV[11]); |
princ_str("\n goto T",VV[11]); |
598 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind)))); |
599 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
600 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
601 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind)))); |
602 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
603 |
bds_unwind1; |
bds_unwind1; |
604 |
bds_unwind1; |
bds_unwind1; |
605 |
bds_unwind1; |
bds_unwind1; |
606 |
goto T352; |
goto T352; |
607 |
T352:; |
T352:; |
608 |
if((symbol_value(VV[12]))==Cnil){ |
if(((VV[12]->s.s_dbind))==Cnil){ |
609 |
goto T376;} |
goto T376;} |
610 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
611 |
(void)((*(LnkLI32))(car((V75)))); |
(void)((*(LnkLI32))(CMPcar((V75)))); |
612 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
613 |
(void)((*(LnkLI32))(car((V75)))); |
(void)((*(LnkLI32))(CMPcar((V75)))); |
614 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
615 |
{register object V97; |
{register object V97; |
616 |
object V98; |
object V98; |
617 |
V97= cdr((V75)); |
V97= CMPcdr((V75)); |
618 |
V98= car((V97)); |
V98= CMPcar((V97)); |
619 |
goto T388; |
goto T388; |
620 |
T388:; |
T388:; |
621 |
if(!(endp_prop((V97)))){ |
if(!(((V97))==Cnil)){ |
622 |
goto T389;} |
goto T389;} |
623 |
goto T384; |
goto T384; |
624 |
goto T389; |
goto T389; |
628 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
629 |
(void)((*(LnkLI32))((V98))); |
(void)((*(LnkLI32))((V98))); |
630 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
631 |
V97= cdr((V97)); |
V97= CMPcdr((V97)); |
632 |
V98= car((V97)); |
V98= CMPcar((V97)); |
633 |
goto T388;} |
goto T388;} |
634 |
goto T384; |
goto T384; |
635 |
T384:; |
T384:; |
636 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
637 |
(void)((*(LnkLI32))(car((V75)))); |
(void)((*(LnkLI32))(CMPcar((V75)))); |
638 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
639 |
{register object V99; |
{register object V99; |
640 |
object V100; |
object V100; |
641 |
V99= cdr((V75)); |
V99= CMPcdr((V75)); |
642 |
V100= car((V99)); |
V100= CMPcar((V99)); |
643 |
goto T412; |
goto T412; |
644 |
T412:; |
T412:; |
645 |
if(!(endp_prop((V99)))){ |
if(!(((V99))==Cnil)){ |
646 |
goto T413;} |
goto T413;} |
647 |
goto T408; |
goto T408; |
648 |
goto T413; |
goto T413; |
650 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
651 |
(void)((*(LnkLI32))((V100))); |
(void)((*(LnkLI32))((V100))); |
652 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
653 |
V99= cdr((V99)); |
V99= CMPcdr((V99)); |
654 |
V100= car((V99)); |
V100= CMPcar((V99)); |
655 |
goto T412;} |
goto T412;} |
656 |
goto T408; |
goto T408; |
657 |
T408:; |
T408:; |
660 |
goto T376; |
goto T376; |
661 |
T376:; |
T376:; |
662 |
princ_str("\n if((",VV[11]); |
princ_str("\n if((",VV[11]); |
663 |
(void)((*(LnkLI32))(car((V75)))); |
(void)((*(LnkLI32))(CMPcar((V75)))); |
664 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
665 |
(void)((*(LnkLI32))(car((V75)))); |
(void)((*(LnkLI32))(CMPcar((V75)))); |
666 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
667 |
{register object V101; |
{register object V101; |
668 |
object V102; |
object V102; |
669 |
V101= cdr((V75)); |
V101= CMPcdr((V75)); |
670 |
V102= car((V101)); |
V102= CMPcar((V101)); |
671 |
goto T437; |
goto T437; |
672 |
T437:; |
T437:; |
673 |
if(!(endp_prop((V101)))){ |
if(!(((V101))==Cnil)){ |
674 |
goto T438;} |
goto T438;} |
675 |
goto T433; |
goto T433; |
676 |
goto T438; |
goto T438; |
680 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
681 |
(void)((*(LnkLI32))((V102))); |
(void)((*(LnkLI32))((V102))); |
682 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
683 |
V101= cdr((V101)); |
V101= CMPcdr((V101)); |
684 |
V102= car((V101)); |
V102= CMPcar((V101)); |
685 |
goto T437;} |
goto T437;} |
686 |
goto T433; |
goto T433; |
687 |
T433:; |
T433:; |
691 |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V74),VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V74),VV[13]))); |
692 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
693 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
|
if(type_of((V73))!=t_cons)FEwrong_type_argument(Scons,(V73)); |
|
694 |
((V73))->c.c_cdr = Ct; |
((V73))->c.c_cdr = Ct; |
695 |
princ_str("goto T",VV[11]); |
princ_str("goto T",VV[11]); |
696 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(CMPcar((V73)))); |
697 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
698 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
699 |
{object V103 = (*(LnkLI35))(); |
{object V103 = (*(LnkLI35))(); |
712 |
bds_check; |
bds_check; |
713 |
goto TTL; |
goto TTL; |
714 |
TTL:; |
TTL:; |
715 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],(VV[4]->s.s_dbind)); |
716 |
bds_bind(VV[5],small_fixnum(0)); |
bds_bind(VV[5],small_fixnum(0)); |
717 |
{object V110; |
{object V110; |
718 |
object V111; |
object V111; |
719 |
object V112; |
object V112; |
720 |
object V113; |
object V113; |
721 |
object V114; |
object V114; |
722 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
(VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1)); |
723 |
V110= make_cons(symbol_value(VV[6]),Ct); |
V110= make_cons((VV[6]->s.s_dbind),Ct); |
724 |
V111= list(2,VV[7],(*(LnkLI28))()); |
V111= list(2,VV[7],(*(LnkLI28))()); |
725 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
726 |
V112= list(2,VV[8],symbol_value(VV[9])); |
V112= list(2,VV[8],(VV[9]->s.s_dbind)); |
727 |
{object V115; |
{object V115; |
728 |
object V116= (V109); |
object V116= (V109); |
729 |
if(endp(V116)){ |
if(V116==Cnil){ |
730 |
V113= Cnil; |
V113= Cnil; |
731 |
goto T470;} |
goto T470;} |
732 |
base[2]=V115=MMcons(Cnil,Cnil); |
base[2]=V115=MMcons(Cnil,Cnil); |
733 |
goto T471; |
goto T471; |
734 |
T471:; |
T471:; |
735 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
736 |
(V115->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
(V115->c.c_car)= list(2,VV[8],(VV[9]->s.s_dbind)); |
737 |
V116=MMcdr(V116); |
if((V116=MMcdr(V116))==Cnil){ |
|
if(endp(V116)){ |
|
738 |
V113= base[2]; |
V113= base[2]; |
739 |
goto T470;} |
goto T470;} |
740 |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
743 |
T470:; |
T470:; |
744 |
V114= Cnil; |
V114= Cnil; |
745 |
V114= (*(LnkLI29))((V107)); |
V114= (*(LnkLI29))((V107)); |
746 |
base[2]= make_fixnum((long)length((V109))); |
base[2]= CMPmake_fixnum((long)length((V109))); |
747 |
base[3]= VV[10]; |
base[3]= VV[10]; |
748 |
base[4]= Ct; |
base[4]= Ct; |
749 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
758 |
{register object V120; |
{register object V120; |
759 |
object V121; |
object V121; |
760 |
V120= (V113); |
V120= (V113); |
761 |
V121= car((V120)); |
V121= CMPcar((V120)); |
762 |
goto T490; |
goto T490; |
763 |
T490:; |
T490:; |
764 |
if(!(endp_prop((V120)))){ |
if(!(((V120))==Cnil)){ |
765 |
goto T491;} |
goto T491;} |
766 |
goto T486; |
goto T486; |
767 |
goto T491; |
goto T491; |
769 |
princ_str("\n object ",VV[11]); |
princ_str("\n object ",VV[11]); |
770 |
(void)((*(LnkLI32))((V121))); |
(void)((*(LnkLI32))((V121))); |
771 |
princ_str("= ",VV[11]); |
princ_str("= ",VV[11]); |
772 |
(void)((*(LnkLI32))(car((V109)))); |
(void)((*(LnkLI32))(CMPcar((V109)))); |
773 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
774 |
{object V122; |
{object V122; |
775 |
V122= car((V109)); |
V122= CMPcar((V109)); |
776 |
V109= cdr((V109));} |
V109= CMPcdr((V109));} |
777 |
V120= cdr((V120)); |
V120= CMPcdr((V120)); |
778 |
V121= car((V120)); |
V121= CMPcar((V120)); |
779 |
goto T490;} |
goto T490;} |
780 |
goto T486; |
goto T486; |
781 |
T486:; |
T486:; |
782 |
if((symbol_value(VV[12]))==Cnil){ |
if(((VV[12]->s.s_dbind))==Cnil){ |
783 |
goto T512;} |
goto T512;} |
784 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
785 |
(void)((*(LnkLI32))(car((V113)))); |
(void)((*(LnkLI32))(CMPcar((V113)))); |
786 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
787 |
{register object V123; |
{register object V123; |
788 |
object V124; |
object V124; |
789 |
V123= cdr((V113)); |
V123= CMPcdr((V113)); |
790 |
V124= car((V123)); |
V124= CMPcar((V123)); |
791 |
goto T522; |
goto T522; |
792 |
T522:; |
T522:; |
793 |
if(!(endp_prop((V123)))){ |
if(!(((V123))==Cnil)){ |
794 |
goto T523;} |
goto T523;} |
795 |
goto T518; |
goto T518; |
796 |
goto T523; |
goto T523; |
798 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
799 |
(void)((*(LnkLI32))((V124))); |
(void)((*(LnkLI32))((V124))); |
800 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
801 |
V123= cdr((V123)); |
V123= CMPcdr((V123)); |
802 |
V124= car((V123)); |
V124= CMPcar((V123)); |
803 |
goto T522;} |
goto T522;} |
804 |
goto T518; |
goto T518; |
805 |
T518:; |
T518:; |
808 |
goto T512; |
goto T512; |
809 |
T512:; |
T512:; |
810 |
princ_str("\n if(",VV[11]); |
princ_str("\n if(",VV[11]); |
811 |
(void)((*(LnkLI32))(car((V113)))); |
(void)((*(LnkLI32))(CMPcar((V113)))); |
812 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
813 |
{register object V125; |
{register object V125; |
814 |
object V126; |
object V126; |
815 |
V125= cdr((V113)); |
V125= CMPcdr((V113)); |
816 |
V126= car((V125)); |
V126= CMPcar((V125)); |
817 |
goto T545; |
goto T545; |
818 |
T545:; |
T545:; |
819 |
if(!(endp_prop((V125)))){ |
if(!(((V125))==Cnil)){ |
820 |
goto T546;} |
goto T546;} |
821 |
goto T541; |
goto T541; |
822 |
goto T546; |
goto T546; |
824 |
princ_str("||",VV[11]); |
princ_str("||",VV[11]); |
825 |
(void)((*(LnkLI32))((V126))); |
(void)((*(LnkLI32))((V126))); |
826 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
827 |
V125= cdr((V125)); |
V125= CMPcdr((V125)); |
828 |
V126= car((V125)); |
V126= CMPcar((V125)); |
829 |
goto T545;} |
goto T545;} |
830 |
goto T541; |
goto T541; |
831 |
T541:; |
T541:; |
839 |
princ_char(61,VV[11]); |
princ_char(61,VV[11]); |
840 |
(void)((*(LnkLI32))((V112))); |
(void)((*(LnkLI32))((V112))); |
841 |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
842 |
if((cdr((V110)))==Cnil){ |
if((CMPcdr((V110)))==Cnil){ |
843 |
goto T569;} |
goto T569;} |
844 |
princ_str("\n goto T",VV[11]); |
princ_str("\n goto T",VV[11]); |
845 |
(void)((*(LnkLI32))(car((V110)))); |
(void)((*(LnkLI32))(CMPcar((V110)))); |
846 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
847 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
848 |
(void)((*(LnkLI32))(car((V110)))); |
(void)((*(LnkLI32))(CMPcar((V110)))); |
849 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
850 |
goto T569; |
goto T569; |
851 |
T569:; |
T569:; |
852 |
bds_bind(VV[14],list(2,VV[21],cadr((V112)))); |
bds_bind(VV[14],list(2,VV[21],CMPcadr((V112)))); |
853 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
(VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1)); |
854 |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
bds_bind(VV[16],make_cons((VV[6]->s.s_dbind),Cnil)); |
855 |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),(VV[17]->s.s_dbind))); |
856 |
if(((V108))==Cnil){ |
if(((V108))==Cnil){ |
857 |
goto T587;} |
goto T587;} |
858 |
{object V128; |
{object V128; |
859 |
object V129= (V113); |
object V129= (V113); |
860 |
if(endp(V129)){ |
if(V129==Cnil){ |
861 |
V127= Cnil; |
V127= Cnil; |
862 |
goto T585;} |
goto T585;} |
863 |
base[5]=V128=MMcons(Cnil,Cnil); |
base[5]=V128=MMcons(Cnil,Cnil); |
864 |
goto T589; |
goto T589; |
865 |
T589:;{object V131; |
T589:;{object V131; |
866 |
V131= symbol_value(VV[19]); |
V131= (VV[19]->s.s_dbind); |
867 |
(V128->c.c_car)= list(3,VV[18],V131,list(2,VV[15],cadr((V129->c.c_car))));} |
(V128->c.c_car)= list(3,VV[18],V131,list(2,VV[15],CMPcadr((V129->c.c_car))));} |
868 |
V129=MMcdr(V129); |
if((V129=MMcdr(V129))==Cnil){ |
|
if(endp(V129)){ |
|
869 |
V127= base[5]; |
V127= base[5]; |
870 |
goto T585;} |
goto T585;} |
871 |
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
874 |
T587:; |
T587:; |
875 |
{object V132; |
{object V132; |
876 |
object V133= (V113); |
object V133= (V113); |
877 |
if(endp(V133)){ |
if(V133==Cnil){ |
878 |
V127= Cnil; |
V127= Cnil; |
879 |
goto T585;} |
goto T585;} |
880 |
base[5]=V132=MMcons(Cnil,Cnil); |
base[5]=V132=MMcons(Cnil,Cnil); |
881 |
goto T591; |
goto T591; |
882 |
T591:; |
T591:; |
883 |
(V132->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V133->c.c_car)); |
(V132->c.c_car)= list(3,VV[18],(VV[19]->s.s_dbind),(V133->c.c_car)); |
884 |
V133=MMcdr(V133); |
if((V133=MMcdr(V133))==Cnil){ |
|
if(endp(V133)){ |
|
885 |
V127= base[5]; |
V127= base[5]; |
886 |
goto T585;} |
goto T585;} |
887 |
V132=MMcdr(V132)=MMcons(Cnil,Cnil); |
V132=MMcdr(V132)=MMcons(Cnil,Cnil); |
889 |
goto T585; |
goto T585; |
890 |
T585:; |
T585:; |
891 |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V107),V127,(V114)))); |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V107),V127,(V114)))); |
892 |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[16]->s.s_dbind)))==Cnil){ |
893 |
bds_unwind1; |
bds_unwind1; |
894 |
bds_unwind1; |
bds_unwind1; |
895 |
bds_unwind1; |
bds_unwind1; |
896 |
goto T579;} |
goto T579;} |
897 |
princ_str("\n goto T",VV[11]); |
princ_str("\n goto T",VV[11]); |
898 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind)))); |
899 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
900 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
901 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind)))); |
902 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
903 |
bds_unwind1; |
bds_unwind1; |
904 |
bds_unwind1; |
bds_unwind1; |
905 |
bds_unwind1; |
bds_unwind1; |
906 |
goto T579; |
goto T579; |
907 |
T579:; |
T579:; |
908 |
if((symbol_value(VV[12]))==Cnil){ |
if(((VV[12]->s.s_dbind))==Cnil){ |
909 |
goto T604;} |
goto T604;} |
910 |
princ_str("\n {object cdr_",VV[11]); |
princ_str("\n {object cdr_",VV[11]); |
911 |
(void)((*(LnkLI32))((V112))); |
(void)((*(LnkLI32))((V112))); |
923 |
(void)((*(LnkLI32))((V112))); |
(void)((*(LnkLI32))((V112))); |
924 |
princ_str(");}}",VV[11]); |
princ_str(");}}",VV[11]); |
925 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
926 |
(void)((*(LnkLI32))(car((V113)))); |
(void)((*(LnkLI32))(CMPcar((V113)))); |
927 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
928 |
(void)((*(LnkLI32))(car((V113)))); |
(void)((*(LnkLI32))(CMPcar((V113)))); |
929 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
930 |
{register object V135; |
{register object V135; |
931 |
object V136; |
object V136; |
932 |
V135= cdr((V113)); |
V135= CMPcdr((V113)); |
933 |
V136= car((V135)); |
V136= CMPcar((V135)); |
934 |
goto T632; |
goto T632; |
935 |
T632:; |
T632:; |
936 |
if(!(endp_prop((V135)))){ |
if(!(((V135))==Cnil)){ |
937 |
goto T633;} |
goto T633;} |
938 |
goto T628; |
goto T628; |
939 |
goto T633; |
goto T633; |
943 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
944 |
(void)((*(LnkLI32))((V136))); |
(void)((*(LnkLI32))((V136))); |
945 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
946 |
V135= cdr((V135)); |
V135= CMPcdr((V135)); |
947 |
V136= car((V135)); |
V136= CMPcar((V135)); |
948 |
goto T632;} |
goto T632;} |
949 |
goto T628; |
goto T628; |
950 |
T628:; |
T628:; |
951 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
952 |
(void)((*(LnkLI32))(car((V113)))); |
(void)((*(LnkLI32))(CMPcar((V113)))); |
953 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
954 |
{register object V137; |
{register object V137; |
955 |
object V138; |
object V138; |
956 |
V137= cdr((V113)); |
V137= CMPcdr((V113)); |
957 |
V138= car((V137)); |
V138= CMPcar((V137)); |
958 |
goto T656; |
goto T656; |
959 |
T656:; |
T656:; |
960 |
if(!(endp_prop((V137)))){ |
if(!(((V137))==Cnil)){ |
961 |
goto T657;} |
goto T657;} |
962 |
goto T652; |
goto T652; |
963 |
goto T657; |
goto T657; |
965 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
966 |
(void)((*(LnkLI32))((V138))); |
(void)((*(LnkLI32))((V138))); |
967 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
968 |
V137= cdr((V137)); |
V137= CMPcdr((V137)); |
969 |
V138= car((V137)); |
V138= CMPcar((V137)); |
970 |
goto T656;} |
goto T656;} |
971 |
goto T652; |
goto T652; |
972 |
T652:; |
T652:; |
982 |
(void)((*(LnkLI32))((V112))); |
(void)((*(LnkLI32))((V112))); |
983 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
984 |
princ_str("\n if((",VV[11]); |
princ_str("\n if((",VV[11]); |
985 |
(void)((*(LnkLI32))(car((V113)))); |
(void)((*(LnkLI32))(CMPcar((V113)))); |
986 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
987 |
(void)((*(LnkLI32))(car((V113)))); |
(void)((*(LnkLI32))(CMPcar((V113)))); |
988 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
989 |
{register object V139; |
{register object V139; |
990 |
object V140; |
object V140; |
991 |
V139= cdr((V113)); |
V139= CMPcdr((V113)); |
992 |
V140= car((V139)); |
V140= CMPcar((V139)); |
993 |
goto T689; |
goto T689; |
994 |
T689:; |
T689:; |
995 |
if(!(endp_prop((V139)))){ |
if(!(((V139))==Cnil)){ |
996 |
goto T690;} |
goto T690;} |
997 |
goto T685; |
goto T685; |
998 |
goto T690; |
goto T690; |
1002 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
1003 |
(void)((*(LnkLI32))((V140))); |
(void)((*(LnkLI32))((V140))); |
1004 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
1005 |
V139= cdr((V139)); |
V139= CMPcdr((V139)); |
1006 |
V140= car((V139)); |
V140= CMPcar((V139)); |
1007 |
goto T689;} |
goto T689;} |
1008 |
goto T685; |
goto T685; |
1009 |
T685:; |
T685:; |
1018 |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V111),VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V111),VV[13]))); |
1019 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
1020 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
|
if(type_of((V110))!=t_cons)FEwrong_type_argument(Scons,(V110)); |
|
1021 |
((V110))->c.c_cdr = Ct; |
((V110))->c.c_cdr = Ct; |
1022 |
princ_str("goto T",VV[11]); |
princ_str("goto T",VV[11]); |
1023 |
(void)((*(LnkLI32))(car((V110)))); |
(void)((*(LnkLI32))(CMPcar((V110)))); |
1024 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
1025 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
1026 |
{object V141 = (*(LnkLI35))(); |
{object V141 = (*(LnkLI35))(); |
1045 |
{register object V148; |
{register object V148; |
1046 |
register object V149; |
register object V149; |
1047 |
V148= (V144); |
V148= (V144); |
1048 |
V149= car((V148)); |
V149= CMPcar((V148)); |
1049 |
goto T728; |
goto T728; |
1050 |
T728:; |
T728:; |
1051 |
if(!(endp_prop((V148)))){ |
if(!(((V148))==Cnil)){ |
1052 |
goto T729;} |
goto T729;} |
1053 |
{object V150 = reverse((V146)); |
{object V150 = reverse((V146)); |
1054 |
VMR11(V150)} |
VMR11(V150)} |
1056 |
T729:; |
T729:; |
1057 |
if(!(type_of((V149))==t_cons)){ |
if(!(type_of((V149))==t_cons)){ |
1058 |
goto T735;} |
goto T735;} |
1059 |
if(!((car((V149)))==(VV[22]))){ |
if(!((CMPcar((V149)))==(VV[22]))){ |
1060 |
goto T735;} |
goto T735;} |
1061 |
if(((*(LnkLI36))(cadr((V149)),(V147)))==Cnil){ |
if(((*(LnkLI36))(CMPcadr((V149)),(V147)))==Cnil){ |
1062 |
goto T735;} |
goto T735;} |
1063 |
{register object V151; |
{register object V151; |
1064 |
V151= list(2,VV[7],(*(LnkLI28))()); |
V151= list(2,VV[7],(*(LnkLI28))()); |
1078 |
V146= make_cons((V153),(V146));} |
V146= make_cons((V153),(V146));} |
1079 |
goto T733; |
goto T733; |
1080 |
T733:; |
T733:; |
1081 |
V148= cdr((V148)); |
V148= CMPcdr((V148)); |
1082 |
V149= car((V148)); |
V149= CMPcar((V148)); |
1083 |
goto T728;}} |
goto T728;}} |
1084 |
base[0]=base[0]; |
base[0]=base[0]; |
1085 |
return Cnil; |
return Cnil; |