This is scexpanders1.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2048, "NOT", 3 );
DEFSTATICTSCP( c1949 );
DEFSTRING( t2049, "UNLESS", 6 );
DEFSTATICTSCP( c1948 );
DEFSTRING( t2050, "WHEN", 4 );
DEFSTATICTSCP( c1921 );
DEFSTRING( t2051, "AND", 3 );
DEFSTATICTSCP( c1834 );
DEFSTRING( t2052, "THUNK", 5 );
DEFSTATICTSCP( c1833 );
DEFSTRING( t2053, "key", 3 );
DEFSTATICTSCP2( c1782, t2053 );
DEFSTRING( t2054, "MEMV", 4 );
DEFSTATICTSCP( c1743 );
DEFSTRING( t2055, "Illegal form:", 13 );
DEFSTATICTSCP2( c1711, t2055 );
DEFSTRING( t2056, "CASE", 4 );
DEFSTATICTSCP( c1710 );
DEFSTRING( t2057, "Illegal form ~s:", 16 );
DEFSTATICTSCP2( c1683, t2057 );
DEFSTRING( t2058, "COND-CLAUSE", 11 );
DEFSTATICTSCP( c1682 );
DEFSTRING( t2059, "OR", 2 );
DEFSTATICTSCP( c1677 );
DEFSTRING( t2060, "THUNK3", 6 );
DEFSTATICTSCP( c1676 );
DEFSTRING( t2061, "THUNK2", 6 );
DEFSTATICTSCP( c1675 );
DEFSTRING( t2062, "TEST-RESULT", 11 );
DEFSTATICTSCP( c1670 );
DEFSTRING( t2063, "LET", 3 );
DEFSTATICTSCP( c1669 );
DEFSTRING( t2064, "COND", 4 );
DEFSTATICTSCP( c1664 );
DEFSTRING( t2065, "ELSE", 4 );
DEFSTATICTSCP( c1655 );
DEFSTRING( t2066, "=>", 2 );
DEFSTATICTSCP( c1637 );
DEFSTATICTSCP( c1611 );
DEFSTRING( t2067, "IF", 2 );
DEFSTATICTSCP( c1425 );
DEFSTRING( t2068, "SET!", 4 );
DEFSTATICTSCP( c1416 );
DEFSTRING( t2069, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1363, t2069 );
DEFSTRING( t2070, "SET-CDR!", 8 );
DEFSTATICTSCP( c1362 );
DEFSTRING( t2071, "BEGIN", 5 );
DEFSTATICTSCP( c1305 );
DEFSTRING( t2072, "EVAL", 4 );
DEFSTATICTSCP( c1294 );
DEFSTRING( t2073, "EVAL-WHEN", 9 );
DEFSTATICTSCP( c1275 );
DEFSTRING( t2074, "DEFINE-C-EXTERNAL", 17 );
DEFSTATICTSCP( c1269 );
DEFSTRING( t2075, "DEFINE-EXTERNAL", 15 );
DEFSTATICTSCP( c1263 );
DEFSTRING( t2076, "DEFINE-CONSTANT", 15 );
DEFSTATICTSCP( c1220 );
DEFSTRING( t2077, "DEFINE-MACRO", 12 );
DEFSTATICTSCP( c1179 );
DEFSTRING( t2078, "CDR", 3 );
DEFSTATICTSCP( c1168 );
DEFSTRING( t2079, "CONS", 4 );
DEFSTATICTSCP( c1167 );
DEFSTRING( t2080, "E", 1 );
DEFSTATICTSCP( c1166 );
DEFSTRING( t2081, "X", 1 );
DEFSTATICTSCP( c1165 );
DEFSTRING( t2082, "DEFINE-IN-LINE", 14 );
DEFSTATICTSCP( c1135 );
DEFSTRING( t2083, "DO-DEFINE", 9 );
DEFSTATICTSCP( c1114 );
DEFSTRING( t2084, "DEFINE", 6 );
DEFSTATICTSCP( c1071 );
DEFSTRING( t2085, "***** ~s is redefined~%", 23 );
DEFSTATICTSCP2( c1070, t2085 );
DEFSTRING( t2086, "QUOTE", 5 );
DEFSTATICTSCP( c1057 );
DEFSTRING( t2087, "LAMBDA", 6 );
DEFSTATICTSCP( c1046 );
DEFSTRING( t2088, "MAKE-PROMISE", 12 );
DEFSTATICTSCP( c1045 );
DEFSTRING( t2089, "Illegal form: ~s", 16 );
DEFSTATICTSCP2( c1044, t2089 );
DEFSTRING( t2090, "DELAY", 5 );
DEFSTATICTSCP( c1039 );
static void init_constants()
{
c1949 = STRINGTOSYMBOL( U_TX( ADR( t2048 ) ) );
CONSTANTEXP( ADR( c1949 ) );
c1948 = STRINGTOSYMBOL( U_TX( ADR( t2049 ) ) );
CONSTANTEXP( ADR( c1948 ) );
c1921 = STRINGTOSYMBOL( U_TX( ADR( t2050 ) ) );
CONSTANTEXP( ADR( c1921 ) );
c1834 = STRINGTOSYMBOL( U_TX( ADR( t2051 ) ) );
CONSTANTEXP( ADR( c1834 ) );
c1833 = STRINGTOSYMBOL( U_TX( ADR( t2052 ) ) );
CONSTANTEXP( ADR( c1833 ) );
c1743 = STRINGTOSYMBOL( U_TX( ADR( t2054 ) ) );
CONSTANTEXP( ADR( c1743 ) );
c1710 = STRINGTOSYMBOL( U_TX( ADR( t2056 ) ) );
CONSTANTEXP( ADR( c1710 ) );
c1682 = STRINGTOSYMBOL( U_TX( ADR( t2058 ) ) );
CONSTANTEXP( ADR( c1682 ) );
c1677 = STRINGTOSYMBOL( U_TX( ADR( t2059 ) ) );
CONSTANTEXP( ADR( c1677 ) );
c1676 = STRINGTOSYMBOL( U_TX( ADR( t2060 ) ) );
CONSTANTEXP( ADR( c1676 ) );
c1675 = STRINGTOSYMBOL( U_TX( ADR( t2061 ) ) );
CONSTANTEXP( ADR( c1675 ) );
c1670 = STRINGTOSYMBOL( U_TX( ADR( t2062 ) ) );
CONSTANTEXP( ADR( c1670 ) );
c1669 = STRINGTOSYMBOL( U_TX( ADR( t2063 ) ) );
CONSTANTEXP( ADR( c1669 ) );
c1664 = STRINGTOSYMBOL( U_TX( ADR( t2064 ) ) );
CONSTANTEXP( ADR( c1664 ) );
c1655 = STRINGTOSYMBOL( U_TX( ADR( t2065 ) ) );
CONSTANTEXP( ADR( c1655 ) );
c1637 = STRINGTOSYMBOL( U_TX( ADR( t2066 ) ) );
CONSTANTEXP( ADR( c1637 ) );
c1611 = EMPTYLIST;
c1611 = CONS( c1655, c1611 );
CONSTANTEXP( ADR( c1611 ) );
c1425 = STRINGTOSYMBOL( U_TX( ADR( t2067 ) ) );
CONSTANTEXP( ADR( c1425 ) );
c1416 = STRINGTOSYMBOL( U_TX( ADR( t2068 ) ) );
CONSTANTEXP( ADR( c1416 ) );
c1362 = STRINGTOSYMBOL( U_TX( ADR( t2070 ) ) );
CONSTANTEXP( ADR( c1362 ) );
c1305 = STRINGTOSYMBOL( U_TX( ADR( t2071 ) ) );
CONSTANTEXP( ADR( c1305 ) );
c1294 = STRINGTOSYMBOL( U_TX( ADR( t2072 ) ) );
CONSTANTEXP( ADR( c1294 ) );
c1275 = STRINGTOSYMBOL( U_TX( ADR( t2073 ) ) );
CONSTANTEXP( ADR( c1275 ) );
c1269 = STRINGTOSYMBOL( U_TX( ADR( t2074 ) ) );
CONSTANTEXP( ADR( c1269 ) );
c1263 = STRINGTOSYMBOL( U_TX( ADR( t2075 ) ) );
CONSTANTEXP( ADR( c1263 ) );
c1220 = STRINGTOSYMBOL( U_TX( ADR( t2076 ) ) );
CONSTANTEXP( ADR( c1220 ) );
c1179 = STRINGTOSYMBOL( U_TX( ADR( t2077 ) ) );
CONSTANTEXP( ADR( c1179 ) );
c1168 = STRINGTOSYMBOL( U_TX( ADR( t2078 ) ) );
CONSTANTEXP( ADR( c1168 ) );
c1167 = STRINGTOSYMBOL( U_TX( ADR( t2079 ) ) );
CONSTANTEXP( ADR( c1167 ) );
c1166 = STRINGTOSYMBOL( U_TX( ADR( t2080 ) ) );
CONSTANTEXP( ADR( c1166 ) );
c1165 = STRINGTOSYMBOL( U_TX( ADR( t2081 ) ) );
CONSTANTEXP( ADR( c1165 ) );
c1135 = STRINGTOSYMBOL( U_TX( ADR( t2082 ) ) );
CONSTANTEXP( ADR( c1135 ) );
c1114 = STRINGTOSYMBOL( U_TX( ADR( t2083 ) ) );
CONSTANTEXP( ADR( c1114 ) );
c1071 = STRINGTOSYMBOL( U_TX( ADR( t2084 ) ) );
CONSTANTEXP( ADR( c1071 ) );
c1057 = STRINGTOSYMBOL( U_TX( ADR( t2086 ) ) );
CONSTANTEXP( ADR( c1057 ) );
c1046 = STRINGTOSYMBOL( U_TX( ADR( t2087 ) ) );
CONSTANTEXP( ADR( c1046 ) );
c1045 = STRINGTOSYMBOL( U_TX( ADR( t2088 ) ) );
CONSTANTEXP( ADR( c1045 ) );
c1039 = STRINGTOSYMBOL( U_TX( ADR( t2090 ) ) );
CONSTANTEXP( ADR( c1039 ) );
}
EXTERNTSCPP( scexpand_install_2dexpander );
EXTERNTSCP( scexpand_install_2dexpander_v );
DEFSTRING( t2091, "scexpanders1_l1040 [inside TOP-LEVEL]", 37 );
EXTERNTSCPP( scexpand_islist );
EXTERNTSCP( scexpand_islist_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP scexpanders1_l1040( x1041, e1042 )
TSCP x1041, e1042;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2091 ) ) );
if ( FALSE( scexpand_islist( x1041,
_TSCP( 8 ),
CONS( _TSCP( 8 ), EMPTYLIST ) ) )
) goto L2093;
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( x1041 ), PAIRTAG ) ) goto L2096;
scrt1__24__cdr_2derror( x1041 );
L2096:
X5 = PAIR_CDR( x1041 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2099;
scrt1__24__car_2derror( X5 );
L2099:
X4 = CONS( PAIR_CAR( X5 ), X4 );
X2 = scrt1_cons_2a( c1045,
CONS( scrt1_cons_2a( c1046,
CONS( EMPTYLIST, X4 ) ),
X3 ) );
X1 = e1042;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1042,
PROCEDURE_CLOSURE( X1 ) ) );
L2093:
POPSTACKTRACE( scrt6_error( c1039,
c1044,
CONS( x1041, EMPTYLIST ) ) );
}
DEFSTRING( t2101, "scexpanders1_l1058 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1058( x1059, e1060 )
TSCP x1059, e1060;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2101 ) ) );
if ( TRUE( scexpand_islist( x1059,
_TSCP( 8 ),
CONS( _TSCP( 8 ), EMPTYLIST ) ) )
) goto L2103;
POPSTACKTRACE( scrt6_error( c1057,
c1044,
CONS( x1059, EMPTYLIST ) ) );
L2103:
POPSTACKTRACE( x1059 );
}
DEFTSCP( scexpanders1_do_2ddefine_v );
DEFSTRING( t2105, "DO-DEFINE", 9 );
EXTERNTSCPP( scrt2_top_2dlevel_2dvalue );
EXTERNTSCP( scrt2_top_2dlevel_2dvalue_v );
EXTERNTSCPP( scrt2_2dvalue_21_c9d2a496 );
EXTERNTSCP( scrt2_2dvalue_21_c9d2a496_v );
EXTERNTSCP( sc_undefined );
EXTERNTSCPP( scrt6_display );
EXTERNTSCP( scrt6_display_v );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
TSCP scexpanders1_do_2ddefine( s1063, v1064 )
TSCP s1063, v1064;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2105 ) ) );
X1 = scrt2_top_2dlevel_2dvalue( s1063 );
scrt2_2dvalue_21_c9d2a496( s1063, v1064 );
if ( EQ( UNSIGNED( X1 ), UNSIGNED( sc_undefined ) ) ) goto L2108;
X2 = scrt6_format( c1070, CONS( s1063, EMPTYLIST ) );
scrt6_display( X2, EMPTYLIST );
L2108:
POPSTACKTRACE( s1063 );
}
DEFSTRING( t2110, "scexpanders1_l1072 [inside TOP-LEVEL]", 37 );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( scrt1_caadr );
EXTERNTSCP( scrt1_caadr_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( scrt1_cdadr );
EXTERNTSCP( scrt1_cdadr_v );
TSCP scexpanders1_l1072( x1073, e1074 )
TSCP x1073, e1074;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2110 ) ) );
X1 = scexpand_islist( x1073,
_TSCP( 12 ),
CONS( _TSCP( 12 ), EMPTYLIST ) );
if ( FALSE( X1 ) ) goto L2128;
if ( EQ( TSCPTAG( x1073 ), PAIRTAG ) ) goto L2119;
scrt1__24__cdr_2derror( x1073 );
L2119:
X3 = PAIR_CDR( x1073 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2122;
scrt1__24__car_2derror( X3 );
L2122:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2128;
X2 = CONS( EMPTYLIST, EMPTYLIST );
X4 = scrt1_caddr( x1073 );
X3 = e1074;
X3 = UNKNOWNCALL( X3, 2 );
X2 = CONS( VIA( PROCEDURE_CODE( X3 ) )( X4,
e1074,
PROCEDURE_CLOSURE( X3 ) ),
X2 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = PAIR_CDR( x1073 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2126;
scrt1__24__car_2derror( X4 );
L2126:
POPSTACKTRACE( scrt1_cons_2a( c1114,
CONS( scrt1_cons_2a( c1057,
CONS( PAIR_CAR( X4 ),
X3 ) ),
X2 ) ) );
L2128:
X1 = scexpand_islist( x1073, _TSCP( 12 ), EMPTYLIST );
if ( FALSE( X1 ) ) goto L2149;
if ( EQ( TSCPTAG( x1073 ), PAIRTAG ) ) goto L2137;
scrt1__24__cdr_2derror( x1073 );
L2137:
X3 = PAIR_CDR( x1073 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2140;
scrt1__24__car_2derror( X3 );
L2140:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2149;
X2 = scrt1_caadr( x1073 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2149;
X2 = CONS( EMPTYLIST, EMPTYLIST );
X7 = PAIR_CDR( x1073 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2146;
scrt1__24__cdr_2derror( X7 );
L2146:
X6 = PAIR_CDR( X7 );
X7 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_append_2dtwo( X6, X7 ), EMPTYLIST );
X4 = scrt1_cons_2a( c1046,
CONS( scrt1_cdadr( x1073 ), X5 ) );
X3 = e1074;
X3 = UNKNOWNCALL( X3, 2 );
X2 = CONS( VIA( PROCEDURE_CODE( X3 ) )( X4,
e1074,
PROCEDURE_CLOSURE( X3 ) ),
X2 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1114,
CONS( scrt1_cons_2a( c1057,
CONS( scrt1_caadr( x1073 ),
X3 ) ),
X2 ) ) );
L2149:
POPSTACKTRACE( scrt6_error( c1071,
c1044,
CONS( x1073, EMPTYLIST ) ) );
}
DEFSTRING( t2150, "scexpanders1_l1136 [inside TOP-LEVEL]", 37 );
EXTERNTSCPP( sceval_eval );
EXTERNTSCP( sceval_eval_v );
TSCP scexpanders1_l1136( x1137, e1138 )
TSCP x1137, e1138;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2150 ) ) );
X1 = scexpand_islist( x1137, _TSCP( 12 ), EMPTYLIST );
if ( FALSE( X1 ) ) goto L2173;
if ( EQ( TSCPTAG( x1137 ), PAIRTAG ) ) goto L2160;
scrt1__24__cdr_2derror( x1137 );
L2160:
X3 = PAIR_CDR( x1137 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2163;
scrt1__24__car_2derror( X3 );
L2163:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2173;
X2 = scrt1_caadr( x1137 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2173;
X2 = scrt1_caadr( x1137 );
X3 = scrt1_cdadr( x1137 );
X5 = PAIR_CDR( x1137 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2169;
scrt1__24__cdr_2derror( X5 );
L2169:
X4 = PAIR_CDR( X5 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( c1166, X8 );
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X9 = CONS( scrt1_cons_2a( c1168, CONS( c1165, X10 ) ),
X9 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X12 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X11 = CONS( scrt1_append_2dtwo( X4, X12 ), EMPTYLIST );
X7 = CONS( scrt1_cons_2a( c1166,
CONS( scrt1_cons_2a( c1167,
CONS( scrt1_cons_2a( c1057,
CONS( scrt1_cons_2a( c1046,
CONS( X3,
X11 ) ),
X10 ) ),
X9 ) ),
X8 ) ),
X7 );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( c1046,
CONS( scrt1_cons_2a( c1165,
CONS( c1166, X8 ) ),
X7 ) );
X5 = sceval_eval( X6, EMPTYLIST );
scexpand_install_2dexpander( X2, X5 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1057, CONS( X2, X5 ) ) );
L2173:
POPSTACKTRACE( scrt6_error( c1135,
c1044,
CONS( x1137, EMPTYLIST ) ) );
}
DEFSTRING( t2174, "scexpanders1_l1180 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1180( x1181, e1182 )
TSCP x1181, e1182;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2174 ) ) );
X1 = scexpand_islist( x1181,
_TSCP( 12 ),
CONS( _TSCP( 12 ), EMPTYLIST ) );
if ( FALSE( X1 ) ) goto L2197;
if ( EQ( TSCPTAG( x1181 ), PAIRTAG ) ) goto L2183;
scrt1__24__cdr_2derror( x1181 );
L2183:
X3 = PAIR_CDR( x1181 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2186;
scrt1__24__car_2derror( X3 );
L2186:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2197;
X3 = PAIR_CDR( x1181 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2191;
scrt1__24__car_2derror( X3 );
L2191:
X2 = PAIR_CAR( X3 );
X4 = scrt1_caddr( x1181 );
X3 = sceval_eval( X4, EMPTYLIST );
scexpand_install_2dexpander( X2, X3 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = PAIR_CDR( x1181 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2195;
scrt1__24__car_2derror( X3 );
L2195:
POPSTACKTRACE( scrt1_cons_2a( c1057,
CONS( PAIR_CAR( X3 ), X2 ) ) );
L2197:
POPSTACKTRACE( scrt6_error( c1179,
c1044,
CONS( x1181, EMPTYLIST ) ) );
}
DEFSTRING( t2198, "scexpanders1_l1221 [inside TOP-LEVEL]", 37 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP scexpanders1_l1221( x1222, e1223 )
TSCP x1222, e1223;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2198 ) ) );
X1 = scexpand_islist( x1222,
_TSCP( 12 ),
CONS( _TSCP( 12 ), EMPTYLIST ) );
if ( FALSE( X1 ) ) goto L2222;
if ( EQ( TSCPTAG( x1222 ), PAIRTAG ) ) goto L2207;
scrt1__24__cdr_2derror( x1222 );
L2207:
X3 = PAIR_CDR( x1222 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2210;
scrt1__24__car_2derror( X3 );
L2210:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2222;
X3 = PAIR_CDR( x1222 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2215;
scrt1__24__car_2derror( X3 );
L2215:
X2 = PAIR_CAR( X3 );
X6 = scrt1_caddr( x1222 );
X5 = sceval_eval( X6, EMPTYLIST );
X4 = sc_cons( X5, EMPTYLIST );
X3 = X4;
scexpand_install_2dexpander( X2, X3 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = PAIR_CDR( x1222 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2220;
scrt1__24__car_2derror( X3 );
L2220:
POPSTACKTRACE( scrt1_cons_2a( c1057,
CONS( PAIR_CAR( X3 ), X2 ) ) );
L2222:
POPSTACKTRACE( scrt6_error( c1220,
c1044,
CONS( x1222, EMPTYLIST ) ) );
}
DEFSTRING( t2223, "scexpanders1_l1264 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1264( x1265, e1266 )
TSCP x1265, e1266;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2223 ) ) );
X4 = sc_cons( x1265, EMPTYLIST );
X3 = sc_cons( c1057, X4 );
X2 = X3;
X1 = e1266;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1266,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFSTRING( t2226, "scexpanders1_l1270 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1270( x1271, e1272 )
TSCP x1271, e1272;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2226 ) ) );
X4 = sc_cons( x1271, EMPTYLIST );
X3 = sc_cons( c1057, X4 );
X2 = X3;
X1 = e1272;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1272,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFSTRING( t2229, "scexpanders1_l1276 [inside TOP-LEVEL]", 37 );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
TSCP scexpanders1_l1276( x1277, e1278 )
TSCP x1277, e1278;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2229 ) ) );
X1 = scexpand_islist( x1277, _TSCP( 12 ), EMPTYLIST );
if ( FALSE( X1 ) ) goto L2253;
if ( EQ( TSCPTAG( x1277 ), PAIRTAG ) ) goto L2238;
scrt1__24__cdr_2derror( x1277 );
L2238:
X3 = PAIR_CDR( x1277 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2241;
scrt1__24__car_2derror( X3 );
L2241:
X2 = PAIR_CAR( X3 );
if ( FALSE( scexpand_islist( X2, _TSCP( 4 ), EMPTYLIST ) )
) goto L2253;
X3 = PAIR_CDR( x1277 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2247;
scrt1__24__car_2derror( X3 );
L2247:
X2 = PAIR_CAR( X3 );
if ( FALSE( scrt1_memq( c1294, X2 ) ) ) goto L2243;
X6 = PAIR_CDR( x1277 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2251;
scrt1__24__cdr_2derror( X6 );
L2251:
X5 = PAIR_CDR( X6 );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X3 = scrt1_cons_2a( c1305,
CONS( scrt1_append_2dtwo( X5, X6 ),
EMPTYLIST ) );
X2 = e1278;
X2 = UNKNOWNCALL( X2, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( X3,
e1278,
PROCEDURE_CLOSURE( X2 ) ) );
L2243:
POPSTACKTRACE( FALSEVALUE );
L2253:
POPSTACKTRACE( scrt6_error( c1275,
c1044,
CONS( x1277, EMPTYLIST ) ) );
}
DEFSTRING( t2254, "scexpanders1_l1316 [inside TOP-LEVEL]", 37 );
EXTERNTSCPP( xpanders1_2dexpander_e1685c0 );
EXTERNTSCP( xpanders1_2dexpander_e1685c0_v );
EXTERNTSCPP( scexpanders1_lambda_2ddefines );
EXTERNTSCP( scexpanders1_lambda_2ddefines_v );
TSCP scexpanders1_l1316( x1317, e1318 )
TSCP x1317, e1318;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2254 ) ) );
X1 = xpanders1_2dexpander_e1685c0( e1318 );
if ( FALSE( scexpand_islist( x1317,
_TSCP( 12 ), EMPTYLIST ) )
) goto L2257;
if ( EQ( TSCPTAG( x1317 ), PAIRTAG ) ) goto L2260;
scrt1__24__cdr_2derror( x1317 );
L2260:
X6 = PAIR_CDR( x1317 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2263;
scrt1__24__cdr_2derror( X6 );
L2263:
X5 = PAIR_CDR( X6 );
X6 = X5;
X7 = EMPTYLIST;
X8 = EMPTYLIST;
L2267:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L2268;
X4 = X7;
goto L2275;
L2268:
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2271;
scrt1__24__car_2derror( X6 );
L2271:
X12 = PAIR_CAR( X6 );
X11 = X1;
X11 = UNKNOWNCALL( X11, 2 );
X10 = VIA( PROCEDURE_CODE( X11 ) )( X12,
X1,
PROCEDURE_CLOSURE( X11 ) );
X9 = sc_cons( X10, EMPTYLIST );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2274;
X10 = PAIR_CDR( X6 );
X8 = X9;
X7 = X9;
X6 = X10;
goto L2267;
L2274:
X10 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2279;
scrt6_error( c1362, c1363, CONS( X8, EMPTYLIST ) );
L2279:
X8 = SETGEN( PAIR_CDR( X8 ), X9 );
X6 = X10;
goto L2267;
L2275:
X3 = scexpanders1_lambda_2ddefines( X4 );
X4 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X2 = CONS( scrt1_append_2dtwo( X3, X4 ), EMPTYLIST );
X3 = PAIR_CDR( x1317 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2283;
scrt1__24__car_2derror( X3 );
L2283:
POPSTACKTRACE( scrt1_cons_2a( c1046,
CONS( PAIR_CAR( X3 ), X2 ) ) );
L2257:
POPSTACKTRACE( scrt6_error( c1046,
c1044,
CONS( x1317, EMPTYLIST ) ) );
}
DEFTSCP( scexpanders1_lambda_2ddefines_v );
DEFSTRING( t2285, "SCEXPANDERS1_LAMBDA-DEFINES", 27 );
EXTERNTSCPP( scrt1_cadadr );
EXTERNTSCP( scrt1_cadadr_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
EXTERNTSCPP( scrt4_vector_2d_3elist );
EXTERNTSCP( scrt4_vector_2d_3elist_v );
EXTERNTSCPP( sc_make_2dvector );
EXTERNTSCP( sc_make_2dvector_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
TSCP scexpanders1_lambda_2ddefines( b1387 )
TSCP b1387;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2285 ) ) );
X1 = b1387;
X2 = EMPTYLIST;
X3 = EMPTYLIST;
X4 = EMPTYLIST;
L2288:
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2289;
X5 = PAIR_CAR( X1 );
X6 = BOOLEAN( NEQ( TSCPTAG( X5 ), PAIRTAG ) );
if ( TRUE( X6 ) ) goto L2297;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2301;
scrt1__24__car_2derror( X5 );
L2301:
X7 = PAIR_CAR( X5 );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( c1114 ) ) ) goto L2297;
X7 = PAIR_CDR( X1 );
X9 = scrt1_cadadr( X5 );
X8 = sc_cons( X9, X3 );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( scrt1_caddr( X5 ), X10 );
X9 = scrt1_cons_2a( c1416,
CONS( scrt1_cadadr( X5 ), X10 ) );
X4 = sc_cons( X9, X4 );
X3 = X8;
X1 = X7;
goto L2288;
L2289:
if ( FALSE( X3 ) ) goto L2304;
X9 = scrt1_reverse( X4 );
X12 = scrt1_reverse( X2 );
X13 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X11 = scrt1_append_2dtwo( X12, X13 );
X10 = scrt1_cons_2a( X11, EMPTYLIST );
X8 = CONS( scrt1_append_2dtwo( X9, X10 ), EMPTYLIST );
X7 = scrt1_cons_2a( c1046, CONS( X3, X8 ) );
X11 = scrt1_length( X3 );
X10 = sc_make_2dvector( X11,
CONS( _TSCP( 0 ), EMPTYLIST ) );
X9 = scrt4_vector_2d_3elist( X10 );
X10 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( X7,
CONS( scrt1_append_2dtwo( X9, X10 ),
EMPTYLIST ) );
POPSTACKTRACE( scrt1_cons_2a( X6,
CONS( EMPTYLIST, EMPTYLIST ) ) );
L2304:
POPSTACKTRACE( b1387 );
L2297:
X6 = PAIR_CDR( X1 );
X7 = sc_cons( X5, X2 );
X2 = X7;
X1 = X6;
goto L2288;
}
DEFSTRING( t2307, "scexpanders1_l1426 [inside TOP-LEVEL]", 37 );
EXTERNTSCPP( scrt1_cadddr );
EXTERNTSCP( scrt1_cadddr_v );
TSCP scexpanders1_l1426( x1427, e1428 )
TSCP x1427, e1428;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2307 ) ) );
if ( FALSE( scexpand_islist( x1427,
_TSCP( 12 ),
CONS( _TSCP( 12 ), EMPTYLIST ) ) )
) goto L2309;
if ( EQ( TSCPTAG( x1427 ), PAIRTAG ) ) goto L2312;
scrt1__24__cdr_2derror( x1427 );
L2312:
X6 = PAIR_CDR( x1427 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2315;
scrt1__24__car_2derror( X6 );
L2315:
X5 = PAIR_CAR( X6 );
X4 = e1428;
X4 = UNKNOWNCALL( X4, 2 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( X5,
e1428,
PROCEDURE_CLOSURE( X4 ) );
X7 = scrt1_caddr( x1427 );
X6 = e1428;
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( X7,
e1428,
PROCEDURE_CLOSURE( X6 ) );
X6 = sc_cons( FALSEVALUE, EMPTYLIST );
X4 = sc_cons( X5, X6 );
X2 = sc_cons( X3, X4 );
X1 = sc_cons( c1425, X2 );
POPSTACKTRACE( X1 );
L2309:
if ( FALSE( scexpand_islist( x1427,
_TSCP( 16 ),
CONS( _TSCP( 16 ), EMPTYLIST ) ) )
) goto L2318;
if ( EQ( TSCPTAG( x1427 ), PAIRTAG ) ) goto L2321;
scrt1__24__cdr_2derror( x1427 );
L2321:
X6 = PAIR_CDR( x1427 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2324;
scrt1__24__car_2derror( X6 );
L2324:
X5 = PAIR_CAR( X6 );
X4 = e1428;
X4 = UNKNOWNCALL( X4, 2 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( X5,
e1428,
PROCEDURE_CLOSURE( X4 ) );
X7 = scrt1_caddr( x1427 );
X6 = e1428;
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( X7,
e1428,
PROCEDURE_CLOSURE( X6 ) );
X9 = scrt1_cadddr( x1427 );
X8 = e1428;
X8 = UNKNOWNCALL( X8, 2 );
X7 = VIA( PROCEDURE_CODE( X8 ) )( X9,
e1428,
PROCEDURE_CLOSURE( X8 ) );
X6 = sc_cons( X7, EMPTYLIST );
X4 = sc_cons( X5, X6 );
X2 = sc_cons( X3, X4 );
X1 = sc_cons( c1425, X2 );
POPSTACKTRACE( X1 );
L2318:
POPSTACKTRACE( scrt6_error( c1425,
c1044,
CONS( x1427, EMPTYLIST ) ) );
}
DEFSTRING( t2327, "scexpanders1_l1454 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1454( x1455, e1456 )
TSCP x1455, e1456;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2327 ) ) );
X1 = scexpand_islist( x1455,
_TSCP( 12 ),
CONS( _TSCP( 12 ), EMPTYLIST ) );
if ( FALSE( X1 ) ) goto L2345;
if ( EQ( TSCPTAG( x1455 ), PAIRTAG ) ) goto L2336;
scrt1__24__cdr_2derror( x1455 );
L2336:
X3 = PAIR_CDR( x1455 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2339;
scrt1__24__car_2derror( X3 );
L2339:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2345;
X2 = CONS( EMPTYLIST, EMPTYLIST );
X4 = scrt1_caddr( x1455 );
X3 = e1456;
X3 = UNKNOWNCALL( X3, 2 );
X2 = CONS( VIA( PROCEDURE_CODE( X3 ) )( X4,
e1456,
PROCEDURE_CLOSURE( X3 ) ),
X2 );
X3 = PAIR_CDR( x1455 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2343;
scrt1__24__car_2derror( X3 );
L2343:
POPSTACKTRACE( scrt1_cons_2a( c1416,
CONS( PAIR_CAR( X3 ), X2 ) ) );
L2345:
POPSTACKTRACE( scrt6_error( c1416,
c1044,
CONS( x1455, EMPTYLIST ) ) );
}
DEFSTRING( t2346, "scexpanders1_l1483 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1483( x1484, e1485 )
TSCP x1484, e1485;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2346 ) ) );
if ( FALSE( scexpand_islist( x1484, _TSCP( 8 ), EMPTYLIST ) )
) goto L2348;
if ( EQ( TSCPTAG( x1484 ), PAIRTAG ) ) goto L2351;
scrt1__24__cdr_2derror( x1484 );
L2351:
X3 = PAIR_CDR( x1484 );
X4 = X3;
X5 = EMPTYLIST;
X6 = EMPTYLIST;
L2355:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2356;
X2 = X5;
goto L2363;
L2356:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2359;
scrt1__24__car_2derror( X4 );
L2359:
X10 = PAIR_CAR( X4 );
X9 = e1485;
X9 = UNKNOWNCALL( X9, 2 );
X8 = VIA( PROCEDURE_CODE( X9 ) )( X10,
e1485,
PROCEDURE_CLOSURE( X9 ) );
X7 = sc_cons( X8, EMPTYLIST );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L2362;
X8 = PAIR_CDR( X4 );
X6 = X7;
X5 = X7;
X4 = X8;
goto L2355;
L2362:
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2367;
scrt6_error( c1362, c1363, CONS( X6, EMPTYLIST ) );
L2367:
X6 = SETGEN( PAIR_CDR( X6 ), X7 );
X4 = X8;
goto L2355;
L2363:
X3 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1305,
CONS( scrt1_append_2dtwo( X2, X3 ),
EMPTYLIST ) ) );
L2348:
POPSTACKTRACE( scrt6_error( c1305,
c1044,
CONS( x1484, EMPTYLIST ) ) );
}
DEFTSCP( xpanders1_2dexpander_e1685c0_v );
DEFSTRING( t2369, "SCEXPANDERS1_INTERNAL-BEGIN-EXPANDER", 36 );
DEFSTRING( t2372,
"scexpanders1_l1532 [inside INTERNAL-BEGIN-EXPANDER]", 51 );
TSCP scexpanders1_l1532( e1533, e1534, c2371 )
TSCP e1533, e1534, c2371;
{
TSCP X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2372 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2371, 0 );
X3 = BOOLEAN( EQ( TSCPTAG( e1533 ), PAIRTAG ) );
if ( FALSE( X3 ) ) goto L2402;
if ( EQ( TSCPTAG( e1533 ), PAIRTAG ) ) goto L2381;
scrt1__24__car_2derror( e1533 );
L2381:
X4 = PAIR_CAR( e1533 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1305 ) ) ) goto L2402;
if ( FALSE( scexpand_islist( e1533, _TSCP( 8 ), EMPTYLIST ) )
) goto L2383;
X7 = PAIR_CDR( e1533 );
X8 = X7;
X9 = EMPTYLIST;
X10 = EMPTYLIST;
L2388:
if ( NEQ( UNSIGNED( X8 ), UNSIGNED( EMPTYLIST ) ) ) goto L2389;
X6 = X9;
goto L2396;
L2389:
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2392;
scrt1__24__car_2derror( X8 );
L2392:
X14 = PAIR_CAR( X8 );
X13 = e1534;
X13 = UNKNOWNCALL( X13, 2 );
X12 = VIA( PROCEDURE_CODE( X13 ) )( X14,
e1534,
PROCEDURE_CLOSURE( X13 ) );
X11 = sc_cons( X12, EMPTYLIST );
if ( NEQ( UNSIGNED( X9 ), UNSIGNED( EMPTYLIST ) ) ) goto L2395;
X12 = PAIR_CDR( X8 );
X10 = X11;
X9 = X11;
X8 = X12;
goto L2388;
L2395:
X12 = PAIR_CDR( X8 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L2400;
scrt6_error( c1362,
c1363, CONS( X10, EMPTYLIST ) );
L2400:
X10 = SETGEN( PAIR_CDR( X10 ), X11 );
X8 = X12;
goto L2388;
L2396:
X5 = scexpanders1_lambda_2ddefines( X6 );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X2 = scrt1_cons_2a( c1305,
CONS( scrt1_append_2dtwo( X5, X6 ),
EMPTYLIST ) );
goto L2403;
L2383:
X2 = scrt6_error( c1305,
c1044, CONS( e1533, EMPTYLIST ) );
goto L2403;
L2402:
X3 = DISPLAY( 0 );
X3 = UNKNOWNCALL( X3, 2 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( e1533,
e1534,
PROCEDURE_CLOSURE( X3 ) );
L2403:
DISPLAY( 0 ) = X1;
POPSTACKTRACE( X2 );
}
TSCP xpanders1_2dexpander_e1685c0( o1531 )
TSCP o1531;
{
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2369 ) ) );
DISPLAY( 0 ) = o1531;
SDVAL = MAKEPROCEDURE( 2,
0,
scexpanders1_l1532,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 0 ) ) );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( scexpanders1_cond_2dmacro_v );
DEFSTRING( t2404, "SCEXPANDERS1_COND-MACRO", 23 );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
TSCP scexpanders1_cond_2dmacro( e1593 )
TSCP e1593;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2404 ) ) );
if ( EQ( TSCPTAG( e1593 ), PAIRTAG ) ) goto L2407;
scrt1__24__cdr_2derror( e1593 );
L2407:
X3 = PAIR_CDR( e1593 );
if ( FALSE( X3 ) ) goto L2410;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2413;
scrt1__24__car_2derror( X3 );
L2413:
X2 = PAIR_CAR( X3 );
goto L2411;
L2410:
X2 = X3;
L2411:
if ( FALSE( X2 ) ) goto L2416;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2419;
scrt1__24__cdr_2derror( X3 );
L2419:
X1 = PAIR_CDR( X3 );
goto L2417;
L2416:
X1 = X2;
L2417:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2422;
X4 = BOOLEAN( NEQ( TSCPTAG( X2 ), PAIRTAG ) );
if ( TRUE( X4 ) ) goto L2428;
if ( TRUE( scrt1_equal_3f( X2, c1611 ) ) ) goto L2428;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2434;
scrt1__24__cdr_2derror( X2 );
L2434:
X5 = PAIR_CDR( X2 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L2431;
X5 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1664,
CONS( scrt1_append_2dtwo( X1, X7 ),
EMPTYLIST ) ),
X5 );
POPSTACKTRACE( scrt1_cons_2a( c1677,
CONS( PAIR_CAR( X2 ), X5 ) ) );
L2431:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2438;
scrt1__24__cdr_2derror( X2 );
L2438:
X7 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2441;
scrt1__24__car_2derror( X7 );
L2441:
X6 = PAIR_CAR( X7 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1637 ) ) );
if ( FALSE( X5 ) ) goto L2457;
X6 = scrt1_length( X2 );
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 12 ) ) ),
3 ) ) goto L2449;
if ( EQ( UNSIGNED( X6 ), UNSIGNED( _TSCP( 12 ) ) ) ) goto L2453;
goto L2457;
L2449:
if ( TRUE( scrt2__3d_2dtwo( X6, _TSCP( 12 ) ) ) ) goto L2453;
goto L2457;
L2422:
POPSTACKTRACE( FALSEVALUE );
L2428:
POPSTACKTRACE( scrt6_error( c1682,
c1683,
CONS( e1593, EMPTYLIST ) ) );
L2453:
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( scrt1_cons_2a( c1676,
CONS( EMPTYLIST, EMPTYLIST ) ),
X4 );
X5 = scrt1_cons_2a( c1675,
CONS( EMPTYLIST, EMPTYLIST ) );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( scrt1_cons_2a( X5, CONS( c1670, X6 ) ),
X4 );
X3 = CONS( scrt1_cons_2a( c1425, CONS( c1670, X4 ) ),
X3 );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X4 = scrt1_cons_2a( c1670,
CONS( PAIR_CAR( X2 ), X5 ) );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X9 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_cons_2a( c1664,
CONS( scrt1_append_2dtwo( X1, X9 ),
EMPTYLIST ) ),
X7 );
X5 = CONS( scrt1_cons_2a( c1676,
CONS( scrt1_cons_2a( c1046,
CONS( EMPTYLIST,
X7 ) ),
X6 ) ),
X5 );
X6 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( scrt1_caddr( X2 ), X7 );
POPSTACKTRACE( scrt1_cons_2a( c1669,
CONS( scrt1_cons_2a( X4,
CONS( scrt1_cons_2a( c1675,
CONS( scrt1_cons_2a( c1046,
CONS( EMPTYLIST,
X7 ) ),
X6 ) ),
X5 ) ),
X3 ) ) );
L2457:
X3 = PAIR_CAR( X2 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1655 ) ) ) goto L2459;
X4 = PAIR_CDR( X2 );
X5 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
POPSTACKTRACE( scrt1_cons_2a( c1305,
CONS( scrt1_append_2dtwo( X4, X5 ),
EMPTYLIST ) ) );
L2459:
X3 = CONS( EMPTYLIST, EMPTYLIST );
X5 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1664,
CONS( scrt1_append_2dtwo( X1, X5 ),
EMPTYLIST ) ),
X3 );
X5 = PAIR_CDR( X2 );
X6 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X3 = CONS( scrt1_cons_2a( c1305,
CONS( scrt1_append_2dtwo( X5, X6 ),
EMPTYLIST ) ),
X3 );
POPSTACKTRACE( scrt1_cons_2a( c1425,
CONS( PAIR_CAR( X2 ), X3 ) ) );
}
DEFSTRING( t2465, "scexpanders1_l1704 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1704( x1705, e1706 )
TSCP x1705, e1706;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2465 ) ) );
X2 = scexpanders1_cond_2dmacro( x1705 );
X1 = e1706;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1706,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scexpanders1_case_2dmacro_v );
DEFSTRING( t2467, "SCEXPANDERS1_CASE-MACRO", 23 );
EXTERNTSCPP( sc_d_2dsymbol_ab4b4447 );
EXTERNTSCP( sc_d_2dsymbol_ab4b4447_v );
TSCP scexpanders1_case_2dmacro( e1709 )
TSCP e1709;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2467 ) ) );
if ( FALSE( scexpand_islist( e1709,
_TSCP( 12 ), EMPTYLIST ) )
) goto L2469;
if ( EQ( TSCPTAG( e1709 ), PAIRTAG ) ) goto L2473;
scrt1__24__cdr_2derror( e1709 );
L2473:
X5 = PAIR_CDR( e1709 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2476;
scrt1__24__car_2derror( X5 );
L2476:
X2 = PAIR_CAR( X5 );
X3 = sc_d_2dsymbol_ab4b4447( c1782 );
X5 = PAIR_CDR( e1709 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2480;
scrt1__24__cdr_2derror( X5 );
L2480:
X4 = PAIR_CDR( X5 );
X1 = EMPTYLIST;
L2482:
X1 = CONS( X1, EMPTYLIST );
X5 = BOOLEAN( NEQ( TSCPTAG( X4 ), PAIRTAG ) );
if ( TRUE( X5 ) ) goto L2487;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2491;
scrt1__24__car_2derror( X4 );
L2491:
X6 = PAIR_CAR( X4 );
if ( FALSE( scexpand_islist( X6, _TSCP( 8 ), EMPTYLIST ) )
) goto L2487;
X7 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2498;
scrt1__24__car_2derror( X7 );
L2498:
X6 = PAIR_CAR( X7 );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1655 ) ) ) goto L2494;
X7 = PAIR_CAR( X4 );
X6 = sc_cons( X7, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X6 );
goto L2495;
L2494:
X9 = CONS( EMPTYLIST, EMPTYLIST );
X10 = CONS( EMPTYLIST, EMPTYLIST );
X11 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2503;
scrt1__24__car_2derror( X11 );
L2503:
X9 = CONS( scrt1_cons_2a( c1057,
CONS( PAIR_CAR( X11 ), X10 ) ),
X9 );
X8 = scrt1_cons_2a( c1743, CONS( X3, X9 ) );
X11 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L2507;
scrt1__24__cdr_2derror( X11 );
L2507:
X10 = PAIR_CDR( X11 );
X11 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X7 = scrt1_cons_2a( X8,
CONS( scrt1_append_2dtwo( X10, X11 ),
EMPTYLIST ) );
X6 = sc_cons( X7, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X6 );
L2495:
X6 = PAIR_CDR( X4 );
X1 = PAIR_CAR( X1 );
X4 = X6;
goto L2482;
L2469:
POPSTACKTRACE( scrt6_error( c1710,
c1711,
CONS( e1709, EMPTYLIST ) ) );
L2487:
if ( FALSE( X4 ) ) goto L2510;
POPSTACKTRACE( scrt6_error( c1710,
c1044,
CONS( e1709, EMPTYLIST ) ) );
L2510:
X5 = CONS( EMPTYLIST, EMPTYLIST );
X7 = scrt1_reverse( PAIR_CAR( X1 ) );
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1664,
CONS( scrt1_append_2dtwo( X7, X8 ),
EMPTYLIST ) ),
X5 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X6 = scrt1_cons_2a( X3, CONS( X2, X7 ) );
POPSTACKTRACE( scrt1_cons_2a( c1669,
CONS( scrt1_cons_2a( X6,
CONS( EMPTYLIST,
EMPTYLIST ) ),
X5 ) ) );
}
DEFSTRING( t2512, "scexpanders1_l1793 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1793( x1794, e1795 )
TSCP x1794, e1795;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2512 ) ) );
X2 = scexpanders1_case_2dmacro( x1794 );
X1 = e1795;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1795,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scexpanders1_and_2dmacro_v );
DEFSTRING( t2514, "SCEXPANDERS1_AND-MACRO", 22 );
TSCP scexpanders1_and_2dmacro( e1798 )
TSCP e1798;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2514 ) ) );
if ( EQ( TSCPTAG( e1798 ), PAIRTAG ) ) goto L2519;
scrt1__24__cdr_2derror( e1798 );
L2519:
X1 = PAIR_CDR( e1798 );
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2516;
X2 = PAIR_CDR( e1798 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2525;
scrt1__24__cdr_2derror( X2 );
L2525:
X1 = PAIR_CDR( X2 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2521;
X1 = PAIR_CDR( e1798 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2529;
scrt1__24__car_2derror( X1 );
L2529:
POPSTACKTRACE( PAIR_CAR( X1 ) );
L2521:
X1 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( c1165, X2 );
X2 = CONS( scrt1_cons_2a( c1833,
CONS( EMPTYLIST, EMPTYLIST ) ),
X2 );
X1 = CONS( scrt1_cons_2a( c1425, CONS( c1165, X2 ) ),
X1 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = PAIR_CDR( e1798 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2533;
scrt1__24__car_2derror( X4 );
L2533:
X2 = scrt1_cons_2a( c1165,
CONS( PAIR_CAR( X4 ), X3 ) );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X8 = PAIR_CDR( e1798 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2537;
scrt1__24__cdr_2derror( X8 );
L2537:
X7 = PAIR_CDR( X8 );
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1834,
CONS( scrt1_append_2dtwo( X7, X8 ),
EMPTYLIST ) ),
X5 );
POPSTACKTRACE( scrt1_cons_2a( c1669,
CONS( scrt1_cons_2a( X2,
CONS( scrt1_cons_2a( c1833,
CONS( scrt1_cons_2a( c1046,
CONS( EMPTYLIST,
X5 ) ),
X4 ) ),
X3 ) ),
X1 ) ) );
L2516:
POPSTACKTRACE( TRUEVALUE );
}
DEFSTRING( t2539, "scexpanders1_l1855 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1855( x1856, e1857 )
TSCP x1856, e1857;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2539 ) ) );
X2 = scexpanders1_and_2dmacro( x1856 );
X1 = e1857;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1857,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scexpanders1_or_2dmacro_v );
DEFSTRING( t2541, "SCEXPANDERS1_OR-MACRO", 21 );
TSCP scexpanders1_or_2dmacro( e1860 )
TSCP e1860;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2541 ) ) );
if ( EQ( TSCPTAG( e1860 ), PAIRTAG ) ) goto L2546;
scrt1__24__cdr_2derror( e1860 );
L2546:
X1 = PAIR_CDR( e1860 );
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2543;
X2 = PAIR_CDR( e1860 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2552;
scrt1__24__cdr_2derror( X2 );
L2552:
X1 = PAIR_CDR( X2 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2548;
X1 = PAIR_CDR( e1860 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2556;
scrt1__24__car_2derror( X1 );
L2556:
POPSTACKTRACE( PAIR_CAR( X1 ) );
L2548:
X1 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X2 = CONS( scrt1_cons_2a( c1833,
CONS( EMPTYLIST, EMPTYLIST ) ),
X2 );
X2 = CONS( c1165, X2 );
X1 = CONS( scrt1_cons_2a( c1425, CONS( c1165, X2 ) ),
X1 );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = PAIR_CDR( e1860 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2560;
scrt1__24__car_2derror( X4 );
L2560:
X2 = scrt1_cons_2a( c1165,
CONS( PAIR_CAR( X4 ), X3 ) );
X3 = CONS( EMPTYLIST, EMPTYLIST );
X4 = CONS( EMPTYLIST, EMPTYLIST );
X5 = CONS( EMPTYLIST, EMPTYLIST );
X8 = PAIR_CDR( e1860 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2564;
scrt1__24__cdr_2derror( X8 );
L2564:
X7 = PAIR_CDR( X8 );
X8 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X5 = CONS( scrt1_cons_2a( c1677,
CONS( scrt1_append_2dtwo( X7, X8 ),
EMPTYLIST ) ),
X5 );
POPSTACKTRACE( scrt1_cons_2a( c1669,
CONS( scrt1_cons_2a( X2,
CONS( scrt1_cons_2a( c1833,
CONS( scrt1_cons_2a( c1046,
CONS( EMPTYLIST,
X5 ) ),
X4 ) ),
X3 ) ),
X1 ) ) );
L2543:
POPSTACKTRACE( FALSEVALUE );
}
DEFSTRING( t2566, "scexpanders1_l1915 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1915( x1916, e1917 )
TSCP x1916, e1917;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2566 ) ) );
X2 = scexpanders1_or_2dmacro( x1916 );
X1 = e1917;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1917,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scexpanders1_when_2dmacro_v );
DEFSTRING( t2568, "SCEXPANDERS1_WHEN-MACRO", 23 );
TSCP scexpanders1_when_2dmacro( e1920 )
TSCP e1920;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2568 ) ) );
if ( FALSE( scexpand_islist( e1920,
_TSCP( 12 ), EMPTYLIST ) )
) goto L2570;
X1 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( e1920 ), PAIRTAG ) ) goto L2573;
scrt1__24__cdr_2derror( e1920 );
L2573:
X4 = PAIR_CDR( e1920 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2576;
scrt1__24__cdr_2derror( X4 );
L2576:
X3 = PAIR_CDR( X4 );
X4 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X1 = CONS( scrt1_cons_2a( c1305,
CONS( scrt1_append_2dtwo( X3, X4 ),
EMPTYLIST ) ),
X1 );
X2 = PAIR_CDR( e1920 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2580;
scrt1__24__car_2derror( X2 );
L2580:
POPSTACKTRACE( scrt1_cons_2a( c1425,
CONS( PAIR_CAR( X2 ), X1 ) ) );
L2570:
POPSTACKTRACE( scrt6_error( c1921,
c1044,
CONS( e1920, EMPTYLIST ) ) );
}
DEFSTRING( t2582, "scexpanders1_l1942 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1942( x1943, e1944 )
TSCP x1943, e1944;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2582 ) ) );
X2 = scexpanders1_when_2dmacro( x1943 );
X1 = e1944;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1944,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scexpanders1_unless_2dmacro_v );
DEFSTRING( t2584, "SCEXPANDERS1_UNLESS-MACRO", 25 );
TSCP scexpanders1_unless_2dmacro( e1947 )
TSCP e1947;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2584 ) ) );
if ( FALSE( scexpand_islist( e1947,
_TSCP( 12 ), EMPTYLIST ) )
) goto L2586;
X1 = CONS( EMPTYLIST, EMPTYLIST );
if ( EQ( TSCPTAG( e1947 ), PAIRTAG ) ) goto L2589;
scrt1__24__cdr_2derror( e1947 );
L2589:
X4 = PAIR_CDR( e1947 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2592;
scrt1__24__cdr_2derror( X4 );
L2592:
X3 = PAIR_CDR( X4 );
X4 = scrt1_cons_2a( EMPTYLIST, EMPTYLIST );
X1 = CONS( scrt1_cons_2a( c1305,
CONS( scrt1_append_2dtwo( X3, X4 ),
EMPTYLIST ) ),
X1 );
X2 = CONS( EMPTYLIST, EMPTYLIST );
X3 = PAIR_CDR( e1947 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2596;
scrt1__24__car_2derror( X3 );
L2596:
POPSTACKTRACE( scrt1_cons_2a( c1425,
CONS( scrt1_cons_2a( c1949,
CONS( PAIR_CAR( X3 ),
X2 ) ),
X1 ) ) );
L2586:
POPSTACKTRACE( scrt6_error( c1948,
c1044,
CONS( e1947, EMPTYLIST ) ) );
}
DEFSTRING( t2598, "scexpanders1_l1970 [inside TOP-LEVEL]", 37 );
TSCP scexpanders1_l1970( x1971, e1972 )
TSCP x1971, e1972;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2598 ) ) );
X2 = scexpanders1_unless_2dmacro( x1971 );
X1 = e1972;
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( X2,
e1972,
PROCEDURE_CLOSURE( X1 ) ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt4__init();
sceval__init();
scrt2__init();
scrt6__init();
scrt1__init();
scexpand__init();
MAXDISPLAY( 1 );
}
void scexpanders1__init()
{
TSCP X1;
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(scexpanders1 SCHEME->C COMPILER 28sep90jfb)" );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1040, EMPTYLIST );
scexpand_install_2dexpander( c1039, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1058, EMPTYLIST );
scexpand_install_2dexpander( c1057, X1 );
INITIALIZEVAR( U_TX( ADR( t2105 ) ),
ADR( scexpanders1_do_2ddefine_v ),
MAKEPROCEDURE( 2,
0,
scexpanders1_do_2ddefine,
EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1072, EMPTYLIST );
scexpand_install_2dexpander( c1071, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1136, EMPTYLIST );
scexpand_install_2dexpander( c1135, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1180, EMPTYLIST );
scexpand_install_2dexpander( c1179, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1221, EMPTYLIST );
scexpand_install_2dexpander( c1220, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1264, EMPTYLIST );
scexpand_install_2dexpander( c1263, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1270, EMPTYLIST );
scexpand_install_2dexpander( c1269, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1276, EMPTYLIST );
scexpand_install_2dexpander( c1275, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1316, EMPTYLIST );
scexpand_install_2dexpander( c1046, X1 );
INITIALIZEVAR( U_TX( ADR( t2285 ) ),
ADR( scexpanders1_lambda_2ddefines_v ),
MAKEPROCEDURE( 1,
0,
scexpanders1_lambda_2ddefines,
EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1426, EMPTYLIST );
scexpand_install_2dexpander( c1425, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1454, EMPTYLIST );
scexpand_install_2dexpander( c1416, X1 );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1483, EMPTYLIST );
scexpand_install_2dexpander( c1305, X1 );
INITIALIZEVAR( U_TX( ADR( t2369 ) ),
ADR( xpanders1_2dexpander_e1685c0_v ),
MAKEPROCEDURE( 1,
0,
xpanders1_2dexpander_e1685c0,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2404 ) ),
ADR( scexpanders1_cond_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
scexpanders1_cond_2dmacro,
EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1704, EMPTYLIST );
scexpand_install_2dexpander( c1664, X1 );
INITIALIZEVAR( U_TX( ADR( t2467 ) ),
ADR( scexpanders1_case_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
scexpanders1_case_2dmacro,
EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1793, EMPTYLIST );
scexpand_install_2dexpander( c1710, X1 );
INITIALIZEVAR( U_TX( ADR( t2514 ) ),
ADR( scexpanders1_and_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
scexpanders1_and_2dmacro,
EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1855, EMPTYLIST );
scexpand_install_2dexpander( c1834, X1 );
INITIALIZEVAR( U_TX( ADR( t2541 ) ),
ADR( scexpanders1_or_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
scexpanders1_or_2dmacro,
EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1915, EMPTYLIST );
scexpand_install_2dexpander( c1677, X1 );
INITIALIZEVAR( U_TX( ADR( t2568 ) ),
ADR( scexpanders1_when_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
scexpanders1_when_2dmacro,
EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1942, EMPTYLIST );
scexpand_install_2dexpander( c1921, X1 );
INITIALIZEVAR( U_TX( ADR( t2584 ) ),
ADR( scexpanders1_unless_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
scexpanders1_unless_2dmacro,
EMPTYLIST ) );
X1 = MAKEPROCEDURE( 2,
0, scexpanders1_l1970, EMPTYLIST );
scexpand_install_2dexpander( c1948, X1 );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.