31 |
goto T8;} |
goto T8;} |
32 |
(VV[12]->s.s_dbind)= Cnil; |
(VV[12]->s.s_dbind)= Cnil; |
33 |
goto T6; |
goto T6; |
34 |
goto T8; |
goto T8; |
35 |
T8:; |
T8:; |
36 |
if(!((file_exists(VV[13])))){ |
if(!((file_exists(VV[13])))){ |
37 |
goto T6;} |
goto T6;} |
39 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
40 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
41 |
vs_top=sup; |
vs_top=sup; |
42 |
goto T6; |
goto T6; |
43 |
T6:; |
T6:; |
44 |
bds_bind(VV[15],Cnil); |
bds_bind(VV[15],Cnil); |
45 |
base[11]= (VV[16]->s.s_dbind); |
base[11]= (VV[16]->s.s_dbind); |
55 |
goto T15;} |
goto T15;} |
56 |
frs_pop(); |
frs_pop(); |
57 |
goto T3; |
goto T3; |
58 |
goto T15; |
goto T15; |
59 |
T15:; |
T15:; |
60 |
V1= ( |
V1= ( |
61 |
(type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)): |
(type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)): |
62 |
(fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))()); |
(fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))()); |
63 |
frs_pop();} |
frs_pop();} |
64 |
goto T3; |
goto T3; |
65 |
T3:; |
T3:; |
66 |
goto T19; |
goto T19; |
67 |
T19:; |
T19:; |
68 |
(VV[2]->s.s_dbind)= (VV[1]->s.s_dbind); |
(VV[2]->s.s_dbind)= (VV[1]->s.s_dbind); |
69 |
(VV[1]->s.s_dbind)= (VV[0]->s.s_dbind); |
(VV[1]->s.s_dbind)= (VV[0]->s.s_dbind); |
72 |
goto T29;} |
goto T29;} |
73 |
(VV[18]->s.s_dbind)= Cnil; |
(VV[18]->s.s_dbind)= Cnil; |
74 |
goto T27; |
goto T27; |
75 |
goto T29; |
goto T29; |
76 |
T29:; |
T29:; |
77 |
base[10]= Ct; |
base[10]= Ct; |
78 |
base[11]= VV[19];{VOL object V2; |
base[11]= VV[19];{VOL object V2; |
86 |
goto T36;}} |
goto T36;}} |
87 |
base[12]= VV[22]; |
base[12]= VV[22]; |
88 |
goto T34; |
goto T34; |
89 |
goto T36; |
goto T36; |
90 |
T36:; |
T36:; |
91 |
base[13]= (VV[20]->s.s_dbind); |
base[13]= (VV[20]->s.s_dbind); |
92 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
93 |
Lpackage_name(); |
Lpackage_name(); |
94 |
vs_top=sup; |
vs_top=sup; |
95 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
96 |
goto T34; |
goto T34; |
97 |
T34:; |
T34:; |
98 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
99 |
Lformat(); |
Lformat(); |
100 |
vs_top=sup; |
vs_top=sup; |
101 |
goto T27; |
goto T27; |
102 |
T27:; |
T27:; |
103 |
vs_base=vs_top; |
vs_base=vs_top; |
104 |
siLreset_stack_limits(); |
siLreset_stack_limits(); |
117 |
bds_unwind1; |
bds_unwind1; |
118 |
bds_unwind1; |
bds_unwind1; |
119 |
VMR1(V4)} |
VMR1(V4)} |
120 |
goto T42; |
goto T42; |
121 |
T42:; |
T42:; |
122 |
frs_push(FRS_CATCH,(VV[11]->s.s_dbind)); |
frs_push(FRS_CATCH,(VV[11]->s.s_dbind)); |
123 |
if(nlj_active) |
if(nlj_active) |
136 |
vs_base=vs_top; |
vs_base=vs_top; |
137 |
Lby(); |
Lby(); |
138 |
vs_top=sup; |
vs_top=sup; |
139 |
goto T53; |
goto T53; |
140 |
T53:; |
T53:; |
141 |
{object V5; |
{object V5; |
142 |
base[10]= (VV[3]->s.s_dbind); |
base[10]= (VV[3]->s.s_dbind); |
157 |
register object V7; |
register object V7; |
158 |
V6= (VV[7]->s.s_dbind); |
V6= (VV[7]->s.s_dbind); |
159 |
V7= CMPcar((V6)); |
V7= CMPcar((V6)); |
160 |
goto T76; |
goto T76; |
161 |
T76:; |
T76:; |
162 |
if(!(((V6))==Cnil)){ |
if(!(((V6))==Cnil)){ |
163 |
goto T77;} |
goto T77;} |
164 |
goto T72; |
goto T72; |
165 |
goto T77; |
goto T77; |
166 |
T77:; |
T77:; |
167 |
base[11]= (V7); |
base[11]= (V7); |
168 |
(void)simple_symlispcall(VV[153],base+11,1); |
(void)simple_symlispcall(VV[153],base+11,1); |
170 |
V6= CMPcdr((V6)); |
V6= CMPcdr((V6)); |
171 |
V7= CMPcar((V6)); |
V7= CMPcar((V6)); |
172 |
goto T76;} |
goto T76;} |
173 |
goto T72; |
goto T72; |
174 |
T72:; |
T72:; |
175 |
frs_pop(); |
frs_pop(); |
176 |
goto T20;}} |
goto T20;}} |
177 |
goto T46; |
goto T46; |
178 |
T46:; |
T46:; |
179 |
(VV[25]->s.s_dbind)= Cnil; |
(VV[25]->s.s_dbind)= Cnil; |
180 |
(VV[26]->s.s_dbind)= Cnil; |
(VV[26]->s.s_dbind)= Cnil; |
182 |
vs_base=vs_top; |
vs_base=vs_top; |
183 |
(void) (*Lnk154)(); |
(void) (*Lnk154)(); |
184 |
vs_top=sup; |
vs_top=sup; |
185 |
goto T20; |
goto T20; |
186 |
T20:; |
T20:; |
187 |
goto T19; |
goto T19; |
188 |
base[0]=base[0]; |
base[0]=base[0]; |
199 |
vs_top=sup; |
vs_top=sup; |
200 |
goto TTL; |
goto TTL; |
201 |
TTL:; |
TTL:; |
202 |
goto T96; |
goto T96; |
203 |
T96:; |
T96:; |
204 |
{register object V9; |
{register object V9; |
205 |
register object V10; |
register object V10; |
212 |
(void) (*Lnk149)(); |
(void) (*Lnk149)(); |
213 |
vs_top=sup; |
vs_top=sup; |
214 |
goto T100; |
goto T100; |
215 |
goto T102; |
goto T102; |
216 |
T102:; |
T102:; |
217 |
if(!(equal((V9),VV[29]))){ |
if(!(equal((V9),VV[29]))){ |
218 |
goto T106;} |
goto T106;} |
225 |
Leval(); |
Leval(); |
226 |
vs_top=sup; |
vs_top=sup; |
227 |
goto T100; |
goto T100; |
228 |
goto T106; |
goto T106; |
229 |
T106:; |
T106:; |
230 |
V10= Ct; |
V10= Ct; |
231 |
goto T100; |
goto T100; |
232 |
T100:; |
T100:; |
233 |
if((V10)!=Cnil){ |
if((V10)!=Cnil){ |
234 |
goto T111;} |
goto T111;} |
235 |
V8= CMPcdr((V8)); |
V8= CMPcdr((V8)); |
236 |
goto T111; |
goto T111; |
237 |
T111:; |
T111:; |
238 |
V8= CMPcdr((V8));} |
V8= CMPcdr((V8));} |
239 |
if((V8)!=Cnil){ |
if((V8)!=Cnil){ |
241 |
base[1]= Cnil; |
base[1]= Cnil; |
242 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
243 |
return; |
return; |
244 |
goto T97; |
goto T97; |
245 |
T97:; |
T97:; |
246 |
goto T96; |
goto T96; |
247 |
} |
} |
265 |
V13=(base[2]); |
V13=(base[2]); |
266 |
vs_top=sup; |
vs_top=sup; |
267 |
goto T118; |
goto T118; |
268 |
goto T115; |
goto T115; |
269 |
T115:; |
T115:; |
270 |
V11= (VV[23]->s.s_dbind); |
V11= (VV[23]->s.s_dbind); |
271 |
goto T116; |
goto T116; |
272 |
T116:; |
T116:; |
273 |
V12= Ct; |
V12= Ct; |
274 |
goto T117; |
goto T117; |
275 |
T117:; |
T117:; |
276 |
V13= Cnil; |
V13= Cnil; |
277 |
goto T118; |
goto T118; |
278 |
T118:; |
T118:; |
279 |
{object V14; |
{object V14; |
280 |
register object V15; |
register object V15; |
281 |
V14= Cnil; |
V14= Cnil; |
282 |
V15= Cnil; |
V15= Cnil; |
283 |
goto T126; |
goto T126; |
284 |
T126:; |
T126:; |
285 |
base[3]= (V11); |
base[3]= (V11); |
286 |
base[4]= (V12); |
base[4]= (V12); |
292 |
if(!(eql((V15),VV[30]))){ |
if(!(eql((V15),VV[30]))){ |
293 |
goto T134;} |
goto T134;} |
294 |
goto T126; |
goto T126; |
295 |
goto T134; |
goto T134; |
296 |
T134:; |
T134:; |
297 |
if(!(((V15))==((V13)))){ |
if(!(((V15))==((V13)))){ |
298 |
goto T132;} |
goto T132;} |
299 |
base[3]= (V13); |
base[3]= (V13); |
300 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
301 |
return; |
return; |
302 |
goto T132; |
goto T132; |
303 |
T132:; |
T132:; |
304 |
base[3]= (V15); |
base[3]= (V15); |
305 |
base[4]= (V11); |
base[4]= (V11); |
307 |
Lunread_char(); |
Lunread_char(); |
308 |
vs_top=sup; |
vs_top=sup; |
309 |
goto T124; |
goto T124; |
310 |
goto T124; |
goto T124; |
311 |
T124:; |
T124:; |
312 |
if(!(eql(VV[31],(V15)))){ |
if(!(eql(VV[31],(V15)))){ |
313 |
goto T142;} |
goto T142;} |
334 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
335 |
Lread(); |
Lread(); |
336 |
return; |
return; |
337 |
goto T142; |
goto T142; |
338 |
T142:; |
T142:; |
339 |
base[3]= (V11); |
base[3]= (V11); |
340 |
base[4]= (V12); |
base[4]= (V12); |
359 |
V17=(base[1]); |
V17=(base[1]); |
360 |
vs_top=sup; |
vs_top=sup; |
361 |
goto T160; |
goto T160; |
362 |
goto T159; |
goto T159; |
363 |
T159:; |
T159:; |
364 |
V17= Cnil; |
V17= Cnil; |
365 |
goto T160; |
goto T160; |
366 |
T160:; |
T160:; |
367 |
{VOL object V18; |
{VOL object V18; |
368 |
if(!(type_of((V16))==t_string)){ |
if(!(type_of((V16))==t_string)){ |
369 |
goto T164;} |
goto T164;} |
370 |
bds_bind(VV[34],(V16)); |
bds_bind(VV[34],(V16)); |
371 |
goto T162; |
goto T162; |
372 |
goto T164; |
goto T164; |
373 |
T164:; |
T164:; |
374 |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
375 |
goto T162; |
goto T162; |
376 |
T162:; |
T162:; |
377 |
V19= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind)); |
V19= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind)); |
378 |
bds_bind(VV[35],make_cons(/* INLINE-ARGS */V19,(VV[35]->s.s_dbind))); |
bds_bind(VV[35],make_cons(/* INLINE-ARGS */V19,(VV[35]->s.s_dbind))); |
381 |
goto T170;} |
goto T170;} |
382 |
bds_bind(VV[36],(VV[36]->s.s_dbind)); |
bds_bind(VV[36],(VV[36]->s.s_dbind)); |
383 |
goto T168; |
goto T168; |
384 |
goto T170; |
goto T170; |
385 |
T170:; |
T170:; |
386 |
bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind))); |
bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind))); |
387 |
goto T168; |
goto T168; |
388 |
T168:; |
T168:; |
389 |
bds_bind(VV[37],one_plus((VV[38]->s.s_dbind))); |
bds_bind(VV[37],one_plus((VV[38]->s.s_dbind))); |
390 |
vs_base=vs_top; |
vs_base=vs_top; |
402 |
if(V21==Cnil)goto T176; |
if(V21==Cnil)goto T176; |
403 |
bds_bind(VV[40],V21); |
bds_bind(VV[40],V21); |
404 |
goto T175; |
goto T175; |
405 |
goto T176; |
goto T176; |
406 |
T176:;} |
T176:;} |
407 |
vs_base=vs_top; |
vs_base=vs_top; |
408 |
(void) (*Lnk160)(); |
(void) (*Lnk160)(); |
409 |
vs_top=sup; |
vs_top=sup; |
410 |
V22= vs_base[0]; |
V22= vs_base[0]; |
411 |
bds_bind(VV[40],one_plus(V22)); |
bds_bind(VV[40],one_plus(V22)); |
412 |
goto T175; |
goto T175; |
413 |
T175:; |
T175:; |
414 |
vs_base=vs_top; |
vs_base=vs_top; |
415 |
(void) (*Lnk160)(); |
(void) (*Lnk160)(); |
421 |
goto T185;} |
goto T185;} |
422 |
bds_bind(VV[43],Cnil); |
bds_bind(VV[43],Cnil); |
423 |
goto T183; |
goto T183; |
424 |
goto T185; |
goto T185; |
425 |
T185:; |
T185:; |
426 |
bds_bind(VV[43],(V18)); |
bds_bind(VV[43],(V18)); |
427 |
goto T183; |
goto T183; |
428 |
T183:; |
T183:; |
429 |
if((VV[45]->s.s_dbind)!=Cnil){ |
if((VV[45]->s.s_dbind)!=Cnil){ |
430 |
bds_bind(VV[44],(VV[45]->s.s_dbind)); |
bds_bind(VV[44],(VV[45]->s.s_dbind)); |
431 |
goto T187;} |
goto T187;} |
432 |
bds_bind(VV[44],(VV[44]->s.s_dbind)); |
bds_bind(VV[44],(VV[44]->s.s_dbind)); |
433 |
goto T187; |
goto T187; |
434 |
T187:; |
T187:; |
435 |
bds_bind(VV[46],Cnil); |
bds_bind(VV[46],Cnil); |
436 |
bds_bind(VV[0],(VV[0]->s.s_dbind)); |
bds_bind(VV[0],(VV[0]->s.s_dbind)); |
454 |
vs_top=(vs_base=base+25)+1; |
vs_top=(vs_base=base+25)+1; |
455 |
(void) (*Lnk162)(); |
(void) (*Lnk162)(); |
456 |
vs_top=sup; |
vs_top=sup; |
457 |
goto T188; |
goto T188; |
458 |
T188:; |
T188:; |
459 |
base[25]= small_fixnum(1); |
base[25]= small_fixnum(1); |
460 |
vs_top=(vs_base=base+25)+1; |
vs_top=(vs_base=base+25)+1; |
467 |
princ_char(10,VV[27]); |
princ_char(10,VV[27]); |
468 |
(VV[18]->s.s_dbind)= Cnil; |
(VV[18]->s.s_dbind)= Cnil; |
469 |
goto T199; |
goto T199; |
470 |
goto T201; |
goto T201; |
471 |
T201:; |
T201:; |
472 |
base[25]= (V16); |
base[25]= (V16); |
473 |
base[26]= (V17); |
base[26]= (V17); |
474 |
vs_top=(vs_base=base+25)+2; |
vs_top=(vs_base=base+25)+2; |
475 |
(void) (*Lnk165)(); |
(void) (*Lnk165)(); |
476 |
vs_top=sup; |
vs_top=sup; |
477 |
goto T199; |
goto T199; |
478 |
T199:; |
T199:; |
479 |
goto T209; |
goto T209; |
480 |
T209:; |
T209:; |
481 |
(VV[2]->s.s_dbind)= (VV[1]->s.s_dbind); |
(VV[2]->s.s_dbind)= (VV[1]->s.s_dbind); |
482 |
(VV[1]->s.s_dbind)= (VV[0]->s.s_dbind); |
(VV[1]->s.s_dbind)= (VV[0]->s.s_dbind); |
485 |
goto T219;} |
goto T219;} |
486 |
(VV[18]->s.s_dbind)= Cnil; |
(VV[18]->s.s_dbind)= Cnil; |
487 |
goto T217; |
goto T217; |
488 |
goto T219; |
goto T219; |
489 |
T219:; |
T219:; |
490 |
base[25]= (VV[48]->s.s_dbind); |
base[25]= (VV[48]->s.s_dbind); |
491 |
base[26]= VV[49]; |
base[26]= VV[49]; |
493 |
goto T226;} |
goto T226;} |
494 |
base[27]= VV[50]; |
base[27]= VV[50]; |
495 |
goto T224; |
goto T224; |
496 |
goto T226; |
goto T226; |
497 |
T226:; |
T226:; |
498 |
base[27]= VV[51]; |
base[27]= VV[51]; |
499 |
goto T224; |
goto T224; |
500 |
T224:;{VOL object V23; |
T224:;{VOL object V23; |
501 |
V23= (VV[20]->s.s_dbind); |
V23= (VV[20]->s.s_dbind); |
502 |
base[29]= VV[21]; |
base[29]= VV[21]; |
508 |
goto T230;}} |
goto T230;}} |
509 |
base[28]= VV[52]; |
base[28]= VV[52]; |
510 |
goto T228; |
goto T228; |
511 |
goto T230; |
goto T230; |
512 |
T230:; |
T230:; |
513 |
base[29]= (VV[20]->s.s_dbind); |
base[29]= (VV[20]->s.s_dbind); |
514 |
vs_top=(vs_base=base+29)+1; |
vs_top=(vs_base=base+29)+1; |
515 |
Lpackage_name(); |
Lpackage_name(); |
516 |
vs_top=sup; |
vs_top=sup; |
517 |
base[28]= vs_base[0]; |
base[28]= vs_base[0]; |
518 |
goto T228; |
goto T228; |
519 |
T228:; |
T228:; |
520 |
base[29]= (VV[36]->s.s_dbind); |
base[29]= (VV[36]->s.s_dbind); |
521 |
vs_top=(vs_base=base+25)+5; |
vs_top=(vs_base=base+25)+5; |
522 |
Lformat(); |
Lformat(); |
523 |
vs_top=sup; |
vs_top=sup; |
524 |
goto T217; |
goto T217; |
525 |
T217:; |
T217:; |
526 |
base[25]= (VV[27]->s.s_dbind); |
base[25]= (VV[27]->s.s_dbind); |
527 |
vs_top=(vs_base=base+25)+1; |
vs_top=(vs_base=base+25)+1; |
557 |
vs_base=vs_top; |
vs_base=vs_top; |
558 |
Lby(); |
Lby(); |
559 |
vs_top=sup; |
vs_top=sup; |
560 |
goto T247; |
goto T247; |
561 |
T247:; |
T247:; |
562 |
{object V25; |
{object V25; |
563 |
object V26; |
object V26; |
565 |
if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){ |
if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){ |
566 |
goto T254;} |
goto T254;} |
567 |
(VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil); |
(VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil); |
568 |
goto T254; |
goto T254; |
569 |
T254:; |
T254:; |
570 |
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){ |
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){ |
571 |
goto T259;} |
goto T259;} |
578 |
base[28]= VV[54]; |
base[28]= VV[54]; |
579 |
symlispcall(VV[167],base+26,3); |
symlispcall(VV[167],base+26,3); |
580 |
goto T253; |
goto T253; |
581 |
goto T259; |
goto T259; |
582 |
T259:; |
T259:; |
583 |
base[26]= (VV[3]->s.s_dbind); |
base[26]= (VV[3]->s.s_dbind); |
584 |
base[27]= Cnil; |
base[27]= Cnil; |
585 |
base[28]= Cnil; |
base[28]= Cnil; |
586 |
base[29]= (VV[42]->s.s_dbind); |
base[29]= (VV[42]->s.s_dbind); |
587 |
symlispcall(VV[168],base+26,4); |
symlispcall(VV[168],base+26,4); |
588 |
goto T253; |
goto T253; |
589 |
T253:; |
T253:; |
590 |
Llist(); |
Llist(); |
591 |
vs_top=sup; |
vs_top=sup; |
595 |
if((CMPcar((V26)))==(VV[55])){ |
if((CMPcar((V26)))==(VV[55])){ |
596 |
goto T273;} |
goto T273;} |
597 |
goto T272; |
goto T272; |
598 |
goto T273; |
goto T273; |
599 |
T273:; |
T273:; |
600 |
frs_pop(); |
frs_pop(); |
601 |
frs_pop(); |
frs_pop(); |
625 |
bds_unwind1; |
bds_unwind1; |
626 |
bds_unwind1; |
bds_unwind1; |
627 |
return; |
return; |
628 |
goto T272; |
goto T272; |
629 |
T272:; |
T272:; |
630 |
(VV[9]->s.s_dbind)= (VV[8]->s.s_dbind); |
(VV[9]->s.s_dbind)= (VV[8]->s.s_dbind); |
631 |
(VV[8]->s.s_dbind)= (VV[7]->s.s_dbind); |
(VV[8]->s.s_dbind)= (VV[7]->s.s_dbind); |
641 |
register object V29; |
register object V29; |
642 |
V28= (VV[7]->s.s_dbind); |
V28= (VV[7]->s.s_dbind); |
643 |
V29= CMPcar((V28)); |
V29= CMPcar((V28)); |
644 |
goto T292; |
goto T292; |
645 |
T292:; |
T292:; |
646 |
if(!(((V28))==Cnil)){ |
if(!(((V28))==Cnil)){ |
647 |
goto T293;} |
goto T293;} |
648 |
goto T250; |
goto T250; |
649 |
goto T293; |
goto T293; |
650 |
T293:; |
T293:; |
651 |
base[27]= (V29); |
base[27]= (V29); |
652 |
base[28]= (VV[48]->s.s_dbind); |
base[28]= (VV[48]->s.s_dbind); |
655 |
V28= CMPcdr((V28)); |
V28= CMPcdr((V28)); |
656 |
V29= CMPcar((V28)); |
V29= CMPcar((V28)); |
657 |
goto T292;}} |
goto T292;}} |
658 |
goto T250; |
goto T250; |
659 |
T250:; |
T250:; |
660 |
frs_pop(); |
frs_pop(); |
661 |
frs_pop(); |
frs_pop(); |
662 |
goto T210;}} |
goto T210;}} |
663 |
goto T239; |
goto T239; |
664 |
T239:; |
T239:; |
665 |
princ_char(10,VV[48]); |
princ_char(10,VV[48]); |
666 |
vs_base=vs_top; |
vs_base=vs_top; |
667 |
(void) (*Lnk154)(); |
(void) (*Lnk154)(); |
668 |
vs_top=sup; |
vs_top=sup; |
669 |
goto T210; |
goto T210; |
670 |
T210:; |
T210:; |
671 |
goto T209;} |
goto T209;} |
672 |
} |
} |
705 |
bds_unwind1; |
bds_unwind1; |
706 |
bds_unwind1; |
bds_unwind1; |
707 |
VMR5(V35)} |
VMR5(V35)} |
708 |
goto T309; |
goto T309; |
709 |
T309:; |
T309:; |
710 |
base[3]= (VV[27]->s.s_dbind); |
base[3]= (VV[27]->s.s_dbind); |
711 |
base[4]= VV[61]; |
base[4]= VV[61]; |
805 |
Lformat(); |
Lformat(); |
806 |
vs_top=sup; |
vs_top=sup; |
807 |
goto T341; |
goto T341; |
808 |
goto T343; |
goto T343; |
809 |
T343:; |
T343:; |
810 |
base[4]= (VV[27]->s.s_dbind); |
base[4]= (VV[27]->s.s_dbind); |
811 |
base[5]= VV[67]; |
base[5]= VV[67]; |
812 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
813 |
Lformat(); |
Lformat(); |
814 |
vs_top=sup; |
vs_top=sup; |
815 |
goto T341; |
goto T341; |
816 |
T341:; |
T341:; |
817 |
base[4]= (VV[27]->s.s_dbind); |
base[4]= (VV[27]->s.s_dbind); |
818 |
base[5]= VV[68]; |
base[5]= VV[68]; |
833 |
bds_unwind1; |
bds_unwind1; |
834 |
bds_unwind1; |
bds_unwind1; |
835 |
goto T321; |
goto T321; |
836 |
goto T324; |
goto T324; |
837 |
T324:; |
T324:; |
838 |
base[4]= (VV[27]->s.s_dbind); |
base[4]= (VV[27]->s.s_dbind); |
839 |
base[5]= VV[70]; |
base[5]= VV[70]; |
860 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
861 |
Lformat(); |
Lformat(); |
862 |
vs_top=sup; |
vs_top=sup; |
863 |
goto T365; |
goto T365; |
864 |
T365:; |
T365:; |
865 |
base[4]= Cnil; |
base[4]= Cnil; |
866 |
base[5]= (V47); |
base[5]= (V47); |
886 |
bds_unwind1; |
bds_unwind1; |
887 |
bds_unwind1; |
bds_unwind1; |
888 |
goto T321; |
goto T321; |
889 |
goto T376; |
goto T376; |
890 |
T376:; |
T376:; |
891 |
base[4]= (VV[27]->s.s_dbind); |
base[4]= (VV[27]->s.s_dbind); |
892 |
base[5]= VV[74]; |
base[5]= VV[74]; |
897 |
bds_unwind1; |
bds_unwind1; |
898 |
bds_unwind1; |
bds_unwind1; |
899 |
bds_unwind1; |
bds_unwind1; |
900 |
goto T321; |
goto T321; |
901 |
T321:; |
T321:; |
902 |
base[0]= (VV[27]->s.s_dbind); |
base[0]= (VV[27]->s.s_dbind); |
903 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
915 |
base[0]= (VV[11]->s.s_dbind); |
base[0]= (VV[11]->s.s_dbind); |
916 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
917 |
unwind(fr,(VV[11]->s.s_dbind));} |
unwind(fr,(VV[11]->s.s_dbind));} |
918 |
goto T388; |
goto T388; |
919 |
T388:; |
T388:; |
920 |
{object V55 = Cnil; |
{object V55 = Cnil; |
921 |
VMR6(V55)}} |
VMR6(V55)}} |
939 |
else { |
else { |
940 |
V56= first;} |
V56= first;} |
941 |
--narg; goto T392; |
--narg; goto T392; |
942 |
goto T391; |
goto T391; |
943 |
T391:; |
T391:; |
944 |
V56= Cnil; |
V56= Cnil; |
945 |
goto T392; |
goto T392; |
946 |
T392:; |
T392:; |
947 |
V58 = list_vector_new(narg,first,ap); |
V58 = list_vector_new(narg,first,ap); |
948 |
V57= V58; |
V57= V58; |
989 |
bds_unwind1; |
bds_unwind1; |
990 |
bds_unwind1; |
bds_unwind1; |
991 |
goto T395; |
goto T395; |
992 |
goto T398; |
goto T398; |
993 |
T398:; |
T398:; |
994 |
base[4]= (VV[27]->s.s_dbind); |
base[4]= (VV[27]->s.s_dbind); |
995 |
base[5]= VV[76]; |
base[5]= VV[76]; |
1001 |
bds_unwind1; |
bds_unwind1; |
1002 |
bds_unwind1; |
bds_unwind1; |
1003 |
bds_unwind1; |
bds_unwind1; |
1004 |
goto T395; |
goto T395; |
1005 |
T395:; |
T395:; |
1006 |
bds_bind(VV[43],Ct); |
bds_bind(VV[43],Ct); |
1007 |
base[1]= (V59); |
base[1]= (V59); |
1035 |
{object V65 = vs_base[0]; |
{object V65 = vs_base[0]; |
1036 |
bds_unwind1; |
bds_unwind1; |
1037 |
VMR8(V65)} |
VMR8(V65)} |
1038 |
goto T419; |
goto T419; |
1039 |
T419:; |
T419:; |
1040 |
base[1]= VV[80]; |
base[1]= VV[80]; |
1041 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1063 |
V69=(base[2]); |
V69=(base[2]); |
1064 |
vs_top=sup; |
vs_top=sup; |
1065 |
goto T425; |
goto T425; |
1066 |
goto T424; |
goto T424; |
1067 |
T424:; |
T424:; |
1068 |
V69= VV[54]; |
V69= VV[54]; |
1069 |
goto T425; |
goto T425; |
1070 |
T425:; |
T425:; |
1071 |
{register object V70; |
{register object V70; |
1072 |
V70= Cnil; |
V70= Cnil; |
1082 |
base[3]= Cnil; |
base[3]= Cnil; |
1083 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1084 |
return; |
return; |
1085 |
goto T433; |
goto T433; |
1086 |
T433:; |
T433:; |
1087 |
{object V71 =((V70))->s.s_plist; |
{object V71 =((V70))->s.s_plist; |
1088 |
object ind= (V69); |
object ind= (V69); |
1092 |
goto T435; |
goto T435; |
1093 |
}else V71=V71->c.c_cdr->c.c_cdr;} |
}else V71=V71->c.c_cdr->c.c_cdr;} |
1094 |
V70= Cnil;} |
V70= Cnil;} |
1095 |
goto T435; |
goto T435; |
1096 |
T435:; |
T435:; |
1097 |
if(((V70))==Cnil){ |
if(((V70))==Cnil){ |
1098 |
goto T437;} |
goto T437;} |
1100 |
if(!(type_of((V70))==t_symbol)){ |
if(!(type_of((V70))==t_symbol)){ |
1101 |
goto T442;} |
goto T442;} |
1102 |
goto T441; |
goto T441; |
1103 |
goto T442; |
goto T442; |
1104 |
T442:; |
T442:; |
1105 |
V68= make_cons(VV[82],(V68)); |
V68= make_cons(VV[82],(V68)); |
1106 |
goto T441; |
goto T441; |
1107 |
T441:; |
T441:; |
1108 |
base[3]= (V68); |
base[3]= (V68); |
1109 |
base[4]= Cnil; |
base[4]= Cnil; |
1112 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1113 |
Levalhook(); |
Levalhook(); |
1114 |
return; |
return; |
1115 |
goto T437; |
goto T437; |
1116 |
T437:; |
T437:; |
1117 |
base[3]= (VV[48]->s.s_dbind); |
base[3]= (VV[48]->s.s_dbind); |
1118 |
base[4]= VV[83]; |
base[4]= VV[83]; |
1133 |
V72=(base[0]); |
V72=(base[0]); |
1134 |
vs_top=sup; |
vs_top=sup; |
1135 |
goto T453; |
goto T453; |
1136 |
goto T452; |
goto T452; |
1137 |
T452:; |
T452:; |
1138 |
V72= small_fixnum(0); |
V72= small_fixnum(0); |
1139 |
goto T453; |
goto T453; |
1140 |
T453:; |
T453:; |
1141 |
{object V73; |
{object V73; |
1142 |
V73= make_fixnum((long)length((VV[36]->s.s_dbind))); |
V73= make_fixnum((long)length((VV[36]->s.s_dbind))); |
1160 |
base[3]= CMPcdr((V74)); |
base[3]= CMPcdr((V74)); |
1161 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1162 |
unwind(fr,base[2]);}} |
unwind(fr,base[2]);}} |
1163 |
goto T456; |
goto T456; |
1164 |
T456:; |
T456:; |
1165 |
vs_base=vs_top; |
vs_base=vs_top; |
1166 |
(void) (*Lnk154)(); |
(void) (*Lnk154)(); |
1178 |
V76=(base[0]); |
V76=(base[0]); |
1179 |
vs_top=sup; |
vs_top=sup; |
1180 |
goto T469; |
goto T469; |
1181 |
goto T468; |
goto T468; |
1182 |
T468:; |
T468:; |
1183 |
V76= small_fixnum(1); |
V76= small_fixnum(1); |
1184 |
goto T469; |
goto T469; |
1185 |
T469:; |
T469:; |
1186 |
{register object V77; |
{register object V77; |
1187 |
V77= one_minus((VV[39]->s.s_dbind)); |
V77= one_minus((VV[39]->s.s_dbind)); |
1188 |
goto T473; |
goto T473; |
1189 |
T473:; |
T473:; |
1190 |
if(number_compare((V77),(VV[37]->s.s_dbind))<0){ |
if(number_compare((V77),(VV[37]->s.s_dbind))<0){ |
1191 |
goto T475;} |
goto T475;} |
1192 |
if(!(number_compare((V76),small_fixnum(0))<=0)){ |
if(!(number_compare((V76),small_fixnum(0))<=0)){ |
1193 |
goto T474;} |
goto T474;} |
1194 |
goto T475; |
goto T475; |
1195 |
T475:; |
T475:; |
1196 |
(void)((*(LnkLI172))()); |
(void)((*(LnkLI172))()); |
1197 |
vs_base=vs_top; |
vs_base=vs_top; |
1198 |
(void) (*Lnk154)(); |
(void) (*Lnk154)(); |
1199 |
return; |
return; |
1200 |
goto T474; |
goto T474; |
1201 |
T474:; |
T474:; |
1202 |
if(((*(LnkLI173))((V77)))==Cnil){ |
if(((*(LnkLI173))((V77)))==Cnil){ |
1203 |
goto T481;} |
goto T481;} |
1204 |
(VV[39]->s.s_dbind)= (V77); |
(VV[39]->s.s_dbind)= (V77); |
1205 |
V76= one_minus((V76)); |
V76= one_minus((V76)); |
1206 |
goto T481; |
goto T481; |
1207 |
T481:; |
T481:; |
1208 |
V77= one_minus((V77)); |
V77= one_minus((V77)); |
1209 |
goto T473;} |
goto T473;} |
1218 |
TTL:; |
TTL:; |
1219 |
{register object V78; |
{register object V78; |
1220 |
V78= (VV[39]->s.s_dbind); |
V78= (VV[39]->s.s_dbind); |
1221 |
goto T491; |
goto T491; |
1222 |
T491:; |
T491:; |
1223 |
if(((*(LnkLI173))((V78)))!=Cnil){ |
if(((*(LnkLI173))((V78)))!=Cnil){ |
1224 |
goto T493;} |
goto T493;} |
1225 |
if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){ |
if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){ |
1226 |
goto T492;} |
goto T492;} |
1227 |
goto T493; |
goto T493; |
1228 |
T493:; |
T493:; |
1229 |
(VV[39]->s.s_dbind)= (V78); |
(VV[39]->s.s_dbind)= (V78); |
1230 |
(void)((*(LnkLI172))()); |
(void)((*(LnkLI172))()); |
1241 |
vs_top=sup; |
vs_top=sup; |
1242 |
{object V79 = vs_base[0]; |
{object V79 = vs_base[0]; |
1243 |
VMR12(V79)} |
VMR12(V79)} |
1244 |
goto T492; |
goto T492; |
1245 |
T492:; |
T492:; |
1246 |
V78= one_minus((V78)); |
V78= one_minus((V78)); |
1247 |
goto T491;} |
goto T491;} |
1259 |
V80=(base[0]); |
V80=(base[0]); |
1260 |
vs_top=sup; |
vs_top=sup; |
1261 |
goto T510; |
goto T510; |
1262 |
goto T509; |
goto T509; |
1263 |
T509:; |
T509:; |
1264 |
V80= small_fixnum(1); |
V80= small_fixnum(1); |
1265 |
goto T510; |
goto T510; |
1266 |
T510:; |
T510:; |
1267 |
{register object V81; |
{register object V81; |
1268 |
V81= (VV[39]->s.s_dbind); |
V81= (VV[39]->s.s_dbind); |
1269 |
goto T513; |
goto T513; |
1270 |
T513:; |
T513:; |
1271 |
if(number_compare((V81),(VV[38]->s.s_dbind))>0){ |
if(number_compare((V81),(VV[38]->s.s_dbind))>0){ |
1272 |
goto T515;} |
goto T515;} |
1273 |
if(!(number_compare((V80),small_fixnum(0))<0)){ |
if(!(number_compare((V80),small_fixnum(0))<0)){ |
1274 |
goto T514;} |
goto T514;} |
1275 |
goto T515; |
goto T515; |
1276 |
T515:; |
T515:; |
1277 |
(void)((*(LnkLI172))()); |
(void)((*(LnkLI172))()); |
1278 |
vs_base=vs_top; |
vs_base=vs_top; |
1279 |
(void) (*Lnk154)(); |
(void) (*Lnk154)(); |
1280 |
return; |
return; |
1281 |
goto T514; |
goto T514; |
1282 |
T514:; |
T514:; |
1283 |
if(((*(LnkLI173))((V81)))==Cnil){ |
if(((*(LnkLI173))((V81)))==Cnil){ |
1284 |
goto T521;} |
goto T521;} |
1285 |
(VV[39]->s.s_dbind)= (V81); |
(VV[39]->s.s_dbind)= (V81); |
1286 |
V80= one_minus((V80)); |
V80= one_minus((V80)); |
1287 |
goto T521; |
goto T521; |
1288 |
T521:; |
T521:; |
1289 |
V81= one_plus((V81)); |
V81= one_plus((V81)); |
1290 |
goto T513;} |
goto T513;} |
1309 |
vs_base=vs_top; |
vs_base=vs_top; |
1310 |
(void) (*Lnk154)(); |
(void) (*Lnk154)(); |
1311 |
return; |
return; |
1312 |
goto T533; |
goto T533; |
1313 |
T533:; |
T533:; |
1314 |
vs_base=vs_top; |
vs_base=vs_top; |
1315 |
(void) (*Lnk175)(); |
(void) (*Lnk175)(); |
1346 |
V85=(base[1]); |
V85=(base[1]); |
1347 |
vs_top=sup; |
vs_top=sup; |
1348 |
goto T540; |
goto T540; |
1349 |
goto T538; |
goto T538; |
1350 |
T538:; |
T538:; |
1351 |
V84= (VV[42]->s.s_dbind); |
V84= (VV[42]->s.s_dbind); |
1352 |
goto T539; |
goto T539; |
1353 |
T539:; |
T539:; |
1354 |
V85= (VV[48]->s.s_dbind); |
V85= (VV[48]->s.s_dbind); |
1355 |
goto T540; |
goto T540; |
1356 |
T540:; |
T540:; |
1357 |
if(!(((long)length((V84)))==(3))){ |
if(!(((long)length((V84)))==(3))){ |
1358 |
goto T544;} |
goto T544;} |
1359 |
goto T543; |
goto T543; |
1360 |
goto T544; |
goto T544; |
1361 |
T544:; |
T544:; |
1362 |
base[2]= VV[85]; |
base[2]= VV[85]; |
1363 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1364 |
Lerror(); |
Lerror(); |
1365 |
vs_top=sup; |
vs_top=sup; |
1366 |
goto T543; |
goto T543; |
1367 |
T543:; |
T543:; |
1368 |
{register object V86; |
{register object V86; |
1369 |
V86= VV[86]; |
V86= VV[86]; |
1377 |
V87= Cnil; |
V87= Cnil; |
1378 |
goto T551;} |
goto T551;} |
1379 |
base[5]=V88=MMcons(Cnil,Cnil); |
base[5]=V88=MMcons(Cnil,Cnil); |
1380 |
goto T552; |
goto T552; |
1381 |
T552:; |
T552:; |
1382 |
(V88->c.c_car)= CMPcar((V89->c.c_car)); |
(V88->c.c_car)= CMPcar((V89->c.c_car)); |
1383 |
if((V89=MMcdr(V89))==Cnil){ |
if((V89=MMcdr(V89))==Cnil){ |
1385 |
goto T551;} |
goto T551;} |
1386 |
V88=MMcdr(V88)=MMcons(Cnil,Cnil); |
V88=MMcdr(V88)=MMcons(Cnil,Cnil); |
1387 |
goto T552;} |
goto T552;} |
1388 |
goto T551; |
goto T551; |
1389 |
T551:; |
T551:; |
1390 |
vs_top=base+5; |
vs_top=base+5; |
1391 |
while(V87!=Cnil) |
while(V87!=Cnil) |
1403 |
V90= Cnil; |
V90= Cnil; |
1404 |
goto T558;} |
goto T558;} |
1405 |
base[5]=V91=MMcons(Cnil,Cnil); |
base[5]=V91=MMcons(Cnil,Cnil); |
1406 |
goto T559; |
goto T559; |
1407 |
T559:; |
T559:; |
1408 |
(V91->c.c_car)= CMPcar((V92->c.c_car)); |
(V91->c.c_car)= CMPcar((V92->c.c_car)); |
1409 |
if((V92=MMcdr(V92))==Cnil){ |
if((V92=MMcdr(V92))==Cnil){ |
1411 |
goto T558;} |
goto T558;} |
1412 |
V91=MMcdr(V91)=MMcons(Cnil,Cnil); |
V91=MMcdr(V91)=MMcons(Cnil,Cnil); |
1413 |
goto T559;} |
goto T559;} |
1414 |
goto T558; |
goto T558; |
1415 |
T558:; |
T558:; |
1416 |
vs_top=base+5; |
vs_top=base+5; |
1417 |
while(V90!=Cnil) |
while(V90!=Cnil) |
1429 |
V93= Cnil; |
V93= Cnil; |
1430 |
goto T565;} |
goto T565;} |
1431 |
base[5]=V94=MMcons(Cnil,Cnil); |
base[5]=V94=MMcons(Cnil,Cnil); |
1432 |
goto T566; |
goto T566; |
1433 |
T566:; |
T566:; |
1434 |
if(!((CMPcadr((V95->c.c_car)))==(VV[90]))){ |
if(!((CMPcadr((V95->c.c_car)))==(VV[90]))){ |
1435 |
goto T569;} |
goto T569;} |
1436 |
(V94->c.c_cdr)= make_cons(CMPcar((V95->c.c_car)),Cnil); |
(V94->c.c_cdr)= make_cons(CMPcar((V95->c.c_car)),Cnil); |
1437 |
goto T567; |
goto T567; |
1438 |
goto T569; |
goto T569; |
1439 |
T569:; |
T569:; |
1440 |
(V94->c.c_cdr)= Cnil; |
(V94->c.c_cdr)= Cnil; |
1441 |
goto T567; |
goto T567; |
1442 |
T567:; |
T567:; |
1443 |
while(MMcdr(V94)!=Cnil)V94=MMcdr(V94); |
while(MMcdr(V94)!=Cnil)V94=MMcdr(V94); |
1444 |
if((V95=MMcdr(V95))==Cnil){ |
if((V95=MMcdr(V95))==Cnil){ |
1446 |
V93= base[5]; |
V93= base[5]; |
1447 |
goto T565;} |
goto T565;} |
1448 |
goto T566;} |
goto T566;} |
1449 |
goto T565; |
goto T565; |
1450 |
T565:; |
T565:; |
1451 |
vs_top=base+5; |
vs_top=base+5; |
1452 |
while(V93!=Cnil) |
while(V93!=Cnil) |
1464 |
V97= Cnil; |
V97= Cnil; |
1465 |
goto T574;} |
goto T574;} |
1466 |
base[5]=V98=MMcons(Cnil,Cnil); |
base[5]=V98=MMcons(Cnil,Cnil); |
1467 |
goto T575; |
goto T575; |
1468 |
T575:; |
T575:; |
1469 |
if(!((CMPcadr((V99->c.c_car)))==(VV[92]))){ |
if(!((CMPcadr((V99->c.c_car)))==(VV[92]))){ |
1470 |
goto T578;} |
goto T578;} |
1471 |
(V98->c.c_cdr)= make_cons(CMPcar((V99->c.c_car)),Cnil); |
(V98->c.c_cdr)= make_cons(CMPcar((V99->c.c_car)),Cnil); |
1472 |
goto T576; |
goto T576; |
1473 |
goto T578; |
goto T578; |
1474 |
T578:; |
T578:; |
1475 |
(V98->c.c_cdr)= Cnil; |
(V98->c.c_cdr)= Cnil; |
1476 |
goto T576; |
goto T576; |
1477 |
T576:; |
T576:; |
1478 |
while(MMcdr(V98)!=Cnil)V98=MMcdr(V98); |
while(MMcdr(V98)!=Cnil)V98=MMcdr(V98); |
1479 |
if((V99=MMcdr(V99))==Cnil){ |
if((V99=MMcdr(V99))==Cnil){ |
1481 |
V97= base[5]; |
V97= base[5]; |
1482 |
goto T574;} |
goto T574;} |
1483 |
goto T575;} |
goto T575;} |
1484 |
goto T574; |
goto T574; |
1485 |
T574:; |
T574:; |
1486 |
vs_top=base+5; |
vs_top=base+5; |
1487 |
while(V97!=Cnil) |
while(V97!=Cnil) |
1506 |
V102=(base[1]); |
V102=(base[1]); |
1507 |
vs_top=sup; |
vs_top=sup; |
1508 |
goto T582; |
goto T582; |
1509 |
goto T580; |
goto T580; |
1510 |
T580:; |
T580:; |
1511 |
base[2]= (VV[37]->s.s_dbind); |
base[2]= (VV[37]->s.s_dbind); |
1512 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1513 |
(void) (*Lnk176)(); |
(void) (*Lnk176)(); |
1514 |
vs_top=sup; |
vs_top=sup; |
1515 |
V101= vs_base[0]; |
V101= vs_base[0]; |
1516 |
goto T581; |
goto T581; |
1517 |
T581:; |
T581:; |
1518 |
base[2]= (VV[38]->s.s_dbind); |
base[2]= (VV[38]->s.s_dbind); |
1519 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1520 |
(void) (*Lnk176)(); |
(void) (*Lnk176)(); |
1521 |
vs_top=sup; |
vs_top=sup; |
1522 |
V102= vs_base[0]; |
V102= vs_base[0]; |
1523 |
goto T582; |
goto T582; |
1524 |
T582:; |
T582:; |
1525 |
base[2]= (VV[37]->s.s_dbind); |
base[2]= (VV[37]->s.s_dbind); |
1526 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1537 |
V102= (number_compare((V102),/* INLINE-ARGS */V105)<=0?((V102)):/* INLINE-ARGS */V105); |
V102= (number_compare((V102),/* INLINE-ARGS */V105)<=0?((V102)):/* INLINE-ARGS */V105); |
1538 |
{register object V106; |
{register object V106; |
1539 |
V106= (VV[37]->s.s_dbind); |
V106= (VV[37]->s.s_dbind); |
1540 |
goto T596; |
goto T596; |
1541 |
T596:; |
T596:; |
1542 |
if(number_compare((V106),(VV[38]->s.s_dbind))>=0){ |
if(number_compare((V106),(VV[38]->s.s_dbind))>=0){ |
1543 |
goto T598;} |
goto T598;} |
1548 |
V107= vs_base[0]; |
V107= vs_base[0]; |
1549 |
if(!(number_compare(V107,(V101))>=0)){ |
if(!(number_compare(V107,(V101))>=0)){ |
1550 |
goto T597;} |
goto T597;} |
1551 |
goto T598; |
goto T598; |
1552 |
T598:; |
T598:; |
1553 |
{register object V108; |
{register object V108; |
1554 |
V108= (V101); |
V108= (V101); |
1555 |
goto T605; |
goto T605; |
1556 |
T605:; |
T605:; |
1557 |
if(!(number_compare((V108),(V102))>0)){ |
if(!(number_compare((V108),(V102))>0)){ |
1558 |
goto T606;} |
goto T606;} |
1559 |
vs_base=vs_top=base+2; |
vs_base=vs_top=base+2; |
1560 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
1561 |
return; |
return; |
1562 |
goto T606; |
goto T606; |
1563 |
T606:; |
T606:; |
1564 |
goto T612; |
goto T612; |
1565 |
T612:; |
T612:; |
1566 |
base[2]= (V106); |
base[2]= (V106); |
1567 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1571 |
if(!(number_compare(V109,(V108))>0)){ |
if(!(number_compare(V109,(V108))>0)){ |
1572 |
goto T613;} |
goto T613;} |
1573 |
goto T610; |
goto T610; |
1574 |
goto T613; |
goto T613; |
1575 |
T613:; |
T613:; |
1576 |
if(((*(LnkLI173))((V106)))==Cnil){ |
if(((*(LnkLI173))((V106)))==Cnil){ |
1577 |
goto T619;} |
goto T619;} |
1578 |
(void)((*(LnkLI177))((V106))); |
(void)((*(LnkLI177))((V106))); |
1579 |
goto T619; |
goto T619; |
1580 |
T619:; |
T619:; |
1581 |
V106= number_plus((V106),small_fixnum(1)); |
V106= number_plus((V106),small_fixnum(1)); |
1582 |
goto T612; |
goto T612; |
1583 |
goto T610; |
goto T610; |
1584 |
T610:; |
T610:; |
1585 |
base[2]= (VV[48]->s.s_dbind); |
base[2]= (VV[48]->s.s_dbind); |
1586 |
base[3]= VV[93]; |
base[3]= VV[93]; |
1595 |
vs_top=sup; |
vs_top=sup; |
1596 |
V108= one_plus((V108)); |
V108= one_plus((V108)); |
1597 |
goto T605;} |
goto T605;} |
1598 |
goto T597; |
goto T597; |
1599 |
T597:; |
T597:; |
1600 |
V106= one_plus((V106)); |
V106= one_plus((V106)); |
1601 |
goto T596;} |
goto T596;} |
1612 |
V110=(base[0]); |
V110=(base[0]); |
1613 |
vs_top=sup; |
vs_top=sup; |
1614 |
goto T640; |
goto T640; |
1615 |
goto T639; |
goto T639; |
1616 |
T639:; |
T639:; |
1617 |
V110= small_fixnum(0); |
V110= small_fixnum(0); |
1618 |
goto T640; |
goto T640; |
1619 |
T640:; |
T640:; |
1620 |
{object V111; |
{object V111; |
1621 |
base[2]= (VV[39]->s.s_dbind); |
base[2]= (VV[39]->s.s_dbind); |
1658 |
(void) (*Lnk180)(); |
(void) (*Lnk180)(); |
1659 |
vs_top=sup; |
vs_top=sup; |
1660 |
V116= vs_base[0]; |
V116= vs_base[0]; |
1661 |
goto T654; |
goto T654; |
1662 |
T654:; |
T654:; |
1663 |
if(!(number_compare((V115),(V116))>0)){ |
if(!(number_compare((V115),(V116))>0)){ |
1664 |
goto T655;} |
goto T655;} |
1665 |
vs_base=vs_top=base+1; |
vs_base=vs_top=base+1; |
1666 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
1667 |
return; |
return; |
1668 |
goto T655; |
goto T655; |
1669 |
T655:; |
T655:; |
1670 |
if(((V113))==Cnil){ |
if(((V113))==Cnil){ |
1671 |
goto T660;} |
goto T660;} |
1680 |
goto T663; |
goto T663; |
1681 |
}else V118=V118->c.c_cdr; |
}else V118=V118->c.c_cdr; |
1682 |
goto T659;} |
goto T659;} |
1683 |
goto T663; |
goto T663; |
1684 |
T663:; |
T663:; |
1685 |
goto T660; |
goto T660; |
1686 |
T660:; |
T660:; |
1687 |
goto T668; |
goto T668; |
1688 |
T668:; |
T668:; |
1689 |
if(number_compare((V114),(VV[41]->s.s_dbind))>0){ |
if(number_compare((V114),(VV[41]->s.s_dbind))>0){ |
1690 |
goto T670;} |
goto T670;} |
1695 |
V120= vs_base[0]; |
V120= vs_base[0]; |
1696 |
if(!(number_compare(V120,(V115))>0)){ |
if(!(number_compare(V120,(V115))>0)){ |
1697 |
goto T669;} |
goto T669;} |
1698 |
goto T670; |
goto T670; |
1699 |
T670:; |
T670:; |
1700 |
goto T666; |
goto T666; |
1701 |
goto T669; |
goto T669; |
1702 |
T669:; |
T669:; |
1703 |
(void)((*(LnkLI182))((V114))); |
(void)((*(LnkLI182))((V114))); |
1704 |
V114= number_plus((V114),small_fixnum(1)); |
V114= number_plus((V114),small_fixnum(1)); |
1705 |
goto T668; |
goto T668; |
1706 |
goto T666; |
goto T666; |
1707 |
T666:; |
T666:; |
1708 |
base[1]= (VV[48]->s.s_dbind); |
base[1]= (VV[48]->s.s_dbind); |
1709 |
base[2]= VV[94]; |
base[2]= VV[94]; |
1721 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
1722 |
Lformat(); |
Lformat(); |
1723 |
vs_top=sup; |
vs_top=sup; |
1724 |
goto T659; |
goto T659; |
1725 |
T659:; |
T659:; |
1726 |
V115= one_plus((V115)); |
V115= one_plus((V115)); |
1727 |
goto T654;}} |
goto T654;}} |
1741 |
register object V122; |
register object V122; |
1742 |
V121= (VV[37]->s.s_dbind); |
V121= (VV[37]->s.s_dbind); |
1743 |
V122= Cnil; |
V122= Cnil; |
1744 |
goto T696; |
goto T696; |
1745 |
T696:; |
T696:; |
1746 |
if(!(number_compare((V121),(VV[38]->s.s_dbind))>0)){ |
if(!(number_compare((V121),(VV[38]->s.s_dbind))>0)){ |
1747 |
goto T697;} |
goto T697;} |
1749 |
vs_base=vs_top=base+0; |
vs_base=vs_top=base+0; |
1750 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
1751 |
return; |
return; |
1752 |
goto T697; |
goto T697; |
1753 |
T697:; |
T697:; |
1754 |
if(((*(LnkLI173))((V121)))==Cnil){ |
if(((*(LnkLI173))((V121)))==Cnil){ |
1755 |
goto T702;} |
goto T702;} |
1756 |
if(((V122))==Cnil){ |
if(((V122))==Cnil){ |
1757 |
goto T705;} |
goto T705;} |
1758 |
princ_str(" > ",VV[48]); |
princ_str(" > ",VV[48]); |
1759 |
goto T705; |
goto T705; |
1760 |
T705:; |
T705:; |
1761 |
base[1]= (V121); |
base[1]= (V121); |
1762 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1772 |
goto T717;} |
goto T717;} |
1773 |
base[6]= VV[59]; |
base[6]= VV[59]; |
1774 |
goto T715; |
goto T715; |
1775 |
goto T717; |
goto T717; |
1776 |
T717:; |
T717:; |
1777 |
base[6]= VV[98]; |
base[6]= VV[98]; |
1778 |
goto T715; |
goto T715; |
1779 |
T715:; |
T715:; |
1780 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
1781 |
Lwrite(); |
Lwrite(); |
1782 |
vs_top=sup; |
vs_top=sup; |
1783 |
goto T702; |
goto T702; |
1784 |
T702:; |
T702:; |
1785 |
V121= one_plus((V121)); |
V121= one_plus((V121)); |
1786 |
V122= Ct; |
V122= Ct; |
1801 |
V124=(base[1]); |
V124=(base[1]); |
1802 |
vs_top=sup; |
vs_top=sup; |
1803 |
goto T726; |
goto T726; |
1804 |
goto T724; |
goto T724; |
1805 |
T724:; |
T724:; |
1806 |
V123= (VV[37]->s.s_dbind); |
V123= (VV[37]->s.s_dbind); |
1807 |
goto T725; |
goto T725; |
1808 |
T725:; |
T725:; |
1809 |
V124= (VV[38]->s.s_dbind); |
V124= (VV[38]->s.s_dbind); |
1810 |
goto T726; |
goto T726; |
1811 |
T726:; |
T726:; |
1812 |
V123= (number_compare((V123),(VV[37]->s.s_dbind))>=0?((V123)):(VV[37]->s.s_dbind)); |
V123= (number_compare((V123),(VV[37]->s.s_dbind))>=0?((V123)):(VV[37]->s.s_dbind)); |
1813 |
V124= (number_compare((V124),(VV[38]->s.s_dbind))<=0?((V124)):(VV[38]->s.s_dbind)); |
V124= (number_compare((V124),(VV[38]->s.s_dbind))<=0?((V124)):(VV[38]->s.s_dbind)); |
1823 |
if(V127==Cnil)goto T735; |
if(V127==Cnil)goto T735; |
1824 |
V126= V127; |
V126= V127; |
1825 |
goto T734; |
goto T734; |
1826 |
goto T735; |
goto T735; |
1827 |
T735:;} |
T735:;} |
1828 |
V126= one_plus((VV[41]->s.s_dbind)); |
V126= one_plus((VV[41]->s.s_dbind)); |
1829 |
goto T734; |
goto T734; |
1830 |
T734:; |
T734:; |
1831 |
goto T740; |
goto T740; |
1832 |
T740:; |
T740:; |
1833 |
if(!(number_compare((V125),(V124))>0)){ |
if(!(number_compare((V125),(V124))>0)){ |
1834 |
goto T741;} |
goto T741;} |
1835 |
vs_base=vs_top=base+3; |
vs_base=vs_top=base+3; |
1836 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
1837 |
return; |
return; |
1838 |
goto T741; |
goto T741; |
1839 |
T741:; |
T741:; |
1840 |
if(((*(LnkLI173))((V125)))==Cnil){ |
if(((*(LnkLI173))((V125)))==Cnil){ |
1841 |
goto T745;} |
goto T745;} |
1842 |
(void)((*(LnkLI177))((V125))); |
(void)((*(LnkLI177))((V125))); |
1843 |
goto T745; |
goto T745; |
1844 |
T745:; |
T745:; |
1845 |
goto T750; |
goto T750; |
1846 |
T750:; |
T750:; |
1847 |
if(number_compare((V126),(VV[41]->s.s_dbind))>0){ |
if(number_compare((V126),(VV[41]->s.s_dbind))>0){ |
1848 |
goto T752;} |
goto T752;} |
1853 |
V128= vs_base[0]; |
V128= vs_base[0]; |
1854 |
if(!(number_compare(V128,(V125))>0)){ |
if(!(number_compare(V128,(V125))>0)){ |
1855 |
goto T751;} |
goto T751;} |
1856 |
goto T752; |
goto T752; |
1857 |
T752:; |
T752:; |
1858 |
goto T748; |
goto T748; |
1859 |
goto T751; |
goto T751; |
1860 |
T751:; |
T751:; |
1861 |
(void)((*(LnkLI182))((V126))); |
(void)((*(LnkLI182))((V126))); |
1862 |
V126= number_plus((V126),small_fixnum(1)); |
V126= number_plus((V126),small_fixnum(1)); |
1863 |
goto T750; |
goto T750; |
1864 |
goto T748; |
goto T748; |
1865 |
T748:; |
T748:; |
1866 |
V125= one_plus((V125)); |
V125= one_plus((V125)); |
1867 |
goto T740;} |
goto T740;} |
1896 |
vs_top=sup; |
vs_top=sup; |
1897 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1898 |
goto T775;} |
goto T775;} |
1899 |
goto T774; |
goto T774; |
1900 |
T774:; |
T774:; |
1901 |
base[6]= (V131); |
base[6]= (V131); |
1902 |
goto T771; |
goto T771; |
1903 |
goto T775; |
goto T775; |
1904 |
T775:; |
T775:; |
1905 |
if(!(type_of((V131))==t_cons)){ |
if(!(type_of((V131))==t_cons)){ |
1906 |
goto T781;} |
goto T781;} |
1908 |
if((V132!= VV[100]))goto T783; |
if((V132!= VV[100]))goto T783; |
1909 |
base[6]= (V131); |
base[6]= (V131); |
1910 |
goto T771; |
goto T771; |
1911 |
goto T783; |
goto T783; |
1912 |
T783:; |
T783:; |
1913 |
if((V132!= VV[186]) |
if((V132!= VV[186]) |
1914 |
&& (V132!= VV[187]))goto T784; |
&& (V132!= VV[187]))goto T784; |
1915 |
base[6]= CMPcdr((V131)); |
base[6]= CMPcdr((V131)); |
1916 |
goto T771; |
goto T771; |
1917 |
goto T784; |
goto T784; |
1918 |
T784:; |
T784:; |
1919 |
if((V132!= VV[117]))goto T785; |
if((V132!= VV[117]))goto T785; |
1920 |
base[6]= make_cons(VV[100],CMPcddddr((V131))); |
base[6]= make_cons(VV[100],CMPcddddr((V131))); |
1921 |
goto T771; |
goto T771; |
1922 |
goto T785; |
goto T785; |
1923 |
T785:; |
T785:; |
1924 |
if((V132!= VV[188]))goto T786; |
if((V132!= VV[188]))goto T786; |
1925 |
base[6]= CMPcddddr((V131)); |
base[6]= CMPcddddr((V131)); |
1926 |
goto T771; |
goto T771; |
1927 |
goto T786; |
goto T786; |
1928 |
T786:; |
T786:; |
1929 |
if(!(type_of(CMPcar((V131)))==t_symbol)){ |
if(!(type_of(CMPcar((V131)))==t_symbol)){ |
1930 |
goto T788;} |
goto T788;} |
1940 |
vs_top=sup; |
vs_top=sup; |
1941 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1942 |
goto T788;} |
goto T788;} |
1943 |
goto T787; |
goto T787; |
1944 |
T787:; |
T787:; |
1945 |
base[6]= CMPcar((V131)); |
base[6]= CMPcar((V131)); |
1946 |
goto T771; |
goto T771; |
1947 |
goto T788; |
goto T788; |
1948 |
T788:; |
T788:; |
1949 |
base[6]= VV[101]; |
base[6]= VV[101]; |
1950 |
goto T771;} |
goto T771;} |
1951 |
goto T781; |
goto T781; |
1952 |
T781:; |
T781:; |
1953 |
(void)(print((V131),Cnil)); |
(void)(print((V131),Cnil)); |
1954 |
base[6]= VV[102];} |
base[6]= VV[102];} |
1955 |
goto T771; |
goto T771; |
1956 |
T771:; |
T771:; |
1957 |
base[8]= (V130); |
base[8]= (V130); |
1958 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2058 |
goto T820;} |
goto T820;} |
2059 |
V142= Cnil; |
V142= Cnil; |
2060 |
goto T819; |
goto T819; |
2061 |
goto T820; |
goto T820; |
2062 |
T820:; |
T820:; |
2063 |
if(!((CMPcadar((V139)))==(VV[90]))){ |
if(!((CMPcadar((V139)))==(VV[90]))){ |
2064 |
goto T834;} |
goto T834;} |
2065 |
V142= list(3,VV[90],CMPcaar((V139)),VV[6]); |
V142= list(3,VV[90],CMPcaar((V139)),VV[6]); |
2066 |
goto T819; |
goto T819; |
2067 |
goto T834; |
goto T834; |
2068 |
T834:; |
T834:; |
2069 |
base[1]= (V138); |
base[1]= (V138); |
2070 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2080 |
V144= Cnil; |
V144= Cnil; |
2081 |
goto T836;} |
goto T836;} |
2082 |
base[0]=V145=MMcons(Cnil,Cnil); |
base[0]=V145=MMcons(Cnil,Cnil); |
2083 |
goto T837; |
goto T837; |
2084 |
T837:; |
T837:; |
2085 |
(V145->c.c_car)= CMPcar((V146->c.c_car)); |
(V145->c.c_car)= CMPcar((V146->c.c_car)); |
2086 |
if((V146=MMcdr(V146))==Cnil){ |
if((V146=MMcdr(V146))==Cnil){ |
2088 |
goto T836;} |
goto T836;} |
2089 |
V145=MMcdr(V145)=MMcons(Cnil,Cnil); |
V145=MMcdr(V145)=MMcons(Cnil,Cnil); |
2090 |
goto T837;} |
goto T837;} |
2091 |
goto T836; |
goto T836; |
2092 |
T836:; |
T836:; |
2093 |
V151= reverse(V144); |
V151= reverse(V144); |
2094 |
V152= append(/* INLINE-ARGS */V151,VV[108]); |
V152= append(/* INLINE-ARGS */V151,VV[108]); |
2095 |
V142= make_cons(VV[106],/* INLINE-ARGS */V152); |
V142= make_cons(VV[106],/* INLINE-ARGS */V152); |
2096 |
goto T819; |
goto T819; |
2097 |
T819:; |
T819:; |
2098 |
if(V142==Cnil)goto T818; |
if(V142==Cnil)goto T818; |
2099 |
{object V153 = V142; |
{object V153 = V142; |
2100 |
VMR24(V153)} |
VMR24(V153)} |
2101 |
goto T818; |
goto T818; |
2102 |
T818:;} |
T818:;} |
2103 |
base[0]= (V138); |
base[0]= (V138); |
2104 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2107 |
V154= vs_base[0]; |
V154= vs_base[0]; |
2108 |
{object V155 = list(2,VV[109],V154); |
{object V155 = list(2,VV[109],V154); |
2109 |
VMR24(V155)} |
VMR24(V155)} |
2110 |
goto T814; |
goto T814; |
2111 |
T814:; |
T814:; |
2112 |
base[0]= (V138); |
base[0]= (V138); |
2113 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2116 |
V156= vs_base[0]; |
V156= vs_base[0]; |
2117 |
{object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]); |
{object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]); |
2118 |
VMR24(V157)} |
VMR24(V157)} |
2119 |
goto T812; |
goto T812; |
2120 |
T812:; |
T812:; |
2121 |
if((V140!= VV[198]))goto T847; |
if((V140!= VV[198]))goto T847; |
2122 |
{object V158 = VV[112]; |
{object V158 = VV[112]; |
2123 |
VMR24(V158)} |
VMR24(V158)} |
2124 |
goto T847; |
goto T847; |
2125 |
T847:; |
T847:; |
2126 |
base[0]= (V138); |
base[0]= (V138); |
2127 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2155 |
Lformat(); |
Lformat(); |
2156 |
vs_top=sup; |
vs_top=sup; |
2157 |
goto T850; |
goto T850; |
2158 |
goto T852; |
goto T852; |
2159 |
T852:; |
T852:; |
2160 |
base[0]= (VV[48]->s.s_dbind); |
base[0]= (VV[48]->s.s_dbind); |
2161 |
base[1]= VV[115]; |
base[1]= VV[115]; |
2162 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2163 |
Lformat(); |
Lformat(); |
2164 |
vs_top=sup; |
vs_top=sup; |
2165 |
goto T850; |
goto T850; |
2166 |
T850:; |
T850:; |
2167 |
vs_base=vs_top=base+0; |
vs_base=vs_top=base+0; |
2168 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
2192 |
goto T862; |
goto T862; |
2193 |
}else V166=V166->c.c_cdr; |
}else V166=V166->c.c_cdr; |
2194 |
V165= Cnil;} |
V165= Cnil;} |
2195 |
goto T862; |
goto T862; |
2196 |
T862:; |
T862:; |
2197 |
{object V167 = ((V165)==Cnil?Ct:Cnil); |
{object V167 = ((V165)==Cnil?Ct:Cnil); |
2198 |
VMR26(V167)}} |
VMR26(V167)}} |
2221 |
base[1]= (V169); |
base[1]= (V169); |
2222 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2223 |
return; |
return; |
2224 |
goto T866; |
goto T866; |
2225 |
T866:; |
T866:; |
2226 |
if(!(type_of((V169))==t_cons)){ |
if(!(type_of((V169))==t_cons)){ |
2227 |
goto T869;} |
goto T869;} |
2230 |
base[1]= VV[100]; |
base[1]= VV[100]; |
2231 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2232 |
return; |
return; |
2233 |
goto T871; |
goto T871; |
2234 |
T871:; |
T871:; |
2235 |
if((V170!= VV[186]) |
if((V170!= VV[186]) |
2236 |
&& (V170!= VV[187]))goto T872; |
&& (V170!= VV[187]))goto T872; |
2237 |
base[1]= CMPcadr((V169)); |
base[1]= CMPcadr((V169)); |
2238 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2239 |
return; |
return; |
2240 |
goto T872; |
goto T872; |
2241 |
T872:; |
T872:; |
2242 |
if((V170!= VV[188]))goto T873; |
if((V170!= VV[188]))goto T873; |
2243 |
base[1]= CMPcar(CMPcddddr((V169))); |
base[1]= CMPcar(CMPcddddr((V169))); |
2244 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2245 |
return; |
return; |
2246 |
goto T873; |
goto T873; |
2247 |
T873:; |
T873:; |
2248 |
if((V170!= VV[117]))goto T874; |
if((V170!= VV[117]))goto T874; |
2249 |
base[1]= VV[117]; |
base[1]= VV[117]; |
2250 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2251 |
return; |
return; |
2252 |
goto T874; |
goto T874; |
2253 |
T874:; |
T874:; |
2254 |
if(!(type_of(CMPcar((V169)))==t_symbol)){ |
if(!(type_of(CMPcar((V169)))==t_symbol)){ |
2255 |
goto T876;} |
goto T876;} |
2265 |
vs_top=sup; |
vs_top=sup; |
2266 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2267 |
goto T876;} |
goto T876;} |
2268 |
goto T875; |
goto T875; |
2269 |
T875:; |
T875:; |
2270 |
base[1]= CMPcar((V169)); |
base[1]= CMPcar((V169)); |
2271 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2272 |
return; |
return; |
2273 |
goto T876; |
goto T876; |
2274 |
T876:; |
T876:; |
2275 |
base[1]= VV[102]; |
base[1]= VV[102]; |
2276 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2277 |
return;} |
return;} |
2278 |
goto T869; |
goto T869; |
2279 |
T869:; |
T869:; |
2280 |
base[1]= (V169); |
base[1]= (V169); |
2281 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2287 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2288 |
(void) (*Lnk199)(); |
(void) (*Lnk199)(); |
2289 |
return; |
return; |
2290 |
goto T885; |
goto T885; |
2291 |
T885:; |
T885:; |
2292 |
base[1]= VV[102]; |
base[1]= VV[102]; |
2293 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2318 |
base[1]= Cnil; |
base[1]= Cnil; |
2319 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2320 |
return; |
return; |
2321 |
goto T892; |
goto T892; |
2322 |
T892:; |
T892:; |
2323 |
base[1]= Ct; |
base[1]= Ct; |
2324 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2340 |
goto T898;} |
goto T898;} |
2341 |
(VV[42]->s.s_dbind)= Cnil; |
(VV[42]->s.s_dbind)= Cnil; |
2342 |
goto T896; |
goto T896; |
2343 |
goto T898; |
goto T898; |
2344 |
T898:; |
T898:; |
2345 |
{object V173; |
{object V173; |
2346 |
base[0]= (VV[39]->s.s_dbind); |
base[0]= (VV[39]->s.s_dbind); |
2364 |
vs_top=sup; |
vs_top=sup; |
2365 |
V176= vs_base[0]; |
V176= vs_base[0]; |
2366 |
(VV[42]->s.s_dbind)= list(3,V174,V175,V176);} |
(VV[42]->s.s_dbind)= list(3,V174,V175,V176);} |
2367 |
goto T896; |
goto T896; |
2368 |
T896:; |
T896:; |
2369 |
{object V177 = (VV[42]->s.s_dbind); |
{object V177 = (VV[42]->s.s_dbind); |
2370 |
VMR29(V177)} |
VMR29(V177)} |
2383 |
goto T910;} |
goto T910;} |
2384 |
{object V182 = Cnil; |
{object V182 = Cnil; |
2385 |
VMR30(V182)} |
VMR30(V182)} |
2386 |
goto T910; |
goto T910; |
2387 |
T910:; |
T910:; |
2388 |
if(!(((V180))==(CMPcar((V181))))){ |
if(!(((V180))==(CMPcar((V181))))){ |
2389 |
goto T913;} |
goto T913;} |
2390 |
{object V183 = CMPcdr((V181)); |
{object V183 = CMPcdr((V181)); |
2391 |
VMR30(V183)} |
VMR30(V183)} |
2392 |
goto T913; |
goto T913; |
2393 |
T913:; |
T913:; |
2394 |
V184= (*(LnkLI201))((V180),CMPcdr((V181))); |
V184= (*(LnkLI201))((V180),CMPcdr((V181))); |
2395 |
((V181))->c.c_cdr = /* INLINE-ARGS */V184; |
((V181))->c.c_cdr = /* INLINE-ARGS */V184; |
2462 |
V193= Cnil; |
V193= Cnil; |
2463 |
goto T943;} |
goto T943;} |
2464 |
base[0]=V194=MMcons(Cnil,Cnil); |
base[0]=V194=MMcons(Cnil,Cnil); |
2465 |
goto T944; |
goto T944; |
2466 |
T944:; |
T944:; |
2467 |
(V194->c.c_car)= CMPcar((V195->c.c_car)); |
(V194->c.c_car)= CMPcar((V195->c.c_car)); |
2468 |
if((V195=MMcdr(V195))==Cnil){ |
if((V195=MMcdr(V195))==Cnil){ |
2470 |
goto T943;} |
goto T943;} |
2471 |
V194=MMcdr(V194)=MMcons(Cnil,Cnil); |
V194=MMcdr(V194)=MMcons(Cnil,Cnil); |
2472 |
goto T944;} |
goto T944;} |
2473 |
goto T943; |
goto T943; |
2474 |
T943:; |
T943:; |
2475 |
{register object x= (V189),V192= V193; |
{register object x= (V189),V192= V193; |
2476 |
while(V192!=Cnil) |
while(V192!=Cnil) |
2478 |
goto T942; |
goto T942; |
2479 |
}else V192=V192->c.c_cdr; |
}else V192=V192->c.c_cdr; |
2480 |
goto T916;} |
goto T916;} |
2481 |
goto T942; |
goto T942; |
2482 |
T942:; |
T942:; |
2483 |
base[1]= (V188); |
base[1]= (V188); |
2484 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2491 |
(void) (*Lnk202)(); |
(void) (*Lnk202)(); |
2492 |
vs_top=sup; |
vs_top=sup; |
2493 |
goto T916; |
goto T916; |
2494 |
goto T926; |
goto T926; |
2495 |
T926:; |
T926:; |
2496 |
base[1]= (V188); |
base[1]= (V188); |
2497 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2503 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2504 |
(void) (*Lnk202)(); |
(void) (*Lnk202)(); |
2505 |
vs_top=sup; |
vs_top=sup; |
2506 |
goto T916; |
goto T916; |
2507 |
T916:; |
T916:; |
2508 |
base[0]= (VV[48]->s.s_dbind); |
base[0]= (VV[48]->s.s_dbind); |
2509 |
base[1]= VV[118]; |
base[1]= VV[118]; |
2536 |
(void) (*Lnk174)(); |
(void) (*Lnk174)(); |
2537 |
vs_top=sup; |
vs_top=sup; |
2538 |
V205= vs_base[0]; |
V205= vs_base[0]; |
2539 |
goto T969; |
goto T969; |
2540 |
T969:; |
T969:; |
2541 |
if(!(number_compare((V204),(VV[37]->s.s_dbind))<0)){ |
if(!(number_compare((V204),(VV[37]->s.s_dbind))<0)){ |
2542 |
goto T970;} |
goto T970;} |
2548 |
vs_top=sup; |
vs_top=sup; |
2549 |
{object V206 = vs_base[0]; |
{object V206 = vs_base[0]; |
2550 |
VMR32(V206)} |
VMR32(V206)} |
2551 |
goto T970; |
goto T970; |
2552 |
T970:; |
T970:; |
2553 |
if(((*(LnkLI173))((V204)))==Cnil){ |
if(((*(LnkLI173))((V204)))==Cnil){ |
2554 |
goto T977;} |
goto T977;} |
2562 |
vs_top=sup; |
vs_top=sup; |
2563 |
{object V209 = Cnil; |
{object V209 = Cnil; |
2564 |
VMR32(V209)} |
VMR32(V209)} |
2565 |
goto T977; |
goto T977; |
2566 |
T977:; |
T977:; |
2567 |
V204= one_minus((V204)); |
V204= one_minus((V204)); |
2568 |
base[2]= (V204); |
base[2]= (V204); |
2593 |
(void) (*Lnk174)(); |
(void) (*Lnk174)(); |
2594 |
vs_top=sup; |
vs_top=sup; |
2595 |
V214= vs_base[0]; |
V214= vs_base[0]; |
2596 |
goto T998; |
goto T998; |
2597 |
T998:; |
T998:; |
2598 |
if(!(number_compare((V213),(VV[38]->s.s_dbind))>0)){ |
if(!(number_compare((V213),(VV[38]->s.s_dbind))>0)){ |
2599 |
goto T999;} |
goto T999;} |
2605 |
vs_top=sup; |
vs_top=sup; |
2606 |
{object V215 = vs_base[0]; |
{object V215 = vs_base[0]; |
2607 |
VMR33(V215)} |
VMR33(V215)} |
2608 |
goto T999; |
goto T999; |
2609 |
T999:; |
T999:; |
2610 |
if(((*(LnkLI173))((V213)))==Cnil){ |
if(((*(LnkLI173))((V213)))==Cnil){ |
2611 |
goto T1006;} |
goto T1006;} |
2619 |
vs_top=sup; |
vs_top=sup; |
2620 |
{object V218 = Cnil; |
{object V218 = Cnil; |
2621 |
VMR33(V218)} |
VMR33(V218)} |
2622 |
goto T1006; |
goto T1006; |
2623 |
T1006:; |
T1006:; |
2624 |
V213= one_plus((V213)); |
V213= one_plus((V213)); |
2625 |
base[2]= (V213); |
base[2]= (V213); |
2642 |
object V220; |
object V220; |
2643 |
V219= VV[121]; |
V219= VV[121]; |
2644 |
V220= CMPcar((V219)); |
V220= CMPcar((V219)); |
2645 |
goto T1024; |
goto T1024; |
2646 |
T1024:; |
T1024:; |
2647 |
if(!(((V219))==Cnil)){ |
if(!(((V219))==Cnil)){ |
2648 |
goto T1025;} |
goto T1025;} |
2649 |
goto T1020; |
goto T1020; |
2650 |
goto T1025; |
goto T1025; |
2651 |
T1025:; |
T1025:; |
2652 |
base[1]= (VV[48]->s.s_dbind); |
base[1]= (VV[48]->s.s_dbind); |
2653 |
base[2]= (V220); |
base[2]= (V220); |
2657 |
V219= CMPcdr((V219)); |
V219= CMPcdr((V219)); |
2658 |
V220= CMPcar((V219)); |
V220= CMPcar((V219)); |
2659 |
goto T1024;} |
goto T1024;} |
2660 |
goto T1020; |
goto T1020; |
2661 |
T1020:; |
T1020:; |
2662 |
base[0]= (VV[48]->s.s_dbind); |
base[0]= (VV[48]->s.s_dbind); |
2663 |
base[1]= VV[122]; |
base[1]= VV[122]; |
2681 |
goto T1045;} |
goto T1045;} |
2682 |
V221= (V224); |
V221= (V224); |
2683 |
goto T1041; |
goto T1041; |
2684 |
goto T1045; |
goto T1045; |
2685 |
T1045:; |
T1045:; |
2686 |
base[0]= coerce_to_string((V224)); |
base[0]= coerce_to_string((V224)); |
2687 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2688 |
Lfind_package(); |
Lfind_package(); |
2689 |
vs_top=sup; |
vs_top=sup; |
2690 |
V221= vs_base[0];} |
V221= vs_base[0];} |
2691 |
goto T1041; |
goto T1041; |
2692 |
T1041:; |
T1041:; |
2693 |
V222= Cnil; |
V222= Cnil; |
2694 |
V223= Cnil; |
V223= Cnil; |
2701 |
V227= vs_base[0]; |
V227= vs_base[0]; |
2702 |
V225= make_cons((V221),V227); |
V225= make_cons((V221),V227); |
2703 |
V226= CMPcar((V225)); |
V226= CMPcar((V225)); |
2704 |
goto T1054; |
goto T1054; |
2705 |
T1054:; |
T1054:; |
2706 |
if(!(((V225))==Cnil)){ |
if(!(((V225))==Cnil)){ |
2707 |
goto T1055;} |
goto T1055;} |
2708 |
V222= Cnil; |
V222= Cnil; |
2709 |
goto T1040; |
goto T1040; |
2710 |
goto T1055; |
goto T1055; |
2711 |
T1055:; |
T1055:; |
2712 |
{long V228; |
{long V228; |
2713 |
long V229; |
long V229; |
2721 |
V229= fix(vs_base[0]); |
V229= fix(vs_base[0]); |
2722 |
vs_top=sup; |
vs_top=sup; |
2723 |
goto T1066; |
goto T1066; |
2724 |
goto T1064; |
goto T1064; |
2725 |
T1064:; |
T1064:; |
2726 |
V228= fix(Cnil); |
V228= fix(Cnil); |
2727 |
goto T1065; |
goto T1065; |
2728 |
T1065:; |
T1065:; |
2729 |
V229= fix(Cnil); |
V229= fix(Cnil); |
2730 |
goto T1066; |
goto T1066; |
2731 |
T1066:; |
T1066:; |
2732 |
if(((V221))==((V226))){ |
if(((V221))==((V226))){ |
2733 |
goto T1067;} |
goto T1067;} |
2734 |
V229= 0; |
V229= 0; |
2735 |
goto T1067; |
goto T1067; |
2736 |
T1067:; |
T1067:; |
2737 |
{object V230; |
{object V230; |
2738 |
register object V231; |
register object V231; |
2740 |
V233 = make_fixnum(V228); |
V233 = make_fixnum(V228); |
2741 |
V230= number_plus(V232,V233); |
V230= number_plus(V232,V233); |
2742 |
V231= small_fixnum(0); |
V231= small_fixnum(0); |
2743 |
goto T1074; |
goto T1074; |
2744 |
T1074:; |
T1074:; |
2745 |
if(!(number_compare((V231),(V230))>=0)){ |
if(!(number_compare((V231),(V230))>=0)){ |
2746 |
goto T1075;} |
goto T1075;} |
2747 |
goto T1061; |
goto T1061; |
2748 |
goto T1075; |
goto T1075; |
2749 |
T1075:; |
T1075:; |
2750 |
V234 = make_fixnum(V229); |
V234 = make_fixnum(V229); |
2751 |
if(!(number_compare((V231),V234)<0)){ |
if(!(number_compare((V231),V234)<0)){ |
2757 |
vs_top=sup; |
vs_top=sup; |
2758 |
V223= vs_base[0]; |
V223= vs_base[0]; |
2759 |
goto T1082; |
goto T1082; |
2760 |
goto T1084; |
goto T1084; |
2761 |
T1084:; |
T1084:; |
2762 |
base[3]= (V226); |
base[3]= (V226); |
2763 |
V235 = make_fixnum(V229); |
V235 = make_fixnum(V229); |
2766 |
siLpackage_external(); |
siLpackage_external(); |
2767 |
vs_top=sup; |
vs_top=sup; |
2768 |
V223= vs_base[0]; |
V223= vs_base[0]; |
2769 |
goto T1082; |
goto T1082; |
2770 |
T1082:; |
T1082:; |
2771 |
goto T1080; |
goto T1080; |
2772 |
T1080:; |
T1080:; |
2773 |
if(((V223))!=Cnil){ |
if(((V223))!=Cnil){ |
2774 |
goto T1090;} |
goto T1090;} |
2775 |
goto T1081; |
goto T1081; |
2776 |
goto T1090; |
goto T1090; |
2777 |
T1090:; |
T1090:; |
2778 |
V222= CMPcar((V223)); |
V222= CMPcar((V223)); |
2779 |
if(((V226))==((V221))){ |
if(((V226))==((V221))){ |
2791 |
V236= vs_base[0]; |
V236= vs_base[0]; |
2792 |
if(!((VV[124])==(CMPcar(V236)))){ |
if(!((VV[124])==(CMPcar(V236)))){ |
2793 |
goto T1095;} |
goto T1095;} |
2794 |
goto T1096; |
goto T1096; |
2795 |
T1096:; |
T1096:; |
2796 |
{object V237 =((V222))->s.s_plist; |
{object V237 =((V222))->s.s_plist; |
2797 |
object ind= VV[54]; |
object ind= VV[54]; |
2802 |
goto T1107; |
goto T1107; |
2803 |
}else V237=V237->c.c_cdr->c.c_cdr;} |
}else V237=V237->c.c_cdr->c.c_cdr;} |
2804 |
goto T1105;} |
goto T1105;} |
2805 |
goto T1107; |
goto T1107; |
2806 |
T1107:; |
T1107:; |
2807 |
base[3]= (VV[48]->s.s_dbind); |
base[3]= (VV[48]->s.s_dbind); |
2808 |
base[4]= VV[125]; |
base[4]= VV[125]; |
2815 |
goto T1111; |
goto T1111; |
2816 |
}else V238=V238->c.c_cdr->c.c_cdr;} |
}else V238=V238->c.c_cdr->c.c_cdr;} |
2817 |
base[6]= Cnil;} |
base[6]= Cnil;} |
2818 |
goto T1111; |
goto T1111; |
2819 |
T1111:; |
T1111:; |
2820 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
2821 |
Lformat(); |
Lformat(); |
2822 |
vs_top=sup; |
vs_top=sup; |
2823 |
goto T1105; |
goto T1105; |
2824 |
T1105:; |
T1105:; |
2825 |
goto T1095; |
goto T1095; |
2826 |
T1095:; |
T1095:; |
2827 |
V223= CMPcdr((V223)); |
V223= CMPcdr((V223)); |
2828 |
goto T1080; |
goto T1080; |
2829 |
goto T1081; |
goto T1081; |
2830 |
T1081:; |
T1081:; |
2831 |
goto T1078; |
goto T1078; |
2832 |
goto T1078; |
goto T1078; |
2833 |
T1078:; |
T1078:; |
2834 |
V231= one_plus((V231)); |
V231= one_plus((V231)); |
2835 |
goto T1074;}} |
goto T1074;}} |
2836 |
goto T1061; |
goto T1061; |
2837 |
T1061:; |
T1061:; |
2838 |
V225= CMPcdr((V225)); |
V225= CMPcdr((V225)); |
2839 |
V226= CMPcar((V225)); |
V226= CMPcar((V225)); |
2840 |
goto T1054;}} |
goto T1054;}} |
2841 |
goto T1040; |
goto T1040; |
2842 |
T1040:; |
T1040:; |
2843 |
vs_base=vs_top=base+0; |
vs_base=vs_top=base+0; |
2844 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
2862 |
if(!(type_of((V240))==t_string)){ |
if(!(type_of((V240))==t_string)){ |
2863 |
goto T1123;} |
goto T1123;} |
2864 |
goto T1122; |
goto T1122; |
2865 |
goto T1123; |
goto T1123; |
2866 |
T1123:; |
T1123:; |
2867 |
base[1]= VV[126]; |
base[1]= VV[126]; |
2868 |
base[2]= (V240); |
base[2]= (V240); |
2869 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2870 |
Lerror(); |
Lerror(); |
2871 |
vs_top=sup; |
vs_top=sup; |
2872 |
goto T1122; |
goto T1122; |
2873 |
T1122:; |
T1122:; |
2874 |
{long V241; |
{long V241; |
2875 |
V241= (long)((V240))->v.v_fillp; |
V241= (long)((V240))->v.v_fillp; |
2877 |
goto T1129;} |
goto T1129;} |
2878 |
if((((V240))->ust.ust_self[(long)(V241)-(1)])==(47)){ |
if((((V240))->ust.ust_self[(long)(V241)-(1)])==(47)){ |
2879 |
goto T1127;} |
goto T1127;} |
2880 |
goto T1129; |
goto T1129; |
2881 |
T1129:; |
T1129:; |
2882 |
base[1]= Cnil; |
base[1]= Cnil; |
2883 |
base[2]= VV[128]; |
base[2]= VV[128]; |
2886 |
Lformat(); |
Lformat(); |
2887 |
vs_top=sup; |
vs_top=sup; |
2888 |
V240= vs_base[0];} |
V240= vs_base[0];} |
2889 |
goto T1127; |
goto T1127; |
2890 |
T1127:; |
T1127:; |
2891 |
base[1]= (V240); |
base[1]= (V240); |
2892 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2908 |
goto T1137;} |
goto T1137;} |
2909 |
{register object V243; |
{register object V243; |
2910 |
V243= (V242); |
V243= (V242); |
2911 |
goto T1142; |
goto T1142; |
2912 |
T1142:; |
T1142:; |
2913 |
if(!(type_of((V243))!=t_cons)){ |
if(!(type_of((V243))!=t_cons)){ |
2914 |
goto T1143;} |
goto T1143;} |
2915 |
goto T1140; |
goto T1140; |
2916 |
goto T1143; |
goto T1143; |
2917 |
T1143:; |
T1143:; |
2918 |
{register object V245; |
{register object V245; |
2919 |
base[2]= CMPcar((V243)); |
base[2]= CMPcar((V243)); |
2924 |
(V243)->c.c_car = (V245);} |
(V243)->c.c_car = (V245);} |
2925 |
V243= CMPcdr((V243)); |
V243= CMPcdr((V243)); |
2926 |
goto T1142;} |
goto T1142;} |
2927 |
goto T1140; |
goto T1140; |
2928 |
T1140:; |
T1140:; |
2929 |
{register object V246; |
{register object V246; |
2930 |
V246= (V242); |
V246= (V242); |
2931 |
goto T1155; |
goto T1155; |
2932 |
T1155:; |
T1155:; |
2933 |
if(!(type_of((V246))!=t_cons)){ |
if(!(type_of((V246))!=t_cons)){ |
2934 |
goto T1156;} |
goto T1156;} |
2935 |
goto T1137; |
goto T1137; |
2936 |
goto T1156; |
goto T1156; |
2937 |
T1156:; |
T1156:; |
2938 |
{register object V247; |
{register object V247; |
2939 |
V247= (V246); |
V247= (V246); |
2940 |
goto T1162; |
goto T1162; |
2941 |
T1162:; |
T1162:; |
2942 |
if(!(type_of(CMPcdr((V247)))!=t_cons)){ |
if(!(type_of(CMPcdr((V247)))!=t_cons)){ |
2943 |
goto T1163;} |
goto T1163;} |
2944 |
goto T1160; |
goto T1160; |
2945 |
goto T1163; |
goto T1163; |
2946 |
T1163:; |
T1163:; |
2947 |
if(!(equal(CMPcadr((V247)),CMPcar((V246))))){ |
if(!(equal(CMPcadr((V247)),CMPcar((V246))))){ |
2948 |
goto T1167;} |
goto T1167;} |
2951 |
V248= (V247); |
V248= (V247); |
2952 |
V249= CMPcddr((V247)); |
V249= CMPcddr((V247)); |
2953 |
((V248))->c.c_cdr = (V249);} |
((V248))->c.c_cdr = (V249);} |
2954 |
goto T1167; |
goto T1167; |
2955 |
T1167:; |
T1167:; |
2956 |
V247= CMPcdr((V247)); |
V247= CMPcdr((V247)); |
2957 |
goto T1162;} |
goto T1162;} |
2958 |
goto T1160; |
goto T1160; |
2959 |
T1160:; |
T1160:; |
2960 |
V246= CMPcdr((V246)); |
V246= CMPcdr((V246)); |
2961 |
goto T1155;} |
goto T1155;} |
2962 |
goto T1137; |
goto T1137; |
2963 |
T1137:; |
T1137:; |
2964 |
(VV[129]->s.s_dbind)= (V242); |
(VV[129]->s.s_dbind)= (V242); |
2965 |
base[1]= (VV[129]->s.s_dbind); |
base[1]= (VV[129]->s.s_dbind); |
2990 |
V253=(base[3]); |
V253=(base[3]); |
2991 |
vs_top=sup; |
vs_top=sup; |
2992 |
goto T1183; |
goto T1183; |
2993 |
goto T1180; |
goto T1180; |
2994 |
T1180:; |
T1180:; |
2995 |
V251= (VV[130]->s.s_dbind); |
V251= (VV[130]->s.s_dbind); |
2996 |
goto T1181; |
goto T1181; |
2997 |
T1181:; |
T1181:; |
2998 |
V252= (VV[131]->s.s_dbind); |
V252= (VV[131]->s.s_dbind); |
2999 |
goto T1182; |
goto T1182; |
3000 |
T1182:; |
T1182:; |
3001 |
V253= Ct; |
V253= Ct; |
3002 |
goto T1183; |
goto T1183; |
3003 |
T1183:; |
T1183:; |
3004 |
{register object V254; |
{register object V254; |
3005 |
V254= Cnil; |
V254= Cnil; |
3011 |
register object V256; |
register object V256; |
3012 |
V255= (V251); |
V255= (V251); |
3013 |
V256= CMPcar((V255)); |
V256= CMPcar((V255)); |
3014 |
goto T1194; |
goto T1194; |
3015 |
T1194:; |
T1194:; |
3016 |
if(!(((V255))==Cnil)){ |
if(!(((V255))==Cnil)){ |
3017 |
goto T1195;} |
goto T1195;} |
3018 |
goto T1190; |
goto T1190; |
3019 |
goto T1195; |
goto T1195; |
3020 |
T1195:; |
T1195:; |
3021 |
{register object V257; |
{register object V257; |
3022 |
register object V258; |
register object V258; |
3023 |
V257= (V252); |
V257= (V252); |
3024 |
V258= CMPcar((V257)); |
V258= CMPcar((V257)); |
3025 |
goto T1203; |
goto T1203; |
3026 |
T1203:; |
T1203:; |
3027 |
if(!(((V257))==Cnil)){ |
if(!(((V257))==Cnil)){ |
3028 |
goto T1204;} |
goto T1204;} |
3029 |
goto T1199; |
goto T1199; |
3030 |
goto T1204; |
goto T1204; |
3031 |
T1204:; |
T1204:; |
3032 |
base[6]= (V256); |
base[6]= (V256); |
3033 |
base[7]= (V250); |
base[7]= (V250); |
3041 |
base[6]= (V254); |
base[6]= (V254); |
3042 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3043 |
return; |
return; |
3044 |
goto T1208; |
goto T1208; |
3045 |
T1208:; |
T1208:; |
3046 |
V257= CMPcdr((V257)); |
V257= CMPcdr((V257)); |
3047 |
V258= CMPcar((V257)); |
V258= CMPcar((V257)); |
3048 |
goto T1203;} |
goto T1203;} |
3049 |
goto T1199; |
goto T1199; |
3050 |
T1199:; |
T1199:; |
3051 |
V255= CMPcdr((V255)); |
V255= CMPcdr((V255)); |
3052 |
V256= CMPcar((V255)); |
V256= CMPcar((V255)); |
3053 |
goto T1194;} |
goto T1194;} |
3054 |
goto T1190; |
goto T1190; |
3055 |
T1190:; |
T1190:; |
3056 |
if(((V253))==Cnil){ |
if(((V253))==Cnil){ |
3057 |
goto T1226;} |
goto T1226;} |
3068 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3069 |
bds_unwind1; |
bds_unwind1; |
3070 |
return; |
return; |
3071 |
goto T1226; |
goto T1226; |
3072 |
T1226:; |
T1226:; |
3073 |
base[4]= Cnil; |
base[4]= Cnil; |
3074 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3119 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3120 |
bds_unwind1; |
bds_unwind1; |
3121 |
return; |
return; |
3122 |
goto T1238; |
goto T1238; |
3123 |
T1238:; |
T1238:; |
3124 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
3125 |
base[4]= |
base[4]= |
3150 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3151 |
bds_unwind1; |
bds_unwind1; |
3152 |
return; |
return; |
3153 |
goto T1243; |
goto T1243; |
3154 |
T1243:; |
T1243:; |
3155 |
{object V260; |
{object V260; |
3156 |
object V261; |
object V261; |
3181 |
V263=(base[1]); |
V263=(base[1]); |
3182 |
vs_top=sup; |
vs_top=sup; |
3183 |
goto T1252; |
goto T1252; |
3184 |
goto T1251; |
goto T1251; |
3185 |
T1251:; |
T1251:; |
3186 |
V263= Cnil; |
V263= Cnil; |
3187 |
goto T1252; |
goto T1252; |
3188 |
T1252:; |
T1252:; |
3189 |
{register object V264; |
{register object V264; |
3190 |
V264= (VV[16]->s.s_dbind); |
V264= (VV[16]->s.s_dbind); |
3191 |
goto T1256; |
goto T1256; |
3192 |
T1256:; |
T1256:; |
3193 |
V264= CMPcdr((V264)); |
V264= CMPcdr((V264)); |
3194 |
if((V264)!=Cnil){ |
if((V264)!=Cnil){ |
3196 |
base[2]= Cnil; |
base[2]= Cnil; |
3197 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3198 |
return; |
return; |
3199 |
goto T1260; |
goto T1260; |
3200 |
T1260:; |
T1260:; |
3201 |
{register object V265; |
{register object V265; |
3202 |
V265= CMPcar((V264)); |
V265= CMPcar((V264)); |
3213 |
base[2]= (V266); |
base[2]= (V266); |
3214 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3215 |
return; |
return; |
3216 |
goto T1269; |
goto T1269; |
3217 |
T1269:; |
T1269:; |
3218 |
if((CMPcadr((V264)))==Cnil){ |
if((CMPcadr((V264)))==Cnil){ |
3219 |
goto T1272;} |
goto T1272;} |
3221 |
base[3]= CMPcdr((V264)); |
base[3]= CMPcdr((V264)); |
3222 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3223 |
return; |
return; |
3224 |
goto T1272; |
goto T1272; |
3225 |
T1272:; |
T1272:; |
3226 |
base[2]= Ct; |
base[2]= Ct; |
3227 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3228 |
return;}} |
return;}} |
3229 |
goto T1257; |
goto T1257; |
3230 |
T1257:; |
T1257:; |
3231 |
goto T1256;} |
goto T1256;} |
3232 |
} |
} |
3253 |
if(V270==Cnil)goto T1278; |
if(V270==Cnil)goto T1278; |
3254 |
V269= V270; |
V269= V270; |
3255 |
goto T1277; |
goto T1277; |
3256 |
goto T1278; |
goto T1278; |
3257 |
T1278:;} |
T1278:;} |
3258 |
if(((V267))->s.s_dbind!=OBJNULL){ |
if(((V267))->s.s_dbind!=OBJNULL){ |
3259 |
goto T1281;} |
goto T1281;} |
3260 |
V269= Cnil; |
V269= Cnil; |
3261 |
goto T1277; |
goto T1277; |
3262 |
goto T1281; |
goto T1281; |
3263 |
T1281:; |
T1281:; |
3264 |
base[2]= (V267); |
base[2]= (V267); |
3265 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3266 |
Lsymbol_value(); |
Lsymbol_value(); |
3267 |
vs_top=sup; |
vs_top=sup; |
3268 |
V269= vs_base[0]; |
V269= vs_base[0]; |
3269 |
goto T1277; |
goto T1277; |
3270 |
T1277:; |
T1277:; |
3271 |
if(((V269))==Cnil){ |
if(((V269))==Cnil){ |
3272 |
goto T1285;} |
goto T1285;} |
3279 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3280 |
Lset(); |
Lset(); |
3281 |
return; |
return; |
3282 |
goto T1285; |
goto T1285; |
3283 |
T1285:; |
T1285:; |
3284 |
base[2]= Cnil; |
base[2]= Cnil; |
3285 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3303 |
vs_top=sup; |
vs_top=sup; |
3304 |
V271= fix(vs_base[0]); |
V271= fix(vs_base[0]); |
3305 |
V272= Cnil; |
V272= Cnil; |
3306 |
goto T1294; |
goto T1294; |
3307 |
T1294:; |
T1294:; |
3308 |
V271= (long)(V271)-(1); |
V271= (long)(V271)-(1); |
3309 |
if(!((V271)<(0))){ |
if(!((V271)<(0))){ |
3310 |
goto T1299;} |
goto T1299;} |
3311 |
goto T1292; |
goto T1292; |
3312 |
goto T1299; |
goto T1299; |
3313 |
T1299:; |
T1299:; |
3314 |
base[0]= make_fixnum(V271); |
base[0]= make_fixnum(V271); |
3315 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3318 |
V273= vs_base[0]; |
V273= vs_base[0]; |
3319 |
V272= make_cons(V273,(V272)); |
V272= make_cons(V273,(V272)); |
3320 |
goto T1294; |
goto T1294; |
3321 |
goto T1292; |
goto T1292; |
3322 |
T1292:; |
T1292:; |
3323 |
(VV[16]->s.s_dbind)= (V272); |
(VV[16]->s.s_dbind)= (V272); |
3324 |
V272= (VV[137]->s.s_dbind); |
V272= (VV[137]->s.s_dbind); |
3336 |
V275= vs_base[0]; |
V275= vs_base[0]; |
3337 |
if(V275==Cnil)goto T1312; |
if(V275==Cnil)goto T1312; |
3338 |
goto T1311; |
goto T1311; |
3339 |
goto T1312; |
goto T1312; |
3340 |
T1312:;} |
T1312:;} |
3341 |
if(((V274))==Cnil){ |
if(((V274))==Cnil){ |
3342 |
goto T1311;} |
goto T1311;} |
3345 |
(void) (*Lnk207)(); |
(void) (*Lnk207)(); |
3346 |
vs_top=sup; |
vs_top=sup; |
3347 |
(VV[137]->s.s_dbind)= vs_base[0]; |
(VV[137]->s.s_dbind)= vs_base[0]; |
3348 |
goto T1311; |
goto T1311; |
3349 |
T1311:; |
T1311:; |
3350 |
if(((VV[130]->s.s_dbind))==Cnil){ |
if(((VV[130]->s.s_dbind))==Cnil){ |
3351 |
goto T1321;} |
goto T1321;} |
3352 |
if(equal((V272),(VV[137]->s.s_dbind))){ |
if(equal((V272),(VV[137]->s.s_dbind))){ |
3353 |
goto T1320;} |
goto T1320;} |
3354 |
goto T1321; |
goto T1321; |
3355 |
T1321:; |
T1321:; |
3356 |
base[0]= (VV[137]->s.s_dbind); |
base[0]= (VV[137]->s.s_dbind); |
3357 |
base[1]= VV[140]; |
base[1]= VV[140]; |
3367 |
vs_top=sup; |
vs_top=sup; |
3368 |
V277= vs_base[0]; |
V277= vs_base[0]; |
3369 |
(VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind)); |
(VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind)); |
3370 |
goto T1320; |
goto T1320; |
3371 |
T1320:; |
T1320:; |
3372 |
base[2]= VV[143]; |
base[2]= VV[143]; |
3373 |
base[3]= Cnil; |
base[3]= Cnil; |
3422 |
(void) (*Lnk215)(); |
(void) (*Lnk215)(); |
3423 |
bds_unwind1; |
bds_unwind1; |
3424 |
return; |
return; |
3425 |
goto T1349; |
goto T1349; |
3426 |
T1349:; |
T1349:; |
3427 |
base[0]= Cnil; |
base[0]= Cnil; |
3428 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3462 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3463 |
Lread_line(); |
Lread_line(); |
3464 |
vs_top=sup; |
vs_top=sup; |
3465 |
goto T1367; |
goto T1367; |
3466 |
T1367:; |
T1367:; |
3467 |
base[6]= base[4]; |
base[6]= base[4]; |
3468 |
base[7]= Cnil; |
base[7]= Cnil; |
3476 |
base[6]= Cnil; |
base[6]= Cnil; |
3477 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3478 |
goto T1363; |
goto T1363; |
3479 |
goto T1374; |
goto T1374; |
3480 |
T1374:; |
T1374:; |
3481 |
base[6]= base[2]; |
base[6]= base[2]; |
3482 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3483 |
Leval(); |
Leval(); |
3484 |
vs_top=sup; |
vs_top=sup; |
3485 |
goto T1367; |
goto T1367; |
3486 |
goto T1363; |
goto T1363; |
3487 |
T1363:; |
T1363:; |
3488 |
active=FALSE;} |
active=FALSE;} |
3489 |
base[5]=Cnil; |
base[5]=Cnil; |
3497 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3498 |
Lclose(); |
Lclose(); |
3499 |
vs_top=sup; |
vs_top=sup; |
3500 |
goto T1379; |
goto T1379; |
3501 |
T1379:; |
T1379:; |
3502 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
3503 |
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)); |
3507 |
Lby(); |
Lby(); |
3508 |
vs_top=sup; |
vs_top=sup; |
3509 |
frs_pop();} |
frs_pop();} |
3510 |
goto T1358; |
goto T1358; |
3511 |
T1358:; |
T1358:; |
3512 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
3513 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |