This is lambdacode.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2044, "INDIRECT-LAMBDA-LEXICAL", 23 );
DEFSTATICTSCP( indirect_2dlambda_2dlexical_v );
DEFSTRING( t2045, "SC-STACK-TRACE", 14 );
DEFSTATICTSCP( sc_2dstack_2dtrace_v );
DEFSTRING( t2046, "CURRENT-DEFINE-NAME", 19 );
DEFSTATICTSCP( current_2ddefine_2dname_v );
DEFSTRING( t2047, "CURRENT-DEFINE-STRING", 21 );
DEFSTATICTSCP( current_2ddefine_2dstring_v );
DEFSTRING( t2048, "INTERSECT-WITH-GLOBAL-CONDITION-INFO", 36 );
DEFSTATICTSCP( _ion_2dinfo_e0971c7d_v );
DEFSTRING( t2049, "STORED-CONDITIONS-INTERSECTION", 30 );
DEFSTATICTSCP( _tersection_b4e3b790_v );
DEFSTRING( t2050, "RETRIEVE-CONDITION-INFO", 23 );
DEFSTATICTSCP( retrieve_2dcondition_2dinfo_v );
DEFSTRING( t2051, "STORE-CONDITION-INFO", 20 );
DEFSTATICTSCP( store_2dcondition_2dinfo_v );
DEFSTRING( t2052, "LAP-MAX-DISPLAY", 15 );
DEFSTATICTSCP( lap_2dmax_2ddisplay_v );
DEFSTRING( t2053, "CONS", 4 );
DEFSTATICTSCP( c1979 );
DEFSTRING( t2054, "CONS", 4 );
DEFSTATICTSCP2( c1952, t2054 );
DEFSTRING( t2055, "VNAME", 5 );
DEFSTATICTSCP( c1930 );
DEFSTRING( t2056, "LAMBDA", 6 );
DEFSTATICTSCP( c1911 );
DEFSTRING( t2057, "SET!", 4 );
DEFSTATICTSCP( c1904 );
DEFSTRING( t2058, "UNDEFINED", 9 );
DEFSTATICTSCP( c1894 );
DEFSTRING( t2059, "GOTO", 4 );
DEFSTATICTSCP( c1707 );
DEFSTRING( t2060, "INLINE-TAILS", 12 );
DEFSTATICTSCP( c1653 );
DEFSTRING( t2061, "LABEL", 5 );
DEFSTATICTSCP( c1584 );
DEFSTRING( t2062, "TOS", 3 );
DEFSTATICTSCP( c1582 );
DEFSTRING( t2063, "OPTVARS", 7 );
DEFSTATICTSCP( c1574 );
DEFSTATICTSCP( c1569 );
DEFSTRING( t2064, "NAME", 4 );
DEFSTATICTSCP( c1503 );
DEFSTRING( t2065, "]", 1 );
DEFSTATICTSCP2( c1499, t2065 );
DEFSTRING( t2066, " [inside ", 9 );
DEFSTATICTSCP2( c1494, t2066 );
DEFSTRING( t2067, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1491, t2067 );
DEFSTRING( t2068, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1490 );
DEFSTRING( t2069, "ADR", 3 );
DEFSTATICTSCP( c1485 );
DEFSTRING( t2070, "U_TX", 4 );
DEFSTATICTSCP( c1484 );
DEFSTRING( t2071, "PUSHSTACKTRACE", 14 );
DEFSTATICTSCP( c1483 );
DEFSTRING( t2072, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1482, t2072 );
DEFSTRING( t2073, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1481 );
DEFSTRING( t2074, "CSTRING", 7 );
DEFSTATICTSCP( c1476 );
DEFSTRING( t2075, "DEFSTRING", 9 );
DEFSTATICTSCP( c1475 );
DEFSTRING( t2076, "PRINTNAME", 9 );
DEFSTATICTSCP( c1464 );
DEFSTRING( t2077, "CLOSURE_VAR", 11 );
DEFSTATICTSCP2( c1430, t2077 );
DEFSTRING( t2078, "MAKECLOSURE", 11 );
DEFSTATICTSCP2( c1375, t2078 );
DEFSTRING( t2079, "DISPLAY", 7 );
DEFSTATICTSCP2( c1356, t2079 );
DEFSTRING( t2080, "DISPLAY-CLOSEP", 14 );
DEFSTATICTSCP( c1341 );
DEFSTRING( t2081, "CLOSUREP", 8 );
DEFSTATICTSCP( c1338 );
DEFSTRING( t2082, "USE", 3 );
DEFSTATICTSCP( c1337 );
DEFSTRING( t2083, "CLOSE", 5 );
DEFSTATICTSCP( c1336 );
DEFSTRING( t2084, "REQVARS", 7 );
DEFSTATICTSCP( c1232 );
DEFSTRING( t2085, "TOP-LEVEL", 9 );
DEFSTATICTSCP( c1227 );
DEFSTRING( t2086, "NESTIN", 6 );
DEFSTATICTSCP( c1226 );
DEFSTATICTSCP( c1220 );
DEFSTRING( t2088, "}", 1 );
DEFSTATICTSCP2( t2087, t2088 );
DEFSTRING( t2090, "LIT", 3 );
DEFSTATICTSCP( t2089 );
DEFSTRING( t2091, "INDENT", 6 );
DEFSTATICTSCP( c1219 );
DEFSTRING( t2092, "RETURN", 6 );
DEFSTATICTSCP( c1217 );
DEFSTRING( t2093, "DISPLAY", 7 );
DEFSTATICTSCP( c1214 );
DEFSTRING( t2094, "LOCALS", 6 );
DEFSTATICTSCP( c1213 );
DEFSTATICTSCP( c1212 );
DEFSTATICTSCP( c1211 );
DEFSTRING( t2096, "{", 1 );
DEFSTATICTSCP2( t2095, t2096 );
DEFSTRING( t2097, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1202, t2097 );
DEFSTRING( t2098, "SET-CDR!", 8 );
DEFSTATICTSCP( c1201 );
DEFSTRING( t2099, "PROC", 4 );
DEFSTATICTSCP( c1170 );
DEFSTRING( t2100, "EMPTYLIST", 9 );
DEFSTATICTSCP2( c1169, t2100 );
DEFSTRING( t2101, "MAKEPROCEDURE", 13 );
DEFSTATICTSCP2( c1166, t2101 );
DEFSTRING( t2102, "SET", 3 );
DEFSTATICTSCP( c1165 );
DEFSTRING( t2103, "NO-VALUE", 8 );
DEFSTATICTSCP( c1164 );
DEFSTRING( t2104, "$LAMBDA", 7 );
DEFSTATICTSCP( c1132 );
DEFSTRING( t2105, "GENERATE", 8 );
DEFSTATICTSCP( c1111 );
DEFSTRING( t2106, "CLOSED-PROCEDURE", 16 );
DEFSTATICTSCP( c1106 );
DEFSTRING( t2107, "PROCEDURE", 9 );
DEFSTATICTSCP( c1102 );
static void init_constants()
{
indirect_2dlambda_2dlexical_v = STRINGTOSYMBOL( U_TX( ADR( t2044 ) ) );
CONSTANTEXP( ADR( indirect_2dlambda_2dlexical_v ) );
sc_2dstack_2dtrace_v = STRINGTOSYMBOL( U_TX( ADR( t2045 ) ) );
CONSTANTEXP( ADR( sc_2dstack_2dtrace_v ) );
current_2ddefine_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2046 ) ) );
CONSTANTEXP( ADR( current_2ddefine_2dname_v ) );
current_2ddefine_2dstring_v = STRINGTOSYMBOL( U_TX( ADR( t2047 ) ) );
CONSTANTEXP( ADR( current_2ddefine_2dstring_v ) );
_ion_2dinfo_e0971c7d_v = STRINGTOSYMBOL( U_TX( ADR( t2048 ) ) );
CONSTANTEXP( ADR( _ion_2dinfo_e0971c7d_v ) );
_tersection_b4e3b790_v = STRINGTOSYMBOL( U_TX( ADR( t2049 ) ) );
CONSTANTEXP( ADR( _tersection_b4e3b790_v ) );
retrieve_2dcondition_2dinfo_v = STRINGTOSYMBOL( U_TX( ADR( t2050 ) ) );
CONSTANTEXP( ADR( retrieve_2dcondition_2dinfo_v ) );
store_2dcondition_2dinfo_v = STRINGTOSYMBOL( U_TX( ADR( t2051 ) ) );
CONSTANTEXP( ADR( store_2dcondition_2dinfo_v ) );
lap_2dmax_2ddisplay_v = STRINGTOSYMBOL( U_TX( ADR( t2052 ) ) );
CONSTANTEXP( ADR( lap_2dmax_2ddisplay_v ) );
c1979 = STRINGTOSYMBOL( U_TX( ADR( t2053 ) ) );
CONSTANTEXP( ADR( c1979 ) );
c1930 = STRINGTOSYMBOL( U_TX( ADR( t2055 ) ) );
CONSTANTEXP( ADR( c1930 ) );
c1911 = STRINGTOSYMBOL( U_TX( ADR( t2056 ) ) );
CONSTANTEXP( ADR( c1911 ) );
c1904 = STRINGTOSYMBOL( U_TX( ADR( t2057 ) ) );
CONSTANTEXP( ADR( c1904 ) );
c1894 = STRINGTOSYMBOL( U_TX( ADR( t2058 ) ) );
CONSTANTEXP( ADR( c1894 ) );
c1707 = STRINGTOSYMBOL( U_TX( ADR( t2059 ) ) );
CONSTANTEXP( ADR( c1707 ) );
c1653 = STRINGTOSYMBOL( U_TX( ADR( t2060 ) ) );
CONSTANTEXP( ADR( c1653 ) );
c1584 = STRINGTOSYMBOL( U_TX( ADR( t2061 ) ) );
CONSTANTEXP( ADR( c1584 ) );
c1582 = STRINGTOSYMBOL( U_TX( ADR( t2062 ) ) );
CONSTANTEXP( ADR( c1582 ) );
c1574 = STRINGTOSYMBOL( U_TX( ADR( t2063 ) ) );
CONSTANTEXP( ADR( c1574 ) );
c1569 = EMPTYLIST;
c1569 = CONS( c1894, c1569 );
CONSTANTEXP( ADR( c1569 ) );
c1503 = STRINGTOSYMBOL( U_TX( ADR( t2064 ) ) );
CONSTANTEXP( ADR( c1503 ) );
c1490 = STRINGTOSYMBOL( U_TX( ADR( t2068 ) ) );
CONSTANTEXP( ADR( c1490 ) );
c1485 = STRINGTOSYMBOL( U_TX( ADR( t2069 ) ) );
CONSTANTEXP( ADR( c1485 ) );
c1484 = STRINGTOSYMBOL( U_TX( ADR( t2070 ) ) );
CONSTANTEXP( ADR( c1484 ) );
c1483 = STRINGTOSYMBOL( U_TX( ADR( t2071 ) ) );
CONSTANTEXP( ADR( c1483 ) );
c1481 = STRINGTOSYMBOL( U_TX( ADR( t2073 ) ) );
CONSTANTEXP( ADR( c1481 ) );
c1476 = STRINGTOSYMBOL( U_TX( ADR( t2074 ) ) );
CONSTANTEXP( ADR( c1476 ) );
c1475 = STRINGTOSYMBOL( U_TX( ADR( t2075 ) ) );
CONSTANTEXP( ADR( c1475 ) );
c1464 = STRINGTOSYMBOL( U_TX( ADR( t2076 ) ) );
CONSTANTEXP( ADR( c1464 ) );
c1341 = STRINGTOSYMBOL( U_TX( ADR( t2080 ) ) );
CONSTANTEXP( ADR( c1341 ) );
c1338 = STRINGTOSYMBOL( U_TX( ADR( t2081 ) ) );
CONSTANTEXP( ADR( c1338 ) );
c1337 = STRINGTOSYMBOL( U_TX( ADR( t2082 ) ) );
CONSTANTEXP( ADR( c1337 ) );
c1336 = STRINGTOSYMBOL( U_TX( ADR( t2083 ) ) );
CONSTANTEXP( ADR( c1336 ) );
c1232 = STRINGTOSYMBOL( U_TX( ADR( t2084 ) ) );
CONSTANTEXP( ADR( c1232 ) );
c1227 = STRINGTOSYMBOL( U_TX( ADR( t2085 ) ) );
CONSTANTEXP( ADR( c1227 ) );
c1226 = STRINGTOSYMBOL( U_TX( ADR( t2086 ) ) );
CONSTANTEXP( ADR( c1226 ) );
c1220 = EMPTYLIST;
c1220 = CONS( t2087, c1220 );
t2089 = STRINGTOSYMBOL( U_TX( ADR( t2090 ) ) );
c1220 = CONS( t2089, c1220 );
CONSTANTEXP( ADR( c1220 ) );
c1219 = STRINGTOSYMBOL( U_TX( ADR( t2091 ) ) );
CONSTANTEXP( ADR( c1219 ) );
c1217 = STRINGTOSYMBOL( U_TX( ADR( t2092 ) ) );
CONSTANTEXP( ADR( c1217 ) );
c1214 = STRINGTOSYMBOL( U_TX( ADR( t2093 ) ) );
CONSTANTEXP( ADR( c1214 ) );
c1213 = STRINGTOSYMBOL( U_TX( ADR( t2094 ) ) );
CONSTANTEXP( ADR( c1213 ) );
c1212 = EMPTYLIST;
c1212 = CONS( _TSCP( 32 ), c1212 );
c1212 = CONS( c1219, c1212 );
CONSTANTEXP( ADR( c1212 ) );
c1211 = EMPTYLIST;
c1211 = CONS( t2095, c1211 );
c1211 = CONS( t2089, c1211 );
CONSTANTEXP( ADR( c1211 ) );
c1201 = STRINGTOSYMBOL( U_TX( ADR( t2098 ) ) );
CONSTANTEXP( ADR( c1201 ) );
c1170 = STRINGTOSYMBOL( U_TX( ADR( t2099 ) ) );
CONSTANTEXP( ADR( c1170 ) );
c1165 = STRINGTOSYMBOL( U_TX( ADR( t2102 ) ) );
CONSTANTEXP( ADR( c1165 ) );
c1164 = STRINGTOSYMBOL( U_TX( ADR( t2103 ) ) );
CONSTANTEXP( ADR( c1164 ) );
c1132 = STRINGTOSYMBOL( U_TX( ADR( t2104 ) ) );
CONSTANTEXP( ADR( c1132 ) );
c1111 = STRINGTOSYMBOL( U_TX( ADR( t2105 ) ) );
CONSTANTEXP( ADR( c1111 ) );
c1106 = STRINGTOSYMBOL( U_TX( ADR( t2106 ) ) );
CONSTANTEXP( ADR( c1106 ) );
c1102 = STRINGTOSYMBOL( U_TX( ADR( t2107 ) ) );
CONSTANTEXP( ADR( c1102 ) );
}
DEFTSCP( lambdacode__24lambda_2dgenc_v );
DEFSTRING( t2108, "$LAMBDA-GENC", 12 );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
EXTERNTSCPP( lambdacode_procedure_2demit );
EXTERNTSCP( lambdacode_procedure_2demit_v );
EXTERNTSCPP( ambdacode_ure_2demit_8ce41db4 );
EXTERNTSCP( ambdacode_ure_2demit_8ce41db4_v );
TSCP lambdacode__24lambda_2dgenc( l1092, e1093, b1094 )
TSCP l1092, e1093, b1094;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2108 ) ) );
if ( NEQ( TSCPTAG( e1093 ), PAIRTAG ) ) goto L2110;
X3 = PAIR_CAR( e1093 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1132 ) ) );
goto L2111;
L2110:
X2 = FALSEVALUE;
L2111:
if ( FALSE( X2 ) ) goto L2114;
if ( EQ( TSCPTAG( e1093 ), PAIRTAG ) ) goto L2117;
scrt1__24__cdr_2derror( e1093 );
L2117:
X3 = PAIR_CDR( e1093 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2120;
scrt1__24__car_2derror( X3 );
L2120:
X1 = PAIR_CAR( X3 );
goto L2115;
L2114:
X1 = X2;
L2115:
X2 = plist_get( X1, c1111 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1102 ) ) ) goto L2124;
POPSTACKTRACE( lambdacode_procedure_2demit( l1092,
X1,
e1093, b1094 ) );
L2124:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1106 ) ) ) goto L2126;
POPSTACKTRACE( ambdacode_ure_2demit_8ce41db4( l1092,
X1,
e1093, b1094 ) );
L2126:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( lambdacode_procedure_2demit_v );
DEFSTRING( t2128, "PROCEDURE-EMIT", 14 );
EXTERNTSCPP( gencode_optional_2dargs );
EXTERNTSCP( gencode_optional_2dargs_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( expform_cname );
EXTERNTSCP( expform_cname_v );
EXTERNTSCPP( lap_emit_2dlap );
EXTERNTSCP( lap_emit_2dlap_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( expform_vname );
EXTERNTSCP( expform_vname_v );
EXTERNTSCPP( lap_save_2dcurrent_2dlap );
EXTERNTSCP( lap_save_2dcurrent_2dlap_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCP( gencode_free_2ddisplay_v );
EXTERNTSCPP( ambdacode_ace_2demit_561a03cc );
EXTERNTSCP( ambdacode_ace_2demit_561a03cc_v );
EXTERNTSCPP( ambdacode_ody_2dgenc_da78cf6b );
EXTERNTSCP( ambdacode_ody_2dgenc_da78cf6b_v );
EXTERNTSCPP( ambdacode__2ddisplay_cfffb4a9 );
EXTERNTSCP( ambdacode__2ddisplay_cfffb4a9_v );
EXTERNTSCPP( lap_done_2dlap );
EXTERNTSCP( lap_done_2dlap_v );
TSCP lambdacode_procedure_2demit( l1145, i1146, e1147, b1148 )
TSCP l1145, i1146, e1147, b1148;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2128 ) ) );
X1 = plist_get( i1146, c1232 );
X2 = gencode_optional_2dargs( i1146 );
if ( FALSE( X2 ) ) goto L2132;
X5 = sc_cons( X2, EMPTYLIST );
X4 = X5;
goto L2133;
L2132:
X4 = EMPTYLIST;
L2133:
X3 = scrt1_append_2dtwo( X1, X4 );
X4 = expform_cname( i1146 );
X5 = EMPTYLIST;
X5 = CONS( X5, EMPTYLIST );
X7 = plist_get( i1146, c1226 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1227 ) ) );
if ( EQ( UNSIGNED( l1145 ), UNSIGNED( c1164 ) ) ) goto L2139;
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( c1169, X9 );
X9 = CONS( expform_cname( X4 ), X9 );
if ( FALSE( X2 ) ) goto L2141;
X10 = _TSCP( 4 );
goto L2142;
L2141:
X10 = _TSCP( 0 );
L2142:
X9 = CONS( X10, X9 );
X8 = CONS( scrt1_cons_2a( c1166,
CONS( scrt1_length( X1 ), X9 ) ),
X8 );
X7 = scrt1_cons_2a( c1165,
CONS( expform_vname( l1145 ), X8 ) );
lap_emit_2dlap( X7 );
L2139:
X7 = lap_save_2dcurrent_2dlap( EMPTYLIST );
SETGEN( PAIR_CAR( X5 ), X7 );
X10 = X3;
X11 = EMPTYLIST;
X12 = EMPTYLIST;
L2145:
if ( NEQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) ) goto L2146;
X9 = X11;
goto L2153;
L2146:
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L2149;
scrt1__24__car_2derror( X10 );
L2149:
X15 = PAIR_CAR( X10 );
X14 = expform_vname( X15 );
X13 = sc_cons( X14, EMPTYLIST );
if ( NEQ( UNSIGNED( X11 ), UNSIGNED( EMPTYLIST ) ) ) goto L2152;
X14 = PAIR_CDR( X10 );
X12 = X13;
X11 = X13;
X10 = X14;
goto L2145;
L2152:
X14 = PAIR_CDR( X10 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2157;
scrt6_error( c1201,
c1202, CONS( X12, EMPTYLIST ) );
L2157:
X12 = SETGEN( PAIR_CDR( X12 ), X13 );
X10 = X14;
goto L2145;
L2153:
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X8 = CONS( scrt1_append_2dtwo( X9, X10 ), EMPTYLIST );
X7 = scrt1_cons_2a( c1170,
CONS( expform_cname( X4 ), X8 ) );
lap_emit_2dlap( X7 );
lap_emit_2dlap( c1211 );
lap_emit_2dlap( c1212 );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( gencode_free_2ddisplay_v, X8 );
X7 = scrt1_cons_2a( c1213, CONS( c1214, X8 ) );
lap_emit_2dlap( X7 );
ambdacode_ace_2demit_561a03cc( i1146 );
X7 = ambdacode__2ddisplay_cfffb4a9( X3,
gencode_free_2ddisplay_v );
ambdacode_ody_2dgenc_da78cf6b( c1217,
e1147, X3, X7, b1148 );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1219, CONS( _TSCP( 0 ), X8 ) );
lap_emit_2dlap( X7 );
lap_emit_2dlap( c1220 );
X7 = lap_save_2dcurrent_2dlap( PAIR_CAR( X5 ) );
POPSTACKTRACE( lap_done_2dlap( X7 ) );
}
DEFTSCP( ambdacode_ure_2demit_8ce41db4_v );
DEFSTRING( t2159, "CLOSED-PROCEDURE-EMIT", 21 );
EXTERNTSCPP( expform_newv );
EXTERNTSCP( expform_newv_v );
EXTERNTSCPP( ambdacode__2dclosure_56745b5 );
EXTERNTSCP( ambdacode__2dclosure_56745b5_v );
EXTERNTSCPP( ambdacode__2ddisplay_41b1bac7 );
EXTERNTSCP( ambdacode__2ddisplay_41b1bac7_v );
EXTERNTSCPP( lap_use_2dlap_2dtemp );
EXTERNTSCP( lap_use_2dlap_2dtemp_v );
TSCP ambdacode_ure_2demit_8ce41db4( l1234,
i1235, e1236, b1237 )
TSCP l1234, i1235, e1236, b1237;
{
TSCP X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2159 ) ) );
X1 = plist_get( i1235, c1232 );
X2 = gencode_optional_2dargs( i1235 );
X4 = CONS( plist_get( i1235, c1341 ), EMPTYLIST );
X4 = CONS( c1214, X4 );
X4 = CONS( c1338, X4 );
X3 = expform_newv( c1336, CONS( c1337, X4 ) );
if ( FALSE( X2 ) ) goto L2164;
X7 = sc_cons( X2, EMPTYLIST );
X6 = X7;
goto L2165;
L2164:
X6 = EMPTYLIST;
L2165:
X8 = sc_cons( X3, EMPTYLIST );
X7 = X8;
X5 = scrt1_append_2dtwo( X6, X7 );
X4 = scrt1_append_2dtwo( X1, X5 );
X5 = expform_cname( i1235 );
X6 = EMPTYLIST;
X6 = CONS( X6, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( ambdacode__2dclosure_56745b5( i1235 ), X9 );
X9 = CONS( expform_cname( X5 ), X9 );
if ( FALSE( X2 ) ) goto L2171;
X10 = _TSCP( 4 );
goto L2172;
L2171:
X10 = _TSCP( 0 );
L2172:
X9 = CONS( X10, X9 );
X8 = CONS( scrt1_cons_2a( c1166,
CONS( scrt1_length( X1 ), X9 ) ),
X8 );
X7 = scrt1_cons_2a( c1165,
CONS( expform_vname( l1234 ), X8 ) );
lap_emit_2dlap( X7 );
X7 = lap_save_2dcurrent_2dlap( EMPTYLIST );
SETGEN( PAIR_CAR( X6 ), X7 );
X10 = X4;
X11 = EMPTYLIST;
X12 = EMPTYLIST;
L2175:
if ( NEQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) ) goto L2176;
X9 = X11;
goto L2183;
L2176:
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L2179;
scrt1__24__car_2derror( X10 );
L2179:
X15 = PAIR_CAR( X10 );
X14 = expform_vname( X15 );
X13 = sc_cons( X14, EMPTYLIST );
if ( NEQ( UNSIGNED( X11 ), UNSIGNED( EMPTYLIST ) ) ) goto L2182;
X14 = PAIR_CDR( X10 );
X12 = X13;
X11 = X13;
X10 = X14;
goto L2175;
L2182:
X14 = PAIR_CDR( X10 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2187;
scrt6_error( c1201,
c1202, CONS( X12, EMPTYLIST ) );
L2187:
X12 = SETGEN( PAIR_CDR( X12 ), X13 );
X10 = X14;
goto L2175;
L2183:
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X8 = CONS( scrt1_append_2dtwo( X9, X10 ), EMPTYLIST );
X7 = scrt1_cons_2a( c1170,
CONS( expform_cname( X5 ), X8 ) );
lap_emit_2dlap( X7 );
lap_emit_2dlap( c1211 );
lap_emit_2dlap( c1212 );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( gencode_free_2ddisplay_v, X8 );
X7 = scrt1_cons_2a( c1213, CONS( c1214, X8 ) );
lap_emit_2dlap( X7 );
ambdacode_ace_2demit_561a03cc( i1235 );
X7 = ambdacode__2ddisplay_41b1bac7( i1235, X3 );
if ( FALSE( X7 ) ) goto L2190;
X8 = lap_use_2dlap_2dtemp( );
X9 = ambdacode__2ddisplay_cfffb4a9( X4,
gencode_free_2ddisplay_v );
ambdacode_ody_2dgenc_da78cf6b( X8,
e1236, X4, X9, b1237 );
X9 = X7;
X10 = EMPTYLIST;
X11 = EMPTYLIST;
L2195:
if ( EQ( UNSIGNED( X9 ), UNSIGNED( EMPTYLIST ) ) ) goto L2203;
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L2199;
scrt1__24__car_2derror( X9 );
L2199:
X14 = PAIR_CAR( X9 );
X13 = lap_emit_2dlap( X14 );
X12 = sc_cons( X13, EMPTYLIST );
if ( NEQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) ) goto L2202;
X13 = PAIR_CDR( X9 );
X11 = X12;
X10 = X12;
X9 = X13;
goto L2195;
L2202:
X13 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2207;
scrt6_error( c1201,
c1202, CONS( X11, EMPTYLIST ) );
L2207:
X11 = SETGEN( PAIR_CDR( X11 ), X12 );
X9 = X13;
goto L2195;
L2203:
X10 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( expform_vname( X8 ), X10 );
X9 = scrt1_cons_2a( c1165, CONS( c1217, X10 ) );
lap_emit_2dlap( X9 );
goto L2191;
L2190:
ambdacode_ody_2dgenc_da78cf6b( c1217,
e1236, X4, X4, b1237 );
L2191:
X8 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1219, CONS( _TSCP( 0 ), X8 ) );
lap_emit_2dlap( X7 );
lap_emit_2dlap( c1220 );
X7 = lap_save_2dcurrent_2dlap( PAIR_CAR( X6 ) );
POPSTACKTRACE( lap_done_2dlap( X7 ) );
}
DEFTSCP( ambdacode__2ddisplay_cfffb4a9_v );
DEFSTRING( t2209, "PROC-ARGS-TO-DISPLAY", 20 );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP ambdacode__2ddisplay_cfffb4a9( f1345, d1346 )
TSCP f1345, d1346;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2209 ) ) );
if ( FALSE( f1345 ) ) goto L2211;
if ( EQ( TSCPTAG( f1345 ), PAIRTAG ) ) goto L2214;
scrt1__24__car_2derror( f1345 );
L2214:
X1 = PAIR_CAR( f1345 );
if ( FALSE( plist_get( X1, c1214 ) ) ) goto L2217;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X3 = CONS( expform_vname( X1 ), X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1165,
CONS( scrt1_cons_2a( c1356,
CONS( d1346, X4 ) ),
X3 ) );
lap_emit_2dlap( X2 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1356, CONS( d1346, X3 ) );
X4 = PAIR_CDR( f1345 );
if ( BITAND( BITOR( INT( d1346 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L2221;
X5 = _TSCP( IPLUS( INT( d1346 ), INT( _TSCP( 4 ) ) ) );
goto L2222;
L2221:
X5 = scrt2__2b_2dtwo( d1346, _TSCP( 4 ) );
L2222:
X3 = ambdacode__2ddisplay_cfffb4a9( X4, X5 );
POPSTACKTRACE( sc_cons( X2, X3 ) );
L2217:
X3 = PAIR_CDR( f1345 );
X2 = ambdacode__2ddisplay_cfffb4a9( X3, d1346 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2211:
POPSTACKTRACE( EMPTYLIST );
}
DEFTSCP( ambdacode__2dclosure_56745b5_v );
DEFSTRING( t2224, "CLOSED-PROC-CLOSURE", 19 );
TSCP ambdacode__2dclosure_56745b5( i1372 )
TSCP i1372;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2224 ) ) );
X2 = SYMBOL_VALUE( indirect_2dlambda_2dlexical_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( i1372,
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2227;
X4 = X1;
X5 = EMPTYLIST;
X6 = EMPTYLIST;
L2230:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2231;
X3 = X5;
goto L2239;
L2231:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2234;
scrt1__24__car_2derror( X4 );
L2234:
X9 = PAIR_CAR( X4 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X8 = scrt1_cons_2a( c1356,
CONS( plist_get( X9, c1214 ),
X10 ) );
X7 = sc_cons( X8, EMPTYLIST );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L2238;
X8 = PAIR_CDR( X4 );
X6 = X7;
X5 = X7;
X4 = X8;
goto L2230;
L2238:
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2243;
scrt6_error( c1201, c1202, CONS( X6, EMPTYLIST ) );
L2243:
X6 = SETGEN( PAIR_CDR( X6 ), X7 );
X4 = X8;
goto L2230;
L2239:
X4 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X2 = CONS( scrt1_append_2dtwo( X3, X4 ), EMPTYLIST );
X2 = CONS( scrt1_length( X1 ), X2 );
POPSTACKTRACE( scrt1_cons_2a( c1375,
CONS( c1169, X2 ) ) );
L2227:
POPSTACKTRACE( c1169 );
}
DEFTSCP( ambdacode__2ddisplay_41b1bac7_v );
DEFSTRING( t2245, "CLOSED-PROC-DISPLAY", 19 );
DEFSTRING( t2248, "LOOP [inside CLOSED-PROC-DISPLAY]", 33 );
EXTERNTSCPP( lambdacode_l1423 );
TSCP lambdacode_l1423( i1425, v1426 )
TSCP i1425, v1426;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2248 ) ) );
if ( FALSE( v1426 ) ) goto L2250;
if ( EQ( TSCPTAG( v1426 ), PAIRTAG ) ) goto L2253;
scrt1__24__car_2derror( v1426 );
L2253:
X2 = PAIR_CAR( v1426 );
X1 = plist_get( X2, c1214 );
X2 = lap_use_2dlap_2dtemp( );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( scrt1_cons_2a( c1356, CONS( X1, X5 ) ),
X4 );
X3 = scrt1_cons_2a( c1165,
CONS( expform_vname( X2 ), X4 ) );
lap_emit_2dlap( X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( i1425, X5 );
X4 = CONS( scrt1_cons_2a( c1430,
CONS( expform_vname( DISPLAY( 0 ) ),
X5 ) ),
X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( c1165,
CONS( scrt1_cons_2a( c1356,
CONS( X1, X5 ) ),
X4 ) );
lap_emit_2dlap( X3 );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( expform_vname( X2 ), X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( c1165,
CONS( scrt1_cons_2a( c1356,
CONS( X1, X5 ) ),
X4 ) );
if ( BITAND( BITOR( INT( i1425 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L2256;
X5 = _TSCP( IPLUS( INT( i1425 ), INT( _TSCP( 4 ) ) ) );
goto L2257;
L2256:
X5 = scrt2__2b_2dtwo( i1425, _TSCP( 4 ) );
L2257:
X6 = PAIR_CDR( v1426 );
X4 = lambdacode_l1423( X5, X6 );
POPSTACKTRACE( sc_cons( X3, X4 ) );
L2250:
POPSTACKTRACE( EMPTYLIST );
}
TSCP ambdacode__2ddisplay_41b1bac7( i1420, c1421 )
TSCP i1420, c1421;
{
TSCP X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2245 ) ) );
DISPLAY( 0 ) = c1421;
X2 = SYMBOL_VALUE( indirect_2dlambda_2dlexical_v );
X2 = UNKNOWNCALL( X2, 1 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( i1420,
PROCEDURE_CLOSURE( X2 ) );
SDVAL = lambdacode_l1423( _TSCP( 0 ), X1 );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( ambdacode_ace_2demit_561a03cc_v );
DEFSTRING( t2259, "STACK-TRACE-EMIT", 16 );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( gencode_make_2dc_2dglobal );
EXTERNTSCP( gencode_make_2dc_2dglobal_v );
EXTERNTSCPP( lap_emit_2dglobal_2dlap );
EXTERNTSCP( lap_emit_2dglobal_2dlap_v );
TSCP ambdacode_ace_2demit_561a03cc( l1448 )
TSCP l1448;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2259 ) ) );
if ( FALSE( SYMBOL_VALUE( sc_2dstack_2dtrace_v ) ) ) goto L2261;
X1 = plist_get( l1448, c1503 );
if ( FALSE( X1 ) ) goto L2273;
X2 = plist_get( X1, c1464 );
X3 = SYMBOL_VALUE( current_2ddefine_2dname_v );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) ) goto L2273;
X2 = plist_get( l1448, c1226 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1227 ) ) ) goto L2273;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = SYMBOL_VALUE( current_2ddefine_2dstring_v );
X2 = scrt1_cons_2a( c1483,
CONS( scrt1_cons_2a( c1484,
CONS( scrt1_cons_2a( c1485,
CONS( expform_vname( X6 ),
X5 ) ),
X4 ) ),
X3 ) );
POPSTACKTRACE( lap_emit_2dlap( X2 ) );
L2261:
POPSTACKTRACE( FALSEVALUE );
L2273:
X3 = CONS( c1499, EMPTYLIST );
X4 = SYMBOL_VALUE( current_2ddefine_2dname_v );
if ( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) ) goto L2275;
scrt6_error( c1490, c1491, CONS( X4, EMPTYLIST ) );
L2275:
X3 = CONS( SYMBOL_NAME( X4 ), X3 );
X3 = CONS( c1494, X3 );
if ( FALSE( X1 ) ) goto L2277;
X5 = plist_get( X1, c1464 );
if ( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), SYMBOLTAG ) ) ) goto L2280;
scrt6_error( c1490, c1491, CONS( X5, EMPTYLIST ) );
L2280:
X4 = SYMBOL_NAME( X5 );
goto L2278;
L2277:
X4 = expform_cname( l1448 );
L2278:
X2 = scrt3_string_2dappend( CONS( X4, X3 ) );
X3 = gencode_make_2dc_2dglobal( );
X5 = CONS( EMPTYLIST, EMPTYLIST );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) ) goto L2284;
scrt6_error( c1481, c1482, CONS( X2, EMPTYLIST ) );
L2284:
X5 = CONS( C_FIXED( STRING_LENGTH( X2 ) ), X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1476, CONS( X2, X6 ) ),
X5 );
X4 = scrt1_cons_2a( c1475,
CONS( expform_vname( X3 ), X5 ) );
lap_emit_2dglobal_2dlap( X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X4 = scrt1_cons_2a( c1483,
CONS( scrt1_cons_2a( c1484,
CONS( scrt1_cons_2a( c1485,
CONS( expform_vname( X3 ),
X7 ) ),
X6 ) ),
X5 ) );
POPSTACKTRACE( lap_emit_2dlap( X4 ) );
}
DEFTSCP( ambdacode_ody_2dgenc_da78cf6b_v );
DEFSTRING( t2286, "LAMBDA-BODY-GENC", 16 );
EXTERNTSCP( gencode_e_2dlambda_7a3ae383_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( lambdacode_reserve_2ddisplay );
EXTERNTSCP( lambdacode_reserve_2ddisplay_v );
EXTERNTSCPP( gencode_code_2dlabel );
EXTERNTSCP( gencode_code_2dlabel_v );
EXTERNTSCPP( ambdacode_ind_2dvars_b19ac457 );
EXTERNTSCP( ambdacode_ind_2dvars_b19ac457_v );
EXTERNTSCPP( ambdacode_ils_2dgenc_66c68d48 );
EXTERNTSCP( ambdacode_ils_2dgenc_66c68d48_v );
EXTERNTSCPP( gencode_exp_2dgenc );
EXTERNTSCP( gencode_exp_2dgenc_v );
EXTERNTSCPP( lap_drop_2dlap_2dtemp );
EXTERNTSCP( lap_drop_2dlap_2dtemp_v );
TSCP ambdacode_ody_2dgenc_da78cf6b( l1505,
e1506,
v1507, v1508, b1509 )
TSCP l1505, e1506, v1507, v1508, b1509;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2286 ) ) );
l1505 = CONS( l1505, EMPTYLIST );
v1507 = CONS( v1507, EMPTYLIST );
v1508 = CONS( v1508, EMPTYLIST );
if ( NEQ( TSCPTAG( e1506 ), PAIRTAG ) ) goto L2288;
X3 = PAIR_CAR( e1506 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1132 ) ) );
goto L2289;
L2288:
X2 = FALSEVALUE;
L2289:
if ( FALSE( X2 ) ) goto L2292;
if ( EQ( TSCPTAG( e1506 ), PAIRTAG ) ) goto L2295;
scrt1__24__cdr_2derror( e1506 );
L2295:
X3 = PAIR_CDR( e1506 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2298;
scrt1__24__car_2derror( X3 );
L2298:
X1 = PAIR_CAR( X3 );
goto L2293;
L2292:
X1 = X2;
L2293:
X2 = gencode_e_2dlambda_7a3ae383_v;
X3 = PAIR_CAR( l1505 );
X4 = gencode_free_2ddisplay_v;
X5 = plist_get( X1, c1653 );
gencode_e_2dlambda_7a3ae383_v = X1;
X6 = X5;
L2306:
if ( EQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L2307;
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2311;
scrt1__24__car_2derror( X6 );
L2311:
X7 = PAIR_CAR( X6 );
X10 = SYMBOL_VALUE( indirect_2dlambda_2dlexical_v );
X10 = UNKNOWNCALL( X10, 1 );
X9 = VIA( PROCEDURE_CODE( X10 ) )( X7,
PROCEDURE_CLOSURE( X10 ) );
X11 = plist_get( X7, c1232 );
X12 = plist_get( X7, c1574 );
X10 = scrt1_append_2dtwo( X11, X12 );
X8 = scrt1_append_2dtwo( X9, X10 );
X9 = X8;
L2316:
if ( EQ( UNSIGNED( X9 ), UNSIGNED( EMPTYLIST ) ) ) goto L2317;
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L2321;
scrt1__24__car_2derror( X9 );
L2321:
X10 = PAIR_CAR( X9 );
if ( TRUE( scrt1_memq( X10, PAIR_CAR( v1507 ) ) ) ) goto L2324;
X13 = sc_cons( X10, EMPTYLIST );
X12 = X13;
X11 = scrt1_append_2dtwo( PAIR_CAR( v1507 ), X12 );
SETGEN( PAIR_CAR( v1507 ), X11 );
X11 = scrt1_append_2dtwo( PAIR_CAR( v1508 ), c1569 );
SETGEN( PAIR_CAR( v1508 ), X11 );
L2324:
X9 = PAIR_CDR( X9 );
goto L2316;
L2317:
X6 = PAIR_CDR( X6 );
goto L2306;
L2307:
if ( FALSE( X5 ) ) goto L2332;
if ( NEQ( UNSIGNED( PAIR_CAR( l1505 ) ),
UNSIGNED( c1582 ) ) ) goto L2332;
X6 = lap_use_2dlap_2dtemp( );
SETGEN( PAIR_CAR( l1505 ), X6 );
L2332:
lambdacode_reserve_2ddisplay( PAIR_CAR( v1507 ), b1509 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c1584,
CONS( gencode_code_2dlabel( X1 ), X7 ) );
lap_emit_2dlap( X6 );
X6 = ambdacode_ind_2dvars_b19ac457( PAIR_CAR( v1507 ),
PAIR_CAR( v1508 ),
b1509 );
if ( NEQ( TSCPTAG( e1506 ), PAIRTAG ) ) goto L2335;
X9 = PAIR_CAR( e1506 );
X8 = BOOLEAN( EQ( UNSIGNED( X9 ),
UNSIGNED( c1132 ) ) );
goto L2336;
L2335:
X8 = FALSEVALUE;
L2336:
if ( FALSE( X8 ) ) goto L2339;
if ( EQ( TSCPTAG( e1506 ), PAIRTAG ) ) goto L2342;
scrt1__24__cdr_2derror( e1506 );
L2342:
X9 = PAIR_CDR( e1506 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L2345;
scrt1__24__cdr_2derror( X9 );
L2345:
X7 = PAIR_CDR( X9 );
goto L2340;
L2339:
X7 = X8;
L2340:
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2348;
ambdacode_ils_2dgenc_66c68d48( PAIR_CAR( l1505 ),
e1506, X6 );
goto L2349;
L2348:
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2352;
scrt1__24__cdr_2derror( X7 );
L2352:
if ( FALSE( PAIR_CDR( X7 ) ) ) goto L2354;
X8 = PAIR_CAR( X7 );
gencode_exp_2dgenc( c1164, X8, X6 );
goto L2355;
L2354:
X8 = PAIR_CAR( X7 );
gencode_exp_2dgenc( PAIR_CAR( l1505 ), X8, X6 );
L2355:
X7 = PAIR_CDR( X7 );
goto L2340;
L2349:
if ( EQ( UNSIGNED( PAIR_CAR( l1505 ) ),
UNSIGNED( X3 ) ) ) goto L2359;
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( expform_vname( PAIR_CAR( l1505 ) ), X7 );
X6 = scrt1_cons_2a( c1165,
CONS( expform_vname( X3 ), X7 ) );
lap_emit_2dlap( X6 );
lap_drop_2dlap_2dtemp( PAIR_CAR( l1505 ) );
L2359:
gencode_free_2ddisplay_v = X4;
gencode_e_2dlambda_7a3ae383_v = X2;
if ( FALSE( X5 ) ) goto L2362;
X8 = SYMBOL_VALUE( _tersection_b4e3b790_v );
X8 = UNKNOWNCALL( X8, 1 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( X5,
PROCEDURE_CLOSURE( X8 ) );
X6 = SYMBOL_VALUE( _ion_2dinfo_e0971c7d_v );
X6 = UNKNOWNCALL( X6, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X6 ) )( X7,
PROCEDURE_CLOSURE( X6 ) ) );
L2362:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( ambdacode_ils_2dgenc_66c68d48_v );
DEFSTRING( t2364, "LAMBDA-TAILS-GENC", 17 );
EXTERNTSCPP( gencode_make_2dlabel );
EXTERNTSCP( gencode_make_2dlabel_v );
EXTERNTSCP( gencode_ion_2dinfo_f92fd619_v );
EXTERNTSCPP( lap_save_2dlap_2dtemps );
EXTERNTSCP( lap_save_2dlap_2dtemps_v );
EXTERNTSCPP( lap_restore_2dlap_2dtemps );
EXTERNTSCP( lap_restore_2dlap_2dtemps_v );
TSCP ambdacode_ils_2dgenc_66c68d48( l1686, e1687, b1688 )
TSCP l1686, e1687, b1688;
{
TSCP X19,
X18,
X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2364 ) ) );
if ( NEQ( TSCPTAG( e1687 ), PAIRTAG ) ) goto L2366;
X3 = PAIR_CAR( e1687 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1132 ) ) );
goto L2367;
L2366:
X2 = FALSEVALUE;
L2367:
if ( FALSE( X2 ) ) goto L2370;
if ( EQ( TSCPTAG( e1687 ), PAIRTAG ) ) goto L2373;
scrt1__24__cdr_2derror( e1687 );
L2373:
X3 = PAIR_CDR( e1687 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2376;
scrt1__24__car_2derror( X3 );
L2376:
X1 = PAIR_CAR( X3 );
goto L2371;
L2370:
X1 = X2;
L2371:
X2 = plist_get( X1, c1653 );
if ( FALSE( X2 ) ) goto L2380;
if ( EQ( UNSIGNED( l1686 ), UNSIGNED( c1217 ) ) ) goto L2382;
X3 = gencode_make_2dlabel( );
goto L2381;
L2382:
X3 = FALSEVALUE;
goto L2381;
L2380:
X3 = FALSEVALUE;
L2381:
X4 = gencode_ion_2dinfo_f92fd619_v;
X5 = X2;
L2387:
if ( EQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L2388;
if ( FALSE( X3 ) ) goto L2391;
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c1707, CONS( X3, X7 ) );
lap_emit_2dlap( X6 );
L2391:
X6 = lap_save_2dlap_2dtemps( );
X7 = gencode_free_2ddisplay_v;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2396;
scrt1__24__car_2derror( X5 );
L2396:
X8 = PAIR_CAR( X5 );
X10 = plist_get( X8, c1232 );
X11 = plist_get( X8, c1574 );
X9 = scrt1_append_2dtwo( X10, X11 );
X10 = SYMBOL_VALUE( retrieve_2dcondition_2dinfo_v );
X10 = UNKNOWNCALL( X10, 1 );
gencode_ion_2dinfo_f92fd619_v = VIA( PROCEDURE_CODE( X10 ) )( X8,
PROCEDURE_CLOSURE( X10 ) );
X10 = plist_get( X8, c1132 );
X12 = X9;
X13 = EMPTYLIST;
X14 = EMPTYLIST;
L2401:
if ( NEQ( UNSIGNED( X12 ), UNSIGNED( EMPTYLIST ) ) ) goto L2402;
X11 = X13;
goto L2413;
L2402:
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2405;
scrt1__24__car_2derror( X12 );
L2405:
X17 = PAIR_CAR( X12 );
X18 = plist_get( X17, c1214 );
if ( FALSE( X18 ) ) goto L2409;
X19 = CONS( EMPTYLIST, EMPTYLIST );
X16 = scrt1_cons_2a( c1356, CONS( X18, X19 ) );
goto L2410;
L2409:
X16 = X17;
L2410:
X15 = sc_cons( X16, EMPTYLIST );
if ( NEQ( UNSIGNED( X13 ), UNSIGNED( EMPTYLIST ) ) ) goto L2412;
X16 = PAIR_CDR( X12 );
X14 = X15;
X13 = X15;
X12 = X16;
goto L2401;
L2412:
X16 = PAIR_CDR( X12 );
if ( EQ( TSCPTAG( X14 ), PAIRTAG ) ) goto L2417;
scrt6_error( c1201,
c1202, CONS( X14, EMPTYLIST ) );
L2417:
X14 = SETGEN( PAIR_CDR( X14 ), X15 );
X12 = X16;
goto L2401;
L2413:
ambdacode_ody_2dgenc_da78cf6b( l1686,
X10, X9, X11, b1688 );
X10 = SYMBOL_VALUE( store_2dcondition_2dinfo_v );
X10 = UNKNOWNCALL( X10, 1 );
VIA( PROCEDURE_CODE( X10 ) )( X8,
PROCEDURE_CLOSURE( X10 ) );
lap_restore_2dlap_2dtemps( X6 );
gencode_free_2ddisplay_v = X7;
X5 = PAIR_CDR( X5 );
goto L2387;
L2388:
if ( FALSE( X3 ) ) goto L2420;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1584, CONS( X3, X6 ) );
lap_emit_2dlap( X5 );
L2420:
POPSTACKTRACE( SET( gencode_ion_2dinfo_f92fd619_v, X4 ) );
}
DEFTSCP( lambdacode_reserve_2ddisplay_v );
DEFSTRING( t2422, "RESERVE-DISPLAY", 15 );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
EXTERNTSCPP( scrt2_max_2dtwo );
EXTERNTSCP( scrt2_max_2dtwo_v );
EXTERNTSCP( gencode_max_2ddisplay_v );
TSCP lambdacode_reserve_2ddisplay( v1817, b1818 )
TSCP v1817, b1818;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2422 ) ) );
X1 = v1817;
L2425:
if ( FALSE( X1 ) ) goto L2426;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2429;
scrt1__24__car_2derror( X1 );
L2429:
X2 = PAIR_CAR( X1 );
if ( FALSE( plist_get( X2, c1214 ) ) ) goto L2434;
if ( TRUE( scrt1_memq( X2, b1818 ) ) ) goto L2434;
X4 = gencode_free_2ddisplay_v;
X5 = gencode_free_2ddisplay_v;
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2438;
X6 = _TSCP( IPLUS( INT( X5 ), INT( _TSCP( 4 ) ) ) );
goto L2439;
L2438:
X6 = scrt2__2b_2dtwo( X5, _TSCP( 4 ) );
L2439:
gencode_free_2ddisplay_v = X6;
X3 = X4;
plist_put( X2, c1214, X3 );
L2434:
X1 = PAIR_CDR( X1 );
goto L2425;
L2426:
X2 = gencode_free_2ddisplay_v;
X3 = SYMBOL_VALUE( lap_2dmax_2ddisplay_v );
if ( BITAND( BITOR( INT( X3 ), INT( X2 ) ),
3 ) ) goto L2443;
if ( LTE( INT( X3 ), INT( X2 ) ) ) goto L2445;
X4 = X3;
goto L2444;
L2445:
X4 = X2;
goto L2444;
L2443:
X4 = scrt2_max_2dtwo( X3, X2 );
L2444:
SETGENTL( SYMBOL_VALUE( lap_2dmax_2ddisplay_v ), X4 );
X2 = gencode_free_2ddisplay_v;
X3 = gencode_max_2ddisplay_v;
if ( BITAND( BITOR( INT( X3 ), INT( X2 ) ),
3 ) ) goto L2448;
if ( LTE( INT( X3 ), INT( X2 ) ) ) goto L2450;
X4 = X3;
goto L2449;
L2450:
X4 = X2;
goto L2449;
L2448:
X4 = scrt2_max_2dtwo( X3, X2 );
L2449:
POPSTACKTRACE( SET( gencode_max_2ddisplay_v, X4 ) );
}
DEFTSCP( ambdacode_ind_2dvars_b19ac457_v );
DEFSTRING( t2452, "LAMBDA-BIND-VARS", 16 );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
TSCP ambdacode_ind_2dvars_b19ac457( v1867, v1868, b1869 )
TSCP v1867, v1868, b1869;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2452 ) ) );
X1 = v1867;
X2 = v1868;
X3 = b1869;
L2455:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2456;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2460;
scrt1__24__car_2derror( X2 );
L2460:
X4 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2463;
scrt1__24__car_2derror( X1 );
L2463:
X5 = PAIR_CAR( X1 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1894 ) ) ) goto L2466;
X6 = scrt1_memq( X5, X3 );
goto L2467;
L2466:
X6 = FALSEVALUE;
L2467:
if ( TRUE( X6 ) ) goto L2513;
if ( FALSE( plist_get( X5, c1214 ) ) ) goto L2471;
if ( EQ( UNSIGNED( X4 ), UNSIGNED( c1894 ) ) ) goto L2513;
if ( FALSE( plist_get( X5, c1904 ) ) ) goto L2475;
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( c1169, X9 );
X8 = CONS( scrt1_cons_2a( c1979,
CONS( expform_vname( X4 ), X9 ) ),
X8 );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1165,
CONS( scrt1_cons_2a( c1356,
CONS( plist_get( X5,
c1214 ),
X9 ) ),
X8 ) );
lap_emit_2dlap( X7 );
goto L2513;
L2475:
X8 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1356,
CONS( plist_get( X5, c1214 ), X8 ) );
if ( TRUE( scrt1_equal_3f( X4, X7 ) ) ) goto L2513;
X8 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( expform_vname( X4 ), X8 );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1165,
CONS( scrt1_cons_2a( c1356,
CONS( plist_get( X5,
c1214 ),
X9 ) ),
X8 ) );
lap_emit_2dlap( X7 );
goto L2513;
L2471:
X7 = plist_get( X5, c1904 );
if ( FALSE( X7 ) ) goto L2492;
if ( FALSE( plist_get( X5, c1911 ) ) ) goto L2483;
X8 = FALSEVALUE;
goto L2484;
L2483:
X8 = TRUEVALUE;
L2484:
if ( TRUE( X8 ) ) goto L2489;
X10 = plist_get( X5, c1911 );
X9 = plist_get( X10, c1111 );
if ( EQ( UNSIGNED( X9 ), UNSIGNED( c1106 ) ) ) goto L2489;
L2492:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1894 ) ) ) goto L2494;
if ( FALSE( plist_get( X5, c1911 ) ) ) goto L2496;
X6 = FALSEVALUE;
goto L2497;
L2496:
X6 = TRUEVALUE;
L2497:
if ( TRUE( X6 ) ) goto L2502;
X8 = plist_get( X5, c1911 );
X7 = plist_get( X8, c1111 );
if ( EQ( UNSIGNED( X7 ), UNSIGNED( c1106 ) ) ) goto L2502;
goto L2513;
L2494:
if ( EQ( UNSIGNED( X5 ), UNSIGNED( X4 ) ) ) goto L2513;
if ( TRUE( scrt1_memq( X5, X3 ) ) ) goto L2508;
X6 = lap_use_2dlap_2dtemp( );
plist_put( X5, c1930, X6 );
L2508:
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( expform_vname( X4 ), X7 );
X6 = scrt1_cons_2a( c1165,
CONS( expform_vname( X5 ), X7 ) );
lap_emit_2dlap( X6 );
goto L2513;
L2502:
X6 = lap_use_2dlap_2dtemp( );
plist_put( X5, c1930, X6 );
goto L2513;
L2489:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1894 ) ) ) goto L2510;
X6 = lap_use_2dlap_2dtemp( );
plist_put( X5, c1930, X6 );
goto L2513;
L2510:
if ( FALSE( scrt1_memq( X5, X3 ) ) ) goto L2512;
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( c1169, X8 );
X7 = CONS( scrt1_cons_2a( c1952,
CONS( expform_vname( X4 ), X8 ) ),
X7 );
X6 = scrt1_cons_2a( c1165,
CONS( expform_vname( X5 ), X7 ) );
lap_emit_2dlap( X6 );
goto L2513;
L2512:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X4 ) ) ) goto L2514;
X7 = X4;
goto L2515;
L2514:
X7 = lap_use_2dlap_2dtemp( );
L2515:
X6 = plist_get( X7, c1930 );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( c1169, X9 );
X8 = CONS( scrt1_cons_2a( c1952,
CONS( expform_vname( X4 ), X9 ) ),
X8 );
X7 = scrt1_cons_2a( c1165, CONS( X6, X8 ) );
lap_emit_2dlap( X7 );
plist_put( X5, c1930, X6 );
L2513:
X4 = PAIR_CDR( X1 );
X5 = PAIR_CDR( X2 );
X6 = PAIR_CAR( X1 );
if ( TRUE( scrt1_memq( X6, X3 ) ) ) goto L2520;
X6 = PAIR_CAR( X1 );
X3 = sc_cons( X6, X3 );
L2520:
X2 = X5;
X1 = X4;
goto L2455;
L2456:
POPSTACKTRACE( X3 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt2__init();
scrt6__init();
lap__init();
expform__init();
gencode__init();
plist__init();
scrt1__init();
MAXDISPLAY( 1 );
}
void lambdacode__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(lambdacode SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2108 ) ),
ADR( lambdacode__24lambda_2dgenc_v ),
MAKEPROCEDURE( 3,
0,
lambdacode__24lambda_2dgenc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2128 ) ),
ADR( lambdacode_procedure_2demit_v ),
MAKEPROCEDURE( 4,
0,
lambdacode_procedure_2demit,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2159 ) ),
ADR( ambdacode_ure_2demit_8ce41db4_v ),
MAKEPROCEDURE( 4,
0,
ambdacode_ure_2demit_8ce41db4,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2209 ) ),
ADR( ambdacode__2ddisplay_cfffb4a9_v ),
MAKEPROCEDURE( 2,
0,
ambdacode__2ddisplay_cfffb4a9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2224 ) ),
ADR( ambdacode__2dclosure_56745b5_v ),
MAKEPROCEDURE( 1,
0,
ambdacode__2dclosure_56745b5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2245 ) ),
ADR( ambdacode__2ddisplay_41b1bac7_v ),
MAKEPROCEDURE( 2,
0,
ambdacode__2ddisplay_41b1bac7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2259 ) ),
ADR( ambdacode_ace_2demit_561a03cc_v ),
MAKEPROCEDURE( 1,
0,
ambdacode_ace_2demit_561a03cc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2286 ) ),
ADR( ambdacode_ody_2dgenc_da78cf6b_v ),
MAKEPROCEDURE( 5,
0,
ambdacode_ody_2dgenc_da78cf6b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2364 ) ),
ADR( ambdacode_ils_2dgenc_66c68d48_v ),
MAKEPROCEDURE( 3,
0,
ambdacode_ils_2dgenc_66c68d48,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2422 ) ),
ADR( lambdacode_reserve_2ddisplay_v ),
MAKEPROCEDURE( 2,
0,
lambdacode_reserve_2ddisplay,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2452 ) ),
ADR( ambdacode_ind_2dvars_b19ac457_v ),
MAKEPROCEDURE( 3,
0,
ambdacode_ind_2dvars_b19ac457,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.