8 |
|
|
9 |
register object V3;object V4; |
register object V3;object V4; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
V3= (*(LnkLI123))((V3)); |
V3= (*(LnkLI123))((V3)); |
14 |
(void)((*(LnkLI124))((V4),cadr((V3)))); |
(void)((*(LnkLI124))((V4),cadr((V3)))); |
22 |
|
|
23 |
VOL object V7; |
VOL object V7; |
24 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
25 |
goto TTL; |
goto TTL; |
26 |
TTL:; |
TTL:; |
27 |
frs_push(FRS_CATCH,VV[0]); |
frs_push(FRS_CATCH,VV[0]); |
28 |
if(nlj_active) |
if(nlj_active) |
39 |
frs_pop(); |
frs_pop(); |
40 |
V7= V8; |
V7= V8; |
41 |
goto T5; |
goto T5; |
42 |
goto T11; |
goto T11; |
43 |
T11:; |
T11:; |
44 |
if(!(((V7))==(Ct))){ |
if(!(((V7))==(Ct))){ |
45 |
goto T14;} |
goto T14;} |
47 |
frs_pop(); |
frs_pop(); |
48 |
V7= V9; |
V7= V9; |
49 |
goto T5; |
goto T5; |
50 |
goto T14; |
goto T14; |
51 |
T14:; |
T14:; |
52 |
if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){ |
if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){ |
53 |
goto T17;} |
goto T17;} |
57 |
frs_pop(); |
frs_pop(); |
58 |
V7= V12; |
V7= V12; |
59 |
goto T5; |
goto T5; |
60 |
goto T17; |
goto T17; |
61 |
T17:; |
T17:; |
62 |
base[0]= (V7); |
base[0]= (V7); |
63 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
76 |
frs_pop(); |
frs_pop(); |
77 |
V7= V14; |
V7= V14; |
78 |
goto T5; |
goto T5; |
79 |
goto T25; |
goto T25; |
80 |
T25:;} |
T25:;} |
81 |
V15= (*(LnkLI128))((V13)); |
V15= (*(LnkLI128))((V13)); |
82 |
V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15)); |
V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15)); |
84 |
frs_pop(); |
frs_pop(); |
85 |
V7= V17; |
V7= V17; |
86 |
goto T5;} |
goto T5;} |
87 |
goto T20; |
goto T20; |
88 |
T20:; |
T20:; |
89 |
V18= (*(LnkLI132))((V7)); |
V18= (*(LnkLI132))((V7)); |
90 |
frs_pop(); |
frs_pop(); |
91 |
V7= V18; |
V7= V18; |
92 |
goto T5; |
goto T5; |
93 |
goto T8; |
goto T8; |
94 |
T8:; |
T8:; |
95 |
if(!(type_of((V7))==t_cons)){ |
if(!(type_of((V7))==t_cons)){ |
96 |
goto T28;} |
goto T28;} |
106 |
frs_pop(); |
frs_pop(); |
107 |
V7= vs_base[0]; |
V7= vs_base[0]; |
108 |
goto T5; |
goto T5; |
109 |
goto T32; |
goto T32; |
110 |
T32:; |
T32:; |
111 |
if(!(type_of((V19))==t_cons)){ |
if(!(type_of((V19))==t_cons)){ |
112 |
goto T37;} |
goto T37;} |
116 |
frs_pop(); |
frs_pop(); |
117 |
V7= V20; |
V7= V20; |
118 |
goto T5; |
goto T5; |
119 |
goto T37; |
goto T37; |
120 |
T37:; |
T37:; |
121 |
if(!(type_of((V19))==t_cons)){ |
if(!(type_of((V19))==t_cons)){ |
122 |
goto T42;} |
goto T42;} |
126 |
frs_pop(); |
frs_pop(); |
127 |
V7= V21; |
V7= V21; |
128 |
goto T5; |
goto T5; |
129 |
goto T42; |
goto T42; |
130 |
T42:; |
T42:; |
131 |
V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19))); |
V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19))); |
132 |
frs_pop(); |
frs_pop(); |
133 |
V7= V22; |
V7= V22; |
134 |
goto T5;} |
goto T5;} |
135 |
goto T28; |
goto T28; |
136 |
T28:; |
T28:; |
137 |
V23= (*(LnkLI130))((V7),Ct); |
V23= (*(LnkLI130))((V7),Ct); |
138 |
frs_pop(); |
frs_pop(); |
139 |
V7= V23;} |
V7= V23;} |
140 |
goto T5; |
goto T5; |
141 |
T5:; |
T5:; |
142 |
if(!(((V7))==(VV[8]))){ |
if(!(((V7))==(VV[8]))){ |
143 |
goto T47;} |
goto T47;} |
144 |
{object V24 = (*(LnkLI125))(); |
{object V24 = (*(LnkLI125))(); |
145 |
VMR2(V24)} |
VMR2(V24)} |
146 |
goto T47; |
goto T47; |
147 |
T47:; |
T47:; |
148 |
{object V25 = (V7); |
{object V25 = (V7); |
149 |
VMR2(V25)} |
VMR2(V25)} |
156 |
|
|
157 |
object V27; |
object V27; |
158 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
159 |
goto TTL; |
goto TTL; |
160 |
TTL:; |
TTL:; |
161 |
V28= make_cons(VV[5],(V27)); |
V28= make_cons(VV[5],(V27)); |
162 |
{object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct); |
{object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct); |
170 |
object V31; |
object V31; |
171 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
172 |
bds_check; |
bds_check; |
173 |
goto TTL; |
goto TTL; |
174 |
TTL:; |
TTL:; |
175 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
176 |
base[1]= make_cons(VV[10],(V31)); |
base[1]= make_cons(VV[10],(V31)); |
191 |
static object LI5() |
static object LI5() |
192 |
|
|
193 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
194 |
goto TTL; |
goto TTL; |
195 |
TTL:; |
TTL:; |
196 |
{object V34 = symbol_value(VV[11]); |
{object V34 = symbol_value(VV[11]); |
197 |
VMR5(V34)} |
VMR5(V34)} |
202 |
static object LI6() |
static object LI6() |
203 |
|
|
204 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
205 |
goto TTL; |
goto TTL; |
206 |
TTL:; |
TTL:; |
207 |
{object V35 = symbol_value(VV[12]); |
{object V35 = symbol_value(VV[12]); |
208 |
VMR6(V35)} |
VMR6(V35)} |
218 |
check_arg(1); |
check_arg(1); |
219 |
V36=(base[0]); |
V36=(base[0]); |
220 |
vs_top=sup; |
vs_top=sup; |
221 |
goto TTL; |
goto TTL; |
222 |
TTL:; |
TTL:; |
223 |
{register long V37; |
{register long V37; |
224 |
V37= 0; |
V37= 0; |
226 |
register object V39; |
register object V39; |
227 |
V38= VV[13]; |
V38= VV[13]; |
228 |
V39= car((V38)); |
V39= car((V38)); |
229 |
goto T58; |
goto T58; |
230 |
T58:; |
T58:; |
231 |
if(!(endp_prop((V38)))){ |
if(!(endp_prop((V38)))){ |
232 |
goto T59;} |
goto T59;} |
233 |
goto T54; |
goto T54; |
234 |
goto T59; |
goto T59; |
235 |
T59:; |
T59:; |
236 |
{register object x= (V36),V40= (V39); |
{register object x= (V36),V40= (V39); |
237 |
while(!endp(V40)) |
while(!endp(V40)) |
239 |
goto T65; |
goto T65; |
240 |
}else V40=V40->c.c_cdr; |
}else V40=V40->c.c_cdr; |
241 |
goto T63;} |
goto T63;} |
242 |
goto T65; |
goto T65; |
243 |
T65:; |
T65:; |
244 |
base[2]= make_fixnum(V37); |
base[2]= make_fixnum(V37); |
245 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
246 |
return; |
return; |
247 |
goto T63; |
goto T63; |
248 |
T63:; |
T63:; |
249 |
V37= (long)(V37)+(1); |
V37= (long)(V37)+(1); |
250 |
V38= cdr((V38)); |
V38= cdr((V38)); |
251 |
V39= car((V38)); |
V39= car((V38)); |
252 |
goto T58;} |
goto T58;} |
253 |
goto T54; |
goto T54; |
254 |
T54:; |
T54:; |
255 |
base[1]= VV[14]; |
base[1]= VV[14]; |
256 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
293 |
check_arg(1); |
check_arg(1); |
294 |
V43=(base[0]); |
V43=(base[0]); |
295 |
vs_top=sup; |
vs_top=sup; |
296 |
goto TTL; |
goto TTL; |
297 |
TTL:; |
TTL:; |
298 |
{register object V44; |
{register object V44; |
299 |
V44= cddr((V43)); |
V44= cddr((V43)); |
302 |
if((symbol_value(VV[16]))==Cnil){ |
if((symbol_value(VV[16]))==Cnil){ |
303 |
goto T80;} |
goto T80;} |
304 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43)))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43)))); |
305 |
goto T80; |
goto T80; |
306 |
T80:; |
T80:; |
307 |
{object V46; |
{object V46; |
308 |
if((car((V44)))==Cnil){ |
if((car((V44)))==Cnil){ |
309 |
goto T87;} |
goto T87;} |
310 |
base[2]= small_fixnum(2); |
base[2]= small_fixnum(2); |
311 |
goto T85; |
goto T85; |
312 |
goto T87; |
goto T87; |
313 |
T87:; |
T87:; |
314 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
315 |
goto T85; |
goto T85; |
316 |
T85:; |
T85:; |
317 |
if((cadr((V44)))==Cnil){ |
if((cadr((V44)))==Cnil){ |
318 |
goto T91;} |
goto T91;} |
319 |
base[3]= small_fixnum(1); |
base[3]= small_fixnum(1); |
320 |
goto T89; |
goto T89; |
321 |
goto T91; |
goto T91; |
322 |
T91:; |
T91:; |
323 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
324 |
goto T89; |
goto T89; |
325 |
T89:; |
T89:; |
326 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
327 |
Llogior(); |
Llogior(); |
331 |
if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43)); |
if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43)); |
332 |
(cdr(V43))->c.c_cdr = (V46); |
(cdr(V43))->c.c_cdr = (V46); |
333 |
(void)(cdr(V43));} |
(void)(cdr(V43));} |
334 |
goto T77; |
goto T77; |
335 |
T77:; |
T77:; |
336 |
base[1]= (V43); |
base[1]= (V43); |
337 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
350 |
V48=(base[0]); |
V48=(base[0]); |
351 |
V49=(base[1]); |
V49=(base[1]); |
352 |
vs_top=sup; |
vs_top=sup; |
353 |
goto TTL; |
goto TTL; |
354 |
TTL:; |
TTL:; |
355 |
{object V50; |
{object V50; |
356 |
V50= Cnil; |
V50= Cnil; |
365 |
object V52; |
object V52; |
366 |
V51= VV[20]; |
V51= VV[20]; |
367 |
V52= car((V51)); |
V52= car((V51)); |
368 |
goto T106; |
goto T106; |
369 |
T106:; |
T106:; |
370 |
if(!(endp_prop((V51)))){ |
if(!(endp_prop((V51)))){ |
371 |
goto T107;} |
goto T107;} |
372 |
base[3]= Cnil; |
base[3]= Cnil; |
373 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
374 |
return; |
return; |
375 |
goto T107; |
goto T107; |
376 |
T107:; |
T107:; |
377 |
{register object V53; |
{register object V53; |
378 |
register object V54; |
register object V54; |
379 |
V53= get((V48),(V52),Cnil); |
V53= get((V48),(V52),Cnil); |
380 |
V54= car((V53)); |
V54= car((V53)); |
381 |
goto T115; |
goto T115; |
382 |
T115:; |
T115:; |
383 |
if(!(endp_prop((V53)))){ |
if(!(endp_prop((V53)))){ |
384 |
goto T116;} |
goto T116;} |
385 |
goto T111; |
goto T111; |
386 |
goto T116; |
goto T116; |
387 |
T116:; |
T116:; |
388 |
base[5]= (V54); |
base[5]= (V54); |
389 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
402 |
register object V56; |
register object V56; |
403 |
V56= car((V54)); |
V56= car((V54)); |
404 |
V55= (V49); |
V55= (V49); |
405 |
goto T133; |
goto T133; |
406 |
T133:; |
T133:; |
407 |
if(((V55))!=Cnil){ |
if(((V55))!=Cnil){ |
408 |
goto T134;} |
goto T134;} |
409 |
goto T130; |
goto T130; |
410 |
goto T134; |
goto T134; |
411 |
T134:; |
T134:; |
412 |
if((car((V55)))==(car((V56)))){ |
if((car((V55)))==(car((V56)))){ |
413 |
goto T138;} |
goto T138;} |
414 |
if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){ |
if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){ |
415 |
goto T138;} |
goto T138;} |
416 |
goto T122; |
goto T122; |
417 |
goto T138; |
goto T138; |
418 |
T138:; |
T138:; |
419 |
V55= cdr((V55)); |
V55= cdr((V55)); |
420 |
V56= cdr((V56)); |
V56= cdr((V56)); |
421 |
goto T133;} |
goto T133;} |
422 |
goto T130; |
goto T130; |
423 |
T130:; |
T130:; |
424 |
base[5]= cadr((V54)); |
base[5]= cadr((V54)); |
425 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
426 |
return; |
return; |
427 |
goto T122; |
goto T122; |
428 |
T122:; |
T122:; |
429 |
V53= cdr((V53)); |
V53= cdr((V53)); |
430 |
V54= car((V53)); |
V54= car((V53)); |
431 |
goto T115;} |
goto T115;} |
432 |
goto T111; |
goto T111; |
433 |
T111:; |
T111:; |
434 |
V51= cdr((V51)); |
V51= cdr((V51)); |
435 |
V52= car((V51)); |
V52= car((V51)); |
436 |
goto T106;} |
goto T106;} |
437 |
goto T96; |
goto T96; |
438 |
T96:; |
T96:; |
439 |
base[2]= Cnil; |
base[2]= Cnil; |
440 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
456 |
register object V59; |
register object V59; |
457 |
V58= base[2]; |
V58= base[2]; |
458 |
V59= car((V58)); |
V59= car((V58)); |
459 |
goto T162; |
goto T162; |
460 |
T162:; |
T162:; |
461 |
if(!(endp_prop((V58)))){ |
if(!(endp_prop((V58)))){ |
462 |
goto T163;} |
goto T163;} |
463 |
goto T158; |
goto T158; |
464 |
goto T163; |
goto T163; |
465 |
T163:; |
T163:; |
466 |
base[5]= base[3]; |
base[5]= base[3]; |
467 |
base[7]= small_fixnum(1); |
base[7]= small_fixnum(1); |
481 |
V58= cdr((V58)); |
V58= cdr((V58)); |
482 |
V59= car((V58)); |
V59= car((V58)); |
483 |
goto T162;} |
goto T162;} |
484 |
goto T158; |
goto T158; |
485 |
T158:; |
T158:; |
486 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
487 |
return; |
return; |
498 |
V60=(base[0]); |
V60=(base[0]); |
499 |
V61=(base[1]); |
V61=(base[1]); |
500 |
vs_top=sup; |
vs_top=sup; |
501 |
goto TTL; |
goto TTL; |
502 |
TTL:; |
TTL:; |
503 |
{object V62; |
{object V62; |
504 |
V62= Cnil; |
V62= Cnil; |
509 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
510 |
super_funcall_no_event((V62)); |
super_funcall_no_event((V62)); |
511 |
return; |
return; |
512 |
goto T181; |
goto T181; |
513 |
T181:; |
T181:; |
514 |
{object V63; |
{object V63; |
515 |
V62= get((V60),VV[22],Cnil); |
V62= get((V60),VV[22],Cnil); |
517 |
goto T186;} |
goto T186;} |
518 |
V63= Cnil; |
V63= Cnil; |
519 |
goto T185; |
goto T185; |
520 |
goto T186; |
goto T186; |
521 |
T186:; |
T186:; |
522 |
V63= ( |
V63= ( |
523 |
(type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)): |
(type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)): |
524 |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
525 |
goto T185; |
goto T185; |
526 |
T185:; |
T185:; |
527 |
if(((V63))==Cnil){ |
if(((V63))==Cnil){ |
528 |
goto T190;} |
goto T190;} |
529 |
base[2]= (V63); |
base[2]= (V63); |
530 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
531 |
return; |
return; |
532 |
goto T190; |
goto T190; |
533 |
T190:; |
T190:; |
534 |
V62= (*(LnkLI141))((V60)); |
V62= (*(LnkLI141))((V60)); |
535 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
545 |
if(((V66))==Cnil){ |
if(((V66))==Cnil){ |
546 |
goto T201;} |
goto T201;} |
547 |
(void)(structure_set((V64),VV[25],2,(V66)));} |
(void)(structure_set((V64),VV[25],2,(V66)));} |
548 |
goto T201; |
goto T201; |
549 |
T201:; |
T201:; |
550 |
{register object V67; |
{register object V67; |
551 |
V67= (*(LnkLI144))(caddr((V62))); |
V67= (*(LnkLI144))(caddr((V62))); |
557 |
object V70; |
object V70; |
558 |
V69= (V65); |
V69= (V65); |
559 |
V70= car((V69)); |
V70= car((V69)); |
560 |
goto T213; |
goto T213; |
561 |
T213:; |
T213:; |
562 |
if(!(endp_prop((V69)))){ |
if(!(endp_prop((V69)))){ |
563 |
goto T214;} |
goto T214;} |
564 |
goto T209; |
goto T209; |
565 |
goto T214; |
goto T214; |
566 |
T214:; |
T214:; |
567 |
if(!(endp_prop((V67)))){ |
if(!(endp_prop((V67)))){ |
568 |
goto T220;} |
goto T220;} |
569 |
V68= make_cons(V70,(V68)); |
V68= make_cons(V70,(V68)); |
570 |
goto T218; |
goto T218; |
571 |
goto T220; |
goto T220; |
572 |
T220:; |
T220:; |
573 |
{object V72; |
{object V72; |
574 |
V72= (*(LnkLI145))(car((V67)),(V70),car((V61))); |
V72= (*(LnkLI145))(car((V67)),(V70),car((V61))); |
579 |
{object V74; |
{object V74; |
580 |
V74= car((V61)); |
V74= car((V61)); |
581 |
V61= cdr((V61));} |
V61= cdr((V61));} |
582 |
goto T218; |
goto T218; |
583 |
T218:; |
T218:; |
584 |
V69= cdr((V69)); |
V69= cdr((V69)); |
585 |
V70= car((V69)); |
V70= car((V69)); |
586 |
goto T213;} |
goto T213;} |
587 |
goto T209; |
goto T209; |
588 |
T209:; |
T209:; |
589 |
V65= reverse((V68));}} |
V65= reverse((V68));}} |
590 |
goto T205; |
goto T205; |
591 |
T205:; |
T205:; |
592 |
base[4]= list(4,VV[23],(V64),cddr((V62)),(V65)); |
base[4]= list(4,VV[23],(V64),cddr((V62)),(V65)); |
593 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
594 |
return;} |
return;} |
595 |
goto T197; |
goto T197; |
596 |
T197:; |
T197:; |
597 |
V75= (*(LnkLI146))((V62),(V60),(V61)); |
V75= (*(LnkLI146))((V62),(V60),(V61)); |
598 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V75); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V75); |
599 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
600 |
return; |
return; |
601 |
goto T193; |
goto T193; |
602 |
T193:; |
T193:; |
603 |
{object V76; |
{object V76; |
604 |
V62= get((V60),VV[26],Cnil); |
V62= get((V60),VV[26],Cnil); |
606 |
goto T240;} |
goto T240;} |
607 |
V76= Cnil; |
V76= Cnil; |
608 |
goto T239; |
goto T239; |
609 |
goto T240; |
goto T240; |
610 |
T240:; |
T240:; |
611 |
if(((*(LnkLI147))((V60)))!=Cnil){ |
if(((*(LnkLI147))((V60)))!=Cnil){ |
612 |
goto T243;} |
goto T243;} |
613 |
V76= Cnil; |
V76= Cnil; |
614 |
goto T239; |
goto T239; |
615 |
goto T243; |
goto T243; |
616 |
T243:; |
T243:; |
617 |
V76= ( |
V76= ( |
618 |
(type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)): |
(type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)): |
619 |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
620 |
goto T239; |
goto T239; |
621 |
T239:; |
T239:; |
622 |
if(((V76))==Cnil){ |
if(((V76))==Cnil){ |
623 |
goto T246;} |
goto T246;} |
624 |
base[2]= (V76); |
base[2]= (V76); |
625 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
626 |
return; |
return; |
627 |
goto T246; |
goto T246; |
628 |
T246:; |
T246:; |
629 |
V62= get((V60),VV[27],Cnil); |
V62= get((V60),VV[27],Cnil); |
630 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
635 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
636 |
super_funcall_no_event((V62)); |
super_funcall_no_event((V62)); |
637 |
return; |
return; |
638 |
goto T249; |
goto T249; |
639 |
T249:; |
T249:; |
640 |
V62= get((V60),VV[28],Cnil); |
V62= get((V60),VV[28],Cnil); |
641 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
654 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
655 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
656 |
return; |
return; |
657 |
goto T256; |
goto T256; |
658 |
T256:; |
T256:; |
659 |
{object V77; |
{object V77; |
660 |
base[2]= (V60); |
base[2]= (V60); |
670 |
if((V78)==(V79)){ |
if((V78)==(V79)){ |
671 |
goto T269;} |
goto T269;} |
672 |
goto T268; |
goto T268; |
673 |
goto T269; |
goto T269; |
674 |
T269:; |
T269:; |
675 |
base[2]= (V60); |
base[2]= (V60); |
676 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
680 |
if((V80)==Cnil){ |
if((V80)==Cnil){ |
681 |
goto T275;} |
goto T275;} |
682 |
goto T268; |
goto T268; |
683 |
goto T275; |
goto T275; |
684 |
T275:; |
T275:; |
685 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60)))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60)))); |
686 |
goto T268; |
goto T268; |
687 |
T268:; |
T268:; |
688 |
if(symbol_value(VV[31])==Cnil){ |
if(symbol_value(VV[31])==Cnil){ |
689 |
goto T279;} |
goto T279;} |
690 |
(void)((*(LnkLI32))(VV[32],(V60))); |
(void)((*(LnkLI32))(VV[32],(V60))); |
691 |
goto T279; |
goto T279; |
692 |
T279:; |
T279:; |
693 |
V77= Cnil; |
V77= Cnil; |
694 |
if(((V77))==Cnil){ |
if(((V77))==Cnil){ |
696 |
base[2]= (V77); |
base[2]= (V77); |
697 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
698 |
return; |
return; |
699 |
goto T281; |
goto T281; |
700 |
T281:; |
T281:; |
701 |
base[2]= (V60); |
base[2]= (V60); |
702 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
709 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V81); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V81); |
710 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
711 |
return; |
return; |
712 |
goto T284; |
goto T284; |
713 |
T284:; |
T284:; |
714 |
V62= get((V60),VV[33],Cnil); |
V62= get((V60),VV[33],Cnil); |
715 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
723 |
base[2]= (*(LnkLI123))(V82); |
base[2]= (*(LnkLI123))(V82); |
724 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
725 |
return; |
return; |
726 |
goto T289; |
goto T289; |
727 |
T289:; |
T289:; |
728 |
V62= get((V60),VV[36],Cnil); |
V62= get((V60),VV[36],Cnil); |
729 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
744 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85); |
745 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
746 |
return; |
return; |
747 |
goto T308; |
goto T308; |
748 |
T308:; |
T308:; |
749 |
if((V84!= VV[113]))goto T309; |
if((V84!= VV[113]))goto T309; |
750 |
V86= list(3,VV[38],cdr((V62)),car((V61))); |
V86= list(3,VV[38],cdr((V62)),car((V61))); |
751 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V86); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V86); |
752 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
753 |
return; |
return; |
754 |
goto T309; |
goto T309; |
755 |
T309:; |
T309:; |
756 |
base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62))); |
base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62))); |
757 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
758 |
return;} |
return;} |
759 |
goto T295; |
goto T295; |
760 |
T295:; |
T295:; |
761 |
if(!(((V60))==(VV[5]))){ |
if(!(((V60))==(VV[5]))){ |
762 |
goto T311;} |
goto T311;} |
763 |
base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39])); |
base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39])); |
764 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
765 |
return; |
return; |
766 |
goto T311; |
goto T311; |
767 |
T311:; |
T311:; |
768 |
{object V87; |
{object V87; |
769 |
object V88; |
object V88; |
778 |
goto T321;} |
goto T321;} |
779 |
V90= Cnil; |
V90= Cnil; |
780 |
goto T316; |
goto T316; |
781 |
goto T321; |
goto T321; |
782 |
T321:; |
T321:; |
783 |
(void)(structure_set((V87),VV[25],2,(V90)));} |
(void)(structure_set((V87),VV[25],2,(V90)));} |
784 |
goto T316; |
goto T316; |
785 |
T316:; |
T316:; |
786 |
{register object V91; |
{register object V91; |
787 |
V91= (*(LnkLI151))((V60)); |
V91= (*(LnkLI151))((V60)); |
793 |
V92= (V88); |
V92= (V88); |
794 |
V93= Cnil; |
V93= Cnil; |
795 |
V94= (V61); |
V94= (V61); |
796 |
goto T329; |
goto T329; |
797 |
T329:; |
T329:; |
798 |
if(!(endp_prop((V92)))){ |
if(!(endp_prop((V92)))){ |
799 |
goto T330;} |
goto T330;} |
800 |
V88= reverse((V93)); |
V88= reverse((V93)); |
801 |
goto T324; |
goto T324; |
802 |
goto T330; |
goto T330; |
803 |
T330:; |
T330:; |
804 |
if(!(endp_prop((V91)))){ |
if(!(endp_prop((V91)))){ |
805 |
goto T337;} |
goto T337;} |
807 |
V95= car((V92)); |
V95= car((V92)); |
808 |
V93= make_cons((V95),(V93)); |
V93= make_cons((V95),(V93)); |
809 |
goto T335;} |
goto T335;} |
810 |
goto T337; |
goto T337; |
811 |
T337:; |
T337:; |
812 |
{object V96; |
{object V96; |
813 |
V96= (*(LnkLI145))(car((V91)),car((V92)),car((V94))); |
V96= (*(LnkLI145))(car((V91)),car((V92)),car((V94))); |
815 |
{object V97; |
{object V97; |
816 |
V97= car((V91)); |
V97= car((V91)); |
817 |
V91= cdr((V91));} |
V91= cdr((V91));} |
818 |
goto T335; |
goto T335; |
819 |
T335:; |
T335:; |
820 |
V92= cdr((V92)); |
V92= cdr((V92)); |
821 |
V94= cdr((V94)); |
V94= cdr((V94)); |
822 |
goto T329;}} |
goto T329;}} |
823 |
goto T324; |
goto T324; |
824 |
T324:; |
T324:; |
825 |
{register object V98; |
{register object V98; |
826 |
V98= get((V60),VV[42],Cnil); |
V98= get((V60),VV[42],Cnil); |
830 |
object V100; |
object V100; |
831 |
V99= (V88); |
V99= (V88); |
832 |
V100= (V61); |
V100= (V61); |
833 |
goto T356; |
goto T356; |
834 |
T356:; |
T356:; |
835 |
if(endp_prop((V98))){ |
if(endp_prop((V98))){ |
836 |
goto T358;} |
goto T358;} |
837 |
if(!(endp_prop((V99)))){ |
if(!(endp_prop((V99)))){ |
838 |
goto T357;} |
goto T357;} |
839 |
goto T358; |
goto T358; |
840 |
T358:; |
T358:; |
841 |
goto T351; |
goto T351; |
842 |
goto T357; |
goto T357; |
843 |
T357:; |
T357:; |
844 |
(void)((*(LnkLI152))(car((V98)),car((V99)),car((V100)))); |
(void)((*(LnkLI152))(car((V98)),car((V99)),car((V100)))); |
845 |
{object V101; |
{object V101; |
848 |
V99= cdr((V99)); |
V99= cdr((V99)); |
849 |
V100= cdr((V100)); |
V100= cdr((V100)); |
850 |
goto T356;}} |
goto T356;}} |
851 |
goto T351; |
goto T351; |
852 |
T351:; |
T351:; |
853 |
{object V102= (V60); |
{object V102= (V60); |
854 |
if((V102!= VV[153]))goto T373; |
if((V102!= VV[153]))goto T373; |
859 |
V103= VV[44]; |
V103= VV[44]; |
860 |
if((VV[44])!=Cnil){ |
if((VV[44])!=Cnil){ |
861 |
goto T375;} |
goto T375;} |
862 |
goto T376; |
goto T376; |
863 |
T376:; |
T376:; |
864 |
if(!(type_of((V103))==t_cons)){ |
if(!(type_of((V103))==t_cons)){ |
865 |
goto T372;} |
goto T372;} |
867 |
goto T383;} |
goto T383;} |
868 |
if(!((car((V103)))==(VV[46]))){ |
if(!((car((V103)))==(VV[46]))){ |
869 |
goto T372;} |
goto T372;} |
870 |
goto T383; |
goto T383; |
871 |
T383:; |
T383:; |
872 |
V103= cadr((V103)); |
V103= cadr((V103)); |
873 |
if(((V103))==Cnil){ |
if(((V103))==Cnil){ |
874 |
goto T372;} |
goto T372;} |
875 |
goto T375; |
goto T375; |
876 |
T375:; |
T375:; |
877 |
V104= structure_ref((V87),VV[25],2); |
V104= structure_ref((V87),VV[25],2); |
878 |
V103= (*(LnkLI154))(/* INLINE-ARGS */V104,(V103)); |
V103= (*(LnkLI154))(/* INLINE-ARGS */V104,(V103)); |
880 |
goto T391;} |
goto T391;} |
881 |
V105= make_cons((V60),(V61)); |
V105= make_cons((V60),(V61)); |
882 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V105))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V105))); |
883 |
goto T391; |
goto T391; |
884 |
T391:; |
T391:; |
885 |
(void)(structure_set((V87),VV[25],2,(V103))); |
(void)(structure_set((V87),VV[25],2,(V103))); |
886 |
goto T372;} |
goto T372;} |
887 |
goto T373; |
goto T373; |
888 |
T373:; |
T373:; |
889 |
if((V102!= VV[155]))goto T394; |
if((V102!= VV[155]))goto T394; |
890 |
{object V106; |
{object V106; |
894 |
V106= VV[44]; |
V106= VV[44]; |
895 |
if((VV[44])!=Cnil){ |
if((VV[44])!=Cnil){ |
896 |
goto T396;} |
goto T396;} |
897 |
goto T397; |
goto T397; |
898 |
T397:; |
T397:; |
899 |
if(!(type_of((V106))==t_cons)){ |
if(!(type_of((V106))==t_cons)){ |
900 |
goto T372;} |
goto T372;} |
902 |
goto T404;} |
goto T404;} |
903 |
if(!((car((V106)))==(VV[46]))){ |
if(!((car((V106)))==(VV[46]))){ |
904 |
goto T372;} |
goto T372;} |
905 |
goto T404; |
goto T404; |
906 |
T404:; |
T404:; |
907 |
V106= cadr((V106)); |
V106= cadr((V106)); |
908 |
if(((V106))==Cnil){ |
if(((V106))==Cnil){ |
909 |
goto T372;} |
goto T372;} |
910 |
goto T396; |
goto T396; |
911 |
T396:; |
T396:; |
912 |
V107= structure_ref((V87),VV[25],2); |
V107= structure_ref((V87),VV[25],2); |
913 |
base[4]= (V88); |
base[4]= (V88); |
922 |
goto T414;} |
goto T414;} |
923 |
V111= make_cons((V60),(V61)); |
V111= make_cons((V60),(V61)); |
924 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V111))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V111))); |
925 |
goto T414; |
goto T414; |
926 |
T414:; |
T414:; |
927 |
(void)(structure_set((V87),VV[25],2,(V106))); |
(void)(structure_set((V87),VV[25],2,(V106))); |
928 |
base[4]= (V88); |
base[4]= (V88); |
932 |
V112= vs_base[0]; |
V112= vs_base[0]; |
933 |
(void)(structure_set(cadar(V112),VV[25],2,(V106))); |
(void)(structure_set(cadar(V112),VV[25],2,(V106))); |
934 |
goto T372;} |
goto T372;} |
935 |
goto T394; |
goto T394; |
936 |
T394:;} |
T394:;} |
937 |
goto T372; |
goto T372; |
938 |
T372:; |
T372:; |
939 |
{object V113; |
{object V113; |
940 |
base[4]= (V60); |
base[4]= (V60); |
944 |
base[5]= Cnil; |
base[5]= Cnil; |
945 |
goto T423;} |
goto T423;} |
946 |
base[6]=V114=MMcons(Cnil,Cnil); |
base[6]=V114=MMcons(Cnil,Cnil); |
947 |
goto T424; |
goto T424; |
948 |
T424:; |
T424:; |
949 |
(V114->c.c_car)= structure_ref(cadr((V115->c.c_car)),VV[25],2); |
(V114->c.c_car)= structure_ref(cadr((V115->c.c_car)),VV[25],2); |
950 |
V115=MMcdr(V115); |
V115=MMcdr(V115); |
953 |
goto T423;} |
goto T423;} |
954 |
V114=MMcdr(V114)=MMcons(Cnil,Cnil); |
V114=MMcdr(V114)=MMcons(Cnil,Cnil); |
955 |
goto T424;} |
goto T424;} |
956 |
goto T423; |
goto T423; |
957 |
T423:; |
T423:; |
958 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
959 |
(void) (*Lnk156)(); |
(void) (*Lnk156)(); |
964 |
V117= structure_ref((V87),VV[25],2); |
V117= structure_ref((V87),VV[25],2); |
965 |
V113= (*(LnkLI154))((V113),/* INLINE-ARGS */V117); |
V113= (*(LnkLI154))((V113),/* INLINE-ARGS */V117); |
966 |
(void)(structure_set((V87),VV[25],2,(V113)));} |
(void)(structure_set((V87),VV[25],2,(V113)));} |
967 |
goto T420; |
goto T420; |
968 |
T420:; |
T420:; |
969 |
base[4]= list(4,VV[49],(V87),(V60),(V88)); |
base[4]= list(4,VV[49],(V87),(V60),(V88)); |
970 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
977 |
|
|
978 |
object V119; |
object V119; |
979 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
980 |
goto TTL; |
goto TTL; |
981 |
TTL:; |
TTL:; |
982 |
{register object V120; |
{register object V120; |
983 |
register object V121; |
register object V121; |
985 |
V121= Cnil; |
V121= Cnil; |
986 |
{register object V122; |
{register object V122; |
987 |
V122= (V119); |
V122= (V119); |
988 |
goto T433; |
goto T433; |
989 |
T433:; |
T433:; |
990 |
if(((V122))!=Cnil){ |
if(((V122))!=Cnil){ |
991 |
goto T434;} |
goto T434;} |
992 |
{object V123 = (V120); |
{object V123 = (V120); |
993 |
VMR13(V123)} |
VMR13(V123)} |
994 |
goto T434; |
goto T434; |
995 |
T434:; |
T434:; |
996 |
base[0]= car((V122)); |
base[0]= car((V122)); |
997 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1013 |
goto T439;} |
goto T439;} |
1014 |
if(!(type_of((V121))==t_character)){ |
if(!(type_of((V121))==t_character)){ |
1015 |
goto T438;} |
goto T438;} |
1016 |
goto T439; |
goto T439; |
1017 |
T439:; |
T439:; |
1018 |
V120= Ct; |
V120= Ct; |
1019 |
{register object V124; |
{register object V124; |
1022 |
V125= (V121); |
V125= (V121); |
1023 |
if(type_of((V124))!=t_cons)FEwrong_type_argument(Scons,(V124)); |
if(type_of((V124))!=t_cons)FEwrong_type_argument(Scons,(V124)); |
1024 |
((V124))->c.c_car = (V125);} |
((V124))->c.c_car = (V125);} |
1025 |
goto T438; |
goto T438; |
1026 |
T438:; |
T438:; |
1027 |
V122= cdr((V122)); |
V122= cdr((V122)); |
1028 |
goto T433;}} |
goto T433;}} |
1035 |
|
|
1036 |
register object V128;object V129; |
register object V128;object V129; |
1037 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1038 |
goto TTL; |
goto TTL; |
1039 |
TTL:; |
TTL:; |
1040 |
{object V130; |
{object V130; |
1041 |
V130= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct)); |
V130= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct)); |
1058 |
check_arg(1); |
check_arg(1); |
1059 |
V132=(base[0]); |
V132=(base[0]); |
1060 |
vs_top=sup; |
vs_top=sup; |
1061 |
goto TTL; |
goto TTL; |
1062 |
TTL:; |
TTL:; |
1063 |
if(!((car((V132)))==(VV[49]))){ |
if(!((car((V132)))==(VV[49]))){ |
1064 |
goto T463;} |
goto T463;} |
1068 |
base[1]= (*(LnkLI158))(/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,Cnil,/* INLINE-ARGS */V135); |
base[1]= (*(LnkLI158))(/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,Cnil,/* INLINE-ARGS */V135); |
1069 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1070 |
return; |
return; |
1071 |
goto T463; |
goto T463; |
1072 |
T463:; |
T463:; |
1073 |
if((car((V132)))==(VV[51])){ |
if((car((V132)))==(VV[51])){ |
1074 |
goto T465;} |
goto T465;} |
1075 |
if(!((car((V132)))==(VV[52]))){ |
if(!((car((V132)))==(VV[52]))){ |
1076 |
goto T466;} |
goto T466;} |
1077 |
goto T465; |
goto T465; |
1078 |
T465:; |
T465:; |
1079 |
base[1]= (*(LnkLI159))(cadr((V132))); |
base[1]= (*(LnkLI159))(cadr((V132))); |
1080 |
bds_bind(VV[53],base[1]); |
bds_bind(VV[53],base[1]); |
1088 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
1089 |
bds_unwind1; |
bds_unwind1; |
1090 |
return; |
return; |
1091 |
goto T466; |
goto T466; |
1092 |
T466:; |
T466:; |
1093 |
{register object V137; |
{register object V137; |
1094 |
V137= get(car((V132)),VV[54],Cnil); |
V137= get(car((V132)),VV[54],Cnil); |
1103 |
vs_base=base+2;} |
vs_base=base+2;} |
1104 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
1105 |
return; |
return; |
1106 |
goto T475; |
goto T475; |
1107 |
T475:; |
T475:; |
1108 |
V137= get(car((V132)),VV[55],Cnil); |
V137= get(car((V132)),VV[55],Cnil); |
1109 |
if(((V137))==Cnil){ |
if(((V137))==Cnil){ |
1112 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1113 |
super_funcall_no_event((V137)); |
super_funcall_no_event((V137)); |
1114 |
return; |
return; |
1115 |
goto T480; |
goto T480; |
1116 |
T480:; |
T480:; |
1117 |
base[1]= (*(LnkLI160))(); |
base[1]= (*(LnkLI160))(); |
1118 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1126 |
object V142;object V143;object V144; |
object V142;object V143;object V144; |
1127 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1128 |
bds_check; |
bds_check; |
1129 |
goto TTL; |
goto TTL; |
1130 |
TTL:; |
TTL:; |
1131 |
{object V145; |
{object V145; |
1132 |
object V146; |
object V146; |
1156 |
object V151; |
object V151; |
1157 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1158 |
bds_check; |
bds_check; |
1159 |
goto TTL; |
goto TTL; |
1160 |
TTL:; |
TTL:; |
1161 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
1162 |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
1167 |
vs_top=sup; |
vs_top=sup; |
1168 |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
1169 |
goto T500;} |
goto T500;} |
1170 |
princ_str("\ngoto T",VV[62]); |
princ_str("\n goto T",VV[62]); |
1171 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1172 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1173 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1177 |
bds_unwind1; |
bds_unwind1; |
1178 |
bds_unwind1; |
bds_unwind1; |
1179 |
VMR17(V152)} |
VMR17(V152)} |
1180 |
goto T500; |
goto T500; |
1181 |
T500:; |
T500:; |
1182 |
{object V153 = Cnil; |
{object V153 = Cnil; |
1183 |
bds_unwind1; |
bds_unwind1; |
1193 |
object V156;object V157; |
object V156;object V157; |
1194 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1195 |
bds_check; |
bds_check; |
1196 |
goto TTL; |
goto TTL; |
1197 |
TTL:; |
TTL:; |
1198 |
bds_bind(VV[63],small_fixnum(0)); |
bds_bind(VV[63],small_fixnum(0)); |
1199 |
bds_bind(VV[64],small_fixnum(0)); |
bds_bind(VV[64],small_fixnum(0)); |
1225 |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
1226 |
princ_str(");",VV[62]); |
princ_str(");",VV[62]); |
1227 |
goto T534; |
goto T534; |
1228 |
goto T536; |
goto T536; |
1229 |
T536:; |
T536:; |
1230 |
princ_str("\n vs_check;",VV[62]); |
princ_str("\n vs_check;",VV[62]); |
1231 |
goto T534; |
goto T534; |
1232 |
T534:; |
T534:; |
1233 |
princ_str("\n ",VV[62]); |
princ_str("\n ",VV[62]); |
1234 |
(void)((*(LnkLI166))()); |
(void)((*(LnkLI166))()); |
1256 |
object V165;object V166; |
object V165;object V166; |
1257 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1258 |
bds_check; |
bds_check; |
1259 |
goto TTL; |
goto TTL; |
1260 |
TTL:; |
TTL:; |
1261 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
1262 |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
1264 |
(void)((*(LnkLI167))((V165),(V166))); |
(void)((*(LnkLI167))((V165),(V166))); |
1265 |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
1266 |
goto T555;} |
goto T555;} |
1267 |
princ_str("\ngoto T",VV[62]); |
princ_str("\n goto T",VV[62]); |
1268 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1269 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1270 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1274 |
bds_unwind1; |
bds_unwind1; |
1275 |
bds_unwind1; |
bds_unwind1; |
1276 |
VMR19(V167)} |
VMR19(V167)} |
1277 |
goto T555; |
goto T555; |
1278 |
T555:; |
T555:; |
1279 |
{object V168 = Cnil; |
{object V168 = Cnil; |
1280 |
bds_unwind1; |
bds_unwind1; |
1289 |
|
|
1290 |
register object V170; |
register object V170; |
1291 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1292 |
goto TTL; |
goto TTL; |
1293 |
TTL:; |
TTL:; |
1294 |
{register object V171; |
{register object V171; |
1295 |
V171= Cnil; |
V171= Cnil; |
1297 |
goto T566;} |
goto T566;} |
1298 |
{object V172 = (*(LnkLI125))(); |
{object V172 = (*(LnkLI125))(); |
1299 |
VMR20(V172)} |
VMR20(V172)} |
1300 |
goto T566; |
goto T566; |
1301 |
T566:; |
T566:; |
1302 |
if(!(endp_prop(cdr((V170))))){ |
if(!(endp_prop(cdr((V170))))){ |
1303 |
goto T569;} |
goto T569;} |
1304 |
{object V173 = (*(LnkLI123))(car((V170))); |
{object V173 = (*(LnkLI123))(car((V170))); |
1305 |
VMR20(V173)} |
VMR20(V173)} |
1306 |
goto T569; |
goto T569; |
1307 |
T569:; |
T569:; |
1308 |
{register object V174; |
{register object V174; |
1309 |
V174= (VFUN_NARGS=0,(*(LnkLI127))()); |
V174= (VFUN_NARGS=0,(*(LnkLI127))()); |
1311 |
register object V176; |
register object V176; |
1312 |
V175= (V170); |
V175= (V170); |
1313 |
V176= car((V175)); |
V176= car((V175)); |
1314 |
goto T576; |
goto T576; |
1315 |
T576:; |
T576:; |
1316 |
if(!(endp_prop((V175)))){ |
if(!(endp_prop((V175)))){ |
1317 |
goto T577;} |
goto T577;} |
1318 |
goto T572; |
goto T572; |
1319 |
goto T577; |
goto T577; |
1320 |
T577:; |
T577:; |
1321 |
V176= (*(LnkLI123))((V176)); |
V176= (*(LnkLI123))((V176)); |
1322 |
{register object V177; |
{register object V177; |
1326 |
V175= cdr((V175)); |
V175= cdr((V175)); |
1327 |
V176= car((V175)); |
V176= car((V175)); |
1328 |
goto T576;} |
goto T576;} |
1329 |
goto T572; |
goto T572; |
1330 |
T572:; |
T572:; |
1331 |
V178= structure_ref(cadar((V171)),VV[25],2); |
V178= structure_ref(cadar((V171)),VV[25],2); |
1332 |
(void)(structure_set((V174),VV[25],2,/* INLINE-ARGS */V178)); |
(void)(structure_set((V174),VV[25],2,/* INLINE-ARGS */V178)); |
1341 |
|
|
1342 |
register object V182;object V183; |
register object V182;object V183; |
1343 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1344 |
goto TTL; |
goto TTL; |
1345 |
TTL:; |
TTL:; |
1346 |
V182= (*(LnkLI168))((V182)); |
V182= (*(LnkLI168))((V182)); |
1347 |
(void)((*(LnkLI124))((V183),cadr((V182)))); |
(void)((*(LnkLI124))((V183),cadr((V182)))); |
1360 |
check_arg(1); |
check_arg(1); |
1361 |
V185=(base[0]); |
V185=(base[0]); |
1362 |
vs_top=sup; |
vs_top=sup; |
1363 |
goto TTL; |
goto TTL; |
1364 |
TTL:; |
TTL:; |
1365 |
{register object V186; |
{register object V186; |
1366 |
V186= (V185); |
V186= (V185); |
1367 |
goto T597; |
goto T597; |
1368 |
T597:; |
T597:; |
1369 |
if(!(endp_prop(cdr((V186))))){ |
if(!(endp_prop(cdr((V186))))){ |
1370 |
goto T598;} |
goto T598;} |
1372 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1373 |
(void) (*Lnk164)(); |
(void) (*Lnk164)(); |
1374 |
return; |
return; |
1375 |
goto T598; |
goto T598; |
1376 |
T598:; |
T598:; |
1377 |
bds_bind(VV[72],VV[73]); |
bds_bind(VV[72],VV[73]); |
1378 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
1387 |
bds_unwind1; |
bds_unwind1; |
1388 |
bds_unwind1; |
bds_unwind1; |
1389 |
goto T603;} |
goto T603;} |
1390 |
princ_str("\ngoto T",VV[62]); |
princ_str("\n goto T",VV[62]); |
1391 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
1392 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1393 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1396 |
bds_unwind1; |
bds_unwind1; |
1397 |
bds_unwind1; |
bds_unwind1; |
1398 |
bds_unwind1; |
bds_unwind1; |
1399 |
goto T603; |
goto T603; |
1400 |
T603:; |
T603:; |
1401 |
V186= cdr((V186)); |
V186= cdr((V186)); |
1402 |
goto T597;} |
goto T597;} |
1408 |
|
|
1409 |
object V189;object V190; |
object V189;object V190; |
1410 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1411 |
goto TTL; |
goto TTL; |
1412 |
TTL:; |
TTL:; |
1413 |
{object V191; |
{object V191; |
1414 |
object V192= (V189); |
object V192= (V189); |
1416 |
{object V193 = Cnil; |
{object V193 = Cnil; |
1417 |
VMR23(V193)}} |
VMR23(V193)}} |
1418 |
base[0]=V191=MMcons(Cnil,Cnil); |
base[0]=V191=MMcons(Cnil,Cnil); |
1419 |
goto T621; |
goto T621; |
1420 |
T621:; |
T621:; |
1421 |
(V191->c.c_car)= (*(LnkLI169))((V192->c.c_car),(V190)); |
(V191->c.c_car)= (*(LnkLI169))((V192->c.c_car),(V190)); |
1422 |
V192=MMcdr(V192); |
V192=MMcdr(V192); |
1434 |
|
|
1435 |
register object V197; |
register object V197; |
1436 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1437 |
goto TTL; |
goto TTL; |
1438 |
TTL:; |
TTL:; |
1439 |
if((symbol_value(VV[69]))!=Cnil){ |
if((symbol_value(VV[69]))!=Cnil){ |
1440 |
goto T624;} |
goto T624;} |
1460 |
goto T624;} |
goto T624;} |
1461 |
{object V198 = (*(LnkLI149))(car((V197)),cadadr((V197)),caddr((V197))); |
{object V198 = (*(LnkLI149))(car((V197)),cadadr((V197)),caddr((V197))); |
1462 |
VMR24(V198)} |
VMR24(V198)} |
1463 |
goto T624; |
goto T624; |
1464 |
T624:; |
T624:; |
1465 |
{object V199; |
{object V199; |
1466 |
V199= (VFUN_NARGS=0,(*(LnkLI127))()); |
V199= (VFUN_NARGS=0,(*(LnkLI127))()); |
1474 |
|
|
1475 |
object V204;object V205;object V206; |
object V204;object V205;object V206; |
1476 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1477 |
goto TTL; |
goto TTL; |
1478 |
TTL:; |
TTL:; |
1479 |
{object V207; |
{object V207; |
1480 |
V207= (VFUN_NARGS=0,(*(LnkLI127))()); |
V207= (VFUN_NARGS=0,(*(LnkLI127))()); |
1483 |
V208= list(4,VV[74],(V204),list(2,VV[35],(V205)),(V206)); |
V208= list(4,VV[74],(V204),list(2,VV[35],(V205)),(V206)); |
1484 |
{object V209 = (*(LnkLI123))(/* INLINE-ARGS */V208); |
{object V209 = (*(LnkLI123))(/* INLINE-ARGS */V208); |
1485 |
VMR25(V209)} |
VMR25(V209)} |
1486 |
goto T649; |
goto T649; |
1487 |
T649:; |
T649:; |
1488 |
{object V210; |
{object V210; |
1489 |
object V211; |
object V211; |
1506 |
|
|
1507 |
object V220;object V221; |
object V220;object V221; |
1508 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1509 |
goto TTL; |
goto TTL; |
1510 |
TTL:; |
TTL:; |
1511 |
{object V222; |
{object V222; |
1512 |
V222= cdr((V220)); |
V222= cdr((V220)); |
1528 |
if(!(eql((V225),small_fixnum(0)))){ |
if(!(eql((V225),small_fixnum(0)))){ |
1529 |
goto T665;} |
goto T665;} |
1530 |
goto T662; |
goto T662; |
1531 |
goto T665; |
goto T665; |
1532 |
T665:; |
T665:; |
1533 |
base[5]= VV[79]; |
base[5]= VV[79]; |
1534 |
base[6]= (V226); |
base[6]= (V226); |
1535 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1536 |
Lerror(); |
Lerror(); |
1537 |
vs_top=sup; |
vs_top=sup; |
1538 |
goto T662; |
goto T662; |
1539 |
T662:; |
T662:; |
1540 |
V230= car((V220)); |
V230= car((V220)); |
1541 |
V231= (*(LnkLI170))((V226)); |
V231= (*(LnkLI170))((V226)); |
1548 |
V237= (*(LnkLI170))((V221)); |
V237= (*(LnkLI170))((V221)); |
1549 |
{object V238 = (*(LnkLI173))(/* INLINE-ARGS */V236,/* INLINE-ARGS */V237); |
{object V238 = (*(LnkLI173))(/* INLINE-ARGS */V236,/* INLINE-ARGS */V237); |
1550 |
VMR26(V238)}} |
VMR26(V238)}} |
1551 |
goto T658; |
goto T658; |
1552 |
T658:; |
T658:; |
1553 |
{object V239 = (*(LnkLI175))(); |
{object V239 = (*(LnkLI175))(); |
1554 |
VMR26(V239)}}} |
VMR26(V239)}}} |
1562 |
object V244;object V245;object V246;object V247; |
object V244;object V245;object V246;object V247; |
1563 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1564 |
bds_check; |
bds_check; |
1565 |
goto TTL; |
goto TTL; |
1566 |
TTL:; |
TTL:; |
1567 |
bds_bind(VV[63],symbol_value(VV[63])); |
bds_bind(VV[63],symbol_value(VV[63])); |
1568 |
bds_bind(VV[56],small_fixnum(0)); |
bds_bind(VV[56],small_fixnum(0)); |
1592 |
|
|
1593 |
object V263;object V264;object V265;object V266; |
object V263;object V264;object V265;object V266; |
1594 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1595 |
goto TTL; |
goto TTL; |
1596 |
TTL:; |
TTL:; |
1597 |
{object V267; |
{object V267; |
1598 |
object V268; |
object V268; |
1602 |
goto T677;} |
goto T677;} |
1603 |
{object V269 = (*(LnkLI175))(); |
{object V269 = (*(LnkLI175))(); |
1604 |
VMR28(V269)} |
VMR28(V269)} |
1605 |
goto T677; |
goto T677; |
1606 |
T677:; |
T677:; |
1607 |
princ_str("STREF(",VV[62]);{object V270; |
princ_str("STREF(",VV[62]);{object V270; |
1608 |
V270= symbol_value(VV[75]); |
V270= symbol_value(VV[75]); |
1627 |
|
|
1628 |
register object V277; |
register object V277; |
1629 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1630 |
goto TTL; |
goto TTL; |
1631 |
TTL:; |
TTL:; |
1632 |
{register object V278; |
{register object V278; |
1633 |
V278= (VFUN_NARGS=0,(*(LnkLI127))()); |
V278= (VFUN_NARGS=0,(*(LnkLI127))()); |
1668 |
V284= get(cadadr((V277)),VV[76],Cnil); |
V284= get(cadadr((V277)),VV[76],Cnil); |
1669 |
{object V285 = list(7,VV[84],(V278),(V279),/* INLINE-ARGS */V282,/* INLINE-ARGS */V283,(V280),V284); |
{object V285 = list(7,VV[84],(V278),(V279),/* INLINE-ARGS */V282,/* INLINE-ARGS */V283,(V280),V284); |
1670 |
VMR29(V285)}} |
VMR29(V285)}} |
1671 |
goto T688; |
goto T688; |
1672 |
T688:; |
T688:; |
1673 |
{object V286 = list(4,VV[49],(V278),VV[85],(*(LnkLI142))((V277),(V278))); |
{object V286 = list(4,VV[49],(V278),VV[85],(*(LnkLI142))((V277),(V278))); |
1674 |
VMR29(V286)}} |
VMR29(V286)}} |
1682 |
object V292;object V293;object V294;object V295;object V296; |
object V292;object V293;object V294;object V295;object V296; |
1683 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1684 |
bds_check; |
bds_check; |
1685 |
goto TTL; |
goto TTL; |
1686 |
TTL:; |
TTL:; |
1687 |
{object V297; |
{object V297; |
1688 |
V297= Cnil; |
V297= Cnil; |
1708 |
goto T730;} |
goto T730;} |
1709 |
V308= VV[87]; |
V308= VV[87]; |
1710 |
goto T728; |
goto T728; |
1711 |
goto T730; |
goto T730; |
1712 |
T730:; |
T730:; |
1713 |
V308= list(3,Ct,(V301),Ct); |
V308= list(3,Ct,(V301),Ct); |
1714 |
goto T728; |
goto T728; |
1715 |
T728:; |
T728:; |
1716 |
V297= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V307,V308)); |
V297= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V307,V308)); |
1717 |
V302= car((V297)); |
V302= car((V297)); |
1719 |
if((symbol_value(VV[69]))==Cnil){ |
if((symbol_value(VV[69]))==Cnil){ |
1720 |
goto T736;} |
goto T736;} |
1721 |
(void)((*(LnkLI175))()); |
(void)((*(LnkLI175))()); |
1722 |
goto T736; |
goto T736; |
1723 |
T736:; |
T736:; |
1724 |
princ_str("\n STSET(",VV[62]); |
princ_str("\n STSET(",VV[62]); |
1725 |
V309= (*(LnkLI176))((V299)); |
V309= (*(LnkLI176))((V299)); |
1748 |
|
|
1749 |
register object V316;object V317; |
register object V316;object V317; |
1750 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1751 |
goto TTL; |
goto TTL; |
1752 |
TTL:; |
TTL:; |
1753 |
if(!(((V316))==(Cnil))){ |
if(!(((V316))==(Cnil))){ |
1754 |
goto T751;} |
goto T751;} |
1755 |
{object V318 = (*(LnkLI125))(); |
{object V318 = (*(LnkLI125))(); |
1756 |
VMR31(V318)} |
VMR31(V318)} |
1757 |
goto T751; |
goto T751; |
1758 |
T751:; |
T751:; |
1759 |
if(!(((V316))==(Ct))){ |
if(!(((V316))==(Ct))){ |
1760 |
goto T754;} |
goto T754;} |
1761 |
{object V319 = (*(LnkLI126))(); |
{object V319 = (*(LnkLI126))(); |
1762 |
VMR31(V319)} |
VMR31(V319)} |
1763 |
goto T754; |
goto T754; |
1764 |
T754:; |
T754:; |
1765 |
if(!(type_of((V316))==t_fixnum)){ |
if(!(type_of((V316))==t_fixnum)){ |
1766 |
goto T757;} |
goto T757;} |
1770 |
goto T760;} |
goto T760;} |
1771 |
V321= Cnil; |
V321= Cnil; |
1772 |
goto T759; |
goto T759; |
1773 |
goto T760; |
goto T760; |
1774 |
T760:; |
T760:; |
1775 |
V321= (*(LnkLI129))((V316)); |
V321= (*(LnkLI129))((V316)); |
1776 |
goto T759; |
goto T759; |
1777 |
T759:; |
T759:; |
1778 |
{object V323 = list(3,VV[1],/* INLINE-ARGS */V320,list(3,VV[90],V321,(V316))); |
{object V323 = list(3,VV[1],/* INLINE-ARGS */V320,list(3,VV[90],V321,(V316))); |
1779 |
VMR31(V323)} |
VMR31(V323)} |
1780 |
goto T757; |
goto T757; |
1781 |
T757:; |
T757:; |
1782 |
if(!(type_of((V316))==t_character)){ |
if(!(type_of((V316))==t_character)){ |
1783 |
goto T763;} |
goto T763;} |
1790 |
V326= vs_base[0]; |
V326= vs_base[0]; |
1791 |
{object V327 = list(3,VV[1],/* INLINE-ARGS */V324,list(3,VV[92],/* INLINE-ARGS */V325,V326)); |
{object V327 = list(3,VV[1],/* INLINE-ARGS */V324,list(3,VV[92],/* INLINE-ARGS */V325,V326)); |
1792 |
VMR31(V327)} |
VMR31(V327)} |
1793 |
goto T763; |
goto T763; |
1794 |
T763:; |
T763:; |
1795 |
if(!(type_of((V316))==t_longfloat)){ |
if(!(type_of((V316))==t_longfloat)){ |
1796 |
goto T768;} |
goto T768;} |
1805 |
goto T774; |
goto T774; |
1806 |
}else V331=V331->c.c_cdr; |
}else V331=V331->c.c_cdr; |
1807 |
V330= Cnil;} |
V330= Cnil;} |
1808 |
goto T774; |
goto T774; |
1809 |
T774:; |
T774:; |
1810 |
V328= cadr(V330); |
V328= cadr(V330); |
1811 |
if(((V328))!=Cnil){ |
if(((V328))!=Cnil){ |
1828 |
V334= list(4,VV[5],VV[19],V333,VV[95]); |
V334= list(4,VV[5],VV[19],V333,VV[95]); |
1829 |
if(((*(LnkLI123))(/* INLINE-ARGS */V334))!=Cnil){ |
if(((*(LnkLI123))(/* INLINE-ARGS */V334))!=Cnil){ |
1830 |
goto T775;} |
goto T775;} |
1831 |
goto T776; |
goto T776; |
1832 |
T776:; |
T776:; |
1833 |
V335 = make_longfloat((double)(4.94065645841246540e-324)*(double)(1.0000000e+20)); |
V335 = make_longfloat((double)(4.94065645841246540e-324)*(double)(1.0000000e+20)); |
1834 |
if(!(number_compare((V329),V335)<0)){ |
if(!(number_compare((V329),V335)<0)){ |
1842 |
V337= list(4,VV[5],VV[19],V336,VV[98]); |
V337= list(4,VV[5],VV[19],V336,VV[98]); |
1843 |
if(((*(LnkLI123))(/* INLINE-ARGS */V337))==Cnil){ |
if(((*(LnkLI123))(/* INLINE-ARGS */V337))==Cnil){ |
1844 |
goto T770;} |
goto T770;} |
1845 |
goto T775; |
goto T775; |
1846 |
T775:; |
T775:; |
1847 |
{object V338; |
{object V338; |
1848 |
V328= symbol_value(VV[99]); |
V328= symbol_value(VV[99]); |
1849 |
V338= list(2,(V316),(V328)); |
V338= list(2,(V316),(V328)); |
1850 |
setq(VV[93],make_cons((V338),symbol_value(VV[93])));} |
setq(VV[93],make_cons((V338),symbol_value(VV[93])));} |
1851 |
goto T770; |
goto T770; |
1852 |
T770:; |
T770:; |
1853 |
V339= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100])); |
V339= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100])); |
1854 |
if((V328)!=Cnil){ |
if((V328)!=Cnil){ |
1855 |
V340= (V328); |
V340= (V328); |
1856 |
goto T796;} |
goto T796;} |
1857 |
V340= (*(LnkLI129))((V316)); |
V340= (*(LnkLI129))((V316)); |
1858 |
goto T796; |
goto T796; |
1859 |
T796:; |
T796:; |
1860 |
{object V341 = list(3,VV[1],/* INLINE-ARGS */V339,list(3,VV[101],V340,(V316))); |
{object V341 = list(3,VV[1],/* INLINE-ARGS */V339,list(3,VV[101],V340,(V316))); |
1861 |
VMR31(V341)}} |
VMR31(V341)}} |
1862 |
goto T768; |
goto T768; |
1863 |
T768:; |
T768:; |
1864 |
if(!(type_of((V316))==t_shortfloat)){ |
if(!(type_of((V316))==t_shortfloat)){ |
1865 |
goto T798;} |
goto T798;} |
1867 |
V343= (*(LnkLI129))((V316)); |
V343= (*(LnkLI129))((V316)); |
1868 |
{object V344 = list(3,VV[1],/* INLINE-ARGS */V342,list(3,VV[103],/* INLINE-ARGS */V343,(V316))); |
{object V344 = list(3,VV[1],/* INLINE-ARGS */V342,list(3,VV[103],/* INLINE-ARGS */V343,(V316))); |
1869 |
VMR31(V344)} |
VMR31(V344)} |
1870 |
goto T798; |
goto T798; |
1871 |
T798:; |
T798:; |
1872 |
if(((V317))==Cnil){ |
if(((V317))==Cnil){ |
1873 |
goto T801;} |
goto T801;} |
1875 |
V346= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V345)); |
V346= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V345)); |
1876 |
{object V347 = list(3,VV[1],/* INLINE-ARGS */V346,list(2,VV[3],(*(LnkLI129))((V316)))); |
{object V347 = list(3,VV[1],/* INLINE-ARGS */V346,list(2,VV[3],(*(LnkLI129))((V316)))); |
1877 |
VMR31(V347)} |
VMR31(V347)} |
1878 |
goto T801; |
goto T801; |
1879 |
T801:; |
T801:; |
1880 |
{object V348 = Cnil; |
{object V348 = Cnil; |
1881 |
VMR31(V348)} |
VMR31(V348)} |
1912 |
|
|
1913 |
object V355; |
object V355; |
1914 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1915 |
goto TTL; |
goto TTL; |
1916 |
TTL:; |
TTL:; |
1917 |
{object V356 = remprop((V355),VV[33]); |
{object V356 = remprop((V355),VV[33]); |
1918 |
VMR33(V356)} |
VMR33(V356)} |
1942 |
register object V360; |
register object V360; |
1943 |
V359= base[3]; |
V359= base[3]; |
1944 |
V360= car((V359)); |
V360= car((V359)); |
1945 |
goto T807; |
goto T807; |
1946 |
T807:; |
T807:; |
1947 |
if(!(endp_prop((V359)))){ |
if(!(endp_prop((V359)))){ |
1948 |
goto T808;} |
goto T808;} |
1949 |
goto T803; |
goto T803; |
1950 |
goto T808; |
goto T808; |
1951 |
T808:; |
T808:; |
1952 |
if(!(type_of((V360))==t_symbol)){ |
if(!(type_of((V360))==t_symbol)){ |
1953 |
goto T814;} |
goto T814;} |
1964 |
if(V363==Cnil)goto T819; |
if(V363==Cnil)goto T819; |
1965 |
V362= V363; |
V362= V363; |
1966 |
goto T818; |
goto T818; |
1967 |
goto T819; |
goto T819; |
1968 |
T819:;} |
T819:;} |
1969 |
base[8]= VV[110]; |
base[8]= VV[110]; |
1970 |
base[10]= VV[111]; |
base[10]= VV[111]; |
1976 |
Lgentemp(); |
Lgentemp(); |
1977 |
vs_top=sup; |
vs_top=sup; |
1978 |
V362= vs_base[0]; |
V362= vs_base[0]; |
1979 |
goto T818; |
goto T818; |
1980 |
T818:; |
T818:; |
1981 |
V358= make_cons((V362),(V358)); |
V358= make_cons((V362),(V358)); |
1982 |
goto T812;} |
goto T812;} |
1983 |
goto T814; |
goto T814; |
1984 |
T814:; |
T814:; |
1985 |
base[7]= VV[112]; |
base[7]= VV[112]; |
1986 |
base[8]= (V360); |
base[8]= (V360); |
1988 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1989 |
Lerror(); |
Lerror(); |
1990 |
vs_top=sup; |
vs_top=sup; |
1991 |
goto T812; |
goto T812; |
1992 |
T812:; |
T812:; |
1993 |
V359= cdr((V359)); |
V359= cdr((V359)); |
1994 |
V360= car((V359)); |
V360= car((V359)); |
1995 |
goto T807;} |
goto T807;} |
1996 |
goto T803; |
goto T803; |
1997 |
T803:; |
T803:; |
1998 |
{object V365; |
{object V365; |
1999 |
{object V367; |
{object V367; |
2003 |
V366= Cnil; |
V366= Cnil; |
2004 |
goto T837;} |
goto T837;} |
2005 |
base[6]=V367=MMcons(Cnil,Cnil); |
base[6]=V367=MMcons(Cnil,Cnil); |
2006 |
goto T838; |
goto T838; |
2007 |
T838:; |
T838:; |
2008 |
(V367->c.c_car)= list(3,VV[113],list(2,VV[35],(V368->c.c_car)),(V369->c.c_car)); |
(V367->c.c_car)= list(3,VV[113],list(2,VV[35],(V368->c.c_car)),(V369->c.c_car)); |
2009 |
V368=MMcdr(V368); |
V368=MMcdr(V368); |
2013 |
goto T837;} |
goto T837;} |
2014 |
V367=MMcdr(V367)=MMcons(Cnil,Cnil); |
V367=MMcdr(V367)=MMcons(Cnil,Cnil); |
2015 |
goto T838;} |
goto T838;} |
2016 |
goto T837; |
goto T837; |
2017 |
T837:; |
T837:; |
2018 |
V365= make_cons(VV[113],V366); |
V365= make_cons(VV[113],V366); |
2019 |
V372= listA(4,VV[114],base[2],base[3],base[4]); |
V372= listA(4,VV[114],base[2],base[3],base[4]); |
2028 |
|
|
2029 |
object V374; |
object V374; |
2030 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
2031 |
goto TTL; |
goto TTL; |
2032 |
TTL:; |
TTL:; |
2033 |
{object V375; |
{object V375; |
2034 |
V375= Cnil;{object V376; |
V375= Cnil;{object V376; |
2036 |
goto T844;} |
goto T844;} |
2037 |
V376= Cnil; |
V376= Cnil; |
2038 |
goto T843; |
goto T843; |
2039 |
goto T844; |
goto T844; |
2040 |
T844:; |
T844:; |
2041 |
V375= get((V374),VV[76],Cnil); |
V375= get((V374),VV[76],Cnil); |
2042 |
V376= (V375); |
V376= (V375); |
2043 |
goto T843; |
goto T843; |
2044 |
T843:; |
T843:; |
2045 |
if(V376==Cnil)goto T842; |
if(V376==Cnil)goto T842; |
2046 |
goto T841; |
goto T841; |
2047 |
goto T842; |
goto T842; |
2048 |
T842:;} |
T842:;} |
2049 |
base[0]= VV[118]; |
base[0]= VV[118]; |
2050 |
base[1]= (V374); |
base[1]= (V374); |
2051 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2052 |
Lerror(); |
Lerror(); |
2053 |
vs_top=sup; |
vs_top=sup; |
2054 |
goto T841; |
goto T841; |
2055 |
T841:; |
T841:; |
2056 |
{object V377 = (V375); |
{object V377 = (V375); |
2057 |
VMR35(V377)}} |
VMR35(V377)}} |
2064 |
|
|
2065 |
object V379; |
object V379; |
2066 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
2067 |
goto TTL; |
goto TTL; |
2068 |
TTL:;{object V380; |
TTL:;{object V380; |
2069 |
V380= get((V379),VV[119],Cnil); |
V380= get((V379),VV[119],Cnil); |
2070 |
if(V380==Cnil)goto T849; |
if(V380==Cnil)goto T849; |
2071 |
{object V381 = V380; |
{object V381 = V380; |
2072 |
VMR36(V381)} |
VMR36(V381)} |
2073 |
goto T849; |
goto T849; |
2074 |
T849:;} |
T849:;} |
2075 |
V382= list(3,VV[5],VV[119],list(2,VV[35],(V379))); |
V382= list(3,VV[5],VV[119],list(2,VV[35],(V379))); |
2076 |
{object V383 = sputprop((V379),VV[120],/* INLINE-ARGS */V382); |
{object V383 = sputprop((V379),VV[120],/* INLINE-ARGS */V382); |
2083 |
|
|
2084 |
object V386;object V387; |
object V386;object V387; |
2085 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
2086 |
goto TTL; |
goto TTL; |
2087 |
TTL:; |
TTL:; |
2088 |
{object V388; |
{object V388; |
2089 |
V388= Cnil; |
V388= Cnil; |
2096 |
V390= list(3,VV[122],/* INLINE-ARGS */V389,list(2,VV[35],(V388))); |
V390= list(3,VV[122],/* INLINE-ARGS */V389,list(2,VV[35],(V388))); |
2097 |
{object V391 = (*(LnkLI123))(/* INLINE-ARGS */V390); |
{object V391 = (*(LnkLI123))(/* INLINE-ARGS */V390); |
2098 |
VMR37(V391)} |
VMR37(V391)} |
2099 |
goto T853; |
goto T853; |
2100 |
T853:; |
T853:; |
2101 |
{object V392 = Cnil; |
{object V392 = Cnil; |
2102 |
VMR37(V392)}} |
VMR37(V392)}} |