212 |
goto T36; |
goto T36; |
213 |
goto T44; |
goto T44; |
214 |
T44:; |
T44:; |
215 |
|
V34 = base[3]; |
216 |
base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]); |
base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]); |
217 |
base[7]= (V26); |
base[7]= (V26); |
218 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
219 |
L8(base); |
L8(base); |
220 |
vs_top=sup; |
vs_top=sup; |
221 |
V34= vs_base[0]; |
V35= vs_base[0]; |
222 |
V32= list(3,VV[11],base[3],V34); |
V32= list(3,VV[11],V34,V35); |
223 |
goto T36; |
goto T36; |
224 |
T36:; |
T36:; |
225 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
238 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
239 |
vs_check; |
vs_check; |
240 |
vs_top=sup; |
vs_top=sup; |
241 |
{object V35=base[0]->c.c_cdr; |
{object V36=base[0]->c.c_cdr; |
242 |
base[2]= (V35->c.c_car); |
base[2]= (V36->c.c_car); |
243 |
V35=V35->c.c_cdr; |
V36=V36->c.c_cdr; |
244 |
if(endp(V35)){ |
if(endp(V36)){ |
245 |
base[3]= Cnil; |
base[3]= Cnil; |
246 |
} else { |
} else { |
247 |
base[3]= (V35->c.c_car);}} |
base[3]= (V36->c.c_car);}} |
248 |
if(base[3]!=Cnil){ |
if(base[3]!=Cnil){ |
249 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
250 |
return;} |
return;} |
258 |
{ |
{ |
259 |
va_list ap; |
va_list ap; |
260 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
261 |
{object V36; |
{object V37; |
|
object V37; |
|
262 |
object V38; |
object V38; |
263 |
object V39; |
object V39; |
264 |
object V40; |
object V40; |
265 |
object V41; |
object V41; |
266 |
|
object V42; |
267 |
va_start(ap,first); |
va_start(ap,first); |
268 |
narg= narg - 0; |
narg= narg - 0; |
269 |
{ |
{ |
270 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI10key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI10key,first,ap); |
271 |
V36=(Vcs[0]); |
V37=(Vcs[0]); |
272 |
V37=(Vcs[1]); |
V38=(Vcs[1]); |
273 |
V38=(Vcs[2]); |
V39=(Vcs[2]); |
274 |
V39=(Vcs[3]); |
V40=(Vcs[3]); |
275 |
V40=(Vcs[4]); |
V41=(Vcs[4]); |
276 |
V41=(Vcs[5]); |
V42=(Vcs[5]); |
277 |
base[0]= VV[18]; |
base[0]= VV[18]; |
278 |
base[1]= (V36); |
base[1]= (V37); |
279 |
base[2]= (V37); |
base[2]= (V38); |
280 |
base[3]= (V38); |
base[3]= (V39); |
281 |
base[4]= (V39); |
base[4]= (V40); |
282 |
base[5]= (V40); |
base[5]= (V41); |
283 |
base[6]= (V41); |
base[6]= (V42); |
284 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
285 |
siLmake_structure(); |
siLmake_structure(); |
286 |
vs_top=sup; |
vs_top=sup; |
287 |
{object V42 = vs_base[0]; |
{object V43 = vs_base[0]; |
288 |
VMR9(V42)} |
VMR9(V43)} |
289 |
va_end(ap); |
va_end(ap); |
290 |
base[0]=base[0]; |
base[0]=base[0]; |
291 |
return Cnil;} |
return Cnil;} |
292 |
}} |
}} |
293 |
/* local entry for function MAKE-LOOP-MINIMAX */ |
/* local entry for function MAKE-LOOP-MINIMAX */ |
294 |
|
|
295 |
static object LI11(V45,V46) |
static object LI11(V46,V47) |
296 |
|
|
297 |
object V45;object V46; |
object V46;object V47; |
298 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
299 |
goto TTL; |
goto TTL; |
300 |
TTL:; |
TTL:; |
301 |
{object V47; |
{object V48; |
302 |
base[0]= (V46); |
base[0]= (V47); |
303 |
base[1]= (VV[19]->s.s_dbind); |
base[1]= (VV[19]->s.s_dbind); |
304 |
base[2]= VV[20]; |
base[2]= VV[20]; |
305 |
base[3]= (VV[333]->s.s_gfdef); |
base[3]= (VV[333]->s.s_gfdef); |
306 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
307 |
Lassoc(); |
Lassoc(); |
308 |
vs_top=sup; |
vs_top=sup; |
309 |
V48= vs_base[0]; |
V49= vs_base[0]; |
310 |
V47= CMPcdr(V48); |
V48= CMPcdr(V49); |
311 |
V49= (VFUN_NARGS=1,(*(LnkLI335))(VV[24])); |
V50 = (V46); |
312 |
if(((V47))==Cnil){ |
V51 = (V47); |
313 |
|
V52= (VFUN_NARGS=1,(*(LnkLI335))(VV[24])); |
314 |
|
if(((V48))==Cnil){ |
315 |
goto T68;} |
goto T68;} |
316 |
V50= Cnil; |
V53= Cnil; |
317 |
goto T67; |
goto T67; |
318 |
goto T68; |
goto T68; |
319 |
T68:; |
T68:; |
320 |
V50= (VFUN_NARGS=1,(*(LnkLI335))(VV[26])); |
V53= (VFUN_NARGS=1,(*(LnkLI335))(VV[26])); |
321 |
goto T67; |
goto T67; |
322 |
T67:; |
T67:; |
323 |
{object V51 = (VFUN_NARGS=12,(*(LnkLI334))(VV[21],(V45),VV[22],(V46),VV[23],/* INLINE-ARGS */V49,VV[25],V50,VV[27],Cnil,VV[28],(V47))); |
V54 = (V48); |
324 |
VMR10(V51)}} |
{object V55 = (VFUN_NARGS=12,(*(LnkLI334))(VV[21],V50,VV[22],V51,VV[23],/* INLINE-ARGS */V52,VV[25],V53,VV[27],Cnil,VV[28],V54)); |
325 |
|
VMR10(V55)}} |
326 |
base[0]=base[0]; |
base[0]=base[0]; |
327 |
return Cnil; |
return Cnil; |
328 |
} |
} |
329 |
/* local entry for function LOOP-NOTE-MINIMAX-OPERATION */ |
/* local entry for function LOOP-NOTE-MINIMAX-OPERATION */ |
330 |
|
|
331 |
static object LI12(V54,V55) |
static object LI12(V58,V59) |
332 |
|
|
333 |
object V54;register object V55; |
object V58;register object V59; |
334 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
335 |
goto TTL; |
goto TTL; |
336 |
TTL:; |
TTL:; |
337 |
{object V58; |
{object V62; |
338 |
base[1]= V54; |
base[1]= V58; |
339 |
base[2]= STREF(object,V55,16); |
base[2]= STREF(object,V59,16); |
340 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
341 |
Ladjoin(); |
Ladjoin(); |
342 |
vs_top=sup; |
vs_top=sup; |
343 |
V58= vs_base[0]; |
V62= vs_base[0]; |
344 |
V59= Ct; |
V63 = V59; |
345 |
STSET(object,V55,16, (V58)); |
V64 = (V62); |
346 |
(void)((V58));} |
V65= Ct; |
347 |
if((CMPcdr(STREF(object,(V55),16)))==Cnil){ |
STSET(object,V63,16, V64); |
348 |
|
(void)(V64);} |
349 |
|
if((CMPcdr(STREF(object,(V59),16)))==Cnil){ |
350 |
goto T74;} |
goto T74;} |
351 |
if((STREF(object,(V55),12))!=Cnil){ |
if((STREF(object,(V59),12))!=Cnil){ |
352 |
goto T74;} |
goto T74;} |
353 |
V60= (VFUN_NARGS=1,(*(LnkLI335))(VV[26])); |
V66 = (V59); |
354 |
V61= Ct; |
V67= (VFUN_NARGS=1,(*(LnkLI335))(VV[26])); |
355 |
STSET(object,(V55),12, /* INLINE-ARGS */V60); |
V68= Ct; |
356 |
(void)(/* INLINE-ARGS */V60); |
STSET(object,V66,12, /* INLINE-ARGS */V67); |
357 |
|
(void)(/* INLINE-ARGS */V67); |
358 |
goto T74; |
goto T74; |
359 |
T74:; |
T74:; |
360 |
{object V62 = (V54); |
{object V69 = (V58); |
361 |
VMR11(V62)} |
VMR11(V69)} |
362 |
base[0]=base[0]; |
base[0]=base[0]; |
363 |
return Cnil; |
return Cnil; |
364 |
} |
} |
369 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
370 |
vs_check; |
vs_check; |
371 |
vs_top=sup; |
vs_top=sup; |
372 |
{object V63=base[0]->c.c_cdr; |
{object V70=base[0]->c.c_cdr; |
373 |
base[2]= (V63->c.c_car); |
base[2]= (V70->c.c_car); |
374 |
V63=V63->c.c_cdr; |
V70=V70->c.c_cdr; |
375 |
base[3]= V63;} |
base[3]= V70;} |
376 |
{object V64; |
{object V71; |
377 |
object V65; |
object V72; |
378 |
object V66; |
object V73; |
379 |
register object V67; |
register object V74; |
380 |
register object V68; |
register object V75; |
381 |
object V69; |
object V76; |
382 |
object V70; |
object V77; |
383 |
V64= (*(LnkLI336))(STREF(object,base[2],4)); |
V71= (*(LnkLI336))(STREF(object,base[2],4)); |
384 |
V65= CMPcar(STREF(object,base[2],16)); |
V72= CMPcar(STREF(object,base[2],16)); |
385 |
V66= STREF(object,base[2],20); |
V73= STREF(object,base[2],20); |
386 |
V67= STREF(object,base[2],0); |
V74= STREF(object,base[2],0); |
387 |
V68= STREF(object,base[2],8); |
V75= STREF(object,base[2],8); |
388 |
V69= STREF(object,base[2],12); |
V76= STREF(object,base[2],12); |
389 |
V70= STREF(object,base[2],4); |
V77= STREF(object,base[2],4); |
390 |
if(((V69))==Cnil){ |
if(((V76))==Cnil){ |
391 |
goto T87;} |
goto T87;} |
392 |
V71= list(2,(V67),(V64)); |
V78= list(2,(V74),(V71)); |
393 |
V72= list(2,(V68),(V64)); |
V79= list(2,(V75),(V71)); |
394 |
V73= list(3,/* INLINE-ARGS */V71,/* INLINE-ARGS */V72,list(2,(V69),Cnil)); |
V80= list(3,/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,list(2,(V76),Cnil)); |
395 |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V73,list(2,VV[30],list(4,VV[31],(V70),(V67),(V68))),base[3]); |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V80,list(2,VV[30],list(4,VV[31],(V77),(V74),(V75))),base[3]); |
396 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
397 |
return; |
return; |
398 |
goto T87; |
goto T87; |
399 |
T87:; |
T87:; |
400 |
if(!(((V65))==(VV[32]))){ |
V81 = (V74); |
401 |
|
if(!(((V72))==(VV[32]))){ |
402 |
goto T91;} |
goto T91;} |
403 |
V74= CMPcar((V66)); |
V82= CMPcar((V73)); |
404 |
goto T89; |
goto T89; |
405 |
goto T91; |
goto T91; |
406 |
T91:; |
T91:; |
407 |
V74= CMPcadr((V66)); |
V82= CMPcadr((V73)); |
408 |
goto T89; |
goto T89; |
409 |
T89:; |
T89:; |
410 |
V75= list(2,(V67),V74); |
V83= list(2,V81,V82); |
411 |
V76= list(2,/* INLINE-ARGS */V75,list(2,(V68),(V64))); |
V84= list(2,/* INLINE-ARGS */V83,list(2,(V75),(V71))); |
412 |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V76,list(2,VV[30],list(4,VV[31],(V70),(V67),(V68))),base[3]); |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V84,list(2,VV[30],list(4,VV[31],(V77),(V74),(V75))),base[3]); |
413 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
414 |
return;} |
return;} |
415 |
} |
} |
420 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
421 |
vs_check; |
vs_check; |
422 |
vs_top=sup; |
vs_top=sup; |
423 |
{object V77=base[0]->c.c_cdr; |
{object V85=base[0]->c.c_cdr; |
424 |
base[2]= (V77->c.c_car); |
base[2]= (V85->c.c_car); |
425 |
V77=V77->c.c_cdr; |
V85=V85->c.c_cdr; |
426 |
base[3]= (V77->c.c_car); |
base[3]= (V85->c.c_car); |
427 |
V77=V77->c.c_cdr; |
V85=V85->c.c_cdr; |
428 |
base[4]= (V77->c.c_car);} |
base[4]= (V85->c.c_car);} |
429 |
{object V78; |
{object V86; |
430 |
object V79; |
object V87; |
431 |
register object V80; |
register object V88; |
432 |
object V81; |
object V89; |
433 |
V78= STREF(object,base[2],0); |
V86= STREF(object,base[2],0); |
434 |
V79= STREF(object,base[2],8); |
V87= STREF(object,base[2],8); |
435 |
V80= STREF(object,base[2],12); |
V88= STREF(object,base[2],12); |
436 |
{object V83= base[3]; |
{object V91= base[3]; |
437 |
if((V83!= VV[32]))goto T98; |
if((V91!= VV[32]))goto T98; |
438 |
V82= VV[33]; |
V90= VV[33]; |
439 |
goto T97; |
goto T97; |
440 |
goto T98; |
goto T98; |
441 |
T98:; |
T98:; |
442 |
if((V83!= VV[338]))goto T99; |
if((V91!= VV[338]))goto T99; |
443 |
V82= VV[34]; |
V90= VV[34]; |
444 |
goto T97; |
goto T97; |
445 |
goto T99; |
goto T99; |
446 |
T99:; |
T99:; |
447 |
FEerror("The ECASE key value ~s is illegal.",1,V83); |
FEerror("The ECASE key value ~s is illegal.",1,V91); |
448 |
V82= Cnil; |
V90= Cnil; |
449 |
goto T97;} |
goto T97;} |
450 |
goto T97; |
goto T97; |
451 |
T97:; |
T97:; |
452 |
V84= list(3,V82,(V79),(V78)); |
V92 = (V87); |
453 |
V81= (*(LnkLI337))(Ct,STREF(object,base[2],0),/* INLINE-ARGS */V84); |
V93 = (V86); |
454 |
V85= list(3,VV[11],(V79),base[4]); |
V94= list(3,V90,V92,V93); |
455 |
if(((V80))==Cnil){ |
V89= (*(LnkLI337))(Ct,STREF(object,base[2],0),/* INLINE-ARGS */V94); |
456 |
|
V95= list(3,VV[11],(V87),base[4]); |
457 |
|
if(((V88))==Cnil){ |
458 |
goto T102;} |
goto T102;} |
459 |
V86= list(3,VV[35],list(2,VV[36],(V80)),(V81)); |
V96= list(3,VV[35],list(2,VV[36],(V88)),(V89)); |
460 |
goto T100; |
goto T100; |
461 |
goto T102; |
goto T102; |
462 |
T102:; |
T102:; |
463 |
V86= (V81); |
V96= (V89); |
464 |
goto T100; |
goto T100; |
465 |
T100:; |
T100:; |
466 |
if((V80)==Cnil){ |
if((V88)==Cnil){ |
467 |
V87= Cnil; |
V97= Cnil; |
468 |
goto T104;} |
goto T104;} |
469 |
V87= list(2,(V80),Ct); |
V97= list(2,(V88),Ct); |
470 |
goto T104; |
goto T104; |
471 |
T104:; |
T104:; |
472 |
V88= list(2,(V78),(V79)); |
V98= list(2,(V86),(V87)); |
473 |
V89= append(V87,/* INLINE-ARGS */V88); |
V99= append(V97,/* INLINE-ARGS */V98); |
474 |
base[9]= list(3,VV[14],/* INLINE-ARGS */V85,list(3,VV[8],V86,make_cons(VV[11],/* INLINE-ARGS */V89))); |
base[9]= list(3,VV[14],/* INLINE-ARGS */V95,list(3,VV[8],V96,make_cons(VV[11],/* INLINE-ARGS */V99))); |
475 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
476 |
return;} |
return;} |
477 |
} |
} |
478 |
/* local entry for function LOOP-TEQUAL */ |
/* local entry for function LOOP-TEQUAL */ |
479 |
|
|
480 |
static object LI15(V92,V93) |
static object LI15(V102,V103) |
481 |
|
|
482 |
object V92;object V93; |
object V102;object V103; |
483 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
484 |
goto TTL; |
goto TTL; |
485 |
TTL:; |
TTL:; |
486 |
if(type_of((V92))==t_symbol){ |
if(type_of((V102))==t_symbol){ |
487 |
goto T105;} |
goto T105;} |
488 |
{object V94 = Cnil; |
{object V104 = Cnil; |
489 |
VMR14(V94)} |
VMR14(V104)} |
490 |
goto T105; |
goto T105; |
491 |
T105:; |
T105:; |
492 |
base[0]= (V92); |
base[0]= (V102); |
493 |
base[1]= (V93); |
base[1]= (V103); |
494 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
495 |
Lstring_eq(); |
Lstring_eq(); |
496 |
vs_top=sup; |
vs_top=sup; |
497 |
{object V95 = vs_base[0]; |
{object V105 = vs_base[0]; |
498 |
VMR14(V95)} |
VMR14(V105)} |
499 |
base[0]=base[0]; |
base[0]=base[0]; |
500 |
return Cnil; |
return Cnil; |
501 |
} |
} |
502 |
/* local entry for function LOOP-TASSOC */ |
/* local entry for function LOOP-TASSOC */ |
503 |
|
|
504 |
static object LI16(V98,V99) |
static object LI16(V108,V109) |
505 |
|
|
506 |
object V98;object V99; |
object V108;object V109; |
507 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
508 |
goto TTL; |
goto TTL; |
509 |
TTL:; |
TTL:; |
510 |
if(type_of((V98))==t_symbol){ |
if(type_of((V108))==t_symbol){ |
511 |
goto T109;} |
goto T109;} |
512 |
{object V100 = Cnil; |
{object V110 = Cnil; |
513 |
VMR15(V100)} |
VMR15(V110)} |
514 |
goto T109; |
goto T109; |
515 |
T109:; |
T109:; |
516 |
base[0]= (V98); |
base[0]= (V108); |
517 |
base[1]= (V99); |
base[1]= (V109); |
518 |
base[2]= VV[20]; |
base[2]= VV[20]; |
519 |
base[3]= (VV[339]->s.s_gfdef); |
base[3]= (VV[339]->s.s_gfdef); |
520 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
521 |
Lassoc(); |
Lassoc(); |
522 |
vs_top=sup; |
vs_top=sup; |
523 |
{object V101 = vs_base[0]; |
{object V111 = vs_base[0]; |
524 |
VMR15(V101)} |
VMR15(V111)} |
525 |
base[0]=base[0]; |
base[0]=base[0]; |
526 |
return Cnil; |
return Cnil; |
527 |
} |
} |
528 |
/* local entry for function LOOP-TMEMBER */ |
/* local entry for function LOOP-TMEMBER */ |
529 |
|
|
530 |
static object LI17(V104,V105) |
static object LI17(V114,V115) |
531 |
|
|
532 |
object V104;object V105; |
object V114;object V115; |
533 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
534 |
goto TTL; |
goto TTL; |
535 |
TTL:; |
TTL:; |
536 |
if(type_of((V104))==t_symbol){ |
if(type_of((V114))==t_symbol){ |
537 |
goto T115;} |
goto T115;} |
538 |
{object V106 = Cnil; |
{object V116 = Cnil; |
539 |
VMR16(V106)} |
VMR16(V116)} |
540 |
goto T115; |
goto T115; |
541 |
T115:; |
T115:; |
542 |
base[0]= (V104); |
base[0]= (V114); |
543 |
base[1]= (V105); |
base[1]= (V115); |
544 |
base[2]= VV[20]; |
base[2]= VV[20]; |
545 |
base[3]= (VV[339]->s.s_gfdef); |
base[3]= (VV[339]->s.s_gfdef); |
546 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
547 |
Lmember(); |
Lmember(); |
548 |
vs_top=sup; |
vs_top=sup; |
549 |
{object V107 = vs_base[0]; |
{object V117 = vs_base[0]; |
550 |
VMR16(V107)} |
VMR16(V117)} |
551 |
base[0]=base[0]; |
base[0]=base[0]; |
552 |
return Cnil; |
return Cnil; |
553 |
} |
} |
554 |
/* local entry for function LOOP-LOOKUP-KEYWORD */ |
/* local entry for function LOOP-LOOKUP-KEYWORD */ |
555 |
|
|
556 |
static object LI18(V110,V111) |
static object LI18(V120,V121) |
557 |
|
|
558 |
object V110;object V111; |
object V120;object V121; |
559 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
560 |
goto TTL; |
goto TTL; |
561 |
TTL:; |
TTL:; |
562 |
if(type_of((V110))==t_symbol){ |
if(type_of((V120))==t_symbol){ |
563 |
goto T121;} |
goto T121;} |
564 |
{object V112 = Cnil; |
{object V122 = Cnil; |
565 |
VMR17(V112)} |
VMR17(V122)} |
566 |
goto T121; |
goto T121; |
567 |
T121:; |
T121:; |
568 |
base[1]= symbol_name((V110)); |
base[1]= symbol_name((V120)); |
569 |
base[2]= (V111); |
base[2]= (V121); |
570 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
571 |
Lgethash(); |
Lgethash(); |
572 |
vs_top=sup; |
vs_top=sup; |
573 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
574 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
575 |
vs_top=sup; |
vs_top=sup; |
576 |
{object V113 = vs_base[0]; |
{object V123 = vs_base[0]; |
577 |
VMR17(V113)} |
VMR17(V123)} |
578 |
base[0]=base[0]; |
base[0]=base[0]; |
579 |
return Cnil; |
return Cnil; |
580 |
} |
} |
585 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
586 |
vs_check; |
vs_check; |
587 |
vs_top=sup; |
vs_top=sup; |
588 |
{object V114=base[0]->c.c_cdr; |
{object V124=base[0]->c.c_cdr; |
589 |
base[2]= (V114->c.c_car); |
base[2]= (V124->c.c_car); |
590 |
V114=V114->c.c_cdr; |
V124=V124->c.c_cdr; |
591 |
base[3]= (V114->c.c_car); |
base[3]= (V124->c.c_car); |
592 |
V114=V114->c.c_cdr; |
V124=V124->c.c_cdr; |
593 |
base[4]= (V114->c.c_car);} |
base[4]= (V124->c.c_car);} |
594 |
base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]); |
base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]); |
595 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
596 |
return; |
return; |
601 |
{ |
{ |
602 |
va_list ap; |
va_list ap; |
603 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
604 |
{object V115; |
{object V125; |
605 |
object V116; |
object V126; |
606 |
object V117; |
object V127; |
607 |
object V118; |
object V128; |
608 |
object V119; |
object V129; |
609 |
object V120; |
object V130; |
610 |
object V121; |
object V131; |
611 |
object V122; |
object V132; |
612 |
va_start(ap,first); |
va_start(ap,first); |
613 |
narg= narg - 0; |
narg= narg - 0; |
614 |
{ |
{ |
615 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI20key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI20key,first,ap); |
616 |
V115=(Vcs[0]); |
V125=(Vcs[0]); |
617 |
V116=(Vcs[1]); |
V126=(Vcs[1]); |
618 |
V117=(Vcs[2]); |
V127=(Vcs[2]); |
619 |
V118=(Vcs[3]); |
V128=(Vcs[3]); |
620 |
V119=(Vcs[4]); |
V129=(Vcs[4]); |
621 |
V120=(Vcs[5]); |
V130=(Vcs[5]); |
622 |
V121=(Vcs[6]); |
V131=(Vcs[6]); |
623 |
V122=(Vcs[7]); |
V132=(Vcs[7]); |
624 |
base[0]= VV[39]; |
base[0]= VV[39]; |
625 |
base[1]= (V115); |
base[1]= (V125); |
626 |
base[2]= (V116); |
base[2]= (V126); |
627 |
base[3]= (V117); |
base[3]= (V127); |
628 |
base[4]= (V118); |
base[4]= (V128); |
629 |
base[5]= (V119); |
base[5]= (V129); |
630 |
base[6]= (V120); |
base[6]= (V130); |
631 |
base[7]= (V121); |
base[7]= (V131); |
632 |
base[8]= (V122); |
base[8]= (V132); |
633 |
vs_top=(vs_base=base+0)+9; |
vs_top=(vs_base=base+0)+9; |
634 |
siLmake_structure(); |
siLmake_structure(); |
635 |
vs_top=sup; |
vs_top=sup; |
636 |
{object V123 = vs_base[0]; |
{object V133 = vs_base[0]; |
637 |
VMR19(V123)} |
VMR19(V133)} |
638 |
va_end(ap); |
va_end(ap); |
639 |
base[0]=base[0]; |
base[0]=base[0]; |
640 |
return Cnil;} |
return Cnil;} |
641 |
}} |
}} |
642 |
/* local entry for function PRINT-LOOP-UNIVERSE */ |
/* local entry for function PRINT-LOOP-UNIVERSE */ |
643 |
|
|
644 |
static object LI21(V127,V128,V129) |
static object LI21(V137,V138,V139) |
645 |
|
|
646 |
object V127;object V128;object V129; |
object V137;object V138;object V139; |
647 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
648 |
goto TTL; |
goto TTL; |
649 |
TTL:; |
TTL:; |
650 |
{object V130; |
{object V140; |
651 |
{object V131= STREF(object,(V127),24); |
{object V141= STREF(object,(V137),24); |
652 |
if((V131!= Cnil))goto T136; |
if((V141!= Cnil))goto T136; |
653 |
V130= VV[40]; |
V140= VV[40]; |
654 |
goto T135; |
goto T135; |
655 |
goto T136; |
goto T136; |
656 |
T136:; |
T136:; |
657 |
if((V131!= Ct))goto T137; |
if((V141!= Ct))goto T137; |
658 |
V130= VV[41]; |
V140= VV[41]; |
659 |
goto T135; |
goto T135; |
660 |
goto T137; |
goto T137; |
661 |
T137:; |
T137:; |
662 |
if((V131!= VV[314]))goto T138; |
if((V141!= VV[314]))goto T138; |
663 |
V130= VV[42]; |
V140= VV[42]; |
664 |
goto T135; |
goto T135; |
665 |
goto T138; |
goto T138; |
666 |
T138:; |
T138:; |
667 |
V130= STREF(object,(V127),24);} |
V140= STREF(object,(V137),24);} |
668 |
goto T135; |
goto T135; |
669 |
T135:; |
T135:; |
670 |
base[0]= (V128); |
base[0]= (V138); |
671 |
base[1]= VV[43]; |
base[1]= VV[43]; |
672 |
base[3]= (V127); |
base[3]= (V137); |
673 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
674 |
Ltype_of(); |
Ltype_of(); |
675 |
vs_top=sup; |
vs_top=sup; |
676 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
677 |
base[3]= (V130); |
base[3]= (V140); |
678 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
679 |
Lformat(); |
Lformat(); |
680 |
vs_top=sup; |
vs_top=sup; |
681 |
{object V132 = vs_base[0]; |
{object V142 = vs_base[0]; |
682 |
VMR20(V132)}} |
VMR20(V142)}} |
683 |
base[0]=base[0]; |
base[0]=base[0]; |
684 |
return Cnil; |
return Cnil; |
685 |
} |
} |
690 |
va_list ap; |
va_list ap; |
691 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
692 |
bds_check; |
bds_check; |
693 |
{object V133; |
{object V143; |
694 |
object V134; |
object V144; |
695 |
object V135; |
object V145; |
696 |
object V136; |
object V146; |
697 |
object V137; |
object V147; |
698 |
object V138; |
object V148; |
699 |
register object V139; |
register object V149; |
700 |
va_start(ap,first); |
va_start(ap,first); |
701 |
narg= narg - 0; |
narg= narg - 0; |
702 |
{ |
{ |
703 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI22key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI22key,first,ap); |
704 |
V133=(Vcs[0]); |
V143=(Vcs[0]); |
705 |
V134=(Vcs[1]); |
V144=(Vcs[1]); |
706 |
V135=(Vcs[2]); |
V145=(Vcs[2]); |
707 |
V136=(Vcs[3]); |
V146=(Vcs[3]); |
708 |
V137=(Vcs[4]); |
V147=(Vcs[4]); |
709 |
V138=(Vcs[5]); |
V148=(Vcs[5]); |
710 |
V139=(Vcs[6]); |
V149=(Vcs[6]); |
711 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
712 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
713 |
goto T146; |
goto T146; |
714 |
T146:; |
T146:; |
715 |
base[2]= (V139); |
base[2]= (V149); |
716 |
base[3]= VV[46]; |
base[3]= VV[46]; |
717 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
718 |
(void) (*Lnk340)(); |
(void) (*Lnk340)(); |
727 |
base[2]= VV[47]; |
base[2]= VV[47]; |
728 |
base[3]= VV[48]; |
base[3]= VV[48]; |
729 |
base[4]= VV[49]; |
base[4]= VV[49]; |
730 |
base[5]= (V139); |
base[5]= (V149); |
731 |
base[6]= VV[46]; |
base[6]= VV[46]; |
732 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
733 |
Lcerror(); |
Lcerror(); |
745 |
vs_base=vs_top; |
vs_base=vs_top; |
746 |
Lread(); |
Lread(); |
747 |
vs_top=sup; |
vs_top=sup; |
748 |
V139= vs_base[0]; |
V149= vs_base[0]; |
749 |
base[2]= (VV[50]->s.s_dbind); |
base[2]= (VV[50]->s.s_dbind); |
750 |
base[3]= VV[52]; |
base[3]= VV[52]; |
751 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
754 |
goto T146; |
goto T146; |
755 |
goto T144; |
goto T144; |
756 |
T144:; |
T144:; |
757 |
base[0]= (V133); |
base[0]= (V143); |
758 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
759 |
L23(base); |
L23(base); |
760 |
vs_top=sup; |
vs_top=sup; |
761 |
V140= vs_base[0]; |
V150= vs_base[0]; |
762 |
base[0]= (V134); |
base[0]= (V144); |
763 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
764 |
L23(base); |
L23(base); |
765 |
vs_top=sup; |
vs_top=sup; |
766 |
V141= vs_base[0]; |
V151= vs_base[0]; |
767 |
base[0]= (V135); |
base[0]= (V145); |
768 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
769 |
L23(base); |
L23(base); |
770 |
vs_top=sup; |
vs_top=sup; |
771 |
V142= vs_base[0]; |
V152= vs_base[0]; |
772 |
base[0]= (V136); |
base[0]= (V146); |
773 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
774 |
L23(base); |
L23(base); |
775 |
vs_top=sup; |
vs_top=sup; |
776 |
V143= vs_base[0]; |
V153= vs_base[0]; |
777 |
V144= (((((V139))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
V154 = (V149); |
778 |
base[0]= (V137); |
V155= (((((V149))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
779 |
|
base[0]= (V147); |
780 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
781 |
L23(base); |
L23(base); |
782 |
vs_top=sup; |
vs_top=sup; |
783 |
V145= vs_base[0]; |
V156= vs_base[0]; |
784 |
{object V147; |
{object V158; |
785 |
object V148; |
object V159; |
786 |
V147= CMPmake_fixnum((long)length((V138))); |
V158= CMPmake_fixnum((long)length((V148))); |
787 |
base[2]= VV[61]; |
base[2]= VV[61]; |
788 |
if(!(number_compare((V147),small_fixnum(10))<0)){ |
if(!(number_compare((V158),small_fixnum(10))<0)){ |
789 |
goto T188;} |
goto T188;} |
790 |
base[3]= small_fixnum(10); |
base[3]= small_fixnum(10); |
791 |
goto T186; |
goto T186; |
792 |
goto T188; |
goto T188; |
793 |
T188:; |
T188:; |
794 |
base[3]= (V147); |
base[3]= (V158); |
795 |
goto T186; |
goto T186; |
796 |
T186:; |
T186:; |
797 |
base[4]= VV[20]; |
base[4]= VV[20]; |
799 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
800 |
Lmake_hash_table(); |
Lmake_hash_table(); |
801 |
vs_top=sup; |
vs_top=sup; |
802 |
V148= vs_base[0]; |
V159= vs_base[0]; |
803 |
{register object V149; |
{register object V160; |
804 |
register object V150; |
register object V161; |
805 |
V149= (V138); |
V160= (V148); |
806 |
V150= CMPcar((V149)); |
V161= CMPcar((V160)); |
807 |
goto T196; |
goto T196; |
808 |
T196:; |
T196:; |
809 |
if(!(((V149))==Cnil)){ |
if(!(((V160))==Cnil)){ |
810 |
goto T197;} |
goto T197;} |
811 |
goto T192; |
goto T192; |
812 |
goto T197; |
goto T197; |
813 |
T197:; |
T197:; |
814 |
if(!(type_of((V150))!=t_cons)){ |
if(!(type_of((V161))!=t_cons)){ |
815 |
goto T203;} |
goto T203;} |
816 |
base[3]= V150; |
base[3]= V161; |
817 |
base[4]= V148; |
base[4]= V159; |
818 |
base[5]= V150; |
base[5]= V161; |
819 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
820 |
siLhash_set(); |
siLhash_set(); |
821 |
vs_top=sup; |
vs_top=sup; |
822 |
goto T201; |
goto T201; |
823 |
goto T203; |
goto T203; |
824 |
T203:; |
T203:; |
825 |
{object V154; |
{object V165; |
826 |
object V156; |
object V167; |
827 |
V154= CMPcar((V150)); |
V165= CMPcar((V161)); |
828 |
V156= CMPcadr((V150)); |
V167= CMPcadr((V161)); |
829 |
base[5]= (V154); |
base[5]= (V165); |
830 |
base[6]= V148; |
base[6]= V159; |
831 |
base[7]= (V156); |
base[7]= (V167); |
832 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
833 |
siLhash_set(); |
siLhash_set(); |
834 |
vs_top=sup;} |
vs_top=sup;} |
835 |
goto T201; |
goto T201; |
836 |
T201:; |
T201:; |
837 |
V149= CMPcdr((V149)); |
V160= CMPcdr((V160)); |
838 |
V150= CMPcar((V149)); |
V161= CMPcar((V160)); |
839 |
goto T196;} |
goto T196;} |
840 |
goto T192; |
goto T192; |
841 |
T192:; |
T192:; |
842 |
V146= (V148);} |
V157= (V159);} |
843 |
{object V157 = (VFUN_NARGS=16,(*(LnkLI341))(VV[53],V140,VV[54],V141,VV[55],V142,VV[56],V143,VV[57],(V139),VV[58],/* INLINE-ARGS */V144,VV[59],V145,VV[60],V146)); |
{object V168 = (VFUN_NARGS=16,(*(LnkLI341))(VV[53],V150,VV[54],V151,VV[55],V152,VV[56],V153,VV[57],V154,VV[58],/* INLINE-ARGS */V155,VV[59],V156,VV[60],V157)); |
844 |
VMR21(V157)} |
VMR21(V168)} |
845 |
va_end(ap); |
va_end(ap); |
846 |
base[0]=base[0]; |
base[0]=base[0]; |
847 |
return Cnil;} |
return Cnil;} |
848 |
}} |
}} |
849 |
/* local entry for function LOOP-MAKE-PSETQ */ |
/* local entry for function LOOP-MAKE-PSETQ */ |
850 |
|
|
851 |
static object LI24(V159) |
static object LI24(V170) |
852 |
|
|
853 |
register object V159; |
register object V170; |
854 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
855 |
goto TTL; |
goto TTL; |
856 |
TTL:; |
TTL:; |
857 |
if((V159)==Cnil){ |
if((V170)==Cnil){ |
858 |
{object V160 = Cnil; |
{object V171 = Cnil; |
859 |
VMR22(V160)}} |
VMR22(V171)}} |
860 |
V161= CMPcar((V159)); |
V172= CMPcar((V170)); |
861 |
if((CMPcddr((V159)))!=Cnil){ |
if((CMPcddr((V170)))!=Cnil){ |
862 |
goto T220;} |
goto T220;} |
863 |
V162= CMPcadr((V159)); |
V173= CMPcadr((V170)); |
864 |
goto T218; |
goto T218; |
865 |
goto T220; |
goto T220; |
866 |
T220:; |
T220:; |
867 |
V163= CMPcadr((V159)); |
V174= CMPcadr((V170)); |
868 |
V162= list(3,VV[62],/* INLINE-ARGS */V163,(*(LnkLI344))(CMPcddr((V159)))); |
V173= list(3,VV[62],/* INLINE-ARGS */V174,(*(LnkLI344))(CMPcddr((V170)))); |
869 |
goto T218; |
goto T218; |
870 |
T218:; |
T218:; |
871 |
V164= list(2,/* INLINE-ARGS */V161,V162); |
V175= list(2,/* INLINE-ARGS */V172,V173); |
872 |
{object V165 = (*(LnkLI343))(/* INLINE-ARGS */V164); |
{object V176 = (*(LnkLI343))(/* INLINE-ARGS */V175); |
873 |
VMR22(V165)} |
VMR22(V176)} |
874 |
return Cnil; |
return Cnil; |
875 |
} |
} |
876 |
/* local entry for function LOOP-MAKE-DESETQ */ |
/* local entry for function LOOP-MAKE-DESETQ */ |
877 |
|
|
878 |
static object LI25(V167) |
static object LI25(V178) |
879 |
|
|
880 |
object V167; |
object V178; |
881 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
882 |
goto TTL; |
goto TTL; |
883 |
TTL:; |
TTL:; |
884 |
if(((V167))!=Cnil){ |
if(((V178))!=Cnil){ |
885 |
goto T223;} |
goto T223;} |
886 |
{object V168 = Cnil; |
{object V179 = Cnil; |
887 |
VMR23(V168)} |
VMR23(V179)} |
888 |
goto T223; |
goto T223; |
889 |
T223:; |
T223:; |
890 |
if(((VV[63]->s.s_dbind))==Cnil){ |
if(((VV[63]->s.s_dbind))==Cnil){ |
891 |
goto T227;} |
goto T227;} |
892 |
V169= CMPcadr((VV[63]->s.s_dbind)); |
V180= CMPcadr((VV[63]->s.s_dbind)); |
893 |
goto T225; |
goto T225; |
894 |
goto T227; |
goto T227; |
895 |
T227:; |
T227:; |
896 |
V169= VV[64]; |
V180= VV[64]; |
897 |
goto T225; |
goto T225; |
898 |
T225:; |
T225:; |
899 |
{object V170 = make_cons(V169,(V167)); |
V181 = (V178); |
900 |
VMR23(V170)} |
{object V182 = make_cons(V180,V181); |
901 |
|
VMR23(V182)} |
902 |
return Cnil; |
return Cnil; |
903 |
} |
} |
904 |
/* macro definition for LOOP-REALLY-DESETQ */ |
/* macro definition for LOOP-REALLY-DESETQ */ |
908 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
909 |
vs_check; |
vs_check; |
910 |
vs_top=sup; |
vs_top=sup; |
911 |
{object V171=base[0]->c.c_cdr; |
{object V183=base[0]->c.c_cdr; |
912 |
base[2]= V171;} |
base[2]= V183;} |
913 |
{register object V172; |
{register object V184; |
914 |
V172= Cnil; |
V184= Cnil; |
915 |
goto T230; |
goto T230; |
916 |
T230:; |
T230:; |
917 |
if((base[2])!=Cnil){ |
if((base[2])!=Cnil){ |
918 |
goto T231;} |
goto T231;} |
919 |
if((CMPcdr((V172)))!=Cnil){ |
if((CMPcdr((V184)))!=Cnil){ |
920 |
goto T235;} |
goto T235;} |
921 |
base[3]= CMPcar((V172)); |
base[3]= CMPcar((V184)); |
922 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
923 |
return; |
return; |
924 |
goto T235; |
goto T235; |
925 |
T235:; |
T235:; |
926 |
V173= nreverse((V172)); |
V185= nreverse((V184)); |
927 |
base[3]= make_cons(VV[14],/* INLINE-ARGS */V173); |
base[3]= make_cons(VV[14],/* INLINE-ARGS */V185); |
928 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
929 |
return; |
return; |
930 |
goto T231; |
goto T231; |
931 |
T231:; |
T231:; |
932 |
{register object V174; |
{register object V186; |
933 |
V174= CMPcar(base[2]); |
V186= CMPcar(base[2]); |
934 |
base[2]= CMPcdr(base[2]); |
base[2]= CMPcdr(base[2]); |
935 |
base[4]= (V174);} |
base[4]= (V186);} |
936 |
{register object V175; |
{register object V187; |
937 |
V175= CMPcar(base[2]); |
V187= CMPcar(base[2]); |
938 |
base[2]= CMPcdr(base[2]); |
base[2]= CMPcdr(base[2]); |
939 |
base[5]= (V175);} |
base[5]= (V187);} |
940 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
941 |
L28(base); |
L28(base); |
942 |
vs_top=sup; |
vs_top=sup; |
943 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
944 |
base[4]= (V172); |
base[4]= (V184); |
945 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
946 |
Lrevappend(); |
Lrevappend(); |
947 |
vs_top=sup; |
vs_top=sup; |
948 |
V172= vs_base[0]; |
V184= vs_base[0]; |
949 |
goto T230;} |
goto T230;} |
950 |
} |
} |
951 |
/* function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
/* function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
954 |
{register object *base=vs_base; |
{register object *base=vs_base; |
955 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
956 |
vs_check; |
vs_check; |
957 |
{object V176; |
{object V188; |
958 |
object V177; |
object V189; |
959 |
V176=(base[0]); |
V188=(base[0]); |
960 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
961 |
if(vs_base>=vs_top){vs_top=sup;goto T252;} |
if(vs_base>=vs_top){vs_top=sup;goto T252;} |
962 |
V177=(base[1]); |
V189=(base[1]); |
963 |
vs_top=sup; |
vs_top=sup; |
964 |
goto T253; |
goto T253; |
965 |
goto T252; |
goto T252; |
966 |
T252:; |
T252:; |
967 |
V177= Cnil; |
V189= Cnil; |
968 |
goto T253; |
goto T253; |
969 |
T253:; |
T253:; |
970 |
{register object V179; |
{register object V191; |
971 |
register object V180; |
register object V192; |
972 |
V179= Cnil; |
V191= Cnil; |
973 |
V180= Cnil; |
V192= Cnil; |
974 |
base[2]= V176; |
base[2]= V188; |
975 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
976 |
Lconstantp(); |
Lconstantp(); |
977 |
vs_top=sup; |
vs_top=sup; |
978 |
V179= vs_base[0]; |
V191= vs_base[0]; |
979 |
if(((V179))==Cnil){ |
if(((V191))==Cnil){ |
980 |
goto T255;} |
goto T255;} |
981 |
base[2]= V176; |
base[2]= V188; |
982 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
983 |
Leval(); |
Leval(); |
984 |
vs_top=sup; |
vs_top=sup; |
985 |
V180= vs_base[0]; |
V192= vs_base[0]; |
986 |
goto T255; |
goto T255; |
987 |
T255:; |
T255:; |
988 |
if(((V179))==Cnil){ |
if(((V191))==Cnil){ |
989 |
goto T262;} |
goto T262;} |
990 |
if(((V177))==Cnil){ |
if(((V189))==Cnil){ |
991 |
goto T262;} |
goto T262;} |
992 |
base[2]= (V180); |
base[2]= (V192); |
993 |
base[3]= (V177); |
base[3]= (V189); |
994 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
995 |
(void) (*Lnk340)(); |
(void) (*Lnk340)(); |
996 |
vs_top=sup; |
vs_top=sup; |
997 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
998 |
goto T262;} |
goto T262;} |
999 |
(void)((VFUN_NARGS=4,(*(LnkLI345))(VV[67],(V176),(V180),(V177)))); |
(void)((VFUN_NARGS=4,(*(LnkLI345))(VV[67],(V188),(V192),(V189)))); |
1000 |
V179= Cnil; |
V191= Cnil; |
1001 |
V180= Cnil; |
V192= Cnil; |
1002 |
goto T262; |
goto T262; |
1003 |
T262:; |
T262:; |
1004 |
base[2]= V176; |
base[2]= V188; |
1005 |
base[3]= (V179); |
base[3]= (V191); |
1006 |
base[4]= (V180); |
base[4]= (V192); |
1007 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1008 |
return;} |
return;} |
1009 |
} |
} |
1010 |
} |
} |
1011 |
/* local entry for function LOOP-CONSTANTP */ |
/* local entry for function LOOP-CONSTANTP */ |
1012 |
|
|
1013 |
static object LI30(V182) |
static object LI30(V194) |
1014 |
|
|
1015 |
object V182; |
object V194; |
1016 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1017 |
goto TTL; |
goto TTL; |
1018 |
TTL:; |
TTL:; |
1019 |
base[0]= (V182); |
base[0]= (V194); |
1020 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1021 |
Lconstantp(); |
Lconstantp(); |
1022 |
vs_top=sup; |
vs_top=sup; |
1023 |
{object V183 = vs_base[0]; |
{object V195 = vs_base[0]; |
1024 |
VMR26(V183)} |
VMR26(V195)} |
1025 |
base[0]=base[0]; |
base[0]=base[0]; |
1026 |
return Cnil; |
return Cnil; |
1027 |
} |
} |
1028 |
/* local entry for function LOOP-CODE-DUPLICATION-THRESHOLD */ |
/* local entry for function LOOP-CODE-DUPLICATION-THRESHOLD */ |
1029 |
|
|
1030 |
static object LI31(V185) |
static object LI31(V197) |
1031 |
|
|
1032 |
object V185; |
object V197; |
1033 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1034 |
goto TTL; |
goto TTL; |
1035 |
TTL:; |
TTL:; |
1036 |
{object V186; |
{object V198; |
1037 |
object V187; |
object V199; |
1038 |
base[0]= (V185); |
base[0]= (V197); |
1039 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1040 |
(void) (*Lnk346)(); |
(void) (*Lnk346)(); |
1041 |
if(vs_base>=vs_top){vs_top=sup;goto T281;} |
if(vs_base>=vs_top){vs_top=sup;goto T281;} |
1042 |
V186= vs_base[0]; |
V198= vs_base[0]; |
1043 |
vs_base++; |
vs_base++; |
1044 |
if(vs_base>=vs_top){vs_top=sup;goto T282;} |
if(vs_base>=vs_top){vs_top=sup;goto T282;} |
1045 |
V187= vs_base[0]; |
V199= vs_base[0]; |
1046 |
vs_top=sup; |
vs_top=sup; |
1047 |
goto T283; |
goto T283; |
1048 |
goto T281; |
goto T281; |
1049 |
T281:; |
T281:; |
1050 |
V186= Cnil; |
V198= Cnil; |
1051 |
goto T282; |
goto T282; |
1052 |
T282:; |
T282:; |
1053 |
V187= Cnil; |
V199= Cnil; |
1054 |
goto T283; |
goto T283; |
1055 |
T283:; |
T283:; |
1056 |
V188= number_minus((V186),(V187)); |
V200= number_minus((V198),(V199)); |
1057 |
V189= number_times(/* INLINE-ARGS */V188,small_fixnum(10)); |
V201= number_times(/* INLINE-ARGS */V200,small_fixnum(10)); |
1058 |
{object V190 = number_plus(small_fixnum(40),/* INLINE-ARGS */V189); |
{object V202 = number_plus(small_fixnum(40),/* INLINE-ARGS */V201); |
1059 |
VMR27(V190)}} |
VMR27(V202)}} |
1060 |
base[0]=base[0]; |
base[0]=base[0]; |
1061 |
return Cnil; |
return Cnil; |
1062 |
} |
} |
1067 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
1068 |
vs_check; |
vs_check; |
1069 |
vs_top=sup; |
vs_top=sup; |
1070 |
{object V191=base[0]->c.c_cdr; |
{object V203=base[0]->c.c_cdr; |
1071 |
base[2]= (V191->c.c_car); |
base[2]= (V203->c.c_car); |
1072 |
V191=V191->c.c_cdr; |
V203=V203->c.c_cdr; |
1073 |
base[3]= (V191->c.c_car); |
base[3]= (V203->c.c_car); |
1074 |
V191=V191->c.c_cdr; |
V203=V203->c.c_cdr; |
1075 |
base[4]= (V191->c.c_car); |
base[4]= (V203->c.c_car); |
1076 |
V191=V191->c.c_cdr; |
V203=V203->c.c_cdr; |
1077 |
base[5]= (V191->c.c_car); |
base[5]= (V203->c.c_car); |
1078 |
V191=V191->c.c_cdr; |
V203=V203->c.c_cdr; |
1079 |
base[6]= (V191->c.c_car); |
base[6]= (V203->c.c_car); |
1080 |
base[7]= Cnil; |
base[7]= Cnil; |
1081 |
base[8]= Cnil; |
base[8]= Cnil; |
1082 |
base[9]= Cnil;} |
base[9]= Cnil;} |
1101 |
return; |
return; |
1102 |
goto T295; |
goto T295; |
1103 |
T295:; |
T295:; |
1104 |
{register long V192; |
{register long V204; |
1105 |
V192= fix((*(LnkLI347))(base[1])); |
V204= fix((*(LnkLI347))(base[1])); |
1106 |
goto T302; |
goto T302; |
1107 |
T302:; |
T302:; |
1108 |
goto T307; |
goto T307; |
1116 |
goto T305; |
goto T305; |
1117 |
goto T308; |
goto T308; |
1118 |
T308:; |
T308:; |
1119 |
{register object V193; |
{register object V205; |
1120 |
{register object V194; |
{register object V206; |
1121 |
V194= CMPcar(base[7]); |
V206= CMPcar(base[7]); |
1122 |
base[7]= CMPcdr(base[7]); |
base[7]= CMPcdr(base[7]); |
1123 |
V193= (V194);} |
V205= (V206);} |
1124 |
base[4]= make_cons((V193),base[4]);} |
base[4]= make_cons((V205),base[4]);} |
1125 |
{register object V195; |
{register object V207; |
1126 |
V195= CMPcar(base[8]); |
V207= CMPcar(base[8]); |
1127 |
base[8]= CMPcdr(base[8]);} |
base[8]= CMPcdr(base[8]);} |
1128 |
goto T307; |
goto T307; |
1129 |
goto T305; |
goto T305; |
1135 |
return; |
return; |
1136 |
goto T326; |
goto T326; |
1137 |
T326:; |
T326:; |
1138 |
{register object V196; |
{register object V208; |
1139 |
register object V197; |
register object V209; |
1140 |
register object V198; |
register object V210; |
1141 |
register object V199; |
register object V211; |
1142 |
register object V200; |
register object V212; |
1143 |
V196= base[7]; |
V208= base[7]; |
1144 |
V197= base[8]; |
V209= base[8]; |
1145 |
V198= Cnil; |
V210= Cnil; |
1146 |
V199= small_fixnum(0); |
V211= small_fixnum(0); |
1147 |
V200= Cnil; |
V212= Cnil; |
1148 |
goto T331; |
goto T331; |
1149 |
T331:; |
T331:; |
1150 |
if(((V196))!=Cnil){ |
if(((V208))!=Cnil){ |
1151 |
goto T332;} |
goto T332;} |
1152 |
vs_base=vs_top; |
vs_base=vs_top; |
1153 |
L35(base); |
L35(base); |
1154 |
return; |
return; |
1155 |
goto T332; |
goto T332; |
1156 |
T332:; |
T332:; |
1157 |
if(equal(CMPcar((V196)),CMPcar((V197)))){ |
if(equal(CMPcar((V208)),CMPcar((V209)))){ |
1158 |
goto T338;} |
goto T338;} |
1159 |
V198= (V196); |
V210= (V208); |
1160 |
V199= small_fixnum(0); |
V211= small_fixnum(0); |
1161 |
goto T336; |
goto T336; |
1162 |
goto T338; |
goto T338; |
1163 |
T338:; |
T338:; |
1164 |
base[10]= CMPcar((V196)); |
base[10]= CMPcar((V208)); |
1165 |
base[11]= base[1]; |
base[11]= base[1]; |
1166 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
1167 |
(void) (*Lnk77)(); |
(void) (*Lnk77)(); |
1168 |
vs_top=sup; |
vs_top=sup; |
1169 |
V200= vs_base[0]; |
V212= vs_base[0]; |
1170 |
if(((V200))==Cnil){ |
if(((V212))==Cnil){ |
1171 |
goto T343;} |
goto T343;} |
1172 |
V199= number_plus((V199),(V200)); |
V211= number_plus((V211),(V212)); |
1173 |
V201 = CMPmake_fixnum(V192); |
V213 = (V211); |
1174 |
if(!(number_compare((V199),V201)>0)){ |
V214 = CMPmake_fixnum(V204); |
1175 |
|
if(!(number_compare(V213,V214)>0)){ |
1176 |
goto T336;} |
goto T336;} |
1177 |
goto T343; |
goto T343; |
1178 |
T343:; |
T343:; |
1179 |
{register object V202; |
{register object V215; |
1180 |
register object V203; |
register object V216; |
1181 |
V202= Cnil; |
V215= Cnil; |
1182 |
V203= Cnil; |
V216= Cnil; |
1183 |
goto T354; |
goto T354; |
1184 |
T354:; |
T354:; |
1185 |
{register object V204; |
{register object V217; |
1186 |
{register object V205; |
{register object V218; |
1187 |
V205= CMPcar(base[7]); |
V218= CMPcar(base[7]); |
1188 |
base[7]= CMPcdr(base[7]); |
base[7]= CMPcdr(base[7]); |
1189 |
V204= (V205);} |
V217= (V218);} |
1190 |
V203= make_cons((V204),(V203));} |
V216= make_cons((V217),(V216));} |
1191 |
{register object V206; |
{register object V219; |
1192 |
{register object V207; |
{register object V220; |
1193 |
V207= CMPcar(base[8]); |
V220= CMPcar(base[8]); |
1194 |
base[8]= CMPcdr(base[8]); |
base[8]= CMPcdr(base[8]); |
1195 |
V206= (V207);} |
V219= (V220);} |
1196 |
V202= make_cons((V206),(V202));} |
V215= make_cons((V219),(V215));} |
1197 |
if(!((base[7])==(CMPcdr((V198))))){ |
if(!((base[7])==(CMPcdr((V210))))){ |
1198 |
goto T369;} |
goto T369;} |
1199 |
goto T352; |
goto T352; |
1200 |
goto T369; |
goto T369; |
1204 |
T352:; |
T352:; |
1205 |
if((base[9])!=Cnil){ |
if((base[9])!=Cnil){ |
1206 |
goto T374;} |
goto T374;} |
1207 |
{register object V208; |
{register object V221; |
1208 |
base[9]= (VV[70]->s.s_dbind); |
base[9]= (VV[70]->s.s_dbind); |
1209 |
V208= list(3,VV[11],base[9],Ct); |
V222 = base[9]; |
1210 |
V203= make_cons((V208),(V203));} |
V221= list(3,VV[11],V222,Ct); |
1211 |
|
V216= make_cons((V221),(V216));} |
1212 |
goto T374; |
goto T374; |
1213 |
T374:; |
T374:; |
1214 |
{register object V209; |
{register object V223; |
1215 |
base[12]= (V202); |
V224 = base[9]; |
1216 |
|
base[12]= (V215); |
1217 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
1218 |
L33(base); |
L33(base); |
1219 |
vs_top=sup; |
vs_top=sup; |
1221 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1222 |
L34(base); |
L34(base); |
1223 |
vs_top=sup; |
vs_top=sup; |
1224 |
V210= vs_base[0]; |
V225= vs_base[0]; |
1225 |
base[12]= (V203); |
base[12]= (V216); |
1226 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
1227 |
L33(base); |
L33(base); |
1228 |
vs_top=sup; |
vs_top=sup; |
1230 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1231 |
L34(base); |
L34(base); |
1232 |
vs_top=sup; |
vs_top=sup; |
1233 |
V211= vs_base[0]; |
V226= vs_base[0]; |
1234 |
V209= list(4,VV[71],base[9],V210,V211); |
V223= list(4,VV[71],V224,V225,V226); |
1235 |
base[4]= make_cons((V209),base[4]);}} |
base[4]= make_cons((V223),base[4]);}} |
1236 |
goto T390; |
goto T390; |
1237 |
T390:; |
T390:; |
1238 |
{register object V212; |
{register object V227; |
1239 |
V212= CMPcar(base[8]); |
V227= CMPcar(base[8]); |
1240 |
base[8]= CMPcdr(base[8]);} |
base[8]= CMPcdr(base[8]);} |
1241 |
{register object V213; |
{register object V228; |
1242 |
{register object V214; |
{register object V229; |
1243 |
V214= CMPcar(base[7]); |
V229= CMPcar(base[7]); |
1244 |
base[7]= CMPcdr(base[7]); |
base[7]= CMPcdr(base[7]); |
1245 |
V213= (V214);} |
V228= (V229);} |
1246 |
base[4]= make_cons((V213),base[4]);} |
base[4]= make_cons((V228),base[4]);} |
1247 |
if(!((base[7])==(CMPcdr((V196))))){ |
if(!((base[7])==(CMPcdr((V208))))){ |
1248 |
goto T403;} |
goto T403;} |
1249 |
goto T388; |
goto T388; |
1250 |
goto T403; |
goto T403; |
1255 |
goto T329; |
goto T329; |
1256 |
goto T336; |
goto T336; |
1257 |
T336:; |
T336:; |
1258 |
V196= CMPcdr((V196)); |
V208= CMPcdr((V208)); |
1259 |
V197= CMPcdr((V197)); |
V209= CMPcdr((V209)); |
1260 |
goto T331;} |
goto T331;} |
1261 |
goto T329; |
goto T329; |
1262 |
T329:; |
T329:; |
1264 |
} |
} |
1265 |
/* local entry for function DUPLICATABLE-CODE-P */ |
/* local entry for function DUPLICATABLE-CODE-P */ |
1266 |
|
|
1267 |
static object LI36(V217,V218) |
static object LI36(V232,V233) |
1268 |
|
|
1269 |
object V217;object V218; |
object V232;object V233; |
1270 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1271 |
goto TTL; |
goto TTL; |
1272 |
TTL:; |
TTL:; |
1273 |
if(((V217))!=Cnil){ |
if(((V232))!=Cnil){ |
1274 |
goto T415;} |
goto T415;} |
1275 |
{long V219 = 0; |
{long V234 = 0; |
1276 |
VMR29((object)V219)} |
VMR29((object)V234)} |
1277 |
goto T415; |
goto T415; |
1278 |
T415:; |
T415:; |
1279 |
{long V220; |
{long V235; |
1280 |
base[0]= (V217); |
base[0]= (V232); |
1281 |
base[1]= (V218); |
base[1]= (V233); |
1282 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1283 |
(void) (*Lnk77)(); |
(void) (*Lnk77)(); |
1284 |
vs_top=sup; |
vs_top=sup; |
1285 |
V220= fix(vs_base[0]); |
V235= fix(vs_base[0]); |
1286 |
{long V221 = V220; |
{long V236 = V235; |
1287 |
VMR29((object)V221)}} |
VMR29((object)V236)}} |
1288 |
base[0]=base[0]; |
base[0]=base[0]; |
1289 |
} |
} |
1290 |
/* local entry for function DESTRUCTURING-SIZE */ |
/* local entry for function DESTRUCTURING-SIZE */ |
1291 |
|
|
1292 |
static object LI37(V223) |
static object LI37(V238) |
1293 |
|
|
1294 |
object V223; |
object V238; |
1295 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1296 |
goto TTL; |
goto TTL; |
1297 |
TTL:; |
TTL:; |
1298 |
{register object V224; |
{register object V239; |
1299 |
register object V225; |
register object V240; |
1300 |
V224= (V223); |
V239= (V238); |
1301 |
V225= small_fixnum(0); |
V240= small_fixnum(0); |
1302 |
goto T421; |
goto T421; |
1303 |
T421:; |
T421:; |
1304 |
if(!(type_of((V224))!=t_cons)){ |
if(!(type_of((V239))!=t_cons)){ |
1305 |
goto T422;} |
goto T422;} |
1306 |
if(((V224))!=Cnil){ |
V241 = (V240); |
1307 |
|
if(((V239))!=Cnil){ |
1308 |
goto T427;} |
goto T427;} |
1309 |
V226= small_fixnum(0); |
V242= small_fixnum(0); |
1310 |
goto T425; |
goto T425; |
1311 |
goto T427; |
goto T427; |
1312 |
T427:; |
T427:; |
1313 |
V226= small_fixnum(1); |
V242= small_fixnum(1); |
1314 |
goto T425; |
goto T425; |
1315 |
T425:; |
T425:; |
1316 |
{object V227 = number_plus((V225),V226); |
{object V243 = number_plus(V241,V242); |
1317 |
VMR30(V227)} |
VMR30(V243)} |
1318 |
goto T422; |
goto T422; |
1319 |
T422:; |
T422:; |
1320 |
{object V228; |
{object V244; |
1321 |
V228= CMPcdr((V224)); |
V244= CMPcdr((V239)); |
1322 |
V229= (*(LnkLI348))(CMPcar((V224))); |
V245= (*(LnkLI348))(CMPcar((V239))); |
1323 |
V225= number_plus(/* INLINE-ARGS */V229,(V225)); |
V246 = (V240); |
1324 |
V224= (V228);} |
V240= number_plus(/* INLINE-ARGS */V245,V246); |
1325 |
|
V239= (V244);} |
1326 |
goto T421;} |
goto T421;} |
1327 |
return Cnil; |
return Cnil; |
1328 |
} |
} |
1332 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
1333 |
register object *VOL sup=base+VM31; VC31 |
register object *VOL sup=base+VM31; VC31 |
1334 |
vs_check; |
vs_check; |
1335 |
{VOL object V230; |
{VOL object V247; |
1336 |
VOL object V231; |
VOL object V248; |
1337 |
V230=(base[0]); |
V247=(base[0]); |
1338 |
V231=(base[1]); |
V248=(base[1]); |
1339 |
vs_top=sup; |
vs_top=sup; |
1340 |
goto TTL; |
goto TTL; |
1341 |
TTL:; |
TTL:; |
1344 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
1345 |
return;} |
return;} |
1346 |
else{ |
else{ |
1347 |
base[2]= (V230); |
base[2]= (V247); |
1348 |
base[3]= (V231); |
base[3]= (V248); |
1349 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1350 |
(void) (*Lnk349)(); |
(void) (*Lnk349)(); |
1351 |
frs_pop(); |
frs_pop(); |
1358 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1359 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
1360 |
vs_check; |
vs_check; |
1361 |
{object V232; |
{object V249; |
1362 |
V232=(base[0]); |
V249=(base[0]); |
1363 |
vs_top=sup; |
vs_top=sup; |
1364 |
goto TTL; |
goto TTL; |
1365 |
TTL:; |
TTL:; |
1366 |
base[2]= (V232); |
base[2]= (V249); |
1367 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1368 |
Lconstantp(); |
Lconstantp(); |
1369 |
vs_top=sup; |
vs_top=sup; |
1374 |
return; |
return; |
1375 |
goto T438; |
goto T438; |
1376 |
T438:; |
T438:; |
1377 |
if(!(type_of((V232))==t_symbol)){ |
if(!(type_of((V249))==t_symbol)){ |
1378 |
goto T442;} |
goto T442;} |
1379 |
{object V233; |
{object V250; |
1380 |
object V234; |
object V251; |
1381 |
base[2]= (V232); |
base[2]= (V249); |
1382 |
base[3]= base[1]; |
base[3]= base[1]; |
1383 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1384 |
Lmacroexpand_1(); |
Lmacroexpand_1(); |
1385 |
if(vs_base>=vs_top){vs_top=sup;goto T447;} |
if(vs_base>=vs_top){vs_top=sup;goto T447;} |
1386 |
V233= vs_base[0]; |
V250= vs_base[0]; |
1387 |
vs_base++; |
vs_base++; |
1388 |
if(vs_base>=vs_top){vs_top=sup;goto T448;} |
if(vs_base>=vs_top){vs_top=sup;goto T448;} |
1389 |
V234= vs_base[0]; |
V251= vs_base[0]; |
1390 |
vs_top=sup; |
vs_top=sup; |
1391 |
goto T449; |
goto T449; |
1392 |
goto T447; |
goto T447; |
1393 |
T447:; |
T447:; |
1394 |
V233= Cnil; |
V250= Cnil; |
1395 |
goto T448; |
goto T448; |
1396 |
T448:; |
T448:; |
1397 |
V234= Cnil; |
V251= Cnil; |
1398 |
goto T449; |
goto T449; |
1399 |
T449:; |
T449:; |
1400 |
if(((V234))==Cnil){ |
if(((V251))==Cnil){ |
1401 |
goto T451;} |
goto T451;} |
1402 |
V232= (V233); |
V249= (V250); |
1403 |
goto TTL; |
goto TTL; |
1404 |
goto T451; |
goto T451; |
1405 |
T451:; |
T451:; |
1408 |
return;} |
return;} |
1409 |
goto T442; |
goto T442; |
1410 |
T442:; |
T442:; |
1411 |
if(!(type_of((V232))!=t_cons)){ |
if(!(type_of((V249))!=t_cons)){ |
1412 |
goto T457;} |
goto T457;} |
1413 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1414 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1415 |
return; |
return; |
1416 |
goto T457; |
goto T457; |
1417 |
T457:; |
T457:; |
1418 |
if(!(type_of(CMPcar((V232)))==t_symbol)){ |
if(!(type_of(CMPcar((V249)))==t_symbol)){ |
1419 |
goto T460;} |
goto T460;} |
1420 |
{object V235; |
{object V252; |
1421 |
object V236; |
object V253; |
1422 |
register long V237; |
register long V254; |
1423 |
V235= CMPcar((V232)); |
V252= CMPcar((V249)); |
1424 |
V237= 0; |
V254= 0; |
1425 |
V236= Cnil; |
V253= Cnil; |
1426 |
{object V238 =((V235))->s.s_plist; |
{object V255 =((V252))->s.s_plist; |
1427 |
object ind= VV[77]; |
object ind= VV[77]; |
1428 |
while(V238!=Cnil){ |
while(V255!=Cnil){ |
1429 |
if(V238->c.c_car==ind){ |
if(V255->c.c_car==ind){ |
1430 |
V236= (V238->c.c_cdr->c.c_car); |
V253= (V255->c.c_cdr->c.c_car); |
1431 |
goto T467; |
goto T467; |
1432 |
}else V238=V238->c.c_cdr->c.c_cdr;} |
}else V255=V255->c.c_cdr->c.c_cdr;} |
1433 |
V236= Cnil;} |
V253= Cnil;} |
1434 |
goto T467; |
goto T467; |
1435 |
T467:; |
T467:; |
1436 |
if(((V236))==Cnil){ |
if(((V253))==Cnil){ |
1437 |
goto T465;} |
goto T465;} |
1438 |
if(!(type_of(V236)==t_fixnum)){ |
if(!(type_of(V253)==t_fixnum)){ |
1439 |
goto T469;} |
goto T469;} |
1440 |
base[2]= CMPcdr((V232)); |
V257 = fix((V253)); |
1441 |
|
base[2]= CMPcdr((V249)); |
1442 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1443 |
L40(base); |
L40(base); |
1444 |
vs_top=sup; |
vs_top=sup; |
1445 |
V240= fix(vs_base[0]); |
V258= fix(vs_base[0]); |
1446 |
base[2]= CMPmake_fixnum((long)(fix((V236)))+(V240)); |
base[2]= CMPmake_fixnum((long)(V257)+(V258)); |
1447 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1448 |
return; |
return; |
1449 |
goto T469; |
goto T469; |
1450 |
T469:; |
T469:; |
1451 |
base[2]= (V232); |
base[2]= (V249); |
1452 |
base[3]= base[1]; |
base[3]= base[1]; |
1453 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1454 |
super_funcall_no_event((V236)); |
super_funcall_no_event((V253)); |
1455 |
return; |
return; |
1456 |
goto T465; |
goto T465; |
1457 |
T465:; |
T465:; |
1458 |
{register object x= (V235),V241= (VV[78]->s.s_dbind); |
{register object x= (V252),V259= (VV[78]->s.s_dbind); |
1459 |
while(V241!=Cnil) |
while(V259!=Cnil) |
1460 |
if(eql(x,V241->c.c_car->c.c_car) &&V241->c.c_car != Cnil){ |
if(eql(x,V259->c.c_car->c.c_car) &&V259->c.c_car != Cnil){ |
1461 |
V236= (V241->c.c_car); |
V253= (V259->c.c_car); |
1462 |
goto T478; |
goto T478; |
1463 |
}else V241=V241->c.c_cdr; |
}else V259=V259->c.c_cdr; |
1464 |
V236= Cnil;} |
V253= Cnil;} |
1465 |
goto T478; |
goto T478; |
1466 |
T478:; |
T478:; |
1467 |
if(((V236))==Cnil){ |
if(((V253))==Cnil){ |
1468 |
goto T476;} |
goto T476;} |
1469 |
{long V242= fix(CMPcadr((V236))); |
{long V260= fix(CMPcadr((V253))); |
1470 |
base[2]= CMPcdr((V232)); |
base[2]= CMPcdr((V249)); |
1471 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1472 |
L40(base); |
L40(base); |
1473 |
vs_top=sup; |
vs_top=sup; |
1474 |
V243= fix(vs_base[0]); |
V261= fix(vs_base[0]); |
1475 |
base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V242)+(V243)); |
base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V260)+(V261)); |
1476 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1477 |
return;} |
return;} |
1478 |
goto T476; |
goto T476; |
1479 |
T476:; |
T476:; |
1480 |
if(!(((V235))==(VV[79]))){ |
if(!(((V252))==(VV[79]))){ |
1481 |
goto T482;} |
goto T482;} |
1482 |
{register object V244; |
{register object V262; |
1483 |
object V245; |
object V263; |
1484 |
V244= CMPcdr((V232)); |
V262= CMPcdr((V249)); |
1485 |
V245= CMPcar((V244)); |
V263= CMPcar((V262)); |
1486 |
goto T487; |
goto T487; |
1487 |
T487:; |
T487:; |
1488 |
if(!(((V244))==Cnil)){ |
if(!(((V262))==Cnil)){ |
1489 |
goto T488;} |
goto T488;} |
1490 |
base[4]= CMPmake_fixnum(V237); |
base[4]= CMPmake_fixnum(V254); |
1491 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1492 |
return; |
return; |
1493 |
goto T488; |
goto T488; |
1494 |
T488:; |
T488:; |
1495 |
V246 = CMPmake_fixnum(V237); |
V264 = CMPmake_fixnum(V254); |
1496 |
base[4]= (V245); |
base[4]= (V263); |
1497 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1498 |
L40(base); |
L40(base); |
1499 |
vs_top=sup; |
vs_top=sup; |
1500 |
V247= vs_base[0]; |
V265= vs_base[0]; |
1501 |
V237= fix(number_plus(V246,V247)); |
V254= fix(number_plus(V264,V265)); |
1502 |
V237= (long)(V237)+(1); |
V254= (long)(V254)+(1); |
1503 |
V244= CMPcdr((V244)); |
V262= CMPcdr((V262)); |
1504 |
V245= CMPcar((V244)); |
V263= CMPcar((V262)); |
1505 |
goto T487;} |
goto T487;} |
1506 |
goto T482; |
goto T482; |
1507 |
T482:; |
T482:; |
1508 |
if(!(((V235))==(VV[80]))){ |
if(!(((V252))==(VV[80]))){ |
1509 |
goto T504;} |
goto T504;} |
1510 |
{register object V248; |
{register object V266; |
1511 |
V248= CMPcdr((V232)); |
V266= CMPcdr((V249)); |
1512 |
goto T508; |
goto T508; |
1513 |
T508:; |
T508:; |
1514 |
if(((V248))!=Cnil){ |
if(((V266))!=Cnil){ |
1515 |
goto T509;} |
goto T509;} |
1516 |
base[2]= CMPmake_fixnum(V237); |
base[2]= CMPmake_fixnum(V254); |
1517 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1518 |
return; |
return; |
1519 |
goto T509; |
goto T509; |
1520 |
T509:; |
T509:; |
1521 |
base[2]= CMPmake_fixnum(V237); |
base[2]= CMPmake_fixnum(V254); |
1522 |
base[3]= (*(LnkLI348))(CMPcar((V248))); |
base[3]= (*(LnkLI348))(CMPcar((V266))); |
1523 |
base[5]= CMPcadr((V248)); |
base[5]= CMPcadr((V266)); |
1524 |
base[6]= base[1]; |
base[6]= base[1]; |
1525 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1526 |
(void) (*Lnk349)(); |
(void) (*Lnk349)(); |
1529 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1530 |
Lplus(); |
Lplus(); |
1531 |
vs_top=sup; |
vs_top=sup; |
1532 |
V237= fix(vs_base[0]); |
V254= fix(vs_base[0]); |
1533 |
V248= CMPcdr((V248)); |
V266= CMPcdr((V266)); |
1534 |
goto T508;} |
goto T508;} |
1535 |
goto T504; |
goto T504; |
1536 |
T504:; |
T504:; |
1537 |
{register object x= (V235),V249= VV[81]; |
{register object x= (V252),V267= VV[81]; |
1538 |
while(V249!=Cnil) |
while(V267!=Cnil) |
1539 |
if(eql(x,V249->c.c_car)){ |
if(eql(x,V267->c.c_car)){ |
1540 |
goto T525; |
goto T525; |
1541 |
}else V249=V249->c.c_cdr; |
}else V267=V267->c.c_cdr; |
1542 |
goto T524;} |
goto T524;} |
1543 |
goto T525; |
goto T525; |
1544 |
T525:; |
T525:; |
1545 |
{register object V250; |
{register object V268; |
1546 |
V250= CMPcdr((V232)); |
V268= CMPcdr((V249)); |
1547 |
goto T528; |
goto T528; |
1548 |
T528:; |
T528:; |
1549 |
if(((V250))!=Cnil){ |
if(((V268))!=Cnil){ |
1550 |
goto T529;} |
goto T529;} |
1551 |
base[2]= CMPmake_fixnum(V237); |
base[2]= CMPmake_fixnum(V254); |
1552 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1553 |
return; |
return; |
1554 |
goto T529; |
goto T529; |
1555 |
T529:; |
T529:; |
1556 |
base[2]= CMPmake_fixnum(V237); |
base[2]= CMPmake_fixnum(V254); |
1557 |
base[4]= CMPcadr((V250)); |
base[4]= CMPcadr((V268)); |
1558 |
base[5]= base[1]; |
base[5]= base[1]; |
1559 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1560 |
(void) (*Lnk349)(); |
(void) (*Lnk349)(); |
1564 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1565 |
Lplus(); |
Lplus(); |
1566 |
vs_top=sup; |
vs_top=sup; |
1567 |
V237= fix(vs_base[0]); |
V254= fix(vs_base[0]); |
1568 |
V250= CMPcdr((V250)); |
V268= CMPcdr((V268)); |
1569 |
goto T528;} |
goto T528;} |
1570 |
goto T524; |
goto T524; |
1571 |
T524:; |
T524:; |
1572 |
if(!(((V235))==(VV[82]))){ |
if(!(((V252))==(VV[82]))){ |
1573 |
goto T544;} |
goto T544;} |
1574 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1575 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1576 |
return; |
return; |
1577 |
goto T544; |
goto T544; |
1578 |
T544:; |
T544:; |
1579 |
if(!(((V235))==(VV[83]))){ |
if(!(((V252))==(VV[83]))){ |
1580 |
goto T547;} |
goto T547;} |
1581 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1582 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1583 |
return; |
return; |
1584 |
goto T547; |
goto T547; |
1585 |
T547:; |
T547:; |
1586 |
if(!(((V235))==(VV[84]))){ |
if(!(((V252))==(VV[84]))){ |
1587 |
goto T550;} |
goto T550;} |
1588 |
{long V251= (long)length(CMPcadr((V232))); |
{long V269= (long)length(CMPcadr((V249))); |
1589 |
base[2]= CMPcddr((V232)); |
base[2]= CMPcddr((V249)); |
1590 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1591 |
L40(base); |
L40(base); |
1592 |
vs_top=sup; |
vs_top=sup; |
1593 |
V252= fix(vs_base[0]); |
V270= fix(vs_base[0]); |
1594 |
base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V251)+(V252)); |
base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V269)+(V270)); |
1595 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1596 |
return;} |
return;} |
1597 |
goto T550; |
goto T550; |
1598 |
T550:; |
T550:; |
1599 |
if(!(((V235))==(VV[85]))){ |
if(!(((V252))==(VV[85]))){ |
1600 |
goto T555;} |
goto T555;} |
1601 |
base[2]= CMPcaddr((V232)); |
base[2]= CMPcaddr((V249)); |
1602 |
base[3]= base[1]; |
base[3]= base[1]; |
1603 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1604 |
(void) (*Lnk349)(); |
(void) (*Lnk349)(); |
1605 |
vs_top=sup; |
vs_top=sup; |
1606 |
V253= vs_base[0]; |
V271= vs_base[0]; |
1607 |
base[2]= one_plus(V253); |
base[2]= one_plus(V271); |
1608 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1609 |
return; |
return; |
1610 |
goto T555; |
goto T555; |
1611 |
T555:; |
T555:; |
1612 |
base[2]= (V235); |
base[2]= (V252); |
1613 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1614 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
1615 |
vs_top=sup; |
vs_top=sup; |
1616 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1617 |
goto T560;} |
goto T560;} |
1618 |
{register object x= (V235),V254= (VV[86]->s.s_dbind); |
{register object x= (V252),V272= (VV[86]->s.s_dbind); |
1619 |
while(V254!=Cnil) |
while(V272!=Cnil) |
1620 |
if(eql(x,V254->c.c_car)){ |
if(eql(x,V272->c.c_car)){ |
1621 |
goto T565; |
goto T565; |
1622 |
}else V254=V254->c.c_cdr; |
}else V272=V272->c.c_cdr; |
1623 |
goto T561;} |
goto T561;} |
1624 |
goto T565; |
goto T565; |
1625 |
T565:; |
T565:; |
1633 |
unwind(fr,VV[77]);} |
unwind(fr,VV[77]);} |
1634 |
goto T561; |
goto T561; |
1635 |
T561:; |
T561:; |
1636 |
{object V255; |
{object V273; |
1637 |
object V256; |
object V274; |
1638 |
base[2]= (V232); |
base[2]= (V249); |
1639 |
base[3]= base[1]; |
base[3]= base[1]; |
1640 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1641 |
Lmacroexpand_1(); |
Lmacroexpand_1(); |
1642 |
if(vs_base>=vs_top){vs_top=sup;goto T570;} |
if(vs_base>=vs_top){vs_top=sup;goto T570;} |
1643 |
V255= vs_base[0]; |
V273= vs_base[0]; |
1644 |
vs_base++; |
vs_base++; |
1645 |
if(vs_base>=vs_top){vs_top=sup;goto T571;} |
if(vs_base>=vs_top){vs_top=sup;goto T571;} |
1646 |
V256= vs_base[0]; |
V274= vs_base[0]; |
1647 |
vs_top=sup; |
vs_top=sup; |
1648 |
goto T572; |
goto T572; |
1649 |
goto T570; |
goto T570; |
1650 |
T570:; |
T570:; |
1651 |
V255= Cnil; |
V273= Cnil; |
1652 |
goto T571; |
goto T571; |
1653 |
T571:; |
T571:; |
1654 |
V256= Cnil; |
V274= Cnil; |
1655 |
goto T572; |
goto T572; |
1656 |
T572:; |
T572:; |
1657 |
if(((V256))==Cnil){ |
if(((V274))==Cnil){ |
1658 |
goto T574;} |
goto T574;} |
1659 |
V232= (V255); |
V249= (V273); |
1660 |
goto TTL; |
goto TTL; |
1661 |
goto T574; |
goto T574; |
1662 |
T574:; |
T574:; |
1663 |
base[2]= CMPcdr((V232)); |
base[2]= CMPcdr((V249)); |
1664 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1665 |
L40(base); |
L40(base); |
1666 |
vs_top=sup; |
vs_top=sup; |
1667 |
V257= fix(vs_base[0]); |
V275= fix(vs_base[0]); |
1668 |
base[2]= CMPmake_fixnum((long)(3)+(V257)); |
base[2]= CMPmake_fixnum((long)(3)+(V275)); |
1669 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1670 |
return;}} |
return;}} |
1671 |
goto T460; |
goto T460; |
1685 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1686 |
goto TTL; |
goto TTL; |
1687 |
TTL:; |
TTL:; |
1688 |
{register object V258; |
{register object V276; |
1689 |
register object V259; |
register object V277; |
1690 |
V258= (VV[87]->s.s_dbind); |
V276= (VV[87]->s.s_dbind); |
1691 |
V259= Cnil; |
V277= Cnil; |
1692 |
goto T583; |
goto T583; |
1693 |
T583:; |
T583:; |
1694 |
if(!(((V258))==(CMPcdr((VV[88]->s.s_dbind))))){ |
if(!(((V276))==(CMPcdr((VV[88]->s.s_dbind))))){ |
1695 |
goto T584;} |
goto T584;} |
1696 |
{object V260 = nreverse((V259)); |
{object V278 = nreverse((V277)); |
1697 |
VMR33(V260)} |
VMR33(V278)} |
1698 |
goto T584; |
goto T584; |
1699 |
T584:; |
T584:; |
1700 |
{object V261; |
{object V279; |
1701 |
V261= CMPcdr((V258)); |
V279= CMPcdr((V276)); |
1702 |
V259= make_cons(CMPcar((V258)),(V259)); |
V277= make_cons(CMPcar((V276)),(V277)); |
1703 |
V258= (V261);} |
V276= (V279);} |
1704 |
goto T583;} |
goto T583;} |
1705 |
return Cnil; |
return Cnil; |
1706 |
} |
} |
1710 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1711 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
1712 |
vs_check; |
vs_check; |
1713 |
{object V262; |
{object V280; |
1714 |
object V263; |
object V281; |
1715 |
V262=(base[0]); |
V280=(base[0]); |
1716 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1717 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1718 |
{object *p=vs_top; |
{object *p=vs_top; |
1719 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1720 |
V263=(base[1]); |
V281=(base[1]); |
1721 |
vs_top=sup; |
vs_top=sup; |
1722 |
base[2]= VV[89]; |
base[2]= VV[89]; |
1723 |
base[3]= VV[90]; |
base[3]= VV[90]; |
1724 |
base[4]= (V262); |
base[4]= (V280); |
1725 |
base[5]= (V263); |
base[5]= (V281); |
1726 |
base[6]= (*(LnkLI351))(); |
base[6]= (*(LnkLI351))(); |
1727 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1728 |
(void) (*Lnk352)(); |
(void) (*Lnk352)(); |
1731 |
} |
} |
1732 |
/* local entry for function LOOP-WARN */ |
/* local entry for function LOOP-WARN */ |
1733 |
|
|
1734 |
static object LI43(object V264,object first,...) |
static object LI43(object V282,object first,...) |
1735 |
{ |
{ |
1736 |
va_list ap; |
va_list ap; |
1737 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
1738 |
{object V265; |
{object V283; |
1739 |
object V266; |
object V284; |
1740 |
va_start(ap,first); |
va_start(ap,first); |
1741 |
V265= V264; |
V283= V282; |
1742 |
narg= narg - 1; |
narg= narg - 1; |
1743 |
V267 = list_vector_new(narg,first,ap); |
V285 = list_vector_new(narg,first,ap); |
1744 |
V266= V267; |
V284= V285; |
1745 |
base[0]= VV[91]; |
base[0]= VV[91]; |
1746 |
base[1]= (V265); |
base[1]= (V283); |
1747 |
base[2]= (V266); |
base[2]= (V284); |
1748 |
base[3]= (*(LnkLI351))(); |
base[3]= (*(LnkLI351))(); |
1749 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1750 |
(void) (*Lnk353)(); |
(void) (*Lnk353)(); |
1751 |
vs_top=sup; |
vs_top=sup; |
1752 |
{object V268 = vs_base[0]; |
{object V286 = vs_base[0]; |
1753 |
VMR35(V268)} |
VMR35(V286)} |
1754 |
va_end(ap); |
va_end(ap); |
1755 |
base[0]=base[0]; |
base[0]=base[0]; |
1756 |
return Cnil;} |
return Cnil;} |
1757 |
} |
} |
1758 |
/* local entry for function LOOP-CHECK-DATA-TYPE */ |
/* local entry for function LOOP-CHECK-DATA-TYPE */ |
1759 |
|
|
1760 |
static object LI44(object V270,object V269,object first,...) |
static object LI44(object V288,object V287,object first,...) |
1761 |
{ |
{ |
1762 |
va_list ap; |
va_list ap; |
1763 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
1764 |
{register object V271; |
{register object V289; |
1765 |
register object V272; |
register object V290; |
1766 |
object V273; |
object V291; |
1767 |
va_start(ap,first); |
va_start(ap,first); |
1768 |
V271= V270; |
V289= V288; |
1769 |
V272= V269; |
V290= V287; |
1770 |
narg = narg - 2; |
narg = narg - 2; |
1771 |
if (narg <= 0) goto T601; |
if (narg <= 0) goto T601; |
1772 |
else { |
else { |
1773 |
V273= first;} |
V291= first;} |
1774 |
--narg; goto T602; |
--narg; goto T602; |
1775 |
goto T601; |
goto T601; |
1776 |
T601:; |
T601:; |
1777 |
V273= (V272); |
V291= (V290); |
1778 |
goto T602; |
goto T602; |
1779 |
T602:; |
T602:; |
1780 |
if(((V271))!=Cnil){ |
if(((V289))!=Cnil){ |
1781 |
goto T605;} |
goto T605;} |
1782 |
{object V274 = (V273); |
{object V292 = (V291); |
1783 |
VMR36(V274)} |
VMR36(V292)} |
1784 |
goto T605; |
goto T605; |
1785 |
T605:; |
T605:; |
1786 |
{object V275; |
{object V293; |
1787 |
object V276; |
object V294; |
1788 |
base[0]= (V271); |
base[0]= (V289); |
1789 |
base[1]= (V272); |
base[1]= (V290); |
1790 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1791 |
(void) (*Lnk333)(); |
(void) (*Lnk333)(); |
1792 |
if(vs_base>=vs_top){vs_top=sup;goto T610;} |
if(vs_base>=vs_top){vs_top=sup;goto T610;} |
1793 |
V275= vs_base[0]; |
V293= vs_base[0]; |
1794 |
vs_base++; |
vs_base++; |
1795 |
if(vs_base>=vs_top){vs_top=sup;goto T611;} |
if(vs_base>=vs_top){vs_top=sup;goto T611;} |
1796 |
V276= vs_base[0]; |
V294= vs_base[0]; |
1797 |
vs_top=sup; |
vs_top=sup; |
1798 |
goto T612; |
goto T612; |
1799 |
goto T610; |
goto T610; |
1800 |
T610:; |
T610:; |
1801 |
V275= Cnil; |
V293= Cnil; |
1802 |
goto T611; |
goto T611; |
1803 |
T611:; |
T611:; |
1804 |
V276= Cnil; |
V294= Cnil; |
1805 |
goto T612; |
goto T612; |
1806 |
T612:; |
T612:; |
1807 |
if(((V276))!=Cnil){ |
if(((V294))!=Cnil){ |
1808 |
goto T615;} |
goto T615;} |
1809 |
(void)((VFUN_NARGS=3,(*(LnkLI345))(VV[92],(V271),(V272)))); |
(void)((VFUN_NARGS=3,(*(LnkLI345))(VV[92],(V289),(V290)))); |
1810 |
goto T613; |
goto T613; |
1811 |
goto T615; |
goto T615; |
1812 |
T615:; |
T615:; |
1813 |
if(((V275))!=Cnil){ |
if(((V293))!=Cnil){ |
1814 |
goto T613;} |
goto T613;} |
1815 |
base[0]= VV[93]; |
base[0]= VV[93]; |
1816 |
base[1]= (V271); |
base[1]= (V289); |
1817 |
base[2]= (V272); |
base[2]= (V290); |
1818 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1819 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
1820 |
vs_top=sup; |
vs_top=sup; |
1821 |
goto T613; |
goto T613; |
1822 |
T613:; |
T613:; |
1823 |
{object V277 = (V271); |
{object V295 = (V289); |
1824 |
VMR36(V277)}} |
VMR36(V295)}} |
1825 |
va_end(ap); |
va_end(ap); |
1826 |
base[0]=base[0]; |
base[0]=base[0]; |
1827 |
return Cnil;} |
return Cnil;} |
1839 |
} |
} |
1840 |
/* local entry for function SUBST-GENSYMS-FOR-NIL */ |
/* local entry for function SUBST-GENSYMS-FOR-NIL */ |
1841 |
|
|
1842 |
static object LI46(V280) |
static object LI46(V298) |
1843 |
|
|
1844 |
register object V280; |
register object V298; |
1845 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
1846 |
goto TTL; |
goto TTL; |
1847 |
TTL:; |
TTL:; |
1848 |
if(((V280))!=Cnil){ |
if(((V298))!=Cnil){ |
1849 |
goto T623;} |
goto T623;} |
1850 |
{object V282; |
{object V300; |
1851 |
V282= (VFUN_NARGS=0,(*(LnkLI335))()); |
V300= (VFUN_NARGS=0,(*(LnkLI335))()); |
1852 |
(VV[95]->s.s_dbind)= make_cons((V282),(VV[95]->s.s_dbind)); |
(VV[95]->s.s_dbind)= make_cons((V300),(VV[95]->s.s_dbind)); |
1853 |
V281= (VV[95]->s.s_dbind);} |
V299= (VV[95]->s.s_dbind);} |
1854 |
{object V283 = CMPcar(V281); |
{object V301 = CMPcar(V299); |
1855 |
VMR38(V283)} |
VMR38(V301)} |
1856 |
goto T623; |
goto T623; |
1857 |
T623:; |
T623:; |
1858 |
if(!(type_of((V280))!=t_cons)){ |
if(!(type_of((V298))!=t_cons)){ |
1859 |
goto T629;} |
goto T629;} |
1860 |
{object V284 = (V280); |
{object V302 = (V298); |
1861 |
VMR38(V284)} |
VMR38(V302)} |
1862 |
goto T629; |
goto T629; |
1863 |
T629:; |
T629:; |
1864 |
V285= (*(LnkLI355))(CMPcar((V280))); |
V303= (*(LnkLI355))(CMPcar((V298))); |
1865 |
V286= (*(LnkLI355))(CMPcdr((V280))); |
V304= (*(LnkLI355))(CMPcdr((V298))); |
1866 |
{object V287 = make_cons(/* INLINE-ARGS */V285,/* INLINE-ARGS */V286); |
{object V305 = make_cons(/* INLINE-ARGS */V303,/* INLINE-ARGS */V304); |
1867 |
VMR38(V287)} |
VMR38(V305)} |
1868 |
base[0]=base[0]; |
base[0]=base[0]; |
1869 |
return Cnil; |
return Cnil; |
1870 |
} |
} |
1871 |
/* local entry for function LOOP-BUILD-DESTRUCTURING-BINDINGS */ |
/* local entry for function LOOP-BUILD-DESTRUCTURING-BINDINGS */ |
1872 |
|
|
1873 |
static object LI47(V290,V291) |
static object LI47(V308,V309) |
1874 |
|
|
1875 |
register object V290;object V291; |
register object V308;object V309; |
1876 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
1877 |
bds_check; |
bds_check; |
1878 |
goto TTL; |
goto TTL; |
1879 |
TTL:; |
TTL:; |
1880 |
if(((V290))==Cnil){ |
if(((V308))==Cnil){ |
1881 |
goto T632;} |
goto T632;} |
1882 |
bds_bind(VV[95],Cnil); |
bds_bind(VV[95],Cnil); |
1883 |
V292= (*(LnkLI355))(CMPcar((V290))); |
V310= (*(LnkLI355))(CMPcar((V308))); |
1884 |
V293= CMPcadr((V290)); |
V311= CMPcadr((V308)); |
1885 |
V294= list(2,VV[30],make_cons(VV[97],(VV[95]->s.s_dbind))); |
V312= list(2,VV[30],make_cons(VV[97],(VV[95]->s.s_dbind))); |
1886 |
V295= listA(5,VV[96],/* INLINE-ARGS */V292,/* INLINE-ARGS */V293,/* INLINE-ARGS */V294,(*(LnkLI356))(CMPcddr((V290)),(V291))); |
V313= listA(5,VV[96],/* INLINE-ARGS */V310,/* INLINE-ARGS */V311,/* INLINE-ARGS */V312,(*(LnkLI356))(CMPcddr((V308)),(V309))); |
1887 |
{object V296 = make_cons(/* INLINE-ARGS */V295,Cnil); |
{object V314 = make_cons(/* INLINE-ARGS */V313,Cnil); |
1888 |
bds_unwind1; |
bds_unwind1; |
1889 |
VMR39(V296)} |
VMR39(V314)} |
1890 |
goto T632; |
goto T632; |
1891 |
T632:; |
T632:; |
1892 |
{object V297 = (V291); |
{object V315 = (V309); |
1893 |
VMR39(V297)} |
VMR39(V315)} |
1894 |
base[0]=base[0]; |
base[0]=base[0]; |
1895 |
return Cnil; |
return Cnil; |
1896 |
} |
} |
1897 |
/* local entry for function LOOP-TRANSLATE */ |
/* local entry for function LOOP-TRANSLATE */ |
1898 |
|
|
1899 |
static object LI48(V301,V302,V303) |
static object LI48(V319,V320,V321) |
1900 |
|
|
1901 |
object V301;object V302;object V303; |
object V319;object V320;object V321; |
1902 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
1903 |
bds_check; |
bds_check; |
1904 |
goto TTL; |
goto TTL; |
1905 |
TTL:; |
TTL:; |
1906 |
bds_bind(VV[99],V303); |
bds_bind(VV[99],V321); |
1907 |
bds_bind(VV[98],V302); |
bds_bind(VV[98],V320); |
1908 |
bds_bind(VV[88],V301); |
bds_bind(VV[88],V319); |
1909 |
bds_bind(VV[100],(VV[88]->s.s_dbind)); |
bds_bind(VV[100],(VV[88]->s.s_dbind)); |
1910 |
bds_bind(VV[87],Cnil); |
bds_bind(VV[87],Cnil); |
1911 |
bds_bind(VV[101],Cnil); |
bds_bind(VV[101],Cnil); |
1931 |
bds_bind(VV[121],Cnil); |
bds_bind(VV[121],Cnil); |
1932 |
(void)((*(LnkLI357))()); |
(void)((*(LnkLI357))()); |
1933 |
(void)((*(LnkLI358))()); |
(void)((*(LnkLI358))()); |
1934 |
{register object V304; |
{register object V322; |
1935 |
V305= nreverse((VV[108]->s.s_dbind)); |
V323= nreverse((VV[108]->s.s_dbind)); |
1936 |
V306= nreverse((VV[110]->s.s_dbind)); |
V324= nreverse((VV[110]->s.s_dbind)); |
1937 |
V307= nreverse((VV[111]->s.s_dbind)); |
V325= nreverse((VV[111]->s.s_dbind)); |
1938 |
V308= nreverse((VV[113]->s.s_dbind)); |
V326= nreverse((VV[113]->s.s_dbind)); |
1939 |
base[23]= (VV[114]->s.s_dbind); |
base[23]= (VV[114]->s.s_dbind); |
1940 |
base[24]= nreverse((VV[115]->s.s_dbind)); |
base[24]= nreverse((VV[115]->s.s_dbind)); |
1941 |
vs_top=(vs_base=base+23)+2; |
vs_top=(vs_base=base+23)+2; |
1942 |
Lreconc(); |
Lreconc(); |
1943 |
vs_top=sup; |
vs_top=sup; |
1944 |
V309= vs_base[0]; |
V327= vs_base[0]; |
1945 |
V304= list(6,VV[122],/* INLINE-ARGS */V305,/* INLINE-ARGS */V306,/* INLINE-ARGS */V307,/* INLINE-ARGS */V308,V309); |
V322= list(6,VV[122],/* INLINE-ARGS */V323,/* INLINE-ARGS */V324,/* INLINE-ARGS */V325,/* INLINE-ARGS */V326,V327); |
1946 |
{register object V310; |
{register object V328; |
1947 |
register object V311; |
register object V329; |
1948 |
V310= (VV[107]->s.s_dbind); |
V328= (VV[107]->s.s_dbind); |
1949 |
V311= CMPcar((V310)); |
V329= CMPcar((V328)); |
1950 |
goto T644; |
goto T644; |
1951 |
T644:; |
T644:; |
1952 |
if(!(((V310))==Cnil)){ |
if(!(((V328))==Cnil)){ |
1953 |
goto T645;} |
goto T645;} |
1954 |
goto T640; |
goto T640; |
1955 |
goto T645; |
goto T645; |
1956 |
T645:; |
T645:; |
1957 |
{object V312; |
{object V330; |
1958 |
object V313; |
object V331; |
1959 |
object V314; |
object V332; |
1960 |
object V315; |
object V333; |
1961 |
V312= CMPcar((V311)); |
V330= CMPcar((V329)); |
1962 |
V313= CMPcadr((V311)); |
V331= CMPcadr((V329)); |
1963 |
V314= CMPcaddr((V311)); |
V332= CMPcaddr((V329)); |
1964 |
V315= CMPcadddr((V311)); |
V333= CMPcadddr((V329)); |
1965 |
{register object V316; |
{register object V334; |
1966 |
register object V317; |
register object V335; |
1967 |
V316= (V315); |
V334= (V333); |
1968 |
V317= CMPcar((V316)); |
V335= CMPcar((V334)); |
1969 |
goto T658; |
goto T658; |
1970 |
T658:; |
T658:; |
1971 |
if(!(((V316))==Cnil)){ |
if(!(((V334))==Cnil)){ |
1972 |
goto T659;} |
goto T659;} |
1973 |
goto T654; |
goto T654; |
1974 |
goto T659; |
goto T659; |
1975 |
T659:; |
T659:; |
1976 |
V318= make_cons((V304),Cnil); |
V336= make_cons((V322),Cnil); |
1977 |
V304= append((V317),/* INLINE-ARGS */V318); |
V322= append((V335),/* INLINE-ARGS */V336); |
1978 |
V316= CMPcdr((V316)); |
V334= CMPcdr((V334)); |
1979 |
V317= CMPcar((V316)); |
V335= CMPcar((V334)); |
1980 |
goto T658;} |
goto T658;} |
1981 |
goto T654; |
goto T654; |
1982 |
T654:; |
T654:; |
1983 |
if(((V312))!=Cnil){ |
if(((V330))!=Cnil){ |
1984 |
goto T670;} |
goto T670;} |
1985 |
if(((V313))!=Cnil){ |
if(((V331))!=Cnil){ |
1986 |
goto T670;} |
goto T670;} |
1987 |
if(((V314))==Cnil){ |
if(((V332))==Cnil){ |
1988 |
goto T649;} |
goto T649;} |
1989 |
goto T670; |
goto T670; |
1990 |
T670:; |
T670:; |
1991 |
{object V319; |
{object V337; |
1992 |
V319= make_cons((V304),Cnil); |
V337= make_cons((V322),Cnil); |
1993 |
if(((V313))==Cnil){ |
if(((V331))==Cnil){ |
1994 |
goto T677;} |
goto T677;} |
1995 |
{object V320; |
{object V338; |
1996 |
V320= make_cons(VV[30],(V313)); |
V338= make_cons(VV[30],(V331)); |
1997 |
V319= make_cons((V320),(V319));} |
V337= make_cons((V338),(V337));} |
1998 |
goto T677; |
goto T677; |
1999 |
T677:; |
T677:; |
2000 |
if(((V312))!=Cnil){ |
if(((V330))!=Cnil){ |
2001 |
goto T685;} |
goto T685;} |
2002 |
V321= VV[123]; |
V339= VV[123]; |
2003 |
goto T683; |
goto T683; |
2004 |
goto T685; |
goto T685; |
2005 |
T685:; |
T685:; |
2006 |
if(((VV[63]->s.s_dbind))==Cnil){ |
if(((VV[63]->s.s_dbind))==Cnil){ |
2007 |
goto T688;} |
goto T688;} |
2008 |
V321= CMPcar((VV[63]->s.s_dbind)); |
V339= CMPcar((VV[63]->s.s_dbind)); |
2009 |
goto T683; |
goto T683; |
2010 |
goto T688; |
goto T688; |
2011 |
T688:; |
T688:; |
2012 |
V321= VV[29]; |
V339= VV[29]; |
2013 |
goto T683; |
goto T683; |
2014 |
T683:; |
T683:; |
2015 |
V304= listA(3,V321,(V312),(*(LnkLI356))((V314),(V319)));}} |
V340 = (V330); |
2016 |
|
V322= listA(3,V339,V340,(*(LnkLI356))((V332),(V337)));}} |
2017 |
goto T649; |
goto T649; |
2018 |
T649:; |
T649:; |
2019 |
V310= CMPcdr((V310)); |
V328= CMPcdr((V328)); |
2020 |
V311= CMPcar((V310)); |
V329= CMPcar((V328)); |
2021 |
goto T644;} |
goto T644;} |
2022 |
goto T640; |
goto T640; |
2023 |
T640:; |
T640:; |
2027 |
T699:; |
T699:; |
2028 |
if((CMPcar((VV[120]->s.s_dbind)))!=Cnil){ |
if((CMPcar((VV[120]->s.s_dbind)))!=Cnil){ |
2029 |
goto T700;} |
goto T700;} |
2030 |
{object V322 = (V304); |
{object V341 = (V322); |
2031 |
bds_unwind1; |
bds_unwind1; |
2032 |
bds_unwind1; |
bds_unwind1; |
2033 |
bds_unwind1; |
bds_unwind1; |
2054 |
bds_unwind1; |
bds_unwind1; |
2055 |
bds_unwind1; |
bds_unwind1; |
2056 |
bds_unwind1; |
bds_unwind1; |
2057 |
VMR40(V322)} |
VMR40(V341)} |
2058 |
goto T700; |
goto T700; |
2059 |
T700:; |
T700:; |
2060 |
{object V324; |
{object V343; |
2061 |
V324= CMPcar((VV[120]->s.s_dbind)); |
V343= CMPcar((VV[120]->s.s_dbind)); |
2062 |
(VV[120]->s.s_dbind)= CMPcdr((VV[120]->s.s_dbind)); |
(VV[120]->s.s_dbind)= CMPcdr((VV[120]->s.s_dbind)); |
2063 |
V323= (V324);} |
V342= (V343);} |
2064 |
V304= list(3,VV[124],V323,(V304)); |
V344 = (V322); |
2065 |
|
V322= list(3,VV[124],V342,V344); |
2066 |
goto T699; |
goto T699; |
2067 |
goto T696; |
goto T696; |
2068 |
T696:; |
T696:; |
2069 |
{object V325 = list(3,VV[124],Cnil,(V304)); |
{object V345 = list(3,VV[124],Cnil,(V322)); |
2070 |
bds_unwind1; |
bds_unwind1; |
2071 |
bds_unwind1; |
bds_unwind1; |
2072 |
bds_unwind1; |
bds_unwind1; |
2093 |
bds_unwind1; |
bds_unwind1; |
2094 |
bds_unwind1; |
bds_unwind1; |
2095 |
bds_unwind1; |
bds_unwind1; |
2096 |
VMR40(V325)}} |
VMR40(V345)}} |
2097 |
base[0]=base[0]; |
base[0]=base[0]; |
2098 |
return Cnil; |
return Cnil; |
2099 |
} |
} |
2108 |
T713:; |
T713:; |
2109 |
if(((VV[88]->s.s_dbind))!=Cnil){ |
if(((VV[88]->s.s_dbind))!=Cnil){ |
2110 |
goto T714;} |
goto T714;} |
2111 |
{object V326 = Cnil; |
{object V346 = Cnil; |
2112 |
VMR41(V326)} |
VMR41(V346)} |
2113 |
goto T714; |
goto T714; |
2114 |
T714:; |
T714:; |
2115 |
{register object V327; |
{register object V347; |
2116 |
register object V328; |
register object V348; |
2117 |
V327= CMPcar((VV[88]->s.s_dbind)); |
V347= CMPcar((VV[88]->s.s_dbind)); |
2118 |
V328= Cnil; |
V348= Cnil; |
2119 |
if(type_of((V327))==t_symbol){ |
if(type_of((V347))==t_symbol){ |
2120 |
goto T721;} |
goto T721;} |
2121 |
base[0]= VV[125]; |
base[0]= VV[125]; |
2122 |
base[1]= (V327); |
base[1]= (V347); |
2123 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2124 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
2125 |
vs_top=sup; |
vs_top=sup; |
2130 |
vs_base=vs_top; |
vs_base=vs_top; |
2131 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
2132 |
vs_top=sup; |
vs_top=sup; |
2133 |
V328= (*(LnkLI360))((V327),STREF(object,(VV[99]->s.s_dbind),0)); |
V348= (*(LnkLI360))((V347),STREF(object,(VV[99]->s.s_dbind),0)); |
2134 |
if(((V328))==Cnil){ |
if(((V348))==Cnil){ |
2135 |
goto T729;} |
goto T729;} |
2136 |
base[1]= CMPcar((V328)); |
base[1]= CMPcar((V348)); |
2137 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2138 |
Lsymbol_function(); |
Lsymbol_function(); |
2139 |
vs_top=sup; |
vs_top=sup; |
2140 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2141 |
{object V329; |
{object V349; |
2142 |
V329= CMPcdr((V328)); |
V349= CMPcdr((V348)); |
2143 |
vs_top=base+1; |
vs_top=base+1; |
2144 |
while(V329!=Cnil) |
while(V349!=Cnil) |
2145 |
{vs_push((V329)->c.c_car);V329=(V329)->c.c_cdr;} |
{vs_push((V349)->c.c_car);V349=(V349)->c.c_cdr;} |
2146 |
vs_base=base+1;} |
vs_base=base+1;} |
2147 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
2148 |
vs_top=sup; |
vs_top=sup; |
2149 |
goto T718; |
goto T718; |
2150 |
goto T729; |
goto T729; |
2151 |
T729:; |
T729:; |
2152 |
V328= (*(LnkLI360))((V327),STREF(object,(VV[99]->s.s_dbind),4)); |
V348= (*(LnkLI360))((V347),STREF(object,(VV[99]->s.s_dbind),4)); |
2153 |
if(((V328))==Cnil){ |
if(((V348))==Cnil){ |
2154 |
goto T736;} |
goto T736;} |
2155 |
(void)((*(LnkLI361))((V328))); |
(void)((*(LnkLI361))((V348))); |
2156 |
goto T718; |
goto T718; |
2157 |
goto T736; |
goto T736; |
2158 |
T736:; |
T736:; |
2159 |
if(((*(LnkLI362))((V327),VV[126]))==Cnil){ |
if(((*(LnkLI362))((V347),VV[126]))==Cnil){ |
2160 |
goto T740;} |
goto T740;} |
2161 |
base[0]= VV[127]; |
base[0]= VV[127]; |
2162 |
base[1]= (V327); |
base[1]= (V347); |
2163 |
base[2]= CMPcar((VV[88]->s.s_dbind)); |
base[2]= CMPcar((VV[88]->s.s_dbind)); |
2164 |
base[3]= CMPcadr((VV[88]->s.s_dbind)); |
base[3]= CMPcadr((VV[88]->s.s_dbind)); |
2165 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
2169 |
goto T740; |
goto T740; |
2170 |
T740:; |
T740:; |
2171 |
base[0]= VV[128]; |
base[0]= VV[128]; |
2172 |
base[1]= (V327); |
base[1]= (V347); |
2173 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2174 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
2175 |
vs_top=sup;} |
vs_top=sup;} |
2190 |
TTL:; |
TTL:; |
2191 |
if(((VV[88]->s.s_dbind))==Cnil){ |
if(((VV[88]->s.s_dbind))==Cnil){ |
2192 |
goto T751;} |
goto T751;} |
2193 |
{object V330; |
{object V350; |
2194 |
V330= CMPcar((VV[88]->s.s_dbind)); |
V350= CMPcar((VV[88]->s.s_dbind)); |
2195 |
(VV[88]->s.s_dbind)= CMPcdr((VV[88]->s.s_dbind)); |
(VV[88]->s.s_dbind)= CMPcdr((VV[88]->s.s_dbind)); |
2196 |
base[0]= (V330); |
base[0]= (V350); |
2197 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2198 |
return;} |
return;} |
2199 |
goto T751; |
goto T751; |
2210 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
2211 |
goto TTL; |
goto TTL; |
2212 |
TTL:; |
TTL:; |
2213 |
{object V331; |
{object V351; |
2214 |
vs_base=vs_top; |
vs_base=vs_top; |
2215 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
2216 |
vs_top=sup; |
vs_top=sup; |
2217 |
V331= vs_base[0]; |
V351= vs_base[0]; |
2218 |
if(type_of((V331))==t_cons){ |
if(type_of((V351))==t_cons){ |
2219 |
goto T758;} |
goto T758;} |
2220 |
base[0]= VV[130]; |
base[0]= VV[130]; |
2221 |
base[1]= (V331); |
base[1]= (V351); |
2222 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2223 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
2224 |
vs_top=sup; |
vs_top=sup; |
2225 |
goto T758; |
goto T758; |
2226 |
T758:; |
T758:; |
2227 |
{object V332 = (V331); |
{object V352 = (V351); |
2228 |
VMR43(V332)}} |
VMR43(V352)}} |
2229 |
base[0]=base[0]; |
base[0]=base[0]; |
2230 |
return Cnil; |
return Cnil; |
2231 |
} |
} |
2236 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
2237 |
goto TTL; |
goto TTL; |
2238 |
TTL:; |
TTL:; |
2239 |
{register object V333; |
{register object V353; |
2240 |
register object V334; |
register object V354; |
2241 |
V335= (*(LnkLI364))(); |
V355= (*(LnkLI364))(); |
2242 |
V333= make_cons(/* INLINE-ARGS */V335,Cnil); |
V353= make_cons(/* INLINE-ARGS */V355,Cnil); |
2243 |
V334= CMPcar((VV[88]->s.s_dbind)); |
V354= CMPcar((VV[88]->s.s_dbind)); |
2244 |
goto T766; |
goto T766; |
2245 |
T766:; |
T766:; |
2246 |
if(!(type_of((V334))!=t_cons)){ |
if(!(type_of((V354))!=t_cons)){ |
2247 |
goto T767;} |
goto T767;} |
2248 |
if((CMPcdr((V333)))!=Cnil){ |
if((CMPcdr((V353)))!=Cnil){ |
2249 |
goto T771;} |
goto T771;} |
2250 |
{object V336 = CMPcar((V333)); |
{object V356 = CMPcar((V353)); |
2251 |
VMR44(V336)} |
VMR44(V356)} |
2252 |
goto T771; |
goto T771; |
2253 |
T771:; |
T771:; |
2254 |
V337= nreverse((V333)); |
V357= nreverse((V353)); |
2255 |
{object V338 = make_cons(VV[14],/* INLINE-ARGS */V337); |
{object V358 = make_cons(VV[14],/* INLINE-ARGS */V357); |
2256 |
VMR44(V338)} |
VMR44(V358)} |
2257 |
goto T767; |
goto T767; |
2258 |
T767:; |
T767:; |
2259 |
V339= (*(LnkLI364))(); |
V359= (*(LnkLI364))(); |
2260 |
V333= make_cons(/* INLINE-ARGS */V339,(V333)); |
V360 = (V353); |
2261 |
V334= CMPcar((VV[88]->s.s_dbind)); |
V353= make_cons(/* INLINE-ARGS */V359,V360); |
2262 |
|
V354= CMPcar((VV[88]->s.s_dbind)); |
2263 |
goto T766;} |
goto T766;} |
2264 |
return Cnil; |
return Cnil; |
2265 |
} |
} |
2286 |
} |
} |
2287 |
/* local entry for function LOOP-CONSTRUCT-RETURN */ |
/* local entry for function LOOP-CONSTRUCT-RETURN */ |
2288 |
|
|
2289 |
static object LI54(V341) |
static object LI54(V362) |
2290 |
|
|
2291 |
object V341; |
object V362; |
2292 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
2293 |
goto TTL; |
goto TTL; |
2294 |
TTL:; |
TTL:; |
2295 |
{object V342 = list(3,VV[85],CMPcar((VV[120]->s.s_dbind)),(V341)); |
{object V363 = list(3,VV[85],CMPcar((VV[120]->s.s_dbind)),(V362)); |
2296 |
VMR46(V342)} |
VMR46(V363)} |
2297 |
return Cnil; |
return Cnil; |
2298 |
} |
} |
2299 |
/* local entry for function LOOP-PSEUDO-BODY */ |
/* local entry for function LOOP-PSEUDO-BODY */ |
2300 |
|
|
2301 |
static object LI55(V344) |
static object LI55(V365) |
2302 |
|
|
2303 |
object V344; |
object V365; |
2304 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
2305 |
goto TTL; |
goto TTL; |
2306 |
TTL:; |
TTL:; |
2310 |
goto T783;} |
goto T783;} |
2311 |
goto T782; |
goto T782; |
2312 |
T782:; |
T782:; |
2313 |
(VV[111]->s.s_dbind)= make_cons(V344,(VV[111]->s.s_dbind)); |
(VV[111]->s.s_dbind)= make_cons(V365,(VV[111]->s.s_dbind)); |
2314 |
{object V346 = (VV[111]->s.s_dbind); |
{object V367 = (VV[111]->s.s_dbind); |
2315 |
VMR47(V346)} |
VMR47(V367)} |
2316 |
goto T783; |
goto T783; |
2317 |
T783:; |
T783:; |
2318 |
(VV[110]->s.s_dbind)= make_cons(V344,(VV[110]->s.s_dbind)); |
(VV[110]->s.s_dbind)= make_cons(V365,(VV[110]->s.s_dbind)); |
2319 |
(VV[113]->s.s_dbind)= make_cons(V344,(VV[113]->s.s_dbind)); |
(VV[113]->s.s_dbind)= make_cons(V365,(VV[113]->s.s_dbind)); |
2320 |
{object V349 = (VV[113]->s.s_dbind); |
{object V370 = (VV[113]->s.s_dbind); |
2321 |
VMR47(V349)} |
VMR47(V370)} |
2322 |
return Cnil; |
return Cnil; |
2323 |
} |
} |
2324 |
/* local entry for function LOOP-EMIT-BODY */ |
/* local entry for function LOOP-EMIT-BODY */ |
2325 |
|
|
2326 |
static object LI56(V351) |
static object LI56(V372) |
2327 |
|
|
2328 |
object V351; |
object V372; |
2329 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
2330 |
goto TTL; |
goto TTL; |
2331 |
TTL:; |
TTL:; |
2332 |
(VV[112]->s.s_dbind)= Ct; |
(VV[112]->s.s_dbind)= Ct; |
2333 |
{object V352 = (*(LnkLI365))((V351)); |
{object V373 = (*(LnkLI365))((V372)); |
2334 |
VMR48(V352)} |
VMR48(V373)} |
2335 |
return Cnil; |
return Cnil; |
2336 |
} |
} |
2337 |
/* local entry for function LOOP-EMIT-FINAL-VALUE */ |
/* local entry for function LOOP-EMIT-FINAL-VALUE */ |
2340 |
{ |
{ |
2341 |
va_list ap; |
va_list ap; |
2342 |
int narg = VFUN_NARGS; VMB49 VMS49 VMV49 |
int narg = VFUN_NARGS; VMB49 VMS49 VMV49 |
2343 |
{object V353; |
{object V374; |
2344 |
object V354; |
object V375; |
2345 |
va_start(ap,first); |
va_start(ap,first); |
2346 |
narg = narg - 0; |
narg = narg - 0; |
2347 |
if (narg <= 0) goto T793; |
if (narg <= 0) goto T793; |
2348 |
else { |
else { |
2349 |
V353= first;} |
V374= first;} |
2350 |
V354= Ct; |
V375= Ct; |
2351 |
--narg; goto T794; |
--narg; goto T794; |
2352 |
goto T793; |
goto T793; |
2353 |
T793:; |
T793:; |
2354 |
V353= Cnil; |
V374= Cnil; |
2355 |
V354= Cnil; |
V375= Cnil; |
2356 |
goto T794; |
goto T794; |
2357 |
T794:; |
T794:; |
2358 |
if(((V354))==Cnil){ |
if(((V375))==Cnil){ |
2359 |
goto T796;} |
goto T796;} |
2360 |
{object V355; |
{object V376; |
2361 |
V355= (*(LnkLI366))((V353)); |
V376= (*(LnkLI366))((V374)); |
2362 |
(VV[115]->s.s_dbind)= make_cons((V355),(VV[115]->s.s_dbind));} |
(VV[115]->s.s_dbind)= make_cons((V376),(VV[115]->s.s_dbind));} |
2363 |
goto T796; |
goto T796; |
2364 |
T796:; |
T796:; |
2365 |
if(((VV[116]->s.s_dbind))==Cnil){ |
if(((VV[116]->s.s_dbind))==Cnil){ |
2368 |
goto T801; |
goto T801; |
2369 |
T801:; |
T801:; |
2370 |
(VV[116]->s.s_dbind)= CMPcar((VV[87]->s.s_dbind)); |
(VV[116]->s.s_dbind)= CMPcar((VV[87]->s.s_dbind)); |
2371 |
{object V356 = (VV[116]->s.s_dbind); |
{object V377 = (VV[116]->s.s_dbind); |
2372 |
VMR49(V356)} |
VMR49(V377)} |
2373 |
va_end(ap); |
va_end(ap); |
2374 |
base[0]=base[0]; |
base[0]=base[0]; |
2375 |
return Cnil;} |
return Cnil;} |
2380 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2381 |
register object *sup=base+VM50; VC50 |
register object *sup=base+VM50; VC50 |
2382 |
vs_check; |
vs_check; |
2383 |
{object V357; |
{object V378; |
2384 |
if(vs_base>=vs_top){vs_top=sup;goto T805;} |
if(vs_base>=vs_top){vs_top=sup;goto T805;} |
2385 |
V357=(base[0]); |
V378=(base[0]); |
2386 |
vs_top=sup; |
vs_top=sup; |
2387 |
goto T806; |
goto T806; |
2388 |
goto T805; |
goto T805; |
2389 |
T805:; |
T805:; |
2390 |
V357= Cnil; |
V378= Cnil; |
2391 |
goto T806; |
goto T806; |
2392 |
T806:; |
T806:; |
2393 |
if(((VV[117]->s.s_dbind))==Cnil){ |
if(((VV[117]->s.s_dbind))==Cnil){ |
2394 |
goto T809;} |
goto T809;} |
2395 |
base[1]= VV[133]; |
base[1]= VV[133]; |
2396 |
base[2]= (V357); |
base[2]= (V378); |
2397 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2398 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
2399 |
return; |
return; |
2453 |
} |
} |
2454 |
/* local entry for function LOOP-TYPED-INIT */ |
/* local entry for function LOOP-TYPED-INIT */ |
2455 |
|
|
2456 |
static object LI61(V359) |
static object LI61(V380) |
2457 |
|
|
2458 |
register object V359; |
register object V380; |
2459 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
2460 |
goto TTL; |
goto TTL; |
2461 |
TTL:; |
TTL:; |
2462 |
if(((V359))==Cnil){ |
if(((V380))==Cnil){ |
2463 |
goto T824;} |
goto T824;} |
2464 |
base[0]= (V359); |
base[0]= (V380); |
2465 |
base[1]= VV[138]; |
base[1]= VV[138]; |
2466 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2467 |
(void) (*Lnk333)(); |
(void) (*Lnk333)(); |
2468 |
vs_top=sup; |
vs_top=sup; |
2469 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2470 |
goto T824;} |
goto T824;} |
2471 |
base[0]= (V359); |
base[0]= (V380); |
2472 |
base[1]= VV[139]; |
base[1]= VV[139]; |
2473 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2474 |
(void) (*Lnk333)(); |
(void) (*Lnk333)(); |
2475 |
vs_top=sup; |
vs_top=sup; |
2476 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2477 |
goto T830;} |
goto T830;} |
2478 |
base[0]= (V359); |
base[0]= (V380); |
2479 |
base[1]= VV[140]; |
base[1]= VV[140]; |
2480 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2481 |
(void) (*Lnk333)(); |
(void) (*Lnk333)(); |
2485 |
goto T830; |
goto T830; |
2486 |
T830:; |
T830:; |
2487 |
base[0]= small_fixnum(0); |
base[0]= small_fixnum(0); |
2488 |
base[1]= (V359); |
base[1]= (V380); |
2489 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2490 |
(void) (*Lnk368)(); |
(void) (*Lnk368)(); |
2491 |
vs_top=sup; |
vs_top=sup; |
2492 |
{object V360 = vs_base[0]; |
{object V381 = vs_base[0]; |
2493 |
VMR53(V360)} |
VMR53(V381)} |
2494 |
goto T831; |
goto T831; |
2495 |
T831:; |
T831:; |
2496 |
{object V361 = small_fixnum(0); |
{object V382 = small_fixnum(0); |
2497 |
VMR53(V361)} |
VMR53(V382)} |
2498 |
goto T824; |
goto T824; |
2499 |
T824:; |
T824:; |
2500 |
{object V362 = Cnil; |
{object V383 = Cnil; |
2501 |
VMR53(V362)} |
VMR53(V383)} |
2502 |
base[0]=base[0]; |
base[0]=base[0]; |
2503 |
return Cnil; |
return Cnil; |
2504 |
} |
} |
2533 |
T846:; |
T846:; |
2534 |
if(!(type_of(base[1])==t_symbol)){ |
if(!(type_of(base[1])==t_symbol)){ |
2535 |
goto T850;} |
goto T850;} |
2536 |
{object V363;{object V364; |
{object V384;{object V385; |
2537 |
base[2]= base[1]; |
base[2]= base[1]; |
2538 |
base[3]= STREF(object,(VV[99]->s.s_dbind),16); |
base[3]= STREF(object,(VV[99]->s.s_dbind),16); |
2539 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2540 |
Lgethash(); |
Lgethash(); |
2541 |
vs_top=sup; |
vs_top=sup; |
2542 |
V364= vs_base[0]; |
V385= vs_base[0]; |
2543 |
if(V364==Cnil)goto T853; |
if(V385==Cnil)goto T853; |
2544 |
V363= V364; |
V384= V385; |
2545 |
goto T852; |
goto T852; |
2546 |
goto T853; |
goto T853; |
2547 |
T853:;} |
T853:;} |
2550 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2551 |
Lgethash(); |
Lgethash(); |
2552 |
vs_top=sup; |
vs_top=sup; |
2553 |
V363= vs_base[0]; |
V384= vs_base[0]; |
2554 |
goto T852; |
goto T852; |
2555 |
T852:; |
T852:; |
2556 |
if(((V363))==Cnil){ |
if(((V384))==Cnil){ |
2557 |
goto T860;} |
goto T860;} |
2558 |
vs_base=vs_top; |
vs_base=vs_top; |
2559 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
2560 |
vs_top=sup; |
vs_top=sup; |
2561 |
base[2]= (V363); |
base[2]= (V384); |
2562 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2563 |
return; |
return; |
2564 |
goto T860; |
goto T860; |
2611 |
goto T877;} |
goto T877;} |
2612 |
goto T876; |
goto T876; |
2613 |
T876:; |
T876:; |
2614 |
{object V365; |
{object V386; |
2615 |
V366= nreverse((VV[102]->s.s_dbind)); |
V387= nreverse((VV[102]->s.s_dbind)); |
2616 |
V365= list(4,/* INLINE-ARGS */V366,(VV[105]->s.s_dbind),(VV[106]->s.s_dbind),(VV[109]->s.s_dbind)); |
V388 = (VV[105]->s.s_dbind); |
2617 |
(VV[107]->s.s_dbind)= make_cons((V365),(VV[107]->s.s_dbind));} |
V389 = (VV[106]->s.s_dbind); |
2618 |
|
V390 = (VV[109]->s.s_dbind); |
2619 |
|
V386= list(4,/* INLINE-ARGS */V387,V388,V389,V390); |
2620 |
|
(VV[107]->s.s_dbind)= make_cons((V386),(VV[107]->s.s_dbind));} |
2621 |
(VV[102]->s.s_dbind)= Cnil; |
(VV[102]->s.s_dbind)= Cnil; |
2622 |
(VV[105]->s.s_dbind)= Cnil; |
(VV[105]->s.s_dbind)= Cnil; |
2623 |
(VV[106]->s.s_dbind)= Cnil; |
(VV[106]->s.s_dbind)= Cnil; |
2624 |
(VV[109]->s.s_dbind)= Cnil; |
(VV[109]->s.s_dbind)= Cnil; |
2625 |
{object V367 = Cnil; |
{object V391 = Cnil; |
2626 |
VMR55(V367)} |
VMR55(V391)} |
2627 |
goto T877; |
goto T877; |
2628 |
T877:; |
T877:; |
2629 |
{object V368 = Cnil; |
{object V392 = Cnil; |
2630 |
VMR55(V368)} |
VMR55(V392)} |
2631 |
base[0]=base[0]; |
base[0]=base[0]; |
2632 |
return Cnil; |
return Cnil; |
2633 |
} |
} |
2634 |
/* local entry for function LOOP-VARIABLE-P */ |
/* local entry for function LOOP-VARIABLE-P */ |
2635 |
|
|
2636 |
static object LI66(V370) |
static object LI66(V394) |
2637 |
|
|
2638 |
register object V370; |
register object V394; |
2639 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
2640 |
goto TTL; |
goto TTL; |
2641 |
TTL:; |
TTL:; |
2642 |
{register object V371; |
{register object V395; |
2643 |
V371= (VV[107]->s.s_dbind); |
V395= (VV[107]->s.s_dbind); |
2644 |
goto T894; |
goto T894; |
2645 |
T894:; |
T894:; |
2646 |
if(((V371))!=Cnil){ |
if(((V395))!=Cnil){ |
2647 |
goto T899;} |
goto T899;} |
2648 |
{object V372 = Cnil; |
{object V396 = Cnil; |
2649 |
VMR56(V372)} |
VMR56(V396)} |
2650 |
goto T899; |
goto T899; |
2651 |
T899:; |
T899:; |
2652 |
{register object x= (V370),V373= CMPcaar((V371)); |
{register object x= (V394),V397= CMPcaar((V395)); |
2653 |
while(V373!=Cnil) |
while(V397!=Cnil) |
2654 |
if(EQ(x,V373->c.c_car->c.c_car) &&V373->c.c_car != Cnil){ |
if(EQ(x,V397->c.c_car->c.c_car) &&V397->c.c_car != Cnil){ |
2655 |
goto T902; |
goto T902; |
2656 |
}else V373=V373->c.c_cdr; |
}else V397=V397->c.c_cdr; |
2657 |
goto T897;} |
goto T897;} |
2658 |
goto T902; |
goto T902; |
2659 |
T902:; |
T902:; |
2660 |
{object V374 = Ct; |
{object V398 = Ct; |
2661 |
VMR56(V374)} |
VMR56(V398)} |
2662 |
goto T897; |
goto T897; |
2663 |
T897:; |
T897:; |
2664 |
V371= CMPcdr((V371)); |
V395= CMPcdr((V395)); |
2665 |
goto T894;} |
goto T894;} |
2666 |
return Cnil; |
return Cnil; |
2667 |
} |
} |
2668 |
/* local entry for function LOOP-MAKE-VARIABLE */ |
/* local entry for function LOOP-MAKE-VARIABLE */ |
2669 |
|
|
2670 |
static object LI67(object V377,object V376,object V375,object first,...) |
static object LI67(object V401,object V400,object V399,object first,...) |
2671 |
{ |
{ |
2672 |
va_list ap; |
va_list ap; |
2673 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
2674 |
{register object V378; |
{register object V402; |
2675 |
register object V379; |
register object V403; |
2676 |
register object V380; |
register object V404; |
2677 |
object V381; |
object V405; |
2678 |
va_start(ap,first); |
va_start(ap,first); |
2679 |
V378= V377; |
V402= V401; |
2680 |
V379= V376; |
V403= V400; |
2681 |
V380= V375; |
V404= V399; |
2682 |
narg = narg - 3; |
narg = narg - 3; |
2683 |
if (narg <= 0) goto T906; |
if (narg <= 0) goto T906; |
2684 |
else { |
else { |
2685 |
V381= first;} |
V405= first;} |
2686 |
--narg; goto T907; |
--narg; goto T907; |
2687 |
goto T906; |
goto T906; |
2688 |
T906:; |
T906:; |
2689 |
V381= Cnil; |
V405= Cnil; |
2690 |
goto T907; |
goto T907; |
2691 |
T907:; |
T907:; |
2692 |
if(((V378))!=Cnil){ |
if(((V402))!=Cnil){ |
2693 |
goto T911;} |
goto T911;} |
2694 |
if(((V379))==Cnil){ |
if(((V403))==Cnil){ |
2695 |
goto T909;} |
goto T909;} |
2696 |
{object V382; |
{object V406; |
2697 |
V378= (VFUN_NARGS=1,(*(LnkLI335))(VV[146])); |
V402= (VFUN_NARGS=1,(*(LnkLI335))(VV[146])); |
2698 |
V382= list(2,(V378),(V379)); |
V407 = (V402); |
2699 |
(VV[102]->s.s_dbind)= make_cons((V382),(VV[102]->s.s_dbind));} |
V408 = (V403); |
2700 |
{object V383; |
V406= list(2,V407,V408); |
2701 |
V383= list(2,VV[97],(V378)); |
(VV[102]->s.s_dbind)= make_cons((V406),(VV[102]->s.s_dbind));} |
2702 |
(VV[105]->s.s_dbind)= make_cons((V383),(VV[105]->s.s_dbind)); |
{object V409; |
2703 |
|
V409= list(2,VV[97],(V402)); |
2704 |
|
(VV[105]->s.s_dbind)= make_cons((V409),(VV[105]->s.s_dbind)); |
2705 |
goto T909;} |
goto T909;} |
2706 |
goto T911; |
goto T911; |
2707 |
T911:; |
T911:; |
2708 |
if(!(type_of((V378))!=t_cons)){ |
if(!(type_of((V402))!=t_cons)){ |
2709 |
goto T922;} |
goto T922;} |
2710 |
if(((V381))==Cnil){ |
if(((V405))==Cnil){ |
2711 |
goto T926;} |
goto T926;} |
2712 |
{register object x= (V378),V384= (VV[101]->s.s_dbind); |
{register object x= (V402),V410= (VV[101]->s.s_dbind); |
2713 |
while(V384!=Cnil) |
while(V410!=Cnil) |
2714 |
if(eql(x,V384->c.c_car)){ |
if(eql(x,V410->c.c_car)){ |
2715 |
goto T930; |
goto T930; |
2716 |
}else V384=V384->c.c_cdr; |
}else V410=V410->c.c_cdr; |
2717 |
goto T929;} |
goto T929;} |
2718 |
goto T930; |
goto T930; |
2719 |
T930:; |
T930:; |
2720 |
base[0]= VV[147]; |
base[0]= VV[147]; |
2721 |
base[1]= (V378); |
base[1]= (V402); |
2722 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2723 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
2724 |
vs_top=sup; |
vs_top=sup; |
2725 |
goto T924; |
goto T924; |
2726 |
goto T929; |
goto T929; |
2727 |
T929:; |
T929:; |
2728 |
(VV[101]->s.s_dbind)= make_cons(V378,(VV[101]->s.s_dbind)); |
(VV[101]->s.s_dbind)= make_cons(V402,(VV[101]->s.s_dbind)); |
2729 |
goto T924; |
goto T924; |
2730 |
goto T926; |
goto T926; |
2731 |
T926:; |
T926:; |
2732 |
{register object x= (V378),V386= (VV[102]->s.s_dbind); |
{register object x= (V402),V412= (VV[102]->s.s_dbind); |
2733 |
while(V386!=Cnil) |
while(V412!=Cnil) |
2734 |
if(eql(x,V386->c.c_car->c.c_car) &&V386->c.c_car != Cnil){ |
if(eql(x,V412->c.c_car->c.c_car) &&V412->c.c_car != Cnil){ |
2735 |
goto T935; |
goto T935; |
2736 |
}else V386=V386->c.c_cdr; |
}else V412=V412->c.c_cdr; |
2737 |
goto T924;} |
goto T924;} |
2738 |
goto T935; |
goto T935; |
2739 |
T935:; |
T935:; |
2740 |
base[0]= VV[148]; |
base[0]= VV[148]; |
2741 |
base[1]= (V378); |
base[1]= (V402); |
2742 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2743 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
2744 |
vs_top=sup; |
vs_top=sup; |
2745 |
goto T924; |
goto T924; |
2746 |
T924:; |
T924:; |
2747 |
if(type_of((V378))==t_symbol){ |
if(type_of((V402))==t_symbol){ |
2748 |
goto T938;} |
goto T938;} |
2749 |
base[0]= VV[149]; |
base[0]= VV[149]; |
2750 |
base[1]= (V378); |
base[1]= (V402); |
2751 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2752 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
2753 |
vs_top=sup; |
vs_top=sup; |
2754 |
goto T938; |
goto T938; |
2755 |
T938:; |
T938:; |
2756 |
(void)((*(LnkLI370))((V378),(V380))); |
(void)((*(LnkLI370))((V402),(V404))); |
2757 |
{object V387; |
{object V413; |
2758 |
if((V379)!=Cnil){ |
V414 = (V402); |
2759 |
V388= (V379); |
if((V403)!=Cnil){ |
2760 |
|
V415= (V403); |
2761 |
goto T945;} |
goto T945;} |
2762 |
V388= (*(LnkLI336))((V380)); |
V415= (*(LnkLI336))((V404)); |
2763 |
goto T945; |
goto T945; |
2764 |
T945:; |
T945:; |
2765 |
V387= list(2,(V378),V388); |
V413= list(2,V414,V415); |
2766 |
(VV[102]->s.s_dbind)= make_cons((V387),(VV[102]->s.s_dbind)); |
(VV[102]->s.s_dbind)= make_cons((V413),(VV[102]->s.s_dbind)); |
2767 |
goto T909;} |
goto T909;} |
2768 |
goto T922; |
goto T922; |
2769 |
T922:; |
T922:; |
2770 |
if(((V379))==Cnil){ |
if(((V403))==Cnil){ |
2771 |
goto T948;} |
goto T948;} |
2772 |
if(((VV[63]->s.s_dbind))==Cnil){ |
if(((VV[63]->s.s_dbind))==Cnil){ |
2773 |
goto T951;} |
goto T951;} |
2774 |
(void)((*(LnkLI370))((V378),(V380))); |
(void)((*(LnkLI370))((V402),(V404))); |
2775 |
{object V389; |
{object V416; |
2776 |
V389= list(2,(V378),(V379)); |
V416= list(2,(V402),(V403)); |
2777 |
(VV[102]->s.s_dbind)= make_cons((V389),(VV[102]->s.s_dbind)); |
(VV[102]->s.s_dbind)= make_cons((V416),(VV[102]->s.s_dbind)); |
2778 |
goto T909;} |
goto T909;} |
2779 |
goto T951; |
goto T951; |
2780 |
T951:; |
T951:; |
2781 |
{object V390; |
{object V417; |
2782 |
V390= (VFUN_NARGS=1,(*(LnkLI335))(VV[150])); |
V417= (VFUN_NARGS=1,(*(LnkLI335))(VV[150])); |
2783 |
(void)((*(LnkLI370))((V378),(V380))); |
(void)((*(LnkLI370))((V402),(V404))); |
2784 |
{object V391; |
{object V418; |
2785 |
V391= list(2,(V390),(V379)); |
V418= list(2,(V417),(V403)); |
2786 |
(VV[102]->s.s_dbind)= make_cons((V391),(VV[102]->s.s_dbind));} |
(VV[102]->s.s_dbind)= make_cons((V418),(VV[102]->s.s_dbind));} |
2787 |
(VV[106]->s.s_dbind)= listA(3,(V378),(V390),(VV[106]->s.s_dbind)); |
(VV[106]->s.s_dbind)= listA(3,(V402),(V417),(VV[106]->s.s_dbind)); |
2788 |
goto T909;} |
goto T909;} |
2789 |
goto T948; |
goto T948; |
2790 |
T948:; |
T948:; |
2791 |
{object V392; |
{object V419; |
2792 |
object V393; |
object V420; |
2793 |
V392= Cnil; |
V419= Cnil; |
2794 |
V393= Cnil; |
V420= Cnil; |
2795 |
if(!(type_of((V380))!=t_cons)){ |
if(!(type_of((V404))!=t_cons)){ |
2796 |
goto T964;} |
goto T964;} |
2797 |
V393= (V380); |
V420= (V404); |
2798 |
V392= (V393); |
V419= (V420); |
2799 |
goto T962; |
goto T962; |
2800 |
goto T964; |
goto T964; |
2801 |
T964:; |
T964:; |
2802 |
V392= CMPcar((V380)); |
V419= CMPcar((V404)); |
2803 |
V393= CMPcdr((V380)); |
V420= CMPcdr((V404)); |
2804 |
goto T962; |
goto T962; |
2805 |
T962:; |
T962:; |
2806 |
(void)((VFUN_NARGS=4,(*(LnkLI371))(CMPcar((V378)),Cnil,(V392),(V381)))); |
(void)((VFUN_NARGS=4,(*(LnkLI371))(CMPcar((V402)),Cnil,(V419),(V405)))); |
2807 |
(void)((VFUN_NARGS=4,(*(LnkLI371))(CMPcdr((V378)),Cnil,(V393),(V381))));} |
(void)((VFUN_NARGS=4,(*(LnkLI371))(CMPcdr((V402)),Cnil,(V420),(V405))));} |
2808 |
goto T909; |
goto T909; |
2809 |
T909:; |
T909:; |
2810 |
{object V394 = (V378); |
{object V421 = (V402); |
2811 |
VMR57(V394)} |
VMR57(V421)} |
2812 |
va_end(ap); |
va_end(ap); |
2813 |
base[0]=base[0]; |
base[0]=base[0]; |
2814 |
return Cnil;} |
return Cnil;} |
2815 |
} |
} |
2816 |
/* local entry for function LOOP-MAKE-ITERATION-VARIABLE */ |
/* local entry for function LOOP-MAKE-ITERATION-VARIABLE */ |
2817 |
|
|
2818 |
static object LI68(V398,V399,V400) |
static object LI68(V425,V426,V427) |
2819 |
|
|
2820 |
object V398;object V399;object V400; |
object V425;object V426;object V427; |
2821 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
2822 |
goto TTL; |
goto TTL; |
2823 |
TTL:; |
TTL:; |
2824 |
{object V401 = (VFUN_NARGS=4,(*(LnkLI371))((V398),(V399),(V400),Ct)); |
{object V428 = (VFUN_NARGS=4,(*(LnkLI371))((V425),(V426),(V427),Ct)); |
2825 |
VMR58(V401)} |
VMR58(V428)} |
2826 |
return Cnil; |
return Cnil; |
2827 |
} |
} |
2828 |
/* local entry for function LOOP-DECLARE-VARIABLE */ |
/* local entry for function LOOP-DECLARE-VARIABLE */ |
2829 |
|
|
2830 |
static object LI69(V404,V405) |
static object LI69(V431,V432) |
2831 |
|
|
2832 |
register object V404;register object V405; |
register object V431;register object V432; |
2833 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
2834 |
goto TTL; |
goto TTL; |
2835 |
TTL:; |
TTL:; |
2836 |
if(((V404))==Cnil){ |
if(((V431))==Cnil){ |
2837 |
goto T972;} |
goto T972;} |
2838 |
if(((V405))==Cnil){ |
if(((V432))==Cnil){ |
2839 |
goto T972;} |
goto T972;} |
2840 |
if(!(((V405))==(Ct))){ |
if(!(((V432))==(Ct))){ |
2841 |
goto T973;} |
goto T973;} |
2842 |
goto T972; |
goto T972; |
2843 |
T972:; |
T972:; |
2844 |
{object V406 = Cnil; |
{object V433 = Cnil; |
2845 |
VMR59(V406)} |
VMR59(V433)} |
2846 |
goto T973; |
goto T973; |
2847 |
T973:; |
T973:; |
2848 |
if(!(type_of((V404))==t_symbol)){ |
if(!(type_of((V431))==t_symbol)){ |
2849 |
goto T980;} |
goto T980;} |
2850 |
if(((V405))==(Ct)){ |
if(((V432))==(Ct)){ |
2851 |
goto T983;} |
goto T983;} |
2852 |
{register object x= (V404),V407= (VV[103]->s.s_dbind); |
{register object x= (V431),V434= (VV[103]->s.s_dbind); |
2853 |
while(V407!=Cnil) |
while(V434!=Cnil) |
2854 |
if(eql(x,V407->c.c_car)){ |
if(eql(x,V434->c.c_car)){ |
2855 |
goto T983; |
goto T983; |
2856 |
}else V407=V407->c.c_cdr;} |
}else V434=V434->c.c_cdr;} |
2857 |
{object V409; |
{object V436; |
2858 |
V409= list(3,VV[31],V405,(V404)); |
V436= list(3,VV[31],V432,(V431)); |
2859 |
(VV[105]->s.s_dbind)= make_cons((V409),(VV[105]->s.s_dbind)); |
(VV[105]->s.s_dbind)= make_cons((V436),(VV[105]->s.s_dbind)); |
2860 |
{object V410 = (VV[105]->s.s_dbind); |
{object V437 = (VV[105]->s.s_dbind); |
2861 |
VMR59(V410)}} |
VMR59(V437)}} |
2862 |
goto T983; |
goto T983; |
2863 |
T983:; |
T983:; |
2864 |
{object V411 = Cnil; |
{object V438 = Cnil; |
2865 |
VMR59(V411)} |
VMR59(V438)} |
2866 |
goto T980; |
goto T980; |
2867 |
T980:; |
T980:; |
2868 |
if(!(type_of((V404))==t_cons)){ |
if(!(type_of((V431))==t_cons)){ |
2869 |
goto T990;} |
goto T990;} |
2870 |
if(!(type_of((V405))==t_cons)){ |
if(!(type_of((V432))==t_cons)){ |
2871 |
goto T993;} |
goto T993;} |
2872 |
(void)((*(LnkLI370))(CMPcar((V404)),CMPcar((V405)))); |
(void)((*(LnkLI370))(CMPcar((V431)),CMPcar((V432)))); |
2873 |
V404= CMPcdr((V404)); |
V431= CMPcdr((V431)); |
2874 |
V405= CMPcdr((V405)); |
V432= CMPcdr((V432)); |
2875 |
goto TTL; |
goto TTL; |
2876 |
goto T993; |
goto T993; |
2877 |
T993:; |
T993:; |
2878 |
(void)((*(LnkLI370))(CMPcar((V404)),(V405))); |
(void)((*(LnkLI370))(CMPcar((V431)),(V432))); |
2879 |
V404= CMPcdr((V404)); |
V431= CMPcdr((V431)); |
2880 |
goto TTL; |
goto TTL; |
2881 |
goto T990; |
goto T990; |
2882 |
T990:; |
T990:; |
2883 |
base[0]= VV[151]; |
base[0]= VV[151]; |
2884 |
base[1]= (V404); |
base[1]= (V431); |
2885 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2886 |
Lerror(); |
Lerror(); |
2887 |
vs_top=sup; |
vs_top=sup; |
2888 |
{object V412 = vs_base[0]; |
{object V439 = vs_base[0]; |
2889 |
VMR59(V412)} |
VMR59(V439)} |
2890 |
base[0]=base[0]; |
base[0]=base[0]; |
2891 |
return Cnil; |
return Cnil; |
2892 |
} |
} |
2893 |
/* local entry for function LOOP-MAYBE-BIND-FORM */ |
/* local entry for function LOOP-MAYBE-BIND-FORM */ |
2894 |
|
|
2895 |
static object LI70(V415,V416) |
static object LI70(V442,V443) |
2896 |
|
|
2897 |
object V415;object V416; |
object V442;object V443; |
2898 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
2899 |
goto TTL; |
goto TTL; |
2900 |
TTL:; |
TTL:; |
2901 |
if(((*(LnkLI372))((V415)))==Cnil){ |
if(((*(LnkLI372))((V442)))==Cnil){ |
2902 |
goto T1006;} |
goto T1006;} |
2903 |
{object V417 = (V415); |
{object V444 = (V442); |
2904 |
VMR60(V417)} |
VMR60(V444)} |
2905 |
goto T1006; |
goto T1006; |
2906 |
T1006:; |
T1006:; |
2907 |
V418= (VFUN_NARGS=1,(*(LnkLI335))(VV[152])); |
V445= (VFUN_NARGS=1,(*(LnkLI335))(VV[152])); |
2908 |
{object V419 = (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V418,(V415),(V416))); |
V446 = (V442); |
2909 |
VMR60(V419)} |
V447 = (V443); |
2910 |
|
{object V448 = (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V445,V446,V447)); |
2911 |
|
VMR60(V448)} |
2912 |
return Cnil; |
return Cnil; |
2913 |
} |
} |
2914 |
/* local entry for function LOOP-DO-IF */ |
/* local entry for function LOOP-DO-IF */ |
2915 |
|
|
2916 |
static object LI71(V422,V423) |
static object LI71(V451,V452) |
2917 |
|
|
2918 |
object V422;object V423; |
object V451;object V452; |
2919 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
2920 |
bds_check; |
bds_check; |
2921 |
goto TTL; |
goto TTL; |
2922 |
TTL:; |
TTL:; |
2923 |
{object V424; |
{object V453; |
2924 |
vs_base=vs_top; |
vs_base=vs_top; |
2925 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
2926 |
vs_top=sup; |
vs_top=sup; |
2927 |
V424= vs_base[0]; |
V453= vs_base[0]; |
2928 |
bds_bind(VV[117],Ct); |
bds_bind(VV[117],Ct); |
2929 |
base[1]= Cnil; |
base[1]= Cnil; |
2930 |
base[2]= Ct; |
base[2]= Ct; |
2931 |
{object V425; |
{object V454; |
2932 |
object V426; |
object V455; |
2933 |
base[3]= (V422); |
base[3]= (V451); |
2934 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2935 |
L72(base); |
L72(base); |
2936 |
vs_top=sup; |
vs_top=sup; |
2937 |
V425= vs_base[0]; |
V454= vs_base[0]; |
2938 |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[153]))==Cnil){ |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[153]))==Cnil){ |
2939 |
goto T1013;} |
goto T1013;} |
2940 |
vs_base=vs_top; |
vs_base=vs_top; |
2944 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2945 |
L72(base); |
L72(base); |
2946 |
vs_top=sup; |
vs_top=sup; |
2947 |
V427= vs_base[0]; |
V456= vs_base[0]; |
2948 |
V426= make_cons(V427,Cnil); |
V455= make_cons(V456,Cnil); |
2949 |
goto T1011; |
goto T1011; |
2950 |
goto T1013; |
goto T1013; |
2951 |
T1013:; |
T1013:; |
2952 |
V426= Cnil; |
V455= Cnil; |
2953 |
goto T1011; |
goto T1011; |
2954 |
T1011:; |
T1011:; |
2955 |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[154]))==Cnil){ |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[154]))==Cnil){ |
2961 |
T1018:; |
T1018:; |
2962 |
if((base[1])==Cnil){ |
if((base[1])==Cnil){ |
2963 |
goto T1021;} |
goto T1021;} |
2964 |
V424= list(3,VV[11],base[1],(V424)); |
V453= list(3,VV[11],base[1],(V453)); |
2965 |
goto T1021; |
goto T1021; |
2966 |
T1021:; |
T1021:; |
2967 |
if(((V423))==Cnil){ |
if(((V452))==Cnil){ |
2968 |
goto T1027;} |
goto T1027;} |
2969 |
V428= list(2,VV[36],(V424)); |
V457= list(2,VV[36],(V453)); |
2970 |
goto T1025; |
goto T1025; |
2971 |
goto T1027; |
goto T1027; |
2972 |
T1027:; |
T1027:; |
2973 |
V428= (V424); |
V457= (V453); |
2974 |
goto T1025; |
goto T1025; |
2975 |
T1025:; |
T1025:; |
2976 |
V429= listA(4,VV[71],V428,(V425),(V426)); |
V458 = (V454); |
2977 |
{object V430 = (*(LnkLI365))(/* INLINE-ARGS */V429); |
V459 = (V455); |
2978 |
|
V460= listA(4,VV[71],V457,V458,V459); |
2979 |
|
{object V461 = (*(LnkLI365))(/* INLINE-ARGS */V460); |
2980 |
bds_unwind1; |
bds_unwind1; |
2981 |
VMR61(V430)}}} |
VMR61(V461)}}} |
2982 |
base[0]=base[0]; |
base[0]=base[0]; |
2983 |
return Cnil; |
return Cnil; |
2984 |
} |
} |
2993 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2994 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
2995 |
vs_top=sup; |
vs_top=sup; |
2996 |
{object V431; |
{object V462; |
2997 |
V431= (*(LnkLI374))(); |
V462= (*(LnkLI374))(); |
2998 |
(VV[108]->s.s_dbind)= make_cons((V431),(VV[108]->s.s_dbind)); |
(VV[108]->s.s_dbind)= make_cons((V462),(VV[108]->s.s_dbind)); |
2999 |
{object V432 = (VV[108]->s.s_dbind); |
{object V463 = (VV[108]->s.s_dbind); |
3000 |
VMR62(V432)}} |
VMR62(V463)}} |
3001 |
base[0]=base[0]; |
base[0]=base[0]; |
3002 |
return Cnil; |
return Cnil; |
3003 |
} |
} |
3012 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3013 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
3014 |
vs_top=sup; |
vs_top=sup; |
3015 |
{object V433; |
{object V464; |
3016 |
V433= (*(LnkLI374))(); |
V464= (*(LnkLI374))(); |
3017 |
(VV[114]->s.s_dbind)= make_cons((V433),(VV[114]->s.s_dbind)); |
(VV[114]->s.s_dbind)= make_cons((V464),(VV[114]->s.s_dbind)); |
3018 |
{object V434 = (VV[114]->s.s_dbind); |
{object V465 = (VV[114]->s.s_dbind); |
3019 |
VMR63(V434)}} |
VMR63(V465)}} |
3020 |
base[0]=base[0]; |
base[0]=base[0]; |
3021 |
return Cnil; |
return Cnil; |
3022 |
} |
} |
3027 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
3028 |
goto TTL; |
goto TTL; |
3029 |
TTL:; |
TTL:; |
3030 |
V435= (*(LnkLI374))(); |
V466= (*(LnkLI374))(); |
3031 |
{object V436 = (*(LnkLI375))(/* INLINE-ARGS */V435); |
{object V467 = (*(LnkLI375))(/* INLINE-ARGS */V466); |
3032 |
VMR64(V436)} |
VMR64(V467)} |
3033 |
return Cnil; |
return Cnil; |
3034 |
} |
} |
3035 |
/* local entry for function LOOP-DO-NAMED */ |
/* local entry for function LOOP-DO-NAMED */ |
3039 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
3040 |
goto TTL; |
goto TTL; |
3041 |
TTL:; |
TTL:; |
3042 |
{register object V437; |
{register object V468; |
3043 |
vs_base=vs_top; |
vs_base=vs_top; |
3044 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
3045 |
vs_top=sup; |
vs_top=sup; |
3046 |
V437= vs_base[0]; |
V468= vs_base[0]; |
3047 |
if(type_of((V437))==t_symbol){ |
if(type_of((V468))==t_symbol){ |
3048 |
goto T1038;} |
goto T1038;} |
3049 |
base[0]= VV[161]; |
base[0]= VV[161]; |
3050 |
base[1]= (V437); |
base[1]= (V468); |
3051 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3052 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
3053 |
vs_top=sup; |
vs_top=sup; |
3064 |
goto T1044; |
goto T1044; |
3065 |
T1044:; |
T1044:; |
3066 |
base[0]= VV[162]; |
base[0]= VV[162]; |
3067 |
base[1]= (V437); |
base[1]= (V468); |
3068 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3069 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
3070 |
vs_top=sup; |
vs_top=sup; |
3074 |
goto T1054;} |
goto T1054;} |
3075 |
base[0]= VV[163]; |
base[0]= VV[163]; |
3076 |
base[1]= CMPcar((VV[120]->s.s_dbind)); |
base[1]= CMPcar((VV[120]->s.s_dbind)); |
3077 |
base[2]= (V437); |
base[2]= (V468); |
3078 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3079 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
3080 |
vs_top=sup; |
vs_top=sup; |
3081 |
goto T1054; |
goto T1054; |
3082 |
T1054:; |
T1054:; |
3083 |
(VV[120]->s.s_dbind)= list(2,(V437),Cnil); |
(VV[120]->s.s_dbind)= list(2,(V468),Cnil); |
3084 |
{object V438 = (VV[120]->s.s_dbind); |
{object V469 = (VV[120]->s.s_dbind); |
3085 |
VMR65(V438)}} |
VMR65(V469)}} |
3086 |
base[0]=base[0]; |
base[0]=base[0]; |
3087 |
return Cnil; |
return Cnil; |
3088 |
} |
} |
3096 |
vs_base=vs_top; |
vs_base=vs_top; |
3097 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
3098 |
vs_top=sup; |
vs_top=sup; |
3099 |
V439= vs_base[0]; |
V470= vs_base[0]; |
3100 |
V440= (*(LnkLI366))(V439); |
V471= (*(LnkLI366))(V470); |
3101 |
{object V441 = (*(LnkLI365))(/* INLINE-ARGS */V440); |
{object V472 = (*(LnkLI365))(/* INLINE-ARGS */V471); |
3102 |
VMR66(V441)} |
VMR66(V472)} |
3103 |
base[0]=base[0]; |
base[0]=base[0]; |
3104 |
return Cnil; |
return Cnil; |
3105 |
} |
} |
3109 |
{ |
{ |
3110 |
va_list ap; |
va_list ap; |
3111 |
int narg = VFUN_NARGS; VMB67 VMS67 VMV67 |
int narg = VFUN_NARGS; VMB67 VMS67 VMV67 |
3112 |
{object V442; |
{object V473; |
3113 |
object V443; |
object V474; |
3114 |
object V444; |
object V475; |
3115 |
object V445; |
object V476; |
3116 |
object V446; |
object V477; |
3117 |
object V447; |
object V478; |
3118 |
va_start(ap,first); |
va_start(ap,first); |
3119 |
narg= narg - 0; |
narg= narg - 0; |
3120 |
{ |
{ |
3121 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI78key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI78key,first,ap); |
3122 |
V442=(Vcs[0]); |
V473=(Vcs[0]); |
3123 |
V443=(Vcs[1]); |
V474=(Vcs[1]); |
3124 |
V444=(Vcs[2]); |
V475=(Vcs[2]); |
3125 |
V445=(Vcs[3]); |
V476=(Vcs[3]); |
3126 |
V446=(Vcs[4]); |
V477=(Vcs[4]); |
3127 |
V447=(Vcs[5]); |
V478=(Vcs[5]); |
3128 |
base[0]= VV[164]; |
base[0]= VV[164]; |
3129 |
base[1]= (V442); |
base[1]= (V473); |
3130 |
base[2]= (V443); |
base[2]= (V474); |
3131 |
base[3]= (V444); |
base[3]= (V475); |
3132 |
base[4]= (V445); |
base[4]= (V476); |
3133 |
base[5]= (V446); |
base[5]= (V477); |
3134 |
base[6]= (V447); |
base[6]= (V478); |
3135 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
3136 |
siLmake_structure(); |
siLmake_structure(); |
3137 |
vs_top=sup; |
vs_top=sup; |
3138 |
{object V448 = vs_base[0]; |
{object V479 = vs_base[0]; |
3139 |
VMR67(V448)} |
VMR67(V479)} |
3140 |
va_end(ap); |
va_end(ap); |
3141 |
base[0]=base[0]; |
base[0]=base[0]; |
3142 |
return Cnil;} |
return Cnil;} |
3147 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3148 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM68; VC68 |
3149 |
vs_check; |
vs_check; |
3150 |
{object V449; |
{object V480; |
3151 |
object V450; |
object V481; |
3152 |
object V451; |
object V482; |
3153 |
V449=(base[0]); |
V480=(base[0]); |
3154 |
V450=(base[1]); |
V481=(base[1]); |
3155 |
V451=(base[2]); |
V482=(base[2]); |
3156 |
vs_top=sup; |
vs_top=sup; |
3157 |
goto TTL; |
goto TTL; |
3158 |
TTL:; |
TTL:; |
3159 |
{object V452; |
{object V483; |
3160 |
register object V453; |
register object V484; |
3161 |
register object V454; |
register object V485; |
3162 |
vs_base=vs_top; |
vs_base=vs_top; |
3163 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
3164 |
vs_top=sup; |
vs_top=sup; |
3165 |
V452= vs_base[0]; |
V483= vs_base[0]; |
3166 |
if((STREF(object,(VV[99]->s.s_dbind),24))==Cnil){ |
if((STREF(object,(VV[99]->s.s_dbind),24))==Cnil){ |
3167 |
goto T1071;} |
goto T1071;} |
3168 |
V453= Cnil; |
V484= Cnil; |
3169 |
goto T1070; |
goto T1070; |
3170 |
goto T1071; |
goto T1071; |
3171 |
T1071:; |
T1071:; |
3172 |
vs_base=vs_top; |
vs_base=vs_top; |
3173 |
(void) (*Lnk378)(); |
(void) (*Lnk378)(); |
3174 |
vs_top=sup; |
vs_top=sup; |
3175 |
V453= vs_base[0]; |
V484= vs_base[0]; |
3176 |
goto T1070; |
goto T1070; |
3177 |
T1070:; |
T1070:; |
3178 |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[165]))==Cnil){ |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[165]))==Cnil){ |
3183 |
vs_base=vs_top; |
vs_base=vs_top; |
3184 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
3185 |
vs_top=sup; |
vs_top=sup; |
3186 |
V454= vs_base[0]; |
V485= vs_base[0]; |
3187 |
goto T1073; |
goto T1073; |
3188 |
goto T1075; |
goto T1075; |
3189 |
T1075:; |
T1075:; |
3190 |
V454= Cnil; |
V485= Cnil; |
3191 |
goto T1073; |
goto T1073; |
3192 |
T1073:; |
T1073:; |
3193 |
if(type_of((V454))==t_symbol){ |
if(type_of((V485))==t_symbol){ |
3194 |
goto T1078;} |
goto T1078;} |
3195 |
base[3]= VV[166]; |
base[3]= VV[166]; |
3196 |
base[4]= (V454); |
base[4]= (V485); |
3197 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3198 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
3199 |
vs_top=sup; |
vs_top=sup; |
3200 |
goto T1078; |
goto T1078; |
3201 |
T1078:; |
T1078:; |
3202 |
if(((V454))!=Cnil){ |
if(((V485))!=Cnil){ |
3203 |
goto T1083;} |
goto T1083;} |
3204 |
vs_base=vs_top; |
vs_base=vs_top; |
3205 |
(void) (*Lnk379)(); |
(void) (*Lnk379)(); |
3206 |
vs_top=sup; |
vs_top=sup; |
3207 |
goto T1083; |
goto T1083; |
3208 |
T1083:; |
T1083:; |
3209 |
if(((V453))!=Cnil){ |
if(((V484))!=Cnil){ |
3210 |
goto T1086;}{object V455; |
goto T1086;}{object V486; |
3211 |
vs_base=vs_top; |
vs_base=vs_top; |
3212 |
(void) (*Lnk378)(); |
(void) (*Lnk378)(); |
3213 |
vs_top=sup; |
vs_top=sup; |
3214 |
V455= vs_base[0]; |
V486= vs_base[0]; |
3215 |
if(V455==Cnil)goto T1090; |
if(V486==Cnil)goto T1090; |
3216 |
V453= V455; |
V484= V486; |
3217 |
goto T1089; |
goto T1089; |
3218 |
goto T1090; |
goto T1090; |
3219 |
T1090:;} |
T1090:;} |
3220 |
V453= (V451); |
V484= (V482); |
3221 |
goto T1089; |
goto T1089; |
3222 |
T1089:; |
T1089:; |
3223 |
goto T1086; |
goto T1086; |
3224 |
T1086:; |
T1086:; |
3225 |
{register object V456; |
{register object V487; |
3226 |
base[3]= (V454); |
base[3]= (V485); |
3227 |
base[4]= (VV[121]->s.s_dbind); |
base[4]= (VV[121]->s.s_dbind); |
3228 |
base[5]= VV[167]; |
base[5]= VV[167]; |
3229 |
base[6]= (VV[134]->s.s_gfdef); |
base[6]= (VV[134]->s.s_gfdef); |
3230 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3231 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
3232 |
vs_top=sup; |
vs_top=sup; |
3233 |
V456= vs_base[0]; |
V487= vs_base[0]; |
3234 |
if(((V456))!=Cnil){ |
if(((V487))!=Cnil){ |
3235 |
goto T1099;} |
goto T1099;} |
3236 |
if(((V454))==Cnil){ |
if(((V485))==Cnil){ |
3237 |
goto T1101;} |
goto T1101;} |
3238 |
if(((*(LnkLI381))((V454)))==Cnil){ |
if(((*(LnkLI381))((V485)))==Cnil){ |
3239 |
goto T1101;} |
goto T1101;} |
3240 |
base[3]= VV[168]; |
base[3]= VV[168]; |
3241 |
base[4]= (V454); |
base[4]= (V485); |
3242 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3243 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
3244 |
vs_top=sup; |
vs_top=sup; |
3245 |
goto T1101; |
goto T1101; |
3246 |
T1101:; |
T1101:; |
3247 |
{object V457; |
{object V488; |
3248 |
V458= make_cons((V449),Cnil); |
V489= make_cons((V480),Cnil); |
3249 |
V456= (VFUN_NARGS=8,(*(LnkLI382))(VV[169],(V454),VV[170],(V450),VV[171],/* INLINE-ARGS */V458,VV[172],(V453))); |
V487= (VFUN_NARGS=8,(*(LnkLI382))(VV[169],(V485),VV[170],(V481),VV[171],/* INLINE-ARGS */V489,VV[172],(V484))); |
3250 |
V457= (V456); |
V488= (V487); |
3251 |
(VV[121]->s.s_dbind)= make_cons((V457),(VV[121]->s.s_dbind)); |
(VV[121]->s.s_dbind)= make_cons((V488),(VV[121]->s.s_dbind)); |
3252 |
goto T1097;} |
goto T1097;} |
3253 |
goto T1099; |
goto T1099; |
3254 |
T1099:; |
T1099:; |
3255 |
if((STREF(object,(V456),4))==((V450))){ |
if((STREF(object,(V487),4))==((V481))){ |
3256 |
goto T1111;} |
goto T1111;} |
3257 |
base[3]= VV[173]; |
base[3]= VV[173]; |
3258 |
base[4]= (V454); |
base[4]= (V485); |
3259 |
base[5]= CMPcar(STREF(object,(V456),8)); |
base[5]= CMPcar(STREF(object,(V487),8)); |
3260 |
base[6]= (V449); |
base[6]= (V480); |
3261 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3262 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
3263 |
vs_top=sup; |
vs_top=sup; |
3264 |
goto T1111; |
goto T1111; |
3265 |
T1111:; |
T1111:; |
3266 |
if(equal((V453),STREF(object,(V456),16))){ |
if(equal((V484),STREF(object,(V487),16))){ |
3267 |
goto T1118;} |
goto T1118;} |
3268 |
(void)((VFUN_NARGS=4,(*(LnkLI345))(VV[174],(V454),(V453),STREF(object,(V456),16)))); |
(void)((VFUN_NARGS=4,(*(LnkLI345))(VV[174],(V485),(V484),STREF(object,(V487),16)))); |
3269 |
if(!((STREF(object,(V456),16))==(Ct))){ |
if(!((STREF(object,(V487),16))==(Ct))){ |
3270 |
goto T1118;} |
goto T1118;} |
3271 |
V459= Ct; |
V490 = (V487); |
3272 |
STSET(object,(V456),16, (V453)); |
V491 = (V484); |
3273 |
(void)((V453)); |
V492= Ct; |
3274 |
|
STSET(object,V490,16, V491); |
3275 |
|
(void)(V491); |
3276 |
goto T1118; |
goto T1118; |
3277 |
T1118:; |
T1118:; |
3278 |
{object V462; |
{object V495; |
3279 |
V462= make_cons(V449,STREF(object,V456,8)); |
V495= make_cons(V480,STREF(object,V487,8)); |
3280 |
V463= Ct; |
V496 = V487; |
3281 |
STSET(object,V456,8, (V462)); |
V497 = (V495); |
3282 |
(void)((V462));} |
V498= Ct; |
3283 |
|
STSET(object,V496,8, V497); |
3284 |
|
(void)(V497);} |
3285 |
goto T1097; |
goto T1097; |
3286 |
T1097:; |
T1097:; |
3287 |
base[3]= (V456); |
base[3]= (V487); |
3288 |
base[4]= (V452); |
base[4]= (V483); |
3289 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3290 |
return;}} |
return;}} |
3291 |
} |
} |
3292 |
} |
} |
3293 |
/* local entry for function LOOP-LIST-COLLECTION */ |
/* local entry for function LOOP-LIST-COLLECTION */ |
3294 |
|
|
3295 |
static object LI80(V465) |
static object LI80(V500) |
3296 |
|
|
3297 |
object V465; |
object V500; |
3298 |
{ VMB69 VMS69 VMV69 |
{ VMB69 VMS69 VMV69 |
3299 |
goto TTL; |
goto TTL; |
3300 |
TTL:; |
TTL:; |
3301 |
{register object V466; |
{register object V501; |
3302 |
register object V467; |
register object V502; |
3303 |
base[0]= (V465); |
base[0]= (V500); |
3304 |
base[1]= VV[5]; |
base[1]= VV[5]; |
3305 |
base[2]= VV[5]; |
base[2]= VV[5]; |
3306 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3307 |
(void) (*Lnk383)(); |
(void) (*Lnk383)(); |
3308 |
if(vs_base>=vs_top){vs_top=sup;goto T1131;} |
if(vs_base>=vs_top){vs_top=sup;goto T1131;} |
3309 |
V466= vs_base[0]; |
V501= vs_base[0]; |
3310 |
vs_base++; |
vs_base++; |
3311 |
if(vs_base>=vs_top){vs_top=sup;goto T1132;} |
if(vs_base>=vs_top){vs_top=sup;goto T1132;} |
3312 |
V467= vs_base[0]; |
V502= vs_base[0]; |
3313 |
vs_top=sup; |
vs_top=sup; |
3314 |
goto T1133; |
goto T1133; |
3315 |
goto T1131; |
goto T1131; |
3316 |
T1131:; |
T1131:; |
3317 |
V466= Cnil; |
V501= Cnil; |
3318 |
goto T1132; |
goto T1132; |
3319 |
T1132:; |
T1132:; |
3320 |
V467= Cnil; |
V502= Cnil; |
3321 |
goto T1133; |
goto T1133; |
3322 |
T1133:; |
T1133:; |
3323 |
{register object V468; |
{register object V503; |
3324 |
V468= STREF(object,(V466),12); |
V503= STREF(object,(V501),12); |
3325 |
if(((V468))!=Cnil){ |
if(((V503))!=Cnil){ |
3326 |
goto T1135;} |
goto T1135;} |
3327 |
V469= (VFUN_NARGS=1,(*(LnkLI335))(VV[175])); |
V504 = (V501); |
3328 |
V470= (VFUN_NARGS=1,(*(LnkLI335))(VV[176])); |
V505= (VFUN_NARGS=1,(*(LnkLI335))(VV[175])); |
3329 |
if((STREF(object,(V466),0))!=Cnil){ |
V506= (VFUN_NARGS=1,(*(LnkLI335))(VV[176])); |
3330 |
|
if((STREF(object,(V501),0))!=Cnil){ |
3331 |
goto T1141;} |
goto T1141;} |
3332 |
V471= Cnil; |
V507= Cnil; |
3333 |
goto T1140; |
goto T1140; |
3334 |
goto T1141; |
goto T1141; |
3335 |
T1141:; |
T1141:; |
3336 |
V471= make_cons(STREF(object,(V466),0),Cnil); |
V507= make_cons(STREF(object,(V501),0),Cnil); |
3337 |
goto T1140; |
goto T1140; |
3338 |
T1140:; |
T1140:; |
3339 |
V468= listA(3,/* INLINE-ARGS */V469,/* INLINE-ARGS */V470,V471); |
V503= listA(3,/* INLINE-ARGS */V505,/* INLINE-ARGS */V506,V507); |
3340 |
V472= Ct; |
V508 = (V503); |
3341 |
STSET(object,(V466),12, (V468)); |
V509= Ct; |
3342 |
(void)((V468)); |
STSET(object,V504,12, V508); |
3343 |
{object V473; |
(void)(V508); |
3344 |
V473= list(2,VV[177],(V468)); |
{object V510; |
3345 |
(VV[109]->s.s_dbind)= make_cons((V473),(VV[109]->s.s_dbind));} |
V510= list(2,VV[177],(V503)); |
3346 |
if((STREF(object,(V466),0))!=Cnil){ |
(VV[109]->s.s_dbind)= make_cons((V510),(VV[109]->s.s_dbind));} |
3347 |
|
if((STREF(object,(V501),0))!=Cnil){ |
3348 |
goto T1135;} |
goto T1135;} |
3349 |
V474= listA(3,VV[178],CMPcar((V468)),CMPcddr((V468))); |
V511= listA(3,VV[178],CMPcar((V503)),CMPcddr((V503))); |
3350 |
(void)((VFUN_NARGS=1,(*(LnkLI384))(/* INLINE-ARGS */V474))); |
(void)((VFUN_NARGS=1,(*(LnkLI384))(/* INLINE-ARGS */V511))); |
3351 |
goto T1135; |
goto T1135; |
3352 |
T1135:; |
T1135:; |
3353 |
{object V475= (V465); |
{object V512= (V500); |
3354 |
if((V475!= VV[5]))goto T1149; |
if((V512!= VV[5]))goto T1149; |
3355 |
V467= list(2,VV[5],(V467)); |
V502= list(2,VV[5],(V502)); |
3356 |
goto T1148; |
goto T1148; |
3357 |
goto T1149; |
goto T1149; |
3358 |
T1149:; |
T1149:; |
3359 |
if((V475!= VV[385]))goto T1151; |
if((V512!= VV[385]))goto T1151; |
3360 |
goto T1148; |
goto T1148; |
3361 |
goto T1151; |
goto T1151; |
3362 |
T1151:; |
T1151:; |
3363 |
if((V475!= VV[386]))goto T1152; |
if((V512!= VV[386]))goto T1152; |
3364 |
if(!(type_of((V467))==t_cons)){ |
if(!(type_of((V502))==t_cons)){ |
3365 |
goto T1153;} |
goto T1153;} |
3366 |
if((CMPcar((V467)))==(VV[5])){ |
if((CMPcar((V502)))==(VV[5])){ |
3367 |
goto T1148;} |
goto T1148;} |
3368 |
goto T1153; |
goto T1153; |
3369 |
T1153:; |
T1153:; |
3370 |
V467= list(2,VV[179],(V467)); |
V502= list(2,VV[179],(V502)); |
3371 |
goto T1148; |
goto T1148; |
3372 |
goto T1152; |
goto T1152; |
3373 |
T1152:; |
T1152:; |
3374 |
FEerror("The ECASE key value ~s is illegal.",1,V475); |
FEerror("The ECASE key value ~s is illegal.",1,V512); |
3375 |
goto T1148;} |
goto T1148;} |
3376 |
goto T1148; |
goto T1148; |
3377 |
T1148:; |
T1148:; |
3378 |
V476= list(3,VV[180],(V468),(V467)); |
V513= list(3,VV[180],(V503),(V502)); |
3379 |
{object V477 = (*(LnkLI375))(/* INLINE-ARGS */V476); |
{object V514 = (*(LnkLI375))(/* INLINE-ARGS */V513); |
3380 |
VMR69(V477)}}} |
VMR69(V514)}}} |
3381 |
base[0]=base[0]; |
base[0]=base[0]; |
3382 |
return Cnil; |
return Cnil; |
3383 |
} |
} |
3384 |
/* local entry for function LOOP-SUM-COLLECTION */ |
/* local entry for function LOOP-SUM-COLLECTION */ |
3385 |
|
|
3386 |
static object LI81(V481,V482,V483) |
static object LI81(V518,V519,V520) |
3387 |
|
|
3388 |
object V481;object V482;object V483; |
object V518;object V519;object V520; |
3389 |
{ VMB70 VMS70 VMV70 |
{ VMB70 VMS70 VMV70 |
3390 |
goto TTL; |
goto TTL; |
3391 |
TTL:; |
TTL:; |
3392 |
{register object V484; |
{register object V521; |
3393 |
object V485; |
object V522; |
3394 |
base[0]= (V481); |
base[0]= (V518); |
3395 |
base[1]= VV[181]; |
base[1]= VV[181]; |
3396 |
base[2]= (V483); |
base[2]= (V520); |
3397 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3398 |
(void) (*Lnk383)(); |
(void) (*Lnk383)(); |
3399 |
if(vs_base>=vs_top){vs_top=sup;goto T1162;} |
if(vs_base>=vs_top){vs_top=sup;goto T1162;} |
3400 |
V484= vs_base[0]; |
V521= vs_base[0]; |
3401 |
vs_base++; |
vs_base++; |
3402 |
if(vs_base>=vs_top){vs_top=sup;goto T1163;} |
if(vs_base>=vs_top){vs_top=sup;goto T1163;} |
3403 |
V485= vs_base[0]; |
V522= vs_base[0]; |
3404 |
vs_top=sup; |
vs_top=sup; |
3405 |
goto T1164; |
goto T1164; |
3406 |
goto T1162; |
goto T1162; |
3407 |
T1162:; |
T1162:; |
3408 |
V484= Cnil; |
V521= Cnil; |
3409 |
goto T1163; |
goto T1163; |
3410 |
T1163:; |
T1163:; |
3411 |
V485= Cnil; |
V522= Cnil; |
3412 |
goto T1164; |
goto T1164; |
3413 |
T1164:; |
T1164:; |
3414 |
(void)((VFUN_NARGS=2,(*(LnkLI387))(STREF(object,(V484),16),(V482)))); |
(void)((VFUN_NARGS=2,(*(LnkLI387))(STREF(object,(V521),16),(V519)))); |
3415 |
{register object V486; |
{register object V523; |
3416 |
V486= STREF(object,(V484),12); |
V523= STREF(object,(V521),12); |
3417 |
if(((V486))!=Cnil){ |
if(((V523))!=Cnil){ |
3418 |
goto T1167;}{object V488; |
goto T1167;} |
3419 |
V488= STREF(object,(V484),0); |
V524 = (V521);{object V526; |
3420 |
if(V488==Cnil)goto T1173; |
V526= STREF(object,(V521),0); |
3421 |
V487= V488; |
if(V526==Cnil)goto T1173; |
3422 |
|
V525= V526; |
3423 |
goto T1172; |
goto T1172; |
3424 |
goto T1173; |
goto T1173; |
3425 |
T1173:;} |
T1173:;} |
3426 |
V487= (VFUN_NARGS=1,(*(LnkLI335))(VV[182])); |
V525= (VFUN_NARGS=1,(*(LnkLI335))(VV[182])); |
3427 |
goto T1172; |
goto T1172; |
3428 |
T1172:; |
T1172:; |
3429 |
V489= (VFUN_NARGS=3,(*(LnkLI371))(V487,Cnil,STREF(object,(V484),16))); |
V527= (VFUN_NARGS=3,(*(LnkLI371))(V525,Cnil,STREF(object,(V521),16))); |
3430 |
V486= make_cons(/* INLINE-ARGS */V489,Cnil); |
V523= make_cons(/* INLINE-ARGS */V527,Cnil); |
3431 |
V490= Ct; |
V528 = (V523); |
3432 |
STSET(object,(V484),12, (V486)); |
V529= Ct; |
3433 |
(void)((V486)); |
STSET(object,V524,12, V528); |
3434 |
if((STREF(object,(V484),0))!=Cnil){ |
(void)(V528); |
3435 |
|
if((STREF(object,(V521),0))!=Cnil){ |
3436 |
goto T1167;} |
goto T1167;} |
3437 |
(void)((VFUN_NARGS=1,(*(LnkLI384))(CMPcar(STREF(object,(V484),12))))); |
(void)((VFUN_NARGS=1,(*(LnkLI384))(CMPcar(STREF(object,(V521),12))))); |
3438 |
goto T1167; |
goto T1167; |
3439 |
T1167:; |
T1167:; |
3440 |
if(!(((V481))==(VV[183]))){ |
if(!(((V518))==(VV[183]))){ |
3441 |
goto T1179;} |
goto T1179;} |
3442 |
V492= CMPcar((V486)); |
V531= CMPcar((V523)); |
3443 |
V493= CMPcar((V486)); |
V532= CMPcar((V523)); |
3444 |
V494= list(2,VV[184],CMPcar((V486))); |
V533= list(2,VV[184],CMPcar((V523))); |
3445 |
V491= list(3,VV[8],(V485),list(3,VV[11],/* INLINE-ARGS */V492,(*(LnkLI337))(Ct,/* INLINE-ARGS */V493,/* INLINE-ARGS */V494))); |
V530= list(3,VV[8],(V522),list(3,VV[11],/* INLINE-ARGS */V531,(*(LnkLI337))(Ct,/* INLINE-ARGS */V532,/* INLINE-ARGS */V533))); |
3446 |
goto T1177; |
goto T1177; |
3447 |
goto T1179; |
goto T1179; |
3448 |
T1179:; |
T1179:; |
3449 |
V495= CMPcar((V486)); |
V534= CMPcar((V523)); |
3450 |
V496= (*(LnkLI337))(Ct,CMPcar((V486)),CMPcar((V486))); |
V535= (*(LnkLI337))(Ct,CMPcar((V523)),CMPcar((V523))); |
3451 |
V491= list(3,VV[11],/* INLINE-ARGS */V495,list(3,VV[185],/* INLINE-ARGS */V496,(V485))); |
V536 = (V522); |
3452 |
|
V530= list(3,VV[11],/* INLINE-ARGS */V534,list(3,VV[185],/* INLINE-ARGS */V535,V536)); |
3453 |
goto T1177; |
goto T1177; |
3454 |
T1177:; |
T1177:; |
3455 |
{object V497 = (*(LnkLI375))(V491); |
{object V537 = (*(LnkLI375))(V530); |
3456 |
VMR70(V497)}}} |
VMR70(V537)}}} |
3457 |
base[0]=base[0]; |
base[0]=base[0]; |
3458 |
return Cnil; |
return Cnil; |
3459 |
} |
} |
3460 |
/* local entry for function LOOP-MAXMIN-COLLECTION */ |
/* local entry for function LOOP-MAXMIN-COLLECTION */ |
3461 |
|
|
3462 |
static object LI82(V499) |
static object LI82(V539) |
3463 |
|
|
3464 |
object V499; |
object V539; |
3465 |
{ VMB71 VMS71 VMV71 |
{ VMB71 VMS71 VMV71 |
3466 |
goto TTL; |
goto TTL; |
3467 |
TTL:; |
TTL:; |
3468 |
{register object V500; |
{register object V540; |
3469 |
object V501; |
object V541; |
3470 |
base[0]= (V499); |
base[0]= (V539); |
3471 |
base[1]= VV[186]; |
base[1]= VV[186]; |
3472 |
base[2]= (VV[187]->s.s_dbind); |
base[2]= (VV[187]->s.s_dbind); |
3473 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3474 |
(void) (*Lnk383)(); |
(void) (*Lnk383)(); |
3475 |
if(vs_base>=vs_top){vs_top=sup;goto T1185;} |
if(vs_base>=vs_top){vs_top=sup;goto T1185;} |
3476 |
V500= vs_base[0]; |
V540= vs_base[0]; |
3477 |
vs_base++; |
vs_base++; |
3478 |
if(vs_base>=vs_top){vs_top=sup;goto T1186;} |
if(vs_base>=vs_top){vs_top=sup;goto T1186;} |
3479 |
V501= vs_base[0]; |
V541= vs_base[0]; |
3480 |
vs_top=sup; |
vs_top=sup; |
3481 |
goto T1187; |
goto T1187; |
3482 |
goto T1185; |
goto T1185; |
3483 |
T1185:; |
T1185:; |
3484 |
V500= Cnil; |
V540= Cnil; |
3485 |
goto T1186; |
goto T1186; |
3486 |
T1186:; |
T1186:; |
3487 |
V501= Cnil; |
V541= Cnil; |
3488 |
goto T1187; |
goto T1187; |
3489 |
T1187:; |
T1187:; |
3490 |
(void)((VFUN_NARGS=2,(*(LnkLI387))(STREF(object,(V500),16),(VV[187]->s.s_dbind)))); |
(void)((VFUN_NARGS=2,(*(LnkLI387))(STREF(object,(V540),16),(VV[187]->s.s_dbind)))); |
3491 |
{register object V502; |
{register object V542; |
3492 |
V502= STREF(object,(V500),20); |
V542= STREF(object,(V540),20); |
3493 |
if(((V502))!=Cnil){ |
if(((V542))!=Cnil){ |
3494 |
goto T1190;}{object V504; |
goto T1190;} |
3495 |
V504= STREF(object,(V500),0); |
V543 = (V540);{object V545; |
3496 |
if(V504==Cnil)goto T1196; |
V545= STREF(object,(V540),0); |
3497 |
V503= V504; |
if(V545==Cnil)goto T1196; |
3498 |
|
V544= V545; |
3499 |
goto T1195; |
goto T1195; |
3500 |
goto T1196; |
goto T1196; |
3501 |
T1196:;} |
T1196:;} |
3502 |
V503= (VFUN_NARGS=1,(*(LnkLI335))(VV[188])); |
V544= (VFUN_NARGS=1,(*(LnkLI335))(VV[188])); |
3503 |
goto T1195; |
goto T1195; |
3504 |
T1195:; |
T1195:; |
3505 |
V502= (*(LnkLI388))(V503,STREF(object,(V500),16)); |
V542= (*(LnkLI388))(V544,STREF(object,(V540),16)); |
3506 |
V505= Ct; |
V546 = (V542); |
3507 |
STSET(object,(V500),20, (V502)); |
V547= Ct; |
3508 |
(void)((V502)); |
STSET(object,V543,20, V546); |
3509 |
if((STREF(object,(V500),0))!=Cnil){ |
(void)(V546); |
3510 |
|
if((STREF(object,(V540),0))!=Cnil){ |
3511 |
goto T1190;} |
goto T1190;} |
3512 |
(void)((VFUN_NARGS=1,(*(LnkLI384))(STREF(object,(V502),0)))); |
(void)((VFUN_NARGS=1,(*(LnkLI384))(STREF(object,(V542),0)))); |
3513 |
goto T1190; |
goto T1190; |
3514 |
T1190:; |
T1190:; |
3515 |
(void)((*(LnkLI389))((V499),(V502))); |
(void)((*(LnkLI389))((V539),(V542))); |
3516 |
{object V506; |
{object V548; |
3517 |
V506= list(2,VV[189],(V502)); |
V548= list(2,VV[189],(V542)); |
3518 |
(VV[109]->s.s_dbind)= make_cons((V506),(VV[109]->s.s_dbind));} |
(VV[109]->s.s_dbind)= make_cons((V548),(VV[109]->s.s_dbind));} |
3519 |
V507= list(4,VV[190],(V502),(V499),(V501)); |
V549= list(4,VV[190],(V542),(V539),(V541)); |
3520 |
{object V508 = (*(LnkLI375))(/* INLINE-ARGS */V507); |
{object V550 = (*(LnkLI375))(/* INLINE-ARGS */V549); |
3521 |
VMR71(V508)}}} |
VMR71(V550)}}} |
3522 |
base[0]=base[0]; |
base[0]=base[0]; |
3523 |
return Cnil; |
return Cnil; |
3524 |
} |
} |
3525 |
/* local entry for function LOOP-DO-ALWAYS */ |
/* local entry for function LOOP-DO-ALWAYS */ |
3526 |
|
|
3527 |
static object LI83(V511,V512) |
static object LI83(V553,V554) |
3528 |
|
|
3529 |
object V511;object V512; |
object V553;object V554; |
3530 |
{ VMB72 VMS72 VMV72 |
{ VMB72 VMS72 VMV72 |
3531 |
goto TTL; |
goto TTL; |
3532 |
TTL:; |
TTL:; |
3533 |
{object V513; |
{object V555; |
3534 |
vs_base=vs_top; |
vs_base=vs_top; |
3535 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
3536 |
vs_top=sup; |
vs_top=sup; |
3537 |
V513= vs_base[0]; |
V555= vs_base[0]; |
3538 |
if(((V511))==Cnil){ |
if(((V553))==Cnil){ |
3539 |
goto T1205;} |
goto T1205;} |
3540 |
vs_base=vs_top; |
vs_base=vs_top; |
3541 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
3545 |
vs_base=vs_top; |
vs_base=vs_top; |
3546 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
3547 |
vs_top=sup; |
vs_top=sup; |
3548 |
if(((V512))==Cnil){ |
if(((V554))==Cnil){ |
3549 |
goto T1212;} |
goto T1212;} |
3550 |
V514= VV[8]; |
V556= VV[8]; |
3551 |
goto T1210; |
goto T1210; |
3552 |
goto T1212; |
goto T1212; |
3553 |
T1212:; |
T1212:; |
3554 |
V514= VV[191]; |
V556= VV[191]; |
3555 |
goto T1210; |
goto T1210; |
3556 |
T1210:; |
T1210:; |
3557 |
V515= list(3,V514,(V513),(*(LnkLI366))(Cnil)); |
V557 = (V555); |
3558 |
(void)((*(LnkLI375))(/* INLINE-ARGS */V515)); |
V558= list(3,V556,V557,(*(LnkLI366))(Cnil)); |
3559 |
{object V516 = (VFUN_NARGS=1,(*(LnkLI384))(Ct)); |
(void)((*(LnkLI375))(/* INLINE-ARGS */V558)); |
3560 |
VMR72(V516)}} |
{object V559 = (VFUN_NARGS=1,(*(LnkLI384))(Ct)); |
3561 |
|
VMR72(V559)}} |
3562 |
base[0]=base[0]; |
base[0]=base[0]; |
3563 |
return Cnil; |
return Cnil; |
3564 |
} |
} |
3565 |
/* local entry for function LOOP-DO-THEREIS */ |
/* local entry for function LOOP-DO-THEREIS */ |
3566 |
|
|
3567 |
static object LI84(V518) |
static object LI84(V561) |
3568 |
|
|
3569 |
object V518; |
object V561; |
3570 |
{ VMB73 VMS73 VMV73 |
{ VMB73 VMS73 VMV73 |
3571 |
goto TTL; |
goto TTL; |
3572 |
TTL:; |
TTL:; |
3573 |
if(((V518))==Cnil){ |
if(((V561))==Cnil){ |
3574 |
goto T1214;} |
goto T1214;} |
3575 |
vs_base=vs_top; |
vs_base=vs_top; |
3576 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
3581 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
3582 |
vs_top=sup; |
vs_top=sup; |
3583 |
(void)((VFUN_NARGS=0,(*(LnkLI384))())); |
(void)((VFUN_NARGS=0,(*(LnkLI384))())); |
3584 |
V519= (*(LnkLI391))(); |
V562= (*(LnkLI391))(); |
3585 |
vs_base=vs_top; |
vs_base=vs_top; |
3586 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
3587 |
vs_top=sup; |
vs_top=sup; |
3588 |
V520= vs_base[0]; |
V563= vs_base[0]; |
3589 |
V521= list(3,VV[11],/* INLINE-ARGS */V519,V520); |
V564= list(3,VV[11],/* INLINE-ARGS */V562,V563); |
3590 |
V522= list(3,VV[8],/* INLINE-ARGS */V521,(*(LnkLI366))((VV[118]->s.s_dbind))); |
V565= list(3,VV[8],/* INLINE-ARGS */V564,(*(LnkLI366))((VV[118]->s.s_dbind))); |
3591 |
{object V523 = (*(LnkLI375))(/* INLINE-ARGS */V522); |
{object V566 = (*(LnkLI375))(/* INLINE-ARGS */V565); |
3592 |
VMR73(V523)} |
VMR73(V566)} |
3593 |
base[0]=base[0]; |
base[0]=base[0]; |
3594 |
return Cnil; |
return Cnil; |
3595 |
} |
} |
3596 |
/* local entry for function LOOP-DO-WHILE */ |
/* local entry for function LOOP-DO-WHILE */ |
3597 |
|
|
3598 |
static object LI85(V526,V527) |
static object LI85(V569,V570) |
3599 |
|
|
3600 |
object V526;object V527; |
object V569;object V570; |
3601 |
{ VMB74 VMS74 VMV74 |
{ VMB74 VMS74 VMV74 |
3602 |
goto TTL; |
goto TTL; |
3603 |
TTL:; |
TTL:; |
3604 |
{object V528; |
{object V571; |
3605 |
vs_base=vs_top; |
vs_base=vs_top; |
3606 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
3607 |
vs_top=sup; |
vs_top=sup; |
3608 |
V528= vs_base[0]; |
V571= vs_base[0]; |
3609 |
base[1]= (V527); |
base[1]= (V570); |
3610 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3611 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
3612 |
vs_top=sup; |
vs_top=sup; |
3613 |
if(((V526))==Cnil){ |
if(((V569))==Cnil){ |
3614 |
goto T1225;} |
goto T1225;} |
3615 |
V529= VV[8]; |
V572= VV[8]; |
3616 |
goto T1223; |
goto T1223; |
3617 |
goto T1225; |
goto T1225; |
3618 |
T1225:; |
T1225:; |
3619 |
V529= VV[191]; |
V572= VV[191]; |
3620 |
goto T1223; |
goto T1223; |
3621 |
T1223:; |
T1223:; |
3622 |
V530= list(3,V529,(V528),VV[192]); |
V573 = (V571); |
3623 |
{object V531 = (*(LnkLI365))(/* INLINE-ARGS */V530); |
V574= list(3,V572,V573,VV[192]); |
3624 |
VMR74(V531)}} |
{object V575 = (*(LnkLI365))(/* INLINE-ARGS */V574); |
3625 |
|
VMR74(V575)}} |
3626 |
base[0]=base[0]; |
base[0]=base[0]; |
3627 |
return Cnil; |
return Cnil; |
3628 |
} |
} |
3637 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3638 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
3639 |
vs_top=sup; |
vs_top=sup; |
3640 |
{register object V532; |
{register object V576; |
3641 |
register object V533; |
register object V577; |
3642 |
register object V534; |
register object V578; |
3643 |
V532= Cnil; |
V576= Cnil; |
3644 |
V533= Cnil; |
V577= Cnil; |
3645 |
V534= Cnil; |
V578= Cnil; |
3646 |
goto T1230; |
goto T1230; |
3647 |
T1230:; |
T1230:; |
3648 |
vs_base=vs_top; |
vs_base=vs_top; |
3649 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
3650 |
vs_top=sup; |
vs_top=sup; |
3651 |
V532= vs_base[0]; |
V576= vs_base[0]; |
3652 |
base[0]= (V532); |
base[0]= (V576); |
3653 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3654 |
(void) (*Lnk378)(); |
(void) (*Lnk378)(); |
3655 |
vs_top=sup; |
vs_top=sup; |
3656 |
V534= vs_base[0]; |
V578= vs_base[0]; |
3657 |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[194]))==Cnil){ |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[194]))==Cnil){ |
3658 |
goto T1241;} |
goto T1241;} |
3659 |
vs_base=vs_top; |
vs_base=vs_top; |
3662 |
vs_base=vs_top; |
vs_base=vs_top; |
3663 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
3664 |
vs_top=sup; |
vs_top=sup; |
3665 |
V533= vs_base[0]; |
V577= vs_base[0]; |
3666 |
goto T1239; |
goto T1239; |
3667 |
goto T1241; |
goto T1241; |
3668 |
T1241:; |
T1241:; |
3669 |
V533= Cnil; |
V577= Cnil; |
3670 |
goto T1239; |
goto T1239; |
3671 |
T1239:; |
T1239:; |
3672 |
if(((V532))==Cnil){ |
if(((V576))==Cnil){ |
3673 |
goto T1244;} |
goto T1244;} |
3674 |
if(((*(LnkLI381))((V532)))==Cnil){ |
if(((*(LnkLI381))((V576)))==Cnil){ |
3675 |
goto T1244;} |
goto T1244;} |
3676 |
base[0]= VV[195]; |
base[0]= VV[195]; |
3677 |
base[1]= (V532); |
base[1]= (V576); |
3678 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3679 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
3680 |
vs_top=sup; |
vs_top=sup; |
3681 |
goto T1244; |
goto T1244; |
3682 |
T1244:; |
T1244:; |
3683 |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V532),(V533),(V534)))); |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V576),(V577),(V578)))); |
3684 |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[158]))==Cnil){ |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[158]))==Cnil){ |
3685 |
goto T1254;} |
goto T1254;} |
3686 |
vs_base=vs_top; |
vs_base=vs_top; |
3689 |
goto T1252; |
goto T1252; |
3690 |
goto T1254; |
goto T1254; |
3691 |
T1254:; |
T1254:; |
3692 |
{object V535 = (*(LnkLI358))(); |
{object V579 = (*(LnkLI358))(); |
3693 |
VMR75(V535)} |
VMR75(V579)} |
3694 |
goto T1252; |
goto T1252; |
3695 |
T1252:; |
T1252:; |
3696 |
goto T1230;} |
goto T1230;} |
3699 |
} |
} |
3700 |
/* local entry for function LOOP-HACK-ITERATION */ |
/* local entry for function LOOP-HACK-ITERATION */ |
3701 |
|
|
3702 |
static object LI87(V537) |
static object LI87(V581) |
3703 |
|
|
3704 |
register object V537; |
register object V581; |
3705 |
{ VMB76 VMS76 VMV76 |
{ VMB76 VMS76 VMV76 |
3706 |
goto TTL; |
goto TTL; |
3707 |
TTL:; |
TTL:; |
3708 |
{register object V538; |
{register object V582; |
3709 |
register object V539; |
register object V583; |
3710 |
register object V540; |
register object V584; |
3711 |
register object V541; |
register object V585; |
3712 |
register object V542; |
register object V586; |
3713 |
register object V543; |
register object V587; |
3714 |
register object V544; |
register object V588; |
3715 |
register object V545; |
register object V589; |
3716 |
register object V546; |
register object V590; |
3717 |
object V547; |
object V591; |
3718 |
V538= Cnil; |
V582= Cnil; |
3719 |
V539= Cnil; |
V583= Cnil; |
3720 |
V540= Cnil; |
V584= Cnil; |
3721 |
V541= Cnil; |
V585= Cnil; |
3722 |
V542= Cnil; |
V586= Cnil; |
3723 |
V543= Cnil; |
V587= Cnil; |
3724 |
V544= Cnil; |
V588= Cnil; |
3725 |
V545= Cnil; |
V589= Cnil; |
3726 |
V546= Cnil; |
V590= Cnil; |
3727 |
V547= Cnil; |
V591= Cnil; |
3728 |
goto T1259; |
goto T1259; |
3729 |
T1259:; |
T1259:; |
3730 |
base[1]= CMPcar((V537)); |
base[1]= CMPcar((V581)); |
3731 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3732 |
Lsymbol_function(); |
Lsymbol_function(); |
3733 |
vs_top=sup; |
vs_top=sup; |
3734 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3735 |
{object V548; |
{object V592; |
3736 |
V548= CMPcdr((V537)); |
V592= CMPcdr((V581)); |
3737 |
vs_top=base+1; |
vs_top=base+1; |
3738 |
while(V548!=Cnil) |
while(V592!=Cnil) |
3739 |
{vs_push((V548)->c.c_car);V548=(V548)->c.c_cdr;} |
{vs_push((V592)->c.c_car);V592=(V592)->c.c_cdr;} |
3740 |
vs_base=base+1;} |
vs_base=base+1;} |
3741 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
3742 |
vs_top=sup; |
vs_top=sup; |
3743 |
V547= vs_base[0]; |
V591= vs_base[0]; |
3744 |
V546= (V547); |
V590= (V591); |
3745 |
if((CMPcar((V546)))!=Cnil){ |
if((CMPcar((V590)))!=Cnil){ |
3746 |
goto T1269;} |
goto T1269;} |
3747 |
goto T1268; |
goto T1268; |
3748 |
goto T1269; |
goto T1269; |
3749 |
T1269:; |
T1269:; |
3750 |
{object V549; |
{object V593; |
3751 |
V549= CMPcar((V546)); |
V593= CMPcar((V590)); |
3752 |
V538= make_cons((V549),(V538));} |
V582= make_cons((V593),(V582));} |
3753 |
goto T1268; |
goto T1268; |
3754 |
T1268:; |
T1268:; |
3755 |
V546= CMPcdr((V546)); |
V594 = (V583); |
3756 |
base[0]= CMPcar((V546)); |
V590= CMPcdr((V590)); |
3757 |
|
V596 = (V590); |
3758 |
|
base[0]= CMPcar(V596); |
3759 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3760 |
Lcopy_list(); |
Lcopy_list(); |
3761 |
vs_top=sup; |
vs_top=sup; |
3762 |
V550= vs_base[0]; |
V595= vs_base[0]; |
3763 |
V539= nconc((V539),V550); |
V583= nconc(V594,V595); |
3764 |
V546= CMPcdr((V546)); |
V590= CMPcdr((V590)); |
3765 |
if((CMPcar((V546)))!=Cnil){ |
V597 = (V590); |
3766 |
|
if((CMPcar(V597))!=Cnil){ |
3767 |
goto T1279;} |
goto T1279;} |
3768 |
goto T1278; |
goto T1278; |
3769 |
goto T1279; |
goto T1279; |
3770 |
T1279:; |
T1279:; |
3771 |
{object V551; |
{object V598; |
3772 |
V551= CMPcar((V546)); |
V598= CMPcar((V590)); |
3773 |
V540= make_cons((V551),(V540));} |
V584= make_cons((V598),(V584));} |
3774 |
goto T1278; |
goto T1278; |
3775 |
T1278:; |
T1278:; |
3776 |
V546= CMPcdr((V546)); |
V599 = (V585); |
3777 |
base[0]= CMPcar((V546)); |
V590= CMPcdr((V590)); |
3778 |
|
V601 = (V590); |
3779 |
|
base[0]= CMPcar(V601); |
3780 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3781 |
Lcopy_list(); |
Lcopy_list(); |
3782 |
vs_top=sup; |
vs_top=sup; |
3783 |
V552= vs_base[0]; |
V600= vs_base[0]; |
3784 |
V541= nconc((V541),V552); |
V585= nconc(V599,V600); |
3785 |
V546= CMPcdr((V546)); |
V590= CMPcdr((V590)); |
3786 |
if(((VV[112]->s.s_dbind))==Cnil){ |
if(((VV[112]->s.s_dbind))==Cnil){ |
3787 |
goto T1291;} |
goto T1291;} |
3788 |
base[0]= VV[196]; |
base[0]= VV[196]; |
3791 |
vs_top=sup; |
vs_top=sup; |
3792 |
goto T1291; |
goto T1291; |
3793 |
T1291:; |
T1291:; |
3794 |
if(((V546))!=Cnil){ |
if(((V590))!=Cnil){ |
3795 |
goto T1295;} |
goto T1295;} |
3796 |
V546= (V547); |
V590= (V591); |
3797 |
goto T1295; |
goto T1295; |
3798 |
T1295:; |
T1295:; |
3799 |
if((CMPcar((V546)))==Cnil){ |
if((CMPcar((V590)))==Cnil){ |
3800 |
goto T1299;} |
goto T1299;} |
3801 |
{object V553; |
{object V602; |
3802 |
V553= CMPcar((V546)); |
V602= CMPcar((V590)); |
3803 |
V542= make_cons((V553),(V542));} |
V586= make_cons((V602),(V586));} |
3804 |
goto T1299; |
goto T1299; |
3805 |
T1299:; |
T1299:; |
3806 |
V546= CMPcdr((V546)); |
V603 = (V587); |
3807 |
base[0]= CMPcar((V546)); |
V590= CMPcdr((V590)); |
3808 |
|
V605 = (V590); |
3809 |
|
base[0]= CMPcar(V605); |
3810 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3811 |
Lcopy_list(); |
Lcopy_list(); |
3812 |
vs_top=sup; |
vs_top=sup; |
3813 |
V554= vs_base[0]; |
V604= vs_base[0]; |
3814 |
V543= nconc((V543),V554); |
V587= nconc(V603,V604); |
3815 |
V546= CMPcdr((V546)); |
V590= CMPcdr((V590)); |
3816 |
if((CMPcar((V546)))==Cnil){ |
V606 = (V590); |
3817 |
|
if((CMPcar(V606))==Cnil){ |
3818 |
goto T1309;} |
goto T1309;} |
3819 |
{object V555; |
{object V607; |
3820 |
V555= CMPcar((V546)); |
V607= CMPcar((V590)); |
3821 |
V544= make_cons((V555),(V544));} |
V588= make_cons((V607),(V588));} |
3822 |
goto T1309; |
goto T1309; |
3823 |
T1309:; |
T1309:; |
3824 |
base[0]= CMPcadr((V546)); |
V608 = (V589); |
3825 |
|
base[0]= CMPcadr((V590)); |
3826 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3827 |
Lcopy_list(); |
Lcopy_list(); |
3828 |
vs_top=sup; |
vs_top=sup; |
3829 |
V556= vs_base[0]; |
V609= vs_base[0]; |
3830 |
V545= nconc((V545),V556); |
V589= nconc(V608,V609); |
3831 |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[158]))!=Cnil){ |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[158]))!=Cnil){ |
3832 |
goto T1319;} |
goto T1319;} |
3833 |
V557= (*(LnkLI343))((V545)); |
V610= (*(LnkLI343))((V589)); |
3834 |
base[0]= (V544); |
base[0]= (V588); |
3835 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3836 |
L88(base); |
L88(base); |
3837 |
vs_top=sup; |
vs_top=sup; |
3838 |
V558= vs_base[0]; |
V611= vs_base[0]; |
3839 |
V559= (*(LnkLI344))((V543)); |
V612= (*(LnkLI344))((V587)); |
3840 |
base[0]= (V542); |
base[0]= (V586); |
3841 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3842 |
L88(base); |
L88(base); |
3843 |
vs_top=sup; |
vs_top=sup; |
3844 |
V560= vs_base[0]; |
V613= vs_base[0]; |
3845 |
(VV[110]->s.s_dbind)= listA(5,/* INLINE-ARGS */V557,V558,/* INLINE-ARGS */V559,V560,(VV[110]->s.s_dbind)); |
V614 = (VV[110]->s.s_dbind); |
3846 |
V561= (*(LnkLI343))((V541)); |
(VV[110]->s.s_dbind)= listA(5,/* INLINE-ARGS */V610,V611,/* INLINE-ARGS */V612,V613,V614); |
3847 |
base[0]= (V540); |
V615= (*(LnkLI343))((V585)); |
3848 |
|
base[0]= (V584); |
3849 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3850 |
L88(base); |
L88(base); |
3851 |
vs_top=sup; |
vs_top=sup; |
3852 |
V562= vs_base[0]; |
V616= vs_base[0]; |
3853 |
V563= (*(LnkLI344))((V539)); |
V617= (*(LnkLI344))((V583)); |
3854 |
base[0]= (V538); |
base[0]= (V582); |
3855 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3856 |
L88(base); |
L88(base); |
3857 |
vs_top=sup; |
vs_top=sup; |
3858 |
V564= vs_base[0]; |
V618= vs_base[0]; |
3859 |
(VV[113]->s.s_dbind)= listA(5,/* INLINE-ARGS */V561,V562,/* INLINE-ARGS */V563,V564,(VV[113]->s.s_dbind)); |
V619 = (VV[113]->s.s_dbind); |
3860 |
|
(VV[113]->s.s_dbind)= listA(5,/* INLINE-ARGS */V615,V616,/* INLINE-ARGS */V617,V618,V619); |
3861 |
(void)((*(LnkLI358))()); |
(void)((*(LnkLI358))()); |
3862 |
{object V565 = Cnil; |
{object V620 = Cnil; |
3863 |
VMR76(V565)} |
VMR76(V620)} |
3864 |
goto T1319; |
goto T1319; |
3865 |
T1319:; |
T1319:; |
3866 |
vs_base=vs_top; |
vs_base=vs_top; |
3868 |
vs_top=sup; |
vs_top=sup; |
3869 |
if((STREF(object,(VV[99]->s.s_dbind),28))!=Cnil){ |
if((STREF(object,(VV[99]->s.s_dbind),28))!=Cnil){ |
3870 |
goto T1336;} |
goto T1336;} |
3871 |
V546= (*(LnkLI360))(CMPcar((VV[88]->s.s_dbind)),STREF(object,(VV[99]->s.s_dbind),4)); |
V590= (*(LnkLI360))(CMPcar((VV[88]->s.s_dbind)),STREF(object,(VV[99]->s.s_dbind),4)); |
3872 |
if(((V546))==Cnil){ |
if(((V590))==Cnil){ |
3873 |
goto T1336;} |
goto T1336;} |
3874 |
vs_base=vs_top; |
vs_base=vs_top; |
3875 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
3876 |
vs_top=sup; |
vs_top=sup; |
3877 |
V537= (V546); |
V581= (V590); |
3878 |
goto T1336; |
goto T1336; |
3879 |
T1336:; |
T1336:; |
3880 |
goto T1259;} |
goto T1259;} |
3890 |
vs_top=sup; |
vs_top=sup; |
3891 |
goto TTL; |
goto TTL; |
3892 |
TTL:; |
TTL:; |
3893 |
{object V566; |
{object V621; |
3894 |
object V567; |
object V622; |
3895 |
object V568; |
object V623; |
3896 |
object V569; |
object V624; |
3897 |
object V570; |
object V625; |
3898 |
vs_base=vs_top; |
vs_base=vs_top; |
3899 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
3900 |
vs_top=sup; |
vs_top=sup; |
3901 |
V566= vs_base[0]; |
V621= vs_base[0]; |
3902 |
base[3]= (V566); |
base[3]= (V621); |
3903 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3904 |
(void) (*Lnk378)(); |
(void) (*Lnk378)(); |
3905 |
vs_top=sup; |
vs_top=sup; |
3906 |
V567= vs_base[0]; |
V622= vs_base[0]; |
3907 |
vs_base=vs_top; |
vs_base=vs_top; |
3908 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
3909 |
vs_top=sup; |
vs_top=sup; |
3910 |
V568= vs_base[0]; |
V623= vs_base[0]; |
3911 |
V569= Cnil; |
V624= Cnil; |
3912 |
V570= Cnil; |
V625= Cnil; |
3913 |
vs_base=vs_top; |
vs_base=vs_top; |
3914 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
3915 |
vs_top=sup; |
vs_top=sup; |
3916 |
V569= vs_base[0]; |
V624= vs_base[0]; |
3917 |
if(!(type_of((V568))==t_symbol)){ |
if(!(type_of((V623))==t_symbol)){ |
3918 |
goto T1355;} |
goto T1355;} |
3919 |
V570= (*(LnkLI360))((V568),STREF(object,(VV[99]->s.s_dbind),8)); |
V625= (*(LnkLI360))((V623),STREF(object,(VV[99]->s.s_dbind),8)); |
3920 |
if(((V570))!=Cnil){ |
if(((V625))!=Cnil){ |
3921 |
goto T1354;} |
goto T1354;} |
3922 |
goto T1355; |
goto T1355; |
3923 |
T1355:; |
T1355:; |
3924 |
base[3]= VV[199]; |
base[3]= VV[199]; |
3925 |
base[4]= (V568); |
base[4]= (V623); |
3926 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3927 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
3928 |
vs_top=sup; |
vs_top=sup; |
3929 |
goto T1354; |
goto T1354; |
3930 |
T1354:; |
T1354:; |
3931 |
base[3]= CMPcar((V570)); |
base[3]= CMPcar((V625)); |
3932 |
base[4]= (V566); |
base[4]= (V621); |
3933 |
base[5]= (V569); |
base[5]= (V624); |
3934 |
base[6]= (V567); |
base[6]= (V622); |
3935 |
{object V571; |
{object V626; |
3936 |
V571= CMPcdr((V570)); |
V626= CMPcdr((V625)); |
3937 |
vs_top=base+7; |
vs_top=base+7; |
3938 |
while(V571!=Cnil) |
while(V626!=Cnil) |
3939 |
{vs_push((V571)->c.c_car);V571=(V571)->c.c_cdr;} |
{vs_push((V626)->c.c_car);V626=(V626)->c.c_cdr;} |
3940 |
vs_base=base+4;} |
vs_base=base+4;} |
3941 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
3942 |
return;} |
return;} |
3952 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3953 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
3954 |
vs_top=sup; |
vs_top=sup; |
3955 |
{object V572; |
{object V627; |
3956 |
vs_base=vs_top; |
vs_base=vs_top; |
3957 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
3958 |
vs_top=sup; |
vs_top=sup; |
3959 |
V572= vs_base[0]; |
V627= vs_base[0]; |
3960 |
{object V574; |
{object V629; |
3961 |
V575= (VFUN_NARGS=0,(*(LnkLI335))()); |
V630= (VFUN_NARGS=0,(*(LnkLI335))()); |
3962 |
V574= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V575,(V572),VV[201])); |
V631 = (V627); |
3963 |
{object V576; |
V632 = VV[201]; |
3964 |
V576= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V574))),VV[204]); |
V629= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V630,V631,V632)); |
3965 |
(VV[110]->s.s_dbind)= make_cons((V576),(VV[110]->s.s_dbind));} |
{object V633; |
3966 |
{object V577; |
V633= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V629))),VV[204]); |
3967 |
V577= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V574))),VV[205]); |
(VV[110]->s.s_dbind)= make_cons((V633),(VV[110]->s.s_dbind));} |
3968 |
(VV[113]->s.s_dbind)= make_cons((V577),(VV[113]->s.s_dbind)); |
{object V634; |
3969 |
{object V578 = (VV[113]->s.s_dbind); |
V634= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V629))),VV[205]); |
3970 |
VMR78(V578)}}}} |
(VV[113]->s.s_dbind)= make_cons((V634),(VV[113]->s.s_dbind)); |
3971 |
|
{object V635 = (VV[113]->s.s_dbind); |
3972 |
|
VMR78(V635)}}}} |
3973 |
base[0]=base[0]; |
base[0]=base[0]; |
3974 |
return Cnil; |
return Cnil; |
3975 |
} |
} |
3981 |
goto TTL; |
goto TTL; |
3982 |
TTL:; |
TTL:; |
3983 |
if((VV[118]->s.s_dbind)!=Cnil){ |
if((VV[118]->s.s_dbind)!=Cnil){ |
3984 |
{object V579 = (VV[118]->s.s_dbind); |
{object V636 = (VV[118]->s.s_dbind); |
3985 |
VMR79(V579)}} |
VMR79(V636)}} |
3986 |
V580= (VFUN_NARGS=1,(*(LnkLI335))(VV[206])); |
V637= (VFUN_NARGS=1,(*(LnkLI335))(VV[206])); |
3987 |
(VV[118]->s.s_dbind)= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V580,Cnil,Cnil)); |
(VV[118]->s.s_dbind)= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V637,Cnil,Cnil)); |
3988 |
{object V581 = (VV[118]->s.s_dbind); |
{object V638 = (VV[118]->s.s_dbind); |
3989 |
VMR79(V581)} |
VMR79(V638)} |
3990 |
return Cnil; |
return Cnil; |
3991 |
} |
} |
3992 |
/* local entry for function LOOP-ANSI-FOR-EQUALS */ |
/* local entry for function LOOP-ANSI-FOR-EQUALS */ |
3993 |
|
|
3994 |
static object LI92(V585,V586,V587) |
static object LI92(V642,V643,V644) |
3995 |
|
|
3996 |
register object V585;object V586;object V587; |
register object V642;object V643;object V644; |
3997 |
{ VMB80 VMS80 VMV80 |
{ VMB80 VMS80 VMV80 |
3998 |
goto TTL; |
goto TTL; |
3999 |
TTL:; |
TTL:; |
4000 |
(void)((*(LnkLI392))((V585),Cnil,(V587))); |
(void)((*(LnkLI392))((V642),Cnil,(V644))); |
4001 |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[207]))==Cnil){ |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[207]))==Cnil){ |
4002 |
goto T1379;} |
goto T1379;} |
4003 |
vs_base=vs_top; |
vs_base=vs_top; |
4004 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
4005 |
vs_top=sup; |
vs_top=sup; |
4006 |
|
V645 = (V642); |
4007 |
vs_base=vs_top; |
vs_base=vs_top; |
4008 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
4009 |
vs_top=sup; |
vs_top=sup; |
4010 |
V588= vs_base[0]; |
V646= vs_base[0]; |
4011 |
V589= list(2,(V585),V588); |
V647= list(2,V645,V646); |
4012 |
{object V590 = listA(7,Cnil,/* INLINE-ARGS */V589,Cnil,Cnil,Cnil,list(2,(V585),(V586)),VV[208]); |
{object V648 = listA(7,Cnil,/* INLINE-ARGS */V647,Cnil,Cnil,Cnil,list(2,(V642),(V643)),VV[208]); |
4013 |
VMR80(V590)} |
VMR80(V648)} |
4014 |
goto T1379; |
goto T1379; |
4015 |
T1379:; |
T1379:; |
4016 |
{object V591 = listA(3,Cnil,list(2,(V585),(V586)),VV[209]); |
{object V649 = listA(3,Cnil,list(2,(V642),(V643)),VV[209]); |
4017 |
VMR80(V591)} |
VMR80(V649)} |
4018 |
base[0]=base[0]; |
base[0]=base[0]; |
4019 |
return Cnil; |
return Cnil; |
4020 |
} |
} |
4021 |
/* local entry for function LOOP-FOR-ACROSS */ |
/* local entry for function LOOP-FOR-ACROSS */ |
4022 |
|
|
4023 |
static object LI93(V595,V596,V597) |
static object LI93(V653,V654,V655) |
4024 |
|
|
4025 |
object V595;object V596;object V597; |
object V653;object V654;object V655; |
4026 |
{ VMB81 VMS81 VMV81 |
{ VMB81 VMS81 VMV81 |
4027 |
goto TTL; |
goto TTL; |
4028 |
TTL:; |
TTL:; |
4029 |
(void)((*(LnkLI392))((V595),Cnil,(V597))); |
(void)((*(LnkLI392))((V653),Cnil,(V655))); |
4030 |
{object V598; |
{object V656; |
4031 |
register object V599; |
register object V657; |
4032 |
V598= (VFUN_NARGS=1,(*(LnkLI335))(VV[210])); |
V656= (VFUN_NARGS=1,(*(LnkLI335))(VV[210])); |
4033 |
V599= (VFUN_NARGS=1,(*(LnkLI335))(VV[211])); |
V657= (VFUN_NARGS=1,(*(LnkLI335))(VV[211])); |
4034 |
{register object V600; |
{register object V658; |
4035 |
object V601; |
object V659; |
4036 |
object V602; |
object V660; |
4037 |
base[0]= (V596); |
base[0]= (V654); |
4038 |
base[1]= VV[212]; |
base[1]= VV[212]; |
4039 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4040 |
(void) (*Lnk393)(); |
(void) (*Lnk393)(); |
4041 |
if(vs_base>=vs_top){vs_top=sup;goto T1389;} |
if(vs_base>=vs_top){vs_top=sup;goto T1389;} |
4042 |
V600= vs_base[0]; |
V658= vs_base[0]; |
4043 |
vs_base++; |
vs_base++; |
4044 |
if(vs_base>=vs_top){vs_top=sup;goto T1390;} |
if(vs_base>=vs_top){vs_top=sup;goto T1390;} |
4045 |
V601= vs_base[0]; |
V659= vs_base[0]; |
4046 |
vs_base++; |
vs_base++; |
4047 |
if(vs_base>=vs_top){vs_top=sup;goto T1391;} |
if(vs_base>=vs_top){vs_top=sup;goto T1391;} |
4048 |
V602= vs_base[0]; |
V660= vs_base[0]; |
4049 |
vs_top=sup; |
vs_top=sup; |
4050 |
goto T1392; |
goto T1392; |
4051 |
goto T1389; |
goto T1389; |
4052 |
T1389:; |
T1389:; |
4053 |
V600= Cnil; |
V658= Cnil; |
4054 |
goto T1390; |
goto T1390; |
4055 |
T1390:; |
T1390:; |
4056 |
V601= Cnil; |
V659= Cnil; |
4057 |
goto T1391; |
goto T1391; |
4058 |
T1391:; |
T1391:; |
4059 |
V602= Cnil; |
V660= Cnil; |
4060 |
goto T1392; |
goto T1392; |
4061 |
T1392:; |
T1392:; |
4062 |
if(!(type_of((V600))==t_cons)){ |
V661 = (V656); |
4063 |
|
V662 = (V658); |
4064 |
|
if(!(type_of((V658))==t_cons)){ |
4065 |
goto T1396;} |
goto T1396;} |
4066 |
if(!((CMPcar((V600)))==(VV[213]))){ |
if(!((CMPcar((V658)))==(VV[213]))){ |
4067 |
goto T1396;} |
goto T1396;} |
4068 |
V603= CMPcadr((V600)); |
V663= CMPcadr((V658)); |
4069 |
goto T1394; |
goto T1394; |
4070 |
goto T1396; |
goto T1396; |
4071 |
T1396:; |
T1396:; |
4072 |
V603= VV[212]; |
V663= VV[212]; |
4073 |
goto T1394; |
goto T1394; |
4074 |
T1394:; |
T1394:; |
4075 |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V598),(V600),V603))); |
(void)((VFUN_NARGS=3,(*(LnkLI371))(V661,V662,V663))); |
4076 |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V599),small_fixnum(0),VV[214]))); |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V657),small_fixnum(0),VV[214]))); |
4077 |
{long V604; |
{long V664; |
4078 |
object V605; |
object V665; |
4079 |
register object V606; |
register object V666; |
4080 |
object V607; |
object V667; |
4081 |
object V608; |
object V668; |
4082 |
object V609; |
object V669; |
4083 |
V604= 0; |
V664= 0; |
4084 |
if(((V601))!=Cnil){ |
if(((V659))!=Cnil){ |
4085 |
goto T1404;} |
goto T1404;} |
4086 |
{object V610; |
{object V670; |
4087 |
V610= (VFUN_NARGS=1,(*(LnkLI335))(VV[215])); |
V670= (VFUN_NARGS=1,(*(LnkLI335))(VV[215])); |
4088 |
{object V611; |
{object V671; |
4089 |
V611= list(3,VV[11],(V610),list(2,VV[216],(V598))); |
V671= list(3,VV[11],(V670),list(2,VV[216],(V656))); |
4090 |
(VV[108]->s.s_dbind)= make_cons((V611),(VV[108]->s.s_dbind));} |
(VV[108]->s.s_dbind)= make_cons((V671),(VV[108]->s.s_dbind));} |
4091 |
V605= (VFUN_NARGS=3,(*(LnkLI371))((V610),small_fixnum(0),VV[214])); |
V665= (VFUN_NARGS=3,(*(LnkLI371))((V670),small_fixnum(0),VV[214])); |
4092 |
goto T1402;} |
goto T1402;} |
4093 |
goto T1404; |
goto T1404; |
4094 |
T1404:; |
T1404:; |
4095 |
V604= (long)length((V602)); |
V664= (long)length((V660)); |
4096 |
V605= CMPmake_fixnum(V604); |
V665= CMPmake_fixnum(V664); |
4097 |
goto T1402; |
goto T1402; |
4098 |
T1402:; |
T1402:; |
4099 |
V606= list(3,VV[217],(V599),(V605)); |
V666= list(3,VV[217],(V657),(V665)); |
4100 |
V607= (V606); |
V667= (V666); |
4101 |
V608= list(2,(V595),list(3,VV[218],(V598),(V599))); |
V668= list(2,(V653),list(3,VV[218],(V656),(V657))); |
4102 |
V609= list(2,(V599),list(2,VV[184],(V599))); |
V669= list(2,(V657),list(2,VV[184],(V657))); |
4103 |
if(((V601))==Cnil){ |
if(((V659))==Cnil){ |
4104 |
goto T1415;} |
goto T1415;} |
4105 |
V606= ((V604)==(0)?Ct:Cnil); |
V666= ((V664)==(0)?Ct:Cnil); |
4106 |
if(!((V604)<=(1))){ |
if(!((V664)<=(1))){ |
4107 |
goto T1415;} |
goto T1415;} |
4108 |
V607= Ct; |
V667= Ct; |
4109 |
goto T1415; |
goto T1415; |
4110 |
T1415:; |
T1415:; |
4111 |
if(((((V606))==((V607))?Ct:Cnil))==Cnil){ |
V672 = (V667); |
4112 |
|
V673 = (V668); |
4113 |
|
V674 = (V669); |
4114 |
|
if(((((V666))==((V667))?Ct:Cnil))==Cnil){ |
4115 |
goto T1424;} |
goto T1424;} |
4116 |
V612= Cnil; |
V675= Cnil; |
4117 |
goto T1423; |
goto T1423; |
4118 |
goto T1424; |
goto T1424; |
4119 |
T1424:; |
T1424:; |
4120 |
V612= list(4,(V606),(V608),Cnil,(V609)); |
V675= list(4,(V666),(V668),Cnil,(V669)); |
4121 |
goto T1423; |
goto T1423; |
4122 |
T1423:; |
T1423:; |
4123 |
{object V613 = listA(5,(V607),(V608),Cnil,(V609),V612); |
{object V676 = listA(5,V672,V673,Cnil,V674,V675); |
4124 |
VMR81(V613)}}}} |
VMR81(V676)}}}} |
4125 |
base[0]=base[0]; |
base[0]=base[0]; |
4126 |
return Cnil; |
return Cnil; |
4127 |
} |
} |
4131 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4132 |
register object *sup=base+VM82; VC82 |
register object *sup=base+VM82; VC82 |
4133 |
vs_check; |
vs_check; |
4134 |
{object V614; |
{object V677; |
4135 |
V614=(base[0]); |
V677=(base[0]); |
4136 |
vs_top=sup; |
vs_top=sup; |
4137 |
goto TTL; |
goto TTL; |
4138 |
TTL:; |
TTL:; |
4139 |
{register object V615; |
{register object V678; |
4140 |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[219]))==Cnil){ |
if(((*(LnkLI369))(CMPcar((VV[88]->s.s_dbind)),VV[219]))==Cnil){ |
4141 |
goto T1428;} |
goto T1428;} |
4142 |
vs_base=vs_top; |
vs_base=vs_top; |
4145 |
vs_base=vs_top; |
vs_base=vs_top; |
4146 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
4147 |
vs_top=sup; |
vs_top=sup; |
4148 |
V615= vs_base[0]; |
V678= vs_base[0]; |
4149 |
goto T1426; |
goto T1426; |
4150 |
goto T1428; |
goto T1428; |
4151 |
T1428:; |
T1428:; |
4152 |
V615= VV[220]; |
V678= VV[220]; |
4153 |
goto T1426; |
goto T1426; |
4154 |
T1426:; |
T1426:; |
4155 |
if(!(type_of((V615))==t_cons)){ |
if(!(type_of((V678))==t_cons)){ |
4156 |
goto T1432;} |
goto T1432;} |
4157 |
if(!((CMPcar((V615)))==(VV[221]))){ |
if(!((CMPcar((V678)))==(VV[221]))){ |
4158 |
goto T1432;} |
goto T1432;} |
4159 |
(void)((VFUN_NARGS=1,(*(LnkLI345))(VV[222]))); |
(void)((VFUN_NARGS=1,(*(LnkLI345))(VV[222]))); |
4160 |
base[1]= list(3,VV[223],(V615),(V614)); |
base[1]= list(3,VV[223],(V678),(V677)); |
4161 |
base[2]= Cnil; |
base[2]= Cnil; |
4162 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4163 |
return; |
return; |
4164 |
goto T1432; |
goto T1432; |
4165 |
T1432:; |
T1432:; |
4166 |
if(!(type_of((V615))==t_cons)){ |
if(!(type_of((V678))==t_cons)){ |
4167 |
goto T1440;} |
goto T1440;} |
4168 |
if(!((CMPcar((V615)))==(VV[83]))){ |
if(!((CMPcar((V678)))==(VV[83]))){ |
4169 |
goto T1440;} |
goto T1440;} |
4170 |
base[1]= list(2,CMPcadr((V615)),(V614)); |
base[1]= list(2,CMPcadr((V678)),(V677)); |
4171 |
base[2]= CMPcadr((V615)); |
base[2]= CMPcadr((V678)); |
4172 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4173 |
return; |
return; |
4174 |
goto T1440; |
goto T1440; |
4175 |
T1440:; |
T1440:; |
4176 |
V616= (VFUN_NARGS=1,(*(LnkLI335))(VV[224])); |
V679= (VFUN_NARGS=1,(*(LnkLI335))(VV[224])); |
4177 |
V617= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V616,(V615),VV[83])); |
V680 = (V678); |
4178 |
base[1]= list(3,VV[223],/* INLINE-ARGS */V617,(V614)); |
V681= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V679,V680,VV[83])); |
4179 |
|
V682 = (V677); |
4180 |
|
base[1]= list(3,VV[223],/* INLINE-ARGS */V681,V682); |
4181 |
base[2]= Cnil; |
base[2]= Cnil; |
4182 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4183 |
return;} |
return;} |
4185 |
} |
} |
4186 |
/* local entry for function LOOP-FOR-ON */ |
/* local entry for function LOOP-FOR-ON */ |
4187 |
|
|
4188 |
static object LI95(V621,V622,V623) |
static object LI95(V686,V687,V688) |
4189 |
|
|
4190 |
register object V621;object V622;object V623; |
register object V686;object V687;object V688; |
4191 |
{ VMB83 VMS83 VMV83 |
{ VMB83 VMS83 VMV83 |
4192 |
goto TTL; |
goto TTL; |
4193 |
TTL:; |
TTL:; |
4194 |
{object V624; |
{object V689; |
4195 |
object V625; |
object V690; |
4196 |
object V626; |
object V691; |
4197 |
base[0]= (V622); |
base[0]= (V687); |
4198 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4199 |
(void) (*Lnk393)(); |
(void) (*Lnk393)(); |
4200 |
if(vs_base>=vs_top){vs_top=sup;goto T1450;} |
if(vs_base>=vs_top){vs_top=sup;goto T1450;} |
4201 |
V624= vs_base[0]; |
V689= vs_base[0]; |
4202 |
vs_base++; |
vs_base++; |
4203 |
if(vs_base>=vs_top){vs_top=sup;goto T1451;} |
if(vs_base>=vs_top){vs_top=sup;goto T1451;} |
4204 |
V625= vs_base[0]; |
V690= vs_base[0]; |
4205 |
vs_base++; |
vs_base++; |
4206 |
if(vs_base>=vs_top){vs_top=sup;goto T1452;} |
if(vs_base>=vs_top){vs_top=sup;goto T1452;} |
4207 |
V626= vs_base[0]; |
V691= vs_base[0]; |
4208 |
vs_top=sup; |
vs_top=sup; |
4209 |
goto T1453; |
goto T1453; |
4210 |
goto T1450; |
goto T1450; |
4211 |
T1450:; |
T1450:; |
4212 |
V624= Cnil; |
V689= Cnil; |
4213 |
goto T1451; |
goto T1451; |
4214 |
T1451:; |
T1451:; |
4215 |
V625= Cnil; |
V690= Cnil; |
4216 |
goto T1452; |
goto T1452; |
4217 |
T1452:; |
T1452:; |
4218 |
V626= Cnil; |
V691= Cnil; |
4219 |
goto T1453; |
goto T1453; |
4220 |
T1453:; |
T1453:; |
4221 |
{register object V627; |
{register object V692; |
4222 |
V627= (V621); |
V692= (V686); |
4223 |
if(((V621))==Cnil){ |
if(((V686))==Cnil){ |
4224 |
goto T1456;} |
goto T1456;} |
4225 |
if(!(type_of((V621))==t_symbol)){ |
if(!(type_of((V686))==t_symbol)){ |
4226 |
goto T1456;} |
goto T1456;} |
4227 |
(void)((*(LnkLI392))((V621),(V624),(V623))); |
(void)((*(LnkLI392))((V686),(V689),(V688))); |
4228 |
goto T1454; |
goto T1454; |
4229 |
goto T1456; |
goto T1456; |
4230 |
T1456:; |
T1456:; |
4231 |
V627= (VFUN_NARGS=0,(*(LnkLI335))()); |
V692= (VFUN_NARGS=0,(*(LnkLI335))()); |
4232 |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V627),(V624),VV[5]))); |
V693 = (V692); |
4233 |
(void)((*(LnkLI392))((V621),Cnil,(V623))); |
V694 = (V689); |
4234 |
|
(void)((VFUN_NARGS=3,(*(LnkLI371))(V693,V694,VV[5]))); |
4235 |
|
(void)((*(LnkLI392))((V686),Cnil,(V688))); |
4236 |
goto T1454; |
goto T1454; |
4237 |
T1454:; |
T1454:; |
4238 |
{object V628; |
{object V695; |
4239 |
object V629; |
object V696; |
4240 |
base[0]= (V627); |
base[0]= (V692); |
4241 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4242 |
(void) (*Lnk394)(); |
(void) (*Lnk394)(); |
4243 |
if(vs_base>=vs_top){vs_top=sup;goto T1464;} |
if(vs_base>=vs_top){vs_top=sup;goto T1464;} |
4244 |
V628= vs_base[0]; |
V695= vs_base[0]; |
4245 |
vs_base++; |
vs_base++; |
4246 |
if(vs_base>=vs_top){vs_top=sup;goto T1465;} |
if(vs_base>=vs_top){vs_top=sup;goto T1465;} |
4247 |
V629= vs_base[0]; |
V696= vs_base[0]; |
4248 |
vs_top=sup; |
vs_top=sup; |
4249 |
goto T1466; |
goto T1466; |
4250 |
goto T1464; |
goto T1464; |
4251 |
T1464:; |
T1464:; |
4252 |
V628= Cnil; |
V695= Cnil; |
4253 |
goto T1465; |
goto T1465; |
4254 |
T1465:; |
T1465:; |
4255 |
V629= Cnil; |
V696= Cnil; |
4256 |
goto T1466; |
goto T1466; |
4257 |
T1466:; |
T1466:; |
4258 |
{register object V630; |
{register object V697; |
4259 |
object V631; |
object V698; |
4260 |
V632= (((V621))==((V627))?Ct:Cnil); |
V699= (((V686))==((V692))?Ct:Cnil); |
4261 |
V633= list(2,VV[225],(V627)); |
V700= list(2,VV[225],(V692)); |
4262 |
V630= (*(LnkLI337))(/* INLINE-ARGS */V632,(V627),/* INLINE-ARGS */V633); |
V697= (*(LnkLI337))(/* INLINE-ARGS */V699,(V692),/* INLINE-ARGS */V700); |
4263 |
V631= (V630); |
V698= (V697); |
4264 |
if(((V625))==Cnil){ |
if(((V690))==Cnil){ |
4265 |
goto T1469;} |
goto T1469;} |
4266 |
if(!(type_of((V626))==t_cons||((V626))==Cnil)){ |
if(!(type_of((V691))==t_cons||((V691))==Cnil)){ |
4267 |
goto T1469;} |
goto T1469;} |
4268 |
V630= (((V626))==Cnil?Ct:Cnil); |
V697= (((V691))==Cnil?Ct:Cnil); |
4269 |
goto T1469; |
goto T1469; |
4270 |
T1469:; |
T1469:; |
4271 |
if(!(((V621))==((V627)))){ |
if(!(((V686))==((V692)))){ |
4272 |
goto T1476;} |
goto T1476;} |
4273 |
{object V634 = list(8,Cnil,list(2,(V627),(*(LnkLI337))(Ct,(V627),(V628))),(V631),Cnil,Cnil,Cnil,(V630),Cnil); |
V701 = (V692); |
4274 |
VMR83(V634)} |
{object V702 = list(8,Cnil,list(2,V701,(*(LnkLI337))(Ct,(V692),(V695))),(V698),Cnil,Cnil,Cnil,(V697),Cnil); |
4275 |
|
VMR83(V702)} |
4276 |
goto T1476; |
goto T1476; |
4277 |
T1476:; |
T1476:; |
4278 |
{object V635; |
{object V703; |
4279 |
object V636; |
object V704; |
4280 |
V635= list(2,(V621),(V627)); |
V703= list(2,(V686),(V692)); |
4281 |
V636= list(2,(V627),(V628)); |
V704= list(2,(V692),(V695)); |
4282 |
if(((((V630))==((V631))?Ct:Cnil))==Cnil){ |
V705 = (V698); |
4283 |
|
V706 = (V703); |
4284 |
|
V707 = (V704); |
4285 |
|
if(((((V697))==((V698))?Ct:Cnil))==Cnil){ |
4286 |
goto T1481;} |
goto T1481;} |
4287 |
V637= Cnil; |
V708= Cnil; |
4288 |
goto T1480; |
goto T1480; |
4289 |
goto T1481; |
goto T1481; |
4290 |
T1481:; |
T1481:; |
4291 |
V637= list(4,(V630),(V635),Cnil,(V636)); |
V708= list(4,(V697),(V703),Cnil,(V704)); |
4292 |
goto T1480; |
goto T1480; |
4293 |
T1480:; |
T1480:; |
4294 |
{object V638 = listA(5,(V631),(V635),Cnil,(V636),V637); |
{object V709 = listA(5,V705,V706,Cnil,V707,V708); |
4295 |
VMR83(V638)}}}}}} |
VMR83(V709)}}}}}} |
4296 |
base[0]=base[0]; |
base[0]=base[0]; |
4297 |
return Cnil; |
return Cnil; |
4298 |
} |
} |
4299 |
/* local entry for function LOOP-FOR-IN */ |
/* local entry for function LOOP-FOR-IN */ |
4300 |
|
|
4301 |
static object LI96(V642,V643,V644) |
static object LI96(V713,V714,V715) |
4302 |
|
|
4303 |
object V642;object V643;object V644; |
object V713;object V714;object V715; |
4304 |
{ VMB84 VMS84 VMV84 |
{ VMB84 VMS84 VMV84 |
4305 |
goto TTL; |
goto TTL; |
4306 |
TTL:; |
TTL:; |
4307 |
{object V645; |
{object V716; |
4308 |
object V646; |
object V717; |
4309 |
object V647; |
object V718; |
4310 |
base[0]= (V643); |
base[0]= (V714); |
4311 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4312 |
(void) (*Lnk393)(); |
(void) (*Lnk393)(); |
4313 |
if(vs_base>=vs_top){vs_top=sup;goto T1485;} |
if(vs_base>=vs_top){vs_top=sup;goto T1485;} |
4314 |
V645= vs_base[0]; |
V716= vs_base[0]; |
4315 |
vs_base++; |
vs_base++; |
4316 |
if(vs_base>=vs_top){vs_top=sup;goto T1486;} |
if(vs_base>=vs_top){vs_top=sup;goto T1486;} |
4317 |
V646= vs_base[0]; |
V717= vs_base[0]; |
4318 |
vs_base++; |
vs_base++; |
4319 |
if(vs_base>=vs_top){vs_top=sup;goto T1487;} |
if(vs_base>=vs_top){vs_top=sup;goto T1487;} |
4320 |
V647= vs_base[0]; |
V718= vs_base[0]; |
4321 |
vs_top=sup; |
vs_top=sup; |
4322 |
goto T1488; |
goto T1488; |
4323 |
goto T1485; |
goto T1485; |
4324 |
T1485:; |
T1485:; |
4325 |
V645= Cnil; |
V716= Cnil; |
4326 |
goto T1486; |
goto T1486; |
4327 |
T1486:; |
T1486:; |
4328 |
V646= Cnil; |
V717= Cnil; |
4329 |
goto T1487; |
goto T1487; |
4330 |
T1487:; |
T1487:; |
4331 |
V647= Cnil; |
V718= Cnil; |
4332 |
goto T1488; |
goto T1488; |
4333 |
T1488:; |
T1488:; |
4334 |
{register object V648; |
{register object V719; |
4335 |
V648= (VFUN_NARGS=1,(*(LnkLI335))(VV[226])); |
V719= (VFUN_NARGS=1,(*(LnkLI335))(VV[226])); |
4336 |
(void)((*(LnkLI392))((V642),Cnil,(V644))); |
(void)((*(LnkLI392))((V713),Cnil,(V715))); |
4337 |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V648),(V645),VV[5]))); |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V719),(V716),VV[5]))); |
4338 |
{object V649; |
{object V720; |
4339 |
object V650; |
object V721; |
4340 |
base[0]= (V648); |
base[0]= (V719); |
4341 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4342 |
(void) (*Lnk394)(); |
(void) (*Lnk394)(); |
4343 |
if(vs_base>=vs_top){vs_top=sup;goto T1494;} |
if(vs_base>=vs_top){vs_top=sup;goto T1494;} |
4344 |
V649= vs_base[0]; |
V720= vs_base[0]; |
4345 |
vs_base++; |
vs_base++; |
4346 |
if(vs_base>=vs_top){vs_top=sup;goto T1495;} |
if(vs_base>=vs_top){vs_top=sup;goto T1495;} |
4347 |
V650= vs_base[0]; |
V721= vs_base[0]; |
4348 |
vs_top=sup; |
vs_top=sup; |
4349 |
goto T1496; |
goto T1496; |
4350 |
goto T1494; |
goto T1494; |
4351 |
T1494:; |
T1494:; |
4352 |
V649= Cnil; |
V720= Cnil; |
4353 |
goto T1495; |
goto T1495; |
4354 |
T1495:; |
T1495:; |
4355 |
V650= Cnil; |
V721= Cnil; |
4356 |
goto T1496; |
goto T1496; |
4357 |
T1496:; |
T1496:; |
4358 |
{register object V651; |
{register object V722; |
4359 |
object V652; |
object V723; |
4360 |
object V653; |
object V724; |
4361 |
object V654; |
object V725; |
4362 |
V651= list(2,VV[227],(V648)); |
V722= list(2,VV[227],(V719)); |
4363 |
V652= (V651); |
V723= (V722); |
4364 |
V653= list(2,(V642),list(2,VV[65],(V648))); |
V724= list(2,(V713),list(2,VV[65],(V719))); |
4365 |
V654= list(2,(V648),(V649)); |
V725= list(2,(V719),(V720)); |
4366 |
if(((V646))==Cnil){ |
if(((V717))==Cnil){ |
4367 |
goto T1501;} |
goto T1501;} |
4368 |
if(!(type_of((V647))==t_cons||((V647))==Cnil)){ |
if(!(type_of((V718))==t_cons||((V718))==Cnil)){ |
4369 |
goto T1501;} |
goto T1501;} |
4370 |
V651= (((V647))==Cnil?Ct:Cnil); |
V722= (((V718))==Cnil?Ct:Cnil); |
4371 |
goto T1501; |
goto T1501; |
4372 |
T1501:; |
T1501:; |
4373 |
if(((((V651))==((V652))?Ct:Cnil))==Cnil){ |
V726 = (V723); |
4374 |
|
V727 = (V724); |
4375 |
|
V728 = (V725); |
4376 |
|
if(((((V722))==((V723))?Ct:Cnil))==Cnil){ |
4377 |
goto T1508;} |
goto T1508;} |
4378 |
V655= Cnil; |
V729= Cnil; |
4379 |
goto T1507; |
goto T1507; |
4380 |
goto T1508; |
goto T1508; |
4381 |
T1508:; |
T1508:; |
4382 |
V655= list(4,(V651),(V653),Cnil,(V654)); |
V729= list(4,(V722),(V724),Cnil,(V725)); |
4383 |
goto T1507; |
goto T1507; |
4384 |
T1507:; |
T1507:; |
4385 |
{object V656 = listA(5,(V652),(V653),Cnil,(V654),V655); |
{object V730 = listA(5,V726,V727,Cnil,V728,V729); |
4386 |
VMR84(V656)}}}}} |
VMR84(V730)}}}}} |
4387 |
base[0]=base[0]; |
base[0]=base[0]; |
4388 |
return Cnil; |
return Cnil; |
4389 |
} |
} |
4393 |
{ |
{ |
4394 |
va_list ap; |
va_list ap; |
4395 |
int narg = VFUN_NARGS; VMB85 VMS85 VMV85 |
int narg = VFUN_NARGS; VMB85 VMS85 VMV85 |
4396 |
{object V657; |
{object V731; |
4397 |
object V658; |
object V732; |
4398 |
object V659; |
object V733; |
4399 |
object V660; |
object V734; |
4400 |
object V661; |
object V735; |
4401 |
va_start(ap,first); |
va_start(ap,first); |
4402 |
narg= narg - 0; |
narg= narg - 0; |
4403 |
{ |
{ |
4404 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI97key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI97key,first,ap); |
4405 |
V657=(Vcs[0]); |
V731=(Vcs[0]); |
4406 |
V658=(Vcs[1]); |
V732=(Vcs[1]); |
4407 |
V659=(Vcs[2]); |
V733=(Vcs[2]); |
4408 |
V660=(Vcs[3]); |
V734=(Vcs[3]); |
4409 |
V661=(Vcs[4]); |
V735=(Vcs[4]); |
4410 |
base[0]= VV[228]; |
base[0]= VV[228]; |
4411 |
base[1]= (V657); |
base[1]= (V731); |
4412 |
base[2]= (V658); |
base[2]= (V732); |
4413 |
base[3]= (V659); |
base[3]= (V733); |
4414 |
base[4]= (V660); |
base[4]= (V734); |
4415 |
base[5]= (V661); |
base[5]= (V735); |
4416 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
4417 |
siLmake_structure(); |
siLmake_structure(); |
4418 |
vs_top=sup; |
vs_top=sup; |
4419 |
{object V662 = vs_base[0]; |
{object V736 = vs_base[0]; |
4420 |
VMR85(V662)} |
VMR85(V736)} |
4421 |
va_end(ap); |
va_end(ap); |
4422 |
base[0]=base[0]; |
base[0]=base[0]; |
4423 |
return Cnil;} |
return Cnil;} |
4424 |
}} |
}} |
4425 |
/* local entry for function ADD-LOOP-PATH */ |
/* local entry for function ADD-LOOP-PATH */ |
4426 |
|
|
4427 |
static object LI98(object V665,object V664,object V663,object first,...) |
static object LI98(object V739,object V738,object V737,object first,...) |
4428 |
{ |
{ |
4429 |
va_list ap; |
va_list ap; |
4430 |
int narg = VFUN_NARGS; VMB86 VMS86 VMV86 |
int narg = VFUN_NARGS; VMB86 VMS86 VMV86 |
4431 |
bds_check; |
bds_check; |
4432 |
{object V666; |
{object V740; |
4433 |
object V667; |
object V741; |
4434 |
register object V668; |
register object V742; |
4435 |
object V669; |
object V743; |
4436 |
object V670; |
object V744; |
4437 |
object V671; |
object V745; |
4438 |
va_start(ap,first); |
va_start(ap,first); |
4439 |
V666= V665; |
V740= V739; |
4440 |
V667= V664; |
V741= V738; |
4441 |
V668= V663; |
V742= V737; |
4442 |
narg= narg - 3; |
narg= narg - 3; |
4443 |
{ |
{ |
4444 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI98key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI98key,first,ap); |
4445 |
V669=(Vcs[3]); |
V743=(Vcs[3]); |
4446 |
V670=(Vcs[4]); |
V744=(Vcs[4]); |
4447 |
V671=(Vcs[5]); |
V745=(Vcs[5]); |
4448 |
if(type_of((V666))==t_cons||((V666))==Cnil){ |
if(type_of((V740))==t_cons||((V740))==Cnil){ |
4449 |
goto T1516;} |
goto T1516;} |
4450 |
V666= make_cons((V666),Cnil); |
V740= make_cons((V740),Cnil); |
4451 |
goto T1516; |
goto T1516; |
4452 |
T1516:; |
T1516:; |
4453 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
4454 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
4455 |
goto T1522; |
goto T1522; |
4456 |
T1522:; |
T1522:; |
4457 |
base[2]= (V668); |
base[2]= (V742); |
4458 |
base[3]= VV[39]; |
base[3]= VV[39]; |
4459 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4460 |
(void) (*Lnk395)(); |
(void) (*Lnk395)(); |
4469 |
base[2]= VV[47]; |
base[2]= VV[47]; |
4470 |
base[3]= VV[48]; |
base[3]= VV[48]; |
4471 |
base[4]= VV[229]; |
base[4]= VV[229]; |
4472 |
base[5]= (V668); |
base[5]= (V742); |
4473 |
base[6]= VV[39]; |
base[6]= VV[39]; |
4474 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
4475 |
Lcerror(); |
Lcerror(); |
4487 |
vs_base=vs_top; |
vs_base=vs_top; |
4488 |
Lread(); |
Lread(); |
4489 |
vs_top=sup; |
vs_top=sup; |
4490 |
V668= vs_base[0]; |
V742= vs_base[0]; |
4491 |
base[2]= (VV[50]->s.s_dbind); |
base[2]= (VV[50]->s.s_dbind); |
4492 |
base[3]= VV[52]; |
base[3]= VV[52]; |
4493 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4496 |
goto T1522; |
goto T1522; |
4497 |
goto T1520; |
goto T1520; |
4498 |
T1520:; |
T1520:; |
4499 |
{object V672; |
{object V746; |
4500 |
object V673; |
object V747; |
4501 |
V672= STREF(object,(V668),12); |
V746= STREF(object,(V742),12); |
4502 |
{object V675; |
{object V749; |
4503 |
object V676= (V666); |
object V750= (V740); |
4504 |
if(V676==Cnil){ |
if(V750==Cnil){ |
4505 |
V674= Cnil; |
V748= Cnil; |
4506 |
goto T1550;} |
goto T1550;} |
4507 |
base[0]=V675=MMcons(Cnil,Cnil); |
base[0]=V749=MMcons(Cnil,Cnil); |
4508 |
goto T1551; |
goto T1551; |
4509 |
T1551:; |
T1551:; |
4510 |
(V675->c.c_car)= symbol_name((V676->c.c_car)); |
(V749->c.c_car)= symbol_name((V750->c.c_car)); |
4511 |
if((V676=MMcdr(V676))==Cnil){ |
if((V750=MMcdr(V750))==Cnil){ |
4512 |
V674= base[0]; |
V748= base[0]; |
4513 |
goto T1550;} |
goto T1550;} |
4514 |
V675=MMcdr(V675)=MMcons(Cnil,Cnil); |
V749=MMcdr(V749)=MMcons(Cnil,Cnil); |
4515 |
goto T1551;} |
goto T1551;} |
4516 |
goto T1550; |
goto T1550; |
4517 |
T1550:; |
T1550:; |
4518 |
{object V678; |
V751 = (V741); |
4519 |
object V679= (V669); |
V752 = (V745); |
4520 |
if(V679==Cnil){ |
{object V754; |
4521 |
V677= Cnil; |
object V755= (V743); |
4522 |
|
if(V755==Cnil){ |
4523 |
|
V753= Cnil; |
4524 |
goto T1553;} |
goto T1553;} |
4525 |
base[0]=V678=MMcons(Cnil,Cnil); |
base[0]=V754=MMcons(Cnil,Cnil); |
4526 |
goto T1554; |
goto T1554; |
4527 |
T1554:; |
T1554:; |
4528 |
if(!(type_of((V679->c.c_car))==t_cons||((V679->c.c_car))==Cnil)){ |
if(!(type_of((V755->c.c_car))==t_cons||((V755->c.c_car))==Cnil)){ |
4529 |
goto T1557;} |
goto T1557;} |
4530 |
(V678->c.c_car)= (V679->c.c_car); |
(V754->c.c_car)= (V755->c.c_car); |
4531 |
goto T1555; |
goto T1555; |
4532 |
goto T1557; |
goto T1557; |
4533 |
T1557:; |
T1557:; |
4534 |
(V678->c.c_car)= make_cons((V679->c.c_car),Cnil); |
(V754->c.c_car)= make_cons((V755->c.c_car),Cnil); |
4535 |
goto T1555; |
goto T1555; |
4536 |
T1555:; |
T1555:; |
4537 |
if((V679=MMcdr(V679))==Cnil){ |
if((V755=MMcdr(V755))==Cnil){ |
4538 |
V677= base[0]; |
V753= base[0]; |
4539 |
goto T1553;} |
goto T1553;} |
4540 |
V678=MMcdr(V678)=MMcons(Cnil,Cnil); |
V754=MMcdr(V754)=MMcons(Cnil,Cnil); |
4541 |
goto T1554;} |
goto T1554;} |
4542 |
goto T1553; |
goto T1553; |
4543 |
T1553:; |
T1553:; |
4544 |
V673= (VFUN_NARGS=10,(*(LnkLI396))(VV[230],V674,VV[231],(V667),VV[232],(V671),VV[233],V677,VV[234],(V670))); |
V757 = (V744); |
4545 |
{register object V681; |
V747= (VFUN_NARGS=10,(*(LnkLI396))(VV[230],V748,VV[231],V751,VV[232],V752,VV[233],V753,VV[234],V757)); |
4546 |
register object V682; |
{register object V758; |
4547 |
V681= (V666); |
register object V759; |
4548 |
V682= CMPcar((V681)); |
V758= (V740); |
4549 |
|
V759= CMPcar((V758)); |
4550 |
goto T1563; |
goto T1563; |
4551 |
T1563:; |
T1563:; |
4552 |
if(!(((V681))==Cnil)){ |
if(!(((V758))==Cnil)){ |
4553 |
goto T1564;} |
goto T1564;} |
4554 |
goto T1559; |
goto T1559; |
4555 |
goto T1564; |
goto T1564; |
4556 |
T1564:; |
T1564:; |
4557 |
{register object V683; |
{register object V760; |
4558 |
register object V684; |
register object V761; |
4559 |
register object V685; |
register object V762; |
4560 |
V683= symbol_name((V682)); |
V760= symbol_name((V759)); |
4561 |
V684= (V672); |
V761= (V746); |
4562 |
V685= (V673); |
V762= (V747); |
4563 |
base[2]= (V683); |
base[2]= (V760); |
4564 |
base[3]= (V684); |
base[3]= (V761); |
4565 |
base[4]= (V685); |
base[4]= (V762); |
4566 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
4567 |
siLhash_set(); |
siLhash_set(); |
4568 |
vs_top=sup;} |
vs_top=sup;} |
4569 |
V681= CMPcdr((V681)); |
V758= CMPcdr((V758)); |
4570 |
V682= CMPcar((V681)); |
V759= CMPcar((V758)); |
4571 |
goto T1563;} |
goto T1563;} |
4572 |
goto T1559; |
goto T1559; |
4573 |
T1559:; |
T1559:; |
4574 |
{object V686 = (V673); |
{object V763 = (V747); |
4575 |
VMR86(V686)}} |
VMR86(V763)}} |
4576 |
va_end(ap); |
va_end(ap); |
4577 |
base[0]=base[0]; |
base[0]=base[0]; |
4578 |
return Cnil;} |
return Cnil;} |
4579 |
}} |
}} |
4580 |
/* local entry for function LOOP-FOR-BEING */ |
/* local entry for function LOOP-FOR-BEING */ |
4581 |
|
|
4582 |
static object LI99(V690,V691,V692) |
static object LI99(V767,V768,V769) |
4583 |
|
|
4584 |
object V690;object V691;object V692; |
object V767;object V768;object V769; |
4585 |
{ VMB87 VMS87 VMV87 |
{ VMB87 VMS87 VMV87 |
4586 |
goto TTL; |
goto TTL; |
4587 |
TTL:; |
TTL:; |
4588 |
{register object V693; |
{register object V770; |
4589 |
object V694; |
object V771; |
4590 |
object V695; |
object V772; |
4591 |
object V696; |
object V773; |
4592 |
object V697; |
object V774; |
4593 |
V693= Cnil; |
V770= Cnil; |
4594 |
V694= Cnil; |
V771= Cnil; |
4595 |
V695= Cnil; |
V772= Cnil; |
4596 |
V696= Cnil; |
V773= Cnil; |
4597 |
V697= Cnil; |
V774= Cnil; |
4598 |
if(((*(LnkLI362))((V691),VV[235]))==Cnil){ |
if(((*(LnkLI362))((V768),VV[235]))==Cnil){ |
4599 |
goto T1582;} |
goto T1582;} |
4600 |
vs_base=vs_top; |
vs_base=vs_top; |
4601 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
4602 |
vs_top=sup; |
vs_top=sup; |
4603 |
V693= vs_base[0]; |
V770= vs_base[0]; |
4604 |
goto T1580; |
goto T1580; |
4605 |
goto T1582; |
goto T1582; |
4606 |
T1582:; |
T1582:; |
4609 |
vs_base=vs_top; |
vs_base=vs_top; |
4610 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
4611 |
vs_top=sup; |
vs_top=sup; |
4612 |
V695= Ct; |
V772= Ct; |
4613 |
if(((*(LnkLI362))(CMPcar((VV[88]->s.s_dbind)),VV[236]))!=Cnil){ |
if(((*(LnkLI362))(CMPcar((VV[88]->s.s_dbind)),VV[236]))!=Cnil){ |
4614 |
goto T1591;} |
goto T1591;} |
4615 |
base[0]= VV[237]; |
base[0]= VV[237]; |
4625 |
vs_base=vs_top; |
vs_base=vs_top; |
4626 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
4627 |
vs_top=sup; |
vs_top=sup; |
4628 |
V693= vs_base[0]; |
V770= vs_base[0]; |
4629 |
V698= list(2,VV[238],(V691)); |
V775= list(2,VV[238],(V768)); |
4630 |
V697= make_cons(/* INLINE-ARGS */V698,Cnil); |
V774= make_cons(/* INLINE-ARGS */V775,Cnil); |
4631 |
goto T1580; |
goto T1580; |
4632 |
goto T1586; |
goto T1586; |
4633 |
T1586:; |
T1586:; |
4637 |
vs_top=sup; |
vs_top=sup; |
4638 |
goto T1580; |
goto T1580; |
4639 |
T1580:; |
T1580:; |
4640 |
if(type_of((V693))==t_symbol){ |
if(type_of((V770))==t_symbol){ |
4641 |
goto T1603;} |
goto T1603;} |
4642 |
base[0]= VV[240]; |
base[0]= VV[240]; |
4643 |
base[1]= (V693); |
base[1]= (V770); |
4644 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4645 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
4646 |
vs_top=sup; |
vs_top=sup; |
4647 |
goto T1601; |
goto T1601; |
4648 |
goto T1603; |
goto T1603; |
4649 |
T1603:; |
T1603:; |
4650 |
V694= (*(LnkLI360))((V693),STREF(object,(VV[99]->s.s_dbind),12)); |
V771= (*(LnkLI360))((V770),STREF(object,(VV[99]->s.s_dbind),12)); |
4651 |
if(((V694))!=Cnil){ |
if(((V771))!=Cnil){ |
4652 |
goto T1608;} |
goto T1608;} |
4653 |
base[0]= VV[241]; |
base[0]= VV[241]; |
4654 |
base[1]= (V693); |
base[1]= (V770); |
4655 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4656 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
4657 |
vs_top=sup; |
vs_top=sup; |
4658 |
goto T1601; |
goto T1601; |
4659 |
goto T1608; |
goto T1608; |
4660 |
T1608:; |
T1608:; |
4661 |
if(((V695))==Cnil){ |
if(((V772))==Cnil){ |
4662 |
goto T1601;} |
goto T1601;} |
4663 |
if((STREF(object,(V694),8))!=Cnil){ |
if((STREF(object,(V771),8))!=Cnil){ |
4664 |
goto T1601;} |
goto T1601;} |
4665 |
base[0]= VV[242]; |
base[0]= VV[242]; |
4666 |
base[1]= (V693); |
base[1]= (V770); |
4667 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4668 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
4669 |
vs_top=sup; |
vs_top=sup; |
4670 |
goto T1601; |
goto T1601; |
4671 |
T1601:; |
T1601:; |
4672 |
{object V699; |
{object V776; |
4673 |
object V700; |
object V777; |
4674 |
object V701; |
object V778; |
4675 |
V699= STREF(object,(V694),12); |
V776= STREF(object,(V771),12); |
4676 |
V702= (VFUN_NARGS=2,(*(LnkLI397))(STREF(object,(V694),4),Ct)); |
V779 = (V774); |
4677 |
V700= nconc((V697),/* INLINE-ARGS */V702); |
V780= (VFUN_NARGS=2,(*(LnkLI397))(STREF(object,(V771),4),Ct)); |
4678 |
V701= STREF(object,(V694),16); |
V777= nconc(V779,/* INLINE-ARGS */V780); |
4679 |
if(!(type_of((V699))==t_symbol)){ |
V778= STREF(object,(V771),16); |
4680 |
|
if(!(type_of((V776))==t_symbol)){ |
4681 |
goto T1623;} |
goto T1623;} |
4682 |
base[0]= (V699); |
base[0]= (V776); |
4683 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4684 |
Lsymbol_function(); |
Lsymbol_function(); |
4685 |
vs_top=sup; |
vs_top=sup; |
4686 |
V699= vs_base[0]; |
V776= vs_base[0]; |
4687 |
goto T1623; |
goto T1623; |
4688 |
T1623:; |
T1623:; |
4689 |
if(((V695))==Cnil){ |
if(((V772))==Cnil){ |
4690 |
goto T1630;} |
goto T1630;} |
4691 |
base[0]= (V699); |
base[0]= (V776); |
4692 |
base[1]= (V690); |
base[1]= (V767); |
4693 |
base[2]= (V692); |
base[2]= (V769); |
4694 |
base[3]= (V700); |
base[3]= (V777); |
4695 |
base[4]= VV[243]; |
base[4]= VV[243]; |
4696 |
base[5]= Ct; |
base[5]= Ct; |
4697 |
{object V703; |
{object V781; |
4698 |
V703= (V701); |
V781= (V778); |
4699 |
vs_top=base+6; |
vs_top=base+6; |
4700 |
while(V703!=Cnil) |
while(V781!=Cnil) |
4701 |
{vs_push((V703)->c.c_car);V703=(V703)->c.c_cdr;} |
{vs_push((V781)->c.c_car);V781=(V781)->c.c_cdr;} |
4702 |
vs_base=base+1;} |
vs_base=base+1;} |
4703 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
4704 |
vs_top=sup; |
vs_top=sup; |
4705 |
V696= vs_base[0]; |
V773= vs_base[0]; |
4706 |
goto T1628; |
goto T1628; |
4707 |
goto T1630; |
goto T1630; |
4708 |
T1630:; |
T1630:; |
4709 |
base[0]= (V699); |
base[0]= (V776); |
4710 |
base[1]= (V690); |
base[1]= (V767); |
4711 |
base[2]= (V692); |
base[2]= (V769); |
4712 |
base[3]= (V700); |
base[3]= (V777); |
4713 |
{object V704; |
{object V782; |
4714 |
V704= (V701); |
V782= (V778); |
4715 |
vs_top=base+4; |
vs_top=base+4; |
4716 |
while(V704!=Cnil) |
while(V782!=Cnil) |
4717 |
{vs_push((V704)->c.c_car);V704=(V704)->c.c_cdr;} |
{vs_push((V782)->c.c_car);V782=(V782)->c.c_cdr;} |
4718 |
vs_base=base+1;} |
vs_base=base+1;} |
4719 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
4720 |
vs_top=sup; |
vs_top=sup; |
4721 |
V696= vs_base[0]; |
V773= vs_base[0]; |
4722 |
goto T1628; |
goto T1628; |
4723 |
T1628:;} |
T1628:;} |
4724 |
if(((VV[104]->s.s_dbind))==Cnil){ |
if(((VV[104]->s.s_dbind))==Cnil){ |
4730 |
vs_top=sup; |
vs_top=sup; |
4731 |
goto T1644; |
goto T1644; |
4732 |
T1644:; |
T1644:; |
4733 |
V706 = CMPmake_fixnum((long)length((V696))); |
V784 = CMPmake_fixnum((long)length((V773))); |
4734 |
{register object x= V706,V705= VV[245]; |
{register object x= V784,V783= VV[245]; |
4735 |
while(V705!=Cnil) |
while(V783!=Cnil) |
4736 |
if(eql(x,V705->c.c_car)){ |
if(eql(x,V783->c.c_car)){ |
4737 |
goto T1649; |
goto T1649; |
4738 |
}else V705=V705->c.c_cdr;} |
}else V783=V783->c.c_cdr;} |
4739 |
base[0]= VV[246]; |
base[0]= VV[246]; |
4740 |
base[1]= (V693); |
base[1]= (V770); |
4741 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4742 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
4743 |
vs_top=sup; |
vs_top=sup; |
4744 |
goto T1649; |
goto T1649; |
4745 |
T1649:; |
T1649:; |
4746 |
{register object V707; |
{register object V785; |
4747 |
register object V708; |
register object V786; |
4748 |
V707= CMPcar((V696)); |
V785= CMPcar((V773)); |
4749 |
V708= Cnil; |
V786= Cnil; |
4750 |
goto T1657; |
goto T1657; |
4751 |
T1657:; |
T1657:; |
4752 |
if(((V707))!=Cnil){ |
if(((V785))!=Cnil){ |
4753 |
goto T1658;} |
goto T1658;} |
4754 |
goto T1654; |
goto T1654; |
4755 |
goto T1658; |
goto T1658; |
4756 |
T1658:; |
T1658:; |
4757 |
V708= CMPcar((V707)); |
V786= CMPcar((V785)); |
4758 |
if(!(type_of((V708))!=t_cons)){ |
V787 = (V786); |
4759 |
|
if(!(type_of(V787)!=t_cons)){ |
4760 |
goto T1664;} |
goto T1664;} |
4761 |
(void)((*(LnkLI392))((V708),Cnil,Cnil)); |
(void)((*(LnkLI392))((V786),Cnil,Cnil)); |
4762 |
goto T1662; |
goto T1662; |
4763 |
goto T1664; |
goto T1664; |
4764 |
T1664:; |
T1664:; |
4765 |
(void)((*(LnkLI392))(CMPcar((V708)),CMPcadr((V708)),CMPcaddr((V708)))); |
(void)((*(LnkLI392))(CMPcar((V786)),CMPcadr((V786)),CMPcaddr((V786)))); |
4766 |
goto T1662; |
goto T1662; |
4767 |
T1662:; |
T1662:; |
4768 |
V707= CMPcdr((V707)); |
V785= CMPcdr((V785)); |
4769 |
goto T1657;} |
goto T1657;} |
4770 |
goto T1654; |
goto T1654; |
4771 |
T1654:; |
T1654:; |
4772 |
V709= reverse(CMPcadr((V696))); |
V788= reverse(CMPcadr((V773))); |
4773 |
(VV[108]->s.s_dbind)= nconc(/* INLINE-ARGS */V709,(VV[108]->s.s_dbind)); |
(VV[108]->s.s_dbind)= nconc(/* INLINE-ARGS */V788,(VV[108]->s.s_dbind)); |
4774 |
{object V710 = CMPcddr((V696)); |
{object V789 = CMPcddr((V773)); |
4775 |
VMR87(V710)}} |
VMR87(V789)}} |
4776 |
base[0]=base[0]; |
base[0]=base[0]; |
4777 |
return Cnil; |
return Cnil; |
4778 |
} |
} |
4782 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4783 |
register object *sup=base+VM88; VC88 |
register object *sup=base+VM88; VC88 |
4784 |
vs_check; |
vs_check; |
4785 |
{object V711; |
{object V790; |
4786 |
V711=(base[0]); |
V790=(base[0]); |
4787 |
vs_top=sup; |
vs_top=sup; |
4788 |
goto TTL; |
goto TTL; |
4789 |
TTL:; |
TTL:; |
4790 |
{object V712; |
{object V791; |
4791 |
V712= (*(LnkLI398))((V711),(VV[104]->s.s_dbind)); |
V791= (*(LnkLI398))((V790),(VV[104]->s.s_dbind)); |
4792 |
if(((V712))!=Cnil){ |
if(((V791))!=Cnil){ |
4793 |
goto T1674;} |
goto T1674;} |
4794 |
base[1]= (VFUN_NARGS=0,(*(LnkLI335))()); |
base[1]= (VFUN_NARGS=0,(*(LnkLI335))()); |
4795 |
base[2]= Cnil; |
base[2]= Cnil; |
4797 |
return; |
return; |
4798 |
goto T1674; |
goto T1674; |
4799 |
T1674:; |
T1674:; |
4800 |
base[1]= (V712); |
base[1]= (V791); |
4801 |
base[2]= (VV[104]->s.s_dbind); |
base[2]= (VV[104]->s.s_dbind); |
4802 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4803 |
(void) (*Lnk399)(); |
(void) (*Lnk399)(); |
4804 |
vs_top=sup; |
vs_top=sup; |
4805 |
(VV[104]->s.s_dbind)= vs_base[0]; |
(VV[104]->s.s_dbind)= vs_base[0]; |
4806 |
base[1]= CMPcdr((V712)); |
base[1]= CMPcdr((V791)); |
4807 |
base[2]= Ct; |
base[2]= Ct; |
4808 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4809 |
return;} |
return;} |
4811 |
} |
} |
4812 |
/* local entry for function LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
/* local entry for function LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
4813 |
|
|
4814 |
static object LI101(object V713,object first,...) |
static object LI101(object V792,object first,...) |
4815 |
{ |
{ |
4816 |
va_list ap; |
va_list ap; |
4817 |
int narg = VFUN_NARGS; VMB89 VMS89 VMV89 |
int narg = VFUN_NARGS; VMB89 VMS89 VMV89 |
4818 |
{object V714; |
{object V793; |
4819 |
object V715; |
object V794; |
4820 |
object V716; |
object V795; |
4821 |
va_start(ap,first); |
va_start(ap,first); |
4822 |
V714= V713; |
V793= V792; |
4823 |
narg = narg - 1; |
narg = narg - 1; |
4824 |
if (narg <= 0) goto T1684; |
if (narg <= 0) goto T1684; |
4825 |
else { |
else { |
4826 |
V715= first;} |
V794= first;} |
4827 |
if (--narg <= 0) goto T1685; |
if (--narg <= 0) goto T1685; |
4828 |
else { |
else { |
4829 |
V716= va_arg(ap,object);} |
V795= va_arg(ap,object);} |
4830 |
--narg; goto T1686; |
--narg; goto T1686; |
4831 |
goto T1684; |
goto T1684; |
4832 |
T1684:; |
T1684:; |
4833 |
V715= Cnil; |
V794= Cnil; |
4834 |
goto T1685; |
goto T1685; |
4835 |
T1685:; |
T1685:; |
4836 |
V716= Cnil; |
V795= Cnil; |
4837 |
goto T1686; |
goto T1686; |
4838 |
T1686:; |
T1686:; |
4839 |
base[0]=make_cclosure_new(LC102,Cnil,Cnil,Cdata); |
base[0]=make_cclosure_new(LC102,Cnil,Cnil,Cdata); |
4840 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
4841 |
{object V717; |
{object V796; |
4842 |
object V718; |
object V797; |
4843 |
register object V719; |
register object V798; |
4844 |
register object V720; |
register object V799; |
4845 |
object V721; |
object V800; |
4846 |
object V722; |
object V801; |
4847 |
{object V723; |
{object V802; |
4848 |
object V724= (V716); |
object V803= (V795); |
4849 |
if(V724==Cnil){ |
if(V803==Cnil){ |
4850 |
V721= Cnil; |
V800= Cnil; |
4851 |
goto T1689;} |
goto T1689;} |
4852 |
base[1]=V723=MMcons(Cnil,Cnil); |
base[1]=V802=MMcons(Cnil,Cnil); |
4853 |
goto T1690; |
goto T1690; |
4854 |
T1690:; |
T1690:; |
4855 |
base[3]= CMPcar((V724->c.c_car)); |
base[3]= CMPcar((V803->c.c_car)); |
4856 |
base[4]= (V714); |
base[4]= (V793); |
4857 |
base[5]= VV[20]; |
base[5]= VV[20]; |
4858 |
base[6]= (base[0]->c.c_car); |
base[6]= (base[0]->c.c_car); |
4859 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
4863 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4864 |
Lcopy_list(); |
Lcopy_list(); |
4865 |
vs_top=sup; |
vs_top=sup; |
4866 |
(V723->c.c_cdr)= vs_base[0]; |
(V802->c.c_cdr)= vs_base[0]; |
4867 |
while(MMcdr(V723)!=Cnil)V723=MMcdr(V723); |
while(MMcdr(V802)!=Cnil)V802=MMcdr(V802); |
4868 |
if((V724=MMcdr(V724))==Cnil){ |
if((V803=MMcdr(V803))==Cnil){ |
4869 |
base[1]=base[1]->c.c_cdr; |
base[1]=base[1]->c.c_cdr; |
4870 |
V721= base[1]; |
V800= base[1]; |
4871 |
goto T1689;} |
goto T1689;} |
4872 |
goto T1690;} |
goto T1690;} |
4873 |
goto T1689; |
goto T1689; |
4874 |
T1689:; |
T1689:; |
4875 |
{object V726; |
{object V805; |
4876 |
object V727= (V716); |
object V806= (V795); |
4877 |
if(V727==Cnil){ |
if(V806==Cnil){ |
4878 |
V722= Cnil; |
V801= Cnil; |
4879 |
goto T1697;} |
goto T1697;} |
4880 |
base[1]=V726=MMcons(Cnil,Cnil); |
base[1]=V805=MMcons(Cnil,Cnil); |
4881 |
goto T1698; |
goto T1698; |
4882 |
T1698:; |
T1698:; |
4883 |
(V726->c.c_car)= CMPcar((V727->c.c_car)); |
(V805->c.c_car)= CMPcar((V806->c.c_car)); |
4884 |
if((V727=MMcdr(V727))==Cnil){ |
if((V806=MMcdr(V806))==Cnil){ |
4885 |
V722= base[1]; |
V801= base[1]; |
4886 |
goto T1697;} |
goto T1697;} |
4887 |
V726=MMcdr(V726)=MMcons(Cnil,Cnil); |
V805=MMcdr(V805)=MMcons(Cnil,Cnil); |
4888 |
goto T1698;} |
goto T1698;} |
4889 |
goto T1697; |
goto T1697; |
4890 |
T1697:; |
T1697:; |
4891 |
V717= Cnil; |
V796= Cnil; |
4892 |
V718= (V716); |
V797= (V795); |
4893 |
V719= Cnil; |
V798= Cnil; |
4894 |
V720= Cnil; |
V799= Cnil; |
4895 |
goto T1701; |
goto T1701; |
4896 |
T1701:; |
T1701:; |
4897 |
if(((VV[88]->s.s_dbind))!=Cnil){ |
if(((VV[88]->s.s_dbind))!=Cnil){ |
4898 |
goto T1702;} |
goto T1702;} |
4899 |
{object V728 = nreverse((V718)); |
{object V807 = nreverse((V797)); |
4900 |
VMR89(V728)} |
VMR89(V807)} |
4901 |
goto T1702; |
goto T1702; |
4902 |
T1702:; |
T1702:; |
4903 |
V717= CMPcar((VV[88]->s.s_dbind)); |
V796= CMPcar((VV[88]->s.s_dbind)); |
4904 |
{register object V729; |
{register object V808; |
4905 |
register object V730; |
register object V809; |
4906 |
V729= (V714); |
V808= (V793); |
4907 |
V730= CMPcar((V729)); |
V809= CMPcar((V808)); |
4908 |
goto T1712; |
goto T1712; |
4909 |
T1712:; |
T1712:; |
4910 |
if(!(((V729))==Cnil)){ |
if(!(((V808))==Cnil)){ |
4911 |
goto T1713;} |
goto T1713;} |
4912 |
goto T1708; |
goto T1708; |
4913 |
goto T1713; |
goto T1713; |
4914 |
T1713:; |
T1713:; |
4915 |
base[2]= (V717); |
base[2]= (V796); |
4916 |
base[3]= (V730); |
base[3]= (V809); |
4917 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4918 |
L102(base); |
L102(base); |
4919 |
vs_top=sup; |
vs_top=sup; |
4920 |
V720= vs_base[0]; |
V799= vs_base[0]; |
4921 |
if(((V720))==Cnil){ |
if(((V799))==Cnil){ |
4922 |
goto T1717;} |
goto T1717;} |
4923 |
V719= (V730); |
V798= (V809); |
4924 |
goto T1708; |
goto T1708; |
4925 |
goto T1717; |
goto T1717; |
4926 |
T1717:; |
T1717:; |
4927 |
V729= CMPcdr((V729)); |
V808= CMPcdr((V808)); |
4928 |
V730= CMPcar((V729)); |
V809= CMPcar((V808)); |
4929 |
goto T1712;} |
goto T1712;} |
4930 |
goto T1708; |
goto T1708; |
4931 |
T1708:; |
T1708:; |
4932 |
if(((V719))==Cnil){ |
if(((V798))==Cnil){ |
4933 |
goto T1731;} |
goto T1731;} |
4934 |
{register object x= (V720),V731= (V721); |
{register object x= (V799),V810= (V800); |
4935 |
while(V731!=Cnil) |
while(V810!=Cnil) |
4936 |
if(eql(x,V731->c.c_car)){ |
if(eql(x,V810->c.c_car)){ |
4937 |
goto T1735; |
goto T1735; |
4938 |
}else V731=V731->c.c_cdr; |
}else V810=V810->c.c_cdr; |
4939 |
goto T1733;} |
goto T1733;} |
4940 |
goto T1735; |
goto T1735; |
4941 |
T1735:; |
T1735:; |
4942 |
{register object x= (V720),V732= (V722); |
{register object x= (V799),V811= (V801); |
4943 |
while(V732!=Cnil) |
while(V811!=Cnil) |
4944 |
if(eql(x,V732->c.c_car)){ |
if(eql(x,V811->c.c_car)){ |
4945 |
goto T1739; |
goto T1739; |
4946 |
}else V732=V732->c.c_cdr; |
}else V811=V811->c.c_cdr; |
4947 |
goto T1738;} |
goto T1738;} |
4948 |
goto T1739; |
goto T1739; |
4949 |
T1739:; |
T1739:; |
4954 |
base[1]= VV[248]; |
base[1]= VV[248]; |
4955 |
goto T1736; |
goto T1736; |
4956 |
T1736:; |
T1736:; |
4957 |
base[2]= (V717); |
base[2]= (V796); |
4958 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4959 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
4960 |
vs_top=sup; |
vs_top=sup; |
4961 |
goto T1733; |
goto T1733; |
4962 |
T1733:; |
T1733:; |
4963 |
if(!(type_of((V719))==t_cons||((V719))==Cnil)){ |
if(!(type_of((V798))==t_cons||((V798))==Cnil)){ |
4964 |
goto T1744;} |
goto T1744;} |
4965 |
V722= append((V719),(V722)); |
V801= append((V798),(V801)); |
4966 |
goto T1742; |
goto T1742; |
4967 |
goto T1744; |
goto T1744; |
4968 |
T1744:; |
T1744:; |
4969 |
V722= make_cons((V719),(V722)); |
V801= make_cons((V798),(V801)); |
4970 |
goto T1742; |
goto T1742; |
4971 |
T1742:; |
T1742:; |
4972 |
vs_base=vs_top; |
vs_base=vs_top; |
4973 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
4974 |
vs_top=sup; |
vs_top=sup; |
4975 |
{object V733; |
{object V812; |
4976 |
|
V813 = (V799); |
4977 |
vs_base=vs_top; |
vs_base=vs_top; |
4978 |
(void) (*Lnk363)(); |
(void) (*Lnk363)(); |
4979 |
vs_top=sup; |
vs_top=sup; |
4980 |
V734= vs_base[0]; |
V814= vs_base[0]; |
4981 |
V733= list(2,(V720),V734); |
V812= list(2,V813,V814); |
4982 |
V718= make_cons((V733),(V718)); |
V797= make_cons((V812),(V797)); |
4983 |
goto T1729;} |
goto T1729;} |
4984 |
goto T1731; |
goto T1731; |
4985 |
T1731:; |
T1731:; |
4986 |
if(((V715))==Cnil){ |
if(((V794))==Cnil){ |
4987 |
goto T1751;} |
goto T1751;} |
4988 |
if(((*(LnkLI369))((V717),VV[249]))==Cnil){ |
if(((*(LnkLI369))((V796),VV[249]))==Cnil){ |
4989 |
goto T1751;} |
goto T1751;} |
4990 |
vs_base=vs_top; |
vs_base=vs_top; |
4991 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
4992 |
vs_top=sup; |
vs_top=sup; |
4993 |
{register object V735; |
{register object V815; |
4994 |
object V736; |
object V816; |
4995 |
vs_base=vs_top; |
vs_base=vs_top; |
4996 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
4997 |
vs_top=sup; |
vs_top=sup; |
4998 |
V735= vs_base[0]; |
V815= vs_base[0]; |
4999 |
V736= Cnil; |
V816= Cnil; |
5000 |
goto T1758; |
goto T1758; |
5001 |
T1758:; |
T1758:; |
5002 |
if((CMPcadr((V735)))==Cnil){ |
if((CMPcadr((V815)))==Cnil){ |
5003 |
goto T1761;} |
goto T1761;} |
5004 |
V736= (*(LnkLI398))(CMPcar((V735)),(VV[104]->s.s_dbind)); |
V816= (*(LnkLI398))(CMPcar((V815)),(VV[104]->s.s_dbind)); |
5005 |
if(((V736))==Cnil){ |
if(((V816))==Cnil){ |
5006 |
goto T1765;} |
goto T1765;} |
5007 |
base[1]= VV[250]; |
base[1]= VV[250]; |
5008 |
base[2]= CMPcar((V735)); |
base[2]= CMPcar((V815)); |
5009 |
base[3]= CMPcadr((V735)); |
base[3]= CMPcadr((V815)); |
5010 |
base[4]= CMPcadr((V736)); |
base[4]= CMPcadr((V816)); |
5011 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
5012 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
5013 |
vs_top=sup; |
vs_top=sup; |
5014 |
goto T1761; |
goto T1761; |
5015 |
goto T1765; |
goto T1765; |
5016 |
T1765:; |
T1765:; |
5017 |
{object V737; |
{object V817; |
5018 |
V737= make_cons(CMPcar((V735)),CMPcadr((V735))); |
V817= make_cons(CMPcar((V815)),CMPcadr((V815))); |
5019 |
(VV[104]->s.s_dbind)= make_cons((V737),(VV[104]->s.s_dbind));} |
(VV[104]->s.s_dbind)= make_cons((V817),(VV[104]->s.s_dbind));} |
5020 |
goto T1761; |
goto T1761; |
5021 |
T1761:; |
T1761:; |
5022 |
if(((VV[88]->s.s_dbind))==Cnil){ |
if(((VV[88]->s.s_dbind))==Cnil){ |
5031 |
vs_base=vs_top; |
vs_base=vs_top; |
5032 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
5033 |
vs_top=sup; |
vs_top=sup; |
5034 |
V735= vs_base[0]; |
V815= vs_base[0]; |
5035 |
goto T1758;} |
goto T1758;} |
5036 |
goto T1751; |
goto T1751; |
5037 |
T1751:; |
T1751:; |
5038 |
{object V738 = nreverse((V718)); |
{object V818 = nreverse((V797)); |
5039 |
VMR89(V738)} |
VMR89(V818)} |
5040 |
goto T1729; |
goto T1729; |
5041 |
T1729:; |
T1729:; |
5042 |
V719= Cnil; |
V798= Cnil; |
5043 |
V720= Cnil; |
V799= Cnil; |
5044 |
goto T1701;} |
goto T1701;} |
5045 |
va_end(ap); |
va_end(ap); |
5046 |
base[0]=base[0]; |
base[0]=base[0]; |
5048 |
} |
} |
5049 |
/* local entry for function LOOP-SEQUENCER */ |
/* local entry for function LOOP-SEQUENCER */ |
5050 |
|
|
5051 |
static object LI103(V749,V750,V751,V752,V753,V754,V755,V756,V757,V758) |
static object LI103(V829,V830,V831,V832,V833,V834,V835,V836,V837,V838) |
5052 |
|
|
5053 |
object V749;register object V750;object V751;object V752;object V753;object V754;object V755;object V756;object V757;object V758; |
object V829;register object V830;object V831;object V832;object V833;object V834;object V835;object V836;object V837;object V838; |
5054 |
{ VMB90 VMS90 VMV90 |
{ VMB90 VMS90 VMV90 |
5055 |
goto TTL; |
goto TTL; |
5056 |
TTL:; |
TTL:; |
5057 |
{object V759; |
{object V839; |
5058 |
object V760; |
object V840; |
5059 |
object V761; |
object V841; |
5060 |
object V762; |
object V842; |
5061 |
object V763; |
object V843; |
5062 |
object V764; |
object V844; |
5063 |
object V765; |
object V845; |
5064 |
register object V766; |
register object V846; |
5065 |
register object V767; |
register object V847; |
5066 |
object V768; |
object V848; |
5067 |
object V769; |
object V849; |
5068 |
object V770; |
object V850; |
5069 |
object V771; |
object V851; |
5070 |
object V772; |
object V852; |
5071 |
object V773;{object V775; |
object V853;{object V855; |
5072 |
V775= (*(LnkLI336))((V750)); |
V855= (*(LnkLI336))((V830)); |
5073 |
if(V775==Cnil)goto T1788; |
if(V855==Cnil)goto T1788; |
5074 |
V774= V775; |
V854= V855; |
5075 |
goto T1787; |
goto T1787; |
5076 |
goto T1788; |
goto T1788; |
5077 |
T1788:;} |
T1788:;} |
5078 |
V774= small_fixnum(0); |
V854= small_fixnum(0); |
5079 |
goto T1787; |
goto T1787; |
5080 |
T1787:; |
T1787:; |
5081 |
V763= one_plus(V774); |
V843= one_plus(V854); |
5082 |
V759= Cnil; |
V839= Cnil; |
5083 |
V760= Cnil; |
V840= Cnil; |
5084 |
V761= Cnil; |
V841= Cnil; |
5085 |
V762= Cnil; |
V842= Cnil; |
5086 |
V764= Ct; |
V844= Ct; |
5087 |
V765= Cnil; |
V845= Cnil; |
5088 |
V766= Cnil; |
V846= Cnil; |
5089 |
V767= Cnil; |
V847= Cnil; |
5090 |
V768= Cnil; |
V848= Cnil; |
5091 |
V769= Cnil; |
V849= Cnil; |
5092 |
V770= Cnil; |
V850= Cnil; |
5093 |
V771= Cnil; |
V851= Cnil; |
5094 |
V772= Cnil; |
V852= Cnil; |
5095 |
V773= Cnil; |
V853= Cnil; |
5096 |
if(((V752))==Cnil){ |
if(((V832))==Cnil){ |
5097 |
goto T1790;} |
goto T1790;} |
5098 |
(void)((*(LnkLI392))((V752),Cnil,(V753))); |
(void)((*(LnkLI392))((V832),Cnil,(V833))); |
5099 |
goto T1790; |
goto T1790; |
5100 |
T1790:; |
T1790:; |
5101 |
{register object V776; |
{register object V856; |
5102 |
register object V777; |
register object V857; |
5103 |
register object V778; |
register object V858; |
5104 |
object V779; |
object V859; |
5105 |
V776= (V758); |
V856= (V838); |
5106 |
V777= Cnil; |
V857= Cnil; |
5107 |
V778= Cnil; |
V858= Cnil; |
5108 |
V779= Cnil; |
V859= Cnil; |
5109 |
goto T1795; |
goto T1795; |
5110 |
T1795:; |
T1795:; |
5111 |
if(((V776))!=Cnil){ |
if(((V856))!=Cnil){ |
5112 |
goto T1796;} |
goto T1796;} |
5113 |
goto T1793; |
goto T1793; |
5114 |
goto T1796; |
goto T1796; |
5115 |
T1796:; |
T1796:; |
5116 |
V777= CMPcaar((V776)); |
V857= CMPcaar((V856)); |
5117 |
V778= CMPcadar((V776)); |
V858= CMPcadar((V856)); |
5118 |
{object V780= (V777); |
{object V860= (V857); |
5119 |
if((V780!= VV[400]) |
if((V860!= VV[400]) |
5120 |
&& (V780!= VV[238]))goto T1805; |
&& (V860!= VV[238]))goto T1805; |
5121 |
V760= Ct; |
V840= Ct; |
5122 |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V754),(V778),(V755)))); |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V834),(V858),(V835)))); |
5123 |
goto T1804; |
goto T1804; |
5124 |
goto T1805; |
goto T1805; |
5125 |
T1805:; |
T1805:; |
5126 |
if((V780!= VV[401]) |
if((V860!= VV[401]) |
5127 |
&& (V780!= VV[251]) |
&& (V860!= VV[251]) |
5128 |
&& (V780!= VV[253]))goto T1808; |
&& (V860!= VV[253]))goto T1808; |
5129 |
V768= Ct; |
V848= Ct; |
5130 |
if(!(((V777))==(VV[251]))){ |
if(!(((V857))==(VV[251]))){ |
5131 |
goto T1813;} |
goto T1813;} |
5132 |
V766= VV[252]; |
V846= VV[252]; |
5133 |
goto T1811; |
goto T1811; |
5134 |
goto T1813; |
goto T1813; |
5135 |
T1813:; |
T1813:; |
5136 |
if(!(((V777))==(VV[253]))){ |
if(!(((V857))==(VV[253]))){ |
5137 |
goto T1811;} |
goto T1811;} |
5138 |
V766= VV[254]; |
V846= VV[254]; |
5139 |
goto T1811; |
goto T1811; |
5140 |
T1811:; |
T1811:; |
5141 |
base[0]= (V778); |
base[0]= (V858); |
5142 |
base[1]= (V750); |
base[1]= (V830); |
5143 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5144 |
(void) (*Lnk393)(); |
(void) (*Lnk393)(); |
5145 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5146 |
V778= vs_base[0]; |
V858= vs_base[0]; |
5147 |
vs_base++; |
vs_base++; |
5148 |
}else{ |
}else{ |
5149 |
V778= Cnil;} |
V858= Cnil;} |
5150 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5151 |
V770= vs_base[0]; |
V850= vs_base[0]; |
5152 |
vs_base++; |
vs_base++; |
5153 |
}else{ |
}else{ |
5154 |
V770= Cnil;} |
V850= Cnil;} |
5155 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5156 |
V769= vs_base[0]; |
V849= vs_base[0]; |
5157 |
}else{ |
}else{ |
5158 |
V769= Cnil;} |
V849= Cnil;} |
5159 |
vs_top=sup; |
vs_top=sup; |
5160 |
(void)((*(LnkLI392))((V749),(V778),(V750))); |
(void)((*(LnkLI392))((V829),(V858),(V830))); |
5161 |
goto T1804; |
goto T1804; |
5162 |
goto T1808; |
goto T1808; |
5163 |
T1808:; |
T1808:; |
5164 |
if((V780!= VV[255]) |
if((V860!= VV[255]) |
5165 |
&& (V780!= VV[256]) |
&& (V860!= VV[256]) |
5166 |
&& (V780!= VV[257]) |
&& (V860!= VV[257]) |
5167 |
&& (V780!= VV[258]) |
&& (V860!= VV[258]) |
5168 |
&& (V780!= VV[259]))goto T1823; |
&& (V860!= VV[259]))goto T1823; |
5169 |
if(((*(LnkLI369))((V777),VV[255]))==Cnil){ |
if(((*(LnkLI369))((V857),VV[255]))==Cnil){ |
5170 |
goto T1826;} |
goto T1826;} |
5171 |
V766= VV[254]; |
V846= VV[254]; |
5172 |
V767= VV[254]; |
V847= VV[254]; |
5173 |
goto T1824; |
goto T1824; |
5174 |
goto T1826; |
goto T1826; |
5175 |
T1826:; |
T1826:; |
5176 |
if(((*(LnkLI369))((V777),VV[256]))==Cnil){ |
if(((*(LnkLI369))((V857),VV[256]))==Cnil){ |
5177 |
goto T1831;} |
goto T1831;} |
5178 |
V767= Ct; |
V847= Ct; |
5179 |
goto T1824; |
goto T1824; |
5180 |
goto T1831; |
goto T1831; |
5181 |
T1831:; |
T1831:; |
5182 |
if(((*(LnkLI369))((V777),VV[257]))==Cnil){ |
if(((*(LnkLI369))((V857),VV[257]))==Cnil){ |
5183 |
goto T1835;} |
goto T1835;} |
5184 |
V766= VV[252]; |
V846= VV[252]; |
5185 |
V767= VV[252]; |
V847= VV[252]; |
5186 |
goto T1824; |
goto T1824; |
5187 |
goto T1835; |
goto T1835; |
5188 |
T1835:; |
T1835:; |
5189 |
if(((*(LnkLI369))((V777),VV[258]))==Cnil){ |
if(((*(LnkLI369))((V857),VV[258]))==Cnil){ |
5190 |
goto T1840;} |
goto T1840;} |
5191 |
V766= VV[252]; |
V846= VV[252]; |
5192 |
goto T1824; |
goto T1824; |
5193 |
goto T1840; |
goto T1840; |
5194 |
T1840:; |
T1840:; |
5195 |
if(((*(LnkLI369))((V777),VV[259]))==Cnil){ |
if(((*(LnkLI369))((V857),VV[259]))==Cnil){ |
5196 |
goto T1824;} |
goto T1824;} |
5197 |
V766= VV[254]; |
V846= VV[254]; |
5198 |
goto T1824; |
goto T1824; |
5199 |
T1824:; |
T1824:; |
5200 |
V771= Ct; |
V851= Ct; |
5201 |
base[0]= (V778); |
base[0]= (V858); |
5202 |
base[1]= (V750); |
base[1]= (V830); |
5203 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5204 |
(void) (*Lnk393)(); |
(void) (*Lnk393)(); |
5205 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5206 |
V778= vs_base[0]; |
V858= vs_base[0]; |
5207 |
vs_base++; |
vs_base++; |
5208 |
}else{ |
}else{ |
5209 |
V778= Cnil;} |
V858= Cnil;} |
5210 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5211 |
V772= vs_base[0]; |
V852= vs_base[0]; |
5212 |
vs_base++; |
vs_base++; |
5213 |
}else{ |
}else{ |
5214 |
V772= Cnil;} |
V852= Cnil;} |
5215 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5216 |
V773= vs_base[0]; |
V853= vs_base[0]; |
5217 |
}else{ |
}else{ |
5218 |
V773= Cnil;} |
V853= Cnil;} |
5219 |
vs_top=sup; |
vs_top=sup; |
5220 |
if(((V772))==Cnil){ |
if(((V852))==Cnil){ |
5221 |
goto T1854;} |
goto T1854;} |
5222 |
V759= list(2,VV[221],(V773)); |
V839= list(2,VV[221],(V853)); |
5223 |
goto T1852; |
goto T1852; |
5224 |
goto T1854; |
goto T1854; |
5225 |
T1854:; |
T1854:; |
5226 |
V781= (VFUN_NARGS=1,(*(LnkLI335))(VV[260])); |
V861= (VFUN_NARGS=1,(*(LnkLI335))(VV[260])); |
5227 |
V759= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V781,(V778),(V750))); |
V862 = (V858); |
5228 |
|
V863 = (V830); |
5229 |
|
V839= (VFUN_NARGS=3,(*(LnkLI371))(/* INLINE-ARGS */V861,V862,V863)); |
5230 |
goto T1852; |
goto T1852; |
5231 |
T1852:; |
T1852:; |
5232 |
goto T1804; |
goto T1804; |
5233 |
goto T1823; |
goto T1823; |
5234 |
T1823:; |
T1823:; |
5235 |
if((V780!= VV[219]))goto T1856; |
if((V860!= VV[219]))goto T1856; |
5236 |
base[0]= (V778); |
base[0]= (V858); |
5237 |
base[1]= (V750); |
base[1]= (V830); |
5238 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5239 |
(void) (*Lnk393)(); |
(void) (*Lnk393)(); |
5240 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5241 |
V778= vs_base[0]; |
V858= vs_base[0]; |
5242 |
vs_base++; |
vs_base++; |
5243 |
}else{ |
}else{ |
5244 |
V778= Cnil;} |
V858= Cnil;} |
5245 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5246 |
V764= vs_base[0]; |
V844= vs_base[0]; |
5247 |
vs_base++; |
vs_base++; |
5248 |
}else{ |
}else{ |
5249 |
V764= Cnil;} |
V844= Cnil;} |
5250 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5251 |
V763= vs_base[0]; |
V843= vs_base[0]; |
5252 |
}else{ |
}else{ |
5253 |
V763= Cnil;} |
V843= Cnil;} |
5254 |
vs_top=sup; |
vs_top=sup; |
5255 |
if(((V764))!=Cnil){ |
if(((V844))!=Cnil){ |
5256 |
goto T1804;} |
goto T1804;} |
5257 |
V763= (VFUN_NARGS=1,(*(LnkLI335))(VV[261])); |
V843= (VFUN_NARGS=1,(*(LnkLI335))(VV[261])); |
5258 |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V763),(V778),(V750)))); |
V864 = (V843); |
5259 |
|
V865 = (V858); |
5260 |
|
V866 = (V830); |
5261 |
|
(void)((VFUN_NARGS=3,(*(LnkLI371))(V864,V865,V866))); |
5262 |
goto T1804; |
goto T1804; |
5263 |
goto T1856; |
goto T1856; |
5264 |
T1856:; |
T1856:; |
5265 |
base[0]= VV[262]; |
base[0]= VV[262]; |
5266 |
base[1]= (V777); |
base[1]= (V857); |
5267 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5268 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
5269 |
vs_top=sup;} |
vs_top=sup;} |
5270 |
goto T1804; |
goto T1804; |
5271 |
T1804:; |
T1804:; |
5272 |
if(((V779))==Cnil){ |
if(((V859))==Cnil){ |
5273 |
goto T1866;} |
goto T1866;} |
5274 |
if(((V766))==Cnil){ |
if(((V846))==Cnil){ |
5275 |
goto T1866;} |
goto T1866;} |
5276 |
if(((V766))==((V779))){ |
if(((V846))==((V859))){ |
5277 |
goto T1866;} |
goto T1866;} |
5278 |
base[0]= VV[263]; |
base[0]= VV[263]; |
5279 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5281 |
vs_top=sup; |
vs_top=sup; |
5282 |
goto T1866; |
goto T1866; |
5283 |
T1866:; |
T1866:; |
5284 |
V779= (V766); |
V859= (V846); |
5285 |
V776= CMPcdr((V776)); |
V856= CMPcdr((V856)); |
5286 |
goto T1795;} |
goto T1795;} |
5287 |
goto T1793; |
goto T1793; |
5288 |
T1793:; |
T1793:; |
5289 |
if(((V754))==Cnil){ |
if(((V834))==Cnil){ |
5290 |
goto T1879;} |
goto T1879;} |
5291 |
if(((V760))!=Cnil){ |
if(((V840))!=Cnil){ |
5292 |
goto T1879;} |
goto T1879;} |
5293 |
base[0]= VV[264]; |
base[0]= VV[264]; |
5294 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5296 |
vs_top=sup; |
vs_top=sup; |
5297 |
goto T1879; |
goto T1879; |
5298 |
T1879:; |
T1879:; |
5299 |
if(((V768))!=Cnil){ |
if(((V848))!=Cnil){ |
5300 |
goto T1885;} |
goto T1885;} |
5301 |
V770= Ct;{object V783; |
V867 = (V829); |
5302 |
V783= (*(LnkLI336))((V750)); |
V850= Ct;{object V869; |
5303 |
if(V783==Cnil)goto T1892; |
V869= (*(LnkLI336))((V830)); |
5304 |
V769= V783; |
if(V869==Cnil)goto T1892; |
5305 |
|
V849= V869; |
5306 |
goto T1891; |
goto T1891; |
5307 |
goto T1892; |
goto T1892; |
5308 |
T1892:;} |
T1892:;} |
5309 |
V769= small_fixnum(0); |
V849= small_fixnum(0); |
5310 |
goto T1891; |
goto T1891; |
5311 |
T1891:; |
T1891:; |
5312 |
V782= (V769); |
V868= (V849); |
5313 |
(void)((*(LnkLI392))((V749),V782,(V750))); |
V870 = (V830); |
5314 |
|
(void)((*(LnkLI392))(V867,V868,V870)); |
5315 |
goto T1885; |
goto T1885; |
5316 |
T1885:; |
T1885:; |
5317 |
{register object x= (V766),V784= VV[265]; |
{register object x= (V846),V871= VV[265]; |
5318 |
while(V784!=Cnil) |
while(V871!=Cnil) |
5319 |
if(eql(x,V784->c.c_car)){ |
if(eql(x,V871->c.c_car)){ |
5320 |
goto T1897; |
goto T1897; |
5321 |
}else V784=V784->c.c_cdr; |
}else V871=V871->c.c_cdr; |
5322 |
goto T1896;} |
goto T1896;} |
5323 |
goto T1897; |
goto T1897; |
5324 |
T1897:; |
T1897:; |
5325 |
if(((V771))!=Cnil){ |
if(((V851))!=Cnil){ |
5326 |
goto T1899;} |
goto T1899;} |
5327 |
if(((V757))==Cnil){ |
if(((V837))==Cnil){ |
5328 |
goto T1898;} |
goto T1898;} |
5329 |
goto T1899; |
goto T1899; |
5330 |
T1899:; |
T1899:; |
5331 |
if(((V771))!=Cnil){ |
if(((V851))!=Cnil){ |
5332 |
goto T1903;} |
goto T1903;} |
5333 |
V759= (VFUN_NARGS=1,(*(LnkLI335))(VV[266])); |
V839= (VFUN_NARGS=1,(*(LnkLI335))(VV[266])); |
5334 |
(void)((VFUN_NARGS=3,(*(LnkLI371))((V759),Cnil,(V750)))); |
V872 = (V839); |
5335 |
{object V785; |
V873 = (V830); |
5336 |
V785= list(3,VV[11],(V759),(V757)); |
(void)((VFUN_NARGS=3,(*(LnkLI371))(V872,Cnil,V873))); |
5337 |
(VV[108]->s.s_dbind)= make_cons((V785),(VV[108]->s.s_dbind));} |
{object V874; |
5338 |
|
V874= list(3,VV[11],(V839),(V837)); |
5339 |
|
(VV[108]->s.s_dbind)= make_cons((V874),(VV[108]->s.s_dbind));} |
5340 |
goto T1903; |
goto T1903; |
5341 |
T1903:; |
T1903:; |
5342 |
if(((V767))==Cnil){ |
if(((V847))==Cnil){ |
5343 |
goto T1912;} |
goto T1912;} |
5344 |
V761= VV[34]; |
V841= VV[34]; |
5345 |
goto T1910; |
goto T1910; |
5346 |
goto T1912; |
goto T1912; |
5347 |
T1912:; |
T1912:; |
5348 |
V761= VV[217]; |
V841= VV[217]; |
5349 |
goto T1910; |
goto T1910; |
5350 |
T1910:; |
T1910:; |
5351 |
goto T1898; |
goto T1898; |
5352 |
T1898:; |
T1898:; |
5353 |
if(!(eql((V763),small_fixnum(1)))){ |
if(!(eql((V843),small_fixnum(1)))){ |
5354 |
goto T1916;} |
goto T1916;} |
5355 |
V765= list(2,VV[184],(V749)); |
V845= list(2,VV[184],(V829)); |
5356 |
goto T1914; |
goto T1914; |
5357 |
goto T1916; |
goto T1916; |
5358 |
T1916:; |
T1916:; |
5359 |
V765= list(3,VV[185],(V749),(V763)); |
V845= list(3,VV[185],(V829),(V843)); |
5360 |
goto T1914; |
goto T1914; |
5361 |
T1914:; |
T1914:; |
5362 |
goto T1894; |
goto T1894; |
5363 |
goto T1896; |
goto T1896; |
5364 |
T1896:; |
T1896:; |
5365 |
if(((V768))!=Cnil){ |
if(((V848))!=Cnil){ |
5366 |
goto T1918;} |
goto T1918;} |
5367 |
if(((V757))!=Cnil){ |
if(((V837))!=Cnil){ |
5368 |
goto T1921;} |
goto T1921;} |
5369 |
base[0]= VV[267]; |
base[0]= VV[267]; |
5370 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5372 |
vs_top=sup; |
vs_top=sup; |
5373 |
goto T1921; |
goto T1921; |
5374 |
T1921:; |
T1921:; |
5375 |
{object V786; |
{object V875; |
5376 |
V786= list(3,VV[11],(V749),list(2,VV[268],(V757))); |
V875= list(3,VV[11],(V829),list(2,VV[268],(V837))); |
5377 |
(VV[108]->s.s_dbind)= make_cons((V786),(VV[108]->s.s_dbind));} |
(VV[108]->s.s_dbind)= make_cons((V875),(VV[108]->s.s_dbind));} |
5378 |
goto T1918; |
goto T1918; |
5379 |
T1918:; |
T1918:; |
5380 |
if(((V757))==Cnil){ |
if(((V837))==Cnil){ |
5381 |
goto T1927;} |
goto T1927;} |
5382 |
if(((V759))!=Cnil){ |
if(((V839))!=Cnil){ |
5383 |
goto T1927;} |
goto T1927;} |
5384 |
V759= (*(LnkLI336))((V750)); |
V839= (*(LnkLI336))((V830)); |
5385 |
V767= Ct; |
V847= Ct; |
5386 |
goto T1927; |
goto T1927; |
5387 |
T1927:; |
T1927:; |
5388 |
if(((V759))==Cnil){ |
if(((V839))==Cnil){ |
5389 |
goto T1935;} |
goto T1935;} |
5390 |
if(((V767))==Cnil){ |
if(((V847))==Cnil){ |
5391 |
goto T1940;} |
goto T1940;} |
5392 |
V761= VV[33]; |
V841= VV[33]; |
5393 |
goto T1938; |
goto T1938; |
5394 |
goto T1940; |
goto T1940; |
5395 |
T1940:; |
T1940:; |
5396 |
V761= VV[269]; |
V841= VV[269]; |
5397 |
goto T1938; |
goto T1938; |
5398 |
T1938:; |
T1938:; |
5399 |
goto T1935; |
goto T1935; |
5400 |
T1935:; |
T1935:; |
5401 |
if(!(eql((V763),small_fixnum(1)))){ |
if(!(eql((V843),small_fixnum(1)))){ |
5402 |
goto T1944;} |
goto T1944;} |
5403 |
V765= list(2,VV[268],(V749)); |
V845= list(2,VV[268],(V829)); |
5404 |
goto T1942; |
goto T1942; |
5405 |
goto T1944; |
goto T1944; |
5406 |
T1944:; |
T1944:; |
5407 |
V765= list(3,VV[270],(V749),(V763)); |
V845= list(3,VV[270],(V829),(V843)); |
5408 |
goto T1942; |
goto T1942; |
5409 |
T1942:; |
T1942:; |
5410 |
goto T1894; |
goto T1894; |
5411 |
T1894:; |
T1894:; |
5412 |
if(((V761))==Cnil){ |
if(((V841))==Cnil){ |
5413 |
goto T1946;} |
goto T1946;} |
5414 |
V787= list(3,(V761),(V749),(V759)); |
V876= list(3,(V841),(V829),(V839)); |
5415 |
V762= (*(LnkLI337))(Ct,(V749),/* INLINE-ARGS */V787); |
V842= (*(LnkLI337))(Ct,(V829),/* INLINE-ARGS */V876); |
5416 |
goto T1946; |
goto T1946; |
5417 |
T1946:; |
T1946:; |
5418 |
if(((V756))==Cnil){ |
if(((V836))==Cnil){ |
5419 |
goto T1950;} |
goto T1950;} |
5420 |
V756= list(2,(V752),(*(LnkLI337))((V751),(V749),(V756))); |
V877 = (V832); |
5421 |
|
V836= list(2,V877,(*(LnkLI337))((V831),(V829),(V836))); |
5422 |
goto T1950; |
goto T1950; |
5423 |
T1950:; |
T1950:; |
5424 |
{object V788; |
{object V878; |
5425 |
object V789; |
object V879; |
5426 |
V788= (V762); |
V878= (V842); |
5427 |
V789= (V762); |
V879= (V842); |
5428 |
if(((V764))==Cnil){ |
if(((V844))==Cnil){ |
5429 |
goto T1954;} |
goto T1954;} |
5430 |
if(((V770))==Cnil){ |
if(((V850))==Cnil){ |
5431 |
goto T1954;} |
goto T1954;} |
5432 |
if(((V772))==Cnil){ |
if(((V852))==Cnil){ |
5433 |
goto T1954;} |
goto T1954;} |
5434 |
base[0]= (V761); |
base[0]= (V841); |
5435 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5436 |
Lsymbol_function(); |
Lsymbol_function(); |
5437 |
vs_top=sup; |
vs_top=sup; |
5438 |
V790= vs_base[0]; |
V880= vs_base[0]; |
5439 |
V788= ( |
V881 = (V849); |
5440 |
V791 = V790, |
V882 = (V853); |
5441 |
(type_of(V791) == t_sfun ?(*((V791)->sfn.sfn_self)): |
V878= ( |
5442 |
(fcall.argd=2,type_of(V791)==t_vfun) ? |
V883 = V880, |
5443 |
(*((V791)->sfn.sfn_self)): |
(type_of(V883) == t_sfun ?(*((V883)->sfn.sfn_self)): |
5444 |
(fcall.fun=(V791),fcalln))((V769),(V773))); |
(fcall.argd=2,type_of(V883)==t_vfun) ? |
5445 |
if(((V788))==Cnil){ |
(*((V883)->sfn.sfn_self)): |
5446 |
|
(fcall.fun=(V883),fcalln))(V881,V882)); |
5447 |
|
if(((V878))==Cnil){ |
5448 |
goto T1954;} |
goto T1954;} |
5449 |
V789= Ct; |
V879= Ct; |
5450 |
goto T1954; |
goto T1954; |
5451 |
T1954:; |
T1954:; |
5452 |
{object V792 = list(8,Cnil,list(2,(V749),(*(LnkLI337))(Ct,(V749),(V765))),(V789),(V756),Cnil,Cnil,(V788),(V756)); |
V884 = (V829); |
5453 |
VMR90(V792)}}} |
{object V885 = list(8,Cnil,list(2,V884,(*(LnkLI337))(Ct,(V829),(V845))),(V879),(V836),Cnil,Cnil,(V878),(V836)); |
5454 |
|
VMR90(V885)}}} |
5455 |
base[0]=base[0]; |
base[0]=base[0]; |
5456 |
return Cnil; |
return Cnil; |
5457 |
} |
} |
5458 |
/* local entry for function LOOP-FOR-ARITHMETIC */ |
/* local entry for function LOOP-FOR-ARITHMETIC */ |
5459 |
|
|
5460 |
static object LI104(V797,V798,V799,V800) |
static object LI104(V890,V891,V892,V893) |
5461 |
|
|
5462 |
object V797;object V798;object V799;object V800; |
object V890;object V891;object V892;object V893; |
5463 |
{ VMB91 VMS91 VMV91 |
{ VMB91 VMS91 VMV91 |
5464 |
goto TTL; |
goto TTL; |
5465 |
TTL:; |
TTL:; |
5466 |
V801= (VFUN_NARGS=2,(*(LnkLI387))((V799),(VV[187]->s.s_dbind))); |
V894 = (V890); |
5467 |
V802= list(2,(V800),(V798)); |
V895= (VFUN_NARGS=2,(*(LnkLI387))((V892),(VV[187]->s.s_dbind))); |
5468 |
V803= make_cons(/* INLINE-ARGS */V802,Cnil); |
V896= list(2,(V893),(V891)); |
5469 |
V804= (VFUN_NARGS=3,(*(LnkLI397))(VV[271],Cnil,/* INLINE-ARGS */V803)); |
V897= make_cons(/* INLINE-ARGS */V896,Cnil); |
5470 |
{object V805 = (*(LnkLI402))((V797),/* INLINE-ARGS */V801,Ct,Cnil,Cnil,Cnil,Cnil,Cnil,Cnil,/* INLINE-ARGS */V804); |
V898= (VFUN_NARGS=3,(*(LnkLI397))(VV[271],Cnil,/* INLINE-ARGS */V897)); |
5471 |
VMR91(V805)} |
{object V899 = (*(LnkLI402))(V894,/* INLINE-ARGS */V895,Ct,Cnil,Cnil,Cnil,Cnil,Cnil,Cnil,/* INLINE-ARGS */V898); |
5472 |
|
VMR91(V899)} |
5473 |
return Cnil; |
return Cnil; |
5474 |
} |
} |
5475 |
/* local entry for function LOOP-SEQUENCE-ELEMENTS-PATH */ |
/* local entry for function LOOP-SEQUENCE-ELEMENTS-PATH */ |
5476 |
|
|
5477 |
static object LI105(object V808,object V807,object V806,object first,...) |
static object LI105(object V902,object V901,object V900,object first,...) |
5478 |
{ |
{ |
5479 |
va_list ap; |
va_list ap; |
5480 |
int narg = VFUN_NARGS; VMB92 VMS92 VMV92 |
int narg = VFUN_NARGS; VMB92 VMS92 VMV92 |
5481 |
{object V809; |
{object V903; |
5482 |
object V810; |
object V904; |
5483 |
object V811; |
object V905; |
5484 |
object V812; |
object V906; |
5485 |
object V813; |
object V907; |
5486 |
object V814; |
object V908; |
5487 |
object V815; |
object V909; |
5488 |
va_start(ap,first); |
va_start(ap,first); |
5489 |
V809= V808; |
V903= V902; |
5490 |
V810= V807; |
V904= V901; |
5491 |
V811= V806; |
V905= V900; |
5492 |
narg= narg - 3; |
narg= narg - 3; |
5493 |
{ |
{ |
5494 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI105key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI105key,first,ap); |
5495 |
V812=(Vcs[3]); |
V906=(Vcs[3]); |
5496 |
V813=(Vcs[4]); |
V907=(Vcs[4]); |
5497 |
V814=(Vcs[5]); |
V908=(Vcs[5]); |
5498 |
V815=(Vcs[6]); |
V909=(Vcs[6]); |
5499 |
{object V816; |
{object V910; |
5500 |
object V817; |
object V911; |
5501 |
base[0]= VV[272]; |
base[0]= VV[272]; |
5502 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5503 |
(void) (*Lnk407)(); |
(void) (*Lnk407)(); |
5504 |
if(vs_base>=vs_top){vs_top=sup;goto T1969;} |
if(vs_base>=vs_top){vs_top=sup;goto T1969;} |
5505 |
V816= vs_base[0]; |
V910= vs_base[0]; |
5506 |
vs_base++; |
vs_base++; |
5507 |
if(vs_base>=vs_top){vs_top=sup;goto T1970;} |
if(vs_base>=vs_top){vs_top=sup;goto T1970;} |
5508 |
V817= vs_base[0]; |
V911= vs_base[0]; |
5509 |
vs_top=sup; |
vs_top=sup; |
5510 |
goto T1971; |
goto T1971; |
5511 |
goto T1969; |
goto T1969; |
5512 |
T1969:; |
T1969:; |
5513 |
V816= Cnil; |
V910= Cnil; |
5514 |
goto T1970; |
goto T1970; |
5515 |
T1970:; |
T1970:; |
5516 |
V817= Cnil; |
V911= Cnil; |
5517 |
goto T1971; |
goto T1971; |
5518 |
T1971:; |
T1971:; |
5519 |
{object V818; |
{object V912; |
5520 |
base[0]= VV[273]; |
base[0]= VV[273]; |
5521 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5522 |
(void) (*Lnk407)(); |
(void) (*Lnk407)(); |
5523 |
vs_top=sup; |
vs_top=sup; |
5524 |
V818= vs_base[0]; |
V912= vs_base[0]; |
5525 |
if((V810)!=Cnil){ |
V913 = (V910); |
5526 |
V819= (V810); |
V914 = (V911); |
5527 |
|
V915 = (V903); |
5528 |
|
if((V904)!=Cnil){ |
5529 |
|
V916= (V904); |
5530 |
goto T1974;} |
goto T1974;} |
5531 |
V819= (V815); |
V916= (V909); |
5532 |
goto T1974; |
goto T1974; |
5533 |
T1974:; |
T1974:; |
5534 |
V820= list(3,(V812),(V818),(V816)); |
V917 = (V912); |
5535 |
V821= list(2,(V813),(V818)); |
V918 = (V908); |
5536 |
{object V822 = listA(3,Cnil,Cnil,(*(LnkLI402))((V816),VV[214],(V817),(V809),V819,(V818),(V814),/* INLINE-ARGS */V820,/* INLINE-ARGS */V821,(V811))); |
V919= list(3,(V906),(V912),(V910)); |
5537 |
VMR92(V822)}}} |
V920= list(2,(V907),(V912)); |
5538 |
|
V921 = (V905); |
5539 |
|
{object V922 = listA(3,Cnil,Cnil,(*(LnkLI402))(V913,VV[214],V914,V915,V916,V917,V918,/* INLINE-ARGS */V919,/* INLINE-ARGS */V920,V921)); |
5540 |
|
VMR92(V922)}}} |
5541 |
va_end(ap); |
va_end(ap); |
5542 |
base[0]=base[0]; |
base[0]=base[0]; |
5543 |
return Cnil;} |
return Cnil;} |
5544 |
}} |
}} |
5545 |
/* local entry for function LOOP-HASH-TABLE-ITERATION-PATH */ |
/* local entry for function LOOP-HASH-TABLE-ITERATION-PATH */ |
5546 |
|
|
5547 |
static object LI106(object V825,object V824,object V823,object first,...) |
static object LI106(object V925,object V924,object V923,object first,...) |
5548 |
{ |
{ |
5549 |
va_list ap; |
va_list ap; |
5550 |
int narg = VFUN_NARGS; VMB93 VMS93 VMV93 |
int narg = VFUN_NARGS; VMB93 VMS93 VMV93 |
5551 |
bds_check; |
bds_check; |
5552 |
{object V826; |
{object V926; |
5553 |
object V827; |
object V927; |
5554 |
object V828; |
object V928; |
5555 |
register object V829; |
register object V929; |
5556 |
va_start(ap,first); |
va_start(ap,first); |
5557 |
V826= V825; |
V926= V925; |
5558 |
V827= V824; |
V927= V924; |
5559 |
V828= V823; |
V928= V923; |
5560 |
narg= narg - 3; |
narg= narg - 3; |
5561 |
{ |
{ |
5562 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI106key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI106key,first,ap); |
5563 |
V829=(Vcs[3]); |
V929=(Vcs[3]); |
5564 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
5565 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
5566 |
goto T1977; |
goto T1977; |
5567 |
T1977:; |
T1977:; |
5568 |
base[2]= (V829); |
base[2]= (V929); |
5569 |
base[3]= VV[274]; |
base[3]= VV[274]; |
5570 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5571 |
(void) (*Lnk340)(); |
(void) (*Lnk340)(); |
5580 |
base[2]= VV[47]; |
base[2]= VV[47]; |
5581 |
base[3]= VV[48]; |
base[3]= VV[48]; |
5582 |
base[4]= VV[275]; |
base[4]= VV[275]; |
5583 |
base[5]= (V829); |
base[5]= (V929); |
5584 |
base[6]= VV[274]; |
base[6]= VV[274]; |
5585 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
5586 |
Lcerror(); |
Lcerror(); |
5598 |
vs_base=vs_top; |
vs_base=vs_top; |
5599 |
Lread(); |
Lread(); |
5600 |
vs_top=sup; |
vs_top=sup; |
5601 |
V829= vs_base[0]; |
V929= vs_base[0]; |
5602 |
base[2]= (VV[50]->s.s_dbind); |
base[2]= (VV[50]->s.s_dbind); |
5603 |
base[3]= VV[52]; |
base[3]= VV[52]; |
5604 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5607 |
goto T1977; |
goto T1977; |
5608 |
goto T1975; |
goto T1975; |
5609 |
T1975:; |
T1975:; |
5610 |
if((CMPcdr((V828)))!=Cnil){ |
if((CMPcdr((V928)))!=Cnil){ |
5611 |
goto T2004;} |
goto T2004;} |
5612 |
{register object x= CMPcaar((V828)),V830= VV[276]; |
{register object x= CMPcaar((V928)),V930= VV[276]; |
5613 |
while(V830!=Cnil) |
while(V930!=Cnil) |
5614 |
if(eql(x,V830->c.c_car)){ |
if(eql(x,V930->c.c_car)){ |
5615 |
goto T2005; |
goto T2005; |
5616 |
}else V830=V830->c.c_cdr;} |
}else V930=V930->c.c_cdr;} |
5617 |
goto T2004; |
goto T2004; |
5618 |
T2004:; |
T2004:; |
5619 |
base[0]= VV[277]; |
base[0]= VV[277]; |
5623 |
goto T2003; |
goto T2003; |
5624 |
goto T2005; |
goto T2005; |
5625 |
T2005:; |
T2005:; |
5626 |
if(((V828))!=Cnil){ |
if(((V928))!=Cnil){ |
5627 |
goto T2003;} |
goto T2003;} |
5628 |
base[0]= VV[278]; |
base[0]= VV[278]; |
5629 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5631 |
vs_top=sup; |
vs_top=sup; |
5632 |
goto T2003; |
goto T2003; |
5633 |
T2003:; |
T2003:; |
5634 |
{object V831; |
{object V931; |
5635 |
object V832; |
object V932; |
5636 |
object V833; |
object V933; |
5637 |
register object V834; |
register object V934; |
5638 |
V831= (VFUN_NARGS=1,(*(LnkLI335))(VV[279])); |
V931= (VFUN_NARGS=1,(*(LnkLI335))(VV[279])); |
5639 |
V832= (VFUN_NARGS=1,(*(LnkLI335))(VV[280])); |
V932= (VFUN_NARGS=1,(*(LnkLI335))(VV[280])); |
5640 |
V833= Cnil; |
V933= Cnil; |
5641 |
V834= Cnil; |
V934= Cnil; |
5642 |
{object V835; |
{object V935; |
5643 |
object V836; |
object V936; |
5644 |
if(!(((V829))==(VV[281]))){ |
if(!(((V929))==(VV[281]))){ |
5645 |
goto T2018;} |
goto T2018;} |
5646 |
base[0]= VV[282]; |
base[0]= VV[282]; |
5647 |
goto T2016; |
goto T2016; |
5653 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5654 |
(void) (*Lnk407)(); |
(void) (*Lnk407)(); |
5655 |
if(vs_base>=vs_top){vs_top=sup;goto T2020;} |
if(vs_base>=vs_top){vs_top=sup;goto T2020;} |
5656 |
V835= vs_base[0]; |
V935= vs_base[0]; |
5657 |
vs_base++; |
vs_base++; |
5658 |
if(vs_base>=vs_top){vs_top=sup;goto T2021;} |
if(vs_base>=vs_top){vs_top=sup;goto T2021;} |
5659 |
V836= vs_base[0]; |
V936= vs_base[0]; |
5660 |
vs_top=sup; |
vs_top=sup; |
5661 |
goto T2022; |
goto T2022; |
5662 |
goto T2020; |
goto T2020; |
5663 |
T2020:; |
T2020:; |
5664 |
V835= Cnil; |
V935= Cnil; |
5665 |
goto T2021; |
goto T2021; |
5666 |
T2021:; |
T2021:; |
5667 |
V836= Cnil; |
V936= Cnil; |
5668 |
goto T2022; |
goto T2022; |
5669 |
T2022:; |
T2022:; |
5670 |
V836= Ct; |
V936= Ct; |
5671 |
V833= (*(LnkLI391))(); |
V933= (*(LnkLI391))(); |
5672 |
{register object V837; |
{register object V937; |
5673 |
register object V838; |
register object V938; |
5674 |
object V839; |
object V939; |
5675 |
object V840; |
object V940; |
5676 |
object V841; |
object V941; |
5677 |
object V842; |
object V942; |
5678 |
register object V843; |
register object V943; |
5679 |
V837= Cnil; |
V937= Cnil; |
5680 |
V838= Cnil; |
V938= Cnil; |
5681 |
V839= (VFUN_NARGS=1,(*(LnkLI335))(VV[283])); |
V939= (VFUN_NARGS=1,(*(LnkLI335))(VV[283])); |
5682 |
V840= (VFUN_NARGS=1,(*(LnkLI335))(VV[284])); |
V940= (VFUN_NARGS=1,(*(LnkLI335))(VV[284])); |
5683 |
V841= (VFUN_NARGS=1,(*(LnkLI335))(VV[285])); |
V941= (VFUN_NARGS=1,(*(LnkLI335))(VV[285])); |
5684 |
if((V826)!=Cnil){ |
if((V926)!=Cnil){ |
5685 |
V842= (V826); |
V942= (V926); |
5686 |
goto T2032;} |
goto T2032;} |
5687 |
V842= (VFUN_NARGS=0,(*(LnkLI335))()); |
V942= (VFUN_NARGS=0,(*(LnkLI335))()); |
5688 |
goto T2032; |
goto T2032; |
5689 |
T2032:; |
T2032:; |
5690 |
V844= list(3,(V842),Cnil,(V827)); |
V944= list(3,(V942),Cnil,(V927)); |
5691 |
V845= list(2,(V831),CMPcadar((V828))); |
V945= list(2,(V931),CMPcadar((V928))); |
5692 |
if((V836)==Cnil){ |
if((V936)==Cnil){ |
5693 |
V846= Cnil; |
V946= Cnil; |
5694 |
goto T2034;} |
goto T2034;} |
5695 |
if((V835)==Cnil){ |
if((V935)==Cnil){ |
5696 |
V846= Cnil; |
V946= Cnil; |
5697 |
goto T2034;} |
goto T2034;} |
5698 |
V847= list(2,(V835),Cnil); |
V947= list(2,(V935),Cnil); |
5699 |
V846= make_cons(/* INLINE-ARGS */V847,Cnil); |
V946= make_cons(/* INLINE-ARGS */V947,Cnil); |
5700 |
goto T2034; |
goto T2034; |
5701 |
T2034:; |
T2034:; |
5702 |
V843= listA(3,/* INLINE-ARGS */V844,/* INLINE-ARGS */V845,V846); |
V943= listA(3,/* INLINE-ARGS */V944,/* INLINE-ARGS */V945,V946); |
5703 |
if(!(((V829))==(VV[281]))){ |
if(!(((V929))==(VV[281]))){ |
5704 |
goto T2037;} |
goto T2037;} |
5705 |
V837= (V842); |
V937= (V942); |
5706 |
if((V836)==Cnil){ |
if((V936)==Cnil){ |
5707 |
V838= Cnil; |
V938= Cnil; |
5708 |
goto T2041;} |
goto T2041;} |
5709 |
V838= (V835); |
V938= (V935); |
5710 |
goto T2041; |
goto T2041; |
5711 |
T2041:; |
T2041:; |
5712 |
goto T2035; |
goto T2035; |
5713 |
goto T2037; |
goto T2037; |
5714 |
T2037:; |
T2037:; |
5715 |
if((V836)==Cnil){ |
if((V936)==Cnil){ |
5716 |
V837= Cnil; |
V937= Cnil; |
5717 |
goto T2043;} |
goto T2043;} |
5718 |
V837= (V835); |
V937= (V935); |
5719 |
goto T2043; |
goto T2043; |
5720 |
T2043:; |
T2043:; |
5721 |
V838= (V842); |
V938= (V942); |
5722 |
goto T2035; |
goto T2035; |
5723 |
T2035:; |
T2035:; |
5724 |
{object V848; |
{object V948; |
5725 |
V848= list(2,VV[286],list(2,(V832),(V831))); |
V948= list(2,VV[286],list(2,(V932),(V931))); |
5726 |
(VV[109]->s.s_dbind)= make_cons((V848),(VV[109]->s.s_dbind));} |
(VV[109]->s.s_dbind)= make_cons((V948),(VV[109]->s.s_dbind));} |
5727 |
if(!(type_of((V837))==t_cons)){ |
if(!(type_of((V937))==t_cons)){ |
5728 |
goto T2048;}{object V849; |
goto T2048;}{object V949; |
5729 |
V849= (V837); |
V949= (V937); |
5730 |
V837= (VFUN_NARGS=1,(*(LnkLI335))(VV[284])); |
V937= (VFUN_NARGS=1,(*(LnkLI335))(VV[284])); |
5731 |
V834= listA(3,V849,(V837),(V834));} |
V950 = (V937); |
5732 |
{object V850; |
V951 = (V934); |
5733 |
V850= list(2,(V837),Cnil); |
V934= listA(3,V949,V950,V951);} |
5734 |
V843= make_cons((V850),(V843));} |
{object V952; |
5735 |
|
V952= list(2,(V937),Cnil); |
5736 |
|
V943= make_cons((V952),(V943));} |
5737 |
goto T2048; |
goto T2048; |
5738 |
T2048:; |
T2048:; |
5739 |
if(!(type_of((V838))==t_cons)){ |
if(!(type_of((V938))==t_cons)){ |
5740 |
goto T2056;}{object V851; |
goto T2056;}{object V953; |
5741 |
V851= (V838); |
V953= (V938); |
5742 |
V838= (VFUN_NARGS=1,(*(LnkLI335))(VV[283])); |
V938= (VFUN_NARGS=1,(*(LnkLI335))(VV[283])); |
5743 |
V834= listA(3,V851,(V838),(V834));} |
V954 = (V938); |
5744 |
{object V852; |
V955 = (V934); |
5745 |
V852= list(2,(V838),Cnil); |
V934= listA(3,V953,V954,V955);} |
5746 |
V843= make_cons((V852),(V843));} |
{object V956; |
5747 |
|
V956= list(2,(V938),Cnil); |
5748 |
|
V943= make_cons((V956),(V943));} |
5749 |
goto T2056; |
goto T2056; |
5750 |
T2056:; |
T2056:; |
5751 |
V853= list(3,(V841),(V840),(V839)); |
V957= list(3,(V941),(V940),(V939)); |
5752 |
V854= make_cons((V832),Cnil); |
V958= make_cons((V932),Cnil); |
5753 |
V855= list(3,VV[11],(V838),(V839)); |
V959= list(3,VV[11],(V938),(V939)); |
5754 |
V856= list(4,VV[8],(V841),/* INLINE-ARGS */V855,list(3,VV[11],(V837),(V840))); |
V960= list(4,VV[8],(V941),/* INLINE-ARGS */V959,list(3,VV[11],(V937),(V940))); |
5755 |
{object V857 = list(6,(V843),Cnil,Cnil,Cnil,list(2,VV[36],list(5,VV[287],/* INLINE-ARGS */V853,/* INLINE-ARGS */V854,/* INLINE-ARGS */V856,list(3,VV[11],(V833),(V841)))),(V834)); |
{object V961 = list(6,(V943),Cnil,Cnil,Cnil,list(2,VV[36],list(5,VV[287],/* INLINE-ARGS */V957,/* INLINE-ARGS */V958,/* INLINE-ARGS */V960,list(3,VV[11],(V933),(V941)))),(V934)); |
5756 |
VMR93(V857)}}}} |
VMR93(V961)}}}} |
5757 |
va_end(ap); |
va_end(ap); |
5758 |
base[0]=base[0]; |
base[0]=base[0]; |
5759 |
return Cnil;} |
return Cnil;} |
5760 |
}} |
}} |
5761 |
/* local entry for function LOOP-PACKAGE-SYMBOLS-ITERATION-PATH */ |
/* local entry for function LOOP-PACKAGE-SYMBOLS-ITERATION-PATH */ |
5762 |
|
|
5763 |
static object LI107(object V860,object V859,object V858,object first,...) |
static object LI107(object V964,object V963,object V962,object first,...) |
5764 |
{ |
{ |
5765 |
va_list ap; |
va_list ap; |
5766 |
int narg = VFUN_NARGS; VMB94 VMS94 VMV94 |
int narg = VFUN_NARGS; VMB94 VMS94 VMV94 |
5767 |
{object V861; |
{object V965; |
5768 |
object V862; |
object V966; |
5769 |
register object V863; |
register object V967; |
5770 |
object V864; |
object V968; |
5771 |
va_start(ap,first); |
va_start(ap,first); |
5772 |
V861= V860; |
V965= V964; |
5773 |
V862= V859; |
V966= V963; |
5774 |
V863= V858; |
V967= V962; |
5775 |
narg= narg - 3; |
narg= narg - 3; |
5776 |
{ |
{ |
5777 |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI107key,first,ap); |
parse_key_new_new(narg,Vcs +3,(struct key *)(void *)&LI107key,first,ap); |
5778 |
V864=(Vcs[3]); |
V968=(Vcs[3]); |
5779 |
if(((V863))==Cnil){ |
if(((V967))==Cnil){ |
5780 |
goto T2066;} |
goto T2066;} |
5781 |
if((CMPcdr((V863)))==Cnil){ |
if((CMPcdr((V967)))==Cnil){ |
5782 |
goto T2066;} |
goto T2066;} |
5783 |
base[0]= VV[288]; |
base[0]= VV[288]; |
5784 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5787 |
goto T2064; |
goto T2064; |
5788 |
goto T2066; |
goto T2066; |
5789 |
T2066:; |
T2066:; |
5790 |
if(((V863))==Cnil){ |
if(((V967))==Cnil){ |
5791 |
goto T2064;} |
goto T2064;} |
5792 |
{register object x= CMPcaar((V863)),V865= VV[289]; |
{register object x= CMPcaar((V967)),V969= VV[289]; |
5793 |
while(V865!=Cnil) |
while(V969!=Cnil) |
5794 |
if(eql(x,V865->c.c_car)){ |
if(eql(x,V969->c.c_car)){ |
5795 |
goto T2064; |
goto T2064; |
5796 |
}else V865=V865->c.c_cdr;} |
}else V969=V969->c.c_cdr;} |
5797 |
base[0]= VV[290]; |
base[0]= VV[290]; |
5798 |
base[1]= CMPcaar((V863)); |
base[1]= CMPcaar((V967)); |
5799 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5800 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
5801 |
vs_top=sup; |
vs_top=sup; |
5802 |
goto T2064; |
goto T2064; |
5803 |
T2064:; |
T2064:; |
5804 |
if(type_of((V861))==t_symbol){ |
if(type_of((V965))==t_symbol){ |
5805 |
goto T2077;} |
goto T2077;} |
5806 |
base[0]= VV[291]; |
base[0]= VV[291]; |
5807 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5809 |
vs_top=sup; |
vs_top=sup; |
5810 |
goto T2077; |
goto T2077; |
5811 |
T2077:; |
T2077:; |
5812 |
{object V866; |
{object V970; |
5813 |
object V867; |
object V971; |
5814 |
object V868; |
object V972; |
5815 |
object V869; |
object V973; |
5816 |
V866= (VFUN_NARGS=1,(*(LnkLI335))(VV[292])); |
V970= (VFUN_NARGS=1,(*(LnkLI335))(VV[292])); |
5817 |
V867= (VFUN_NARGS=1,(*(LnkLI335))(VV[293])); |
V971= (VFUN_NARGS=1,(*(LnkLI335))(VV[293])); |
5818 |
if((V861)!=Cnil){ |
if((V965)!=Cnil){ |
5819 |
V868= (V861); |
V972= (V965); |
5820 |
goto T2083;} |
goto T2083;} |
5821 |
V868= (VFUN_NARGS=0,(*(LnkLI335))()); |
V972= (VFUN_NARGS=0,(*(LnkLI335))()); |
5822 |
goto T2083; |
goto T2083; |
5823 |
T2083:;{object V870; |
T2083:;{object V974; |
5824 |
V870= CMPcadar((V863)); |
V974= CMPcadar((V967)); |
5825 |
if(V870==Cnil)goto T2085; |
if(V974==Cnil)goto T2085; |
5826 |
V869= V870; |
V973= V974; |
5827 |
goto T2084; |
goto T2084; |
5828 |
goto T2085; |
goto T2085; |
5829 |
T2085:;} |
T2085:;} |
5830 |
V869= VV[294]; |
V973= VV[294]; |
5831 |
goto T2084; |
goto T2084; |
5832 |
T2084:; |
T2084:; |
5833 |
{object V871; |
{object V975; |
5834 |
V871= list(2,VV[295],listA(3,(V867),(V866),(V864))); |
V975= list(2,VV[295],listA(3,(V971),(V970),(V968))); |
5835 |
(VV[109]->s.s_dbind)= make_cons((V871),(VV[109]->s.s_dbind));} |
(VV[109]->s.s_dbind)= make_cons((V975),(VV[109]->s.s_dbind));} |
5836 |
V872= list(3,(V868),Cnil,(V862)); |
V976= list(3,(V972),Cnil,(V966)); |
5837 |
V873= list(2,/* INLINE-ARGS */V872,list(2,(V866),(V869))); |
V977= list(2,/* INLINE-ARGS */V976,list(2,(V970),(V973))); |
5838 |
V874= (*(LnkLI391))(); |
V978= (*(LnkLI391))(); |
5839 |
V875= list(2,/* INLINE-ARGS */V874,(V868)); |
V979 = (V972); |
5840 |
{object V876 = list(6,/* INLINE-ARGS */V873,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[84],/* INLINE-ARGS */V875,make_cons((V867),Cnil))),Cnil); |
V980= list(2,/* INLINE-ARGS */V978,V979); |
5841 |
VMR94(V876)}} |
{object V981 = list(6,/* INLINE-ARGS */V977,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[84],/* INLINE-ARGS */V980,make_cons((V971),Cnil))),Cnil); |
5842 |
|
VMR94(V981)}} |
5843 |
va_end(ap); |
va_end(ap); |
5844 |
base[0]=base[0]; |
base[0]=base[0]; |
5845 |
return Cnil;} |
return Cnil;} |
5846 |
}} |
}} |
5847 |
/* local entry for function MAKE-ANSI-LOOP-UNIVERSE */ |
/* local entry for function MAKE-ANSI-LOOP-UNIVERSE */ |
5848 |
|
|
5849 |
static object LI108(V878) |
static object LI108(V983) |
5850 |
|
|
5851 |
object V878; |
object V983; |
5852 |
{ VMB95 VMS95 VMV95 |
{ VMB95 VMS95 VMV95 |
5853 |
goto TTL; |
goto TTL; |
5854 |
TTL:; |
TTL:; |
5855 |
{register object V879; |
{register object V984; |
5856 |
base[0]= VV[296]; |
base[0]= VV[296]; |
5857 |
base[1]= VV[297]; |
base[1]= VV[297]; |
5858 |
base[2]= VV[298]; |
base[2]= VV[298]; |
5871 |
vs_top=(vs_base=base+0)+15; |
vs_top=(vs_base=base+0)+15; |
5872 |
LlistA(); |
LlistA(); |
5873 |
vs_top=sup; |
vs_top=sup; |
5874 |
V880= vs_base[0]; |
V985= vs_base[0]; |
5875 |
if(((V878))==Cnil){ |
if(((V983))==Cnil){ |
5876 |
goto T2109;} |
goto T2109;} |
5877 |
V881= VV[314]; |
V986= VV[314]; |
5878 |
goto T2107; |
goto T2107; |
5879 |
goto T2109; |
goto T2109; |
5880 |
T2109:; |
T2109:; |
5881 |
V881= Ct; |
V986= Ct; |
5882 |
goto T2107; |
goto T2107; |
5883 |
T2107:; |
T2107:; |
5884 |
V879= (VFUN_NARGS=12,(*(LnkLI410))(VV[53],V880,VV[54],VV[311],VV[55],VV[312],VV[60],VV[313],VV[59],Cnil,VV[57],V881)); |
V984= (VFUN_NARGS=12,(*(LnkLI410))(VV[53],V985,VV[54],VV[311],VV[55],VV[312],VV[60],VV[313],VV[59],Cnil,VV[57],V986)); |
5885 |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[315],VV[316],(V879),VV[233],VV[317],VV[234],Cnil,VV[232],VV[318]))); |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[315],VV[316],(V984),VV[233],VV[317],VV[234],Cnil,VV[232],VV[318]))); |
5886 |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[319],VV[316],(V879),VV[233],VV[320],VV[234],Cnil,VV[232],VV[321]))); |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[319],VV[316],(V984),VV[233],VV[320],VV[234],Cnil,VV[232],VV[321]))); |
5887 |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[322],VV[323],(V879),VV[233],VV[324],VV[234],Cnil,VV[232],VV[325]))); |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[322],VV[323],(V984),VV[233],VV[324],VV[234],Cnil,VV[232],VV[325]))); |
5888 |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[326],VV[323],(V879),VV[233],VV[327],VV[234],Cnil,VV[232],VV[328]))); |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[326],VV[323],(V984),VV[233],VV[327],VV[234],Cnil,VV[232],VV[328]))); |
5889 |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[329],VV[323],(V879),VV[233],VV[330],VV[234],Cnil,VV[232],VV[331]))); |
(void)((VFUN_NARGS=9,(*(LnkLI411))(VV[329],VV[323],(V984),VV[233],VV[330],VV[234],Cnil,VV[232],VV[331]))); |
5890 |
{object V882 = (V879); |
{object V987 = (V984); |
5891 |
VMR95(V882)}} |
VMR95(V987)}} |
5892 |
base[0]=base[0]; |
base[0]=base[0]; |
5893 |
return Cnil; |
return Cnil; |
5894 |
} |
} |
5895 |
/* local entry for function LOOP-STANDARD-EXPANSION */ |
/* local entry for function LOOP-STANDARD-EXPANSION */ |
5896 |
|
|
5897 |
static object LI109(V886,V887,V888) |
static object LI109(V991,V992,V993) |
5898 |
|
|
5899 |
register object V886;object V887;object V888; |
register object V991;object V992;object V993; |
5900 |
{ VMB96 VMS96 VMV96 |
{ VMB96 VMS96 VMV96 |
5901 |
goto TTL; |
goto TTL; |
5902 |
TTL:; |
TTL:; |
5903 |
if(((V886))==Cnil){ |
if(((V991))==Cnil){ |
5904 |
goto T2117;} |
goto T2117;} |
5905 |
if(!(type_of(CMPcar((V886)))==t_symbol)){ |
if(!(type_of(CMPcar((V991)))==t_symbol)){ |
5906 |
goto T2117;} |
goto T2117;} |
5907 |
{object V889 = (*(LnkLI412))((V886),(V887),(V888)); |
{object V994 = (*(LnkLI412))((V991),(V992),(V993)); |
5908 |
VMR96(V889)} |
VMR96(V994)} |
5909 |
goto T2117; |
goto T2117; |
5910 |
T2117:; |
T2117:; |
5911 |
{object V890; |
{object V995; |
5912 |
vs_base=vs_top; |
vs_base=vs_top; |
5913 |
Lgensym(); |
Lgensym(); |
5914 |
vs_top=sup; |
vs_top=sup; |
5915 |
V890= vs_base[0]; |
V995= vs_base[0]; |
5916 |
V891= make_cons(VV[14],(V886)); |
V996= make_cons(VV[14],(V991)); |
5917 |
{object V892 = list(3,VV[124],Cnil,list(4,VV[73],(V890),/* INLINE-ARGS */V891,list(2,VV[82],(V890)))); |
{object V997 = list(3,VV[124],Cnil,list(4,VV[73],(V995),/* INLINE-ARGS */V996,list(2,VV[82],(V995)))); |
5918 |
VMR96(V892)}} |
VMR96(V997)}} |
5919 |
base[0]=base[0]; |
base[0]=base[0]; |
5920 |
return Cnil; |
return Cnil; |
5921 |
} |
} |
5926 |
register object *sup=base+VM97; VC97 |
register object *sup=base+VM97; VC97 |
5927 |
vs_check; |
vs_check; |
5928 |
vs_top=sup; |
vs_top=sup; |
5929 |
{object V893=base[0]->c.c_cdr; |
{object V998=base[0]->c.c_cdr; |
5930 |
base[2]= V893;} |
base[2]= V998;} |
5931 |
base[3]= (*(LnkLI413))(base[2],base[1],(VV[332]->s.s_dbind)); |
base[3]= (*(LnkLI413))(base[2],base[1],(VV[332]->s.s_dbind)); |
5932 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5933 |
return; |
return; |
5939 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5940 |
register object *sup=base+VM98; VC98 |
register object *sup=base+VM98; VC98 |
5941 |
vs_check; |
vs_check; |
5942 |
{object V894; |
{object V999; |
5943 |
object V895; |
object V1000; |
5944 |
V894=(base[0]); |
V999=(base[0]); |
5945 |
V895=(base[1]); |
V1000=(base[1]); |
5946 |
vs_top=sup; |
vs_top=sup; |
5947 |
V896= (*(LnkLI362))((V894),(V895)); |
V1001= (*(LnkLI362))((V999),(V1000)); |
5948 |
base[2]= CMPcar(/* INLINE-ARGS */V896); |
base[2]= CMPcar(/* INLINE-ARGS */V1001); |
5949 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5950 |
return; |
return; |
5951 |
} |
} |
5957 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5958 |
register object *sup=base+VM99; VC99 |
register object *sup=base+VM99; VC99 |
5959 |
vs_check; |
vs_check; |
5960 |
{object V897; |
{object V1002; |
5961 |
object V898; |
object V1003; |
5962 |
V897=(base[0]); |
V1002=(base[0]); |
5963 |
V898=(base[1]); |
V1003=(base[1]); |
5964 |
vs_top=sup; |
vs_top=sup; |
5965 |
goto TTL; |
goto TTL; |
5966 |
TTL:; |
TTL:; |
5967 |
V899= (*(LnkLI362))((V897),(V898)); |
V1004= (*(LnkLI362))((V1002),(V1003)); |
5968 |
base[2]= CMPcar(/* INLINE-ARGS */V899); |
base[2]= CMPcar(/* INLINE-ARGS */V1004); |
5969 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5970 |
return; |
return; |
5971 |
} |
} |
5977 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5978 |
register object *sup=base+VM100; VC100 |
register object *sup=base+VM100; VC100 |
5979 |
vs_check; |
vs_check; |
5980 |
{object V900; |
{object V1005; |
5981 |
V900=(base[0]); |
V1005=(base[0]); |
5982 |
vs_top=sup; |
vs_top=sup; |
5983 |
goto TTL; |
goto TTL; |
5984 |
TTL:; |
TTL:; |
5985 |
if(((V900))!=Cnil){ |
if(((V1005))!=Cnil){ |
5986 |
goto T2123;} |
goto T2123;} |
5987 |
base[1]= Cnil; |
base[1]= Cnil; |
5988 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5989 |
return; |
return; |
5990 |
goto T2123; |
goto T2123; |
5991 |
T2123:; |
T2123:; |
5992 |
{register object x= Ct,V901= (V900); |
{register object x= Ct,V1006= (V1005); |
5993 |
while(V901!=Cnil) |
while(V1006!=Cnil) |
5994 |
if(eql(x,V901->c.c_car)){ |
if(eql(x,V1006->c.c_car)){ |
5995 |
goto T2127; |
goto T2127; |
5996 |
}else V901=V901->c.c_cdr; |
}else V1006=V1006->c.c_cdr; |
5997 |
goto T2126;} |
goto T2126;} |
5998 |
goto T2127; |
goto T2127; |
5999 |
T2127:; |
T2127:; |
6002 |
return; |
return; |
6003 |
goto T2126; |
goto T2126; |
6004 |
T2126:; |
T2126:; |
6005 |
V900= nreverse((V900)); |
V1005= nreverse((V1005)); |
6006 |
if((CMPcdr((V900)))!=Cnil){ |
V1008 = (V1005); |
6007 |
|
if((CMPcdr(V1008))!=Cnil){ |
6008 |
goto T2130;} |
goto T2130;} |
6009 |
V902= CMPcar((V900)); |
V1007= CMPcar((V1005)); |
6010 |
goto T2128; |
goto T2128; |
6011 |
goto T2130; |
goto T2130; |
6012 |
T2130:; |
T2130:; |
6013 |
V902= make_cons(VV[35],(V900)); |
V1007= make_cons(VV[35],(V1005)); |
6014 |
goto T2128; |
goto T2128; |
6015 |
T2128:; |
T2128:; |
6016 |
base[1]= list(3,VV[8],V902,VV[198]); |
base[1]= list(3,VV[8],V1007,VV[198]); |
6017 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6018 |
return; |
return; |
6019 |
} |
} |
6025 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6026 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM101; VC101 |
6027 |
vs_check; |
vs_check; |
6028 |
{object V903; |
{object V1009; |
6029 |
V903=(base[0]); |
V1009=(base[0]); |
6030 |
vs_top=sup; |
vs_top=sup; |
6031 |
goto TTL; |
goto TTL; |
6032 |
TTL:; |
TTL:; |
6033 |
{register object V904; |
{register object V1010; |
6034 |
V904= Cnil; |
V1010= Cnil; |
6035 |
goto T2134; |
goto T2134; |
6036 |
T2134:; |
T2134:; |
6037 |
{register object V905; |
{register object V1011; |
6038 |
register object V906; |
register object V1012; |
6039 |
V905= CMPcar((VV[88]->s.s_dbind)); |
V1011= CMPcar((VV[88]->s.s_dbind)); |
6040 |
bds_bind(VV[111],Cnil); |
bds_bind(VV[111],Cnil); |
6041 |
V906= Cnil; |
V1012= Cnil; |
6042 |
if(type_of((V905))==t_symbol){ |
if(type_of((V1011))==t_symbol){ |
6043 |
goto T2140;} |
goto T2140;} |
6044 |
base[2]= VV[155]; |
base[2]= VV[155]; |
6045 |
base[3]= (V905); |
base[3]= (V1011); |
6046 |
base[4]= (V903); |
base[4]= (V1009); |
6047 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
6048 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
6049 |
vs_top=sup; |
vs_top=sup; |
6060 |
if((base0[2])==Cnil){ |
if((base0[2])==Cnil){ |
6061 |
goto T2148;} |
goto T2148;} |
6062 |
if(base0[1]!=Cnil){ |
if(base0[1]!=Cnil){ |
6063 |
V907= base0[1]; |
V1013= base0[1]; |
6064 |
goto T2154;} |
goto T2154;} |
6065 |
base0[1]= (*(LnkLI391))(); |
base0[1]= (*(LnkLI391))(); |
6066 |
V907= base0[1]; |
V1013= base0[1]; |
6067 |
goto T2154; |
goto T2154; |
6068 |
T2154:; |
T2154:; |
6069 |
(VV[88]->s.s_dbind)= make_cons(V907,CMPcdr((VV[88]->s.s_dbind))); |
(VV[88]->s.s_dbind)= make_cons(V1013,CMPcdr((VV[88]->s.s_dbind))); |
6070 |
goto T2148; |
goto T2148; |
6071 |
T2148:; |
T2148:; |
6072 |
V906= (*(LnkLI360))((V905),STREF(object,(VV[99]->s.s_dbind),0)); |
V1012= (*(LnkLI360))((V1011),STREF(object,(VV[99]->s.s_dbind),0)); |
6073 |
if(((V906))==Cnil){ |
if(((V1012))==Cnil){ |
6074 |
goto T2156;} |
goto T2156;} |
6075 |
base[3]= CMPcar((V906)); |
base[3]= CMPcar((V1012)); |
6076 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6077 |
Lsymbol_function(); |
Lsymbol_function(); |
6078 |
vs_top=sup; |
vs_top=sup; |
6079 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
6080 |
{object V908; |
{object V1014; |
6081 |
V908= CMPcdr((V906)); |
V1014= CMPcdr((V1012)); |
6082 |
vs_top=base+3; |
vs_top=base+3; |
6083 |
while(V908!=Cnil) |
while(V1014!=Cnil) |
6084 |
{vs_push((V908)->c.c_car);V908=(V908)->c.c_cdr;} |
{vs_push((V1014)->c.c_car);V1014=(V1014)->c.c_cdr;} |
6085 |
vs_base=base+3;} |
vs_base=base+3;} |
6086 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
6087 |
vs_top=sup; |
vs_top=sup; |
6090 |
goto T2156; |
goto T2156; |
6091 |
T2156:; |
T2156:; |
6092 |
base[2]= VV[157]; |
base[2]= VV[157]; |
6093 |
base[3]= (V905); |
base[3]= (V1011); |
6094 |
base[4]= (V903); |
base[4]= (V1009); |
6095 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
6096 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
6097 |
vs_top=sup; |
vs_top=sup; |
6100 |
goto T2157; |
goto T2157; |
6101 |
T2157:; |
T2157:; |
6102 |
base[2]= (VV[111]->s.s_dbind); |
base[2]= (VV[111]->s.s_dbind); |
6103 |
base[3]= (V904); |
base[3]= (V1010); |
6104 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6105 |
Lreconc(); |
Lreconc(); |
6106 |
vs_top=sup; |
vs_top=sup; |
6107 |
V904= vs_base[0]; |
V1010= vs_base[0]; |
6108 |
bds_unwind1;} |
bds_unwind1;} |
6109 |
goto T2137; |
goto T2137; |
6110 |
T2137:; |
T2137:; |
6117 |
goto T2174; |
goto T2174; |
6118 |
goto T2176; |
goto T2176; |
6119 |
T2176:; |
T2176:; |
6120 |
if((CMPcdr((V904)))==Cnil){ |
if((CMPcdr((V1010)))==Cnil){ |
6121 |
goto T2179;} |
goto T2179;} |
6122 |
V909= nreverse((V904)); |
V1015= nreverse((V1010)); |
6123 |
base[1]= make_cons(VV[14],/* INLINE-ARGS */V909); |
base[1]= make_cons(VV[14],/* INLINE-ARGS */V1015); |
6124 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6125 |
return; |
return; |
6126 |
goto T2179; |
goto T2179; |
6127 |
T2179:; |
T2179:; |
6128 |
base[1]= CMPcar((V904)); |
base[1]= CMPcar((V1010)); |
6129 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6130 |
return; |
return; |
6131 |
goto T2174; |
goto T2174; |
6140 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6141 |
register object *sup=base+VM102; VC102 |
register object *sup=base+VM102; VC102 |
6142 |
vs_check; |
vs_check; |
6143 |
{object V910; |
{object V1016; |
6144 |
object V911; |
object V1017; |
6145 |
V910=(base[0]); |
V1016=(base[0]); |
6146 |
V911=(base[1]); |
V1017=(base[1]); |
6147 |
vs_top=sup; |
vs_top=sup; |
6148 |
goto TTL; |
goto TTL; |
6149 |
TTL:; |
TTL:; |
6150 |
if(!(type_of((V911))!=t_cons)){ |
if(!(type_of((V1017))!=t_cons)){ |
6151 |
goto T2184;} |
goto T2184;} |
6152 |
base[2]= (V910); |
base[2]= (V1016); |
6153 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6154 |
return; |
return; |
6155 |
goto T2184; |
goto T2184; |
6156 |
T2184:; |
T2184:; |
6157 |
base[2]= (V910); |
base[2]= (V1016); |
6158 |
base[3]= CMPcar((V911)); |
base[3]= CMPcar((V1017)); |
6159 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6160 |
L64(base0); |
L64(base0); |
6161 |
vs_top=sup; |
vs_top=sup; |
6162 |
V912= vs_base[0]; |
V1018= vs_base[0]; |
6163 |
base[2]= (V910); |
base[2]= (V1016); |
6164 |
base[3]= CMPcdr((V911)); |
base[3]= CMPcdr((V1017)); |
6165 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6166 |
L64(base0); |
L64(base0); |
6167 |
vs_top=sup; |
vs_top=sup; |
6168 |
V913= vs_base[0]; |
V1019= vs_base[0]; |
6169 |
base[2]= make_cons(V912,V913); |
base[2]= make_cons(V1018,V1019); |
6170 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6171 |
return; |
return; |
6172 |
} |
} |
6178 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6179 |
register object *sup=base+VM103; VC103 |
register object *sup=base+VM103; VC103 |
6180 |
vs_check; |
vs_check; |
6181 |
{register object V914; |
{register object V1020; |
6182 |
register object V915; |
register object V1021; |
6183 |
V914=(base[0]); |
V1020=(base[0]); |
6184 |
V915=(base[1]); |
V1021=(base[1]); |
6185 |
vs_top=sup; |
vs_top=sup; |
6186 |
goto TTL; |
goto TTL; |
6187 |
TTL:; |
TTL:; |
6188 |
if(((V914))!=Cnil){ |
if(((V1020))!=Cnil){ |
6189 |
goto T2193;} |
goto T2193;} |
6190 |
base[2]= Cnil; |
base[2]= Cnil; |
6191 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6192 |
return; |
return; |
6193 |
goto T2193; |
goto T2193; |
6194 |
T2193:; |
T2193:; |
6195 |
if(!(type_of((V914))!=t_cons)){ |
if(!(type_of((V1020))!=t_cons)){ |
6196 |
goto T2196;}{object V916; |
goto T2196;}{object V1022; |
6197 |
base[3]= (V914); |
base[3]= (V1020); |
6198 |
base[4]= STREF(object,(VV[99]->s.s_dbind),16); |
base[4]= STREF(object,(VV[99]->s.s_dbind),16); |
6199 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6200 |
Lgethash(); |
Lgethash(); |
6201 |
vs_top=sup; |
vs_top=sup; |
6202 |
V916= vs_base[0]; |
V1022= vs_base[0]; |
6203 |
if(V916==Cnil)goto T2199; |
if(V1022==Cnil)goto T2199; |
6204 |
base[2]= V916; |
base[2]= V1022; |
6205 |
goto T2198; |
goto T2198; |
6206 |
goto T2199; |
goto T2199; |
6207 |
T2199:;}{object V917; |
T2199:;}{object V1023; |
6208 |
base[3]= symbol_name((V914)); |
base[3]= symbol_name((V1020)); |
6209 |
base[4]= STREF(object,(VV[99]->s.s_dbind),20); |
base[4]= STREF(object,(VV[99]->s.s_dbind),20); |
6210 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6211 |
Lgethash(); |
Lgethash(); |
6212 |
vs_top=sup; |
vs_top=sup; |
6213 |
V917= vs_base[0]; |
V1023= vs_base[0]; |
6214 |
if(V917==Cnil)goto T2203; |
if(V1023==Cnil)goto T2203; |
6215 |
base[2]= V917; |
base[2]= V1023; |
6216 |
goto T2198; |
goto T2198; |
6217 |
goto T2203; |
goto T2203; |
6218 |
T2203:;} |
T2203:;} |
6219 |
base[3]= VV[144]; |
base[3]= VV[144]; |
6220 |
base[4]= base0[1]; |
base[4]= base0[1]; |
6221 |
base[5]= (V914); |
base[5]= (V1020); |
6222 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6223 |
(void) (*Lnk354)(); |
(void) (*Lnk354)(); |
6224 |
vs_top=sup; |
vs_top=sup; |
6225 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
6226 |
goto T2198; |
goto T2198; |
6227 |
T2198:; |
T2198:; |
6228 |
base[3]= (V915); |
base[3]= (V1021); |
6229 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6230 |
L64(base0); |
L64(base0); |
6231 |
return; |
return; |
6232 |
goto T2196; |
goto T2196; |
6233 |
T2196:; |
T2196:; |
6234 |
if(!(type_of((V915))!=t_cons)){ |
if(!(type_of((V1021))!=t_cons)){ |
6235 |
goto T2212;} |
goto T2212;} |
6236 |
base[2]= VV[145]; |
base[2]= VV[145]; |
6237 |
base[3]= base0[1]; |
base[3]= base0[1]; |
6241 |
return; |
return; |
6242 |
goto T2212; |
goto T2212; |
6243 |
T2212:; |
T2212:; |
6244 |
base[2]= CMPcar((V914)); |
base[2]= CMPcar((V1020)); |
6245 |
base[3]= CMPcar((V915)); |
base[3]= CMPcar((V1021)); |
6246 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6247 |
L63(base0); |
L63(base0); |
6248 |
vs_top=sup; |
vs_top=sup; |
6249 |
V918= vs_base[0]; |
V1024= vs_base[0]; |
6250 |
base[2]= CMPcdr((V914)); |
base[2]= CMPcdr((V1020)); |
6251 |
base[3]= CMPcdr((V915)); |
base[3]= CMPcdr((V1021)); |
6252 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6253 |
L63(base0); |
L63(base0); |
6254 |
vs_top=sup; |
vs_top=sup; |
6255 |
V919= vs_base[0]; |
V1025= vs_base[0]; |
6256 |
base[2]= make_cons(V918,V919); |
base[2]= make_cons(V1024,V1025); |
6257 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6258 |
return; |
return; |
6259 |
} |
} |
6265 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6266 |
register object *sup=base+VM104; VC104 |
register object *sup=base+VM104; VC104 |
6267 |
vs_check; |
vs_check; |
6268 |
{object V920; |
{object V1026; |
6269 |
V920=(base[0]); |
V1026=(base[0]); |
6270 |
vs_top=sup; |
vs_top=sup; |
6271 |
goto TTL; |
goto TTL; |
6272 |
TTL:; |
TTL:; |
6273 |
{long V921; |
{long V1027; |
6274 |
V921= 0; |
V1027= 0; |
6275 |
{register object V922; |
{register object V1028; |
6276 |
object V923; |
object V1029; |
6277 |
V922= (V920); |
V1028= (V1026); |
6278 |
V923= CMPcar((V922)); |
V1029= CMPcar((V1028)); |
6279 |
goto T2227; |
goto T2227; |
6280 |
T2227:; |
T2227:; |
6281 |
if(!(((V922))==Cnil)){ |
if(!(((V1028))==Cnil)){ |
6282 |
goto T2228;} |
goto T2228;} |
6283 |
base[2]= CMPmake_fixnum(V921); |
base[2]= CMPmake_fixnum(V1027); |
6284 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6285 |
return; |
return; |
6286 |
goto T2228; |
goto T2228; |
6287 |
T2228:; |
T2228:; |
6288 |
V924 = CMPmake_fixnum(V921); |
V1030 = CMPmake_fixnum(V1027); |
6289 |
base[2]= (V923); |
base[2]= (V1029); |
6290 |
base[3]= base0[1]; |
base[3]= base0[1]; |
6291 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6292 |
(void) (*Lnk349)(); |
(void) (*Lnk349)(); |
6293 |
vs_top=sup; |
vs_top=sup; |
6294 |
V925= vs_base[0]; |
V1031= vs_base[0]; |
6295 |
V921= fix(number_plus(V924,V925)); |
V1027= fix(number_plus(V1030,V1031)); |
6296 |
V922= CMPcdr((V922)); |
V1028= CMPcdr((V1028)); |
6297 |
V923= CMPcar((V922)); |
V1029= CMPcar((V1028)); |
6298 |
goto T2227;}} |
goto T2227;}} |
6299 |
} |
} |
6300 |
} |
} |
6308 |
vs_top=sup; |
vs_top=sup; |
6309 |
goto TTL; |
goto TTL; |
6310 |
TTL:; |
TTL:; |
6311 |
{object V926; |
{object V1032; |
6312 |
V928= nreverse(base0[7]); |
V1034 = base0[2]; |
6313 |
base[0]= append(base0[2],/* INLINE-ARGS */V928); |
V1035= nreverse(base0[7]); |
6314 |
|
base[0]= append(V1034,/* INLINE-ARGS */V1035); |
6315 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6316 |
L33(base0); |
L33(base0); |
6317 |
vs_top=sup; |
vs_top=sup; |
6318 |
V927= vs_base[0]; |
V1033= vs_base[0]; |
6319 |
|
V1037 = base0[4]; |
6320 |
base[1]= base0[8]; |
base[1]= base0[8]; |
6321 |
base[2]= VV[75]; |
base[2]= VV[75]; |
6322 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6323 |
Lreconc(); |
Lreconc(); |
6324 |
vs_top=sup; |
vs_top=sup; |
6325 |
V930= vs_base[0]; |
V1038= vs_base[0]; |
6326 |
base[0]= append(base0[4],V930); |
base[0]= append(V1037,V1038); |
6327 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6328 |
L33(base0); |
L33(base0); |
6329 |
vs_top=sup; |
vs_top=sup; |
6330 |
V929= vs_base[0]; |
V1036= vs_base[0]; |
6331 |
base[0]= base0[6]; |
base[0]= base0[6]; |
6332 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6333 |
L33(base0); |
L33(base0); |
6334 |
vs_top=sup; |
vs_top=sup; |
6335 |
V931= vs_base[0]; |
V1039= vs_base[0]; |
6336 |
V932= make_cons(VV[76],V931); |
V1040= make_cons(VV[76],V1039); |
6337 |
V933= append(V929,/* INLINE-ARGS */V932); |
V1041= append(V1036,/* INLINE-ARGS */V1040); |
6338 |
V934= make_cons(VV[74],/* INLINE-ARGS */V933); |
V1042= make_cons(VV[74],/* INLINE-ARGS */V1041); |
6339 |
V935= append(V927,/* INLINE-ARGS */V934); |
V1043= append(V1033,/* INLINE-ARGS */V1042); |
6340 |
V926= make_cons(VV[73],/* INLINE-ARGS */V935); |
V1032= make_cons(VV[73],/* INLINE-ARGS */V1043); |
6341 |
if((base0[9])==Cnil){ |
if((base0[9])==Cnil){ |
6342 |
goto T2253;} |
goto T2253;} |
6343 |
V936= list(2,base0[9],Cnil); |
V1044= list(2,base0[9],Cnil); |
6344 |
base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V936,Cnil),(V926)); |
base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V1044,Cnil),(V1032)); |
6345 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6346 |
return; |
return; |
6347 |
goto T2253; |
goto T2253; |
6348 |
T2253:; |
T2253:; |
6349 |
base[0]= (V926); |
base[0]= (V1032); |
6350 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6351 |
return;} |
return;} |
6352 |
} |
} |
6357 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6358 |
register object *sup=base+VM106; VC106 |
register object *sup=base+VM106; VC106 |
6359 |
vs_check; |
vs_check; |
6360 |
{object V937; |
{object V1045; |
6361 |
V937=(base[0]); |
V1045=(base[0]); |
6362 |
vs_top=sup; |
vs_top=sup; |
6363 |
goto TTL; |
goto TTL; |
6364 |
TTL:; |
TTL:; |
6365 |
if((CMPcdr((V937)))!=Cnil){ |
if((CMPcdr((V1045)))!=Cnil){ |
6366 |
goto T2256;} |
goto T2256;} |
6367 |
base[1]= CMPcar((V937)); |
base[1]= CMPcar((V1045)); |
6368 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6369 |
return; |
return; |
6370 |
goto T2256; |
goto T2256; |
6371 |
T2256:; |
T2256:; |
6372 |
base[1]= make_cons(VV[14],(V937)); |
base[1]= make_cons(VV[14],(V1045)); |
6373 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6374 |
return; |
return; |
6375 |
} |
} |
6381 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6382 |
register object *sup=base+VM107; VC107 |
register object *sup=base+VM107; VC107 |
6383 |
vs_check; |
vs_check; |
6384 |
{object V938; |
{object V1046; |
6385 |
V938=(base[0]); |
V1046=(base[0]); |
6386 |
vs_top=sup; |
vs_top=sup; |
6387 |
goto TTL; |
goto TTL; |
6388 |
TTL:; |
TTL:; |
6389 |
{register object V939; |
{register object V1047; |
6390 |
V939= Cnil; |
V1047= Cnil; |
6391 |
{register object V940; |
{register object V1048; |
6392 |
register object V941; |
register object V1049; |
6393 |
V940= (V938); |
V1048= (V1046); |
6394 |
V941= CMPcar((V940)); |
V1049= CMPcar((V1048)); |
6395 |
goto T2262; |
goto T2262; |
6396 |
T2262:; |
T2262:; |
6397 |
if(!(((V940))==Cnil)){ |
if(!(((V1048))==Cnil)){ |
6398 |
goto T2263;} |
goto T2263;} |
6399 |
goto T2258; |
goto T2258; |
6400 |
goto T2263; |
goto T2263; |
6401 |
T2263:; |
T2263:; |
6402 |
if(((V941))==Cnil){ |
if(((V1049))==Cnil){ |
6403 |
goto T2267;} |
goto T2267;} |
6404 |
{register object V942; |
{register object V1050; |
6405 |
V942= (V941); |
V1050= (V1049); |
6406 |
V939= make_cons((V942),(V939));} |
V1047= make_cons((V1050),(V1047));} |
6407 |
if(!(type_of((V941))==t_cons)){ |
if(!(type_of((V1049))==t_cons)){ |
6408 |
goto T2267;} |
goto T2267;} |
6409 |
{register object x= CMPcar((V941)),V943= VV[72]; |
{register object x= CMPcar((V1049)),V1051= VV[72]; |
6410 |
while(V943!=Cnil) |
while(V1051!=Cnil) |
6411 |
if(eql(x,V943->c.c_car)){ |
if(eql(x,V1051->c.c_car)){ |
6412 |
goto T2276; |
goto T2276; |
6413 |
}else V943=V943->c.c_cdr; |
}else V1051=V1051->c.c_cdr; |
6414 |
goto T2267;} |
goto T2267;} |
6415 |
goto T2276; |
goto T2276; |
6416 |
T2276:; |
T2276:; |
6417 |
goto T2258; |
goto T2258; |
6418 |
goto T2267; |
goto T2267; |
6419 |
T2267:; |
T2267:; |
6420 |
V940= CMPcdr((V940)); |
V1048= CMPcdr((V1048)); |
6421 |
V941= CMPcar((V940)); |
V1049= CMPcar((V1048)); |
6422 |
goto T2262;} |
goto T2262;} |
6423 |
goto T2258; |
goto T2258; |
6424 |
T2258:; |
T2258:; |
6425 |
base[1]= nreverse((V939)); |
base[1]= nreverse((V1047)); |
6426 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6427 |
return;} |
return;} |
6428 |
} |
} |
6434 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6435 |
register object *sup=base+VM108; VC108 |
register object *sup=base+VM108; VC108 |
6436 |
vs_check; |
vs_check; |
6437 |
{object V944; |
{object V1052; |
6438 |
V944=(base[0]); |
V1052=(base[0]); |
6439 |
vs_top=sup; |
vs_top=sup; |
6440 |
goto TTL; |
goto TTL; |
6441 |
TTL:; |
TTL:; |
6442 |
{register object V945; |
{register object V1053; |
6443 |
V945= (V944); |
V1053= (V1052); |
6444 |
goto T2283; |
goto T2283; |
6445 |
T2283:; |
T2283:; |
6446 |
if(type_of((V945))==t_cons){ |
if(type_of((V1053))==t_cons){ |
6447 |
goto T2284;} |
goto T2284;} |
6448 |
base[1]= (V945); |
base[1]= (V1053); |
6449 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6450 |
return; |
return; |
6451 |
goto T2284; |
goto T2284; |
6452 |
T2284:; |
T2284:; |
6453 |
{register object V946; |
{register object V1054; |
6454 |
V946= CMPcar((V945)); |
V1054= CMPcar((V1053)); |
6455 |
V945= CMPcdr((V945)); |
V1053= CMPcdr((V1053)); |
6456 |
base[1]= (V946);} |
base[1]= (V1054);} |
6457 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6458 |
L27(base0); |
L27(base0); |
6459 |
vs_top=sup; |
vs_top=sup; |
6474 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6475 |
register object *sup=base+VM109; VC109 |
register object *sup=base+VM109; VC109 |
6476 |
vs_check; |
vs_check; |
6477 |
{register object V947; |
{register object V1055; |
6478 |
register object V948; |
register object V1056; |
6479 |
object V949; |
object V1057; |
6480 |
V947=(base[0]); |
V1055=(base[0]); |
6481 |
V948=(base[1]); |
V1056=(base[1]); |
6482 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
6483 |
if(vs_base>=vs_top){vs_top=sup;goto T2297;} |
if(vs_base>=vs_top){vs_top=sup;goto T2297;} |
6484 |
V949=(base[2]); |
V1057=(base[2]); |
6485 |
vs_top=sup; |
vs_top=sup; |
6486 |
goto T2298; |
goto T2298; |
6487 |
goto T2297; |
goto T2297; |
6488 |
T2297:; |
T2297:; |
6489 |
V949= Cnil; |
V1057= Cnil; |
6490 |
goto T2298; |
goto T2298; |
6491 |
T2298:; |
T2298:; |
6492 |
{register object V950; |
{register object V1058; |
6493 |
V950= (V947); |
V1058= (V1055); |
6494 |
if(!(((V950))==Cnil)){ |
if(!(((V1058))==Cnil)){ |
6495 |
goto T2301;} |
goto T2301;} |
6496 |
if(!(type_of((V948))==t_cons)){ |
if(!(type_of((V1056))==t_cons)){ |
6497 |
goto T2304;} |
goto T2304;} |
6498 |
if(!((CMPcar((V948)))==(VV[62]))){ |
if(!((CMPcar((V1056)))==(VV[62]))){ |
6499 |
goto T2307;} |
goto T2307;} |
6500 |
{object V951; |
{object V1059; |
6501 |
object V952= CMPcdr((V948)); |
object V1060= CMPcdr((V1056)); |
6502 |
if(V952==Cnil){ |
if(V1060==Cnil){ |
6503 |
base[4]= Cnil; |
base[4]= Cnil; |
6504 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6505 |
return;} |
return;} |
6506 |
base[3]=V951=MMcons(Cnil,Cnil); |
base[3]=V1059=MMcons(Cnil,Cnil); |
6507 |
goto T2309; |
goto T2309; |
6508 |
T2309:; |
T2309:; |
6509 |
{register object V953; |
{register object V1061; |
6510 |
V953= (V952->c.c_car); |
V1061= (V1060->c.c_car); |
6511 |
if(type_of((V953))==t_cons){ |
if(type_of((V1061))==t_cons){ |
6512 |
goto T2311;} |
goto T2311;} |
6513 |
(V951->c.c_cdr)= Cnil; |
(V1059->c.c_cdr)= Cnil; |
6514 |
goto T2310; |
goto T2310; |
6515 |
goto T2311; |
goto T2311; |
6516 |
T2311:; |
T2311:; |
6517 |
if(!((((CMPcar((V953)))==(VV[65])?Ct:Cnil))==Cnil)){ |
if(!((((CMPcar((V1061)))==(VV[65])?Ct:Cnil))==Cnil)){ |
6518 |
goto T2315;} |
goto T2315;} |
6519 |
goto T2313; |
goto T2313; |
6520 |
goto T2315; |
goto T2315; |
6521 |
T2315:; |
T2315:; |
6522 |
if(!(((type_of(CMPcadr((V953)))==t_symbol?Ct:Cnil))==Cnil)){ |
if(!(((type_of(CMPcadr((V1061)))==t_symbol?Ct:Cnil))==Cnil)){ |
6523 |
goto T2317;} |
goto T2317;} |
6524 |
goto T2313; |
goto T2313; |
6525 |
goto T2317; |
goto T2317; |
6526 |
T2317:; |
T2317:; |
6527 |
base[4]= (V953); |
base[4]= (V1061); |
6528 |
base[5]= base0[1]; |
base[5]= base0[1]; |
6529 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
6530 |
Lmacroexpand(); |
Lmacroexpand(); |
6531 |
vs_top=sup; |
vs_top=sup; |
6532 |
V953= vs_base[0]; |
V1061= vs_base[0]; |
6533 |
if(((type_of((V953))==t_symbol?Ct:Cnil))==Cnil){ |
V1062 = (V1061); |
6534 |
|
if(((type_of(V1062)==t_symbol?Ct:Cnil))==Cnil){ |
6535 |
goto T2313;} |
goto T2313;} |
6536 |
(V951->c.c_cdr)= Cnil; |
(V1059->c.c_cdr)= Cnil; |
6537 |
goto T2310; |
goto T2310; |
6538 |
goto T2313; |
goto T2313; |
6539 |
T2313:; |
T2313:; |
6540 |
(V951->c.c_cdr)= make_cons((V953),Cnil);} |
(V1059->c.c_cdr)= make_cons((V1061),Cnil);} |
6541 |
goto T2310; |
goto T2310; |
6542 |
T2310:; |
T2310:; |
6543 |
while(MMcdr(V951)!=Cnil)V951=MMcdr(V951); |
while(MMcdr(V1059)!=Cnil)V1059=MMcdr(V1059); |
6544 |
if((V952=MMcdr(V952))==Cnil){ |
if((V1060=MMcdr(V1060))==Cnil){ |
6545 |
base[3]=base[3]->c.c_cdr; |
base[3]=base[3]->c.c_cdr; |
6546 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6547 |
return;} |
return;} |
6548 |
goto T2309;} |
goto T2309;} |
6549 |
goto T2307; |
goto T2307; |
6550 |
T2307:; |
T2307:; |
6551 |
base[3]= make_cons((V948),Cnil); |
base[3]= make_cons((V1056),Cnil); |
6552 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6553 |
return; |
return; |
6554 |
goto T2304; |
goto T2304; |
6558 |
return; |
return; |
6559 |
goto T2301; |
goto T2301; |
6560 |
T2301:; |
T2301:; |
6561 |
if(!(type_of((V950))==t_cons)){ |
if(!(type_of((V1058))==t_cons)){ |
6562 |
goto T2323;} |
goto T2323;} |
6563 |
{object V954; |
{object V1063; |
6564 |
object V955; |
object V1064; |
6565 |
object V956; |
object V1065; |
6566 |
object V957; |
object V1066; |
6567 |
V954= CMPcar((V947)); |
V1063= CMPcar((V1055)); |
6568 |
V955= CMPcdr((V947)); |
V1064= CMPcdr((V1055)); |
6569 |
base[7]= (V954); |
base[7]= (V1063); |
6570 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6571 |
L27(base0); |
L27(base0); |
6572 |
vs_top=sup; |
vs_top=sup; |
6573 |
V956= vs_base[0]; |
V1065= vs_base[0]; |
6574 |
base[7]= (V955); |
base[7]= (V1064); |
6575 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6576 |
L27(base0); |
L27(base0); |
6577 |
vs_top=sup; |
vs_top=sup; |
6578 |
V957= vs_base[0]; |
V1066= vs_base[0]; |
6579 |
if(((V956))!=Cnil){ |
if(((V1065))!=Cnil){ |
6580 |
goto T2331;} |
goto T2331;} |
6581 |
if(((V957))==Cnil){ |
if(((V1066))==Cnil){ |
6582 |
goto T2332;} |
goto T2332;} |
6583 |
goto T2331; |
goto T2331; |
6584 |
T2331:; |
T2331:; |
6585 |
if(((V957))==Cnil){ |
if(((V1066))==Cnil){ |
6586 |
goto T2337;} |
goto T2337;} |
6587 |
{register object V959; |
{register object V1068; |
6588 |
object V960; |
object V1069; |
6589 |
if((V949)!=Cnil){ |
if((V1057)!=Cnil){ |
6590 |
V959= (V949); |
V1068= (V1057); |
6591 |
goto T2339;} |
goto T2339;} |
6592 |
V959= (VV[66]->s.s_dbind); |
V1068= (VV[66]->s.s_dbind); |
6593 |
goto T2339; |
goto T2339; |
6594 |
T2339:; |
T2339:; |
6595 |
base[9]= (V954); |
base[9]= (V1063); |
6596 |
base[10]= list(2,VV[65],(V959)); |
base[10]= list(2,VV[65],(V1068)); |
6597 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
6598 |
L28(base0); |
L28(base0); |
6599 |
vs_top=sup; |
vs_top=sup; |
6600 |
V961= vs_base[0]; |
V1070= vs_base[0]; |
6601 |
V962= list(3,VV[11],(V959),list(2,VV[10],(V959))); |
V1071= list(3,VV[11],(V1068),list(2,VV[10],(V1068))); |
6602 |
base[9]= (V955); |
base[9]= (V1064); |
6603 |
base[10]= (V959); |
base[10]= (V1068); |
6604 |
base[11]= (V959); |
base[11]= (V1068); |
6605 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
6606 |
L28(base0); |
L28(base0); |
6607 |
vs_top=sup; |
vs_top=sup; |
6608 |
V963= vs_base[0]; |
V1072= vs_base[0]; |
6609 |
V964= make_cons(/* INLINE-ARGS */V962,V963); |
V1073= make_cons(/* INLINE-ARGS */V1071,V1072); |
6610 |
V960= append(V961,/* INLINE-ARGS */V964); |
V1069= append(V1070,/* INLINE-ARGS */V1073); |
6611 |
if((V949)==Cnil){ |
if((V1057)==Cnil){ |
6612 |
goto T2349;} |
goto T2349;} |
6613 |
if(((V959))==((V948))){ |
if(((V1068))==((V1056))){ |
6614 |
goto T2353;} |
goto T2353;} |
6615 |
V966= list(3,VV[11],(V959),(V948)); |
V1075= list(3,VV[11],(V1068),(V1056)); |
6616 |
V965= make_cons(/* INLINE-ARGS */V966,Cnil); |
V1074= make_cons(/* INLINE-ARGS */V1075,Cnil); |
6617 |
goto T2351; |
goto T2351; |
6618 |
goto T2353; |
goto T2353; |
6619 |
T2353:; |
T2353:; |
6620 |
V965= Cnil; |
V1074= Cnil; |
6621 |
goto T2351; |
goto T2351; |
6622 |
T2351:; |
T2351:; |
6623 |
base[9]= append(V965,(V960)); |
V1076 = (V1069); |
6624 |
|
base[9]= append(V1074,V1076); |
6625 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
6626 |
return; |
return; |
6627 |
goto T2349; |
goto T2349; |
6628 |
T2349:; |
T2349:; |
6629 |
V967= list(2,(V959),(V948)); |
V1077= list(2,(V1068),(V1056)); |
6630 |
V968= listA(3,VV[29],make_cons(/* INLINE-ARGS */V967,Cnil),(V960)); |
V1078= listA(3,VV[29],make_cons(/* INLINE-ARGS */V1077,Cnil),(V1069)); |
6631 |
base[9]= make_cons(/* INLINE-ARGS */V968,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V1078,Cnil); |
6632 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
6633 |
return;} |
return;} |
6634 |
goto T2337; |
goto T2337; |
6635 |
T2337:; |
T2337:; |
6636 |
base[7]= (V954); |
base[7]= (V1063); |
6637 |
base[8]= list(2,VV[65],(V948)); |
base[8]= list(2,VV[65],(V1056)); |
6638 |
base[9]= (V949); |
base[9]= (V1057); |
6639 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
6640 |
L28(base0); |
L28(base0); |
6641 |
return; |
return; |
6646 |
return;} |
return;} |
6647 |
goto T2323; |
goto T2323; |
6648 |
T2323:; |
T2323:; |
6649 |
if(((V947))==((V948))){ |
if(((V1055))==((V1056))){ |
6650 |
goto T2359;} |
goto T2359;} |
6651 |
V969= list(3,VV[11],(V947),(V948)); |
V1079= list(3,VV[11],(V1055),(V1056)); |
6652 |
base[3]= make_cons(/* INLINE-ARGS */V969,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V1079,Cnil); |
6653 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6654 |
return; |
return; |
6655 |
goto T2359; |
goto T2359; |
6666 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6667 |
register object *sup=base+VM110; VC110 |
register object *sup=base+VM110; VC110 |
6668 |
vs_check; |
vs_check; |
6669 |
{object V970; |
{object V1080; |
6670 |
V970=(base[0]); |
V1080=(base[0]); |
6671 |
vs_top=sup; |
vs_top=sup; |
6672 |
goto TTL; |
goto TTL; |
6673 |
TTL:; |
TTL:; |
6674 |
{object V971; |
{object V1081; |
6675 |
object V972; |
object V1082; |
6676 |
V971= CMPmake_fixnum((long)length((V970))); |
V1081= CMPmake_fixnum((long)length((V1080))); |
6677 |
base[3]= VV[61]; |
base[3]= VV[61]; |
6678 |
if(!(number_compare((V971),small_fixnum(10))<0)){ |
if(!(number_compare((V1081),small_fixnum(10))<0)){ |
6679 |
goto T2366;} |
goto T2366;} |
6680 |
base[4]= small_fixnum(10); |
base[4]= small_fixnum(10); |
6681 |
goto T2364; |
goto T2364; |
6682 |
goto T2366; |
goto T2366; |
6683 |
T2366:; |
T2366:; |
6684 |
base[4]= (V971); |
base[4]= (V1081); |
6685 |
goto T2364; |
goto T2364; |
6686 |
T2364:; |
T2364:; |
6687 |
base[5]= VV[20]; |
base[5]= VV[20]; |
6689 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
6690 |
Lmake_hash_table(); |
Lmake_hash_table(); |
6691 |
vs_top=sup; |
vs_top=sup; |
6692 |
V972= vs_base[0]; |
V1082= vs_base[0]; |
6693 |
{register object V973; |
{register object V1083; |
6694 |
register object V974; |
register object V1084; |
6695 |
V973= (V970); |
V1083= (V1080); |
6696 |
V974= CMPcar((V973)); |
V1084= CMPcar((V1083)); |
6697 |
goto T2374; |
goto T2374; |
6698 |
T2374:; |
T2374:; |
6699 |
if(!(((V973))==Cnil)){ |
if(!(((V1083))==Cnil)){ |
6700 |
goto T2375;} |
goto T2375;} |
6701 |
goto T2370; |
goto T2370; |
6702 |
goto T2375; |
goto T2375; |
6703 |
T2375:; |
T2375:; |
6704 |
{object V975; |
{object V1085; |
6705 |
object V977; |
object V1087; |
6706 |
V975= symbol_name(CMPcar((V974))); |
V1085= symbol_name(CMPcar((V1084))); |
6707 |
V977= CMPcadr((V974)); |
V1087= CMPcadr((V1084)); |
6708 |
base[6]= (V975); |
base[6]= (V1085); |
6709 |
base[7]= V972; |
base[7]= V1082; |
6710 |
base[8]= (V977); |
base[8]= (V1087); |
6711 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
6712 |
siLhash_set(); |
siLhash_set(); |
6713 |
vs_top=sup;} |
vs_top=sup;} |
6714 |
V973= CMPcdr((V973)); |
V1083= CMPcdr((V1083)); |
6715 |
V974= CMPcar((V973)); |
V1084= CMPcar((V1083)); |
6716 |
goto T2374;} |
goto T2374;} |
6717 |
goto T2370; |
goto T2370; |
6718 |
T2370:; |
T2370:; |
6719 |
base[3]= (V972); |
base[3]= (V1082); |
6720 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6721 |
return;} |
return;} |
6722 |
} |
} |
6728 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6729 |
register object *sup=base+VM111; VC111 |
register object *sup=base+VM111; VC111 |
6730 |
vs_check; |
vs_check; |
6731 |
{register object V978; |
{register object V1088; |
6732 |
register long V979; |
register long V1089; |
6733 |
V978=(base[0]); |
V1088=(base[0]); |
6734 |
V979=fix(base[1]); |
V1089=fix(base[1]); |
6735 |
vs_top=sup; |
vs_top=sup; |
6736 |
goto TTL; |
goto TTL; |
6737 |
TTL:; |
TTL:; |
6738 |
goto T2391; |
goto T2391; |
6739 |
T2391:; |
T2391:; |
6740 |
if(!((V979)<=(4))){ |
if(!((V1089)<=(4))){ |
6741 |
goto T2392;}switch(V979){ |
goto T2392;}switch(V1089){ |
6742 |
case 1: |
case 1: |
6743 |
goto T2398; |
goto T2398; |
6744 |
T2398:; |
T2398:; |
6745 |
V980= VV[10]; |
V1090= VV[10]; |
6746 |
goto T2396; |
goto T2396; |
6747 |
case 2: |
case 2: |
6748 |
goto T2399; |
goto T2399; |
6749 |
T2399:; |
T2399:; |
6750 |
V980= VV[15]; |
V1090= VV[15]; |
6751 |
goto T2396; |
goto T2396; |
6752 |
case 3: |
case 3: |
6753 |
goto T2400; |
goto T2400; |
6754 |
T2400:; |
T2400:; |
6755 |
V980= VV[16]; |
V1090= VV[16]; |
6756 |
goto T2396; |
goto T2396; |
6757 |
case 4: |
case 4: |
6758 |
goto T2401; |
goto T2401; |
6759 |
T2401:; |
T2401:; |
6760 |
V980= VV[17]; |
V1090= VV[17]; |
6761 |
goto T2396; |
goto T2396; |
6762 |
default: |
default: |
6763 |
goto T2402; |
goto T2402; |
6764 |
T2402:; |
T2402:; |
6765 |
V980= Cnil; |
V1090= Cnil; |
6766 |
goto T2396;} |
goto T2396;} |
6767 |
V980= Cnil; |
V1090= Cnil; |
6768 |
goto T2396; |
goto T2396; |
6769 |
T2396:; |
T2396:; |
6770 |
V978= list(2,V980,(V978)); |
V1091 = (V1088); |
6771 |
base[2]= (V978); |
V1088= list(2,V1090,V1091); |
6772 |
|
base[2]= (V1088); |
6773 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6774 |
return; |
return; |
6775 |
goto T2392; |
goto T2392; |
6776 |
T2392:; |
T2392:; |
6777 |
V978= list(2,VV[17],(V978)); |
V1088= list(2,VV[17],(V1088)); |
6778 |
V979= (long)(V979)-(4); |
V1089= (long)(V1089)-(4); |
6779 |
goto T2391; |
goto T2391; |
6780 |
} |
} |
6781 |
} |
} |