210 |
V28= (*(LnkLI21))(/* INLINE-ARGS */V29); |
V28= (*(LnkLI21))(/* INLINE-ARGS */V29); |
211 |
if(((V28))==Cnil){ |
if(((V28))==Cnil){ |
212 |
goto T42;} |
goto T42;} |
213 |
V30= (*(LnkLI23))((V27)); |
V30 = (V28); |
214 |
(void)(((V28))->v.v_self[2]= (/* INLINE-ARGS */V30));{object V32; |
V31= (*(LnkLI23))((V27)); |
215 |
V32= ((V28))->v.v_self[4]; |
(void)((V30)->v.v_self[2]= (/* INLINE-ARGS */V31)); |
216 |
if(V32==Cnil)goto T46; |
V32 = (V28);{object V34; |
217 |
V31= V32; |
V34= ((V28))->v.v_self[4]; |
218 |
|
if(V34==Cnil)goto T46; |
219 |
|
V33= V34; |
220 |
goto T45; |
goto T45; |
221 |
goto T46; |
goto T46; |
222 |
T46:;} |
T46:;} |
223 |
V31= (*(LnkLI24))((V27)); |
V33= (*(LnkLI24))((V27)); |
224 |
goto T45; |
goto T45; |
225 |
T45:; |
T45:; |
226 |
{object V33 = ((V28))->v.v_self[4]= (V31); |
{object V35 = (V32)->v.v_self[4]= (V33); |
227 |
VMR7(V33)} |
VMR7(V35)} |
228 |
goto T42; |
goto T42; |
229 |
T42:;{object V34; |
T42:;{object V36; |
230 |
V34= (VV[2]->s.s_dbind); |
V36= (VV[2]->s.s_dbind); |
231 |
V35= make_cons((V27),Cnil); |
V37= make_cons((V27),Cnil); |
232 |
(VV[2]->s.s_dbind)= nconc(V34,/* INLINE-ARGS */V35);} |
(VV[2]->s.s_dbind)= nconc(V36,/* INLINE-ARGS */V37);} |
233 |
{object V36 = (VV[2]->s.s_dbind); |
{object V38 = (VV[2]->s.s_dbind); |
234 |
VMR7(V36)}} |
VMR7(V38)}} |
235 |
return Cnil; |
return Cnil; |
236 |
} |
} |
237 |
/* local entry for function LOOKUP-FGEN */ |
/* local entry for function LOOKUP-FGEN */ |
238 |
|
|
239 |
static object LI8(V38) |
static object LI8(V40) |
240 |
|
|
241 |
object V38; |
object V40; |
242 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
243 |
goto TTL; |
goto TTL; |
244 |
TTL:; |
TTL:; |
245 |
base[0]= (V38); |
base[0]= (V40); |
246 |
base[1]= (VV[2]->s.s_dbind); |
base[1]= (VV[2]->s.s_dbind); |
247 |
base[2]= VV[3]; |
base[2]= VV[3]; |
248 |
base[3]= (VV[22]->s.s_gfdef); |
base[3]= (VV[22]->s.s_gfdef); |
251 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
252 |
(void) (*Lnk26)(); |
(void) (*Lnk26)(); |
253 |
vs_top=sup; |
vs_top=sup; |
254 |
{object V39 = vs_base[0]; |
{object V41 = vs_base[0]; |
255 |
VMR8(V39)} |
VMR8(V41)} |
256 |
base[0]=base[0]; |
base[0]=base[0]; |
257 |
return Cnil; |
return Cnil; |
258 |
} |
} |
259 |
/* local entry for function MAKE-FGEN */ |
/* local entry for function MAKE-FGEN */ |
260 |
|
|
261 |
static object LI9(V45,V46,V47,V48,V49) |
static object LI9(V47,V48,V49,V50,V51) |
262 |
|
|
263 |
object V45;object V46;object V47;object V48;object V49; |
object V47;object V48;object V49;object V50;object V51; |
264 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
265 |
goto TTL; |
goto TTL; |
266 |
TTL:; |
TTL:; |
267 |
{register object V50; |
{register object V52; |
268 |
base[0]= small_fixnum(6); |
base[0]= small_fixnum(6); |
269 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
270 |
(void) (*Lnk27)(); |
(void) (*Lnk27)(); |
271 |
vs_top=sup; |
vs_top=sup; |
272 |
V50= vs_base[0]; |
V52= vs_base[0]; |
273 |
(void)(((V50))->v.v_self[0]= ((V45))); |
(void)(((V52))->v.v_self[0]= ((V47))); |
274 |
(void)(((V50))->v.v_self[1]= ((V46))); |
(void)(((V52))->v.v_self[1]= ((V48))); |
275 |
(void)(((V50))->v.v_self[2]= ((V47))); |
(void)(((V52))->v.v_self[2]= ((V49))); |
276 |
(void)(((V50))->v.v_self[3]= ((V48))); |
(void)(((V52))->v.v_self[3]= ((V50))); |
277 |
(void)(((V50))->v.v_self[4]= ((V49))); |
(void)(((V52))->v.v_self[4]= ((V51))); |
278 |
{object V51 = (V50); |
{object V53 = (V52); |
279 |
VMR9(V51)}} |
VMR9(V53)}} |
280 |
base[0]=base[0]; |
base[0]=base[0]; |
281 |
return Cnil; |
return Cnil; |
282 |
} |
} |
283 |
/* local entry for function FGEN-TEST */ |
/* local entry for function FGEN-TEST */ |
284 |
|
|
285 |
static object LI10(V53) |
static object LI10(V55) |
286 |
|
|
287 |
object V53; |
object V55; |
288 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
289 |
goto TTL; |
goto TTL; |
290 |
TTL:; |
TTL:; |
291 |
{object V54 = ((V53))->v.v_self[0]; |
{object V56 = ((V55))->v.v_self[0]; |
292 |
VMR10(V54)} |
VMR10(V56)} |
293 |
return Cnil; |
return Cnil; |
294 |
} |
} |
295 |
/* local entry for function FGEN-GENSYMS */ |
/* local entry for function FGEN-GENSYMS */ |
296 |
|
|
297 |
static object LI11(V56) |
static object LI11(V58) |
298 |
|
|
299 |
object V56; |
object V58; |
300 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
301 |
goto TTL; |
goto TTL; |
302 |
TTL:; |
TTL:; |
303 |
{object V57 = ((V56))->v.v_self[1]; |
{object V59 = ((V58))->v.v_self[1]; |
304 |
VMR11(V57)} |
VMR11(V59)} |
305 |
return Cnil; |
return Cnil; |
306 |
} |
} |
307 |
/* local entry for function FGEN-GENERATOR */ |
/* local entry for function FGEN-GENERATOR */ |
308 |
|
|
309 |
static object LI12(V59) |
static object LI12(V61) |
310 |
|
|
311 |
object V59; |
object V61; |
312 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
313 |
goto TTL; |
goto TTL; |
314 |
TTL:; |
TTL:; |
315 |
{object V60 = ((V59))->v.v_self[2]; |
{object V62 = ((V61))->v.v_self[2]; |
316 |
VMR12(V60)} |
VMR12(V62)} |
317 |
return Cnil; |
return Cnil; |
318 |
} |
} |
319 |
/* local entry for function FGEN-GENERATOR-LAMBDA */ |
/* local entry for function FGEN-GENERATOR-LAMBDA */ |
320 |
|
|
321 |
static object LI13(V62) |
static object LI13(V64) |
322 |
|
|
323 |
object V62; |
object V64; |
324 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
325 |
goto TTL; |
goto TTL; |
326 |
TTL:; |
TTL:; |
327 |
{object V63 = ((V62))->v.v_self[3]; |
{object V65 = ((V64))->v.v_self[3]; |
328 |
VMR13(V63)} |
VMR13(V65)} |
329 |
return Cnil; |
return Cnil; |
330 |
} |
} |
331 |
/* local entry for function FGEN-SYSTEM */ |
/* local entry for function FGEN-SYSTEM */ |
332 |
|
|
333 |
static object LI14(V65) |
static object LI14(V67) |
334 |
|
|
335 |
object V65; |
object V67; |
336 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
337 |
goto TTL; |
goto TTL; |
338 |
TTL:; |
TTL:; |
339 |
{object V66 = ((V65))->v.v_self[4]; |
{object V68 = ((V67))->v.v_self[4]; |
340 |
VMR14(V66)} |
VMR14(V68)} |
341 |
return Cnil; |
return Cnil; |
342 |
} |
} |
343 |
/* local entry for function GET-FUNCTION-GENERATOR */ |
/* local entry for function GET-FUNCTION-GENERATOR */ |
344 |
|
|
345 |
static object LI15(V70,V71,V72) |
static object LI15(V72,V73,V74) |
346 |
|
|
347 |
object V70;object V71;object V72; |
object V72;object V73;object V74; |
348 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
349 |
goto TTL; |
goto TTL; |
350 |
TTL:; |
TTL:; |
351 |
{object V73; |
{object V75; |
352 |
object V74; |
object V76; |
353 |
base[2]= (V70); |
base[2]= (V72); |
354 |
base[3]= (V71); |
base[3]= (V73); |
355 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
356 |
(void) (*Lnk28)(); |
(void) (*Lnk28)(); |
357 |
vs_top=sup; |
vs_top=sup; |
358 |
V73= vs_base[0]; |
V75= vs_base[0]; |
359 |
V74= (*(LnkLI21))((V73)); |
V76= (*(LnkLI21))((V75)); |
360 |
if(((V74))==Cnil){ |
if(((V76))==Cnil){ |
361 |
goto T67;} |
goto T67;} |
362 |
{object V75 = (*(LnkLI23))((V74)); |
{object V77 = (*(LnkLI23))((V76)); |
363 |
VMR15(V75)} |
VMR15(V77)} |
364 |
goto T67; |
goto T67; |
365 |
T67:; |
T67:; |
366 |
{object V76 = (*(LnkLI29))((V70),(V73),(V72)); |
{object V78 = (*(LnkLI29))((V72),(V75),(V74)); |
367 |
VMR15(V76)}} |
VMR15(V78)}} |
368 |
base[0]=base[0]; |
base[0]=base[0]; |
369 |
return Cnil; |
return Cnil; |
370 |
} |
} |
371 |
/* local entry for function GET-NEW-FUNCTION-GENERATOR */ |
/* local entry for function GET-NEW-FUNCTION-GENERATOR */ |
372 |
|
|
373 |
static object LI16(V80,V81,V82) |
static object LI16(V82,V83,V84) |
374 |
|
|
375 |
object V80;object V81;object V82; |
object V82;object V83;object V84; |
376 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
377 |
goto TTL; |
goto TTL; |
378 |
TTL:; |
TTL:; |
379 |
{object V83; |
{object V85; |
380 |
object V84; |
object V86; |
381 |
base[0]= (V80); |
base[0]= (V82); |
382 |
base[1]= (V82); |
base[1]= (V84); |
383 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
384 |
(void) (*Lnk30)(); |
(void) (*Lnk30)(); |
385 |
if(vs_base>=vs_top){vs_top=sup;goto T72;} |
if(vs_base>=vs_top){vs_top=sup;goto T72;} |
386 |
V83= vs_base[0]; |
V85= vs_base[0]; |
387 |
vs_base++; |
vs_base++; |
388 |
if(vs_base>=vs_top){vs_top=sup;goto T73;} |
if(vs_base>=vs_top){vs_top=sup;goto T73;} |
389 |
V84= vs_base[0]; |
V86= vs_base[0]; |
390 |
vs_top=sup; |
vs_top=sup; |
391 |
goto T74; |
goto T74; |
392 |
goto T72; |
goto T72; |
393 |
T72:; |
T72:; |
394 |
V83= Cnil; |
V85= Cnil; |
395 |
goto T73; |
goto T73; |
396 |
T73:; |
T73:; |
397 |
V84= Cnil; |
V86= Cnil; |
398 |
goto T74; |
goto T74; |
399 |
T74:; |
T74:; |
400 |
{object V85; |
{object V87; |
401 |
object V86; |
object V88; |
402 |
base[2]= (V84); |
base[2]= (V86); |
403 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
404 |
(void) (*Lnk31)(); |
(void) (*Lnk31)(); |
405 |
vs_top=sup; |
vs_top=sup; |
406 |
V85= vs_base[0]; |
V87= vs_base[0]; |
407 |
V86= (*(LnkLI32))((V81),(V83),(V85),(V84),Cnil); |
V88= (*(LnkLI32))((V83),(V85),(V87),(V86),Cnil); |
408 |
(void)((*(LnkLI33))((V86))); |
(void)((*(LnkLI33))((V88))); |
409 |
{object V87 = (V85); |
{object V89 = (V87); |
410 |
VMR16(V87)}}} |
VMR16(V89)}}} |
411 |
base[0]=base[0]; |
base[0]=base[0]; |
412 |
return Cnil; |
return Cnil; |
413 |
} |
} |
417 |
{register object *base=vs_base; |
{register object *base=vs_base; |
418 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
419 |
vs_check; |
vs_check; |
420 |
{object V88; |
{object V90; |
421 |
object V89; |
object V91; |
422 |
check_arg(2); |
check_arg(2); |
423 |
V88=(base[0]); |
V90=(base[0]); |
424 |
V89=(base[1]); |
V91=(base[1]); |
425 |
vs_top=sup; |
vs_top=sup; |
426 |
goto TTL; |
goto TTL; |
427 |
TTL:; |
TTL:; |
428 |
{object V90; |
{object V92; |
429 |
object V91; |
object V93; |
430 |
base[2]= (V88); |
base[2]= (V90); |
431 |
base[3]= (V89); |
base[3]= (V91); |
432 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
433 |
(void) (*Lnk34)(); |
(void) (*Lnk34)(); |
434 |
if(vs_base>=vs_top){vs_top=sup;goto T82;} |
if(vs_base>=vs_top){vs_top=sup;goto T82;} |
435 |
V90= vs_base[0]; |
V92= vs_base[0]; |
436 |
vs_base++; |
vs_base++; |
437 |
if(vs_base>=vs_top){vs_top=sup;goto T83;} |
if(vs_base>=vs_top){vs_top=sup;goto T83;} |
438 |
V91= vs_base[0]; |
V93= vs_base[0]; |
439 |
vs_top=sup; |
vs_top=sup; |
440 |
goto T84; |
goto T84; |
441 |
goto T82; |
goto T82; |
442 |
T82:; |
T82:; |
443 |
V90= Cnil; |
V92= Cnil; |
444 |
goto T83; |
goto T83; |
445 |
T83:; |
T83:; |
446 |
V91= Cnil; |
V93= Cnil; |
447 |
goto T84; |
goto T84; |
448 |
T84:; |
T84:; |
449 |
base[2]= (V91); |
base[2]= (V93); |
450 |
base[3]= list(3,VV[5],(V91),list(2,VV[6],(V90))); |
base[3]= list(3,VV[5],(V93),list(2,VV[6],(V92))); |
451 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
452 |
return;} |
return;} |
453 |
} |
} |
459 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
460 |
vs_check; |
vs_check; |
461 |
bds_check; |
bds_check; |
462 |
{object V92; |
{object V94; |
463 |
check_arg(2); |
check_arg(2); |
464 |
V92=(base[0]); |
V94=(base[0]); |
465 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
466 |
vs_top=sup; |
vs_top=sup; |
467 |
bds_bind(VV[7],Ct); |
bds_bind(VV[7],Ct); |
468 |
base[3]= (V92); |
base[3]= (V94); |
469 |
base[4]= Cnil; |
base[4]= Cnil; |
470 |
base[5]= |
base[5]= |
471 |
make_cclosure_new(LC24,Cnil,base[1],Cdata); |
make_cclosure_new(LC24,Cnil,base[1],Cdata); |
482 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
483 |
vs_check; |
vs_check; |
484 |
bds_check; |
bds_check; |
485 |
{object V93; |
{object V95; |
486 |
check_arg(2); |
check_arg(2); |
487 |
V93=(base[0]); |
V95=(base[0]); |
488 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
489 |
vs_top=sup; |
vs_top=sup; |
490 |
bds_bind(VV[7],Ct); |
bds_bind(VV[7],Ct); |
491 |
base[3]=MMcons(Cnil,base[1]); |
base[3]=MMcons(Cnil,base[1]); |
492 |
base[5]= (V93); |
base[5]= (V95); |
493 |
base[6]= Cnil; |
base[6]= Cnil; |
494 |
base[7]= |
base[7]= |
495 |
make_cclosure_new(LC25,Cnil,base[3],Cdata); |
make_cclosure_new(LC25,Cnil,base[3],Cdata); |
505 |
} |
} |
506 |
/* local entry for function COMPUTE-CONSTANTS */ |
/* local entry for function COMPUTE-CONSTANTS */ |
507 |
|
|
508 |
static object LI21(V96,V97) |
static object LI21(V98,V99) |
509 |
|
|
510 |
object V96;object V97; |
object V98;object V99; |
511 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
512 |
bds_check; |
bds_check; |
513 |
goto TTL; |
goto TTL; |
514 |
TTL:; |
TTL:; |
515 |
base[0]=MMcons((V97),Cnil); |
base[0]=MMcons((V99),Cnil); |
516 |
bds_bind(VV[7],Ct); |
bds_bind(VV[7],Ct); |
517 |
base[2]=MMcons(Cnil,base[0]); |
base[2]=MMcons(Cnil,base[0]); |
518 |
base[3]= (V96); |
base[3]= (V98); |
519 |
base[4]= Cnil; |
base[4]= Cnil; |
520 |
base[5]= |
base[5]= |
521 |
make_cclosure_new(LC26,Cnil,base[2],Cdata); |
make_cclosure_new(LC26,Cnil,base[2],Cdata); |
522 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
523 |
(void) (*Lnk35)(); |
(void) (*Lnk35)(); |
524 |
vs_top=sup; |
vs_top=sup; |
525 |
{object V98 = (base[2]->c.c_car); |
{object V100 = (base[2]->c.c_car); |
526 |
bds_unwind1; |
bds_unwind1; |
527 |
VMR20(V98)} |
VMR20(V100)} |
528 |
base[0]=base[0]; |
base[0]=base[0]; |
529 |
return Cnil; |
return Cnil; |
530 |
} |
} |
536 |
vs_check; |
vs_check; |
537 |
check_arg(2); |
check_arg(2); |
538 |
vs_top=sup; |
vs_top=sup; |
539 |
{object V99=base[0]->c.c_cdr; |
{object V101=base[0]->c.c_cdr; |
540 |
if(endp(V99)){ |
if(endp(V101)){ |
541 |
base[2]= Cnil; |
base[2]= Cnil; |
542 |
} else { |
} else { |
543 |
base[2]= (V99->c.c_car); |
base[2]= (V101->c.c_car); |
544 |
V99=V99->c.c_cdr;} |
V101=V101->c.c_cdr;} |
545 |
if(!endp(V99))invalid_macro_call();} |
if(!endp(V101))invalid_macro_call();} |
|
{register object V100; |
|
|
V100= small_fixnum(-1); |
|
546 |
{register object V102; |
{register object V102; |
547 |
register object V103; |
V102= small_fixnum(-1); |
|
V102= Cnil; |
|
|
V103= Cnil; |
|
548 |
{register object V104; |
{register object V104; |
549 |
register object V105; |
register object V105; |
550 |
V104= (VV[2]->s.s_dbind); |
V104= Cnil; |
551 |
V105= CMPcar((V104)); |
V105= Cnil; |
552 |
|
{register object V106; |
553 |
|
register object V107; |
554 |
|
V106= (VV[2]->s.s_dbind); |
555 |
|
V107= CMPcar((V106)); |
556 |
goto T107; |
goto T107; |
557 |
T107:; |
T107:; |
558 |
if(!(((V104))==Cnil)){ |
if(!(((V106))==Cnil)){ |
559 |
goto T108;} |
goto T108;} |
560 |
goto T103; |
goto T103; |
561 |
goto T108; |
goto T108; |
562 |
T108:; |
T108:; |
563 |
if(((*(LnkLI24))((V105)))==Cnil){ |
if(((*(LnkLI24))((V107)))==Cnil){ |
564 |
goto T113;} |
goto T113;} |
565 |
V106= (*(LnkLI24))((V105)); |
V108= (*(LnkLI24))((V107)); |
566 |
if(!((/* INLINE-ARGS */V106)==(base[2]))){ |
V109 = base[2]; |
567 |
|
if(!((/* INLINE-ARGS */V108)==(V109))){ |
568 |
goto T112;} |
goto T112;} |
569 |
goto T113; |
goto T113; |
570 |
T113:; |
T113:; |
571 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
572 |
goto T117;} |
goto T117;} |
573 |
(void)(((V105))->v.v_self[4]= (base[2])); |
(void)(((V107))->v.v_self[4]= (base[2])); |
574 |
goto T117; |
goto T117; |
575 |
T117:; |
T117:; |
576 |
{register object V107; |
{register object V110; |
577 |
V100= number_plus((V100),small_fixnum(1)); |
V111 = base[2]; |
578 |
V108= list(3,VV[10],base[2],(V100)); |
V102= number_plus((V102),small_fixnum(1)); |
579 |
V109= list(2,VV[13],(*(LnkLI22))((V105))); |
V112 = (V102); |
580 |
V110= list(2,VV[13],(*(LnkLI37))((V105))); |
V113= list(3,VV[10],V111,V112); |
581 |
V111= list(2,VV[6],(*(LnkLI38))((V105))); |
V114= list(2,VV[13],(*(LnkLI22))((V107))); |
582 |
V112= list(2,VV[13],(*(LnkLI38))((V105))); |
V115= list(2,VV[13],(*(LnkLI37))((V107))); |
583 |
V113= list(6,VV[12],/* INLINE-ARGS */V109,/* INLINE-ARGS */V110,/* INLINE-ARGS */V111,/* INLINE-ARGS */V112,list(2,VV[13],base[2])); |
V116= list(2,VV[6],(*(LnkLI38))((V107))); |
584 |
V107= (*(LnkLI36))(/* INLINE-ARGS */V108,VV[11],/* INLINE-ARGS */V113); |
V117= list(2,VV[13],(*(LnkLI38))((V107))); |
585 |
if(((V102))!=Cnil){ |
V118= list(6,VV[12],/* INLINE-ARGS */V114,/* INLINE-ARGS */V115,/* INLINE-ARGS */V116,/* INLINE-ARGS */V117,list(2,VV[13],base[2])); |
586 |
|
V110= (*(LnkLI36))(/* INLINE-ARGS */V113,VV[11],/* INLINE-ARGS */V118); |
587 |
|
if(((V104))!=Cnil){ |
588 |
goto T123;} |
goto T123;} |
589 |
V103= make_cons((V107),Cnil); |
V105= make_cons((V110),Cnil); |
590 |
V102= (V103); |
V104= (V105); |
591 |
goto T112; |
goto T112; |
592 |
goto T123; |
goto T123; |
593 |
T123:; |
T123:; |
594 |
V115= make_cons((V107),Cnil); |
V120= make_cons((V110),Cnil); |
595 |
((V103))->c.c_cdr = /* INLINE-ARGS */V115; |
((V105))->c.c_cdr = /* INLINE-ARGS */V120; |
596 |
V114= (V103); |
V119= (V105); |
597 |
V103= CMPcdr(V114);} |
V105= CMPcdr(V119);} |
598 |
goto T112; |
goto T112; |
599 |
T112:; |
T112:; |
600 |
V104= CMPcdr((V104)); |
V106= CMPcdr((V106)); |
601 |
V105= CMPcar((V104)); |
V107= CMPcar((V106)); |
602 |
goto T107;} |
goto T107;} |
603 |
goto T103; |
goto T103; |
604 |
T103:; |
T103:; |
605 |
V101= (V102);} |
V103= (V104);} |
606 |
base[3]= make_cons(VV[9],V101); |
base[3]= make_cons(VV[9],V103); |
607 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
608 |
return;} |
return;} |
609 |
} |
} |
610 |
/* local entry for function LOAD-FUNCTION-GENERATOR */ |
/* local entry for function LOAD-FUNCTION-GENERATOR */ |
611 |
|
|
612 |
static object LI23(V121,V122,V123,V124,V125) |
static object LI23(V126,V127,V128,V129,V130) |
613 |
|
|
614 |
object V121;object V122;object V123;object V124;object V125; |
object V126;object V127;object V128;object V129;object V130; |
615 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
616 |
goto TTL; |
goto TTL; |
617 |
TTL:; |
TTL:; |
618 |
V126= (*(LnkLI32))((V121),(V122),(V123),(V124),(V125)); |
V131= (*(LnkLI32))((V126),(V127),(V128),(V129),(V130)); |
619 |
{object V127 = (*(LnkLI33))(/* INLINE-ARGS */V126); |
{object V132 = (*(LnkLI33))(/* INLINE-ARGS */V131); |
620 |
VMR22(V127)} |
VMR22(V132)} |
621 |
return Cnil; |
return Cnil; |
622 |
} |
} |
623 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
627 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
628 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
629 |
vs_check; |
vs_check; |
630 |
{register object V128; |
{register object V133; |
631 |
object V129; |
object V134; |
632 |
object V130; |
object V135; |
633 |
check_arg(3); |
check_arg(3); |
634 |
V128=(base[0]); |
V133=(base[0]); |
635 |
V129=(base[1]); |
V134=(base[1]); |
636 |
V130=(base[2]); |
V135=(base[2]); |
637 |
vs_top=sup; |
vs_top=sup; |
638 |
if(!(((((V129))==(VV[8])?Ct:Cnil))==Cnil)){ |
if(!(((((V134))==(VV[8])?Ct:Cnil))==Cnil)){ |
639 |
goto T135;} |
goto T135;} |
640 |
base[3]= (V128); |
base[3]= (V133); |
641 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
642 |
return; |
return; |
643 |
goto T135; |
goto T135; |
644 |
T135:; |
T135:; |
645 |
{object V131; |
{object V136; |
646 |
V131= ( |
V136= ( |
647 |
(type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)): |
(type_of((base0[1]->c.c_car)) == t_sfun ?(*(((base0[1]->c.c_car))->sfn.sfn_self)): |
648 |
(fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ? |
(fcall.argd=1,type_of((base0[1]->c.c_car))==t_vfun) ? |
649 |
(*(((base0[1]->c.c_car))->sfn.sfn_self)): |
(*(((base0[1]->c.c_car))->sfn.sfn_self)): |
650 |
(fcall.fun=((base0[1]->c.c_car)),fcalln))((V128))); |
(fcall.fun=((base0[1]->c.c_car)),fcalln))((V133))); |
651 |
if(((V131))==Cnil){ |
if(((V136))==Cnil){ |
652 |
goto T139;} |
goto T139;} |
653 |
(base0[0]->c.c_car)= append((base0[0]->c.c_car),V131); |
(base0[0]->c.c_car)= append((base0[0]->c.c_car),V136); |
654 |
base[3]= (V128); |
base[3]= (V133); |
655 |
base[4]= Ct; |
base[4]= Ct; |
656 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
657 |
return; |
return; |
658 |
goto T139; |
goto T139; |
659 |
T139:; |
T139:; |
660 |
base[3]= (V128); |
base[3]= (V133); |
661 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
662 |
return;} |
return;} |
663 |
} |
} |
669 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
670 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
671 |
vs_check; |
vs_check; |
672 |
{object V133; |
{object V138; |
673 |
object V134; |
object V139; |
674 |
object V135; |
object V140; |
675 |
check_arg(3); |
check_arg(3); |
676 |
V133=(base[0]); |
V138=(base[0]); |
677 |
V134=(base[1]); |
V139=(base[1]); |
678 |
V135=(base[2]); |
V140=(base[2]); |
679 |
vs_top=sup; |
vs_top=sup; |
680 |
if(!(((((V134))==(VV[8])?Ct:Cnil))==Cnil)){ |
if(!(((((V139))==(VV[8])?Ct:Cnil))==Cnil)){ |
681 |
goto T146;} |
goto T146;} |
682 |
base[3]= (V133); |
base[3]= (V138); |
683 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
684 |
return; |
return; |
685 |
goto T146; |
goto T146; |
686 |
T146:; |
T146:; |
687 |
{object V136; |
{object V141; |
688 |
object V137; |
object V142; |
689 |
base[3]= (V133); |
base[3]= (V138); |
690 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
691 |
{object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[1]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
692 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
693 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
694 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
695 |
if(vs_base>=vs_top){vs_top=sup;goto T150;} |
if(vs_base>=vs_top){vs_top=sup;goto T150;} |
696 |
V136= vs_base[0]; |
V141= vs_base[0]; |
697 |
vs_base++; |
vs_base++; |
698 |
if(vs_base>=vs_top){vs_top=sup;goto T151;} |
if(vs_base>=vs_top){vs_top=sup;goto T151;} |
699 |
V137= vs_base[0]; |
V142= vs_base[0]; |
700 |
vs_top=sup; |
vs_top=sup; |
701 |
goto T152; |
goto T152; |
702 |
goto T150; |
goto T150; |
703 |
T150:; |
T150:; |
704 |
V136= Cnil; |
V141= Cnil; |
705 |
goto T151; |
goto T151; |
706 |
T151:; |
T151:; |
707 |
V137= Cnil; |
V142= Cnil; |
708 |
goto T152; |
goto T152; |
709 |
T152:; |
T152:; |
710 |
if(((V137))==Cnil){ |
if(((V142))==Cnil){ |
711 |
goto T153;} |
goto T153;} |
712 |
(base0[0]->c.c_car)= append((base0[0]->c.c_car),(V137)); |
(base0[0]->c.c_car)= append((base0[0]->c.c_car),(V142)); |
713 |
goto T153; |
goto T153; |
714 |
T153:; |
T153:; |
715 |
base[3]= (V136); |
base[3]= (V141); |
716 |
base[4]= (((((V136))==((V133))?Ct:Cnil))==Cnil?Ct:Cnil); |
base[4]= (((((V141))==((V138))?Ct:Cnil))==Cnil?Ct:Cnil); |
717 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
718 |
return;} |
return;} |
719 |
} |
} |
725 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
726 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
727 |
vs_check; |
vs_check; |
728 |
{object V138; |
{object V143; |
729 |
object V139; |
object V144; |
730 |
object V140; |
object V145; |
731 |
check_arg(3); |
check_arg(3); |
732 |
V138=(base[0]); |
V143=(base[0]); |
733 |
V139=(base[1]); |
V144=(base[1]); |
734 |
V140=(base[2]); |
V145=(base[2]); |
735 |
vs_top=sup; |
vs_top=sup; |
736 |
if(!(((((V139))==(VV[8])?Ct:Cnil))==Cnil)){ |
if(!(((((V144))==(VV[8])?Ct:Cnil))==Cnil)){ |
737 |
goto T160;} |
goto T160;} |
738 |
base[3]= (V138); |
base[3]= (V143); |
739 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
740 |
return; |
return; |
741 |
goto T160; |
goto T160; |
742 |
T160:; |
T160:; |
743 |
{object V141; |
{object V146; |
744 |
V141= ( |
V146= ( |
745 |
(type_of((base0[0]->c.c_car)) == t_sfun ?(*(((base0[0]->c.c_car))->sfn.sfn_self)): |
(type_of((base0[0]->c.c_car)) == t_sfun ?(*(((base0[0]->c.c_car))->sfn.sfn_self)): |
746 |
(fcall.argd=1,type_of((base0[0]->c.c_car))==t_vfun) ? |
(fcall.argd=1,type_of((base0[0]->c.c_car))==t_vfun) ? |
747 |
(*(((base0[0]->c.c_car))->sfn.sfn_self)): |
(*(((base0[0]->c.c_car))->sfn.sfn_self)): |
748 |
(fcall.fun=((base0[0]->c.c_car)),fcalln))((V138))); |
(fcall.fun=((base0[0]->c.c_car)),fcalln))((V143))); |
749 |
base[3]= (V141); |
base[3]= (V146); |
750 |
base[4]= (((((V141))==((V138))?Ct:Cnil))==Cnil?Ct:Cnil); |
base[4]= (((((V146))==((V143))?Ct:Cnil))==Cnil?Ct:Cnil); |
751 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
752 |
return;} |
return;} |
753 |
} |
} |