274 |
vs_top=sup; |
vs_top=sup; |
275 |
{register object V38; |
{register object V38; |
276 |
V38= (*(LnkLI73))((V35)); |
V38= (*(LnkLI73))((V35)); |
277 |
V39 = (V38); |
V39= (VFUN_NARGS=2,(*(LnkLI74))(VV[25],Cnil)); |
278 |
V40= (VFUN_NARGS=2,(*(LnkLI74))(VV[25],Cnil)); |
if(((V38))==(/* INLINE-ARGS */V39)){ |
|
if((V39)==(/* INLINE-ARGS */V40)){ |
|
279 |
goto T12;} |
goto T12;} |
280 |
V41 = (V38); |
V40= (VFUN_NARGS=2,(*(LnkLI74))(VV[26],Cnil)); |
281 |
V42= (VFUN_NARGS=2,(*(LnkLI74))(VV[26],Cnil)); |
if(((V38))==(/* INLINE-ARGS */V40)){ |
|
if((V41)==(/* INLINE-ARGS */V42)){ |
|
282 |
goto T12;} |
goto T12;} |
283 |
V43 = (V38); |
V41= (VFUN_NARGS=2,(*(LnkLI74))(VV[27],Cnil)); |
284 |
V44= (VFUN_NARGS=2,(*(LnkLI74))(VV[27],Cnil)); |
if(!(((V38))==(/* INLINE-ARGS */V41))){ |
|
if(!((V43)==(/* INLINE-ARGS */V44))){ |
|
285 |
goto T13;} |
goto T13;} |
286 |
goto T12; |
goto T12; |
287 |
T12:; |
T12:; |
314 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
315 |
Lformat(); |
Lformat(); |
316 |
vs_top=sup; |
vs_top=sup; |
317 |
{object V45 = vs_base[0]; |
{object V42 = vs_base[0]; |
318 |
VMR14(V45)} |
VMR14(V42)} |
319 |
base[0]=base[0]; |
base[0]=base[0]; |
320 |
return Cnil; |
return Cnil; |
321 |
} |
} |
327 |
vs_check; |
vs_check; |
328 |
check_arg(2); |
check_arg(2); |
329 |
vs_top=sup; |
vs_top=sup; |
330 |
{object V46=base[0]->c.c_cdr; |
{object V43=base[0]->c.c_cdr; |
331 |
if(endp(V46))invalid_macro_call(); |
if(endp(V43))invalid_macro_call(); |
332 |
base[2]= (V46->c.c_car); |
base[2]= (V43->c.c_car); |
333 |
V46=V46->c.c_cdr; |
V43=V43->c.c_cdr; |
334 |
if(!endp(V46))invalid_macro_call();} |
if(!endp(V43))invalid_macro_call();} |
335 |
base[3]= listA(3,VV[32],base[2],VV[33]); |
base[3]= listA(3,VV[32],base[2],VV[33]); |
336 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
337 |
return; |
return; |
344 |
vs_check; |
vs_check; |
345 |
check_arg(2); |
check_arg(2); |
346 |
vs_top=sup; |
vs_top=sup; |
347 |
{object V47=base[0]->c.c_cdr; |
{object V44=base[0]->c.c_cdr; |
348 |
if(endp(V47))invalid_macro_call(); |
if(endp(V44))invalid_macro_call(); |
349 |
base[2]= (V47->c.c_car); |
base[2]= (V44->c.c_car); |
350 |
V47=V47->c.c_cdr; |
V44=V44->c.c_cdr; |
351 |
if(!endp(V47))invalid_macro_call();} |
if(!endp(V44))invalid_macro_call();} |
352 |
base[3]= list(2,VV[34],list(2,VV[17],base[2])); |
base[3]= list(2,VV[34],list(2,VV[17],base[2])); |
353 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
354 |
return; |
return; |
355 |
} |
} |
356 |
/* local entry for function FUNCTION-PRETTY-ARGLIST */ |
/* local entry for function FUNCTION-PRETTY-ARGLIST */ |
357 |
|
|
358 |
static object LI17(V49) |
static object LI17(V46) |
359 |
|
|
360 |
object V49; |
object V46; |
361 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
362 |
goto TTL; |
goto TTL; |
363 |
TTL:; |
TTL:; |
364 |
{object V50 = Cnil; |
{object V47 = Cnil; |
365 |
VMR17(V50)} |
VMR17(V47)} |
366 |
return Cnil; |
return Cnil; |
367 |
} |
} |
368 |
/* local entry for function SET-FUNCTION-PRETTY-ARGLIST */ |
/* local entry for function SET-FUNCTION-PRETTY-ARGLIST */ |
369 |
|
|
370 |
static object LI18(V53,V54) |
static object LI18(V50,V51) |
371 |
|
|
372 |
object V53;object V54; |
object V50;object V51; |
373 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
374 |
goto TTL; |
goto TTL; |
375 |
TTL:; |
TTL:; |
376 |
{object V55 = (V54); |
{object V52 = (V51); |
377 |
VMR18(V55)} |
VMR18(V52)} |
378 |
return Cnil; |
return Cnil; |
379 |
} |
} |
380 |
/* function definition for SET-FUNCTION-NAME */ |
/* function definition for SET-FUNCTION-NAME */ |
383 |
{register object *base=vs_base; |
{register object *base=vs_base; |
384 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
385 |
vs_check; |
vs_check; |
386 |
{object V56; |
{object V53; |
387 |
object V57; |
object V54; |
388 |
check_arg(2); |
check_arg(2); |
389 |
V56=(base[0]); |
V53=(base[0]); |
390 |
V57=(base[1]); |
V54=(base[1]); |
391 |
vs_top=sup; |
vs_top=sup; |
392 |
goto TTL; |
goto TTL; |
393 |
TTL:; |
TTL:; |
394 |
base[2]=(VV[77]->s.s_gfdef); |
base[2]=(VV[77]->s.s_gfdef); |
395 |
base[3]= (V56); |
base[3]= (V53); |
396 |
base[5]= (V57); |
base[5]= (V54); |
397 |
base[4]= simple_symlispcall(VV[78],base+5,1); |
base[4]= simple_symlispcall(VV[78],base+5,1); |
398 |
base[5]= (V57); |
base[5]= (V54); |
399 |
lispcall(base+2,3); |
lispcall(base+2,3); |
400 |
return; |
return; |
401 |
} |
} |
402 |
} |
} |
403 |
/* local entry for function SET-FUNCTION-NAME-1 */ |
/* local entry for function SET-FUNCTION-NAME-1 */ |
404 |
|
|
405 |
static object LI20(V61,V62,V63) |
static object LI20(V58,V59,V60) |
406 |
|
|
407 |
object V61;object V62;object V63; |
object V58;object V59;object V60; |
408 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
409 |
goto TTL; |
goto TTL; |
410 |
TTL:; |
TTL:; |
411 |
{object V64 = (V61); |
{object V61 = (V58); |
412 |
VMR20(V64)} |
VMR20(V61)} |
413 |
return Cnil; |
return Cnil; |
414 |
} |
} |
415 |
/* local entry for function INTERN-FUNCTION-NAME */ |
/* local entry for function INTERN-FUNCTION-NAME */ |
416 |
|
|
417 |
static object LI21(V66) |
static object LI21(V63) |
418 |
|
|
419 |
register object V66; |
register object V63; |
420 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
421 |
bds_check; |
bds_check; |
422 |
goto TTL; |
goto TTL; |
423 |
TTL:; |
TTL:; |
424 |
if(!(type_of((V66))==t_symbol)){ |
if(!(type_of((V63))==t_symbol)){ |
425 |
goto T37;} |
goto T37;} |
426 |
{object V67 = (V66); |
{object V64 = (V63); |
427 |
VMR21(V67)} |
VMR21(V64)} |
428 |
goto T37; |
goto T37; |
429 |
T37:; |
T37:; |
430 |
if(!(type_of((V66))==t_cons||((V66))==Cnil)){ |
if(!(type_of((V63))==t_cons||((V63))==Cnil)){ |
431 |
goto T40;} |
goto T40;} |
432 |
bds_bind(VV[35],(VV[36]->s.s_dbind)); |
bds_bind(VV[35],(VV[36]->s.s_dbind)); |
433 |
bds_bind(VV[37],VV[38]); |
bds_bind(VV[37],VV[38]); |
435 |
bds_bind(VV[40],Ct); |
bds_bind(VV[40],Ct); |
436 |
base[5]= Cnil; |
base[5]= Cnil; |
437 |
base[6]= VV[41]; |
base[6]= VV[41]; |
438 |
base[7]= (V66); |
base[7]= (V63); |
439 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
440 |
Lformat(); |
Lformat(); |
441 |
vs_top=sup; |
vs_top=sup; |
448 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
449 |
Lintern(); |
Lintern(); |
450 |
vs_top=sup; |
vs_top=sup; |
451 |
{object V68 = vs_base[0]; |
{object V65 = vs_base[0]; |
452 |
VMR21(V68)} |
VMR21(V65)} |
453 |
goto T40; |
goto T40; |
454 |
T40:; |
T40:; |
455 |
{object V69 = Cnil; |
{object V66 = Cnil; |
456 |
VMR21(V69)} |
VMR21(V66)} |
457 |
base[0]=base[0]; |
base[0]=base[0]; |
458 |
return Cnil; |
return Cnil; |
459 |
} |
} |
464 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
465 |
goto TTL; |
goto TTL; |
466 |
TTL:; |
TTL:; |
467 |
{object V70 = (VV[42]->s.s_dbind); |
{object V67 = (VV[42]->s.s_dbind); |
468 |
VMR22(V70)} |
VMR22(V67)} |
469 |
return Cnil; |
return Cnil; |
470 |
} |
} |
471 |
/* function definition for COMPILE-LAMBDA */ |
/* function definition for COMPILE-LAMBDA */ |
474 |
{register object *base=vs_base; |
{register object *base=vs_base; |
475 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
476 |
vs_check; |
vs_check; |
477 |
{register object V71; |
{register object V68; |
478 |
object V72; |
object V69; |
479 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
480 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
481 |
V71=(base[0]); |
V68=(base[0]); |
482 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
483 |
if(vs_base>=vs_top){vs_top=sup;goto T47;} |
if(vs_base>=vs_top){vs_top=sup;goto T47;} |
484 |
V72=(base[1]); |
V69=(base[1]); |
485 |
vs_top=sup; |
vs_top=sup; |
486 |
goto T48; |
goto T48; |
487 |
goto T47; |
goto T47; |
488 |
T47:; |
T47:; |
489 |
V72= VV[43]; |
V69= VV[43]; |
490 |
goto T48; |
goto T48; |
491 |
T48:; |
T48:; |
492 |
if(((VV[44]->s.s_dbind))==Cnil){ |
if(((VV[44]->s.s_dbind))==Cnil){ |
498 |
T50:; |
T50:; |
499 |
if(((VV[45]->s.s_dbind))!=Cnil){ |
if(((VV[45]->s.s_dbind))!=Cnil){ |
500 |
goto T54;} |
goto T54;} |
501 |
base[2]= (*(LnkLI80))((V71)); |
base[2]= (*(LnkLI80))((V68)); |
502 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
503 |
return; |
return; |
504 |
goto T54; |
goto T54; |
507 |
goto T57;} |
goto T57;} |
508 |
if(((*(LnkLI81))())==Cnil){ |
if(((*(LnkLI81))())==Cnil){ |
509 |
goto T57;} |
goto T57;} |
510 |
base[2]= (*(LnkLI82))((V71)); |
base[2]= (*(LnkLI82))((V68)); |
511 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
512 |
return; |
return; |
513 |
goto T57; |
goto T57; |
514 |
T57:; |
T57:; |
515 |
if(!(((V72))==(VV[43]))){ |
if(!(((V69))==(VV[43]))){ |
516 |
goto T62;} |
goto T62;} |
517 |
base[2]= Cnil; |
base[2]= Cnil; |
518 |
base[3]= (V71); |
base[3]= (V68); |
519 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
520 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
521 |
return; |
return; |
522 |
goto T62; |
goto T62; |
523 |
T62:; |
T62:; |
524 |
if(!(((V72))==(VV[47]))){ |
if(!(((V69))==(VV[47]))){ |
525 |
goto T67;} |
goto T67;} |
526 |
{register object x= (VV[48]->s.s_dbind),V73= VV[49]; |
{register object x= (VV[48]->s.s_dbind),V70= VV[49]; |
527 |
while(V73!=Cnil) |
while(V70!=Cnil) |
528 |
if(eql(x,V73->c.c_car)){ |
if(eql(x,V70->c.c_car)){ |
529 |
goto T70; |
goto T70; |
530 |
}else V73=V73->c.c_cdr; |
}else V70=V70->c.c_cdr; |
531 |
goto T67;} |
goto T67;} |
532 |
goto T70; |
goto T70; |
533 |
T70:; |
T70:; |
534 |
base[2]= Cnil; |
base[2]= Cnil; |
535 |
base[3]= (V71); |
base[3]= (V68); |
536 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
537 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
538 |
return; |
return; |
539 |
goto T67; |
goto T67; |
540 |
T67:; |
T67:; |
541 |
if(!(((V72))==(VV[50]))){ |
if(!(((V69))==(VV[50]))){ |
542 |
goto T74;} |
goto T74;} |
543 |
if(!(((VV[48]->s.s_dbind))==(VV[43]))){ |
if(!(((VV[48]->s.s_dbind))==(VV[43]))){ |
544 |
goto T74;} |
goto T74;} |
545 |
base[2]= Cnil; |
base[2]= Cnil; |
546 |
base[3]= (V71); |
base[3]= (V68); |
547 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
548 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
549 |
return; |
return; |
550 |
goto T74; |
goto T74; |
551 |
T74:; |
T74:; |
552 |
base[2]= (*(LnkLI80))((V71)); |
base[2]= (*(LnkLI80))((V68)); |
553 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
554 |
return; |
return; |
555 |
} |
} |
556 |
} |
} |
557 |
/* local entry for function COMPILE-LAMBDA-UNCOMPILED */ |
/* local entry for function COMPILE-LAMBDA-UNCOMPILED */ |
558 |
|
|
559 |
static object LI25(V75) |
static object LI25(V72) |
560 |
|
|
561 |
object V75; |
object V72; |
562 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
563 |
goto TTL; |
goto TTL; |
564 |
TTL:; |
TTL:; |
565 |
base[0]=MMcons((V75),Cnil); |
base[0]=MMcons((V72),Cnil); |
566 |
{object V76 = |
{object V73 = |
567 |
make_cclosure_new(LC45,Cnil,base[0],Cdata); |
make_cclosure_new(LC45,Cnil,base[0],Cdata); |
568 |
VMR24(V76)} |
VMR24(V73)} |
569 |
base[0]=base[0]; |
base[0]=base[0]; |
570 |
return Cnil; |
return Cnil; |
571 |
} |
} |
572 |
/* local entry for function COMPILE-LAMBDA-DEFERRED */ |
/* local entry for function COMPILE-LAMBDA-DEFERRED */ |
573 |
|
|
574 |
static object LI27(V78) |
static object LI27(V75) |
575 |
|
|
576 |
object V78; |
object V75; |
577 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
578 |
goto TTL; |
goto TTL; |
579 |
TTL:; |
TTL:; |
580 |
base[0]=MMcons((V78),Cnil); |
base[0]=MMcons((V75),Cnil); |
581 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
582 |
base[4]= VV[51]; |
base[4]= VV[51]; |
583 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
586 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
587 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
588 |
base[2]=MMcons(Cnil,base[1]); |
base[2]=MMcons(Cnil,base[1]); |
589 |
{object V79 = |
{object V76 = |
590 |
make_cclosure_new(LC46,Cnil,base[2],Cdata); |
make_cclosure_new(LC46,Cnil,base[2],Cdata); |
591 |
VMR25(V79)} |
VMR25(V76)} |
592 |
base[0]=base[0]; |
base[0]=base[0]; |
593 |
return Cnil; |
return Cnil; |
594 |
} |
} |
600 |
vs_check; |
vs_check; |
601 |
check_arg(2); |
check_arg(2); |
602 |
vs_top=sup; |
vs_top=sup; |
603 |
{object V80=base[0]->c.c_cdr; |
{object V77=base[0]->c.c_cdr; |
604 |
if(endp(V80)){ |
if(endp(V77)){ |
605 |
base[2]= Cnil; |
base[2]= Cnil; |
606 |
} else { |
} else { |
607 |
base[2]= (V80->c.c_car); |
base[2]= (V77->c.c_car); |
608 |
V80=V80->c.c_cdr;} |
V77=V77->c.c_cdr;} |
609 |
if(!endp(V80))invalid_macro_call();} |
if(!endp(V77))invalid_macro_call();} |
610 |
V81= list(2,VV[53],base[2]); |
V78= list(2,VV[53],base[2]); |
611 |
V82= list(2,VV[54],base[2]); |
V79= list(2,VV[54],base[2]); |
612 |
base[3]= list(6,VV[10],VV[52],/* INLINE-ARGS */V81,/* INLINE-ARGS */V82,list(2,VV[55],base[2]),VV[56]); |
base[3]= list(6,VV[10],VV[52],/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,list(2,VV[55],base[2]),VV[56]); |
613 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
614 |
return; |
return; |
615 |
} |
} |
616 |
/* local entry for function RECORD-DEFINITION */ |
/* local entry for function RECORD-DEFINITION */ |
617 |
|
|
618 |
static object LI29(object V84,object V83,object first,...) |
static object LI29(object V81,object V80,object first,...) |
619 |
{ |
{ |
620 |
va_list ap; |
va_list ap; |
621 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
622 |
{object V85; |
{object V82; |
623 |
object V86; |
object V83; |
624 |
object V87; |
object V84; |
625 |
va_start(ap,first); |
va_start(ap,first); |
626 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
627 |
V85= V84; |
V82= V81; |
628 |
V86= V83; |
V83= V80; |
629 |
narg= narg - 2; |
narg= narg - 2; |
630 |
V88 = list_vector_new(narg,first,ap); |
V85 = list_vector_new(narg,first,ap); |
631 |
V87= V88; |
V84= V85; |
632 |
{object V89 = Cnil; |
{object V86 = Cnil; |
633 |
VMR27(V89)} |
VMR27(V86)} |
634 |
va_end(ap); |
va_end(ap); |
635 |
return Cnil;} |
return Cnil;} |
636 |
} |
} |
637 |
/* local entry for function DOCTOR-DFUN-FOR-THE-DEBUGGER */ |
/* local entry for function DOCTOR-DFUN-FOR-THE-DEBUGGER */ |
638 |
|
|
639 |
static object LI30(V92,V93) |
static object LI30(V89,V90) |
640 |
|
|
641 |
object V92;object V93; |
object V89;object V90; |
642 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
643 |
goto TTL; |
goto TTL; |
644 |
TTL:; |
TTL:; |
645 |
{object V94 = (V93); |
{object V91 = (V90); |
646 |
VMR28(V94)} |
VMR28(V91)} |
647 |
return Cnil; |
return Cnil; |
648 |
} |
} |
649 |
/* macro definition for BUILT-IN-OR-STRUCTURE-WRAPPER */ |
/* macro definition for BUILT-IN-OR-STRUCTURE-WRAPPER */ |
654 |
vs_check; |
vs_check; |
655 |
check_arg(2); |
check_arg(2); |
656 |
vs_top=sup; |
vs_top=sup; |
657 |
{object V95=base[0]->c.c_cdr; |
{object V92=base[0]->c.c_cdr; |
658 |
if(endp(V95))invalid_macro_call(); |
if(endp(V92))invalid_macro_call(); |
659 |
base[2]= (V95->c.c_car); |
base[2]= (V92->c.c_car); |
660 |
V95=V95->c.c_cdr; |
V92=V92->c.c_cdr; |
661 |
if(!endp(V95))invalid_macro_call();} |
if(!endp(V92))invalid_macro_call();} |
662 |
{object V96; |
{object V93; |
663 |
object V97; |
object V94; |
664 |
object V98; |
object V95; |
665 |
V96= Cnil; |
V93= Cnil; |
666 |
V97= Cnil; |
V94= Cnil; |
667 |
{register object V99; |
{register object V96; |
668 |
if(type_of(base[2])==t_symbol){ |
if(type_of(base[2])==t_symbol){ |
669 |
goto T88;} |
goto T88;} |
670 |
if(type_of(base[2])==t_fixnum|| |
if(type_of(base[2])==t_fixnum|| |
676 |
goto T88;} |
goto T88;} |
677 |
if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ |
if(!(type_of(base[2])==t_cons||(base[2])==Cnil)){ |
678 |
goto T89;} |
goto T89;} |
679 |
{register object x= CMPcar(base[2]),V100= VV[57]; |
{register object x= CMPcar(base[2]),V97= VV[57]; |
680 |
while(V100!=Cnil) |
while(V97!=Cnil) |
681 |
if(eql(x,V100->c.c_car)){ |
if(eql(x,V97->c.c_car)){ |
682 |
goto T96; |
goto T96; |
683 |
}else V100=V100->c.c_cdr; |
}else V97=V97->c.c_cdr; |
684 |
goto T89;} |
goto T89;} |
685 |
goto T96; |
goto T96; |
686 |
T96:; |
T96:; |
687 |
goto T88; |
goto T88; |
688 |
T88:; |
T88:; |
689 |
V99= base[2]; |
V96= base[2]; |
690 |
goto T87; |
goto T87; |
691 |
goto T89; |
goto T89; |
692 |
T89:; |
T89:; |
693 |
{object V101; |
{object V98; |
694 |
vs_base=vs_top; |
vs_base=vs_top; |
695 |
Lgensym(); |
Lgensym(); |
696 |
vs_top=sup; |
vs_top=sup; |
697 |
V101= vs_base[0]; |
V98= vs_base[0]; |
698 |
V96= make_cons(V101,(V96)); |
V93= make_cons(V98,(V93)); |
699 |
V97= make_cons(base[2],(V97)); |
V94= make_cons(base[2],(V94)); |
700 |
V99= (V101);} |
V96= (V98);} |
701 |
goto T87; |
goto T87; |
702 |
T87:; |
T87:; |
703 |
if(((*(LnkLI85))())==Cnil){ |
if(((*(LnkLI85))())==Cnil){ |
704 |
goto T103;} |
goto T103;} |
705 |
V104= list(2,VV[59],(V99)); |
V101= list(2,VV[59],(V96)); |
706 |
V105= list(2,VV[60],(V99)); |
V102= list(2,VV[60],(V96)); |
707 |
V106= list(2,VV[61],(V99)); |
V103= list(2,VV[61],(V96)); |
708 |
V107= listA(3,VV[58],(V99),VV[62]); |
V104= listA(3,VV[58],(V96),VV[62]); |
709 |
V98= list(4,VV[58],/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,list(4,VV[58],/* INLINE-ARGS */V106,/* INLINE-ARGS */V107,list(2,VV[63],(V99)))); |
V95= list(4,VV[58],/* INLINE-ARGS */V101,/* INLINE-ARGS */V102,list(4,VV[58],/* INLINE-ARGS */V103,/* INLINE-ARGS */V104,list(2,VV[63],(V96)))); |
710 |
goto T86; |
goto T86; |
711 |
goto T103; |
goto T103; |
712 |
T103:; |
T103:; |
713 |
V108= list(2,VV[61],(V99)); |
V105= list(2,VV[61],(V96)); |
714 |
V109= list(3,VV[65],/* INLINE-ARGS */V108,listA(3,VV[58],(V99),VV[66])); |
V106= list(3,VV[65],/* INLINE-ARGS */V105,listA(3,VV[58],(V96),VV[66])); |
715 |
V98= list(3,VV[64],/* INLINE-ARGS */V109,list(2,VV[67],(V99)));} |
V95= list(3,VV[64],/* INLINE-ARGS */V106,list(2,VV[67],(V96)));} |
716 |
goto T86; |
goto T86; |
717 |
T86:; |
T86:; |
718 |
V114= reverse((V96)); |
V111= reverse((V93)); |
719 |
V115= reverse((V97)); |
V112= reverse((V94)); |
720 |
{object V111; |
{object V108; |
721 |
object V112= /* INLINE-ARGS */V114; |
object V109= /* INLINE-ARGS */V111; |
722 |
object V113= /* INLINE-ARGS */V115; |
object V110= /* INLINE-ARGS */V112; |
723 |
if(V112==Cnil||V113==Cnil){ |
if(V109==Cnil||V110==Cnil){ |
724 |
V110= Cnil; |
V107= Cnil; |
725 |
goto T105;} |
goto T105;} |
726 |
base[4]=V111=MMcons(Cnil,Cnil); |
base[4]=V108=MMcons(Cnil,Cnil); |
727 |
goto T106; |
goto T106; |
728 |
T106:; |
T106:; |
729 |
(V111->c.c_car)= list(2,(V112->c.c_car),(V113->c.c_car)); |
(V108->c.c_car)= list(2,(V109->c.c_car),(V110->c.c_car)); |
730 |
if((V112=MMcdr(V112))==Cnil||(V113=MMcdr(V113))==Cnil){ |
if((V109=MMcdr(V109))==Cnil||(V110=MMcdr(V110))==Cnil){ |
731 |
V110= base[4]; |
V107= base[4]; |
732 |
goto T105;} |
goto T105;} |
733 |
V111=MMcdr(V111)=MMcons(Cnil,Cnil); |
V108=MMcdr(V108)=MMcons(Cnil,Cnil); |
734 |
goto T106;} |
goto T106;} |
735 |
goto T105; |
goto T105; |
736 |
T105:; |
T105:; |
737 |
V116 = (V98); |
base[4]= list(3,VV[68],V107,(V95)); |
|
base[4]= list(3,VV[68],V110,V116); |
|
738 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
739 |
return;} |
return;} |
740 |
} |
} |
746 |
vs_check; |
vs_check; |
747 |
check_arg(2); |
check_arg(2); |
748 |
vs_top=sup; |
vs_top=sup; |
749 |
{object V117=base[0]->c.c_cdr; |
{object V113=base[0]->c.c_cdr; |
750 |
if(endp(V117))invalid_macro_call(); |
if(endp(V113))invalid_macro_call(); |
751 |
base[2]= (V117->c.c_car); |
base[2]= (V113->c.c_car); |
752 |
V117=V117->c.c_cdr; |
V113=V113->c.c_cdr; |
753 |
if(!endp(V117))invalid_macro_call();} |
if(!endp(V113))invalid_macro_call();} |
754 |
V118= list(2,VV[16],base[2]); |
V114= list(2,VV[16],base[2]); |
755 |
V119= list(2,/* INLINE-ARGS */V118,list(2,VV[17],base[2])); |
V115= list(2,/* INLINE-ARGS */V114,list(2,VV[17],base[2])); |
756 |
V120= list(2,VV[18],base[2]); |
V116= list(2,VV[18],base[2]); |
757 |
V121= list(2,/* INLINE-ARGS */V120,list(2,VV[19],base[2])); |
V117= list(2,/* INLINE-ARGS */V116,list(2,VV[19],base[2])); |
758 |
base[3]= list(4,VV[15],/* INLINE-ARGS */V119,/* INLINE-ARGS */V121,list(2,Ct,list(2,VV[69],base[2]))); |
base[3]= list(4,VV[15],/* INLINE-ARGS */V115,/* INLINE-ARGS */V117,list(2,Ct,list(2,VV[69],base[2]))); |
759 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
760 |
return; |
return; |
761 |
} |
} |
762 |
/* local entry for function DECLARE-STRUCTURE */ |
/* local entry for function DECLARE-STRUCTURE */ |
763 |
|
|
764 |
static object LI33(V125,V126,V127) |
static object LI33(V121,V122,V123) |
765 |
|
|
766 |
object V125;object V126;object V127; |
object V121;object V122;object V123; |
767 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
768 |
goto TTL; |
goto TTL; |
769 |
TTL:; |
TTL:; |
770 |
{object V129; |
{object V125; |
771 |
object V130; |
object V126; |
772 |
V129= (VV[70]->s.s_dbind); |
V125= (VV[70]->s.s_dbind); |
773 |
V130= make_cons((V126),(V127)); |
V126= make_cons((V122),(V123)); |
774 |
base[1]= V125; |
base[1]= V121; |
775 |
base[2]= (V129); |
base[2]= (V125); |
776 |
base[3]= (V130); |
base[3]= (V126); |
777 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
778 |
siLhash_set(); |
siLhash_set(); |
779 |
vs_top=sup; |
vs_top=sup; |
780 |
{object V131 = vs_base[0]; |
{object V127 = vs_base[0]; |
781 |
VMR31(V131)}} |
VMR31(V127)}} |
782 |
base[0]=base[0]; |
base[0]=base[0]; |
783 |
return Cnil; |
return Cnil; |
784 |
} |
} |
785 |
/* local entry for function DEFAULT-STRUCTUREP */ |
/* local entry for function DEFAULT-STRUCTUREP */ |
786 |
|
|
787 |
static object LI34(V133) |
static object LI34(V129) |
788 |
|
|
789 |
object V133; |
object V129; |
790 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
791 |
goto TTL; |
goto TTL; |
792 |
TTL:; |
TTL:; |
793 |
base[0]= (V133); |
base[0]= (V129); |
794 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
795 |
Ltype_of(); |
Ltype_of(); |
796 |
vs_top=sup; |
vs_top=sup; |
797 |
V134= vs_base[0]; |
V130= vs_base[0]; |
798 |
{object V135 = (*(LnkLI86))(V134); |
{object V131 = (*(LnkLI86))(V130); |
799 |
VMR32(V135)} |
VMR32(V131)} |
800 |
base[0]=base[0]; |
base[0]=base[0]; |
801 |
return Cnil; |
return Cnil; |
802 |
} |
} |
803 |
/* local entry for function DEFAULT-STRUCTURE-INSTANCE-P */ |
/* local entry for function DEFAULT-STRUCTURE-INSTANCE-P */ |
804 |
|
|
805 |
static object LI35(V137) |
static object LI35(V133) |
806 |
|
|
807 |
object V137; |
object V133; |
808 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
809 |
goto TTL; |
goto TTL; |
810 |
TTL:; |
TTL:; |
811 |
{object V138; |
{object V134; |
812 |
base[0]= (V137); |
base[0]= (V133); |
813 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
814 |
Ltype_of(); |
Ltype_of(); |
815 |
vs_top=sup; |
vs_top=sup; |
816 |
V138= vs_base[0]; |
V134= vs_base[0]; |
817 |
if(((((V138))==(VV[11])?Ct:Cnil))==Cnil){ |
if(((((V134))==(VV[11])?Ct:Cnil))==Cnil){ |
818 |
goto T117;} |
goto T117;} |
819 |
{object V139 = Cnil; |
{object V135 = Cnil; |
820 |
VMR33(V139)} |
VMR33(V135)} |
821 |
goto T117; |
goto T117; |
822 |
T117:; |
T117:; |
823 |
{object V140 = (*(LnkLI86))((V138)); |
{object V136 = (*(LnkLI86))((V134)); |
824 |
VMR33(V140)}} |
VMR33(V136)}} |
825 |
base[0]=base[0]; |
base[0]=base[0]; |
826 |
return Cnil; |
return Cnil; |
827 |
} |
} |
828 |
/* local entry for function DEFAULT-STRUCTURE-TYPE */ |
/* local entry for function DEFAULT-STRUCTURE-TYPE */ |
829 |
|
|
830 |
static object LI36(V142) |
static object LI36(V138) |
831 |
|
|
832 |
object V142; |
object V138; |
833 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
834 |
goto TTL; |
goto TTL; |
835 |
TTL:; |
TTL:; |
836 |
base[0]= (V142); |
base[0]= (V138); |
837 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
838 |
Ltype_of(); |
Ltype_of(); |
839 |
vs_top=sup; |
vs_top=sup; |
840 |
{object V143 = vs_base[0]; |
{object V139 = vs_base[0]; |
841 |
VMR34(V143)} |
VMR34(V139)} |
842 |
base[0]=base[0]; |
base[0]=base[0]; |
843 |
return Cnil; |
return Cnil; |
844 |
} |
} |
845 |
/* local entry for function STRUCTURE-TYPE-P */ |
/* local entry for function STRUCTURE-TYPE-P */ |
846 |
|
|
847 |
static object LI37(V145) |
static object LI37(V141) |
848 |
|
|
849 |
object V145; |
object V141; |
850 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
851 |
goto TTL; |
goto TTL; |
852 |
TTL:; |
TTL:; |
853 |
base[0]= (V145); |
base[0]= (V141); |
854 |
base[1]= (VV[70]->s.s_dbind); |
base[1]= (VV[70]->s.s_dbind); |
855 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
856 |
Lgethash(); |
Lgethash(); |
857 |
vs_top=sup; |
vs_top=sup; |
858 |
V146= vs_base[0]; |
V142= vs_base[0]; |
859 |
{object V147 = ((((V146)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V143 = ((((V142)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
860 |
VMR35(V147)} |
VMR35(V143)} |
861 |
base[0]=base[0]; |
base[0]=base[0]; |
862 |
return Cnil; |
return Cnil; |
863 |
} |
} |
864 |
/* local entry for function STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
/* local entry for function STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
865 |
|
|
866 |
static object LI38(V149) |
static object LI38(V145) |
867 |
|
|
868 |
object V149; |
object V145; |
869 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
870 |
goto TTL; |
goto TTL; |
871 |
TTL:; |
TTL:; |
872 |
base[0]= (V149); |
base[0]= (V145); |
873 |
base[1]= (VV[70]->s.s_dbind); |
base[1]= (VV[70]->s.s_dbind); |
874 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
875 |
Lgethash(); |
Lgethash(); |
876 |
vs_top=sup; |
vs_top=sup; |
877 |
V150= vs_base[0]; |
V146= vs_base[0]; |
878 |
{object V151 = CMPcar(V150); |
{object V147 = CMPcar(V146); |
879 |
VMR36(V151)} |
VMR36(V147)} |
880 |
base[0]=base[0]; |
base[0]=base[0]; |
881 |
return Cnil; |
return Cnil; |
882 |
} |
} |
883 |
/* local entry for function STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */ |
/* local entry for function STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */ |
884 |
|
|
885 |
static object LI39(V153) |
static object LI39(V149) |
886 |
|
|
887 |
object V153; |
object V149; |
888 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
889 |
goto TTL; |
goto TTL; |
890 |
TTL:; |
TTL:; |
891 |
base[0]= (V153); |
base[0]= (V149); |
892 |
base[1]= (VV[70]->s.s_dbind); |
base[1]= (VV[70]->s.s_dbind); |
893 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
894 |
Lgethash(); |
Lgethash(); |
895 |
vs_top=sup; |
vs_top=sup; |
896 |
V154= vs_base[0]; |
V150= vs_base[0]; |
897 |
{object V155 = CMPcdr(V154); |
{object V151 = CMPcdr(V150); |
898 |
VMR37(V155)} |
VMR37(V151)} |
899 |
base[0]=base[0]; |
base[0]=base[0]; |
900 |
return Cnil; |
return Cnil; |
901 |
} |
} |
902 |
/* local entry for function STRUCTURE-SLOTD-NAME */ |
/* local entry for function STRUCTURE-SLOTD-NAME */ |
903 |
|
|
904 |
static object LI40(V157) |
static object LI40(V153) |
905 |
|
|
906 |
object V157; |
object V153; |
907 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
908 |
goto TTL; |
goto TTL; |
909 |
TTL:; |
TTL:; |
910 |
{object V158 = CMPcar((V157)); |
{object V154 = CMPcar((V153)); |
911 |
VMR38(V158)} |
VMR38(V154)} |
912 |
return Cnil; |
return Cnil; |
913 |
} |
} |
914 |
/* local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
/* local entry for function STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
915 |
|
|
916 |
static object LI41(V160) |
static object LI41(V156) |
917 |
|
|
918 |
object V160; |
object V156; |
919 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
920 |
goto TTL; |
goto TTL; |
921 |
TTL:; |
TTL:; |
922 |
{object V161 = CMPcadr((V160)); |
{object V157 = CMPcadr((V156)); |
923 |
VMR39(V161)} |
VMR39(V157)} |
924 |
return Cnil; |
return Cnil; |
925 |
} |
} |
926 |
/* local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION */ |
/* local entry for function STRUCTURE-SLOTD-WRITER-FUNCTION */ |
927 |
|
|
928 |
static object LI42(V163) |
static object LI42(V159) |
929 |
|
|
930 |
object V163; |
object V159; |
931 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
932 |
goto TTL; |
goto TTL; |
933 |
TTL:; |
TTL:; |
934 |
{object V164 = CMPcaddr((V163)); |
{object V160 = CMPcaddr((V159)); |
935 |
VMR40(V164)} |
VMR40(V160)} |
936 |
return Cnil; |
return Cnil; |
937 |
} |
} |
938 |
/* local entry for function STRUCTURE-SLOTD-TYPE */ |
/* local entry for function STRUCTURE-SLOTD-TYPE */ |
939 |
|
|
940 |
static object LI43(V166) |
static object LI43(V162) |
941 |
|
|
942 |
object V166; |
object V162; |
943 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
944 |
goto TTL; |
goto TTL; |
945 |
TTL:; |
TTL:; |
946 |
{object V167 = CMPcadddr((V166)); |
{object V163 = CMPcadddr((V162)); |
947 |
VMR41(V167)} |
VMR41(V163)} |
948 |
return Cnil; |
return Cnil; |
949 |
} |
} |
950 |
/* function definition for STRUCTURE-SLOTD-INIT-FORM */ |
/* function definition for STRUCTURE-SLOTD-INIT-FORM */ |
953 |
{register object *base=vs_base; |
{register object *base=vs_base; |
954 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
955 |
vs_check; |
vs_check; |
956 |
{object V168; |
{object V164; |
957 |
check_arg(1); |
check_arg(1); |
958 |
V168=(base[0]); |
V164=(base[0]); |
959 |
vs_top=sup; |
vs_top=sup; |
960 |
goto TTL; |
goto TTL; |
961 |
TTL:; |
TTL:; |
962 |
base[1]= (V168); |
base[1]= (V164); |
963 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
964 |
(void) (*Lnk87)(); |
(void) (*Lnk87)(); |
965 |
return; |
return; |
972 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
973 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
974 |
vs_check; |
vs_check; |
975 |
{object V169; |
{object V165; |
976 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
977 |
{object *p=vs_top; |
{object *p=vs_top; |
978 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
979 |
V169=(base[0]); |
V165=(base[0]); |
980 |
vs_top=sup; |
vs_top=sup; |
981 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
982 |
goto T131;} |
goto T131;} |
983 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
984 |
{object V170; |
{object V166; |
985 |
V170= (V169); |
V166= (V165); |
986 |
vs_top=base+2; |
vs_top=base+2; |
987 |
while(V170!=Cnil) |
while(V166!=Cnil) |
988 |
{vs_push((V170)->c.c_car);V170=(V170)->c.c_cdr;} |
{vs_push((V166)->c.c_car);V166=(V166)->c.c_cdr;} |
989 |
vs_base=base+2;} |
vs_base=base+2;} |
990 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
991 |
return; |
return; |
994 |
if(((*(LnkLI81))())==Cnil){ |
if(((*(LnkLI81))())==Cnil){ |
995 |
goto T136;} |
goto T136;} |
996 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
997 |
{object V171; |
{object V167; |
998 |
V171= (V169); |
V167= (V165); |
999 |
vs_top=base+2; |
vs_top=base+2; |
1000 |
while(V171!=Cnil) |
while(V167!=Cnil) |
1001 |
{vs_push((V171)->c.c_car);V171=(V171)->c.c_cdr;} |
{vs_push((V167)->c.c_car);V167=(V167)->c.c_cdr;} |
1002 |
vs_base=base+2;} |
vs_base=base+2;} |
1003 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
1004 |
return; |
return; |
1011 |
vs_top=sup; |
vs_top=sup; |
1012 |
(base0[0]->c.c_car)= vs_base[0]; |
(base0[0]->c.c_car)= vs_base[0]; |
1013 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1014 |
{object V172; |
{object V168; |
1015 |
V172= (V169); |
V168= (V165); |
1016 |
vs_top=base+2; |
vs_top=base+2; |
1017 |
while(V172!=Cnil) |
while(V168!=Cnil) |
1018 |
{vs_push((V172)->c.c_car);V172=(V172)->c.c_cdr;} |
{vs_push((V168)->c.c_car);V168=(V168)->c.c_cdr;} |
1019 |
vs_base=base+2;} |
vs_base=base+2;} |
1020 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
1021 |
return; |
return; |
1028 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1029 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM44; VC44 |
1030 |
vs_check; |
vs_check; |
1031 |
{object V173; |
{object V169; |
1032 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1033 |
{object *p=vs_top; |
{object *p=vs_top; |
1034 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1035 |
V173=(base[0]); |
V169=(base[0]); |
1036 |
vs_top=sup; |
vs_top=sup; |
1037 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
1038 |
base[3]= VV[51]; |
base[3]= VV[51]; |
1040 |
(void) (*Lnk84)(); |
(void) (*Lnk84)(); |
1041 |
vs_top=sup; |
vs_top=sup; |
1042 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
1043 |
{object V174; |
{object V170; |
1044 |
V174= (V173); |
V170= (V169); |
1045 |
vs_top=base+2; |
vs_top=base+2; |
1046 |
while(V174!=Cnil) |
while(V170!=Cnil) |
1047 |
{vs_push((V174)->c.c_car);V174=(V174)->c.c_cdr;} |
{vs_push((V170)->c.c_car);V170=(V170)->c.c_cdr;} |
1048 |
vs_base=base+2;} |
vs_base=base+2;} |
1049 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
1050 |
return; |
return; |