175 |
V25= Cnil; |
V25= Cnil; |
176 |
{object V27; |
{object V27; |
177 |
register object V28; |
register object V28; |
178 |
|
V29 = (V23); |
179 |
base[7]= (V23); |
base[7]= (V23); |
180 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
181 |
Lpackage_use_list(); |
Lpackage_use_list(); |
182 |
vs_top=sup; |
vs_top=sup; |
183 |
V29= vs_base[0]; |
V30= vs_base[0]; |
184 |
V27= make_cons((V23),V29); |
V27= make_cons(V29,V30); |
185 |
V28= CMPcar((V27)); |
V28= CMPcar((V27)); |
186 |
goto T81; |
goto T81; |
187 |
T81:; |
T81:; |
191 |
goto T63; |
goto T63; |
192 |
goto T82; |
goto T82; |
193 |
T82:; |
T82:; |
194 |
{long V30; |
{long V31; |
195 |
long V31; |
long V32; |
196 |
base[7]= (V28); |
base[7]= (V28); |
197 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
198 |
(void) (*Lnk12)(); |
(void) (*Lnk12)(); |
199 |
if(vs_base>=vs_top){vs_top=sup;goto T91;} |
if(vs_base>=vs_top){vs_top=sup;goto T91;} |
200 |
V30= fix(vs_base[0]); |
V31= fix(vs_base[0]); |
201 |
vs_base++; |
vs_base++; |
202 |
if(vs_base>=vs_top){vs_top=sup;goto T92;} |
if(vs_base>=vs_top){vs_top=sup;goto T92;} |
203 |
V31= fix(vs_base[0]); |
V32= fix(vs_base[0]); |
204 |
vs_top=sup; |
vs_top=sup; |
205 |
goto T93; |
goto T93; |
206 |
goto T91; |
goto T91; |
207 |
T91:; |
T91:; |
208 |
V30= fix(Cnil); |
V31= fix(Cnil); |
209 |
goto T92; |
goto T92; |
210 |
T92:; |
T92:; |
211 |
V31= fix(Cnil); |
V32= fix(Cnil); |
212 |
goto T93; |
goto T93; |
213 |
T93:; |
T93:; |
214 |
if(((V23))==((V28))){ |
if(((V23))==((V28))){ |
215 |
goto T94;} |
goto T94;} |
216 |
V31= 0; |
V32= 0; |
217 |
goto T94; |
goto T94; |
218 |
T94:; |
T94:; |
219 |
{object V32; |
{object V33; |
220 |
register object V33; |
register object V34; |
221 |
V34 = CMPmake_fixnum(V31); |
V35 = CMPmake_fixnum(V32); |
222 |
V35 = CMPmake_fixnum(V30); |
V36 = CMPmake_fixnum(V31); |
223 |
V32= number_plus(V34,V35); |
V33= number_plus(V35,V36); |
224 |
V33= small_fixnum(0); |
V34= small_fixnum(0); |
225 |
goto T101; |
goto T101; |
226 |
T101:; |
T101:; |
227 |
if(!(number_compare((V33),(V32))>=0)){ |
if(!(number_compare((V34),(V33))>=0)){ |
228 |
goto T102;} |
goto T102;} |
229 |
goto T88; |
goto T88; |
230 |
goto T102; |
goto T102; |
231 |
T102:; |
T102:; |
232 |
V36 = CMPmake_fixnum(V31); |
V37 = CMPmake_fixnum(V32); |
233 |
if(!(number_compare((V33),V36)<0)){ |
if(!(number_compare((V34),V37)<0)){ |
234 |
goto T111;} |
goto T111;} |
235 |
base[8]= (V28); |
base[8]= (V28); |
236 |
base[9]= (V33); |
base[9]= (V34); |
237 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
238 |
siLpackage_internal(); |
siLpackage_internal(); |
239 |
vs_top=sup; |
vs_top=sup; |
242 |
goto T111; |
goto T111; |
243 |
T111:; |
T111:; |
244 |
base[8]= (V28); |
base[8]= (V28); |
245 |
V37 = CMPmake_fixnum(V31); |
V38 = CMPmake_fixnum(V32); |
246 |
base[9]= number_minus((V33),V37); |
base[9]= number_minus((V34),V38); |
247 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
248 |
siLpackage_external(); |
siLpackage_external(); |
249 |
vs_top=sup; |
vs_top=sup; |
270 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
271 |
Llast(); |
Llast(); |
272 |
vs_top=sup; |
vs_top=sup; |
273 |
V38= vs_base[0]; |
V39= vs_base[0]; |
274 |
if(!((VV[2])==(CMPcar(V38)))){ |
if(!((VV[2])==(CMPcar(V39)))){ |
275 |
goto T122;} |
goto T122;} |
276 |
goto T123; |
goto T123; |
277 |
T123:; |
T123:; |
278 |
|
V40 = (V3); |
279 |
base[8]= (V24); |
base[8]= (V24); |
280 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
281 |
Lsymbol_package(); |
Lsymbol_package(); |
282 |
vs_top=sup; |
vs_top=sup; |
283 |
V39= vs_base[0]; |
V41= vs_base[0]; |
284 |
if(((V3))==(V39)){ |
if((V40)==(V41)){ |
285 |
goto T132;} |
goto T132;} |
286 |
base[9]= (V24); |
base[9]= (V24); |
287 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
306 |
goto T105; |
goto T105; |
307 |
goto T105; |
goto T105; |
308 |
T105:; |
T105:; |
309 |
V33= one_plus((V33)); |
V34= one_plus((V34)); |
310 |
goto T101;}} |
goto T101;}} |
311 |
goto T88; |
goto T88; |
312 |
T88:; |
T88:; |
333 |
(void) (*Lnk15)(); |
(void) (*Lnk15)(); |
334 |
vs_top=sup; |
vs_top=sup; |
335 |
V13= vs_base[0]; |
V13= vs_base[0]; |
336 |
|
V43 = (V4); |
337 |
if(((V5))==Cnil){ |
if(((V5))==Cnil){ |
338 |
goto T168;} |
goto T168;} |
339 |
V42= make_cons(VV[4],(V5)); |
V45= make_cons(VV[4],(V5)); |
340 |
base[5]= make_cons(/* INLINE-ARGS */V42,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V45,Cnil); |
341 |
goto T166; |
goto T166; |
342 |
goto T168; |
goto T168; |
343 |
T168:; |
T168:; |
346 |
T166:; |
T166:; |
347 |
if(((V7))==Cnil){ |
if(((V7))==Cnil){ |
348 |
goto T172;} |
goto T172;} |
349 |
V43= make_cons(VV[5],(V7)); |
V46= make_cons(VV[5],(V7)); |
350 |
base[6]= make_cons(/* INLINE-ARGS */V43,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V46,Cnil); |
351 |
goto T170; |
goto T170; |
352 |
goto T172; |
goto T172; |
353 |
T172:; |
T172:; |
356 |
T170:; |
T170:; |
357 |
if(((V8))==Cnil){ |
if(((V8))==Cnil){ |
358 |
goto T176;} |
goto T176;} |
359 |
V44= make_cons(VV[6],(V8)); |
V47= make_cons(VV[6],(V8)); |
360 |
base[7]= make_cons(/* INLINE-ARGS */V44,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V47,Cnil); |
361 |
goto T174; |
goto T174; |
362 |
goto T176; |
goto T176; |
363 |
T176:; |
T176:; |
366 |
T174:; |
T174:; |
367 |
if(((V12))==Cnil){ |
if(((V12))==Cnil){ |
368 |
goto T180;} |
goto T180;} |
369 |
{object V46; |
{object V49; |
370 |
object V47= (V12); |
object V50= (V12); |
371 |
if(V47==Cnil){ |
if(V50==Cnil){ |
372 |
V45= Cnil; |
V48= Cnil; |
373 |
goto T182;} |
goto T182;} |
374 |
base[9]=V46=MMcons(Cnil,Cnil); |
base[9]=V49=MMcons(Cnil,Cnil); |
375 |
goto T183; |
goto T183; |
376 |
T183:; |
T183:; |
377 |
(V46->c.c_car)= symbol_name((V47->c.c_car)); |
(V49->c.c_car)= symbol_name((V50->c.c_car)); |
378 |
if((V47=MMcdr(V47))==Cnil){ |
if((V50=MMcdr(V50))==Cnil){ |
379 |
V45= base[9]; |
V48= base[9]; |
380 |
goto T182;} |
goto T182;} |
381 |
V46=MMcdr(V46)=MMcons(Cnil,Cnil); |
V49=MMcdr(V49)=MMcons(Cnil,Cnil); |
382 |
goto T183;} |
goto T183;} |
383 |
goto T182; |
goto T182; |
384 |
T182:; |
T182:; |
385 |
V48= make_cons(VV[7],V45); |
V51= make_cons(VV[7],V48); |
386 |
base[8]= make_cons(/* INLINE-ARGS */V48,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V51,Cnil); |
387 |
goto T178; |
goto T178; |
388 |
goto T180; |
goto T180; |
389 |
T180:; |
T180:; |
392 |
T178:; |
T178:; |
393 |
if(((V11))==Cnil){ |
if(((V11))==Cnil){ |
394 |
goto T187;} |
goto T187;} |
395 |
{object V49; |
{object V52; |
396 |
object V50= (V11); |
object V53= (V11); |
397 |
if(V50==Cnil){ |
if(V53==Cnil){ |
398 |
base[9]= Cnil; |
base[9]= Cnil; |
399 |
goto T185;} |
goto T185;} |
400 |
base[10]=V49=MMcons(Cnil,Cnil); |
base[10]=V52=MMcons(Cnil,Cnil); |
401 |
goto T189; |
goto T189; |
402 |
T189:; |
T189:; |
403 |
base[12]= (V50->c.c_car); |
base[12]= (V53->c.c_car); |
404 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
405 |
Lsymbol_package(); |
Lsymbol_package(); |
406 |
vs_top=sup; |
vs_top=sup; |
408 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
409 |
Lpackage_name(); |
Lpackage_name(); |
410 |
vs_top=sup; |
vs_top=sup; |
411 |
V52= vs_base[0]; |
V55= vs_base[0]; |
412 |
V53= list(3,VV[8],V52,symbol_name((V50->c.c_car))); |
V56= list(3,VV[8],V55,symbol_name((V53->c.c_car))); |
413 |
(V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil); |
(V52->c.c_car)= make_cons(/* INLINE-ARGS */V56,Cnil); |
414 |
if((V50=MMcdr(V50))==Cnil){ |
if((V53=MMcdr(V53))==Cnil){ |
415 |
base[9]= base[10]; |
base[9]= base[10]; |
416 |
goto T185;} |
goto T185;} |
417 |
V49=MMcdr(V49)=MMcons(Cnil,Cnil); |
V52=MMcdr(V52)=MMcons(Cnil,Cnil); |
418 |
goto T189;} |
goto T189;} |
419 |
goto T187; |
goto T187; |
420 |
T187:; |
T187:; |
423 |
T185:; |
T185:; |
424 |
if(((V13))==Cnil){ |
if(((V13))==Cnil){ |
425 |
goto T196;} |
goto T196;} |
426 |
{object V54; |
{object V57; |
427 |
object V55= (V13); |
object V58= (V13); |
428 |
if(V55==Cnil){ |
if(V58==Cnil){ |
429 |
base[10]= Cnil; |
base[10]= Cnil; |
430 |
goto T194;} |
goto T194;} |
431 |
base[11]=V54=MMcons(Cnil,Cnil); |
base[11]=V57=MMcons(Cnil,Cnil); |
432 |
goto T198; |
goto T198; |
433 |
T198:; |
T198:; |
434 |
base[13]= (V55->c.c_car); |
base[13]= (V58->c.c_car); |
435 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
436 |
Lsymbol_package(); |
Lsymbol_package(); |
437 |
vs_top=sup; |
vs_top=sup; |
439 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
440 |
Lpackage_name(); |
Lpackage_name(); |
441 |
vs_top=sup; |
vs_top=sup; |
442 |
V57= vs_base[0]; |
V60= vs_base[0]; |
443 |
V58= list(3,VV[9],V57,symbol_name((V55->c.c_car))); |
V61= list(3,VV[9],V60,symbol_name((V58->c.c_car))); |
444 |
(V54->c.c_car)= make_cons(/* INLINE-ARGS */V58,Cnil); |
(V57->c.c_car)= make_cons(/* INLINE-ARGS */V61,Cnil); |
445 |
if((V55=MMcdr(V55))==Cnil){ |
if((V58=MMcdr(V58))==Cnil){ |
446 |
base[10]= base[11]; |
base[10]= base[11]; |
447 |
goto T194;} |
goto T194;} |
448 |
V54=MMcdr(V54)=MMcons(Cnil,Cnil); |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
449 |
goto T198;} |
goto T198;} |
450 |
goto T196; |
goto T196; |
451 |
T196:; |
T196:; |
455 |
vs_top=(vs_base=base+5)+6; |
vs_top=(vs_base=base+5)+6; |
456 |
Lappend(); |
Lappend(); |
457 |
vs_top=sup; |
vs_top=sup; |
458 |
V41= vs_base[0]; |
V44= vs_base[0]; |
459 |
{object V59 = listA(3,VV[3],(V4),V41); |
{object V62 = listA(3,VV[3],V43,V44); |
460 |
VMR1(V59)}}} |
VMR1(V62)}}} |
461 |
base[0]=base[0]; |
base[0]=base[0]; |
462 |
return Cnil; |
return Cnil; |
463 |
} |
} |