This is miscexp.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2306, "EXP-FORM-LIST", 13 );
DEFSTATICTSCP( exp_2dform_2dlist_v );
DEFSTRING( t2307, "ID-USE", 6 );
DEFSTATICTSCP( id_2duse_v );
DEFSTRING( t2308, "$LAMBDA?", 8 );
DEFSTATICTSCP( _24lambda_3f_v );
DEFSTRING( t2309, "ID-SET!", 7 );
DEFSTATICTSCP( id_2dset_21_v );
DEFSTRING( t2310, "NAME-A-LAMBDA", 13 );
DEFSTATICTSCP( name_2da_2dlambda_v );
DEFSTRING( t2311, "$LAMBDA-BODY", 12 );
DEFSTATICTSCP( _24lambda_2dbody_v );
DEFSTRING( t2312, "ISLIST", 6 );
DEFSTATICTSCP( islist_v );
DEFSTRING( t2313, "EXPAND-ERROR", 12 );
DEFSTATICTSCP( expand_2derror_v );
DEFSTRING( t2314, "SET-LAMBDA-REQVARS!", 19 );
DEFSTATICTSCP( set_2dlambda_2dreqvars_21_v );
DEFSTRING( t2315, "SET-LAMBDA-OPTVARS!", 19 );
DEFSTATICTSCP( set_2dlambda_2doptvars_21_v );
DEFSTRING( t2316, "EXP-FORM", 8 );
DEFSTATICTSCP( exp_2dform_v );
DEFSTRING( t2317, "LAMBDA-REQVARS", 14 );
DEFSTATICTSCP( lambda_2dreqvars_v );
DEFSTRING( t2318, "LAMBDA-OPTVARS", 14 );
DEFSTATICTSCP( lambda_2doptvars_v );
DEFSTRING( t2319, "$LAMBDA-ID", 10 );
DEFSTATICTSCP( _24lambda_2did_v );
DEFSTRING( t2320, "NEWV", 4 );
DEFSTATICTSCP( newv_v );
DEFSTRING( t2321, "BOUND", 5 );
DEFSTATICTSCP( bound_v );
DEFSTRING( t2322, "FALSE-ALPHA", 11 );
DEFSTATICTSCP( false_2dalpha_v );
DEFSTRING( t2323, "EMPTY-LIST-ALPHA", 16 );
DEFSTATICTSCP( empty_2dlist_2dalpha_v );
DEFSTRING( t2324, "TRUE-ALPHA", 10 );
DEFSTATICTSCP( true_2dalpha_v );
DEFSTRING( t2325, "SET-ID-SET!!", 12 );
DEFSTATICTSCP( set_2did_2dset_21_21_v );
DEFSTRING( t2326, "ID-VALUE", 8 );
DEFSTATICTSCP( id_2dvalue_v );
DEFSTRING( t2327, "CURRENT-DEFINE-NAME", 19 );
DEFSTATICTSCP( current_2ddefine_2dname_v );
DEFSTRING( t2328, "MODULE-NAME", 11 );
DEFSTATICTSCP( module_2dname_v );
DEFSTRING( t2329, "ASSIGN-KNOWN-NAME", 17 );
DEFSTATICTSCP( assign_2dknown_2dname_v );
DEFSTRING( t2330, "LAMBDA", 6 );
DEFSTATICTSCP( c2087 );
DEFSTRING( t2331, "$DEFINE", 7 );
DEFSTATICTSCP( c2082 );
DEFSTRING( t2332, "DEFINED", 7 );
DEFSTATICTSCP( c2078 );
DEFSTRING( t2333, "MODULE", 6 );
DEFSTATICTSCP( c2076 );
DEFSTRING( t2334, "GLOBAL", 6 );
DEFSTATICTSCP( c2075 );
DEFSTRING( t2335, "DEFINE", 6 );
DEFSTATICTSCP( c2067 );
DEFSTRING( t2336, "$IF", 3 );
DEFSTATICTSCP( c1863 );
DEFSTRING( t2337, "IF", 2 );
DEFSTATICTSCP( c1849 );
DEFSTRING( t2338, "$_EMPTY-STRING", 14 );
DEFSTATICTSCP( c1682 );
DEFSTRING( t2339, "$_EMPTY-VECTOR", 14 );
DEFSTATICTSCP( c1681 );
DEFSTRING( t2340, "VALUE", 5 );
DEFSTATICTSCP( c1679 );
DEFSTRING( t2341, "USE", 3 );
DEFSTATICTSCP( c1678 );
DEFSTRING( t2342, "C", 1 );
DEFSTATICTSCP( c1677 );
DEFSTRING( t2343, "QUOTE", 5 );
DEFSTATICTSCP( c1641 );
DEFSTRING( t2344, "SET", 3 );
DEFSTATICTSCP( c1462 );
DEFSTRING( t2345, "READ-ONLY", 9 );
DEFSTATICTSCP( c1461 );
DEFSTRING( t2346, "BOOLEAN", 7 );
DEFSTATICTSCP( c1460 );
DEFSTRING( t2347, "$LAP", 4 );
DEFSTATICTSCP( c1423 );
DEFSTRING( t2348, "SET-CDR!", 8 );
DEFSTATICTSCP( c1383 );
DEFSTRING( t2349, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1296, t2349 );
DEFSTRING( t2350, "SET-CAR!", 8 );
DEFSTATICTSCP( c1295 );
DEFSTRING( t2351, "CONS", 4 );
DEFSTATICTSCP( c1222 );
DEFSTATICTSCP( c1221 );
DEFSTRING( t2352, "$SET", 4 );
DEFSTATICTSCP( c1178 );
DEFSTRING( t2353, "CALL", 4 );
DEFSTATICTSCP( c1116 );
DEFSTRING( t2354, "CONSTANT", 8 );
DEFSTATICTSCP( c1059 );
DEFSTRING( t2355, "$CALL", 5 );
DEFSTATICTSCP( c1024 );
static void init_constants()
{
exp_2dform_2dlist_v = STRINGTOSYMBOL( U_TX( ADR( t2306 ) ) );
CONSTANTEXP( ADR( exp_2dform_2dlist_v ) );
id_2duse_v = STRINGTOSYMBOL( U_TX( ADR( t2307 ) ) );
CONSTANTEXP( ADR( id_2duse_v ) );
_24lambda_3f_v = STRINGTOSYMBOL( U_TX( ADR( t2308 ) ) );
CONSTANTEXP( ADR( _24lambda_3f_v ) );
id_2dset_21_v = STRINGTOSYMBOL( U_TX( ADR( t2309 ) ) );
CONSTANTEXP( ADR( id_2dset_21_v ) );
name_2da_2dlambda_v = STRINGTOSYMBOL( U_TX( ADR( t2310 ) ) );
CONSTANTEXP( ADR( name_2da_2dlambda_v ) );
_24lambda_2dbody_v = STRINGTOSYMBOL( U_TX( ADR( t2311 ) ) );
CONSTANTEXP( ADR( _24lambda_2dbody_v ) );
islist_v = STRINGTOSYMBOL( U_TX( ADR( t2312 ) ) );
CONSTANTEXP( ADR( islist_v ) );
expand_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2313 ) ) );
CONSTANTEXP( ADR( expand_2derror_v ) );
set_2dlambda_2dreqvars_21_v = STRINGTOSYMBOL( U_TX( ADR( t2314 ) ) );
CONSTANTEXP( ADR( set_2dlambda_2dreqvars_21_v ) );
set_2dlambda_2doptvars_21_v = STRINGTOSYMBOL( U_TX( ADR( t2315 ) ) );
CONSTANTEXP( ADR( set_2dlambda_2doptvars_21_v ) );
exp_2dform_v = STRINGTOSYMBOL( U_TX( ADR( t2316 ) ) );
CONSTANTEXP( ADR( exp_2dform_v ) );
lambda_2dreqvars_v = STRINGTOSYMBOL( U_TX( ADR( t2317 ) ) );
CONSTANTEXP( ADR( lambda_2dreqvars_v ) );
lambda_2doptvars_v = STRINGTOSYMBOL( U_TX( ADR( t2318 ) ) );
CONSTANTEXP( ADR( lambda_2doptvars_v ) );
_24lambda_2did_v = STRINGTOSYMBOL( U_TX( ADR( t2319 ) ) );
CONSTANTEXP( ADR( _24lambda_2did_v ) );
newv_v = STRINGTOSYMBOL( U_TX( ADR( t2320 ) ) );
CONSTANTEXP( ADR( newv_v ) );
bound_v = STRINGTOSYMBOL( U_TX( ADR( t2321 ) ) );
CONSTANTEXP( ADR( bound_v ) );
false_2dalpha_v = STRINGTOSYMBOL( U_TX( ADR( t2322 ) ) );
CONSTANTEXP( ADR( false_2dalpha_v ) );
empty_2dlist_2dalpha_v = STRINGTOSYMBOL( U_TX( ADR( t2323 ) ) );
CONSTANTEXP( ADR( empty_2dlist_2dalpha_v ) );
true_2dalpha_v = STRINGTOSYMBOL( U_TX( ADR( t2324 ) ) );
CONSTANTEXP( ADR( true_2dalpha_v ) );
set_2did_2dset_21_21_v = STRINGTOSYMBOL( U_TX( ADR( t2325 ) ) );
CONSTANTEXP( ADR( set_2did_2dset_21_21_v ) );
id_2dvalue_v = STRINGTOSYMBOL( U_TX( ADR( t2326 ) ) );
CONSTANTEXP( ADR( id_2dvalue_v ) );
current_2ddefine_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2327 ) ) );
CONSTANTEXP( ADR( current_2ddefine_2dname_v ) );
module_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2328 ) ) );
CONSTANTEXP( ADR( module_2dname_v ) );
assign_2dknown_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2329 ) ) );
CONSTANTEXP( ADR( assign_2dknown_2dname_v ) );
c2087 = STRINGTOSYMBOL( U_TX( ADR( t2330 ) ) );
CONSTANTEXP( ADR( c2087 ) );
c2082 = STRINGTOSYMBOL( U_TX( ADR( t2331 ) ) );
CONSTANTEXP( ADR( c2082 ) );
c2078 = STRINGTOSYMBOL( U_TX( ADR( t2332 ) ) );
CONSTANTEXP( ADR( c2078 ) );
c2076 = STRINGTOSYMBOL( U_TX( ADR( t2333 ) ) );
CONSTANTEXP( ADR( c2076 ) );
c2075 = STRINGTOSYMBOL( U_TX( ADR( t2334 ) ) );
CONSTANTEXP( ADR( c2075 ) );
c2067 = STRINGTOSYMBOL( U_TX( ADR( t2335 ) ) );
CONSTANTEXP( ADR( c2067 ) );
c1863 = STRINGTOSYMBOL( U_TX( ADR( t2336 ) ) );
CONSTANTEXP( ADR( c1863 ) );
c1849 = STRINGTOSYMBOL( U_TX( ADR( t2337 ) ) );
CONSTANTEXP( ADR( c1849 ) );
c1682 = STRINGTOSYMBOL( U_TX( ADR( t2338 ) ) );
CONSTANTEXP( ADR( c1682 ) );
c1681 = STRINGTOSYMBOL( U_TX( ADR( t2339 ) ) );
CONSTANTEXP( ADR( c1681 ) );
c1679 = STRINGTOSYMBOL( U_TX( ADR( t2340 ) ) );
CONSTANTEXP( ADR( c1679 ) );
c1678 = STRINGTOSYMBOL( U_TX( ADR( t2341 ) ) );
CONSTANTEXP( ADR( c1678 ) );
c1677 = STRINGTOSYMBOL( U_TX( ADR( t2342 ) ) );
CONSTANTEXP( ADR( c1677 ) );
c1641 = STRINGTOSYMBOL( U_TX( ADR( t2343 ) ) );
CONSTANTEXP( ADR( c1641 ) );
c1462 = STRINGTOSYMBOL( U_TX( ADR( t2344 ) ) );
CONSTANTEXP( ADR( c1462 ) );
c1461 = STRINGTOSYMBOL( U_TX( ADR( t2345 ) ) );
CONSTANTEXP( ADR( c1461 ) );
c1460 = STRINGTOSYMBOL( U_TX( ADR( t2346 ) ) );
CONSTANTEXP( ADR( c1460 ) );
c1423 = STRINGTOSYMBOL( U_TX( ADR( t2347 ) ) );
CONSTANTEXP( ADR( c1423 ) );
c1383 = STRINGTOSYMBOL( U_TX( ADR( t2348 ) ) );
CONSTANTEXP( ADR( c1383 ) );
c1295 = STRINGTOSYMBOL( U_TX( ADR( t2350 ) ) );
CONSTANTEXP( ADR( c1295 ) );
c1222 = STRINGTOSYMBOL( U_TX( ADR( t2351 ) ) );
CONSTANTEXP( ADR( c1222 ) );
c1221 = EMPTYLIST;
c1221 = CONS( EMPTYLIST, c1221 );
c1221 = CONS( c1641, c1221 );
CONSTANTEXP( ADR( c1221 ) );
c1178 = STRINGTOSYMBOL( U_TX( ADR( t2352 ) ) );
CONSTANTEXP( ADR( c1178 ) );
c1116 = STRINGTOSYMBOL( U_TX( ADR( t2353 ) ) );
CONSTANTEXP( ADR( c1116 ) );
c1059 = STRINGTOSYMBOL( U_TX( ADR( t2354 ) ) );
CONSTANTEXP( ADR( c1059 ) );
c1024 = STRINGTOSYMBOL( U_TX( ADR( t2355 ) ) );
CONSTANTEXP( ADR( c1024 ) );
}
DEFTSCP( miscexp_quote_2dconstants_v );
DEFSTRING( t2356, "QUOTE-CONSTANTS", 15 );
DEFTSCP( miscexp_call_2dexp_v );
DEFSTRING( t2357, "CALL-EXP", 8 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( miscexp_letrec_2dlambdas );
EXTERNTSCP( miscexp_letrec_2dlambdas_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
EXTERNTSCPP( miscexp_call_2dexp_2dcons );
EXTERNTSCP( miscexp_call_2dexp_2dcons_v );
TSCP miscexp_call_2dexp( e1012, e1013 )
TSCP e1012, e1013;
{
TSCP X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2357 ) ) );
e1012 = CONS( e1012, EMPTYLIST );
X11 = PAIR_CAR( e1012 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2360;
scrt1__24__car_2derror( X11 );
L2360:
X10 = PAIR_CAR( X11 );
X9 = e1013;
X9 = UNKNOWNCALL( X9, 2 );
X1 = VIA( PROCEDURE_CODE( X9 ) )( X10,
e1013,
PROCEDURE_CLOSURE( X9 ) );
X9 = SYMBOL_VALUE( _24lambda_3f_v );
X9 = UNKNOWNCALL( X9, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X9 ) )( X1,
PROCEDURE_CLOSURE( X9 ) ) )
) goto L2363;
X9 = SYMBOL_VALUE( _24lambda_2did_v );
X9 = UNKNOWNCALL( X9, 1 );
X4 = VIA( PROCEDURE_CODE( X9 ) )( X1,
PROCEDURE_CLOSURE( X9 ) );
goto L2364;
L2363:
X4 = FALSEVALUE;
L2364:
if ( FALSE( X4 ) ) goto L2366;
X9 = PAIR_CAR( e1012 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L2370;
scrt1__24__cdr_2derror( X9 );
L2370:
X8 = PAIR_CDR( X9 );
X9 = SYMBOL_VALUE( lambda_2dreqvars_v );
X9 = UNKNOWNCALL( X9, 1 );
X7 = VIA( PROCEDURE_CODE( X9 ) )( X4,
PROCEDURE_CLOSURE( X9 ) );
X9 = SYMBOL_VALUE( lambda_2doptvars_v );
X9 = UNKNOWNCALL( X9, 1 );
X5 = VIA( PROCEDURE_CODE( X9 ) )( X4,
PROCEDURE_CLOSURE( X9 ) );
X3 = EMPTYLIST;
X6 = EMPTYLIST;
X2 = EMPTYLIST;
L2372:
X2 = CONS( X2, EMPTYLIST );
X6 = CONS( X6, EMPTYLIST );
X3 = CONS( X3, EMPTYLIST );
X9 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( EMPTYLIST ) ) );
if ( TRUE( X9 ) ) goto L2377;
if ( NEQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2377;
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2382;
scrt1__24__car_2derror( X8 );
L2382:
X12 = PAIR_CAR( X8 );
X11 = e1013;
X11 = UNKNOWNCALL( X11, 2 );
X10 = VIA( PROCEDURE_CODE( X11 ) )( X12,
e1013,
PROCEDURE_CLOSURE( X11 ) );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2385;
scrt1__24__car_2derror( X7 );
L2385:
X11 = PAIR_CAR( X7 );
X12 = sc_cons( X11, PAIR_CAR( X3 ) );
SETGEN( PAIR_CAR( X3 ), X12 );
X12 = sc_cons( X10, PAIR_CAR( X6 ) );
SETGEN( PAIR_CAR( X6 ), X12 );
if ( NOT( AND( EQ( TSCPTAG( X10 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X10 ), SYMBOLTAG ) ) )
) goto L2390;
X13 = SYMBOL_VALUE( id_2duse_v );
X13 = UNKNOWNCALL( X13, 1 );
X12 = VIA( PROCEDURE_CODE( X13 ) )( X10,
PROCEDURE_CLOSURE( X13 ) );
if ( NEQ( UNSIGNED( X12 ), UNSIGNED( c1059 ) ) ) goto L2390;
X12 = sc_cons( X11, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X12 );
L2390:
X12 = SYMBOL_VALUE( _24lambda_3f_v );
X12 = UNKNOWNCALL( X12, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X12 ) )( X10,
PROCEDURE_CLOSURE( X12 ) ) )
) goto L2394;
X12 = SYMBOL_VALUE( id_2dset_21_v );
X12 = UNKNOWNCALL( X12, 1 );
if ( TRUE( VIA( PROCEDURE_CODE( X12 ) )( X11,
PROCEDURE_CLOSURE( X12 ) ) )
) goto L2394;
X12 = SYMBOL_VALUE( name_2da_2dlambda_v );
X12 = UNKNOWNCALL( X12, 2 );
VIA( PROCEDURE_CODE( X12 ) )( X11,
X10,
PROCEDURE_CLOSURE( X12 ) );
L2394:
X10 = PAIR_CDR( X8 );
X11 = PAIR_CDR( X7 );
X2 = PAIR_CAR( X2 );
X6 = PAIR_CAR( X6 );
X3 = PAIR_CAR( X3 );
X7 = X11;
X8 = X10;
goto L2372;
L2366:
X13 = PAIR_CAR( e1012 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L2400;
scrt1__24__cdr_2derror( X13 );
L2400:
X12 = PAIR_CDR( X13 );
X11 = SYMBOL_VALUE( exp_2dform_2dlist_v );
X11 = UNKNOWNCALL( X11, 2 );
X10 = VIA( PROCEDURE_CODE( X11 ) )( X12,
e1013,
PROCEDURE_CLOSURE( X11 ) );
X9 = sc_cons( X1, X10 );
SETGEN( PAIR_CAR( e1012 ), X9 );
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X9 = CONS( scrt1_append_2dtwo( PAIR_CAR( e1012 ), X10 ),
EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1024,
CONS( EMPTYLIST, X9 ) ) );
L2377:
if ( FALSE( PAIR_CAR( X2 ) ) ) goto L2403;
X10 = SYMBOL_VALUE( _24lambda_2dbody_v );
X10 = UNKNOWNCALL( X10, 1 );
X9 = VIA( PROCEDURE_CODE( X10 ) )( X1,
PROCEDURE_CLOSURE( X10 ) );
miscexp_letrec_2dlambdas( PAIR_CAR( X2 ), X9 );
L2403:
X9 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( EMPTYLIST ) ) );
if ( FALSE( X9 ) ) goto L2415;
if ( NEQ( UNSIGNED( X8 ), UNSIGNED( EMPTYLIST ) ) ) goto L2415;
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2415;
X11 = scrt1_reverse( PAIR_CAR( X6 ) );
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X10 = CONS( scrt1_append_2dtwo( X11, X12 ),
EMPTYLIST );
X10 = CONS( X1, X10 );
POPSTACKTRACE( scrt1_cons_2a( c1024,
CONS( EMPTYLIST, X10 ) ) );
L2415:
if ( FALSE( X5 ) ) goto L2425;
X9 = SYMBOL_VALUE( islist_v );
X9 = UNKNOWNCALL( X9, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X9 ) )( X8,
_TSCP( 0 ),
PROCEDURE_CLOSURE( X9 ) ) )
) goto L2425;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2423;
scrt1__24__car_2derror( X5 );
L2423:
X12 = PAIR_CAR( X5 );
X11 = sc_cons( X12, PAIR_CAR( X3 ) );
X10 = scrt1_reverse( X11 );
X9 = SYMBOL_VALUE( set_2dlambda_2dreqvars_21_v );
X9 = UNKNOWNCALL( X9, 2 );
VIA( PROCEDURE_CODE( X9 ) )( X4,
X10,
PROCEDURE_CLOSURE( X9 ) );
X9 = SYMBOL_VALUE( set_2dlambda_2doptvars_21_v );
X9 = UNKNOWNCALL( X9, 2 );
VIA( PROCEDURE_CODE( X9 ) )( X4,
EMPTYLIST,
PROCEDURE_CLOSURE( X9 ) );
X10 = scrt1_reverse( PAIR_CAR( X6 ) );
X14 = miscexp_call_2dexp_2dcons( X8 );
X13 = SYMBOL_VALUE( exp_2dform_v );
X13 = UNKNOWNCALL( X13, 2 );
X12 = VIA( PROCEDURE_CODE( X13 ) )( X14,
e1013,
PROCEDURE_CLOSURE( X13 ) );
X11 = scrt1_cons_2a( X12,
CONS( EMPTYLIST, EMPTYLIST ) );
X9 = CONS( scrt1_append_2dtwo( X10, X11 ), EMPTYLIST );
X9 = CONS( X1, X9 );
POPSTACKTRACE( scrt1_cons_2a( c1024,
CONS( EMPTYLIST, X9 ) ) );
L2425:
X9 = SYMBOL_VALUE( expand_2derror_v );
X9 = UNKNOWNCALL( X9, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X9 ) )( c1116,
PAIR_CAR( e1012 ),
PROCEDURE_CLOSURE( X9 ) ) );
}
DEFTSCP( miscexp_letrec_2dlambdas_v );
DEFSTRING( t2426, "LETREC-LAMBDAS", 14 );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
TSCP miscexp_letrec_2dlambdas( v1138, e1139 )
TSCP v1138, e1139;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2426 ) ) );
L2427:
if ( NEQ( TSCPTAG( e1139 ), PAIRTAG ) ) goto L2428;
X2 = PAIR_CAR( e1139 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2432;
X4 = PAIR_CAR( X2 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1178 ) ) );
goto L2433;
L2432:
X3 = FALSEVALUE;
L2433:
if ( FALSE( X3 ) ) goto L2436;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2439;
scrt1__24__cdr_2derror( X2 );
L2439:
X4 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2442;
scrt1__24__car_2derror( X4 );
L2442:
X1 = PAIR_CAR( X4 );
goto L2437;
L2436:
X1 = X3;
L2437:
X3 = PAIR_CAR( e1139 );
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2446;
X5 = PAIR_CAR( X3 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1178 ) ) );
goto L2447;
L2446:
X4 = FALSEVALUE;
L2447:
if ( FALSE( X4 ) ) goto L2450;
X2 = scrt1_caddr( X3 );
goto L2451;
L2450:
X2 = X4;
L2451:
if ( FALSE( scrt1_memq( X1, v1138 ) ) ) goto L2453;
X3 = SYMBOL_VALUE( _24lambda_3f_v );
X3 = UNKNOWNCALL( X3, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X3 ) )( X2,
PROCEDURE_CLOSURE( X3 ) ) )
) goto L2458;
X4 = SYMBOL_VALUE( id_2dset_21_v );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( X1,
PROCEDURE_CLOSURE( X4 ) );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L2458;
X3 = SYMBOL_VALUE( name_2da_2dlambda_v );
X3 = UNKNOWNCALL( X3, 2 );
VIA( PROCEDURE_CODE( X3 ) )( X1,
X2, PROCEDURE_CLOSURE( X3 ) );
L2458:
e1139 = PAIR_CDR( e1139 );
goto L2427;
L2453:
POPSTACKTRACE( FALSEVALUE );
L2428:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( miscexp_call_2dexp_2dcons_v );
DEFSTRING( t2461, "CALL-EXP-CONS", 13 );
TSCP miscexp_call_2dexp_2dcons( v1220 )
TSCP v1220;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2461 ) ) );
if ( FALSE( v1220 ) ) goto L2463;
X1 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( v1220 ), PAIRTAG ) ) goto L2466;
scrt1__24__cdr_2derror( v1220 );
L2466:
X2 = PAIR_CDR( v1220 );
X1 = CONS( miscexp_call_2dexp_2dcons( X2 ), X1 );
POPSTACKTRACE( scrt1_cons_2a( c1222,
CONS( PAIR_CAR( v1220 ),
X1 ) ) );
L2463:
POPSTACKTRACE( c1221 );
}
DEFTSCP( miscexp__24call_3f_v );
DEFSTRING( t2469, "$CALL?", 6 );
TSCP miscexp__24call_3f( x1233 )
TSCP x1233;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2469 ) ) );
if ( NEQ( TSCPTAG( x1233 ), PAIRTAG ) ) goto L2471;
X1 = PAIR_CAR( x1233 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1024 ) ) ) );
L2471:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( miscexp__24call_2dtail_v );
DEFSTRING( t2474, "$CALL-TAIL", 10 );
TSCP miscexp__24call_2dtail( x1251 )
TSCP x1251;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2474 ) ) );
if ( NEQ( TSCPTAG( x1251 ), PAIRTAG ) ) goto L2476;
X2 = PAIR_CAR( x1251 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1024 ) ) );
goto L2477;
L2476:
X1 = FALSEVALUE;
L2477:
if ( FALSE( X1 ) ) goto L2480;
if ( EQ( TSCPTAG( x1251 ), PAIRTAG ) ) goto L2483;
scrt1__24__cdr_2derror( x1251 );
L2483:
X2 = PAIR_CDR( x1251 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2486;
scrt1__24__car_2derror( X2 );
L2486:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L2480:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp__2dtail_21_86d6576f_v );
DEFSTRING( t2488, "SET-$CALL-TAIL!", 15 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP miscexp__2dtail_21_86d6576f( x1285, v1286 )
TSCP x1285, v1286;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2488 ) ) );
if ( EQ( TSCPTAG( x1285 ), PAIRTAG ) ) goto L2491;
scrt1__24__cdr_2derror( x1285 );
L2491:
X1 = PAIR_CDR( x1285 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2494;
scrt6_error( c1295, c1296, CONS( X1, EMPTYLIST ) );
L2494:
POPSTACKTRACE( SETGEN( PAIR_CAR( X1 ), v1286 ) );
}
DEFTSCP( miscexp__24call_2dfunc_v );
DEFSTRING( t2496, "$CALL-FUNC", 10 );
TSCP miscexp__24call_2dfunc( x1303 )
TSCP x1303;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2496 ) ) );
if ( NEQ( TSCPTAG( x1303 ), PAIRTAG ) ) goto L2498;
X2 = PAIR_CAR( x1303 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1024 ) ) );
goto L2499;
L2498:
X1 = FALSEVALUE;
L2499:
if ( FALSE( X1 ) ) goto L2502;
POPSTACKTRACE( scrt1_caddr( x1303 ) );
L2502:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp__2dfunc_21_4935643_v );
DEFSTRING( t2504, "SET-$CALL-FUNC!", 15 );
TSCP miscexp__2dfunc_21_4935643( x1327, f1328 )
TSCP x1327, f1328;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2504 ) ) );
if ( EQ( TSCPTAG( x1327 ), PAIRTAG ) ) goto L2507;
scrt1__24__cdr_2derror( x1327 );
L2507:
X2 = PAIR_CDR( x1327 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2510;
scrt1__24__cdr_2derror( X2 );
L2510:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2513;
scrt6_error( c1295, c1296, CONS( X1, EMPTYLIST ) );
L2513:
POPSTACKTRACE( SETGEN( PAIR_CAR( X1 ), f1328 ) );
}
DEFTSCP( miscexp__24call_2dargl_v );
DEFSTRING( t2515, "$CALL-ARGL", 10 );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
TSCP miscexp__24call_2dargl( x1349 )
TSCP x1349;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2515 ) ) );
if ( NEQ( TSCPTAG( x1349 ), PAIRTAG ) ) goto L2517;
X2 = PAIR_CAR( x1349 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1024 ) ) );
goto L2518;
L2517:
X1 = FALSEVALUE;
L2518:
if ( FALSE( X1 ) ) goto L2521;
POPSTACKTRACE( scrt1_cdddr( x1349 ) );
L2521:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp__2dargl_21_89422a52_v );
DEFSTRING( t2523, "SET-$CALL-ARGL!", 15 );
TSCP miscexp__2dargl_21_89422a52( x1373, a1374 )
TSCP x1373, a1374;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2523 ) ) );
if ( EQ( TSCPTAG( x1373 ), PAIRTAG ) ) goto L2526;
scrt1__24__cdr_2derror( x1373 );
L2526:
X2 = PAIR_CDR( x1373 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2529;
scrt1__24__cdr_2derror( X2 );
L2529:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2532;
scrt6_error( c1383, c1296, CONS( X1, EMPTYLIST ) );
L2532:
POPSTACKTRACE( SETGEN( PAIR_CDR( X1 ), a1374 ) );
}
DEFTSCP( miscexp_lap_2dexp_v );
DEFSTRING( t2534, "LAP-EXP", 7 );
DEFSTRING( t2559, "LOOP [inside LAP-EXP]", 21 );
EXTERNTSCPP( miscexp_l1464 );
TSCP miscexp_l1464( e1466 )
TSCP e1466;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2559 ) ) );
L2560:
X1 = BOOLEAN( EQ( TSCPTAG( e1466 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L2570;
if ( EQ( TSCPTAG( e1466 ), PAIRTAG ) ) goto L2568;
scrt1__24__car_2derror( e1466 );
L2568:
X2 = PAIR_CAR( e1466 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1462 ) ) ) goto L2570;
POPSTACKTRACE( TRUEVALUE );
L2570:
if ( NEQ( TSCPTAG( e1466 ), PAIRTAG ) ) goto L2571;
X2 = PAIR_CAR( e1466 );
X1 = miscexp_l1464( X2 );
if ( TRUE( X1 ) ) goto L2575;
e1466 = PAIR_CDR( e1466 );
goto L2560;
L2575:
POPSTACKTRACE( X1 );
L2571:
POPSTACKTRACE( FALSEVALUE );
}
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
TSCP miscexp_lap_2dexp( e1396, e1397 )
TSCP e1396, e1397;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2534 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1396,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2602;
if ( EQ( TSCPTAG( e1396 ), PAIRTAG ) ) goto L2543;
scrt1__24__cdr_2derror( e1396 );
L2543:
X4 = PAIR_CDR( e1396 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2546;
scrt1__24__car_2derror( X4 );
L2546:
X3 = PAIR_CAR( X4 );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X2 ) )( X3,
_TSCP( 0 ),
PROCEDURE_CLOSURE( X2 ) ) )
) goto L2602;
X3 = PAIR_CDR( e1396 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2550;
scrt1__24__car_2derror( X3 );
L2550:
X2 = PAIR_CAR( X3 );
X4 = PAIR_CDR( e1396 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2555;
scrt1__24__cdr_2derror( X4 );
L2555:
X3 = PAIR_CDR( X4 );
X4 = miscexp_l1464( X3 );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_append_2dtwo( X3, X6 ), EMPTYLIST );
X5 = CONS( X2, X5 );
if ( FALSE( X4 ) ) goto L2579;
X6 = c1462;
goto L2592;
L2579:
X7 = scrt1_length( X3 );
if ( BITAND( BITOR( INT( X7 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2583;
if ( EQ( UNSIGNED( X7 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L2587;
X6 = c1461;
goto L2592;
L2583:
if ( TRUE( scrt2__3d_2dtwo( X7, _TSCP( 4 ) ) ) ) goto L2587;
X6 = c1461;
goto L2592;
L2587:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2594;
scrt1__24__car_2derror( X3 );
L2594:
X8 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2591;
X9 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L2600;
scrt1__24__car_2derror( X9 );
L2600:
X8 = PAIR_CAR( X9 );
if ( NEQ( UNSIGNED( X8 ), UNSIGNED( c1460 ) ) ) goto L2596;
X6 = c1460;
goto L2592;
L2596:
X6 = c1461;
goto L2592;
L2591:
X6 = c1461;
L2592:
POPSTACKTRACE( scrt1_cons_2a( c1423, CONS( X6, X5 ) ) );
L2602:
if ( EQ( TSCPTAG( e1396 ), PAIRTAG ) ) goto L2604;
scrt1__24__car_2derror( e1396 );
L2604:
X2 = PAIR_CAR( e1396 );
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1396,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( miscexp__24lap_3f_v );
DEFSTRING( t2606, "$LAP?", 5 );
TSCP miscexp__24lap_3f( x1516 )
TSCP x1516;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2606 ) ) );
if ( NEQ( TSCPTAG( x1516 ), PAIRTAG ) ) goto L2608;
X1 = PAIR_CAR( x1516 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1423 ) ) ) );
L2608:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( miscexp__24lap_2dtype_v );
DEFSTRING( t2611, "$LAP-TYPE", 9 );
TSCP miscexp__24lap_2dtype( x1534 )
TSCP x1534;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2611 ) ) );
if ( NEQ( TSCPTAG( x1534 ), PAIRTAG ) ) goto L2613;
X2 = PAIR_CAR( x1534 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1423 ) ) );
goto L2614;
L2613:
X1 = FALSEVALUE;
L2614:
if ( FALSE( X1 ) ) goto L2617;
if ( EQ( TSCPTAG( x1534 ), PAIRTAG ) ) goto L2620;
scrt1__24__cdr_2derror( x1534 );
L2620:
X2 = PAIR_CDR( x1534 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2623;
scrt1__24__car_2derror( X2 );
L2623:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L2617:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp__24lap_2dvars_v );
DEFSTRING( t2625, "$LAP-VARS", 9 );
TSCP miscexp__24lap_2dvars( x1568 )
TSCP x1568;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2625 ) ) );
if ( NEQ( TSCPTAG( x1568 ), PAIRTAG ) ) goto L2627;
X2 = PAIR_CAR( x1568 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1423 ) ) );
goto L2628;
L2627:
X1 = FALSEVALUE;
L2628:
if ( FALSE( X1 ) ) goto L2631;
POPSTACKTRACE( scrt1_caddr( x1568 ) );
L2631:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp__24lap_2dbody_v );
DEFSTRING( t2633, "$LAP-BODY", 9 );
TSCP miscexp__24lap_2dbody( x1592 )
TSCP x1592;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2633 ) ) );
if ( NEQ( TSCPTAG( x1592 ), PAIRTAG ) ) goto L2635;
X2 = PAIR_CAR( x1592 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1423 ) ) );
goto L2636;
L2635:
X1 = FALSEVALUE;
L2636:
if ( FALSE( X1 ) ) goto L2639;
POPSTACKTRACE( scrt1_cdddr( x1592 ) );
L2639:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp__2dbody_21_c6f79d45_v );
DEFSTRING( t2641, "SET-$LAP-BODY!", 14 );
TSCP miscexp__2dbody_21_c6f79d45( e1616, b1617 )
TSCP e1616, b1617;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2641 ) ) );
if ( EQ( TSCPTAG( e1616 ), PAIRTAG ) ) goto L2644;
scrt1__24__cdr_2derror( e1616 );
L2644:
X2 = PAIR_CDR( e1616 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2647;
scrt1__24__cdr_2derror( X2 );
L2647:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2650;
scrt6_error( c1383, c1296, CONS( X1, EMPTYLIST ) );
L2650:
POPSTACKTRACE( SETGEN( PAIR_CDR( X1 ), b1617 ) );
}
DEFTSCP( miscexp_quote_2dexp_v );
DEFSTRING( t2652, "QUOTE-EXP", 9 );
EXTERNTSCPP( scrt1_assoc );
EXTERNTSCP( scrt1_assoc_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCP( sc_emptystring );
EXTERNTSCP( sc_emptyvector );
TSCP miscexp_quote_2dexp( e1638, e1639 )
TSCP e1638, e1639;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2652 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X2 ) )( e1638,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X2 ) ) )
) goto L2654;
if ( EQ( TSCPTAG( e1638 ), PAIRTAG ) ) goto L2657;
scrt1__24__cdr_2derror( e1638 );
L2657:
X2 = PAIR_CDR( e1638 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2660;
scrt1__24__car_2derror( X2 );
L2660:
X1 = PAIR_CAR( X2 );
X2 = scrt1_assoc( X1, miscexp_quote_2dconstants_v );
if ( FALSE( X2 ) ) goto L2679;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2670;
scrt1__24__cdr_2derror( X2 );
L2670:
X6 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2673;
scrt1__24__car_2derror( X6 );
L2673:
X5 = PAIR_CAR( X6 );
X4 = SYMBOL_VALUE( id_2duse_v );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( X5,
PROCEDURE_CLOSURE( X4 ) );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1059 ) ) ) goto L2679;
X3 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2677;
scrt1__24__car_2derror( X3 );
L2677:
POPSTACKTRACE( PAIR_CAR( X3 ) );
L2654:
X2 = SYMBOL_VALUE( expand_2derror_v );
X2 = UNKNOWNCALL( X2, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c1641,
e1638,
PROCEDURE_CLOSURE( X2 ) ) );
L2679:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( TRUEVALUE ) ) ) goto L2680;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2682;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( FALSEVALUE ) ) ) goto L2684;
if ( FALSE( scrt1_equal_3f( X1, sc_emptystring ) ) ) goto L2686;
X2 = SYMBOL_VALUE( bound_v );
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c1682,
PROCEDURE_CLOSURE( X2 ) ) );
L2686:
if ( FALSE( scrt1_equal_3f( X1, sc_emptyvector ) ) ) goto L2688;
X2 = SYMBOL_VALUE( bound_v );
X2 = UNKNOWNCALL( X2, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( c1681,
PROCEDURE_CLOSURE( X2 ) ) );
L2688:
X3 = SYMBOL_VALUE( newv_v );
X3 = UNKNOWNCALL( X3, 5 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( c1677,
c1678,
c1059,
c1679,
X1,
PROCEDURE_CLOSURE( X3 ) );
X5 = sc_cons( X2, EMPTYLIST );
X4 = sc_cons( X1, X5 );
X3 = X4;
miscexp_quote_2dconstants_v = sc_cons( X3,
miscexp_quote_2dconstants_v );
POPSTACKTRACE( X2 );
L2684:
POPSTACKTRACE( SYMBOL_VALUE( false_2dalpha_v ) );
L2682:
POPSTACKTRACE( SYMBOL_VALUE( empty_2dlist_2dalpha_v ) );
L2680:
POPSTACKTRACE( SYMBOL_VALUE( true_2dalpha_v ) );
}
DEFTSCP( miscexp_set_21_2dexp_v );
DEFSTRING( t2692, "SET!-EXP", 8 );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP miscexp_set_21_2dexp( e1708, e1709 )
TSCP e1708, e1709;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2692 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1708,
_TSCP( 12 ),
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2716;
if ( EQ( TSCPTAG( e1708 ), PAIRTAG ) ) goto L2701;
scrt1__24__cdr_2derror( e1708 );
L2701:
X3 = PAIR_CDR( e1708 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2704;
scrt1__24__car_2derror( X3 );
L2704:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2716;
X4 = scrt1_caddr( e1708 );
X3 = e1709;
X3 = UNKNOWNCALL( X3, 2 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( X4,
e1709,
PROCEDURE_CLOSURE( X3 ) );
X6 = PAIR_CDR( e1708 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2708;
scrt1__24__car_2derror( X6 );
L2708:
X5 = PAIR_CAR( X6 );
X4 = e1709;
X4 = UNKNOWNCALL( X4, 2 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( X5,
e1709,
PROCEDURE_CLOSURE( X4 ) );
X6 = SYMBOL_VALUE( id_2dset_21_v );
X6 = UNKNOWNCALL( X6, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X6 ) )( X3,
PROCEDURE_CLOSURE( X6 ) ) )
) goto L2711;
X7 = SYMBOL_VALUE( id_2dset_21_v );
X7 = UNKNOWNCALL( X7, 1 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( X3,
PROCEDURE_CLOSURE( X7 ) );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X6 ) ),
3 ) ) goto L2714;
X5 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X6 ) ) );
goto L2712;
L2714:
X5 = scrt2__2b_2dtwo( _TSCP( 4 ), X6 );
goto L2712;
L2711:
X5 = _TSCP( 4 );
L2712:
X4 = SYMBOL_VALUE( set_2did_2dset_21_21_v );
X4 = UNKNOWNCALL( X4, 2 );
VIA( PROCEDURE_CODE( X4 ) )( X3,
X5, PROCEDURE_CLOSURE( X4 ) );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( X2, X4 );
POPSTACKTRACE( scrt1_cons_2a( c1178, CONS( X3, X4 ) ) );
L2716:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1462,
e1708,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( miscexp__24set_3f_v );
DEFSTRING( t2717, "$SET?", 5 );
TSCP miscexp__24set_3f( x1748 )
TSCP x1748;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2717 ) ) );
if ( NEQ( TSCPTAG( x1748 ), PAIRTAG ) ) goto L2719;
X1 = PAIR_CAR( x1748 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1178 ) ) ) );
L2719:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( miscexp__24set_2did_v );
DEFSTRING( t2722, "$SET-ID", 7 );
TSCP miscexp__24set_2did( x1766 )
TSCP x1766;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2722 ) ) );
if ( NEQ( TSCPTAG( x1766 ), PAIRTAG ) ) goto L2724;
X2 = PAIR_CAR( x1766 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1178 ) ) );
goto L2725;
L2724:
X1 = FALSEVALUE;
L2725:
if ( FALSE( X1 ) ) goto L2728;
if ( EQ( TSCPTAG( x1766 ), PAIRTAG ) ) goto L2731;
scrt1__24__cdr_2derror( x1766 );
L2731:
X2 = PAIR_CDR( x1766 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2734;
scrt1__24__car_2derror( X2 );
L2734:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L2728:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp__24set_2dexp_v );
DEFSTRING( t2736, "$SET-EXP", 8 );
TSCP miscexp__24set_2dexp( x1800 )
TSCP x1800;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2736 ) ) );
if ( NEQ( TSCPTAG( x1800 ), PAIRTAG ) ) goto L2738;
X2 = PAIR_CAR( x1800 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1178 ) ) );
goto L2739;
L2738:
X1 = FALSEVALUE;
L2739:
if ( FALSE( X1 ) ) goto L2742;
POPSTACKTRACE( scrt1_caddr( x1800 ) );
L2742:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp_set_2d_24set_2dexp_21_v );
DEFSTRING( t2744, "SET-$SET-EXP!", 13 );
TSCP miscexp_set_2d_24set_2dexp_21( x1824, e1825 )
TSCP x1824, e1825;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2744 ) ) );
if ( EQ( TSCPTAG( x1824 ), PAIRTAG ) ) goto L2747;
scrt1__24__cdr_2derror( x1824 );
L2747:
X2 = PAIR_CDR( x1824 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2750;
scrt1__24__cdr_2derror( X2 );
L2750:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2753;
scrt6_error( c1295, c1296, CONS( X1, EMPTYLIST ) );
L2753:
POPSTACKTRACE( SETGEN( PAIR_CAR( X1 ), e1825 ) );
}
DEFTSCP( miscexp_if_2dexp_v );
DEFSTRING( t2755, "IF-EXP", 6 );
EXTERNTSCPP( scrt1_cadddr );
EXTERNTSCP( scrt1_cadddr_v );
TSCP miscexp_if_2dexp( e1846, e1847 )
TSCP e1846, e1847;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2755 ) ) );
X4 = SYMBOL_VALUE( islist_v );
X4 = UNKNOWNCALL( X4, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X4 ) )( e1846,
_TSCP( 12 ),
_TSCP( 16 ),
PROCEDURE_CLOSURE( X4 ) ) )
) goto L2757;
if ( FALSE( scrt1_cdddr( e1846 ) ) ) goto L2759;
X1 = scrt1_cadddr( e1846 );
goto L2760;
L2759:
X1 = FALSEVALUE;
L2760:
X2 = scrt1_caddr( e1846 );
if ( EQ( TSCPTAG( e1846 ), PAIRTAG ) ) goto L2762;
scrt1__24__cdr_2derror( e1846 );
L2762:
X6 = PAIR_CDR( e1846 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2765;
scrt1__24__car_2derror( X6 );
L2765:
X5 = PAIR_CAR( X6 );
X4 = e1847;
X4 = UNKNOWNCALL( X4, 2 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( X5,
e1847,
PROCEDURE_CLOSURE( X4 ) );
X4 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
if ( FALSE( X4 ) ) goto L2776;
X6 = SYMBOL_VALUE( id_2duse_v );
X6 = UNKNOWNCALL( X6, 1 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( X3,
PROCEDURE_CLOSURE( X6 ) );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1059 ) ) ) goto L2776;
X5 = SYMBOL_VALUE( id_2dvalue_v );
X5 = UNKNOWNCALL( X5, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X5 ) )( X3,
PROCEDURE_CLOSURE( X5 ) ) )
) goto L2774;
X5 = e1847;
X5 = UNKNOWNCALL( X5, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X5 ) )( X2,
e1847,
PROCEDURE_CLOSURE( X5 ) ) );
L2774:
X5 = e1847;
X5 = UNKNOWNCALL( X5, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X5 ) )( X1,
e1847,
PROCEDURE_CLOSURE( X5 ) ) );
L2757:
X4 = SYMBOL_VALUE( expand_2derror_v );
X4 = UNKNOWNCALL( X4, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X4 ) )( c1849,
e1846,
PROCEDURE_CLOSURE( X4 ) ) );
L2776:
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = e1847;
X5 = UNKNOWNCALL( X5, 2 );
X4 = CONS( VIA( PROCEDURE_CODE( X5 ) )( X1,
e1847,
PROCEDURE_CLOSURE( X5 ) ),
X4 );
X5 = e1847;
X5 = UNKNOWNCALL( X5, 2 );
X4 = CONS( VIA( PROCEDURE_CODE( X5 ) )( X2,
e1847,
PROCEDURE_CLOSURE( X5 ) ),
X4 );
POPSTACKTRACE( scrt1_cons_2a( c1863, CONS( X3, X4 ) ) );
}
DEFTSCP( miscexp__24if_3f_v );
DEFSTRING( t2777, "$IF?", 4 );
TSCP miscexp__24if_3f( x1877 )
TSCP x1877;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2777 ) ) );
if ( NEQ( TSCPTAG( x1877 ), PAIRTAG ) ) goto L2779;
X1 = PAIR_CAR( x1877 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c1863 ) ) ) );
L2779:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( miscexp__24if_2dtest_v );
DEFSTRING( t2782, "$IF-TEST", 8 );
TSCP miscexp__24if_2dtest( x1895 )
TSCP x1895;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2782 ) ) );
if ( NEQ( TSCPTAG( x1895 ), PAIRTAG ) ) goto L2784;
X2 = PAIR_CAR( x1895 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1863 ) ) );
goto L2785;
L2784:
X1 = FALSEVALUE;
L2785:
if ( FALSE( X1 ) ) goto L2788;
if ( EQ( TSCPTAG( x1895 ), PAIRTAG ) ) goto L2791;
scrt1__24__cdr_2derror( x1895 );
L2791:
X2 = PAIR_CDR( x1895 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2794;
scrt1__24__car_2derror( X2 );
L2794:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L2788:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp_set_2d_24if_2dtest_21_v );
DEFSTRING( t2796, "SET-$IF-TEST!", 13 );
TSCP miscexp_set_2d_24if_2dtest_21( x1929, t1930 )
TSCP x1929, t1930;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2796 ) ) );
if ( EQ( TSCPTAG( x1929 ), PAIRTAG ) ) goto L2799;
scrt1__24__cdr_2derror( x1929 );
L2799:
X1 = PAIR_CDR( x1929 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2802;
scrt6_error( c1295, c1296, CONS( X1, EMPTYLIST ) );
L2802:
POPSTACKTRACE( SETGEN( PAIR_CAR( X1 ), t1930 ) );
}
DEFTSCP( miscexp__24if_2dtrue_v );
DEFSTRING( t2804, "$IF-TRUE", 8 );
TSCP miscexp__24if_2dtrue( x1945 )
TSCP x1945;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2804 ) ) );
if ( NEQ( TSCPTAG( x1945 ), PAIRTAG ) ) goto L2806;
X2 = PAIR_CAR( x1945 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1863 ) ) );
goto L2807;
L2806:
X1 = FALSEVALUE;
L2807:
if ( FALSE( X1 ) ) goto L2810;
POPSTACKTRACE( scrt1_caddr( x1945 ) );
L2810:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp_set_2d_24if_2dtrue_21_v );
DEFSTRING( t2812, "SET-$IF-TRUE!", 13 );
TSCP miscexp_set_2d_24if_2dtrue_21( x1969, v1970 )
TSCP x1969, v1970;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2812 ) ) );
if ( EQ( TSCPTAG( x1969 ), PAIRTAG ) ) goto L2815;
scrt1__24__cdr_2derror( x1969 );
L2815:
X2 = PAIR_CDR( x1969 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2818;
scrt1__24__cdr_2derror( X2 );
L2818:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2821;
scrt6_error( c1295, c1296, CONS( X1, EMPTYLIST ) );
L2821:
POPSTACKTRACE( SETGEN( PAIR_CAR( X1 ), v1970 ) );
}
DEFTSCP( miscexp__24if_2dfalse_v );
DEFSTRING( t2823, "$IF-FALSE", 9 );
TSCP miscexp__24if_2dfalse( x1991 )
TSCP x1991;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2823 ) ) );
if ( NEQ( TSCPTAG( x1991 ), PAIRTAG ) ) goto L2825;
X2 = PAIR_CAR( x1991 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1863 ) ) );
goto L2826;
L2825:
X1 = FALSEVALUE;
L2826:
if ( FALSE( X1 ) ) goto L2829;
POPSTACKTRACE( scrt1_cadddr( x1991 ) );
L2829:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp_2dfalse_21_a223c70f_v );
DEFSTRING( t2831, "SET-$IF-FALSE!", 14 );
TSCP miscexp_2dfalse_21_a223c70f( x2015, v2016 )
TSCP x2015, v2016;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2831 ) ) );
X1 = scrt1_cdddr( x2015 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2834;
scrt6_error( c1295, c1296, CONS( X1, EMPTYLIST ) );
L2834:
POPSTACKTRACE( SETGEN( PAIR_CAR( X1 ), v2016 ) );
}
DEFTSCP( miscexp_define_2dexp_v );
DEFSTRING( t2836, "DEFINE-EXP", 10 );
EXTERNTSCPP( scrt1_caadr );
EXTERNTSCP( scrt1_caadr_v );
TSCP miscexp_define_2dexp( e2027, e2028 )
TSCP e2027, e2028;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2836 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e2027,
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2864;
if ( EQ( TSCPTAG( e2027 ), PAIRTAG ) ) goto L2846;
scrt1__24__cdr_2derror( e2027 );
L2846:
X3 = PAIR_CDR( e2027 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2849;
scrt1__24__car_2derror( X3 );
L2849:
X2 = PAIR_CAR( X3 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) ) goto L2851;
if ( EQ( TSCPTAG( e2027 ), PAIRTAG ) ) goto L2856;
scrt1__24__cdr_2derror( e2027 );
L2856:
X3 = PAIR_CDR( e2027 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2859;
scrt1__24__car_2derror( X3 );
L2859:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2864;
X2 = scrt1_caadr( e2027 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2864;
L2851:
X2 = PAIR_CDR( e2027 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2867;
scrt1__24__car_2derror( X2 );
L2867:
X1 = PAIR_CAR( X2 );
X3 = PAIR_CDR( e2027 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2872;
scrt1__24__cdr_2derror( X3 );
L2872:
X2 = PAIR_CDR( X3 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2875;
X3 = PAIR_CAR( X1 );
goto L2876;
L2875:
X3 = X1;
L2876:
X3 = CONS( X3, EMPTYLIST );
SETGENTL( SYMBOL_VALUE( current_2ddefine_2dname_v ),
PAIR_CAR( X3 ) );
X6 = SYMBOL_VALUE( module_2dname_v );
X5 = SYMBOL_VALUE( newv_v );
X5 = UNKNOWNCALL( X5, 7 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( PAIR_CAR( X3 ),
c1678,
c2075,
c2076,
X6,
c2078,
TRUEVALUE,
PROCEDURE_CLOSURE( X5 ) );
SETGEN( PAIR_CAR( X3 ), X4 );
X4 = SYMBOL_VALUE( assign_2dknown_2dname_v );
X4 = UNKNOWNCALL( X4, 1 );
VIA( PROCEDURE_CODE( X4 ) )( PAIR_CAR( X3 ),
PROCEDURE_CLOSURE( X4 ) );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2879;
X4 = CONS( EMPTYLIST, EMPTYLIST );
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_append_2dtwo( X2, X8 ), EMPTYLIST );
X6 = scrt1_cons_2a( c2087,
CONS( PAIR_CDR( X1 ), X7 ) );
X5 = e2028;
X5 = UNKNOWNCALL( X5, 2 );
X4 = CONS( VIA( PROCEDURE_CODE( X5 ) )( X6,
e2028,
PROCEDURE_CLOSURE( X5 ) ),
X4 );
POPSTACKTRACE( scrt1_cons_2a( c2082,
CONS( PAIR_CAR( X3 ), X4 ) ) );
L2879:
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2883;
scrt1__24__car_2derror( X2 );
L2883:
X6 = PAIR_CAR( X2 );
X5 = e2028;
X5 = UNKNOWNCALL( X5, 2 );
X4 = CONS( VIA( PROCEDURE_CODE( X5 ) )( X6,
e2028,
PROCEDURE_CLOSURE( X5 ) ),
X4 );
POPSTACKTRACE( scrt1_cons_2a( c2082,
CONS( PAIR_CAR( X3 ), X4 ) ) );
L2864:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c2067,
e2027,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( miscexp__24define_3f_v );
DEFSTRING( t2885, "$DEFINE?", 8 );
TSCP miscexp__24define_3f( x2120 )
TSCP x2120;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2885 ) ) );
if ( NEQ( TSCPTAG( x2120 ), PAIRTAG ) ) goto L2887;
X1 = PAIR_CAR( x2120 );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( c2082 ) ) ) );
L2887:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( miscexp__24define_2did_v );
DEFSTRING( t2890, "$DEFINE-ID", 10 );
TSCP miscexp__24define_2did( x2138 )
TSCP x2138;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2890 ) ) );
if ( NEQ( TSCPTAG( x2138 ), PAIRTAG ) ) goto L2892;
X2 = PAIR_CAR( x2138 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c2082 ) ) );
goto L2893;
L2892:
X1 = FALSEVALUE;
L2893:
if ( FALSE( X1 ) ) goto L2896;
if ( EQ( TSCPTAG( x2138 ), PAIRTAG ) ) goto L2899;
scrt1__24__cdr_2derror( x2138 );
L2899:
X2 = PAIR_CDR( x2138 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2902;
scrt1__24__car_2derror( X2 );
L2902:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L2896:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp__24define_2dexp_v );
DEFSTRING( t2904, "$DEFINE-EXP", 11 );
TSCP miscexp__24define_2dexp( x2172 )
TSCP x2172;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2904 ) ) );
if ( NEQ( TSCPTAG( x2172 ), PAIRTAG ) ) goto L2906;
X2 = PAIR_CAR( x2172 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c2082 ) ) );
goto L2907;
L2906:
X1 = FALSEVALUE;
L2907:
if ( FALSE( X1 ) ) goto L2910;
POPSTACKTRACE( scrt1_caddr( x2172 ) );
L2910:
POPSTACKTRACE( X1 );
}
DEFTSCP( miscexp_e_2dexp_21_7e57cd5d_v );
DEFSTRING( t2912, "SET-$DEFINE-EXP!", 16 );
TSCP miscexp_e_2dexp_21_7e57cd5d( x2196, e2197 )
TSCP x2196, e2197;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2912 ) ) );
if ( EQ( TSCPTAG( x2196 ), PAIRTAG ) ) goto L2915;
scrt1__24__cdr_2derror( x2196 );
L2915:
X2 = PAIR_CDR( x2196 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2918;
scrt1__24__cdr_2derror( X2 );
L2918:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2921;
scrt6_error( c1295, c1296, CONS( X1, EMPTYLIST ) );
L2921:
POPSTACKTRACE( SETGEN( PAIR_CAR( X1 ), e2197 ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt2__init();
scrt6__init();
scrt1__init();
MAXDISPLAY( 0 );
}
void miscexp__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(miscexp SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2356 ) ),
ADR( miscexp_quote_2dconstants_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t2357 ) ),
ADR( miscexp_call_2dexp_v ),
MAKEPROCEDURE( 2,
0,
miscexp_call_2dexp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2426 ) ),
ADR( miscexp_letrec_2dlambdas_v ),
MAKEPROCEDURE( 2,
0,
miscexp_letrec_2dlambdas,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2461 ) ),
ADR( miscexp_call_2dexp_2dcons_v ),
MAKEPROCEDURE( 1,
0,
miscexp_call_2dexp_2dcons,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2469 ) ),
ADR( miscexp__24call_3f_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24call_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2474 ) ),
ADR( miscexp__24call_2dtail_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24call_2dtail,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2488 ) ),
ADR( miscexp__2dtail_21_86d6576f_v ),
MAKEPROCEDURE( 2,
0,
miscexp__2dtail_21_86d6576f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2496 ) ),
ADR( miscexp__24call_2dfunc_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24call_2dfunc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2504 ) ),
ADR( miscexp__2dfunc_21_4935643_v ),
MAKEPROCEDURE( 2,
0,
miscexp__2dfunc_21_4935643,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2515 ) ),
ADR( miscexp__24call_2dargl_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24call_2dargl,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2523 ) ),
ADR( miscexp__2dargl_21_89422a52_v ),
MAKEPROCEDURE( 2,
0,
miscexp__2dargl_21_89422a52,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2534 ) ),
ADR( miscexp_lap_2dexp_v ),
MAKEPROCEDURE( 2,
0,
miscexp_lap_2dexp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2606 ) ),
ADR( miscexp__24lap_3f_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24lap_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2611 ) ),
ADR( miscexp__24lap_2dtype_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24lap_2dtype, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2625 ) ),
ADR( miscexp__24lap_2dvars_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24lap_2dvars, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2633 ) ),
ADR( miscexp__24lap_2dbody_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24lap_2dbody, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2641 ) ),
ADR( miscexp__2dbody_21_c6f79d45_v ),
MAKEPROCEDURE( 2,
0,
miscexp__2dbody_21_c6f79d45,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2652 ) ),
ADR( miscexp_quote_2dexp_v ),
MAKEPROCEDURE( 2,
0,
miscexp_quote_2dexp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2692 ) ),
ADR( miscexp_set_21_2dexp_v ),
MAKEPROCEDURE( 2,
0,
miscexp_set_21_2dexp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2717 ) ),
ADR( miscexp__24set_3f_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24set_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2722 ) ),
ADR( miscexp__24set_2did_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24set_2did, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2736 ) ),
ADR( miscexp__24set_2dexp_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24set_2dexp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2744 ) ),
ADR( miscexp_set_2d_24set_2dexp_21_v ),
MAKEPROCEDURE( 2,
0,
miscexp_set_2d_24set_2dexp_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2755 ) ),
ADR( miscexp_if_2dexp_v ),
MAKEPROCEDURE( 2,
0,
miscexp_if_2dexp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2777 ) ),
ADR( miscexp__24if_3f_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24if_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2782 ) ),
ADR( miscexp__24if_2dtest_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24if_2dtest, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2796 ) ),
ADR( miscexp_set_2d_24if_2dtest_21_v ),
MAKEPROCEDURE( 2,
0,
miscexp_set_2d_24if_2dtest_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2804 ) ),
ADR( miscexp__24if_2dtrue_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24if_2dtrue, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2812 ) ),
ADR( miscexp_set_2d_24if_2dtrue_21_v ),
MAKEPROCEDURE( 2,
0,
miscexp_set_2d_24if_2dtrue_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2823 ) ),
ADR( miscexp__24if_2dfalse_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24if_2dfalse, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2831 ) ),
ADR( miscexp_2dfalse_21_a223c70f_v ),
MAKEPROCEDURE( 2,
0,
miscexp_2dfalse_21_a223c70f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2836 ) ),
ADR( miscexp_define_2dexp_v ),
MAKEPROCEDURE( 2,
0,
miscexp_define_2dexp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2885 ) ),
ADR( miscexp__24define_3f_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24define_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2890 ) ),
ADR( miscexp__24define_2did_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24define_2did,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2904 ) ),
ADR( miscexp__24define_2dexp_v ),
MAKEPROCEDURE( 1,
0,
miscexp__24define_2dexp,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2912 ) ),
ADR( miscexp_e_2dexp_21_7e57cd5d_v ),
MAKEPROCEDURE( 2,
0,
miscexp_e_2dexp_21_7e57cd5d,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.