This is compile.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2576, "LEXICAL-FREE-VARS", 17 );
DEFSTATICTSCP( lexical_2dfree_2dvars_v );
DEFSTRING( t2577, "LEXICAL-BOUND-VARS", 18 );
DEFSTATICTSCP( lexical_2dbound_2dvars_v );
DEFSTRING( t2578, "CURRENT-LAMBDA-ID", 17 );
DEFSTATICTSCP( current_2dlambda_2did_v );
DEFSTRING( t2579, "QUOTE-CONSTANTS", 15 );
DEFSTATICTSCP( quote_2dconstants_v );
DEFSTRING( t2580, "LAP-CODE", 8 );
DEFSTATICTSCP( lap_2dcode_v );
DEFSTRING( t2581, "PREDEF-DEFAULT", 14 );
DEFSTATICTSCP( predef_2ddefault_v );
DEFSTRING( t2582, "COPY-PLIST", 10 );
DEFSTATICTSCP( copy_2dplist_v );
DEFSTRING( t2583, "GLOBAL-FREE-VARS", 16 );
DEFSTATICTSCP( global_2dfree_2dvars_v );
DEFSTRING( t2584, "MAKE-ALPHA-SEQ", 14 );
DEFSTATICTSCP( make_2dalpha_2dseq_v );
DEFSTRING( t2585, "LAP-EXP", 7 );
DEFSTATICTSCP( lap_2dexp_v );
DEFSTRING( t2586, "QUOTE-EXP", 9 );
DEFSTATICTSCP( quote_2dexp_v );
DEFSTRING( t2587, "SET!-EXP", 8 );
DEFSTATICTSCP( set_21_2dexp_v );
DEFSTRING( t2588, "IF-EXP", 6 );
DEFSTATICTSCP( if_2dexp_v );
DEFSTRING( t2589, "DEFINE-EXP", 10 );
DEFSTATICTSCP( define_2dexp_v );
DEFSTRING( t2590, "OLD-MACRO", 9 );
DEFSTATICTSCP( old_2dmacro_v );
DEFSTRING( t2591, "QUASIQUOTE-MACRO", 16 );
DEFSTATICTSCP( quasiquote_2dmacro_v );
DEFSTRING( t2592, "COND-MACRO", 10 );
DEFSTATICTSCP( cond_2dmacro_v );
DEFSTRING( t2593, "CASE-MACRO", 10 );
DEFSTATICTSCP( case_2dmacro_v );
DEFSTRING( t2594, "AND-MACRO", 9 );
DEFSTATICTSCP( and_2dmacro_v );
DEFSTRING( t2595, "OR-MACRO", 8 );
DEFSTATICTSCP( or_2dmacro_v );
DEFSTRING( t2596, "NOT-MACRO", 9 );
DEFSTATICTSCP( not_2dmacro_v );
DEFSTRING( t2597, "BEGIN-MACRO", 11 );
DEFSTATICTSCP( begin_2dmacro_v );
DEFSTRING( t2598, "LET-MACRO", 9 );
DEFSTATICTSCP( let_2dmacro_v );
DEFSTRING( t2599, "LET*-MACRO", 10 );
DEFSTATICTSCP( let_2a_2dmacro_v );
DEFSTRING( t2600, "LETREC-MACRO", 12 );
DEFSTATICTSCP( letrec_2dmacro_v );
DEFSTRING( t2601, "DO-MACRO", 8 );
DEFSTATICTSCP( do_2dmacro_v );
DEFSTRING( t2602, "WHEN-MACRO", 10 );
DEFSTATICTSCP( when_2dmacro_v );
DEFSTRING( t2603, "UNLESS-MACRO", 12 );
DEFSTATICTSCP( unless_2dmacro_v );
DEFSTRING( t2604, "QUOTE-MACRO", 11 );
DEFSTATICTSCP( quote_2dmacro_v );
DEFSTRING( t2605, "LAP-MACRO", 9 );
DEFSTATICTSCP( lap_2dmacro_v );
DEFSTRING( t2606, "DEFINE-MACRO", 12 );
DEFSTATICTSCP( define_2dmacro_v );
DEFSTRING( t2607, "DEFINE-MACRO-MACRO", 18 );
DEFSTATICTSCP( define_2dmacro_2dmacro_v );
DEFSTRING( t2608, "DEFINE-CONSTANT-MACRO", 21 );
DEFSTATICTSCP( define_2dconstant_2dmacro_v );
DEFSTRING( t2609, "EVAL-WHEN-MACRO", 15 );
DEFSTATICTSCP( eval_2dwhen_2dmacro_v );
DEFSTRING( t2610, "LAMBDA-MACRO", 12 );
DEFSTATICTSCP( lambda_2dmacro_v );
DEFSTRING( t2611, "LAMBDA-EXP", 10 );
DEFSTATICTSCP( lambda_2dexp_v );
DEFSTRING( t2612, "LOAD-PLIST-LAP", 14 );
DEFSTATICTSCP( load_2dplist_2dlap_v );
DEFSTRING( t2613, "READ-TEXT", 9 );
DEFSTATICTSCP( read_2dtext_v );
DEFSTRING( t2614, "EXPAND-FORMS", 12 );
DEFSTATICTSCP( expand_2dforms_v );
DEFSTRING( t2615, "ANALYZE-CLOSURES1A", 18 );
DEFSTATICTSCP( analyze_2dclosures1a_v );
DEFSTRING( t2616, "ANALYZE-CLOSURES1B", 18 );
DEFSTATICTSCP( analyze_2dclosures1b_v );
DEFSTRING( t2617, "TRANSFORM", 9 );
DEFSTATICTSCP( transform_v );
DEFSTRING( t2618, "ANALYZE-CLOSURES2", 17 );
DEFSTATICTSCP( analyze_2dclosures2_v );
DEFSTRING( t2619, "WALK-$TREE", 10 );
DEFSTATICTSCP( walk_2d_24tree_v );
DEFSTRING( t2620, "PRINT-LAMBDA-INFO", 17 );
DEFSTATICTSCP( print_2dlambda_2dinfo_v );
DEFSTRING( t2621, "GENERATE-CODE", 13 );
DEFSTATICTSCP( generate_2dcode_v );
DEFSTRING( t2622, "Argument is out of range: ~s", 28 );
DEFSTATICTSCP2( c2398, t2622 );
DEFSTRING( t2623, "STRING-REF", 10 );
DEFSTATICTSCP( c2377 );
DEFSTRING( t2624, "Argument(s) incorrect", 21 );
DEFSTATICTSCP2( c2371, t2624 );
DEFSTRING( t2625, "Argument is not a CHAR: ~s", 26 );
DEFSTATICTSCP2( c2350, t2625 );
DEFSTRING( t2626, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c2347, t2626 );
DEFSTRING( t2627, "STRING-SET!", 11 );
DEFSTATICTSCP( c2346 );
DEFSTRING( t2628, "~s", 2 );
DEFSTATICTSCP2( c2307, t2628 );
DEFSTRING( t2629, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c2306, t2629 );
DEFSTRING( t2630, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c2305 );
DEFSTRING( t2631, "<-", 2 );
DEFSTATICTSCP( c2211 );
DEFSTRING( t2632, "OPTVARS", 7 );
DEFSTATICTSCP( c2066 );
DEFSTRING( t2633, "REQVARS", 7 );
DEFSTATICTSCP( c2063 );
DEFSTRING( t2634, "(~S ~S ~S", 9 );
DEFSTATICTSCP2( c1983, t2634 );
DEFSTRING( t2635, "(~S ~S", 6 );
DEFSTATICTSCP2( c1927, t2635 );
DEFSTRING( t2636, ")", 1 );
DEFSTATICTSCP2( c1925, t2636 );
DEFSTRING( t2637, ". ", 2 );
DEFSTATICTSCP2( c1905, t2637 );
DEFSTRING( t2638, "(", 1 );
DEFSTATICTSCP2( c1885, t2638 );
DEFSTATICTSCP( c1860 );
DEFSTRING( t2640, "$LAMBDA", 7 );
DEFSTATICTSCP( t2639 );
DEFSTRING( t2642, "$IF", 3 );
DEFSTATICTSCP( t2641 );
DEFSTRING( t2644, "$DEFINE", 7 );
DEFSTATICTSCP( t2643 );
DEFSTRING( t2645, "<APPLY>", 7 );
DEFSTATICTSCP( c1829 );
DEFSTRING( t2646, "$CALL", 5 );
DEFSTATICTSCP( c1768 );
DEFSTRING( t2647, "***** WARNING - ~a ~a", 21 );
DEFSTATICTSCP2( c1720, t2647 );
DEFSTRING( t2648, " ~a", 3 );
DEFSTATICTSCP2( c1708, t2648 );
DEFSTRING( t2649, "***** ERROR - ~a ~a", 19 );
DEFSTATICTSCP2( c1684, t2649 );
DEFSTRING( t2650, " ***** Code Generation ***** */~%", 35 );
DEFSTATICTSCP2( c1670, t2650 );
DEFSTRING( t2651, "TREE", 4 );
DEFSTATICTSCP( c1667 );
DEFSTRING( t2652, "$LAMBDA", 7 );
DEFSTATICTSCP( c1633 );
DEFSTRING( t2653, " ***** Closure Analysis *****~%", 33 );
DEFSTATICTSCP2( c1569, t2653 );
DEFSTRING( t2654, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1559, t2654 );
DEFSTRING( t2655, "SET-CDR!", 8 );
DEFSTATICTSCP( c1558 );
DEFSTRING( t2656, " ***** Transformations *****~%", 32 );
DEFSTATICTSCP2( c1483, t2656 );
DEFSTRING( t2657, "/* ***** Expand Forms *****~%", 29 );
DEFSTATICTSCP2( c1480, t2657 );
DEFSTRING( t2658, "SCLTEXT", 7 );
DEFSTATICTSCP( c1473 );
DEFSTRING( t2659, "scltext.sc", 10 );
DEFSTATICTSCP2( c1472, t2659 );
DEFSTATICTSCP( c1448 );
DEFSTRING( t2661, "TEST", 4 );
DEFSTATICTSCP( t2660 );
DEFSTRING( t2663, "MODULE", 6 );
DEFSTATICTSCP( t2662 );
DEFSTRING( t2664, "SC-DONE", 7 );
DEFSTATICTSCP( c1393 );
DEFSTRING( t2665, "Duplicate option:", 17 );
DEFSTATICTSCP2( c1386, t2665 );
DEFSTRING( t2666, "Unrecognized option:", 20 );
DEFSTATICTSCP2( c1339, t2666 );
DEFSTRING( t2667, "PREDEF", 6 );
DEFSTATICTSCP( c1333 );
DEFSTRING( t2668, "NOTRACE", 7 );
DEFSTATICTSCP( c1326 );
DEFSTRING( t2669, "LOG", 3 );
DEFSTATICTSCP( c1309 );
DEFSTRING( t2670, "ERROR", 5 );
DEFSTATICTSCP( c1305 );
DEFSTRING( t2671, ".c", 2 );
DEFSTATICTSCP2( c1272, t2671 );
DEFSTATICTSCP( c1236 );
DEFSTRING( t2673, "PROFILE", 7 );
DEFSTATICTSCP( t2672 );
DEFSTRING( t2674, ".sc", 3 );
DEFSTATICTSCP2( c1202, t2674 );
DEFSTRING( t2675, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1201, t2675 );
DEFSTRING( t2676, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1200 );
DEFSTRING( t2677, "Illegal predefinition form:", 27 );
DEFSTATICTSCP2( c1176, t2677 );
DEFSTRING( t2678, "LAMBDA", 6 );
DEFSTATICTSCP( c1167 );
DEFSTRING( t2679, "EVAL-WHEN", 9 );
DEFSTATICTSCP( c1165 );
DEFSTRING( t2680, "DEFINE-CONSTANT", 15 );
DEFSTATICTSCP( c1163 );
DEFSTRING( t2681, "DEFINE-MACRO", 12 );
DEFSTATICTSCP( c1161 );
DEFSTRING( t2682, "DEFINE-C-EXTERNAL", 17 );
DEFSTATICTSCP( c1159 );
DEFSTRING( t2683, "DEFINE-EXTERNAL", 15 );
DEFSTATICTSCP( c1158 );
DEFSTRING( t2684, "INCLUDE", 7 );
DEFSTATICTSCP( c1157 );
DEFSTRING( t2685, "MODULE", 6 );
DEFSTATICTSCP( c1156 );
DEFSTRING( t2686, "UNLESS", 6 );
DEFSTATICTSCP( c1152 );
DEFSTRING( t2687, "WHEN", 4 );
DEFSTATICTSCP( c1150 );
DEFSTRING( t2688, "DO", 2 );
DEFSTATICTSCP( c1148 );
DEFSTRING( t2689, "LETREC", 6 );
DEFSTATICTSCP( c1146 );
DEFSTRING( t2690, "LET*", 4 );
DEFSTATICTSCP( c1144 );
DEFSTRING( t2691, "LET", 3 );
DEFSTATICTSCP( c1142 );
DEFSTRING( t2692, "BEGIN", 5 );
DEFSTATICTSCP( c1140 );
DEFSTRING( t2693, "NOT", 3 );
DEFSTATICTSCP( c1138 );
DEFSTRING( t2694, "OR", 2 );
DEFSTATICTSCP( c1136 );
DEFSTRING( t2695, "AND", 3 );
DEFSTATICTSCP( c1134 );
DEFSTRING( t2696, "CASE", 4 );
DEFSTATICTSCP( c1132 );
DEFSTRING( t2697, "COND", 4 );
DEFSTATICTSCP( c1130 );
DEFSTRING( t2698, "MACRO", 5 );
DEFSTATICTSCP( c1127 );
DEFSTRING( t2699, "QUASIQUOTE", 10 );
DEFSTATICTSCP( c1126 );
DEFSTRING( t2700, "DEFINE", 6 );
DEFSTATICTSCP( c1124 );
DEFSTRING( t2701, "IF", 2 );
DEFSTATICTSCP( c1122 );
DEFSTRING( t2702, "SET!", 4 );
DEFSTATICTSCP( c1120 );
DEFSTRING( t2703, "QUOTE", 5 );
DEFSTATICTSCP( c1118 );
DEFSTRING( t2704, "EXPAND", 6 );
DEFSTATICTSCP( c1116 );
DEFSTRING( t2705, "LAP", 3 );
DEFSTATICTSCP( c1115 );
DEFSTRING( t2706, "EMPTYLIST", 9 );
DEFSTATICTSCP2( c1108, t2706 );
DEFSTRING( t2707, "FALSEVALUE", 10 );
DEFSTATICTSCP2( c1098, t2707 );
DEFSTRING( t2708, "VALUE", 5 );
DEFSTATICTSCP( c1094 );
DEFSTRING( t2709, "CONSTANT", 8 );
DEFSTATICTSCP( c1090 );
DEFSTRING( t2710, "USE", 3 );
DEFSTATICTSCP( c1089 );
DEFSTRING( t2711, "TRUEVALUE", 9 );
DEFSTATICTSCP2( c1085, t2711 );
DEFSTRING( t2712, "VNAME", 5 );
DEFSTATICTSCP( c1084 );
DEFSTRING( t2713, "NULL-PROPERTY", 13 );
DEFSTATICTSCP( c1080 );
DEFSTRING( t2714, "*initialize*", 12 );
DEFSTATICTSCP2( c1079, t2714 );
DEFSTRING( t2715, "CONS", 4 );
DEFSTATICTSCP( c1076 );
DEFSTRING( t2716, "$_UNDEFINED", 11 );
DEFSTATICTSCP( c1075 );
DEFSTRING( t2717, "INITIAL-SCC", 11 );
DEFSTATICTSCP( c1068 );
DEFSTRING( t2718, "SCC", 3 );
DEFSTATICTSCP( c1067 );
DEFSTRING( t2719, "EMPTY-LIST-ALPHA", 16 );
DEFSTATICTSCP( c1053 );
DEFSTRING( t2720, "FALSE-ALPHA", 11 );
DEFSTATICTSCP( c1051 );
DEFSTRING( t2721, "TRUE-ALPHA", 10 );
DEFSTATICTSCP( c1049 );
DEFSTRING( t2722, "TOP-LEVEL", 9 );
DEFSTATICTSCP( c1044 );
DEFSTATICTSCP( c1038 );
DEFSTRING( t2724, "CLOSED", 6 );
DEFSTATICTSCP( t2723 );
DEFSTRING( t2726, "SOURCE", 6 );
DEFSTATICTSCP( t2725 );
DEFSTATICTSCP( c1029 );
static void init_constants()
{
lexical_2dfree_2dvars_v = STRINGTOSYMBOL( U_TX( ADR( t2576 ) ) );
CONSTANTEXP( ADR( lexical_2dfree_2dvars_v ) );
lexical_2dbound_2dvars_v = STRINGTOSYMBOL( U_TX( ADR( t2577 ) ) );
CONSTANTEXP( ADR( lexical_2dbound_2dvars_v ) );
current_2dlambda_2did_v = STRINGTOSYMBOL( U_TX( ADR( t2578 ) ) );
CONSTANTEXP( ADR( current_2dlambda_2did_v ) );
quote_2dconstants_v = STRINGTOSYMBOL( U_TX( ADR( t2579 ) ) );
CONSTANTEXP( ADR( quote_2dconstants_v ) );
lap_2dcode_v = STRINGTOSYMBOL( U_TX( ADR( t2580 ) ) );
CONSTANTEXP( ADR( lap_2dcode_v ) );
predef_2ddefault_v = STRINGTOSYMBOL( U_TX( ADR( t2581 ) ) );
CONSTANTEXP( ADR( predef_2ddefault_v ) );
copy_2dplist_v = STRINGTOSYMBOL( U_TX( ADR( t2582 ) ) );
CONSTANTEXP( ADR( copy_2dplist_v ) );
global_2dfree_2dvars_v = STRINGTOSYMBOL( U_TX( ADR( t2583 ) ) );
CONSTANTEXP( ADR( global_2dfree_2dvars_v ) );
make_2dalpha_2dseq_v = STRINGTOSYMBOL( U_TX( ADR( t2584 ) ) );
CONSTANTEXP( ADR( make_2dalpha_2dseq_v ) );
lap_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t2585 ) ) );
CONSTANTEXP( ADR( lap_2dexp_v ) );
quote_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t2586 ) ) );
CONSTANTEXP( ADR( quote_2dexp_v ) );
set_21_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t2587 ) ) );
CONSTANTEXP( ADR( set_21_2dexp_v ) );
if_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t2588 ) ) );
CONSTANTEXP( ADR( if_2dexp_v ) );
define_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t2589 ) ) );
CONSTANTEXP( ADR( define_2dexp_v ) );
old_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2590 ) ) );
CONSTANTEXP( ADR( old_2dmacro_v ) );
quasiquote_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2591 ) ) );
CONSTANTEXP( ADR( quasiquote_2dmacro_v ) );
cond_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2592 ) ) );
CONSTANTEXP( ADR( cond_2dmacro_v ) );
case_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2593 ) ) );
CONSTANTEXP( ADR( case_2dmacro_v ) );
and_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2594 ) ) );
CONSTANTEXP( ADR( and_2dmacro_v ) );
or_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2595 ) ) );
CONSTANTEXP( ADR( or_2dmacro_v ) );
not_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2596 ) ) );
CONSTANTEXP( ADR( not_2dmacro_v ) );
begin_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2597 ) ) );
CONSTANTEXP( ADR( begin_2dmacro_v ) );
let_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2598 ) ) );
CONSTANTEXP( ADR( let_2dmacro_v ) );
let_2a_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2599 ) ) );
CONSTANTEXP( ADR( let_2a_2dmacro_v ) );
letrec_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2600 ) ) );
CONSTANTEXP( ADR( letrec_2dmacro_v ) );
do_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2601 ) ) );
CONSTANTEXP( ADR( do_2dmacro_v ) );
when_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2602 ) ) );
CONSTANTEXP( ADR( when_2dmacro_v ) );
unless_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2603 ) ) );
CONSTANTEXP( ADR( unless_2dmacro_v ) );
quote_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2604 ) ) );
CONSTANTEXP( ADR( quote_2dmacro_v ) );
lap_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2605 ) ) );
CONSTANTEXP( ADR( lap_2dmacro_v ) );
define_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2606 ) ) );
CONSTANTEXP( ADR( define_2dmacro_v ) );
define_2dmacro_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2607 ) ) );
CONSTANTEXP( ADR( define_2dmacro_2dmacro_v ) );
define_2dconstant_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2608 ) ) );
CONSTANTEXP( ADR( define_2dconstant_2dmacro_v ) );
eval_2dwhen_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2609 ) ) );
CONSTANTEXP( ADR( eval_2dwhen_2dmacro_v ) );
lambda_2dmacro_v = STRINGTOSYMBOL( U_TX( ADR( t2610 ) ) );
CONSTANTEXP( ADR( lambda_2dmacro_v ) );
lambda_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t2611 ) ) );
CONSTANTEXP( ADR( lambda_2dexp_v ) );
load_2dplist_2dlap_v = STRINGTOSYMBOL( U_TX( ADR( t2612 ) ) );
CONSTANTEXP( ADR( load_2dplist_2dlap_v ) );
read_2dtext_v = STRINGTOSYMBOL( U_TX( ADR( t2613 ) ) );
CONSTANTEXP( ADR( read_2dtext_v ) );
expand_2dforms_v = STRINGTOSYMBOL( U_TX( ADR( t2614 ) ) );
CONSTANTEXP( ADR( expand_2dforms_v ) );
analyze_2dclosures1a_v = STRINGTOSYMBOL( U_TX( ADR( t2615 ) ) );
CONSTANTEXP( ADR( analyze_2dclosures1a_v ) );
analyze_2dclosures1b_v = STRINGTOSYMBOL( U_TX( ADR( t2616 ) ) );
CONSTANTEXP( ADR( analyze_2dclosures1b_v ) );
transform_v = STRINGTOSYMBOL( U_TX( ADR( t2617 ) ) );
CONSTANTEXP( ADR( transform_v ) );
analyze_2dclosures2_v = STRINGTOSYMBOL( U_TX( ADR( t2618 ) ) );
CONSTANTEXP( ADR( analyze_2dclosures2_v ) );
walk_2d_24tree_v = STRINGTOSYMBOL( U_TX( ADR( t2619 ) ) );
CONSTANTEXP( ADR( walk_2d_24tree_v ) );
print_2dlambda_2dinfo_v = STRINGTOSYMBOL( U_TX( ADR( t2620 ) ) );
CONSTANTEXP( ADR( print_2dlambda_2dinfo_v ) );
generate_2dcode_v = STRINGTOSYMBOL( U_TX( ADR( t2621 ) ) );
CONSTANTEXP( ADR( generate_2dcode_v ) );
c2377 = STRINGTOSYMBOL( U_TX( ADR( t2623 ) ) );
CONSTANTEXP( ADR( c2377 ) );
c2346 = STRINGTOSYMBOL( U_TX( ADR( t2627 ) ) );
CONSTANTEXP( ADR( c2346 ) );
c2305 = STRINGTOSYMBOL( U_TX( ADR( t2630 ) ) );
CONSTANTEXP( ADR( c2305 ) );
c2211 = STRINGTOSYMBOL( U_TX( ADR( t2631 ) ) );
CONSTANTEXP( ADR( c2211 ) );
c2066 = STRINGTOSYMBOL( U_TX( ADR( t2632 ) ) );
CONSTANTEXP( ADR( c2066 ) );
c2063 = STRINGTOSYMBOL( U_TX( ADR( t2633 ) ) );
CONSTANTEXP( ADR( c2063 ) );
c1860 = EMPTYLIST;
t2639 = STRINGTOSYMBOL( U_TX( ADR( t2640 ) ) );
c1860 = CONS( t2639, c1860 );
t2641 = STRINGTOSYMBOL( U_TX( ADR( t2642 ) ) );
c1860 = CONS( t2641, c1860 );
t2643 = STRINGTOSYMBOL( U_TX( ADR( t2644 ) ) );
c1860 = CONS( t2643, c1860 );
CONSTANTEXP( ADR( c1860 ) );
c1829 = STRINGTOSYMBOL( U_TX( ADR( t2645 ) ) );
CONSTANTEXP( ADR( c1829 ) );
c1768 = STRINGTOSYMBOL( U_TX( ADR( t2646 ) ) );
CONSTANTEXP( ADR( c1768 ) );
c1667 = STRINGTOSYMBOL( U_TX( ADR( t2651 ) ) );
CONSTANTEXP( ADR( c1667 ) );
c1633 = STRINGTOSYMBOL( U_TX( ADR( t2652 ) ) );
CONSTANTEXP( ADR( c1633 ) );
c1558 = STRINGTOSYMBOL( U_TX( ADR( t2655 ) ) );
CONSTANTEXP( ADR( c1558 ) );
c1473 = STRINGTOSYMBOL( U_TX( ADR( t2658 ) ) );
CONSTANTEXP( ADR( c1473 ) );
c1448 = EMPTYLIST;
t2660 = STRINGTOSYMBOL( U_TX( ADR( t2661 ) ) );
c1448 = CONS( t2660, c1448 );
t2662 = STRINGTOSYMBOL( U_TX( ADR( t2663 ) ) );
c1448 = CONS( t2662, c1448 );
CONSTANTEXP( ADR( c1448 ) );
c1393 = STRINGTOSYMBOL( U_TX( ADR( t2664 ) ) );
CONSTANTEXP( ADR( c1393 ) );
c1333 = STRINGTOSYMBOL( U_TX( ADR( t2667 ) ) );
CONSTANTEXP( ADR( c1333 ) );
c1326 = STRINGTOSYMBOL( U_TX( ADR( t2668 ) ) );
CONSTANTEXP( ADR( c1326 ) );
c1309 = STRINGTOSYMBOL( U_TX( ADR( t2669 ) ) );
CONSTANTEXP( ADR( c1309 ) );
c1305 = STRINGTOSYMBOL( U_TX( ADR( t2670 ) ) );
CONSTANTEXP( ADR( c1305 ) );
c1236 = EMPTYLIST;
c1236 = CONS( c1333, c1236 );
t2672 = STRINGTOSYMBOL( U_TX( ADR( t2673 ) ) );
c1236 = CONS( t2672, c1236 );
c1236 = CONS( c1309, c1236 );
c1236 = CONS( c1305, c1236 );
CONSTANTEXP( ADR( c1236 ) );
c1200 = STRINGTOSYMBOL( U_TX( ADR( t2676 ) ) );
CONSTANTEXP( ADR( c1200 ) );
c1167 = STRINGTOSYMBOL( U_TX( ADR( t2678 ) ) );
CONSTANTEXP( ADR( c1167 ) );
c1165 = STRINGTOSYMBOL( U_TX( ADR( t2679 ) ) );
CONSTANTEXP( ADR( c1165 ) );
c1163 = STRINGTOSYMBOL( U_TX( ADR( t2680 ) ) );
CONSTANTEXP( ADR( c1163 ) );
c1161 = STRINGTOSYMBOL( U_TX( ADR( t2681 ) ) );
CONSTANTEXP( ADR( c1161 ) );
c1159 = STRINGTOSYMBOL( U_TX( ADR( t2682 ) ) );
CONSTANTEXP( ADR( c1159 ) );
c1158 = STRINGTOSYMBOL( U_TX( ADR( t2683 ) ) );
CONSTANTEXP( ADR( c1158 ) );
c1157 = STRINGTOSYMBOL( U_TX( ADR( t2684 ) ) );
CONSTANTEXP( ADR( c1157 ) );
c1156 = STRINGTOSYMBOL( U_TX( ADR( t2685 ) ) );
CONSTANTEXP( ADR( c1156 ) );
c1152 = STRINGTOSYMBOL( U_TX( ADR( t2686 ) ) );
CONSTANTEXP( ADR( c1152 ) );
c1150 = STRINGTOSYMBOL( U_TX( ADR( t2687 ) ) );
CONSTANTEXP( ADR( c1150 ) );
c1148 = STRINGTOSYMBOL( U_TX( ADR( t2688 ) ) );
CONSTANTEXP( ADR( c1148 ) );
c1146 = STRINGTOSYMBOL( U_TX( ADR( t2689 ) ) );
CONSTANTEXP( ADR( c1146 ) );
c1144 = STRINGTOSYMBOL( U_TX( ADR( t2690 ) ) );
CONSTANTEXP( ADR( c1144 ) );
c1142 = STRINGTOSYMBOL( U_TX( ADR( t2691 ) ) );
CONSTANTEXP( ADR( c1142 ) );
c1140 = STRINGTOSYMBOL( U_TX( ADR( t2692 ) ) );
CONSTANTEXP( ADR( c1140 ) );
c1138 = STRINGTOSYMBOL( U_TX( ADR( t2693 ) ) );
CONSTANTEXP( ADR( c1138 ) );
c1136 = STRINGTOSYMBOL( U_TX( ADR( t2694 ) ) );
CONSTANTEXP( ADR( c1136 ) );
c1134 = STRINGTOSYMBOL( U_TX( ADR( t2695 ) ) );
CONSTANTEXP( ADR( c1134 ) );
c1132 = STRINGTOSYMBOL( U_TX( ADR( t2696 ) ) );
CONSTANTEXP( ADR( c1132 ) );
c1130 = STRINGTOSYMBOL( U_TX( ADR( t2697 ) ) );
CONSTANTEXP( ADR( c1130 ) );
c1127 = STRINGTOSYMBOL( U_TX( ADR( t2698 ) ) );
CONSTANTEXP( ADR( c1127 ) );
c1126 = STRINGTOSYMBOL( U_TX( ADR( t2699 ) ) );
CONSTANTEXP( ADR( c1126 ) );
c1124 = STRINGTOSYMBOL( U_TX( ADR( t2700 ) ) );
CONSTANTEXP( ADR( c1124 ) );
c1122 = STRINGTOSYMBOL( U_TX( ADR( t2701 ) ) );
CONSTANTEXP( ADR( c1122 ) );
c1120 = STRINGTOSYMBOL( U_TX( ADR( t2702 ) ) );
CONSTANTEXP( ADR( c1120 ) );
c1118 = STRINGTOSYMBOL( U_TX( ADR( t2703 ) ) );
CONSTANTEXP( ADR( c1118 ) );
c1116 = STRINGTOSYMBOL( U_TX( ADR( t2704 ) ) );
CONSTANTEXP( ADR( c1116 ) );
c1115 = STRINGTOSYMBOL( U_TX( ADR( t2705 ) ) );
CONSTANTEXP( ADR( c1115 ) );
c1094 = STRINGTOSYMBOL( U_TX( ADR( t2708 ) ) );
CONSTANTEXP( ADR( c1094 ) );
c1090 = STRINGTOSYMBOL( U_TX( ADR( t2709 ) ) );
CONSTANTEXP( ADR( c1090 ) );
c1089 = STRINGTOSYMBOL( U_TX( ADR( t2710 ) ) );
CONSTANTEXP( ADR( c1089 ) );
c1084 = STRINGTOSYMBOL( U_TX( ADR( t2712 ) ) );
CONSTANTEXP( ADR( c1084 ) );
c1080 = STRINGTOSYMBOL( U_TX( ADR( t2713 ) ) );
CONSTANTEXP( ADR( c1080 ) );
c1076 = STRINGTOSYMBOL( U_TX( ADR( t2715 ) ) );
CONSTANTEXP( ADR( c1076 ) );
c1075 = STRINGTOSYMBOL( U_TX( ADR( t2716 ) ) );
CONSTANTEXP( ADR( c1075 ) );
c1068 = STRINGTOSYMBOL( U_TX( ADR( t2717 ) ) );
CONSTANTEXP( ADR( c1068 ) );
c1067 = STRINGTOSYMBOL( U_TX( ADR( t2718 ) ) );
CONSTANTEXP( ADR( c1067 ) );
c1053 = STRINGTOSYMBOL( U_TX( ADR( t2719 ) ) );
CONSTANTEXP( ADR( c1053 ) );
c1051 = STRINGTOSYMBOL( U_TX( ADR( t2720 ) ) );
CONSTANTEXP( ADR( c1051 ) );
c1049 = STRINGTOSYMBOL( U_TX( ADR( t2721 ) ) );
CONSTANTEXP( ADR( c1049 ) );
c1044 = STRINGTOSYMBOL( U_TX( ADR( t2722 ) ) );
CONSTANTEXP( ADR( c1044 ) );
c1038 = EMPTYLIST;
c1038 = CONS( c1667, c1038 );
c1038 = CONS( c1167, c1038 );
c1038 = CONS( transform_v, c1038 );
t2723 = STRINGTOSYMBOL( U_TX( ADR( t2724 ) ) );
c1038 = CONS( t2723, c1038 );
c1038 = CONS( c1116, c1038 );
c1038 = CONS( c1127, c1038 );
t2725 = STRINGTOSYMBOL( U_TX( ADR( t2726 ) ) );
c1038 = CONS( t2725, c1038 );
CONSTANTEXP( ADR( c1038 ) );
c1029 = EMPTYLIST;
c1029 = CONS( EMPTYSTRING, c1029 );
CONSTANTEXP( ADR( c1029 ) );
}
DEFTSCP( compile_sc_2dinput_v );
DEFSTRING( t2727, "SC-INPUT", 8 );
DEFTSCP( compile_sc_2dsplice_v );
DEFSTRING( t2728, "SC-SPLICE", 9 );
DEFTSCP( compile_sc_2dsource_2dname_v );
DEFSTRING( t2729, "SC-SOURCE-NAME", 14 );
DEFTSCP( compile_sc_2dinclude_2ddirs_v );
DEFSTRING( t2730, "SC-INCLUDE-DIRS", 15 );
DEFTSCP( compile_sc_2dicode_v );
DEFSTRING( t2731, "SC-ICODE", 8 );
DEFTSCP( compile_sc_2derror_v );
DEFSTRING( t2732, "SC-ERROR", 8 );
DEFTSCP( compile_sc_2derror_2dcnt_v );
DEFSTRING( t2733, "SC-ERROR-CNT", 12 );
DEFTSCP( compile_sc_2dlog_v );
DEFSTRING( t2734, "SC-LOG", 6 );
DEFTSCP( compile_sc_2dstack_2dtrace_v );
DEFSTRING( t2735, "SC-STACK-TRACE", 14 );
DEFTSCP( compile_sc_2dinterpreter_v );
DEFSTRING( t2736, "SC-INTERPRETER", 14 );
DEFTSCP( compile_sc_2dlog_2ddefault_v );
DEFSTRING( t2737, "SC-LOG-DEFAULT", 14 );
DEFTSCP( compile_module_2dname_v );
DEFSTRING( t2738, "MODULE-NAME", 11 );
EXTERNTSCP( sc_emptystring );
DEFTSCP( compile_e_2dupcase_6e1220a4_v );
DEFSTRING( t2739, "MODULE-NAME-UPCASE", 18 );
DEFTSCP( compile_main_2dprogram_2dname_v );
DEFSTRING( t2740, "MAIN-PROGRAM-NAME", 17 );
DEFTSCP( compile_heap_2dsize_v );
DEFSTRING( t2741, "HEAP-SIZE", 9 );
DEFTSCP( compile_ine_2dname_3e60377e_v );
DEFSTRING( t2742, "CURRENT-DEFINE-NAME", 19 );
DEFTSCP( compile_top_2dlevel_2dsymbols_v );
DEFSTRING( t2743, "TOP-LEVEL-SYMBOLS", 17 );
DEFTSCP( compile_with_2dmodules_v );
DEFSTRING( t2744, "WITH-MODULES", 12 );
DEFTSCP( compile_restore_2dplist_v );
DEFSTRING( t2745, "RESTORE-PLIST", 13 );
DEFTSCP( compile_true_2dalpha_v );
DEFSTRING( t2746, "TRUE-ALPHA", 10 );
DEFTSCP( compile_false_2dalpha_v );
DEFSTRING( t2747, "FALSE-ALPHA", 11 );
DEFTSCP( compile_empty_2dlist_2dalpha_v );
DEFSTRING( t2748, "EMPTY-LIST-ALPHA", 16 );
DEFTSCP( compile_cons_2dalpha_v );
DEFSTRING( t2749, "CONS-ALPHA", 10 );
DEFTSCP( compile_undefined_2dalpha_v );
DEFSTRING( t2750, "UNDEFINED-ALPHA", 15 );
DEFTSCP( compile_initialize_2dcompile_v );
DEFSTRING( t2751, "INITIALIZE-COMPILE", 18 );
EXTERNTSCPP( compile_create_2dplist );
EXTERNTSCP( compile_create_2dplist_v );
DEFSTRING( t2758, "compile_l1072 [inside INITIALIZE-COMPILE]", 41 );
TSCP compile_l1072( c2757 )
TSCP c2757;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2758 ) ) );
X1 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2757, 0 );
X2 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2757, 1 );
SETGENTL( SYMBOL_VALUE( global_2dfree_2dvars_v ),
DISPLAY( 1 ) );
SETGENTL( SYMBOL_VALUE( make_2dalpha_2dseq_v ),
DISPLAY( 0 ) );
X4 = SYMBOL_VALUE( copy_2dplist_v );
X4 = UNKNOWNCALL( X4, 2 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( c1068,
c1067,
PROCEDURE_CLOSURE( X4 ) );
DISPLAY( 1 ) = X1;
DISPLAY( 0 ) = X2;
POPSTACKTRACE( X3 );
}
EXTERNTSCPP( expform_bound );
EXTERNTSCP( expform_bound_v );
TSCP compile_initialize_2dcompile( )
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2751 ) ) );
SETGENTL( SYMBOL_VALUE( lexical_2dfree_2dvars_v ),
EMPTYLIST );
SETGENTL( SYMBOL_VALUE( lexical_2dbound_2dvars_v ),
EMPTYLIST );
SETGENTL( SYMBOL_VALUE( current_2dlambda_2did_v ), c1044 );
SETGENTL( SYMBOL_VALUE( quote_2dconstants_v ), EMPTYLIST );
SETGENTL( SYMBOL_VALUE( lap_2dcode_v ), EMPTYLIST );
compile_sc_2dlog_v = EMPTYLIST;
compile_sc_2dstack_2dtrace_v = TRUEVALUE;
compile_sc_2dinterpreter_v = FALSEVALUE;
if ( FALSE( compile_restore_2dplist_v ) ) goto L2753;
X1 = compile_restore_2dplist_v;
X1 = UNKNOWNCALL( X1, 0 );
VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) );
goto L2754;
L2753:
X1 = SYMBOL_VALUE( predef_2ddefault_v );
compile_create_2dplist( X1 );
X1 = SYMBOL_VALUE( copy_2dplist_v );
X1 = UNKNOWNCALL( X1, 2 );
VIA( PROCEDURE_CODE( X1 ) )( c1067,
c1068,
PROCEDURE_CLOSURE( X1 ) );
DISPLAY( 0 ) = SYMBOL_VALUE( make_2dalpha_2dseq_v );
DISPLAY( 1 ) = SYMBOL_VALUE( global_2dfree_2dvars_v );
compile_restore_2dplist_v = MAKEPROCEDURE( 0,
0,
compile_l1072,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 1 ),
DISPLAY( 0 ) ) );
L2754:
compile_sc_2dinput_v = EMPTYLIST;
compile_sc_2dsplice_v = EMPTYLIST;
compile_sc_2dinclude_2ddirs_v = c1029;
compile_sc_2dicode_v = EMPTYLIST;
compile_sc_2derror_v = EMPTYLIST;
compile_sc_2derror_2dcnt_v = _TSCP( 0 );
compile_module_2dname_v = sc_emptystring;
compile_main_2dprogram_2dname_v = EMPTYLIST;
compile_heap_2dsize_v = _TSCP( 0 );
compile_ine_2dname_3e60377e_v = c1044;
compile_top_2dlevel_2dsymbols_v = TRUEVALUE;
compile_with_2dmodules_v = EMPTYLIST;
compile_undefined_2dalpha_v = expform_bound( c1075 );
compile_cons_2dalpha_v = expform_bound( c1076 );
SDVAL = SET( compile_module_2dname_v, sc_emptystring );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( compile_create_2dplist_v );
DEFSTRING( t2760, "CREATE-PLIST", 12 );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt5_open_2dinput_2dfile );
EXTERNTSCP( scrt5_open_2dinput_2dfile_v );
EXTERNTSCPP( scrt6_eof_2dobject_3f );
EXTERNTSCP( scrt6_eof_2dobject_3f_v );
EXTERNTSCPP( compile_report_2derror );
EXTERNTSCP( compile_report_2derror_v );
EXTERNTSCPP( scrt5_close_2dport );
EXTERNTSCP( scrt5_close_2dport_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt2_max_2dtwo );
EXTERNTSCP( scrt2_max_2dtwo_v );
TSCP compile_create_2dplist( p1078 )
TSCP p1078;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2760 ) ) );
compile_module_2dname_v = c1079;
X1 = SYMBOL_VALUE( copy_2dplist_v );
X1 = UNKNOWNCALL( X1, 2 );
VIA( PROCEDURE_CODE( X1 ) )( c1080,
c1067,
PROCEDURE_CLOSURE( X1 ) );
SETGENTL( SYMBOL_VALUE( global_2dfree_2dvars_v ),
EMPTYLIST );
SETGENTL( SYMBOL_VALUE( make_2dalpha_2dseq_v ),
_TSCP( 0 ) );
plist_put( c1049, c1084, c1085 );
plist_put( c1049, c1089, c1090 );
plist_put( c1049, c1094, TRUEVALUE );
plist_put( c1051, c1084, c1098 );
plist_put( c1051, c1089, c1090 );
plist_put( c1051, c1094, FALSEVALUE );
plist_put( c1053, c1084, c1108 );
plist_put( c1053, c1089, c1090 );
plist_put( c1053, c1094, EMPTYLIST );
X1 = SYMBOL_VALUE( lap_2dexp_v );
plist_put( c1115, c1116, X1 );
X1 = SYMBOL_VALUE( quote_2dexp_v );
plist_put( c1118, c1116, X1 );
X1 = SYMBOL_VALUE( set_21_2dexp_v );
plist_put( c1120, c1116, X1 );
X1 = SYMBOL_VALUE( if_2dexp_v );
plist_put( c1122, c1116, X1 );
X1 = SYMBOL_VALUE( define_2dexp_v );
plist_put( c1124, c1116, X1 );
X3 = SYMBOL_VALUE( quasiquote_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1126, c1127, X1 );
X3 = SYMBOL_VALUE( cond_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1130, c1127, X1 );
X3 = SYMBOL_VALUE( case_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1132, c1127, X1 );
X3 = SYMBOL_VALUE( and_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1134, c1127, X1 );
X3 = SYMBOL_VALUE( or_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1136, c1127, X1 );
X3 = SYMBOL_VALUE( not_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1138, c1127, X1 );
X3 = SYMBOL_VALUE( begin_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1140, c1127, X1 );
X3 = SYMBOL_VALUE( let_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1142, c1127, X1 );
X3 = SYMBOL_VALUE( let_2a_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1144, c1127, X1 );
X3 = SYMBOL_VALUE( letrec_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1146, c1127, X1 );
X3 = SYMBOL_VALUE( do_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1148, c1127, X1 );
X3 = SYMBOL_VALUE( when_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1150, c1127, X1 );
X3 = SYMBOL_VALUE( unless_2dmacro_v );
X2 = SYMBOL_VALUE( old_2dmacro_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( X3,
PROCEDURE_CLOSURE( X2 ) );
plist_put( c1152, c1127, X1 );
X1 = SYMBOL_VALUE( quote_2dmacro_v );
plist_put( c1118, c1127, X1 );
X1 = SYMBOL_VALUE( lap_2dmacro_v );
plist_put( c1115, c1127, X1 );
X1 = SYMBOL_VALUE( quote_2dmacro_v );
plist_put( c1156, c1127, X1 );
X1 = SYMBOL_VALUE( quote_2dmacro_v );
plist_put( c1157, c1127, X1 );
X1 = SYMBOL_VALUE( quote_2dmacro_v );
plist_put( c1158, c1127, X1 );
X1 = SYMBOL_VALUE( quote_2dmacro_v );
plist_put( c1159, c1127, X1 );
X1 = SYMBOL_VALUE( define_2dmacro_v );
plist_put( c1124, c1127, X1 );
X1 = SYMBOL_VALUE( define_2dmacro_2dmacro_v );
plist_put( c1161, c1127, X1 );
X1 = SYMBOL_VALUE( define_2dconstant_2dmacro_v );
plist_put( c1163, c1127, X1 );
X1 = SYMBOL_VALUE( eval_2dwhen_2dmacro_v );
plist_put( c1165, c1127, X1 );
X1 = SYMBOL_VALUE( lambda_2dmacro_v );
plist_put( c1167, c1127, X1 );
X1 = SYMBOL_VALUE( lambda_2dexp_v );
plist_put( c1167, c1116, X1 );
X1 = SYMBOL_VALUE( load_2dplist_2dlap_v );
X1 = UNKNOWNCALL( X1, 0 );
VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) );
X2 = scrt5_open_2dinput_2dfile( p1078 );
X1 = sc_cons( X2, EMPTYLIST );
compile_sc_2dinput_v = X1;
X2 = SYMBOL_VALUE( read_2dtext_v );
X2 = UNKNOWNCALL( X2, 0 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( PROCEDURE_CLOSURE( X2 ) );
if ( TRUE( scrt6_eof_2dobject_3f( X1 ) ) ) goto L2764;
compile_report_2derror( c1176, CONS( X1, EMPTYLIST ) );
L2764:
X2 = compile_sc_2dinput_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2767;
scrt1__24__car_2derror( X2 );
L2767:
X1 = PAIR_CAR( X2 );
scrt5_close_2dport( X1 );
compile_sc_2dinput_v = EMPTYLIST;
X1 = SYMBOL_VALUE( make_2dalpha_2dseq_v );
if ( BITAND( BITOR( INT( X1 ),
INT( _TSCP( 4000 ) ) ),
3 ) ) goto L2770;
if ( LTE( INT( X1 ), INT( _TSCP( 4000 ) ) ) ) goto L2772;
X2 = X1;
goto L2771;
L2772:
X2 = _TSCP( 4000 );
goto L2771;
L2770:
X2 = scrt2_max_2dtwo( X1, _TSCP( 4000 ) );
L2771:
SETGENTL( SYMBOL_VALUE( make_2dalpha_2dseq_v ), X2 );
compile_undefined_2dalpha_v = expform_bound( c1075 );
compile_cons_2dalpha_v = expform_bound( c1076 );
POPSTACKTRACE( SET( compile_module_2dname_v, sc_emptystring ) );
}
DEFTSCP( compile_sc_v );
DEFSTRING( t2774, "SC", 2 );
EXTERNTSCPP( compile_string_2ddowncase );
EXTERNTSCP( compile_string_2ddowncase_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( scrt5_output_2dport_3f );
EXTERNTSCP( scrt5_output_2dport_3f_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( scrt5_open_2doutput_2dfile );
EXTERNTSCP( scrt5_open_2doutput_2dfile_v );
EXTERNTSCPP( compile_docompile );
EXTERNTSCP( compile_docompile_v );
EXTERNTSCPP( compile_close_2dsc_2dfiles );
EXTERNTSCP( compile_close_2dsc_2dfiles_v );
TSCP compile_sc( i1191, o1192 )
TSCP i1191, o1192;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2774 ) ) );
i1191 = CONS( i1191, EMPTYLIST );
o1192 = CONS( o1192, EMPTYLIST );
compile_initialize_2dcompile( );
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( i1191 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( i1191 ) ),
SYMBOLTAG ) ) ) ) goto L2776;
X3 = PAIR_CAR( i1191 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) ) goto L2779;
scrt6_error( c1200, c1201, CONS( X3, EMPTYLIST ) );
L2779:
X2 = SYMBOL_NAME( X3 );
X1 = compile_string_2ddowncase( X2 );
SETGEN( PAIR_CAR( i1191 ), X1 );
L2776:
X1 = CONS( c1202, EMPTYLIST );
compile_sc_2dsource_2dname_v = scrt3_string_2dappend( CONS( PAIR_CAR( i1191 ),
X1 ) );
X2 = scrt5_open_2dinput_2dfile( compile_sc_2dsource_2dname_v );
X1 = sc_cons( X2, EMPTYLIST );
compile_sc_2dinput_v = X1;
X1 = PAIR_CAR( o1192 );
if ( FALSE( X1 ) ) goto L2798;
X3 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2789;
scrt1__24__car_2derror( X3 );
L2789:
X2 = PAIR_CAR( X3 );
if ( FALSE( scrt5_output_2dport_3f( X2 ) ) ) goto L2798;
X2 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2793;
scrt1__24__car_2derror( X2 );
L2793:
compile_sc_2dicode_v = PAIR_CAR( X2 );
X3 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2796;
scrt1__24__cdr_2derror( X3 );
L2796:
X2 = PAIR_CDR( X3 );
SETGEN( PAIR_CAR( o1192 ), X2 );
goto L2799;
L2798:
X2 = BOOLEAN( EQ( UNSIGNED( PAIR_CAR( o1192 ) ),
UNSIGNED( EMPTYLIST ) ) );
if ( TRUE( X2 ) ) goto L2804;
X4 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2809;
scrt1__24__car_2derror( X4 );
L2809:
X3 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2804;
X4 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2815;
scrt1__24__car_2derror( X4 );
L2815:
X3 = PAIR_CAR( X4 );
if ( TRUE( scrt1_memq( X3, c1236 ) ) ) goto L2804;
X5 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2818;
scrt1__24__car_2derror( X5 );
L2818:
X4 = PAIR_CAR( X5 );
X3 = BOOLEAN( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) );
if ( TRUE( X3 ) ) goto L2824;
X5 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2828;
scrt1__24__car_2derror( X5 );
L2828:
X4 = PAIR_CAR( X5 );
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), STRINGTAG ) ) )
) goto L2799;
L2824:
X3 = CONS( c1272, EMPTYLIST );
X6 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2834;
scrt1__24__car_2derror( X6 );
L2834:
X5 = PAIR_CAR( X6 );
if ( NOT( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), SYMBOLTAG ) ) )
) goto L2831;
X7 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2837;
scrt1__24__car_2derror( X7 );
L2837:
X6 = PAIR_CAR( X7 );
if ( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), SYMBOLTAG ) ) ) goto L2840;
scrt6_error( c1200, c1201, CONS( X6, EMPTYLIST ) );
L2840:
X5 = SYMBOL_NAME( X6 );
X4 = compile_string_2ddowncase( X5 );
goto L2832;
L2831:
X5 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2843;
scrt1__24__car_2derror( X5 );
L2843:
X4 = PAIR_CAR( X5 );
L2832:
X2 = scrt3_string_2dappend( CONS( X4, X3 ) );
compile_sc_2dicode_v = scrt5_open_2doutput_2dfile( X2 );
X3 = PAIR_CAR( o1192 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2846;
scrt1__24__cdr_2derror( X3 );
L2846:
X2 = PAIR_CDR( X3 );
SETGEN( PAIR_CAR( o1192 ), X2 );
goto L2799;
L2804:
X3 = CONS( c1272, EMPTYLIST );
X2 = scrt3_string_2dappend( CONS( PAIR_CAR( i1191 ), X3 ) );
compile_sc_2dicode_v = scrt5_open_2doutput_2dfile( X2 );
L2799:
X1 = PAIR_CAR( o1192 );
X2 = EMPTYLIST;
X3 = EMPTYLIST;
L2849:
X2 = CONS( X2, EMPTYLIST );
X1 = CONS( X1, EMPTYLIST );
if ( NEQ( UNSIGNED( PAIR_CAR( X1 ) ),
UNSIGNED( EMPTYLIST ) ) ) goto L2850;
compile_docompile( );
goto L2851;
L2850:
X5 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2854;
scrt1__24__car_2derror( X5 );
L2854:
X4 = PAIR_CAR( X5 );
SETGEN( PAIR_CAR( X2 ), X4 );
if ( FALSE( scrt1_memq( PAIR_CAR( X2 ), X3 ) ) ) goto L2856;
compile_report_2derror( c1386,
CONS( PAIR_CAR( X2 ), EMPTYLIST ) );
goto L2876;
L2856:
if ( NEQ( UNSIGNED( PAIR_CAR( X2 ) ),
UNSIGNED( c1305 ) ) ) goto L2858;
compile_sc_2derror_v = TRUEVALUE;
goto L2876;
L2858:
if ( NEQ( UNSIGNED( PAIR_CAR( X2 ) ),
UNSIGNED( c1309 ) ) ) goto L2860;
compile_sc_2dlog_v = compile_sc_2dlog_2ddefault_v;
goto L2876;
L2860:
X4 = BOOLEAN( EQ( TSCPTAG( PAIR_CAR( X2 ) ),
PAIRTAG ) );
if ( FALSE( X4 ) ) goto L2875;
X6 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2869;
scrt1__24__car_2derror( X6 );
L2869:
X5 = PAIR_CAR( X6 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1309 ) ) ) goto L2875;
X5 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2873;
scrt1__24__cdr_2derror( X5 );
L2873:
compile_sc_2dlog_v = PAIR_CDR( X5 );
X5 = c1309;
SETGEN( PAIR_CAR( X2 ), X5 );
goto L2876;
L2875:
if ( NEQ( UNSIGNED( PAIR_CAR( X2 ) ),
UNSIGNED( c1326 ) ) ) goto L2877;
compile_sc_2dstack_2dtrace_v = FALSEVALUE;
goto L2876;
L2877:
X5 = BOOLEAN( EQ( UNSIGNED( PAIR_CAR( X2 ) ),
UNSIGNED( c1333 ) ) );
if ( FALSE( X5 ) ) goto L2918;
X6 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2884;
scrt1__24__cdr_2derror( X6 );
L2884:
if ( FALSE( PAIR_CDR( X6 ) ) ) goto L2918;
X8 = CONS( c1202, EMPTYLIST );
X11 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2893;
scrt1__24__cdr_2derror( X11 );
L2893:
X12 = PAIR_CDR( X11 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2896;
scrt1__24__car_2derror( X12 );
L2896:
X10 = PAIR_CAR( X12 );
if ( NOT( AND( EQ( TSCPTAG( X10 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X10 ), SYMBOLTAG ) ) )
) goto L2889;
X12 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2900;
scrt1__24__cdr_2derror( X12 );
L2900:
X13 = PAIR_CDR( X12 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L2903;
scrt1__24__car_2derror( X13 );
L2903:
X11 = PAIR_CAR( X13 );
if ( AND( EQ( TSCPTAG( X11 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X11 ), SYMBOLTAG ) )
) goto L2906;
scrt6_error( c1200,
c1201, CONS( X11, EMPTYLIST ) );
L2906:
X10 = SYMBOL_NAME( X11 );
X9 = compile_string_2ddowncase( X10 );
goto L2890;
L2889:
X10 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L2910;
scrt1__24__cdr_2derror( X10 );
L2910:
X11 = PAIR_CDR( X10 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2913;
scrt1__24__car_2derror( X11 );
L2913:
X9 = PAIR_CAR( X11 );
L2890:
X7 = scrt3_string_2dappend( CONS( X9, X8 ) );
compile_create_2dplist( X7 );
X8 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2916;
scrt1__24__cdr_2derror( X8 );
L2916:
X7 = PAIR_CDR( X8 );
SETGEN( PAIR_CAR( X1 ), X7 );
goto L2876;
L2918:
compile_report_2derror( c1339,
CONS( PAIR_CAR( X2 ), EMPTYLIST ) );
L2876:
X5 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2920;
scrt1__24__cdr_2derror( X5 );
L2920:
X4 = PAIR_CDR( X5 );
X3 = sc_cons( PAIR_CAR( X2 ), X3 );
X2 = PAIR_CAR( X2 );
X1 = X4;
goto L2849;
L2851:
compile_close_2dsc_2dfiles( );
POPSTACKTRACE( c1393 );
}
DEFTSCP( compile_close_2dsc_2dfiles_v );
DEFSTRING( t2922, "CLOSE-SC-FILES", 14 );
DEFSTRING( t2924, "CIFO [inside CLOSE-SC-FILES]", 28 );
EXTERNTSCPP( scrt5_current_2doutput_2dport );
EXTERNTSCP( scrt5_current_2doutput_2dport_v );
TSCP compile_c1396( f1419 )
TSCP f1419;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2924 ) ) );
if ( FALSE( f1419 ) ) goto L2926;
X1 = scrt5_current_2doutput_2dport( );
if ( EQ( UNSIGNED( f1419 ), UNSIGNED( X1 ) ) ) goto L2928;
POPSTACKTRACE( scrt5_close_2dport( f1419 ) );
L2928:
POPSTACKTRACE( FALSEVALUE );
L2926:
POPSTACKTRACE( FALSEVALUE );
}
EXTERNTSCPP( compile_c1396 );
TSCP compile_close_2dsc_2dfiles( )
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2922 ) ) );
X1 = compile_sc_2dinput_v;
X2 = X1;
L2933:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2934;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2938;
scrt1__24__car_2derror( X2 );
L2938:
X3 = PAIR_CAR( X2 );
compile_c1396( X3 );
X2 = PAIR_CDR( X2 );
goto L2933;
L2934:
compile_sc_2dinput_v = EMPTYLIST;
compile_sc_2dsplice_v = EMPTYLIST;
compile_sc_2dinclude_2ddirs_v = c1029;
compile_c1396( compile_sc_2dicode_v );
POPSTACKTRACE( SET( compile_sc_2dicode_v, EMPTYLIST ) );
}
DEFTSCP( compile_scl_v );
DEFSTRING( t2941, "SCL", 3 );
EXTERNTSCPP( scrt6_write );
EXTERNTSCP( scrt6_write_v );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
EXTERNTSCPP( scrt5_close_2doutput_2dport );
EXTERNTSCP( scrt5_close_2doutput_2dport_v );
TSCP compile_scl( e1429 )
TSCP e1429;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2941 ) ) );
X1 = c1473;
X1 = CONS( X1, EMPTYLIST );
if ( FALSE( e1429 ) ) goto L2963;
if ( EQ( TSCPTAG( e1429 ), PAIRTAG ) ) goto L2950;
scrt1__24__car_2derror( e1429 );
L2950:
X2 = PAIR_CAR( e1429 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2963;
X2 = scrt5_open_2doutput_2dfile( c1472 );
scrt6_write( c1448, CONS( X2, EMPTYLIST ) );
scrt6_newline( CONS( X2, EMPTYLIST ) );
X3 = e1429;
L2954:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2955;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2960;
scrt1__24__car_2derror( X3 );
L2960:
X4 = PAIR_CAR( X3 );
scrt6_write( X4, CONS( X2, EMPTYLIST ) );
scrt6_newline( CONS( X2, EMPTYLIST ) );
X3 = PAIR_CDR( X3 );
goto L2954;
L2955:
scrt5_close_2doutput_2dport( X2 );
goto L2965;
L2963:
if ( FALSE( e1429 ) ) goto L2965;
if ( EQ( TSCPTAG( e1429 ), PAIRTAG ) ) goto L2968;
scrt1__24__car_2derror( e1429 );
L2968:
X2 = PAIR_CAR( e1429 );
SETGEN( PAIR_CAR( X1 ), X2 );
L2965:
X2 = CONS( c1309, EMPTYLIST );
POPSTACKTRACE( compile_sc( PAIR_CAR( X1 ),
CONS( scrt5_current_2doutput_2dport( ),
X2 ) ) );
}
DEFTSCP( compile_log_3f_v );
DEFSTRING( t2970, "LOG?", 4 );
TSCP compile_log_3f( e1476 )
TSCP e1476;
{
PUSHSTACKTRACE( U_TX( ADR( t2970 ) ) );
POPSTACKTRACE( scrt1_memq( e1476, compile_sc_2dlog_v ) );
}
DEFTSCP( compile_docompile_v );
DEFSTRING( t2972, "DOCOMPILE", 9 );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCPP( compile_pp_24t_2dlist );
EXTERNTSCP( compile_pp_24t_2dlist_v );
DEFSTRING( t3042, "compile_l1616 [inside DOCOMPILE]", 32 );
TSCP compile_l1616( l1617, c3041 )
TSCP l1617, c3041;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3042 ) ) );
if ( NEQ( TSCPTAG( l1617 ), PAIRTAG ) ) goto L3044;
X1 = PAIR_CAR( l1617 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1633 ) ) ) goto L3046;
X4 = PAIR_CAR( l1617 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1633 ) ) );
if ( FALSE( X3 ) ) goto L3052;
X4 = PAIR_CDR( l1617 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3056;
scrt1__24__car_2derror( X4 );
L3056:
X2 = PAIR_CAR( X4 );
goto L3053;
L3052:
X2 = X3;
L3053:
X1 = SYMBOL_VALUE( print_2dlambda_2dinfo_v );
X1 = UNKNOWNCALL( X1, 2 );
VIA( PROCEDURE_CODE( X1 ) )( X2,
compile_sc_2dicode_v,
PROCEDURE_CLOSURE( X1 ) );
POPSTACKTRACE( scrt6_newline( CONS( compile_sc_2dicode_v,
EMPTYLIST ) ) );
L3046:
POPSTACKTRACE( FALSEVALUE );
L3044:
POPSTACKTRACE( FALSEVALUE );
}
EXTERNTSCPP( compile__2d_24tree_b5ec3baf );
EXTERNTSCP( compile__2d_24tree_b5ec3baf_v );
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
TSCP compile_docompile( )
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2972 ) ) );
X1 = EMPTYLIST;
X1 = CONS( X1, EMPTYLIST );
if ( FALSE( compile_sc_2dlog_v ) ) goto L2975;
scrt6_format( compile_sc_2dicode_v,
CONS( c1480, EMPTYLIST ) );
L2975:
X3 = SYMBOL_VALUE( expand_2dforms_v );
X3 = UNKNOWNCALL( X3, 0 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( PROCEDURE_CLOSURE( X3 ) );
SETGEN( PAIR_CAR( X1 ), X2 );
if ( FALSE( compile_log_3f( c1116 ) ) ) goto L2977;
compile_pp_24t_2dlist( PAIR_CAR( X1 ),
compile_sc_2dicode_v );
L2977:
if ( FALSE( compile_sc_2dlog_v ) ) goto L2979;
scrt6_format( compile_sc_2dicode_v,
CONS( c1483, EMPTYLIST ) );
L2979:
X2 = PAIR_CAR( X1 );
X3 = SYMBOL_VALUE( analyze_2dclosures1a_v );
X4 = X2;
L2983:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2984;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2988;
scrt1__24__car_2derror( X4 );
L2988:
X6 = PAIR_CAR( X4 );
X5 = X3;
X5 = UNKNOWNCALL( X5, 1 );
VIA( PROCEDURE_CODE( X5 ) )( X6, PROCEDURE_CLOSURE( X5 ) );
X4 = PAIR_CDR( X4 );
goto L2983;
L2984:
X2 = PAIR_CAR( X1 );
X3 = SYMBOL_VALUE( analyze_2dclosures1b_v );
X4 = X2;
L2993:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2994;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2998;
scrt1__24__car_2derror( X4 );
L2998:
X6 = PAIR_CAR( X4 );
X5 = X3;
X5 = UNKNOWNCALL( X5, 1 );
VIA( PROCEDURE_CODE( X5 ) )( X6, PROCEDURE_CLOSURE( X5 ) );
X4 = PAIR_CDR( X4 );
goto L2993;
L2994:
X3 = PAIR_CAR( X1 );
X4 = SYMBOL_VALUE( transform_v );
X5 = X3;
X6 = EMPTYLIST;
X7 = EMPTYLIST;
L3003:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L3004;
X2 = X6;
goto L3011;
L3004:
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L3007;
scrt1__24__car_2derror( X5 );
L3007:
X11 = PAIR_CAR( X5 );
X10 = X4;
X10 = UNKNOWNCALL( X10, 1 );
X9 = VIA( PROCEDURE_CODE( X10 ) )( X11,
PROCEDURE_CLOSURE( X10 ) );
X8 = sc_cons( X9, EMPTYLIST );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L3010;
X9 = PAIR_CDR( X5 );
X7 = X8;
X6 = X8;
X5 = X9;
goto L3003;
L3010:
X9 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L3015;
scrt6_error( c1558, c1559, CONS( X7, EMPTYLIST ) );
L3015:
X7 = SETGEN( PAIR_CDR( X7 ), X8 );
X5 = X9;
goto L3003;
L3011:
SETGEN( PAIR_CAR( X1 ), X2 );
if ( FALSE( compile_sc_2dlog_v ) ) goto L3017;
scrt6_format( compile_sc_2dicode_v,
CONS( c1569, EMPTYLIST ) );
L3017:
X2 = PAIR_CAR( X1 );
X3 = SYMBOL_VALUE( analyze_2dclosures2_v );
X4 = X2;
L3021:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L3022;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3026;
scrt1__24__car_2derror( X4 );
L3026:
X6 = PAIR_CAR( X4 );
X5 = X3;
X5 = UNKNOWNCALL( X5, 1 );
VIA( PROCEDURE_CODE( X5 ) )( X6, PROCEDURE_CLOSURE( X5 ) );
X4 = PAIR_CDR( X4 );
goto L3021;
L3022:
if ( FALSE( compile_log_3f( c1167 ) ) ) goto L3034;
X2 = PAIR_CAR( X1 );
X3 = X2;
L3033:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3034;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3038;
scrt1__24__car_2derror( X3 );
L3038:
X4 = PAIR_CAR( X3 );
X6 = MAKEPROCEDURE( 1, 0, compile_l1616, EMPTYLIST );
X5 = SYMBOL_VALUE( walk_2d_24tree_v );
X5 = UNKNOWNCALL( X5, 2 );
VIA( PROCEDURE_CODE( X5 ) )( X6,
X4, PROCEDURE_CLOSURE( X5 ) );
X3 = PAIR_CDR( X3 );
goto L3033;
L3034:
if ( FALSE( compile_log_3f( c1667 ) ) ) goto L3059;
compile_pp_24t_2dlist( PAIR_CAR( X1 ),
compile_sc_2dicode_v );
scrt6_newline( CONS( compile_sc_2dicode_v, EMPTYLIST ) );
X2 = SYMBOL_VALUE( quote_2dconstants_v );
compile__2d_24tree_b5ec3baf( X2, compile_sc_2dicode_v );
scrt6_newline( CONS( compile_sc_2dicode_v, EMPTYLIST ) );
L3059:
if ( FALSE( compile_sc_2dlog_v ) ) goto L3062;
scrt6_format( compile_sc_2dicode_v,
CONS( c1670, EMPTYLIST ) );
L3062:
X2 = compile_sc_2derror_2dcnt_v;
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L3066;
if ( EQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3070;
POPSTACKTRACE( FALSEVALUE );
L3066:
if ( TRUE( scrt2_zero_3f( X2 ) ) ) goto L3070;
POPSTACKTRACE( FALSEVALUE );
L3070:
X2 = SYMBOL_VALUE( generate_2dcode_v );
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( PAIR_CAR( X1 ),
PROCEDURE_CLOSURE( X2 ) ) );
}
DEFTSCP( compile_report_2derror_v );
DEFSTRING( t3073, "REPORT-ERROR", 12 );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP compile_report_2derror( m1682, l1683 )
TSCP m1682, l1683;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3073 ) ) );
if ( TRUE( compile_sc_2derror_v ) ) goto L3075;
compile_sc_2derror_v = scrt5_current_2doutput_2dport( );
L3075:
X1 = CONS( m1682, EMPTYLIST );
X1 = CONS( compile_ine_2dname_3e60377e_v, X1 );
scrt6_format( compile_sc_2derror_v,
CONS( c1684, X1 ) );
X1 = l1683;
L3078:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L3079;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3083;
scrt1__24__car_2derror( X1 );
L3083:
X2 = CONS( PAIR_CAR( X1 ), EMPTYLIST );
scrt6_format( compile_sc_2derror_v,
CONS( c1708, X2 ) );
X1 = PAIR_CDR( X1 );
goto L3078;
L3079:
scrt6_newline( CONS( compile_sc_2derror_v, EMPTYLIST ) );
X1 = compile_sc_2derror_2dcnt_v;
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X1 ) ),
3 ) ) goto L3087;
X2 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X1 ) ) );
goto L3088;
L3087:
X2 = scrt2__2b_2dtwo( _TSCP( 4 ), X1 );
L3088:
POPSTACKTRACE( SET( compile_sc_2derror_2dcnt_v, X2 ) );
}
DEFTSCP( compile_report_2dwarning_v );
DEFSTRING( t3089, "REPORT-WARNING", 14 );
TSCP compile_report_2dwarning( m1718, l1719 )
TSCP m1718, l1719;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3089 ) ) );
if ( TRUE( compile_sc_2derror_v ) ) goto L3091;
compile_sc_2derror_v = scrt5_current_2doutput_2dport( );
L3091:
X1 = CONS( m1718, EMPTYLIST );
X1 = CONS( compile_ine_2dname_3e60377e_v, X1 );
scrt6_format( compile_sc_2derror_v,
CONS( c1720, X1 ) );
X1 = l1719;
L3094:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L3095;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3099;
scrt1__24__car_2derror( X1 );
L3099:
X2 = CONS( PAIR_CAR( X1 ), EMPTYLIST );
scrt6_format( compile_sc_2derror_v,
CONS( c1708, X2 ) );
X1 = PAIR_CDR( X1 );
goto L3094;
L3095:
POPSTACKTRACE( scrt6_newline( CONS( compile_sc_2derror_v,
EMPTYLIST ) ) );
}
DEFTSCP( compile__2d_24tree_b5ec3baf_v );
DEFSTRING( t3102, "PRETTY-PRINT-$TREE", 18 );
EXTERNTSCPP( scrt6_write_2dcount );
EXTERNTSCP( scrt6_write_2dcount_v );
EXTERNTSCPP( scrt6_write_2dwidth );
EXTERNTSCP( scrt6_write_2dwidth_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( compile_bda_2dbind_8f865e9 );
EXTERNTSCP( compile_bda_2dbind_8f865e9_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
EXTERNTSCPP( compile_print_2din );
EXTERNTSCP( compile_print_2din_v );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
EXTERNTSCPP( compile_2dcount_21_4d4ecab9 );
EXTERNTSCP( compile_2dcount_21_4d4ecab9_v );
EXTERNTSCPP( scrt6_display );
EXTERNTSCP( scrt6_display_v );
TSCP compile__2d_24tree_b5ec3baf( t1745, o1746 )
TSCP t1745, o1746;
{
TSCP X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3102 ) ) );
L3103:
X3 = scrt6_write_2dcount( CONS( o1746, EMPTYLIST ) );
X4 = scrt6_write_2dwidth( CONS( o1746, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X4 ), INT( X3 ) ),
3 ) ) goto L3105;
X1 = _TSCP( IDIFFERENCE( INT( X4 ), INT( X3 ) ) );
goto L3106;
L3105:
X1 = scrt2__2d_2dtwo( X4, X3 );
L3106:
X2 = scrt6_write_2dcount( CONS( o1746, EMPTYLIST ) );
if ( NEQ( TSCPTAG( t1745 ), PAIRTAG ) ) goto L3108;
X4 = PAIR_CAR( t1745 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1768 ) ) );
goto L3109;
L3108:
X3 = FALSEVALUE;
L3109:
if ( FALSE( X3 ) ) goto L3186;
if ( NEQ( TSCPTAG( t1745 ), PAIRTAG ) ) goto L3115;
X6 = PAIR_CAR( t1745 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1768 ) ) );
goto L3116;
L3115:
X5 = FALSEVALUE;
L3116:
if ( FALSE( X5 ) ) goto L3119;
X4 = scrt1_caddr( t1745 );
goto L3120;
L3119:
X4 = X5;
L3120:
if ( NEQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3186;
X5 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1633 ) ) ) goto L3186;
if ( NEQ( TSCPTAG( t1745 ), PAIRTAG ) ) goto L3128;
X8 = PAIR_CAR( t1745 );
X7 = BOOLEAN( EQ( UNSIGNED( X8 ),
UNSIGNED( c1768 ) ) );
goto L3129;
L3128:
X7 = FALSEVALUE;
L3129:
if ( FALSE( X7 ) ) goto L3132;
X6 = scrt1_caddr( t1745 );
goto L3133;
L3132:
X6 = X7;
L3133:
if ( NEQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3135;
X8 = PAIR_CAR( X6 );
X7 = BOOLEAN( EQ( UNSIGNED( X8 ),
UNSIGNED( c1633 ) ) );
goto L3136;
L3135:
X7 = FALSEVALUE;
L3136:
if ( FALSE( X7 ) ) goto L3139;
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L3142;
scrt1__24__cdr_2derror( X6 );
L3142:
X8 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L3145;
scrt1__24__car_2derror( X8 );
L3145:
X5 = PAIR_CAR( X8 );
goto L3140;
L3139:
X5 = X7;
L3140:
X9 = plist_get( X5, c2063 );
X10 = plist_get( X5, c2066 );
if ( NEQ( TSCPTAG( t1745 ), PAIRTAG ) ) goto L3148;
X13 = PAIR_CAR( t1745 );
X12 = BOOLEAN( EQ( UNSIGNED( X13 ),
UNSIGNED( c1768 ) ) );
goto L3149;
L3148:
X12 = FALSEVALUE;
L3149:
if ( FALSE( X12 ) ) goto L3152;
X11 = scrt1_cdddr( t1745 );
goto L3153;
L3152:
X11 = X12;
L3153:
X8 = compile_bda_2dbind_8f865e9( X9, X10, X11 );
if ( NEQ( TSCPTAG( t1745 ), PAIRTAG ) ) goto L3154;
X14 = PAIR_CAR( t1745 );
X13 = BOOLEAN( EQ( UNSIGNED( X14 ),
UNSIGNED( c1768 ) ) );
goto L3155;
L3154:
X13 = FALSEVALUE;
L3155:
if ( FALSE( X13 ) ) goto L3158;
X12 = scrt1_caddr( t1745 );
goto L3159;
L3158:
X12 = X13;
L3159:
if ( NEQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3161;
X14 = PAIR_CAR( X12 );
X13 = BOOLEAN( EQ( UNSIGNED( X14 ),
UNSIGNED( c1633 ) ) );
goto L3162;
L3161:
X13 = FALSEVALUE;
L3162:
if ( FALSE( X13 ) ) goto L3165;
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L3168;
scrt1__24__cdr_2derror( X12 );
L3168:
X14 = PAIR_CDR( X12 );
if ( EQ( TSCPTAG( X14 ), PAIRTAG ) ) goto L3171;
scrt1__24__cdr_2derror( X14 );
L3171:
X11 = PAIR_CDR( X14 );
goto L3166;
L3165:
X11 = X13;
L3166:
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X10 = scrt1_append_2dtwo( X11, X12 );
X9 = scrt1_cons_2a( X10, EMPTYLIST );
X7 = CONS( scrt1_append_2dtwo( X8, X9 ), EMPTYLIST );
X7 = CONS( X5, X7 );
if ( NEQ( TSCPTAG( t1745 ), PAIRTAG ) ) goto L3173;
X9 = PAIR_CAR( t1745 );
X8 = BOOLEAN( EQ( UNSIGNED( X9 ),
UNSIGNED( c1768 ) ) );
goto L3174;
L3173:
X8 = FALSEVALUE;
L3174:
if ( FALSE( X8 ) ) goto L3177;
if ( EQ( TSCPTAG( t1745 ), PAIRTAG ) ) goto L3180;
scrt1__24__cdr_2derror( t1745 );
L3180:
X10 = PAIR_CDR( t1745 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L3183;
scrt1__24__car_2derror( X10 );
L3183:
X9 = PAIR_CAR( X10 );
goto L3178;
L3177:
X9 = X8;
L3178:
X6 = scrt1_cons_2a( c1829, CONS( X9, X7 ) );
t1745 = X6;
goto L3103;
L3186:
X3 = BOOLEAN( NEQ( TSCPTAG( t1745 ), PAIRTAG ) );
if ( TRUE( X3 ) ) goto L3191;
X4 = compile_print_2din( t1745, X1 );
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L3194;
if ( GTE( INT( X4 ), INT( _TSCP( 0 ) ) ) ) goto L3191;
goto L3199;
L3194:
if ( TRUE( scrt2__3e_3d_2dtwo( X4, _TSCP( 0 ) ) ) ) goto L3191;
L3199:
if ( EQ( TSCPTAG( t1745 ), PAIRTAG ) ) goto L3203;
scrt1__24__car_2derror( t1745 );
L3203:
X4 = PAIR_CAR( t1745 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1829 ) ) );
if ( FALSE( X3 ) ) goto L3225;
X7 = PAIR_CAR( t1745 );
X10 = PAIR_CDR( t1745 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L3212;
scrt1__24__car_2derror( X10 );
L3212:
X9 = PAIR_CAR( X10 );
X11 = scrt1_caddr( t1745 );
X10 = sc_cons( X11, EMPTYLIST );
X8 = sc_cons( X9, X10 );
X6 = sc_cons( X7, X8 );
X5 = X6;
X4 = compile_print_2din( X5, X1 );
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L3217;
if ( GTE( INT( X4 ), INT( _TSCP( 0 ) ) ) ) goto L3221;
goto L3225;
L3217:
if ( FALSE( scrt2__3e_3d_2dtwo( X4, _TSCP( 0 ) ) ) ) goto L3225;
L3221:
X3 = CONS( scrt1_caddr( t1745 ), EMPTYLIST );
X4 = PAIR_CDR( t1745 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3229;
scrt1__24__car_2derror( X4 );
L3229:
X3 = CONS( PAIR_CAR( X4 ), X3 );
X3 = CONS( PAIR_CAR( t1745 ), X3 );
scrt6_format( o1746, CONS( c1983, X3 ) );
X3 = scrt1_cdddr( t1745 );
X4 = X3;
L3234:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L3235;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3239;
scrt1__24__car_2derror( X4 );
L3239:
X5 = PAIR_CAR( X4 );
scrt6_newline( CONS( o1746, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3242;
X6 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 4 ) ) ) );
goto L3243;
L3242:
X6 = scrt2__2b_2dtwo( X2, _TSCP( 4 ) );
L3243:
compile_2dcount_21_4d4ecab9( o1746, X6 );
compile__2d_24tree_b5ec3baf( X5, o1746 );
X4 = PAIR_CDR( X4 );
goto L3234;
L3235:
POPSTACKTRACE( scrt6_format( o1746,
CONS( c1925, EMPTYLIST ) ) );
L3225:
X4 = PAIR_CAR( t1745 );
X3 = scrt1_memq( X4, c1860 );
if ( FALSE( X3 ) ) goto L3266;
X7 = PAIR_CAR( t1745 );
X10 = PAIR_CDR( t1745 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L3253;
scrt1__24__car_2derror( X10 );
L3253:
X9 = PAIR_CAR( X10 );
X8 = sc_cons( X9, EMPTYLIST );
X6 = sc_cons( X7, X8 );
X5 = X6;
X4 = compile_print_2din( X5, X1 );
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L3258;
if ( GTE( INT( X4 ), INT( _TSCP( 0 ) ) ) ) goto L3262;
goto L3266;
L3258:
if ( FALSE( scrt2__3e_3d_2dtwo( X4, _TSCP( 0 ) ) ) ) goto L3266;
L3262:
X4 = PAIR_CDR( t1745 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3270;
scrt1__24__car_2derror( X4 );
L3270:
X3 = CONS( PAIR_CAR( X4 ), EMPTYLIST );
X3 = CONS( PAIR_CAR( t1745 ), X3 );
scrt6_format( o1746, CONS( c1927, X3 ) );
X4 = PAIR_CDR( t1745 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3275;
scrt1__24__cdr_2derror( X4 );
L3275:
X3 = PAIR_CDR( X4 );
X4 = X3;
L3279:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L3280;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3284;
scrt1__24__car_2derror( X4 );
L3284:
X5 = PAIR_CAR( X4 );
scrt6_newline( CONS( o1746, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 20 ) ) ),
3 ) ) goto L3287;
X6 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 20 ) ) ) );
goto L3288;
L3287:
X6 = scrt2__2b_2dtwo( X2, _TSCP( 20 ) );
L3288:
compile_2dcount_21_4d4ecab9( o1746, X6 );
compile__2d_24tree_b5ec3baf( X5, o1746 );
X4 = PAIR_CDR( X4 );
goto L3279;
L3280:
POPSTACKTRACE( scrt6_format( o1746,
CONS( c1925, EMPTYLIST ) ) );
L3266:
scrt6_format( o1746, CONS( c1885, EMPTYLIST ) );
X3 = PAIR_CAR( t1745 );
compile__2d_24tree_b5ec3baf( X3, o1746 );
X3 = PAIR_CDR( t1745 );
L3294:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3295;
scrt6_newline( CONS( o1746, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L3298;
X4 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 8 ) ) ) );
goto L3299;
L3298:
X4 = scrt2__2b_2dtwo( X2, _TSCP( 8 ) );
L3299:
compile_2dcount_21_4d4ecab9( o1746, X4 );
X4 = PAIR_CAR( X3 );
compile__2d_24tree_b5ec3baf( X4, o1746 );
X3 = PAIR_CDR( X3 );
goto L3294;
L3295:
if ( FALSE( X3 ) ) goto L3302;
scrt6_newline( CONS( o1746, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L3305;
X4 = _TSCP( IPLUS( INT( X2 ), INT( _TSCP( 8 ) ) ) );
goto L3306;
L3305:
X4 = scrt2__2b_2dtwo( X2, _TSCP( 8 ) );
L3306:
compile_2dcount_21_4d4ecab9( o1746, X4 );
scrt6_display( c1905, CONS( o1746, EMPTYLIST ) );
compile__2d_24tree_b5ec3baf( X3, o1746 );
L3302:
POPSTACKTRACE( scrt6_format( o1746,
CONS( c1925, EMPTYLIST ) ) );
L3191:
POPSTACKTRACE( scrt6_write( t1745,
CONS( o1746, EMPTYLIST ) ) );
}
DEFTSCP( compile_bda_2dbind_8f865e9_v );
DEFSTRING( t3307, "PP$T-LAMBDA-BIND", 16 );
TSCP compile_bda_2dbind_8f865e9( r2199, o2200, v2201 )
TSCP r2199, o2200, v2201;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3307 ) ) );
if ( NEQ( UNSIGNED( r2199 ),
UNSIGNED( EMPTYLIST ) ) ) goto L3309;
if ( FALSE( o2200 ) ) goto L3311;
if ( EQ( TSCPTAG( o2200 ), PAIRTAG ) ) goto L3314;
scrt1__24__car_2derror( o2200 );
L3314:
X2 = PAIR_CAR( o2200 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( v2201, X3 );
X1 = scrt1_cons_2a( X2, CONS( c2211, X3 ) );
POPSTACKTRACE( scrt1_cons_2a( X1,
CONS( EMPTYLIST, EMPTYLIST ) ) );
L3311:
POPSTACKTRACE( EMPTYLIST );
L3309:
if ( EQ( TSCPTAG( r2199 ), PAIRTAG ) ) goto L3317;
scrt1__24__car_2derror( r2199 );
L3317:
X2 = PAIR_CAR( r2199 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( v2201 ), PAIRTAG ) ) goto L3320;
scrt1__24__car_2derror( v2201 );
L3320:
X3 = CONS( PAIR_CAR( v2201 ), X3 );
X1 = scrt1_cons_2a( X2, CONS( c2211, X3 ) );
X3 = PAIR_CDR( r2199 );
X4 = PAIR_CDR( v2201 );
X2 = compile_bda_2dbind_8f865e9( X3, o2200, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
}
DEFTSCP( compile_pp_24t_2dlist_v );
DEFSTRING( t3324, "PP$T-LIST", 9 );
TSCP compile_pp_24t_2dlist( f2229, o2230 )
TSCP f2229, o2230;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3324 ) ) );
X1 = f2229;
L3327:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L3328;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3333;
scrt1__24__car_2derror( X1 );
L3333:
X2 = PAIR_CAR( X1 );
compile__2d_24tree_b5ec3baf( X2, o2230 );
scrt6_newline( CONS( o2230, EMPTYLIST ) );
X1 = PAIR_CDR( X1 );
goto L3327;
L3328:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( compile_2dcount_21_4d4ecab9_v );
DEFSTRING( t3336, "SET-WRITE-COUNT!", 16 );
EXTERNTSCPP( scrt2__3c_3d_2dtwo );
EXTERNTSCP( scrt2__3c_3d_2dtwo_v );
EXTERNTSCPP( scrt6_write_2dchar );
EXTERNTSCP( scrt6_write_2dchar_v );
TSCP compile_2dcount_21_4d4ecab9( o2255, c2256 )
TSCP o2255, c2256;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3336 ) ) );
X2 = scrt6_write_2dcount( CONS( o2255, EMPTYLIST ) );
if ( BITAND( BITOR( INT( c2256 ), INT( X2 ) ),
3 ) ) goto L3340;
X1 = _TSCP( IDIFFERENCE( INT( c2256 ), INT( X2 ) ) );
goto L3341;
L3340:
X1 = scrt2__2d_2dtwo( c2256, X2 );
L3341:
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L3344;
if ( GT( INT( X1 ), INT( _TSCP( 0 ) ) ) ) goto L3348;
POPSTACKTRACE( FALSEVALUE );
L3344:
if ( FALSE( scrt2__3c_3d_2dtwo( X1, _TSCP( 0 ) ) ) ) goto L3348;
POPSTACKTRACE( FALSEVALUE );
L3348:
scrt6_write_2dchar( _TSCP( 8210 ),
CONS( o2255, EMPTYLIST ) );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3352;
X1 = _TSCP( IDIFFERENCE( INT( X1 ),
INT( _TSCP( 4 ) ) ) );
goto L3341;
L3352:
X1 = scrt2__2d_2dtwo( X1, _TSCP( 4 ) );
goto L3341;
}
DEFTSCP( compile_print_2din_v );
DEFSTRING( t3354, "PRINT-IN", 8 );
EXTERNTSCPP( scrt2_negative_3f );
EXTERNTSCP( scrt2_negative_3f_v );
EXTERNTSCPP( scrt4_vector_2d_3elist );
EXTERNTSCP( scrt4_vector_2d_3elist_v );
TSCP compile_print_2din( s2282, l2283 )
TSCP s2282, l2283;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3354 ) ) );
L3355:
s2282 = CONS( s2282, EMPTYLIST );
if ( NEQ( TSCPTAG( l2283 ), FIXNUMTAG ) ) goto L3357;
if ( GTE( INT( l2283 ), 0 ) ) goto L3361;
POPSTACKTRACE( l2283 );
L3357:
if ( FALSE( scrt2_negative_3f( l2283 ) ) ) goto L3361;
POPSTACKTRACE( l2283 );
L3361:
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( s2282 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( s2282 ) ),
VECTORTAG ) ) ) ) goto L3365;
X1 = scrt4_vector_2d_3elist( PAIR_CAR( s2282 ) );
SETGEN( PAIR_CAR( s2282 ), X1 );
L3365:
if ( NEQ( TSCPTAG( PAIR_CAR( s2282 ) ), PAIRTAG ) ) goto L3367;
X2 = PAIR_CAR( s2282 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3370;
scrt1__24__cdr_2derror( X2 );
L3370:
X1 = PAIR_CDR( X2 );
X4 = PAIR_CAR( s2282 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3373;
scrt1__24__car_2derror( X4 );
L3373:
X3 = PAIR_CAR( X4 );
X2 = compile_print_2din( X3, l2283 );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3376;
l2283 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 4 ) ) ) );
goto L3377;
L3376:
l2283 = scrt2__2d_2dtwo( X2, _TSCP( 4 ) );
L3377:
s2282 = X1;
goto L3355;
L3367:
X2 = scrt6_format( c2307,
CONS( PAIR_CAR( s2282 ), EMPTYLIST ) );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L3379;
scrt6_error( c2305, c2306, CONS( X2, EMPTYLIST ) );
L3379:
X1 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( l2283 ), INT( X1 ) ),
3 ) ) goto L3382;
POPSTACKTRACE( _TSCP( IDIFFERENCE( INT( l2283 ),
INT( X1 ) ) ) );
L3382:
POPSTACKTRACE( scrt2__2d_2dtwo( l2283, X1 ) );
}
DEFTSCP( compile_string_2ddowncase_v );
DEFSTRING( t3384, "STRING-DOWNCASE", 15 );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt3_char_2ddowncase );
EXTERNTSCP( scrt3_char_2ddowncase_v );
TSCP compile_string_2ddowncase( s2323 )
TSCP s2323;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3384 ) ) );
if ( AND( EQ( TSCPTAG( s2323 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s2323 ), STRINGTAG ) )
) goto L3388;
scrt6_error( c2305,
c2306, CONS( s2323, EMPTYLIST ) );
L3388:
X2 = C_FIXED( STRING_LENGTH( s2323 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3391;
X1 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 4 ) ) ) );
goto L3392;
L3391:
X1 = scrt2__2d_2dtwo( X2, _TSCP( 4 ) );
L3392:
X3 = C_FIXED( STRING_LENGTH( s2323 ) );
X2 = sc_make_2dstring( X3, EMPTYLIST );
L3394:
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( -4 ) ) ),
3 ) ) goto L3396;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( -4 ) ) ) ) goto L3400;
POPSTACKTRACE( X2 );
L3396:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( -4 ) ) ) ) goto L3400;
POPSTACKTRACE( X2 );
L3400:
if ( EQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L3405;
scrt6_error( c2377, c2347, CONS( X1, EMPTYLIST ) );
L3405:
X5 = BOOLEAN( LT( INT( X1 ), 0 ) );
if ( TRUE( X5 ) ) goto L3411;
X6 = C_FIXED( STRING_LENGTH( s2323 ) );
if ( BITAND( BITOR( INT( X1 ), INT( X6 ) ),
3 ) ) goto L3415;
if ( GTE( INT( X1 ), INT( X6 ) ) ) goto L3411;
goto L3422;
L3415:
if ( FALSE( scrt2__3e_3d_2dtwo( X1, X6 ) ) ) goto L3422;
L3411:
scrt6_error( c2377, c2398, CONS( X1, EMPTYLIST ) );
L3422:
X4 = C_CHAR( STRING_CHAR( s2323, X1 ) );
X3 = scrt3_char_2ddowncase( X4 );
if ( EQ( TSCPIMMEDIATETAG( X3 ), CHARACTERTAG ) ) goto L3424;
scrt6_error( c2346, c2350, CONS( X3, EMPTYLIST ) );
L3424:
X4 = BOOLEAN( LT( INT( X1 ), 0 ) );
if ( TRUE( X4 ) ) goto L3430;
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L3432;
scrt6_error( c2305, c2306, CONS( X2, EMPTYLIST ) );
L3432:
X5 = C_FIXED( STRING_LENGTH( X2 ) );
if ( BITAND( BITOR( INT( X1 ), INT( X5 ) ),
3 ) ) goto L3436;
if ( GTE( INT( X1 ), INT( X5 ) ) ) goto L3430;
goto L3443;
L3436:
if ( FALSE( scrt2__3e_3d_2dtwo( X1, X5 ) ) ) goto L3443;
L3430:
scrt6_error( c2346, c2371, EMPTYLIST );
L3443:
STRING_CHAR( X2, X1 ) = CHAR_C( X3 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L3444;
X3 = _TSCP( IDIFFERENCE( INT( X1 ),
INT( _TSCP( 4 ) ) ) );
goto L3445;
L3444:
X3 = scrt2__2d_2dtwo( X1, _TSCP( 4 ) );
L3445:
X1 = X3;
goto L3394;
}
DEFTSCP( compile_list_2dhead_v );
DEFSTRING( t3446, "LIST-HEAD", 9 );
EXTERNTSCPP( compile_list_2dhead );
EXTERNTSCP( compile_list_2dhead_v );
TSCP compile_list_2dhead( l2421, n2422 )
TSCP l2421, n2422;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3446 ) ) );
if ( NEQ( TSCPTAG( n2422 ), FIXNUMTAG ) ) goto L3449;
if ( NEQ( UNSIGNED( n2422 ),
UNSIGNED( _TSCP( 0 ) ) ) ) goto L3453;
POPSTACKTRACE( EMPTYLIST );
L3449:
if ( FALSE( scrt2_zero_3f( n2422 ) ) ) goto L3453;
POPSTACKTRACE( EMPTYLIST );
L3453:
if ( EQ( TSCPTAG( l2421 ), PAIRTAG ) ) goto L3457;
scrt1__24__car_2derror( l2421 );
L3457:
X1 = PAIR_CAR( l2421 );
X3 = PAIR_CDR( l2421 );
if ( BITAND( BITOR( INT( n2422 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L3460;
X4 = _TSCP( IDIFFERENCE( INT( n2422 ),
INT( _TSCP( 4 ) ) ) );
goto L3461;
L3460:
X4 = scrt2__2d_2dtwo( n2422, _TSCP( 4 ) );
L3461:
X2 = compile_list_2dhead( X3, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
scrt3__init();
scrt2__init();
scrt1__init();
scrt6__init();
scrt5__init();
plist__init();
expform__init();
MAXDISPLAY( 2 );
}
void compile__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(compile SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2727 ) ),
ADR( compile_sc_2dinput_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2728 ) ),
ADR( compile_sc_2dsplice_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2729 ) ),
ADR( compile_sc_2dsource_2dname_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2730 ) ),
ADR( compile_sc_2dinclude_2ddirs_v ),
c1029 );
INITIALIZEVAR( U_TX( ADR( t2731 ) ),
ADR( compile_sc_2dicode_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2732 ) ),
ADR( compile_sc_2derror_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2733 ) ),
ADR( compile_sc_2derror_2dcnt_v ),
_TSCP( 0 ) );
INITIALIZEVAR( U_TX( ADR( t2734 ) ),
ADR( compile_sc_2dlog_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2735 ) ),
ADR( compile_sc_2dstack_2dtrace_v ),
TRUEVALUE );
INITIALIZEVAR( U_TX( ADR( t2736 ) ),
ADR( compile_sc_2dinterpreter_v ),
FALSEVALUE );
INITIALIZEVAR( U_TX( ADR( t2737 ) ),
ADR( compile_sc_2dlog_2ddefault_v ),
c1038 );
INITIALIZEVAR( U_TX( ADR( t2738 ) ),
ADR( compile_module_2dname_v ),
sc_emptystring );
INITIALIZEVAR( U_TX( ADR( t2739 ) ),
ADR( compile_e_2dupcase_6e1220a4_v ),
sc_emptystring );
INITIALIZEVAR( U_TX( ADR( t2740 ) ),
ADR( compile_main_2dprogram_2dname_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2741 ) ),
ADR( compile_heap_2dsize_v ), _TSCP( 0 ) );
INITIALIZEVAR( U_TX( ADR( t2742 ) ),
ADR( compile_ine_2dname_3e60377e_v ),
c1044 );
INITIALIZEVAR( U_TX( ADR( t2743 ) ),
ADR( compile_top_2dlevel_2dsymbols_v ),
TRUEVALUE );
INITIALIZEVAR( U_TX( ADR( t2744 ) ),
ADR( compile_with_2dmodules_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2745 ) ),
ADR( compile_restore_2dplist_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2746 ) ),
ADR( compile_true_2dalpha_v ), c1049 );
INITIALIZEVAR( U_TX( ADR( t2747 ) ),
ADR( compile_false_2dalpha_v ), c1051 );
INITIALIZEVAR( U_TX( ADR( t2748 ) ),
ADR( compile_empty_2dlist_2dalpha_v ),
c1053 );
INITIALIZEVAR( U_TX( ADR( t2749 ) ),
ADR( compile_cons_2dalpha_v ), EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2750 ) ),
ADR( compile_undefined_2dalpha_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2751 ) ),
ADR( compile_initialize_2dcompile_v ),
MAKEPROCEDURE( 0,
0,
compile_initialize_2dcompile,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2760 ) ),
ADR( compile_create_2dplist_v ),
MAKEPROCEDURE( 1,
0,
compile_create_2dplist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2774 ) ),
ADR( compile_sc_v ),
MAKEPROCEDURE( 1,
1, compile_sc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2922 ) ),
ADR( compile_close_2dsc_2dfiles_v ),
MAKEPROCEDURE( 0,
0,
compile_close_2dsc_2dfiles,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2941 ) ),
ADR( compile_scl_v ),
MAKEPROCEDURE( 0,
1, compile_scl, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2970 ) ),
ADR( compile_log_3f_v ),
MAKEPROCEDURE( 1,
0, compile_log_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2972 ) ),
ADR( compile_docompile_v ),
MAKEPROCEDURE( 0,
0,
compile_docompile, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3073 ) ),
ADR( compile_report_2derror_v ),
MAKEPROCEDURE( 1,
1,
compile_report_2derror,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3089 ) ),
ADR( compile_report_2dwarning_v ),
MAKEPROCEDURE( 1,
1,
compile_report_2dwarning,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3102 ) ),
ADR( compile__2d_24tree_b5ec3baf_v ),
MAKEPROCEDURE( 2,
0,
compile__2d_24tree_b5ec3baf,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3307 ) ),
ADR( compile_bda_2dbind_8f865e9_v ),
MAKEPROCEDURE( 3,
0,
compile_bda_2dbind_8f865e9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3324 ) ),
ADR( compile_pp_24t_2dlist_v ),
MAKEPROCEDURE( 2,
0,
compile_pp_24t_2dlist, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3336 ) ),
ADR( compile_2dcount_21_4d4ecab9_v ),
MAKEPROCEDURE( 2,
0,
compile_2dcount_21_4d4ecab9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3354 ) ),
ADR( compile_print_2din_v ),
MAKEPROCEDURE( 2,
0,
compile_print_2din, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3384 ) ),
ADR( compile_string_2ddowncase_v ),
MAKEPROCEDURE( 1,
0,
compile_string_2ddowncase,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3446 ) ),
ADR( compile_list_2dhead_v ),
MAKEPROCEDURE( 2,
0,
compile_list_2dhead, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.