This is closeana.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t4127, "NAME-A-LAMBDA", 13 );
DEFSTATICTSCP( name_2da_2dlambda_v );
DEFSTRING( t4128, "LOG?", 4 );
DEFSTATICTSCP( log_3f_v );
DEFSTRING( t4129, "SC-ICODE", 8 );
DEFSTATICTSCP( sc_2dicode_v );
DEFSTRING( t4130, "ASSIGN-KNOWN-NAME", 17 );
DEFSTATICTSCP( assign_2dknown_2dname_v );
DEFSTRING( t4131, "~A forces ~A to display~%", 25 );
DEFSTATICTSCP2( c3807, t4131 );
DEFSTATICTSCP( c3767 );
DEFSTRING( t4133, "CLOSED-PROCEDURE", 16 );
DEFSTATICTSCP( t4132 );
DEFSTRING( t4135, "PROCEDURE", 9 );
DEFSTATICTSCP( t4134 );
DEFSTATICTSCP( c3670 );
DEFSTRING( t4137, "INLINE-TAIL", 11 );
DEFSTATICTSCP( t4136 );
DEFSTRING( t4139, "INLINE", 6 );
DEFSTATICTSCP( t4138 );
DEFSTRING( t4140, "INLINE-TAILS", 12 );
DEFSTATICTSCP( c3637 );
DEFSTRING( t4141, "INLINE-TAIL", 11 );
DEFSTATICTSCP( c3540 );
DEFSTRING( t4142, "INLINE", 6 );
DEFSTATICTSCP( c3526 );
DEFSTRING( t4143, "PROCEDURE", 9 );
DEFSTATICTSCP( c3506 );
DEFSTRING( t4144, "NAME", 4 );
DEFSTATICTSCP( c3497 );
DEFSTRING( t4145, "EXTERNAL", 8 );
DEFSTATICTSCP( c3175 );
DEFSTRING( t4146, "EXITS", 5 );
DEFSTATICTSCP( c3054 );
DEFSTRING( t4147, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c3009, t4147 );
DEFSTRING( t4148, "SET-CAR!", 8 );
DEFSTATICTSCP( c3008 );
DEFSTRING( t4149, "REAL-CALLS", 10 );
DEFSTATICTSCP( c2810 );
DEFSTRING( t4150, "TAIL-CALLS", 10 );
DEFSTATICTSCP( c2806 );
DEFSTRING( t4151, "STR-CALLS", 9 );
DEFSTATICTSCP( c2802 );
DEFSTATICTSCP( c2330 );
DEFSTRING( t4153, "INLINE-CLOSED", 13 );
DEFSTATICTSCP( t4152 );
DEFSTRING( t4154, "BOUNDID", 7 );
DEFSTATICTSCP( c2308 );
DEFSTRING( t4155, "OPTVARS", 7 );
DEFSTATICTSCP( c2180 );
DEFSTRING( t4156, "CALLS", 5 );
DEFSTATICTSCP( c2175 );
DEFSTRING( t4157, "LEXICAL", 7 );
DEFSTATICTSCP( c2172 );
DEFSTRING( t4158, "CLOSED-PROCEDURE", 16 );
DEFSTATICTSCP( c2156 );
DEFSTRING( t4159, "GENERATE", 8 );
DEFSTATICTSCP( c2142 );
DEFSTRING( t4160, "DISPLAY", 7 );
DEFSTATICTSCP( c2039 );
DEFSTRING( t4161, "~A forces ~A to the display~%", 29 );
DEFSTATICTSCP2( c2012, t4161 );
DEFSTRING( t4162, "~A must be a closed procedure~%", 31 );
DEFSTATICTSCP2( c1955, t4162 );
DEFSTRING( t4163, "CLOSED", 6 );
DEFSTATICTSCP( c1952 );
DEFSTRING( t4164, "GLOBAL", 6 );
DEFSTATICTSCP( c1947 );
DEFSTRING( t4165, "USE", 3 );
DEFSTATICTSCP( c1946 );
DEFSTRING( t4166, "NESTIN", 6 );
DEFSTATICTSCP( c1933 );
DEFSTRING( t4167, "REQVARS", 7 );
DEFSTATICTSCP( c1571 );
DEFSTRING( t4168, "LAMBDA", 6 );
DEFSTATICTSCP( c1547 );
DEFSTATICTSCP( c1407 );
DEFSTRING( t4170, "TOP-LEVEL", 9 );
DEFSTATICTSCP( t4169 );
DEFSTRING( t4171, "$IF", 3 );
DEFSTATICTSCP( c1223 );
DEFSTRING( t4172, "$CALL", 5 );
DEFSTATICTSCP( c1207 );
DEFSTRING( t4173, "$SET", 4 );
DEFSTATICTSCP( c1161 );
DEFSTRING( t4174, "TOP-LEVEL", 9 );
DEFSTATICTSCP( c1126 );
DEFSTRING( t4175, "SET!", 4 );
DEFSTATICTSCP( c1069 );
DEFSTRING( t4176, "$LAMBDA", 7 );
DEFSTATICTSCP( c1065 );
DEFSTRING( t4177, "$DEFINE", 7 );
DEFSTATICTSCP( c1043 );
static void init_constants()
{
name_2da_2dlambda_v = STRINGTOSYMBOL( U_TX( ADR( t4127 ) ) );
CONSTANTEXP( ADR( name_2da_2dlambda_v ) );
log_3f_v = STRINGTOSYMBOL( U_TX( ADR( t4128 ) ) );
CONSTANTEXP( ADR( log_3f_v ) );
sc_2dicode_v = STRINGTOSYMBOL( U_TX( ADR( t4129 ) ) );
CONSTANTEXP( ADR( sc_2dicode_v ) );
assign_2dknown_2dname_v = STRINGTOSYMBOL( U_TX( ADR( t4130 ) ) );
CONSTANTEXP( ADR( assign_2dknown_2dname_v ) );
c3767 = EMPTYLIST;
t4132 = STRINGTOSYMBOL( U_TX( ADR( t4133 ) ) );
c3767 = CONS( t4132, c3767 );
t4134 = STRINGTOSYMBOL( U_TX( ADR( t4135 ) ) );
c3767 = CONS( t4134, c3767 );
CONSTANTEXP( ADR( c3767 ) );
c3670 = EMPTYLIST;
t4136 = STRINGTOSYMBOL( U_TX( ADR( t4137 ) ) );
c3670 = CONS( t4136, c3670 );
t4138 = STRINGTOSYMBOL( U_TX( ADR( t4139 ) ) );
c3670 = CONS( t4138, c3670 );
CONSTANTEXP( ADR( c3670 ) );
c3637 = STRINGTOSYMBOL( U_TX( ADR( t4140 ) ) );
CONSTANTEXP( ADR( c3637 ) );
c3540 = STRINGTOSYMBOL( U_TX( ADR( t4141 ) ) );
CONSTANTEXP( ADR( c3540 ) );
c3526 = STRINGTOSYMBOL( U_TX( ADR( t4142 ) ) );
CONSTANTEXP( ADR( c3526 ) );
c3506 = STRINGTOSYMBOL( U_TX( ADR( t4143 ) ) );
CONSTANTEXP( ADR( c3506 ) );
c3497 = STRINGTOSYMBOL( U_TX( ADR( t4144 ) ) );
CONSTANTEXP( ADR( c3497 ) );
c3175 = STRINGTOSYMBOL( U_TX( ADR( t4145 ) ) );
CONSTANTEXP( ADR( c3175 ) );
c3054 = STRINGTOSYMBOL( U_TX( ADR( t4146 ) ) );
CONSTANTEXP( ADR( c3054 ) );
c3008 = STRINGTOSYMBOL( U_TX( ADR( t4148 ) ) );
CONSTANTEXP( ADR( c3008 ) );
c2810 = STRINGTOSYMBOL( U_TX( ADR( t4149 ) ) );
CONSTANTEXP( ADR( c2810 ) );
c2806 = STRINGTOSYMBOL( U_TX( ADR( t4150 ) ) );
CONSTANTEXP( ADR( c2806 ) );
c2802 = STRINGTOSYMBOL( U_TX( ADR( t4151 ) ) );
CONSTANTEXP( ADR( c2802 ) );
c2330 = EMPTYLIST;
t4152 = STRINGTOSYMBOL( U_TX( ADR( t4153 ) ) );
c2330 = CONS( t4152, c2330 );
c2330 = CONS( c3526, c2330 );
CONSTANTEXP( ADR( c2330 ) );
c2308 = STRINGTOSYMBOL( U_TX( ADR( t4154 ) ) );
CONSTANTEXP( ADR( c2308 ) );
c2180 = STRINGTOSYMBOL( U_TX( ADR( t4155 ) ) );
CONSTANTEXP( ADR( c2180 ) );
c2175 = STRINGTOSYMBOL( U_TX( ADR( t4156 ) ) );
CONSTANTEXP( ADR( c2175 ) );
c2172 = STRINGTOSYMBOL( U_TX( ADR( t4157 ) ) );
CONSTANTEXP( ADR( c2172 ) );
c2156 = STRINGTOSYMBOL( U_TX( ADR( t4158 ) ) );
CONSTANTEXP( ADR( c2156 ) );
c2142 = STRINGTOSYMBOL( U_TX( ADR( t4159 ) ) );
CONSTANTEXP( ADR( c2142 ) );
c2039 = STRINGTOSYMBOL( U_TX( ADR( t4160 ) ) );
CONSTANTEXP( ADR( c2039 ) );
c1952 = STRINGTOSYMBOL( U_TX( ADR( t4163 ) ) );
CONSTANTEXP( ADR( c1952 ) );
c1947 = STRINGTOSYMBOL( U_TX( ADR( t4164 ) ) );
CONSTANTEXP( ADR( c1947 ) );
c1946 = STRINGTOSYMBOL( U_TX( ADR( t4165 ) ) );
CONSTANTEXP( ADR( c1946 ) );
c1933 = STRINGTOSYMBOL( U_TX( ADR( t4166 ) ) );
CONSTANTEXP( ADR( c1933 ) );
c1571 = STRINGTOSYMBOL( U_TX( ADR( t4167 ) ) );
CONSTANTEXP( ADR( c1571 ) );
c1547 = STRINGTOSYMBOL( U_TX( ADR( t4168 ) ) );
CONSTANTEXP( ADR( c1547 ) );
c1407 = EMPTYLIST;
t4169 = STRINGTOSYMBOL( U_TX( ADR( t4170 ) ) );
c1407 = CONS( t4169, c1407 );
CONSTANTEXP( ADR( c1407 ) );
c1223 = STRINGTOSYMBOL( U_TX( ADR( t4171 ) ) );
CONSTANTEXP( ADR( c1223 ) );
c1207 = STRINGTOSYMBOL( U_TX( ADR( t4172 ) ) );
CONSTANTEXP( ADR( c1207 ) );
c1161 = STRINGTOSYMBOL( U_TX( ADR( t4173 ) ) );
CONSTANTEXP( ADR( c1161 ) );
c1126 = STRINGTOSYMBOL( U_TX( ADR( t4174 ) ) );
CONSTANTEXP( ADR( c1126 ) );
c1069 = STRINGTOSYMBOL( U_TX( ADR( t4175 ) ) );
CONSTANTEXP( ADR( c1069 ) );
c1065 = STRINGTOSYMBOL( U_TX( ADR( t4176 ) ) );
CONSTANTEXP( ADR( c1065 ) );
c1043 = STRINGTOSYMBOL( U_TX( ADR( t4177 ) ) );
CONSTANTEXP( ADR( c1043 ) );
}
DEFTSCP( closeana_analyze_2dclosures1a_v );
DEFSTRING( t4178, "ANALYZE-CLOSURES1A", 18 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
TSCP closeana_analyze_2dclosures1a( e1027 )
TSCP e1027;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4178 ) ) );
if ( NEQ( TSCPTAG( e1027 ), PAIRTAG ) ) goto L4180;
X1 = PAIR_CAR( e1027 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1043 ) ) ) goto L4182;
X3 = PAIR_CAR( e1027 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1043 ) ) );
if ( FALSE( X2 ) ) goto L4187;
X3 = PAIR_CDR( e1027 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4191;
scrt1__24__car_2derror( X3 );
L4191:
X1 = PAIR_CAR( X3 );
goto L4188;
L4187:
X1 = X2;
L4188:
X4 = PAIR_CAR( e1027 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1043 ) ) );
if ( FALSE( X3 ) ) goto L4195;
X2 = scrt1_caddr( e1027 );
goto L4196;
L4195:
X2 = X3;
L4196:
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4198;
X3 = PAIR_CAR( X2 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1065 ) ) ) goto L4200;
if ( TRUE( plist_get( X1, c1069 ) ) ) goto L4203;
X3 = SYMBOL_VALUE( name_2da_2dlambda_v );
X3 = UNKNOWNCALL( X3, 2 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X3 ) )( X1,
X2,
PROCEDURE_CLOSURE( X3 ) ) );
L4203:
POPSTACKTRACE( FALSEVALUE );
L4200:
POPSTACKTRACE( FALSEVALUE );
L4198:
POPSTACKTRACE( FALSEVALUE );
L4182:
POPSTACKTRACE( FALSEVALUE );
L4180:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana_analyze_2dclosures1b_v );
DEFSTRING( t4205, "ANALYZE-CLOSURES1B", 18 );
EXTERNTSCP( closeana_walk_2dlambda_2did_v );
EXTERNTSCPP( closeana_da_2dslots_a659d0e7 );
EXTERNTSCP( closeana_da_2dslots_a659d0e7_v );
EXTERNTSCPP( closeana_walk_2d_24tree );
EXTERNTSCP( closeana_walk_2d_24tree_v );
EXTERNTSCPP( closeana_assign_2dlambdas );
EXTERNTSCP( closeana_assign_2dlambdas_v );
EXTERNTSCPP( closeana_inherit_2dclosed );
EXTERNTSCP( closeana_inherit_2dclosed_v );
TSCP closeana_analyze_2dclosures1b( e1125 )
TSCP e1125;
{
PUSHSTACKTRACE( U_TX( ADR( t4205 ) ) );
closeana_walk_2dlambda_2did_v = c1126;
closeana_da_2dslots_a659d0e7( e1125 );
closeana_walk_2d_24tree( closeana_assign_2dlambdas_v, e1125 );
closeana_da_2dslots_a659d0e7( e1125 );
POPSTACKTRACE( closeana_walk_2d_24tree( closeana_inherit_2dclosed_v,
e1125 ) );
}
DEFTSCP( closeana_analyze_2dclosures2_v );
DEFSTRING( t4207, "ANALYZE-CLOSURES2", 17 );
EXTERNTSCP( closeana_bda_2dlist_c52ab123_v );
EXTERNTSCPP( closeana_mark_2dtail_2dcalls );
EXTERNTSCP( closeana_mark_2dtail_2dcalls_v );
EXTERNTSCPP( closeana_count_2dcalls );
EXTERNTSCP( closeana_count_2dcalls_v );
EXTERNTSCPP( closeana_generate_2dlambdas );
EXTERNTSCP( closeana_generate_2dlambdas_v );
EXTERNTSCPP( closeana_display_2dclose );
EXTERNTSCP( closeana_display_2dclose_v );
TSCP closeana_analyze_2dclosures2( e1134 )
TSCP e1134;
{
PUSHSTACKTRACE( U_TX( ADR( t4207 ) ) );
closeana_walk_2dlambda_2did_v = c1126;
closeana_bda_2dlist_c52ab123_v = EMPTYLIST;
closeana_da_2dslots_a659d0e7( e1134 );
closeana_walk_2d_24tree( closeana_mark_2dtail_2dcalls_v, e1134 );
closeana_walk_2d_24tree( closeana_count_2dcalls_v, e1134 );
closeana_generate_2dlambdas( closeana_bda_2dlist_c52ab123_v );
closeana_da_2dslots_a659d0e7( e1134 );
POPSTACKTRACE( closeana_walk_2d_24tree( closeana_display_2dclose_v,
e1134 ) );
}
DEFTSCP( closeana_walk_2d_24tree_v );
DEFSTRING( t4209, "WALK-$TREE", 10 );
EXTERNTSCPP( closeana_ree_2dlist_f50a563f );
EXTERNTSCP( closeana_ree_2dlist_f50a563f_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
TSCP closeana_walk_2d_24tree( f1141, l1142 )
TSCP f1141, l1142;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4209 ) ) );
L4210:
if ( NEQ( TSCPTAG( l1142 ), PAIRTAG ) ) goto L4211;
X1 = f1141;
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( l1142,
PROCEDURE_CLOSURE( X1 ) );
X1 = BOOLEAN( EQ( TSCPTAG( l1142 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4225;
X2 = PAIR_CAR( l1142 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1161 ) ) ) goto L4225;
X3 = PAIR_CAR( l1142 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1161 ) ) );
if ( FALSE( X2 ) ) goto L4223;
l1142 = scrt1_caddr( l1142 );
goto L4210;
L4223:
l1142 = X2;
goto L4210;
L4211:
POPSTACKTRACE( FALSEVALUE );
L4225:
X1 = BOOLEAN( EQ( TSCPTAG( l1142 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4237;
X2 = PAIR_CAR( l1142 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1043 ) ) ) goto L4237;
X3 = PAIR_CAR( l1142 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1043 ) ) );
if ( FALSE( X2 ) ) goto L4235;
l1142 = scrt1_caddr( l1142 );
goto L4210;
L4235:
l1142 = X2;
goto L4210;
L4237:
X1 = BOOLEAN( EQ( TSCPTAG( l1142 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4262;
X2 = PAIR_CAR( l1142 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1065 ) ) ) goto L4262;
X2 = closeana_walk_2dlambda_2did_v;
X4 = PAIR_CAR( l1142 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1065 ) ) );
if ( FALSE( X3 ) ) goto L4248;
X5 = PAIR_CDR( l1142 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4252;
scrt1__24__car_2derror( X5 );
L4252:
X4 = PAIR_CAR( X5 );
goto L4249;
L4248:
X4 = X3;
L4249:
closeana_walk_2dlambda_2did_v = X4;
X5 = PAIR_CAR( l1142 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1065 ) ) );
if ( FALSE( X4 ) ) goto L4256;
X5 = PAIR_CDR( l1142 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4260;
scrt1__24__cdr_2derror( X5 );
L4260:
X3 = PAIR_CDR( X5 );
goto L4257;
L4256:
X3 = X4;
L4257:
closeana_ree_2dlist_f50a563f( f1141, X3 );
POPSTACKTRACE( SET( closeana_walk_2dlambda_2did_v, X2 ) );
L4262:
X1 = BOOLEAN( EQ( TSCPTAG( l1142 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4279;
X2 = PAIR_CAR( l1142 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1207 ) ) ) goto L4279;
X4 = PAIR_CAR( l1142 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X3 ) ) goto L4272;
X2 = scrt1_caddr( l1142 );
goto L4273;
L4272:
X2 = X3;
L4273:
X5 = PAIR_CAR( l1142 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X4 ) ) goto L4277;
X3 = scrt1_cdddr( l1142 );
goto L4278;
L4277:
X3 = X4;
L4278:
closeana_ree_2dlist_f50a563f( f1141, X3 );
l1142 = X2;
goto L4210;
L4279:
X1 = PAIR_CAR( l1142 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1223 ) ) ) goto L4280;
X1 = PAIR_CDR( l1142 );
POPSTACKTRACE( closeana_ree_2dlist_f50a563f( f1141, X1 ) );
L4280:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana_ree_2dlist_f50a563f_v );
DEFSTRING( t4284, "WALK-$TREE-LIST", 15 );
TSCP closeana_ree_2dlist_f50a563f( f1380, f1381 )
TSCP f1380, f1381;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4284 ) ) );
X1 = f1381;
L4287:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L4288;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L4292;
scrt1__24__car_2derror( X1 );
L4292:
X2 = PAIR_CAR( X1 );
closeana_walk_2d_24tree( f1380, X2 );
X1 = PAIR_CDR( X1 );
goto L4287;
L4288:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana_walk_2dlambda_2did_v );
DEFSTRING( t4295, "WALK-LAMBDA-ID", 14 );
DEFTSCP( closeana_walk_2dlambda_2dids_v );
DEFSTRING( t4296, "WALK-LAMBDA-IDS", 15 );
DEFTSCP( closeana__2dlexical_455a78ac_v );
DEFSTRING( t4297, "WALK-LAMBDA-LEXICAL", 19 );
DEFTSCP( closeana_bda_2dlist_c52ab123_v );
DEFSTRING( t4298, "CLOSE-LAMBDA-LIST", 17 );
DEFTSCP( closeana_assign_2dlambdas_v );
DEFSTRING( t4299, "ASSIGN-LAMBDAS", 14 );
EXTERNTSCPP( closeana_bdas_2darg_a7a3fa97 );
EXTERNTSCP( closeana_bdas_2darg_a7a3fa97_v );
EXTERNTSCPP( scrt1_cadddr );
EXTERNTSCP( scrt1_cadddr_v );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
TSCP closeana_assign_2dlambdas( e1410 )
TSCP e1410;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4299 ) ) );
X1 = BOOLEAN( EQ( TSCPTAG( e1410 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4350;
if ( EQ( TSCPTAG( e1410 ), PAIRTAG ) ) goto L4308;
scrt1__24__car_2derror( e1410 );
L4308:
X2 = PAIR_CAR( e1410 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1161 ) ) ) goto L4350;
X5 = PAIR_CAR( e1410 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1161 ) ) );
if ( FALSE( X4 ) ) goto L4312;
X3 = scrt1_caddr( e1410 );
goto L4313;
L4312:
X3 = X4;
L4313:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4315;
X4 = PAIR_CAR( X3 );
X2 = BOOLEAN( NEQ( UNSIGNED( X4 ),
UNSIGNED( c1065 ) ) );
goto L4316;
L4315:
X2 = TRUEVALUE;
L4316:
if ( TRUE( X2 ) ) goto L4322;
X6 = PAIR_CAR( e1410 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1161 ) ) );
if ( FALSE( X5 ) ) goto L4327;
X6 = PAIR_CDR( e1410 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L4331;
scrt1__24__car_2derror( X6 );
L4331:
X4 = PAIR_CAR( X6 );
goto L4328;
L4327:
X4 = X5;
L4328:
X3 = plist_get( X4, c1547 );
X7 = PAIR_CAR( e1410 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1161 ) ) );
if ( FALSE( X6 ) ) goto L4335;
X5 = scrt1_caddr( e1410 );
goto L4336;
L4335:
X5 = X6;
L4336:
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4338;
X7 = PAIR_CAR( X5 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1065 ) ) );
goto L4339;
L4338:
X6 = FALSEVALUE;
L4339:
if ( FALSE( X6 ) ) goto L4342;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4345;
scrt1__24__cdr_2derror( X5 );
L4345:
X7 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L4348;
scrt1__24__car_2derror( X7 );
L4348:
X4 = PAIR_CAR( X7 );
goto L4343;
L4342:
X4 = X6;
L4343:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( X4 ) ) ) goto L4322;
POPSTACKTRACE( FALSEVALUE );
L4350:
X1 = BOOLEAN( EQ( TSCPTAG( e1410 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4378;
if ( EQ( TSCPTAG( e1410 ), PAIRTAG ) ) goto L4358;
scrt1__24__car_2derror( e1410 );
L4358:
X2 = PAIR_CAR( e1410 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1065 ) ) ) goto L4378;
X4 = PAIR_CAR( e1410 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1065 ) ) );
if ( FALSE( X3 ) ) goto L4362;
X4 = PAIR_CDR( e1410 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4366;
scrt1__24__cdr_2derror( X4 );
L4366:
X2 = PAIR_CDR( X4 );
goto L4363;
L4362:
X2 = X3;
L4363:
X3 = X2;
L4370:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L4371;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4375;
scrt1__24__car_2derror( X3 );
L4375:
X4 = PAIR_CAR( X3 );
closeana_bdas_2darg_a7a3fa97( X4 );
X3 = PAIR_CDR( X3 );
goto L4370;
L4371:
POPSTACKTRACE( FALSEVALUE );
L4378:
X1 = BOOLEAN( EQ( TSCPTAG( e1410 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4405;
if ( EQ( TSCPTAG( e1410 ), PAIRTAG ) ) goto L4386;
scrt1__24__car_2derror( e1410 );
L4386:
X2 = PAIR_CAR( e1410 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1223 ) ) ) goto L4405;
X4 = PAIR_CAR( e1410 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1223 ) ) );
if ( FALSE( X3 ) ) goto L4391;
X4 = PAIR_CDR( e1410 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4395;
scrt1__24__car_2derror( X4 );
L4395:
X2 = PAIR_CAR( X4 );
goto L4392;
L4391:
X2 = X3;
L4392:
closeana_bdas_2darg_a7a3fa97( X2 );
X4 = PAIR_CAR( e1410 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1223 ) ) );
if ( FALSE( X3 ) ) goto L4399;
X2 = scrt1_caddr( e1410 );
goto L4400;
L4399:
X2 = X3;
L4400:
closeana_bdas_2darg_a7a3fa97( X2 );
X4 = PAIR_CAR( e1410 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1223 ) ) );
if ( FALSE( X3 ) ) goto L4403;
X2 = scrt1_cadddr( e1410 );
goto L4404;
L4403:
X2 = X3;
L4404:
POPSTACKTRACE( closeana_bdas_2darg_a7a3fa97( X2 ) );
L4405:
if ( NEQ( TSCPTAG( e1410 ), PAIRTAG ) ) goto L4406;
X1 = PAIR_CAR( e1410 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1207 ) ) ) goto L4408;
X3 = PAIR_CAR( e1410 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X2 ) ) goto L4413;
X1 = scrt1_caddr( e1410 );
goto L4414;
L4413:
X1 = X2;
L4414:
X2 = BOOLEAN( EQ( TSCPTAG( X1 ), PAIRTAG ) );
if ( FALSE( X2 ) ) goto L4454;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L4423;
scrt1__24__car_2derror( X1 );
L4423:
X3 = PAIR_CAR( X1 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1065 ) ) ) goto L4454;
X6 = PAIR_CAR( X1 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1065 ) ) );
if ( FALSE( X5 ) ) goto L4428;
X6 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L4432;
scrt1__24__car_2derror( X6 );
L4432:
X4 = PAIR_CAR( X6 );
goto L4429;
L4428:
X4 = X5;
L4429:
X3 = plist_get( X4, c1571 );
X6 = PAIR_CAR( e1410 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X5 ) ) goto L4436;
X4 = scrt1_cdddr( e1410 );
goto L4437;
L4436:
X4 = X5;
L4437:
if ( FALSE( X3 ) ) goto L4439;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4442;
scrt1__24__car_2derror( X3 );
L4442:
X5 = PAIR_CAR( X3 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4445;
scrt1__24__car_2derror( X4 );
L4445:
X6 = PAIR_CAR( X4 );
if ( NOT( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), SYMBOLTAG ) ) )
) goto L4450;
if ( FALSE( plist_get( X6, c1547 ) ) ) goto L4450;
X7 = plist_get( X6, c1547 );
plist_put( X5, c1547, X7 );
L4450:
X7 = PAIR_CDR( X3 );
X4 = PAIR_CDR( X4 );
X3 = X7;
goto L4437;
L4439:
POPSTACKTRACE( FALSEVALUE );
L4408:
POPSTACKTRACE( FALSEVALUE );
L4406:
POPSTACKTRACE( FALSEVALUE );
L4454:
X3 = PAIR_CAR( e1410 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X2 ) ) goto L4457;
X1 = scrt1_cdddr( e1410 );
goto L4458;
L4457:
X1 = X2;
L4458:
X2 = X1;
L4461:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L4462;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4466;
scrt1__24__car_2derror( X2 );
L4466:
X3 = PAIR_CAR( X2 );
closeana_bdas_2darg_a7a3fa97( X3 );
X2 = PAIR_CDR( X2 );
goto L4461;
L4462:
POPSTACKTRACE( FALSEVALUE );
L4322:
X3 = PAIR_CAR( e1410 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1161 ) ) );
if ( FALSE( X2 ) ) goto L4471;
X1 = scrt1_caddr( e1410 );
goto L4472;
L4471:
X1 = X2;
L4472:
POPSTACKTRACE( closeana_bdas_2darg_a7a3fa97( X1 ) );
}
DEFTSCP( closeana_bdas_2darg_a7a3fa97_v );
DEFSTRING( t4473, "ASSIGN-LAMBDAS-ARG", 18 );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCPP( closeana_dprocedure_40e51573 );
EXTERNTSCP( closeana_dprocedure_40e51573_v );
TSCP closeana_bdas_2darg_a7a3fa97( e1921 )
TSCP e1921;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4473 ) ) );
if ( NOT( AND( EQ( TSCPTAG( e1921 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1921 ), SYMBOLTAG ) ) )
) goto L4475;
X2 = plist_get( e1921, c1547 );
goto L4476;
L4475:
X2 = FALSEVALUE;
L4476:
if ( FALSE( X2 ) ) goto L4478;
X1 = X2;
goto L4485;
L4478:
if ( NEQ( TSCPTAG( e1921 ), PAIRTAG ) ) goto L4480;
X4 = PAIR_CAR( e1921 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1065 ) ) );
goto L4481;
L4480:
X3 = FALSEVALUE;
L4481:
if ( FALSE( X3 ) ) goto L4484;
if ( EQ( TSCPTAG( e1921 ), PAIRTAG ) ) goto L4487;
scrt1__24__cdr_2derror( e1921 );
L4487:
X4 = PAIR_CDR( e1921 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4490;
scrt1__24__car_2derror( X4 );
L4490:
X1 = PAIR_CAR( X4 );
goto L4485;
L4484:
X1 = X3;
L4485:
if ( FALSE( X1 ) ) goto L4493;
X3 = plist_get( X1, c1933 );
X2 = BOOLEAN( NEQ( UNSIGNED( X3 ),
UNSIGNED( c1126 ) ) );
if ( TRUE( X2 ) ) goto L4500;
if ( NOT( AND( EQ( TSCPTAG( e1921 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e1921 ), SYMBOLTAG ) ) )
) goto L4507;
X3 = plist_get( e1921, c1946 );
if ( EQ( UNSIGNED( X3 ), UNSIGNED( c1947 ) ) ) goto L4507;
L4500:
plist_put( X1, c1952, TRUEVALUE );
X3 = SYMBOL_VALUE( log_3f_v );
X3 = UNKNOWNCALL( X3, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X3 ) )( c1952,
PROCEDURE_CLOSURE( X3 ) ) )
) goto L4507;
X3 = SYMBOL_VALUE( sc_2dicode_v );
X4 = CONS( X1, EMPTYLIST );
scrt6_format( X3, CONS( c1955, X4 ) );
L4507:
POPSTACKTRACE( closeana_dprocedure_40e51573( X1 ) );
L4493:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana_inherit_2dclosed_v );
DEFSTRING( t4509, "INHERIT-CLOSED", 14 );
EXTERNTSCPP( closeana__2dlexical_34c6288f );
EXTERNTSCP( closeana__2dlexical_34c6288f_v );
TSCP closeana_inherit_2dclosed( e2001 )
TSCP e2001;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4509 ) ) );
if ( NEQ( TSCPTAG( e2001 ), PAIRTAG ) ) goto L4511;
X3 = PAIR_CAR( e2001 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1065 ) ) );
goto L4512;
L4511:
X2 = FALSEVALUE;
L4512:
if ( FALSE( X2 ) ) goto L4515;
if ( EQ( TSCPTAG( e2001 ), PAIRTAG ) ) goto L4518;
scrt1__24__cdr_2derror( e2001 );
L4518:
X3 = PAIR_CDR( e2001 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4521;
scrt1__24__car_2derror( X3 );
L4521:
X1 = PAIR_CAR( X3 );
goto L4516;
L4515:
X1 = X2;
L4516:
if ( FALSE( X1 ) ) goto L4524;
if ( FALSE( plist_get( X1, c1952 ) ) ) goto L4526;
X2 = closeana__2dlexical_34c6288f( X1 );
X3 = SYMBOL_VALUE( log_3f_v );
X3 = UNKNOWNCALL( X3, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X3 ) )( c1952,
PROCEDURE_CLOSURE( X3 ) ) )
) goto L4529;
X3 = SYMBOL_VALUE( sc_2dicode_v );
X4 = CONS( X2, EMPTYLIST );
X4 = CONS( X1, X4 );
scrt6_format( X3, CONS( c2012, X4 ) );
L4529:
X3 = X2;
L4532:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L4533;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4537;
scrt1__24__car_2derror( X3 );
L4537:
X4 = PAIR_CAR( X3 );
plist_put( X4, c2039, TRUEVALUE );
X3 = PAIR_CDR( X3 );
goto L4532;
L4533:
POPSTACKTRACE( FALSEVALUE );
L4526:
POPSTACKTRACE( FALSEVALUE );
L4524:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana__2dchecked_ed79e461_v );
DEFSTRING( t4540, "INDIRECT-LAMBDA-CHECKED", 23 );
DEFTSCP( closeana__2dlexical_34c6288f_v );
DEFSTRING( t4541, "INDIRECT-LAMBDA-LEXICAL", 23 );
EXTERNTSCPP( closeana_2dlexical1_2ced58a3 );
EXTERNTSCP( closeana_2dlexical1_2ced58a3_v );
TSCP closeana__2dlexical_34c6288f( l2074 )
TSCP l2074;
{
PUSHSTACKTRACE( U_TX( ADR( t4541 ) ) );
closeana__2dchecked_ed79e461_v = EMPTYLIST;
POPSTACKTRACE( closeana_2dlexical1_2ced58a3( l2074,
EMPTYLIST,
EMPTYLIST ) );
}
DEFTSCP( closeana_2dlexical1_2ced58a3_v );
DEFSTRING( t4543, "INDIRECT-LAMBDA-LEXICAL1", 24 );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( scrt1_append_2dtwo );
EXTERNTSCP( scrt1_append_2dtwo_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP closeana_2dlexical1_2ced58a3( l2077, l2078, b2079 )
TSCP l2077, l2078, b2079;
{
TSCP X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4543 ) ) );
if ( TRUE( scrt1_memq( l2077, closeana__2dchecked_ed79e461_v ) )
) goto L4545;
X3 = plist_get( l2077, c1571 );
X4 = plist_get( l2077, c2180 );
X2 = scrt1_append_2dtwo( X3, X4 );
X1 = scrt1_append_2dtwo( X2, b2079 );
X2 = plist_get( l2077, c2175 );
X2 = CONS( X2, EMPTYLIST );
X4 = plist_get( l2077, c2172 );
X5 = l2078;
L4550:
if ( FALSE( X4 ) ) goto L4552;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4555;
scrt1__24__car_2derror( X4 );
L4555:
X6 = PAIR_CAR( X4 );
X7 = scrt1_memq( X6, X5 );
if ( TRUE( X7 ) ) goto L4562;
X8 = scrt1_memq( X6, X1 );
if ( TRUE( X8 ) ) goto L4562;
X9 = plist_get( X6, c1547 );
if ( FALSE( X9 ) ) goto L4586;
X11 = plist_get( X6, c1547 );
X10 = plist_get( X11, c2142 );
if ( FALSE( X10 ) ) goto L4586;
X12 = plist_get( X6, c1547 );
X11 = plist_get( X12, c2142 );
if ( EQ( UNSIGNED( X11 ), UNSIGNED( c2156 ) ) ) goto L4586;
X11 = X6;
if ( TRUE( scrt1_memq( X11, PAIR_CAR( X2 ) ) ) ) goto L4582;
X13 = plist_get( X11, c1547 );
X12 = sc_cons( X13, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X12 );
L4582:
if ( TRUE( TRUEVALUE ) ) goto L4562;
goto L4586;
L4552:
X3 = X5;
goto L4587;
L4586:
X7 = PAIR_CDR( X4 );
X5 = sc_cons( X6, X5 );
X4 = X7;
goto L4550;
L4562:
X7 = PAIR_CDR( X4 );
X4 = X7;
goto L4550;
L4587:
closeana__2dchecked_ed79e461_v = sc_cons( l2077,
closeana__2dchecked_ed79e461_v );
X4 = PAIR_CAR( X2 );
X5 = X3;
L4592:
if ( FALSE( X4 ) ) goto L4593;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4596;
scrt1__24__car_2derror( X4 );
L4596:
X6 = PAIR_CAR( X4 );
X7 = plist_get( X6, c1933 );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( c1126 ) ) ) goto L4599;
X7 = PAIR_CDR( X4 );
X4 = X7;
goto L4592;
L4599:
X7 = PAIR_CDR( X4 );
X5 = closeana_2dlexical1_2ced58a3( X6, X5, X1 );
X4 = X7;
goto L4592;
L4593:
POPSTACKTRACE( X5 );
L4545:
POPSTACKTRACE( l2078 );
}
DEFTSCP( closeana_da_2dslots_a659d0e7_v );
DEFSTRING( t4603, "UPDATE-LAMBDA-SLOTS", 19 );
EXTERNTSCPP( closeana_mergeq );
EXTERNTSCP( closeana_mergeq_v );
TSCP closeana_da_2dslots_a659d0e7( e2182 )
TSCP e2182;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4603 ) ) );
L4604:
if ( NEQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4605;
X2 = PAIR_CAR( e2182 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1161 ) ) );
goto L4606;
L4605:
X1 = FALSEVALUE;
L4606:
if ( TRUE( X1 ) ) goto L4612;
if ( NEQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4619;
X2 = PAIR_CAR( e2182 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1223 ) ) ) goto L4619;
L4612:
if ( EQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4621;
scrt1__24__cdr_2derror( e2182 );
L4621:
X1 = PAIR_CDR( e2182 );
X2 = X1;
L4625:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L4626;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4630;
scrt1__24__car_2derror( X2 );
L4630:
X3 = PAIR_CAR( X2 );
closeana_da_2dslots_a659d0e7( X3 );
X2 = PAIR_CDR( X2 );
goto L4625;
L4626:
POPSTACKTRACE( FALSEVALUE );
L4619:
X1 = BOOLEAN( EQ( TSCPTAG( e2182 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4647;
if ( EQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4640;
scrt1__24__car_2derror( e2182 );
L4640:
X2 = PAIR_CAR( e2182 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1043 ) ) ) goto L4647;
closeana_walk_2dlambda_2did_v = c1126;
closeana_walk_2dlambda_2dids_v = c1407;
closeana__2dlexical_455a78ac_v = EMPTYLIST;
X3 = PAIR_CAR( e2182 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1043 ) ) );
if ( FALSE( X2 ) ) goto L4645;
e2182 = scrt1_caddr( e2182 );
goto L4604;
L4645:
e2182 = X2;
goto L4604;
L4647:
if ( NEQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4648;
X2 = PAIR_CAR( e2182 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1065 ) ) );
goto L4649;
L4648:
X1 = FALSEVALUE;
L4649:
if ( FALSE( X1 ) ) goto L4669;
if ( NEQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4657;
X4 = PAIR_CAR( e2182 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1065 ) ) );
goto L4658;
L4657:
X3 = FALSEVALUE;
L4658:
if ( FALSE( X3 ) ) goto L4661;
if ( EQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4664;
scrt1__24__cdr_2derror( e2182 );
L4664:
X4 = PAIR_CDR( e2182 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4667;
scrt1__24__car_2derror( X4 );
L4667:
X2 = PAIR_CAR( X4 );
goto L4662;
L4661:
X2 = X3;
L4662:
if ( TRUE( scrt1_memq( X2, closeana_walk_2dlambda_2dids_v ) )
) goto L4669;
if ( NEQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4671;
X4 = PAIR_CAR( e2182 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1065 ) ) );
goto L4672;
L4671:
X3 = FALSEVALUE;
L4672:
if ( FALSE( X3 ) ) goto L4675;
if ( EQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4678;
scrt1__24__cdr_2derror( e2182 );
L4678:
X4 = PAIR_CDR( e2182 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4681;
scrt1__24__car_2derror( X4 );
L4681:
X2 = PAIR_CAR( X4 );
goto L4676;
L4675:
X2 = X3;
L4676:
closeana_walk_2dlambda_2dids_v = sc_cons( X2,
closeana_walk_2dlambda_2dids_v );
X2 = closeana_walk_2dlambda_2dids_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4684;
scrt1__24__car_2derror( X2 );
L4684:
closeana_walk_2dlambda_2did_v = PAIR_CAR( X2 );
plist_put( closeana_walk_2dlambda_2did_v, c2175, EMPTYLIST );
X2 = EMPTYLIST;
X3 = closeana__2dlexical_455a78ac_v;
X2 = CONS( X2, EMPTYLIST );
if ( NEQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4687;
X6 = PAIR_CAR( e2182 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1065 ) ) );
goto L4688;
L4687:
X5 = FALSEVALUE;
L4688:
if ( FALSE( X5 ) ) goto L4691;
if ( EQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4694;
scrt1__24__cdr_2derror( e2182 );
L4694:
X6 = PAIR_CDR( e2182 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L4697;
scrt1__24__cdr_2derror( X6 );
L4697:
X4 = PAIR_CDR( X6 );
goto L4692;
L4691:
X4 = X5;
L4692:
X5 = X4;
L4701:
if ( EQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L4702;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4706;
scrt1__24__car_2derror( X5 );
L4706:
X6 = PAIR_CAR( X5 );
closeana__2dlexical_455a78ac_v = EMPTYLIST;
closeana_da_2dslots_a659d0e7( X6 );
X7 = closeana__2dlexical_455a78ac_v;
L4710:
if ( EQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L4727;
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L4714;
scrt1__24__car_2derror( X7 );
L4714:
X9 = PAIR_CAR( X7 );
X8 = scrt1_memq( X9, PAIR_CAR( X2 ) );
if ( TRUE( X8 ) ) goto L4720;
X10 = PAIR_CAR( X7 );
X9 = plist_get( X10, c2308 );
if ( EQ( UNSIGNED( X9 ),
UNSIGNED( closeana_walk_2dlambda_2did_v ) )
) goto L4720;
X10 = PAIR_CAR( X7 );
X9 = sc_cons( X10, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X9 );
X7 = PAIR_CDR( X7 );
goto L4710;
L4720:
X7 = PAIR_CDR( X7 );
goto L4710;
L4727:
X5 = PAIR_CDR( X5 );
goto L4701;
L4702:
plist_put( closeana_walk_2dlambda_2did_v,
c2172, PAIR_CAR( X2 ) );
closeana__2dlexical_455a78ac_v = X3;
X4 = PAIR_CAR( X2 );
X5 = X4;
L4732:
if ( EQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L4733;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4737;
scrt1__24__car_2derror( X5 );
L4737:
X6 = PAIR_CAR( X5 );
closeana__2dlexical_455a78ac_v = closeana_mergeq( X6,
closeana__2dlexical_455a78ac_v );
X5 = PAIR_CDR( X5 );
goto L4732;
L4733:
X2 = closeana_walk_2dlambda_2dids_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4742;
scrt1__24__cdr_2derror( X2 );
L4742:
closeana_walk_2dlambda_2dids_v = PAIR_CDR( X2 );
X2 = closeana_walk_2dlambda_2dids_v;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4745;
scrt1__24__car_2derror( X2 );
L4745:
POPSTACKTRACE( SET( closeana_walk_2dlambda_2did_v,
PAIR_CAR( X2 ) ) );
L4669:
X1 = BOOLEAN( EQ( TSCPTAG( e2182 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4800;
if ( EQ( TSCPTAG( e2182 ), PAIRTAG ) ) goto L4754;
scrt1__24__car_2derror( e2182 );
L4754:
X2 = PAIR_CAR( e2182 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1207 ) ) ) goto L4800;
X4 = PAIR_CAR( e2182 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X3 ) ) goto L4758;
X2 = scrt1_caddr( e2182 );
goto L4759;
L4758:
X2 = X3;
L4759:
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4761;
X6 = PAIR_CAR( X2 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1065 ) ) );
goto L4762;
L4761:
X5 = FALSEVALUE;
L4762:
if ( FALSE( X5 ) ) goto L4765;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4768;
scrt1__24__cdr_2derror( X2 );
L4768:
X6 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L4771;
scrt1__24__car_2derror( X6 );
L4771:
X4 = PAIR_CAR( X6 );
goto L4766;
L4765:
X4 = X5;
L4766:
if ( FALSE( X4 ) ) goto L4774;
X3 = X4;
goto L4777;
L4774:
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L4776;
X3 = plist_get( X2, c1547 );
goto L4777;
L4776:
X3 = FALSEVALUE;
L4777:
if ( FALSE( X3 ) ) goto L4784;
X5 = plist_get( closeana_walk_2dlambda_2did_v, c2175 );
X4 = closeana_mergeq( X3, X5 );
plist_put( closeana_walk_2dlambda_2did_v, c2175, X4 );
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L4784;
X4 = plist_get( X3, c2142 );
if ( FALSE( scrt1_memq( X4, c2330 ) ) ) goto L4784;
X4 = plist_get( X3, c1065 );
closeana_da_2dslots_a659d0e7( X4 );
L4784:
closeana_da_2dslots_a659d0e7( X2 );
X6 = PAIR_CAR( e2182 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X5 ) ) goto L4788;
X4 = scrt1_cdddr( e2182 );
goto L4789;
L4788:
X4 = X5;
L4789:
X5 = X4;
L4792:
if ( EQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L4793;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4797;
scrt1__24__car_2derror( X5 );
L4797:
X6 = PAIR_CAR( X5 );
closeana_da_2dslots_a659d0e7( X6 );
X5 = PAIR_CDR( X5 );
goto L4792;
L4793:
POPSTACKTRACE( FALSEVALUE );
L4800:
if ( NOT( AND( EQ( TSCPTAG( e2182 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e2182 ), SYMBOLTAG ) ) )
) goto L4801;
if ( FALSE( plist_get( e2182, c2308 ) ) ) goto L4803;
X1 = plist_get( e2182, c2308 );
if ( EQ( UNSIGNED( X1 ),
UNSIGNED( closeana_walk_2dlambda_2did_v ) )
) goto L4805;
POPSTACKTRACE( SET( closeana__2dlexical_455a78ac_v,
closeana_mergeq( e2182,
closeana__2dlexical_455a78ac_v ) ) );
L4805:
POPSTACKTRACE( FALSEVALUE );
L4803:
POPSTACKTRACE( FALSEVALUE );
L4801:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana_mergeq_v );
DEFSTRING( t4807, "MERGEQ", 6 );
TSCP closeana_mergeq( x2660, y2661 )
TSCP x2660, y2661;
{
PUSHSTACKTRACE( U_TX( ADR( t4807 ) ) );
if ( EQ( UNSIGNED( x2660 ), UNSIGNED( EMPTYLIST ) ) ) goto L4809;
if ( TRUE( scrt1_memq( x2660, y2661 ) ) ) goto L4811;
POPSTACKTRACE( sc_cons( x2660, y2661 ) );
L4811:
POPSTACKTRACE( y2661 );
L4809:
POPSTACKTRACE( y2661 );
}
DEFTSCP( closeana_mark_2dtail_2dcalls_v );
DEFSTRING( t4813, "MARK-TAIL-CALLS", 15 );
EXTERNTSCPP( closeana_mark_2dtail_2dcalls1 );
EXTERNTSCP( closeana_mark_2dtail_2dcalls1_v );
EXTERNTSCPP( scrt1_last_2dpair );
EXTERNTSCP( scrt1_last_2dpair_v );
EXTERNTSCPP( closeana_lambda_2dis_2dinline );
EXTERNTSCP( closeana_lambda_2dis_2dinline_v );
TSCP closeana_mark_2dtail_2dcalls( e2668 )
TSCP e2668;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4813 ) ) );
X1 = BOOLEAN( EQ( TSCPTAG( e2668 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4848;
if ( EQ( TSCPTAG( e2668 ), PAIRTAG ) ) goto L4822;
scrt1__24__car_2derror( e2668 );
L4822:
X2 = PAIR_CAR( e2668 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1065 ) ) ) goto L4848;
X4 = PAIR_CAR( e2668 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1065 ) ) );
if ( FALSE( X3 ) ) goto L4826;
X4 = PAIR_CDR( e2668 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4830;
scrt1__24__car_2derror( X4 );
L4830:
X2 = PAIR_CAR( X4 );
goto L4827;
L4826:
X2 = X3;
L4827:
closeana_bda_2dlist_c52ab123_v = sc_cons( X2,
closeana_bda_2dlist_c52ab123_v );
plist_put( X2, c2802, EMPTYLIST );
plist_put( X2, c2806, EMPTYLIST );
plist_put( X2, c2810, EMPTYLIST );
X3 = plist_get( X2, c1933 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1126 ) ) ) goto L4833;
if ( TRUE( plist_get( X2, c2142 ) ) ) goto L4834;
closeana_dprocedure_40e51573( X2 );
goto L4834;
L4833:
plist_put( X2, c1065, e2668 );
L4834:
X7 = PAIR_CAR( e2668 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1065 ) ) );
if ( FALSE( X6 ) ) goto L4839;
X7 = PAIR_CDR( e2668 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L4843;
scrt1__24__cdr_2derror( X7 );
L4843:
X5 = PAIR_CDR( X7 );
goto L4840;
L4839:
X5 = X6;
L4840:
X4 = scrt1_last_2dpair( X5 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4846;
scrt1__24__car_2derror( X4 );
L4846:
X3 = PAIR_CAR( X4 );
POPSTACKTRACE( closeana_mark_2dtail_2dcalls1( X3, X2 ) );
L4848:
if ( NEQ( TSCPTAG( e2668 ), PAIRTAG ) ) goto L4849;
X1 = PAIR_CAR( e2668 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1207 ) ) ) goto L4851;
X3 = PAIR_CAR( e2668 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X2 ) ) goto L4856;
X1 = scrt1_caddr( e2668 );
goto L4857;
L4856:
X1 = X2;
L4857:
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L4859;
X2 = PAIR_CAR( X1 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1065 ) ) ) goto L4861;
X5 = PAIR_CAR( e2668 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X4 ) ) goto L4866;
X3 = scrt1_caddr( e2668 );
goto L4867;
L4866:
X3 = X4;
L4867:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4869;
X5 = PAIR_CAR( X3 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1065 ) ) );
goto L4870;
L4869:
X4 = FALSEVALUE;
L4870:
if ( FALSE( X4 ) ) goto L4873;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4876;
scrt1__24__cdr_2derror( X3 );
L4876:
X5 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4879;
scrt1__24__car_2derror( X5 );
L4879:
X2 = PAIR_CAR( X5 );
goto L4874;
L4873:
X2 = X4;
L4874:
plist_put( X2, c1933, closeana_walk_2dlambda_2did_v );
POPSTACKTRACE( closeana_lambda_2dis_2dinline( X2 ) );
L4861:
POPSTACKTRACE( FALSEVALUE );
L4859:
POPSTACKTRACE( FALSEVALUE );
L4851:
POPSTACKTRACE( FALSEVALUE );
L4849:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana_mark_2dtail_2dcalls1_v );
DEFSTRING( t4882, "MARK-TAIL-CALLS1", 16 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP closeana_mark_2dtail_2dcalls1( e2889, e2890 )
TSCP e2889, e2890;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4882 ) ) );
L4883:
if ( NEQ( TSCPTAG( e2889 ), PAIRTAG ) ) goto L4884;
X2 = PAIR_CAR( e2889 );
X1 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( c1207 ) ) );
goto L4885;
L4884:
X1 = FALSEVALUE;
L4885:
if ( FALSE( X1 ) ) goto L4904;
if ( NEQ( TSCPTAG( e2889 ), PAIRTAG ) ) goto L4906;
X2 = PAIR_CAR( e2889 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1207 ) ) ) goto L4906;
X2 = PAIR_CDR( e2889 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4900;
scrt1__24__car_2derror( X2 );
L4900:
if ( FALSE( PAIR_CAR( X2 ) ) ) goto L4906;
L4904:
if ( NEQ( TSCPTAG( e2889 ), PAIRTAG ) ) goto L4907;
X1 = PAIR_CAR( e2889 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1223 ) ) ) goto L4909;
X3 = PAIR_CAR( e2889 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1223 ) ) );
if ( FALSE( X2 ) ) goto L4915;
X1 = scrt1_caddr( e2889 );
goto L4916;
L4915:
X1 = X2;
L4916:
closeana_mark_2dtail_2dcalls1( X1, e2890 );
X3 = PAIR_CAR( e2889 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1223 ) ) );
if ( FALSE( X2 ) ) goto L4919;
X1 = scrt1_cadddr( e2889 );
goto L4920;
L4919:
X1 = X2;
L4920:
e2889 = X1;
goto L4883;
L4909:
POPSTACKTRACE( FALSEVALUE );
L4907:
POPSTACKTRACE( FALSEVALUE );
L4906:
if ( EQ( TSCPTAG( e2889 ), PAIRTAG ) ) goto L4923;
scrt1__24__cdr_2derror( e2889 );
L4923:
X1 = PAIR_CDR( e2889 );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L4926;
scrt6_error( c3008, c3009, CONS( X1, EMPTYLIST ) );
L4926:
SETGEN( PAIR_CAR( X1 ), e2890 );
X3 = PAIR_CAR( e2889 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X2 ) ) goto L4930;
X1 = scrt1_caddr( e2889 );
goto L4931;
L4930:
X1 = X2;
L4931:
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L4933;
X2 = PAIR_CAR( X1 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1065 ) ) ) goto L4935;
X5 = PAIR_CAR( e2889 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X4 ) ) goto L4941;
X3 = scrt1_caddr( e2889 );
goto L4942;
L4941:
X3 = X4;
L4942:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4944;
X5 = PAIR_CAR( X3 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1065 ) ) );
goto L4945;
L4944:
X4 = FALSEVALUE;
L4945:
if ( FALSE( X4 ) ) goto L4948;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4951;
scrt1__24__cdr_2derror( X3 );
L4951:
X5 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4954;
scrt1__24__car_2derror( X5 );
L4954:
X2 = PAIR_CAR( X5 );
goto L4949;
L4948:
X2 = X4;
L4949:
plist_put( X2, c3054, e2890 );
X7 = PAIR_CAR( e2889 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X6 ) ) goto L4958;
X5 = scrt1_caddr( e2889 );
goto L4959;
L4958:
X5 = X6;
L4959:
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4961;
X7 = PAIR_CAR( X5 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1065 ) ) );
goto L4962;
L4961:
X6 = FALSEVALUE;
L4962:
if ( FALSE( X6 ) ) goto L4965;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4968;
scrt1__24__cdr_2derror( X5 );
L4968:
X7 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L4971;
scrt1__24__cdr_2derror( X7 );
L4971:
X4 = PAIR_CDR( X7 );
goto L4966;
L4965:
X4 = X6;
L4966:
X3 = scrt1_last_2dpair( X4 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L4974;
scrt1__24__car_2derror( X3 );
L4974:
X2 = PAIR_CAR( X3 );
e2889 = X2;
goto L4883;
L4935:
POPSTACKTRACE( FALSEVALUE );
L4933:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana_count_2dcalls_v );
DEFSTRING( t4976, "COUNT-CALLS", 11 );
TSCP closeana_count_2dcalls( e3164 )
TSCP e3164;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4976 ) ) );
if ( NEQ( TSCPTAG( e3164 ), PAIRTAG ) ) goto L4978;
X3 = PAIR_CAR( e3164 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1207 ) ) ) goto L4980;
X4 = PAIR_CAR( e3164 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X3 ) ) goto L4985;
X2 = scrt1_caddr( e3164 );
goto L4979;
L4985:
X2 = X3;
goto L4979;
L4980:
X2 = FALSEVALUE;
goto L4979;
L4978:
X2 = FALSEVALUE;
L4979:
if ( NOT( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), SYMBOLTAG ) ) )
) goto L4988;
X1 = plist_get( X2, c1547 );
goto L4989;
L4988:
X1 = FALSEVALUE;
L4989:
if ( FALSE( X1 ) ) goto L4991;
if ( TRUE( plist_get( X2, c3175 ) ) ) goto L4993;
if ( NEQ( TSCPTAG( e3164 ), PAIRTAG ) ) goto L4997;
X5 = PAIR_CAR( e3164 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1207 ) ) );
goto L4998;
L4997:
X4 = FALSEVALUE;
L4998:
if ( FALSE( X4 ) ) goto L5001;
if ( EQ( TSCPTAG( e3164 ), PAIRTAG ) ) goto L5004;
scrt1__24__cdr_2derror( e3164 );
L5004:
X5 = PAIR_CDR( e3164 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5007;
scrt1__24__car_2derror( X5 );
L5007:
X3 = PAIR_CAR( X5 );
goto L5002;
L5001:
X3 = X4;
L5002:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( X1 ) ) ) goto L4995;
X4 = plist_get( X1, c2802 );
X3 = sc_cons( closeana_walk_2dlambda_2did_v, X4 );
POPSTACKTRACE( plist_put( X1, c2802, X3 ) );
L4995:
if ( NEQ( TSCPTAG( e3164 ), PAIRTAG ) ) goto L5009;
X4 = PAIR_CAR( e3164 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1207 ) ) );
goto L5010;
L5009:
X3 = FALSEVALUE;
L5010:
if ( FALSE( X3 ) ) goto L5033;
if ( EQ( TSCPTAG( e3164 ), PAIRTAG ) ) goto L5017;
scrt1__24__cdr_2derror( e3164 );
L5017:
X4 = PAIR_CDR( e3164 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5020;
scrt1__24__car_2derror( X4 );
L5020:
if ( FALSE( PAIR_CAR( X4 ) ) ) goto L5033;
X11 = PAIR_CAR( e3164 );
X10 = BOOLEAN( EQ( UNSIGNED( X11 ),
UNSIGNED( c1207 ) ) );
if ( FALSE( X10 ) ) goto L5026;
X11 = PAIR_CDR( e3164 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L5030;
scrt1__24__car_2derror( X11 );
L5030:
X9 = PAIR_CAR( X11 );
goto L5027;
L5026:
X9 = X10;
L5027:
X8 = sc_cons( X9, EMPTYLIST );
X7 = sc_cons( closeana_walk_2dlambda_2did_v, X8 );
X6 = X7;
X7 = plist_get( X1, c2806 );
X5 = sc_cons( X6, X7 );
POPSTACKTRACE( plist_put( X1, c2806, X5 ) );
L4993:
POPSTACKTRACE( FALSEVALUE );
L4991:
POPSTACKTRACE( FALSEVALUE );
L5033:
X3 = plist_get( X1, c2810 );
X2 = sc_cons( closeana_walk_2dlambda_2did_v, X3 );
POPSTACKTRACE( plist_put( X1, c2810, X2 ) );
}
DEFTSCP( closeana_generate_2dlambdas_v );
DEFSTRING( t5034, "GENERATE-LAMBDAS", 16 );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( scrt1_cadar );
EXTERNTSCP( scrt1_cadar_v );
EXTERNTSCPP( closeana_la_2dnestin_2dlb_3f );
EXTERNTSCP( closeana_la_2dnestin_2dlb_3f_v );
EXTERNTSCPP( closeana_generate_2dtails );
EXTERNTSCP( closeana_generate_2dtails_v );
TSCP closeana_generate_2dlambdas( l3330 )
TSCP l3330;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5034 ) ) );
X1 = EMPTYLIST;
X1 = CONS( X1, EMPTYLIST );
X2 = l3330;
L5038:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L5039;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5043;
scrt1__24__car_2derror( X2 );
L5043:
X3 = PAIR_CAR( X2 );
X5 = plist_get( X3, c2810 );
X4 = plist_get( X3, c2806 );
if ( TRUE( plist_get( X3, c2142 ) ) ) goto L5082;
X7 = scrt1_length( X5 );
X8 = scrt1_length( X4 );
if ( BITAND( BITOR( INT( X7 ), INT( X8 ) ),
3 ) ) goto L5050;
X6 = _TSCP( IPLUS( INT( X7 ), INT( X8 ) ) );
goto L5051;
L5050:
X6 = scrt2__2b_2dtwo( X7, X8 );
L5051:
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X6 ) ),
3 ) ) goto L5054;
if ( EQ( UNSIGNED( _TSCP( 4 ) ), UNSIGNED( X6 ) ) ) goto L5058;
goto L5059;
L5054:
if ( FALSE( scrt2__3d_2dtwo( _TSCP( 4 ), X6 ) ) ) goto L5059;
L5058:
if ( FALSE( X4 ) ) goto L5064;
X6 = scrt1_cadar( X4 );
plist_put( X3, c3054, X6 );
L5064:
if ( FALSE( X5 ) ) goto L5066;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5069;
scrt1__24__car_2derror( X5 );
L5069:
X6 = PAIR_CAR( X5 );
goto L5067;
L5066:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5072;
scrt1__24__car_2derror( X4 );
L5072:
X7 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5075;
scrt1__24__car_2derror( X7 );
L5075:
X6 = PAIR_CAR( X7 );
L5067:
if ( FALSE( closeana_la_2dnestin_2dlb_3f( X6, X3 ) )
) goto L5078;
closeana_dprocedure_40e51573( X3 );
goto L5082;
L5078:
plist_put( X3, c1933, X6 );
closeana_lambda_2dis_2dinline( X3 );
goto L5082;
L5059:
if ( FALSE( X5 ) ) goto L5081;
closeana_dprocedure_40e51573( X3 );
goto L5082;
L5081:
X6 = sc_cons( X3, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X6 );
L5082:
X2 = PAIR_CDR( X2 );
goto L5038;
L5039:
X3 = closeana_generate_2dtails( PAIR_CAR( X1 ),
_TSCP( 4 ) );
X2 = closeana_generate_2dtails( X3, _TSCP( 8 ) );
X3 = X2;
L5086:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L5087;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5091;
scrt1__24__car_2derror( X3 );
L5091:
X4 = PAIR_CAR( X3 );
closeana_dprocedure_40e51573( X4 );
X3 = PAIR_CDR( X3 );
goto L5086;
L5087:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( closeana_generate_2dtails_v );
DEFSTRING( t5094, "GENERATE-TAILS", 14 );
EXTERNTSCPP( closeana_lf_2dtails_de466e28 );
EXTERNTSCP( closeana_lf_2dtails_de466e28_v );
EXTERNTSCPP( closeana_verify_2dtails );
EXTERNTSCP( closeana_verify_2dtails_v );
TSCP closeana_generate_2dtails( u3430, p3431 )
TSCP u3430, p3431;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5094 ) ) );
L5095:
X1 = EMPTYLIST;
X2 = FALSEVALUE;
X2 = CONS( X2, EMPTYLIST );
X1 = CONS( X1, EMPTYLIST );
X3 = u3430;
L5098:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L5099;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5103;
scrt1__24__car_2derror( X3 );
L5103:
X4 = PAIR_CAR( X3 );
X5 = closeana_lf_2dtails_de466e28( X4 );
X6 = scrt1_length( X5 );
if ( BITAND( BITOR( INT( X6 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L5109;
if ( EQ( UNSIGNED( X6 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L5113;
goto L5114;
L5109:
if ( TRUE( scrt2__3d_2dtwo( X6, _TSCP( 4 ) ) ) ) goto L5113;
L5114:
closeana_verify_2dtails( X4, p3431 );
goto L5117;
L5113:
X7 = scrt1_cadar( X5 );
plist_put( X4, c3054, X7 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5120;
scrt1__24__car_2derror( X5 );
L5120:
X8 = PAIR_CAR( X5 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L5123;
scrt1__24__car_2derror( X8 );
L5123:
X7 = PAIR_CAR( X8 );
plist_put( X4, c1933, X7 );
closeana_lambda_2dis_2dinline( X4 );
L5117:
if ( FALSE( plist_get( X4, c2142 ) ) ) goto L5125;
X6 = TRUEVALUE;
SETGEN( PAIR_CAR( X2 ), X6 );
goto L5126;
L5125:
X6 = sc_cons( X4, PAIR_CAR( X1 ) );
SETGEN( PAIR_CAR( X1 ), X6 );
L5126:
X3 = PAIR_CDR( X3 );
goto L5098;
L5099:
if ( FALSE( PAIR_CAR( X2 ) ) ) goto L5128;
u3430 = PAIR_CAR( X1 );
goto L5095;
L5128:
POPSTACKTRACE( u3430 );
}
DEFTSCP( closeana_dprocedure_40e51573_v );
DEFSTRING( t5130, "LAMBDA-IS-PROCEDURE", 19 );
TSCP closeana_dprocedure_40e51573( l3491 )
TSCP l3491;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5130 ) ) );
plist_put( l3491, c1065, EMPTYLIST );
if ( FALSE( plist_get( l3491, c3497 ) ) ) goto L5132;
X2 = plist_get( l3491, c3497 );
X1 = SYMBOL_VALUE( assign_2dknown_2dname_v );
X1 = UNKNOWNCALL( X1, 1 );
VIA( PROCEDURE_CODE( X1 ) )( X2, PROCEDURE_CLOSURE( X1 ) );
L5132:
if ( FALSE( plist_get( l3491, c1952 ) ) ) goto L5134;
plist_put( l3491, c1933, c1126 );
POPSTACKTRACE( plist_put( l3491, c2142, c2156 ) );
L5134:
POPSTACKTRACE( plist_put( l3491, c2142, c3506 ) );
}
DEFTSCP( closeana_lambda_2dis_2dinline_v );
DEFSTRING( t5137, "LAMBDA-IS-INLINE", 16 );
TSCP closeana_lambda_2dis_2dinline( l3515 )
TSCP l3515;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t5137 ) ) );
if ( FALSE( plist_get( l3515, c3497 ) ) ) goto L5139;
X1 = plist_get( l3515, c3497 );
plist_put( X1, c2039, FALSEVALUE );
L5139:
POPSTACKTRACE( plist_put( l3515, c2142, c3526 ) );
}
DEFTSCP( closeana_ine_2dtail_c88b625b_v );
DEFSTRING( t5141, "LAMBDA-IS-INLINE-TAIL", 21 );
TSCP closeana_ine_2dtail_c88b625b( l3529 )
TSCP l3529;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t5141 ) ) );
if ( FALSE( plist_get( l3529, c3497 ) ) ) goto L5143;
X1 = plist_get( l3529, c3497 );
plist_put( X1, c2039, FALSEVALUE );
L5143:
POPSTACKTRACE( plist_put( l3529, c2142, c3540 ) );
}
DEFTSCP( closeana_lf_2dtails_de466e28_v );
DEFSTRING( t5145, "REMOVE-SELF-TAILS", 17 );
EXTERNTSCPP( closeana_ls_2dexits_350c85e5 );
EXTERNTSCP( closeana_ls_2dexits_350c85e5_v );
TSCP closeana_lf_2dtails_de466e28( l3542 )
TSCP l3542;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5145 ) ) );
X1 = plist_get( l3542, c2806 );
X2 = EMPTYLIST;
L5148:
X2 = CONS( X2, EMPTYLIST );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L5149;
plist_put( l3542, c2806, PAIR_CAR( X2 ) );
POPSTACKTRACE( PAIR_CAR( X2 ) );
L5149:
X4 = scrt1_cadar( X1 );
X3 = closeana_ls_2dexits_350c85e5( X4 );
if ( EQ( UNSIGNED( X3 ), UNSIGNED( l3542 ) ) ) goto L5153;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L5156;
scrt1__24__car_2derror( X1 );
L5156:
X4 = PAIR_CAR( X1 );
X3 = sc_cons( X4, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X3 );
L5153:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L5159;
scrt1__24__cdr_2derror( X1 );
L5159:
X3 = PAIR_CDR( X1 );
X2 = PAIR_CAR( X2 );
X1 = X3;
goto L5148;
}
DEFTSCP( closeana_verify_2dtails_v );
DEFSTRING( t5161, "VERIFY-TAILS", 12 );
EXTERNTSCPP( closeana_ne_2dtails_e19eeda8 );
EXTERNTSCP( closeana_ne_2dtails_e19eeda8_v );
EXTERNTSCPP( closeana__2dtail_3f_8c527d1 );
EXTERNTSCP( closeana__2dtail_3f_8c527d1_v );
TSCP closeana_verify_2dtails( l3573, p3574 )
TSCP l3573, p3574;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5161 ) ) );
X1 = plist_get( l3573, c2806 );
X2 = EMPTYLIST;
L5164:
X2 = CONS( X2, EMPTYLIST );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L5165;
X4 = scrt1_length( PAIR_CAR( X2 ) );
if ( BITAND( BITOR( INT( X4 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L5169;
if ( EQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L5173;
X3 = FALSEVALUE;
goto L5176;
L5169:
if ( TRUE( scrt2__3d_2dtwo( X4, _TSCP( 4 ) ) ) ) goto L5173;
X3 = FALSEVALUE;
goto L5176;
L5173:
X5 = PAIR_CAR( X2 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5178;
scrt1__24__car_2derror( X5 );
L5178:
X3 = PAIR_CAR( X5 );
L5176:
if ( FALSE( X3 ) ) goto L5181;
X4 = plist_get( X3, c3637 );
X6 = plist_get( l3573, c3637 );
X5 = sc_cons( l3573, X6 );
L5185:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L5186;
plist_put( X3, c3637, X4 );
goto L5187;
L5186:
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5190;
scrt1__24__car_2derror( X5 );
L5190:
X6 = PAIR_CAR( X5 );
plist_put( X6, c3054, X3 );
X7 = PAIR_CAR( X5 );
X6 = closeana_ne_2dtails_e19eeda8( X7, X4 );
X5 = PAIR_CDR( X5 );
X4 = X6;
goto L5185;
L5187:
plist_put( l3573, c3637, EMPTYLIST );
plist_put( l3573, c1933, X3 );
POPSTACKTRACE( closeana_ine_2dtail_c88b625b( l3573 ) );
L5181:
POPSTACKTRACE( FALSEVALUE );
L5165:
X4 = scrt1_cadar( X1 );
X3 = closeana_ls_2dexits_350c85e5( X4 );
if ( TRUE( scrt1_memq( X3, PAIR_CAR( X2 ) ) ) ) goto L5204;
if ( EQ( UNSIGNED( p3574 ),
UNSIGNED( _TSCP( 4 ) ) ) ) goto L5201;
X4 = scrt1_cadar( X1 );
if ( TRUE( closeana__2dtail_3f_8c527d1( X4,
PAIR_CAR( X2 ) ) )
) goto L5204;
L5201:
X4 = sc_cons( X3, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X4 );
L5204:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L5206;
scrt1__24__cdr_2derror( X1 );
L5206:
X3 = PAIR_CDR( X1 );
X2 = PAIR_CAR( X2 );
X1 = X3;
goto L5164;
}
DEFTSCP( closeana_ls_2dexits_350c85e5_v );
DEFSTRING( t5208, "GENERATE-TAILS-EXITS", 20 );
TSCP closeana_ls_2dexits_350c85e5( l3664 )
TSCP l3664;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t5208 ) ) );
L5209:
X1 = plist_get( l3664, c2142 );
if ( FALSE( scrt1_memq( X1, c3670 ) ) ) goto L5210;
if ( FALSE( plist_get( l3664, c3054 ) ) ) goto L5212;
l3664 = plist_get( l3664, c3054 );
goto L5209;
L5212:
POPSTACKTRACE( l3664 );
L5210:
POPSTACKTRACE( l3664 );
}
DEFTSCP( closeana__2dtail_3f_8c527d1_v );
DEFSTRING( t5214, "COULD-INLINE-TAIL?", 18 );
TSCP closeana__2dtail_3f_8c527d1( l3677, e3678 )
TSCP l3677, e3678;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5214 ) ) );
if ( FALSE( plist_get( l3677, c2142 ) ) ) goto L5216;
X1 = FALSEVALUE;
goto L5217;
L5216:
X1 = TRUEVALUE;
L5217:
if ( FALSE( X1 ) ) goto L5219;
X2 = plist_get( l3677, c2806 );
L5222:
if ( FALSE( X2 ) ) goto L5223;
X4 = scrt1_cadar( X2 );
X3 = closeana_ls_2dexits_350c85e5( X4 );
X4 = plist_get( X3, c2142 );
if ( FALSE( X4 ) ) goto L5232;
if ( TRUE( scrt1_memq( X3, e3678 ) ) ) goto L5232;
POPSTACKTRACE( FALSEVALUE );
L5223:
POPSTACKTRACE( TRUEVALUE );
L5232:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5234;
scrt1__24__cdr_2derror( X2 );
L5234:
X2 = PAIR_CDR( X2 );
goto L5222;
L5219:
POPSTACKTRACE( X1 );
}
DEFTSCP( closeana_ne_2dtails_e19eeda8_v );
DEFSTRING( t5236, "MERGE-INLINE-TAILS", 18 );
TSCP closeana_ne_2dtails_e19eeda8( l3704, t3705 )
TSCP l3704, t3705;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5236 ) ) );
if ( NEQ( UNSIGNED( t3705 ),
UNSIGNED( EMPTYLIST ) ) ) goto L5238;
X1 = sc_cons( l3704, EMPTYLIST );
POPSTACKTRACE( X1 );
L5238:
if ( EQ( TSCPTAG( t3705 ), PAIRTAG ) ) goto L5242;
scrt1__24__car_2derror( t3705 );
L5242:
X2 = PAIR_CAR( t3705 );
X1 = closeana_la_2dnestin_2dlb_3f( X2, l3704 );
if ( TRUE( X1 ) ) goto L5248;
X2 = PAIR_CAR( t3705 );
X3 = plist_get( l3704, c2175 );
if ( TRUE( scrt1_memq( X2, X3 ) ) ) goto L5248;
X2 = PAIR_CAR( t3705 );
X4 = PAIR_CDR( t3705 );
X3 = closeana_ne_2dtails_e19eeda8( l3704, X4 );
POPSTACKTRACE( sc_cons( X2, X3 ) );
L5248:
POPSTACKTRACE( sc_cons( l3704, t3705 ) );
}
DEFTSCP( closeana_la_2dnestin_2dlb_3f_v );
DEFSTRING( t5254, "LA-NESTIN-LB?", 13 );
TSCP closeana_la_2dnestin_2dlb_3f( l3736, l3737 )
TSCP l3736, l3737;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t5254 ) ) );
L5255:
if ( EQ( UNSIGNED( l3736 ), UNSIGNED( l3737 ) ) ) goto L5256;
if ( EQ( UNSIGNED( l3736 ), UNSIGNED( c1126 ) ) ) goto L5258;
X1 = plist_get( l3736, c1933 );
l3736 = X1;
goto L5255;
L5258:
POPSTACKTRACE( FALSEVALUE );
L5256:
POPSTACKTRACE( TRUEVALUE );
}
DEFTSCP( closeana_display_2dclose_v );
DEFSTRING( t5260, "DISPLAY-CLOSE", 13 );
TSCP closeana_display_2dclose( e3747 )
TSCP e3747;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5260 ) ) );
if ( NEQ( TSCPTAG( e3747 ), PAIRTAG ) ) goto L5262;
X1 = PAIR_CAR( e3747 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1065 ) ) ) goto L5264;
X3 = PAIR_CAR( e3747 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1065 ) ) );
if ( FALSE( X2 ) ) goto L5269;
X3 = PAIR_CDR( e3747 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5273;
scrt1__24__car_2derror( X3 );
L5273:
X1 = PAIR_CAR( X3 );
goto L5270;
L5269:
X1 = X2;
L5270:
X2 = plist_get( X1, c2142 );
if ( FALSE( scrt1_memq( X2, c3767 ) ) ) goto L5276;
X2 = plist_get( X1, c2172 );
X3 = X2;
L5280:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L5281;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5285;
scrt1__24__car_2derror( X3 );
L5285:
X4 = PAIR_CAR( X3 );
X5 = plist_get( X4, c1547 );
if ( FALSE( X5 ) ) goto L5294;
X7 = plist_get( X4, c1547 );
X6 = plist_get( X7, c2142 );
if ( EQ( UNSIGNED( X6 ), UNSIGNED( c2156 ) ) ) goto L5294;
plist_put( X4, c2039, FALSEVALUE );
goto L5296;
L5294:
if ( TRUE( plist_get( X4, c2039 ) ) ) goto L5296;
X5 = SYMBOL_VALUE( log_3f_v );
X5 = UNKNOWNCALL( X5, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X5 ) )( c1952,
PROCEDURE_CLOSURE( X5 ) ) )
) goto L5299;
X5 = SYMBOL_VALUE( sc_2dicode_v );
X6 = CONS( X4, EMPTYLIST );
X6 = CONS( X1, X6 );
scrt6_format( X5, CONS( c3807, X6 ) );
L5299:
plist_put( X4, c2039, TRUEVALUE );
L5296:
X3 = PAIR_CDR( X3 );
goto L5280;
L5281:
POPSTACKTRACE( FALSEVALUE );
L5276:
POPSTACKTRACE( FALSEVALUE );
L5264:
POPSTACKTRACE( FALSEVALUE );
L5262:
POPSTACKTRACE( FALSEVALUE );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt2__init();
scrt6__init();
plist__init();
scrt1__init();
MAXDISPLAY( 0 );
}
void closeana__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(closeana SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t4178 ) ),
ADR( closeana_analyze_2dclosures1a_v ),
MAKEPROCEDURE( 1,
0,
closeana_analyze_2dclosures1a,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4205 ) ),
ADR( closeana_analyze_2dclosures1b_v ),
MAKEPROCEDURE( 1,
0,
closeana_analyze_2dclosures1b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4207 ) ),
ADR( closeana_analyze_2dclosures2_v ),
MAKEPROCEDURE( 1,
0,
closeana_analyze_2dclosures2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4209 ) ),
ADR( closeana_walk_2d_24tree_v ),
MAKEPROCEDURE( 2,
0,
closeana_walk_2d_24tree,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4284 ) ),
ADR( closeana_ree_2dlist_f50a563f_v ),
MAKEPROCEDURE( 2,
0,
closeana_ree_2dlist_f50a563f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4295 ) ),
ADR( closeana_walk_2dlambda_2did_v ),
c1126 );
INITIALIZEVAR( U_TX( ADR( t4296 ) ),
ADR( closeana_walk_2dlambda_2dids_v ),
c1407 );
INITIALIZEVAR( U_TX( ADR( t4297 ) ),
ADR( closeana__2dlexical_455a78ac_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t4298 ) ),
ADR( closeana_bda_2dlist_c52ab123_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t4299 ) ),
ADR( closeana_assign_2dlambdas_v ),
MAKEPROCEDURE( 1,
0,
closeana_assign_2dlambdas,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4473 ) ),
ADR( closeana_bdas_2darg_a7a3fa97_v ),
MAKEPROCEDURE( 1,
0,
closeana_bdas_2darg_a7a3fa97,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4509 ) ),
ADR( closeana_inherit_2dclosed_v ),
MAKEPROCEDURE( 1,
0,
closeana_inherit_2dclosed,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4540 ) ),
ADR( closeana__2dchecked_ed79e461_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t4541 ) ),
ADR( closeana__2dlexical_34c6288f_v ),
MAKEPROCEDURE( 1,
0,
closeana__2dlexical_34c6288f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4543 ) ),
ADR( closeana_2dlexical1_2ced58a3_v ),
MAKEPROCEDURE( 3,
0,
closeana_2dlexical1_2ced58a3,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4603 ) ),
ADR( closeana_da_2dslots_a659d0e7_v ),
MAKEPROCEDURE( 1,
0,
closeana_da_2dslots_a659d0e7,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4807 ) ),
ADR( closeana_mergeq_v ),
MAKEPROCEDURE( 2,
0,
closeana_mergeq, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4813 ) ),
ADR( closeana_mark_2dtail_2dcalls_v ),
MAKEPROCEDURE( 1,
0,
closeana_mark_2dtail_2dcalls,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4882 ) ),
ADR( closeana_mark_2dtail_2dcalls1_v ),
MAKEPROCEDURE( 2,
0,
closeana_mark_2dtail_2dcalls1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4976 ) ),
ADR( closeana_count_2dcalls_v ),
MAKEPROCEDURE( 1,
0,
closeana_count_2dcalls,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5034 ) ),
ADR( closeana_generate_2dlambdas_v ),
MAKEPROCEDURE( 1,
0,
closeana_generate_2dlambdas,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5094 ) ),
ADR( closeana_generate_2dtails_v ),
MAKEPROCEDURE( 2,
0,
closeana_generate_2dtails,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5130 ) ),
ADR( closeana_dprocedure_40e51573_v ),
MAKEPROCEDURE( 1,
0,
closeana_dprocedure_40e51573,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5137 ) ),
ADR( closeana_lambda_2dis_2dinline_v ),
MAKEPROCEDURE( 1,
0,
closeana_lambda_2dis_2dinline,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5141 ) ),
ADR( closeana_ine_2dtail_c88b625b_v ),
MAKEPROCEDURE( 1,
0,
closeana_ine_2dtail_c88b625b,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5145 ) ),
ADR( closeana_lf_2dtails_de466e28_v ),
MAKEPROCEDURE( 1,
0,
closeana_lf_2dtails_de466e28,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5161 ) ),
ADR( closeana_verify_2dtails_v ),
MAKEPROCEDURE( 2,
0,
closeana_verify_2dtails,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5208 ) ),
ADR( closeana_ls_2dexits_350c85e5_v ),
MAKEPROCEDURE( 1,
0,
closeana_ls_2dexits_350c85e5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5214 ) ),
ADR( closeana__2dtail_3f_8c527d1_v ),
MAKEPROCEDURE( 2,
0,
closeana__2dtail_3f_8c527d1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5236 ) ),
ADR( closeana_ne_2dtails_e19eeda8_v ),
MAKEPROCEDURE( 2,
0,
closeana_ne_2dtails_e19eeda8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5254 ) ),
ADR( closeana_la_2dnestin_2dlb_3f_v ),
MAKEPROCEDURE( 2,
0,
closeana_la_2dnestin_2dlb_3f,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5260 ) ),
ADR( closeana_display_2dclose_v ),
MAKEPROCEDURE( 1,
0,
closeana_display_2dclose,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.