28 |
if(!(eql(V5,VV[3]))){ |
if(!(eql(V5,VV[3]))){ |
29 |
goto T5;} |
goto T5;} |
30 |
goto T4; |
goto T4; |
31 |
goto T5; |
goto T5; |
32 |
T5:; |
T5:; |
33 |
base[3]= VV[4]; |
base[3]= VV[4]; |
34 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
35 |
Lerror(); |
Lerror(); |
36 |
vs_top=sup; |
vs_top=sup; |
37 |
goto T4; |
goto T4; |
38 |
T4:; |
T4:; |
39 |
goto T12; |
goto T12; |
40 |
T12:; |
T12:; |
41 |
{register object V6; |
{register object V6; |
42 |
base[3]= (V1); |
base[3]= (V1); |
47 |
if(!(eql((V6),VV[3]))){ |
if(!(eql((V6),VV[3]))){ |
48 |
goto T18;} |
goto T18;} |
49 |
goto T10; |
goto T10; |
50 |
goto T18; |
goto T18; |
51 |
T18:; |
T18:; |
52 |
if(!(eql((V6),VV[5]))){ |
if(!(eql((V6),VV[5]))){ |
53 |
goto T16;} |
goto T16;} |
63 |
goto T28; |
goto T28; |
64 |
}else V9=V9->c.c_cdr; |
}else V9=V9->c.c_cdr; |
65 |
V8= Cnil;} |
V8= Cnil;} |
66 |
goto T28; |
goto T28; |
67 |
T28:; |
T28:; |
68 |
V7= cdr(V8); |
V7= cdr(V8); |
69 |
if(V7==Cnil)goto T26; |
if(V7==Cnil)goto T26; |
70 |
V6= V7; |
V6= V7; |
71 |
goto T25; |
goto T25; |
72 |
goto T26; |
goto T26; |
73 |
T26:;} |
T26:;} |
74 |
goto T25; |
goto T25; |
75 |
T25:; |
T25:; |
76 |
goto T16; |
goto T16; |
77 |
T16:; |
T16:; |
78 |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V6),(V4))));} |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V6),(V4))));} |
79 |
goto T12; |
goto T12; |
80 |
goto T10; |
goto T10; |
81 |
T10:; |
T10:; |
82 |
base[3]= (V4); |
base[3]= (V4); |
83 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
99 |
if(vs_base>=vs_top){vs_top=sup;goto T30;} |
if(vs_base>=vs_top){vs_top=sup;goto T30;} |
100 |
vs_top=sup; |
vs_top=sup; |
101 |
goto T31; |
goto T31; |
102 |
goto T30; |
goto T30; |
103 |
T30:; |
T30:; |
104 |
base[1]= small_fixnum(0); |
base[1]= small_fixnum(0); |
105 |
goto T31; |
goto T31; |
106 |
T31:; |
T31:; |
107 |
bds_bind(VV[7],Ct); |
bds_bind(VV[7],Ct); |
108 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
124 |
goto T42;} |
goto T42;} |
125 |
V11= Cnil; |
V11= Cnil; |
126 |
goto T41; |
goto T41; |
127 |
goto T42; |
goto T42; |
128 |
T42:; |
T42:; |
129 |
V11= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
V11= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
130 |
goto T41; |
goto T41; |
131 |
T41:; |
T41:; |
132 |
if(V11==Cnil)goto T40; |
if(V11==Cnil)goto T40; |
133 |
goto T39; |
goto T39; |
134 |
goto T40; |
goto T40; |
135 |
T40:;} |
T40:;} |
136 |
base[6]= VV[8]; |
base[6]= VV[8]; |
137 |
base[7]= base[1]; |
base[7]= base[1]; |
138 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
139 |
Lerror(); |
Lerror(); |
140 |
vs_top=sup; |
vs_top=sup; |
141 |
goto T39; |
goto T39; |
142 |
T39:; |
T39:; |
143 |
{object V12; |
{object V12; |
144 |
V13= number_minus(base[3],base[1]); |
V13= number_minus(base[3],base[1]); |
150 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
151 |
Lfile_position(); |
Lfile_position(); |
152 |
vs_top=sup; |
vs_top=sup; |
153 |
goto T47; |
goto T47; |
154 |
T47:; |
T47:; |
155 |
base[6]= (V12); |
base[6]= (V12); |
156 |
base[7]= small_fixnum(0); |
base[7]= small_fixnum(0); |
173 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
174 |
Lclose(); |
Lclose(); |
175 |
vs_top=sup; |
vs_top=sup; |
176 |
goto T57; |
goto T57; |
177 |
T57:; |
T57:; |
178 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
179 |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
202 |
V16= 0; |
V16= 0; |
203 |
V17= 0; |
V17= 0; |
204 |
V18= (long)length((V14)); |
V18= (long)length((V14)); |
205 |
goto T66; |
goto T66; |
206 |
T66:; |
T66:; |
207 |
if(!((V15)<(V18))){ |
if(!((V15)<(V18))){ |
208 |
goto T69;} |
goto T69;} |
209 |
goto T68; |
goto T68; |
210 |
goto T69; |
goto T69; |
211 |
T69:; |
T69:; |
212 |
goto T67; |
goto T67; |
213 |
goto T68; |
goto T68; |
214 |
T68:; |
T68:; |
215 |
{unsigned char V19= char_code(aref1((V14),V15)); |
{unsigned char V19= char_code(aref1((V14),V15)); |
216 |
V17= (long)(/* INLINE-ARGS */V19);} |
V17= (long)(/* INLINE-ARGS */V19);} |
225 |
V22= number_times(small_fixnum(10),V21); |
V22= number_times(small_fixnum(10),V21); |
226 |
V16= fix(number_plus(V20,/* INLINE-ARGS */V22)); |
V16= fix(number_plus(V20,/* INLINE-ARGS */V22)); |
227 |
goto T77; |
goto T77; |
228 |
goto T79; |
goto T79; |
229 |
T79:; |
T79:; |
230 |
goto T64; |
goto T64; |
231 |
goto T77; |
goto T77; |
232 |
T77:; |
T77:; |
233 |
goto T66; |
goto T66; |
234 |
goto T67; |
goto T67; |
235 |
T67:; |
T67:; |
236 |
goto T64; |
goto T64; |
237 |
goto T64; |
goto T64; |
238 |
goto T64; |
goto T64; |
239 |
T64:; |
T64:; |
240 |
base[2]= make_fixnum(V16); |
base[2]= make_fixnum(V16); |
241 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
277 |
V28= (long)(*(LnkLI94))(0); |
V28= (long)(*(LnkLI94))(0); |
278 |
V30 = make_fixnum(V28); |
V30 = make_fixnum(V28); |
279 |
V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30))); |
V24= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V27),V30))); |
280 |
goto T99; |
goto T99; |
281 |
T99:; |
T99:; |
282 |
V31 = make_fixnum(V28); |
V31 = make_fixnum(V28); |
283 |
V32 = make_fixnum(V24); |
V32 = make_fixnum(V24); |
285 |
if(!((/* INLINE-ARGS */V33)>=(0))){ |
if(!((/* INLINE-ARGS */V33)>=(0))){ |
286 |
goto T102;}} |
goto T102;}} |
287 |
goto T101; |
goto T101; |
288 |
goto T102; |
goto T102; |
289 |
T102:; |
T102:; |
290 |
goto T100; |
goto T100; |
291 |
goto T101; |
goto T101; |
292 |
T101:; |
T101:; |
293 |
V28= (long)(*(LnkLI94))(0); |
V28= (long)(*(LnkLI94))(0); |
294 |
base[3]= (V27); |
base[3]= (V27); |
306 |
V36= make_cons(V34,V35); |
V36= make_cons(V34,V35); |
307 |
V26= make_cons(/* INLINE-ARGS */V36,(V26)); |
V26= make_cons(/* INLINE-ARGS */V36,(V26)); |
308 |
goto T99; |
goto T99; |
309 |
goto T100; |
goto T100; |
310 |
T100:; |
T100:; |
311 |
goto T91; |
goto T91; |
312 |
goto T91; |
goto T91; |
313 |
goto T91; |
goto T91; |
314 |
T91:; |
T91:; |
315 |
V37 = make_fixnum(V28); |
V37 = make_fixnum(V28); |
316 |
{long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37))); |
{long V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V27),V37))); |
328 |
Lsubseq(); |
Lsubseq(); |
329 |
vs_top=sup; |
vs_top=sup; |
330 |
V25= vs_base[0]; |
V25= vs_base[0]; |
331 |
goto T115; |
goto T115; |
332 |
T115:; |
T115:; |
333 |
if(((V26))==Cnil){ |
if(((V26))==Cnil){ |
334 |
goto T126;} |
goto T126;} |
338 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
339 |
(void) (*Lnk98)(); |
(void) (*Lnk98)(); |
340 |
vs_top=sup; |
vs_top=sup; |
341 |
goto T126; |
goto T126; |
342 |
T126:; |
T126:; |
343 |
V41= nreverse((V26)); |
V41= nreverse((V26)); |
344 |
base[3]= make_cons((V25),/* INLINE-ARGS */V41); |
base[3]= make_cons((V25),/* INLINE-ARGS */V41); |
370 |
V46= 0; |
V46= 0; |
371 |
{register object V47; |
{register object V47; |
372 |
V47= Cnil; |
V47= Cnil; |
373 |
goto T136; |
goto T136; |
374 |
T136:; |
T136:; |
375 |
goto T139; |
goto T139; |
376 |
T139:; |
T139:; |
377 |
if(!((V43)<(V44))){ |
if(!((V43)<(V44))){ |
378 |
goto T142;} |
goto T142;} |
379 |
goto T141; |
goto T141; |
380 |
goto T142; |
goto T142; |
381 |
T142:; |
T142:; |
382 |
goto T140; |
goto T140; |
383 |
goto T141; |
goto T141; |
384 |
T141:; |
T141:; |
385 |
V45= aref1((V42),V43); |
V45= aref1((V42),V43); |
386 |
if(((VFUN_NARGS=2,(*(LnkLI99))((V45),VV[17])))==Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI99))((V45),VV[17])))==Cnil){ |
389 |
goto T150;} |
goto T150;} |
390 |
(void)((VFUN_NARGS=2,(*(LnkLI89))(VV[5],(V47)))); |
(void)((VFUN_NARGS=2,(*(LnkLI89))(VV[5],(V47)))); |
391 |
goto T146; |
goto T146; |
392 |
goto T150; |
goto T150; |
393 |
T150:; |
T150:; |
394 |
V46= (long)(V46)+(1); |
V46= (long)(V46)+(1); |
395 |
goto T146; |
goto T146; |
396 |
T146:; |
T146:; |
397 |
if(((V47))==Cnil){ |
if(((V47))==Cnil){ |
398 |
goto T153;} |
goto T153;} |
399 |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47)))); |
(void)((VFUN_NARGS=2,(*(LnkLI89))((V45),(V47)))); |
400 |
goto T153; |
goto T153; |
401 |
T153:; |
T153:; |
402 |
V43= (long)(V43)+(1); |
V43= (long)(V43)+(1); |
403 |
goto T139; |
goto T139; |
404 |
goto T140; |
goto T140; |
405 |
T140:; |
T140:; |
406 |
goto T137; |
goto T137; |
407 |
goto T137; |
goto T137; |
408 |
goto T137; |
goto T137; |
409 |
T137:; |
T137:; |
410 |
{register object V48; |
{register object V48; |
411 |
V48= (V47); |
V48= (V47); |
412 |
if(((V48))==Cnil){ |
if(((V48))==Cnil){ |
413 |
goto T161;} |
goto T161;} |
414 |
goto T159; |
goto T159; |
415 |
goto T161; |
goto T161; |
416 |
T161:; |
T161:; |
417 |
if(!((V46)>(0))){ |
if(!((V46)>(0))){ |
418 |
goto T164;} |
goto T164;} |
420 |
V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0))); |
V47= (VFUN_NARGS=5,(*(LnkLI88))(V49,VV[0],VV[1],VV[2],small_fixnum(0))); |
421 |
V43= 0; |
V43= 0; |
422 |
goto T136; |
goto T136; |
423 |
goto T164; |
goto T164; |
424 |
T164:; |
T164:; |
425 |
V47= (V42);} |
V47= (V42);} |
426 |
goto T159; |
goto T159; |
427 |
T159:; |
T159:; |
428 |
goto T134; |
goto T134; |
429 |
goto T134; |
goto T134; |
430 |
T134:; |
T134:; |
431 |
base[1]= (V47); |
base[1]= (V47); |
432 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
489 |
(void) (*Lnk101)(); |
(void) (*Lnk101)(); |
490 |
vs_top=sup; |
vs_top=sup; |
491 |
V52= vs_base[0]; |
V52= vs_base[0]; |
492 |
goto T187; |
goto T187; |
493 |
T187:; |
T187:; |
494 |
V56 = make_fixnum(V54); |
V56 = make_fixnum(V54); |
495 |
{long V57= fix((VFUN_NARGS=3,(*(LnkLI93))((V52),(V53),V56))); |
{long V57= fix((VFUN_NARGS=3,(*(LnkLI93))((V52),(V53),V56))); |
496 |
if(!((/* INLINE-ARGS */V57)>=(0))){ |
if(!((/* INLINE-ARGS */V57)>=(0))){ |
497 |
goto T190;}} |
goto T190;}} |
498 |
goto T189; |
goto T189; |
499 |
goto T190; |
goto T190; |
500 |
T190:; |
T190:; |
501 |
goto T188; |
goto T188; |
502 |
goto T189; |
goto T189; |
503 |
T189:; |
T189:; |
504 |
V54= (long)(*(LnkLI94))(0); |
V54= (long)(*(LnkLI94))(0); |
505 |
base[4]= (V53); |
base[4]= (V53); |
510 |
V58= vs_base[0]; |
V58= vs_base[0]; |
511 |
V55= make_cons(V58,(V55)); |
V55= make_cons(V58,(V55)); |
512 |
goto T187; |
goto T187; |
513 |
goto T188; |
goto T188; |
514 |
T188:; |
T188:; |
515 |
goto T185; |
goto T185; |
516 |
goto T185; |
goto T185; |
517 |
goto T185; |
goto T185; |
518 |
T185:; |
T185:; |
519 |
base[4]= nreverse((V55)); |
base[4]= nreverse((V55)); |
520 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
521 |
bds_unwind1; |
bds_unwind1; |
522 |
bds_unwind1; |
bds_unwind1; |
523 |
return; |
return; |
524 |
goto T177; |
goto T177; |
525 |
T177:; |
T177:; |
526 |
base[4]= Cnil; |
base[4]= Cnil; |
527 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
545 |
base[0]= V59; |
base[0]= V59; |
546 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
547 |
return; |
return; |
548 |
goto T200; |
goto T200; |
549 |
T200:;} |
T200:;} |
550 |
{object V60; |
{object V60; |
551 |
object V61; |
object V61; |
562 |
vs_top=sup; |
vs_top=sup; |
563 |
V63= vs_base[0]; |
V63= vs_base[0]; |
564 |
V62= car(V63); |
V62= car(V63); |
565 |
goto T204; |
goto T204; |
566 |
T204:; |
T204:; |
567 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
568 |
goto T209;} |
goto T209;} |
581 |
base[2]= V60; |
base[2]= V60; |
582 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
583 |
return;} |
return;} |
584 |
goto T209; |
goto T209; |
585 |
T209:; |
T209:; |
586 |
base[2]= Cnil; |
base[2]= Cnil; |
587 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
624 |
(void) (*Lnk101)(); |
(void) (*Lnk101)(); |
625 |
vs_top=sup; |
vs_top=sup; |
626 |
V66= vs_base[0]; |
V66= vs_base[0]; |
627 |
goto T232; |
goto T232; |
628 |
T232:; |
T232:; |
629 |
{long V70= fix((VFUN_NARGS=3,(*(LnkLI93))((V66),(V69),(V67)))); |
{long V70= fix((VFUN_NARGS=3,(*(LnkLI93))((V66),(V69),(V67)))); |
630 |
if(!((/* INLINE-ARGS */V70)>=(0))){ |
if(!((/* INLINE-ARGS */V70)>=(0))){ |
631 |
goto T235;}} |
goto T235;}} |
632 |
goto T234; |
goto T234; |
633 |
goto T235; |
goto T235; |
634 |
T235:; |
T235:; |
635 |
goto T233; |
goto T233; |
636 |
goto T234; |
goto T234; |
637 |
T234:; |
T234:; |
638 |
V67= make_fixnum((long)(*(LnkLI94))(0)); |
V67= make_fixnum((long)(*(LnkLI94))(0)); |
639 |
base[3]= (V69); |
base[3]= (V69); |
651 |
V73= make_cons(V71,V72); |
V73= make_cons(V71,V72); |
652 |
V68= make_cons(/* INLINE-ARGS */V73,(V68)); |
V68= make_cons(/* INLINE-ARGS */V73,(V68)); |
653 |
goto T232; |
goto T232; |
654 |
goto T233; |
goto T233; |
655 |
T233:; |
T233:; |
656 |
goto T230; |
goto T230; |
657 |
goto T230; |
goto T230; |
658 |
goto T230; |
goto T230; |
659 |
T230:; |
T230:; |
660 |
base[3]= nreverse((V68)); |
base[3]= nreverse((V68)); |
661 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
662 |
bds_unwind1; |
bds_unwind1; |
663 |
bds_unwind1; |
bds_unwind1; |
664 |
return; |
return; |
665 |
goto T222; |
goto T222; |
666 |
T222:; |
T222:; |
667 |
base[3]= Cnil; |
base[3]= Cnil; |
668 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
695 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
696 |
bds_unwind1; |
bds_unwind1; |
697 |
return; |
return; |
698 |
goto T250; |
goto T250; |
699 |
T250:; |
T250:; |
700 |
base[3]= VV[24]; |
base[3]= VV[24]; |
701 |
base[5]= (V74); |
base[5]= (V74); |
717 |
(void) (*Lnk96)(); |
(void) (*Lnk96)(); |
718 |
bds_unwind1; |
bds_unwind1; |
719 |
return; |
return; |
720 |
goto T259; |
goto T259; |
721 |
T259:; |
T259:; |
722 |
base[3]= VV[26]; |
base[3]= VV[26]; |
723 |
base[4]= (V76); |
base[4]= (V76); |
754 |
V81= Cnil; |
V81= Cnil; |
755 |
V82= Cnil; |
V82= Cnil; |
756 |
V83= Cnil; |
V83= Cnil; |
757 |
goto T268; |
goto T268; |
758 |
T268:; |
T268:; |
759 |
V84 = make_fixnum(V80); |
V84 = make_fixnum(V80); |
760 |
V80= fix((VFUN_NARGS=3,(*(LnkLI93))((V78),(V79),V84))); |
V80= fix((VFUN_NARGS=3,(*(LnkLI93))((V78),(V79),V84))); |
761 |
if(!((V80)>=(0))){ |
if(!((V80)>=(0))){ |
762 |
goto T271;} |
goto T271;} |
763 |
goto T270; |
goto T270; |
764 |
goto T271; |
goto T271; |
765 |
T271:; |
T271:; |
766 |
goto T269; |
goto T269; |
767 |
goto T270; |
goto T270; |
768 |
T270:;{object V85; |
T270:;{object V85; |
769 |
V85= make_fixnum(V80); |
V85= make_fixnum(V80); |
770 |
V80= (long)(*(LnkLI94))(0); |
V80= (long)(*(LnkLI94))(0); |
780 |
if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87)); |
if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87)); |
781 |
((V87))->c.c_cdr = (V88); |
((V87))->c.c_cdr = (V88); |
782 |
goto T277;} |
goto T277;} |
783 |
goto T279; |
goto T279; |
784 |
T279:; |
T279:; |
785 |
V82= make_cons((V83),Cnil); |
V82= make_cons((V83),Cnil); |
786 |
V81= (V82); |
V81= (V82); |
787 |
goto T277; |
goto T277; |
788 |
T277:; |
T277:; |
789 |
goto T268; |
goto T268; |
790 |
goto T269; |
goto T269; |
791 |
T269:; |
T269:; |
792 |
base[3]= (V81); |
base[3]= (V81); |
793 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
861 |
if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){ |
if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){ |
862 |
goto T292;} |
goto T292;} |
863 |
goto T291; |
goto T291; |
864 |
goto T292; |
goto T292; |
865 |
T292:; |
T292:; |
866 |
setq(VV[29],symbol_value(VV[30])); |
setq(VV[29],symbol_value(VV[30])); |
867 |
{object V95; |
{object V95; |
877 |
(void) (*Lnk105)(); |
(void) (*Lnk105)(); |
878 |
vs_top=sup; |
vs_top=sup; |
879 |
setq(VV[32],vs_base[0]); |
setq(VV[32],vs_base[0]); |
880 |
goto T291; |
goto T291; |
881 |
T291:; |
T291:; |
882 |
if(!(equal((V92),VV[33]))){ |
if(!(equal((V92),VV[33]))){ |
883 |
goto T303;} |
goto T303;} |
884 |
V92= VV[34]; |
V92= VV[34]; |
885 |
goto T303; |
goto T303; |
886 |
T303:; |
T303:; |
887 |
base[1]= (V92); |
base[1]= (V92); |
888 |
base[2]= symbol_value(VV[32]); |
base[2]= symbol_value(VV[32]); |
927 |
vs_top=sup; |
vs_top=sup; |
928 |
V94= vs_base[0]; |
V94= vs_base[0]; |
929 |
bds_unwind1;} |
bds_unwind1;} |
930 |
goto T313; |
goto T313; |
931 |
T313:; |
T313:; |
932 |
if(((V94))==Cnil){ |
if(((V94))==Cnil){ |
933 |
goto T334;} |
goto T334;} |
948 |
goto T342; |
goto T342; |
949 |
}else V100=V100->c.c_cdr; |
}else V100=V100->c.c_cdr; |
950 |
V93= Cnil;} |
V93= Cnil;} |
951 |
goto T342; |
goto T342; |
952 |
T342:; |
T342:; |
953 |
if(((V93))==Cnil){ |
if(((V93))==Cnil){ |
954 |
goto T340;} |
goto T340;} |
955 |
setq(VV[20],(V93)); |
setq(VV[20],(V93)); |
956 |
goto T332; |
goto T332; |
957 |
goto T340; |
goto T340; |
958 |
T340:; |
T340:; |
959 |
base[2]= (V99); |
base[2]= (V99); |
960 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
964 |
setq(VV[20],list(3,(V99),V101,Cnil)); |
setq(VV[20],list(3,(V99),V101,Cnil)); |
965 |
setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40]))); |
setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40]))); |
966 |
goto T332;} |
goto T332;} |
967 |
goto T334; |
goto T334; |
968 |
T334:; |
T334:; |
969 |
base[1]= Ct; |
base[1]= Ct; |
970 |
base[2]= VV[41]; |
base[2]= VV[41]; |
972 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
973 |
Lformat(); |
Lformat(); |
974 |
vs_top=sup; |
vs_top=sup; |
975 |
goto T332; |
goto T332; |
976 |
T332:; |
T332:; |
977 |
base[1]= Cnil; |
base[1]= Cnil; |
978 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
999 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1000 |
(void) (*Lnk108)(); |
(void) (*Lnk108)(); |
1001 |
return; |
return; |
1002 |
goto T353; |
goto T353; |
1003 |
T353:; |
T353:; |
1004 |
base[2]= (V102); |
base[2]= (V102); |
1005 |
base[3]= car(cadr(symbol_value(VV[20]))); |
base[3]= car(cadr(symbol_value(VV[20]))); |
1024 |
TTL:; |
TTL:; |
1025 |
{register object V106; |
{register object V106; |
1026 |
V106= (V104); |
V106= (V104); |
1027 |
goto T361; |
goto T361; |
1028 |
T361:; |
T361:; |
1029 |
if((V106)!=Cnil){ |
if((V106)!=Cnil){ |
1030 |
goto T363;} |
goto T363;} |
1031 |
goto T362; |
goto T362; |
1032 |
goto T363; |
goto T363; |
1033 |
T363:; |
T363:; |
1034 |
{register object V107; |
{register object V107; |
1035 |
register object V108; |
register object V108; |
1039 |
((V107))->c.c_car = (V108);} |
((V107))->c.c_car = (V108);} |
1040 |
V106= cdr((V106)); |
V106= cdr((V106)); |
1041 |
goto T361; |
goto T361; |
1042 |
goto T362; |
goto T362; |
1043 |
T362:; |
T362:; |
1044 |
goto T359; |
goto T359; |
1045 |
goto T359; |
goto T359; |
1046 |
goto T359; |
goto T359; |
1047 |
T359:; |
T359:; |
1048 |
base[2]= (V104); |
base[2]= (V104); |
1049 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1077 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1078 |
(void) (*Lnk109)(); |
(void) (*Lnk109)(); |
1079 |
return; |
return; |
1080 |
goto T372; |
goto T372; |
1081 |
T372:; |
T372:; |
1082 |
{object V111; |
{object V111; |
1083 |
V111= (V109); |
V111= (V109); |
1111 |
goto T384;} |
goto T384;} |
1112 |
V113= symbol_value(VV[44]); |
V113= symbol_value(VV[44]); |
1113 |
goto T382; |
goto T382; |
1114 |
goto T384; |
goto T384; |
1115 |
T384:; |
T384:; |
1116 |
base[1]= (V112); |
base[1]= (V112); |
1117 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1120 |
V114= vs_base[0]; |
V114= vs_base[0]; |
1121 |
setq(VV[44],make_cons((V112),V114)); |
setq(VV[44],make_cons((V112),V114)); |
1122 |
V113= symbol_value(VV[44]); |
V113= symbol_value(VV[44]); |
1123 |
goto T382; |
goto T382; |
1124 |
T382:; |
T382:; |
1125 |
base[1]= cdr(V113); |
base[1]= cdr(V113); |
1126 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1152 |
base[1]= Cnil; |
base[1]= Cnil; |
1153 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1154 |
return; |
return; |
1155 |
goto T389; |
goto T389; |
1156 |
T389:; |
T389:; |
1157 |
base[1]= VV[45]; |
base[1]= VV[45]; |
1158 |
base[2]= (V115); |
base[2]= (V115); |
1166 |
base[1]= Cnil; |
base[1]= Cnil; |
1167 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1168 |
return; |
return; |
1169 |
goto T392; |
goto T392; |
1170 |
T392:; |
T392:; |
1171 |
base[1]= VV[48]; |
base[1]= VV[48]; |
1172 |
base[2]= VV[49]; |
base[2]= VV[49]; |
1197 |
base[1]= Cnil; |
base[1]= Cnil; |
1198 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1199 |
return; |
return; |
1200 |
goto T401; |
goto T401; |
1201 |
T401:; |
T401:; |
1202 |
base[1]= VV[48]; |
base[1]= VV[48]; |
1203 |
base[2]= VV[49]; |
base[2]= VV[49]; |
1230 |
if(number_compare((V117),small_fixnum(0))>=0){ |
if(number_compare((V117),small_fixnum(0))>=0){ |
1231 |
goto T409;} |
goto T409;} |
1232 |
goto T408; |
goto T408; |
1233 |
goto T409; |
goto T409; |
1234 |
T409:; |
T409:; |
1235 |
{register object V121; |
{register object V121; |
1236 |
register object V122; |
register object V122; |
1237 |
V121= (V118); |
V121= (V118); |
1238 |
V122= car((V121)); |
V122= car((V121)); |
1239 |
goto T414; |
goto T414; |
1240 |
T414:; |
T414:; |
1241 |
if(!(endp_prop((V121)))){ |
if(!(endp_prop((V121)))){ |
1242 |
goto T415;} |
goto T415;} |
1243 |
goto T408; |
goto T408; |
1244 |
goto T415; |
goto T415; |
1245 |
T415:; |
T415:; |
1246 |
if(!(number_compare(car((V122)),(V117))>0)){ |
if(!(number_compare(car((V122)),(V117))>0)){ |
1247 |
goto T419;} |
goto T419;} |
1248 |
V120= car((V122)); |
V120= car((V122)); |
1249 |
goto T408; |
goto T408; |
1250 |
goto T419; |
goto T419; |
1251 |
T419:; |
T419:; |
1252 |
V119= (V122); |
V119= (V122); |
1253 |
V121= cdr((V121)); |
V121= cdr((V121)); |
1254 |
V122= car((V121)); |
V122= car((V121)); |
1255 |
goto T414;} |
goto T414;} |
1256 |
goto T408; |
goto T408; |
1257 |
T408:; |
T408:; |
1258 |
if((V119)!=Cnil){ |
if((V119)!=Cnil){ |
1259 |
base[1]= (V119); |
base[1]= (V119); |
1260 |
goto T431;} |
goto T431;} |
1261 |
base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20]))); |
base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20]))); |
1262 |
goto T431; |
goto T431; |
1263 |
T431:; |
T431:; |
1264 |
base[2]= (V120); |
base[2]= (V120); |
1265 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1294 |
vs_top=sup; |
vs_top=sup; |
1295 |
V126= vs_base[0]; |
V126= vs_base[0]; |
1296 |
V127= number_minus((V123),car((V125))); |
V127= number_minus((V123),car((V125))); |
1297 |
goto T441; |
goto T441; |
1298 |
T441:; |
T441:; |
1299 |
{long V128= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V126),(V124),(V127)))); |
{long V128= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V126),(V124),(V127)))); |
1300 |
if(!((/* INLINE-ARGS */V128)>=(0))){ |
if(!((/* INLINE-ARGS */V128)>=(0))){ |
1301 |
goto T444;}} |
goto T444;}} |
1302 |
goto T443; |
goto T443; |
1303 |
goto T444; |
goto T444; |
1304 |
T444:; |
T444:; |
1305 |
goto T442; |
goto T442; |
1306 |
goto T443; |
goto T443; |
1307 |
T443:; |
T443:; |
1308 |
V124= make_fixnum((long)(*(LnkLI94))(0)); |
V124= make_fixnum((long)(*(LnkLI94))(0)); |
1309 |
goto T441; |
goto T441; |
1310 |
goto T442; |
goto T442; |
1311 |
T442:; |
T442:; |
1312 |
goto T439; |
goto T439; |
1313 |
goto T439; |
goto T439; |
1314 |
goto T439; |
goto T439; |
1315 |
T439:; |
T439:; |
1316 |
V124= number_minus((V124),small_fixnum(1)); |
V124= number_minus((V124),small_fixnum(1)); |
1317 |
{long V129= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V126),(V124)))); |
{long V129= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V126),(V124)))); |
1335 |
goto T461;}} |
goto T461;}} |
1336 |
V133= make_fixnum((long)(*(LnkLI95))(0)); |
V133= make_fixnum((long)(*(LnkLI95))(0)); |
1337 |
goto T459; |
goto T459; |
1338 |
goto T461; |
goto T461; |
1339 |
T461:; |
T461:; |
1340 |
V133= make_fixnum((long)length((V126))); |
V133= make_fixnum((long)length((V126))); |
1341 |
goto T459; |
goto T459; |
1342 |
T459:; |
T459:; |
1343 |
V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20])); |
V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20])); |
1344 |
base[9]= (V134); |
base[9]= (V134); |
1345 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1346 |
return;} |
return;} |
1347 |
goto T452; |
goto T452; |
1348 |
T452:; |
T452:; |
1349 |
base[4]= Cnil; |
base[4]= Cnil; |
1350 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1372 |
V138=(base[2]); |
V138=(base[2]); |
1373 |
vs_top=sup; |
vs_top=sup; |
1374 |
goto T466; |
goto T466; |
1375 |
goto T464; |
goto T464; |
1376 |
T464:; |
T464:; |
1377 |
V137= Cnil; |
V137= Cnil; |
1378 |
goto T465; |
goto T465; |
1379 |
T465:; |
T465:; |
1380 |
V138= symbol_value(VV[43]); |
V138= symbol_value(VV[43]); |
1381 |
goto T466; |
goto T466; |
1382 |
T466:; |
T466:; |
1383 |
{register object V139; |
{register object V139; |
1384 |
register object V140; |
register object V140; |
1395 |
goto T474;} |
goto T474;} |
1396 |
V140= cadr((V136)); |
V140= cadr((V136)); |
1397 |
V136= car((V136)); |
V136= car((V136)); |
1398 |
goto T474; |
goto T474; |
1399 |
T474:; |
T474:; |
1400 |
if(!(type_of((V136))==t_cons)){ |
if(!(type_of((V136))==t_cons)){ |
1401 |
goto T473;} |
goto T473;} |
1402 |
V137= car((V136)); |
V137= car((V136)); |
1403 |
V136= cdr((V136)); |
V136= cdr((V136)); |
1404 |
goto T473; |
goto T473; |
1405 |
T473:; |
T473:; |
1406 |
if(!(type_of((V136))==t_string)){ |
if(!(type_of((V136))==t_string)){ |
1407 |
goto T488;} |
goto T488;} |
1408 |
goto T487; |
goto T487; |
1409 |
goto T488; |
goto T488; |
1410 |
T488:; |
T488:; |
1411 |
base[4]= VV[55]; |
base[4]= VV[55]; |
1412 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1413 |
(void) (*Lnk98)(); |
(void) (*Lnk98)(); |
1414 |
vs_top=sup; |
vs_top=sup; |
1415 |
goto T487; |
goto T487; |
1416 |
T487:; |
T487:; |
1417 |
base[4]= symbol_value(VV[56]); |
base[4]= symbol_value(VV[56]); |
1418 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1436 |
if(!(equal((V136),VV[58]))){ |
if(!(equal((V136),VV[58]))){ |
1437 |
goto T493;} |
goto T493;} |
1438 |
V136= VV[59]; |
V136= VV[59]; |
1439 |
goto T493; |
goto T493; |
1440 |
T493:; |
T493:; |
1441 |
if(((V140))==Cnil){ |
if(((V140))==Cnil){ |
1442 |
goto T507;} |
goto T507;} |
1444 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1445 |
(void) (*Lnk114)(); |
(void) (*Lnk114)(); |
1446 |
vs_top=sup; |
vs_top=sup; |
1447 |
goto T507; |
goto T507; |
1448 |
T507:; |
T507:; |
1449 |
{object V144; |
{object V144; |
1450 |
base[4]= (V136); |
base[4]= (V136); |
1465 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1466 |
bds_unwind1; |
bds_unwind1; |
1467 |
return; |
return; |
1468 |
goto T514; |
goto T514; |
1469 |
T514:; |
T514:; |
1470 |
base[4]= (V144); |
base[4]= (V144); |
1471 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1505 |
goto T539;}} |
goto T539;}} |
1506 |
V151= make_fixnum((long)(*(LnkLI95))(0)); |
V151= make_fixnum((long)(*(LnkLI95))(0)); |
1507 |
goto T537; |
goto T537; |
1508 |
goto T539; |
goto T539; |
1509 |
T539:; |
T539:; |
1510 |
V151= make_fixnum((long)length((V145))); |
V151= make_fixnum((long)length((V145))); |
1511 |
goto T537; |
goto T537; |
1512 |
T537:; |
T537:; |
1513 |
V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20])); |
V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20])); |
1514 |
if(((V137))==Cnil){ |
if(((V137))==Cnil){ |
1533 |
if(!((/* INLINE-ARGS */V155)>=(0))){ |
if(!((/* INLINE-ARGS */V155)>=(0))){ |
1534 |
bds_unwind1; |
bds_unwind1; |
1535 |
goto T542;}} |
goto T542;}} |
1536 |
goto T548; |
goto T548; |
1537 |
T548:; |
T548:; |
1538 |
V156 = make_fixnum((long)(*(LnkLI95))(0)); |
V156 = make_fixnum((long)(*(LnkLI95))(0)); |
1539 |
V141= fix(number_minus(V156,(V150))); |
V141= fix(number_minus(V156,(V150))); |
1540 |
bds_unwind1; |
bds_unwind1; |
1541 |
goto T542; |
goto T542; |
1542 |
T542:; |
T542:; |
1543 |
if(((V138))==Cnil){ |
if(((V138))==Cnil){ |
1544 |
goto T559;} |
goto T559;} |
1557 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1558 |
bds_unwind1; |
bds_unwind1; |
1559 |
return;} |
return;} |
1560 |
goto T559; |
goto T559; |
1561 |
T559:; |
T559:; |
1562 |
{object V158; |
{object V158; |
1563 |
if(!((V142)>=(0))){ |
if(!((V142)>=(0))){ |
1574 |
goto T568;}} |
goto T568;}} |
1575 |
V158= make_fixnum((long)(*(LnkLI95))(0)); |
V158= make_fixnum((long)(*(LnkLI95))(0)); |
1576 |
goto T566; |
goto T566; |
1577 |
goto T568; |
goto T568; |
1578 |
T568:; |
T568:; |
1579 |
V158= (V151); |
V158= (V151); |
1580 |
goto T566; |
goto T566; |
1581 |
T566:; |
T566:; |
1582 |
base[10]= (V145); |
base[10]= (V145); |
1583 |
V161 = make_fixnum(V141); |
V161 = make_fixnum(V141); |
1587 |
Lsubseq(); |
Lsubseq(); |
1588 |
bds_unwind1; |
bds_unwind1; |
1589 |
return;}} |
return;}} |
1590 |
goto T528; |
goto T528; |
1591 |
T528:; |
T528:; |
1592 |
base[6]= VV[67]; |
base[6]= VV[67]; |
1593 |
base[7]= (V136); |
base[7]= (V136); |
1627 |
V167= Cnil; |
V167= Cnil; |
1628 |
V168= Cnil; |
V168= Cnil; |
1629 |
V169= Cnil; |
V169= Cnil; |
1630 |
goto T584; |
goto T584; |
1631 |
T584:; |
T584:; |
1632 |
if(((V165))==Cnil){ |
if(((V165))==Cnil){ |
1633 |
goto T587;} |
goto T587;} |
1634 |
goto T586; |
goto T586; |
1635 |
goto T587; |
goto T587; |
1636 |
T587:; |
T587:; |
1637 |
goto T585; |
goto T585; |
1638 |
goto T586; |
goto T586; |
1639 |
T586:; |
T586:; |
1640 |
{object V170; |
{object V170; |
1641 |
V170= car((V165)); |
V170= car((V165)); |
1668 |
if(((V172))!=Cnil){ |
if(((V172))!=Cnil){ |
1669 |
goto T605;}} |
goto T605;}} |
1670 |
goto T601; |
goto T601; |
1671 |
goto T605; |
goto T605; |
1672 |
T605:; |
T605:; |
1673 |
base[2]= cdr((V167)); |
base[2]= cdr((V167)); |
1674 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1676 |
vs_top=sup; |
vs_top=sup; |
1677 |
V167= vs_base[0]; |
V167= vs_base[0]; |
1678 |
goto T601; |
goto T601; |
1679 |
goto T603; |
goto T603; |
1680 |
T603:; |
T603:; |
1681 |
V166= (V168); |
V166= (V168); |
1682 |
base[2]= (V166); |
base[2]= (V166); |
1684 |
Llast(); |
Llast(); |
1685 |
vs_top=sup; |
vs_top=sup; |
1686 |
V167= vs_base[0]; |
V167= vs_base[0]; |
1687 |
goto T601; |
goto T601; |
1688 |
T601:; |
T601:; |
1689 |
base[4]= (V162); |
base[4]= (V162); |
1690 |
base[5]= VV[42]; |
base[5]= VV[42]; |
1710 |
if(((V174))!=Cnil){ |
if(((V174))!=Cnil){ |
1711 |
goto T625;}} |
goto T625;}} |
1712 |
goto T621; |
goto T621; |
1713 |
goto T625; |
goto T625; |
1714 |
T625:; |
T625:; |
1715 |
base[2]= cdr((V167)); |
base[2]= cdr((V167)); |
1716 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1718 |
vs_top=sup; |
vs_top=sup; |
1719 |
V167= vs_base[0]; |
V167= vs_base[0]; |
1720 |
goto T621; |
goto T621; |
1721 |
goto T623; |
goto T623; |
1722 |
T623:; |
T623:; |
1723 |
V166= (V169); |
V166= (V169); |
1724 |
base[2]= (V166); |
base[2]= (V166); |
1726 |
Llast(); |
Llast(); |
1727 |
vs_top=sup; |
vs_top=sup; |
1728 |
V167= vs_base[0]; |
V167= vs_base[0]; |
1729 |
goto T621; |
goto T621; |
1730 |
T621:; |
T621:; |
1731 |
V165= cdr((V165)); |
V165= cdr((V165)); |
1732 |
goto T584; |
goto T584; |
1733 |
goto T585; |
goto T585; |
1734 |
T585:; |
T585:; |
1735 |
base[2]= (V166); |
base[2]= (V166); |
1736 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1763 |
V177=(base[2]); |
V177=(base[2]); |
1764 |
vs_top=sup; |
vs_top=sup; |
1765 |
goto T640; |
goto T640; |
1766 |
goto T638; |
goto T638; |
1767 |
T638:; |
T638:; |
1768 |
V176= Cnil; |
V176= Cnil; |
1769 |
goto T639; |
goto T639; |
1770 |
T639:; |
T639:; |
1771 |
V177= Cnil; |
V177= Cnil; |
1772 |
goto T640; |
goto T640; |
1773 |
T640:; |
T640:; |
1774 |
{register object V178; |
{register object V178; |
1775 |
V178= Cnil; |
V178= Cnil; |
1776 |
if((V176)!=Cnil){ |
if((V176)!=Cnil){ |
1777 |
goto T644;} |
goto T644;} |
1778 |
V176= small_fixnum(0); |
V176= small_fixnum(0); |
1779 |
goto T644; |
goto T644; |
1780 |
T644:; |
T644:; |
1781 |
goto T648; |
goto T648; |
1782 |
T648:; |
T648:; |
1783 |
if((V176)!=Cnil){ |
if((V176)!=Cnil){ |
1784 |
goto T650;} |
goto T650;} |
1785 |
goto T649; |
goto T649; |
1786 |
goto T650; |
goto T650; |
1787 |
T650:; |
T650:; |
1788 |
{register object V179; |
{register object V179; |
1789 |
register object V180; |
register object V180; |
1797 |
V180= vs_base[0]; |
V180= vs_base[0]; |
1798 |
vs_top=sup; |
vs_top=sup; |
1799 |
goto T656; |
goto T656; |
1800 |
goto T654; |
goto T654; |
1801 |
T654:; |
T654:; |
1802 |
V179= Cnil; |
V179= Cnil; |
1803 |
goto T655; |
goto T655; |
1804 |
T655:; |
T655:; |
1805 |
V180= Cnil; |
V180= Cnil; |
1806 |
goto T656; |
goto T656; |
1807 |
T656:; |
T656:; |
1808 |
V178= (V180); |
V178= (V180); |
1809 |
if((V177)==Cnil){ |
if((V177)==Cnil){ |
1813 |
if(number_compare((V177),(V178))<0){ |
if(number_compare((V177),(V178))<0){ |
1814 |
goto T660;} |
goto T660;} |
1815 |
goto T659; |
goto T659; |
1816 |
goto T660; |
goto T660; |
1817 |
T660:; |
T660:; |
1818 |
V178= (V177); |
V178= (V177); |
1819 |
goto T659; |
goto T659; |
1820 |
T659:; |
T659:; |
1821 |
{register object V181; |
{register object V181; |
1822 |
register object V182; |
register object V182; |
1834 |
goto T673;} |
goto T673;} |
1835 |
V185= number_minus((V178),(V182)); |
V185= number_minus((V178),(V182)); |
1836 |
goto T671; |
goto T671; |
1837 |
goto T673; |
goto T673; |
1838 |
T673:; |
T673:; |
1839 |
V185= (V184); |
V185= (V184); |
1840 |
goto T671; |
goto T671; |
1841 |
T671:; |
T671:; |
1842 |
{long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185))); |
{long V186= fix((VFUN_NARGS=4,(*(LnkLI93))((V175),(V181),(V183),V185))); |
1843 |
if(!((/* INLINE-ARGS */V186)>=(0))){ |
if(!((/* INLINE-ARGS */V186)>=(0))){ |
1846 |
base[7]= number_plus((V182),V187); |
base[7]= number_plus((V182),V187); |
1847 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1848 |
return;} |
return;} |
1849 |
goto T663; |
goto T663; |
1850 |
T663:; |
T663:; |
1851 |
V176= (V180);} |
V176= (V180);} |
1852 |
goto T648; |
goto T648; |
1853 |
goto T649; |
goto T649; |
1854 |
T649:; |
T649:; |
1855 |
goto T646; |
goto T646; |
1856 |
goto T646; |
goto T646; |
1857 |
goto T646; |
goto T646; |
1858 |
T646:; |
T646:; |
1859 |
base[3]= small_fixnum(-1); |
base[3]= small_fixnum(-1); |
1860 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1884 |
register object V191; |
register object V191; |
1885 |
V190= (V189); |
V190= (V189); |
1886 |
V191= car((V190)); |
V191= car((V190)); |
1887 |
goto T683; |
goto T683; |
1888 |
T683:; |
T683:; |
1889 |
if(!(endp_prop((V190)))){ |
if(!(endp_prop((V190)))){ |
1890 |
goto T684;} |
goto T684;} |
1891 |
base[3]= Cnil; |
base[3]= Cnil; |
1892 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1893 |
return; |
return; |
1894 |
goto T684; |
goto T684; |
1895 |
T684:; |
T684:; |
1896 |
if(!(type_of(car((V191)))==t_cons)){ |
if(!(type_of(car((V191)))==t_cons)){ |
1897 |
goto T692;} |
goto T692;} |
1898 |
if(!(equalp(caar((V191)),(V188)))){ |
if(!(equalp(caar((V191)),(V188)))){ |
1899 |
goto T688;} |
goto T688;} |
1900 |
goto T690; |
goto T690; |
1901 |
goto T692; |
goto T692; |
1902 |
T692:; |
T692:; |
1903 |
if(!(equalp(car((V191)),(V188)))){ |
if(!(equalp(car((V191)),(V188)))){ |
1904 |
goto T688;} |
goto T688;} |
1905 |
goto T690; |
goto T690; |
1906 |
T690:; |
T690:; |
1907 |
base[3]= Ct; |
base[3]= Ct; |
1908 |
base[4]= VV[70]; |
base[4]= VV[70]; |
1918 |
vs_top=sup; |
vs_top=sup; |
1919 |
V192= vs_base[0]; |
V192= vs_base[0]; |
1920 |
(void)(princ(V192,Cnil)); |
(void)(princ(V192,Cnil)); |
1921 |
goto T688; |
goto T688; |
1922 |
T688:; |
T688:; |
1923 |
V190= cdr((V190)); |
V190= cdr((V190)); |
1924 |
V191= car((V190)); |
V191= car((V190)); |
1942 |
V194=(base[1]); |
V194=(base[1]); |
1943 |
vs_top=sup; |
vs_top=sup; |
1944 |
goto T708; |
goto T708; |
1945 |
goto T707; |
goto T707; |
1946 |
T707:; |
T707:; |
1947 |
V194= symbol_value(VV[69]); |
V194= symbol_value(VV[69]); |
1948 |
goto T708; |
goto T708; |
1949 |
T708:; |
T708:; |
1950 |
{object V195; |
{object V195; |
1951 |
register object V196; |
register object V196; |
1969 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
1970 |
bds_unwind1; |
bds_unwind1; |
1971 |
return; |
return; |
1972 |
goto T717; |
goto T717; |
1973 |
T717:; |
T717:; |
1974 |
if(((V198))==Cnil){ |
if(((V198))==Cnil){ |
1975 |
goto T722;} |
goto T722;} |
1983 |
V201= (V198); |
V201= (V198); |
1984 |
{object V202; |
{object V202; |
1985 |
V202= Cnil; |
V202= Cnil; |
1986 |
goto T728; |
goto T728; |
1987 |
T728:; |
T728:; |
1988 |
if(((V201))==Cnil){ |
if(((V201))==Cnil){ |
1989 |
goto T731;} |
goto T731;} |
1990 |
goto T730; |
goto T730; |
1991 |
goto T731; |
goto T731; |
1992 |
T731:; |
T731:; |
1993 |
goto T729; |
goto T729; |
1994 |
goto T730; |
goto T730; |
1995 |
T730:; |
T730:; |
1996 |
{object V203; |
{object V203; |
1997 |
V203= car((V201)); |
V203= car((V201)); |
2004 |
goto T741;} |
goto T741;} |
2005 |
V196= cadr((V200)); |
V196= cadr((V200)); |
2006 |
V200= car((V200)); |
V200= car((V200)); |
2007 |
goto T741; |
goto T741; |
2008 |
T741:; |
T741:; |
2009 |
if(!(type_of((V200))==t_cons)){ |
if(!(type_of((V200))==t_cons)){ |
2010 |
goto T740;} |
goto T740;} |
2011 |
V197= car((V200)); |
V197= car((V200)); |
2012 |
V200= cdr((V200)); |
V200= cdr((V200)); |
2013 |
goto T740; |
goto T740; |
2014 |
T740:; |
T740:; |
2015 |
base[4]= Ct; |
base[4]= Ct; |
2016 |
base[5]= VV[71]; |
base[5]= VV[71]; |
2020 |
goto T761;} |
goto T761;} |
2021 |
base[8]= Cnil; |
base[8]= Cnil; |
2022 |
goto T759; |
goto T759; |
2023 |
goto T761; |
goto T761; |
2024 |
T761:; |
T761:; |
2025 |
V202= (V196); |
V202= (V196); |
2026 |
base[8]= (V202); |
base[8]= (V202); |
2027 |
goto T759; |
goto T759; |
2028 |
T759:; |
T759:; |
2029 |
base[9]= (V200); |
base[9]= (V200); |
2030 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
2033 |
if(!((V199)<(2147483646))){ |
if(!((V199)<(2147483646))){ |
2034 |
goto T766;} |
goto T766;} |
2035 |
goto T765; |
goto T765; |
2036 |
goto T766; |
goto T766; |
2037 |
T766:; |
T766:; |
2038 |
(void)((*(LnkLI122))()); |
(void)((*(LnkLI122))()); |
2039 |
goto T765; |
goto T765; |
2040 |
T765:; |
T765:; |
2041 |
V199= (long)(V199)+(1); |
V199= (long)(V199)+(1); |
2042 |
V201= cdr((V201)); |
V201= cdr((V201)); |
2043 |
goto T728; |
goto T728; |
2044 |
goto T729; |
goto T729; |
2045 |
T729:; |
T729:; |
2046 |
goto T725; |
goto T725; |
2047 |
goto T725;}}} |
goto T725;}}} |
2048 |
goto T725; |
goto T725; |
2049 |
T725:; |
T725:; |
2050 |
if(!(((long)length((V198)))>(1))){ |
if(!(((long)length((V198)))>(1))){ |
2051 |
goto T775;} |
goto T775;} |
2055 |
Lformat(); |
Lformat(); |
2056 |
vs_top=sup; |
vs_top=sup; |
2057 |
goto T773; |
goto T773; |
2058 |
goto T775; |
goto T775; |
2059 |
T775:; |
T775:; |
2060 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
2061 |
goto T773; |
goto T773; |
2062 |
T773:; |
T773:; |
2063 |
{object V204; |
{object V204; |
2064 |
object V205; |
object V205; |
2070 |
vs_top=sup; |
vs_top=sup; |
2071 |
V204= vs_base[0]; |
V204= vs_base[0]; |
2072 |
goto T779; |
goto T779; |
2073 |
goto T781; |
goto T781; |
2074 |
T781:; |
T781:; |
2075 |
V204= VV[74]; |
V204= VV[74]; |
2076 |
goto T779; |
goto T779; |
2077 |
T779:; |
T779:; |
2078 |
V205= small_fixnum(0); |
V205= small_fixnum(0); |
2079 |
V206= Cnil; |
V206= Cnil; |
2080 |
goto T785; |
goto T785; |
2081 |
T785:; |
T785:; |
2082 |
if(!(equal((V204),VV[75]))){ |
if(!(equal((V204),VV[75]))){ |
2083 |
goto T788;} |
goto T788;} |
2084 |
goto T787; |
goto T787; |
2085 |
goto T788; |
goto T788; |
2086 |
T788:; |
T788:; |
2087 |
goto T786; |
goto T786; |
2088 |
goto T787; |
goto T787; |
2089 |
T787:; |
T787:; |
2090 |
vs_base=vs_top; |
vs_base=vs_top; |
2091 |
Lread_line(); |
Lread_line(); |
2092 |
vs_top=sup; |
vs_top=sup; |
2093 |
V204= vs_base[0]; |
V204= vs_base[0]; |
2094 |
goto T785; |
goto T785; |
2095 |
goto T786; |
goto T786; |
2096 |
T786:; |
T786:; |
2097 |
goto T783; |
goto T783; |
2098 |
goto T783; |
goto T783; |
2099 |
goto T783; |
goto T783; |
2100 |
T783:; |
T783:; |
2101 |
goto T795; |
goto T795; |
2102 |
T795:;{object V207; |
T795:;{object V207; |
2103 |
base[4]= (V204); |
base[4]= (V204); |
2104 |
base[5]= Cnil; |
base[5]= Cnil; |
2120 |
V207= (V206); |
V207= (V206); |
2121 |
if(V207==Cnil)goto T798; |
if(V207==Cnil)goto T798; |
2122 |
goto T797; |
goto T797; |
2123 |
goto T798; |
goto T798; |
2124 |
T798:;} |
T798:;} |
2125 |
goto T796; |
goto T796; |
2126 |
goto T797; |
goto T797; |
2127 |
T797:; |
T797:; |
2128 |
if(!(type_of((V206))==t_fixnum|| |
if(!(type_of((V206))==t_fixnum|| |
2129 |
type_of((V206))==t_bignum|| |
type_of((V206))==t_bignum|| |
2134 |
goto T808;} |
goto T808;} |
2135 |
V195= make_cons((V206),(V195)); |
V195= make_cons((V206),(V195)); |
2136 |
goto T806; |
goto T806; |
2137 |
goto T808; |
goto T808; |
2138 |
T808:; |
T808:; |
2139 |
V195= (V206); |
V195= (V206); |
2140 |
goto T793; |
goto T793; |
2141 |
goto T806; |
goto T806; |
2142 |
T806:; |
T806:; |
2143 |
goto T795; |
goto T795; |
2144 |
goto T796; |
goto T796; |
2145 |
T796:; |
T796:; |
2146 |
goto T793; |
goto T793; |
2147 |
goto T793; |
goto T793; |
2148 |
goto T793; |
goto T793; |
2149 |
T793:; |
T793:; |
2150 |
if(!(type_of((V195))==t_cons)){ |
if(!(type_of((V195))==t_cons)){ |
2151 |
goto T816;} |
goto T816;} |
2152 |
V195= nreverse((V195)); |
V195= nreverse((V195)); |
2153 |
goto T814; |
goto T814; |
2154 |
goto T816; |
goto T816; |
2155 |
T816:; |
T816:; |
2156 |
if(!(type_of((V195))==t_symbol)){ |
if(!(type_of((V195))==t_symbol)){ |
2157 |
goto T814;} |
goto T814;} |
2160 |
goto T822;} |
goto T822;} |
2161 |
V195= Cnil; |
V195= Cnil; |
2162 |
goto T821; |
goto T821; |
2163 |
goto T822; |
goto T822; |
2164 |
T822:; |
T822:; |
2165 |
{register long V209; |
{register long V209; |
2166 |
long V210; |
long V210; |
2170 |
V212= (type_of((V211))==t_fixnum?Ct:Cnil); |
V212= (type_of((V211))==t_fixnum?Ct:Cnil); |
2171 |
if(V212==Cnil)goto T828; |
if(V212==Cnil)goto T828; |
2172 |
goto T827; |
goto T827; |
2173 |
goto T828; |
goto T828; |
2174 |
T828:;} |
T828:;} |
2175 |
(void)((*(LnkLI122))()); |
(void)((*(LnkLI122))()); |
2176 |
goto T827; |
goto T827; |
2177 |
T827:; |
T827:; |
2178 |
V210= fix((V211));} |
V210= fix((V211));} |
2179 |
{object V213; |
{object V213; |
2180 |
register object V214; |
register object V214; |
2181 |
V213= Cnil; |
V213= Cnil; |
2182 |
V214= Cnil; |
V214= Cnil; |
2183 |
goto T831; |
goto T831; |
2184 |
T831:; |
T831:; |
2185 |
if((V209)>=(V210)){ |
if((V209)>=(V210)){ |
2186 |
goto T834;} |
goto T834;} |
2187 |
goto T833; |
goto T833; |
2188 |
goto T834; |
goto T834; |
2189 |
T834:; |
T834:; |
2190 |
goto T832; |
goto T832; |
2191 |
goto T833; |
goto T833; |
2192 |
T833:; |
T833:; |
2193 |
if(((V214))==Cnil){ |
if(((V214))==Cnil){ |
2194 |
goto T838;} |
goto T838;} |
2201 |
if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215)); |
if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215)); |
2202 |
((V215))->c.c_cdr = (V216); |
((V215))->c.c_cdr = (V216); |
2203 |
goto T836;} |
goto T836;} |
2204 |
goto T838; |
goto T838; |
2205 |
T838:; |
T838:; |
2206 |
V218 = make_fixnum(V209); |
V218 = make_fixnum(V209); |
2207 |
V214= make_cons(V218,Cnil); |
V214= make_cons(V218,Cnil); |
2208 |
V213= (V214); |
V213= (V214); |
2209 |
goto T836; |
goto T836; |
2210 |
T836:; |
T836:; |
2211 |
V209= (long)(V209)+(1); |
V209= (long)(V209)+(1); |
2212 |
goto T831; |
goto T831; |
2213 |
goto T832; |
goto T832; |
2214 |
T832:; |
T832:; |
2215 |
V195= (V213); |
V195= (V213); |
2216 |
goto T821; |
goto T821; |
2218 |
goto T821; |
goto T821; |
2219 |
V195= Cnil; |
V195= Cnil; |
2220 |
goto T821;}} |
goto T821;}} |
2221 |
goto T821; |
goto T821; |
2222 |
T821:; |
T821:; |
2223 |
goto T814; |
goto T814; |
2224 |
T814:; |
T814:; |
2225 |
if(((V195))==Cnil){ |
if(((V195))==Cnil){ |
2226 |
goto T850;} |
goto T850;} |
2233 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2234 |
Lformat(); |
Lformat(); |
2235 |
vs_top=sup; |
vs_top=sup; |
2236 |
goto T850; |
goto T850; |
2237 |
T850:; |
T850:; |
2238 |
{object V220; |
{object V220; |
2239 |
register object V221; |
register object V221; |
2240 |
V220= Cnil; |
V220= Cnil; |
2241 |
V221= (V195); |
V221= (V195); |
2242 |
goto T860; |
goto T860; |
2243 |
T860:; |
T860:; |
2244 |
if(((V221))==Cnil){ |
if(((V221))==Cnil){ |
2245 |
goto T863;} |
goto T863;} |
2246 |
goto T862; |
goto T862; |
2247 |
goto T863; |
goto T863; |
2248 |
T863:; |
T863:; |
2249 |
goto T861; |
goto T861; |
2250 |
goto T862; |
goto T862; |
2251 |
T862:; |
T862:; |
2252 |
{object V222; |
{object V222; |
2253 |
V222= car((V221)); |
V222= car((V221)); |
2260 |
(void)(princ(V223,Cnil)); |
(void)(princ(V223,Cnil)); |
2261 |
V221= cdr((V221)); |
V221= cdr((V221)); |
2262 |
goto T860; |
goto T860; |
2263 |
goto T861; |
goto T861; |
2264 |
T861:; |
T861:; |
2265 |
base[4]= Cnil; |
base[4]= Cnil; |
2266 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2270 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2271 |
bds_unwind1; |
bds_unwind1; |
2272 |
return;}} |
return;}} |
2273 |
goto T722; |
goto T722; |
2274 |
T722:; |
T722:; |
2275 |
base[3]= Cnil; |
base[3]= Cnil; |
2276 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2314 |
if(!(type_of(base[0])==t_symbol)){ |
if(!(type_of(base[0])==t_symbol)){ |
2315 |
goto T877;} |
goto T877;} |
2316 |
base[0]= get(base[0],VV[68],Cnil); |
base[0]= get(base[0],VV[68],Cnil); |
2317 |
goto T877; |
goto T877; |
2318 |
T877:; |
T877:; |
2319 |
if((base[0])==Cnil){ |
if((base[0])==Cnil){ |
2320 |
goto T882;} |
goto T882;} |
2344 |
if(!(number_compare(V224,small_fixnum(10))<0)){ |
if(!(number_compare(V224,small_fixnum(10))<0)){ |
2345 |
goto T893;} |
goto T893;} |
2346 |
(void)(princ(VV[86],base[1])); |
(void)(princ(VV[86],base[1])); |
2347 |
goto T893; |
goto T893; |
2348 |
T893:; |
T893:; |
2349 |
base[3]= base[1]; |
base[3]= base[1]; |
2350 |
base[4]= VV[87]; |
base[4]= VV[87]; |
2364 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2365 |
Lclose(); |
Lclose(); |
2366 |
vs_top=sup; |
vs_top=sup; |
2367 |
goto T902; |
goto T902; |
2368 |
T902:; |
T902:; |
2369 |
vs_base=vs_top=base+3; |
vs_base=vs_top=base+3; |
2370 |
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
2371 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
2372 |
return;}} |
return;}} |
2373 |
goto T882; |
goto T882; |
2374 |
T882:; |
T882:; |
2375 |
base[1]= Cnil; |
base[1]= Cnil; |
2376 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2402 |
V229= Cnil; |
V229= Cnil; |
2403 |
V230= Cnil; |
V230= Cnil; |
2404 |
V231= Cnil; |
V231= Cnil; |
2405 |
goto T907; |
goto T907; |
2406 |
T907:; |
T907:; |
2407 |
if(((V228))==Cnil){ |
if(((V228))==Cnil){ |
2408 |
goto T910;} |
goto T910;} |
2409 |
goto T909; |
goto T909; |
2410 |
goto T910; |
goto T910; |
2411 |
T910:; |
T910:; |
2412 |
goto T908; |
goto T908; |
2413 |
goto T909; |
goto T909; |
2414 |
T909:; |
T909:; |
2415 |
{register object V232; |
{register object V232; |
2416 |
V232= car((V228)); |
V232= car((V228)); |
2420 |
goto T917;}} |
goto T917;}} |
2421 |
V231= Cnil; |
V231= Cnil; |
2422 |
goto T916; |
goto T916; |
2423 |
goto T917; |
goto T917; |
2424 |
T917:; |
T917:; |
2425 |
base[2]= (V225); |
base[2]= (V225); |
2426 |
base[3]= (V227); |
base[3]= (V227); |
2428 |
(void) (*Lnk97)(); |
(void) (*Lnk97)(); |
2429 |
vs_top=sup; |
vs_top=sup; |
2430 |
V231= vs_base[0]; |
V231= vs_base[0]; |
2431 |
goto T916; |
goto T916; |
2432 |
T916:; |
T916:; |
2433 |
if(((V230))==Cnil){ |
if(((V230))==Cnil){ |
2434 |
goto T923;} |
goto T923;} |
2440 |
if(type_of((V234))!=t_cons)FEwrong_type_argument(Scons,(V234)); |
if(type_of((V234))!=t_cons)FEwrong_type_argument(Scons,(V234)); |
2441 |
((V234))->c.c_cdr = (V235); |
((V234))->c.c_cdr = (V235); |
2442 |
goto T921;} |
goto T921;} |
2443 |
goto T923; |
goto T923; |
2444 |
T923:; |
T923:; |
2445 |
V230= make_cons((V231),Cnil); |
V230= make_cons((V231),Cnil); |
2446 |
V229= (V230); |
V229= (V230); |
2447 |
goto T921; |
goto T921; |
2448 |
T921:; |
T921:; |
2449 |
V228= cdr((V228)); |
V228= cdr((V228)); |
2450 |
goto T907; |
goto T907; |
2451 |
goto T908; |
goto T908; |
2452 |
T908:; |
T908:; |
2453 |
base[2]= (V229); |
base[2]= (V229); |
2454 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2477 |
base[1]= Cnil; |
base[1]= Cnil; |
2478 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2479 |
return; |
return; |
2480 |
goto T935; |
goto T935; |
2481 |
T935:; |
T935:; |
2482 |
base[1]= (number_compare((V236),(base0[0]->c.c_car))>=0?Ct:Cnil); |
base[1]= (number_compare((V236),(base0[0]->c.c_car))>=0?Ct:Cnil); |
2483 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |