This is readtext.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t2180, "SC-SPLICE", 9 );
DEFSTATICTSCP( sc_2dsplice_v );
DEFSTRING( t2181, "LOG?", 4 );
DEFSTATICTSCP( log_3f_v );
DEFSTRING( t2182, "PRETTY-PRINT-$TREE", 18 );
DEFSTATICTSCP( pretty_2dprint_2d_24tree_v );
DEFSTRING( t2183, "SC-ICODE", 8 );
DEFSTATICTSCP( sc_2dicode_v );
DEFSTRING( t2184, "MODULE-NAME", 11 );
DEFSTATICTSCP( module_2dname_v );
DEFSTRING( t2185, "REPORT-ERROR", 12 );
DEFSTATICTSCP( report_2derror_v );
DEFSTRING( t2186, "SC-INPUT", 8 );
DEFSTATICTSCP( sc_2dinput_v );
DEFSTRING( t2187, "ISLIST", 6 );
DEFSTATICTSCP( islist_v );
DEFSTRING( t2188, "EXPAND-ERROR", 12 );
DEFSTATICTSCP( expand_2derror_v );
DEFSTRING( t2189, "SET-LAMBDA-GENERATE!", 20 );
DEFSTATICTSCP( set_2dlambda_2dgenerate_21_v );
DEFSTRING( t2190, "SET-LAMBDA-NAME!", 16 );
DEFSTATICTSCP( set_2dlambda_2dname_21_v );
DEFSTRING( t2191, "$LAMBDA-ID", 10 );
DEFSTATICTSCP( _24lambda_2did_v );
DEFSTRING( t2192, "EXP-FORM", 8 );
DEFSTATICTSCP( exp_2dform_v );
DEFSTRING( t2193, "HEX28", 5 );
DEFSTATICTSCP( hex28_v );
DEFSTRING( t2194, "SET-LAMBDA-REQVARS!", 19 );
DEFSTATICTSCP( set_2dlambda_2dreqvars_21_v );
DEFSTRING( t2195, "SET-LAMBDA-OPTVARS!", 19 );
DEFSTATICTSCP( set_2dlambda_2doptvars_21_v );
DEFSTRING( t2196, "SC-INCLUDE-DIRS", 15 );
DEFSTATICTSCP( sc_2dinclude_2ddirs_v );
DEFSTRING( t2197, "MODULE-NAME-UPCASE", 18 );
DEFSTATICTSCP( module_2dname_2dupcase_v );
DEFSTRING( t2198, "MAIN-PROGRAM-NAME", 17 );
DEFSTATICTSCP( main_2dprogram_2dname_v );
DEFSTRING( t2199, "TOP-LEVEL-SYMBOLS", 17 );
DEFSTATICTSCP( top_2dlevel_2dsymbols_v );
DEFSTRING( t2200, "WITH-MODULES", 12 );
DEFSTATICTSCP( with_2dmodules_v );
DEFSTRING( t2201, "HEAP-SIZE", 9 );
DEFSTATICTSCP( heap_2dsize_v );
DEFSTRING( t2202, "SC-INTERPRETER", 14 );
DEFSTATICTSCP( sc_2dinterpreter_v );
DEFSTRING( t2203, "Illegal or duplicate MODULE clause", 34 );
DEFSTATICTSCP2( c1910, t2203 );
DEFSTRING( t2204, "WITH", 4 );
DEFSTATICTSCP( c1907 );
DEFSTRING( t2205, "HEAP", 4 );
DEFSTATICTSCP( c1838 );
DEFSTRING( t2206, "MAIN", 4 );
DEFSTATICTSCP( c1805 );
DEFSTRING( t2207, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1745, t2207 );
DEFSTRING( t2208, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1744 );
DEFSTRING( t2209, "MODULE name is already defined as:", 34 );
DEFSTATICTSCP2( c1728, t2209 );
DEFSTRING( t2210, "Can't open INCLUDE file:", 24 );
DEFSTATICTSCP2( c1665, t2210 );
DEFSTATICTSCP( c1615 );
DEFSTRING( t2212, "TSCP", 4 );
DEFSTATICTSCP( t2211 );
DEFSTRING( t2214, "DOUBLE", 6 );
DEFSTATICTSCP( t2213 );
DEFSTRING( t2216, "FLOAT", 5 );
DEFSTATICTSCP( t2215 );
DEFSTRING( t2218, "LONGUNSIGNED", 12 );
DEFSTATICTSCP( t2217 );
DEFSTRING( t2220, "SHORTUNSIGNED", 13 );
DEFSTATICTSCP( t2219 );
DEFSTRING( t2222, "UNSIGNED", 8 );
DEFSTATICTSCP( t2221 );
DEFSTRING( t2224, "LONGINT", 7 );
DEFSTATICTSCP( t2223 );
DEFSTRING( t2226, "SHORTINT", 8 );
DEFSTATICTSCP( t2225 );
DEFSTRING( t2228, "INT", 3 );
DEFSTATICTSCP( t2227 );
DEFSTRING( t2230, "CHAR", 4 );
DEFSTATICTSCP( t2229 );
DEFSTRING( t2232, "POINTER", 7 );
DEFSTATICTSCP( t2231 );
DEFSTRING( t2233, "TYPE", 4 );
DEFSTATICTSCP( c1602 );
DEFSTRING( t2234, "VOID", 4 );
DEFSTATICTSCP( c1550 );
DEFSTRING( t2235, "TOP-LEVEL", 9 );
DEFSTATICTSCP( c1503 );
DEFSTRING( t2236, "_v", 2 );
DEFSTATICTSCP2( c1474, t2236 );
DEFSTRING( t2237, "VNAME", 5 );
DEFSTATICTSCP( c1472 );
DEFSTRING( t2238, "PROCEDURE", 9 );
DEFSTATICTSCP( c1456 );
DEFSTRING( t2239, "CNAME", 5 );
DEFSTATICTSCP( c1451 );
DEFSTRING( t2240, "GLOBAL", 6 );
DEFSTATICTSCP( c1450 );
DEFSTRING( t2241, "USE", 3 );
DEFSTATICTSCP( c1449 );
DEFSTRING( t2242, "_", 1 );
DEFSTATICTSCP2( c1448, t2242 );
DEFSTRING( t2243, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1311, t2243 );
DEFSTRING( t2244, "SET-CDR!", 8 );
DEFSTATICTSCP( c1310 );
DEFSTRING( t2245, "*SC-APPLICATION-EXPANDER*", 25 );
DEFSTATICTSCP( c1279 );
DEFSTRING( t2246, "SOURCE", 6 );
DEFSTATICTSCP( c1218 );
DEFSTRING( t2247, "BEGIN", 5 );
DEFSTATICTSCP( c1136 );
DEFSTRING( t2248, "COMPILE", 7 );
DEFSTATICTSCP( c1125 );
DEFSTRING( t2249, "noname", 6 );
DEFSTATICTSCP2( c1122, t2249 );
DEFSTRING( t2250, "Module name is not defined", 26 );
DEFSTATICTSCP2( c1121, t2250 );
DEFSTRING( t2251, "LAMBDA", 6 );
DEFSTATICTSCP( c1110 );
DEFSTRING( t2252, "EVAL-WHEN", 9 );
DEFSTATICTSCP( c1077 );
DEFSTRING( t2253, "DEFINE-CONSTANT", 15 );
DEFSTATICTSCP( c1073 );
DEFSTRING( t2254, "INCLUDE", 7 );
DEFSTATICTSCP( c1069 );
DEFSTRING( t2255, "MODULE", 6 );
DEFSTATICTSCP( c1065 );
DEFSTRING( t2256, "DEFINE-MACRO", 12 );
DEFSTATICTSCP( c1061 );
DEFSTRING( t2257, "DEFINE-C-EXTERNAL", 17 );
DEFSTATICTSCP( c1057 );
DEFSTRING( t2258, "DEFINE-EXTERNAL", 15 );
DEFSTATICTSCP( c1053 );
DEFSTRING( t2259, "MACRO", 5 );
DEFSTATICTSCP( c1035 );
static void init_constants()
{
sc_2dsplice_v = STRINGTOSYMBOL( U_TX( ADR( t2180 ) ) );
CONSTANTEXP( ADR( sc_2dsplice_v ) );
log_3f_v = STRINGTOSYMBOL( U_TX( ADR( t2181 ) ) );
CONSTANTEXP( ADR( log_3f_v ) );
pretty_2dprint_2d_24tree_v = STRINGTOSYMBOL( U_TX( ADR( t2182 ) ) );
CONSTANTEXP( ADR( pretty_2dprint_2d_24tree_v ) );
sc_2dicode_v = STRINGTOSYMBOL( U_TX( ADR( t2183 ) ) );
CONSTANTEXP( ADR( sc_2dicode_v ) );
module_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2184 ) ) );
CONSTANTEXP( ADR( module_2dname_v ) );
report_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2185 ) ) );
CONSTANTEXP( ADR( report_2derror_v ) );
sc_2dinput_v = STRINGTOSYMBOL( U_TX( ADR( t2186 ) ) );
CONSTANTEXP( ADR( sc_2dinput_v ) );
islist_v = STRINGTOSYMBOL( U_TX( ADR( t2187 ) ) );
CONSTANTEXP( ADR( islist_v ) );
expand_2derror_v = STRINGTOSYMBOL( U_TX( ADR( t2188 ) ) );
CONSTANTEXP( ADR( expand_2derror_v ) );
set_2dlambda_2dgenerate_21_v = STRINGTOSYMBOL( U_TX( ADR( t2189 ) ) );
CONSTANTEXP( ADR( set_2dlambda_2dgenerate_21_v ) );
set_2dlambda_2dname_21_v = STRINGTOSYMBOL( U_TX( ADR( t2190 ) ) );
CONSTANTEXP( ADR( set_2dlambda_2dname_21_v ) );
_24lambda_2did_v = STRINGTOSYMBOL( U_TX( ADR( t2191 ) ) );
CONSTANTEXP( ADR( _24lambda_2did_v ) );
exp_2dform_v = STRINGTOSYMBOL( U_TX( ADR( t2192 ) ) );
CONSTANTEXP( ADR( exp_2dform_v ) );
hex28_v = STRINGTOSYMBOL( U_TX( ADR( t2193 ) ) );
CONSTANTEXP( ADR( hex28_v ) );
set_2dlambda_2dreqvars_21_v = STRINGTOSYMBOL( U_TX( ADR( t2194 ) ) );
CONSTANTEXP( ADR( set_2dlambda_2dreqvars_21_v ) );
set_2dlambda_2doptvars_21_v = STRINGTOSYMBOL( U_TX( ADR( t2195 ) ) );
CONSTANTEXP( ADR( set_2dlambda_2doptvars_21_v ) );
sc_2dinclude_2ddirs_v = STRINGTOSYMBOL( U_TX( ADR( t2196 ) ) );
CONSTANTEXP( ADR( sc_2dinclude_2ddirs_v ) );
module_2dname_2dupcase_v = STRINGTOSYMBOL( U_TX( ADR( t2197 ) ) );
CONSTANTEXP( ADR( module_2dname_2dupcase_v ) );
main_2dprogram_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t2198 ) ) );
CONSTANTEXP( ADR( main_2dprogram_2dname_v ) );
top_2dlevel_2dsymbols_v = STRINGTOSYMBOL( U_TX( ADR( t2199 ) ) );
CONSTANTEXP( ADR( top_2dlevel_2dsymbols_v ) );
with_2dmodules_v = STRINGTOSYMBOL( U_TX( ADR( t2200 ) ) );
CONSTANTEXP( ADR( with_2dmodules_v ) );
heap_2dsize_v = STRINGTOSYMBOL( U_TX( ADR( t2201 ) ) );
CONSTANTEXP( ADR( heap_2dsize_v ) );
sc_2dinterpreter_v = STRINGTOSYMBOL( U_TX( ADR( t2202 ) ) );
CONSTANTEXP( ADR( sc_2dinterpreter_v ) );
c1907 = STRINGTOSYMBOL( U_TX( ADR( t2204 ) ) );
CONSTANTEXP( ADR( c1907 ) );
c1838 = STRINGTOSYMBOL( U_TX( ADR( t2205 ) ) );
CONSTANTEXP( ADR( c1838 ) );
c1805 = STRINGTOSYMBOL( U_TX( ADR( t2206 ) ) );
CONSTANTEXP( ADR( c1805 ) );
c1744 = STRINGTOSYMBOL( U_TX( ADR( t2208 ) ) );
CONSTANTEXP( ADR( c1744 ) );
c1615 = EMPTYLIST;
t2211 = STRINGTOSYMBOL( U_TX( ADR( t2212 ) ) );
c1615 = CONS( t2211, c1615 );
t2213 = STRINGTOSYMBOL( U_TX( ADR( t2214 ) ) );
c1615 = CONS( t2213, c1615 );
t2215 = STRINGTOSYMBOL( U_TX( ADR( t2216 ) ) );
c1615 = CONS( t2215, c1615 );
t2217 = STRINGTOSYMBOL( U_TX( ADR( t2218 ) ) );
c1615 = CONS( t2217, c1615 );
t2219 = STRINGTOSYMBOL( U_TX( ADR( t2220 ) ) );
c1615 = CONS( t2219, c1615 );
t2221 = STRINGTOSYMBOL( U_TX( ADR( t2222 ) ) );
c1615 = CONS( t2221, c1615 );
t2223 = STRINGTOSYMBOL( U_TX( ADR( t2224 ) ) );
c1615 = CONS( t2223, c1615 );
t2225 = STRINGTOSYMBOL( U_TX( ADR( t2226 ) ) );
c1615 = CONS( t2225, c1615 );
t2227 = STRINGTOSYMBOL( U_TX( ADR( t2228 ) ) );
c1615 = CONS( t2227, c1615 );
t2229 = STRINGTOSYMBOL( U_TX( ADR( t2230 ) ) );
c1615 = CONS( t2229, c1615 );
t2231 = STRINGTOSYMBOL( U_TX( ADR( t2232 ) ) );
c1615 = CONS( t2231, c1615 );
CONSTANTEXP( ADR( c1615 ) );
c1602 = STRINGTOSYMBOL( U_TX( ADR( t2233 ) ) );
CONSTANTEXP( ADR( c1602 ) );
c1550 = STRINGTOSYMBOL( U_TX( ADR( t2234 ) ) );
CONSTANTEXP( ADR( c1550 ) );
c1503 = STRINGTOSYMBOL( U_TX( ADR( t2235 ) ) );
CONSTANTEXP( ADR( c1503 ) );
c1472 = STRINGTOSYMBOL( U_TX( ADR( t2237 ) ) );
CONSTANTEXP( ADR( c1472 ) );
c1456 = STRINGTOSYMBOL( U_TX( ADR( t2238 ) ) );
CONSTANTEXP( ADR( c1456 ) );
c1451 = STRINGTOSYMBOL( U_TX( ADR( t2239 ) ) );
CONSTANTEXP( ADR( c1451 ) );
c1450 = STRINGTOSYMBOL( U_TX( ADR( t2240 ) ) );
CONSTANTEXP( ADR( c1450 ) );
c1449 = STRINGTOSYMBOL( U_TX( ADR( t2241 ) ) );
CONSTANTEXP( ADR( c1449 ) );
c1310 = STRINGTOSYMBOL( U_TX( ADR( t2244 ) ) );
CONSTANTEXP( ADR( c1310 ) );
c1279 = STRINGTOSYMBOL( U_TX( ADR( t2245 ) ) );
CONSTANTEXP( ADR( c1279 ) );
c1218 = STRINGTOSYMBOL( U_TX( ADR( t2246 ) ) );
CONSTANTEXP( ADR( c1218 ) );
c1136 = STRINGTOSYMBOL( U_TX( ADR( t2247 ) ) );
CONSTANTEXP( ADR( c1136 ) );
c1125 = STRINGTOSYMBOL( U_TX( ADR( t2248 ) ) );
CONSTANTEXP( ADR( c1125 ) );
c1110 = STRINGTOSYMBOL( U_TX( ADR( t2251 ) ) );
CONSTANTEXP( ADR( c1110 ) );
c1077 = STRINGTOSYMBOL( U_TX( ADR( t2252 ) ) );
CONSTANTEXP( ADR( c1077 ) );
c1073 = STRINGTOSYMBOL( U_TX( ADR( t2253 ) ) );
CONSTANTEXP( ADR( c1073 ) );
c1069 = STRINGTOSYMBOL( U_TX( ADR( t2254 ) ) );
CONSTANTEXP( ADR( c1069 ) );
c1065 = STRINGTOSYMBOL( U_TX( ADR( t2255 ) ) );
CONSTANTEXP( ADR( c1065 ) );
c1061 = STRINGTOSYMBOL( U_TX( ADR( t2256 ) ) );
CONSTANTEXP( ADR( c1061 ) );
c1057 = STRINGTOSYMBOL( U_TX( ADR( t2257 ) ) );
CONSTANTEXP( ADR( c1057 ) );
c1053 = STRINGTOSYMBOL( U_TX( ADR( t2258 ) ) );
CONSTANTEXP( ADR( c1053 ) );
c1035 = STRINGTOSYMBOL( U_TX( ADR( t2259 ) ) );
CONSTANTEXP( ADR( c1035 ) );
}
DEFTSCP( readtext_read_2dtext_v );
DEFSTRING( t2260, "READ-TEXT", 9 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( readtext_sc_2dexpand );
EXTERNTSCP( readtext_sc_2dexpand_v );
EXTERNTSCPP( readtext_sc_2dinput_3d56933a );
EXTERNTSCP( readtext_sc_2dinput_3d56933a_v );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
EXTERNTSCPP( readtext_2dexternal_66fe3106 );
EXTERNTSCP( readtext_2dexternal_66fe3106_v );
EXTERNTSCPP( readtext_2dexternal_7d8f1d02 );
EXTERNTSCP( readtext_2dexternal_7d8f1d02_v );
EXTERNTSCPP( readtext_do_2dmodule );
EXTERNTSCP( readtext_do_2dmodule_v );
EXTERNTSCPP( readtext_do_2dinclude );
EXTERNTSCP( readtext_do_2dinclude_v );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( sceval_eval );
EXTERNTSCP( sceval_eval_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( scrt1_cadar );
EXTERNTSCP( scrt1_cadar_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( scrt1_cddar );
EXTERNTSCP( scrt1_cddar_v );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCP( sc_emptystring );
TSCP readtext_read_2dtext( )
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2260 ) ) );
L2261:
X1 = EMPTYLIST;
X1 = CONS( X1, EMPTYLIST );
if ( FALSE( SYMBOL_VALUE( sc_2dsplice_v ) ) ) goto L2263;
X3 = SYMBOL_VALUE( sc_2dsplice_v );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2267;
scrt1__24__car_2derror( X3 );
L2267:
X2 = PAIR_CAR( X3 );
SETGEN( PAIR_CAR( X1 ), X2 );
X2 = SYMBOL_VALUE( sc_2dsplice_v );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2270;
scrt1__24__cdr_2derror( X2 );
L2270:
SETGENTL( SYMBOL_VALUE( sc_2dsplice_v ),
PAIR_CDR( X2 ) );
goto L2273;
L2263:
X3 = readtext_sc_2dinput_3d56933a( );
X2 = readtext_sc_2dexpand( X3 );
SETGEN( PAIR_CAR( X1 ), X2 );
X2 = SYMBOL_VALUE( log_3f_v );
X2 = UNKNOWNCALL( X2, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X2 ) )( c1035,
PROCEDURE_CLOSURE( X2 ) ) )
) goto L2273;
X3 = SYMBOL_VALUE( sc_2dicode_v );
X2 = SYMBOL_VALUE( pretty_2dprint_2d_24tree_v );
X2 = UNKNOWNCALL( X2, 2 );
VIA( PROCEDURE_CODE( X2 ) )( PAIR_CAR( X1 ),
X3, PROCEDURE_CLOSURE( X2 ) );
scrt6_newline( CONS( SYMBOL_VALUE( sc_2dicode_v ),
EMPTYLIST ) );
L2273:
if ( NEQ( TSCPTAG( PAIR_CAR( X1 ) ), PAIRTAG ) ) goto L2276;
X3 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2279;
scrt1__24__car_2derror( X3 );
L2279:
X2 = PAIR_CAR( X3 );
goto L2277;
L2276:
X2 = FALSEVALUE;
L2277:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1053 ) ) ) goto L2282;
readtext_2dexternal_66fe3106( PAIR_CAR( X1 ) );
goto L2261;
L2282:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1057 ) ) ) goto L2285;
readtext_2dexternal_7d8f1d02( PAIR_CAR( X1 ) );
goto L2261;
L2285:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( c1061 ) ) ) goto L2261;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1065 ) ) ) goto L2290;
readtext_do_2dmodule( PAIR_CAR( X1 ) );
goto L2261;
L2290:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1069 ) ) ) goto L2293;
readtext_do_2dinclude( PAIR_CAR( X1 ) );
goto L2261;
L2293:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( c1073 ) ) ) goto L2261;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1077 ) ) ) goto L2298;
X4 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2305;
scrt1__24__cdr_2derror( X4 );
L2305:
X5 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2308;
scrt1__24__car_2derror( X5 );
L2308:
X3 = PAIR_CAR( X5 );
if ( FALSE( scrt1_memq( c1125, X3 ) ) ) goto L2261;
X5 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2312;
scrt1__24__cdr_2derror( X5 );
L2312:
X6 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2315;
scrt1__24__cdr_2derror( X6 );
L2315:
X4 = PAIR_CDR( X6 );
X3 = sc_cons( c1136, X4 );
sceval_eval( X3, EMPTYLIST );
goto L2261;
L2298:
X3 = BOOLEAN( EQ( TSCPTAG( PAIR_CAR( X1 ) ),
PAIRTAG ) );
if ( FALSE( X3 ) ) goto L2342;
X5 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2325;
scrt1__24__car_2derror( X5 );
L2325:
X4 = PAIR_CAR( X5 );
if ( NEQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2342;
X5 = PAIR_CAR( X1 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2332;
scrt1__24__car_2derror( X5 );
L2332:
X6 = PAIR_CAR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2335;
scrt1__24__car_2derror( X6 );
L2335:
X4 = PAIR_CAR( X6 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1110 ) ) ) goto L2342;
X4 = scrt1_cadar( PAIR_CAR( X1 ) );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2342;
X4 = scrt1_cddar( PAIR_CAR( X1 ) );
X5 = SYMBOL_VALUE( sc_2dsplice_v );
SETGENTL( SYMBOL_VALUE( sc_2dsplice_v ),
scrt1_append_2dtwo( X4, X5 ) );
goto L2261;
L2342:
X2 = SYMBOL_VALUE( module_2dname_v );
if ( FALSE( scrt1_equal_3f( X2, sc_emptystring ) ) ) goto L2344;
X2 = SYMBOL_VALUE( report_2derror_v );
X2 = UNKNOWNCALL( X2, 1 );
VIA( PROCEDURE_CODE( X2 ) )( c1121,
PROCEDURE_CLOSURE( X2 ) );
SETGENTL( SYMBOL_VALUE( module_2dname_v ), c1122 );
L2344:
POPSTACKTRACE( PAIR_CAR( X1 ) );
}
DEFTSCP( readtext_sc_2dinput_3d56933a_v );
DEFSTRING( t2347, "READ-FROM-SC-INPUT", 18 );
EXTERNTSCPP( scrt6_read );
EXTERNTSCP( scrt6_read_v );
EXTERNTSCPP( scrt6_eof_2dobject_3f );
EXTERNTSCP( scrt6_eof_2dobject_3f_v );
EXTERNTSCPP( scrt5_close_2dport );
EXTERNTSCP( scrt5_close_2dport_v );
TSCP readtext_sc_2dinput_3d56933a( )
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2347 ) ) );
X3 = SYMBOL_VALUE( sc_2dinput_v );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2351;
scrt1__24__car_2derror( X3 );
L2351:
X1 = scrt6_read( CONS( PAIR_CAR( X3 ), EMPTYLIST ) );
L2353:
X3 = scrt6_eof_2dobject_3f( X1 );
if ( FALSE( X3 ) ) goto L2355;
X5 = SYMBOL_VALUE( sc_2dinput_v );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2358;
scrt1__24__cdr_2derror( X5 );
L2358:
X4 = PAIR_CDR( X5 );
X2 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( EMPTYLIST ) ) );
goto L2356;
L2355:
X2 = X3;
L2356:
if ( TRUE( X2 ) ) goto L2364;
if ( FALSE( scrt6_eof_2dobject_3f( X1 ) ) ) goto L2364;
X4 = SYMBOL_VALUE( sc_2dinput_v );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2369;
scrt1__24__car_2derror( X4 );
L2369:
X3 = PAIR_CAR( X4 );
scrt5_close_2dport( X3 );
X3 = SYMBOL_VALUE( sc_2dinput_v );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2373;
scrt1__24__cdr_2derror( X3 );
L2373:
X4 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2376;
scrt1__24__car_2derror( X4 );
L2376:
SETGENTL( SYMBOL_VALUE( sc_2dsplice_v ),
PAIR_CAR( X4 ) );
X3 = SYMBOL_VALUE( sc_2dinput_v );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2380;
scrt1__24__cdr_2derror( X3 );
L2380:
X4 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2383;
scrt1__24__cdr_2derror( X4 );
L2383:
SETGENTL( SYMBOL_VALUE( sc_2dinput_v ),
PAIR_CDR( X4 ) );
X4 = SYMBOL_VALUE( sc_2dinput_v );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2386;
scrt1__24__car_2derror( X4 );
L2386:
X1 = scrt6_read( CONS( PAIR_CAR( X4 ), EMPTYLIST ) );
goto L2353;
L2364:
X2 = SYMBOL_VALUE( log_3f_v );
X2 = UNKNOWNCALL( X2, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X2 ) )( c1218,
PROCEDURE_CLOSURE( X2 ) ) )
) goto L2389;
X3 = SYMBOL_VALUE( sc_2dicode_v );
X2 = SYMBOL_VALUE( pretty_2dprint_2d_24tree_v );
X2 = UNKNOWNCALL( X2, 2 );
VIA( PROCEDURE_CODE( X2 ) )( X1,
X3, PROCEDURE_CLOSURE( X2 ) );
scrt6_newline( CONS( SYMBOL_VALUE( sc_2dicode_v ),
EMPTYLIST ) );
L2389:
POPSTACKTRACE( X1 );
}
DEFTSCP( readtext_sc_2dexpand_v );
DEFSTRING( t2392, "SC-EXPAND", 9 );
EXTERNTSCPP( readtext_2dexpander_c83ee5f9 );
EXTERNTSCP( readtext_2dexpander_c83ee5f9_v );
TSCP readtext_sc_2dexpand( x1226 )
TSCP x1226;
{
PUSHSTACKTRACE( U_TX( ADR( t2392 ) ) );
POPSTACKTRACE( readtext_2dexpander_c83ee5f9( x1226,
readtext_2dexpander_c83ee5f9_v ) );
}
DEFTSCP( readtext_2dexpander_c83ee5f9_v );
DEFSTRING( t2394, "SC-INITIAL-EXPANDER", 19 );
EXTERNTSCPP( readtext_xpander_2a_b26e591c );
EXTERNTSCP( readtext_xpander_2a_b26e591c_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
EXTERNTSCPP( readtext_xpander_2a_afbc6f79 );
EXTERNTSCP( readtext_xpander_2a_afbc6f79_v );
DEFSTRING( t2408,
"readtext_l1252 [inside SC-INITIAL-EXPANDER]", 43 );
TSCP readtext_l1252( x1253, e1254, c2407 )
TSCP x1253, e1254, c2407;
{
PUSHSTACKTRACE( U_TX( ADR( t2408 ) ) );
POPSTACKTRACE( x1253 );
}
TSCP readtext_2dexpander_c83ee5f9( x1229, e1230 )
TSCP x1229, e1230;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2394 ) ) );
if ( NOT( AND( EQ( TSCPTAG( x1229 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1229 ), SYMBOLTAG ) ) )
) goto L2396;
X1 = readtext_xpander_2a_b26e591c_v;
goto L2399;
L2396:
if ( NEQ( TSCPTAG( x1229 ), PAIRTAG ) ) goto L2398;
X2 = PAIR_CAR( x1229 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2400;
X3 = PAIR_CAR( x1229 );
X2 = plist_get( X3, c1035 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), PROCEDURETAG ) ) )
) goto L2405;
X1 = X2;
goto L2399;
L2405:
X1 = readtext_xpander_2a_afbc6f79_v;
goto L2399;
L2400:
X1 = readtext_xpander_2a_afbc6f79_v;
goto L2399;
L2398:
X1 = MAKEPROCEDURE( 2, 0, readtext_l1252, EMPTYLIST );
L2399:
X2 = X1;
X2 = UNKNOWNCALL( X2, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X2 ) )( x1229,
e1230,
PROCEDURE_CLOSURE( X2 ) ) );
}
DEFTSCP( readtext_sc_2dexpand_2donce_v );
DEFSTRING( t2411, "SC-EXPAND-ONCE", 14 );
DEFSTRING( t2414, "readtext_l1259 [inside SC-EXPAND-ONCE]", 38 );
TSCP readtext_l1259( x1260, e1261, c2413 )
TSCP x1260, e1261, c2413;
{
PUSHSTACKTRACE( U_TX( ADR( t2414 ) ) );
POPSTACKTRACE( x1260 );
}
TSCP readtext_sc_2dexpand_2donce( x1258 )
TSCP x1258;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2411 ) ) );
X1 = MAKEPROCEDURE( 2, 0, readtext_l1259, EMPTYLIST );
POPSTACKTRACE( readtext_2dexpander_c83ee5f9( x1258, X1 ) );
}
DEFTSCP( readtext_xpander_2a_b26e591c_v );
DEFSTRING( t2416, "*SC-IDENTIFIER-EXPANDER*", 24 );
TSCP readtext_xpander_2a_b26e591c( x1263, e1264 )
TSCP x1263, e1264;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2416 ) ) );
X1 = plist_get( x1263, c1035 );
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2419;
POPSTACKTRACE( PAIR_CAR( X1 ) );
L2419:
POPSTACKTRACE( x1263 );
}
DEFTSCP( readtext_xpander_2a_afbc6f79_v );
DEFSTRING( t2422, "*SC-APPLICATION-EXPANDER*", 25 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP readtext_xpander_2a_afbc6f79( x1274, e1275 )
TSCP x1274, e1275;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2422 ) ) );
X1 = SYMBOL_VALUE( islist_v );
X1 = UNKNOWNCALL( X1, 2 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( x1274,
_TSCP( 4 ),
PROCEDURE_CLOSURE( X1 ) ) )
) goto L2424;
X1 = x1274;
X2 = EMPTYLIST;
X3 = EMPTYLIST;
L2427:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L2428;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2431;
scrt1__24__car_2derror( X1 );
L2431:
X7 = PAIR_CAR( X1 );
X6 = e1275;
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( X7,
e1275,
PROCEDURE_CLOSURE( X6 ) );
X4 = sc_cons( X5, EMPTYLIST );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2434;
X5 = PAIR_CDR( X1 );
X3 = X4;
X2 = X4;
X1 = X5;
goto L2427;
L2434:
X5 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2439;
scrt6_error( c1310, c1311, CONS( X3, EMPTYLIST ) );
L2439:
X3 = SETGEN( PAIR_CDR( X3 ), X4 );
X1 = X5;
goto L2427;
L2428:
POPSTACKTRACE( X2 );
L2424:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1279,
x1274,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( readtext_2dexpander_924034c5_v );
DEFSTRING( t2441, "INSTALL-SC-EXPANDER", 19 );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
TSCP readtext_2dexpander_924034c5( k1324, f1325 )
TSCP k1324, f1325;
{
PUSHSTACKTRACE( U_TX( ADR( t2441 ) ) );
POPSTACKTRACE( plist_put( k1324, c1035, f1325 ) );
}
DEFTSCP( readtext_2dexternal_66fe3106_v );
DEFSTRING( t2443, "DO-DEFINE-EXTERNAL", 18 );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( expform_lchexname );
EXTERNTSCP( expform_lchexname_v );
EXTERNTSCPP( expform_newv );
EXTERNTSCP( expform_newv_v );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( scrt1_cadddr );
EXTERNTSCP( scrt1_cadddr_v );
EXTERNTSCPP( scrt1_caadr );
EXTERNTSCP( scrt1_caadr_v );
EXTERNTSCPP( scrt1_cdadr );
EXTERNTSCP( scrt1_cdadr_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
TSCP readtext_2dexternal_66fe3106( e1327 )
TSCP e1327;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2443 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1327,
_TSCP( 12 ),
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2470;
if ( EQ( TSCPTAG( e1327 ), PAIRTAG ) ) goto L2453;
scrt1__24__cdr_2derror( e1327 );
L2453:
X3 = PAIR_CDR( e1327 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2456;
scrt1__24__car_2derror( X3 );
L2456:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2470;
X2 = scrt1_caddr( e1327 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2470;
X3 = PAIR_CDR( e1327 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2462;
scrt1__24__car_2derror( X3 );
L2462:
X2 = PAIR_CAR( X3 );
X3 = expform_lchexname( X2 );
X5 = scrt1_caddr( e1327 );
X4 = expform_lchexname( X5 );
X5 = scrt1_caddr( e1327 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1503 ) ) ) goto L2467;
X6 = CONS( c1474, EMPTYLIST );
X7 = SYMBOL_VALUE( hex28_v );
X7 = UNKNOWNCALL( X7, 2 );
X5 = CONS( scrt3_string_2dappend( CONS( VIA( PROCEDURE_CODE( X7 ) )( sc_emptystring,
X3,
PROCEDURE_CLOSURE( X7 ) ),
X6 ) ),
EMPTYLIST );
X5 = CONS( c1472, X5 );
X5 = CONS( c1503, X5 );
X5 = CONS( c1065, X5 );
X5 = CONS( c1503, X5 );
POPSTACKTRACE( expform_newv( X2, CONS( c1449, X5 ) ) );
L2467:
X6 = CONS( c1474, EMPTYLIST );
X7 = SYMBOL_VALUE( hex28_v );
X7 = UNKNOWNCALL( X7, 2 );
X5 = CONS( scrt3_string_2dappend( CONS( VIA( PROCEDURE_CODE( X7 ) )( X4,
X3,
PROCEDURE_CLOSURE( X7 ) ),
X6 ) ),
EMPTYLIST );
X5 = CONS( c1472, X5 );
X5 = CONS( X4, X5 );
X5 = CONS( c1065, X5 );
X5 = CONS( c1450, X5 );
POPSTACKTRACE( expform_newv( X2, CONS( c1449, X5 ) ) );
L2470:
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1327,
_TSCP( 16 ),
_TSCP( 16 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2500;
if ( EQ( TSCPTAG( e1327 ), PAIRTAG ) ) goto L2479;
scrt1__24__cdr_2derror( e1327 );
L2479:
X3 = PAIR_CDR( e1327 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2482;
scrt1__24__car_2derror( X3 );
L2482:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2500;
X2 = scrt1_caddr( e1327 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) )
) goto L2500;
X2 = scrt1_cadddr( e1327 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) )
) goto L2500;
X3 = PAIR_CDR( e1327 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2491;
scrt1__24__car_2derror( X3 );
L2491:
X2 = PAIR_CAR( X3 );
X3 = scrt1_caddr( e1327 );
X4 = scrt1_cadddr( e1327 );
X4 = CONS( X4, EMPTYLIST );
if ( TRUE( scrt1_equal_3f( X3, sc_emptystring ) ) ) goto L2496;
X6 = CONS( PAIR_CAR( X4 ), EMPTYLIST );
X6 = CONS( c1448, X6 );
X5 = scrt3_string_2dappend( CONS( X3, X6 ) );
SETGEN( PAIR_CAR( X4 ), X5 );
L2496:
X5 = CONS( PAIR_CAR( X4 ), EMPTYLIST );
X5 = CONS( c1472, X5 );
X5 = CONS( X3, X5 );
X5 = CONS( c1065, X5 );
X5 = CONS( c1450, X5 );
POPSTACKTRACE( expform_newv( X2, CONS( c1449, X5 ) ) );
L2500:
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1327,
_TSCP( 12 ),
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2527;
if ( EQ( TSCPTAG( e1327 ), PAIRTAG ) ) goto L2509;
scrt1__24__cdr_2derror( e1327 );
L2509:
X3 = PAIR_CDR( e1327 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2512;
scrt1__24__car_2derror( X3 );
L2512:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2527;
X2 = scrt1_caadr( e1327 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2527;
X2 = scrt1_caddr( e1327 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2527;
X2 = scrt1_caadr( e1327 );
X3 = scrt1_cdadr( e1327 );
X4 = expform_lchexname( X2 );
X6 = scrt1_caddr( e1327 );
X5 = expform_lchexname( X6 );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = scrt1_cons_2a( c1110, CONS( X3, X11 ) );
X11 = SYMBOL_VALUE( exp_2dform_v );
X9 = SYMBOL_VALUE( exp_2dform_v );
X9 = UNKNOWNCALL( X9, 2 );
X8 = VIA( PROCEDURE_CODE( X9 ) )( X10,
X11,
PROCEDURE_CLOSURE( X9 ) );
X7 = SYMBOL_VALUE( _24lambda_2did_v );
X7 = UNKNOWNCALL( X7, 1 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( X8,
PROCEDURE_CLOSURE( X7 ) );
X7 = EMPTYLIST;
X7 = CONS( X7, EMPTYLIST );
X11 = SYMBOL_VALUE( hex28_v );
X11 = UNKNOWNCALL( X11, 2 );
X9 = CONS( scrt3_string_2dappend( CONS( VIA( PROCEDURE_CODE( X11 ) )( X5,
X4,
PROCEDURE_CLOSURE( X11 ) ),
EMPTYLIST ) ),
EMPTYLIST );
X9 = CONS( c1451, X9 );
X10 = CONS( c1474, EMPTYLIST );
X11 = SYMBOL_VALUE( hex28_v );
X11 = UNKNOWNCALL( X11, 2 );
X9 = CONS( scrt3_string_2dappend( CONS( VIA( PROCEDURE_CODE( X11 ) )( X5,
X4,
PROCEDURE_CLOSURE( X11 ) ),
X10 ) ),
X9 );
X9 = CONS( c1472, X9 );
X9 = CONS( X5, X9 );
X9 = CONS( c1065, X9 );
X9 = CONS( c1450, X9 );
X8 = expform_newv( X2, CONS( c1449, X9 ) );
SETGEN( PAIR_CAR( X7 ), X8 );
plist_put( PAIR_CAR( X7 ), c1110, X6 );
X8 = SYMBOL_VALUE( set_2dlambda_2dgenerate_21_v );
X8 = UNKNOWNCALL( X8, 2 );
VIA( PROCEDURE_CODE( X8 ) )( X6,
c1456,
PROCEDURE_CLOSURE( X8 ) );
X8 = SYMBOL_VALUE( set_2dlambda_2dname_21_v );
X8 = UNKNOWNCALL( X8, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X8 ) )( X6,
PAIR_CAR( X7 ),
PROCEDURE_CLOSURE( X8 ) ) );
L2527:
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1327,
_TSCP( 16 ),
_TSCP( 16 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2556;
if ( EQ( TSCPTAG( e1327 ), PAIRTAG ) ) goto L2536;
scrt1__24__cdr_2derror( e1327 );
L2536:
X3 = PAIR_CDR( e1327 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2539;
scrt1__24__car_2derror( X3 );
L2539:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2556;
X2 = scrt1_caadr( e1327 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2556;
X2 = scrt1_caddr( e1327 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), STRINGTAG ) ) )
) goto L2556;
X2 = scrt1_caadr( e1327 );
X3 = scrt1_cdadr( e1327 );
X4 = scrt1_caddr( e1327 );
X5 = scrt1_cadddr( e1327 );
X5 = CONS( X5, EMPTYLIST );
X11 = CONS( EMPTYLIST, EMPTYLIST );
X10 = scrt1_cons_2a( c1110, CONS( X3, X11 ) );
X11 = SYMBOL_VALUE( exp_2dform_v );
X9 = SYMBOL_VALUE( exp_2dform_v );
X9 = UNKNOWNCALL( X9, 2 );
X8 = VIA( PROCEDURE_CODE( X9 ) )( X10,
X11,
PROCEDURE_CLOSURE( X9 ) );
X7 = SYMBOL_VALUE( _24lambda_2did_v );
X7 = UNKNOWNCALL( X7, 1 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( X8,
PROCEDURE_CLOSURE( X7 ) );
X7 = EMPTYLIST;
X7 = CONS( X7, EMPTYLIST );
if ( TRUE( scrt1_equal_3f( X4, sc_emptystring ) ) ) goto L2552;
X9 = CONS( PAIR_CAR( X5 ), EMPTYLIST );
X9 = CONS( c1448, X9 );
X8 = scrt3_string_2dappend( CONS( X4, X9 ) );
SETGEN( PAIR_CAR( X5 ), X8 );
L2552:
X9 = CONS( PAIR_CAR( X5 ), EMPTYLIST );
X9 = CONS( c1451, X9 );
X9 = CONS( X4, X9 );
X9 = CONS( c1065, X9 );
X9 = CONS( c1450, X9 );
X8 = expform_newv( X2, CONS( c1449, X9 ) );
SETGEN( PAIR_CAR( X7 ), X8 );
plist_put( PAIR_CAR( X7 ), c1110, X6 );
X8 = SYMBOL_VALUE( set_2dlambda_2dgenerate_21_v );
X8 = UNKNOWNCALL( X8, 2 );
VIA( PROCEDURE_CODE( X8 ) )( X6,
c1456,
PROCEDURE_CLOSURE( X8 ) );
X8 = SYMBOL_VALUE( set_2dlambda_2dname_21_v );
X8 = UNKNOWNCALL( X8, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X8 ) )( X6,
PAIR_CAR( X7 ),
PROCEDURE_CLOSURE( X8 ) ) );
L2556:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1053,
e1327,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( readtext_2dexternal_7d8f1d02_v );
DEFSTRING( t2557, "DO-DEFINE-C-EXTERNAL", 20 );
DEFSTRING( t2561, "C-TYPE? [inside DO-DEFINE-C-EXTERNAL]", 37 );
TSCP readtext_c1520( x1614 )
TSCP x1614;
{
PUSHSTACKTRACE( U_TX( ADR( t2561 ) ) );
POPSTACKTRACE( scrt1_memq( x1614, c1615 ) );
}
EXTERNTSCPP( readtext_c1520 );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
TSCP readtext_2dexternal_7d8f1d02( e1515 )
TSCP e1515;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2557 ) ) );
X4 = SYMBOL_VALUE( islist_v );
X4 = UNKNOWNCALL( X4, 3 );
if ( FALSE( VIA( PROCEDURE_CODE( X4 ) )( e1515,
_TSCP( 16 ),
_TSCP( 16 ),
PROCEDURE_CLOSURE( X4 ) ) )
) goto L2559;
X1 = scrt1_cadddr( e1515 );
X2 = scrt1_caddr( e1515 );
if ( EQ( TSCPTAG( e1515 ), PAIRTAG ) ) goto L2564;
scrt1__24__cdr_2derror( e1515 );
L2564:
X4 = PAIR_CDR( e1515 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2567;
scrt1__24__car_2derror( X4 );
L2567:
X3 = PAIR_CAR( X4 );
X4 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
if ( FALSE( X4 ) ) goto L2576;
if ( FALSE( readtext_c1520( X2 ) ) ) goto L2576;
X5 = CONS( X2, EMPTYLIST );
X5 = CONS( c1602, X5 );
X5 = CONS( X1, X5 );
X5 = CONS( c1472, X5 );
X5 = CONS( sc_emptystring, X5 );
X5 = CONS( c1065, X5 );
X5 = CONS( c1450, X5 );
POPSTACKTRACE( expform_newv( X3, CONS( c1449, X5 ) ) );
L2559:
X4 = SYMBOL_VALUE( expand_2derror_v );
X4 = UNKNOWNCALL( X4, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X4 ) )( c1057,
e1515,
PROCEDURE_CLOSURE( X4 ) ) );
L2576:
X4 = BOOLEAN( EQ( TSCPTAG( X3 ), PAIRTAG ) );
if ( FALSE( X4 ) ) goto L2595;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2585;
scrt1__24__car_2derror( X3 );
L2585:
X5 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X5 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X5 ), SYMBOLTAG ) ) )
) goto L2595;
X5 = readtext_c1520( X2 );
if ( TRUE( X5 ) ) goto L2591;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1550 ) ) ) goto L2595;
L2591:
X9 = CONS( EMPTYLIST, EMPTYLIST );
X8 = scrt1_cons_2a( c1110,
CONS( PAIR_CDR( X3 ), X9 ) );
X9 = SYMBOL_VALUE( exp_2dform_v );
X7 = SYMBOL_VALUE( exp_2dform_v );
X7 = UNKNOWNCALL( X7, 2 );
X6 = VIA( PROCEDURE_CODE( X7 ) )( X8,
X9,
PROCEDURE_CLOSURE( X7 ) );
X5 = SYMBOL_VALUE( _24lambda_2did_v );
X5 = UNKNOWNCALL( X5, 1 );
X4 = VIA( PROCEDURE_CODE( X5 ) )( X6,
PROCEDURE_CLOSURE( X5 ) );
X6 = PAIR_CAR( X3 );
X7 = CONS( X2, EMPTYLIST );
X7 = CONS( c1602, X7 );
X7 = CONS( X1, X7 );
X7 = CONS( c1451, X7 );
X7 = CONS( sc_emptystring, X7 );
X7 = CONS( c1065, X7 );
X7 = CONS( c1450, X7 );
X5 = expform_newv( X6, CONS( c1449, X7 ) );
X6 = EMPTYLIST;
X7 = PAIR_CDR( X3 );
L2601:
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2602;
X9 = scrt1_reverse( X6 );
X8 = SYMBOL_VALUE( set_2dlambda_2dreqvars_21_v );
X8 = UNKNOWNCALL( X8, 2 );
VIA( PROCEDURE_CODE( X8 ) )( X4,
X9, PROCEDURE_CLOSURE( X8 ) );
goto L2620;
L2602:
if ( FALSE( readtext_c1520( X7 ) ) ) goto L2604;
X9 = scrt1_reverse( X6 );
X8 = SYMBOL_VALUE( set_2dlambda_2dreqvars_21_v );
X8 = UNKNOWNCALL( X8, 2 );
VIA( PROCEDURE_CODE( X8 ) )( X4,
X9, PROCEDURE_CLOSURE( X8 ) );
X10 = sc_cons( X7, EMPTYLIST );
X9 = X10;
X8 = SYMBOL_VALUE( set_2dlambda_2doptvars_21_v );
X8 = UNKNOWNCALL( X8, 2 );
VIA( PROCEDURE_CODE( X8 ) )( X4,
X9, PROCEDURE_CLOSURE( X8 ) );
goto L2620;
L2604:
X8 = BOOLEAN( EQ( TSCPTAG( X7 ), PAIRTAG ) );
if ( FALSE( X8 ) ) goto L2619;
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L2615;
scrt1__24__car_2derror( X7 );
L2615:
X9 = PAIR_CAR( X7 );
if ( FALSE( readtext_c1520( X9 ) ) ) goto L2619;
X10 = PAIR_CAR( X7 );
X9 = sc_cons( X10, X6 );
X7 = PAIR_CDR( X7 );
X6 = X9;
goto L2601;
L2619:
X6 = SYMBOL_VALUE( expand_2derror_v );
X6 = UNKNOWNCALL( X6, 2 );
VIA( PROCEDURE_CODE( X6 ) )( c1057,
e1515,
PROCEDURE_CLOSURE( X6 ) );
L2620:
plist_put( X5, c1110, X4 );
X6 = SYMBOL_VALUE( set_2dlambda_2dgenerate_21_v );
X6 = UNKNOWNCALL( X6, 2 );
VIA( PROCEDURE_CODE( X6 ) )( X4,
c1456,
PROCEDURE_CLOSURE( X6 ) );
X6 = SYMBOL_VALUE( set_2dlambda_2dname_21_v );
X6 = UNKNOWNCALL( X6, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X6 ) )( X4,
X5,
PROCEDURE_CLOSURE( X6 ) ) );
L2595:
X4 = SYMBOL_VALUE( expand_2derror_v );
X4 = UNKNOWNCALL( X4, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X4 ) )( c1057,
e1515,
PROCEDURE_CLOSURE( X4 ) ) );
}
DEFTSCP( readtext_do_2ddefine_2dmacro_v );
DEFSTRING( t2621, "DO-DEFINE-MACRO", 15 );
TSCP readtext_do_2ddefine_2dmacro( e1618 )
TSCP e1618;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2621 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1618,
_TSCP( 12 ),
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2639;
if ( EQ( TSCPTAG( e1618 ), PAIRTAG ) ) goto L2630;
scrt1__24__cdr_2derror( e1618 );
L2630:
X3 = PAIR_CDR( e1618 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2633;
scrt1__24__car_2derror( X3 );
L2633:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2639;
X3 = PAIR_CDR( e1618 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2637;
scrt1__24__car_2derror( X3 );
L2637:
X2 = PAIR_CAR( X3 );
X4 = scrt1_caddr( e1618 );
X3 = sceval_eval( X4, CONS( EMPTYLIST, EMPTYLIST ) );
POPSTACKTRACE( plist_put( X2, c1035, X3 ) );
L2639:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1061,
e1618,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( readtext_do_2dinclude_v );
DEFSTRING( t2640, "DO-INCLUDE", 10 );
EXTERNTSCPP( sc_ntinuation_1af38b9f );
EXTERNTSCP( sc_ntinuation_1af38b9f_v );
DEFSTRING( t2670, "readtext_l1651 [inside DO-INCLUDE]", 34 );
EXTERNTSCP( scrt6__2aerror_2dhandler_2a_v );
DEFSTRING( t2674, "readtext_l1655 [inside DO-INCLUDE]", 34 );
TSCP readtext_l1655( x1656, c2673 )
TSCP x1656, c2673;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2674 ) ) );
X1 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2673, 0 );
X2 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2673, 1 );
scrt6__2aerror_2dhandler_2a_v = DISPLAY( 2 );
X4 = DISPLAY( 1 );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( FALSEVALUE,
PROCEDURE_CLOSURE( X4 ) );
DISPLAY( 2 ) = X1;
DISPLAY( 1 ) = X2;
POPSTACKTRACE( X3 );
}
EXTERNTSCPP( scrt5_open_2dinput_2dfile );
EXTERNTSCP( scrt5_open_2dinput_2dfile_v );
TSCP readtext_l1651( r1652, c2669 )
TSCP r1652, c2669;
{
TSCP X3, X2, X1;
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2670 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2669, 0 );
DISPLAY( 1 ) = r1652;
DISPLAY( 2 ) = scrt6__2aerror_2dhandler_2a_v;
scrt6__2aerror_2dhandler_2a_v = MAKEPROCEDURE( 0,
1,
readtext_l1655,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 2 ),
DISPLAY( 1 ) ) );
X3 = scrt5_open_2dinput_2dfile( DISPLAY( 0 ) );
scrt6__2aerror_2dhandler_2a_v = DISPLAY( 2 );
X2 = X3;
DISPLAY( 0 ) = X1;
SDVAL = X2;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
TSCP readtext_do_2dinclude( e1646 )
TSCP e1646;
{
TSCP X6, X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2640 ) ) );
X3 = SYMBOL_VALUE( islist_v );
X3 = UNKNOWNCALL( X3, 3 );
X2 = VIA( PROCEDURE_CODE( X3 ) )( e1646,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X3 ) );
if ( FALSE( X2 ) ) goto L2644;
if ( EQ( TSCPTAG( e1646 ), PAIRTAG ) ) goto L2649;
scrt1__24__cdr_2derror( e1646 );
L2649:
X4 = PAIR_CDR( e1646 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2652;
scrt1__24__car_2derror( X4 );
L2652:
X3 = PAIR_CAR( X4 );
if ( NOT( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), STRINGTAG ) ) )
) goto L2646;
X3 = PAIR_CDR( e1646 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2656;
scrt1__24__car_2derror( X3 );
L2656:
X1 = PAIR_CAR( X3 );
goto L2645;
L2646:
X1 = FALSEVALUE;
goto L2645;
L2644:
X1 = X2;
L2645:
if ( FALSE( X1 ) ) goto L2659;
X2 = SYMBOL_VALUE( sc_2dinclude_2ddirs_v );
L2662:
if ( FALSE( X2 ) ) goto L2663;
X4 = CONS( X1, EMPTYLIST );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2666;
scrt1__24__car_2derror( X2 );
L2666:
DISPLAY( 0 ) = scrt3_string_2dappend( CONS( PAIR_CAR( X2 ),
X4 ) );
X4 = MAKEPROCEDURE( 1,
0,
readtext_l1651,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 0 ) ) );
X3 = sc_ntinuation_1af38b9f( X4 );
if ( FALSE( X3 ) ) goto L2678;
X5 = SYMBOL_VALUE( sc_2dsplice_v );
X6 = SYMBOL_VALUE( sc_2dinput_v );
X4 = sc_cons( X5, X6 );
SETGENTL( SYMBOL_VALUE( sc_2dinput_v ),
sc_cons( X3, X4 ) );
SDVAL = SETGENTL( SYMBOL_VALUE( sc_2dsplice_v ),
EMPTYLIST );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
L2678:
X2 = PAIR_CDR( X2 );
goto L2662;
L2663:
X3 = SYMBOL_VALUE( report_2derror_v );
X3 = UNKNOWNCALL( X3, 2 );
SDVAL = VIA( PROCEDURE_CODE( X3 ) )( c1665,
X1,
PROCEDURE_CLOSURE( X3 ) );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
L2659:
X2 = SYMBOL_VALUE( expand_2derror_v );
X2 = UNKNOWNCALL( X2, 2 );
SDVAL = VIA( PROCEDURE_CODE( X2 ) )( c1069,
e1646,
PROCEDURE_CLOSURE( X2 ) );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( readtext_do_2dmodule_v );
DEFSTRING( t2682, "DO-MODULE", 9 );
EXTERNTSCPP( readtext__2dclauses_73970203 );
EXTERNTSCP( readtext__2dclauses_73970203_v );
TSCP readtext_do_2dmodule( e1710 )
TSCP e1710;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2682 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1710,
_TSCP( 8 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2725;
if ( EQ( TSCPTAG( e1710 ), PAIRTAG ) ) goto L2691;
scrt1__24__cdr_2derror( e1710 );
L2691:
X3 = PAIR_CDR( e1710 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2694;
scrt1__24__car_2derror( X3 );
L2694:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2725;
X2 = SYMBOL_VALUE( module_2dname_v );
if ( FALSE( scrt1_equal_3f( X2, sc_emptystring ) ) ) goto L2697;
X3 = PAIR_CDR( e1710 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2702;
scrt1__24__car_2derror( X3 );
L2702:
X2 = PAIR_CAR( X3 );
SETGENTL( SYMBOL_VALUE( module_2dname_v ),
expform_lchexname( X2 ) );
X3 = PAIR_CDR( e1710 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2706;
scrt1__24__car_2derror( X3 );
L2706:
X2 = PAIR_CAR( X3 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) ) goto L2709;
scrt6_error( c1744, c1745, CONS( X2, EMPTYLIST ) );
L2709:
SETGENTL( SYMBOL_VALUE( module_2dname_2dupcase_v ),
SYMBOL_NAME( X2 ) );
goto L2698;
L2697:
X3 = SYMBOL_VALUE( module_2dname_v );
X2 = SYMBOL_VALUE( report_2derror_v );
X2 = UNKNOWNCALL( X2, 2 );
VIA( PROCEDURE_CODE( X2 ) )( c1728,
X3, PROCEDURE_CLOSURE( X2 ) );
L2698:
X3 = PAIR_CDR( e1710 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2713;
scrt1__24__cdr_2derror( X3 );
L2713:
X2 = PAIR_CDR( X3 );
X3 = X2;
L2717:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2718;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2722;
scrt1__24__car_2derror( X3 );
L2722:
X4 = PAIR_CAR( X3 );
readtext__2dclauses_73970203( X4 );
X3 = PAIR_CDR( X3 );
goto L2717;
L2718:
POPSTACKTRACE( FALSEVALUE );
L2725:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1065,
e1710,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( readtext__2dclauses_73970203_v );
DEFSTRING( t2726, "DO-MODULE-CLAUSES", 17 );
EXTERNTSCPP( scrt2_positive_3f );
EXTERNTSCP( scrt2_positive_3f_v );
TSCP readtext__2dclauses_73970203( c1790 )
TSCP c1790;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2726 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1790,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2758;
if ( EQ( TSCPTAG( c1790 ), PAIRTAG ) ) goto L2736;
scrt1__24__car_2derror( c1790 );
L2736:
X2 = PAIR_CAR( c1790 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1805 ) ) ) goto L2758;
if ( FALSE( SYMBOL_VALUE( main_2dprogram_2dname_v ) )
) goto L2738;
X2 = FALSEVALUE;
goto L2739;
L2738:
X2 = TRUEVALUE;
L2739:
if ( FALSE( X2 ) ) goto L2758;
X4 = PAIR_CDR( c1790 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2748;
scrt1__24__car_2derror( X4 );
L2748:
X3 = PAIR_CAR( X4 );
if ( NOT( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) )
) goto L2758;
if ( TRUE( SYMBOL_VALUE( sc_2dinterpreter_v ) ) ) goto L2750;
X3 = PAIR_CDR( c1790 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2754;
scrt1__24__car_2derror( X3 );
L2754:
POPSTACKTRACE( SETGENTL( SYMBOL_VALUE( main_2dprogram_2dname_v ),
PAIR_CAR( X3 ) ) );
L2750:
POPSTACKTRACE( FALSEVALUE );
L2758:
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1790,
_TSCP( 8 ),
_TSCP( 8 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2792;
if ( EQ( TSCPTAG( c1790 ), PAIRTAG ) ) goto L2767;
scrt1__24__car_2derror( c1790 );
L2767:
X2 = PAIR_CAR( c1790 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1838 ) ) ) goto L2792;
X3 = PAIR_CDR( c1790 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2774;
scrt1__24__car_2derror( X3 );
L2774:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2792;
X3 = PAIR_CDR( c1790 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2778;
scrt1__24__car_2derror( X3 );
L2778:
X2 = PAIR_CAR( X3 );
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L2782;
if ( GT( INT( X2 ), 0 ) ) goto L2786;
goto L2792;
L2782:
if ( FALSE( scrt2_positive_3f( X2 ) ) ) goto L2792;
L2786:
X1 = PAIR_CDR( c1790 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2795;
scrt1__24__car_2derror( X1 );
L2795:
POPSTACKTRACE( SETGENTL( SYMBOL_VALUE( heap_2dsize_v ),
PAIR_CAR( X1 ) ) );
L2792:
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1790,
_TSCP( 4 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2811;
if ( EQ( TSCPTAG( c1790 ), PAIRTAG ) ) goto L2805;
scrt1__24__car_2derror( c1790 );
L2805:
X2 = PAIR_CAR( c1790 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1503 ) ) ) goto L2811;
X2 = SYMBOL_VALUE( top_2dlevel_2dsymbols_v );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( TRUEVALUE ) ) ) goto L2811;
POPSTACKTRACE( SETGENTL( SYMBOL_VALUE( top_2dlevel_2dsymbols_v ),
PAIR_CDR( c1790 ) ) );
L2811:
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 2 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( c1790,
_TSCP( 8 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2842;
if ( EQ( TSCPTAG( c1790 ), PAIRTAG ) ) goto L2820;
scrt1__24__car_2derror( c1790 );
L2820:
X2 = PAIR_CAR( c1790 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1907 ) ) ) goto L2842;
if ( TRUE( SYMBOL_VALUE( with_2dmodules_v ) ) ) goto L2842;
X2 = PAIR_CDR( c1790 );
X3 = X2;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L2828:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2829;
X6 = X4;
goto L2836;
L2829:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2832;
scrt1__24__car_2derror( X3 );
L2832:
X9 = PAIR_CAR( X3 );
X8 = expform_lchexname( X9 );
X7 = sc_cons( X8, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2835;
X8 = PAIR_CDR( X3 );
X5 = X7;
X4 = X7;
X3 = X8;
goto L2828;
L2835:
X8 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2840;
scrt6_error( c1310, c1311, CONS( X5, EMPTYLIST ) );
L2840:
X5 = SETGEN( PAIR_CDR( X5 ), X7 );
X3 = X8;
goto L2828;
L2836:
POPSTACKTRACE( SETGENTL( SYMBOL_VALUE( with_2dmodules_v ),
X6 ) );
L2842:
X1 = SYMBOL_VALUE( report_2derror_v );
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1910,
PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( readtext_2dconstant_f5c64566_v );
DEFSTRING( t2843, "DO-DEFINE-CONSTANT", 18 );
TSCP readtext_2dconstant_f5c64566( e1981 )
TSCP e1981;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2843 ) ) );
X2 = SYMBOL_VALUE( islist_v );
X2 = UNKNOWNCALL( X2, 3 );
X1 = VIA( PROCEDURE_CODE( X2 ) )( e1981,
_TSCP( 12 ),
_TSCP( 12 ),
PROCEDURE_CLOSURE( X2 ) );
if ( FALSE( X1 ) ) goto L2862;
if ( EQ( TSCPTAG( e1981 ), PAIRTAG ) ) goto L2852;
scrt1__24__cdr_2derror( e1981 );
L2852:
X3 = PAIR_CDR( e1981 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2855;
scrt1__24__car_2derror( X3 );
L2855:
X2 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L2862;
X3 = PAIR_CDR( e1981 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2859;
scrt1__24__car_2derror( X3 );
L2859:
X2 = PAIR_CAR( X3 );
X6 = scrt1_caddr( e1981 );
X5 = sceval_eval( X6, CONS( EMPTYLIST, EMPTYLIST ) );
X4 = sc_cons( X5, EMPTYLIST );
X3 = X4;
POPSTACKTRACE( readtext_2dexpander_924034c5( X2, X3 ) );
L2862:
X1 = SYMBOL_VALUE( expand_2derror_v );
X1 = UNKNOWNCALL( X1, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( c1073,
e1981,
PROCEDURE_CLOSURE( X1 ) ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt2__init();
scrt3__init();
expform__init();
plist__init();
scrt5__init();
sceval__init();
scrt6__init();
scrt1__init();
MAXDISPLAY( 3 );
}
void readtext__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(readtext SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t2260 ) ),
ADR( readtext_read_2dtext_v ),
MAKEPROCEDURE( 0,
0,
readtext_read_2dtext, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2347 ) ),
ADR( readtext_sc_2dinput_3d56933a_v ),
MAKEPROCEDURE( 0,
0,
readtext_sc_2dinput_3d56933a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2392 ) ),
ADR( readtext_sc_2dexpand_v ),
MAKEPROCEDURE( 1,
0,
readtext_sc_2dexpand, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2394 ) ),
ADR( readtext_2dexpander_c83ee5f9_v ),
MAKEPROCEDURE( 2,
0,
readtext_2dexpander_c83ee5f9,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2411 ) ),
ADR( readtext_sc_2dexpand_2donce_v ),
MAKEPROCEDURE( 1,
0,
readtext_sc_2dexpand_2donce,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2416 ) ),
ADR( readtext_xpander_2a_b26e591c_v ),
MAKEPROCEDURE( 2,
0,
readtext_xpander_2a_b26e591c,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2422 ) ),
ADR( readtext_xpander_2a_afbc6f79_v ),
MAKEPROCEDURE( 2,
0,
readtext_xpander_2a_afbc6f79,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2441 ) ),
ADR( readtext_2dexpander_924034c5_v ),
MAKEPROCEDURE( 2,
0,
readtext_2dexpander_924034c5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2443 ) ),
ADR( readtext_2dexternal_66fe3106_v ),
MAKEPROCEDURE( 1,
0,
readtext_2dexternal_66fe3106,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2557 ) ),
ADR( readtext_2dexternal_7d8f1d02_v ),
MAKEPROCEDURE( 1,
0,
readtext_2dexternal_7d8f1d02,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2621 ) ),
ADR( readtext_do_2ddefine_2dmacro_v ),
MAKEPROCEDURE( 1,
0,
readtext_do_2ddefine_2dmacro,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2640 ) ),
ADR( readtext_do_2dinclude_v ),
MAKEPROCEDURE( 1,
0,
readtext_do_2dinclude, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2682 ) ),
ADR( readtext_do_2dmodule_v ),
MAKEPROCEDURE( 1,
0,
readtext_do_2dmodule, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2726 ) ),
ADR( readtext__2dclauses_73970203_v ),
MAKEPROCEDURE( 1,
0,
readtext__2dclauses_73970203,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2843 ) ),
ADR( readtext_2dconstant_f5c64566_v ),
MAKEPROCEDURE( 1,
0,
readtext_2dconstant_f5c64566,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.