This is transform.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t4933, "CURRENT-LAMBDA-ID", 17 );
DEFSTATICTSCP( current_2dlambda_2did_v );
DEFSTRING( t4934, "TRUE-ALPHA", 10 );
DEFSTATICTSCP( true_2dalpha_v );
DEFSTRING( t4935, "FALSE-ALPHA", 11 );
DEFSTATICTSCP( false_2dalpha_v );
DEFSTRING( t4936, "NAME-A-LAMBDA", 13 );
DEFSTATICTSCP( name_2da_2dlambda_v );
DEFSTRING( t4937, "LAMBDA-EXP", 10 );
DEFSTATICTSCP( lambda_2dexp_v );
DEFSTRING( t4938, "LOG?", 4 );
DEFSTATICTSCP( log_3f_v );
DEFSTRING( t4939, "PRETTY-PRINT-$TREE", 18 );
DEFSTATICTSCP( pretty_2dprint_2d_24tree_v );
DEFSTRING( t4940, "SC-ICODE", 8 );
DEFSTATICTSCP( sc_2dicode_v );
DEFSTRING( t4941, "~A", 2 );
DEFSTATICTSCP2( c4346, t4941 );
DEFSTRING( t4942, " replaced by lambda ", 20 );
DEFSTATICTSCP2( c4209, t4942 );
DEFSTRING( t4943, " replaced by ", 13 );
DEFSTATICTSCP2( c4188, t4943 );
DEFSTRING( t4944, "LEXICAL", 7 );
DEFSTATICTSCP( c3779 );
DEFSTRING( t4945, "DISPLAY", 7 );
DEFSTATICTSCP( c3654 );
DEFSTRING( t4946, "SET!", 4 );
DEFSTATICTSCP( c3650 );
DEFSTRING( t4947, "INLINE", 6 );
DEFSTATICTSCP( c3002 );
DEFSTRING( t4948, "GENERATE", 8 );
DEFSTATICTSCP( c3001 );
DEFSTRING( t4949, "Lambda ~A collapsed~%", 21 );
DEFSTATICTSCP2( c2997, t4949 );
DEFSTRING( t4950, "BOTH", 4 );
DEFSTATICTSCP( c2921 );
DEFSTRING( t4951, "NO-CHANGE", 9 );
DEFSTATICTSCP( c2909 );
DEFSTRING( t4952, "NO-VALUE", 8 );
DEFSTATICTSCP( c2902 );
DEFSTRING( t4953, "CALLS", 5 );
DEFSTATICTSCP( c2843 );
DEFSTRING( t4954, "REFS", 4 );
DEFSTATICTSCP( c2839 );
DEFSTRING( t4955, "TCL", 3 );
DEFSTATICTSCP( c2810 );
DEFSTRING( t4956, "~%~%", 4 );
DEFSTATICTSCP2( c2787, t4956 );
DEFSTRING( t4957, " => ~%", 6 );
DEFSTATICTSCP2( c2783, t4957 );
DEFSTRING( t4958, "TRANSFORM", 9 );
DEFSTATICTSCP( c2779 );
DEFSTRING( t4959, "VALUE", 5 );
DEFSTATICTSCP( c2702 );
DEFSTRING( t4960, "CONSTANT", 8 );
DEFSTATICTSCP( c2496 );
DEFSTRING( t4961, "USE", 3 );
DEFSTATICTSCP( c2495 );
DEFSTRING( t4962, "IF2", 3 );
DEFSTATICTSCP( c2468 );
DEFSTATICTSCP( c2208 );
DEFSTRING( t4964, "Y", 1 );
DEFSTATICTSCP( t4963 );
DEFSTRING( t4966, "X", 1 );
DEFSTATICTSCP( t4965 );
DEFSTRING( t4968, "LAMBDA", 6 );
DEFSTATICTSCP( t4967 );
DEFSTRING( t4969, "REQVARS", 7 );
DEFSTATICTSCP( c2170 );
DEFSTATICTSCP( c2157 );
DEFSTRING( t4970, "NOT", 3 );
DEFSTATICTSCP( c1957 );
DEFSTRING( t4971, "$LAP", 4 );
DEFSTATICTSCP( c1874 );
DEFSTRING( t4972, "BOOLEAN", 7 );
DEFSTATICTSCP( c1825 );
DEFSTRING( t4973, "TYPE", 4 );
DEFSTATICTSCP( c1824 );
DEFSTRING( t4974, "IF1", 3 );
DEFSTATICTSCP( c1595 );
DEFSTRING( t4975, "SET-CDR!", 8 );
DEFSTATICTSCP( c1358 );
DEFSTRING( t4976, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1126, t4976 );
DEFSTRING( t4977, "SET-CAR!", 8 );
DEFSTATICTSCP( c1125 );
DEFSTRING( t4978, "$SET", 4 );
DEFSTATICTSCP( c1115 );
DEFSTRING( t4979, "$DEFINE", 7 );
DEFSTATICTSCP( c1099 );
DEFSTRING( t4980, "$IF", 3 );
DEFSTATICTSCP( c1083 );
DEFSTRING( t4981, "$LAMBDA", 7 );
DEFSTATICTSCP( c1067 );
DEFSTRING( t4982, "$CALL", 5 );
DEFSTATICTSCP( c1051 );
static void init_constants()
{
TSCP X1;
current_2dlambda_2did_v = STRINGTOSYMBOL( U_TX( ADR( t4933 ) ) );
CONSTANTEXP( ADR( current_2dlambda_2did_v ) );
true_2dalpha_v = STRINGTOSYMBOL( U_TX( ADR( t4934 ) ) );
CONSTANTEXP( ADR( true_2dalpha_v ) );
false_2dalpha_v = STRINGTOSYMBOL( U_TX( ADR( t4935 ) ) );
CONSTANTEXP( ADR( false_2dalpha_v ) );
name_2da_2dlambda_v = STRINGTOSYMBOL( U_TX( ADR( t4936 ) ) );
CONSTANTEXP( ADR( name_2da_2dlambda_v ) );
lambda_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t4937 ) ) );
CONSTANTEXP( ADR( lambda_2dexp_v ) );
log_3f_v = STRINGTOSYMBOL( U_TX( ADR( t4938 ) ) );
CONSTANTEXP( ADR( log_3f_v ) );
pretty_2dprint_2d_24tree_v = STRINGTOSYMBOL( U_TX( ADR( t4939 ) ) );
CONSTANTEXP( ADR( pretty_2dprint_2d_24tree_v ) );
sc_2dicode_v = STRINGTOSYMBOL( U_TX( ADR( t4940 ) ) );
CONSTANTEXP( ADR( sc_2dicode_v ) );
c3779 = STRINGTOSYMBOL( U_TX( ADR( t4944 ) ) );
CONSTANTEXP( ADR( c3779 ) );
c3654 = STRINGTOSYMBOL( U_TX( ADR( t4945 ) ) );
CONSTANTEXP( ADR( c3654 ) );
c3650 = STRINGTOSYMBOL( U_TX( ADR( t4946 ) ) );
CONSTANTEXP( ADR( c3650 ) );
c3002 = STRINGTOSYMBOL( U_TX( ADR( t4947 ) ) );
CONSTANTEXP( ADR( c3002 ) );
c3001 = STRINGTOSYMBOL( U_TX( ADR( t4948 ) ) );
CONSTANTEXP( ADR( c3001 ) );
c2921 = STRINGTOSYMBOL( U_TX( ADR( t4950 ) ) );
CONSTANTEXP( ADR( c2921 ) );
c2909 = STRINGTOSYMBOL( U_TX( ADR( t4951 ) ) );
CONSTANTEXP( ADR( c2909 ) );
c2902 = STRINGTOSYMBOL( U_TX( ADR( t4952 ) ) );
CONSTANTEXP( ADR( c2902 ) );
c2843 = STRINGTOSYMBOL( U_TX( ADR( t4953 ) ) );
CONSTANTEXP( ADR( c2843 ) );
c2839 = STRINGTOSYMBOL( U_TX( ADR( t4954 ) ) );
CONSTANTEXP( ADR( c2839 ) );
c2810 = STRINGTOSYMBOL( U_TX( ADR( t4955 ) ) );
CONSTANTEXP( ADR( c2810 ) );
c2779 = STRINGTOSYMBOL( U_TX( ADR( t4958 ) ) );
CONSTANTEXP( ADR( c2779 ) );
c2702 = STRINGTOSYMBOL( U_TX( ADR( t4959 ) ) );
CONSTANTEXP( ADR( c2702 ) );
c2496 = STRINGTOSYMBOL( U_TX( ADR( t4960 ) ) );
CONSTANTEXP( ADR( c2496 ) );
c2495 = STRINGTOSYMBOL( U_TX( ADR( t4961 ) ) );
CONSTANTEXP( ADR( c2495 ) );
c2468 = STRINGTOSYMBOL( U_TX( ADR( t4962 ) ) );
CONSTANTEXP( ADR( c2468 ) );
c2208 = EMPTYLIST;
X1 = EMPTYLIST;
t4963 = STRINGTOSYMBOL( U_TX( ADR( t4964 ) ) );
X1 = CONS( t4963, X1 );
t4965 = STRINGTOSYMBOL( U_TX( ADR( t4966 ) ) );
X1 = CONS( t4965, X1 );
c2208 = CONS( X1, c2208 );
t4967 = STRINGTOSYMBOL( U_TX( ADR( t4968 ) ) );
c2208 = CONS( t4967, c2208 );
CONSTANTEXP( ADR( c2208 ) );
c2170 = STRINGTOSYMBOL( U_TX( ADR( t4969 ) ) );
CONSTANTEXP( ADR( c2170 ) );
c2157 = EMPTYLIST;
c2157 = CONS( EMPTYLIST, c2157 );
c2157 = CONS( t4967, c2157 );
CONSTANTEXP( ADR( c2157 ) );
c1957 = STRINGTOSYMBOL( U_TX( ADR( t4970 ) ) );
CONSTANTEXP( ADR( c1957 ) );
c1874 = STRINGTOSYMBOL( U_TX( ADR( t4971 ) ) );
CONSTANTEXP( ADR( c1874 ) );
c1825 = STRINGTOSYMBOL( U_TX( ADR( t4972 ) ) );
CONSTANTEXP( ADR( c1825 ) );
c1824 = STRINGTOSYMBOL( U_TX( ADR( t4973 ) ) );
CONSTANTEXP( ADR( c1824 ) );
c1595 = STRINGTOSYMBOL( U_TX( ADR( t4974 ) ) );
CONSTANTEXP( ADR( c1595 ) );
c1358 = STRINGTOSYMBOL( U_TX( ADR( t4975 ) ) );
CONSTANTEXP( ADR( c1358 ) );
c1125 = STRINGTOSYMBOL( U_TX( ADR( t4977 ) ) );
CONSTANTEXP( ADR( c1125 ) );
c1115 = STRINGTOSYMBOL( U_TX( ADR( t4978 ) ) );
CONSTANTEXP( ADR( c1115 ) );
c1099 = STRINGTOSYMBOL( U_TX( ADR( t4979 ) ) );
CONSTANTEXP( ADR( c1099 ) );
c1083 = STRINGTOSYMBOL( U_TX( ADR( t4980 ) ) );
CONSTANTEXP( ADR( c1083 ) );
c1067 = STRINGTOSYMBOL( U_TX( ADR( t4981 ) ) );
CONSTANTEXP( ADR( c1067 ) );
c1051 = STRINGTOSYMBOL( U_TX( ADR( t4982 ) ) );
CONSTANTEXP( ADR( c1051 ) );
}
DEFTSCP( transform_transform_2dstack_v );
DEFSTRING( t4983, "TRANSFORM-STACK", 15 );
DEFTSCP( transform_transform_v );
DEFSTRING( t4984, "TRANSFORM", 9 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
EXTERNTSCPP( transform_transformx );
EXTERNTSCP( transform_transformx_v );
TSCP transform_transform( e1028 )
TSCP e1028;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4984 ) ) );
X1 = transform_transform_2dstack_v;
transform_transform_2dstack_v = sc_cons( e1028,
transform_transform_2dstack_v );
X2 = transform_transformx( e1028 );
transform_transform_2dstack_v = X1;
POPSTACKTRACE( X2 );
}
DEFTSCP( transform_transformx_v );
DEFSTRING( t4988, "TRANSFORMX", 10 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1_caddr );
EXTERNTSCP( scrt1_caddr_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
EXTERNTSCPP( scrt1_cdddr );
EXTERNTSCP( scrt1_cdddr_v );
EXTERNTSCPP( transform_l_2dlambda_8f20e049 );
EXTERNTSCP( transform_l_2dlambda_8f20e049_v );
EXTERNTSCPP( transform_transform_2dif1 );
EXTERNTSCP( transform_transform_2dif1_v );
EXTERNTSCPP( scrt1_cadddr );
EXTERNTSCP( scrt1_cadddr_v );
EXTERNTSCPP( transform_transform_2dif2 );
EXTERNTSCP( transform_transform_2dif2_v );
TSCP transform_transformx( e1035 )
TSCP e1035;
{
TSCP X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4988 ) ) );
X1 = BOOLEAN( EQ( TSCPTAG( e1035 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5050;
if ( EQ( TSCPTAG( e1035 ), PAIRTAG ) ) goto L4997;
scrt1__24__car_2derror( e1035 );
L4997:
X2 = PAIR_CAR( e1035 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1051 ) ) ) goto L5050;
X5 = PAIR_CAR( e1035 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X4 ) ) goto L5002;
X3 = scrt1_caddr( e1035 );
goto L5003;
L5002:
X3 = X4;
L5003:
X2 = transform_transform( X3 );
X4 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5007;
scrt1__24__cdr_2derror( X4 );
L5007:
X3 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5010;
scrt6_error( c1125, c1126, CONS( X3, EMPTYLIST ) );
L5010:
SETGEN( PAIR_CAR( X3 ), X2 );
X5 = PAIR_CAR( e1035 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X4 ) ) goto L5014;
X3 = scrt1_cdddr( e1035 );
goto L5015;
L5014:
X3 = X4;
L5015:
X4 = X3;
X5 = EMPTYLIST;
X6 = EMPTYLIST;
L5018:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L5019;
X2 = X5;
goto L5026;
L5019:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5022;
scrt1__24__car_2derror( X4 );
L5022:
X9 = PAIR_CAR( X4 );
X8 = transform_transform( X9 );
X7 = sc_cons( X8, EMPTYLIST );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L5025;
X8 = PAIR_CDR( X4 );
X6 = X7;
X5 = X7;
X4 = X8;
goto L5018;
L5025:
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5030;
scrt6_error( c1358, c1126, CONS( X6, EMPTYLIST ) );
L5030:
X6 = SETGEN( PAIR_CDR( X6 ), X7 );
X4 = X8;
goto L5018;
L5026:
X4 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5035;
scrt1__24__cdr_2derror( X4 );
L5035:
X3 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5038;
scrt6_error( c1358, c1126, CONS( X3, EMPTYLIST ) );
L5038:
SETGEN( PAIR_CDR( X3 ), X2 );
X4 = PAIR_CAR( e1035 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X3 ) ) goto L5042;
X2 = scrt1_caddr( e1035 );
goto L5043;
L5042:
X2 = X3;
L5043:
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5045;
X3 = PAIR_CAR( X2 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1067 ) ) ) goto L5047;
POPSTACKTRACE( transform_l_2dlambda_8f20e049( e1035 ) );
L5047:
POPSTACKTRACE( e1035 );
L5045:
POPSTACKTRACE( e1035 );
L5050:
X1 = BOOLEAN( EQ( TSCPTAG( e1035 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5098;
if ( EQ( TSCPTAG( e1035 ), PAIRTAG ) ) goto L5058;
scrt1__24__car_2derror( e1035 );
L5058:
X2 = PAIR_CAR( e1035 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1067 ) ) ) goto L5098;
X2 = SYMBOL_VALUE( current_2dlambda_2did_v );
X4 = PAIR_CAR( e1035 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1067 ) ) );
if ( FALSE( X3 ) ) goto L5063;
X5 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5067;
scrt1__24__car_2derror( X5 );
L5067:
X4 = PAIR_CAR( X5 );
goto L5064;
L5063:
X4 = X3;
L5064:
SETGENTL( SYMBOL_VALUE( current_2dlambda_2did_v ), X4 );
X6 = PAIR_CAR( e1035 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1067 ) ) );
if ( FALSE( X5 ) ) goto L5071;
X6 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5075;
scrt1__24__cdr_2derror( X6 );
L5075:
X4 = PAIR_CDR( X6 );
goto L5072;
L5071:
X4 = X5;
L5072:
X5 = X4;
X6 = EMPTYLIST;
X7 = EMPTYLIST;
L5079:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L5080;
X3 = X6;
goto L5087;
L5080:
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5083;
scrt1__24__car_2derror( X5 );
L5083:
X10 = PAIR_CAR( X5 );
X9 = transform_transform( X10 );
X8 = sc_cons( X9, EMPTYLIST );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L5086;
X9 = PAIR_CDR( X5 );
X7 = X8;
X6 = X8;
X5 = X9;
goto L5079;
L5086:
X9 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5091;
scrt6_error( c1358, c1126, CONS( X7, EMPTYLIST ) );
L5091:
X7 = SETGEN( PAIR_CDR( X7 ), X8 );
X5 = X9;
goto L5079;
L5087:
X4 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5096;
scrt6_error( c1358, c1126, CONS( X4, EMPTYLIST ) );
L5096:
SETGEN( PAIR_CDR( X4 ), X3 );
SETGENTL( SYMBOL_VALUE( current_2dlambda_2did_v ), X2 );
POPSTACKTRACE( e1035 );
L5098:
X1 = BOOLEAN( EQ( TSCPTAG( e1035 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5145;
if ( EQ( TSCPTAG( e1035 ), PAIRTAG ) ) goto L5106;
scrt1__24__car_2derror( e1035 );
L5106:
X2 = PAIR_CAR( e1035 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1083 ) ) ) goto L5145;
X2 = transform_transform_2dif1( e1035 );
if ( TRUE( X2 ) ) goto L5109;
X6 = PAIR_CAR( e1035 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X5 ) ) goto L5114;
X6 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5118;
scrt1__24__car_2derror( X6 );
L5118:
X4 = PAIR_CAR( X6 );
goto L5115;
L5114:
X4 = X5;
L5115:
X3 = transform_transform( X4 );
X4 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5123;
scrt6_error( c1125, c1126, CONS( X4, EMPTYLIST ) );
L5123:
SETGEN( PAIR_CAR( X4 ), X3 );
X6 = PAIR_CAR( e1035 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X5 ) ) goto L5127;
X4 = scrt1_caddr( e1035 );
goto L5128;
L5127:
X4 = X5;
L5128:
X3 = transform_transform( X4 );
X5 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5132;
scrt1__24__cdr_2derror( X5 );
L5132:
X4 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5135;
scrt6_error( c1125, c1126, CONS( X4, EMPTYLIST ) );
L5135:
SETGEN( PAIR_CAR( X4 ), X3 );
X6 = PAIR_CAR( e1035 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X5 ) ) goto L5139;
X4 = scrt1_cadddr( e1035 );
goto L5140;
L5139:
X4 = X5;
L5140:
X3 = transform_transform( X4 );
X4 = scrt1_cdddr( e1035 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5143;
scrt6_error( c1125, c1126, CONS( X4, EMPTYLIST ) );
L5143:
SETGEN( PAIR_CAR( X4 ), X3 );
POPSTACKTRACE( transform_transform_2dif2( e1035 ) );
L5109:
POPSTACKTRACE( X2 );
L5145:
X1 = BOOLEAN( EQ( TSCPTAG( e1035 ), PAIRTAG ) );
if ( FALSE( X1 ) ) goto L5168;
if ( EQ( TSCPTAG( e1035 ), PAIRTAG ) ) goto L5153;
scrt1__24__car_2derror( e1035 );
L5153:
X2 = PAIR_CAR( e1035 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1099 ) ) ) goto L5168;
X5 = PAIR_CAR( e1035 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1099 ) ) );
if ( FALSE( X4 ) ) goto L5158;
X3 = scrt1_caddr( e1035 );
goto L5159;
L5158:
X3 = X4;
L5159:
X2 = transform_transform( X3 );
X4 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5163;
scrt1__24__cdr_2derror( X4 );
L5163:
X3 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5166;
scrt6_error( c1125, c1126, CONS( X3, EMPTYLIST ) );
L5166:
SETGEN( PAIR_CAR( X3 ), X2 );
POPSTACKTRACE( e1035 );
L5168:
if ( NEQ( TSCPTAG( e1035 ), PAIRTAG ) ) goto L5169;
X1 = PAIR_CAR( e1035 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1115 ) ) ) goto L5171;
X4 = PAIR_CAR( e1035 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1115 ) ) );
if ( FALSE( X3 ) ) goto L5177;
X2 = scrt1_caddr( e1035 );
goto L5178;
L5177:
X2 = X3;
L5178:
X1 = transform_transform( X2 );
X3 = PAIR_CDR( e1035 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5182;
scrt1__24__cdr_2derror( X3 );
L5182:
X2 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5185;
scrt6_error( c1125, c1126, CONS( X2, EMPTYLIST ) );
L5185:
SETGEN( PAIR_CAR( X2 ), X1 );
POPSTACKTRACE( e1035 );
L5171:
POPSTACKTRACE( e1035 );
L5169:
POPSTACKTRACE( e1035 );
}
DEFTSCP( transform_transform_2dif1_v );
DEFSTRING( t5187, "TRANSFORM-IF1", 13 );
EXTERNTSCPP( transform_log_2dbefore );
EXTERNTSCP( transform_log_2dbefore_v );
EXTERNTSCPP( scrt1_last_2dpair );
EXTERNTSCP( scrt1_last_2dpair_v );
EXTERNTSCPP( scrt1_cons_2a );
EXTERNTSCP( scrt1_cons_2a_v );
EXTERNTSCPP( transform_log_2dafter );
EXTERNTSCP( transform_log_2dafter_v );
EXTERNTSCPP( plist_get );
EXTERNTSCP( plist_get_v );
EXTERNTSCPP( scrt1_cadar );
EXTERNTSCP( scrt1_cadar_v );
TSCP transform_transform_2dif1( e1588 )
TSCP e1588;
{
TSCP X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5187 ) ) );
if ( NEQ( TSCPTAG( e1588 ), PAIRTAG ) ) goto L5189;
X5 = PAIR_CAR( e1588 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1083 ) ) );
goto L5190;
L5189:
X4 = FALSEVALUE;
L5190:
if ( FALSE( X4 ) ) goto L5193;
X1 = scrt1_cadddr( e1588 );
goto L5194;
L5193:
X1 = X4;
L5194:
if ( NEQ( TSCPTAG( e1588 ), PAIRTAG ) ) goto L5195;
X5 = PAIR_CAR( e1588 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1083 ) ) );
goto L5196;
L5195:
X4 = FALSEVALUE;
L5196:
if ( FALSE( X4 ) ) goto L5199;
X2 = scrt1_caddr( e1588 );
goto L5200;
L5199:
X2 = X4;
L5200:
if ( NEQ( TSCPTAG( e1588 ), PAIRTAG ) ) goto L5201;
X5 = PAIR_CAR( e1588 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1083 ) ) );
goto L5202;
L5201:
X4 = FALSEVALUE;
L5202:
if ( FALSE( X4 ) ) goto L5205;
if ( EQ( TSCPTAG( e1588 ), PAIRTAG ) ) goto L5208;
scrt1__24__cdr_2derror( e1588 );
L5208:
X5 = PAIR_CDR( e1588 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5211;
scrt1__24__car_2derror( X5 );
L5211:
X3 = PAIR_CAR( X5 );
goto L5206;
L5205:
X3 = X4;
L5206:
X6 = sc_cons( e1588, EMPTYLIST );
X5 = sc_cons( c1595, X6 );
X4 = X5;
transform_transform_2dstack_v = sc_cons( X4,
transform_transform_2dstack_v );
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5215;
X5 = PAIR_CAR( X3 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1051 ) ) );
goto L5216;
L5215:
X4 = FALSEVALUE;
L5216:
if ( FALSE( X4 ) ) goto L5261;
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5222;
X7 = PAIR_CAR( X3 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1051 ) ) );
goto L5223;
L5222:
X6 = FALSEVALUE;
L5223:
if ( FALSE( X6 ) ) goto L5226;
X5 = scrt1_caddr( X3 );
goto L5227;
L5226:
X5 = X6;
L5227:
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5261;
X6 = PAIR_CAR( X5 );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1067 ) ) ) goto L5261;
transform_log_2dbefore( e1588 );
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5236;
X10 = PAIR_CAR( X3 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1051 ) ) );
goto L5237;
L5236:
X9 = FALSEVALUE;
L5237:
if ( FALSE( X9 ) ) goto L5240;
X8 = scrt1_caddr( X3 );
goto L5241;
L5240:
X8 = X9;
L5241:
if ( NEQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L5243;
X10 = PAIR_CAR( X8 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1067 ) ) );
goto L5244;
L5243:
X9 = FALSEVALUE;
L5244:
if ( FALSE( X9 ) ) goto L5247;
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L5250;
scrt1__24__cdr_2derror( X8 );
L5250:
X10 = PAIR_CDR( X8 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L5253;
scrt1__24__cdr_2derror( X10 );
L5253:
X7 = PAIR_CDR( X10 );
goto L5248;
L5247:
X7 = X9;
L5248:
X6 = scrt1_last_2dpair( X7 );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( X1, X8 );
X8 = CONS( X2, X8 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5257;
scrt1__24__car_2derror( X6 );
L5257:
X7 = scrt1_cons_2a( c1083,
CONS( PAIR_CAR( X6 ), X8 ) );
SETGEN( PAIR_CAR( X6 ), X7 );
X7 = transform_log_2dafter( X3 );
POPSTACKTRACE( transform_transform( X7 ) );
L5261:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5262;
X5 = PAIR_CAR( X3 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1083 ) ) );
goto L5263;
L5262:
X4 = FALSEVALUE;
L5263:
if ( FALSE( X4 ) ) goto L5307;
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5272;
X7 = PAIR_CAR( X3 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1083 ) ) );
goto L5273;
L5272:
X6 = FALSEVALUE;
L5273:
if ( FALSE( X6 ) ) goto L5276;
X5 = scrt1_caddr( X3 );
goto L5277;
L5276:
X5 = X6;
L5277:
X6 = SYMBOL_VALUE( true_2dalpha_v );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) ) goto L5307;
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5280;
X7 = PAIR_CAR( X3 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1083 ) ) );
goto L5281;
L5280:
X6 = FALSEVALUE;
L5281:
if ( FALSE( X6 ) ) goto L5284;
X5 = scrt1_cadddr( X3 );
goto L5285;
L5284:
X5 = X6;
L5285:
X6 = SYMBOL_VALUE( false_2dalpha_v );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) ) goto L5307;
transform_log_2dbefore( e1588 );
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5287;
X7 = PAIR_CAR( X3 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1083 ) ) );
goto L5288;
L5287:
X6 = FALSEVALUE;
L5288:
if ( FALSE( X6 ) ) goto L5291;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5294;
scrt1__24__cdr_2derror( X3 );
L5294:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5297;
scrt1__24__car_2derror( X7 );
L5297:
X5 = PAIR_CAR( X7 );
goto L5292;
L5291:
X5 = X6;
L5292:
if ( EQ( TSCPTAG( e1588 ), PAIRTAG ) ) goto L5301;
scrt1__24__cdr_2derror( e1588 );
L5301:
X6 = PAIR_CDR( e1588 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5304;
scrt6_error( c1125, c1126, CONS( X6, EMPTYLIST ) );
L5304:
SETGEN( PAIR_CAR( X6 ), X5 );
X5 = transform_log_2dafter( e1588 );
POPSTACKTRACE( transform_transform( X5 ) );
L5307:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5308;
X5 = PAIR_CAR( X3 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1083 ) ) );
goto L5309;
L5308:
X4 = FALSEVALUE;
L5309:
if ( FALSE( X4 ) ) goto L5363;
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5318;
X7 = PAIR_CAR( X3 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1083 ) ) );
goto L5319;
L5318:
X6 = FALSEVALUE;
L5319:
if ( FALSE( X6 ) ) goto L5322;
X5 = scrt1_caddr( X3 );
goto L5323;
L5322:
X5 = X6;
L5323:
X6 = SYMBOL_VALUE( false_2dalpha_v );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) ) goto L5363;
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5326;
X7 = PAIR_CAR( X3 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1083 ) ) );
goto L5327;
L5326:
X6 = FALSEVALUE;
L5327:
if ( FALSE( X6 ) ) goto L5330;
X5 = scrt1_cadddr( X3 );
goto L5331;
L5330:
X5 = X6;
L5331:
X6 = SYMBOL_VALUE( true_2dalpha_v );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) ) goto L5363;
transform_log_2dbefore( e1588 );
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5333;
X7 = PAIR_CAR( X3 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1083 ) ) );
goto L5334;
L5333:
X6 = FALSEVALUE;
L5334:
if ( FALSE( X6 ) ) goto L5337;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5340;
scrt1__24__cdr_2derror( X3 );
L5340:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5343;
scrt1__24__car_2derror( X7 );
L5343:
X5 = PAIR_CAR( X7 );
goto L5338;
L5337:
X5 = X6;
L5338:
if ( EQ( TSCPTAG( e1588 ), PAIRTAG ) ) goto L5347;
scrt1__24__cdr_2derror( e1588 );
L5347:
X6 = PAIR_CDR( e1588 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5350;
scrt6_error( c1125, c1126, CONS( X6, EMPTYLIST ) );
L5350:
SETGEN( PAIR_CAR( X6 ), X5 );
X6 = PAIR_CDR( e1588 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5354;
scrt1__24__cdr_2derror( X6 );
L5354:
X5 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5357;
scrt6_error( c1125, c1126, CONS( X5, EMPTYLIST ) );
L5357:
SETGEN( PAIR_CAR( X5 ), X1 );
X5 = scrt1_cdddr( e1588 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5360;
scrt6_error( c1125, c1126, CONS( X5, EMPTYLIST ) );
L5360:
SETGEN( PAIR_CAR( X5 ), X2 );
X5 = transform_log_2dafter( e1588 );
POPSTACKTRACE( transform_transform( X5 ) );
L5363:
X4 = BOOLEAN( EQ( TSCPTAG( X3 ), PAIRTAG ) );
if ( FALSE( X4 ) ) goto L5441;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5371;
scrt1__24__car_2derror( X3 );
L5371:
X5 = PAIR_CAR( X3 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1083 ) ) ) goto L5441;
transform_log_2dbefore( e1588 );
X6 = SYMBOL_VALUE( lambda_2dexp_v );
X6 = UNKNOWNCALL( X6, 2 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( c2208,
EMPTYLIST,
PROCEDURE_CLOSURE( X6 ) );
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5375;
X8 = PAIR_CAR( X5 );
X7 = BOOLEAN( EQ( UNSIGNED( X8 ),
UNSIGNED( c1067 ) ) );
goto L5376;
L5375:
X7 = FALSEVALUE;
L5376:
if ( FALSE( X7 ) ) goto L5379;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5382;
scrt1__24__cdr_2derror( X5 );
L5382:
X8 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L5385;
scrt1__24__car_2derror( X8 );
L5385:
X6 = PAIR_CAR( X8 );
goto L5380;
L5379:
X6 = X7;
L5380:
X8 = plist_get( X6, c2170 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L5389;
scrt1__24__car_2derror( X8 );
L5389:
X7 = PAIR_CAR( X8 );
X9 = plist_get( X6, c2170 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L5394;
scrt1__24__cdr_2derror( X9 );
L5394:
X10 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L5397;
scrt1__24__car_2derror( X10 );
L5397:
X8 = PAIR_CAR( X10 );
X10 = SYMBOL_VALUE( lambda_2dexp_v );
X10 = UNKNOWNCALL( X10, 2 );
X9 = VIA( PROCEDURE_CODE( X10 ) )( c2157,
EMPTYLIST,
PROCEDURE_CLOSURE( X10 ) );
X11 = SYMBOL_VALUE( lambda_2dexp_v );
X11 = UNKNOWNCALL( X11, 2 );
X10 = VIA( PROCEDURE_CODE( X11 ) )( c2157,
EMPTYLIST,
PROCEDURE_CLOSURE( X11 ) );
X12 = sc_cons( X2, EMPTYLIST );
X11 = X12;
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L5405;
scrt1__24__cdr_2derror( X9 );
L5405:
X12 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L5408;
scrt6_error( c1358,
c1126, CONS( X12, EMPTYLIST ) );
L5408:
SETGEN( PAIR_CDR( X12 ), X11 );
X12 = sc_cons( X1, EMPTYLIST );
X11 = X12;
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L5413;
scrt1__24__cdr_2derror( X10 );
L5413:
X12 = PAIR_CDR( X10 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L5416;
scrt6_error( c1358,
c1126, CONS( X12, EMPTYLIST ) );
L5416:
SETGEN( PAIR_CDR( X12 ), X11 );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X14 = CONS( EMPTYLIST, EMPTYLIST );
X15 = CONS( EMPTYLIST, EMPTYLIST );
X15 = CONS( X8, X15 );
X14 = CONS( scrt1_cons_2a( c1051,
CONS( EMPTYLIST, X15 ) ),
X14 );
X15 = CONS( EMPTYLIST, EMPTYLIST );
X15 = CONS( X7, X15 );
X14 = CONS( scrt1_cons_2a( c1051,
CONS( EMPTYLIST, X15 ) ),
X14 );
X16 = PAIR_CAR( X3 );
X15 = BOOLEAN( EQ( UNSIGNED( X16 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X15 ) ) goto L5420;
X16 = scrt1_cadddr( X3 );
goto L5421;
L5420:
X16 = X15;
L5421:
X13 = CONS( scrt1_cons_2a( c1083, CONS( X16, X14 ) ),
X13 );
X14 = CONS( EMPTYLIST, EMPTYLIST );
X15 = CONS( EMPTYLIST, EMPTYLIST );
X15 = CONS( X8, X15 );
X14 = CONS( scrt1_cons_2a( c1051,
CONS( EMPTYLIST, X15 ) ),
X14 );
X15 = CONS( EMPTYLIST, EMPTYLIST );
X15 = CONS( X7, X15 );
X14 = CONS( scrt1_cons_2a( c1051,
CONS( EMPTYLIST, X15 ) ),
X14 );
X16 = PAIR_CAR( X3 );
X15 = BOOLEAN( EQ( UNSIGNED( X16 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X15 ) ) goto L5424;
X16 = scrt1_caddr( X3 );
goto L5425;
L5424:
X16 = X15;
L5425:
X13 = CONS( scrt1_cons_2a( c1083, CONS( X16, X14 ) ),
X13 );
X15 = PAIR_CAR( X3 );
X14 = BOOLEAN( EQ( UNSIGNED( X15 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X14 ) ) goto L5428;
X16 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L5432;
scrt1__24__car_2derror( X16 );
L5432:
X15 = PAIR_CAR( X16 );
goto L5429;
L5428:
X15 = X14;
L5429:
X12 = scrt1_cons_2a( c1083, CONS( X15, X13 ) );
X11 = scrt1_cons_2a( X12,
CONS( EMPTYLIST, EMPTYLIST ) );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5436;
scrt1__24__cdr_2derror( X5 );
L5436:
X12 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L5439;
scrt6_error( c1358,
c1126, CONS( X12, EMPTYLIST ) );
L5439:
SETGEN( PAIR_CDR( X12 ), X11 );
X11 = SYMBOL_VALUE( name_2da_2dlambda_v );
X11 = UNKNOWNCALL( X11, 2 );
VIA( PROCEDURE_CODE( X11 ) )( X7,
X9,
PROCEDURE_CLOSURE( X11 ) );
X11 = SYMBOL_VALUE( name_2da_2dlambda_v );
X11 = UNKNOWNCALL( X11, 2 );
VIA( PROCEDURE_CODE( X11 ) )( X8,
X10,
PROCEDURE_CLOSURE( X11 ) );
X13 = CONS( EMPTYLIST, EMPTYLIST );
X13 = CONS( X10, X13 );
X13 = CONS( X9, X13 );
X13 = CONS( X5, X13 );
X12 = scrt1_cons_2a( c1051, CONS( EMPTYLIST, X13 ) );
X11 = transform_log_2dafter( X12 );
POPSTACKTRACE( transform_transform( X11 ) );
L5441:
X4 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
if ( FALSE( X4 ) ) goto L5463;
X5 = plist_get( X3, c1824 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1825 ) ) ) goto L5463;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) ) goto L5463;
transform_log_2dbefore( e1588 );
X5 = SYMBOL_VALUE( true_2dalpha_v );
if ( EQ( TSCPTAG( e1588 ), PAIRTAG ) ) goto L5454;
scrt1__24__cdr_2derror( e1588 );
L5454:
X7 = PAIR_CDR( e1588 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5457;
scrt1__24__cdr_2derror( X7 );
L5457:
X6 = PAIR_CDR( X7 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5460;
scrt6_error( c1125, c1126, CONS( X6, EMPTYLIST ) );
L5460:
SETGEN( PAIR_CAR( X6 ), X5 );
X5 = transform_log_2dafter( e1588 );
POPSTACKTRACE( transform_transform( X5 ) );
L5463:
X4 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
if ( FALSE( X4 ) ) goto L5479;
X5 = plist_get( X3, c1824 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1825 ) ) ) goto L5479;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( X3 ) ) ) goto L5479;
transform_log_2dbefore( e1588 );
X5 = SYMBOL_VALUE( false_2dalpha_v );
X6 = scrt1_cdddr( e1588 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5476;
scrt6_error( c1125, c1126, CONS( X6, EMPTYLIST ) );
L5476:
SETGEN( PAIR_CAR( X6 ), X5 );
X5 = transform_log_2dafter( e1588 );
POPSTACKTRACE( transform_transform( X5 ) );
L5479:
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5482;
X7 = PAIR_CAR( X3 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1051 ) ) );
goto L5483;
L5482:
X6 = FALSEVALUE;
L5483:
if ( FALSE( X6 ) ) goto L5486;
X5 = scrt1_caddr( X3 );
goto L5487;
L5486:
X5 = X6;
L5487:
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5489;
X7 = PAIR_CAR( X5 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1874 ) ) );
goto L5490;
L5489:
X6 = FALSEVALUE;
L5490:
if ( FALSE( X6 ) ) goto L5493;
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5496;
scrt1__24__cdr_2derror( X5 );
L5496:
X7 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5499;
scrt1__24__car_2derror( X7 );
L5499:
X4 = PAIR_CAR( X7 );
goto L5494;
L5493:
X4 = X6;
L5494:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1825 ) ) ) goto L5480;
X5 = SYMBOL_VALUE( true_2dalpha_v );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( X5 ) ) ) goto L5501;
X5 = SYMBOL_VALUE( false_2dalpha_v );
X4 = BOOLEAN( EQ( UNSIGNED( X1 ), UNSIGNED( X5 ) ) );
goto L5502;
L5501:
X4 = FALSEVALUE;
L5502:
if ( TRUE( X4 ) ) goto L5507;
X5 = SYMBOL_VALUE( false_2dalpha_v );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( X5 ) ) ) goto L5508;
X5 = SYMBOL_VALUE( true_2dalpha_v );
if ( EQ( UNSIGNED( X1 ), UNSIGNED( X5 ) ) ) goto L5507;
POPSTACKTRACE( FALSEVALUE );
L5508:
POPSTACKTRACE( FALSEVALUE );
L5480:
POPSTACKTRACE( FALSEVALUE );
L5507:
transform_log_2dbefore( e1588 );
X4 = SYMBOL_VALUE( true_2dalpha_v );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( X4 ) ) ) goto L5513;
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5515;
X6 = PAIR_CAR( X3 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1051 ) ) );
goto L5516;
L5515:
X5 = FALSEVALUE;
L5516:
if ( FALSE( X5 ) ) goto L5519;
X4 = scrt1_caddr( X3 );
goto L5520;
L5519:
X4 = X5;
L5520:
X7 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( EMPTYLIST, EMPTYLIST );
if ( NEQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5522;
X11 = PAIR_CAR( X4 );
X10 = BOOLEAN( EQ( UNSIGNED( X11 ),
UNSIGNED( c1874 ) ) );
goto L5523;
L5522:
X10 = FALSEVALUE;
L5523:
if ( FALSE( X10 ) ) goto L5526;
X9 = scrt1_cdddr( X4 );
goto L5527;
L5526:
X9 = X10;
L5527:
X6 = scrt1_cons_2a( c1825,
CONS( scrt1_cons_2a( c1957,
CONS( scrt1_cadar( X9 ),
X8 ) ),
X7 ) );
X5 = scrt1_cons_2a( X6, CONS( EMPTYLIST, EMPTYLIST ) );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5530;
scrt1__24__cdr_2derror( X4 );
L5530:
X7 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5533;
scrt1__24__cdr_2derror( X7 );
L5533:
X6 = PAIR_CDR( X7 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5536;
scrt6_error( c1358, c1126, CONS( X6, EMPTYLIST ) );
L5536:
SETGEN( PAIR_CDR( X6 ), X5 );
L5513:
X4 = transform_log_2dafter( X3 );
POPSTACKTRACE( transform_transform( X4 ) );
}
DEFTSCP( transform_transform_2dif2_v );
DEFSTRING( t5538, "TRANSFORM-IF2", 13 );
TSCP transform_transform_2dif2( e2461 )
TSCP e2461;
{
TSCP X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5538 ) ) );
L5539:
if ( NEQ( TSCPTAG( e2461 ), PAIRTAG ) ) goto L5540;
X5 = PAIR_CAR( e2461 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1083 ) ) );
goto L5541;
L5540:
X4 = FALSEVALUE;
L5541:
if ( FALSE( X4 ) ) goto L5544;
X1 = scrt1_cadddr( e2461 );
goto L5545;
L5544:
X1 = X4;
L5545:
if ( NEQ( TSCPTAG( e2461 ), PAIRTAG ) ) goto L5546;
X5 = PAIR_CAR( e2461 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1083 ) ) );
goto L5547;
L5546:
X4 = FALSEVALUE;
L5547:
if ( FALSE( X4 ) ) goto L5550;
X2 = scrt1_caddr( e2461 );
goto L5551;
L5550:
X2 = X4;
L5551:
if ( NEQ( TSCPTAG( e2461 ), PAIRTAG ) ) goto L5552;
X5 = PAIR_CAR( e2461 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1083 ) ) );
goto L5553;
L5552:
X4 = FALSEVALUE;
L5553:
if ( FALSE( X4 ) ) goto L5556;
if ( EQ( TSCPTAG( e2461 ), PAIRTAG ) ) goto L5559;
scrt1__24__cdr_2derror( e2461 );
L5559:
X5 = PAIR_CDR( e2461 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5562;
scrt1__24__car_2derror( X5 );
L5562:
X3 = PAIR_CAR( X5 );
goto L5557;
L5556:
X3 = X4;
L5557:
X6 = sc_cons( e2461, EMPTYLIST );
X5 = sc_cons( c2468, X6 );
X4 = X5;
transform_transform_2dstack_v = sc_cons( X4,
transform_transform_2dstack_v );
if ( NEQ( TSCPTAG( e2461 ), PAIRTAG ) ) goto L5566;
X4 = PAIR_CAR( e2461 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1083 ) ) ) goto L5568;
X4 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
if ( FALSE( X4 ) ) goto L5580;
X5 = plist_get( X3, c2495 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c2496 ) ) ) goto L5580;
transform_log_2dbefore( e2461 );
if ( FALSE( plist_get( X3, c2702 ) ) ) goto L5578;
X5 = X2;
goto L5579;
L5578:
X5 = X1;
L5579:
e2461 = transform_log_2dafter( X5 );
goto L5539;
L5568:
POPSTACKTRACE( e2461 );
L5566:
POPSTACKTRACE( e2461 );
L5580:
X5 = SYMBOL_VALUE( true_2dalpha_v );
X4 = BOOLEAN( EQ( UNSIGNED( X3 ), UNSIGNED( X5 ) ) );
if ( TRUE( X4 ) ) goto L5585;
X5 = SYMBOL_VALUE( false_2dalpha_v );
if ( EQ( UNSIGNED( X3 ), UNSIGNED( X5 ) ) ) goto L5585;
X5 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
if ( FALSE( X5 ) ) goto L5629;
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5592;
X7 = PAIR_CAR( X2 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1083 ) ) );
goto L5593;
L5592:
X6 = FALSEVALUE;
L5593:
if ( FALSE( X6 ) ) goto L5629;
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5601;
X9 = PAIR_CAR( X2 );
X8 = BOOLEAN( EQ( UNSIGNED( X9 ),
UNSIGNED( c1083 ) ) );
goto L5602;
L5601:
X8 = FALSEVALUE;
L5602:
if ( FALSE( X8 ) ) goto L5605;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5608;
scrt1__24__cdr_2derror( X2 );
L5608:
X9 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L5611;
scrt1__24__car_2derror( X9 );
L5611:
X7 = PAIR_CAR( X9 );
goto L5606;
L5605:
X7 = X8;
L5606:
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( X3 ) ) ) goto L5629;
transform_log_2dbefore( e2461 );
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5614;
X9 = PAIR_CAR( X2 );
X8 = BOOLEAN( EQ( UNSIGNED( X9 ),
UNSIGNED( c1083 ) ) );
goto L5615;
L5614:
X8 = FALSEVALUE;
L5615:
if ( FALSE( X8 ) ) goto L5618;
X7 = scrt1_caddr( X2 );
goto L5619;
L5618:
X7 = X8;
L5619:
X9 = PAIR_CDR( e2461 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L5623;
scrt1__24__cdr_2derror( X9 );
L5623:
X8 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L5626;
scrt6_error( c1125, c1126, CONS( X8, EMPTYLIST ) );
L5626:
SETGEN( PAIR_CAR( X8 ), X7 );
e2461 = transform_log_2dafter( e2461 );
goto L5539;
L5585:
transform_log_2dbefore( e2461 );
X5 = SYMBOL_VALUE( true_2dalpha_v );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( X5 ) ) ) goto L5631;
X4 = X2;
goto L5632;
L5631:
X4 = X1;
L5632:
e2461 = transform_log_2dafter( X4 );
goto L5539;
L5629:
if ( NOT( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) )
) goto L5633;
if ( NEQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L5635;
X4 = PAIR_CAR( X1 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1083 ) ) ) goto L5637;
X6 = PAIR_CAR( X1 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X5 ) ) goto L5644;
X6 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5648;
scrt1__24__car_2derror( X6 );
L5648:
X4 = PAIR_CAR( X6 );
goto L5645;
L5644:
X4 = X5;
L5645:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( X3 ) ) ) goto L5640;
transform_log_2dbefore( e2461 );
X6 = PAIR_CAR( X1 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X5 ) ) goto L5653;
X4 = scrt1_cadddr( X1 );
goto L5654;
L5653:
X4 = X5;
L5654:
X5 = scrt1_cdddr( e2461 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5657;
scrt6_error( c1125, c1126, CONS( X5, EMPTYLIST ) );
L5657:
SETGEN( PAIR_CAR( X5 ), X4 );
e2461 = transform_log_2dafter( e2461 );
goto L5539;
L5640:
POPSTACKTRACE( e2461 );
L5637:
POPSTACKTRACE( e2461 );
L5635:
POPSTACKTRACE( e2461 );
L5633:
POPSTACKTRACE( e2461 );
}
DEFTSCP( transform_log_2dbefore_v );
DEFSTRING( t5659, "LOG-BEFORE", 10 );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
TSCP transform_log_2dbefore( e2777 )
TSCP e2777;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5659 ) ) );
X1 = SYMBOL_VALUE( log_3f_v );
X1 = UNKNOWNCALL( X1, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( c2779,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L5661;
X2 = SYMBOL_VALUE( sc_2dicode_v );
X1 = SYMBOL_VALUE( pretty_2dprint_2d_24tree_v );
X1 = UNKNOWNCALL( X1, 2 );
VIA( PROCEDURE_CODE( X1 ) )( e2777,
X2, PROCEDURE_CLOSURE( X1 ) );
X1 = SYMBOL_VALUE( sc_2dicode_v );
POPSTACKTRACE( scrt6_format( X1,
CONS( c2783, EMPTYLIST ) ) );
L5661:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( transform_log_2dafter_v );
DEFSTRING( t5664, "LOG-AFTER", 9 );
TSCP transform_log_2dafter( e2785 )
TSCP e2785;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5664 ) ) );
X1 = SYMBOL_VALUE( log_3f_v );
X1 = UNKNOWNCALL( X1, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( c2779,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L5666;
X2 = SYMBOL_VALUE( sc_2dicode_v );
X1 = SYMBOL_VALUE( pretty_2dprint_2d_24tree_v );
X1 = UNKNOWNCALL( X1, 2 );
VIA( PROCEDURE_CODE( X1 ) )( e2785,
X2, PROCEDURE_CLOSURE( X1 ) );
X1 = SYMBOL_VALUE( sc_2dicode_v );
scrt6_format( X1, CONS( c2787, EMPTYLIST ) );
L5666:
POPSTACKTRACE( e2785 );
}
DEFTSCP( transform_l_2dlambda_8f20e049_v );
DEFSTRING( t5669, "TRANSFORM-CALL-LAMBDA", 21 );
EXTERNTSCPP( transform_bda_2dbind_8a6984c8 );
EXTERNTSCP( transform_bda_2dbind_8a6984c8_v );
EXTERNTSCPP( plist_put );
EXTERNTSCP( plist_put_v );
EXTERNTSCPP( transform_var_2duses_93ec09fc );
EXTERNTSCP( transform_var_2duses_93ec09fc_v );
EXTERNTSCPP( transform_mbda_2dvar_cbbaf994 );
EXTERNTSCP( transform_mbda_2dvar_cbbaf994_v );
EXTERNTSCPP( transform_to_2dvalue_e947c03 );
EXTERNTSCP( transform_to_2dvalue_e947c03_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
TSCP transform_l_2dlambda_8f20e049( e2789 )
TSCP e2789;
{
TSCP X16,
X15,
X14,
X13,
X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5669 ) ) );
e2789 = CONS( e2789, EMPTYLIST );
X3 = PAIR_CAR( e2789 );
if ( NEQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L5672;
X5 = PAIR_CAR( X3 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1051 ) ) );
goto L5673;
L5672:
X4 = FALSEVALUE;
L5673:
if ( FALSE( X4 ) ) goto L5676;
X2 = scrt1_caddr( X3 );
goto L5677;
L5676:
X2 = X4;
L5677:
if ( NEQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5679;
X4 = PAIR_CAR( X2 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1067 ) ) );
goto L5680;
L5679:
X3 = FALSEVALUE;
L5680:
if ( FALSE( X3 ) ) goto L5683;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L5686;
scrt1__24__cdr_2derror( X2 );
L5686:
X4 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5689;
scrt1__24__car_2derror( X4 );
L5689:
X1 = PAIR_CAR( X4 );
goto L5684;
L5683:
X1 = X3;
L5684:
X3 = plist_get( X1, c2170 );
X5 = PAIR_CAR( e2789 );
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5693;
X7 = PAIR_CAR( X5 );
X6 = BOOLEAN( EQ( UNSIGNED( X7 ),
UNSIGNED( c1051 ) ) );
goto L5694;
L5693:
X6 = FALSEVALUE;
L5694:
if ( FALSE( X6 ) ) goto L5697;
X4 = scrt1_cdddr( X5 );
goto L5698;
L5697:
X4 = X6;
L5698:
X2 = transform_bda_2dbind_8a6984c8( X3, X4 );
X4 = X2;
X5 = EMPTYLIST;
X6 = EMPTYLIST;
L5701:
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L5702;
X3 = X5;
goto L5713;
L5702:
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5705;
scrt1__24__car_2derror( X4 );
L5705:
X9 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L5709;
scrt1__24__car_2derror( X9 );
L5709:
X8 = PAIR_CAR( X9 );
X7 = sc_cons( X8, EMPTYLIST );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L5712;
X8 = PAIR_CDR( X4 );
X6 = X7;
X5 = X7;
X4 = X8;
goto L5701;
L5712:
X8 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5717;
scrt6_error( c1358, c1126, CONS( X6, EMPTYLIST ) );
L5717:
X6 = SETGEN( PAIR_CDR( X6 ), X7 );
X4 = X8;
goto L5701;
L5713:
X5 = X2;
X6 = EMPTYLIST;
X7 = EMPTYLIST;
L5721:
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) ) goto L5722;
X4 = X6;
goto L5736;
L5722:
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5725;
scrt1__24__car_2derror( X5 );
L5725:
X10 = PAIR_CAR( X5 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L5729;
scrt1__24__cdr_2derror( X10 );
L5729:
X11 = PAIR_CDR( X10 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L5732;
scrt1__24__car_2derror( X11 );
L5732:
X9 = PAIR_CAR( X11 );
X8 = sc_cons( X9, EMPTYLIST );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L5735;
X9 = PAIR_CDR( X5 );
X7 = X8;
X6 = X8;
X5 = X9;
goto L5721;
L5735:
X9 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5740;
scrt6_error( c1358, c1126, CONS( X7, EMPTYLIST ) );
L5740:
X7 = SETGEN( PAIR_CDR( X7 ), X8 );
X5 = X9;
goto L5721;
L5736:
X4 = CONS( X4, EMPTYLIST );
X7 = PAIR_CAR( e2789 );
if ( NEQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L5744;
X9 = PAIR_CAR( X7 );
X8 = BOOLEAN( EQ( UNSIGNED( X9 ),
UNSIGNED( c1051 ) ) );
goto L5745;
L5744:
X8 = FALSEVALUE;
L5745:
if ( FALSE( X8 ) ) goto L5748;
X6 = scrt1_caddr( X7 );
goto L5749;
L5748:
X6 = X8;
L5749:
if ( NEQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5751;
X8 = PAIR_CAR( X6 );
X7 = BOOLEAN( EQ( UNSIGNED( X8 ),
UNSIGNED( c1067 ) ) );
goto L5752;
L5751:
X7 = FALSEVALUE;
L5752:
if ( FALSE( X7 ) ) goto L5755;
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L5758;
scrt1__24__cdr_2derror( X6 );
L5758:
X8 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L5761;
scrt1__24__cdr_2derror( X8 );
L5761:
X5 = PAIR_CDR( X8 );
goto L5756;
L5755:
X5 = X7;
L5756:
X5 = CONS( X5, EMPTYLIST );
X6 = FALSEVALUE;
X6 = CONS( X6, EMPTYLIST );
X7 = EMPTYLIST;
X7 = CONS( X7, EMPTYLIST );
X8 = EMPTYLIST;
X8 = CONS( X8, EMPTYLIST );
X9 = EMPTYLIST;
X9 = CONS( X9, EMPTYLIST );
X12 = sc_cons( PAIR_CAR( e2789 ), EMPTYLIST );
X11 = sc_cons( c2810, X12 );
X10 = X11;
transform_transform_2dstack_v = sc_cons( X10,
transform_transform_2dstack_v );
X10 = X2;
L5770:
if ( EQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) ) goto L5771;
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L5775;
scrt1__24__car_2derror( X10 );
L5775:
X11 = PAIR_CAR( X10 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L5779;
scrt1__24__car_2derror( X11 );
L5779:
X12 = PAIR_CAR( X11 );
plist_put( X12, c2839, _TSCP( 0 ) );
plist_put( X12, c2843, _TSCP( 0 ) );
X10 = PAIR_CDR( X10 );
goto L5770;
L5771:
if ( FALSE( X3 ) ) goto L5788;
X10 = PAIR_CAR( X5 );
X11 = X10;
L5787:
if ( EQ( UNSIGNED( X11 ), UNSIGNED( EMPTYLIST ) ) ) goto L5788;
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L5792;
scrt1__24__car_2derror( X11 );
L5792:
X12 = PAIR_CAR( X11 );
transform_var_2duses_93ec09fc( X3, X12 );
X11 = PAIR_CDR( X11 );
goto L5787;
L5788:
X10 = X3;
L5796:
if ( EQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) ) goto L5797;
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L5801;
scrt1__24__car_2derror( X10 );
L5801:
X11 = PAIR_CAR( X10 );
X11 = CONS( X11, EMPTYLIST );
X13 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L5805;
scrt1__24__car_2derror( X13 );
L5805:
X12 = PAIR_CAR( X13 );
X12 = CONS( X12, EMPTYLIST );
X13 = transform_mbda_2dvar_cbbaf994( PAIR_CAR( X11 ),
PAIR_CAR( X12 ),
PAIR_CAR( X5 ) );
if ( NEQ( UNSIGNED( X13 ), UNSIGNED( c2902 ) ) ) goto L5809;
X14 = X13;
SETGEN( PAIR_CAR( X12 ), X14 );
goto L5816;
L5809:
if ( EQ( UNSIGNED( X13 ), UNSIGNED( c2909 ) ) ) goto L5816;
if ( NEQ( UNSIGNED( X13 ), UNSIGNED( c1825 ) ) ) goto L5813;
X14 = TRUEVALUE;
SETGEN( PAIR_CAR( X6 ), X14 );
goto L5816;
L5813:
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L5818;
scrt1__24__car_2derror( X13 );
L5818:
X14 = PAIR_CAR( X13 );
if ( NEQ( UNSIGNED( X14 ), UNSIGNED( c2921 ) ) ) goto L5815;
X15 = PAIR_CDR( X13 );
if ( EQ( TSCPTAG( X15 ), PAIRTAG ) ) goto L5823;
scrt1__24__car_2derror( X15 );
L5823:
X14 = PAIR_CAR( X15 );
SETGEN( PAIR_CAR( X12 ), X14 );
X16 = PAIR_CDR( X13 );
if ( EQ( TSCPTAG( X16 ), PAIRTAG ) ) goto L5827;
scrt1__24__cdr_2derror( X16 );
L5827:
X15 = PAIR_CDR( X16 );
X14 = sc_cons( X15, PAIR_CAR( X9 ) );
SETGEN( PAIR_CAR( X9 ), X14 );
goto L5816;
L5815:
X14 = sc_cons( X13, PAIR_CAR( X9 ) );
SETGEN( PAIR_CAR( X9 ), X14 );
X14 = EMPTYLIST;
SETGEN( PAIR_CAR( X11 ), X14 );
L5816:
if ( FALSE( PAIR_CAR( X11 ) ) ) goto L5830;
X14 = sc_cons( PAIR_CAR( X11 ), PAIR_CAR( X7 ) );
SETGEN( PAIR_CAR( X7 ), X14 );
X14 = sc_cons( PAIR_CAR( X12 ), PAIR_CAR( X8 ) );
SETGEN( PAIR_CAR( X8 ), X14 );
L5830:
X15 = PAIR_CAR( X4 );
if ( EQ( TSCPTAG( X15 ), PAIRTAG ) ) goto L5834;
scrt1__24__cdr_2derror( X15 );
L5834:
X14 = PAIR_CDR( X15 );
SETGEN( PAIR_CAR( X4 ), X14 );
X10 = PAIR_CDR( X10 );
goto L5796;
L5797:
if ( FALSE( PAIR_CAR( X9 ) ) ) goto L5837;
X10 = transform_to_2dvalue_e947c03( X1,
PAIR_CAR( X5 ),
PAIR_CAR( X9 ) );
SETGEN( PAIR_CAR( X5 ), X10 );
L5837:
X10 = BOOLEAN( EQ( UNSIGNED( PAIR_CAR( X7 ) ),
UNSIGNED( EMPTYLIST ) ) );
if ( FALSE( X10 ) ) goto L5853;
X11 = scrt1_length( PAIR_CAR( X5 ) );
if ( BITAND( BITOR( INT( X11 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L5845;
if ( EQ( UNSIGNED( X11 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L5849;
goto L5853;
L5845:
if ( FALSE( scrt2__3d_2dtwo( X11, _TSCP( 4 ) ) ) ) goto L5853;
L5849:
X11 = SYMBOL_VALUE( log_3f_v );
X11 = UNKNOWNCALL( X11, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X11 ) )( c2779,
PROCEDURE_CLOSURE( X11 ) ) )
) goto L5856;
X11 = SYMBOL_VALUE( sc_2dicode_v );
X12 = CONS( X1, EMPTYLIST );
scrt6_format( X11, CONS( c2997, X12 ) );
L5856:
plist_put( X1, c3001, c3002 );
X12 = PAIR_CAR( X5 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L5859;
scrt1__24__car_2derror( X12 );
L5859:
X11 = PAIR_CAR( X12 );
SETGEN( PAIR_CAR( e2789 ), X11 );
goto L5854;
L5853:
plist_put( X1, c2170, PAIR_CAR( X7 ) );
X11 = PAIR_CAR( X8 );
X12 = PAIR_CAR( e2789 );
if ( EQ( TSCPTAG( X12 ), PAIRTAG ) ) goto L5864;
scrt1__24__cdr_2derror( X12 );
L5864:
X14 = PAIR_CDR( X12 );
if ( EQ( TSCPTAG( X14 ), PAIRTAG ) ) goto L5867;
scrt1__24__cdr_2derror( X14 );
L5867:
X13 = PAIR_CDR( X14 );
if ( EQ( TSCPTAG( X13 ), PAIRTAG ) ) goto L5870;
scrt6_error( c1358,
c1126, CONS( X13, EMPTYLIST ) );
L5870:
SETGEN( PAIR_CDR( X13 ), X11 );
L5854:
X10 = PAIR_CAR( X9 );
if ( TRUE( X10 ) ) goto L5876;
if ( TRUE( PAIR_CAR( X6 ) ) ) goto L5876;
POPSTACKTRACE( PAIR_CAR( e2789 ) );
L5876:
POPSTACKTRACE( transform_transform( PAIR_CAR( e2789 ) ) );
}
DEFTSCP( transform_bda_2dbind_8a6984c8_v );
DEFSTRING( t5879, "TRANSFORM-LAMBDA-BIND", 21 );
TSCP transform_bda_2dbind_8a6984c8( v3234, v3235 )
TSCP v3234, v3235;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5879 ) ) );
if ( EQ( UNSIGNED( v3234 ), UNSIGNED( EMPTYLIST ) ) ) goto L5881;
if ( NEQ( TSCPTAG( v3234 ), PAIRTAG ) ) goto L5883;
X3 = PAIR_CAR( v3234 );
if ( EQ( TSCPTAG( v3235 ), PAIRTAG ) ) goto L5887;
scrt1__24__car_2derror( v3235 );
L5887:
X5 = PAIR_CAR( v3235 );
X4 = sc_cons( X5, EMPTYLIST );
X2 = sc_cons( X3, X4 );
X1 = X2;
X3 = PAIR_CDR( v3234 );
X4 = PAIR_CDR( v3235 );
X2 = transform_bda_2dbind_8a6984c8( X3, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L5883:
POPSTACKTRACE( FALSEVALUE );
L5881:
POPSTACKTRACE( EMPTYLIST );
}
DEFTSCP( transform_var_2duses_93ec09fc_v );
DEFSTRING( t5892, "COUNT-LAMBDA-VAR-USES", 21 );
EXTERNTSCPP( scrt1_memq );
EXTERNTSCP( scrt1_memq_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP transform_var_2duses_93ec09fc( v3262, e3263 )
TSCP v3262, e3263;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t5892 ) ) );
L5893:
if ( NOT( AND( EQ( TSCPTAG( e3263 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( e3263 ), SYMBOLTAG ) ) )
) goto L5894;
if ( FALSE( scrt1_memq( e3263, v3262 ) ) ) goto L5896;
X3 = plist_get( e3263, c2839 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X3 ) ),
3 ) ) goto L5899;
X2 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X3 ) ) );
goto L5900;
L5899:
X2 = scrt2__2b_2dtwo( _TSCP( 4 ), X3 );
L5900:
POPSTACKTRACE( plist_put( e3263, c2839, X2 ) );
L5896:
POPSTACKTRACE( FALSEVALUE );
L5894:
X2 = BOOLEAN( EQ( TSCPTAG( e3263 ), PAIRTAG ) );
if ( FALSE( X2 ) ) goto L5914;
if ( EQ( TSCPTAG( e3263 ), PAIRTAG ) ) goto L5908;
scrt1__24__car_2derror( e3263 );
L5908:
X3 = PAIR_CAR( e3263 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1099 ) ) ) goto L5914;
X4 = PAIR_CAR( e3263 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1099 ) ) );
if ( FALSE( X3 ) ) goto L5912;
e3263 = scrt1_caddr( e3263 );
goto L5893;
L5912:
e3263 = X3;
goto L5893;
L5914:
X2 = BOOLEAN( EQ( TSCPTAG( e3263 ), PAIRTAG ) );
if ( FALSE( X2 ) ) goto L5957;
if ( EQ( TSCPTAG( e3263 ), PAIRTAG ) ) goto L5922;
scrt1__24__car_2derror( e3263 );
L5922:
X3 = PAIR_CAR( e3263 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1051 ) ) ) goto L5957;
X4 = PAIR_CAR( e3263 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X3 ) ) goto L5926;
X1 = scrt1_caddr( e3263 );
goto L5927;
L5926:
X1 = X3;
L5927:
X5 = PAIR_CAR( e3263 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X4 ) ) goto L5931;
X3 = scrt1_cdddr( e3263 );
goto L5932;
L5931:
X3 = X4;
L5932:
X4 = X3;
L5935:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L5936;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5940;
scrt1__24__car_2derror( X4 );
L5940:
X5 = PAIR_CAR( X4 );
transform_var_2duses_93ec09fc( v3262, X5 );
X4 = PAIR_CDR( X4 );
goto L5935;
L5936:
X3 = BOOLEAN( EQ( TSCPTAG( X1 ), PAIRTAG ) );
if ( FALSE( X3 ) ) goto L5956;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L5950;
scrt1__24__car_2derror( X1 );
L5950:
X4 = PAIR_CAR( X1 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1067 ) ) ) goto L5956;
X5 = PAIR_CAR( e3263 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X4 ) ) goto L5954;
e3263 = scrt1_caddr( e3263 );
goto L5893;
L5954:
e3263 = X4;
goto L5893;
L5957:
X2 = BOOLEAN( EQ( TSCPTAG( e3263 ), PAIRTAG ) );
if ( FALSE( X2 ) ) goto L5971;
if ( EQ( TSCPTAG( e3263 ), PAIRTAG ) ) goto L5965;
scrt1__24__car_2derror( e3263 );
L5965:
X3 = PAIR_CAR( e3263 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1115 ) ) ) goto L5971;
X4 = PAIR_CAR( e3263 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1115 ) ) );
if ( FALSE( X3 ) ) goto L5969;
e3263 = scrt1_caddr( e3263 );
goto L5893;
L5969:
e3263 = X3;
goto L5893;
L5971:
X2 = BOOLEAN( EQ( TSCPTAG( e3263 ), PAIRTAG ) );
if ( FALSE( X2 ) ) goto L5999;
if ( EQ( TSCPTAG( e3263 ), PAIRTAG ) ) goto L5979;
scrt1__24__car_2derror( e3263 );
L5979:
X3 = PAIR_CAR( e3263 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1067 ) ) ) goto L5999;
X5 = PAIR_CAR( e3263 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1067 ) ) );
if ( FALSE( X4 ) ) goto L5983;
X5 = PAIR_CDR( e3263 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L5987;
scrt1__24__cdr_2derror( X5 );
L5987:
X3 = PAIR_CDR( X5 );
goto L5984;
L5983:
X3 = X4;
L5984:
X4 = X3;
L5991:
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L5992;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L5996;
scrt1__24__car_2derror( X4 );
L5996:
X5 = PAIR_CAR( X4 );
transform_var_2duses_93ec09fc( v3262, X5 );
X4 = PAIR_CDR( X4 );
goto L5991;
L5992:
POPSTACKTRACE( FALSEVALUE );
L5999:
if ( NEQ( TSCPTAG( e3263 ), PAIRTAG ) ) goto L6000;
X2 = PAIR_CAR( e3263 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1083 ) ) ) goto L6002;
X4 = PAIR_CAR( e3263 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X3 ) ) goto L6008;
X4 = PAIR_CDR( e3263 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L6012;
scrt1__24__car_2derror( X4 );
L6012:
X2 = PAIR_CAR( X4 );
goto L6009;
L6008:
X2 = X3;
L6009:
transform_var_2duses_93ec09fc( v3262, X2 );
X4 = PAIR_CAR( e3263 );
X3 = BOOLEAN( EQ( UNSIGNED( X4 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X3 ) ) goto L6016;
X2 = scrt1_caddr( e3263 );
goto L6017;
L6016:
X2 = X3;
L6017:
transform_var_2duses_93ec09fc( v3262, X2 );
X3 = PAIR_CAR( e3263 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1083 ) ) );
if ( FALSE( X2 ) ) goto L6020;
e3263 = scrt1_cadddr( e3263 );
goto L5893;
L6020:
e3263 = X2;
goto L5893;
L6002:
POPSTACKTRACE( FALSEVALUE );
L6000:
POPSTACKTRACE( FALSEVALUE );
L5956:
if ( FALSE( scrt1_memq( X1, v3262 ) ) ) goto L6022;
X3 = plist_get( X1, c2843 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X3 ) ),
3 ) ) goto L6025;
X2 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X3 ) ) );
goto L6026;
L6025:
X2 = scrt2__2b_2dtwo( _TSCP( 4 ), X3 );
L6026:
POPSTACKTRACE( plist_put( X1, c2843, X2 ) );
L6022:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( transform_mbda_2dvar_cbbaf994_v );
DEFSTRING( t6027, "TRANSFORM-LAMBDA-VAR", 20 );
DEFSTRING( t6029, "MEMVARLIST [inside TRANSFORM-LAMBDA-VAR]", 40 );
TSCP transform_m3644( v4279, s4280 )
TSCP v4279, s4280;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t6029 ) ) );
X1 = s4280;
X2 = FALSEVALUE;
L6032:
if ( FALSE( X1 ) ) goto L6033;
X3 = FALSEVALUE;
goto L6034;
L6033:
X3 = TRUEVALUE;
L6034:
if ( TRUE( X3 ) ) goto L6039;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L6043;
scrt1__24__car_2derror( X1 );
L6043:
X4 = PAIR_CAR( X1 );
if ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) )
) goto L6039;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L6046;
scrt1__24__cdr_2derror( X1 );
L6046:
X4 = PAIR_CDR( X1 );
if ( TRUE( X2 ) ) goto L6049;
X5 = PAIR_CAR( X1 );
X2 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( v4279 ) ) );
L6049:
X1 = X4;
goto L6032;
L6039:
if ( FALSE( X2 ) ) goto L6051;
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( EMPTYLIST ) ) ) );
L6051:
POPSTACKTRACE( X2 );
}
EXTERNTSCPP( scrt2_zero_3f );
EXTERNTSCP( scrt2_zero_3f_v );
EXTERNTSCPP( transform_log_2dtransform );
EXTERNTSCP( transform_log_2dtransform_v );
EXTERNTSCPP( transform_m3644 );
TSCP transform_mbda_2dvar_cbbaf994( v3637, v3638, e3639 )
TSCP v3637, v3638, e3639;
{
TSCP X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t6027 ) ) );
if ( NEQ( TSCPTAG( v3638 ), PAIRTAG ) ) goto L6053;
X5 = PAIR_CAR( v3638 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1067 ) ) );
goto L6054;
L6053:
X4 = FALSEVALUE;
L6054:
if ( FALSE( X4 ) ) goto L6057;
if ( EQ( TSCPTAG( v3638 ), PAIRTAG ) ) goto L6060;
scrt1__24__cdr_2derror( v3638 );
L6060:
X5 = PAIR_CDR( v3638 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6063;
scrt1__24__cdr_2derror( X5 );
L6063:
X3 = PAIR_CDR( X5 );
goto L6058;
L6057:
X3 = X4;
L6058:
X1 = plist_get( v3637, c2843 );
X2 = plist_get( v3637, c2839 );
if ( TRUE( plist_get( v3637, c3650 ) ) ) goto L6066;
if ( TRUE( plist_get( v3637, c3654 ) ) ) goto L6068;
if ( NEQ( TSCPTAG( v3638 ), PAIRTAG ) ) goto L6070;
X5 = PAIR_CAR( v3638 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1067 ) ) );
goto L6071;
L6070:
X4 = FALSEVALUE;
L6071:
if ( FALSE( X4 ) ) goto L6093;
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L6077;
X5 = BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( _TSCP( 4 ) ) ) );
goto L6078;
L6077:
X5 = scrt2__3d_2dtwo( X1, _TSCP( 4 ) );
L6078:
if ( FALSE( X5 ) ) goto L6093;
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L6084;
if ( EQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L6088;
goto L6093;
L6084:
if ( TRUE( scrt2_zero_3f( X2 ) ) ) goto L6088;
goto L6093;
L6068:
POPSTACKTRACE( c2909 );
L6066:
POPSTACKTRACE( c2909 );
L6088:
if ( NEQ( TSCPTAG( v3638 ), PAIRTAG ) ) goto L6095;
X6 = PAIR_CAR( v3638 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1067 ) ) );
goto L6096;
L6095:
X5 = FALSEVALUE;
L6096:
if ( FALSE( X5 ) ) goto L6099;
if ( EQ( TSCPTAG( v3638 ), PAIRTAG ) ) goto L6102;
scrt1__24__cdr_2derror( v3638 );
L6102:
X7 = PAIR_CDR( v3638 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L6105;
scrt1__24__car_2derror( X7 );
L6105:
X6 = PAIR_CAR( X7 );
goto L6100;
L6099:
X6 = X5;
L6100:
X4 = CONS( X6, EMPTYLIST );
X4 = CONS( c4209, X4 );
transform_log_2dtransform( CONS( v3637, X4 ) );
X5 = sc_cons( v3638, EMPTYLIST );
X4 = sc_cons( v3637, X5 );
POPSTACKTRACE( X4 );
L6093:
if ( FALSE( X3 ) ) goto L6140;
if ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L6111;
X4 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 0 ) ) ) );
goto L6112;
L6111:
X4 = scrt2_zero_3f( X2 );
L6112:
if ( FALSE( X4 ) ) goto L6140;
X6 = scrt1_length( X3 );
if ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X6 ) ),
3 ) ) goto L6118;
X5 = BOOLEAN( EQ( UNSIGNED( _TSCP( 4 ) ),
UNSIGNED( X6 ) ) );
goto L6119;
L6118:
X5 = scrt2__3d_2dtwo( _TSCP( 4 ), X6 );
L6119:
if ( FALSE( X5 ) ) goto L6140;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6128;
scrt1__24__car_2derror( X3 );
L6128:
X6 = PAIR_CAR( X3 );
if ( NOT( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X6 ), SYMBOLTAG ) ) )
) goto L6140;
X6 = PAIR_CAR( X3 );
if ( TRUE( plist_get( X6, c3654 ) ) ) goto L6140;
X6 = CONS( PAIR_CAR( X3 ), EMPTYLIST );
X6 = CONS( c4188, X6 );
X7 = CONS( EMPTYLIST, EMPTYLIST );
X7 = CONS( v3637, X7 );
transform_log_2dtransform( CONS( scrt1_cons_2a( c1051,
CONS( EMPTYLIST,
X7 ) ),
X6 ) );
X8 = CONS( EMPTYLIST, EMPTYLIST );
X8 = CONS( v3637, X8 );
X7 = scrt1_cons_2a( c1051, CONS( EMPTYLIST, X8 ) );
X9 = PAIR_CAR( X3 );
X8 = sc_cons( X9, EMPTYLIST );
X6 = sc_cons( X7, X8 );
POPSTACKTRACE( X6 );
L6140:
X4 = BOOLEAN( AND( EQ( TSCPTAG( v3638 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( v3638 ),
SYMBOLTAG ) ) );
if ( FALSE( X4 ) ) goto L6170;
X5 = SYMBOL_VALUE( true_2dalpha_v );
if ( EQ( UNSIGNED( v3638 ), UNSIGNED( X5 ) ) ) goto L6148;
X5 = SYMBOL_VALUE( false_2dalpha_v );
if ( EQ( UNSIGNED( v3638 ), UNSIGNED( X5 ) ) ) goto L6148;
X5 = plist_get( v3638, c2495 );
if ( EQ( UNSIGNED( X5 ), UNSIGNED( c2496 ) ) ) goto L6148;
X5 = plist_get( v3638, c2495 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c3779 ) ) ) goto L6170;
if ( FALSE( plist_get( v3638, c3654 ) ) ) goto L6160;
X5 = FALSEVALUE;
goto L6161;
L6160:
X5 = TRUEVALUE;
L6161:
if ( FALSE( X5 ) ) goto L6170;
if ( TRUE( plist_get( v3638, c3650 ) ) ) goto L6170;
L6148:
X4 = CONS( v3638, EMPTYLIST );
X4 = CONS( c4188, X4 );
transform_log_2dtransform( CONS( v3637, X4 ) );
X5 = sc_cons( v3638, EMPTYLIST );
X4 = sc_cons( v3637, X5 );
POPSTACKTRACE( X4 );
L6170:
if ( EQ( TSCPTAG( e3639 ), PAIRTAG ) ) goto L6174;
scrt1__24__car_2derror( e3639 );
L6174:
X5 = PAIR_CAR( e3639 );
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6177;
X6 = PAIR_CAR( X5 );
X4 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1083 ) ) );
goto L6178;
L6177:
X4 = FALSEVALUE;
L6178:
if ( FALSE( X4 ) ) goto L6239;
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L6184;
X5 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 4 ) ) ) );
goto L6185;
L6184:
X5 = scrt2__3d_2dtwo( X2, _TSCP( 4 ) );
L6185:
if ( FALSE( X5 ) ) goto L6239;
if ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L6190;
X6 = BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( _TSCP( 0 ) ) ) );
goto L6191;
L6190:
X6 = scrt2_zero_3f( X1 );
L6191:
if ( FALSE( X6 ) ) goto L6239;
X8 = PAIR_CAR( e3639 );
if ( NEQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L6201;
X10 = PAIR_CAR( X8 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1083 ) ) );
goto L6202;
L6201:
X9 = FALSEVALUE;
L6202:
if ( FALSE( X9 ) ) goto L6205;
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L6208;
scrt1__24__cdr_2derror( X8 );
L6208:
X10 = PAIR_CDR( X8 );
if ( EQ( TSCPTAG( X10 ), PAIRTAG ) ) goto L6211;
scrt1__24__car_2derror( X10 );
L6211:
X7 = PAIR_CAR( X10 );
goto L6206;
L6205:
X7 = X9;
L6206:
if ( EQ( UNSIGNED( X7 ), UNSIGNED( v3637 ) ) ) goto L6213;
X9 = PAIR_CAR( e3639 );
if ( NEQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L6218;
X11 = PAIR_CAR( X9 );
X10 = BOOLEAN( EQ( UNSIGNED( X11 ),
UNSIGNED( c1083 ) ) );
goto L6219;
L6218:
X10 = FALSEVALUE;
L6219:
if ( FALSE( X10 ) ) goto L6222;
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L6225;
scrt1__24__cdr_2derror( X9 );
L6225:
X11 = PAIR_CDR( X9 );
if ( EQ( TSCPTAG( X11 ), PAIRTAG ) ) goto L6228;
scrt1__24__car_2derror( X11 );
L6228:
X8 = PAIR_CAR( X11 );
goto L6223;
L6222:
X8 = X10;
L6223:
if ( NEQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L6231;
X10 = PAIR_CAR( X8 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1051 ) ) );
goto L6232;
L6231:
X9 = FALSEVALUE;
L6232:
if ( FALSE( X9 ) ) goto L6235;
X7 = scrt1_cdddr( X8 );
goto L6236;
L6235:
X7 = X9;
L6236:
if ( FALSE( transform_m3644( v3637, X7 ) ) ) goto L6239;
L6213:
X4 = CONS( v3638, EMPTYLIST );
X4 = CONS( c4188, X4 );
transform_log_2dtransform( CONS( v3637, X4 ) );
X5 = sc_cons( v3638, EMPTYLIST );
X4 = sc_cons( v3637, X5 );
POPSTACKTRACE( X4 );
L6239:
X5 = PAIR_CAR( e3639 );
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6244;
X6 = PAIR_CAR( X5 );
X4 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1051 ) ) );
goto L6245;
L6244:
X4 = FALSEVALUE;
L6245:
if ( FALSE( X4 ) ) goto L6277;
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L6251;
X5 = BOOLEAN( EQ( UNSIGNED( X2 ),
UNSIGNED( _TSCP( 4 ) ) ) );
goto L6252;
L6251:
X5 = scrt2__3d_2dtwo( X2, _TSCP( 4 ) );
L6252:
if ( FALSE( X5 ) ) goto L6277;
if ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L6257;
X6 = BOOLEAN( EQ( UNSIGNED( X1 ),
UNSIGNED( _TSCP( 0 ) ) ) );
goto L6258;
L6257:
X6 = scrt2_zero_3f( X1 );
L6258:
if ( FALSE( X6 ) ) goto L6277;
X8 = PAIR_CAR( e3639 );
if ( NEQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L6267;
X10 = PAIR_CAR( X8 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1051 ) ) );
goto L6268;
L6267:
X9 = FALSEVALUE;
L6268:
if ( FALSE( X9 ) ) goto L6271;
X7 = scrt1_cdddr( X8 );
goto L6272;
L6271:
X7 = X9;
L6272:
if ( FALSE( transform_m3644( v3637, X7 ) ) ) goto L6277;
X7 = CONS( v3638, EMPTYLIST );
X7 = CONS( c4188, X7 );
transform_log_2dtransform( CONS( v3637, X7 ) );
X8 = sc_cons( v3638, EMPTYLIST );
X7 = sc_cons( v3637, X8 );
POPSTACKTRACE( X7 );
L6277:
if ( NEQ( TSCPTAG( v3638 ), PAIRTAG ) ) goto L6278;
X4 = PAIR_CAR( v3638 );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1051 ) ) ) goto L6280;
X6 = PAIR_CAR( v3638 );
X5 = BOOLEAN( EQ( UNSIGNED( X6 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X5 ) ) goto L6285;
X4 = scrt1_caddr( v3638 );
goto L6286;
L6285:
X4 = X5;
L6286:
if ( NEQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L6288;
X5 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1874 ) ) ) goto L6290;
if ( TRUE( plist_get( v3637, c1824 ) ) ) goto L6293;
X10 = PAIR_CAR( v3638 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X9 ) ) goto L6299;
X8 = scrt1_caddr( v3638 );
goto L6300;
L6299:
X8 = X9;
L6300:
if ( NEQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L6302;
X10 = PAIR_CAR( X8 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1874 ) ) );
goto L6303;
L6302:
X9 = FALSEVALUE;
L6303:
if ( FALSE( X9 ) ) goto L6306;
X7 = scrt1_cdddr( X8 );
goto L6307;
L6306:
X7 = X9;
L6307:
X6 = scrt1_last_2dpair( X7 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L6309;
scrt1__24__car_2derror( X6 );
L6309:
X5 = PAIR_CAR( X6 );
if ( NEQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6295;
X10 = PAIR_CAR( v3638 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X9 ) ) goto L6315;
X8 = scrt1_caddr( v3638 );
goto L6316;
L6315:
X8 = X9;
L6316:
if ( NEQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L6318;
X10 = PAIR_CAR( X8 );
X9 = BOOLEAN( EQ( UNSIGNED( X10 ),
UNSIGNED( c1874 ) ) );
goto L6319;
L6318:
X9 = FALSEVALUE;
L6319:
if ( FALSE( X9 ) ) goto L6322;
X7 = scrt1_cdddr( X8 );
goto L6323;
L6322:
X7 = X9;
L6323:
X6 = scrt1_last_2dpair( X7 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L6326;
scrt1__24__car_2derror( X6 );
L6326:
X7 = PAIR_CAR( X6 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L6329;
scrt1__24__car_2derror( X7 );
L6329:
X5 = PAIR_CAR( X7 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1825 ) ) ) goto L6311;
plist_put( v3637, c1824, c1825 );
POPSTACKTRACE( c1825 );
L6311:
POPSTACKTRACE( c2909 );
L6295:
POPSTACKTRACE( c2909 );
L6293:
POPSTACKTRACE( c2909 );
L6290:
POPSTACKTRACE( c2909 );
L6288:
POPSTACKTRACE( c2909 );
L6280:
POPSTACKTRACE( c2909 );
L6278:
POPSTACKTRACE( c2909 );
}
DEFTSCP( transform_log_2dtransform_v );
DEFSTRING( t6332, "LOG-TRANSFORM", 13 );
EXTERNTSCPP( scrt6_newline );
EXTERNTSCP( scrt6_newline_v );
TSCP transform_log_2dtransform( e4321 )
TSCP e4321;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t6332 ) ) );
X1 = SYMBOL_VALUE( log_3f_v );
X1 = UNKNOWNCALL( X1, 1 );
if ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( c2779,
PROCEDURE_CLOSURE( X1 ) ) )
) goto L6334;
X1 = e4321;
L6338:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L6339;
X2 = SYMBOL_VALUE( sc_2dicode_v );
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L6343;
scrt1__24__car_2derror( X1 );
L6343:
X3 = CONS( PAIR_CAR( X1 ), EMPTYLIST );
scrt6_format( X2, CONS( c4346, X3 ) );
X1 = PAIR_CDR( X1 );
goto L6338;
L6339:
POPSTACKTRACE( scrt6_newline( CONS( SYMBOL_VALUE( sc_2dicode_v ),
EMPTYLIST ) ) );
L6334:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( transform_to_2dvalue_e947c03_v );
DEFSTRING( t6346, "TRANSFORM-VAR-TO-VALUE", 22 );
EXTERNTSCPP( scrt1_assoc );
EXTERNTSCP( scrt1_assoc_v );
TSCP transform_to_2dvalue_e947c03( l4348, e4349, s4350 )
TSCP l4348, e4349, s4350;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t6346 ) ) );
L6347:
l4348 = CONS( l4348, EMPTYLIST );
X1 = scrt1_assoc( e4349, s4350 );
if ( FALSE( X1 ) ) goto L6349;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L6352;
scrt1__24__cdr_2derror( X1 );
L6352:
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6355;
scrt1__24__car_2derror( X3 );
L6355:
X2 = PAIR_CAR( X3 );
e4349 = X2;
l4348 = PAIR_CAR( l4348 );
goto L6347;
L6349:
X2 = BOOLEAN( EQ( TSCPTAG( e4349 ), PAIRTAG ) );
if ( FALSE( X2 ) ) goto L6398;
if ( EQ( TSCPTAG( e4349 ), PAIRTAG ) ) goto L6364;
scrt1__24__car_2derror( e4349 );
L6364:
X3 = PAIR_CAR( e4349 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1051 ) ) ) goto L6398;
X5 = PAIR_CAR( e4349 );
X4 = BOOLEAN( EQ( UNSIGNED( X5 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X4 ) ) goto L6368;
X3 = scrt1_caddr( e4349 );
goto L6369;
L6368:
X3 = X4;
L6369:
X4 = transform_to_2dvalue_e947c03( PAIR_CAR( l4348 ),
X3, s4350 );
X6 = PAIR_CDR( e4349 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L6374;
scrt1__24__cdr_2derror( X6 );
L6374:
X5 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L6377;
scrt6_error( c1125, c1126, CONS( X5, EMPTYLIST ) );
L6377:
SETGEN( PAIR_CAR( X5 ), X4 );
X8 = PAIR_CAR( e4349 );
X7 = BOOLEAN( EQ( UNSIGNED( X8 ),
UNSIGNED( c1051 ) ) );
if ( FALSE( X7 ) ) goto L6381;
X6 = scrt1_cdddr( e4349 );
goto L6382;
L6381:
X6 = X7;
L6382:
X5 = transform_to_2dvalue_e947c03( PAIR_CAR( l4348 ),
X6, s4350 );
X7 = PAIR_CDR( e4349 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L6386;
scrt1__24__cdr_2derror( X7 );
L6386:
X6 = PAIR_CDR( X7 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L6389;
scrt6_error( c1358, c1126, CONS( X6, EMPTYLIST ) );
L6389:
SETGEN( PAIR_CDR( X6 ), X5 );
if ( EQ( UNSIGNED( X3 ), UNSIGNED( X4 ) ) ) goto L6391;
if ( NEQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L6393;
X5 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1067 ) ) ) goto L6395;
POPSTACKTRACE( transform_l_2dlambda_8f20e049( e4349 ) );
L6395:
POPSTACKTRACE( e4349 );
L6393:
POPSTACKTRACE( e4349 );
L6391:
POPSTACKTRACE( e4349 );
L6398:
if ( NEQ( TSCPTAG( e4349 ), PAIRTAG ) ) goto L6399;
X1 = PAIR_CAR( e4349 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1874 ) ) ) goto L6405;
POPSTACKTRACE( e4349 );
L6399:
POPSTACKTRACE( e4349 );
L6405:
X1 = PAIR_CAR( e4349 );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1067 ) ) ) goto L6407;
X3 = PAIR_CAR( e4349 );
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( c1067 ) ) );
if ( FALSE( X2 ) ) goto L6412;
X3 = PAIR_CDR( e4349 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L6416;
scrt1__24__car_2derror( X3 );
L6416:
X1 = PAIR_CAR( X3 );
goto L6413;
L6412:
X1 = X2;
L6413:
SETGEN( PAIR_CAR( l4348 ), X1 );
L6407:
X2 = PAIR_CAR( e4349 );
X1 = transform_to_2dvalue_e947c03( PAIR_CAR( l4348 ),
X2, s4350 );
SETGEN( PAIR_CAR( e4349 ), X1 );
X2 = PAIR_CDR( e4349 );
X1 = transform_to_2dvalue_e947c03( PAIR_CAR( l4348 ),
X2, s4350 );
SETGEN( PAIR_CDR( e4349 ), X1 );
POPSTACKTRACE( e4349 );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt2__init();
plist__init();
scrt6__init();
scrt1__init();
MAXDISPLAY( 0 );
}
void transform__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(transform SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t4983 ) ),
ADR( transform_transform_2dstack_v ),
EMPTYLIST );
INITIALIZEVAR( U_TX( ADR( t4984 ) ),
ADR( transform_transform_v ),
MAKEPROCEDURE( 1,
0,
transform_transform, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4988 ) ),
ADR( transform_transformx_v ),
MAKEPROCEDURE( 1,
0,
transform_transformx, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5187 ) ),
ADR( transform_transform_2dif1_v ),
MAKEPROCEDURE( 1,
0,
transform_transform_2dif1,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5538 ) ),
ADR( transform_transform_2dif2_v ),
MAKEPROCEDURE( 1,
0,
transform_transform_2dif2,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5659 ) ),
ADR( transform_log_2dbefore_v ),
MAKEPROCEDURE( 1,
0,
transform_log_2dbefore,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5664 ) ),
ADR( transform_log_2dafter_v ),
MAKEPROCEDURE( 1,
0,
transform_log_2dafter, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5669 ) ),
ADR( transform_l_2dlambda_8f20e049_v ),
MAKEPROCEDURE( 1,
0,
transform_l_2dlambda_8f20e049,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5879 ) ),
ADR( transform_bda_2dbind_8a6984c8_v ),
MAKEPROCEDURE( 2,
0,
transform_bda_2dbind_8a6984c8,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t5892 ) ),
ADR( transform_var_2duses_93ec09fc_v ),
MAKEPROCEDURE( 2,
0,
transform_var_2duses_93ec09fc,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6027 ) ),
ADR( transform_mbda_2dvar_cbbaf994_v ),
MAKEPROCEDURE( 3,
0,
transform_mbda_2dvar_cbbaf994,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6332 ) ),
ADR( transform_log_2dtransform_v ),
MAKEPROCEDURE( 0,
1,
transform_log_2dtransform,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t6346 ) ),
ADR( transform_to_2dvalue_e947c03_v ),
MAKEPROCEDURE( 3,
0,
transform_to_2dvalue_e947c03,
EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.