This is scrt1.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2240, "SET-CDR!", 8 );
DEFSTATICTSCP( c1669 );
DEFSTRING( t2241, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1660, t2241 );
DEFSTRING( t2242, "SET-CAR!", 8 );
DEFSTATICTSCP( c1659 );
DEFSTRING( t2243, "CDR", 3 );
DEFSTATICTSCP( c1198 );
DEFSTRING( t2244, "Argument not a PAIR: ~a", 23 );
DEFSTATICTSCP2( c1195, t2244 );
DEFSTRING( t2245, "CAR", 3 );
DEFSTATICTSCP( c1194 );
DEFSTRING( t2246, "Index is not in bounds: ~s", 26 );
DEFSTATICTSCP2( c1104, t2246 );
DEFSTRING( t2247, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c1100, t2247 );
DEFSTRING( t2248, "VECTOR-REF", 10 );
DEFSTATICTSCP( c1097 );
DEFSTRING( t2249, "Argument is not a VECTOR: ~s", 28 );
DEFSTATICTSCP2( c1069, t2249 );
DEFSTRING( t2250, "VECTOR-LENGTH", 13 );
DEFSTATICTSCP( c1068 );
static void init_constants()
{
c1669 = STRINGTOSYMBOL( U_TX( ADR( t2240 ) ) );
CONSTANTEXP( ADR( c1669 ) );
c1659 = STRINGTOSYMBOL( U_TX( ADR( t2242 ) ) );
CONSTANTEXP( ADR( c1659 ) );
c1198 = STRINGTOSYMBOL( U_TX( ADR( t2243 ) ) );
CONSTANTEXP( ADR( c1198 ) );
c1194 = STRINGTOSYMBOL( U_TX( ADR( t2245 ) ) );
CONSTANTEXP( ADR( c1194 ) );
c1097 = STRINGTOSYMBOL( U_TX( ADR( t2248 ) ) );
CONSTANTEXP( ADR( c1097 ) );
c1068 = STRINGTOSYMBOL( U_TX( ADR( t2250 ) ) );
CONSTANTEXP( ADR( c1068 ) );
}
DEFTSCP( scrt1_not_v );
DEFSTRING( t2251, "NOT", 3 );
TSCP scrt1_not( x1001 )
TSCP x1001;
{
PUSHSTACKTRACE( U_TX( ADR( t2251 ) ) );
if ( TRUE( x1001 ) ) goto L2253;
POPSTACKTRACE( TRUEVALUE );
L2253:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt1_boolean_3f_v );
DEFSTRING( t2255, "BOOLEAN?", 8 );
TSCP scrt1_boolean_3f( x1003 )
TSCP x1003;
{
PUSHSTACKTRACE( U_TX( ADR( t2255 ) ) );
if ( EQ( UNSIGNED( x1003 ),
UNSIGNED( FALSEVALUE ) ) ) goto L2257;
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( x1003 ),
UNSIGNED( TRUEVALUE ) ) ) );
L2257:
POPSTACKTRACE( TRUEVALUE );
}
DEFTSCP( scrt1_eqv_3f_v );
DEFSTRING( t2259, "EQV?", 4 );
TSCP scrt1_eqv_3f( x1015, y1016 )
TSCP x1015, y1016;
{
PUSHSTACKTRACE( U_TX( ADR( t2259 ) ) );
POPSTACKTRACE( BOOLEAN( OR( EQ( UNSIGNED( x1015 ),
UNSIGNED( y1016 ) ),
AND( EQ( TSCPTAG( x1015 ),
EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( x1015 ),
FLOATTAG ),
AND( EQ( TSCPTAG( y1016 ),
EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( y1016 ),
FLOATTAG ),
EQ( FLOAT_VALUE( x1015 ),
FLOAT_VALUE( y1016 ) ) ) ) ) ) ) ) );
}
DEFTSCP( scrt1_eq_3f_v );
DEFSTRING( t2261, "EQ?", 3 );
TSCP scrt1_eq_3f( x1021, y1022 )
TSCP x1021, y1022;
{
PUSHSTACKTRACE( U_TX( ADR( t2261 ) ) );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( x1021 ),
UNSIGNED( y1022 ) ) ) );
}
DEFTSCP( scrt1_equal_3f_v );
DEFSTRING( t2263, "EQUAL?", 6 );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( scrt3_string_3d_3f );
EXTERNTSCP( scrt3_string_3d_3f_v );
TSCP scrt1_equal_3f( x1027, y1028 )
TSCP x1027, y1028;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2263 ) ) );
L2264:
if ( NEQ( TSCPTAG( x1027 ), PAIRTAG ) ) goto L2265;
if ( NEQ( TSCPTAG( y1028 ), PAIRTAG ) ) goto L2267;
X2 = PAIR_CAR( x1027 );
X3 = PAIR_CAR( y1028 );
X1 = scrt1_equal_3f( X2, X3 );
if ( FALSE( X1 ) ) goto L2272;
X2 = PAIR_CDR( x1027 );
y1028 = PAIR_CDR( y1028 );
x1027 = X2;
goto L2264;
L2272:
POPSTACKTRACE( X1 );
L2267:
POPSTACKTRACE( FALSEVALUE );
L2265:
if ( NOT( AND( EQ( TSCPTAG( x1027 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1027 ), VECTORTAG ) ) )
) goto L2276;
X1 = C_FIXED( VECTOR_LENGTH( x1027 ) );
if ( NOT( AND( EQ( TSCPTAG( y1028 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1028 ), VECTORTAG ) ) )
) goto L2280;
X3 = C_FIXED( VECTOR_LENGTH( y1028 ) );
if ( BITAND( BITOR( INT( X3 ), INT( X1 ) ),
3 ) ) goto L2284;
X2 = BOOLEAN( EQ( UNSIGNED( X3 ), UNSIGNED( X1 ) ) );
goto L2285;
L2284:
X2 = scrt2__3d_2dtwo( X3, X1 );
L2285:
if ( FALSE( X2 ) ) goto L2287;
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2290;
X3 = _TSCP( IDIFFERENCE( INT( X1 ),
INT( _TSCP( 4 ) ) ) );
goto L2291;
L2290:
X3 = scrt2__2d_2dtwo( X1, _TSCP( 4 ) );
L2291:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( -4 ) ) ),
3 ) ) goto L2293;
X4 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( -4 ) ) ) );
goto L2294;
L2293:
X4 = scrt2__3d_2dtwo( X3, _TSCP( -4 ) );
L2294:
if ( TRUE( X4 ) ) goto L2296;
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L2299;
scrt6_error( c1097, c1100, CONS( X3, EMPTYLIST ) );
L2299:
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( x1027 ) ) ) ) goto L2301;
scrt6_error( c1097, c1104, CONS( X3, EMPTYLIST ) );
L2301:
X6 = VECTOR_ELEMENT( x1027, X3 );
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( y1028 ) ) ) ) goto L2304;
scrt6_error( c1097, c1104, CONS( X3, EMPTYLIST ) );
L2304:
X7 = VECTOR_ELEMENT( y1028, X3 );
X5 = scrt1_equal_3f( X6, X7 );
if ( FALSE( X5 ) ) goto L2307;
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2309;
X3 = _TSCP( IDIFFERENCE( INT( X3 ),
INT( _TSCP( 4 ) ) ) );
goto L2291;
L2309:
X3 = scrt2__2d_2dtwo( X3, _TSCP( 4 ) );
goto L2291;
L2307:
POPSTACKTRACE( X5 );
L2296:
POPSTACKTRACE( X4 );
L2287:
POPSTACKTRACE( X2 );
L2280:
POPSTACKTRACE( FALSEVALUE );
L2276:
if ( NOT( AND( EQ( TSCPTAG( x1027 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1027 ), STRINGTAG ) ) )
) goto L2311;
if ( NOT( AND( EQ( TSCPTAG( y1028 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1028 ), STRINGTAG ) ) )
) goto L2313;
POPSTACKTRACE( scrt3_string_3d_3f( x1027, y1028 ) );
L2313:
POPSTACKTRACE( FALSEVALUE );
L2311:
POPSTACKTRACE( BOOLEAN( OR( EQ( UNSIGNED( x1027 ),
UNSIGNED( y1028 ) ),
AND( EQ( TSCPTAG( x1027 ),
EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( x1027 ),
FLOATTAG ),
AND( EQ( TSCPTAG( y1028 ),
EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( y1028 ),
FLOATTAG ),
EQ( FLOAT_VALUE( x1027 ),
FLOAT_VALUE( y1028 ) ) ) ) ) ) ) ) );
}
DEFTSCP( scrt1_pair_3f_v );
DEFSTRING( t2315, "PAIR?", 5 );
TSCP scrt1_pair_3f( x1161 )
TSCP x1161;
{
PUSHSTACKTRACE( U_TX( ADR( t2315 ) ) );
POPSTACKTRACE( BOOLEAN( EQ( TSCPTAG( x1161 ), PAIRTAG ) ) );
}
DEFTSCP( scrt1_cons_2a_v );
DEFSTRING( t2317, "CONS*", 5 );
DEFSTRING( t2320, "CONS*1 [inside CONS*]", 21 );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1_c1168 );
TSCP scrt1_c1168( x1170 )
TSCP x1170;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2320 ) ) );
if ( EQ( TSCPTAG( x1170 ), PAIRTAG ) ) goto L2325;
scrt1__24__cdr_2derror( x1170 );
L2325:
X1 = PAIR_CDR( x1170 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2322;
POPSTACKTRACE( PAIR_CAR( x1170 ) );
L2322:
if ( EQ( TSCPTAG( x1170 ), PAIRTAG ) ) goto L2329;
scrt1__24__car_2derror( x1170 );
L2329:
X1 = PAIR_CAR( x1170 );
X3 = PAIR_CDR( x1170 );
X2 = scrt1_c1168( X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
}
TSCP scrt1_cons_2a( x1165, y1166 )
TSCP x1165, y1166;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2317 ) ) );
if ( FALSE( y1166 ) ) goto L2332;
X1 = scrt1_c1168( y1166 );
POPSTACKTRACE( sc_cons( x1165, X1 ) );
L2332:
POPSTACKTRACE( x1165 );
}
DEFTSCP( scrt1__24__car_2derror_v );
DEFSTRING( t2334, "SCRT1_$_CAR-ERROR", 17 );
TSCP scrt1__24__car_2derror( x1193 )
TSCP x1193;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2334 ) ) );
POPSTACKTRACE( scrt6_error( c1194,
c1195,
CONS( x1193, EMPTYLIST ) ) );
}
DEFTSCP( scrt1__24__cdr_2derror_v );
DEFSTRING( t2336, "SCRT1_$_CDR-ERROR", 17 );
TSCP scrt1__24__cdr_2derror( x1197 )
TSCP x1197;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2336 ) ) );
POPSTACKTRACE( scrt6_error( c1198,
c1195,
CONS( x1197, EMPTYLIST ) ) );
}
DEFTSCP( scrt1_car_v );
DEFSTRING( t2338, "CAR", 3 );
TSCP scrt1_car( x1200 )
TSCP x1200;
{
PUSHSTACKTRACE( U_TX( ADR( t2338 ) ) );
if ( EQ( TSCPTAG( x1200 ), PAIRTAG ) ) goto L2341;
scrt1__24__car_2derror( x1200 );
L2341:
POPSTACKTRACE( PAIR_CAR( x1200 ) );
}
DEFTSCP( scrt1_cdr_v );
DEFSTRING( t2343, "CDR", 3 );
TSCP scrt1_cdr( x1206 )
TSCP x1206;
{
PUSHSTACKTRACE( U_TX( ADR( t2343 ) ) );
if ( EQ( TSCPTAG( x1206 ), PAIRTAG ) ) goto L2346;
scrt1__24__cdr_2derror( x1206 );
L2346:
POPSTACKTRACE( PAIR_CDR( x1206 ) );
}
DEFTSCP( scrt1_caar_v );
DEFSTRING( t2348, "CAAR", 4 );
TSCP scrt1_caar( x1212 )
TSCP x1212;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2348 ) ) );
if ( EQ( TSCPTAG( x1212 ), PAIRTAG ) ) goto L2351;
scrt1__24__car_2derror( x1212 );
L2351:
X1 = PAIR_CAR( x1212 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2354;
scrt1__24__car_2derror( X1 );
L2354:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_cadr_v );
DEFSTRING( t2356, "CADR", 4 );
TSCP scrt1_cadr( x1222 )
TSCP x1222;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2356 ) ) );
if ( EQ( TSCPTAG( x1222 ), PAIRTAG ) ) goto L2359;
scrt1__24__cdr_2derror( x1222 );
L2359:
X1 = PAIR_CDR( x1222 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2362;
scrt1__24__car_2derror( X1 );
L2362:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_cdar_v );
DEFSTRING( t2364, "CDAR", 4 );
TSCP scrt1_cdar( x1232 )
TSCP x1232;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2364 ) ) );
if ( EQ( TSCPTAG( x1232 ), PAIRTAG ) ) goto L2367;
scrt1__24__car_2derror( x1232 );
L2367:
X1 = PAIR_CAR( x1232 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2370;
scrt1__24__cdr_2derror( X1 );
L2370:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cddr_v );
DEFSTRING( t2372, "CDDR", 4 );
TSCP scrt1_cddr( x1242 )
TSCP x1242;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2372 ) ) );
if ( EQ( TSCPTAG( x1242 ), PAIRTAG ) ) goto L2375;
scrt1__24__cdr_2derror( x1242 );
L2375:
X1 = PAIR_CDR( x1242 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2378;
scrt1__24__cdr_2derror( X1 );
L2378:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_caaar_v );
DEFSTRING( t2380, "CAAAR", 5 );
TSCP scrt1_caaar( x1252 )
TSCP x1252;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2380 ) ) );
if ( EQ( TSCPTAG( x1252 ), PAIRTAG ) ) goto L2383;
scrt1__24__car_2derror( x1252 );
L2383:
X2 = PAIR_CAR( x1252 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2386;
scrt1__24__car_2derror( X2 );
L2386:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2389;
scrt1__24__car_2derror( X1 );
L2389:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_caadr_v );
DEFSTRING( t2391, "CAADR", 5 );
TSCP scrt1_caadr( x1266 )
TSCP x1266;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2391 ) ) );
if ( EQ( TSCPTAG( x1266 ), PAIRTAG ) ) goto L2394;
scrt1__24__cdr_2derror( x1266 );
L2394:
X2 = PAIR_CDR( x1266 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2397;
scrt1__24__car_2derror( X2 );
L2397:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2400;
scrt1__24__car_2derror( X1 );
L2400:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_cadar_v );
DEFSTRING( t2402, "CADAR", 5 );
TSCP scrt1_cadar( x1280 )
TSCP x1280;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2402 ) ) );
if ( EQ( TSCPTAG( x1280 ), PAIRTAG ) ) goto L2405;
scrt1__24__car_2derror( x1280 );
L2405:
X2 = PAIR_CAR( x1280 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2408;
scrt1__24__cdr_2derror( X2 );
L2408:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2411;
scrt1__24__car_2derror( X1 );
L2411:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_caddr_v );
DEFSTRING( t2413, "CADDR", 5 );
TSCP scrt1_caddr( x1294 )
TSCP x1294;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2413 ) ) );
if ( EQ( TSCPTAG( x1294 ), PAIRTAG ) ) goto L2416;
scrt1__24__cdr_2derror( x1294 );
L2416:
X2 = PAIR_CDR( x1294 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2419;
scrt1__24__cdr_2derror( X2 );
L2419:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2422;
scrt1__24__car_2derror( X1 );
L2422:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_cdaar_v );
DEFSTRING( t2424, "CDAAR", 5 );
TSCP scrt1_cdaar( x1308 )
TSCP x1308;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2424 ) ) );
if ( EQ( TSCPTAG( x1308 ), PAIRTAG ) ) goto L2427;
scrt1__24__car_2derror( x1308 );
L2427:
X2 = PAIR_CAR( x1308 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2430;
scrt1__24__car_2derror( X2 );
L2430:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2433;
scrt1__24__cdr_2derror( X1 );
L2433:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cdadr_v );
DEFSTRING( t2435, "CDADR", 5 );
TSCP scrt1_cdadr( x1322 )
TSCP x1322;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2435 ) ) );
if ( EQ( TSCPTAG( x1322 ), PAIRTAG ) ) goto L2438;
scrt1__24__cdr_2derror( x1322 );
L2438:
X2 = PAIR_CDR( x1322 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2441;
scrt1__24__car_2derror( X2 );
L2441:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2444;
scrt1__24__cdr_2derror( X1 );
L2444:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cddar_v );
DEFSTRING( t2446, "CDDAR", 5 );
TSCP scrt1_cddar( x1336 )
TSCP x1336;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2446 ) ) );
if ( EQ( TSCPTAG( x1336 ), PAIRTAG ) ) goto L2449;
scrt1__24__car_2derror( x1336 );
L2449:
X2 = PAIR_CAR( x1336 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2452;
scrt1__24__cdr_2derror( X2 );
L2452:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2455;
scrt1__24__cdr_2derror( X1 );
L2455:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cdddr_v );
DEFSTRING( t2457, "CDDDR", 5 );
TSCP scrt1_cdddr( x1350 )
TSCP x1350;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2457 ) ) );
if ( EQ( TSCPTAG( x1350 ), PAIRTAG ) ) goto L2460;
scrt1__24__cdr_2derror( x1350 );
L2460:
X2 = PAIR_CDR( x1350 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2463;
scrt1__24__cdr_2derror( X2 );
L2463:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2466;
scrt1__24__cdr_2derror( X1 );
L2466:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_caaaar_v );
DEFSTRING( t2468, "CAAAAR", 6 );
TSCP scrt1_caaaar( x1364 )
TSCP x1364;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2468 ) ) );
if ( EQ( TSCPTAG( x1364 ), PAIRTAG ) ) goto L2471;
scrt1__24__car_2derror( x1364 );
L2471:
X3 = PAIR_CAR( x1364 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2474;
scrt1__24__car_2derror( X3 );
L2474:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2477;
scrt1__24__car_2derror( X2 );
L2477:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2480;
scrt1__24__car_2derror( X1 );
L2480:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_caaadr_v );
DEFSTRING( t2482, "CAAADR", 6 );
TSCP scrt1_caaadr( x1382 )
TSCP x1382;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2482 ) ) );
if ( EQ( TSCPTAG( x1382 ), PAIRTAG ) ) goto L2485;
scrt1__24__cdr_2derror( x1382 );
L2485:
X3 = PAIR_CDR( x1382 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2488;
scrt1__24__car_2derror( X3 );
L2488:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2491;
scrt1__24__car_2derror( X2 );
L2491:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2494;
scrt1__24__car_2derror( X1 );
L2494:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_caadar_v );
DEFSTRING( t2496, "CAADAR", 6 );
TSCP scrt1_caadar( x1400 )
TSCP x1400;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2496 ) ) );
if ( EQ( TSCPTAG( x1400 ), PAIRTAG ) ) goto L2499;
scrt1__24__car_2derror( x1400 );
L2499:
X3 = PAIR_CAR( x1400 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2502;
scrt1__24__cdr_2derror( X3 );
L2502:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2505;
scrt1__24__car_2derror( X2 );
L2505:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2508;
scrt1__24__car_2derror( X1 );
L2508:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_caaddr_v );
DEFSTRING( t2510, "CAADDR", 6 );
TSCP scrt1_caaddr( x1418 )
TSCP x1418;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2510 ) ) );
if ( EQ( TSCPTAG( x1418 ), PAIRTAG ) ) goto L2513;
scrt1__24__cdr_2derror( x1418 );
L2513:
X3 = PAIR_CDR( x1418 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2516;
scrt1__24__cdr_2derror( X3 );
L2516:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2519;
scrt1__24__car_2derror( X2 );
L2519:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2522;
scrt1__24__car_2derror( X1 );
L2522:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_cadaar_v );
DEFSTRING( t2524, "CADAAR", 6 );
TSCP scrt1_cadaar( x1436 )
TSCP x1436;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2524 ) ) );
if ( EQ( TSCPTAG( x1436 ), PAIRTAG ) ) goto L2527;
scrt1__24__car_2derror( x1436 );
L2527:
X3 = PAIR_CAR( x1436 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2530;
scrt1__24__car_2derror( X3 );
L2530:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2533;
scrt1__24__cdr_2derror( X2 );
L2533:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2536;
scrt1__24__car_2derror( X1 );
L2536:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_cadadr_v );
DEFSTRING( t2538, "CADADR", 6 );
TSCP scrt1_cadadr( x1454 )
TSCP x1454;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2538 ) ) );
if ( EQ( TSCPTAG( x1454 ), PAIRTAG ) ) goto L2541;
scrt1__24__cdr_2derror( x1454 );
L2541:
X3 = PAIR_CDR( x1454 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2544;
scrt1__24__car_2derror( X3 );
L2544:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2547;
scrt1__24__cdr_2derror( X2 );
L2547:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2550;
scrt1__24__car_2derror( X1 );
L2550:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_caddar_v );
DEFSTRING( t2552, "CADDAR", 6 );
TSCP scrt1_caddar( x1472 )
TSCP x1472;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2552 ) ) );
if ( EQ( TSCPTAG( x1472 ), PAIRTAG ) ) goto L2555;
scrt1__24__car_2derror( x1472 );
L2555:
X3 = PAIR_CAR( x1472 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2558;
scrt1__24__cdr_2derror( X3 );
L2558:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2561;
scrt1__24__cdr_2derror( X2 );
L2561:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2564;
scrt1__24__car_2derror( X1 );
L2564:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_cadddr_v );
DEFSTRING( t2566, "CADDDR", 6 );
TSCP scrt1_cadddr( x1490 )
TSCP x1490;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2566 ) ) );
if ( EQ( TSCPTAG( x1490 ), PAIRTAG ) ) goto L2569;
scrt1__24__cdr_2derror( x1490 );
L2569:
X3 = PAIR_CDR( x1490 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2572;
scrt1__24__cdr_2derror( X3 );
L2572:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2575;
scrt1__24__cdr_2derror( X2 );
L2575:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2578;
scrt1__24__car_2derror( X1 );
L2578:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_cdaaar_v );
DEFSTRING( t2580, "CDAAAR", 6 );
TSCP scrt1_cdaaar( x1508 )
TSCP x1508;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2580 ) ) );
if ( EQ( TSCPTAG( x1508 ), PAIRTAG ) ) goto L2583;
scrt1__24__car_2derror( x1508 );
L2583:
X3 = PAIR_CAR( x1508 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2586;
scrt1__24__car_2derror( X3 );
L2586:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2589;
scrt1__24__car_2derror( X2 );
L2589:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2592;
scrt1__24__cdr_2derror( X1 );
L2592:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cdaadr_v );
DEFSTRING( t2594, "CDAADR", 6 );
TSCP scrt1_cdaadr( x1526 )
TSCP x1526;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2594 ) ) );
if ( EQ( TSCPTAG( x1526 ), PAIRTAG ) ) goto L2597;
scrt1__24__cdr_2derror( x1526 );
L2597:
X3 = PAIR_CDR( x1526 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2600;
scrt1__24__car_2derror( X3 );
L2600:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2603;
scrt1__24__car_2derror( X2 );
L2603:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2606;
scrt1__24__cdr_2derror( X1 );
L2606:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cdadar_v );
DEFSTRING( t2608, "CDADAR", 6 );
TSCP scrt1_cdadar( x1544 )
TSCP x1544;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2608 ) ) );
if ( EQ( TSCPTAG( x1544 ), PAIRTAG ) ) goto L2611;
scrt1__24__car_2derror( x1544 );
L2611:
X3 = PAIR_CAR( x1544 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2614;
scrt1__24__cdr_2derror( X3 );
L2614:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2617;
scrt1__24__car_2derror( X2 );
L2617:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2620;
scrt1__24__cdr_2derror( X1 );
L2620:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cdaddr_v );
DEFSTRING( t2622, "CDADDR", 6 );
TSCP scrt1_cdaddr( x1562 )
TSCP x1562;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2622 ) ) );
if ( EQ( TSCPTAG( x1562 ), PAIRTAG ) ) goto L2625;
scrt1__24__cdr_2derror( x1562 );
L2625:
X3 = PAIR_CDR( x1562 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2628;
scrt1__24__cdr_2derror( X3 );
L2628:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2631;
scrt1__24__car_2derror( X2 );
L2631:
X1 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2634;
scrt1__24__cdr_2derror( X1 );
L2634:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cddaar_v );
DEFSTRING( t2636, "CDDAAR", 6 );
TSCP scrt1_cddaar( x1580 )
TSCP x1580;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2636 ) ) );
if ( EQ( TSCPTAG( x1580 ), PAIRTAG ) ) goto L2639;
scrt1__24__car_2derror( x1580 );
L2639:
X3 = PAIR_CAR( x1580 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2642;
scrt1__24__car_2derror( X3 );
L2642:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2645;
scrt1__24__cdr_2derror( X2 );
L2645:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2648;
scrt1__24__cdr_2derror( X1 );
L2648:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cddadr_v );
DEFSTRING( t2650, "CDDADR", 6 );
TSCP scrt1_cddadr( x1598 )
TSCP x1598;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2650 ) ) );
if ( EQ( TSCPTAG( x1598 ), PAIRTAG ) ) goto L2653;
scrt1__24__cdr_2derror( x1598 );
L2653:
X3 = PAIR_CDR( x1598 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2656;
scrt1__24__car_2derror( X3 );
L2656:
X2 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2659;
scrt1__24__cdr_2derror( X2 );
L2659:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2662;
scrt1__24__cdr_2derror( X1 );
L2662:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cdddar_v );
DEFSTRING( t2664, "CDDDAR", 6 );
TSCP scrt1_cdddar( x1616 )
TSCP x1616;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2664 ) ) );
if ( EQ( TSCPTAG( x1616 ), PAIRTAG ) ) goto L2667;
scrt1__24__car_2derror( x1616 );
L2667:
X3 = PAIR_CAR( x1616 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2670;
scrt1__24__cdr_2derror( X3 );
L2670:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2673;
scrt1__24__cdr_2derror( X2 );
L2673:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2676;
scrt1__24__cdr_2derror( X1 );
L2676:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_cddddr_v );
DEFSTRING( t2678, "CDDDDR", 6 );
TSCP scrt1_cddddr( x1634 )
TSCP x1634;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2678 ) ) );
if ( EQ( TSCPTAG( x1634 ), PAIRTAG ) ) goto L2681;
scrt1__24__cdr_2derror( x1634 );
L2681:
X3 = PAIR_CDR( x1634 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2684;
scrt1__24__cdr_2derror( X3 );
L2684:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2687;
scrt1__24__cdr_2derror( X2 );
L2687:
X1 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2690;
scrt1__24__cdr_2derror( X1 );
L2690:
POPSTACKTRACE( PAIR_CDR( X1 ) );
}
DEFTSCP( scrt1_set_2dcar_21_v );
DEFSTRING( t2692, "SET-CAR!", 8 );
TSCP scrt1_set_2dcar_21( x1652, y1653 )
TSCP x1652, y1653;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2692 ) ) );
if ( EQ( TSCPTAG( x1652 ), PAIRTAG ) ) goto L2695;
scrt6_error( c1659,
c1660, CONS( x1652, EMPTYLIST ) );
L2695:
POPSTACKTRACE( SETGEN( PAIR_CAR( x1652 ), y1653 ) );
}
DEFTSCP( scrt1_set_2dcdr_21_v );
DEFSTRING( t2697, "SET-CDR!", 8 );
TSCP scrt1_set_2dcdr_21( x1662, y1663 )
TSCP x1662, y1663;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2697 ) ) );
if ( EQ( TSCPTAG( x1662 ), PAIRTAG ) ) goto L2700;
scrt6_error( c1669,
c1660, CONS( x1662, EMPTYLIST ) );
L2700:
POPSTACKTRACE( SETGEN( PAIR_CDR( x1662 ), y1663 ) );
}
DEFTSCP( scrt1_null_3f_v );
DEFSTRING( t2702, "NULL?", 5 );
TSCP scrt1_null_3f( x1671 )
TSCP x1671;
{
PUSHSTACKTRACE( U_TX( ADR( t2702 ) ) );
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( x1671 ),
UNSIGNED( EMPTYLIST ) ) ) );
}
DEFTSCP( scrt1_list_v );
DEFSTRING( t2704, "LIST", 4 );
TSCP scrt1_list( x1678 )
TSCP x1678;
{
PUSHSTACKTRACE( U_TX( ADR( t2704 ) ) );
POPSTACKTRACE( x1678 );
}
DEFTSCP( scrt1_length_v );
DEFSTRING( t2706, "LENGTH", 6 );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP scrt1_length( x1680 )
TSCP x1680;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2706 ) ) );
X1 = _TSCP( 0 );
X2 = x1680;
L2709:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2710;
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L2712;
X3 = _TSCP( IPLUS( INT( X1 ), INT( _TSCP( 4 ) ) ) );
goto L2713;
L2712:
X3 = scrt2__2b_2dtwo( X1, _TSCP( 4 ) );
L2713:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2715;
scrt1__24__cdr_2derror( X2 );
L2715:
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L2709;
L2710:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt1_append_2dtwo_v );
DEFSTRING( t2717, "SCRT1_APPEND-TWO", 16 );
TSCP scrt1_append_2dtwo( x1702, y1703 )
TSCP x1702, y1703;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2717 ) ) );
if ( EQ( UNSIGNED( x1702 ), UNSIGNED( EMPTYLIST ) ) ) goto L2719;
if ( EQ( TSCPTAG( x1702 ), PAIRTAG ) ) goto L2722;
scrt1__24__car_2derror( x1702 );
L2722:
X2 = PAIR_CAR( x1702 );
X1 = sc_cons( X2, EMPTYLIST );
X2 = X1;
X3 = PAIR_CDR( x1702 );
L2727:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2728;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2732;
scrt6_error( c1669, c1660, CONS( X2, EMPTYLIST ) );
L2732:
SETGEN( PAIR_CDR( X2 ), y1703 );
POPSTACKTRACE( X1 );
L2728:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2736;
scrt1__24__car_2derror( X3 );
L2736:
X5 = PAIR_CAR( X3 );
X4 = sc_cons( X5, EMPTYLIST );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2739;
scrt6_error( c1669, c1660, CONS( X2, EMPTYLIST ) );
L2739:
SETGEN( PAIR_CDR( X2 ), X4 );
X4 = PAIR_CDR( X2 );
X3 = PAIR_CDR( X3 );
X2 = X4;
goto L2727;
L2719:
POPSTACKTRACE( y1703 );
}
DEFTSCP( scrt1_append_v );
DEFSTRING( t2743, "APPEND", 6 );
DEFSTRING( t2746, "APPEND-LIST [inside APPEND]", 27 );
EXTERNTSCPP( scrt1_a1757 );
TSCP scrt1_a1757( x1759 )
TSCP x1759;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2746 ) ) );
X1 = scrt1_length( x1759 );
if ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L2749;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L2751;
if ( EQ( TSCPTAG( x1759 ), PAIRTAG ) ) goto L2754;
scrt1__24__car_2derror( x1759 );
L2754:
POPSTACKTRACE( PAIR_CAR( x1759 ) );
L2751:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 8 ) ) ) ) goto L2756;
if ( EQ( TSCPTAG( x1759 ), PAIRTAG ) ) goto L2759;
scrt1__24__car_2derror( x1759 );
L2759:
X2 = PAIR_CAR( x1759 );
X4 = PAIR_CDR( x1759 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2763;
scrt1__24__car_2derror( X4 );
L2763:
X3 = PAIR_CAR( X4 );
POPSTACKTRACE( scrt1_append_2dtwo( X2, X3 ) );
L2756:
if ( EQ( TSCPTAG( x1759 ), PAIRTAG ) ) goto L2766;
scrt1__24__car_2derror( x1759 );
L2766:
X2 = PAIR_CAR( x1759 );
X4 = PAIR_CDR( x1759 );
X3 = scrt1_a1757( X4 );
POPSTACKTRACE( scrt1_append_2dtwo( X2, X3 ) );
L2749:
POPSTACKTRACE( EMPTYLIST );
}
TSCP scrt1_append( x1755 )
TSCP x1755;
{
PUSHSTACKTRACE( U_TX( ADR( t2743 ) ) );
POPSTACKTRACE( scrt1_a1757( x1755 ) );
}
DEFTSCP( scrt1_reverse_v );
DEFSTRING( t2769, "REVERSE", 7 );
TSCP scrt1_reverse( x1799 )
TSCP x1799;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2769 ) ) );
X1 = EMPTYLIST;
X2 = x1799;
L2772:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2773;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2776;
scrt1__24__car_2derror( X2 );
L2776:
X4 = PAIR_CAR( X2 );
X3 = sc_cons( X4, X1 );
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L2772;
L2773:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt1_list_2dtail_v );
DEFSTRING( t2779, "LIST-TAIL", 9 );
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
TSCP scrt1_list_2dtail( x1819, k1820 )
TSCP x1819, k1820;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2779 ) ) );
L2780:
if ( NEQ( TSCPTAG( k1820 ), FIXNUMTAG ) ) goto L2782;
if ( NEQ( UNSIGNED( k1820 ),
UNSIGNED( _TSCP( 0 ) ) ) ) goto L2786;
POPSTACKTRACE( x1819 );
L2782:
if ( FALSE( scrt2_zero_3f( k1820 ) ) ) goto L2786;
POPSTACKTRACE( x1819 );
L2786:
if ( EQ( TSCPTAG( x1819 ), PAIRTAG ) ) goto L2790;
scrt1__24__cdr_2derror( x1819 );
L2790:
X1 = PAIR_CDR( x1819 );
if ( BITAND( BITOR( INT( k1820 ),
INT( _TSCP( 4 ) ) ),
3 ) ) goto L2792;
k1820 = _TSCP( IDIFFERENCE( INT( k1820 ),
INT( _TSCP( 4 ) ) ) );
goto L2793;
L2792:
k1820 = scrt2__2d_2dtwo( k1820, _TSCP( 4 ) );
L2793:
x1819 = X1;
goto L2780;
}
DEFTSCP( scrt1_list_2dref_v );
DEFSTRING( t2794, "LIST-REF", 8 );
TSCP scrt1_list_2dref( x1841, k1842 )
TSCP x1841, k1842;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2794 ) ) );
X1 = scrt1_list_2dtail( x1841, k1842 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2797;
scrt1__24__car_2derror( X1 );
L2797:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( scrt1_last_2dpair_v );
DEFSTRING( t2799, "LAST-PAIR", 9 );
TSCP scrt1_last_2dpair( x1848 )
TSCP x1848;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2799 ) ) );
L2800:
if ( EQ( TSCPTAG( x1848 ), PAIRTAG ) ) goto L2802;
scrt1__24__cdr_2derror( x1848 );
L2802:
X1 = PAIR_CDR( x1848 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2805;
x1848 = X1;
goto L2800;
L2805:
POPSTACKTRACE( x1848 );
}
DEFTSCP( scrt1_memq_v );
DEFSTRING( t2807, "MEMQ", 4 );
TSCP scrt1_memq( x1858, y1859 )
TSCP x1858, y1859;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2807 ) ) );
L2808:
if ( EQ( UNSIGNED( y1859 ), UNSIGNED( EMPTYLIST ) ) ) goto L2809;
if ( EQ( TSCPTAG( y1859 ), PAIRTAG ) ) goto L2814;
scrt1__24__car_2derror( y1859 );
L2814:
X1 = PAIR_CAR( y1859 );
if ( EQ( UNSIGNED( x1858 ), UNSIGNED( X1 ) ) ) goto L2811;
y1859 = PAIR_CDR( y1859 );
goto L2808;
L2811:
POPSTACKTRACE( y1859 );
L2809:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt1_memv_v );
DEFSTRING( t2817, "MEMV", 4 );
TSCP scrt1_memv( x1877, y1878 )
TSCP x1877, y1878;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2817 ) ) );
L2818:
if ( EQ( UNSIGNED( y1878 ), UNSIGNED( EMPTYLIST ) ) ) goto L2819;
if ( EQ( TSCPTAG( y1878 ), PAIRTAG ) ) goto L2824;
scrt1__24__car_2derror( y1878 );
L2824:
X1 = PAIR_CAR( y1878 );
if ( OR( EQ( UNSIGNED( x1877 ), UNSIGNED( X1 ) ),
AND( EQ( TSCPTAG( x1877 ), EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( x1877 ),
FLOATTAG ),
AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( X1 ),
FLOATTAG ),
EQ( FLOAT_VALUE( x1877 ),
FLOAT_VALUE( X1 ) ) ) ) ) ) )
) goto L2821;
y1878 = PAIR_CDR( y1878 );
goto L2818;
L2821:
POPSTACKTRACE( y1878 );
L2819:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt1_member_v );
DEFSTRING( t2827, "MEMBER", 6 );
TSCP scrt1_member( x1896, y1897 )
TSCP x1896, y1897;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2827 ) ) );
L2828:
if ( EQ( UNSIGNED( y1897 ), UNSIGNED( EMPTYLIST ) ) ) goto L2829;
if ( EQ( TSCPTAG( y1897 ), PAIRTAG ) ) goto L2834;
scrt1__24__car_2derror( y1897 );
L2834:
X1 = PAIR_CAR( y1897 );
if ( TRUE( scrt1_equal_3f( x1896, X1 ) ) ) goto L2831;
y1897 = PAIR_CDR( y1897 );
goto L2828;
L2831:
POPSTACKTRACE( y1897 );
L2829:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt1_assq_v );
DEFSTRING( t2837, "ASSQ", 4 );
TSCP scrt1_assq( x1912, y1913 )
TSCP x1912, y1913;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2837 ) ) );
L2838:
if ( FALSE( y1913 ) ) goto L2839;
if ( EQ( TSCPTAG( y1913 ), PAIRTAG ) ) goto L2842;
scrt1__24__car_2derror( y1913 );
L2842:
X1 = PAIR_CAR( y1913 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2848;
scrt1__24__car_2derror( X1 );
L2848:
X2 = PAIR_CAR( X1 );
if ( EQ( UNSIGNED( x1912 ), UNSIGNED( X2 ) ) ) goto L2845;
y1913 = PAIR_CDR( y1913 );
goto L2838;
L2845:
POPSTACKTRACE( X1 );
L2839:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt1_assv_v );
DEFSTRING( t2851, "ASSV", 4 );
TSCP scrt1_assv( x1932, y1933 )
TSCP x1932, y1933;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2851 ) ) );
L2852:
if ( FALSE( y1933 ) ) goto L2853;
if ( EQ( TSCPTAG( y1933 ), PAIRTAG ) ) goto L2856;
scrt1__24__car_2derror( y1933 );
L2856:
X1 = PAIR_CAR( y1933 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2862;
scrt1__24__car_2derror( X1 );
L2862:
X2 = PAIR_CAR( X1 );
if ( OR( EQ( UNSIGNED( x1932 ), UNSIGNED( X2 ) ),
AND( EQ( TSCPTAG( x1932 ), EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( x1932 ),
FLOATTAG ),
AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( X2 ),
FLOATTAG ),
EQ( FLOAT_VALUE( x1932 ),
FLOAT_VALUE( X2 ) ) ) ) ) ) )
) goto L2859;
y1933 = PAIR_CDR( y1933 );
goto L2852;
L2859:
POPSTACKTRACE( X1 );
L2853:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt1_assoc_v );
DEFSTRING( t2865, "ASSOC", 5 );
TSCP scrt1_assoc( x1952, y1953 )
TSCP x1952, y1953;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2865 ) ) );
L2866:
if ( FALSE( y1953 ) ) goto L2867;
if ( EQ( TSCPTAG( y1953 ), PAIRTAG ) ) goto L2870;
scrt1__24__car_2derror( y1953 );
L2870:
X1 = PAIR_CAR( y1953 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2876;
scrt1__24__car_2derror( X1 );
L2876:
X2 = PAIR_CAR( X1 );
if ( TRUE( scrt1_equal_3f( x1952, X2 ) ) ) goto L2873;
y1953 = PAIR_CDR( y1953 );
goto L2866;
L2873:
POPSTACKTRACE( X1 );
L2867:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt1_remq_v );
DEFSTRING( t2879, "REMQ", 4 );
EXTERNTSCPP( scrt1_remq );
EXTERNTSCP( scrt1_remq_v );
TSCP scrt1_remq( x1969, y1970 )
TSCP x1969, y1970;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2879 ) ) );
L2880:
if ( EQ( UNSIGNED( y1970 ), UNSIGNED( EMPTYLIST ) ) ) goto L2881;
if ( EQ( TSCPTAG( y1970 ), PAIRTAG ) ) goto L2886;
scrt1__24__car_2derror( y1970 );
L2886:
X1 = PAIR_CAR( y1970 );
if ( NEQ( UNSIGNED( x1969 ), UNSIGNED( X1 ) ) ) goto L2883;
y1970 = PAIR_CDR( y1970 );
goto L2880;
L2883:
if ( EQ( TSCPTAG( y1970 ), PAIRTAG ) ) goto L2890;
scrt1__24__car_2derror( y1970 );
L2890:
X1 = PAIR_CAR( y1970 );
X3 = PAIR_CDR( y1970 );
X2 = scrt1_remq( x1969, X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2881:
POPSTACKTRACE( y1970 );
}
DEFTSCP( scrt1_remv_v );
DEFSTRING( t2893, "REMV", 4 );
EXTERNTSCPP( scrt1_remv );
EXTERNTSCP( scrt1_remv_v );
TSCP scrt1_remv( x1996, y1997 )
TSCP x1996, y1997;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2893 ) ) );
L2894:
if ( EQ( UNSIGNED( y1997 ), UNSIGNED( EMPTYLIST ) ) ) goto L2895;
if ( EQ( TSCPTAG( y1997 ), PAIRTAG ) ) goto L2900;
scrt1__24__car_2derror( y1997 );
L2900:
X1 = PAIR_CAR( y1997 );
if ( NOT( OR( EQ( UNSIGNED( x1996 ),
UNSIGNED( X1 ) ),
AND( EQ( TSCPTAG( x1996 ), EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( x1996 ),
FLOATTAG ),
AND( EQ( TSCPTAG( X1 ),
EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( X1 ),
FLOATTAG ),
EQ( FLOAT_VALUE( x1996 ),
FLOAT_VALUE( X1 ) ) ) ) ) ) ) )
) goto L2897;
y1997 = PAIR_CDR( y1997 );
goto L2894;
L2897:
if ( EQ( TSCPTAG( y1997 ), PAIRTAG ) ) goto L2904;
scrt1__24__car_2derror( y1997 );
L2904:
X1 = PAIR_CAR( y1997 );
X3 = PAIR_CDR( y1997 );
X2 = scrt1_remv( x1996, X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2895:
POPSTACKTRACE( y1997 );
}
DEFTSCP( scrt1_remove_v );
DEFSTRING( t2907, "REMOVE", 6 );
EXTERNTSCPP( scrt1_remove );
EXTERNTSCP( scrt1_remove_v );
TSCP scrt1_remove( x2023, y2024 )
TSCP x2023, y2024;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2907 ) ) );
L2908:
if ( EQ( UNSIGNED( y2024 ), UNSIGNED( EMPTYLIST ) ) ) goto L2909;
if ( EQ( TSCPTAG( y2024 ), PAIRTAG ) ) goto L2914;
scrt1__24__car_2derror( y2024 );
L2914:
X1 = PAIR_CAR( y2024 );
if ( FALSE( scrt1_equal_3f( x2023, X1 ) ) ) goto L2911;
y2024 = PAIR_CDR( y2024 );
goto L2908;
L2911:
if ( EQ( TSCPTAG( y2024 ), PAIRTAG ) ) goto L2918;
scrt1__24__car_2derror( y2024 );
L2918:
X1 = PAIR_CAR( y2024 );
X3 = PAIR_CDR( y2024 );
X2 = scrt1_remove( x2023, X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2909:
POPSTACKTRACE( y2024 );
}
DEFTSCP( scrt1_remq_21_v );
DEFSTRING( t2921, "REMQ!", 5 );
TSCP scrt1_remq_21( x2047, y2048 )
TSCP x2047, y2048;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2921 ) ) );
L2922:
if ( EQ( UNSIGNED( y2048 ), UNSIGNED( EMPTYLIST ) ) ) goto L2923;
if ( EQ( TSCPTAG( y2048 ), PAIRTAG ) ) goto L2928;
scrt1__24__car_2derror( y2048 );
L2928:
X1 = PAIR_CAR( y2048 );
if ( NEQ( UNSIGNED( x2047 ), UNSIGNED( X1 ) ) ) goto L2925;
y2048 = PAIR_CDR( y2048 );
goto L2922;
L2925:
X1 = y2048;
L2932:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2936;
scrt1__24__cdr_2derror( X1 );
L2936:
X2 = PAIR_CDR( X1 );
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2933;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2942;
scrt1__24__car_2derror( X3 );
L2942:
X2 = PAIR_CAR( X3 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( x2047 ) ) ) goto L2938;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2947;
scrt1__24__cdr_2derror( X3 );
L2947:
X2 = PAIR_CDR( X3 );
SETGEN( PAIR_CDR( X1 ), X2 );
goto L2932;
L2938:
X1 = PAIR_CDR( X1 );
goto L2932;
L2933:
POPSTACKTRACE( y2048 );
L2923:
POPSTACKTRACE( y2048 );
}
DEFTSCP( scrt1_remv_21_v );
DEFSTRING( t2951, "REMV!", 5 );
TSCP scrt1_remv_21( x2112, y2113 )
TSCP x2112, y2113;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2951 ) ) );
L2952:
if ( EQ( UNSIGNED( y2113 ), UNSIGNED( EMPTYLIST ) ) ) goto L2953;
if ( EQ( TSCPTAG( y2113 ), PAIRTAG ) ) goto L2958;
scrt1__24__car_2derror( y2113 );
L2958:
X1 = PAIR_CAR( y2113 );
if ( NOT( OR( EQ( UNSIGNED( x2112 ),
UNSIGNED( X1 ) ),
AND( EQ( TSCPTAG( x2112 ), EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( x2112 ),
FLOATTAG ),
AND( EQ( TSCPTAG( X1 ),
EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( X1 ),
FLOATTAG ),
EQ( FLOAT_VALUE( x2112 ),
FLOAT_VALUE( X1 ) ) ) ) ) ) ) )
) goto L2955;
y2113 = PAIR_CDR( y2113 );
goto L2952;
L2955:
X1 = y2113;
L2962:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2966;
scrt1__24__cdr_2derror( X1 );
L2966:
X2 = PAIR_CDR( X1 );
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2963;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2972;
scrt1__24__car_2derror( X3 );
L2972:
X2 = PAIR_CAR( X3 );
if ( NOT( OR( EQ( UNSIGNED( X2 ),
UNSIGNED( x2112 ) ),
AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( X2 ),
FLOATTAG ),
AND( EQ( TSCPTAG( x2112 ),
EXTENDEDTAG ),
AND( EQ( TSCP_EXTENDEDTAG( x2112 ),
FLOATTAG ),
EQ( FLOAT_VALUE( X2 ),
FLOAT_VALUE( x2112 ) ) ) ) ) ) ) )
) goto L2968;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2977;
scrt1__24__cdr_2derror( X3 );
L2977:
X2 = PAIR_CDR( X3 );
SETGEN( PAIR_CDR( X1 ), X2 );
goto L2962;
L2968:
X1 = PAIR_CDR( X1 );
goto L2962;
L2963:
POPSTACKTRACE( y2113 );
L2953:
POPSTACKTRACE( y2113 );
}
DEFTSCP( scrt1_remove_21_v );
DEFSTRING( t2981, "REMOVE!", 7 );
TSCP scrt1_remove_21( x2177, y2178 )
TSCP x2177, y2178;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2981 ) ) );
L2982:
if ( EQ( UNSIGNED( y2178 ), UNSIGNED( EMPTYLIST ) ) ) goto L2983;
if ( EQ( TSCPTAG( y2178 ), PAIRTAG ) ) goto L2988;
scrt1__24__car_2derror( y2178 );
L2988:
X1 = PAIR_CAR( y2178 );
if ( FALSE( scrt1_equal_3f( x2177, X1 ) ) ) goto L2985;
y2178 = PAIR_CDR( y2178 );
goto L2982;
L2985:
X1 = y2178;
L2992:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2996;
scrt1__24__cdr_2derror( X1 );
L2996:
X2 = PAIR_CDR( X1 );
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2993;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3002;
scrt1__24__car_2derror( X3 );
L3002:
X2 = PAIR_CAR( X3 );
if ( FALSE( scrt1_equal_3f( X2, x2177 ) ) ) goto L2998;
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3007;
scrt1__24__cdr_2derror( X3 );
L3007:
X2 = PAIR_CDR( X3 );
SETGEN( PAIR_CDR( X1 ), X2 );
goto L2992;
L2998:
X1 = PAIR_CDR( X1 );
goto L2992;
L2993:
POPSTACKTRACE( y2178 );
L2983:
POPSTACKTRACE( y2178 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt3__init();
scrt6__init();
scrt2__init();
MAXDISPLAY( 0 );
}
void scrt1__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(scrt1 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2251 ) ),
ADR( scrt1_not_v ),
MAKEPROCEDURE( 1,
0, scrt1_not, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2255 ) ),
ADR( scrt1_boolean_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt1_boolean_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2259 ) ),
ADR( scrt1_eqv_3f_v ),
MAKEPROCEDURE( 2,
0, scrt1_eqv_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2261 ) ),
ADR( scrt1_eq_3f_v ),
MAKEPROCEDURE( 2,
0, scrt1_eq_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2263 ) ),
ADR( scrt1_equal_3f_v ),
MAKEPROCEDURE( 2,
0, scrt1_equal_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2315 ) ),
ADR( scrt1_pair_3f_v ),
MAKEPROCEDURE( 1,
0, scrt1_pair_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2317 ) ),
ADR( scrt1_cons_2a_v ),
MAKEPROCEDURE( 1,
1, scrt1_cons_2a, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2334 ) ),
ADR( scrt1__24__car_2derror_v ),
MAKEPROCEDURE( 1,
0,
scrt1__24__car_2derror,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2336 ) ),
ADR( scrt1__24__cdr_2derror_v ),
MAKEPROCEDURE( 1,
0,
scrt1__24__cdr_2derror,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2338 ) ),
ADR( scrt1_car_v ),
MAKEPROCEDURE( 1,
0, scrt1_car, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2343 ) ),
ADR( scrt1_cdr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2348 ) ),
ADR( scrt1_caar_v ),
MAKEPROCEDURE( 1,
0, scrt1_caar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2356 ) ),
ADR( scrt1_cadr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cadr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2364 ) ),
ADR( scrt1_cdar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2372 ) ),
ADR( scrt1_cddr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cddr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2380 ) ),
ADR( scrt1_caaar_v ),
MAKEPROCEDURE( 1,
0, scrt1_caaar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2391 ) ),
ADR( scrt1_caadr_v ),
MAKEPROCEDURE( 1,
0, scrt1_caadr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2402 ) ),
ADR( scrt1_cadar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cadar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2413 ) ),
ADR( scrt1_caddr_v ),
MAKEPROCEDURE( 1,
0, scrt1_caddr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2424 ) ),
ADR( scrt1_cdaar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdaar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2435 ) ),
ADR( scrt1_cdadr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdadr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2446 ) ),
ADR( scrt1_cddar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cddar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2457 ) ),
ADR( scrt1_cdddr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdddr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2468 ) ),
ADR( scrt1_caaaar_v ),
MAKEPROCEDURE( 1,
0, scrt1_caaaar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2482 ) ),
ADR( scrt1_caaadr_v ),
MAKEPROCEDURE( 1,
0, scrt1_caaadr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2496 ) ),
ADR( scrt1_caadar_v ),
MAKEPROCEDURE( 1,
0, scrt1_caadar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2510 ) ),
ADR( scrt1_caaddr_v ),
MAKEPROCEDURE( 1,
0, scrt1_caaddr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2524 ) ),
ADR( scrt1_cadaar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cadaar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2538 ) ),
ADR( scrt1_cadadr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cadadr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2552 ) ),
ADR( scrt1_caddar_v ),
MAKEPROCEDURE( 1,
0, scrt1_caddar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2566 ) ),
ADR( scrt1_cadddr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cadddr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2580 ) ),
ADR( scrt1_cdaaar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdaaar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2594 ) ),
ADR( scrt1_cdaadr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdaadr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2608 ) ),
ADR( scrt1_cdadar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdadar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2622 ) ),
ADR( scrt1_cdaddr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdaddr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2636 ) ),
ADR( scrt1_cddaar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cddaar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2650 ) ),
ADR( scrt1_cddadr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cddadr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2664 ) ),
ADR( scrt1_cdddar_v ),
MAKEPROCEDURE( 1,
0, scrt1_cdddar, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2678 ) ),
ADR( scrt1_cddddr_v ),
MAKEPROCEDURE( 1,
0, scrt1_cddddr, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2692 ) ),
ADR( scrt1_set_2dcar_21_v ),
MAKEPROCEDURE( 2,
0,
scrt1_set_2dcar_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2697 ) ),
ADR( scrt1_set_2dcdr_21_v ),
MAKEPROCEDURE( 2,
0,
scrt1_set_2dcdr_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2702 ) ),
ADR( scrt1_null_3f_v ),
MAKEPROCEDURE( 1,
0, scrt1_null_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2704 ) ),
ADR( scrt1_list_v ),
MAKEPROCEDURE( 0,
1, scrt1_list, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2706 ) ),
ADR( scrt1_length_v ),
MAKEPROCEDURE( 1,
0, scrt1_length, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2717 ) ),
ADR( scrt1_append_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt1_append_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2743 ) ),
ADR( scrt1_append_v ),
MAKEPROCEDURE( 0,
1, scrt1_append, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2769 ) ),
ADR( scrt1_reverse_v ),
MAKEPROCEDURE( 1,
0, scrt1_reverse, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2779 ) ),
ADR( scrt1_list_2dtail_v ),
MAKEPROCEDURE( 2,
0,
scrt1_list_2dtail, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2794 ) ),
ADR( scrt1_list_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt1_list_2dref, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2799 ) ),
ADR( scrt1_last_2dpair_v ),
MAKEPROCEDURE( 1,
0,
scrt1_last_2dpair, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2807 ) ),
ADR( scrt1_memq_v ),
MAKEPROCEDURE( 2,
0, scrt1_memq, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2817 ) ),
ADR( scrt1_memv_v ),
MAKEPROCEDURE( 2,
0, scrt1_memv, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2827 ) ),
ADR( scrt1_member_v ),
MAKEPROCEDURE( 2,
0, scrt1_member, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2837 ) ),
ADR( scrt1_assq_v ),
MAKEPROCEDURE( 2,
0, scrt1_assq, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2851 ) ),
ADR( scrt1_assv_v ),
MAKEPROCEDURE( 2,
0, scrt1_assv, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2865 ) ),
ADR( scrt1_assoc_v ),
MAKEPROCEDURE( 2,
0, scrt1_assoc, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2879 ) ),
ADR( scrt1_remq_v ),
MAKEPROCEDURE( 2,
0, scrt1_remq, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2893 ) ),
ADR( scrt1_remv_v ),
MAKEPROCEDURE( 2,
0, scrt1_remv, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2907 ) ),
ADR( scrt1_remove_v ),
MAKEPROCEDURE( 2,
0, scrt1_remove, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2921 ) ),
ADR( scrt1_remq_21_v ),
MAKEPROCEDURE( 2,
0, scrt1_remq_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2951 ) ),
ADR( scrt1_remv_21_v ),
MAKEPROCEDURE( 2,
0, scrt1_remv_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2981 ) ),
ADR( scrt1_remove_21_v ),
MAKEPROCEDURE( 2,
0,
scrt1_remove_21, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.