This is callcode.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2286, "LAMBDA-BODY-GENC", 16 );
DEFSTATICTSCP( lambda_2dbody_2dgenc_v );
DEFSTRING( t2287, "REPORT-ERROR", 12 );
DEFSTATICTSCP( report_2derror_v );
DEFSTRING( t2288, "RESERVE-DISPLAY", 15 );
DEFSTATICTSCP( reserve_2ddisplay_v );
DEFSTRING( t2289, "UPDATE-CONDITION-INFO", 21 );
DEFSTATICTSCP( update_2dcondition_2dinfo_v );
DEFSTRING( t2290, "REPORT-WARNING", 14 );
DEFSTATICTSCP( report_2dwarning_v );
DEFSTRING( t2291, "LIST-HEAD", 9 );
DEFSTATICTSCP( list_2dhead_v );
DEFSTRING( t2292, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c2112, t2292 );
DEFSTRING( t2293, "SET-CDR!", 8 );
DEFSTATICTSCP( c2111 );
DEFSTRING( t2294, "PROCEDURE_CODE", 14 );
DEFSTATICTSCP( c2077 );
DEFSTRING( t2295, "VIA", 3 );
DEFSTATICTSCP( c2076 );
DEFSTRING( t2296, "UNKNOWNCALL", 11 );
DEFSTATICTSCP( c2075 );
DEFSTRING( t2297, "PROCEDURE_CLOSURE", 17 );
DEFSTATICTSCP( c2058 );
DEFSTATICTSCP( c2052 );
DEFSTRING( t2299, "TOS", 3 );
DEFSTATICTSCP( t2298 );
DEFSTRING( t2300, "MODULE", 6 );
DEFSTATICTSCP( c2049 );
DEFSTRING( t2301, "OPTVARS", 7 );
DEFSTATICTSCP( c1994 );
DEFSTRING( t2302, "PRINTNAME", 9 );
DEFSTATICTSCP( c1991 );
DEFSTATICTSCP( c1979 );
DEFSTRING( t2304, "CHAR_TSCP", 9 );
DEFSTATICTSCP( t2303 );
DEFSTATICTSCP( c1978 );
DEFSTRING( t2306, "INT_TSCP", 8 );
DEFSTATICTSCP( t2305 );
DEFSTATICTSCP( c1977 );
DEFSTRING( t2308, "INT", 3 );
DEFSTATICTSCP( t2307 );
DEFSTATICTSCP( c1976 );
DEFSTRING( t2310, "UNSIGNED_TSCP", 13 );
DEFSTATICTSCP( t2309 );
DEFSTATICTSCP( c1975 );
DEFSTRING( t2312, "UNSIGNED", 8 );
DEFSTATICTSCP( t2311 );
DEFSTATICTSCP( c1974 );
DEFSTRING( t2314, "POINTER_TSCP", 12 );
DEFSTATICTSCP( t2313 );
DEFSTATICTSCP( c1973 );
DEFSTRING( t2316, "CDOUBLE", 7 );
DEFSTATICTSCP( t2315 );
DEFSTRING( t2318, "DOUBLE_TSCP", 11 );
DEFSTATICTSCP( t2317 );
DEFSTATICTSCP( c1972 );
DEFSTRING( t2319, "FALSEVALUE", 10 );
DEFSTATICTSCP( c1971 );
DEFSTATICTSCP( c1970 );
DEFSTRING( t2321, "NO-VALUE", 8 );
DEFSTATICTSCP( t2320 );
DEFSTRING( t2323, "SET", 3 );
DEFSTATICTSCP( t2322 );
DEFSTRING( t2324, "C procedure does not return a value:", 36 );
DEFSTATICTSCP2( c1969, t2324 );
DEFSTATICTSCP( c1966 );
DEFSTRING( t2326, "_TSCP", 5 );
DEFSTATICTSCP( t2325 );
DEFSTRING( t2327, "VOID", 4 );
DEFSTATICTSCP( c1965 );
DEFSTATICTSCP( c1952 );
DEFSTRING( t2329, "LONGUNSIGNED", 12 );
DEFSTATICTSCP( t2328 );
DEFSTRING( t2331, "SHORTUNSIGNED", 13 );
DEFSTATICTSCP( t2330 );
DEFSTATICTSCP( c1948 );
DEFSTRING( t2333, "LONGINT", 7 );
DEFSTATICTSCP( t2332 );
DEFSTRING( t2335, "SHORTINT", 8 );
DEFSTATICTSCP( t2334 );
DEFSTRING( t2336, "TSCP_CHAR", 9 );
DEFSTATICTSCP( c1916 );
DEFSTRING( t2337, "TSCP_INT", 8 );
DEFSTATICTSCP( c1903 );
DEFSTRING( t2338, "TSCP_UNSIGNED", 13 );
DEFSTATICTSCP( c1890 );
DEFSTRING( t2339, "TSCP_POINTER", 12 );
DEFSTATICTSCP( c1885 );
DEFSTRING( t2340, "CFLOAT", 6 );
DEFSTATICTSCP( c1880 );
DEFSTRING( t2341, "TSCP_DOUBLE", 11 );
DEFSTATICTSCP( c1875 );
DEFSTRING( t2342, "DOUBLE", 6 );
DEFSTATICTSCP( c1870 );
DEFSTRING( t2343, "FLOAT", 5 );
DEFSTATICTSCP( c1866 );
DEFSTRING( t2344, "POINTER", 7 );
DEFSTATICTSCP( c1862 );
DEFSTRING( t2345, "LONGUNSIGNED", 12 );
DEFSTATICTSCP( c1858 );
DEFSTRING( t2346, "SHORTUNSIGNED", 13 );
DEFSTATICTSCP( c1854 );
DEFSTRING( t2347, "UNSIGNED", 8 );
DEFSTATICTSCP( c1850 );
DEFSTRING( t2348, "LONGINT", 7 );
DEFSTATICTSCP( c1846 );
DEFSTRING( t2349, "SHORTINT", 8 );
DEFSTATICTSCP( c1842 );
DEFSTRING( t2350, "INT", 3 );
DEFSTATICTSCP( c1838 );
DEFSTRING( t2351, "CHAR", 4 );
DEFSTATICTSCP( c1834 );
DEFSTRING( t2352,
"Incorrect number of arguments for LAP construct", 47 );
DEFSTATICTSCP2( c1676, t2352 );
DEFSTRING( t2353, "SET!", 4 );
DEFSTATICTSCP( c1568 );
DEFSTRING( t2354, "Incorrect number of arguments for", 33 );
DEFSTATICTSCP2( c1504, t2354 );
DEFSTRING( t2355, "GOTO", 4 );
DEFSTATICTSCP( c1502 );
DEFSTRING( t2356, "EMPTYLIST", 9 );
DEFSTATICTSCP2( c1463, t2356 );
DEFSTRING( t2357, "CONS", 4 );
DEFSTATICTSCP( c1457 );
DEFSTRING( t2358, "TOS", 3 );
DEFSTATICTSCP( c1448 );
DEFSTRING( t2359, "EMPTYLIST", 9 );
DEFSTATICTSCP( c1440 );
DEFSTRING( t2360, "SET", 3 );
DEFSTATICTSCP( c1439 );
DEFSTRING( t2361, "REQVARS", 7 );
DEFSTATICTSCP( c1403 );
DEFSTRING( t2362, "DISPLAY", 7 );
DEFSTATICTSCP2( c1394, t2362 );
DEFSTRING( t2363, "VNAME", 5 );
DEFSTATICTSCP( c1388 );
DEFSTRING( t2364, "DISPLAY", 7 );
DEFSTATICTSCP( c1383 );
DEFSTRING( t2365, "Incorrect number of arguments for lambda", 40 );
DEFSTATICTSCP2( c1378, t2365 );
DEFSTRING( t2366, "NO-VALUE", 8 );
DEFSTATICTSCP( c1366 );
DEFSTRING( t2367, "CLOSED-PROCEDURE", 16 );
DEFSTATICTSCP( c1361 );
DEFSTRING( t2368, "EXITS", 5 );
DEFSTATICTSCP( c1275 );
DEFSTRING( t2369, "$CALL", 5 );
DEFSTATICTSCP( c1205 );
DEFSTRING( t2370, "LAMBDA", 6 );
DEFSTATICTSCP( c1184 );
DEFSTRING( t2371, "TYPE", 4 );
DEFSTATICTSCP( c1171 );
DEFSTRING( t2372, "INLINE", 6 );
DEFSTATICTSCP( c1164 );
DEFSTRING( t2373, "INLINE-TAIL", 11 );
DEFSTATICTSCP( c1152 );
DEFSTRING( t2374, "GENERATE", 8 );
DEFSTATICTSCP( c1151 );
DEFSTRING( t2375, "$LAP", 4 );
DEFSTATICTSCP( c1134 );
DEFSTRING( t2376, "$LAMBDA", 7 );
DEFSTATICTSCP( c1118 );
static void init_constants()
{
TSCP X1;
lambda_2dbody_2dgenc_v = STRINGTOSYMBOL( U_TX( ADR( t2286 ) ) );
CONSTANTEXP( ADR( lambda_2dbody_2dgenc_v ) );
report_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2287 ) ) );
CONSTANTEXP( ADR( report_2derror_v ) );
reserve_2ddisplay_v = STRINGTOSYMBOL( U_TX( ADR( t2288 ) ) );
CONSTANTEXP( ADR( reserve_2ddisplay_v ) );
update_2dcondition_2dinfo_v = STRINGTOSYMBOL( U_TX( ADR( t2289 ) ) );
CONSTANTEXP( ADR( update_2dcondition_2dinfo_v ) );
report_2dwarning_v = STRINGTOSYMBOL( U_TX( ADR( t2290 ) ) );
CONSTANTEXP( ADR( report_2dwarning_v ) );
list_2dhead_v = STRINGTOSYMBOL( U_TX( ADR( t2291 ) ) );
CONSTANTEXP( ADR( list_2dhead_v ) );
c2111 = STRINGTOSYMBOL( U_TX( ADR( t2293 ) ) );
CONSTANTEXP( ADR( c2111 ) );
c2077 = STRINGTOSYMBOL( U_TX( ADR( t2294 ) ) );
CONSTANTEXP( ADR( c2077 ) );
c2076 = STRINGTOSYMBOL( U_TX( ADR( t2295 ) ) );
CONSTANTEXP( ADR( c2076 ) );
c2075 = STRINGTOSYMBOL( U_TX( ADR( t2296 ) ) );
CONSTANTEXP( ADR( c2075 ) );
c2058 = STRINGTOSYMBOL( U_TX( ADR( t2297 ) ) );
CONSTANTEXP( ADR( c2058 ) );
c2052 = EMPTYLIST;
t2298 = STRINGTOSYMBOL( U_TX( ADR( t2299 ) ) );
c2052 = CONS( t2298, c2052 );
CONSTANTEXP( ADR( c2052 ) );
c2049 = STRINGTOSYMBOL( U_TX( ADR( t2300 ) ) );
CONSTANTEXP( ADR( c2049 ) );
c1994 = STRINGTOSYMBOL( U_TX( ADR( t2301 ) ) );
CONSTANTEXP( ADR( c1994 ) );
c1991 = STRINGTOSYMBOL( U_TX( ADR( t2302 ) ) );
CONSTANTEXP( ADR( c1991 ) );
c1979 = EMPTYLIST;
c1979 = CONS( t2298, c1979 );
t2303 = STRINGTOSYMBOL( U_TX( ADR( t2304 ) ) );
c1979 = CONS( t2303, c1979 );
CONSTANTEXP( ADR( c1979 ) );
c1978 = EMPTYLIST;
c1978 = CONS( t2298, c1978 );
t2305 = STRINGTOSYMBOL( U_TX( ADR( t2306 ) ) );
c1978 = CONS( t2305, c1978 );
CONSTANTEXP( ADR( c1978 ) );
c1977 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2298, X1 );
t2307 = STRINGTOSYMBOL( U_TX( ADR( t2308 ) ) );
X1 = CONS( t2307, X1 );
c1977 = CONS( X1, c1977 );
c1977 = CONS( t2305, c1977 );
CONSTANTEXP( ADR( c1977 ) );
c1976 = EMPTYLIST;
c1976 = CONS( t2298, c1976 );
t2309 = STRINGTOSYMBOL( U_TX( ADR( t2310 ) ) );
c1976 = CONS( t2309, c1976 );
CONSTANTEXP( ADR( c1976 ) );
c1975 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2298, X1 );
t2311 = STRINGTOSYMBOL( U_TX( ADR( t2312 ) ) );
X1 = CONS( t2311, X1 );
c1975 = CONS( X1, c1975 );
c1975 = CONS( t2309, c1975 );
CONSTANTEXP( ADR( c1975 ) );
c1974 = EMPTYLIST;
c1974 = CONS( t2298, c1974 );
t2313 = STRINGTOSYMBOL( U_TX( ADR( t2314 ) ) );
c1974 = CONS( t2313, c1974 );
CONSTANTEXP( ADR( c1974 ) );
c1973 = EMPTYLIST;
X1 = EMPTYLIST;
X1 = CONS( t2298, X1 );
t2315 = STRINGTOSYMBOL( U_TX( ADR( t2316 ) ) );
X1 = CONS( t2315, X1 );
c1973 = CONS( X1, c1973 );
t2317 = STRINGTOSYMBOL( U_TX( ADR( t2318 ) ) );
c1973 = CONS( t2317, c1973 );
CONSTANTEXP( ADR( c1973 ) );
c1972 = EMPTYLIST;
c1972 = CONS( t2298, c1972 );
c1972 = CONS( t2317, c1972 );
CONSTANTEXP( ADR( c1972 ) );
c1971 = STRINGTOSYMBOL( U_TX( ADR( t2319 ) ) );
CONSTANTEXP( ADR( c1971 ) );
c1970 = EMPTYLIST;
c1970 = CONS( t2298, c1970 );
t2320 = STRINGTOSYMBOL( U_TX( ADR( t2321 ) ) );
c1970 = CONS( t2320, c1970 );
t2322 = STRINGTOSYMBOL( U_TX( ADR( t2323 ) ) );
c1970 = CONS( t2322, c1970 );
CONSTANTEXP( ADR( c1970 ) );
c1966 = EMPTYLIST;
c1966 = CONS( t2298, c1966 );
t2325 = STRINGTOSYMBOL( U_TX( ADR( t2326 ) ) );
c1966 = CONS( t2325, c1966 );
CONSTANTEXP( ADR( c1966 ) );
c1965 = STRINGTOSYMBOL( U_TX( ADR( t2327 ) ) );
CONSTANTEXP( ADR( c1965 ) );
c1952 = EMPTYLIST;
t2328 = STRINGTOSYMBOL( U_TX( ADR( t2329 ) ) );
c1952 = CONS( t2328, c1952 );
t2330 = STRINGTOSYMBOL( U_TX( ADR( t2331 ) ) );
c1952 = CONS( t2330, c1952 );
CONSTANTEXP( ADR( c1952 ) );
c1948 = EMPTYLIST;
t2332 = STRINGTOSYMBOL( U_TX( ADR( t2333 ) ) );
c1948 = CONS( t2332, c1948 );
t2334 = STRINGTOSYMBOL( U_TX( ADR( t2335 ) ) );
c1948 = CONS( t2334, c1948 );
CONSTANTEXP( ADR( c1948 ) );
c1916 = STRINGTOSYMBOL( U_TX( ADR( t2336 ) ) );
CONSTANTEXP( ADR( c1916 ) );
c1903 = STRINGTOSYMBOL( U_TX( ADR( t2337 ) ) );
CONSTANTEXP( ADR( c1903 ) );
c1890 = STRINGTOSYMBOL( U_TX( ADR( t2338 ) ) );
CONSTANTEXP( ADR( c1890 ) );
c1885 = STRINGTOSYMBOL( U_TX( ADR( t2339 ) ) );
CONSTANTEXP( ADR( c1885 ) );
c1880 = STRINGTOSYMBOL( U_TX( ADR( t2340 ) ) );
CONSTANTEXP( ADR( c1880 ) );
c1875 = STRINGTOSYMBOL( U_TX( ADR( t2341 ) ) );
CONSTANTEXP( ADR( c1875 ) );
c1870 = STRINGTOSYMBOL( U_TX( ADR( t2342 ) ) );
CONSTANTEXP( ADR( c1870 ) );
c1866 = STRINGTOSYMBOL( U_TX( ADR( t2343 ) ) );
CONSTANTEXP( ADR( c1866 ) );
c1862 = STRINGTOSYMBOL( U_TX( ADR( t2344 ) ) );
CONSTANTEXP( ADR( c1862 ) );
c1858 = STRINGTOSYMBOL( U_TX( ADR( t2345 ) ) );
CONSTANTEXP( ADR( c1858 ) );
c1854 = STRINGTOSYMBOL( U_TX( ADR( t2346 ) ) );
CONSTANTEXP( ADR( c1854 ) );
c1850 = STRINGTOSYMBOL( U_TX( ADR( t2347 ) ) );
CONSTANTEXP( ADR( c1850 ) );
c1846 = STRINGTOSYMBOL( U_TX( ADR( t2348 ) ) );
CONSTANTEXP( ADR( c1846 ) );
c1842 = STRINGTOSYMBOL( U_TX( ADR( t2349 ) ) );
CONSTANTEXP( ADR( c1842 ) );
c1838 = STRINGTOSYMBOL( U_TX( ADR( t2350 ) ) );
CONSTANTEXP( ADR( c1838 ) );
c1834 = STRINGTOSYMBOL( U_TX( ADR( t2351 ) ) );
CONSTANTEXP( ADR( c1834 ) );
c1568 = STRINGTOSYMBOL( U_TX( ADR( t2353 ) ) );
CONSTANTEXP( ADR( c1568 ) );
c1502 = STRINGTOSYMBOL( U_TX( ADR( t2355 ) ) );
CONSTANTEXP( ADR( c1502 ) );
c1457 = STRINGTOSYMBOL( U_TX( ADR( t2357 ) ) );
CONSTANTEXP( ADR( c1457 ) );
c1448 = STRINGTOSYMBOL( U_TX( ADR( t2358 ) ) );
CONSTANTEXP( ADR( c1448 ) );
c1440 = STRINGTOSYMBOL( U_TX( ADR( t2359 ) ) );
CONSTANTEXP( ADR( c1440 ) );
c1439 = STRINGTOSYMBOL( U_TX( ADR( t2360 ) ) );
CONSTANTEXP( ADR( c1439 ) );
c1403 = STRINGTOSYMBOL( U_TX( ADR( t2361 ) ) );
CONSTANTEXP( ADR( c1403 ) );
c1388 = STRINGTOSYMBOL( U_TX( ADR( t2363 ) ) );
CONSTANTEXP( ADR( c1388 ) );
c1383 = STRINGTOSYMBOL( U_TX( ADR( t2364 ) ) );
CONSTANTEXP( ADR( c1383 ) );
c1366 = STRINGTOSYMBOL( U_TX( ADR( t2366 ) ) );
CONSTANTEXP( ADR( c1366 ) );
c1361 = STRINGTOSYMBOL( U_TX( ADR( t2367 ) ) );
CONSTANTEXP( ADR( c1361 ) );
c1275 = STRINGTOSYMBOL( U_TX( ADR( t2368 ) ) );
CONSTANTEXP( ADR( c1275 ) );
c1205 = STRINGTOSYMBOL( U_TX( ADR( t2369 ) ) );
CONSTANTEXP( ADR( c1205 ) );
c1184 = STRINGTOSYMBOL( U_TX( ADR( t2370 ) ) );
CONSTANTEXP( ADR( c1184 ) );
c1171 = STRINGTOSYMBOL( U_TX( ADR( t2371 ) ) );
CONSTANTEXP( ADR( c1171 ) );
c1164 = STRINGTOSYMBOL( U_TX( ADR( t2372 ) ) );
CONSTANTEXP( ADR( c1164 ) );
c1152 = STRINGTOSYMBOL( U_TX( ADR( t2373 ) ) );
CONSTANTEXP( ADR( c1152 ) );
c1151 = STRINGTOSYMBOL( U_TX( ADR( t2374 ) ) );
CONSTANTEXP( ADR( c1151 ) );
c1134 = STRINGTOSYMBOL( U_TX( ADR( t2375 ) ) );
CONSTANTEXP( ADR( c1134 ) );
c1118 = STRINGTOSYMBOL( U_TX( ADR( t2376 ) ) );
CONSTANTEXP( ADR( c1118 ) );
}
DEFTSCP( callcode__24call_2dgenc_v );
DEFSTRING( t2377, "$CALL-GENC", 10 );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
EXTERNTSCPP( callcode_inline_2dcall );
EXTERNTSCP( callcode_inline_2dcall_v );
EXTERNTSCPP( callcode__24lap_2dgenc );
EXTERNTSCP( callcode__24lap_2dgenc_v );
EXTERNTSCPP( callcode_la_2dexits_2dlb_3f );
EXTERNTSCP( callcode_la_2dexits_2dlb_3f_v );
EXTERNTSCPP( callcode_tail_2dcall );
EXTERNTSCP( callcode_tail_2dcall_v );
EXTERNTSCPP( callcode_known_2dc_2dcall );
EXTERNTSCP( callcode_known_2dc_2dcall_v );
EXTERNTSCPP( callcode_known_2dcall );
EXTERNTSCP( callcode_known_2dcall_v );
EXTERNTSCPP( callcode_unknown_2dcall );
EXTERNTSCP( callcode_unknown_2dcall_v );
TSCP callcode__24call_2dgenc( l1092, e1093, b1094 )
TSCP l1092, e1093, b1094;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2377 ) ) );
if ( NEQ( TSCPTAG( e1093 ), PAIRTAG ) ) goto L2379;
X6 = PAIR_CAR( e1093 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1205 ) ) );
goto L2380;
L2379:
X5 = FALSEVALUE;
L2380:
if ( FALSE( X5 ) ) goto L2383;
X4 = scrt1_caddr( e1093 );
goto L2384;
L2383:
X4 = X5;
L2384:
if ( NEQ( TSCPTAG( e1093 ), PAIRTAG ) ) goto L2386;
X6 = PAIR_CAR( e1093 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1205 ) ) );
goto L2387;
L2386:
X5 = FALSEVALUE;
L2387:
if ( FALSE( X5 ) ) goto L2390;
if ( EQ( TSCPTAG( e1093 ), PAIRTAG ) ) goto L2393;
scrt1__24__cdr_2derror( e1093 );
L2393:
X6 = PAIR_CDR( e1093 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2396;
scrt1__24__car_2derror( X6 );
L2396:
X1 = PAIR_CAR( X6 );
goto L2391;
L2390:
X1 = X5;
L2391:
if ( NEQ( TSCPTAG( e1093 ), PAIRTAG ) ) goto L2399;
X6 = PAIR_CAR( e1093 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1205 ) ) );
goto L2400;
L2399:
X5 = FALSEVALUE;
L2400:
if ( FALSE( X5 ) ) goto L2403;
X3 = scrt1_cdddr( e1093 );
goto L2404;
L2403:
X3 = X5;
L2404:
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) )
) goto L2406;
X2 = plist_get( X4, c1184 );
goto L2407;
L2406:
X2 = FALSEVALUE;
L2407:
X5 = BOOLEAN( EQ( TSCPTAG( X4 ), PAIRTAG ) );
if ( FALSE( X5 ) ) goto L2418;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2416;
scrt1__24__car_2derror( X4 );
L2416:
X6 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1118 ) ) ) goto L2418;
POPSTACKTRACE( callcode_inline_2dcall( l1092,
X4, X3, b1094 ) );
L2418:
X5 = BOOLEAN( EQ( TSCPTAG( X4 ), PAIRTAG ) );
if ( FALSE( X5 ) ) goto L2428;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2426;
scrt1__24__car_2derror( X4 );
L2426:
X6 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1134 ) ) ) goto L2428;
POPSTACKTRACE( callcode__24lap_2dgenc( l1092,
X4, X3, b1094 ) );
L2428:
if ( FALSE( X2 ) ) goto L2442;
if ( FALSE( X1 ) ) goto L2442;
X5 = plist_get( X2, c1151 );
if ( EQ( UNSIGNED( X5 ), UNSIGNED( c1152 ) ) ) goto L2438;
if ( FALSE( callcode_la_2dexits_2dlb_3f( X1, X2 ) ) ) goto L2442;
L2438:
POPSTACKTRACE( callcode_tail_2dcall( l1092,
X4, X3, X2, b1094 ) );
L2442:
if ( FALSE( X2 ) ) goto L2448;
X5 = plist_get( X2, c1151 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1164 ) ) ) goto L2448;
X5 = plist_get( X2, c1118 );
POPSTACKTRACE( callcode_inline_2dcall( l1092,
X5, X3, b1094 ) );
L2448:
if ( FALSE( X2 ) ) goto L2454;
if ( FALSE( plist_get( X4, c1171 ) ) ) goto L2454;
POPSTACKTRACE( callcode_known_2dc_2dcall( l1092,
X4,
X3, X2, b1094 ) );
L2454:
if ( FALSE( X2 ) ) goto L2455;
POPSTACKTRACE( callcode_known_2dcall( l1092,
X4,
X3, X2, b1094 ) );
L2455:
POPSTACKTRACE( callcode_unknown_2dcall( l1092,
X4, X3, b1094 ) );
}
DEFTSCP( callcode_la_2dexits_2dlb_3f_v );
DEFSTRING( t2457, "LA-EXITS-LB?", 12 );
TSCP callcode_la_2dexits_2dlb_3f( i1260, i1261 )
TSCP i1260, i1261;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2457 ) ) );
L2458:
if ( FALSE( i1260 ) ) goto L2459;
if ( EQ( UNSIGNED( i1260 ), UNSIGNED( i1261 ) ) ) goto L2461;
X1 = plist_get( i1260, c1275 );
i1260 = X1;
goto L2458;
L2461:
POPSTACKTRACE( TRUEVALUE );
L2459:
POPSTACKTRACE( i1260 );
}
DEFTSCP( callcode_inline_2dcall_v );
DEFSTRING( t2463, "INLINE-CALL", 11 );
EXTERNTSCPP( gencode_optional_2dargs );
EXTERNTSCP( gencode_optional_2dargs_v );
EXTERNTSCPP( lap_save_2dlap_2dtemps );
EXTERNTSCP( lap_save_2dlap_2dtemps_v );
EXTERNTSCP( gencode_free_2ddisplay_v );
DEFSTRING( t2484, "BIND [inside INLINE-CALL]", 25 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
EXTERNTSCPP( lap_use_2dlap_2dtemp );
EXTERNTSCP( lap_use_2dlap_2dtemp_v );
TSCP callcode_b1296( v1380 )
TSCP v1380;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2484 ) ) );
X1 = sc_cons( v1380, PAIR_CAR( DISPLAY( 1 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 1 ) ), X1 );
if ( FALSE( plist_get( v1380, c1383 ) ) ) goto L2486;
if ( TRUE( scrt1_memq( v1380,
PAIR_CAR( DISPLAY( 0 ) ) ) ) ) goto L2489;
X5 = sc_cons( v1380, EMPTYLIST );
X4 = X5;
X3 = SYMBOL_VALUE( reserve_2ddisplay_v );
X3 = UNKNOWNCALL( X3, 2 );
VIA( PROCEDURE_CODE( X3 ) )( X4,
PAIR_CAR( DISPLAY( 0 ) ),
PROCEDURE_CLOSURE( X3 ) );
X3 = sc_cons( v1380, PAIR_CAR( DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 0 ) ), X3 );
L2489:
X3 = CONS( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1394,
CONS( plist_get( v1380, c1383 ),
X3 ) );
goto L2494;
L2486:
if ( FALSE( scrt1_memq( v1380,
PAIR_CAR( DISPLAY( 0 ) ) ) )
) goto L2493;
X2 = v1380;
goto L2494;
L2493:
X3 = sc_cons( v1380, PAIR_CAR( DISPLAY( 0 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 0 ) ), X3 );
X3 = lap_use_2dlap_2dtemp( );
plist_put( v1380, c1388, X3 );
X2 = v1380;
L2494:
X1 = sc_cons( X2, PAIR_CAR( DISPLAY( 2 ) ) );
SETGEN( PAIR_CAR( DISPLAY( 2 ) ), X1 );
X1 = PAIR_CAR( DISPLAY( 2 ) );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2497;
scrt1__24__car_2derror( X1 );
L2497:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
EXTERNTSCPP( gencode_exp_2dgenc );
EXTERNTSCP( gencode_exp_2dgenc_v );
EXTERNTSCPP( callcode_b1296 );
EXTERNTSCPP( callcode_nal_2dargs_9446856b );
EXTERNTSCP( callcode_nal_2dargs_9446856b_v );
EXTERNTSCPP( lap_restore_2dlap_2dtemps );
EXTERNTSCP( lap_restore_2dlap_2dtemps_v );
TSCP callcode_inline_2dcall( l1277, e1278, a1279, b1280 )
TSCP l1277, e1278, a1279, b1280;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2463 ) ) );
DISPLAY( 0 ) = b1280;
a1279 = CONS( a1279, EMPTYLIST );
DISPLAY( 0 ) = CONS( DISPLAY( 0 ), EMPTYLIST );
if ( NEQ( TSCPTAG( e1278 ), PAIRTAG ) ) goto L2465;
X3 = PAIR_CAR( e1278 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1118 ) ) );
goto L2466;
L2465:
X2 = FALSEVALUE;
L2466:
if ( FALSE( X2 ) ) goto L2469;
if ( EQ( TSCPTAG( e1278 ), PAIRTAG ) ) goto L2472;
scrt1__24__cdr_2derror( e1278 );
L2472:
X3 = PAIR_CDR( e1278 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2475;
scrt1__24__car_2derror( X3 );
L2475:
X1 = PAIR_CAR( X3 );
goto L2470;
L2469:
X1 = X2;
L2470:
X2 = plist_get( X1, c1403 );
X3 = gencode_optional_2dargs( X1 );
X4 = lap_save_2dlap_2dtemps( );
DISPLAY( 1 ) = EMPTYLIST;
DISPLAY( 1 ) = CONS( DISPLAY( 1 ), EMPTYLIST );
DISPLAY( 2 ) = EMPTYLIST;
DISPLAY( 2 ) = CONS( DISPLAY( 2 ), EMPTYLIST );
X5 = gencode_free_2ddisplay_v;
if ( FALSE( X3 ) ) goto L2500;
X7 = scrt1_length( X2 );
X8 = scrt1_length( PAIR_CAR( a1279 ) );
if ( BITAND( BITOR( INT( X8 ), INT( X7 ) ),
3 ) ) goto L2503;
X6 = BOOLEAN( LT( INT( X8 ), INT( X7 ) ) );
goto L2501;
L2503:
X6 = scrt2__3c_2dtwo( X8, X7 );
goto L2501;
L2500:
X6 = X3;
L2501:
if ( TRUE( X6 ) ) goto L2509;
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2515;
X7 = scrt1_length( PAIR_CAR( a1279 ) );
X8 = scrt1_length( X2 );
if ( EQ( UNSIGNED( X7 ), UNSIGNED( X8 ) ) ) goto L2515;
L2509:
X7 = SYMBOL_VALUE( report_2derror_v );
X7 = UNKNOWNCALL( X7, 1 );
VIA( PROCEDURE_CODE( X7 ) )( c1378,
PROCEDURE_CLOSURE( X7 ) );
goto L2516;
L2515:
X7 = X2;
L2519:
if ( EQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2520;
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2524;
scrt1__24__car_2derror( X7 );
L2524:
X8 = PAIR_CAR( X7 );
X9 = plist_get( X8, c1184 );
if ( FALSE( X9 ) ) goto L2536;
X11 = plist_get( X8, c1184 );
X10 = plist_get( X11, c1151 );
if ( EQ( UNSIGNED( X10 ), UNSIGNED( c1361 ) ) ) goto L2536;
X11 = PAIR_CAR( a1279 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2534;
scrt1__24__car_2derror( X11 );
L2534:
X10 = PAIR_CAR( X11 );
gencode_exp_2dgenc( c1366,
X10, PAIR_CAR( DISPLAY( 0 ) ) );
goto L2537;
L2536:
X10 = callcode_b1296( X8 );
X12 = PAIR_CAR( a1279 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L2539;
scrt1__24__car_2derror( X12 );
L2539:
X11 = PAIR_CAR( X12 );
gencode_exp_2dgenc( X10,
X11, PAIR_CAR( DISPLAY( 0 ) ) );
L2537:
X10 = PAIR_CAR( a1279 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L2542;
scrt1__24__cdr_2derror( X10 );
L2542:
X9 = PAIR_CDR( X10 );
SETGEN( PAIR_CAR( a1279 ), X9 );
X7 = PAIR_CDR( X7 );
goto L2519;
L2520:
if ( FALSE( X3 ) ) goto L2545;
X7 = callcode_b1296( X3 );
callcode_nal_2dargs_9446856b( X7,
PAIR_CAR( a1279 ),
PAIR_CAR( DISPLAY( 0 ) ) );
L2545:
X7 = SYMBOL_VALUE( lambda_2dbody_2dgenc_v );
X7 = UNKNOWNCALL( X7, 5 );
VIA( PROCEDURE_CODE( X7 ) )( l1277,
e1278,
PAIR_CAR( DISPLAY( 1 ) ),
PAIR_CAR( DISPLAY( 2 ) ),
PAIR_CAR( DISPLAY( 0 ) ),
PROCEDURE_CLOSURE( X7 ) );
L2516:
gencode_free_2ddisplay_v = X5;
SDVAL = lap_restore_2dlap_2dtemps( X4 );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( callcode_nal_2dargs_9446856b_v );
DEFSTRING( t2547, "LISTIFY-OPTIONAL-ARGS", 21 );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
EXTERNTSCPP( lap_emit_2dlap );
EXTERNTSCP( lap_emit_2dlap_v );
EXTERNTSCPP( expform_vname );
EXTERNTSCP( expform_vname_v );
EXTERNTSCPP( lap_drop_2dlap_2dtemp );
EXTERNTSCP( lap_drop_2dlap_2dtemp_v );
TSCP callcode_nal_2dargs_9446856b( v1436, a1437, b1438 )
TSCP v1436, a1437, b1438;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2547 ) ) );
if ( FALSE( a1437 ) ) goto L2549;
X1 = lap_use_2dlap_2dtemp( );
X2 = scrt1_reverse( a1437 );
X3 = c1463;
L2553:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2555;
scrt1__24__car_2derror( X2 );
L2555:
X4 = PAIR_CAR( X2 );
gencode_exp_2dgenc( c1448, X4, b1438 );
if ( FALSE( PAIR_CDR( X2 ) ) ) goto L2558;
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( X3, X6 );
X5 = CONS( scrt1_cons_2a( c1457, CONS( c1448, X6 ) ),
X5 );
X4 = scrt1_cons_2a( c1439,
CONS( expform_vname( X1 ), X5 ) );
lap_emit_2dlap( X4 );
X4 = PAIR_CDR( X2 );
X3 = expform_vname( X1 );
X2 = X4;
goto L2553;
L2558:
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( X3, X6 );
X5 = CONS( scrt1_cons_2a( c1457, CONS( c1448, X6 ) ),
X5 );
X4 = scrt1_cons_2a( c1439,
CONS( expform_vname( v1436 ), X5 ) );
lap_emit_2dlap( X4 );
POPSTACKTRACE( lap_drop_2dlap_2dtemp( X1 ) );
L2549:
X2 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( c1440, X2 );
X1 = scrt1_cons_2a( c1439,
CONS( expform_vname( v1436 ), X2 ) );
POPSTACKTRACE( lap_emit_2dlap( X1 ) );
}
DEFTSCP( callcode_tail_2dcall_v );
DEFSTRING( t2562, "TAIL-CALL", 9 );
EXTERNTSCPP( callcode_tail_2dcall_2dbind );
EXTERNTSCP( callcode_tail_2dcall_2dbind_v );
EXTERNTSCPP( gencode_code_2dlabel );
EXTERNTSCP( gencode_code_2dlabel_v );
TSCP callcode_tail_2dcall( l1465,
f1466, a1467, i1468, b1469 )
TSCP l1465, f1466, a1467, i1468, b1469;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2562 ) ) );
X1 = gencode_optional_2dargs( i1468 );
X2 = plist_get( i1468, c1403 );
if ( FALSE( X1 ) ) goto L2565;
X4 = scrt1_length( X2 );
X5 = scrt1_length( a1467 );
if ( BITAND( BITOR( INT( X5 ), INT( X4 ) ),
3 ) ) goto L2568;
X3 = BOOLEAN( LT( INT( X5 ), INT( X4 ) ) );
goto L2566;
L2568:
X3 = scrt2__3c_2dtwo( X5, X4 );
goto L2566;
L2565:
X3 = X1;
L2566:
if ( TRUE( X3 ) ) goto L2574;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2580;
X4 = scrt1_length( a1467 );
X5 = scrt1_length( X2 );
if ( EQ( UNSIGNED( X4 ), UNSIGNED( X5 ) ) ) goto L2580;
L2574:
X3 = SYMBOL_VALUE( report_2derror_v );
X3 = UNKNOWNCALL( X3, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X3 ) )( c1504,
f1466,
PROCEDURE_CLOSURE( X3 ) ) );
L2580:
X3 = lap_save_2dlap_2dtemps( );
callcode_tail_2dcall_2dbind( X2, X1, a1467, b1469 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X4 = scrt1_cons_2a( c1502,
CONS( gencode_code_2dlabel( i1468 ),
X5 ) );
lap_emit_2dlap( X4 );
X4 = SYMBOL_VALUE( update_2dcondition_2dinfo_v );
X4 = UNKNOWNCALL( X4, 1 );
VIA( PROCEDURE_CODE( X4 ) )( i1468,
PROCEDURE_CLOSURE( X4 ) );
POPSTACKTRACE( lap_restore_2dlap_2dtemps( X3 ) );
}
DEFTSCP( callcode_tail_2dcall_2dbind_v );
DEFSTRING( t2582, "TAIL-CALL-BIND", 14 );
EXTERNTSCPP( gencode_lookup );
EXTERNTSCP( gencode_lookup_v );
EXTERNTSCPP( callcode_load_2dargl );
EXTERNTSCP( callcode_load_2dargl_v );
TSCP callcode_tail_2dcall_2dbind( r1508, o1509, a1510, b1511 )
TSCP r1508, o1509, a1510, b1511;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2582 ) ) );
if ( NEQ( UNSIGNED( r1508 ),
UNSIGNED( EMPTYLIST ) ) ) goto L2584;
X1 = BOOLEAN( EQ( UNSIGNED( o1509 ),
UNSIGNED( EMPTYLIST ) ) );
goto L2585;
L2584:
X1 = FALSEVALUE;
L2585:
if ( TRUE( X1 ) ) goto L2587;
if ( NEQ( UNSIGNED( r1508 ),
UNSIGNED( EMPTYLIST ) ) ) goto L2589;
X2 = gencode_lookup( o1509, b1511 );
POPSTACKTRACE( callcode_nal_2dargs_9446856b( X2,
a1510, b1511 ) );
L2589:
if ( EQ( TSCPTAG( r1508 ), PAIRTAG ) ) goto L2592;
scrt1__24__cdr_2derror( r1508 );
L2592:
X3 = PAIR_CDR( r1508 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( EMPTYLIST ) ) );
if ( FALSE( X2 ) ) goto L2615;
if ( NEQ( UNSIGNED( o1509 ),
UNSIGNED( EMPTYLIST ) ) ) goto L2615;
X3 = PAIR_CAR( r1508 );
if ( FALSE( plist_get( X3, c1568 ) ) ) goto L2602;
if ( EQ( TSCPTAG( a1510 ), PAIRTAG ) ) goto L2606;
scrt1__24__car_2derror( a1510 );
L2606:
X4 = PAIR_CAR( a1510 );
gencode_exp_2dgenc( c1448, X4, b1511 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( c1448, X5 );
X6 = plist_get( X3, c1383 );
if ( FALSE( X6 ) ) goto L2609;
X8 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( c1394, CONS( X6, X8 ) );
goto L2610;
L2609:
X7 = expform_vname( X3 );
L2610:
X4 = scrt1_cons_2a( c1439, CONS( X7, X5 ) );
POPSTACKTRACE( lap_emit_2dlap( X4 ) );
L2602:
X5 = PAIR_CAR( r1508 );
X4 = gencode_lookup( X5, b1511 );
if ( EQ( TSCPTAG( a1510 ), PAIRTAG ) ) goto L2613;
scrt1__24__car_2derror( a1510 );
L2613:
X5 = PAIR_CAR( a1510 );
POPSTACKTRACE( gencode_exp_2dgenc( X4, X5, b1511 ) );
L2587:
POPSTACKTRACE( X1 );
L2615:
X1 = PAIR_CAR( r1508 );
if ( EQ( TSCPTAG( a1510 ), PAIRTAG ) ) goto L2618;
scrt1__24__car_2derror( a1510 );
L2618:
X3 = PAIR_CAR( a1510 );
X4 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( o1509 ) ) );
if ( TRUE( X4 ) ) goto L2625;
X5 = PAIR_CDR( r1508 );
if ( TRUE( scrt1_memq( X3, X5 ) ) ) goto L2625;
X7 = sc_cons( X3, EMPTYLIST );
X6 = X7;
X5 = callcode_load_2dargl( X6, b1511 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2631;
scrt1__24__car_2derror( X5 );
L2631:
X2 = PAIR_CAR( X5 );
goto L2633;
L2625:
X4 = lap_use_2dlap_2dtemp( );
gencode_exp_2dgenc( X4, X3, b1511 );
X2 = X4;
L2633:
X3 = PAIR_CDR( r1508 );
X4 = PAIR_CDR( a1510 );
callcode_tail_2dcall_2dbind( X3, o1509, X4, b1511 );
X3 = plist_get( X1, c1383 );
if ( FALSE( plist_get( X1, c1568 ) ) ) goto L2639;
X5 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( X2, X5 );
if ( FALSE( X3 ) ) goto L2641;
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c1394, CONS( X3, X7 ) );
goto L2642;
L2641:
X6 = expform_vname( X1 );
L2642:
X4 = scrt1_cons_2a( c1439, CONS( X6, X5 ) );
POPSTACKTRACE( lap_emit_2dlap( X4 ) );
L2639:
X5 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( X2, X5 );
X4 = scrt1_cons_2a( c1439,
CONS( gencode_lookup( X1, b1511 ),
X5 ) );
POPSTACKTRACE( lap_emit_2dlap( X4 ) );
}
DEFTSCP( callcode__24lap_2dgenc_v );
DEFSTRING( t2643, "$LAP-GENC", 9 );
EXTERNTSCPP( callcode_subsym );
EXTERNTSCP( callcode_subsym_v );
TSCP callcode__24lap_2dgenc( l1627, l1628, a1629, b1630 )
TSCP l1627, l1628, a1629, b1630;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2643 ) ) );
X1 = lap_save_2dlap_2dtemps( );
X2 = EMPTYLIST;
X2 = CONS( X2, EMPTYLIST );
if ( NEQ( TSCPTAG( l1628 ), PAIRTAG ) ) goto L2647;
X6 = PAIR_CAR( l1628 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1134 ) ) );
goto L2648;
L2647:
X5 = FALSEVALUE;
L2648:
if ( FALSE( X5 ) ) goto L2651;
X3 = scrt1_caddr( l1628 );
goto L2652;
L2651:
X3 = X5;
L2652:
X4 = callcode_load_2dargl( a1629, b1630 );
L2653:
X5 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( EMPTYLIST ) ) );
if ( TRUE( X5 ) ) goto L2658;
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2658;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2663;
scrt1__24__car_2derror( X3 );
L2663:
X9 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2666;
scrt1__24__car_2derror( X4 );
L2666:
X11 = PAIR_CAR( X4 );
X10 = sc_cons( X11, EMPTYLIST );
X8 = sc_cons( X9, X10 );
X7 = X8;
X6 = sc_cons( X7, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X6 );
X6 = PAIR_CDR( X3 );
X4 = PAIR_CDR( X4 );
X3 = X6;
goto L2653;
L2658:
if ( TRUE( X4 ) ) goto L2675;
if ( FALSE( X3 ) ) goto L2671;
L2675:
X5 = SYMBOL_VALUE( report_2derror_v );
X5 = UNKNOWNCALL( X5, 1 );
VIA( PROCEDURE_CODE( X5 ) )( c1676,
PROCEDURE_CLOSURE( X5 ) );
L2671:
if ( NEQ( TSCPTAG( l1628 ), PAIRTAG ) ) goto L2679;
X5 = PAIR_CAR( l1628 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1134 ) ) );
goto L2680;
L2679:
X4 = FALSEVALUE;
L2680:
if ( FALSE( X4 ) ) goto L2683;
X3 = scrt1_cdddr( l1628 );
goto L2684;
L2683:
X3 = X4;
L2684:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2687;
scrt1__24__cdr_2derror( X3 );
L2687:
if ( FALSE( PAIR_CDR( X3 ) ) ) goto L2689;
X5 = PAIR_CAR( X3 );
X4 = callcode_subsym( X5, PAIR_CAR( X2 ) );
lap_emit_2dlap( X4 );
X3 = PAIR_CDR( X3 );
goto L2684;
L2689:
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = PAIR_CAR( X3 );
X5 = CONS( callcode_subsym( X6, PAIR_CAR( X2 ) ),
X5 );
X4 = scrt1_cons_2a( c1439,
CONS( expform_vname( l1627 ), X5 ) );
lap_emit_2dlap( X4 );
POPSTACKTRACE( lap_restore_2dlap_2dtemps( X1 ) );
}
DEFTSCP( callcode_subsym_v );
DEFSTRING( t2695, "SUBSYM", 6 );
EXTERNTSCPP( scrt1_assq );
EXTERNTSCP( scrt1_assq_v );
TSCP callcode_subsym( e1742, a1743 )
TSCP e1742, a1743;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2695 ) ) );
if ( EQ( UNSIGNED( e1742 ), UNSIGNED( EMPTYLIST ) ) ) goto L2697;
if ( NOT( AND( EQ( TSCPTAG( e1742 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1742 ), SYMBOLTAG ) ) )
) goto L2699;
X1 = scrt1_assq( e1742, a1743 );
if ( FALSE( X1 ) ) goto L2702;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2705;
scrt1__24__cdr_2derror( X1 );
L2705:
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2708;
scrt1__24__car_2derror( X3 );
L2708:
X2 = PAIR_CAR( X3 );
POPSTACKTRACE( expform_vname( X2 ) );
L2702:
POPSTACKTRACE( e1742 );
L2699:
if ( NEQ( TSCPTAG( e1742 ), PAIRTAG ) ) goto L2710;
X2 = PAIR_CAR( e1742 );
X1 = callcode_subsym( X2, a1743 );
X3 = PAIR_CDR( e1742 );
X2 = callcode_subsym( X3, a1743 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2710:
POPSTACKTRACE( e1742 );
L2697:
POPSTACKTRACE( e1742 );
}
DEFTSCP( callcode_known_2dc_2dcall_v );
DEFSTRING( t2714, "KNOWN-C-CALL", 12 );
EXTERNTSCPP( gencode_emit_2dextern );
EXTERNTSCP( gencode_emit_2dextern_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( expform_cname );
EXTERNTSCP( expform_cname_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
DEFSTRING( t2750, "LOOP [inside KNOWN-C-CALL]", 26 );
EXTERNTSCPP( callcode_l1825 );
TSCP callcode_l1825( a1827, t1828 )
TSCP a1827, t1828;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2750 ) ) );
if ( FALSE( a1827 ) ) goto L2752;
if ( EQ( TSCPTAG( t1828 ), PAIRTAG ) ) goto L2755;
scrt1__24__car_2derror( t1828 );
L2755:
X2 = PAIR_CAR( t1828 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1834 ) ) ) goto L2758;
X3 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2761;
scrt1__24__car_2derror( a1827 );
L2761:
X1 = scrt1_cons_2a( c1916,
CONS( PAIR_CAR( a1827 ), X3 ) );
goto L2804;
L2758:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1838 ) ) ) goto L2763;
X3 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2766;
scrt1__24__car_2derror( a1827 );
L2766:
X1 = scrt1_cons_2a( c1903,
CONS( PAIR_CAR( a1827 ), X3 ) );
goto L2804;
L2763:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1842 ) ) ) goto L2768;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2771;
scrt1__24__car_2derror( a1827 );
L2771:
X1 = scrt1_cons_2a( c1842,
CONS( scrt1_cons_2a( c1903,
CONS( PAIR_CAR( a1827 ),
X4 ) ),
X3 ) );
goto L2804;
L2768:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1846 ) ) ) goto L2773;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2776;
scrt1__24__car_2derror( a1827 );
L2776:
X1 = scrt1_cons_2a( c1846,
CONS( scrt1_cons_2a( c1903,
CONS( PAIR_CAR( a1827 ),
X4 ) ),
X3 ) );
goto L2804;
L2773:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1850 ) ) ) goto L2778;
X3 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2781;
scrt1__24__car_2derror( a1827 );
L2781:
X1 = scrt1_cons_2a( c1890,
CONS( PAIR_CAR( a1827 ), X3 ) );
goto L2804;
L2778:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1854 ) ) ) goto L2783;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2786;
scrt1__24__car_2derror( a1827 );
L2786:
X1 = scrt1_cons_2a( c1854,
CONS( scrt1_cons_2a( c1890,
CONS( PAIR_CAR( a1827 ),
X4 ) ),
X3 ) );
goto L2804;
L2783:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1858 ) ) ) goto L2788;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2791;
scrt1__24__car_2derror( a1827 );
L2791:
X1 = scrt1_cons_2a( c1858,
CONS( scrt1_cons_2a( c1890,
CONS( PAIR_CAR( a1827 ),
X4 ) ),
X3 ) );
goto L2804;
L2788:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1862 ) ) ) goto L2793;
X3 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2796;
scrt1__24__car_2derror( a1827 );
L2796:
X1 = scrt1_cons_2a( c1885,
CONS( PAIR_CAR( a1827 ), X3 ) );
goto L2804;
L2793:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1866 ) ) ) goto L2798;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2801;
scrt1__24__car_2derror( a1827 );
L2801:
X1 = scrt1_cons_2a( c1880,
CONS( scrt1_cons_2a( c1875,
CONS( PAIR_CAR( a1827 ),
X4 ) ),
X3 ) );
goto L2804;
L2798:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1870 ) ) ) goto L2803;
X3 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2806;
scrt1__24__car_2derror( a1827 );
L2806:
X1 = scrt1_cons_2a( c1875,
CONS( PAIR_CAR( a1827 ), X3 ) );
goto L2804;
L2803:
if ( EQ( TSCPTAG( a1827 ), PAIRTAG ) ) goto L2809;
scrt1__24__car_2derror( a1827 );
L2809:
X1 = PAIR_CAR( a1827 );
L2804:
X3 = PAIR_CDR( a1827 );
X5 = PAIR_CDR( t1828 );
if ( FALSE( X5 ) ) goto L2814;
X4 = X5;
goto L2815;
L2814:
X4 = t1828;
L2815:
X2 = callcode_l1825( X3, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2752:
POPSTACKTRACE( EMPTYLIST );
}
EXTERNTSCPP( scrt1_memv );
EXTERNTSCP( scrt1_memv_v );
TSCP callcode_known_2dc_2dcall( l1776,
f1777, a1778, i1779, b1780 )
TSCP l1776, f1777, a1778, i1779, b1780;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2714 ) ) );
X1 = plist_get( i1779, c1403 );
X2 = plist_get( i1779, c1994 );
X3 = scrt1_length( X1 );
X4 = lap_save_2dlap_2dtemps( );
X5 = callcode_load_2dargl( a1778, b1780 );
gencode_emit_2dextern( f1777 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2721;
X7 = scrt1_length( X5 );
if ( BITAND( BITOR( INT( X7 ), INT( X3 ) ),
3 ) ) goto L2724;
X6 = BOOLEAN( NEQ( UNSIGNED( X7 ), UNSIGNED( X3 ) ) );
goto L2722;
L2724:
if ( FALSE( scrt2__3d_2dtwo( X7, X3 ) ) ) goto L2726;
X6 = FALSEVALUE;
goto L2722;
L2726:
X6 = TRUEVALUE;
goto L2722;
L2721:
X6 = FALSEVALUE;
L2722:
if ( TRUE( X6 ) ) goto L2732;
if ( FALSE( X2 ) ) goto L2746;
X7 = scrt1_length( X5 );
if ( BITAND( BITOR( INT( X7 ), INT( X3 ) ),
3 ) ) goto L2738;
if ( LT( INT( X7 ), INT( X3 ) ) ) goto L2732;
goto L2746;
L2738:
if ( TRUE( scrt2__3c_2dtwo( X7, X3 ) ) ) goto L2732;
L2746:
X8 = CONS( EMPTYLIST, EMPTYLIST );
X9 = expform_cname( i1779 );
X12 = scrt1_append_2dtwo( X1, X2 );
X11 = callcode_l1825( X5, X12 );
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X8 = CONS( scrt1_cons_2a( X9,
CONS( scrt1_append_2dtwo( X11, X12 ),
EMPTYLIST ) ),
X8 );
X7 = scrt1_cons_2a( c1439, CONS( c1448, X8 ) );
lap_emit_2dlap( X7 );
X8 = CONS( EMPTYLIST, EMPTYLIST );
if ( NEQ( UNSIGNED( l1776 ), UNSIGNED( c1366 ) ) ) goto L2816;
X9 = TRUEVALUE;
goto L2817;
L2816:
X9 = plist_get( f1777, c1171 );
L2817:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( TRUEVALUE ) ) ) goto L2819;
X10 = c1448;
goto L2838;
L2819:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( c1834 ) ) ) goto L2821;
X10 = c1979;
goto L2838;
L2821:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( c1838 ) ) ) goto L2823;
X10 = c1978;
goto L2838;
L2823:
if ( FALSE( scrt1_memv( X9, c1948 ) ) ) goto L2825;
X10 = c1977;
goto L2838;
L2825:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( c1850 ) ) ) goto L2827;
X10 = c1976;
goto L2838;
L2827:
if ( FALSE( scrt1_memv( X9, c1952 ) ) ) goto L2829;
X10 = c1975;
goto L2838;
L2829:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( c1862 ) ) ) goto L2831;
X10 = c1974;
goto L2838;
L2831:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( c1866 ) ) ) goto L2833;
X10 = c1973;
goto L2838;
L2833:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( c1870 ) ) ) goto L2835;
X10 = c1972;
goto L2838;
L2835:
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( c1965 ) ) ) goto L2837;
X12 = expform_cname( i1779 );
X11 = SYMBOL_VALUE( report_2dwarning_v );
X11 = UNKNOWNCALL( X11, 2 );
VIA( PROCEDURE_CODE( X11 ) )( c1969,
X12,
PROCEDURE_CLOSURE( X11 ) );
lap_emit_2dlap( c1970 );
X10 = c1971;
goto L2838;
L2837:
X10 = c1966;
L2838:
X8 = CONS( X10, X8 );
X7 = scrt1_cons_2a( c1439,
CONS( expform_vname( l1776 ), X8 ) );
lap_emit_2dlap( X7 );
goto L2747;
L2732:
X8 = plist_get( f1777, c1991 );
X7 = SYMBOL_VALUE( report_2derror_v );
X7 = UNKNOWNCALL( X7, 2 );
VIA( PROCEDURE_CODE( X7 ) )( c1504,
X8, PROCEDURE_CLOSURE( X7 ) );
L2747:
POPSTACKTRACE( lap_restore_2dlap_2dtemps( X4 ) );
}
DEFTSCP( callcode_known_2dcall_v );
DEFSTRING( t2840, "KNOWN-CALL", 10 );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCP( sc_emptystring );
EXTERNTSCPP( scrt1_list_2dtail );
EXTERNTSCP( scrt1_list_2dtail_v );
TSCP callcode_known_2dcall( l1998,
f1999, a2000, i2001, b2002 )
TSCP l1998, f1999, a2000, i2001, b2002;
{
TSCP X17,
X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2840 ) ) );
a2000 = CONS( a2000, EMPTYLIST );
X1 = plist_get( i2001, c1403 );
X1 = CONS( X1, EMPTYLIST );
X2 = gencode_optional_2dargs( i2001 );
X3 = scrt1_length( PAIR_CAR( X1 ) );
X4 = lap_save_2dlap_2dtemps( );
gencode_emit_2dextern( f1999 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2846;
X6 = scrt1_length( PAIR_CAR( a2000 ) );
if ( BITAND( BITOR( INT( X6 ), INT( X3 ) ),
3 ) ) goto L2849;
X5 = BOOLEAN( NEQ( UNSIGNED( X6 ), UNSIGNED( X3 ) ) );
goto L2847;
L2849:
if ( FALSE( scrt2__3d_2dtwo( X6, X3 ) ) ) goto L2851;
X5 = FALSEVALUE;
goto L2847;
L2851:
X5 = TRUEVALUE;
goto L2847;
L2846:
X5 = FALSEVALUE;
L2847:
if ( TRUE( X5 ) ) goto L2857;
if ( FALSE( X2 ) ) goto L2871;
X6 = scrt1_length( PAIR_CAR( a2000 ) );
if ( BITAND( BITOR( INT( X6 ), INT( X3 ) ),
3 ) ) goto L2863;
if ( LT( INT( X6 ), INT( X3 ) ) ) goto L2857;
goto L2871;
L2863:
if ( TRUE( scrt2__3c_2dtwo( X6, X3 ) ) ) goto L2857;
L2871:
if ( FALSE( X2 ) ) goto L2879;
X6 = plist_get( f1999, c2049 );
if ( FALSE( scrt1_equal_3f( X6, sc_emptystring ) ) ) goto L2879;
X6 = callcode_load_2dargl( PAIR_CAR( a2000 ), b2002 );
SETGEN( PAIR_CAR( a2000 ), X6 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = expform_cname( i2001 );
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_cons_2a( X8,
CONS( scrt1_append_2dtwo( PAIR_CAR( a2000 ),
X10 ),
EMPTYLIST ) ),
X7 );
X6 = scrt1_cons_2a( c1439,
CONS( expform_vname( l1998 ), X7 ) );
lap_emit_2dlap( X6 );
goto L2872;
L2879:
X8 = SYMBOL_VALUE( list_2dhead_v );
X8 = UNKNOWNCALL( X8, 2 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( PAIR_CAR( a2000 ),
X3,
PROCEDURE_CLOSURE( X8 ) );
X6 = callcode_load_2dargl( X7, b2002 );
SETGEN( PAIR_CAR( X1 ), X6 );
if ( FALSE( X2 ) ) goto L2881;
X6 = scrt1_list_2dtail( PAIR_CAR( a2000 ), X3 );
callcode_nal_2dargs_9446856b( c1448, X6, b2002 );
L2881:
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = expform_cname( i2001 );
if ( FALSE( X2 ) ) goto L2883;
X12 = c2052;
goto L2884;
L2883:
X12 = EMPTYLIST;
L2884:
X16 = plist_get( i2001, c1151 );
if ( NEQ( UNSIGNED( X16 ), UNSIGNED( c1361 ) ) ) goto L2885;
X17 = CONS( EMPTYLIST, EMPTYLIST );
X16 = scrt1_cons_2a( c2058,
CONS( gencode_lookup( f1999, b2002 ),
X17 ) );
X15 = scrt1_cons_2a( X16,
CONS( EMPTYLIST, EMPTYLIST ) );
goto L2886;
L2885:
X15 = EMPTYLIST;
L2886:
X16 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X14 = scrt1_append_2dtwo( X15, X16 );
X13 = scrt1_cons_2a( X14, EMPTYLIST );
X11 = scrt1_append_2dtwo( X12, X13 );
X10 = scrt1_cons_2a( X11, EMPTYLIST );
X7 = CONS( scrt1_cons_2a( X8,
CONS( scrt1_append_2dtwo( PAIR_CAR( X1 ),
X10 ),
EMPTYLIST ) ),
X7 );
X6 = scrt1_cons_2a( c1439,
CONS( expform_vname( l1998 ), X7 ) );
lap_emit_2dlap( X6 );
goto L2872;
L2857:
X7 = plist_get( f1999, c1991 );
X6 = SYMBOL_VALUE( report_2derror_v );
X6 = UNKNOWNCALL( X6, 2 );
VIA( PROCEDURE_CODE( X6 ) )( c1504,
X7, PROCEDURE_CLOSURE( X6 ) );
L2872:
POPSTACKTRACE( lap_restore_2dlap_2dtemps( X4 ) );
}
DEFTSCP( callcode_unknown_2dcall_v );
DEFSTRING( t2887, "UNKNOWN-CALL", 12 );
TSCP callcode_unknown_2dcall( l2065, f2066, a2067, b2068 )
TSCP l2065, f2066, a2067, b2068;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2887 ) ) );
X1 = lap_save_2dlap_2dtemps( );
X2 = lap_use_2dlap_2dtemp( );
X3 = callcode_load_2dargl( a2067, b2068 );
gencode_exp_2dgenc( X2, f2066, b2068 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( scrt1_length( a2067 ), X6 );
X5 = CONS( scrt1_cons_2a( c2075,
CONS( expform_vname( X2 ), X6 ) ),
X5 );
X4 = scrt1_cons_2a( c1439, CONS( X2, X5 ) );
lap_emit_2dlap( X4 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c2076,
CONS( scrt1_cons_2a( c2077,
CONS( expform_vname( X2 ),
X8 ) ),
X7 ) );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X9 = scrt1_cons_2a( c2058,
CONS( expform_vname( X2 ), X10 ) );
X8 = scrt1_cons_2a( X9, CONS( EMPTYLIST, EMPTYLIST ) );
X5 = CONS( scrt1_cons_2a( X6,
CONS( scrt1_append_2dtwo( X3, X8 ),
EMPTYLIST ) ),
X5 );
X4 = scrt1_cons_2a( c1439,
CONS( expform_vname( l2065 ), X5 ) );
lap_emit_2dlap( X4 );
POPSTACKTRACE( lap_restore_2dlap_2dtemps( X1 ) );
}
DEFTSCP( callcode_load_2dargl_v );
DEFSTRING( t2892, "LOAD-ARGL", 9 );
EXTERNTSCPP( gencode_var_2din_2dstack );
EXTERNTSCP( gencode_var_2din_2dstack_v );
EXTERNTSCPP( gencode_var_2dis_2dglobal );
EXTERNTSCP( gencode_var_2dis_2dglobal_v );
EXTERNTSCPP( gencode_var_2dis_2dconstant );
EXTERNTSCP( gencode_var_2dis_2dconstant_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP callcode_load_2dargl( a2079, b2080 )
TSCP a2079, b2080;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2892 ) ) );
X1 = a2079;
X2 = EMPTYLIST;
X3 = EMPTYLIST;
L2895:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2896;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2899;
scrt1__24__car_2derror( X1 );
L2899:
X6 = PAIR_CAR( X1 );
X7 = BOOLEAN( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), SYMBOLTAG ) ) );
if ( FALSE( X7 ) ) goto L2923;
X8 = gencode_var_2din_2dstack( X6 );
if ( TRUE( X8 ) ) goto L2910;
X10 = gencode_var_2dis_2dglobal( X6 );
if ( FALSE( X10 ) ) goto L2912;
if ( FALSE( plist_get( X6, c1171 ) ) ) goto L2914;
X9 = FALSEVALUE;
goto L2913;
L2914:
X9 = TRUEVALUE;
goto L2913;
L2912:
X9 = X10;
L2913:
if ( TRUE( X9 ) ) goto L2910;
if ( TRUE( gencode_var_2dis_2dconstant( X6 ) ) ) goto L2910;
L2923:
X7 = lap_use_2dlap_2dtemp( );
gencode_exp_2dgenc( X7, X6, b2080 );
X5 = X7;
goto L2924;
L2910:
gencode_emit_2dextern( X6 );
X5 = gencode_lookup( X6, b2080 );
L2924:
X4 = sc_cons( X5, EMPTYLIST );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2928;
X5 = PAIR_CDR( X1 );
X3 = X4;
X2 = X4;
X1 = X5;
goto L2895;
L2928:
X5 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2933;
scrt6_error( c2111, c2112, CONS( X3, EMPTYLIST ) );
L2933:
X3 = SETGEN( PAIR_CDR( X3 ), X4 );
X1 = X5;
goto L2895;
L2896:
POPSTACKTRACE( X2 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt6__init();
expform__init();
scrt2__init();
lap__init();
gencode__init();
plist__init();
scrt1__init();
MAXDISPLAY( 3 );
}
void callcode__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(callcode SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2377 ) ),
ADR( callcode__24call_2dgenc_v ),
MAKEPROCEDURE( 3,
0,
callcode__24call_2dgenc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2457 ) ),
ADR( callcode_la_2dexits_2dlb_3f_v ),
MAKEPROCEDURE( 2,
0,
callcode_la_2dexits_2dlb_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2463 ) ),
ADR( callcode_inline_2dcall_v ),
MAKEPROCEDURE( 4,
0,
callcode_inline_2dcall,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2547 ) ),
ADR( callcode_nal_2dargs_9446856b_v ),
MAKEPROCEDURE( 3,
0,
callcode_nal_2dargs_9446856b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2562 ) ),
ADR( callcode_tail_2dcall_v ),
MAKEPROCEDURE( 5,
0,
callcode_tail_2dcall, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2582 ) ),
ADR( callcode_tail_2dcall_2dbind_v ),
MAKEPROCEDURE( 4,
0,
callcode_tail_2dcall_2dbind,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2643 ) ),
ADR( callcode__24lap_2dgenc_v ),
MAKEPROCEDURE( 4,
0,
callcode__24lap_2dgenc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2695 ) ),
ADR( callcode_subsym_v ),
MAKEPROCEDURE( 2,
0,
callcode_subsym, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2714 ) ),
ADR( callcode_known_2dc_2dcall_v ),
MAKEPROCEDURE( 5,
0,
callcode_known_2dc_2dcall,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2840 ) ),
ADR( callcode_known_2dcall_v ),
MAKEPROCEDURE( 5,
0,
callcode_known_2dcall, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2887 ) ),
ADR( callcode_unknown_2dcall_v ),
MAKEPROCEDURE( 4,
0,
callcode_unknown_2dcall,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2892 ) ),
ADR( callcode_load_2dargl_v ),
MAKEPROCEDURE( 2,
0,
callcode_load_2dargl, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.