This is lap.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2580, "LOG?", 4 );
DEFSTATICTSCP( log_3f_v );
DEFSTRING( t2581, "SC-ICODE", 8 );
DEFSTATICTSCP( sc_2dicode_v );
DEFSTRING( t2582, "SET-ID-ALIAS!", 13 );
DEFSTATICTSCP( set_2did_2dalias_21_v );
DEFSTRING( t2583, "SET-ID-GOTOS!", 13 );
DEFSTATICTSCP( set_2did_2dgotos_21_v );
DEFSTRING( t2584, "ID-GOTOS", 8 );
DEFSTATICTSCP( id_2dgotos_v );
DEFSTRING( t2585, "FREE-DISPLAY", 12 );
DEFSTATICTSCP( free_2ddisplay_v );
DEFSTRING( t2586, "PRETTY-PRINT-$TREE", 18 );
DEFSTATICTSCP( pretty_2dprint_2d_24tree_v );
DEFSTRING( t2587, "ID-ALIAS", 8 );
DEFSTATICTSCP( id_2dalias_v );
DEFSTRING( t2588, "SC-STACK-TRACE", 14 );
DEFSTATICTSCP( sc_2dstack_2dtrace_v );
DEFSTRING( t2589, "REPORT-ERROR", 12 );
DEFSTATICTSCP( report_2derror_v );
DEFSTRING( t2590, "VNAME", 5 );
DEFSTATICTSCP( vname_v );
DEFSTRING( t2591, "ID-USE", 6 );
DEFSTATICTSCP( id_2duse_v );
DEFSTRING( t2592, "CHAR->DL", 8 );
DEFSTATICTSCP( char_2d_3edl_v );
DEFSTRING( t2593, "SET-WRITE-COUNT!", 16 );
DEFSTATICTSCP( set_2dwrite_2dcount_21_v );
DEFSTRING( t2594, "STRING-DOWNCASE", 15 );
DEFSTATICTSCP( string_2ddowncase_v );
DEFSTRING( t2595, "SET-ID-VNAME!", 13 );
DEFSTATICTSCP( set_2did_2dvname_21_v );
DEFSTRING( t2596, "SET-ID-USE!", 11 );
DEFSTATICTSCP( set_2did_2duse_21_v );
DEFSTATICTSCP( c2409 );
DEFSTRING( t2598, "RETURN", 6 );
DEFSTATICTSCP( t2597 );
DEFSTRING( t2600, "NO-VALUE", 8 );
DEFSTATICTSCP( t2599 );
DEFSTRING( t2602, "TOS", 3 );
DEFSTATICTSCP( t2601 );
DEFSTRING( t2604, "X99", 3 );
DEFSTATICTSCP( t2603 );
DEFSTRING( t2606, "X98", 3 );
DEFSTATICTSCP( t2605 );
DEFSTRING( t2608, "X97", 3 );
DEFSTATICTSCP( t2607 );
DEFSTRING( t2610, "X96", 3 );
DEFSTATICTSCP( t2609 );
DEFSTRING( t2612, "X95", 3 );
DEFSTATICTSCP( t2611 );
DEFSTRING( t2614, "X94", 3 );
DEFSTATICTSCP( t2613 );
DEFSTRING( t2616, "X93", 3 );
DEFSTATICTSCP( t2615 );
DEFSTRING( t2618, "X92", 3 );
DEFSTATICTSCP( t2617 );
DEFSTRING( t2620, "X91", 3 );
DEFSTATICTSCP( t2619 );
DEFSTRING( t2622, "X90", 3 );
DEFSTATICTSCP( t2621 );
DEFSTRING( t2624, "X89", 3 );
DEFSTATICTSCP( t2623 );
DEFSTRING( t2626, "X88", 3 );
DEFSTATICTSCP( t2625 );
DEFSTRING( t2628, "X87", 3 );
DEFSTATICTSCP( t2627 );
DEFSTRING( t2630, "X86", 3 );
DEFSTATICTSCP( t2629 );
DEFSTRING( t2632, "X85", 3 );
DEFSTATICTSCP( t2631 );
DEFSTRING( t2634, "X84", 3 );
DEFSTATICTSCP( t2633 );
DEFSTRING( t2636, "X83", 3 );
DEFSTATICTSCP( t2635 );
DEFSTRING( t2638, "X82", 3 );
DEFSTATICTSCP( t2637 );
DEFSTRING( t2640, "X81", 3 );
DEFSTATICTSCP( t2639 );
DEFSTRING( t2642, "X80", 3 );
DEFSTATICTSCP( t2641 );
DEFSTRING( t2644, "X79", 3 );
DEFSTATICTSCP( t2643 );
DEFSTRING( t2646, "X78", 3 );
DEFSTATICTSCP( t2645 );
DEFSTRING( t2648, "X77", 3 );
DEFSTATICTSCP( t2647 );
DEFSTRING( t2650, "X76", 3 );
DEFSTATICTSCP( t2649 );
DEFSTRING( t2652, "X75", 3 );
DEFSTATICTSCP( t2651 );
DEFSTRING( t2654, "X74", 3 );
DEFSTATICTSCP( t2653 );
DEFSTRING( t2656, "X73", 3 );
DEFSTATICTSCP( t2655 );
DEFSTRING( t2658, "X72", 3 );
DEFSTATICTSCP( t2657 );
DEFSTRING( t2660, "X71", 3 );
DEFSTATICTSCP( t2659 );
DEFSTRING( t2662, "X70", 3 );
DEFSTATICTSCP( t2661 );
DEFSTRING( t2664, "X69", 3 );
DEFSTATICTSCP( t2663 );
DEFSTRING( t2666, "X68", 3 );
DEFSTATICTSCP( t2665 );
DEFSTRING( t2668, "X67", 3 );
DEFSTATICTSCP( t2667 );
DEFSTRING( t2670, "X66", 3 );
DEFSTATICTSCP( t2669 );
DEFSTRING( t2672, "X65", 3 );
DEFSTATICTSCP( t2671 );
DEFSTRING( t2674, "X64", 3 );
DEFSTATICTSCP( t2673 );
DEFSTRING( t2676, "X63", 3 );
DEFSTATICTSCP( t2675 );
DEFSTRING( t2678, "X62", 3 );
DEFSTATICTSCP( t2677 );
DEFSTRING( t2680, "X61", 3 );
DEFSTATICTSCP( t2679 );
DEFSTRING( t2682, "X60", 3 );
DEFSTATICTSCP( t2681 );
DEFSTRING( t2684, "X59", 3 );
DEFSTATICTSCP( t2683 );
DEFSTRING( t2686, "X58", 3 );
DEFSTATICTSCP( t2685 );
DEFSTRING( t2688, "X57", 3 );
DEFSTATICTSCP( t2687 );
DEFSTRING( t2690, "X56", 3 );
DEFSTATICTSCP( t2689 );
DEFSTRING( t2692, "X55", 3 );
DEFSTATICTSCP( t2691 );
DEFSTRING( t2694, "X54", 3 );
DEFSTATICTSCP( t2693 );
DEFSTRING( t2696, "X53", 3 );
DEFSTATICTSCP( t2695 );
DEFSTRING( t2698, "X52", 3 );
DEFSTATICTSCP( t2697 );
DEFSTRING( t2700, "X51", 3 );
DEFSTATICTSCP( t2699 );
DEFSTRING( t2702, "X50", 3 );
DEFSTATICTSCP( t2701 );
DEFSTRING( t2704, "X49", 3 );
DEFSTATICTSCP( t2703 );
DEFSTRING( t2706, "X48", 3 );
DEFSTATICTSCP( t2705 );
DEFSTRING( t2708, "X47", 3 );
DEFSTATICTSCP( t2707 );
DEFSTRING( t2710, "X46", 3 );
DEFSTATICTSCP( t2709 );
DEFSTRING( t2712, "X45", 3 );
DEFSTATICTSCP( t2711 );
DEFSTRING( t2714, "X44", 3 );
DEFSTATICTSCP( t2713 );
DEFSTRING( t2716, "X43", 3 );
DEFSTATICTSCP( t2715 );
DEFSTRING( t2718, "X42", 3 );
DEFSTATICTSCP( t2717 );
DEFSTRING( t2720, "X41", 3 );
DEFSTATICTSCP( t2719 );
DEFSTRING( t2722, "X40", 3 );
DEFSTATICTSCP( t2721 );
DEFSTRING( t2724, "X39", 3 );
DEFSTATICTSCP( t2723 );
DEFSTRING( t2726, "X38", 3 );
DEFSTATICTSCP( t2725 );
DEFSTRING( t2728, "X37", 3 );
DEFSTATICTSCP( t2727 );
DEFSTRING( t2730, "X36", 3 );
DEFSTATICTSCP( t2729 );
DEFSTRING( t2732, "X35", 3 );
DEFSTATICTSCP( t2731 );
DEFSTRING( t2734, "X34", 3 );
DEFSTATICTSCP( t2733 );
DEFSTRING( t2736, "X33", 3 );
DEFSTATICTSCP( t2735 );
DEFSTRING( t2738, "X32", 3 );
DEFSTATICTSCP( t2737 );
DEFSTRING( t2740, "X31", 3 );
DEFSTATICTSCP( t2739 );
DEFSTRING( t2742, "X30", 3 );
DEFSTATICTSCP( t2741 );
DEFSTRING( t2744, "X29", 3 );
DEFSTATICTSCP( t2743 );
DEFSTRING( t2746, "X28", 3 );
DEFSTATICTSCP( t2745 );
DEFSTRING( t2748, "X27", 3 );
DEFSTATICTSCP( t2747 );
DEFSTRING( t2750, "X26", 3 );
DEFSTATICTSCP( t2749 );
DEFSTRING( t2752, "X25", 3 );
DEFSTATICTSCP( t2751 );
DEFSTRING( t2754, "X24", 3 );
DEFSTATICTSCP( t2753 );
DEFSTRING( t2756, "X23", 3 );
DEFSTATICTSCP( t2755 );
DEFSTRING( t2758, "X22", 3 );
DEFSTATICTSCP( t2757 );
DEFSTRING( t2760, "X21", 3 );
DEFSTATICTSCP( t2759 );
DEFSTRING( t2762, "X20", 3 );
DEFSTATICTSCP( t2761 );
DEFSTRING( t2764, "X19", 3 );
DEFSTATICTSCP( t2763 );
DEFSTRING( t2766, "X18", 3 );
DEFSTATICTSCP( t2765 );
DEFSTRING( t2768, "X17", 3 );
DEFSTATICTSCP( t2767 );
DEFSTRING( t2770, "X16", 3 );
DEFSTATICTSCP( t2769 );
DEFSTRING( t2772, "X15", 3 );
DEFSTATICTSCP( t2771 );
DEFSTRING( t2774, "X14", 3 );
DEFSTATICTSCP( t2773 );
DEFSTRING( t2776, "X13", 3 );
DEFSTATICTSCP( t2775 );
DEFSTRING( t2778, "X12", 3 );
DEFSTATICTSCP( t2777 );
DEFSTRING( t2780, "X11", 3 );
DEFSTATICTSCP( t2779 );
DEFSTRING( t2782, "X10", 3 );
DEFSTATICTSCP( t2781 );
DEFSTRING( t2784, "X9", 2 );
DEFSTATICTSCP( t2783 );
DEFSTRING( t2786, "X8", 2 );
DEFSTATICTSCP( t2785 );
DEFSTRING( t2788, "X7", 2 );
DEFSTATICTSCP( t2787 );
DEFSTRING( t2790, "X6", 2 );
DEFSTATICTSCP( t2789 );
DEFSTRING( t2792, "X5", 2 );
DEFSTATICTSCP( t2791 );
DEFSTRING( t2794, "X4", 2 );
DEFSTATICTSCP( t2793 );
DEFSTRING( t2796, "X3", 2 );
DEFSTATICTSCP( t2795 );
DEFSTRING( t2798, "X2", 2 );
DEFSTATICTSCP( t2797 );
DEFSTRING( t2800, "X1", 2 );
DEFSTATICTSCP( t2799 );
DEFSTRING( t2801, "$LEXICAL", 8 );
DEFSTATICTSCP( c2408 );
DEFSTRING( t2802, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c2380, t2802 );
DEFSTRING( t2803, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c2379 );
DEFSTRING( t2804, "~a..", 4 );
DEFSTATICTSCP2( c2314, t2804 );
DEFSTRING( t2805, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c2313, t2805 );
DEFSTRING( t2806, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c2312 );
DEFSTRING( t2807, ", ", 2 );
DEFSTATICTSCP2( c2263, t2807 );
DEFSTATICTSCP( c2221 );
DEFSTRING( t2808, "CHAR>?", 6 );
DEFSTATICTSCP( c2209 );
DEFSTRING( t2809, "Argument(s) not CHAR: ~s ~s", 27 );
DEFSTATICTSCP2( c2201, t2809 );
DEFSTRING( t2810, "CHAR<?", 6 );
DEFSTATICTSCP( c2200 );
DEFSTATICTSCP( c2157 );
DEFSTRING( t2812, "GT", 2 );
DEFSTATICTSCP( t2811 );
DEFSTRING( t2814, "LTE", 3 );
DEFSTATICTSCP( t2813 );
DEFSTRING( t2816, "LT", 2 );
DEFSTATICTSCP( t2815 );
DEFSTRING( t2818, "GTE", 3 );
DEFSTATICTSCP( t2817 );
DEFSTRING( t2820, "TRUE", 4 );
DEFSTATICTSCP( t2819 );
DEFSTRING( t2822, "FALSE", 5 );
DEFSTATICTSCP( t2821 );
DEFSTRING( t2824, "EQ", 2 );
DEFSTATICTSCP( t2823 );
DEFSTRING( t2826, "NEQ", 3 );
DEFSTATICTSCP( t2825 );
DEFSTRING( t2827, "~a( ", 4 );
DEFSTATICTSCP2( c2140, t2827 );
DEFSTRING( t2828, " )", 2 );
DEFSTATICTSCP2( c2129, t2828 );
DEFSTRING( t2829, "( ", 2 );
DEFSTATICTSCP2( c2124, t2829 );
DEFSTRING( t2830, "FALSE", 5 );
DEFSTATICTSCP( c2098 );
DEFSTRING( t2831, "BOOLEAN", 7 );
DEFSTATICTSCP( c2087 );
DEFSTRING( t2832, "TRUE", 4 );
DEFSTATICTSCP( c2066 );
DEFSTATICTSCP( c2018 );
DEFSTRING( t2834, "NOT", 3 );
DEFSTATICTSCP( t2833 );
DEFSTRING( t2835, "CSTRING", 7 );
DEFSTATICTSCP( c2010 );
DEFSTRING( t2836, "PPLAP looked up a symbol:", 25 );
DEFSTATICTSCP2( c2002, t2836 );
DEFSTRING( t2837, "POP-TOS compiler error", 22 );
DEFSTATICTSCP2( c1965, t2837 );
DEFSTRING( t2838, "~a:~%", 5 );
DEFSTATICTSCP2( c1916, t2838 );
DEFSTRING( t2839, ";", 1 );
DEFSTATICTSCP2( c1876, t2839 );
DEFSTRING( t2840, " TSCP ", 14 );
DEFSTATICTSCP2( c1865, t2840 );
DEFSTRING( t2841, "TSCP ", 6 );
DEFSTATICTSCP2( c1849, t2841 );
DEFSTRING( t2842, "~aTSCP SDVAL;~%", 16 );
DEFSTATICTSCP2( c1843, t2842 );
DEFSTRING( t2843, "~aTSCP SD~a = DISPLAY( ~a );~%", 31 );
DEFSTATICTSCP2( c1826, t2843 );
DEFSTRING( t2844, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1799, t2844 );
DEFSTRING( t2845, "SET-CDR!", 8 );
DEFSTATICTSCP( c1798 );
DEFSTRING( t2846, "~aTSCP ", 8 );
DEFSTATICTSCP2( c1766, t2846 );
DEFSTRING( t2847, "~agoto ~a;~%", 12 );
DEFSTATICTSCP2( c1753, t2847 );
DEFSTRING( t2848, " ) goto ~a;~%", 15 );
DEFSTATICTSCP2( c1752, t2848 );
DEFSTRING( t2849, "~%~a ", 7 );
DEFSTATICTSCP2( c1751, t2849 );
DEFSTRING( t2850, "~aif ( ", 8 );
DEFSTATICTSCP2( c1727, t2850 );
DEFSTRING( t2851, "PPLAP compiler error", 20 );
DEFSTATICTSCP2( c1713, t2851 );
DEFSTATICTSCP( c1709 );
DEFSTRING( t2853, "SDVAL", 5 );
DEFSTATICTSCP2( t2852, t2853 );
DEFSTRING( t2854, "POPSTACKTRACE", 13 );
DEFSTATICTSCP2( c1698, t2854 );
DEFSTRING( t2855, "return", 6 );
DEFSTATICTSCP2( c1697, t2855 );
DEFSTRING( t2856, "~aDISPLAY( ~a ) = SD~a;~%", 25 );
DEFSTATICTSCP2( c1687, t2856 );
DEFSTRING( t2857, "~aSDVAL = ", 10 );
DEFSTATICTSCP2( c1675, t2857 );
DEFSTRING( t2858, "void", 4 );
DEFSTATICTSCP2( c1673, t2858 );
DEFSTRING( t2859, " = ", 3 );
DEFSTATICTSCP2( c1670, t2859 );
DEFSTRING( t2860, ";~%", 3 );
DEFSTATICTSCP2( c1647, t2860 );
DEFSTRING( t2861, "LOCALS", 6 );
DEFSTATICTSCP( c1635 );
DEFSTRING( t2862, "PROC", 4 );
DEFSTATICTSCP( c1631 );
DEFSTRING( t2863, "INDENT", 6 );
DEFSTATICTSCP( c1627 );
DEFSTRING( t2864, "LIT", 3 );
DEFSTATICTSCP( c1620 );
DEFSTRING( t2865, "LAP", 3 );
DEFSTATICTSCP( c1554 );
DEFSTATICTSCP( c1518 );
DEFSTRING( t2866, "NOT", 3 );
DEFSTATICTSCP( c1407 );
DEFSTRING( t2867, "IF", 2 );
DEFSTATICTSCP( c1354 );
DEFSTATICTSCP( c1213 );
DEFSTRING( t2869, "LABEL", 5 );
DEFSTATICTSCP( t2868 );
DEFSTRING( t2870, "RETURN", 6 );
DEFSTATICTSCP( c1207 );
DEFSTRING( t2871, "GOTO", 4 );
DEFSTATICTSCP( c1185 );
DEFSTRING( t2872, "TOS", 3 );
DEFSTATICTSCP( c1143 );
DEFSTRING( t2873, "NO-VALUE", 8 );
DEFSTATICTSCP( c1132 );
DEFSTRING( t2874, "SET", 3 );
DEFSTATICTSCP( c1111 );
DEFSTRING( t2875, "LABEL", 5 );
DEFSTATICTSCP( c1100 );
DEFSTRING( t2876, " */~%", 5 );
DEFSTATICTSCP2( c1084, t2876 );
DEFSTRING( t2877, " ~A~% =>", 9 );
DEFSTATICTSCP2( c1053, t2877 );
DEFSTRING( t2878, " ~A", 3 );
DEFSTATICTSCP2( c1032, t2878 );
DEFSTRING( t2879, "/* ", 3 );
DEFSTATICTSCP2( c1020, t2879 );
DEFSTRING( t2880, "PEEP", 4 );
DEFSTATICTSCP( c1016 );
static void init_constants()
{
TSCP X1;
log_3f_v = STRINGTOSYMBOL( U_TX( ADR( t2580 ) ) );
CONSTANTEXP( ADR( log_3f_v ) );
sc_2dicode_v = STRINGTOSYMBOL( U_TX( ADR( t2581 ) ) );
CONSTANTEXP( ADR( sc_2dicode_v ) );
set_2did_2dalias_21_v = STRINGTOSYMBOL( U_TX( ADR( t2582 ) ) );
CONSTANTEXP( ADR( set_2did_2dalias_21_v ) );
set_2did_2dgotos_21_v = STRINGTOSYMBOL( U_TX( ADR( t2583 ) ) );
CONSTANTEXP( ADR( set_2did_2dgotos_21_v ) );
id_2dgotos_v = STRINGTOSYMBOL( U_TX( ADR( t2584 ) ) );
CONSTANTEXP( ADR( id_2dgotos_v ) );
free_2ddisplay_v = STRINGTOSYMBOL( U_TX( ADR( t2585 ) ) );
CONSTANTEXP( ADR( free_2ddisplay_v ) );
pretty_2dprint_2d_24tree_v = STRINGTOSYMBOL( U_TX( ADR( t2586 ) ) );
CONSTANTEXP( ADR( pretty_2dprint_2d_24tree_v ) );
id_2dalias_v = STRINGTOSYMBOL( U_TX( ADR( t2587 ) ) );
CONSTANTEXP( ADR( id_2dalias_v ) );
sc_2dstack_2dtrace_v = STRINGTOSYMBOL( U_TX( ADR( t2588 ) ) );
CONSTANTEXP( ADR( sc_2dstack_2dtrace_v ) );
report_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2589 ) ) );
CONSTANTEXP( ADR( report_2derror_v ) );
vname_v = STRINGTOSYMBOL( U_TX( ADR( t2590 ) ) );
CONSTANTEXP( ADR( vname_v ) );
id_2duse_v = STRINGTOSYMBOL( U_TX( ADR( t2591 ) ) );
CONSTANTEXP( ADR( id_2duse_v ) );
char_2d_3edl_v = STRINGTOSYMBOL( U_TX( ADR( t2592 ) ) );
CONSTANTEXP( ADR( char_2d_3edl_v ) );
set_2dwrite_2dcount_21_v = STRINGTOSYMBOL( U_TX( ADR( t2593 ) ) );
CONSTANTEXP( ADR( set_2dwrite_2dcount_21_v ) );
string_2ddowncase_v = STRINGTOSYMBOL( U_TX( ADR( t2594 ) ) );
CONSTANTEXP( ADR( string_2ddowncase_v ) );
set_2did_2dvname_21_v = STRINGTOSYMBOL( U_TX( ADR( t2595 ) ) );
CONSTANTEXP( ADR( set_2did_2dvname_21_v ) );
set_2did_2duse_21_v = STRINGTOSYMBOL( U_TX( ADR( t2596 ) ) );
CONSTANTEXP( ADR( set_2did_2duse_21_v ) );
c2409 = EMPTYLIST;
t2597 = STRINGTOSYMBOL( U_TX( ADR( t2598 ) ) );
c2409 = CONS( t2597, c2409 );
t2599 = STRINGTOSYMBOL( U_TX( ADR( t2600 ) ) );
c2409 = CONS( t2599, c2409 );
t2601 = STRINGTOSYMBOL( U_TX( ADR( t2602 ) ) );
c2409 = CONS( t2601, c2409 );
t2603 = STRINGTOSYMBOL( U_TX( ADR( t2604 ) ) );
c2409 = CONS( t2603, c2409 );
t2605 = STRINGTOSYMBOL( U_TX( ADR( t2606 ) ) );
c2409 = CONS( t2605, c2409 );
t2607 = STRINGTOSYMBOL( U_TX( ADR( t2608 ) ) );
c2409 = CONS( t2607, c2409 );
t2609 = STRINGTOSYMBOL( U_TX( ADR( t2610 ) ) );
c2409 = CONS( t2609, c2409 );
t2611 = STRINGTOSYMBOL( U_TX( ADR( t2612 ) ) );
c2409 = CONS( t2611, c2409 );
t2613 = STRINGTOSYMBOL( U_TX( ADR( t2614 ) ) );
c2409 = CONS( t2613, c2409 );
t2615 = STRINGTOSYMBOL( U_TX( ADR( t2616 ) ) );
c2409 = CONS( t2615, c2409 );
t2617 = STRINGTOSYMBOL( U_TX( ADR( t2618 ) ) );
c2409 = CONS( t2617, c2409 );
t2619 = STRINGTOSYMBOL( U_TX( ADR( t2620 ) ) );
c2409 = CONS( t2619, c2409 );
t2621 = STRINGTOSYMBOL( U_TX( ADR( t2622 ) ) );
c2409 = CONS( t2621, c2409 );
t2623 = STRINGTOSYMBOL( U_TX( ADR( t2624 ) ) );
c2409 = CONS( t2623, c2409 );
t2625 = STRINGTOSYMBOL( U_TX( ADR( t2626 ) ) );
c2409 = CONS( t2625, c2409 );
t2627 = STRINGTOSYMBOL( U_TX( ADR( t2628 ) ) );
c2409 = CONS( t2627, c2409 );
t2629 = STRINGTOSYMBOL( U_TX( ADR( t2630 ) ) );
c2409 = CONS( t2629, c2409 );
t2631 = STRINGTOSYMBOL( U_TX( ADR( t2632 ) ) );
c2409 = CONS( t2631, c2409 );
t2633 = STRINGTOSYMBOL( U_TX( ADR( t2634 ) ) );
c2409 = CONS( t2633, c2409 );
t2635 = STRINGTOSYMBOL( U_TX( ADR( t2636 ) ) );
c2409 = CONS( t2635, c2409 );
t2637 = STRINGTOSYMBOL( U_TX( ADR( t2638 ) ) );
c2409 = CONS( t2637, c2409 );
t2639 = STRINGTOSYMBOL( U_TX( ADR( t2640 ) ) );
c2409 = CONS( t2639, c2409 );
t2641 = STRINGTOSYMBOL( U_TX( ADR( t2642 ) ) );
c2409 = CONS( t2641, c2409 );
t2643 = STRINGTOSYMBOL( U_TX( ADR( t2644 ) ) );
c2409 = CONS( t2643, c2409 );
t2645 = STRINGTOSYMBOL( U_TX( ADR( t2646 ) ) );
c2409 = CONS( t2645, c2409 );
t2647 = STRINGTOSYMBOL( U_TX( ADR( t2648 ) ) );
c2409 = CONS( t2647, c2409 );
t2649 = STRINGTOSYMBOL( U_TX( ADR( t2650 ) ) );
c2409 = CONS( t2649, c2409 );
t2651 = STRINGTOSYMBOL( U_TX( ADR( t2652 ) ) );
c2409 = CONS( t2651, c2409 );
t2653 = STRINGTOSYMBOL( U_TX( ADR( t2654 ) ) );
c2409 = CONS( t2653, c2409 );
t2655 = STRINGTOSYMBOL( U_TX( ADR( t2656 ) ) );
c2409 = CONS( t2655, c2409 );
t2657 = STRINGTOSYMBOL( U_TX( ADR( t2658 ) ) );
c2409 = CONS( t2657, c2409 );
t2659 = STRINGTOSYMBOL( U_TX( ADR( t2660 ) ) );
c2409 = CONS( t2659, c2409 );
t2661 = STRINGTOSYMBOL( U_TX( ADR( t2662 ) ) );
c2409 = CONS( t2661, c2409 );
t2663 = STRINGTOSYMBOL( U_TX( ADR( t2664 ) ) );
c2409 = CONS( t2663, c2409 );
t2665 = STRINGTOSYMBOL( U_TX( ADR( t2666 ) ) );
c2409 = CONS( t2665, c2409 );
t2667 = STRINGTOSYMBOL( U_TX( ADR( t2668 ) ) );
c2409 = CONS( t2667, c2409 );
t2669 = STRINGTOSYMBOL( U_TX( ADR( t2670 ) ) );
c2409 = CONS( t2669, c2409 );
t2671 = STRINGTOSYMBOL( U_TX( ADR( t2672 ) ) );
c2409 = CONS( t2671, c2409 );
t2673 = STRINGTOSYMBOL( U_TX( ADR( t2674 ) ) );
c2409 = CONS( t2673, c2409 );
t2675 = STRINGTOSYMBOL( U_TX( ADR( t2676 ) ) );
c2409 = CONS( t2675, c2409 );
t2677 = STRINGTOSYMBOL( U_TX( ADR( t2678 ) ) );
c2409 = CONS( t2677, c2409 );
t2679 = STRINGTOSYMBOL( U_TX( ADR( t2680 ) ) );
c2409 = CONS( t2679, c2409 );
t2681 = STRINGTOSYMBOL( U_TX( ADR( t2682 ) ) );
c2409 = CONS( t2681, c2409 );
t2683 = STRINGTOSYMBOL( U_TX( ADR( t2684 ) ) );
c2409 = CONS( t2683, c2409 );
t2685 = STRINGTOSYMBOL( U_TX( ADR( t2686 ) ) );
c2409 = CONS( t2685, c2409 );
t2687 = STRINGTOSYMBOL( U_TX( ADR( t2688 ) ) );
c2409 = CONS( t2687, c2409 );
t2689 = STRINGTOSYMBOL( U_TX( ADR( t2690 ) ) );
c2409 = CONS( t2689, c2409 );
t2691 = STRINGTOSYMBOL( U_TX( ADR( t2692 ) ) );
c2409 = CONS( t2691, c2409 );
t2693 = STRINGTOSYMBOL( U_TX( ADR( t2694 ) ) );
c2409 = CONS( t2693, c2409 );
t2695 = STRINGTOSYMBOL( U_TX( ADR( t2696 ) ) );
c2409 = CONS( t2695, c2409 );
t2697 = STRINGTOSYMBOL( U_TX( ADR( t2698 ) ) );
c2409 = CONS( t2697, c2409 );
t2699 = STRINGTOSYMBOL( U_TX( ADR( t2700 ) ) );
c2409 = CONS( t2699, c2409 );
t2701 = STRINGTOSYMBOL( U_TX( ADR( t2702 ) ) );
c2409 = CONS( t2701, c2409 );
t2703 = STRINGTOSYMBOL( U_TX( ADR( t2704 ) ) );
c2409 = CONS( t2703, c2409 );
t2705 = STRINGTOSYMBOL( U_TX( ADR( t2706 ) ) );
c2409 = CONS( t2705, c2409 );
t2707 = STRINGTOSYMBOL( U_TX( ADR( t2708 ) ) );
c2409 = CONS( t2707, c2409 );
t2709 = STRINGTOSYMBOL( U_TX( ADR( t2710 ) ) );
c2409 = CONS( t2709, c2409 );
t2711 = STRINGTOSYMBOL( U_TX( ADR( t2712 ) ) );
c2409 = CONS( t2711, c2409 );
t2713 = STRINGTOSYMBOL( U_TX( ADR( t2714 ) ) );
c2409 = CONS( t2713, c2409 );
t2715 = STRINGTOSYMBOL( U_TX( ADR( t2716 ) ) );
c2409 = CONS( t2715, c2409 );
t2717 = STRINGTOSYMBOL( U_TX( ADR( t2718 ) ) );
c2409 = CONS( t2717, c2409 );
t2719 = STRINGTOSYMBOL( U_TX( ADR( t2720 ) ) );
c2409 = CONS( t2719, c2409 );
t2721 = STRINGTOSYMBOL( U_TX( ADR( t2722 ) ) );
c2409 = CONS( t2721, c2409 );
t2723 = STRINGTOSYMBOL( U_TX( ADR( t2724 ) ) );
c2409 = CONS( t2723, c2409 );
t2725 = STRINGTOSYMBOL( U_TX( ADR( t2726 ) ) );
c2409 = CONS( t2725, c2409 );
t2727 = STRINGTOSYMBOL( U_TX( ADR( t2728 ) ) );
c2409 = CONS( t2727, c2409 );
t2729 = STRINGTOSYMBOL( U_TX( ADR( t2730 ) ) );
c2409 = CONS( t2729, c2409 );
t2731 = STRINGTOSYMBOL( U_TX( ADR( t2732 ) ) );
c2409 = CONS( t2731, c2409 );
t2733 = STRINGTOSYMBOL( U_TX( ADR( t2734 ) ) );
c2409 = CONS( t2733, c2409 );
t2735 = STRINGTOSYMBOL( U_TX( ADR( t2736 ) ) );
c2409 = CONS( t2735, c2409 );
t2737 = STRINGTOSYMBOL( U_TX( ADR( t2738 ) ) );
c2409 = CONS( t2737, c2409 );
t2739 = STRINGTOSYMBOL( U_TX( ADR( t2740 ) ) );
c2409 = CONS( t2739, c2409 );
t2741 = STRINGTOSYMBOL( U_TX( ADR( t2742 ) ) );
c2409 = CONS( t2741, c2409 );
t2743 = STRINGTOSYMBOL( U_TX( ADR( t2744 ) ) );
c2409 = CONS( t2743, c2409 );
t2745 = STRINGTOSYMBOL( U_TX( ADR( t2746 ) ) );
c2409 = CONS( t2745, c2409 );
t2747 = STRINGTOSYMBOL( U_TX( ADR( t2748 ) ) );
c2409 = CONS( t2747, c2409 );
t2749 = STRINGTOSYMBOL( U_TX( ADR( t2750 ) ) );
c2409 = CONS( t2749, c2409 );
t2751 = STRINGTOSYMBOL( U_TX( ADR( t2752 ) ) );
c2409 = CONS( t2751, c2409 );
t2753 = STRINGTOSYMBOL( U_TX( ADR( t2754 ) ) );
c2409 = CONS( t2753, c2409 );
t2755 = STRINGTOSYMBOL( U_TX( ADR( t2756 ) ) );
c2409 = CONS( t2755, c2409 );
t2757 = STRINGTOSYMBOL( U_TX( ADR( t2758 ) ) );
c2409 = CONS( t2757, c2409 );
t2759 = STRINGTOSYMBOL( U_TX( ADR( t2760 ) ) );
c2409 = CONS( t2759, c2409 );
t2761 = STRINGTOSYMBOL( U_TX( ADR( t2762 ) ) );
c2409 = CONS( t2761, c2409 );
t2763 = STRINGTOSYMBOL( U_TX( ADR( t2764 ) ) );
c2409 = CONS( t2763, c2409 );
t2765 = STRINGTOSYMBOL( U_TX( ADR( t2766 ) ) );
c2409 = CONS( t2765, c2409 );
t2767 = STRINGTOSYMBOL( U_TX( ADR( t2768 ) ) );
c2409 = CONS( t2767, c2409 );
t2769 = STRINGTOSYMBOL( U_TX( ADR( t2770 ) ) );
c2409 = CONS( t2769, c2409 );
t2771 = STRINGTOSYMBOL( U_TX( ADR( t2772 ) ) );
c2409 = CONS( t2771, c2409 );
t2773 = STRINGTOSYMBOL( U_TX( ADR( t2774 ) ) );
c2409 = CONS( t2773, c2409 );
t2775 = STRINGTOSYMBOL( U_TX( ADR( t2776 ) ) );
c2409 = CONS( t2775, c2409 );
t2777 = STRINGTOSYMBOL( U_TX( ADR( t2778 ) ) );
c2409 = CONS( t2777, c2409 );
t2779 = STRINGTOSYMBOL( U_TX( ADR( t2780 ) ) );
c2409 = CONS( t2779, c2409 );
t2781 = STRINGTOSYMBOL( U_TX( ADR( t2782 ) ) );
c2409 = CONS( t2781, c2409 );
t2783 = STRINGTOSYMBOL( U_TX( ADR( t2784 ) ) );
c2409 = CONS( t2783, c2409 );
t2785 = STRINGTOSYMBOL( U_TX( ADR( t2786 ) ) );
c2409 = CONS( t2785, c2409 );
t2787 = STRINGTOSYMBOL( U_TX( ADR( t2788 ) ) );
c2409 = CONS( t2787, c2409 );
t2789 = STRINGTOSYMBOL( U_TX( ADR( t2790 ) ) );
c2409 = CONS( t2789, c2409 );
t2791 = STRINGTOSYMBOL( U_TX( ADR( t2792 ) ) );
c2409 = CONS( t2791, c2409 );
t2793 = STRINGTOSYMBOL( U_TX( ADR( t2794 ) ) );
c2409 = CONS( t2793, c2409 );
t2795 = STRINGTOSYMBOL( U_TX( ADR( t2796 ) ) );
c2409 = CONS( t2795, c2409 );
t2797 = STRINGTOSYMBOL( U_TX( ADR( t2798 ) ) );
c2409 = CONS( t2797, c2409 );
t2799 = STRINGTOSYMBOL( U_TX( ADR( t2800 ) ) );
c2409 = CONS( t2799, c2409 );
CONSTANTEXP( ADR( c2409 ) );
c2408 = STRINGTOSYMBOL( U_TX( ADR( t2801 ) ) );
CONSTANTEXP( ADR( c2408 ) );
c2379 = STRINGTOSYMBOL( U_TX( ADR( t2803 ) ) );
CONSTANTEXP( ADR( c2379 ) );
c2312 = STRINGTOSYMBOL( U_TX( ADR( t2806 ) ) );
CONSTANTEXP( ADR( c2312 ) );
c2221 = EMPTYLIST;
X1 = _TSCP( 23570 );
X1 = CONS( _TSCP( 23570 ), X1 );
c2221 = CONS( X1, c2221 );
X1 = _TSCP( 8722 );
X1 = CONS( _TSCP( 8722 ), X1 );
c2221 = CONS( X1, c2221 );
X1 = _TSCP( 29202 );
X1 = CONS( _TSCP( 3346 ), X1 );
c2221 = CONS( X1, c2221 );
X1 = _TSCP( 26130 );
X1 = CONS( _TSCP( 3090 ), X1 );
c2221 = CONS( X1, c2221 );
X1 = _TSCP( 28178 );
X1 = CONS( _TSCP( 2578 ), X1 );
c2221 = CONS( X1, c2221 );
X1 = _TSCP( 28178 );
X1 = CONS( _TSCP( 2578 ), X1 );
c2221 = CONS( X1, c2221 );
X1 = _TSCP( 29714 );
X1 = CONS( _TSCP( 2322 ), X1 );
c2221 = CONS( X1, c2221 );
CONSTANTEXP( ADR( c2221 ) );
c2209 = STRINGTOSYMBOL( U_TX( ADR( t2808 ) ) );
CONSTANTEXP( ADR( c2209 ) );
c2200 = STRINGTOSYMBOL( U_TX( ADR( t2810 ) ) );
CONSTANTEXP( ADR( c2200 ) );
c2157 = EMPTYLIST;
t2811 = STRINGTOSYMBOL( U_TX( ADR( t2812 ) ) );
X1 = t2811;
t2813 = STRINGTOSYMBOL( U_TX( ADR( t2814 ) ) );
X1 = CONS( t2813, X1 );
c2157 = CONS( X1, c2157 );
X1 = t2813;
X1 = CONS( t2811, X1 );
c2157 = CONS( X1, c2157 );
t2815 = STRINGTOSYMBOL( U_TX( ADR( t2816 ) ) );
X1 = t2815;
t2817 = STRINGTOSYMBOL( U_TX( ADR( t2818 ) ) );
X1 = CONS( t2817, X1 );
c2157 = CONS( X1, c2157 );
X1 = t2817;
X1 = CONS( t2815, X1 );
c2157 = CONS( X1, c2157 );
t2819 = STRINGTOSYMBOL( U_TX( ADR( t2820 ) ) );
X1 = t2819;
t2821 = STRINGTOSYMBOL( U_TX( ADR( t2822 ) ) );
X1 = CONS( t2821, X1 );
c2157 = CONS( X1, c2157 );
X1 = t2821;
X1 = CONS( t2819, X1 );
c2157 = CONS( X1, c2157 );
t2823 = STRINGTOSYMBOL( U_TX( ADR( t2824 ) ) );
X1 = t2823;
t2825 = STRINGTOSYMBOL( U_TX( ADR( t2826 ) ) );
X1 = CONS( t2825, X1 );
c2157 = CONS( X1, c2157 );
X1 = t2825;
X1 = CONS( t2823, X1 );
c2157 = CONS( X1, c2157 );
CONSTANTEXP( ADR( c2157 ) );
c2098 = STRINGTOSYMBOL( U_TX( ADR( t2830 ) ) );
CONSTANTEXP( ADR( c2098 ) );
c2087 = STRINGTOSYMBOL( U_TX( ADR( t2831 ) ) );
CONSTANTEXP( ADR( c2087 ) );
c2066 = STRINGTOSYMBOL( U_TX( ADR( t2832 ) ) );
CONSTANTEXP( ADR( c2066 ) );
c2018 = EMPTYLIST;
t2833 = STRINGTOSYMBOL( U_TX( ADR( t2834 ) ) );
c2018 = CONS( t2833, c2018 );
c2018 = CONS( c2098, c2018 );
c2018 = CONS( c2066, c2018 );
CONSTANTEXP( ADR( c2018 ) );
c2010 = STRINGTOSYMBOL( U_TX( ADR( t2835 ) ) );
CONSTANTEXP( ADR( c2010 ) );
c1798 = STRINGTOSYMBOL( U_TX( ADR( t2845 ) ) );
CONSTANTEXP( ADR( c1798 ) );
c1709 = EMPTYLIST;
c1709 = CONS( t2852, c1709 );
CONSTANTEXP( ADR( c1709 ) );
c1635 = STRINGTOSYMBOL( U_TX( ADR( t2861 ) ) );
CONSTANTEXP( ADR( c1635 ) );
c1631 = STRINGTOSYMBOL( U_TX( ADR( t2862 ) ) );
CONSTANTEXP( ADR( c1631 ) );
c1627 = STRINGTOSYMBOL( U_TX( ADR( t2863 ) ) );
CONSTANTEXP( ADR( c1627 ) );
c1620 = STRINGTOSYMBOL( U_TX( ADR( t2864 ) ) );
CONSTANTEXP( ADR( c1620 ) );
c1554 = STRINGTOSYMBOL( U_TX( ADR( t2865 ) ) );
CONSTANTEXP( ADR( c1554 ) );
c1518 = EMPTYLIST;
c1518 = CONS( t2603, c1518 );
c1518 = CONS( t2605, c1518 );
c1518 = CONS( t2607, c1518 );
c1518 = CONS( t2609, c1518 );
c1518 = CONS( t2611, c1518 );
c1518 = CONS( t2613, c1518 );
c1518 = CONS( t2615, c1518 );
c1518 = CONS( t2617, c1518 );
c1518 = CONS( t2619, c1518 );
c1518 = CONS( t2621, c1518 );
c1518 = CONS( t2623, c1518 );
c1518 = CONS( t2625, c1518 );
c1518 = CONS( t2627, c1518 );
c1518 = CONS( t2629, c1518 );
c1518 = CONS( t2631, c1518 );
c1518 = CONS( t2633, c1518 );
c1518 = CONS( t2635, c1518 );
c1518 = CONS( t2637, c1518 );
c1518 = CONS( t2639, c1518 );
c1518 = CONS( t2641, c1518 );
c1518 = CONS( t2643, c1518 );
c1518 = CONS( t2645, c1518 );
c1518 = CONS( t2647, c1518 );
c1518 = CONS( t2649, c1518 );
c1518 = CONS( t2651, c1518 );
c1518 = CONS( t2653, c1518 );
c1518 = CONS( t2655, c1518 );
c1518 = CONS( t2657, c1518 );
c1518 = CONS( t2659, c1518 );
c1518 = CONS( t2661, c1518 );
c1518 = CONS( t2663, c1518 );
c1518 = CONS( t2665, c1518 );
c1518 = CONS( t2667, c1518 );
c1518 = CONS( t2669, c1518 );
c1518 = CONS( t2671, c1518 );
c1518 = CONS( t2673, c1518 );
c1518 = CONS( t2675, c1518 );
c1518 = CONS( t2677, c1518 );
c1518 = CONS( t2679, c1518 );
c1518 = CONS( t2681, c1518 );
c1518 = CONS( t2683, c1518 );
c1518 = CONS( t2685, c1518 );
c1518 = CONS( t2687, c1518 );
c1518 = CONS( t2689, c1518 );
c1518 = CONS( t2691, c1518 );
c1518 = CONS( t2693, c1518 );
c1518 = CONS( t2695, c1518 );
c1518 = CONS( t2697, c1518 );
c1518 = CONS( t2699, c1518 );
c1518 = CONS( t2701, c1518 );
c1518 = CONS( t2703, c1518 );
c1518 = CONS( t2705, c1518 );
c1518 = CONS( t2707, c1518 );
c1518 = CONS( t2709, c1518 );
c1518 = CONS( t2711, c1518 );
c1518 = CONS( t2713, c1518 );
c1518 = CONS( t2715, c1518 );
c1518 = CONS( t2717, c1518 );
c1518 = CONS( t2719, c1518 );
c1518 = CONS( t2721, c1518 );
c1518 = CONS( t2723, c1518 );
c1518 = CONS( t2725, c1518 );
c1518 = CONS( t2727, c1518 );
c1518 = CONS( t2729, c1518 );
c1518 = CONS( t2731, c1518 );
c1518 = CONS( t2733, c1518 );
c1518 = CONS( t2735, c1518 );
c1518 = CONS( t2737, c1518 );
c1518 = CONS( t2739, c1518 );
c1518 = CONS( t2741, c1518 );
c1518 = CONS( t2743, c1518 );
c1518 = CONS( t2745, c1518 );
c1518 = CONS( t2747, c1518 );
c1518 = CONS( t2749, c1518 );
c1518 = CONS( t2751, c1518 );
c1518 = CONS( t2753, c1518 );
c1518 = CONS( t2755, c1518 );
c1518 = CONS( t2757, c1518 );
c1518 = CONS( t2759, c1518 );
c1518 = CONS( t2761, c1518 );
c1518 = CONS( t2763, c1518 );
c1518 = CONS( t2765, c1518 );
c1518 = CONS( t2767, c1518 );
c1518 = CONS( t2769, c1518 );
c1518 = CONS( t2771, c1518 );
c1518 = CONS( t2773, c1518 );
c1518 = CONS( t2775, c1518 );
c1518 = CONS( t2777, c1518 );
c1518 = CONS( t2779, c1518 );
c1518 = CONS( t2781, c1518 );
c1518 = CONS( t2783, c1518 );
c1518 = CONS( t2785, c1518 );
c1518 = CONS( t2787, c1518 );
c1518 = CONS( t2789, c1518 );
c1518 = CONS( t2791, c1518 );
c1518 = CONS( t2793, c1518 );
c1518 = CONS( t2795, c1518 );
c1518 = CONS( t2797, c1518 );
c1518 = CONS( t2799, c1518 );
CONSTANTEXP( ADR( c1518 ) );
c1407 = STRINGTOSYMBOL( U_TX( ADR( t2866 ) ) );
CONSTANTEXP( ADR( c1407 ) );
c1354 = STRINGTOSYMBOL( U_TX( ADR( t2867 ) ) );
CONSTANTEXP( ADR( c1354 ) );
c1213 = EMPTYLIST;
t2868 = STRINGTOSYMBOL( U_TX( ADR( t2869 ) ) );
c1213 = CONS( t2868, c1213 );
c1213 = CONS( c1627, c1213 );
c1213 = CONS( c1620, c1213 );
CONSTANTEXP( ADR( c1213 ) );
c1207 = STRINGTOSYMBOL( U_TX( ADR( t2870 ) ) );
CONSTANTEXP( ADR( c1207 ) );
c1185 = STRINGTOSYMBOL( U_TX( ADR( t2871 ) ) );
CONSTANTEXP( ADR( c1185 ) );
c1143 = STRINGTOSYMBOL( U_TX( ADR( t2872 ) ) );
CONSTANTEXP( ADR( c1143 ) );
c1132 = STRINGTOSYMBOL( U_TX( ADR( t2873 ) ) );
CONSTANTEXP( ADR( c1132 ) );
c1111 = STRINGTOSYMBOL( U_TX( ADR( t2874 ) ) );
CONSTANTEXP( ADR( c1111 ) );
c1100 = STRINGTOSYMBOL( U_TX( ADR( t2875 ) ) );
CONSTANTEXP( ADR( c1100 ) );
c1016 = STRINGTOSYMBOL( U_TX( ADR( t2880 ) ) );
CONSTANTEXP( ADR( c1016 ) );
}
DEFTSCP( lap_global_2dlap_2dcode_v );
DEFSTRING( t2881, "GLOBAL-LAP-CODE", 15 );
DEFTSCP( lap_emit_2dglobal_2dlap_v );
DEFSTRING( t2882, "EMIT-GLOBAL-LAP", 15 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP lap_emit_2dglobal_2dlap( c1003 )
TSCP c1003;
{
PUSHSTACKTRACE( U_TX( ADR( t2882 ) ) );
POPSTACKTRACE( SET( lap_global_2dlap_2dcode_v,
sc_cons( c1003, lap_global_2dlap_2dcode_v ) ) );
}
DEFTSCP( lap_lap_2dcode_v );
DEFSTRING( t2884, "LAP-CODE", 8 );
DEFTSCP( lap_emit_2dlap_v );
DEFSTRING( t2885, "EMIT-LAP", 8 );
EXTERNTSCPP( lap_peep_2dlap );
EXTERNTSCP( lap_peep_2dlap_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt2_min_2dtwo );
EXTERNTSCP( scrt2_min_2dtwo_v );
EXTERNTSCPP( scrt2_negative_3f );
EXTERNTSCP( scrt2_negative_3f_v );
EXTERNTSCPP( scrt1_list_2dref );
EXTERNTSCP( scrt1_list_2dref_v );
TSCP lap_emit_2dlap( c1007 )
TSCP c1007;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2885 ) ) );
X1 = lap_lap_2dcode_v;
X2 = lap_peep_2dlap( c1007 );
X3 = SYMBOL_VALUE( log_3f_v );
X3 = UNKNOWNCALL( X3, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X3 ) )( c1016,
PROCEDURE_CLOSURE( X3 ) ) )
) goto L2889;
X3 = sc_cons( c1007, X1 );
if ( TRUE( scrt1_equal_3f( X2, X3 ) ) ) goto L2891;
X3 = SYMBOL_VALUE( sc_2dicode_v );
scrt6_format( X3, CONS( c1020, EMPTYLIST ) );
X5 = scrt1_length( X1 );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2896;
X4 = _TSCP( IDIFFERENCE( INT( X5 ),
INT( _TSCP( 4 ) ) ) );
goto L2897;
L2896:
X4 = scrt2__2d_2dtwo( X5, _TSCP( 4 ) );
L2897:
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X4 ) ),
3 ) ) goto L2899;
if ( GTE( INT( _TSCP( 4 ) ), INT( X4 ) ) ) goto L2901;
X3 = _TSCP( 4 );
goto L2900;
L2901:
X3 = X4;
goto L2900;
L2899:
X3 = scrt2_min_2dtwo( _TSCP( 4 ), X4 );
L2900:
if ( NEQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L2905;
if ( GTE( INT( X3 ), 0 ) ) goto L2909;
goto L2912;
L2905:
if ( TRUE( scrt2_negative_3f( X3 ) ) ) goto L2912;
L2909:
X4 = SYMBOL_VALUE( sc_2dicode_v );
X5 = CONS( scrt1_list_2dref( X1, X3 ), EMPTYLIST );
scrt6_format( X4, CONS( c1032, X5 ) );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2914;
X3 = _TSCP( IDIFFERENCE( INT( X3 ),
INT( _TSCP( 4 ) ) ) );
goto L2900;
L2914:
X3 = scrt2__2d_2dtwo( X3, _TSCP( 4 ) );
goto L2900;
L2912:
X3 = SYMBOL_VALUE( sc_2dicode_v );
X4 = CONS( c1007, EMPTYLIST );
scrt6_format( X3, CONS( c1053, X4 ) );
X5 = scrt1_length( X2 );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2918;
X4 = _TSCP( IDIFFERENCE( INT( X5 ),
INT( _TSCP( 4 ) ) ) );
goto L2919;
L2918:
X4 = scrt2__2d_2dtwo( X5, _TSCP( 4 ) );
L2919:
if ( BITAND( BITOR( INT( _TSCP( 8 ) ), INT( X4 ) ),
3 ) ) goto L2921;
if ( GTE( INT( _TSCP( 8 ) ), INT( X4 ) ) ) goto L2923;
X3 = _TSCP( 8 );
goto L2922;
L2923:
X3 = X4;
goto L2922;
L2921:
X3 = scrt2_min_2dtwo( _TSCP( 8 ), X4 );
L2922:
if ( NEQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L2927;
if ( GTE( INT( X3 ), 0 ) ) goto L2931;
goto L2934;
L2927:
if ( TRUE( scrt2_negative_3f( X3 ) ) ) goto L2934;
L2931:
X4 = SYMBOL_VALUE( sc_2dicode_v );
X5 = CONS( scrt1_list_2dref( X2, X3 ), EMPTYLIST );
scrt6_format( X4, CONS( c1032, X5 ) );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2936;
X3 = _TSCP( IDIFFERENCE( INT( X3 ),
INT( _TSCP( 4 ) ) ) );
goto L2922;
L2936:
X3 = scrt2__2d_2dtwo( X3, _TSCP( 4 ) );
goto L2922;
L2934:
X3 = SYMBOL_VALUE( sc_2dicode_v );
POPSTACKTRACE( scrt6_format( X3,
CONS( c1084, EMPTYLIST ) ) );
L2891:
POPSTACKTRACE( FALSEVALUE );
L2889:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( lap_peep_2dlap_v );
DEFSTRING( t2938, "PEEP-LAP", 8 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1_cadar );
EXTERNTSCP( scrt1_cadar_v );
EXTERNTSCPP( lap_resolve_2dlabel );
EXTERNTSCP( lap_resolve_2dlabel_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
EXTERNTSCPP( lap_bump_2dlabel_2dgotos );
EXTERNTSCP( lap_bump_2dlabel_2dgotos_v );
EXTERNTSCPP( scrt1_caadr );
EXTERNTSCP( scrt1_caadr_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( scrt1_cadadr );
EXTERNTSCP( scrt1_cadadr_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
TSCP lap_peep_2dlap( c1087 )
TSCP c1087;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2938 ) ) );
c1087 = CONS( c1087, EMPTYLIST );
if ( NEQ( UNSIGNED( lap_lap_2dcode_v ),
UNSIGNED( EMPTYLIST ) ) ) goto L2940;
lap_lap_2dcode_v = sc_cons( PAIR_CAR( c1087 ),
lap_lap_2dcode_v );
goto L3091;
L2940:
X2 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2945;
scrt1__24__car_2derror( X2 );
L2945:
X1 = PAIR_CAR( X2 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1100 ) ) ) goto L2942;
X2 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2951;
scrt1__24__car_2derror( X2 );
L2951:
X3 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2954;
scrt1__24__car_2derror( X3 );
L2954:
X1 = PAIR_CAR( X3 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1100 ) ) ) goto L2947;
X2 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2958;
scrt1__24__cdr_2derror( X2 );
L2958:
X3 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2961;
scrt1__24__car_2derror( X3 );
L2961:
X1 = PAIR_CAR( X3 );
X3 = scrt1_cadar( lap_lap_2dcode_v );
X2 = SYMBOL_VALUE( set_2did_2dalias_21_v );
X2 = UNKNOWNCALL( X2, 2 );
VIA( PROCEDURE_CODE( X2 ) )( X1,
X3, PROCEDURE_CLOSURE( X2 ) );
X3 = lap_resolve_2dlabel( X1 );
X7 = lap_resolve_2dlabel( X1 );
X6 = SYMBOL_VALUE( id_2dgotos_v );
X6 = UNKNOWNCALL( X6, 1 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( X7,
PROCEDURE_CLOSURE( X6 ) );
X7 = SYMBOL_VALUE( id_2dgotos_v );
X7 = UNKNOWNCALL( X7, 1 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( X1,
PROCEDURE_CLOSURE( X7 ) );
if ( BITAND( BITOR( INT( X5 ), INT( X6 ) ),
3 ) ) goto L2965;
X4 = _TSCP( IPLUS( INT( X5 ), INT( X6 ) ) );
goto L2966;
L2965:
X4 = scrt2__2b_2dtwo( X5, X6 );
L2966:
X2 = SYMBOL_VALUE( set_2did_2dgotos_21_v );
X2 = UNKNOWNCALL( X2, 2 );
VIA( PROCEDURE_CODE( X2 ) )( X3,
X4, PROCEDURE_CLOSURE( X2 ) );
X3 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2968;
scrt1__24__car_2derror( X3 );
L2968:
X2 = PAIR_CAR( X3 );
SETGEN( PAIR_CAR( c1087 ), X2 );
X2 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2971;
scrt1__24__cdr_2derror( X2 );
L2971:
lap_lap_2dcode_v = PAIR_CDR( X2 );
lap_emit_2dlap( PAIR_CAR( c1087 ) );
goto L3091;
L2947:
X2 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2976;
scrt1__24__car_2derror( X2 );
L2976:
X1 = PAIR_CAR( X2 );
X6 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2980;
scrt1__24__cdr_2derror( X6 );
L2980:
X7 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2983;
scrt1__24__car_2derror( X7 );
L2983:
X5 = PAIR_CAR( X7 );
X4 = sc_cons( X5, EMPTYLIST );
X3 = sc_cons( c1185, X4 );
X2 = X3;
if ( FALSE( scrt1_equal_3f( X1, X2 ) ) ) goto L2973;
X2 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2988;
scrt1__24__car_2derror( X2 );
L2988:
X1 = PAIR_CAR( X2 );
lap_bump_2dlabel_2dgotos( X1, _TSCP( -4 ) );
X1 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2991;
scrt1__24__cdr_2derror( X1 );
L2991:
lap_lap_2dcode_v = PAIR_CDR( X1 );
lap_emit_2dlap( PAIR_CAR( c1087 ) );
goto L3091;
L2973:
X3 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2995;
scrt1__24__car_2derror( X3 );
L2995:
X4 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2998;
scrt1__24__car_2derror( X4 );
L2998:
X2 = PAIR_CAR( X4 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1185 ) ) );
if ( FALSE( X1 ) ) goto L3064;
X2 = scrt1_caadr( lap_lap_2dcode_v );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1354 ) ) ) goto L3064;
X5 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3011;
scrt1__24__cdr_2derror( X5 );
L3011:
X6 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3014;
scrt1__24__car_2derror( X6 );
L3014:
X4 = PAIR_CAR( X6 );
X3 = scrt1_caddr( X4 );
X2 = lap_resolve_2dlabel( X3 );
X5 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3018;
scrt1__24__cdr_2derror( X5 );
L3018:
X6 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3021;
scrt1__24__car_2derror( X6 );
L3021:
X4 = PAIR_CAR( X6 );
X3 = lap_resolve_2dlabel( X4 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) ) goto L3064;
X2 = scrt1_cadadr( lap_lap_2dcode_v );
X2 = CONS( X2, EMPTYLIST );
if ( NEQ( TSCPTAG( PAIR_CAR( X2 ) ), PAIRTAG ) ) goto L3024;
X4 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3027;
scrt1__24__car_2derror( X4 );
L3027:
X3 = PAIR_CAR( X4 );
goto L3025;
L3024:
X3 = FALSEVALUE;
L3025:
X5 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3032;
scrt1__24__cdr_2derror( X5 );
L3032:
X6 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3035;
scrt1__24__car_2derror( X6 );
L3035:
X4 = PAIR_CAR( X6 );
lap_bump_2dlabel_2dgotos( X4, _TSCP( -4 ) );
X5 = BOOLEAN( EQ( TSCPTAG( PAIR_CAR( X2 ) ),
PAIRTAG ) );
if ( FALSE( X5 ) ) goto L3053;
X7 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3044;
scrt1__24__car_2derror( X7 );
L3044:
X6 = PAIR_CAR( X7 );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1407 ) ) ) goto L3053;
X6 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3048;
scrt1__24__cdr_2derror( X6 );
L3048:
X7 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3051;
scrt1__24__car_2derror( X7 );
L3051:
X4 = PAIR_CAR( X7 );
goto L3054;
L3053:
X6 = CONS( EMPTYLIST, EMPTYLIST );
X4 = scrt1_cons_2a( c1407,
CONS( PAIR_CAR( X2 ), X6 ) );
L3054:
SETGEN( PAIR_CAR( X2 ), X4 );
X9 = scrt1_cadar( lap_lap_2dcode_v );
X8 = sc_cons( X9, EMPTYLIST );
X7 = sc_cons( PAIR_CAR( X2 ), X8 );
X6 = sc_cons( c1354, X7 );
X5 = X6;
X7 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3058;
scrt1__24__cdr_2derror( X7 );
L3058:
X8 = PAIR_CDR( X7 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3061;
scrt1__24__cdr_2derror( X8 );
L3061:
X6 = PAIR_CDR( X8 );
X4 = sc_cons( X5, X6 );
lap_lap_2dcode_v = sc_cons( PAIR_CAR( c1087 ), X4 );
goto L3091;
L3064:
lap_lap_2dcode_v = sc_cons( PAIR_CAR( c1087 ),
lap_lap_2dcode_v );
goto L3091;
L2942:
X3 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3067;
scrt1__24__car_2derror( X3 );
L3067:
X2 = PAIR_CAR( X3 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1111 ) ) );
if ( FALSE( X1 ) ) goto L3090;
X3 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3078;
scrt1__24__cdr_2derror( X3 );
L3078:
X4 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3081;
scrt1__24__car_2derror( X4 );
L3081:
X2 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1132 ) ) ) goto L3089;
X2 = scrt1_caddr( PAIR_CAR( c1087 ) );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3089;
X2 = scrt1_caddr( PAIR_CAR( c1087 ) );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1143 ) ) ) goto L3091;
L3089:
X2 = scrt1_caddr( PAIR_CAR( c1087 ) );
if ( EQ( UNSIGNED( X2 ), UNSIGNED( c1132 ) ) ) goto L3091;
X3 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3098;
scrt1__24__cdr_2derror( X3 );
L3098:
X4 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3101;
scrt1__24__car_2derror( X4 );
L3101:
X2 = PAIR_CAR( X4 );
X3 = scrt1_caddr( PAIR_CAR( c1087 ) );
if ( TRUE( scrt1_equal_3f( X2, X3 ) ) ) goto L3091;
L3090:
X2 = lap_lap_2dcode_v;
if ( FALSE( X2 ) ) goto L3135;
X5 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3111;
scrt1__24__car_2derror( X5 );
L3111:
X6 = PAIR_CAR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3114;
scrt1__24__car_2derror( X6 );
L3114:
X4 = PAIR_CAR( X6 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1185 ) ) ) goto L3107;
X3 = TRUEVALUE;
goto L3117;
L3107:
X5 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3120;
scrt1__24__car_2derror( X5 );
L3120:
X6 = PAIR_CAR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3123;
scrt1__24__car_2derror( X6 );
L3123:
X4 = PAIR_CAR( X6 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1111 ) ) ) goto L3116;
X4 = scrt1_cadar( lap_lap_2dcode_v );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1207 ) ) );
goto L3117;
L3116:
X3 = FALSEVALUE;
L3117:
if ( FALSE( X3 ) ) goto L3135;
X5 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3132;
scrt1__24__car_2derror( X5 );
L3132:
X4 = PAIR_CAR( X5 );
if ( FALSE( scrt1_memq( X4, c1213 ) ) ) goto L3091;
L3135:
X4 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3137;
scrt1__24__car_2derror( X4 );
L3137:
X3 = PAIR_CAR( X4 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1185 ) ) );
if ( FALSE( X2 ) ) goto L3191;
X4 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3148;
scrt1__24__car_2derror( X4 );
L3148:
X5 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3151;
scrt1__24__car_2derror( X5 );
L3151:
X3 = PAIR_CAR( X5 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1100 ) ) ) goto L3191;
X5 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3157;
scrt1__24__cdr_2derror( X5 );
L3157:
X6 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3160;
scrt1__24__car_2derror( X6 );
L3160:
X4 = PAIR_CAR( X6 );
X3 = lap_resolve_2dlabel( X4 );
X4 = scrt1_cadar( lap_lap_2dcode_v );
if ( EQ( UNSIGNED( X3 ), UNSIGNED( X4 ) ) ) goto L3191;
X4 = scrt1_cadar( lap_lap_2dcode_v );
X7 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3165;
scrt1__24__cdr_2derror( X7 );
L3165:
X8 = PAIR_CDR( X7 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3168;
scrt1__24__car_2derror( X8 );
L3168:
X6 = PAIR_CAR( X8 );
X5 = lap_resolve_2dlabel( X6 );
X3 = SYMBOL_VALUE( set_2did_2dalias_21_v );
X3 = UNKNOWNCALL( X3, 2 );
VIA( PROCEDURE_CODE( X3 ) )( X4,
X5, PROCEDURE_CLOSURE( X3 ) );
X6 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3172;
scrt1__24__cdr_2derror( X6 );
L3172:
X7 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3175;
scrt1__24__car_2derror( X7 );
L3175:
X5 = PAIR_CAR( X7 );
X4 = lap_resolve_2dlabel( X5 );
X8 = scrt1_cadar( lap_lap_2dcode_v );
X7 = SYMBOL_VALUE( id_2dgotos_v );
X7 = UNKNOWNCALL( X7, 1 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( X8,
PROCEDURE_CLOSURE( X7 ) );
X11 = PAIR_CAR( c1087 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L3179;
scrt1__24__cdr_2derror( X11 );
L3179:
X12 = PAIR_CDR( X11 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3182;
scrt1__24__car_2derror( X12 );
L3182:
X10 = PAIR_CAR( X12 );
X9 = lap_resolve_2dlabel( X10 );
X8 = SYMBOL_VALUE( id_2dgotos_v );
X8 = UNKNOWNCALL( X8, 1 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( X9,
PROCEDURE_CLOSURE( X8 ) );
if ( BITAND( BITOR( INT( X7 ), INT( X6 ) ),
3 ) ) goto L3185;
X5 = _TSCP( IPLUS( INT( X7 ), INT( X6 ) ) );
goto L3186;
L3185:
X5 = scrt2__2b_2dtwo( X7, X6 );
L3186:
X3 = SYMBOL_VALUE( set_2did_2dgotos_21_v );
X3 = UNKNOWNCALL( X3, 2 );
VIA( PROCEDURE_CODE( X3 ) )( X4,
X5, PROCEDURE_CLOSURE( X3 ) );
X3 = lap_lap_2dcode_v;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3188;
scrt1__24__cdr_2derror( X3 );
L3188:
lap_lap_2dcode_v = PAIR_CDR( X3 );
lap_emit_2dlap( PAIR_CAR( c1087 ) );
goto L3091;
L3191:
lap_bump_2dlabel_2dgotos( PAIR_CAR( c1087 ), _TSCP( 4 ) );
lap_lap_2dcode_v = sc_cons( PAIR_CAR( c1087 ),
lap_lap_2dcode_v );
L3091:
POPSTACKTRACE( lap_lap_2dcode_v );
}
DEFTSCP( lap_bump_2dlabel_2dgotos_v );
DEFSTRING( t3193, "BUMP-LABEL-GOTOS", 16 );
TSCP lap_bump_2dlabel_2dgotos( l1478, i1479 )
TSCP l1478, i1479;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3193 ) ) );
if ( EQ( TSCPTAG( l1478 ), PAIRTAG ) ) goto L3196;
scrt1__24__car_2derror( l1478 );
L3196:
X2 = PAIR_CAR( l1478 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1354 ) ) ) goto L3199;
X1 = scrt1_caddr( l1478 );
goto L3202;
L3199:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1185 ) ) ) goto L3201;
X3 = PAIR_CDR( l1478 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3205;
scrt1__24__car_2derror( X3 );
L3205:
X1 = PAIR_CAR( X3 );
goto L3202;
L3201:
X1 = FALSEVALUE;
L3202:
X1 = CONS( X1, EMPTYLIST );
if ( FALSE( PAIR_CAR( X1 ) ) ) goto L3208;
X2 = lap_resolve_2dlabel( PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X2 );
X5 = SYMBOL_VALUE( id_2dgotos_v );
X5 = UNKNOWNCALL( X5, 1 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( PAIR_CAR( X1 ),
PROCEDURE_CLOSURE( X5 ) );
if ( BITAND( BITOR( INT( X4 ), INT( i1479 ) ),
3 ) ) goto L3212;
X3 = _TSCP( IPLUS( INT( X4 ), INT( i1479 ) ) );
goto L3213;
L3212:
X3 = scrt2__2b_2dtwo( X4, i1479 );
L3213:
X2 = SYMBOL_VALUE( set_2did_2dgotos_21_v );
X2 = UNKNOWNCALL( X2, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( PAIR_CAR( X1 ),
X3,
PROCEDURE_CLOSURE( X2 ) ) );
L3208:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( lap_save_2dcurrent_2dlap_v );
DEFSTRING( t3214, "SAVE-CURRENT-LAP", 16 );
EXTERNTSCP( lap_lap_2dtemps_2dused_v );
EXTERNTSCP( lap_lap_2dtemps_2dfree_v );
EXTERNTSCP( lap_lap_2dmax_2ddisplay_v );
TSCP lap_save_2dcurrent_2dlap( l1513 )
TSCP l1513;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3214 ) ) );
X5 = sc_cons( lap_lap_2dmax_2ddisplay_v, EMPTYLIST );
X4 = sc_cons( lap_lap_2dtemps_2dfree_v, X5 );
X3 = sc_cons( lap_lap_2dtemps_2dused_v, X4 );
X2 = sc_cons( lap_lap_2dcode_v, X3 );
X1 = X2;
if ( FALSE( l1513 ) ) goto L3218;
lap_lap_2dcode_v = scrt1_list_2dref( l1513, _TSCP( 0 ) );
lap_lap_2dtemps_2dused_v = scrt1_list_2dref( l1513, _TSCP( 4 ) );
lap_lap_2dtemps_2dfree_v = scrt1_list_2dref( l1513, _TSCP( 8 ) );
lap_lap_2dmax_2ddisplay_v = scrt1_list_2dref( l1513,
_TSCP( 12 ) );
goto L3219;
L3218:
lap_lap_2dcode_v = EMPTYLIST;
lap_lap_2dtemps_2dused_v = EMPTYLIST;
lap_lap_2dtemps_2dfree_v = c1518;
lap_lap_2dmax_2ddisplay_v = SYMBOL_VALUE( free_2ddisplay_v );
L3219:
POPSTACKTRACE( X1 );
}
DEFTSCP( lap_lap_2dtemps_2dused_v );
DEFSTRING( t3222, "LAP-TEMPS-USED", 14 );
DEFTSCP( lap_lap_2dtemps_2dfree_v );
DEFSTRING( t3223, "LAP-TEMPS-FREE", 14 );
DEFTSCP( lap_lap_2dmax_2ddisplay_v );
DEFSTRING( t3224, "LAP-MAX-DISPLAY", 15 );
DEFTSCP( lap_use_2dlap_2dtemp_v );
DEFSTRING( t3225, "USE-LAP-TEMP", 12 );
TSCP lap_use_2dlap_2dtemp( )
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3225 ) ) );
X2 = lap_lap_2dtemps_2dfree_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3228;
scrt1__24__car_2derror( X2 );
L3228:
X1 = PAIR_CAR( X2 );
if ( TRUE( scrt1_memq( X1, lap_lap_2dtemps_2dused_v ) )
) goto L3231;
lap_lap_2dtemps_2dused_v = sc_cons( X1,
lap_lap_2dtemps_2dused_v );
L3231:
X2 = lap_lap_2dtemps_2dfree_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3234;
scrt1__24__cdr_2derror( X2 );
L3234:
lap_lap_2dtemps_2dfree_v = PAIR_CDR( X2 );
POPSTACKTRACE( X1 );
}
DEFTSCP( lap_drop_2dlap_2dtemp_v );
DEFSTRING( t3236, "DROP-LAP-TEMP", 13 );
TSCP lap_drop_2dlap_2dtemp( t1540 )
TSCP t1540;
{
PUSHSTACKTRACE( U_TX( ADR( t3236 ) ) );
POPSTACKTRACE( SET( lap_lap_2dtemps_2dfree_v,
sc_cons( t1540, lap_lap_2dtemps_2dfree_v ) ) );
}
DEFTSCP( lap_save_2dlap_2dtemps_v );
DEFSTRING( t3238, "SAVE-LAP-TEMPS", 14 );
TSCP lap_save_2dlap_2dtemps( )
{
PUSHSTACKTRACE( U_TX( ADR( t3238 ) ) );
POPSTACKTRACE( lap_lap_2dtemps_2dfree_v );
}
DEFTSCP( lap_restore_2dlap_2dtemps_v );
DEFSTRING( t3240, "RESTORE-LAP-TEMPS", 17 );
TSCP lap_restore_2dlap_2dtemps( s1545 )
TSCP s1545;
{
PUSHSTACKTRACE( U_TX( ADR( t3240 ) ) );
POPSTACKTRACE( SET( lap_lap_2dtemps_2dfree_v, s1545 ) );
}
DEFTSCP( lap_done_2dlap_2dlap_v );
DEFSTRING( t3242, "DONE-LAP-LAP", 12 );
DEFTSCP( lap_done_2dlap_v );
DEFSTRING( t3243, "DONE-LAP", 8 );
EXTERNTSCPP( lap_done_2dlap );
EXTERNTSCP( lap_done_2dlap_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
EXTERNTSCPP( lap_pplap );
EXTERNTSCP( lap_pplap_v );
EXTERNTSCPP( scrt1_cadddr );
EXTERNTSCP( scrt1_cadddr_v );
TSCP lap_done_2dlap( l1549 )
TSCP l1549;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3243 ) ) );
if ( FALSE( lap_global_2dlap_2dcode_v ) ) goto L3245;
X5 = sc_cons( EMPTYLIST, EMPTYLIST );
X4 = sc_cons( EMPTYLIST, X5 );
X3 = sc_cons( EMPTYLIST, X4 );
X2 = sc_cons( lap_global_2dlap_2dcode_v, X3 );
X1 = X2;
lap_global_2dlap_2dcode_v = EMPTYLIST;
lap_done_2dlap( X1 );
L3245:
X1 = SYMBOL_VALUE( log_3f_v );
X1 = UNKNOWNCALL( X1, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( c1554,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L3249;
X1 = SYMBOL_VALUE( sc_2dicode_v );
scrt6_format( X1, CONS( c1020, EMPTYLIST ) );
if ( EQ( TSCPTAG( l1549 ), PAIRTAG ) ) goto L3253;
scrt1__24__car_2derror( l1549 );
L3253:
X3 = PAIR_CAR( l1549 );
X2 = scrt1_reverse( X3 );
X3 = SYMBOL_VALUE( sc_2dicode_v );
X1 = SYMBOL_VALUE( pretty_2dprint_2d_24tree_v );
X1 = UNKNOWNCALL( X1, 2 );
VIA( PROCEDURE_CODE( X1 ) )( X2,
X3, PROCEDURE_CLOSURE( X1 ) );
X1 = SYMBOL_VALUE( sc_2dicode_v );
scrt6_format( X1, CONS( c1084, EMPTYLIST ) );
L3249:
lap_done_2dlap_2dlap_v = l1549;
if ( EQ( TSCPTAG( l1549 ), PAIRTAG ) ) goto L3256;
scrt1__24__car_2derror( l1549 );
L3256:
X2 = PAIR_CAR( l1549 );
X1 = scrt1_reverse( X2 );
X3 = PAIR_CDR( l1549 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3260;
scrt1__24__car_2derror( X3 );
L3260:
X2 = PAIR_CAR( X3 );
X3 = scrt1_cadddr( l1549 );
X4 = SYMBOL_VALUE( sc_2dicode_v );
POPSTACKTRACE( lap_pplap( X1, X2, X3, X4 ) );
}
DEFTSCP( lap_resolve_2dlabel_v );
DEFSTRING( t3262, "RESOLVE-LABEL", 13 );
TSCP lap_resolve_2dlabel( l1577 )
TSCP l1577;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3262 ) ) );
L3263:
X2 = SYMBOL_VALUE( id_2dalias_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( l1577,
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L3265;
l1577 = X1;
goto L3263;
L3265:
POPSTACKTRACE( l1577 );
}
DEFTSCP( lap_pplap_v );
DEFSTRING( t3267, "PPLAP", 5 );
EXTERNTSCP( sc_emptystring );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
EXTERNTSCP( lap_pplap_2dtos_v );
EXTERNTSCPP( scrt6_display );
EXTERNTSCP( scrt6_display_v );
EXTERNTSCPP( lap_pplap_2dcall );
EXTERNTSCP( lap_pplap_2dcall_v );
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( lap_pplap_2dcomma_2dlist );
EXTERNTSCP( lap_pplap_2dcomma_2dlist_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt6_write_2dwidth );
EXTERNTSCP( scrt6_write_2dwidth_v );
EXTERNTSCPP( scrt6_write_2dcount );
EXTERNTSCP( scrt6_write_2dcount_v );
EXTERNTSCPP( lap_subst_2dtos );
EXTERNTSCP( lap_subst_2dtos_v );
TSCP lap_pplap( l1584, t1585, l1586, p1587 )
TSCP l1584, t1585, l1586, p1587;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3267 ) ) );
X1 = FALSEVALUE;
X2 = sc_emptystring;
X2 = CONS( X2, EMPTYLIST );
X1 = CONS( X1, EMPTYLIST );
scrt6_newline( CONS( p1587, EMPTYLIST ) );
lap_pplap_2dtos_v = FALSEVALUE;
X3 = l1584;
L3271:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3272;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3276;
scrt1__24__car_2derror( X3 );
L3276:
X4 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3280;
scrt1__24__car_2derror( X4 );
L3280:
X6 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1620 ) ) ) goto L3283;
scrt6_display( PAIR_CAR( X2 ),
CONS( p1587, EMPTYLIST ) );
X7 = PAIR_CDR( X4 );
X8 = X7;
L3289:
if ( EQ( UNSIGNED( X8 ), UNSIGNED( EMPTYLIST ) ) ) goto L3290;
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3294;
scrt1__24__car_2derror( X8 );
L3294:
X9 = PAIR_CAR( X8 );
if ( NEQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3297;
lap_pplap_2dcall( X9, p1587 );
goto L3298;
L3297:
scrt6_display( X9, CONS( p1587, EMPTYLIST ) );
L3298:
X8 = PAIR_CDR( X8 );
goto L3289;
L3290:
scrt6_newline( CONS( p1587, EMPTYLIST ) );
goto L3480;
L3283:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1100 ) ) ) goto L3300;
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3304;
scrt1__24__car_2derror( X8 );
L3304:
X7 = PAIR_CAR( X8 );
X5 = lap_resolve_2dlabel( X7 );
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3311;
scrt1__24__car_2derror( X8 );
L3311:
X7 = PAIR_CAR( X8 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X7 ) ) ) goto L3480;
X8 = SYMBOL_VALUE( id_2dgotos_v );
X8 = UNKNOWNCALL( X8, 1 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( X5,
PROCEDURE_CLOSURE( X8 ) );
if ( NEQ( TSCPTAG( X7 ), FIXNUMTAG ) ) goto L3315;
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3319;
goto L3480;
L3315:
if ( FALSE( scrt2_zero_3f( X7 ) ) ) goto L3319;
goto L3480;
L3300:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1627 ) ) ) goto L3322;
X9 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3326;
scrt1__24__car_2derror( X9 );
L3326:
X8 = PAIR_CAR( X9 );
X7 = sc_make_2dstring( X8,
CONS( _TSCP( 8210 ), EMPTYLIST ) );
SETGEN( PAIR_CAR( X2 ), X7 );
goto L3480;
L3322:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1631 ) ) ) goto L3328;
scrt6_display( c1849, CONS( p1587, EMPTYLIST ) );
X7 = PAIR_CDR( X4 );
lap_pplap_2dcall( X7, p1587 );
scrt6_newline( CONS( p1587, EMPTYLIST ) );
X7 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3334;
scrt1__24__cdr_2derror( X7 );
L3334:
if ( FALSE( PAIR_CDR( X7 ) ) ) goto L3480;
scrt6_display( c1865, CONS( p1587, EMPTYLIST ) );
X9 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3341;
scrt1__24__cdr_2derror( X9 );
L3341:
X8 = PAIR_CDR( X9 );
lap_pplap_2dcomma_2dlist( X8, p1587 );
scrt6_display( c1876, CONS( p1587, EMPTYLIST ) );
scrt6_newline( CONS( p1587, EMPTYLIST ) );
goto L3480;
L3328:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1635 ) ) ) goto L3343;
if ( FALSE( t1585 ) ) goto L3346;
X7 = CONS( PAIR_CAR( X2 ), EMPTYLIST );
scrt6_format( p1587, CONS( c1766, X7 ) );
X8 = SYMBOL_VALUE( vname_v );
X9 = t1585;
X10 = EMPTYLIST;
X11 = EMPTYLIST;
L3351:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( EMPTYLIST ) ) ) goto L3352;
X7 = X10;
goto L3359;
L3352:
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3355;
scrt1__24__car_2derror( X9 );
L3355:
X15 = PAIR_CAR( X9 );
X14 = X8;
X14 = UNKNOWNCALL( X14, 1 );
X13 = VIA( PROCEDURE_CODE( X14 ) )( X15,
PROCEDURE_CLOSURE( X14 ) );
X12 = sc_cons( X13, EMPTYLIST );
if ( NEQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) ) goto L3358;
X13 = PAIR_CDR( X9 );
X11 = X12;
X10 = X12;
X9 = X13;
goto L3351;
L3358:
X13 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L3363;
scrt6_error( c1798,
c1799, CONS( X11, EMPTYLIST ) );
L3363:
X11 = SETGEN( PAIR_CDR( X11 ), X12 );
X9 = X13;
goto L3351;
L3359:
lap_pplap_2dcomma_2dlist( X7, p1587 );
scrt6_format( p1587, CONS( c1647, EMPTYLIST ) );
L3346:
if ( FALSE( PAIR_CDR( X4 ) ) ) goto L3391;
X7 = scrt1_caddr( X4 );
X8 = X7;
L3370:
if ( BITAND( BITOR( INT( X8 ), INT( l1586 ) ),
3 ) ) goto L3372;
if ( LT( INT( X8 ), INT( l1586 ) ) ) goto L3376;
goto L3379;
L3372:
if ( FALSE( scrt2__3c_2dtwo( X8, l1586 ) ) ) goto L3379;
L3376:
X9 = CONS( X8, EMPTYLIST );
X9 = CONS( X8, X9 );
X9 = CONS( PAIR_CAR( X2 ), X9 );
scrt6_format( p1587, CONS( c1826, X9 ) );
if ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3381;
X8 = _TSCP( IPLUS( INT( X8 ), INT( _TSCP( 4 ) ) ) );
goto L3370;
L3381:
X8 = scrt2__2b_2dtwo( X8, _TSCP( 4 ) );
goto L3370;
L3379:
if ( BITAND( BITOR( INT( X7 ), INT( l1586 ) ),
3 ) ) goto L3384;
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( l1586 ) ) ) goto L3388;
goto L3391;
L3384:
if ( TRUE( scrt2__3d_2dtwo( X7, l1586 ) ) ) goto L3391;
L3388:
X8 = X7;
SETGEN( PAIR_CAR( X1 ), X8 );
X8 = CONS( PAIR_CAR( X2 ), EMPTYLIST );
scrt6_format( p1587, CONS( c1843, X8 ) );
L3391:
if ( TRUE( t1585 ) ) goto L3396;
if ( TRUE( PAIR_CAR( X1 ) ) ) goto L3396;
goto L3480;
L3343:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1185 ) ) ) goto L3399;
X9 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3403;
scrt1__24__car_2derror( X9 );
L3403:
X8 = PAIR_CAR( X9 );
X7 = CONS( lap_resolve_2dlabel( X8 ), EMPTYLIST );
X7 = CONS( PAIR_CAR( X2 ), X7 );
scrt6_format( p1587, CONS( c1753, X7 ) );
goto L3480;
L3399:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1354 ) ) ) goto L3405;
X7 = CONS( PAIR_CAR( X2 ), EMPTYLIST );
scrt6_format( p1587, CONS( c1727, X7 ) );
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3410;
scrt1__24__car_2derror( X8 );
L3410:
X7 = PAIR_CAR( X8 );
lap_pplap_2dcall( X7, p1587 );
X8 = scrt6_write_2dwidth( CONS( p1587, EMPTYLIST ) );
X9 = scrt6_write_2dcount( CONS( p1587, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X8 ), INT( X9 ) ),
3 ) ) goto L3413;
X7 = _TSCP( IDIFFERENCE( INT( X8 ), INT( X9 ) ) );
goto L3414;
L3413:
X7 = scrt2__2d_2dtwo( X8, X9 );
L3414:
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 80 ) ) ),
3 ) ) goto L3417;
if ( LT( INT( X7 ), INT( _TSCP( 80 ) ) ) ) goto L3421;
goto L3424;
L3417:
if ( FALSE( scrt2__3c_2dtwo( X7, _TSCP( 80 ) ) ) ) goto L3424;
L3421:
X8 = CONS( PAIR_CAR( X2 ), EMPTYLIST );
scrt6_format( p1587, CONS( c1751, X8 ) );
L3424:
X8 = scrt1_caddr( X4 );
X7 = CONS( lap_resolve_2dlabel( X8 ), EMPTYLIST );
scrt6_format( p1587, CONS( c1752, X7 ) );
goto L3480;
L3405:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1111 ) ) ) goto L3425;
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3429;
scrt1__24__car_2derror( X8 );
L3429:
X7 = PAIR_CAR( X8 );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( c1132 ) ) ) goto L3432;
scrt6_display( PAIR_CAR( X2 ),
CONS( p1587, EMPTYLIST ) );
X8 = scrt1_caddr( X4 );
lap_pplap_2dcall( X8, p1587 );
scrt6_format( p1587, CONS( c1647, EMPTYLIST ) );
goto L3480;
L3432:
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( c1143 ) ) ) goto L3435;
X9 = scrt1_caddr( X4 );
X8 = lap_subst_2dtos( X9 );
if ( FALSE( lap_pplap_2dtos_v ) ) goto L3438;
X9 = SYMBOL_VALUE( report_2derror_v );
X9 = UNKNOWNCALL( X9, 1 );
VIA( PROCEDURE_CODE( X9 ) )( c1713,
PROCEDURE_CLOSURE( X9 ) );
L3438:
lap_pplap_2dtos_v = X8;
goto L3480;
L3435:
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( c1207 ) ) ) goto L3440;
if ( FALSE( PAIR_CAR( X1 ) ) ) goto L3459;
X8 = scrt1_caddr( X4 );
if ( TRUE( scrt1_equal_3f( X8, c1673 ) ) ) goto L3446;
X8 = CONS( PAIR_CAR( X2 ), EMPTYLIST );
scrt6_format( p1587, CONS( c1675, X8 ) );
X8 = scrt1_caddr( X4 );
lap_pplap_2dcall( X8, p1587 );
scrt6_format( p1587, CONS( c1647, EMPTYLIST ) );
L3446:
X8 = PAIR_CAR( X1 );
L3450:
if ( BITAND( BITOR( INT( X8 ), INT( l1586 ) ),
3 ) ) goto L3452;
if ( LT( INT( X8 ), INT( l1586 ) ) ) goto L3456;
goto L3459;
L3452:
if ( FALSE( scrt2__3c_2dtwo( X8, l1586 ) ) ) goto L3459;
L3456:
X9 = CONS( X8, EMPTYLIST );
X9 = CONS( X8, X9 );
X9 = CONS( PAIR_CAR( X2 ), X9 );
scrt6_format( p1587, CONS( c1687, X9 ) );
if ( BITAND( BITOR( INT( X8 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3461;
X8 = _TSCP( IPLUS( INT( X8 ), INT( _TSCP( 4 ) ) ) );
goto L3450;
L3461:
X8 = scrt2__2b_2dtwo( X8, _TSCP( 4 ) );
goto L3450;
L3459:
if ( FALSE( PAIR_CAR( X1 ) ) ) goto L3463;
X8 = c1709;
goto L3464;
L3463:
X9 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3467;
scrt1__24__cdr_2derror( X9 );
L3467:
X8 = PAIR_CDR( X9 );
L3464:
scrt6_display( PAIR_CAR( X2 ),
CONS( p1587, EMPTYLIST ) );
X9 = scrt1_caddr( X4 );
if ( FALSE( scrt1_equal_3f( X9, c1673 ) ) ) goto L3470;
scrt6_display( c1697, CONS( p1587, EMPTYLIST ) );
goto L3473;
L3470:
if ( FALSE( SYMBOL_VALUE( sc_2dstack_2dtrace_v ) ) ) goto L3472;
X9 = sc_cons( c1698, X8 );
lap_pplap_2dcall( X9, p1587 );
goto L3473;
L3472:
X9 = sc_cons( c1697, X8 );
lap_pplap_2dcall( X9, p1587 );
L3473:
scrt6_format( p1587, CONS( c1647, EMPTYLIST ) );
goto L3480;
L3440:
scrt6_display( PAIR_CAR( X2 ),
CONS( p1587, EMPTYLIST ) );
X9 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L3477;
scrt1__24__car_2derror( X9 );
L3477:
X8 = PAIR_CAR( X9 );
lap_pplap_2dcall( X8, p1587 );
scrt6_display( c1670, CONS( p1587, EMPTYLIST ) );
X8 = scrt1_caddr( X4 );
lap_pplap_2dcall( X8, p1587 );
scrt6_format( p1587, CONS( c1647, EMPTYLIST ) );
goto L3480;
L3425:
scrt6_display( PAIR_CAR( X2 ),
CONS( p1587, EMPTYLIST ) );
lap_pplap_2dcall( X4, p1587 );
scrt6_format( p1587, CONS( c1647, EMPTYLIST ) );
goto L3480;
L3319:
X6 = CONS( X5, EMPTYLIST );
scrt6_format( p1587, CONS( c1916, X6 ) );
goto L3480;
L3396:
scrt6_newline( CONS( p1587, EMPTYLIST ) );
L3480:
X3 = PAIR_CDR( X3 );
goto L3271;
L3272:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( lap_pplap_2dtos_v );
DEFSTRING( t3482, "PPLAP-TOS", 9 );
DEFTSCP( lap_pop_2dtos_v );
DEFSTRING( t3483, "POP-TOS", 7 );
TSCP lap_pop_2dtos( )
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3483 ) ) );
X1 = lap_pplap_2dtos_v;
lap_pplap_2dtos_v = FALSEVALUE;
if ( TRUE( X1 ) ) goto L3486;
X2 = SYMBOL_VALUE( report_2derror_v );
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c1965,
PROCEDURE_CLOSURE( X2 ) ) );
L3486:
POPSTACKTRACE( X1 );
}
DEFTSCP( lap_subst_2dtos_v );
DEFSTRING( t3488, "SUBST-TOS", 9 );
TSCP lap_subst_2dtos( f1967 )
TSCP f1967;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3488 ) ) );
if ( NEQ( UNSIGNED( f1967 ), UNSIGNED( c1143 ) ) ) goto L3490;
POPSTACKTRACE( lap_pop_2dtos( ) );
L3490:
if ( NEQ( TSCPTAG( f1967 ), PAIRTAG ) ) goto L3492;
X2 = PAIR_CAR( f1967 );
X1 = lap_subst_2dtos( X2 );
X3 = PAIR_CDR( f1967 );
X2 = lap_subst_2dtos( X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L3492:
POPSTACKTRACE( f1967 );
}
DEFTSCP( lap_pplap_2dcall_v );
DEFSTRING( t3496, "PPLAP-CALL", 10 );
EXTERNTSCPP( scrt3_string_2d_3elist );
EXTERNTSCP( scrt3_string_2d_3elist_v );
EXTERNTSCPP( scrt1_assq );
EXTERNTSCP( scrt1_assq_v );
EXTERNTSCPP( scrt3_list_2d_3estring );
EXTERNTSCP( scrt3_list_2d_3estring_v );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
EXTERNTSCPP( scrt1_cdadr );
EXTERNTSCP( scrt1_cdadr_v );
TSCP lap_pplap_2dcall( l1982, p1983 )
TSCP l1982, p1983;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3496 ) ) );
L3497:
X2 = scrt6_write_2dwidth( CONS( p1983, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 20 ) ) ),
3 ) ) goto L3499;
X1 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 20 ) ) ) );
goto L3500;
L3499:
X1 = scrt2__2d_2dtwo( X2, _TSCP( 20 ) );
L3500:
if ( NEQ( TSCPTAG( l1982 ), PAIRTAG ) ) goto L3502;
X2 = PAIR_CAR( l1982 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2010 ) ) ) goto L3504;
scrt6_display( _TSCP( 8722 ),
CONS( p1983, EMPTYLIST ) );
X4 = PAIR_CDR( l1982 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3510;
scrt1__24__car_2derror( X4 );
L3510:
X3 = PAIR_CAR( X4 );
X2 = scrt3_string_2d_3elist( X3 );
X3 = X2;
L3514:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3515;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3519;
scrt1__24__car_2derror( X3 );
L3519:
X4 = PAIR_CAR( X3 );
X5 = scrt1_assq( X4, c2221 );
if ( FALSE( X5 ) ) goto L3523;
scrt6_display( _TSCP( 23570 ),
CONS( p1983, EMPTYLIST ) );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3527;
scrt1__24__cdr_2derror( X5 );
L3527:
X6 = PAIR_CDR( X5 );
scrt6_display( X6, CONS( p1983, EMPTYLIST ) );
goto L3542;
L3523:
if ( AND( EQ( TSCPIMMEDIATETAG( X4 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 8210 ) ),
CHARACTERTAG ) ) ) goto L3530;
X7 = CONS( _TSCP( 8210 ), EMPTYLIST );
scrt6_error( c2200, c2201, CONS( X4, X7 ) );
L3530:
X6 = BOOLEAN( LT( INT( X4 ), INT( _TSCP( 8210 ) ) ) );
if ( TRUE( X6 ) ) goto L3536;
if ( AND( EQ( TSCPIMMEDIATETAG( X4 ), CHARACTERTAG ),
EQ( TSCPIMMEDIATETAG( _TSCP( 32274 ) ),
CHARACTERTAG ) ) ) goto L3538;
X7 = CONS( _TSCP( 32274 ), EMPTYLIST );
scrt6_error( c2209, c2201, CONS( X4, X7 ) );
L3538:
if ( GT( INT( X4 ), INT( _TSCP( 32274 ) ) ) ) goto L3536;
scrt6_display( X4, CONS( p1983, EMPTYLIST ) );
goto L3542;
L3536:
scrt6_display( _TSCP( 23570 ),
CONS( p1983, EMPTYLIST ) );
X8 = SYMBOL_VALUE( char_2d_3edl_v );
X8 = UNKNOWNCALL( X8, 3 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( X4,
_TSCP( 32 ),
_TSCP( 12 ),
PROCEDURE_CLOSURE( X8 ) );
X6 = scrt3_list_2d_3estring( X7 );
scrt6_display( X6, EMPTYLIST );
L3542:
X5 = scrt6_write_2dcount( CONS( p1983, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X5 ), INT( X1 ) ),
3 ) ) goto L3546;
if ( GT( INT( X5 ), INT( X1 ) ) ) goto L3550;
goto L3553;
L3546:
if ( FALSE( scrt2__3e_2dtwo( X5, X1 ) ) ) goto L3553;
L3550:
scrt6_display( _TSCP( 23570 ),
CONS( p1983, EMPTYLIST ) );
scrt6_newline( CONS( p1983, EMPTYLIST ) );
L3553:
X3 = PAIR_CDR( X3 );
goto L3514;
L3515:
POPSTACKTRACE( scrt6_display( _TSCP( 8722 ),
CONS( p1983, EMPTYLIST ) ) );
L3504:
X3 = PAIR_CAR( l1982 );
X2 = scrt1_memq( X3, c2018 );
if ( FALSE( X2 ) ) goto L3569;
X4 = PAIR_CDR( l1982 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3565;
scrt1__24__car_2derror( X4 );
L3565:
X3 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1143 ) ) ) goto L3569;
X5 = PAIR_CAR( l1982 );
X7 = lap_pop_2dtos( );
X6 = sc_cons( X7, EMPTYLIST );
X4 = sc_cons( X5, X6 );
X3 = X4;
l1982 = X3;
goto L3497;
L3502:
if ( NEQ( UNSIGNED( l1982 ), UNSIGNED( c1143 ) ) ) goto L3570;
X2 = lap_pop_2dtos( );
l1982 = X2;
goto L3497;
L3570:
X2 = BOOLEAN( AND( EQ( TSCPTAG( l1982 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( l1982 ),
SYMBOLTAG ) ) );
if ( FALSE( X2 ) ) goto L3581;
X3 = SYMBOL_VALUE( id_2duse_v );
X3 = UNKNOWNCALL( X3, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X3 ) )( l1982,
PROCEDURE_CLOSURE( X3 ) ) )
) goto L3581;
X4 = SYMBOL_VALUE( vname_v );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( l1982,
PROCEDURE_CLOSURE( X4 ) );
if ( EQ( UNSIGNED( X3 ), UNSIGNED( l1982 ) ) ) goto L3579;
X3 = SYMBOL_VALUE( report_2derror_v );
X3 = UNKNOWNCALL( X3, 2 );
VIA( PROCEDURE_CODE( X3 ) )( c2002,
l1982,
PROCEDURE_CLOSURE( X3 ) );
L3579:
X4 = SYMBOL_VALUE( vname_v );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( l1982,
PROCEDURE_CLOSURE( X4 ) );
POPSTACKTRACE( scrt6_display( X3,
CONS( p1983, EMPTYLIST ) ) );
L3569:
X2 = PAIR_CAR( l1982 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1407 ) ) );
if ( FALSE( X1 ) ) goto L3609;
X3 = PAIR_CDR( l1982 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3591;
scrt1__24__car_2derror( X3 );
L3591:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3609;
X2 = scrt1_caadr( l1982 );
X3 = scrt1_cdadr( l1982 );
X4 = scrt1_assq( X2, c2157 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1407 ) ) ) goto L3596;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3599;
scrt1__24__car_2derror( X3 );
L3599:
X5 = PAIR_CAR( X3 );
l1982 = X5;
goto L3497;
L3596:
if ( FALSE( X4 ) ) goto L3601;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3604;
scrt1__24__cdr_2derror( X4 );
L3604:
X6 = PAIR_CDR( X4 );
X5 = sc_cons( X6, X3 );
l1982 = X5;
goto L3497;
L3601:
X5 = CONS( PAIR_CAR( l1982 ), EMPTYLIST );
scrt6_format( p1983, CONS( c2140, X5 ) );
X5 = PAIR_CDR( l1982 );
lap_pplap_2dcomma_2dlist( X5, p1983 );
POPSTACKTRACE( scrt6_display( c2129,
CONS( p1983, EMPTYLIST ) ) );
L3609:
X2 = PAIR_CAR( l1982 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c2066 ) ) );
if ( FALSE( X1 ) ) goto L3625;
X3 = PAIR_CDR( l1982 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3620;
scrt1__24__car_2derror( X3 );
L3620:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3625;
X2 = scrt1_caadr( l1982 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2087 ) ) ) goto L3625;
X2 = scrt1_cadadr( l1982 );
l1982 = X2;
goto L3497;
L3581:
POPSTACKTRACE( scrt6_display( l1982,
CONS( p1983, EMPTYLIST ) ) );
L3625:
X2 = PAIR_CAR( l1982 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c2098 ) ) );
if ( FALSE( X1 ) ) goto L3641;
X3 = PAIR_CDR( l1982 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3636;
scrt1__24__car_2derror( X3 );
L3636:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3641;
X2 = scrt1_caadr( l1982 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c2087 ) ) ) goto L3641;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1407,
CONS( scrt1_cadadr( l1982 ), X3 ) );
l1982 = X2;
goto L3497;
L3641:
X1 = PAIR_CAR( l1982 );
lap_pplap_2dcall( X1, p1983 );
scrt6_display( c2124, CONS( p1983, EMPTYLIST ) );
X1 = PAIR_CDR( l1982 );
lap_pplap_2dcomma_2dlist( X1, p1983 );
POPSTACKTRACE( scrt6_display( c2129,
CONS( p1983, EMPTYLIST ) ) );
}
DEFTSCP( lap_pplap_2dcomma_2dlist_v );
DEFSTRING( t3645, "PPLAP-COMMA-LIST", 16 );
EXTERNTSCPP( lap_pplap_2dsize );
EXTERNTSCP( lap_pplap_2dsize_v );
TSCP lap_pplap_2dcomma_2dlist( l2247, p2248 )
TSCP l2247, p2248;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3645 ) ) );
L3646:
X1 = scrt6_write_2dcount( CONS( p2248, EMPTYLIST ) );
X5 = scrt6_write_2dwidth( CONS( p2248, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X5 ), INT( X1 ) ),
3 ) ) goto L3649;
X4 = _TSCP( IDIFFERENCE( INT( X5 ), INT( X1 ) ) );
goto L3650;
L3649:
X4 = scrt2__2d_2dtwo( X5, X1 );
L3650:
X3 = lap_pplap_2dsize( l2247, X4 );
if ( NEQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L3652;
X2 = BOOLEAN( LT( INT( X3 ), 0 ) );
goto L3653;
L3652:
X2 = scrt2_negative_3f( X3 );
L3653:
if ( FALSE( l2247 ) ) goto L3655;
if ( EQ( TSCPTAG( l2247 ), PAIRTAG ) ) goto L3659;
scrt1__24__car_2derror( l2247 );
L3659:
X3 = PAIR_CAR( l2247 );
lap_pplap_2dcall( X3, p2248 );
if ( FALSE( PAIR_CDR( l2247 ) ) ) goto L3662;
scrt6_display( c2263, CONS( p2248, EMPTYLIST ) );
if ( FALSE( X2 ) ) goto L3665;
scrt6_newline( CONS( p2248, EMPTYLIST ) );
X3 = SYMBOL_VALUE( set_2dwrite_2dcount_21_v );
X3 = UNKNOWNCALL( X3, 2 );
VIA( PROCEDURE_CODE( X3 ) )( p2248,
X1, PROCEDURE_CLOSURE( X3 ) );
L3665:
X3 = PAIR_CDR( l2247 );
l2247 = X3;
goto L3646;
L3662:
POPSTACKTRACE( FALSEVALUE );
L3655:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( lap_pplap_2dsize_v );
DEFSTRING( t3669, "PPLAP-SIZE", 10 );
TSCP lap_pplap_2dsize( l2284, l2285 )
TSCP l2284, l2285;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3669 ) ) );
L3670:
if ( NEQ( TSCPTAG( l2285 ), FIXNUMTAG ) ) goto L3672;
if ( GTE( INT( l2285 ), 0 ) ) goto L3676;
POPSTACKTRACE( l2285 );
L3672:
if ( FALSE( scrt2_negative_3f( l2285 ) ) ) goto L3676;
POPSTACKTRACE( l2285 );
L3676:
if ( EQ( UNSIGNED( l2284 ), UNSIGNED( EMPTYLIST ) ) ) goto L3679;
if ( NEQ( TSCPTAG( l2284 ), PAIRTAG ) ) goto L3681;
X1 = PAIR_CAR( l2284 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c2010 ) ) ) goto L3683;
X4 = PAIR_CDR( l2284 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3688;
scrt1__24__car_2derror( X4 );
L3688:
X3 = PAIR_CAR( X4 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), STRINGTAG ) ) ) goto L3691;
scrt6_error( c2312, c2313, CONS( X3, EMPTYLIST ) );
L3691:
X2 = C_FIXED( STRING_LENGTH( X3 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 20 ) ) ),
3 ) ) goto L3694;
X1 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 20 ) ) ) );
goto L3695;
L3694:
X1 = scrt2__2b_2dtwo( X2, _TSCP( 20 ) );
L3695:
if ( BITAND( BITOR( INT( l2285 ), INT( X1 ) ),
3 ) ) goto L3697;
POPSTACKTRACE( _TSCP( IDIFFERENCE( INT( l2285 ),
INT( X1 ) ) ) );
L3697:
POPSTACKTRACE( scrt2__2d_2dtwo( l2285, X1 ) );
L3683:
X1 = PAIR_CDR( l2284 );
X2 = PAIR_CAR( l2284 );
if ( BITAND( BITOR( INT( l2285 ),
INT( _TSCP( 16 ) ) ),
3 ) ) goto L3701;
X3 = _TSCP( IDIFFERENCE( INT( l2285 ),
INT( _TSCP( 16 ) ) ) );
goto L3702;
L3701:
X3 = scrt2__2d_2dtwo( l2285, _TSCP( 16 ) );
L3702:
l2285 = lap_pplap_2dsize( X2, X3 );
l2284 = X1;
goto L3670;
L3681:
if ( NEQ( UNSIGNED( l2284 ), UNSIGNED( c1143 ) ) ) goto L3703;
l2284 = lap_pplap_2dtos_v;
goto L3670;
L3703:
if ( NOT( AND( EQ( TSCPTAG( l2284 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( l2284 ), SYMBOLTAG ) ) )
) goto L3705;
X5 = SYMBOL_VALUE( id_2duse_v );
X5 = UNKNOWNCALL( X5, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X5 ) )( l2284,
PROCEDURE_CLOSURE( X5 ) ) )
) goto L3707;
X5 = SYMBOL_VALUE( vname_v );
X5 = UNKNOWNCALL( X5, 1 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( l2284,
PROCEDURE_CLOSURE( X5 ) );
goto L3706;
L3707:
X4 = l2284;
goto L3706;
L3705:
X4 = l2284;
L3706:
X2 = scrt6_format( c2314, CONS( X4, EMPTYLIST ) );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L3710;
scrt6_error( c2312, c2313, CONS( X2, EMPTYLIST ) );
L3710:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( l2285 ), INT( X1 ) ),
3 ) ) goto L3713;
POPSTACKTRACE( _TSCP( IDIFFERENCE( INT( l2285 ),
INT( X1 ) ) ) );
L3713:
POPSTACKTRACE( scrt2__2d_2dtwo( l2285, X1 ) );
L3679:
POPSTACKTRACE( l2285 );
}
DEFTSCP( lap_downshift_v );
DEFSTRING( t3715, "DOWNSHIFT", 9 );
TSCP lap_downshift( o2371 )
TSCP o2371;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3715 ) ) );
if ( NOT( AND( EQ( TSCPTAG( o2371 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( o2371 ), SYMBOLTAG ) ) )
) goto L3717;
X2 = SYMBOL_NAME( o2371 );
X1 = SYMBOL_VALUE( string_2ddowncase_v );
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
PROCEDURE_CLOSURE( X1 ) ) );
L3717:
POPSTACKTRACE( o2371 );
}
DEFTSCP( lap_load_2dplist_2dlap_v );
DEFSTRING( t3720, "LOAD-PLIST-LAP", 14 );
TSCP lap_load_2dplist_2dlap( )
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3720 ) ) );
X1 = c2409;
L3723:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L3724;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3728;
scrt1__24__car_2derror( X1 );
L3728:
X2 = PAIR_CAR( X1 );
X3 = SYMBOL_VALUE( set_2did_2dvname_21_v );
X3 = UNKNOWNCALL( X3, 2 );
VIA( PROCEDURE_CODE( X3 ) )( X2,
X2, PROCEDURE_CLOSURE( X3 ) );
X3 = SYMBOL_VALUE( set_2did_2duse_21_v );
X3 = UNKNOWNCALL( X3, 2 );
VIA( PROCEDURE_CODE( X3 ) )( X2,
c2408,
PROCEDURE_CLOSURE( X3 ) );
X1 = PAIR_CDR( X1 );
goto L3723;
L3724:
POPSTACKTRACE( FALSEVALUE );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt2__init();
scrt6__init();
scrt1__init();
MAXDISPLAY( 0 );
}
void lap__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(lap SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2881 ) ),
ADR( lap_global_2dlap_2dcode_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2882 ) ),
ADR( lap_emit_2dglobal_2dlap_v ),
MAKEPROCEDURE( 1,
0,
lap_emit_2dglobal_2dlap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2884 ) ),
ADR( lap_lap_2dcode_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2885 ) ),
ADR( lap_emit_2dlap_v ),
MAKEPROCEDURE( 1,
0, lap_emit_2dlap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2938 ) ),
ADR( lap_peep_2dlap_v ),
MAKEPROCEDURE( 1,
0, lap_peep_2dlap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3193 ) ),
ADR( lap_bump_2dlabel_2dgotos_v ),
MAKEPROCEDURE( 2,
0,
lap_bump_2dlabel_2dgotos,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3214 ) ),
ADR( lap_save_2dcurrent_2dlap_v ),
MAKEPROCEDURE( 1,
0,
lap_save_2dcurrent_2dlap,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3222 ) ),
ADR( lap_lap_2dtemps_2dused_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t3223 ) ),
ADR( lap_lap_2dtemps_2dfree_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t3224 ) ),
ADR( lap_lap_2dmax_2ddisplay_v ),
_TSCP( 0 ) );
INITIALIZEVAR( U_TX( ADR( t3225 ) ),
ADR( lap_use_2dlap_2dtemp_v ),
MAKEPROCEDURE( 0,
0,
lap_use_2dlap_2dtemp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3236 ) ),
ADR( lap_drop_2dlap_2dtemp_v ),
MAKEPROCEDURE( 1,
0,
lap_drop_2dlap_2dtemp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3238 ) ),
ADR( lap_save_2dlap_2dtemps_v ),
MAKEPROCEDURE( 0,
0,
lap_save_2dlap_2dtemps,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3240 ) ),
ADR( lap_restore_2dlap_2dtemps_v ),
MAKEPROCEDURE( 1,
0,
lap_restore_2dlap_2dtemps,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3242 ) ),
ADR( lap_done_2dlap_2dlap_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t3243 ) ),
ADR( lap_done_2dlap_v ),
MAKEPROCEDURE( 1,
0, lap_done_2dlap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3262 ) ),
ADR( lap_resolve_2dlabel_v ),
MAKEPROCEDURE( 1,
0,
lap_resolve_2dlabel, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3267 ) ),
ADR( lap_pplap_v ),
MAKEPROCEDURE( 4,
0, lap_pplap, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3482 ) ),
ADR( lap_pplap_2dtos_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t3483 ) ),
ADR( lap_pop_2dtos_v ),
MAKEPROCEDURE( 0,
0, lap_pop_2dtos, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3488 ) ),
ADR( lap_subst_2dtos_v ),
MAKEPROCEDURE( 1,
0,
lap_subst_2dtos, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3496 ) ),
ADR( lap_pplap_2dcall_v ),
MAKEPROCEDURE( 2,
0,
lap_pplap_2dcall, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3645 ) ),
ADR( lap_pplap_2dcomma_2dlist_v ),
MAKEPROCEDURE( 2,
0,
lap_pplap_2dcomma_2dlist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3669 ) ),
ADR( lap_pplap_2dsize_v ),
MAKEPROCEDURE( 2,
0,
lap_pplap_2dsize, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3715 ) ),
ADR( lap_downshift_v ),
MAKEPROCEDURE( 1,
0, lap_downshift, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3720 ) ),
ADR( lap_load_2dplist_2dlap_v ),
MAKEPROCEDURE( 0,
0,
lap_load_2dplist_2dlap,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.