This is misccode.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2133, "REPORT-ERROR", 12 );
DEFSTATICTSCP( report_2derror_v );
DEFSTRING( t2134, "CURRENT-DEFINE-NAME", 19 );
DEFSTATICTSCP( current_2ddefine_2dname_v );
DEFSTRING( t2135, "TOP-LEVEL-SYMBOLS", 17 );
DEFSTATICTSCP( top_2dlevel_2dsymbols_v );
DEFSTRING( t2136, "MODULE-NAME-UPCASE", 18 );
DEFSTATICTSCP( module_2dname_2dupcase_v );
DEFSTRING( t2137, "CURRENT-DEFINE-STRING", 21 );
DEFSTATICTSCP( current_2ddefine_2dstring_v );
DEFSTRING( t2138, "SET!", 4 );
DEFSTATICTSCP( c2046 );
DEFSTRING( t2139, "CONSTANT", 8 );
DEFSTATICTSCP( c2039 );
DEFSTRING( t2140, "LEXICAL", 7 );
DEFSTATICTSCP( c2032 );
DEFSTRING( t2141, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1990, t2141 );
DEFSTRING( t2142, "SET-CDR!", 8 );
DEFSTATICTSCP( c1989 );
DEFSTRING( t2143, "CONDITION-INFO", 14 );
DEFSTATICTSCP( c1821 );
DEFSTATICTSCP( c1730 );
DEFSTRING( t2144, "GOTO", 4 );
DEFSTATICTSCP( c1716 );
DEFSTRING( t2145, "RETURN", 6 );
DEFSTATICTSCP( c1715 );
DEFSTRING( t2146, "LABEL", 5 );
DEFSTATICTSCP( c1710 );
DEFSTRING( t2147, "TRUE", 4 );
DEFSTATICTSCP( c1678 );
DEFSTRING( t2148, "FALSE", 5 );
DEFSTATICTSCP( c1676 );
DEFSTRING( t2149, "IF", 2 );
DEFSTATICTSCP( c1675 );
DEFSTATICTSCP( c1674 );
DEFSTRING( t2151, "NO-VALUE", 8 );
DEFSTATICTSCP( t2150 );
DEFSTRING( t2152, "$IF", 3 );
DEFSTATICTSCP( c1589 );
DEFSTRING( t2153, "$LAP", 4 );
DEFSTATICTSCP( c1521 );
DEFSTRING( t2154, "$CALL", 5 );
DEFSTATICTSCP( c1501 );
DEFSTRING( t2155, "SETGENTL", 8 );
DEFSTATICTSCP( c1442 );
DEFSTATICTSCP( c1402 );
DEFSTRING( t2157, "TOS", 3 );
DEFSTATICTSCP( t2156 );
DEFSTRING( t2159, "TSCP_CHAR", 9 );
DEFSTATICTSCP( t2158 );
DEFSTATICTSCP( c1401 );
DEFSTRING( t2161, "TSCP_INT", 8 );
DEFSTATICTSCP( t2160 );
DEFSTATICTSCP( c1400 );
DEFSTRING( t2163, "SHORTINT", 8 );
DEFSTATICTSCP( t2162 );
DEFSTATICTSCP( c1399 );
DEFSTRING( t2165, "LONGINT", 7 );
DEFSTATICTSCP( t2164 );
DEFSTATICTSCP( c1398 );
DEFSTRING( t2167, "TSCP_UNSIGNED", 13 );
DEFSTATICTSCP( t2166 );
DEFSTATICTSCP( c1397 );
DEFSTRING( t2169, "SHORTUNSIGNED", 13 );
DEFSTATICTSCP( t2168 );
DEFSTATICTSCP( c1396 );
DEFSTRING( t2171, "LONGUNSIGNED", 12 );
DEFSTATICTSCP( t2170 );
DEFSTATICTSCP( c1395 );
DEFSTRING( t2173, "TSCP_POINTER", 12 );
DEFSTATICTSCP( t2172 );
DEFSTATICTSCP( c1394 );
DEFSTRING( t2175, "TSCP_DOUBLE", 11 );
DEFSTATICTSCP( t2174 );
DEFSTRING( t2177, "CFLOAT", 6 );
DEFSTATICTSCP( t2176 );
DEFSTATICTSCP( c1393 );
DEFSTRING( t2178, "LONGUNSIGNED", 12 );
DEFSTATICTSCP( c1383 );
DEFSTRING( t2179, "SHORTUNSIGNED", 13 );
DEFSTATICTSCP( c1379 );
DEFSTRING( t2180, "LONGINT", 7 );
DEFSTATICTSCP( c1372 );
DEFSTRING( t2181, "SHORTINT", 8 );
DEFSTATICTSCP( c1368 );
DEFSTRING( t2182, "SETGEN", 6 );
DEFSTATICTSCP( c1330 );
DEFSTRING( t2183, "$SET", 4 );
DEFSTATICTSCP( c1319 );
DEFSTRING( t2184, "CLOSED-PROCEDURE", 16 );
DEFSTATICTSCP( c1296 );
DEFSTRING( t2185, "GENERATE", 8 );
DEFSTATICTSCP( c1293 );
DEFSTRING( t2186, "LAMBDA", 6 );
DEFSTATICTSCP( c1286 );
DEFSTRING( t2187, "$DEFINE", 7 );
DEFSTATICTSCP( c1236 );
DEFSTRING( t2188, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1213, t2188 );
DEFSTRING( t2189, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1212 );
DEFSTRING( t2190, "TOP-LEVEL", 9 );
DEFSTATICTSCP( c1207 );
DEFSTRING( t2191, "ADR", 3 );
DEFSTATICTSCP( c1206 );
DEFSTRING( t2192, "U_TX", 4 );
DEFSTATICTSCP( c1205 );
DEFSTRING( t2193, "INITIALIZEVAR", 13 );
DEFSTATICTSCP( c1204 );
DEFSTRING( t2194, "EXTERNAL", 8 );
DEFSTATICTSCP( c1203 );
DEFSTRING( t2195, "TOS", 3 );
DEFSTATICTSCP( c1199 );
DEFSTRING( t2196, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c1197, t2196 );
DEFSTRING( t2197, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c1196 );
DEFSTRING( t2198, "CSTRING", 7 );
DEFSTATICTSCP( c1191 );
DEFSTRING( t2199, "DEFSTRING", 9 );
DEFSTATICTSCP( c1190 );
DEFSTRING( t2200, "_", 1 );
DEFSTATICTSCP2( c1189, t2200 );
DEFSTRING( t2201, "DEFTSCP", 7 );
DEFSTATICTSCP( c1177 );
DEFSTRING( t2202, "TYPE", 4 );
DEFSTATICTSCP( c1160 );
DEFSTRING( t2203, "GLOBAL", 6 );
DEFSTATICTSCP( c1156 );
DEFSTRING( t2204, "USE", 3 );
DEFSTATICTSCP( c1155 );
DEFSTRING( t2205, "CHAR_TSCP", 9 );
DEFSTATICTSCP( c1146 );
DEFSTRING( t2206, "INT_TSCP", 8 );
DEFSTATICTSCP( c1145 );
DEFSTRING( t2207, "UNSIGNED_TSCP", 13 );
DEFSTATICTSCP( c1144 );
DEFSTRING( t2208, "POINTER_TSCP", 12 );
DEFSTATICTSCP( c1143 );
DEFSTRING( t2209, "CDOUBLE", 7 );
DEFSTATICTSCP( c1142 );
DEFSTRING( t2210, "DOUBLE_TSCP", 11 );
DEFSTATICTSCP( c1141 );
DEFSTRING( t2211, "PRINTNAME", 9 );
DEFSTATICTSCP( c1140 );
DEFSTRING( t2212, "Cannot load value of", 20 );
DEFSTATICTSCP2( c1137, t2212 );
DEFSTRING( t2213, "DOUBLE", 6 );
DEFSTATICTSCP( c1135 );
DEFSTRING( t2214, "FLOAT", 5 );
DEFSTATICTSCP( c1131 );
DEFSTRING( t2215, "TSCP", 4 );
DEFSTATICTSCP( c1127 );
DEFSTRING( t2216, "POINTER", 7 );
DEFSTATICTSCP( c1123 );
DEFSTATICTSCP( c1119 );
DEFSTRING( t2217, "UNSIGNED", 8 );
DEFSTATICTSCP( c1118 );
DEFSTATICTSCP( c1114 );
DEFSTRING( t2218, "INT", 3 );
DEFSTATICTSCP( c1113 );
DEFSTRING( t2219, "CHAR", 4 );
DEFSTATICTSCP( c1109 );
DEFSTRING( t2220, "SET", 3 );
DEFSTATICTSCP( c1103 );
DEFSTRING( t2221, "NO-VALUE", 8 );
DEFSTATICTSCP( c1102 );
static void init_constants()
{
TSCP X1;
report_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2133 ) ) );
CONSTANTEXP( ADR( report_2derror_v ) );
current_2ddefine_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2134 ) ) );
CONSTANTEXP( ADR( current_2ddefine_2dname_v ) );
top_2dlevel_2dsymbols_v = STRINGTOSYMBOL( U_TX( ADR( t2135 ) ) );
CONSTANTEXP( ADR( top_2dlevel_2dsymbols_v ) );
module_2dname_2dupcase_v = STRINGTOSYMBOL( U_TX( ADR( t2136 ) ) );
CONSTANTEXP( ADR( module_2dname_2dupcase_v ) );
current_2ddefine_2dstring_v = STRINGTOSYMBOL( U_TX( ADR( t2137 ) ) );
CONSTANTEXP( ADR( current_2ddefine_2dstring_v ) );
c2046 = STRINGTOSYMBOL( U_TX( ADR( t2138 ) ) );
CONSTANTEXP( ADR( c2046 ) );
c2039 = STRINGTOSYMBOL( U_TX( ADR( t2139 ) ) );
CONSTANTEXP( ADR( c2039 ) );
c2032 = STRINGTOSYMBOL( U_TX( ADR( t2140 ) ) );
CONSTANTEXP( ADR( c2032 ) );
c1989 = STRINGTOSYMBOL( U_TX( ADR( t2142 ) ) );
CONSTANTEXP( ADR( c1989 ) );
c1821 = STRINGTOSYMBOL( U_TX( ADR( t2143 ) ) );
CONSTANTEXP( ADR( c1821 ) );
c1730 = EMPTYLIST;
c1730 = CONS( EMPTYLIST, c1730 );
CONSTANTEXP( ADR( c1730 ) );
c1716 = STRINGTOSYMBOL( U_TX( ADR( t2144 ) ) );
CONSTANTEXP( ADR( c1716 ) );
c1715 = STRINGTOSYMBOL( U_TX( ADR( t2145 ) ) );
CONSTANTEXP( ADR( c1715 ) );
c1710 = STRINGTOSYMBOL( U_TX( ADR( t2146 ) ) );
CONSTANTEXP( ADR( c1710 ) );
c1678 = STRINGTOSYMBOL( U_TX( ADR( t2147 ) ) );
CONSTANTEXP( ADR( c1678 ) );
c1676 = STRINGTOSYMBOL( U_TX( ADR( t2148 ) ) );
CONSTANTEXP( ADR( c1676 ) );
c1675 = STRINGTOSYMBOL( U_TX( ADR( t2149 ) ) );
CONSTANTEXP( ADR( c1675 ) );
c1674 = EMPTYLIST;
t2150 = STRINGTOSYMBOL( U_TX( ADR( t2151 ) ) );
c1674 = CONS( t2150, c1674 );
c1674 = CONS( c1715, c1674 );
CONSTANTEXP( ADR( c1674 ) );
c1589 = STRINGTOSYMBOL( U_TX( ADR( t2152 ) ) );
CONSTANTEXP( ADR( c1589 ) );
c1521 = STRINGTOSYMBOL( U_TX( ADR( t2153 ) ) );
CONSTANTEXP( ADR( c1521 ) );
c1501 = STRINGTOSYMBOL( U_TX( ADR( t2154 ) ) );
CONSTANTEXP( ADR( c1501 ) );
c1442 = STRINGTOSYMBOL( U_TX( ADR( t2155 ) ) );
CONSTANTEXP( ADR( c1442 ) );
c1402 = EMPTYLIST;
t2156 = STRINGTOSYMBOL( U_TX( ADR( t2157 ) ) );
c1402 = CONS( t2156, c1402 );
t2158 = STRINGTOSYMBOL( U_TX( ADR( t2159 ) ) );
c1402 = CONS( t2158, c1402 );
CONSTANTEXP( ADR( c1402 ) );
c1401 = EMPTYLIST;
c1401 = CONS( t2156, c1401 );
t2160 = STRINGTOSYMBOL( U_TX( ADR( t2161 ) ) );
c1401 = CONS( t2160, c1401 );
CONSTANTEXP( ADR( c1401 ) );
c1400 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2156, X1 );
X1 = CONS( t2160, X1 );
c1400 = CONS( X1, c1400 );
t2162 = STRINGTOSYMBOL( U_TX( ADR( t2163 ) ) );
c1400 = CONS( t2162, c1400 );
CONSTANTEXP( ADR( c1400 ) );
c1399 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2156, X1 );
X1 = CONS( t2160, X1 );
c1399 = CONS( X1, c1399 );
t2164 = STRINGTOSYMBOL( U_TX( ADR( t2165 ) ) );
c1399 = CONS( t2164, c1399 );
CONSTANTEXP( ADR( c1399 ) );
c1398 = EMPTYLIST;
c1398 = CONS( t2156, c1398 );
t2166 = STRINGTOSYMBOL( U_TX( ADR( t2167 ) ) );
c1398 = CONS( t2166, c1398 );
CONSTANTEXP( ADR( c1398 ) );
c1397 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2156, X1 );
X1 = CONS( t2166, X1 );
c1397 = CONS( X1, c1397 );
t2168 = STRINGTOSYMBOL( U_TX( ADR( t2169 ) ) );
c1397 = CONS( t2168, c1397 );
CONSTANTEXP( ADR( c1397 ) );
c1396 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2156, X1 );
X1 = CONS( t2166, X1 );
c1396 = CONS( X1, c1396 );
t2170 = STRINGTOSYMBOL( U_TX( ADR( t2171 ) ) );
c1396 = CONS( t2170, c1396 );
CONSTANTEXP( ADR( c1396 ) );
c1395 = EMPTYLIST;
c1395 = CONS( t2156, c1395 );
t2172 = STRINGTOSYMBOL( U_TX( ADR( t2173 ) ) );
c1395 = CONS( t2172, c1395 );
CONSTANTEXP( ADR( c1395 ) );
c1394 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2156, X1 );
t2174 = STRINGTOSYMBOL( U_TX( ADR( t2175 ) ) );
X1 = CONS( t2174, X1 );
c1394 = CONS( X1, c1394 );
t2176 = STRINGTOSYMBOL( U_TX( ADR( t2177 ) ) );
c1394 = CONS( t2176, c1394 );
CONSTANTEXP( ADR( c1394 ) );
c1393 = EMPTYLIST;
c1393 = CONS( t2156, c1393 );
c1393 = CONS( t2174, c1393 );
CONSTANTEXP( ADR( c1393 ) );
c1383 = STRINGTOSYMBOL( U_TX( ADR( t2178 ) ) );
CONSTANTEXP( ADR( c1383 ) );
c1379 = STRINGTOSYMBOL( U_TX( ADR( t2179 ) ) );
CONSTANTEXP( ADR( c1379 ) );
c1372 = STRINGTOSYMBOL( U_TX( ADR( t2180 ) ) );
CONSTANTEXP( ADR( c1372 ) );
c1368 = STRINGTOSYMBOL( U_TX( ADR( t2181 ) ) );
CONSTANTEXP( ADR( c1368 ) );
c1330 = STRINGTOSYMBOL( U_TX( ADR( t2182 ) ) );
CONSTANTEXP( ADR( c1330 ) );
c1319 = STRINGTOSYMBOL( U_TX( ADR( t2183 ) ) );
CONSTANTEXP( ADR( c1319 ) );
c1296 = STRINGTOSYMBOL( U_TX( ADR( t2184 ) ) );
CONSTANTEXP( ADR( c1296 ) );
c1293 = STRINGTOSYMBOL( U_TX( ADR( t2185 ) ) );
CONSTANTEXP( ADR( c1293 ) );
c1286 = STRINGTOSYMBOL( U_TX( ADR( t2186 ) ) );
CONSTANTEXP( ADR( c1286 ) );
c1236 = STRINGTOSYMBOL( U_TX( ADR( t2187 ) ) );
CONSTANTEXP( ADR( c1236 ) );
c1212 = STRINGTOSYMBOL( U_TX( ADR( t2189 ) ) );
CONSTANTEXP( ADR( c1212 ) );
c1207 = STRINGTOSYMBOL( U_TX( ADR( t2190 ) ) );
CONSTANTEXP( ADR( c1207 ) );
c1206 = STRINGTOSYMBOL( U_TX( ADR( t2191 ) ) );
CONSTANTEXP( ADR( c1206 ) );
c1205 = STRINGTOSYMBOL( U_TX( ADR( t2192 ) ) );
CONSTANTEXP( ADR( c1205 ) );
c1204 = STRINGTOSYMBOL( U_TX( ADR( t2193 ) ) );
CONSTANTEXP( ADR( c1204 ) );
c1203 = STRINGTOSYMBOL( U_TX( ADR( t2194 ) ) );
CONSTANTEXP( ADR( c1203 ) );
c1199 = STRINGTOSYMBOL( U_TX( ADR( t2195 ) ) );
CONSTANTEXP( ADR( c1199 ) );
c1196 = STRINGTOSYMBOL( U_TX( ADR( t2197 ) ) );
CONSTANTEXP( ADR( c1196 ) );
c1191 = STRINGTOSYMBOL( U_TX( ADR( t2198 ) ) );
CONSTANTEXP( ADR( c1191 ) );
c1190 = STRINGTOSYMBOL( U_TX( ADR( t2199 ) ) );
CONSTANTEXP( ADR( c1190 ) );
c1177 = STRINGTOSYMBOL( U_TX( ADR( t2201 ) ) );
CONSTANTEXP( ADR( c1177 ) );
c1160 = STRINGTOSYMBOL( U_TX( ADR( t2202 ) ) );
CONSTANTEXP( ADR( c1160 ) );
c1156 = STRINGTOSYMBOL( U_TX( ADR( t2203 ) ) );
CONSTANTEXP( ADR( c1156 ) );
c1155 = STRINGTOSYMBOL( U_TX( ADR( t2204 ) ) );
CONSTANTEXP( ADR( c1155 ) );
c1146 = STRINGTOSYMBOL( U_TX( ADR( t2205 ) ) );
CONSTANTEXP( ADR( c1146 ) );
c1145 = STRINGTOSYMBOL( U_TX( ADR( t2206 ) ) );
CONSTANTEXP( ADR( c1145 ) );
c1144 = STRINGTOSYMBOL( U_TX( ADR( t2207 ) ) );
CONSTANTEXP( ADR( c1144 ) );
c1143 = STRINGTOSYMBOL( U_TX( ADR( t2208 ) ) );
CONSTANTEXP( ADR( c1143 ) );
c1142 = STRINGTOSYMBOL( U_TX( ADR( t2209 ) ) );
CONSTANTEXP( ADR( c1142 ) );
c1141 = STRINGTOSYMBOL( U_TX( ADR( t2210 ) ) );
CONSTANTEXP( ADR( c1141 ) );
c1140 = STRINGTOSYMBOL( U_TX( ADR( t2211 ) ) );
CONSTANTEXP( ADR( c1140 ) );
c1135 = STRINGTOSYMBOL( U_TX( ADR( t2213 ) ) );
CONSTANTEXP( ADR( c1135 ) );
c1131 = STRINGTOSYMBOL( U_TX( ADR( t2214 ) ) );
CONSTANTEXP( ADR( c1131 ) );
c1127 = STRINGTOSYMBOL( U_TX( ADR( t2215 ) ) );
CONSTANTEXP( ADR( c1127 ) );
c1123 = STRINGTOSYMBOL( U_TX( ADR( t2216 ) ) );
CONSTANTEXP( ADR( c1123 ) );
c1119 = EMPTYLIST;
c1119 = CONS( c1383, c1119 );
c1119 = CONS( c1379, c1119 );
CONSTANTEXP( ADR( c1119 ) );
c1118 = STRINGTOSYMBOL( U_TX( ADR( t2217 ) ) );
CONSTANTEXP( ADR( c1118 ) );
c1114 = EMPTYLIST;
c1114 = CONS( c1372, c1114 );
c1114 = CONS( c1368, c1114 );
CONSTANTEXP( ADR( c1114 ) );
c1113 = STRINGTOSYMBOL( U_TX( ADR( t2218 ) ) );
CONSTANTEXP( ADR( c1113 ) );
c1109 = STRINGTOSYMBOL( U_TX( ADR( t2219 ) ) );
CONSTANTEXP( ADR( c1109 ) );
c1103 = STRINGTOSYMBOL( U_TX( ADR( t2220 ) ) );
CONSTANTEXP( ADR( c1103 ) );
c1102 = STRINGTOSYMBOL( U_TX( ADR( t2221 ) ) );
CONSTANTEXP( ADR( c1102 ) );
}
DEFTSCP( misccode_symbol_2dgenc_v );
DEFSTRING( t2222, "SYMBOL-GENC", 11 );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
EXTERNTSCPP( gencode_lookup );
EXTERNTSCP( gencode_lookup_v );
EXTERNTSCPP( lap_emit_2dlap );
EXTERNTSCP( lap_emit_2dlap_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt1_memv );
EXTERNTSCP( scrt1_memv_v );
EXTERNTSCPP( expform_vname );
EXTERNTSCP( expform_vname_v );
TSCP misccode_symbol_2dgenc( l1093, e1094, b1095 )
TSCP l1093, e1094, b1095;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2222 ) ) );
X2 = plist_get( e1094, c1155 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1156 ) ) ) goto L2224;
X1 = plist_get( e1094, c1160 );
goto L2225;
L2224:
X1 = FALSEVALUE;
L2225:
X2 = gencode_lookup( e1094, b1095 );
if ( EQ( UNSIGNED( l1093 ), UNSIGNED( c1102 ) ) ) goto L2227;
if ( FALSE( X1 ) ) goto L2229;
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1109 ) ) ) goto L2231;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1146, CONS( X2, X6 ) );
goto L2248;
L2231:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1113 ) ) ) goto L2233;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1145, CONS( X2, X6 ) );
goto L2248;
L2233:
if ( FALSE( scrt1_memv( X1, c1114 ) ) ) goto L2235;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1145,
CONS( scrt1_cons_2a( c1113,
CONS( X2, X7 ) ),
X6 ) );
goto L2248;
L2235:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1118 ) ) ) goto L2237;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1144, CONS( X2, X6 ) );
goto L2248;
L2237:
if ( FALSE( scrt1_memv( X1, c1119 ) ) ) goto L2239;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1144,
CONS( scrt1_cons_2a( c1118,
CONS( X2, X7 ) ),
X6 ) );
goto L2248;
L2239:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1123 ) ) ) goto L2241;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1143, CONS( X2, X6 ) );
goto L2248;
L2241:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1127 ) ) ) goto L2243;
X5 = X2;
goto L2248;
L2243:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1131 ) ) ) goto L2245;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1141,
CONS( scrt1_cons_2a( c1142,
CONS( X2, X7 ) ),
X6 ) );
goto L2248;
L2245:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1135 ) ) ) goto L2247;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1141, CONS( X2, X6 ) );
goto L2248;
L2247:
X7 = plist_get( e1094, c1140 );
X6 = SYMBOL_VALUE( report_2derror_v );
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( c1137,
X7,
PROCEDURE_CLOSURE( X6 ) );
L2248:
X4 = CONS( X5, X4 );
X3 = scrt1_cons_2a( c1103,
CONS( expform_vname( l1093 ), X4 ) );
POPSTACKTRACE( lap_emit_2dlap( X3 ) );
L2229:
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( X2, X4 );
X3 = scrt1_cons_2a( c1103,
CONS( expform_vname( l1093 ), X4 ) );
POPSTACKTRACE( lap_emit_2dlap( X3 ) );
L2227:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( misccode__24define_2dgenc_v );
DEFSTRING( t2249, "$DEFINE-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( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( gencode_make_2dc_2dglobal );
EXTERNTSCP( gencode_make_2dc_2dglobal_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( lap_emit_2dglobal_2dlap );
EXTERNTSCP( lap_emit_2dglobal_2dlap_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( gencode_exp_2dgenc );
EXTERNTSCP( gencode_exp_2dgenc_v );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
TSCP misccode__24define_2dgenc( l1163, e1164, b1165 )
TSCP l1163, e1164, b1165;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2249 ) ) );
if ( NEQ( TSCPTAG( e1164 ), PAIRTAG ) ) goto L2251;
X3 = PAIR_CAR( e1164 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1236 ) ) );
goto L2252;
L2251:
X2 = FALSEVALUE;
L2252:
if ( FALSE( X2 ) ) goto L2255;
if ( EQ( TSCPTAG( e1164 ), PAIRTAG ) ) goto L2258;
scrt1__24__cdr_2derror( e1164 );
L2258:
X3 = PAIR_CDR( e1164 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2261;
scrt1__24__car_2derror( X3 );
L2261:
X1 = PAIR_CAR( X3 );
goto L2256;
L2255:
X1 = X2;
L2256:
if ( NEQ( TSCPTAG( e1164 ), PAIRTAG ) ) goto L2264;
X4 = PAIR_CAR( e1164 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1236 ) ) );
goto L2265;
L2264:
X3 = FALSEVALUE;
L2265:
if ( FALSE( X3 ) ) goto L2268;
X2 = scrt1_caddr( e1164 );
goto L2269;
L2268:
X2 = X3;
L2269:
X3 = gencode_make_2dc_2dglobal( );
X5 = plist_get( X1, c1140 );
if ( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), SYMBOLTAG ) ) ) goto L2273;
scrt6_error( c1212, c1213, CONS( X5, EMPTYLIST ) );
L2273:
X4 = SYMBOL_NAME( X5 );
X4 = CONS( X4, EMPTYLIST );
SETGENTL( SYMBOL_VALUE( current_2ddefine_2dname_v ),
plist_get( X1, c1140 ) );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1177,
CONS( expform_vname( X1 ), X6 ) );
lap_emit_2dglobal_2dlap( X5 );
X5 = SYMBOL_VALUE( top_2dlevel_2dsymbols_v );
if ( EQ( UNSIGNED( X5 ), UNSIGNED( TRUEVALUE ) ) ) goto L2278;
X5 = plist_get( X1, c1140 );
X6 = SYMBOL_VALUE( top_2dlevel_2dsymbols_v );
if ( TRUE( scrt1_memq( X5, X6 ) ) ) goto L2278;
X6 = CONS( PAIR_CAR( X4 ), EMPTYLIST );
X6 = CONS( c1189, X6 );
X5 = scrt3_string_2dappend( CONS( SYMBOL_VALUE( module_2dname_2dupcase_v ),
X6 ) );
SETGEN( PAIR_CAR( X4 ), X5 );
L2278:
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = PAIR_CAR( X4 );
if ( AND( EQ( TSCPTAG( X7 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X7 ), STRINGTAG ) ) ) goto L2281;
scrt6_error( c1196, c1197, CONS( X7, EMPTYLIST ) );
L2281:
X6 = CONS( C_FIXED( STRING_LENGTH( X7 ) ), X6 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( scrt1_cons_2a( c1191,
CONS( PAIR_CAR( X4 ), X7 ) ),
X6 );
X5 = scrt1_cons_2a( c1190,
CONS( expform_vname( X3 ), X6 ) );
lap_emit_2dglobal_2dlap( X5 );
SETGENTL( SYMBOL_VALUE( current_2ddefine_2dstring_v ),
X3 );
gencode_exp_2dgenc( c1199, X2, b1165 );
plist_put( X1, c1203, TRUEVALUE );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( c1199, X6 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( scrt1_cons_2a( c1206,
CONS( expform_vname( X1 ), X7 ) ),
X6 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( c1204,
CONS( scrt1_cons_2a( c1205,
CONS( scrt1_cons_2a( c1206,
CONS( expform_vname( X3 ),
X8 ) ),
X7 ) ),
X6 ) );
lap_emit_2dlap( X5 );
POPSTACKTRACE( SETGENTL( SYMBOL_VALUE( current_2ddefine_2dname_v ),
c1207 ) );
}
DEFTSCP( misccode__24set_2dgenc_v );
DEFSTRING( t2283, "$SET-GENC", 9 );
EXTERNTSCPP( gencode_var_2din_2dstack );
EXTERNTSCP( gencode_var_2din_2dstack_v );
EXTERNTSCPP( gencode_op_2dlevel_343ff0cb );
EXTERNTSCP( gencode_op_2dlevel_343ff0cb_v );
EXTERNTSCPP( lap_use_2dlap_2dtemp );
EXTERNTSCP( lap_use_2dlap_2dtemp_v );
EXTERNTSCPP( lap_drop_2dlap_2dtemp );
EXTERNTSCP( lap_drop_2dlap_2dtemp_v );
TSCP misccode__24set_2dgenc( l1272, e1273, b1274 )
TSCP l1272, e1273, b1274;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2283 ) ) );
if ( NEQ( TSCPTAG( e1273 ), PAIRTAG ) ) goto L2285;
X5 = PAIR_CAR( e1273 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1319 ) ) );
goto L2286;
L2285:
X4 = FALSEVALUE;
L2286:
if ( FALSE( X4 ) ) goto L2289;
if ( EQ( TSCPTAG( e1273 ), PAIRTAG ) ) goto L2292;
scrt1__24__cdr_2derror( e1273 );
L2292:
X5 = PAIR_CDR( e1273 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2295;
scrt1__24__car_2derror( X5 );
L2295:
X2 = PAIR_CAR( X5 );
goto L2290;
L2289:
X2 = X4;
L2290:
if ( FALSE( gencode_var_2din_2dstack( X2 ) ) ) goto L2298;
X1 = c1330;
goto L2301;
L2298:
if ( FALSE( gencode_op_2dlevel_343ff0cb( X2 ) ) ) goto L2300;
X1 = c1442;
goto L2301;
L2300:
X1 = c1103;
L2301:
X4 = plist_get( X2, c1155 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1156 ) ) ) goto L2303;
X3 = plist_get( X2, c1160 );
goto L2304;
L2303:
X3 = FALSEVALUE;
L2304:
X4 = plist_get( X2, c1286 );
if ( FALSE( X4 ) ) goto L2318;
X6 = plist_get( X2, c1286 );
X5 = plist_get( X6, c1293 );
if ( EQ( UNSIGNED( X5 ), UNSIGNED( c1296 ) ) ) goto L2318;
if ( NEQ( TSCPTAG( e1273 ), PAIRTAG ) ) goto L2312;
X7 = PAIR_CAR( e1273 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1319 ) ) );
goto L2313;
L2312:
X6 = FALSEVALUE;
L2313:
if ( FALSE( X6 ) ) goto L2316;
X5 = scrt1_caddr( e1273 );
goto L2317;
L2316:
X5 = X6;
L2317:
POPSTACKTRACE( gencode_exp_2dgenc( c1102, X5, b1274 ) );
L2318:
if ( FALSE( X3 ) ) goto L2319;
if ( NEQ( UNSIGNED( l1272 ), UNSIGNED( c1102 ) ) ) goto L2321;
X4 = c1199;
goto L2322;
L2321:
X4 = lap_use_2dlap_2dtemp( );
L2322:
if ( NEQ( TSCPTAG( e1273 ), PAIRTAG ) ) goto L2324;
X7 = PAIR_CAR( e1273 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1319 ) ) );
goto L2325;
L2324:
X6 = FALSEVALUE;
L2325:
if ( FALSE( X6 ) ) goto L2328;
X5 = scrt1_caddr( e1273 );
goto L2329;
L2328:
X5 = X6;
L2329:
gencode_exp_2dgenc( X4, X5, b1274 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( expform_vname( X4 ), X6 );
X5 = scrt1_cons_2a( c1103, CONS( c1199, X6 ) );
lap_emit_2dlap( X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1109 ) ) ) goto L2330;
X7 = c1402;
goto L2351;
L2330:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1113 ) ) ) goto L2332;
X7 = c1401;
goto L2351;
L2332:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1127 ) ) ) goto L2334;
X7 = c1199;
goto L2351;
L2334:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1368 ) ) ) goto L2336;
X7 = c1400;
goto L2351;
L2336:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1372 ) ) ) goto L2338;
X7 = c1399;
goto L2351;
L2338:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1118 ) ) ) goto L2340;
X7 = c1398;
goto L2351;
L2340:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1379 ) ) ) goto L2342;
X7 = c1397;
goto L2351;
L2342:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1383 ) ) ) goto L2344;
X7 = c1396;
goto L2351;
L2344:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1123 ) ) ) goto L2346;
X7 = c1395;
goto L2351;
L2346:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1131 ) ) ) goto L2348;
X7 = c1394;
goto L2351;
L2348:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1135 ) ) ) goto L2350;
X7 = c1393;
goto L2351;
L2350:
X7 = FALSEVALUE;
L2351:
X6 = CONS( X7, X6 );
X5 = scrt1_cons_2a( c1103,
CONS( gencode_lookup( X2, b1274 ),
X6 ) );
lap_emit_2dlap( X5 );
if ( EQ( UNSIGNED( X4 ), UNSIGNED( c1199 ) ) ) goto L2352;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( expform_vname( X4 ), X6 );
X5 = scrt1_cons_2a( c1103,
CONS( expform_vname( l1272 ), X6 ) );
lap_emit_2dlap( X5 );
POPSTACKTRACE( lap_drop_2dlap_2dtemp( X4 ) );
L2352:
POPSTACKTRACE( FALSEVALUE );
L2319:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1330 ) ) ) goto L2355;
X4 = lap_use_2dlap_2dtemp( );
goto L2356;
L2355:
X4 = c1199;
L2356:
if ( NEQ( TSCPTAG( e1273 ), PAIRTAG ) ) goto L2358;
X7 = PAIR_CAR( e1273 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1319 ) ) );
goto L2359;
L2358:
X6 = FALSEVALUE;
L2359:
if ( FALSE( X6 ) ) goto L2362;
X5 = scrt1_caddr( e1273 );
goto L2363;
L2362:
X5 = X6;
L2363:
gencode_exp_2dgenc( X4, X5, b1274 );
if ( NEQ( UNSIGNED( l1272 ), UNSIGNED( c1102 ) ) ) goto L2364;
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( X4, X6 );
X5 = scrt1_cons_2a( X1,
CONS( gencode_lookup( X2, b1274 ),
X6 ) );
lap_emit_2dlap( X5 );
goto L2365;
L2364:
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( X4, X7 );
X6 = CONS( scrt1_cons_2a( X1,
CONS( gencode_lookup( X2, b1274 ),
X7 ) ),
X6 );
X5 = scrt1_cons_2a( c1103,
CONS( expform_vname( l1272 ), X6 ) );
lap_emit_2dlap( X5 );
L2365:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( c1199 ) ) ) goto L2366;
POPSTACKTRACE( lap_drop_2dlap_2dtemp( X4 ) );
L2366:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( misccode__24if_2dgenc_v );
DEFSTRING( t2368, "$IF-GENC", 8 );
EXTERNTSCPP( scrt1_cadddr );
EXTERNTSCP( scrt1_cadddr_v );
EXTERNTSCPP( misccode_args_2dset_21_3f );
EXTERNTSCP( misccode_args_2dset_21_3f_v );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
EXTERNTSCPP( misccode_dbefore_3f_136acdb0 );
EXTERNTSCP( misccode_dbefore_3f_136acdb0_v );
EXTERNTSCPP( misccode_dbefore_3f_d2e61671 );
EXTERNTSCP( misccode_dbefore_3f_d2e61671_v );
EXTERNTSCPP( misccode_2doptimize_474b940d );
EXTERNTSCP( misccode_2doptimize_474b940d_v );
TSCP misccode__24if_2dgenc( l1476, e1477, b1478 )
TSCP l1476, e1477, b1478;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2368 ) ) );
if ( NEQ( TSCPTAG( e1477 ), PAIRTAG ) ) goto L2370;
X3 = PAIR_CAR( e1477 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1589 ) ) );
goto L2371;
L2370:
X2 = FALSEVALUE;
L2371:
if ( FALSE( X2 ) ) goto L2374;
X1 = scrt1_cadddr( e1477 );
goto L2375;
L2374:
X1 = X2;
L2375:
if ( NEQ( TSCPTAG( e1477 ), PAIRTAG ) ) goto L2376;
X4 = PAIR_CAR( e1477 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1589 ) ) );
goto L2377;
L2376:
X3 = FALSEVALUE;
L2377:
if ( FALSE( X3 ) ) goto L2380;
X2 = scrt1_caddr( e1477 );
goto L2381;
L2380:
X2 = X3;
L2381:
if ( NEQ( TSCPTAG( e1477 ), PAIRTAG ) ) goto L2382;
X5 = PAIR_CAR( e1477 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1589 ) ) );
goto L2383;
L2382:
X4 = FALSEVALUE;
L2383:
if ( FALSE( X4 ) ) goto L2386;
if ( EQ( TSCPTAG( e1477 ), PAIRTAG ) ) goto L2389;
scrt1__24__cdr_2derror( e1477 );
L2389:
X5 = PAIR_CDR( e1477 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2392;
scrt1__24__car_2derror( X5 );
L2392:
X3 = PAIR_CAR( X5 );
goto L2387;
L2386:
X3 = X4;
L2387:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2395;
X5 = PAIR_CAR( X3 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1501 ) ) );
goto L2396;
L2395:
X4 = FALSEVALUE;
L2396:
if ( FALSE( X4 ) ) goto L2429;
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2402;
X8 = PAIR_CAR( X3 );
X7 = BOOLEAN( EQ( UNSIGNED( X8 ),
UNSIGNED( c1501 ) ) );
goto L2403;
L2402:
X7 = FALSEVALUE;
L2403:
if ( FALSE( X7 ) ) goto L2406;
X6 = scrt1_caddr( X3 );
goto L2407;
L2406:
X6 = X7;
L2407:
if ( NEQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2409;
X7 = PAIR_CAR( X6 );
X5 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1521 ) ) );
goto L2410;
L2409:
X5 = FALSEVALUE;
L2410:
if ( FALSE( X5 ) ) goto L2429;
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2418;
X8 = PAIR_CAR( X3 );
X7 = BOOLEAN( EQ( UNSIGNED( X8 ),
UNSIGNED( c1501 ) ) );
goto L2419;
L2418:
X7 = FALSEVALUE;
L2419:
if ( FALSE( X7 ) ) goto L2422;
X6 = scrt1_cdddr( X3 );
goto L2423;
L2422:
X6 = X7;
L2423:
if ( TRUE( misccode_args_2dset_21_3f( X6 ) ) ) goto L2429;
if ( FALSE( misccode_dbefore_3f_136acdb0( X3 ) ) ) goto L2425;
POPSTACKTRACE( gencode_exp_2dgenc( l1476, X2, b1478 ) );
L2425:
if ( FALSE( misccode_dbefore_3f_d2e61671( X3 ) ) ) goto L2427;
POPSTACKTRACE( gencode_exp_2dgenc( l1476, X1, b1478 ) );
L2427:
POPSTACKTRACE( misccode_2doptimize_474b940d( l1476,
e1477,
b1478, X3 ) );
L2429:
POPSTACKTRACE( misccode_2doptimize_474b940d( l1476,
e1477,
b1478, FALSEVALUE ) );
}
DEFTSCP( misccode_2doptimize_474b940d_v );
DEFSTRING( t2430, "$IF-GENC-NO-OPTIMIZE", 20 );
EXTERNTSCPP( gencode_make_2dlabel );
EXTERNTSCP( gencode_make_2dlabel_v );
EXTERNTSCP( gencode_ion_2dinfo_f92fd619_v );
EXTERNTSCPP( misccode_add_2dcondition );
EXTERNTSCP( misccode_add_2dcondition_v );
EXTERNTSCPP( misccode_dreturn_3f_ca61fd98 );
EXTERNTSCP( misccode_dreturn_3f_ca61fd98_v );
EXTERNTSCPP( misccode_ion_2dinfo_fbff5bfd );
EXTERNTSCP( misccode_ion_2dinfo_fbff5bfd_v );
EXTERNTSCPP( misccode_intersect2 );
EXTERNTSCP( misccode_intersect2_v );
TSCP misccode_2doptimize_474b940d( l1644, e1645, b1646, a1647 )
TSCP l1644, e1645, b1646, a1647;
{
TSCP X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2430 ) ) );
X1 = gencode_make_2dlabel( );
X2 = gencode_make_2dlabel( );
if ( NEQ( TSCPTAG( e1645 ), PAIRTAG ) ) goto L2434;
X5 = PAIR_CAR( e1645 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1589 ) ) );
goto L2435;
L2434:
X4 = FALSEVALUE;
L2435:
if ( FALSE( X4 ) ) goto L2438;
if ( EQ( TSCPTAG( e1645 ), PAIRTAG ) ) goto L2441;
scrt1__24__cdr_2derror( e1645 );
L2441:
X5 = PAIR_CDR( e1645 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2444;
scrt1__24__car_2derror( X5 );
L2444:
X3 = PAIR_CAR( X5 );
goto L2439;
L2438:
X3 = X4;
L2439:
if ( NEQ( TSCPTAG( e1645 ), PAIRTAG ) ) goto L2447;
X6 = PAIR_CAR( e1645 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1589 ) ) );
goto L2448;
L2447:
X5 = FALSEVALUE;
L2448:
if ( FALSE( X5 ) ) goto L2451;
X4 = scrt1_caddr( e1645 );
goto L2452;
L2451:
X4 = X5;
L2452:
X4 = CONS( X4, EMPTYLIST );
if ( NEQ( TSCPTAG( e1645 ), PAIRTAG ) ) goto L2454;
X7 = PAIR_CAR( e1645 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1589 ) ) );
goto L2455;
L2454:
X6 = FALSEVALUE;
L2455:
if ( FALSE( X6 ) ) goto L2458;
X5 = scrt1_cadddr( e1645 );
goto L2459;
L2458:
X5 = X6;
L2459:
X5 = CONS( X5, EMPTYLIST );
X6 = FALSEVALUE;
X6 = CONS( X6, EMPTYLIST );
X7 = c1730;
X7 = CONS( X7, EMPTYLIST );
X8 = c1730;
X8 = CONS( X8, EMPTYLIST );
X9 = gencode_ion_2dinfo_f92fd619_v;
if ( NEQ( UNSIGNED( l1644 ), UNSIGNED( c1199 ) ) ) goto L2465;
X10 = lap_use_2dlap_2dtemp( );
goto L2466;
L2465:
X10 = l1644;
L2466:
gencode_exp_2dgenc( c1199, X3, b1646 );
X11 = BOOLEAN( AND( EQ( TSCPTAG( PAIR_CAR( X4 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( X4 ) ),
SYMBOLTAG ) ) );
if ( FALSE( X11 ) ) goto L2481;
if ( FALSE( scrt1_memq( l1644, c1674 ) ) ) goto L2481;
X13 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( X1, X13 );
X14 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cons_2a( c1675,
CONS( scrt1_cons_2a( c1678,
CONS( c1199, X14 ) ),
X13 ) );
lap_emit_2dlap( X12 );
X12 = PAIR_CAR( X4 );
SETGEN( PAIR_CAR( X5 ), X12 );
if ( NEQ( TSCPTAG( e1645 ), PAIRTAG ) ) goto L2475;
X14 = PAIR_CAR( e1645 );
X13 = BOOLEAN( EQ( UNSIGNED( X14 ),
UNSIGNED( c1589 ) ) );
goto L2476;
L2475:
X13 = FALSEVALUE;
L2476:
if ( FALSE( X13 ) ) goto L2479;
X12 = scrt1_cadddr( e1645 );
goto L2480;
L2479:
X12 = X13;
L2480:
SETGEN( PAIR_CAR( X4 ), X12 );
X12 = TRUEVALUE;
SETGEN( PAIR_CAR( X6 ), X12 );
goto L2482;
L2481:
X13 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( X1, X13 );
X14 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cons_2a( c1675,
CONS( scrt1_cons_2a( c1676,
CONS( c1199, X14 ) ),
X13 ) );
lap_emit_2dlap( X12 );
L2482:
if ( FALSE( a1647 ) ) goto L2483;
if ( FALSE( PAIR_CAR( X6 ) ) ) goto L2485;
X11 = FALSEVALUE;
goto L2486;
L2485:
X11 = TRUEVALUE;
L2486:
misccode_add_2dcondition( a1647, X11 );
L2483:
gencode_exp_2dgenc( X10, PAIR_CAR( X4 ), b1646 );
X11 = gencode_ion_2dinfo_f92fd619_v;
SETGEN( PAIR_CAR( X7 ), X11 );
gencode_ion_2dinfo_f92fd619_v = X9;
if ( FALSE( a1647 ) ) goto L2487;
misccode_add_2dcondition( a1647, PAIR_CAR( X6 ) );
L2487:
X11 = BOOLEAN( NEQ( UNSIGNED( l1644 ),
UNSIGNED( c1102 ) ) );
if ( TRUE( X11 ) ) goto L2493;
if ( NOT( AND( EQ( TSCPTAG( PAIR_CAR( X5 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( PAIR_CAR( X5 ) ),
SYMBOLTAG ) ) ) ) goto L2493;
X13 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cons_2a( c1710, CONS( X1, X13 ) );
lap_emit_2dlap( X12 );
goto L2500;
L2493:
if ( EQ( UNSIGNED( l1644 ), UNSIGNED( c1715 ) ) ) goto L2498;
X13 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cons_2a( c1716, CONS( X2, X13 ) );
lap_emit_2dlap( X12 );
L2498:
X13 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cons_2a( c1710, CONS( X1, X13 ) );
lap_emit_2dlap( X12 );
gencode_exp_2dgenc( X10, PAIR_CAR( X5 ), b1646 );
if ( EQ( UNSIGNED( l1644 ), UNSIGNED( c1715 ) ) ) goto L2500;
X13 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cons_2a( c1710, CONS( X2, X13 ) );
lap_emit_2dlap( X12 );
L2500:
if ( NEQ( UNSIGNED( l1644 ), UNSIGNED( c1199 ) ) ) goto L2502;
X12 = CONS( EMPTYLIST, EMPTYLIST );
X12 = CONS( expform_vname( X10 ), X12 );
X11 = scrt1_cons_2a( c1103, CONS( c1199, X12 ) );
lap_emit_2dlap( X11 );
lap_drop_2dlap_2dtemp( X10 );
L2502:
X11 = gencode_ion_2dinfo_f92fd619_v;
SETGEN( PAIR_CAR( X8 ), X11 );
gencode_ion_2dinfo_f92fd619_v = X9;
if ( FALSE( misccode_dreturn_3f_ca61fd98( PAIR_CAR( X4 ) ) )
) goto L2505;
POPSTACKTRACE( misccode_ion_2dinfo_fbff5bfd( PAIR_CAR( X8 ),
EMPTYLIST ) );
L2505:
if ( FALSE( misccode_dreturn_3f_ca61fd98( PAIR_CAR( X5 ) ) )
) goto L2507;
POPSTACKTRACE( misccode_ion_2dinfo_fbff5bfd( PAIR_CAR( X7 ),
EMPTYLIST ) );
L2507:
X11 = misccode_intersect2( PAIR_CAR( X7 ),
PAIR_CAR( X8 ) );
POPSTACKTRACE( misccode_ion_2dinfo_fbff5bfd( X11, EMPTYLIST ) );
}
DEFTSCP( misccode_rue_2dlist_71bcc9dd_v );
DEFSTRING( t2509, "CONDITION-INFO-TRUE-LIST", 24 );
TSCP misccode_rue_2dlist_71bcc9dd( x1806 )
TSCP x1806;
{
PUSHSTACKTRACE( U_TX( ADR( t2509 ) ) );
if ( EQ( TSCPTAG( x1806 ), PAIRTAG ) ) goto L2512;
scrt1__24__car_2derror( x1806 );
L2512:
POPSTACKTRACE( PAIR_CAR( x1806 ) );
}
DEFTSCP( misccode_lse_2dlist_1c8651d_v );
DEFSTRING( t2514, "CONDITION-INFO-FALSE-LIST", 25 );
TSCP misccode_lse_2dlist_1c8651d( x1813 )
TSCP x1813;
{
PUSHSTACKTRACE( U_TX( ADR( t2514 ) ) );
if ( EQ( TSCPTAG( x1813 ), PAIRTAG ) ) goto L2517;
scrt1__24__cdr_2derror( x1813 );
L2517:
POPSTACKTRACE( PAIR_CDR( x1813 ) );
}
DEFTSCP( misccode_ion_2dinfo_37ee0438_v );
DEFSTRING( t2519, "STORE-CONDITION-INFO", 20 );
TSCP misccode_ion_2dinfo_37ee0438( i1820 )
TSCP i1820;
{
PUSHSTACKTRACE( U_TX( ADR( t2519 ) ) );
POPSTACKTRACE( plist_put( i1820,
c1821, gencode_ion_2dinfo_f92fd619_v ) );
}
DEFTSCP( misccode_ion_2dinfo_659a45e5_v );
DEFSTRING( t2521, "RETRIEVE-CONDITION-INFO", 23 );
EXTERNTSCP( gencode_ion_2dinfo_cc47b64b_v );
TSCP misccode_ion_2dinfo_659a45e5( i1824 )
TSCP i1824;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2521 ) ) );
X1 = plist_get( i1824, c1821 );
if ( TRUE( X1 ) ) goto L2524;
POPSTACKTRACE( gencode_ion_2dinfo_cc47b64b_v );
L2524:
POPSTACKTRACE( X1 );
}
DEFTSCP( misccode_ion_2dinfo_2b7559ad_v );
DEFSTRING( t2526, "UPDATE-CONDITION-INFO", 21 );
TSCP misccode_ion_2dinfo_2b7559ad( i1829 )
TSCP i1829;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2526 ) ) );
X1 = plist_get( i1829, c1821 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2529;
POPSTACKTRACE( plist_put( i1829,
c1821, gencode_ion_2dinfo_f92fd619_v ) );
L2529:
X2 = misccode_intersect2( X1, gencode_ion_2dinfo_f92fd619_v );
POPSTACKTRACE( plist_put( i1829, c1821, X2 ) );
}
DEFTSCP( misccode_ion_2dinfo_fbff5bfd_v );
DEFSTRING( t2531, "COMBINE-WITH-GLOBAL-CONDITION-INFO", 34 );
EXTERNTSCPP( misccode_combine2 );
EXTERNTSCP( misccode_combine2_v );
TSCP misccode_ion_2dinfo_fbff5bfd( i1838, i1839 )
TSCP i1838, i1839;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2531 ) ) );
L2532:
if ( NEQ( UNSIGNED( i1839 ),
UNSIGNED( EMPTYLIST ) ) ) goto L2533;
POPSTACKTRACE( SET( gencode_ion_2dinfo_f92fd619_v,
misccode_combine2( i1838,
gencode_ion_2dinfo_f92fd619_v ) ) );
L2533:
if ( EQ( TSCPTAG( i1839 ), PAIRTAG ) ) goto L2536;
scrt1__24__car_2derror( i1839 );
L2536:
X2 = PAIR_CAR( i1839 );
X1 = misccode_combine2( i1838, X2 );
i1839 = CONS( PAIR_CDR( i1839 ), EMPTYLIST );
i1838 = X1;
goto L2532;
}
DEFTSCP( misccode_combine2_v );
DEFSTRING( t2539, "COMBINE2", 8 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( misccode_list_2dcombination );
EXTERNTSCP( misccode_list_2dcombination_v );
TSCP misccode_combine2( i1855, i1856 )
TSCP i1855, i1856;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2539 ) ) );
X2 = misccode_rue_2dlist_71bcc9dd( i1855 );
X3 = misccode_rue_2dlist_71bcc9dd( i1856 );
X1 = misccode_list_2dcombination( X2, X3 );
X3 = misccode_lse_2dlist_1c8651d( i1855 );
X4 = misccode_lse_2dlist_1c8651d( i1856 );
X2 = misccode_list_2dcombination( X3, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
}
DEFTSCP( misccode_list_2dcombination_v );
DEFSTRING( t2541, "LIST-COMBINATION", 16 );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( scrt1_remove );
EXTERNTSCP( scrt1_remove_v );
TSCP misccode_list_2dcombination( l1859, l1860 )
TSCP l1859, l1860;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2541 ) ) );
L2542:
if ( EQ( UNSIGNED( l1860 ), UNSIGNED( EMPTYLIST ) ) ) goto L2543;
if ( EQ( TSCPTAG( l1860 ), PAIRTAG ) ) goto L2546;
scrt1__24__car_2derror( l1860 );
L2546:
X3 = PAIR_CAR( l1860 );
X2 = scrt1_cons_2a( X3, CONS( EMPTYLIST, EMPTYLIST ) );
X4 = PAIR_CAR( l1860 );
X3 = scrt1_remove( X4, l1859 );
X1 = scrt1_append_2dtwo( X2, X3 );
l1860 = PAIR_CDR( l1860 );
l1859 = X1;
goto L2542;
L2543:
POPSTACKTRACE( l1859 );
}
DEFTSCP( misccode_ion_2dinfo_bd1601d7_v );
DEFSTRING( t2550, "INTERSECT-WITH-GLOBAL-CONDITION-INFO", 36 );
TSCP misccode_ion_2dinfo_bd1601d7( i1880, i1881 )
TSCP i1880, i1881;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2550 ) ) );
L2551:
if ( NEQ( UNSIGNED( i1881 ),
UNSIGNED( EMPTYLIST ) ) ) goto L2552;
POPSTACKTRACE( SET( gencode_ion_2dinfo_f92fd619_v,
misccode_intersect2( i1880,
gencode_ion_2dinfo_f92fd619_v ) ) );
L2552:
if ( EQ( TSCPTAG( i1881 ), PAIRTAG ) ) goto L2555;
scrt1__24__car_2derror( i1881 );
L2555:
X2 = PAIR_CAR( i1881 );
X1 = misccode_intersect2( i1880, X2 );
i1881 = CONS( PAIR_CDR( i1881 ), EMPTYLIST );
i1880 = X1;
goto L2551;
}
DEFTSCP( misccode_intersect2_v );
DEFSTRING( t2558, "INTERSECT2", 10 );
EXTERNTSCPP( misccode_list_2dintersection );
EXTERNTSCP( misccode_list_2dintersection_v );
TSCP misccode_intersect2( i1896, i1897 )
TSCP i1896, i1897;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2558 ) ) );
X2 = misccode_rue_2dlist_71bcc9dd( i1896 );
X3 = misccode_rue_2dlist_71bcc9dd( i1897 );
X1 = misccode_list_2dintersection( X2, X3 );
X3 = misccode_lse_2dlist_1c8651d( i1896 );
X4 = misccode_lse_2dlist_1c8651d( i1897 );
X2 = misccode_list_2dintersection( X3, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
}
DEFTSCP( misccode_list_2dintersection_v );
DEFSTRING( t2560, "LIST-INTERSECTION", 17 );
EXTERNTSCPP( scrt1_member );
EXTERNTSCP( scrt1_member_v );
TSCP misccode_list_2dintersection( l1900, l1901 )
TSCP l1900, l1901;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2560 ) ) );
L2561:
if ( EQ( UNSIGNED( l1900 ), UNSIGNED( EMPTYLIST ) ) ) goto L2562;
if ( EQ( TSCPTAG( l1900 ), PAIRTAG ) ) goto L2567;
scrt1__24__car_2derror( l1900 );
L2567:
X1 = PAIR_CAR( l1900 );
if ( FALSE( scrt1_member( X1, l1901 ) ) ) goto L2564;
X2 = PAIR_CAR( l1900 );
X1 = scrt1_cons_2a( X2, CONS( EMPTYLIST, EMPTYLIST ) );
X3 = PAIR_CDR( l1900 );
X2 = misccode_list_2dintersection( X3, l1901 );
POPSTACKTRACE( scrt1_append_2dtwo( X1, X2 ) );
L2564:
if ( EQ( TSCPTAG( l1900 ), PAIRTAG ) ) goto L2572;
scrt1__24__cdr_2derror( l1900 );
L2572:
X1 = PAIR_CDR( l1900 );
l1900 = X1;
goto L2561;
L2562:
POPSTACKTRACE( EMPTYLIST );
}
DEFTSCP( misccode_tersection_bbeb56bc_v );
DEFSTRING( t2574, "STORED-CONDITIONS-INTERSECTION", 30 );
TSCP misccode_tersection_bbeb56bc( l1925 )
TSCP l1925;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2574 ) ) );
X3 = l1925;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L2578:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2579;
X2 = X4;
goto L2586;
L2579:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2582;
scrt1__24__car_2derror( X3 );
L2582:
X8 = PAIR_CAR( X3 );
X7 = misccode_ion_2dinfo_659a45e5( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2585;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L2578;
L2585:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2590;
scrt6_error( c1989, c1990, CONS( X5, EMPTYLIST ) );
L2590:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L2578;
L2586:
X1 = scrt1_remove( EMPTYLIST, X2 );
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2593;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2596;
scrt1__24__car_2derror( X1 );
L2596:
X2 = PAIR_CAR( X1 );
X3 = PAIR_CDR( X1 );
L2599:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2600;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2603;
scrt1__24__car_2derror( X3 );
L2603:
X5 = PAIR_CAR( X3 );
X4 = misccode_intersect2( X2, X5 );
X3 = PAIR_CDR( X3 );
X2 = X4;
goto L2599;
L2600:
POPSTACKTRACE( X2 );
L2593:
POPSTACKTRACE( gencode_ion_2dinfo_cc47b64b_v );
}
DEFTSCP( misccode_dbefore_3f_136acdb0_v );
DEFSTRING( t2606, "$CALL-TESTED-TRUE-BEFORE?", 25 );
TSCP misccode_dbefore_3f_136acdb0( t2003 )
TSCP t2003;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2606 ) ) );
X1 = misccode_rue_2dlist_71bcc9dd( gencode_ion_2dinfo_f92fd619_v );
POPSTACKTRACE( scrt1_member( t2003, X1 ) );
}
DEFTSCP( misccode_dbefore_3f_d2e61671_v );
DEFSTRING( t2608, "$CALL-TESTED-FALSE-BEFORE?", 26 );
TSCP misccode_dbefore_3f_d2e61671( t2005 )
TSCP t2005;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2608 ) ) );
X1 = misccode_lse_2dlist_1c8651d( gencode_ion_2dinfo_f92fd619_v );
POPSTACKTRACE( scrt1_member( t2005, X1 ) );
}
DEFTSCP( misccode_add_2dcondition_v );
DEFSTRING( t2610, "ADD-CONDITION", 13 );
TSCP misccode_add_2dcondition( t2007, t2008 )
TSCP t2007, t2008;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2610 ) ) );
if ( FALSE( t2008 ) ) goto L2612;
X2 = scrt1_cons_2a( t2007,
CONS( EMPTYLIST, EMPTYLIST ) );
X4 = misccode_rue_2dlist_71bcc9dd( gencode_ion_2dinfo_f92fd619_v );
X3 = scrt1_remove( t2007, X4 );
X1 = scrt1_append_2dtwo( X2, X3 );
X2 = misccode_lse_2dlist_1c8651d( gencode_ion_2dinfo_f92fd619_v );
POPSTACKTRACE( SET( gencode_ion_2dinfo_f92fd619_v,
sc_cons( X1, X2 ) ) );
L2612:
X1 = misccode_rue_2dlist_71bcc9dd( gencode_ion_2dinfo_f92fd619_v );
X3 = scrt1_cons_2a( t2007,
CONS( EMPTYLIST, EMPTYLIST ) );
X5 = misccode_lse_2dlist_1c8651d( gencode_ion_2dinfo_f92fd619_v );
X4 = scrt1_remove( t2007, X5 );
X2 = scrt1_append_2dtwo( X3, X4 );
POPSTACKTRACE( SET( gencode_ion_2dinfo_f92fd619_v,
sc_cons( X1, X2 ) ) );
}
DEFTSCP( misccode_args_2dset_21_3f_v );
DEFSTRING( t2614, "ARGS-SET!?", 10 );
TSCP misccode_args_2dset_21_3f( a2010 )
TSCP a2010;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2614 ) ) );
L2615:
if ( EQ( UNSIGNED( a2010 ), UNSIGNED( EMPTYLIST ) ) ) goto L2616;
if ( EQ( TSCPTAG( a2010 ), PAIRTAG ) ) goto L2619;
scrt1__24__cdr_2derror( a2010 );
L2619:
X1 = PAIR_CDR( a2010 );
X2 = PAIR_CAR( a2010 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2623;
X4 = plist_get( X2, c1155 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c2032 ) ) ) goto L2625;
X3 = FALSEVALUE;
goto L2626;
L2625:
X4 = plist_get( X2, c1155 );
X3 = BOOLEAN( NEQ( UNSIGNED( X4 ),
UNSIGNED( c2039 ) ) );
L2626:
if ( TRUE( X3 ) ) goto L2628;
X4 = plist_get( X2, c2046 );
if ( TRUE( X4 ) ) goto L2631;
a2010 = X1;
goto L2615;
L2631:
POPSTACKTRACE( X4 );
L2628:
POPSTACKTRACE( X3 );
L2623:
POPSTACKTRACE( TRUEVALUE );
L2616:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( misccode_dreturn_3f_ca61fd98_v );
DEFSTRING( t2633, "IF-LEG-HAS-NO-RETURN?", 21 );
EXTERNTSCP( gencode_error_2did_v );
EXTERNTSCP( gencode__24__cdr_2derror_2did_v );
EXTERNTSCP( gencode__24__car_2derror_2did_v );
TSCP misccode_dreturn_3f_ca61fd98( l2057 )
TSCP l2057;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2633 ) ) );
if ( NEQ( TSCPTAG( l2057 ), PAIRTAG ) ) goto L2635;
X2 = PAIR_CAR( l2057 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1501 ) ) );
goto L2636;
L2635:
X1 = FALSEVALUE;
L2636:
if ( FALSE( X1 ) ) goto L2639;
if ( NEQ( TSCPTAG( l2057 ), PAIRTAG ) ) goto L2641;
X4 = PAIR_CAR( l2057 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1501 ) ) );
goto L2642;
L2641:
X3 = FALSEVALUE;
L2642:
if ( FALSE( X3 ) ) goto L2645;
X2 = scrt1_caddr( l2057 );
goto L2646;
L2645:
X2 = X3;
L2646:
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( gencode__24__cdr_2derror_2did_v, X4 );
X3 = scrt1_cons_2a( gencode_error_2did_v,
CONS( gencode__24__car_2derror_2did_v, X4 ) );
POPSTACKTRACE( scrt1_member( X2, X3 ) );
L2639:
POPSTACKTRACE( X1 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt6__init();
expform__init();
scrt1__init();
lap__init();
gencode__init();
plist__init();
MAXDISPLAY( 0 );
}
void misccode__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(misccode SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2222 ) ),
ADR( misccode_symbol_2dgenc_v ),
MAKEPROCEDURE( 3,
0,
misccode_symbol_2dgenc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2249 ) ),
ADR( misccode__24define_2dgenc_v ),
MAKEPROCEDURE( 3,
0,
misccode__24define_2dgenc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2283 ) ),
ADR( misccode__24set_2dgenc_v ),
MAKEPROCEDURE( 3,
0,
misccode__24set_2dgenc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2368 ) ),
ADR( misccode__24if_2dgenc_v ),
MAKEPROCEDURE( 3,
0,
misccode__24if_2dgenc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2430 ) ),
ADR( misccode_2doptimize_474b940d_v ),
MAKEPROCEDURE( 4,
0,
misccode_2doptimize_474b940d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2509 ) ),
ADR( misccode_rue_2dlist_71bcc9dd_v ),
MAKEPROCEDURE( 1,
0,
misccode_rue_2dlist_71bcc9dd,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2514 ) ),
ADR( misccode_lse_2dlist_1c8651d_v ),
MAKEPROCEDURE( 1,
0,
misccode_lse_2dlist_1c8651d,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2519 ) ),
ADR( misccode_ion_2dinfo_37ee0438_v ),
MAKEPROCEDURE( 1,
0,
misccode_ion_2dinfo_37ee0438,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2521 ) ),
ADR( misccode_ion_2dinfo_659a45e5_v ),
MAKEPROCEDURE( 1,
0,
misccode_ion_2dinfo_659a45e5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2526 ) ),
ADR( misccode_ion_2dinfo_2b7559ad_v ),
MAKEPROCEDURE( 1,
0,
misccode_ion_2dinfo_2b7559ad,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2531 ) ),
ADR( misccode_ion_2dinfo_fbff5bfd_v ),
MAKEPROCEDURE( 1,
1,
misccode_ion_2dinfo_fbff5bfd,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2539 ) ),
ADR( misccode_combine2_v ),
MAKEPROCEDURE( 2,
0,
misccode_combine2, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2541 ) ),
ADR( misccode_list_2dcombination_v ),
MAKEPROCEDURE( 2,
0,
misccode_list_2dcombination,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2550 ) ),
ADR( misccode_ion_2dinfo_bd1601d7_v ),
MAKEPROCEDURE( 1,
1,
misccode_ion_2dinfo_bd1601d7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2558 ) ),
ADR( misccode_intersect2_v ),
MAKEPROCEDURE( 2,
0,
misccode_intersect2, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2560 ) ),
ADR( misccode_list_2dintersection_v ),
MAKEPROCEDURE( 2,
0,
misccode_list_2dintersection,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2574 ) ),
ADR( misccode_tersection_bbeb56bc_v ),
MAKEPROCEDURE( 1,
0,
misccode_tersection_bbeb56bc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2606 ) ),
ADR( misccode_dbefore_3f_136acdb0_v ),
MAKEPROCEDURE( 1,
0,
misccode_dbefore_3f_136acdb0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2608 ) ),
ADR( misccode_dbefore_3f_d2e61671_v ),
MAKEPROCEDURE( 1,
0,
misccode_dbefore_3f_d2e61671,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2610 ) ),
ADR( misccode_add_2dcondition_v ),
MAKEPROCEDURE( 2,
0,
misccode_add_2dcondition,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2614 ) ),
ADR( misccode_args_2dset_21_3f_v ),
MAKEPROCEDURE( 1,
0,
misccode_args_2dset_21_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2633 ) ),
ADR( misccode_dreturn_3f_ca61fd98_v ),
MAKEPROCEDURE( 1,
0,
misccode_dreturn_3f_ca61fd98,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.