8 |
|
|
9 |
register object V2; |
register object V2; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
{object V3; |
{object V3; |
14 |
object V4; |
object V4; |
17 |
if(!(endp_prop((V2)))){ |
if(!(endp_prop((V2)))){ |
18 |
goto T3;} |
goto T3;} |
19 |
(void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0))); |
20 |
goto T3; |
goto T3; |
21 |
T3:; |
T3:; |
22 |
if(!(endp_prop(cdr((V2))))){ |
if(!(endp_prop(cdr((V2))))){ |
23 |
goto T7;} |
goto T7;} |
24 |
{object V5 = (*(LnkLI39))((V2)); |
{object V5 = (*(LnkLI39))((V2)); |
25 |
VMR1(V5)} |
VMR1(V5)} |
26 |
goto T7; |
goto T7; |
27 |
T7:; |
T7:; |
28 |
V4= (*(LnkLI40))(car((V2))); |
V4= (*(LnkLI40))(car((V2))); |
29 |
base[0]= cadr((V4)); |
base[0]= cadr((V4)); |
44 |
register object V9;object V10; |
register object V9;object V10; |
45 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
46 |
bds_check; |
bds_check; |
47 |
goto TTL; |
goto TTL; |
48 |
TTL:; |
TTL:; |
49 |
{register object V11; |
{register object V11; |
50 |
register object V12; |
register object V12; |
60 |
{object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))); |
{object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))); |
61 |
bds_unwind1; |
bds_unwind1; |
62 |
VMR2(V14)} |
VMR2(V14)} |
63 |
goto T19; |
goto T19; |
64 |
T19:; |
T19:; |
65 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
66 |
V12= symbol_value(VV[5]); |
V12= symbol_value(VV[5]); |
75 |
register object V16; |
register object V16; |
76 |
V15= (V10); |
V15= (V10); |
77 |
V16= car((V15)); |
V16= car((V15)); |
78 |
goto T41; |
goto T41; |
79 |
T41:; |
T41:; |
80 |
if(!(endp_prop((V15)))){ |
if(!(endp_prop((V15)))){ |
81 |
goto T42;} |
goto T42;} |
82 |
goto T37; |
goto T37; |
83 |
goto T42; |
goto T42; |
84 |
T42:; |
T42:; |
85 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
86 |
V17= (*(LnkLI47))((V16),(V12)); |
V17= (*(LnkLI47))((V16),(V12)); |
94 |
V15= cdr((V15)); |
V15= cdr((V15)); |
95 |
V16= car((V15)); |
V16= car((V15)); |
96 |
goto T41;} |
goto T41;} |
97 |
goto T37; |
goto T37; |
98 |
T37:; |
T37:; |
99 |
princ_str("\n vs_base=base+",VV[6]); |
princ_str("\n vs_base=base+",VV[6]); |
100 |
(void)((*(LnkLI46))((VV[1]->s.s_dbind))); |
(void)((*(LnkLI46))((VV[1]->s.s_dbind))); |
116 |
|
|
117 |
register object V20; |
register object V20; |
118 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
119 |
goto TTL; |
goto TTL; |
120 |
TTL:; |
TTL:; |
121 |
{object V21; |
{object V21; |
122 |
object V22; |
object V22; |
125 |
if(!(endp_prop((V20)))){ |
if(!(endp_prop((V20)))){ |
126 |
goto T72;} |
goto T72;} |
127 |
(void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0))); |
128 |
goto T72; |
goto T72; |
129 |
T72:; |
T72:; |
130 |
V22= (*(LnkLI49))(car((V20)),(V21)); |
V22= (*(LnkLI49))(car((V20)),(V21)); |
131 |
V20= (*(LnkLI42))(cdr((V20)),(V21)); |
V20= (*(LnkLI42))(cdr((V20)),(V21)); |
141 |
object V26;object V27; |
object V26;object V27; |
142 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
143 |
bds_check; |
bds_check; |
144 |
goto TTL; |
goto TTL; |
145 |
TTL:; |
TTL:; |
146 |
{object V28; |
{object V28; |
147 |
register object V29; |
register object V29; |
168 |
register object V32; |
register object V32; |
169 |
V31= (V27); |
V31= (V27); |
170 |
V32= car((V31)); |
V32= car((V31)); |
171 |
goto T99; |
goto T99; |
172 |
T99:; |
T99:; |
173 |
if(!(endp_prop((V31)))){ |
if(!(endp_prop((V31)))){ |
174 |
goto T100;} |
goto T100;} |
175 |
goto T95; |
goto T95; |
176 |
goto T100; |
goto T100; |
177 |
T100:; |
T100:; |
178 |
bds_bind(VV[2],VV[10]); |
bds_bind(VV[2],VV[10]); |
179 |
V33= (*(LnkLI47))((V32),(V29)); |
V33= (*(LnkLI47))((V32),(V29)); |
181 |
V31= cdr((V31)); |
V31= cdr((V31)); |
182 |
V32= car((V31)); |
V32= car((V31)); |
183 |
goto T99;} |
goto T99;} |
184 |
goto T95; |
goto T95; |
185 |
T95:; |
T95:; |
186 |
princ_str("\n vs_base=V",VV[6]); |
princ_str("\n vs_base=V",VV[6]); |
187 |
(void)((*(LnkLI46))((V28))); |
(void)((*(LnkLI46))((V28))); |
192 |
goto T118;} |
goto T118;} |
193 |
V34= car((V30)); |
V34= car((V30)); |
194 |
goto T116; |
goto T116; |
195 |
goto T118; |
goto T118; |
196 |
T118:; |
T118:; |
197 |
V34= Cnil; |
V34= Cnil; |
198 |
goto T116; |
goto T116; |
199 |
T116:; |
T116:; |
200 |
{object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34)); |
{object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34)); |
201 |
VMR4(V35)}} |
VMR4(V35)}} |
208 |
|
|
209 |
register object V37; |
register object V37; |
210 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
211 |
goto TTL; |
goto TTL; |
212 |
TTL:; |
TTL:; |
213 |
{object V38; |
{object V38; |
214 |
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
227 |
if(!(type_of((V39))!=t_cons)){ |
if(!(type_of((V39))!=t_cons)){ |
228 |
goto T133;} |
goto T133;} |
229 |
goto T131; |
goto T131; |
230 |
goto T133; |
goto T133; |
231 |
T133:; |
T133:; |
232 |
if(type_of((V39))==t_cons){ |
if(type_of((V39))==t_cons){ |
233 |
goto T135;} |
goto T135;} |
234 |
goto T122; |
goto T122; |
235 |
goto T135; |
goto T135; |
236 |
T135:; |
T135:; |
237 |
if((cdr((V39)))==Cnil){ |
if((cdr((V39)))==Cnil){ |
238 |
goto T137;} |
goto T137;} |
239 |
goto T122; |
goto T122; |
240 |
goto T137; |
goto T137; |
241 |
T137:; |
T137:; |
242 |
if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){ |
if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){ |
243 |
goto T122;}} |
goto T122;}} |
244 |
goto T131; |
goto T131; |
245 |
T131:; |
T131:; |
246 |
goto T121; |
goto T121; |
247 |
T121:; |
T121:; |
248 |
{object V40 = (*(LnkLI52))(car((V37))); |
{object V40 = (*(LnkLI52))(car((V37))); |
249 |
VMR5(V40)} |
VMR5(V40)} |
250 |
goto T122; |
goto T122; |
251 |
T122:; |
T122:; |
252 |
V37= (*(LnkLI42))((V37),(V38)); |
V37= (*(LnkLI42))((V37),(V38)); |
253 |
{object V41 = list(3,VV[13],(V38),(V37)); |
{object V41 = list(3,VV[13],(V38),(V37)); |
262 |
register object V43; |
register object V43; |
263 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
264 |
bds_check; |
bds_check; |
265 |
goto TTL; |
goto TTL; |
266 |
TTL:; |
TTL:; |
267 |
{object V44; |
{object V44; |
268 |
V44= symbol_value(VV[1]); |
V44= symbol_value(VV[1]); |
276 |
if(!((VV[16])==(car(symbol_value(VV[15]))))){ |
if(!((VV[16])==(car(symbol_value(VV[15]))))){ |
277 |
goto T142;} |
goto T142;} |
278 |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15]))))); |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15]))))); |
279 |
goto T142; |
goto T142; |
280 |
T142:; |
T142:; |
281 |
if(((V43))!=Cnil){ |
if(((V43))!=Cnil){ |
282 |
goto T153;} |
goto T153;} |
286 |
setq(VV[7],Ct); |
setq(VV[7],Ct); |
287 |
princ_str("\n vs_base[0]=Cnil;",VV[6]); |
princ_str("\n vs_base[0]=Cnil;",VV[6]); |
288 |
goto T151; |
goto T151; |
289 |
goto T153; |
goto T153; |
290 |
T153:; |
T153:; |
291 |
{register object V45; |
{register object V45; |
292 |
register object V46; |
register object V46; |
293 |
V45= (V43); |
V45= (V43); |
294 |
V46= car((V45)); |
V46= car((V45)); |
295 |
goto T166; |
goto T166; |
296 |
T166:; |
T166:; |
297 |
if(!(endp_prop((V45)))){ |
if(!(endp_prop((V45)))){ |
298 |
goto T167;} |
goto T167;} |
299 |
goto T162; |
goto T162; |
300 |
goto T167; |
goto T167; |
301 |
T167:; |
T167:; |
302 |
base[2]= list(2,VV[18],(*(LnkLI54))()); |
base[2]= list(2,VV[18],(*(LnkLI54))()); |
303 |
bds_bind(VV[2],base[2]); |
bds_bind(VV[2],base[2]); |
306 |
V45= cdr((V45)); |
V45= cdr((V45)); |
307 |
V46= car((V45)); |
V46= car((V45)); |
308 |
goto T166;} |
goto T166;} |
309 |
goto T162; |
goto T162; |
310 |
T162:; |
T162:; |
311 |
princ_str("\n vs_top=(vs_base=base+",VV[6]); |
princ_str("\n vs_top=(vs_base=base+",VV[6]); |
312 |
(void)((*(LnkLI46))((V44))); |
(void)((*(LnkLI46))((V44))); |
315 |
(void)((*(LnkLI46))(/* INLINE-ARGS */V48)); |
(void)((*(LnkLI46))(/* INLINE-ARGS */V48)); |
316 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
317 |
setq(VV[7],Ct); |
setq(VV[7],Ct); |
318 |
goto T151; |
goto T151; |
319 |
T151:; |
T151:; |
320 |
V49 = make_fixnum((long)length((V43))); |
V49 = make_fixnum((long)length((V43))); |
321 |
V50= make_cons(VV[13],V49); |
V50= make_cons(VV[13],V49); |
331 |
|
|
332 |
object V53; |
object V53; |
333 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
334 |
goto TTL; |
goto TTL; |
335 |
TTL:; |
TTL:; |
336 |
{object V54; |
{object V54; |
337 |
register object V55; |
register object V55; |
341 |
goto T188;} |
goto T188;} |
342 |
if(!(endp_prop(cdr((V53))))){ |
if(!(endp_prop(cdr((V53))))){ |
343 |
goto T187;} |
goto T187;} |
344 |
goto T188; |
goto T188; |
345 |
T188:; |
T188:; |
346 |
(void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0))); |
347 |
goto T187; |
goto T187; |
348 |
T187:; |
T187:; |
349 |
if(endp_prop(cddr((V53)))){ |
if(endp_prop(cddr((V53)))){ |
350 |
goto T192;} |
goto T192;} |
351 |
V56 = make_fixnum((long)length((V53))); |
V56 = make_fixnum((long)length((V53))); |
352 |
(void)((*(LnkLI55))(VV[19],small_fixnum(2),V56)); |
(void)((*(LnkLI55))(VV[19],small_fixnum(2),V56)); |
353 |
goto T192; |
goto T192; |
354 |
T192:; |
T192:; |
355 |
{register object V57; |
{register object V57; |
356 |
register object V58; |
register object V58; |
357 |
V57= car((V53)); |
V57= car((V53)); |
358 |
V58= car((V57)); |
V58= car((V57)); |
359 |
goto T199; |
goto T199; |
360 |
T199:; |
T199:; |
361 |
if(!(endp_prop((V57)))){ |
if(!(endp_prop((V57)))){ |
362 |
goto T200;} |
goto T200;} |
363 |
goto T195; |
goto T195; |
364 |
goto T200; |
goto T200; |
365 |
T200:; |
T200:; |
366 |
if(type_of((V58))==t_symbol){ |
if(type_of((V58))==t_symbol){ |
367 |
goto T204;} |
goto T204;} |
368 |
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58)))); |
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58)))); |
369 |
goto T204; |
goto T204; |
370 |
T204:; |
T204:; |
371 |
base[3]= (V58); |
base[3]= (V58); |
372 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
375 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
376 |
goto T207;} |
goto T207;} |
377 |
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58)))); |
(void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58)))); |
378 |
goto T207; |
goto T207; |
379 |
T207:; |
T207:; |
380 |
V58= (*(LnkLI57))((V58)); |
V58= (*(LnkLI57))((V58)); |
381 |
{register object V59; |
{register object V59; |
392 |
V57= cdr((V57)); |
V57= cdr((V57)); |
393 |
V58= car((V57)); |
V58= car((V57)); |
394 |
goto T199;} |
goto T199;} |
395 |
goto T195; |
goto T195; |
396 |
T195:; |
T195:; |
397 |
V64= reverse((V55)); |
V64= reverse((V55)); |
398 |
{object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54))); |
{object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54))); |
406 |
|
|
407 |
object V68;object V69; |
object V68;object V69; |
408 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
409 |
goto TTL; |
goto TTL; |
410 |
TTL:; |
TTL:; |
411 |
if((cdr((V68)))!=Cnil){ |
if((cdr((V68)))!=Cnil){ |
412 |
goto T225;} |
goto T225;} |
413 |
{object V70 = Cnil; |
{object V70 = Cnil; |
414 |
VMR8(V70)} |
VMR8(V70)} |
415 |
goto T225; |
goto T225; |
416 |
T225:; |
T225:; |
417 |
if((car((V69)))==(VV[23])){ |
if((car((V69)))==(VV[23])){ |
418 |
goto T227;} |
goto T227;} |
419 |
{object V71 = Cnil; |
{object V71 = Cnil; |
420 |
VMR8(V71)} |
VMR8(V71)} |
421 |
goto T227; |
goto T227; |
422 |
T227:; |
T227:; |
423 |
{object V72; |
{object V72; |
424 |
V72= caddr((V69)); |
V72= caddr((V69)); |
431 |
if(type_of((V73))==t_cons){ |
if(type_of((V73))==t_cons){ |
432 |
goto T236;} |
goto T236;} |
433 |
goto T231; |
goto T231; |
434 |
goto T236; |
goto T236; |
435 |
T236:; |
T236:; |
436 |
if(((equal((V73),VV[25])?Ct:Cnil))==Cnil){ |
if(((equal((V73),VV[25])?Ct:Cnil))==Cnil){ |
437 |
goto T238;} |
goto T238;} |
438 |
goto T231; |
goto T231; |
439 |
goto T238; |
goto T238; |
440 |
T238:; |
T238:; |
441 |
if(!((cdr((V73)))==Cnil)){ |
if(!((cdr((V73)))==Cnil)){ |
442 |
goto T231;}} |
goto T231;}} |
443 |
{object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72))); |
{object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72))); |
444 |
VMR8(V74)} |
VMR8(V74)} |
445 |
goto T231; |
goto T231; |
446 |
T231:; |
T231:; |
447 |
{object V75 = Cnil; |
{object V75 = Cnil; |
448 |
VMR8(V75)}} |
VMR8(V75)}} |
455 |
register object V78;object V79; |
register object V78;object V79; |
456 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
457 |
bds_check; |
bds_check; |
458 |
goto TTL; |
goto TTL; |
459 |
TTL:; |
TTL:; |
460 |
{object V80; |
{object V80; |
461 |
V80= Cnil; |
V80= Cnil; |
469 |
if(symbol_value(VV[27])==Cnil){ |
if(symbol_value(VV[27])==Cnil){ |
470 |
goto T245;} |
goto T245;} |
471 |
(void)((*(LnkLI59))(Cnil,car((V80)))); |
(void)((*(LnkLI59))(Cnil,car((V80)))); |
472 |
goto T245; |
goto T245; |
473 |
T245:; |
T245:; |
474 |
{register object V81; |
{register object V81; |
475 |
V81= (V78); |
V81= (V78); |
476 |
goto T248; |
goto T248; |
477 |
T248:; |
T248:; |
478 |
if(!(endp_prop((V81)))){ |
if(!(endp_prop((V81)))){ |
479 |
goto T249;} |
goto T249;} |
480 |
goto T246; |
goto T246; |
481 |
goto T249; |
goto T249; |
482 |
T249:; |
T249:; |
483 |
{register object V82; |
{register object V82; |
484 |
V82= car((V81)); |
V82= car((V81)); |
487 |
if(endp_prop(cdr((V81)))){ |
if(endp_prop(cdr((V81)))){ |
488 |
goto T258;} |
goto T258;} |
489 |
princ_str("\n vs_base++;",VV[6]); |
princ_str("\n vs_base++;",VV[6]); |
490 |
goto T258; |
goto T258; |
491 |
T258:; |
T258:; |
492 |
princ_str("\n }else{",VV[6]); |
princ_str("\n }else{",VV[6]); |
493 |
(void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82)))); |
(void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82)))); |
494 |
princ_char(125,VV[6]);} |
princ_char(125,VV[6]);} |
495 |
V81= cdr((V81)); |
V81= cdr((V81)); |
496 |
goto T248;} |
goto T248;} |
497 |
goto T246; |
goto T246; |
498 |
T246:; |
T246:; |
499 |
if(((V78))!=Cnil){ |
if(((V78))!=Cnil){ |
500 |
goto T270;} |
goto T270;} |
501 |
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
502 |
{object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
{object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
503 |
VMR9(V83)} |
VMR9(V83)} |
504 |
goto T270; |
goto T270; |
505 |
T270:; |
T270:; |
506 |
if((symbol_value(VV[28]))==(VV[29])){ |
if((symbol_value(VV[28]))==(VV[29])){ |
507 |
goto T274;} |
goto T274;} |
508 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
509 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
510 |
goto T274; |
goto T274; |
511 |
T274:; |
T274:; |
512 |
V84= make_cons(VV[30],car((V78))); |
V84= make_cons(VV[30],car((V78))); |
513 |
{object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84)); |
{object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84)); |
522 |
object V87; |
object V87; |
523 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
524 |
bds_check; |
bds_check; |
525 |
goto TTL; |
goto TTL; |
526 |
TTL:; |
TTL:; |
527 |
{object V88; |
{object V88; |
528 |
register object V89; |
register object V89; |
547 |
goto T288;} |
goto T288;} |
548 |
if(!(endp_prop(cdr((V87))))){ |
if(!(endp_prop(cdr((V87))))){ |
549 |
goto T287;} |
goto T287;} |
550 |
goto T288; |
goto T288; |
551 |
T288:; |
T288:; |
552 |
V97 = make_fixnum((long)length((V87))); |
V97 = make_fixnum((long)length((V87))); |
553 |
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V97)); |
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V97)); |
554 |
goto T287; |
goto T287; |
555 |
T287:; |
T287:; |
556 |
base[2]= cddr((V87)); |
base[2]= cddr((V87)); |
557 |
base[3]= Cnil; |
base[3]= Cnil; |
587 |
register object V99; |
register object V99; |
588 |
V98= car((V87)); |
V98= car((V87)); |
589 |
V99= car((V98)); |
V99= car((V98)); |
590 |
goto T301; |
goto T301; |
591 |
T301:; |
T301:; |
592 |
if(!(endp_prop((V98)))){ |
if(!(endp_prop((V98)))){ |
593 |
goto T302;} |
goto T302;} |
594 |
goto T297; |
goto T297; |
595 |
goto T302; |
goto T302; |
596 |
T302:; |
T302:; |
597 |
{object V100; |
{object V100; |
598 |
V100= (*(LnkLI64))((V99),(V92),(V93),(V94)); |
V100= (*(LnkLI64))((V99),(V92),(V93),(V94)); |
601 |
V98= cdr((V98)); |
V98= cdr((V98)); |
602 |
V99= car((V98)); |
V99= car((V98)); |
603 |
goto T301;} |
goto T301;} |
604 |
goto T297; |
goto T297; |
605 |
T297:; |
T297:; |
606 |
V91= (*(LnkLI49))(cadr((V87)),(V88)); |
V91= (*(LnkLI49))(cadr((V87)),(V88)); |
607 |
{register object V103; |
{register object V103; |
608 |
object V104; |
object V104; |
609 |
V103= reverse((V89)); |
V103= reverse((V89)); |
610 |
V104= car((V103)); |
V104= car((V103)); |
611 |
goto T322; |
goto T322; |
612 |
T322:; |
T322:; |
613 |
if(!(endp_prop((V103)))){ |
if(!(endp_prop((V103)))){ |
614 |
goto T323;} |
goto T323;} |
615 |
goto T318; |
goto T318; |
616 |
goto T323; |
goto T323; |
617 |
T323:; |
T323:; |
618 |
(VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind)); |
(VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind)); |
619 |
V103= cdr((V103)); |
V103= cdr((V103)); |
620 |
V104= car((V103)); |
V104= car((V103)); |
621 |
goto T322;} |
goto T322;} |
622 |
goto T318; |
goto T318; |
623 |
T318:; |
T318:; |
624 |
(void)((*(LnkLI65))((V90),(V94),(V93))); |
(void)((*(LnkLI65))((V90),(V94),(V93))); |
625 |
V95= (*(LnkLI66))((V96),(V95)); |
V95= (*(LnkLI66))((V96),(V95)); |
630 |
object V108; |
object V108; |
631 |
V107= (V89); |
V107= (V89); |
632 |
V108= car((V107)); |
V108= car((V107)); |
633 |
goto T343; |
goto T343; |
634 |
T343:; |
T343:; |
635 |
if(!(endp_prop((V107)))){ |
if(!(endp_prop((V107)))){ |
636 |
goto T344;} |
goto T344;} |
637 |
goto T339; |
goto T339; |
638 |
goto T344; |
goto T344; |
639 |
T344:; |
T344:; |
640 |
(void)((*(LnkLI68))((V108))); |
(void)((*(LnkLI68))((V108))); |
641 |
V107= cdr((V107)); |
V107= cdr((V107)); |
642 |
V108= car((V107)); |
V108= car((V107)); |
643 |
goto T343;} |
goto T343;} |
644 |
goto T339; |
goto T339; |
645 |
T339:; |
T339:; |
646 |
{object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95)); |
{object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95)); |
647 |
bds_unwind1; |
bds_unwind1; |
656 |
object V113;object V114;object V115; |
object V113;object V114;object V115; |
657 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
658 |
bds_check; |
bds_check; |
659 |
goto TTL; |
goto TTL; |
660 |
TTL:; |
TTL:; |
661 |
{object V116; |
{object V116; |
662 |
register object V117; |
register object V117; |
673 |
register object V120; |
register object V120; |
674 |
V119= (V113); |
V119= (V113); |
675 |
V120= car((V119)); |
V120= car((V119)); |
676 |
goto T362; |
goto T362; |
677 |
T362:; |
T362:; |
678 |
if(!(endp_prop((V119)))){ |
if(!(endp_prop((V119)))){ |
679 |
goto T363;} |
goto T363;} |
680 |
goto T358; |
goto T358; |
681 |
goto T363; |
goto T363; |
682 |
T363:; |
T363:; |
683 |
{object V121; |
{object V121; |
684 |
V121= (*(LnkLI69))((V120)); |
V121= (*(LnkLI69))((V120)); |
694 |
goto T377;} |
goto T377;} |
695 |
princ_char(123,VV[6]); |
princ_char(123,VV[6]); |
696 |
V116= Ct; |
V116= Ct; |
697 |
goto T377; |
goto T377; |
698 |
T377:; |
T377:; |
699 |
base[5]= (V120); |
base[5]= (V120); |
700 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
701 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
702 |
vs_top=sup; |
vs_top=sup; |
703 |
goto T367;} |
goto T367;} |
704 |
goto T370; |
goto T370; |
705 |
T370:; |
T370:; |
706 |
V123= (*(LnkLI54))(); |
V123= (*(LnkLI54))(); |
707 |
(void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));} |
(void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));} |
708 |
goto T367; |
goto T367; |
709 |
T367:; |
T367:; |
710 |
V119= cdr((V119)); |
V119= cdr((V119)); |
711 |
V120= car((V119)); |
V120= car((V119)); |
712 |
goto T362;} |
goto T362;} |
713 |
goto T358; |
goto T358; |
714 |
T358:; |
T358:; |
715 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
716 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
721 |
if(symbol_value(VV[27])==Cnil){ |
if(symbol_value(VV[27])==Cnil){ |
722 |
goto T392;} |
goto T392;} |
723 |
(void)((*(LnkLI59))(Cnil,car((V118)))); |
(void)((*(LnkLI59))(Cnil,car((V118)))); |
724 |
goto T392; |
goto T392; |
725 |
T392:; |
T392:; |
726 |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
727 |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
728 |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
729 |
{register object V124; |
{register object V124; |
730 |
V124= (V113); |
V124= (V113); |
731 |
goto T395; |
goto T395; |
732 |
T395:; |
T395:; |
733 |
if(!(endp_prop((V124)))){ |
if(!(endp_prop((V124)))){ |
734 |
goto T396;} |
goto T396;} |
736 |
bds_unwind1; |
bds_unwind1; |
737 |
bds_unwind1; |
bds_unwind1; |
738 |
goto T393; |
goto T393; |
739 |
goto T396; |
goto T396; |
740 |
T396:; |
T396:; |
741 |
{object V125; |
{object V125; |
742 |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
755 |
if(endp_prop(cdr((V124)))){ |
if(endp_prop(cdr((V124)))){ |
756 |
goto T415;} |
goto T415;} |
757 |
princ_str("\n vs_base++;",VV[6]); |
princ_str("\n vs_base++;",VV[6]); |
758 |
goto T415; |
goto T415; |
759 |
T415:; |
T415:; |
760 |
V124= cdr((V124)); |
V124= cdr((V124)); |
761 |
goto T395;} |
goto T395;} |
762 |
goto T393; |
goto T393; |
763 |
T393:; |
T393:; |
764 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
765 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
777 |
object V128; |
object V128; |
778 |
V127= (V113); |
V127= (V113); |
779 |
V128= car((V127)); |
V128= car((V127)); |
780 |
goto T439; |
goto T439; |
781 |
T439:; |
T439:; |
782 |
if(!(endp_prop((V127)))){ |
if(!(endp_prop((V127)))){ |
783 |
goto T440;} |
goto T440;} |
784 |
goto T435; |
goto T435; |
785 |
goto T440; |
goto T440; |
786 |
T440:; |
T440:; |
787 |
if((cdr(car((V117))))==Cnil){ |
if((cdr(car((V117))))==Cnil){ |
788 |
goto T444;} |
goto T444;} |
789 |
princ_str("\ngoto T",VV[6]); |
princ_str("\n goto T",VV[6]); |
790 |
(void)((*(LnkLI46))(car(car((V117))))); |
(void)((*(LnkLI46))(car(car((V117))))); |
791 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
792 |
princ_str("\nT",VV[6]); |
princ_str("\nT",VV[6]); |
793 |
(void)((*(LnkLI46))(car(car((V117))))); |
(void)((*(LnkLI46))(car(car((V117))))); |
794 |
princ_str(":;",VV[6]); |
princ_str(":;",VV[6]); |
795 |
goto T444; |
goto T444; |
796 |
T444:; |
T444:; |
797 |
{object V129; |
{object V129; |
798 |
V129= car((V117)); |
V129= car((V117)); |
801 |
V127= cdr((V127)); |
V127= cdr((V127)); |
802 |
V128= car((V127)); |
V128= car((V127)); |
803 |
goto T439;} |
goto T439;} |
804 |
goto T435; |
goto T435; |
805 |
T435:; |
T435:; |
806 |
if((cdr((V126)))==Cnil){ |
if((cdr((V126)))==Cnil){ |
807 |
goto T424;} |
goto T424;} |
808 |
princ_str("\ngoto T",VV[6]); |
princ_str("\n goto T",VV[6]); |
809 |
(void)((*(LnkLI46))(car((V126)))); |
(void)((*(LnkLI46))(car((V126)))); |
810 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
811 |
princ_str("\nT",VV[6]); |
princ_str("\nT",VV[6]); |
812 |
(void)((*(LnkLI46))(car((V126)))); |
(void)((*(LnkLI46))(car((V126)))); |
813 |
princ_str(":;",VV[6]);} |
princ_str(":;",VV[6]);} |
814 |
goto T424; |
goto T424; |
815 |
T424:; |
T424:; |
816 |
base[4]= (V115); |
base[4]= (V115); |
817 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
826 |
bds_unwind1; |
bds_unwind1; |
827 |
bds_unwind1; |
bds_unwind1; |
828 |
VMR11(V130)} |
VMR11(V130)} |
829 |
goto T476; |
goto T476; |
830 |
T476:; |
T476:; |
831 |
{object V131 = Cnil; |
{object V131 = Cnil; |
832 |
bds_unwind1; |
bds_unwind1; |