home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d556 / scheme2c.lha / Scheme2C / Scheme-src.lzh / scsc / transform.c < prev    next >
C/C++ Source or Header  |  1991-10-11  |  91KB  |  2,738 lines
  1.  
  2. /* SCHEME->C */
  3.  
  4. #include <objects.h>
  5.  
  6. DEFSTRING( t4933, "CURRENT-LAMBDA-ID", 17 );
  7. DEFSTATICTSCP( current_2dlambda_2did_v );
  8. DEFSTRING( t4934, "TRUE-ALPHA", 10 );
  9. DEFSTATICTSCP( true_2dalpha_v );
  10. DEFSTRING( t4935, "FALSE-ALPHA", 11 );
  11. DEFSTATICTSCP( false_2dalpha_v );
  12. DEFSTRING( t4936, "NAME-A-LAMBDA", 13 );
  13. DEFSTATICTSCP( name_2da_2dlambda_v );
  14. DEFSTRING( t4937, "LAMBDA-EXP", 10 );
  15. DEFSTATICTSCP( lambda_2dexp_v );
  16. DEFSTRING( t4938, "LOG?", 4 );
  17. DEFSTATICTSCP( log_3f_v );
  18. DEFSTRING( t4939, "PRETTY-PRINT-$TREE", 18 );
  19. DEFSTATICTSCP( pretty_2dprint_2d_24tree_v );
  20. DEFSTRING( t4940, "SC-ICODE", 8 );
  21. DEFSTATICTSCP( sc_2dicode_v );
  22. DEFSTRING( t4941, "~A", 2 );
  23. DEFSTATICTSCP2( c4346, t4941 );
  24. DEFSTRING( t4942, " replaced by lambda ", 20 );
  25. DEFSTATICTSCP2( c4209, t4942 );
  26. DEFSTRING( t4943, " replaced by ", 13 );
  27. DEFSTATICTSCP2( c4188, t4943 );
  28. DEFSTRING( t4944, "LEXICAL", 7 );
  29. DEFSTATICTSCP( c3779 );
  30. DEFSTRING( t4945, "DISPLAY", 7 );
  31. DEFSTATICTSCP( c3654 );
  32. DEFSTRING( t4946, "SET!", 4 );
  33. DEFSTATICTSCP( c3650 );
  34. DEFSTRING( t4947, "INLINE", 6 );
  35. DEFSTATICTSCP( c3002 );
  36. DEFSTRING( t4948, "GENERATE", 8 );
  37. DEFSTATICTSCP( c3001 );
  38. DEFSTRING( t4949, "Lambda ~A collapsed~%", 21 );
  39. DEFSTATICTSCP2( c2997, t4949 );
  40. DEFSTRING( t4950, "BOTH", 4 );
  41. DEFSTATICTSCP( c2921 );
  42. DEFSTRING( t4951, "NO-CHANGE", 9 );
  43. DEFSTATICTSCP( c2909 );
  44. DEFSTRING( t4952, "NO-VALUE", 8 );
  45. DEFSTATICTSCP( c2902 );
  46. DEFSTRING( t4953, "CALLS", 5 );
  47. DEFSTATICTSCP( c2843 );
  48. DEFSTRING( t4954, "REFS", 4 );
  49. DEFSTATICTSCP( c2839 );
  50. DEFSTRING( t4955, "TCL", 3 );
  51. DEFSTATICTSCP( c2810 );
  52. DEFSTRING( t4956, "~%~%", 4 );
  53. DEFSTATICTSCP2( c2787, t4956 );
  54. DEFSTRING( t4957, " => ~%", 6 );
  55. DEFSTATICTSCP2( c2783, t4957 );
  56. DEFSTRING( t4958, "TRANSFORM", 9 );
  57. DEFSTATICTSCP( c2779 );
  58. DEFSTRING( t4959, "VALUE", 5 );
  59. DEFSTATICTSCP( c2702 );
  60. DEFSTRING( t4960, "CONSTANT", 8 );
  61. DEFSTATICTSCP( c2496 );
  62. DEFSTRING( t4961, "USE", 3 );
  63. DEFSTATICTSCP( c2495 );
  64. DEFSTRING( t4962, "IF2", 3 );
  65. DEFSTATICTSCP( c2468 );
  66. DEFSTATICTSCP( c2208 );
  67. DEFSTRING( t4964, "Y", 1 );
  68. DEFSTATICTSCP( t4963 );
  69. DEFSTRING( t4966, "X", 1 );
  70. DEFSTATICTSCP( t4965 );
  71. DEFSTRING( t4968, "LAMBDA", 6 );
  72. DEFSTATICTSCP( t4967 );
  73. DEFSTRING( t4969, "REQVARS", 7 );
  74. DEFSTATICTSCP( c2170 );
  75. DEFSTATICTSCP( c2157 );
  76. DEFSTRING( t4970, "NOT", 3 );
  77. DEFSTATICTSCP( c1957 );
  78. DEFSTRING( t4971, "$LAP", 4 );
  79. DEFSTATICTSCP( c1874 );
  80. DEFSTRING( t4972, "BOOLEAN", 7 );
  81. DEFSTATICTSCP( c1825 );
  82. DEFSTRING( t4973, "TYPE", 4 );
  83. DEFSTATICTSCP( c1824 );
  84. DEFSTRING( t4974, "IF1", 3 );
  85. DEFSTATICTSCP( c1595 );
  86. DEFSTRING( t4975, "SET-CDR!", 8 );
  87. DEFSTATICTSCP( c1358 );
  88. DEFSTRING( t4976, "Argument not a PAIR: ~s", 23 );
  89. DEFSTATICTSCP2( c1126, t4976 );
  90. DEFSTRING( t4977, "SET-CAR!", 8 );
  91. DEFSTATICTSCP( c1125 );
  92. DEFSTRING( t4978, "$SET", 4 );
  93. DEFSTATICTSCP( c1115 );
  94. DEFSTRING( t4979, "$DEFINE", 7 );
  95. DEFSTATICTSCP( c1099 );
  96. DEFSTRING( t4980, "$IF", 3 );
  97. DEFSTATICTSCP( c1083 );
  98. DEFSTRING( t4981, "$LAMBDA", 7 );
  99. DEFSTATICTSCP( c1067 );
  100. DEFSTRING( t4982, "$CALL", 5 );
  101. DEFSTATICTSCP( c1051 );
  102.  
  103. static void  init_constants()
  104. {
  105.         TSCP  X1;
  106.  
  107.         current_2dlambda_2did_v = STRINGTOSYMBOL( U_TX( ADR( t4933 ) ) );
  108.         CONSTANTEXP( ADR( current_2dlambda_2did_v ) );
  109.         true_2dalpha_v = STRINGTOSYMBOL( U_TX( ADR( t4934 ) ) );
  110.         CONSTANTEXP( ADR( true_2dalpha_v ) );
  111.         false_2dalpha_v = STRINGTOSYMBOL( U_TX( ADR( t4935 ) ) );
  112.         CONSTANTEXP( ADR( false_2dalpha_v ) );
  113.         name_2da_2dlambda_v = STRINGTOSYMBOL( U_TX( ADR( t4936 ) ) );
  114.         CONSTANTEXP( ADR( name_2da_2dlambda_v ) );
  115.         lambda_2dexp_v = STRINGTOSYMBOL( U_TX( ADR( t4937 ) ) );
  116.         CONSTANTEXP( ADR( lambda_2dexp_v ) );
  117.         log_3f_v = STRINGTOSYMBOL( U_TX( ADR( t4938 ) ) );
  118.         CONSTANTEXP( ADR( log_3f_v ) );
  119.         pretty_2dprint_2d_24tree_v = STRINGTOSYMBOL( U_TX( ADR( t4939 ) ) );
  120.         CONSTANTEXP( ADR( pretty_2dprint_2d_24tree_v ) );
  121.         sc_2dicode_v = STRINGTOSYMBOL( U_TX( ADR( t4940 ) ) );
  122.         CONSTANTEXP( ADR( sc_2dicode_v ) );
  123.         c3779 = STRINGTOSYMBOL( U_TX( ADR( t4944 ) ) );
  124.         CONSTANTEXP( ADR( c3779 ) );
  125.         c3654 = STRINGTOSYMBOL( U_TX( ADR( t4945 ) ) );
  126.         CONSTANTEXP( ADR( c3654 ) );
  127.         c3650 = STRINGTOSYMBOL( U_TX( ADR( t4946 ) ) );
  128.         CONSTANTEXP( ADR( c3650 ) );
  129.         c3002 = STRINGTOSYMBOL( U_TX( ADR( t4947 ) ) );
  130.         CONSTANTEXP( ADR( c3002 ) );
  131.         c3001 = STRINGTOSYMBOL( U_TX( ADR( t4948 ) ) );
  132.         CONSTANTEXP( ADR( c3001 ) );
  133.         c2921 = STRINGTOSYMBOL( U_TX( ADR( t4950 ) ) );
  134.         CONSTANTEXP( ADR( c2921 ) );
  135.         c2909 = STRINGTOSYMBOL( U_TX( ADR( t4951 ) ) );
  136.         CONSTANTEXP( ADR( c2909 ) );
  137.         c2902 = STRINGTOSYMBOL( U_TX( ADR( t4952 ) ) );
  138.         CONSTANTEXP( ADR( c2902 ) );
  139.         c2843 = STRINGTOSYMBOL( U_TX( ADR( t4953 ) ) );
  140.         CONSTANTEXP( ADR( c2843 ) );
  141.         c2839 = STRINGTOSYMBOL( U_TX( ADR( t4954 ) ) );
  142.         CONSTANTEXP( ADR( c2839 ) );
  143.         c2810 = STRINGTOSYMBOL( U_TX( ADR( t4955 ) ) );
  144.         CONSTANTEXP( ADR( c2810 ) );
  145.         c2779 = STRINGTOSYMBOL( U_TX( ADR( t4958 ) ) );
  146.         CONSTANTEXP( ADR( c2779 ) );
  147.         c2702 = STRINGTOSYMBOL( U_TX( ADR( t4959 ) ) );
  148.         CONSTANTEXP( ADR( c2702 ) );
  149.         c2496 = STRINGTOSYMBOL( U_TX( ADR( t4960 ) ) );
  150.         CONSTANTEXP( ADR( c2496 ) );
  151.         c2495 = STRINGTOSYMBOL( U_TX( ADR( t4961 ) ) );
  152.         CONSTANTEXP( ADR( c2495 ) );
  153.         c2468 = STRINGTOSYMBOL( U_TX( ADR( t4962 ) ) );
  154.         CONSTANTEXP( ADR( c2468 ) );
  155.         c2208 = EMPTYLIST;
  156.         X1 = EMPTYLIST;
  157.         t4963 = STRINGTOSYMBOL( U_TX( ADR( t4964 ) ) );
  158.         X1 = CONS( t4963, X1 );
  159.         t4965 = STRINGTOSYMBOL( U_TX( ADR( t4966 ) ) );
  160.         X1 = CONS( t4965, X1 );
  161.         c2208 = CONS( X1, c2208 );
  162.         t4967 = STRINGTOSYMBOL( U_TX( ADR( t4968 ) ) );
  163.         c2208 = CONS( t4967, c2208 );
  164.         CONSTANTEXP( ADR( c2208 ) );
  165.         c2170 = STRINGTOSYMBOL( U_TX( ADR( t4969 ) ) );
  166.         CONSTANTEXP( ADR( c2170 ) );
  167.         c2157 = EMPTYLIST;
  168.         c2157 = CONS( EMPTYLIST, c2157 );
  169.         c2157 = CONS( t4967, c2157 );
  170.         CONSTANTEXP( ADR( c2157 ) );
  171.         c1957 = STRINGTOSYMBOL( U_TX( ADR( t4970 ) ) );
  172.         CONSTANTEXP( ADR( c1957 ) );
  173.         c1874 = STRINGTOSYMBOL( U_TX( ADR( t4971 ) ) );
  174.         CONSTANTEXP( ADR( c1874 ) );
  175.         c1825 = STRINGTOSYMBOL( U_TX( ADR( t4972 ) ) );
  176.         CONSTANTEXP( ADR( c1825 ) );
  177.         c1824 = STRINGTOSYMBOL( U_TX( ADR( t4973 ) ) );
  178.         CONSTANTEXP( ADR( c1824 ) );
  179.         c1595 = STRINGTOSYMBOL( U_TX( ADR( t4974 ) ) );
  180.         CONSTANTEXP( ADR( c1595 ) );
  181.         c1358 = STRINGTOSYMBOL( U_TX( ADR( t4975 ) ) );
  182.         CONSTANTEXP( ADR( c1358 ) );
  183.         c1125 = STRINGTOSYMBOL( U_TX( ADR( t4977 ) ) );
  184.         CONSTANTEXP( ADR( c1125 ) );
  185.         c1115 = STRINGTOSYMBOL( U_TX( ADR( t4978 ) ) );
  186.         CONSTANTEXP( ADR( c1115 ) );
  187.         c1099 = STRINGTOSYMBOL( U_TX( ADR( t4979 ) ) );
  188.         CONSTANTEXP( ADR( c1099 ) );
  189.         c1083 = STRINGTOSYMBOL( U_TX( ADR( t4980 ) ) );
  190.         CONSTANTEXP( ADR( c1083 ) );
  191.         c1067 = STRINGTOSYMBOL( U_TX( ADR( t4981 ) ) );
  192.         CONSTANTEXP( ADR( c1067 ) );
  193.         c1051 = STRINGTOSYMBOL( U_TX( ADR( t4982 ) ) );
  194.         CONSTANTEXP( ADR( c1051 ) );
  195. }
  196.  
  197. DEFTSCP( transform_transform_2dstack_v );
  198. DEFSTRING( t4983, "TRANSFORM-STACK", 15 );
  199. DEFTSCP( transform_transform_v );
  200. DEFSTRING( t4984, "TRANSFORM", 9 );
  201. EXTERNTSCPP( sc_cons );
  202. EXTERNTSCP( sc_cons_v );
  203. EXTERNTSCPP( transform_transformx );
  204. EXTERNTSCP( transform_transformx_v );
  205.  
  206. TSCP  transform_transform( e1028 )
  207.         TSCP  e1028;
  208. {
  209.         TSCP  X2, X1;
  210.  
  211.         PUSHSTACKTRACE( U_TX( ADR( t4984 ) ) );
  212.         X1 = transform_transform_2dstack_v;
  213.         transform_transform_2dstack_v = sc_cons( e1028, 
  214.                                                  transform_transform_2dstack_v );
  215.         X2 = transform_transformx( e1028 );
  216.         transform_transform_2dstack_v = X1;
  217.         POPSTACKTRACE( X2 );
  218. }
  219.  
  220. DEFTSCP( transform_transformx_v );
  221. DEFSTRING( t4988, "TRANSFORMX", 10 );
  222. EXTERNTSCPP( scrt1__24__car_2derror );
  223. EXTERNTSCP( scrt1__24__car_2derror_v );
  224. EXTERNTSCPP( scrt1_caddr );
  225. EXTERNTSCP( scrt1_caddr_v );
  226. EXTERNTSCPP( scrt1__24__cdr_2derror );
  227. EXTERNTSCP( scrt1__24__cdr_2derror_v );
  228. EXTERNTSCPP( scrt6_error );
  229. EXTERNTSCP( scrt6_error_v );
  230. EXTERNTSCPP( scrt1_cdddr );
  231. EXTERNTSCP( scrt1_cdddr_v );
  232. EXTERNTSCPP( transform_l_2dlambda_8f20e049 );
  233. EXTERNTSCP( transform_l_2dlambda_8f20e049_v );
  234. EXTERNTSCPP( transform_transform_2dif1 );
  235. EXTERNTSCP( transform_transform_2dif1_v );
  236. EXTERNTSCPP( scrt1_cadddr );
  237. EXTERNTSCP( scrt1_cadddr_v );
  238. EXTERNTSCPP( transform_transform_2dif2 );
  239. EXTERNTSCP( transform_transform_2dif2_v );
  240.  
  241. TSCP  transform_transformx( e1035 )
  242.         TSCP  e1035;
  243. {
  244.         TSCP  X10, 
  245.               X9, 
  246.               X8, X7, X6, X5, X4, X3, X2, X1;
  247.  
  248.         PUSHSTACKTRACE( U_TX( ADR( t4988 ) ) );
  249.         X1 = BOOLEAN( EQ( TSCPTAG( e1035 ), PAIRTAG ) );
  250.         if  ( FALSE( X1 ) )  goto  L5050;
  251.         if  ( EQ( TSCPTAG( e1035 ), PAIRTAG ) )  goto  L4997;
  252.         scrt1__24__car_2derror( e1035 );
  253. L4997:
  254.         X2 = PAIR_CAR( e1035 );
  255.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1051 ) ) )  goto  L5050;
  256.         X5 = PAIR_CAR( e1035 );
  257.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  258.                           UNSIGNED( c1051 ) ) );
  259.         if  ( FALSE( X4 ) )  goto  L5002;
  260.         X3 = scrt1_caddr( e1035 );
  261.         goto L5003;
  262. L5002:
  263.         X3 = X4;
  264. L5003:
  265.         X2 = transform_transform( X3 );
  266.         X4 = PAIR_CDR( e1035 );
  267.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5007;
  268.         scrt1__24__cdr_2derror( X4 );
  269. L5007:
  270.         X3 = PAIR_CDR( X4 );
  271.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5010;
  272.         scrt6_error( c1125, c1126, CONS( X3, EMPTYLIST ) );
  273. L5010:
  274.         SETGEN( PAIR_CAR( X3 ), X2 );
  275.         X5 = PAIR_CAR( e1035 );
  276.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  277.                           UNSIGNED( c1051 ) ) );
  278.         if  ( FALSE( X4 ) )  goto  L5014;
  279.         X3 = scrt1_cdddr( e1035 );
  280.         goto L5015;
  281. L5014:
  282.         X3 = X4;
  283. L5015:
  284.         X4 = X3;
  285.         X5 = EMPTYLIST;
  286.         X6 = EMPTYLIST;
  287. L5018:
  288.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5019;
  289.         X2 = X5;
  290.         goto L5026;
  291. L5019:
  292.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5022;
  293.         scrt1__24__car_2derror( X4 );
  294. L5022:
  295.         X9 = PAIR_CAR( X4 );
  296.         X8 = transform_transform( X9 );
  297.         X7 = sc_cons( X8, EMPTYLIST );
  298.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5025;
  299.         X8 = PAIR_CDR( X4 );
  300.         X6 = X7;
  301.         X5 = X7;
  302.         X4 = X8;
  303.         goto L5018;
  304. L5025:
  305.         X8 = PAIR_CDR( X4 );
  306.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5030;
  307.         scrt6_error( c1358, c1126, CONS( X6, EMPTYLIST ) );
  308. L5030:
  309.         X6 = SETGEN( PAIR_CDR( X6 ), X7 );
  310.         X4 = X8;
  311.         goto L5018;
  312. L5026:
  313.         X4 = PAIR_CDR( e1035 );
  314.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5035;
  315.         scrt1__24__cdr_2derror( X4 );
  316. L5035:
  317.         X3 = PAIR_CDR( X4 );
  318.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5038;
  319.         scrt6_error( c1358, c1126, CONS( X3, EMPTYLIST ) );
  320. L5038:
  321.         SETGEN( PAIR_CDR( X3 ), X2 );
  322.         X4 = PAIR_CAR( e1035 );
  323.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  324.                           UNSIGNED( c1051 ) ) );
  325.         if  ( FALSE( X3 ) )  goto  L5042;
  326.         X2 = scrt1_caddr( e1035 );
  327.         goto L5043;
  328. L5042:
  329.         X2 = X3;
  330. L5043:
  331.         if  ( NEQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L5045;
  332.         X3 = PAIR_CAR( X2 );
  333.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1067 ) ) )  goto  L5047;
  334.         POPSTACKTRACE( transform_l_2dlambda_8f20e049( e1035 ) );
  335. L5047:
  336.         POPSTACKTRACE( e1035 );
  337. L5045:
  338.         POPSTACKTRACE( e1035 );
  339. L5050:
  340.         X1 = BOOLEAN( EQ( TSCPTAG( e1035 ), PAIRTAG ) );
  341.         if  ( FALSE( X1 ) )  goto  L5098;
  342.         if  ( EQ( TSCPTAG( e1035 ), PAIRTAG ) )  goto  L5058;
  343.         scrt1__24__car_2derror( e1035 );
  344. L5058:
  345.         X2 = PAIR_CAR( e1035 );
  346.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1067 ) ) )  goto  L5098;
  347.         X2 = SYMBOL_VALUE( current_2dlambda_2did_v );
  348.         X4 = PAIR_CAR( e1035 );
  349.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  350.                           UNSIGNED( c1067 ) ) );
  351.         if  ( FALSE( X3 ) )  goto  L5063;
  352.         X5 = PAIR_CDR( e1035 );
  353.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5067;
  354.         scrt1__24__car_2derror( X5 );
  355. L5067:
  356.         X4 = PAIR_CAR( X5 );
  357.         goto L5064;
  358. L5063:
  359.         X4 = X3;
  360. L5064:
  361.         SETGENTL( SYMBOL_VALUE( current_2dlambda_2did_v ), X4 );
  362.         X6 = PAIR_CAR( e1035 );
  363.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  364.                           UNSIGNED( c1067 ) ) );
  365.         if  ( FALSE( X5 ) )  goto  L5071;
  366.         X6 = PAIR_CDR( e1035 );
  367.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5075;
  368.         scrt1__24__cdr_2derror( X6 );
  369. L5075:
  370.         X4 = PAIR_CDR( X6 );
  371.         goto L5072;
  372. L5071:
  373.         X4 = X5;
  374. L5072:
  375.         X5 = X4;
  376.         X6 = EMPTYLIST;
  377.         X7 = EMPTYLIST;
  378. L5079:
  379.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5080;
  380.         X3 = X6;
  381.         goto L5087;
  382. L5080:
  383.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5083;
  384.         scrt1__24__car_2derror( X5 );
  385. L5083:
  386.         X10 = PAIR_CAR( X5 );
  387.         X9 = transform_transform( X10 );
  388.         X8 = sc_cons( X9, EMPTYLIST );
  389.         if  ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5086;
  390.         X9 = PAIR_CDR( X5 );
  391.         X7 = X8;
  392.         X6 = X8;
  393.         X5 = X9;
  394.         goto L5079;
  395. L5086:
  396.         X9 = PAIR_CDR( X5 );
  397.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L5091;
  398.         scrt6_error( c1358, c1126, CONS( X7, EMPTYLIST ) );
  399. L5091:
  400.         X7 = SETGEN( PAIR_CDR( X7 ), X8 );
  401.         X5 = X9;
  402.         goto L5079;
  403. L5087:
  404.         X4 = PAIR_CDR( e1035 );
  405.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5096;
  406.         scrt6_error( c1358, c1126, CONS( X4, EMPTYLIST ) );
  407. L5096:
  408.         SETGEN( PAIR_CDR( X4 ), X3 );
  409.         SETGENTL( SYMBOL_VALUE( current_2dlambda_2did_v ), X2 );
  410.         POPSTACKTRACE( e1035 );
  411. L5098:
  412.         X1 = BOOLEAN( EQ( TSCPTAG( e1035 ), PAIRTAG ) );
  413.         if  ( FALSE( X1 ) )  goto  L5145;
  414.         if  ( EQ( TSCPTAG( e1035 ), PAIRTAG ) )  goto  L5106;
  415.         scrt1__24__car_2derror( e1035 );
  416. L5106:
  417.         X2 = PAIR_CAR( e1035 );
  418.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1083 ) ) )  goto  L5145;
  419.         X2 = transform_transform_2dif1( e1035 );
  420.         if  ( TRUE( X2 ) )  goto  L5109;
  421.         X6 = PAIR_CAR( e1035 );
  422.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  423.                           UNSIGNED( c1083 ) ) );
  424.         if  ( FALSE( X5 ) )  goto  L5114;
  425.         X6 = PAIR_CDR( e1035 );
  426.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5118;
  427.         scrt1__24__car_2derror( X6 );
  428. L5118:
  429.         X4 = PAIR_CAR( X6 );
  430.         goto L5115;
  431. L5114:
  432.         X4 = X5;
  433. L5115:
  434.         X3 = transform_transform( X4 );
  435.         X4 = PAIR_CDR( e1035 );
  436.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5123;
  437.         scrt6_error( c1125, c1126, CONS( X4, EMPTYLIST ) );
  438. L5123:
  439.         SETGEN( PAIR_CAR( X4 ), X3 );
  440.         X6 = PAIR_CAR( e1035 );
  441.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  442.                           UNSIGNED( c1083 ) ) );
  443.         if  ( FALSE( X5 ) )  goto  L5127;
  444.         X4 = scrt1_caddr( e1035 );
  445.         goto L5128;
  446. L5127:
  447.         X4 = X5;
  448. L5128:
  449.         X3 = transform_transform( X4 );
  450.         X5 = PAIR_CDR( e1035 );
  451.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5132;
  452.         scrt1__24__cdr_2derror( X5 );
  453. L5132:
  454.         X4 = PAIR_CDR( X5 );
  455.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5135;
  456.         scrt6_error( c1125, c1126, CONS( X4, EMPTYLIST ) );
  457. L5135:
  458.         SETGEN( PAIR_CAR( X4 ), X3 );
  459.         X6 = PAIR_CAR( e1035 );
  460.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  461.                           UNSIGNED( c1083 ) ) );
  462.         if  ( FALSE( X5 ) )  goto  L5139;
  463.         X4 = scrt1_cadddr( e1035 );
  464.         goto L5140;
  465. L5139:
  466.         X4 = X5;
  467. L5140:
  468.         X3 = transform_transform( X4 );
  469.         X4 = scrt1_cdddr( e1035 );
  470.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5143;
  471.         scrt6_error( c1125, c1126, CONS( X4, EMPTYLIST ) );
  472. L5143:
  473.         SETGEN( PAIR_CAR( X4 ), X3 );
  474.         POPSTACKTRACE( transform_transform_2dif2( e1035 ) );
  475. L5109:
  476.         POPSTACKTRACE( X2 );
  477. L5145:
  478.         X1 = BOOLEAN( EQ( TSCPTAG( e1035 ), PAIRTAG ) );
  479.         if  ( FALSE( X1 ) )  goto  L5168;
  480.         if  ( EQ( TSCPTAG( e1035 ), PAIRTAG ) )  goto  L5153;
  481.         scrt1__24__car_2derror( e1035 );
  482. L5153:
  483.         X2 = PAIR_CAR( e1035 );
  484.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1099 ) ) )  goto  L5168;
  485.         X5 = PAIR_CAR( e1035 );
  486.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  487.                           UNSIGNED( c1099 ) ) );
  488.         if  ( FALSE( X4 ) )  goto  L5158;
  489.         X3 = scrt1_caddr( e1035 );
  490.         goto L5159;
  491. L5158:
  492.         X3 = X4;
  493. L5159:
  494.         X2 = transform_transform( X3 );
  495.         X4 = PAIR_CDR( e1035 );
  496.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5163;
  497.         scrt1__24__cdr_2derror( X4 );
  498. L5163:
  499.         X3 = PAIR_CDR( X4 );
  500.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5166;
  501.         scrt6_error( c1125, c1126, CONS( X3, EMPTYLIST ) );
  502. L5166:
  503.         SETGEN( PAIR_CAR( X3 ), X2 );
  504.         POPSTACKTRACE( e1035 );
  505. L5168:
  506.         if  ( NEQ( TSCPTAG( e1035 ), PAIRTAG ) )  goto  L5169;
  507.         X1 = PAIR_CAR( e1035 );
  508.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1115 ) ) )  goto  L5171;
  509.         X4 = PAIR_CAR( e1035 );
  510.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  511.                           UNSIGNED( c1115 ) ) );
  512.         if  ( FALSE( X3 ) )  goto  L5177;
  513.         X2 = scrt1_caddr( e1035 );
  514.         goto L5178;
  515. L5177:
  516.         X2 = X3;
  517. L5178:
  518.         X1 = transform_transform( X2 );
  519.         X3 = PAIR_CDR( e1035 );
  520.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5182;
  521.         scrt1__24__cdr_2derror( X3 );
  522. L5182:
  523.         X2 = PAIR_CDR( X3 );
  524.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L5185;
  525.         scrt6_error( c1125, c1126, CONS( X2, EMPTYLIST ) );
  526. L5185:
  527.         SETGEN( PAIR_CAR( X2 ), X1 );
  528.         POPSTACKTRACE( e1035 );
  529. L5171:
  530.         POPSTACKTRACE( e1035 );
  531. L5169:
  532.         POPSTACKTRACE( e1035 );
  533. }
  534.  
  535. DEFTSCP( transform_transform_2dif1_v );
  536. DEFSTRING( t5187, "TRANSFORM-IF1", 13 );
  537. EXTERNTSCPP( transform_log_2dbefore );
  538. EXTERNTSCP( transform_log_2dbefore_v );
  539. EXTERNTSCPP( scrt1_last_2dpair );
  540. EXTERNTSCP( scrt1_last_2dpair_v );
  541. EXTERNTSCPP( scrt1_cons_2a );
  542. EXTERNTSCP( scrt1_cons_2a_v );
  543. EXTERNTSCPP( transform_log_2dafter );
  544. EXTERNTSCP( transform_log_2dafter_v );
  545. EXTERNTSCPP( plist_get );
  546. EXTERNTSCP( plist_get_v );
  547. EXTERNTSCPP( scrt1_cadar );
  548. EXTERNTSCP( scrt1_cadar_v );
  549.  
  550. TSCP  transform_transform_2dif1( e1588 )
  551.         TSCP  e1588;
  552. {
  553.         TSCP  X16, 
  554.               X15, 
  555.               X14, 
  556.               X13, 
  557.               X12, 
  558.               X11, 
  559.               X10, 
  560.               X9, 
  561.               X8, X7, X6, X5, X4, X3, X2, X1;
  562.  
  563.         PUSHSTACKTRACE( U_TX( ADR( t5187 ) ) );
  564.         if  ( NEQ( TSCPTAG( e1588 ), PAIRTAG ) )  goto  L5189;
  565.         X5 = PAIR_CAR( e1588 );
  566.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  567.                           UNSIGNED( c1083 ) ) );
  568.         goto L5190;
  569. L5189:
  570.         X4 = FALSEVALUE;
  571. L5190:
  572.         if  ( FALSE( X4 ) )  goto  L5193;
  573.         X1 = scrt1_cadddr( e1588 );
  574.         goto L5194;
  575. L5193:
  576.         X1 = X4;
  577. L5194:
  578.         if  ( NEQ( TSCPTAG( e1588 ), PAIRTAG ) )  goto  L5195;
  579.         X5 = PAIR_CAR( e1588 );
  580.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  581.                           UNSIGNED( c1083 ) ) );
  582.         goto L5196;
  583. L5195:
  584.         X4 = FALSEVALUE;
  585. L5196:
  586.         if  ( FALSE( X4 ) )  goto  L5199;
  587.         X2 = scrt1_caddr( e1588 );
  588.         goto L5200;
  589. L5199:
  590.         X2 = X4;
  591. L5200:
  592.         if  ( NEQ( TSCPTAG( e1588 ), PAIRTAG ) )  goto  L5201;
  593.         X5 = PAIR_CAR( e1588 );
  594.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  595.                           UNSIGNED( c1083 ) ) );
  596.         goto L5202;
  597. L5201:
  598.         X4 = FALSEVALUE;
  599. L5202:
  600.         if  ( FALSE( X4 ) )  goto  L5205;
  601.         if  ( EQ( TSCPTAG( e1588 ), PAIRTAG ) )  goto  L5208;
  602.         scrt1__24__cdr_2derror( e1588 );
  603. L5208:
  604.         X5 = PAIR_CDR( e1588 );
  605.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5211;
  606.         scrt1__24__car_2derror( X5 );
  607. L5211:
  608.         X3 = PAIR_CAR( X5 );
  609.         goto L5206;
  610. L5205:
  611.         X3 = X4;
  612. L5206:
  613.         X6 = sc_cons( e1588, EMPTYLIST );
  614.         X5 = sc_cons( c1595, X6 );
  615.         X4 = X5;
  616.         transform_transform_2dstack_v = sc_cons( X4, 
  617.                                                  transform_transform_2dstack_v );
  618.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5215;
  619.         X5 = PAIR_CAR( X3 );
  620.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  621.                           UNSIGNED( c1051 ) ) );
  622.         goto L5216;
  623. L5215:
  624.         X4 = FALSEVALUE;
  625. L5216:
  626.         if  ( FALSE( X4 ) )  goto  L5261;
  627.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5222;
  628.         X7 = PAIR_CAR( X3 );
  629.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  630.                           UNSIGNED( c1051 ) ) );
  631.         goto L5223;
  632. L5222:
  633.         X6 = FALSEVALUE;
  634. L5223:
  635.         if  ( FALSE( X6 ) )  goto  L5226;
  636.         X5 = scrt1_caddr( X3 );
  637.         goto L5227;
  638. L5226:
  639.         X5 = X6;
  640. L5227:
  641.         if  ( NEQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5261;
  642.         X6 = PAIR_CAR( X5 );
  643.         if  ( NEQ( UNSIGNED( X6 ), UNSIGNED( c1067 ) ) )  goto  L5261;
  644.         transform_log_2dbefore( e1588 );
  645.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5236;
  646.         X10 = PAIR_CAR( X3 );
  647.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  648.                           UNSIGNED( c1051 ) ) );
  649.         goto L5237;
  650. L5236:
  651.         X9 = FALSEVALUE;
  652. L5237:
  653.         if  ( FALSE( X9 ) )  goto  L5240;
  654.         X8 = scrt1_caddr( X3 );
  655.         goto L5241;
  656. L5240:
  657.         X8 = X9;
  658. L5241:
  659.         if  ( NEQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L5243;
  660.         X10 = PAIR_CAR( X8 );
  661.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  662.                           UNSIGNED( c1067 ) ) );
  663.         goto L5244;
  664. L5243:
  665.         X9 = FALSEVALUE;
  666. L5244:
  667.         if  ( FALSE( X9 ) )  goto  L5247;
  668.         if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L5250;
  669.         scrt1__24__cdr_2derror( X8 );
  670. L5250:
  671.         X10 = PAIR_CDR( X8 );
  672.         if  ( EQ( TSCPTAG( X10 ), PAIRTAG ) )  goto  L5253;
  673.         scrt1__24__cdr_2derror( X10 );
  674. L5253:
  675.         X7 = PAIR_CDR( X10 );
  676.         goto L5248;
  677. L5247:
  678.         X7 = X9;
  679. L5248:
  680.         X6 = scrt1_last_2dpair( X7 );
  681.         X8 = CONS( EMPTYLIST, EMPTYLIST );
  682.         X8 = CONS( X1, X8 );
  683.         X8 = CONS( X2, X8 );
  684.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5257;
  685.         scrt1__24__car_2derror( X6 );
  686. L5257:
  687.         X7 = scrt1_cons_2a( c1083, 
  688.                             CONS( PAIR_CAR( X6 ), X8 ) );
  689.         SETGEN( PAIR_CAR( X6 ), X7 );
  690.         X7 = transform_log_2dafter( X3 );
  691.         POPSTACKTRACE( transform_transform( X7 ) );
  692. L5261:
  693.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5262;
  694.         X5 = PAIR_CAR( X3 );
  695.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  696.                           UNSIGNED( c1083 ) ) );
  697.         goto L5263;
  698. L5262:
  699.         X4 = FALSEVALUE;
  700. L5263:
  701.         if  ( FALSE( X4 ) )  goto  L5307;
  702.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5272;
  703.         X7 = PAIR_CAR( X3 );
  704.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  705.                           UNSIGNED( c1083 ) ) );
  706.         goto L5273;
  707. L5272:
  708.         X6 = FALSEVALUE;
  709. L5273:
  710.         if  ( FALSE( X6 ) )  goto  L5276;
  711.         X5 = scrt1_caddr( X3 );
  712.         goto L5277;
  713. L5276:
  714.         X5 = X6;
  715. L5277:
  716.         X6 = SYMBOL_VALUE( true_2dalpha_v );
  717.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) )  goto  L5307;
  718.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5280;
  719.         X7 = PAIR_CAR( X3 );
  720.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  721.                           UNSIGNED( c1083 ) ) );
  722.         goto L5281;
  723. L5280:
  724.         X6 = FALSEVALUE;
  725. L5281:
  726.         if  ( FALSE( X6 ) )  goto  L5284;
  727.         X5 = scrt1_cadddr( X3 );
  728.         goto L5285;
  729. L5284:
  730.         X5 = X6;
  731. L5285:
  732.         X6 = SYMBOL_VALUE( false_2dalpha_v );
  733.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) )  goto  L5307;
  734.         transform_log_2dbefore( e1588 );
  735.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5287;
  736.         X7 = PAIR_CAR( X3 );
  737.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  738.                           UNSIGNED( c1083 ) ) );
  739.         goto L5288;
  740. L5287:
  741.         X6 = FALSEVALUE;
  742. L5288:
  743.         if  ( FALSE( X6 ) )  goto  L5291;
  744.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5294;
  745.         scrt1__24__cdr_2derror( X3 );
  746. L5294:
  747.         X7 = PAIR_CDR( X3 );
  748.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L5297;
  749.         scrt1__24__car_2derror( X7 );
  750. L5297:
  751.         X5 = PAIR_CAR( X7 );
  752.         goto L5292;
  753. L5291:
  754.         X5 = X6;
  755. L5292:
  756.         if  ( EQ( TSCPTAG( e1588 ), PAIRTAG ) )  goto  L5301;
  757.         scrt1__24__cdr_2derror( e1588 );
  758. L5301:
  759.         X6 = PAIR_CDR( e1588 );
  760.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5304;
  761.         scrt6_error( c1125, c1126, CONS( X6, EMPTYLIST ) );
  762. L5304:
  763.         SETGEN( PAIR_CAR( X6 ), X5 );
  764.         X5 = transform_log_2dafter( e1588 );
  765.         POPSTACKTRACE( transform_transform( X5 ) );
  766. L5307:
  767.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5308;
  768.         X5 = PAIR_CAR( X3 );
  769.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  770.                           UNSIGNED( c1083 ) ) );
  771.         goto L5309;
  772. L5308:
  773.         X4 = FALSEVALUE;
  774. L5309:
  775.         if  ( FALSE( X4 ) )  goto  L5363;
  776.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5318;
  777.         X7 = PAIR_CAR( X3 );
  778.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  779.                           UNSIGNED( c1083 ) ) );
  780.         goto L5319;
  781. L5318:
  782.         X6 = FALSEVALUE;
  783. L5319:
  784.         if  ( FALSE( X6 ) )  goto  L5322;
  785.         X5 = scrt1_caddr( X3 );
  786.         goto L5323;
  787. L5322:
  788.         X5 = X6;
  789. L5323:
  790.         X6 = SYMBOL_VALUE( false_2dalpha_v );
  791.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) )  goto  L5363;
  792.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5326;
  793.         X7 = PAIR_CAR( X3 );
  794.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  795.                           UNSIGNED( c1083 ) ) );
  796.         goto L5327;
  797. L5326:
  798.         X6 = FALSEVALUE;
  799. L5327:
  800.         if  ( FALSE( X6 ) )  goto  L5330;
  801.         X5 = scrt1_cadddr( X3 );
  802.         goto L5331;
  803. L5330:
  804.         X5 = X6;
  805. L5331:
  806.         X6 = SYMBOL_VALUE( true_2dalpha_v );
  807.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( X6 ) ) )  goto  L5363;
  808.         transform_log_2dbefore( e1588 );
  809.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5333;
  810.         X7 = PAIR_CAR( X3 );
  811.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  812.                           UNSIGNED( c1083 ) ) );
  813.         goto L5334;
  814. L5333:
  815.         X6 = FALSEVALUE;
  816. L5334:
  817.         if  ( FALSE( X6 ) )  goto  L5337;
  818.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5340;
  819.         scrt1__24__cdr_2derror( X3 );
  820. L5340:
  821.         X7 = PAIR_CDR( X3 );
  822.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L5343;
  823.         scrt1__24__car_2derror( X7 );
  824. L5343:
  825.         X5 = PAIR_CAR( X7 );
  826.         goto L5338;
  827. L5337:
  828.         X5 = X6;
  829. L5338:
  830.         if  ( EQ( TSCPTAG( e1588 ), PAIRTAG ) )  goto  L5347;
  831.         scrt1__24__cdr_2derror( e1588 );
  832. L5347:
  833.         X6 = PAIR_CDR( e1588 );
  834.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5350;
  835.         scrt6_error( c1125, c1126, CONS( X6, EMPTYLIST ) );
  836. L5350:
  837.         SETGEN( PAIR_CAR( X6 ), X5 );
  838.         X6 = PAIR_CDR( e1588 );
  839.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5354;
  840.         scrt1__24__cdr_2derror( X6 );
  841. L5354:
  842.         X5 = PAIR_CDR( X6 );
  843.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5357;
  844.         scrt6_error( c1125, c1126, CONS( X5, EMPTYLIST ) );
  845. L5357:
  846.         SETGEN( PAIR_CAR( X5 ), X1 );
  847.         X5 = scrt1_cdddr( e1588 );
  848.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5360;
  849.         scrt6_error( c1125, c1126, CONS( X5, EMPTYLIST ) );
  850. L5360:
  851.         SETGEN( PAIR_CAR( X5 ), X2 );
  852.         X5 = transform_log_2dafter( e1588 );
  853.         POPSTACKTRACE( transform_transform( X5 ) );
  854. L5363:
  855.         X4 = BOOLEAN( EQ( TSCPTAG( X3 ), PAIRTAG ) );
  856.         if  ( FALSE( X4 ) )  goto  L5441;
  857.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5371;
  858.         scrt1__24__car_2derror( X3 );
  859. L5371:
  860.         X5 = PAIR_CAR( X3 );
  861.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1083 ) ) )  goto  L5441;
  862.         transform_log_2dbefore( e1588 );
  863.         X6 = SYMBOL_VALUE( lambda_2dexp_v );
  864.         X6 = UNKNOWNCALL( X6, 2 );
  865.         X5 = VIA( PROCEDURE_CODE( X6 ) )( c2208, 
  866.                                           EMPTYLIST, 
  867.                                           PROCEDURE_CLOSURE( X6 ) );
  868.         if  ( NEQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5375;
  869.         X8 = PAIR_CAR( X5 );
  870.         X7 = BOOLEAN( EQ( UNSIGNED( X8 ), 
  871.                           UNSIGNED( c1067 ) ) );
  872.         goto L5376;
  873. L5375:
  874.         X7 = FALSEVALUE;
  875. L5376:
  876.         if  ( FALSE( X7 ) )  goto  L5379;
  877.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5382;
  878.         scrt1__24__cdr_2derror( X5 );
  879. L5382:
  880.         X8 = PAIR_CDR( X5 );
  881.         if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L5385;
  882.         scrt1__24__car_2derror( X8 );
  883. L5385:
  884.         X6 = PAIR_CAR( X8 );
  885.         goto L5380;
  886. L5379:
  887.         X6 = X7;
  888. L5380:
  889.         X8 = plist_get( X6, c2170 );
  890.         if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L5389;
  891.         scrt1__24__car_2derror( X8 );
  892. L5389:
  893.         X7 = PAIR_CAR( X8 );
  894.         X9 = plist_get( X6, c2170 );
  895.         if  ( EQ( TSCPTAG( X9 ), PAIRTAG ) )  goto  L5394;
  896.         scrt1__24__cdr_2derror( X9 );
  897. L5394:
  898.         X10 = PAIR_CDR( X9 );
  899.         if  ( EQ( TSCPTAG( X10 ), PAIRTAG ) )  goto  L5397;
  900.         scrt1__24__car_2derror( X10 );
  901. L5397:
  902.         X8 = PAIR_CAR( X10 );
  903.         X10 = SYMBOL_VALUE( lambda_2dexp_v );
  904.         X10 = UNKNOWNCALL( X10, 2 );
  905.         X9 = VIA( PROCEDURE_CODE( X10 ) )( c2157, 
  906.                                            EMPTYLIST, 
  907.                                            PROCEDURE_CLOSURE( X10 ) );
  908.         X11 = SYMBOL_VALUE( lambda_2dexp_v );
  909.         X11 = UNKNOWNCALL( X11, 2 );
  910.         X10 = VIA( PROCEDURE_CODE( X11 ) )( c2157, 
  911.                                             EMPTYLIST, 
  912.                                             PROCEDURE_CLOSURE( X11 ) );
  913.         X12 = sc_cons( X2, EMPTYLIST );
  914.         X11 = X12;
  915.         if  ( EQ( TSCPTAG( X9 ), PAIRTAG ) )  goto  L5405;
  916.         scrt1__24__cdr_2derror( X9 );
  917. L5405:
  918.         X12 = PAIR_CDR( X9 );
  919.         if  ( EQ( TSCPTAG( X12 ), PAIRTAG ) )  goto  L5408;
  920.         scrt6_error( c1358, 
  921.                      c1126, CONS( X12, EMPTYLIST ) );
  922. L5408:
  923.         SETGEN( PAIR_CDR( X12 ), X11 );
  924.         X12 = sc_cons( X1, EMPTYLIST );
  925.         X11 = X12;
  926.         if  ( EQ( TSCPTAG( X10 ), PAIRTAG ) )  goto  L5413;
  927.         scrt1__24__cdr_2derror( X10 );
  928. L5413:
  929.         X12 = PAIR_CDR( X10 );
  930.         if  ( EQ( TSCPTAG( X12 ), PAIRTAG ) )  goto  L5416;
  931.         scrt6_error( c1358, 
  932.                      c1126, CONS( X12, EMPTYLIST ) );
  933. L5416:
  934.         SETGEN( PAIR_CDR( X12 ), X11 );
  935.         X13 = CONS( EMPTYLIST, EMPTYLIST );
  936.         X14 = CONS( EMPTYLIST, EMPTYLIST );
  937.         X15 = CONS( EMPTYLIST, EMPTYLIST );
  938.         X15 = CONS( X8, X15 );
  939.         X14 = CONS( scrt1_cons_2a( c1051, 
  940.                                    CONS( EMPTYLIST, X15 ) ), 
  941.                     X14 );
  942.         X15 = CONS( EMPTYLIST, EMPTYLIST );
  943.         X15 = CONS( X7, X15 );
  944.         X14 = CONS( scrt1_cons_2a( c1051, 
  945.                                    CONS( EMPTYLIST, X15 ) ), 
  946.                     X14 );
  947.         X16 = PAIR_CAR( X3 );
  948.         X15 = BOOLEAN( EQ( UNSIGNED( X16 ), 
  949.                            UNSIGNED( c1083 ) ) );
  950.         if  ( FALSE( X15 ) )  goto  L5420;
  951.         X16 = scrt1_cadddr( X3 );
  952.         goto L5421;
  953. L5420:
  954.         X16 = X15;
  955. L5421:
  956.         X13 = CONS( scrt1_cons_2a( c1083, CONS( X16, X14 ) ), 
  957.                     X13 );
  958.         X14 = CONS( EMPTYLIST, EMPTYLIST );
  959.         X15 = CONS( EMPTYLIST, EMPTYLIST );
  960.         X15 = CONS( X8, X15 );
  961.         X14 = CONS( scrt1_cons_2a( c1051, 
  962.                                    CONS( EMPTYLIST, X15 ) ), 
  963.                     X14 );
  964.         X15 = CONS( EMPTYLIST, EMPTYLIST );
  965.         X15 = CONS( X7, X15 );
  966.         X14 = CONS( scrt1_cons_2a( c1051, 
  967.                                    CONS( EMPTYLIST, X15 ) ), 
  968.                     X14 );
  969.         X16 = PAIR_CAR( X3 );
  970.         X15 = BOOLEAN( EQ( UNSIGNED( X16 ), 
  971.                            UNSIGNED( c1083 ) ) );
  972.         if  ( FALSE( X15 ) )  goto  L5424;
  973.         X16 = scrt1_caddr( X3 );
  974.         goto L5425;
  975. L5424:
  976.         X16 = X15;
  977. L5425:
  978.         X13 = CONS( scrt1_cons_2a( c1083, CONS( X16, X14 ) ), 
  979.                     X13 );
  980.         X15 = PAIR_CAR( X3 );
  981.         X14 = BOOLEAN( EQ( UNSIGNED( X15 ), 
  982.                            UNSIGNED( c1083 ) ) );
  983.         if  ( FALSE( X14 ) )  goto  L5428;
  984.         X16 = PAIR_CDR( X3 );
  985.         if  ( EQ( TSCPTAG( X16 ), PAIRTAG ) )  goto  L5432;
  986.         scrt1__24__car_2derror( X16 );
  987. L5432:
  988.         X15 = PAIR_CAR( X16 );
  989.         goto L5429;
  990. L5428:
  991.         X15 = X14;
  992. L5429:
  993.         X12 = scrt1_cons_2a( c1083, CONS( X15, X13 ) );
  994.         X11 = scrt1_cons_2a( X12, 
  995.                              CONS( EMPTYLIST, EMPTYLIST ) );
  996.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5436;
  997.         scrt1__24__cdr_2derror( X5 );
  998. L5436:
  999.         X12 = PAIR_CDR( X5 );
  1000.         if  ( EQ( TSCPTAG( X12 ), PAIRTAG ) )  goto  L5439;
  1001.         scrt6_error( c1358, 
  1002.                      c1126, CONS( X12, EMPTYLIST ) );
  1003. L5439:
  1004.         SETGEN( PAIR_CDR( X12 ), X11 );
  1005.         X11 = SYMBOL_VALUE( name_2da_2dlambda_v );
  1006.         X11 = UNKNOWNCALL( X11, 2 );
  1007.         VIA( PROCEDURE_CODE( X11 ) )( X7, 
  1008.                                       X9, 
  1009.                                       PROCEDURE_CLOSURE( X11 ) );
  1010.         X11 = SYMBOL_VALUE( name_2da_2dlambda_v );
  1011.         X11 = UNKNOWNCALL( X11, 2 );
  1012.         VIA( PROCEDURE_CODE( X11 ) )( X8, 
  1013.                                       X10, 
  1014.                                       PROCEDURE_CLOSURE( X11 ) );
  1015.         X13 = CONS( EMPTYLIST, EMPTYLIST );
  1016.         X13 = CONS( X10, X13 );
  1017.         X13 = CONS( X9, X13 );
  1018.         X13 = CONS( X5, X13 );
  1019.         X12 = scrt1_cons_2a( c1051, CONS( EMPTYLIST, X13 ) );
  1020.         X11 = transform_log_2dafter( X12 );
  1021.         POPSTACKTRACE( transform_transform( X11 ) );
  1022. L5441:
  1023.         X4 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ), 
  1024.                            EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
  1025.         if  ( FALSE( X4 ) )  goto  L5463;
  1026.         X5 = plist_get( X3, c1824 );
  1027.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1825 ) ) )  goto  L5463;
  1028.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( X3 ) ) )  goto  L5463;
  1029.         transform_log_2dbefore( e1588 );
  1030.         X5 = SYMBOL_VALUE( true_2dalpha_v );
  1031.         if  ( EQ( TSCPTAG( e1588 ), PAIRTAG ) )  goto  L5454;
  1032.         scrt1__24__cdr_2derror( e1588 );
  1033. L5454:
  1034.         X7 = PAIR_CDR( e1588 );
  1035.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L5457;
  1036.         scrt1__24__cdr_2derror( X7 );
  1037. L5457:
  1038.         X6 = PAIR_CDR( X7 );
  1039.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5460;
  1040.         scrt6_error( c1125, c1126, CONS( X6, EMPTYLIST ) );
  1041. L5460:
  1042.         SETGEN( PAIR_CAR( X6 ), X5 );
  1043.         X5 = transform_log_2dafter( e1588 );
  1044.         POPSTACKTRACE( transform_transform( X5 ) );
  1045. L5463:
  1046.         X4 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ), 
  1047.                            EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
  1048.         if  ( FALSE( X4 ) )  goto  L5479;
  1049.         X5 = plist_get( X3, c1824 );
  1050.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1825 ) ) )  goto  L5479;
  1051.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( X3 ) ) )  goto  L5479;
  1052.         transform_log_2dbefore( e1588 );
  1053.         X5 = SYMBOL_VALUE( false_2dalpha_v );
  1054.         X6 = scrt1_cdddr( e1588 );
  1055.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5476;
  1056.         scrt6_error( c1125, c1126, CONS( X6, EMPTYLIST ) );
  1057. L5476:
  1058.         SETGEN( PAIR_CAR( X6 ), X5 );
  1059.         X5 = transform_log_2dafter( e1588 );
  1060.         POPSTACKTRACE( transform_transform( X5 ) );
  1061. L5479:
  1062.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5482;
  1063.         X7 = PAIR_CAR( X3 );
  1064.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  1065.                           UNSIGNED( c1051 ) ) );
  1066.         goto L5483;
  1067. L5482:
  1068.         X6 = FALSEVALUE;
  1069. L5483:
  1070.         if  ( FALSE( X6 ) )  goto  L5486;
  1071.         X5 = scrt1_caddr( X3 );
  1072.         goto L5487;
  1073. L5486:
  1074.         X5 = X6;
  1075. L5487:
  1076.         if  ( NEQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5489;
  1077.         X7 = PAIR_CAR( X5 );
  1078.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  1079.                           UNSIGNED( c1874 ) ) );
  1080.         goto L5490;
  1081. L5489:
  1082.         X6 = FALSEVALUE;
  1083. L5490:
  1084.         if  ( FALSE( X6 ) )  goto  L5493;
  1085.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5496;
  1086.         scrt1__24__cdr_2derror( X5 );
  1087. L5496:
  1088.         X7 = PAIR_CDR( X5 );
  1089.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L5499;
  1090.         scrt1__24__car_2derror( X7 );
  1091. L5499:
  1092.         X4 = PAIR_CAR( X7 );
  1093.         goto L5494;
  1094. L5493:
  1095.         X4 = X6;
  1096. L5494:
  1097.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1825 ) ) )  goto  L5480;
  1098.         X5 = SYMBOL_VALUE( true_2dalpha_v );
  1099.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( X5 ) ) )  goto  L5501;
  1100.         X5 = SYMBOL_VALUE( false_2dalpha_v );
  1101.         X4 = BOOLEAN( EQ( UNSIGNED( X1 ), UNSIGNED( X5 ) ) );
  1102.         goto L5502;
  1103. L5501:
  1104.         X4 = FALSEVALUE;
  1105. L5502:
  1106.         if  ( TRUE( X4 ) )  goto  L5507;
  1107.         X5 = SYMBOL_VALUE( false_2dalpha_v );
  1108.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( X5 ) ) )  goto  L5508;
  1109.         X5 = SYMBOL_VALUE( true_2dalpha_v );
  1110.         if  ( EQ( UNSIGNED( X1 ), UNSIGNED( X5 ) ) )  goto  L5507;
  1111.         POPSTACKTRACE( FALSEVALUE );
  1112. L5508:
  1113.         POPSTACKTRACE( FALSEVALUE );
  1114. L5480:
  1115.         POPSTACKTRACE( FALSEVALUE );
  1116. L5507:
  1117.         transform_log_2dbefore( e1588 );
  1118.         X4 = SYMBOL_VALUE( true_2dalpha_v );
  1119.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( X4 ) ) )  goto  L5513;
  1120.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5515;
  1121.         X6 = PAIR_CAR( X3 );
  1122.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  1123.                           UNSIGNED( c1051 ) ) );
  1124.         goto L5516;
  1125. L5515:
  1126.         X5 = FALSEVALUE;
  1127. L5516:
  1128.         if  ( FALSE( X5 ) )  goto  L5519;
  1129.         X4 = scrt1_caddr( X3 );
  1130.         goto L5520;
  1131. L5519:
  1132.         X4 = X5;
  1133. L5520:
  1134.         X7 = CONS( EMPTYLIST, EMPTYLIST );
  1135.         X8 = CONS( EMPTYLIST, EMPTYLIST );
  1136.         if  ( NEQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5522;
  1137.         X11 = PAIR_CAR( X4 );
  1138.         X10 = BOOLEAN( EQ( UNSIGNED( X11 ), 
  1139.                            UNSIGNED( c1874 ) ) );
  1140.         goto L5523;
  1141. L5522:
  1142.         X10 = FALSEVALUE;
  1143. L5523:
  1144.         if  ( FALSE( X10 ) )  goto  L5526;
  1145.         X9 = scrt1_cdddr( X4 );
  1146.         goto L5527;
  1147. L5526:
  1148.         X9 = X10;
  1149. L5527:
  1150.         X6 = scrt1_cons_2a( c1825, 
  1151.                             CONS( scrt1_cons_2a( c1957, 
  1152.                                                  CONS( scrt1_cadar( X9 ), 
  1153.                                                        X8 ) ), 
  1154.                                   X7 ) );
  1155.         X5 = scrt1_cons_2a( X6, CONS( EMPTYLIST, EMPTYLIST ) );
  1156.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5530;
  1157.         scrt1__24__cdr_2derror( X4 );
  1158. L5530:
  1159.         X7 = PAIR_CDR( X4 );
  1160.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L5533;
  1161.         scrt1__24__cdr_2derror( X7 );
  1162. L5533:
  1163.         X6 = PAIR_CDR( X7 );
  1164.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5536;
  1165.         scrt6_error( c1358, c1126, CONS( X6, EMPTYLIST ) );
  1166. L5536:
  1167.         SETGEN( PAIR_CDR( X6 ), X5 );
  1168. L5513:
  1169.         X4 = transform_log_2dafter( X3 );
  1170.         POPSTACKTRACE( transform_transform( X4 ) );
  1171. }
  1172.  
  1173. DEFTSCP( transform_transform_2dif2_v );
  1174. DEFSTRING( t5538, "TRANSFORM-IF2", 13 );
  1175.  
  1176. TSCP  transform_transform_2dif2( e2461 )
  1177.         TSCP  e2461;
  1178. {
  1179.         TSCP  X9, 
  1180.               X8, X7, X6, X5, X4, X3, X2, X1;
  1181.  
  1182.         PUSHSTACKTRACE( U_TX( ADR( t5538 ) ) );
  1183. L5539:
  1184.         if  ( NEQ( TSCPTAG( e2461 ), PAIRTAG ) )  goto  L5540;
  1185.         X5 = PAIR_CAR( e2461 );
  1186.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  1187.                           UNSIGNED( c1083 ) ) );
  1188.         goto L5541;
  1189. L5540:
  1190.         X4 = FALSEVALUE;
  1191. L5541:
  1192.         if  ( FALSE( X4 ) )  goto  L5544;
  1193.         X1 = scrt1_cadddr( e2461 );
  1194.         goto L5545;
  1195. L5544:
  1196.         X1 = X4;
  1197. L5545:
  1198.         if  ( NEQ( TSCPTAG( e2461 ), PAIRTAG ) )  goto  L5546;
  1199.         X5 = PAIR_CAR( e2461 );
  1200.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  1201.                           UNSIGNED( c1083 ) ) );
  1202.         goto L5547;
  1203. L5546:
  1204.         X4 = FALSEVALUE;
  1205. L5547:
  1206.         if  ( FALSE( X4 ) )  goto  L5550;
  1207.         X2 = scrt1_caddr( e2461 );
  1208.         goto L5551;
  1209. L5550:
  1210.         X2 = X4;
  1211. L5551:
  1212.         if  ( NEQ( TSCPTAG( e2461 ), PAIRTAG ) )  goto  L5552;
  1213.         X5 = PAIR_CAR( e2461 );
  1214.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  1215.                           UNSIGNED( c1083 ) ) );
  1216.         goto L5553;
  1217. L5552:
  1218.         X4 = FALSEVALUE;
  1219. L5553:
  1220.         if  ( FALSE( X4 ) )  goto  L5556;
  1221.         if  ( EQ( TSCPTAG( e2461 ), PAIRTAG ) )  goto  L5559;
  1222.         scrt1__24__cdr_2derror( e2461 );
  1223. L5559:
  1224.         X5 = PAIR_CDR( e2461 );
  1225.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5562;
  1226.         scrt1__24__car_2derror( X5 );
  1227. L5562:
  1228.         X3 = PAIR_CAR( X5 );
  1229.         goto L5557;
  1230. L5556:
  1231.         X3 = X4;
  1232. L5557:
  1233.         X6 = sc_cons( e2461, EMPTYLIST );
  1234.         X5 = sc_cons( c2468, X6 );
  1235.         X4 = X5;
  1236.         transform_transform_2dstack_v = sc_cons( X4, 
  1237.                                                  transform_transform_2dstack_v );
  1238.         if  ( NEQ( TSCPTAG( e2461 ), PAIRTAG ) )  goto  L5566;
  1239.         X4 = PAIR_CAR( e2461 );
  1240.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1083 ) ) )  goto  L5568;
  1241.         X4 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ), 
  1242.                            EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
  1243.         if  ( FALSE( X4 ) )  goto  L5580;
  1244.         X5 = plist_get( X3, c2495 );
  1245.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( c2496 ) ) )  goto  L5580;
  1246.         transform_log_2dbefore( e2461 );
  1247.         if  ( FALSE( plist_get( X3, c2702 ) ) )  goto  L5578;
  1248.         X5 = X2;
  1249.         goto L5579;
  1250. L5578:
  1251.         X5 = X1;
  1252. L5579:
  1253.         e2461 = transform_log_2dafter( X5 );
  1254.         goto L5539;
  1255. L5568:
  1256.         POPSTACKTRACE( e2461 );
  1257. L5566:
  1258.         POPSTACKTRACE( e2461 );
  1259. L5580:
  1260.         X5 = SYMBOL_VALUE( true_2dalpha_v );
  1261.         X4 = BOOLEAN( EQ( UNSIGNED( X3 ), UNSIGNED( X5 ) ) );
  1262.         if  ( TRUE( X4 ) )  goto  L5585;
  1263.         X5 = SYMBOL_VALUE( false_2dalpha_v );
  1264.         if  ( EQ( UNSIGNED( X3 ), UNSIGNED( X5 ) ) )  goto  L5585;
  1265.         X5 = BOOLEAN( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ), 
  1266.                            EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) );
  1267.         if  ( FALSE( X5 ) )  goto  L5629;
  1268.         if  ( NEQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L5592;
  1269.         X7 = PAIR_CAR( X2 );
  1270.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  1271.                           UNSIGNED( c1083 ) ) );
  1272.         goto L5593;
  1273. L5592:
  1274.         X6 = FALSEVALUE;
  1275. L5593:
  1276.         if  ( FALSE( X6 ) )  goto  L5629;
  1277.         if  ( NEQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L5601;
  1278.         X9 = PAIR_CAR( X2 );
  1279.         X8 = BOOLEAN( EQ( UNSIGNED( X9 ), 
  1280.                           UNSIGNED( c1083 ) ) );
  1281.         goto L5602;
  1282. L5601:
  1283.         X8 = FALSEVALUE;
  1284. L5602:
  1285.         if  ( FALSE( X8 ) )  goto  L5605;
  1286.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L5608;
  1287.         scrt1__24__cdr_2derror( X2 );
  1288. L5608:
  1289.         X9 = PAIR_CDR( X2 );
  1290.         if  ( EQ( TSCPTAG( X9 ), PAIRTAG ) )  goto  L5611;
  1291.         scrt1__24__car_2derror( X9 );
  1292. L5611:
  1293.         X7 = PAIR_CAR( X9 );
  1294.         goto L5606;
  1295. L5605:
  1296.         X7 = X8;
  1297. L5606:
  1298.         if  ( NEQ( UNSIGNED( X7 ), UNSIGNED( X3 ) ) )  goto  L5629;
  1299.         transform_log_2dbefore( e2461 );
  1300.         if  ( NEQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L5614;
  1301.         X9 = PAIR_CAR( X2 );
  1302.         X8 = BOOLEAN( EQ( UNSIGNED( X9 ), 
  1303.                           UNSIGNED( c1083 ) ) );
  1304.         goto L5615;
  1305. L5614:
  1306.         X8 = FALSEVALUE;
  1307. L5615:
  1308.         if  ( FALSE( X8 ) )  goto  L5618;
  1309.         X7 = scrt1_caddr( X2 );
  1310.         goto L5619;
  1311. L5618:
  1312.         X7 = X8;
  1313. L5619:
  1314.         X9 = PAIR_CDR( e2461 );
  1315.         if  ( EQ( TSCPTAG( X9 ), PAIRTAG ) )  goto  L5623;
  1316.         scrt1__24__cdr_2derror( X9 );
  1317. L5623:
  1318.         X8 = PAIR_CDR( X9 );
  1319.         if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L5626;
  1320.         scrt6_error( c1125, c1126, CONS( X8, EMPTYLIST ) );
  1321. L5626:
  1322.         SETGEN( PAIR_CAR( X8 ), X7 );
  1323.         e2461 = transform_log_2dafter( e2461 );
  1324.         goto L5539;
  1325. L5585:
  1326.         transform_log_2dbefore( e2461 );
  1327.         X5 = SYMBOL_VALUE( true_2dalpha_v );
  1328.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( X5 ) ) )  goto  L5631;
  1329.         X4 = X2;
  1330.         goto L5632;
  1331. L5631:
  1332.         X4 = X1;
  1333. L5632:
  1334.         e2461 = transform_log_2dafter( X4 );
  1335.         goto L5539;
  1336. L5629:
  1337.         if  ( NOT( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ), 
  1338.                         EQ( TSCP_EXTENDEDTAG( X3 ), SYMBOLTAG ) ) )
  1339.             )  goto  L5633;
  1340.         if  ( NEQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L5635;
  1341.         X4 = PAIR_CAR( X1 );
  1342.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1083 ) ) )  goto  L5637;
  1343.         X6 = PAIR_CAR( X1 );
  1344.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  1345.                           UNSIGNED( c1083 ) ) );
  1346.         if  ( FALSE( X5 ) )  goto  L5644;
  1347.         X6 = PAIR_CDR( X1 );
  1348.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5648;
  1349.         scrt1__24__car_2derror( X6 );
  1350. L5648:
  1351.         X4 = PAIR_CAR( X6 );
  1352.         goto L5645;
  1353. L5644:
  1354.         X4 = X5;
  1355. L5645:
  1356.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( X3 ) ) )  goto  L5640;
  1357.         transform_log_2dbefore( e2461 );
  1358.         X6 = PAIR_CAR( X1 );
  1359.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  1360.                           UNSIGNED( c1083 ) ) );
  1361.         if  ( FALSE( X5 ) )  goto  L5653;
  1362.         X4 = scrt1_cadddr( X1 );
  1363.         goto L5654;
  1364. L5653:
  1365.         X4 = X5;
  1366. L5654:
  1367.         X5 = scrt1_cdddr( e2461 );
  1368.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5657;
  1369.         scrt6_error( c1125, c1126, CONS( X5, EMPTYLIST ) );
  1370. L5657:
  1371.         SETGEN( PAIR_CAR( X5 ), X4 );
  1372.         e2461 = transform_log_2dafter( e2461 );
  1373.         goto L5539;
  1374. L5640:
  1375.         POPSTACKTRACE( e2461 );
  1376. L5637:
  1377.         POPSTACKTRACE( e2461 );
  1378. L5635:
  1379.         POPSTACKTRACE( e2461 );
  1380. L5633:
  1381.         POPSTACKTRACE( e2461 );
  1382. }
  1383.  
  1384. DEFTSCP( transform_log_2dbefore_v );
  1385. DEFSTRING( t5659, "LOG-BEFORE", 10 );
  1386. EXTERNTSCPP( scrt6_format );
  1387. EXTERNTSCP( scrt6_format_v );
  1388.  
  1389. TSCP  transform_log_2dbefore( e2777 )
  1390.         TSCP  e2777;
  1391. {
  1392.         TSCP  X2, X1;
  1393.  
  1394.         PUSHSTACKTRACE( U_TX( ADR( t5659 ) ) );
  1395.         X1 = SYMBOL_VALUE( log_3f_v );
  1396.         X1 = UNKNOWNCALL( X1, 1 );
  1397.         if  ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( c2779, 
  1398.                                                   PROCEDURE_CLOSURE( X1 ) ) )
  1399.             )  goto  L5661;
  1400.         X2 = SYMBOL_VALUE( sc_2dicode_v );
  1401.         X1 = SYMBOL_VALUE( pretty_2dprint_2d_24tree_v );
  1402.         X1 = UNKNOWNCALL( X1, 2 );
  1403.         VIA( PROCEDURE_CODE( X1 ) )( e2777, 
  1404.                                      X2, PROCEDURE_CLOSURE( X1 ) );
  1405.         X1 = SYMBOL_VALUE( sc_2dicode_v );
  1406.         POPSTACKTRACE( scrt6_format( X1, 
  1407.                                      CONS( c2783, EMPTYLIST ) ) );
  1408. L5661:
  1409.         POPSTACKTRACE( FALSEVALUE );
  1410. }
  1411.  
  1412. DEFTSCP( transform_log_2dafter_v );
  1413. DEFSTRING( t5664, "LOG-AFTER", 9 );
  1414.  
  1415. TSCP  transform_log_2dafter( e2785 )
  1416.         TSCP  e2785;
  1417. {
  1418.         TSCP  X2, X1;
  1419.  
  1420.         PUSHSTACKTRACE( U_TX( ADR( t5664 ) ) );
  1421.         X1 = SYMBOL_VALUE( log_3f_v );
  1422.         X1 = UNKNOWNCALL( X1, 1 );
  1423.         if  ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( c2779, 
  1424.                                                   PROCEDURE_CLOSURE( X1 ) ) )
  1425.             )  goto  L5666;
  1426.         X2 = SYMBOL_VALUE( sc_2dicode_v );
  1427.         X1 = SYMBOL_VALUE( pretty_2dprint_2d_24tree_v );
  1428.         X1 = UNKNOWNCALL( X1, 2 );
  1429.         VIA( PROCEDURE_CODE( X1 ) )( e2785, 
  1430.                                      X2, PROCEDURE_CLOSURE( X1 ) );
  1431.         X1 = SYMBOL_VALUE( sc_2dicode_v );
  1432.         scrt6_format( X1, CONS( c2787, EMPTYLIST ) );
  1433. L5666:
  1434.         POPSTACKTRACE( e2785 );
  1435. }
  1436.  
  1437. DEFTSCP( transform_l_2dlambda_8f20e049_v );
  1438. DEFSTRING( t5669, "TRANSFORM-CALL-LAMBDA", 21 );
  1439. EXTERNTSCPP( transform_bda_2dbind_8a6984c8 );
  1440. EXTERNTSCP( transform_bda_2dbind_8a6984c8_v );
  1441. EXTERNTSCPP( plist_put );
  1442. EXTERNTSCP( plist_put_v );
  1443. EXTERNTSCPP( transform_var_2duses_93ec09fc );
  1444. EXTERNTSCP( transform_var_2duses_93ec09fc_v );
  1445. EXTERNTSCPP( transform_mbda_2dvar_cbbaf994 );
  1446. EXTERNTSCP( transform_mbda_2dvar_cbbaf994_v );
  1447. EXTERNTSCPP( transform_to_2dvalue_e947c03 );
  1448. EXTERNTSCP( transform_to_2dvalue_e947c03_v );
  1449. EXTERNTSCPP( scrt1_length );
  1450. EXTERNTSCP( scrt1_length_v );
  1451. EXTERNTSCPP( scrt2__3d_2dtwo );
  1452. EXTERNTSCP( scrt2__3d_2dtwo_v );
  1453.  
  1454. TSCP  transform_l_2dlambda_8f20e049( e2789 )
  1455.         TSCP  e2789;
  1456. {
  1457.         TSCP  X16, 
  1458.               X15, 
  1459.               X14, 
  1460.               X13, 
  1461.               X12, 
  1462.               X11, 
  1463.               X10, 
  1464.               X9, 
  1465.               X8, X7, X6, X5, X4, X3, X2, X1;
  1466.  
  1467.         PUSHSTACKTRACE( U_TX( ADR( t5669 ) ) );
  1468.         e2789 = CONS( e2789, EMPTYLIST );
  1469.         X3 = PAIR_CAR( e2789 );
  1470.         if  ( NEQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L5672;
  1471.         X5 = PAIR_CAR( X3 );
  1472.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  1473.                           UNSIGNED( c1051 ) ) );
  1474.         goto L5673;
  1475. L5672:
  1476.         X4 = FALSEVALUE;
  1477. L5673:
  1478.         if  ( FALSE( X4 ) )  goto  L5676;
  1479.         X2 = scrt1_caddr( X3 );
  1480.         goto L5677;
  1481. L5676:
  1482.         X2 = X4;
  1483. L5677:
  1484.         if  ( NEQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L5679;
  1485.         X4 = PAIR_CAR( X2 );
  1486.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  1487.                           UNSIGNED( c1067 ) ) );
  1488.         goto L5680;
  1489. L5679:
  1490.         X3 = FALSEVALUE;
  1491. L5680:
  1492.         if  ( FALSE( X3 ) )  goto  L5683;
  1493.         if  ( EQ( TSCPTAG( X2 ), PAIRTAG ) )  goto  L5686;
  1494.         scrt1__24__cdr_2derror( X2 );
  1495. L5686:
  1496.         X4 = PAIR_CDR( X2 );
  1497.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5689;
  1498.         scrt1__24__car_2derror( X4 );
  1499. L5689:
  1500.         X1 = PAIR_CAR( X4 );
  1501.         goto L5684;
  1502. L5683:
  1503.         X1 = X3;
  1504. L5684:
  1505.         X3 = plist_get( X1, c2170 );
  1506.         X5 = PAIR_CAR( e2789 );
  1507.         if  ( NEQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5693;
  1508.         X7 = PAIR_CAR( X5 );
  1509.         X6 = BOOLEAN( EQ( UNSIGNED( X7 ), 
  1510.                           UNSIGNED( c1051 ) ) );
  1511.         goto L5694;
  1512. L5693:
  1513.         X6 = FALSEVALUE;
  1514. L5694:
  1515.         if  ( FALSE( X6 ) )  goto  L5697;
  1516.         X4 = scrt1_cdddr( X5 );
  1517.         goto L5698;
  1518. L5697:
  1519.         X4 = X6;
  1520. L5698:
  1521.         X2 = transform_bda_2dbind_8a6984c8( X3, X4 );
  1522.         X4 = X2;
  1523.         X5 = EMPTYLIST;
  1524.         X6 = EMPTYLIST;
  1525. L5701:
  1526.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5702;
  1527.         X3 = X5;
  1528.         goto L5713;
  1529. L5702:
  1530.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5705;
  1531.         scrt1__24__car_2derror( X4 );
  1532. L5705:
  1533.         X9 = PAIR_CAR( X4 );
  1534.         if  ( EQ( TSCPTAG( X9 ), PAIRTAG ) )  goto  L5709;
  1535.         scrt1__24__car_2derror( X9 );
  1536. L5709:
  1537.         X8 = PAIR_CAR( X9 );
  1538.         X7 = sc_cons( X8, EMPTYLIST );
  1539.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5712;
  1540.         X8 = PAIR_CDR( X4 );
  1541.         X6 = X7;
  1542.         X5 = X7;
  1543.         X4 = X8;
  1544.         goto L5701;
  1545. L5712:
  1546.         X8 = PAIR_CDR( X4 );
  1547.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5717;
  1548.         scrt6_error( c1358, c1126, CONS( X6, EMPTYLIST ) );
  1549. L5717:
  1550.         X6 = SETGEN( PAIR_CDR( X6 ), X7 );
  1551.         X4 = X8;
  1552.         goto L5701;
  1553. L5713:
  1554.         X5 = X2;
  1555.         X6 = EMPTYLIST;
  1556.         X7 = EMPTYLIST;
  1557. L5721:
  1558.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5722;
  1559.         X4 = X6;
  1560.         goto L5736;
  1561. L5722:
  1562.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5725;
  1563.         scrt1__24__car_2derror( X5 );
  1564. L5725:
  1565.         X10 = PAIR_CAR( X5 );
  1566.         if  ( EQ( TSCPTAG( X10 ), PAIRTAG ) )  goto  L5729;
  1567.         scrt1__24__cdr_2derror( X10 );
  1568. L5729:
  1569.         X11 = PAIR_CDR( X10 );
  1570.         if  ( EQ( TSCPTAG( X11 ), PAIRTAG ) )  goto  L5732;
  1571.         scrt1__24__car_2derror( X11 );
  1572. L5732:
  1573.         X9 = PAIR_CAR( X11 );
  1574.         X8 = sc_cons( X9, EMPTYLIST );
  1575.         if  ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5735;
  1576.         X9 = PAIR_CDR( X5 );
  1577.         X7 = X8;
  1578.         X6 = X8;
  1579.         X5 = X9;
  1580.         goto L5721;
  1581. L5735:
  1582.         X9 = PAIR_CDR( X5 );
  1583.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L5740;
  1584.         scrt6_error( c1358, c1126, CONS( X7, EMPTYLIST ) );
  1585. L5740:
  1586.         X7 = SETGEN( PAIR_CDR( X7 ), X8 );
  1587.         X5 = X9;
  1588.         goto L5721;
  1589. L5736:
  1590.         X4 = CONS( X4, EMPTYLIST );
  1591.         X7 = PAIR_CAR( e2789 );
  1592.         if  ( NEQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L5744;
  1593.         X9 = PAIR_CAR( X7 );
  1594.         X8 = BOOLEAN( EQ( UNSIGNED( X9 ), 
  1595.                           UNSIGNED( c1051 ) ) );
  1596.         goto L5745;
  1597. L5744:
  1598.         X8 = FALSEVALUE;
  1599. L5745:
  1600.         if  ( FALSE( X8 ) )  goto  L5748;
  1601.         X6 = scrt1_caddr( X7 );
  1602.         goto L5749;
  1603. L5748:
  1604.         X6 = X8;
  1605. L5749:
  1606.         if  ( NEQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5751;
  1607.         X8 = PAIR_CAR( X6 );
  1608.         X7 = BOOLEAN( EQ( UNSIGNED( X8 ), 
  1609.                           UNSIGNED( c1067 ) ) );
  1610.         goto L5752;
  1611. L5751:
  1612.         X7 = FALSEVALUE;
  1613. L5752:
  1614.         if  ( FALSE( X7 ) )  goto  L5755;
  1615.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L5758;
  1616.         scrt1__24__cdr_2derror( X6 );
  1617. L5758:
  1618.         X8 = PAIR_CDR( X6 );
  1619.         if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L5761;
  1620.         scrt1__24__cdr_2derror( X8 );
  1621. L5761:
  1622.         X5 = PAIR_CDR( X8 );
  1623.         goto L5756;
  1624. L5755:
  1625.         X5 = X7;
  1626. L5756:
  1627.         X5 = CONS( X5, EMPTYLIST );
  1628.         X6 = FALSEVALUE;
  1629.         X6 = CONS( X6, EMPTYLIST );
  1630.         X7 = EMPTYLIST;
  1631.         X7 = CONS( X7, EMPTYLIST );
  1632.         X8 = EMPTYLIST;
  1633.         X8 = CONS( X8, EMPTYLIST );
  1634.         X9 = EMPTYLIST;
  1635.         X9 = CONS( X9, EMPTYLIST );
  1636.         X12 = sc_cons( PAIR_CAR( e2789 ), EMPTYLIST );
  1637.         X11 = sc_cons( c2810, X12 );
  1638.         X10 = X11;
  1639.         transform_transform_2dstack_v = sc_cons( X10, 
  1640.                                                  transform_transform_2dstack_v );
  1641.         X10 = X2;
  1642. L5770:
  1643.         if  ( EQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5771;
  1644.         if  ( EQ( TSCPTAG( X10 ), PAIRTAG ) )  goto  L5775;
  1645.         scrt1__24__car_2derror( X10 );
  1646. L5775:
  1647.         X11 = PAIR_CAR( X10 );
  1648.         if  ( EQ( TSCPTAG( X11 ), PAIRTAG ) )  goto  L5779;
  1649.         scrt1__24__car_2derror( X11 );
  1650. L5779:
  1651.         X12 = PAIR_CAR( X11 );
  1652.         plist_put( X12, c2839, _TSCP( 0 ) );
  1653.         plist_put( X12, c2843, _TSCP( 0 ) );
  1654.         X10 = PAIR_CDR( X10 );
  1655.         goto L5770;
  1656. L5771:
  1657.         if  ( FALSE( X3 ) )  goto  L5788;
  1658.         X10 = PAIR_CAR( X5 );
  1659.         X11 = X10;
  1660. L5787:
  1661.         if  ( EQ( UNSIGNED( X11 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5788;
  1662.         if  ( EQ( TSCPTAG( X11 ), PAIRTAG ) )  goto  L5792;
  1663.         scrt1__24__car_2derror( X11 );
  1664. L5792:
  1665.         X12 = PAIR_CAR( X11 );
  1666.         transform_var_2duses_93ec09fc( X3, X12 );
  1667.         X11 = PAIR_CDR( X11 );
  1668.         goto L5787;
  1669. L5788:
  1670.         X10 = X3;
  1671. L5796:
  1672.         if  ( EQ( UNSIGNED( X10 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5797;
  1673.         if  ( EQ( TSCPTAG( X10 ), PAIRTAG ) )  goto  L5801;
  1674.         scrt1__24__car_2derror( X10 );
  1675. L5801:
  1676.         X11 = PAIR_CAR( X10 );
  1677.         X11 = CONS( X11, EMPTYLIST );
  1678.         X13 = PAIR_CAR( X4 );
  1679.         if  ( EQ( TSCPTAG( X13 ), PAIRTAG ) )  goto  L5805;
  1680.         scrt1__24__car_2derror( X13 );
  1681. L5805:
  1682.         X12 = PAIR_CAR( X13 );
  1683.         X12 = CONS( X12, EMPTYLIST );
  1684.         X13 = transform_mbda_2dvar_cbbaf994( PAIR_CAR( X11 ), 
  1685.                                              PAIR_CAR( X12 ), 
  1686.                                              PAIR_CAR( X5 ) );
  1687.         if  ( NEQ( UNSIGNED( X13 ), UNSIGNED( c2902 ) ) )  goto  L5809;
  1688.         X14 = X13;
  1689.         SETGEN( PAIR_CAR( X12 ), X14 );
  1690.         goto L5816;
  1691. L5809:
  1692.         if  ( EQ( UNSIGNED( X13 ), UNSIGNED( c2909 ) ) )  goto  L5816;
  1693.         if  ( NEQ( UNSIGNED( X13 ), UNSIGNED( c1825 ) ) )  goto  L5813;
  1694.         X14 = TRUEVALUE;
  1695.         SETGEN( PAIR_CAR( X6 ), X14 );
  1696.         goto L5816;
  1697. L5813:
  1698.         if  ( EQ( TSCPTAG( X13 ), PAIRTAG ) )  goto  L5818;
  1699.         scrt1__24__car_2derror( X13 );
  1700. L5818:
  1701.         X14 = PAIR_CAR( X13 );
  1702.         if  ( NEQ( UNSIGNED( X14 ), UNSIGNED( c2921 ) ) )  goto  L5815;
  1703.         X15 = PAIR_CDR( X13 );
  1704.         if  ( EQ( TSCPTAG( X15 ), PAIRTAG ) )  goto  L5823;
  1705.         scrt1__24__car_2derror( X15 );
  1706. L5823:
  1707.         X14 = PAIR_CAR( X15 );
  1708.         SETGEN( PAIR_CAR( X12 ), X14 );
  1709.         X16 = PAIR_CDR( X13 );
  1710.         if  ( EQ( TSCPTAG( X16 ), PAIRTAG ) )  goto  L5827;
  1711.         scrt1__24__cdr_2derror( X16 );
  1712. L5827:
  1713.         X15 = PAIR_CDR( X16 );
  1714.         X14 = sc_cons( X15, PAIR_CAR( X9 ) );
  1715.         SETGEN( PAIR_CAR( X9 ), X14 );
  1716.         goto L5816;
  1717. L5815:
  1718.         X14 = sc_cons( X13, PAIR_CAR( X9 ) );
  1719.         SETGEN( PAIR_CAR( X9 ), X14 );
  1720.         X14 = EMPTYLIST;
  1721.         SETGEN( PAIR_CAR( X11 ), X14 );
  1722. L5816:
  1723.         if  ( FALSE( PAIR_CAR( X11 ) ) )  goto  L5830;
  1724.         X14 = sc_cons( PAIR_CAR( X11 ), PAIR_CAR( X7 ) );
  1725.         SETGEN( PAIR_CAR( X7 ), X14 );
  1726.         X14 = sc_cons( PAIR_CAR( X12 ), PAIR_CAR( X8 ) );
  1727.         SETGEN( PAIR_CAR( X8 ), X14 );
  1728. L5830:
  1729.         X15 = PAIR_CAR( X4 );
  1730.         if  ( EQ( TSCPTAG( X15 ), PAIRTAG ) )  goto  L5834;
  1731.         scrt1__24__cdr_2derror( X15 );
  1732. L5834:
  1733.         X14 = PAIR_CDR( X15 );
  1734.         SETGEN( PAIR_CAR( X4 ), X14 );
  1735.         X10 = PAIR_CDR( X10 );
  1736.         goto L5796;
  1737. L5797:
  1738.         if  ( FALSE( PAIR_CAR( X9 ) ) )  goto  L5837;
  1739.         X10 = transform_to_2dvalue_e947c03( X1, 
  1740.                                             PAIR_CAR( X5 ), 
  1741.                                             PAIR_CAR( X9 ) );
  1742.         SETGEN( PAIR_CAR( X5 ), X10 );
  1743. L5837:
  1744.         X10 = BOOLEAN( EQ( UNSIGNED( PAIR_CAR( X7 ) ), 
  1745.                            UNSIGNED( EMPTYLIST ) ) );
  1746.         if  ( FALSE( X10 ) )  goto  L5853;
  1747.         X11 = scrt1_length( PAIR_CAR( X5 ) );
  1748.         if  ( BITAND( BITOR( INT( X11 ), INT( _TSCP( 4 ) ) ), 
  1749.                       3 ) )  goto  L5845;
  1750.         if  ( EQ( UNSIGNED( X11 ), UNSIGNED( _TSCP( 4 ) ) ) )  goto  L5849;
  1751.         goto L5853;
  1752. L5845:
  1753.         if  ( FALSE( scrt2__3d_2dtwo( X11, _TSCP( 4 ) ) ) )  goto  L5853;
  1754. L5849:
  1755.         X11 = SYMBOL_VALUE( log_3f_v );
  1756.         X11 = UNKNOWNCALL( X11, 1 );
  1757.         if  ( FALSE( VIA( PROCEDURE_CODE( X11 ) )( c2779, 
  1758.                                                    PROCEDURE_CLOSURE( X11 ) ) )
  1759.             )  goto  L5856;
  1760.         X11 = SYMBOL_VALUE( sc_2dicode_v );
  1761.         X12 = CONS( X1, EMPTYLIST );
  1762.         scrt6_format( X11, CONS( c2997, X12 ) );
  1763. L5856:
  1764.         plist_put( X1, c3001, c3002 );
  1765.         X12 = PAIR_CAR( X5 );
  1766.         if  ( EQ( TSCPTAG( X12 ), PAIRTAG ) )  goto  L5859;
  1767.         scrt1__24__car_2derror( X12 );
  1768. L5859:
  1769.         X11 = PAIR_CAR( X12 );
  1770.         SETGEN( PAIR_CAR( e2789 ), X11 );
  1771.         goto L5854;
  1772. L5853:
  1773.         plist_put( X1, c2170, PAIR_CAR( X7 ) );
  1774.         X11 = PAIR_CAR( X8 );
  1775.         X12 = PAIR_CAR( e2789 );
  1776.         if  ( EQ( TSCPTAG( X12 ), PAIRTAG ) )  goto  L5864;
  1777.         scrt1__24__cdr_2derror( X12 );
  1778. L5864:
  1779.         X14 = PAIR_CDR( X12 );
  1780.         if  ( EQ( TSCPTAG( X14 ), PAIRTAG ) )  goto  L5867;
  1781.         scrt1__24__cdr_2derror( X14 );
  1782. L5867:
  1783.         X13 = PAIR_CDR( X14 );
  1784.         if  ( EQ( TSCPTAG( X13 ), PAIRTAG ) )  goto  L5870;
  1785.         scrt6_error( c1358, 
  1786.                      c1126, CONS( X13, EMPTYLIST ) );
  1787. L5870:
  1788.         SETGEN( PAIR_CDR( X13 ), X11 );
  1789. L5854:
  1790.         X10 = PAIR_CAR( X9 );
  1791.         if  ( TRUE( X10 ) )  goto  L5876;
  1792.         if  ( TRUE( PAIR_CAR( X6 ) ) )  goto  L5876;
  1793.         POPSTACKTRACE( PAIR_CAR( e2789 ) );
  1794. L5876:
  1795.         POPSTACKTRACE( transform_transform( PAIR_CAR( e2789 ) ) );
  1796. }
  1797.  
  1798. DEFTSCP( transform_bda_2dbind_8a6984c8_v );
  1799. DEFSTRING( t5879, "TRANSFORM-LAMBDA-BIND", 21 );
  1800.  
  1801. TSCP  transform_bda_2dbind_8a6984c8( v3234, v3235 )
  1802.         TSCP  v3234, v3235;
  1803. {
  1804.         TSCP  X5, X4, X3, X2, X1;
  1805.  
  1806.         PUSHSTACKTRACE( U_TX( ADR( t5879 ) ) );
  1807.         if  ( EQ( UNSIGNED( v3234 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5881;
  1808.         if  ( NEQ( TSCPTAG( v3234 ), PAIRTAG ) )  goto  L5883;
  1809.         X3 = PAIR_CAR( v3234 );
  1810.         if  ( EQ( TSCPTAG( v3235 ), PAIRTAG ) )  goto  L5887;
  1811.         scrt1__24__car_2derror( v3235 );
  1812. L5887:
  1813.         X5 = PAIR_CAR( v3235 );
  1814.         X4 = sc_cons( X5, EMPTYLIST );
  1815.         X2 = sc_cons( X3, X4 );
  1816.         X1 = X2;
  1817.         X3 = PAIR_CDR( v3234 );
  1818.         X4 = PAIR_CDR( v3235 );
  1819.         X2 = transform_bda_2dbind_8a6984c8( X3, X4 );
  1820.         POPSTACKTRACE( sc_cons( X1, X2 ) );
  1821. L5883:
  1822.         POPSTACKTRACE( FALSEVALUE );
  1823. L5881:
  1824.         POPSTACKTRACE( EMPTYLIST );
  1825. }
  1826.  
  1827. DEFTSCP( transform_var_2duses_93ec09fc_v );
  1828. DEFSTRING( t5892, "COUNT-LAMBDA-VAR-USES", 21 );
  1829. EXTERNTSCPP( scrt1_memq );
  1830. EXTERNTSCP( scrt1_memq_v );
  1831. EXTERNTSCPP( scrt2__2b_2dtwo );
  1832. EXTERNTSCP( scrt2__2b_2dtwo_v );
  1833.  
  1834. TSCP  transform_var_2duses_93ec09fc( v3262, e3263 )
  1835.         TSCP  v3262, e3263;
  1836. {
  1837.         TSCP  X5, X4, X3, X2, X1;
  1838.  
  1839.         PUSHSTACKTRACE( U_TX( ADR( t5892 ) ) );
  1840. L5893:
  1841.         if  ( NOT( AND( EQ( TSCPTAG( e3263 ), EXTENDEDTAG ), 
  1842.                         EQ( TSCP_EXTENDEDTAG( e3263 ), SYMBOLTAG ) ) )
  1843.             )  goto  L5894;
  1844.         if  ( FALSE( scrt1_memq( e3263, v3262 ) ) )  goto  L5896;
  1845.         X3 = plist_get( e3263, c2839 );
  1846.         if  ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X3 ) ), 
  1847.                       3 ) )  goto  L5899;
  1848.         X2 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X3 ) ) );
  1849.         goto L5900;
  1850. L5899:
  1851.         X2 = scrt2__2b_2dtwo( _TSCP( 4 ), X3 );
  1852. L5900:
  1853.         POPSTACKTRACE( plist_put( e3263, c2839, X2 ) );
  1854. L5896:
  1855.         POPSTACKTRACE( FALSEVALUE );
  1856. L5894:
  1857.         X2 = BOOLEAN( EQ( TSCPTAG( e3263 ), PAIRTAG ) );
  1858.         if  ( FALSE( X2 ) )  goto  L5914;
  1859.         if  ( EQ( TSCPTAG( e3263 ), PAIRTAG ) )  goto  L5908;
  1860.         scrt1__24__car_2derror( e3263 );
  1861. L5908:
  1862.         X3 = PAIR_CAR( e3263 );
  1863.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1099 ) ) )  goto  L5914;
  1864.         X4 = PAIR_CAR( e3263 );
  1865.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  1866.                           UNSIGNED( c1099 ) ) );
  1867.         if  ( FALSE( X3 ) )  goto  L5912;
  1868.         e3263 = scrt1_caddr( e3263 );
  1869.         goto L5893;
  1870. L5912:
  1871.         e3263 = X3;
  1872.         goto L5893;
  1873. L5914:
  1874.         X2 = BOOLEAN( EQ( TSCPTAG( e3263 ), PAIRTAG ) );
  1875.         if  ( FALSE( X2 ) )  goto  L5957;
  1876.         if  ( EQ( TSCPTAG( e3263 ), PAIRTAG ) )  goto  L5922;
  1877.         scrt1__24__car_2derror( e3263 );
  1878. L5922:
  1879.         X3 = PAIR_CAR( e3263 );
  1880.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1051 ) ) )  goto  L5957;
  1881.         X4 = PAIR_CAR( e3263 );
  1882.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  1883.                           UNSIGNED( c1051 ) ) );
  1884.         if  ( FALSE( X3 ) )  goto  L5926;
  1885.         X1 = scrt1_caddr( e3263 );
  1886.         goto L5927;
  1887. L5926:
  1888.         X1 = X3;
  1889. L5927:
  1890.         X5 = PAIR_CAR( e3263 );
  1891.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  1892.                           UNSIGNED( c1051 ) ) );
  1893.         if  ( FALSE( X4 ) )  goto  L5931;
  1894.         X3 = scrt1_cdddr( e3263 );
  1895.         goto L5932;
  1896. L5931:
  1897.         X3 = X4;
  1898. L5932:
  1899.         X4 = X3;
  1900. L5935:
  1901.         if  ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5936;
  1902.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5940;
  1903.         scrt1__24__car_2derror( X4 );
  1904. L5940:
  1905.         X5 = PAIR_CAR( X4 );
  1906.         transform_var_2duses_93ec09fc( v3262, X5 );
  1907.         X4 = PAIR_CDR( X4 );
  1908.         goto L5935;
  1909. L5936:
  1910.         X3 = BOOLEAN( EQ( TSCPTAG( X1 ), PAIRTAG ) );
  1911.         if  ( FALSE( X3 ) )  goto  L5956;
  1912.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L5950;
  1913.         scrt1__24__car_2derror( X1 );
  1914. L5950:
  1915.         X4 = PAIR_CAR( X1 );
  1916.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1067 ) ) )  goto  L5956;
  1917.         X5 = PAIR_CAR( e3263 );
  1918.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  1919.                           UNSIGNED( c1051 ) ) );
  1920.         if  ( FALSE( X4 ) )  goto  L5954;
  1921.         e3263 = scrt1_caddr( e3263 );
  1922.         goto L5893;
  1923. L5954:
  1924.         e3263 = X4;
  1925.         goto L5893;
  1926. L5957:
  1927.         X2 = BOOLEAN( EQ( TSCPTAG( e3263 ), PAIRTAG ) );
  1928.         if  ( FALSE( X2 ) )  goto  L5971;
  1929.         if  ( EQ( TSCPTAG( e3263 ), PAIRTAG ) )  goto  L5965;
  1930.         scrt1__24__car_2derror( e3263 );
  1931. L5965:
  1932.         X3 = PAIR_CAR( e3263 );
  1933.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1115 ) ) )  goto  L5971;
  1934.         X4 = PAIR_CAR( e3263 );
  1935.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  1936.                           UNSIGNED( c1115 ) ) );
  1937.         if  ( FALSE( X3 ) )  goto  L5969;
  1938.         e3263 = scrt1_caddr( e3263 );
  1939.         goto L5893;
  1940. L5969:
  1941.         e3263 = X3;
  1942.         goto L5893;
  1943. L5971:
  1944.         X2 = BOOLEAN( EQ( TSCPTAG( e3263 ), PAIRTAG ) );
  1945.         if  ( FALSE( X2 ) )  goto  L5999;
  1946.         if  ( EQ( TSCPTAG( e3263 ), PAIRTAG ) )  goto  L5979;
  1947.         scrt1__24__car_2derror( e3263 );
  1948. L5979:
  1949.         X3 = PAIR_CAR( e3263 );
  1950.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1067 ) ) )  goto  L5999;
  1951.         X5 = PAIR_CAR( e3263 );
  1952.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  1953.                           UNSIGNED( c1067 ) ) );
  1954.         if  ( FALSE( X4 ) )  goto  L5983;
  1955.         X5 = PAIR_CDR( e3263 );
  1956.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L5987;
  1957.         scrt1__24__cdr_2derror( X5 );
  1958. L5987:
  1959.         X3 = PAIR_CDR( X5 );
  1960.         goto L5984;
  1961. L5983:
  1962.         X3 = X4;
  1963. L5984:
  1964.         X4 = X3;
  1965. L5991:
  1966.         if  ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) )  goto  L5992;
  1967.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L5996;
  1968.         scrt1__24__car_2derror( X4 );
  1969. L5996:
  1970.         X5 = PAIR_CAR( X4 );
  1971.         transform_var_2duses_93ec09fc( v3262, X5 );
  1972.         X4 = PAIR_CDR( X4 );
  1973.         goto L5991;
  1974. L5992:
  1975.         POPSTACKTRACE( FALSEVALUE );
  1976. L5999:
  1977.         if  ( NEQ( TSCPTAG( e3263 ), PAIRTAG ) )  goto  L6000;
  1978.         X2 = PAIR_CAR( e3263 );
  1979.         if  ( NEQ( UNSIGNED( X2 ), UNSIGNED( c1083 ) ) )  goto  L6002;
  1980.         X4 = PAIR_CAR( e3263 );
  1981.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  1982.                           UNSIGNED( c1083 ) ) );
  1983.         if  ( FALSE( X3 ) )  goto  L6008;
  1984.         X4 = PAIR_CDR( e3263 );
  1985.         if  ( EQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L6012;
  1986.         scrt1__24__car_2derror( X4 );
  1987. L6012:
  1988.         X2 = PAIR_CAR( X4 );
  1989.         goto L6009;
  1990. L6008:
  1991.         X2 = X3;
  1992. L6009:
  1993.         transform_var_2duses_93ec09fc( v3262, X2 );
  1994.         X4 = PAIR_CAR( e3263 );
  1995.         X3 = BOOLEAN( EQ( UNSIGNED( X4 ), 
  1996.                           UNSIGNED( c1083 ) ) );
  1997.         if  ( FALSE( X3 ) )  goto  L6016;
  1998.         X2 = scrt1_caddr( e3263 );
  1999.         goto L6017;
  2000. L6016:
  2001.         X2 = X3;
  2002. L6017:
  2003.         transform_var_2duses_93ec09fc( v3262, X2 );
  2004.         X3 = PAIR_CAR( e3263 );
  2005.         X2 = BOOLEAN( EQ( UNSIGNED( X3 ), 
  2006.                           UNSIGNED( c1083 ) ) );
  2007.         if  ( FALSE( X2 ) )  goto  L6020;
  2008.         e3263 = scrt1_cadddr( e3263 );
  2009.         goto L5893;
  2010. L6020:
  2011.         e3263 = X2;
  2012.         goto L5893;
  2013. L6002:
  2014.         POPSTACKTRACE( FALSEVALUE );
  2015. L6000:
  2016.         POPSTACKTRACE( FALSEVALUE );
  2017. L5956:
  2018.         if  ( FALSE( scrt1_memq( X1, v3262 ) ) )  goto  L6022;
  2019.         X3 = plist_get( X1, c2843 );
  2020.         if  ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X3 ) ), 
  2021.                       3 ) )  goto  L6025;
  2022.         X2 = _TSCP( IPLUS( INT( _TSCP( 4 ) ), INT( X3 ) ) );
  2023.         goto L6026;
  2024. L6025:
  2025.         X2 = scrt2__2b_2dtwo( _TSCP( 4 ), X3 );
  2026. L6026:
  2027.         POPSTACKTRACE( plist_put( X1, c2843, X2 ) );
  2028. L6022:
  2029.         POPSTACKTRACE( FALSEVALUE );
  2030. }
  2031.  
  2032. DEFTSCP( transform_mbda_2dvar_cbbaf994_v );
  2033. DEFSTRING( t6027, "TRANSFORM-LAMBDA-VAR", 20 );
  2034. DEFSTRING( t6029, "MEMVARLIST [inside TRANSFORM-LAMBDA-VAR]", 40 );
  2035.  
  2036. TSCP  transform_m3644( v4279, s4280 )
  2037.         TSCP  v4279, s4280;
  2038. {
  2039.         TSCP  X5, X4, X3, X2, X1;
  2040.  
  2041.         PUSHSTACKTRACE( U_TX( ADR( t6029 ) ) );
  2042.         X1 = s4280;
  2043.         X2 = FALSEVALUE;
  2044. L6032:
  2045.         if  ( FALSE( X1 ) )  goto  L6033;
  2046.         X3 = FALSEVALUE;
  2047.         goto L6034;
  2048. L6033:
  2049.         X3 = TRUEVALUE;
  2050. L6034:
  2051.         if  ( TRUE( X3 ) )  goto  L6039;
  2052.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L6043;
  2053.         scrt1__24__car_2derror( X1 );
  2054. L6043:
  2055.         X4 = PAIR_CAR( X1 );
  2056.         if  ( NOT( AND( EQ( TSCPTAG( X4 ), EXTENDEDTAG ), 
  2057.                         EQ( TSCP_EXTENDEDTAG( X4 ), SYMBOLTAG ) ) )
  2058.             )  goto  L6039;
  2059.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L6046;
  2060.         scrt1__24__cdr_2derror( X1 );
  2061. L6046:
  2062.         X4 = PAIR_CDR( X1 );
  2063.         if  ( TRUE( X2 ) )  goto  L6049;
  2064.         X5 = PAIR_CAR( X1 );
  2065.         X2 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  2066.                           UNSIGNED( v4279 ) ) );
  2067. L6049:
  2068.         X1 = X4;
  2069.         goto L6032;
  2070. L6039:
  2071.         if  ( FALSE( X2 ) )  goto  L6051;
  2072.         POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( X1 ), 
  2073.                                     UNSIGNED( EMPTYLIST ) ) ) );
  2074. L6051:
  2075.         POPSTACKTRACE( X2 );
  2076. }
  2077.  
  2078. EXTERNTSCPP( scrt2_zero_3f );
  2079. EXTERNTSCP( scrt2_zero_3f_v );
  2080. EXTERNTSCPP( transform_log_2dtransform );
  2081. EXTERNTSCP( transform_log_2dtransform_v );
  2082. EXTERNTSCPP( transform_m3644 );
  2083.  
  2084. TSCP  transform_mbda_2dvar_cbbaf994( v3637, v3638, e3639 )
  2085.         TSCP  v3637, v3638, e3639;
  2086. {
  2087.         TSCP  X11, 
  2088.               X10, 
  2089.               X9, 
  2090.               X8, X7, X6, X5, X4, X3, X2, X1;
  2091.  
  2092.         PUSHSTACKTRACE( U_TX( ADR( t6027 ) ) );
  2093.         if  ( NEQ( TSCPTAG( v3638 ), PAIRTAG ) )  goto  L6053;
  2094.         X5 = PAIR_CAR( v3638 );
  2095.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  2096.                           UNSIGNED( c1067 ) ) );
  2097.         goto L6054;
  2098. L6053:
  2099.         X4 = FALSEVALUE;
  2100. L6054:
  2101.         if  ( FALSE( X4 ) )  goto  L6057;
  2102.         if  ( EQ( TSCPTAG( v3638 ), PAIRTAG ) )  goto  L6060;
  2103.         scrt1__24__cdr_2derror( v3638 );
  2104. L6060:
  2105.         X5 = PAIR_CDR( v3638 );
  2106.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L6063;
  2107.         scrt1__24__cdr_2derror( X5 );
  2108. L6063:
  2109.         X3 = PAIR_CDR( X5 );
  2110.         goto L6058;
  2111. L6057:
  2112.         X3 = X4;
  2113. L6058:
  2114.         X1 = plist_get( v3637, c2843 );
  2115.         X2 = plist_get( v3637, c2839 );
  2116.         if  ( TRUE( plist_get( v3637, c3650 ) ) )  goto  L6066;
  2117.         if  ( TRUE( plist_get( v3637, c3654 ) ) )  goto  L6068;
  2118.         if  ( NEQ( TSCPTAG( v3638 ), PAIRTAG ) )  goto  L6070;
  2119.         X5 = PAIR_CAR( v3638 );
  2120.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  2121.                           UNSIGNED( c1067 ) ) );
  2122.         goto L6071;
  2123. L6070:
  2124.         X4 = FALSEVALUE;
  2125. L6071:
  2126.         if  ( FALSE( X4 ) )  goto  L6093;
  2127.         if  ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ), 
  2128.                       3 ) )  goto  L6077;
  2129.         X5 = BOOLEAN( EQ( UNSIGNED( X1 ), 
  2130.                           UNSIGNED( _TSCP( 4 ) ) ) );
  2131.         goto L6078;
  2132. L6077:
  2133.         X5 = scrt2__3d_2dtwo( X1, _TSCP( 4 ) );
  2134. L6078:
  2135.         if  ( FALSE( X5 ) )  goto  L6093;
  2136.         if  ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) )  goto  L6084;
  2137.         if  ( EQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) )  goto  L6088;
  2138.         goto L6093;
  2139. L6084:
  2140.         if  ( TRUE( scrt2_zero_3f( X2 ) ) )  goto  L6088;
  2141.         goto L6093;
  2142. L6068:
  2143.         POPSTACKTRACE( c2909 );
  2144. L6066:
  2145.         POPSTACKTRACE( c2909 );
  2146. L6088:
  2147.         if  ( NEQ( TSCPTAG( v3638 ), PAIRTAG ) )  goto  L6095;
  2148.         X6 = PAIR_CAR( v3638 );
  2149.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  2150.                           UNSIGNED( c1067 ) ) );
  2151.         goto L6096;
  2152. L6095:
  2153.         X5 = FALSEVALUE;
  2154. L6096:
  2155.         if  ( FALSE( X5 ) )  goto  L6099;
  2156.         if  ( EQ( TSCPTAG( v3638 ), PAIRTAG ) )  goto  L6102;
  2157.         scrt1__24__cdr_2derror( v3638 );
  2158. L6102:
  2159.         X7 = PAIR_CDR( v3638 );
  2160.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L6105;
  2161.         scrt1__24__car_2derror( X7 );
  2162. L6105:
  2163.         X6 = PAIR_CAR( X7 );
  2164.         goto L6100;
  2165. L6099:
  2166.         X6 = X5;
  2167. L6100:
  2168.         X4 = CONS( X6, EMPTYLIST );
  2169.         X4 = CONS( c4209, X4 );
  2170.         transform_log_2dtransform( CONS( v3637, X4 ) );
  2171.         X5 = sc_cons( v3638, EMPTYLIST );
  2172.         X4 = sc_cons( v3637, X5 );
  2173.         POPSTACKTRACE( X4 );
  2174. L6093:
  2175.         if  ( FALSE( X3 ) )  goto  L6140;
  2176.         if  ( NEQ( TSCPTAG( X2 ), FIXNUMTAG ) )  goto  L6111;
  2177.         X4 = BOOLEAN( EQ( UNSIGNED( X2 ), 
  2178.                           UNSIGNED( _TSCP( 0 ) ) ) );
  2179.         goto L6112;
  2180. L6111:
  2181.         X4 = scrt2_zero_3f( X2 );
  2182. L6112:
  2183.         if  ( FALSE( X4 ) )  goto  L6140;
  2184.         X6 = scrt1_length( X3 );
  2185.         if  ( BITAND( BITOR( INT( _TSCP( 4 ) ), INT( X6 ) ), 
  2186.                       3 ) )  goto  L6118;
  2187.         X5 = BOOLEAN( EQ( UNSIGNED( _TSCP( 4 ) ), 
  2188.                           UNSIGNED( X6 ) ) );
  2189.         goto L6119;
  2190. L6118:
  2191.         X5 = scrt2__3d_2dtwo( _TSCP( 4 ), X6 );
  2192. L6119:
  2193.         if  ( FALSE( X5 ) )  goto  L6140;
  2194.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L6128;
  2195.         scrt1__24__car_2derror( X3 );
  2196. L6128:
  2197.         X6 = PAIR_CAR( X3 );
  2198.         if  ( NOT( AND( EQ( TSCPTAG( X6 ), EXTENDEDTAG ), 
  2199.                         EQ( TSCP_EXTENDEDTAG( X6 ), SYMBOLTAG ) ) )
  2200.             )  goto  L6140;
  2201.         X6 = PAIR_CAR( X3 );
  2202.         if  ( TRUE( plist_get( X6, c3654 ) ) )  goto  L6140;
  2203.         X6 = CONS( PAIR_CAR( X3 ), EMPTYLIST );
  2204.         X6 = CONS( c4188, X6 );
  2205.         X7 = CONS( EMPTYLIST, EMPTYLIST );
  2206.         X7 = CONS( v3637, X7 );
  2207.         transform_log_2dtransform( CONS( scrt1_cons_2a( c1051, 
  2208.                                                         CONS( EMPTYLIST, 
  2209.                                                               X7 ) ), 
  2210.                                          X6 ) );
  2211.         X8 = CONS( EMPTYLIST, EMPTYLIST );
  2212.         X8 = CONS( v3637, X8 );
  2213.         X7 = scrt1_cons_2a( c1051, CONS( EMPTYLIST, X8 ) );
  2214.         X9 = PAIR_CAR( X3 );
  2215.         X8 = sc_cons( X9, EMPTYLIST );
  2216.         X6 = sc_cons( X7, X8 );
  2217.         POPSTACKTRACE( X6 );
  2218. L6140:
  2219.         X4 = BOOLEAN( AND( EQ( TSCPTAG( v3638 ), EXTENDEDTAG ), 
  2220.                            EQ( TSCP_EXTENDEDTAG( v3638 ), 
  2221.                                SYMBOLTAG ) ) );
  2222.         if  ( FALSE( X4 ) )  goto  L6170;
  2223.         X5 = SYMBOL_VALUE( true_2dalpha_v );
  2224.         if  ( EQ( UNSIGNED( v3638 ), UNSIGNED( X5 ) ) )  goto  L6148;
  2225.         X5 = SYMBOL_VALUE( false_2dalpha_v );
  2226.         if  ( EQ( UNSIGNED( v3638 ), UNSIGNED( X5 ) ) )  goto  L6148;
  2227.         X5 = plist_get( v3638, c2495 );
  2228.         if  ( EQ( UNSIGNED( X5 ), UNSIGNED( c2496 ) ) )  goto  L6148;
  2229.         X5 = plist_get( v3638, c2495 );
  2230.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( c3779 ) ) )  goto  L6170;
  2231.         if  ( FALSE( plist_get( v3638, c3654 ) ) )  goto  L6160;
  2232.         X5 = FALSEVALUE;
  2233.         goto L6161;
  2234. L6160:
  2235.         X5 = TRUEVALUE;
  2236. L6161:
  2237.         if  ( FALSE( X5 ) )  goto  L6170;
  2238.         if  ( TRUE( plist_get( v3638, c3650 ) ) )  goto  L6170;
  2239. L6148:
  2240.         X4 = CONS( v3638, EMPTYLIST );
  2241.         X4 = CONS( c4188, X4 );
  2242.         transform_log_2dtransform( CONS( v3637, X4 ) );
  2243.         X5 = sc_cons( v3638, EMPTYLIST );
  2244.         X4 = sc_cons( v3637, X5 );
  2245.         POPSTACKTRACE( X4 );
  2246. L6170:
  2247.         if  ( EQ( TSCPTAG( e3639 ), PAIRTAG ) )  goto  L6174;
  2248.         scrt1__24__car_2derror( e3639 );
  2249. L6174:
  2250.         X5 = PAIR_CAR( e3639 );
  2251.         if  ( NEQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L6177;
  2252.         X6 = PAIR_CAR( X5 );
  2253.         X4 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  2254.                           UNSIGNED( c1083 ) ) );
  2255.         goto L6178;
  2256. L6177:
  2257.         X4 = FALSEVALUE;
  2258. L6178:
  2259.         if  ( FALSE( X4 ) )  goto  L6239;
  2260.         if  ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ), 
  2261.                       3 ) )  goto  L6184;
  2262.         X5 = BOOLEAN( EQ( UNSIGNED( X2 ), 
  2263.                           UNSIGNED( _TSCP( 4 ) ) ) );
  2264.         goto L6185;
  2265. L6184:
  2266.         X5 = scrt2__3d_2dtwo( X2, _TSCP( 4 ) );
  2267. L6185:
  2268.         if  ( FALSE( X5 ) )  goto  L6239;
  2269.         if  ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) )  goto  L6190;
  2270.         X6 = BOOLEAN( EQ( UNSIGNED( X1 ), 
  2271.                           UNSIGNED( _TSCP( 0 ) ) ) );
  2272.         goto L6191;
  2273. L6190:
  2274.         X6 = scrt2_zero_3f( X1 );
  2275. L6191:
  2276.         if  ( FALSE( X6 ) )  goto  L6239;
  2277.         X8 = PAIR_CAR( e3639 );
  2278.         if  ( NEQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L6201;
  2279.         X10 = PAIR_CAR( X8 );
  2280.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  2281.                           UNSIGNED( c1083 ) ) );
  2282.         goto L6202;
  2283. L6201:
  2284.         X9 = FALSEVALUE;
  2285. L6202:
  2286.         if  ( FALSE( X9 ) )  goto  L6205;
  2287.         if  ( EQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L6208;
  2288.         scrt1__24__cdr_2derror( X8 );
  2289. L6208:
  2290.         X10 = PAIR_CDR( X8 );
  2291.         if  ( EQ( TSCPTAG( X10 ), PAIRTAG ) )  goto  L6211;
  2292.         scrt1__24__car_2derror( X10 );
  2293. L6211:
  2294.         X7 = PAIR_CAR( X10 );
  2295.         goto L6206;
  2296. L6205:
  2297.         X7 = X9;
  2298. L6206:
  2299.         if  ( EQ( UNSIGNED( X7 ), UNSIGNED( v3637 ) ) )  goto  L6213;
  2300.         X9 = PAIR_CAR( e3639 );
  2301.         if  ( NEQ( TSCPTAG( X9 ), PAIRTAG ) )  goto  L6218;
  2302.         X11 = PAIR_CAR( X9 );
  2303.         X10 = BOOLEAN( EQ( UNSIGNED( X11 ), 
  2304.                            UNSIGNED( c1083 ) ) );
  2305.         goto L6219;
  2306. L6218:
  2307.         X10 = FALSEVALUE;
  2308. L6219:
  2309.         if  ( FALSE( X10 ) )  goto  L6222;
  2310.         if  ( EQ( TSCPTAG( X9 ), PAIRTAG ) )  goto  L6225;
  2311.         scrt1__24__cdr_2derror( X9 );
  2312. L6225:
  2313.         X11 = PAIR_CDR( X9 );
  2314.         if  ( EQ( TSCPTAG( X11 ), PAIRTAG ) )  goto  L6228;
  2315.         scrt1__24__car_2derror( X11 );
  2316. L6228:
  2317.         X8 = PAIR_CAR( X11 );
  2318.         goto L6223;
  2319. L6222:
  2320.         X8 = X10;
  2321. L6223:
  2322.         if  ( NEQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L6231;
  2323.         X10 = PAIR_CAR( X8 );
  2324.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  2325.                           UNSIGNED( c1051 ) ) );
  2326.         goto L6232;
  2327. L6231:
  2328.         X9 = FALSEVALUE;
  2329. L6232:
  2330.         if  ( FALSE( X9 ) )  goto  L6235;
  2331.         X7 = scrt1_cdddr( X8 );
  2332.         goto L6236;
  2333. L6235:
  2334.         X7 = X9;
  2335. L6236:
  2336.         if  ( FALSE( transform_m3644( v3637, X7 ) ) )  goto  L6239;
  2337. L6213:
  2338.         X4 = CONS( v3638, EMPTYLIST );
  2339.         X4 = CONS( c4188, X4 );
  2340.         transform_log_2dtransform( CONS( v3637, X4 ) );
  2341.         X5 = sc_cons( v3638, EMPTYLIST );
  2342.         X4 = sc_cons( v3637, X5 );
  2343.         POPSTACKTRACE( X4 );
  2344. L6239:
  2345.         X5 = PAIR_CAR( e3639 );
  2346.         if  ( NEQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L6244;
  2347.         X6 = PAIR_CAR( X5 );
  2348.         X4 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  2349.                           UNSIGNED( c1051 ) ) );
  2350.         goto L6245;
  2351. L6244:
  2352.         X4 = FALSEVALUE;
  2353. L6245:
  2354.         if  ( FALSE( X4 ) )  goto  L6277;
  2355.         if  ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ), 
  2356.                       3 ) )  goto  L6251;
  2357.         X5 = BOOLEAN( EQ( UNSIGNED( X2 ), 
  2358.                           UNSIGNED( _TSCP( 4 ) ) ) );
  2359.         goto L6252;
  2360. L6251:
  2361.         X5 = scrt2__3d_2dtwo( X2, _TSCP( 4 ) );
  2362. L6252:
  2363.         if  ( FALSE( X5 ) )  goto  L6277;
  2364.         if  ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) )  goto  L6257;
  2365.         X6 = BOOLEAN( EQ( UNSIGNED( X1 ), 
  2366.                           UNSIGNED( _TSCP( 0 ) ) ) );
  2367.         goto L6258;
  2368. L6257:
  2369.         X6 = scrt2_zero_3f( X1 );
  2370. L6258:
  2371.         if  ( FALSE( X6 ) )  goto  L6277;
  2372.         X8 = PAIR_CAR( e3639 );
  2373.         if  ( NEQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L6267;
  2374.         X10 = PAIR_CAR( X8 );
  2375.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  2376.                           UNSIGNED( c1051 ) ) );
  2377.         goto L6268;
  2378. L6267:
  2379.         X9 = FALSEVALUE;
  2380. L6268:
  2381.         if  ( FALSE( X9 ) )  goto  L6271;
  2382.         X7 = scrt1_cdddr( X8 );
  2383.         goto L6272;
  2384. L6271:
  2385.         X7 = X9;
  2386. L6272:
  2387.         if  ( FALSE( transform_m3644( v3637, X7 ) ) )  goto  L6277;
  2388.         X7 = CONS( v3638, EMPTYLIST );
  2389.         X7 = CONS( c4188, X7 );
  2390.         transform_log_2dtransform( CONS( v3637, X7 ) );
  2391.         X8 = sc_cons( v3638, EMPTYLIST );
  2392.         X7 = sc_cons( v3637, X8 );
  2393.         POPSTACKTRACE( X7 );
  2394. L6277:
  2395.         if  ( NEQ( TSCPTAG( v3638 ), PAIRTAG ) )  goto  L6278;
  2396.         X4 = PAIR_CAR( v3638 );
  2397.         if  ( NEQ( UNSIGNED( X4 ), UNSIGNED( c1051 ) ) )  goto  L6280;
  2398.         X6 = PAIR_CAR( v3638 );
  2399.         X5 = BOOLEAN( EQ( UNSIGNED( X6 ), 
  2400.                           UNSIGNED( c1051 ) ) );
  2401.         if  ( FALSE( X5 ) )  goto  L6285;
  2402.         X4 = scrt1_caddr( v3638 );
  2403.         goto L6286;
  2404. L6285:
  2405.         X4 = X5;
  2406. L6286:
  2407.         if  ( NEQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L6288;
  2408.         X5 = PAIR_CAR( X4 );
  2409.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1874 ) ) )  goto  L6290;
  2410.         if  ( TRUE( plist_get( v3637, c1824 ) ) )  goto  L6293;
  2411.         X10 = PAIR_CAR( v3638 );
  2412.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  2413.                           UNSIGNED( c1051 ) ) );
  2414.         if  ( FALSE( X9 ) )  goto  L6299;
  2415.         X8 = scrt1_caddr( v3638 );
  2416.         goto L6300;
  2417. L6299:
  2418.         X8 = X9;
  2419. L6300:
  2420.         if  ( NEQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L6302;
  2421.         X10 = PAIR_CAR( X8 );
  2422.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  2423.                           UNSIGNED( c1874 ) ) );
  2424.         goto L6303;
  2425. L6302:
  2426.         X9 = FALSEVALUE;
  2427. L6303:
  2428.         if  ( FALSE( X9 ) )  goto  L6306;
  2429.         X7 = scrt1_cdddr( X8 );
  2430.         goto L6307;
  2431. L6306:
  2432.         X7 = X9;
  2433. L6307:
  2434.         X6 = scrt1_last_2dpair( X7 );
  2435.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L6309;
  2436.         scrt1__24__car_2derror( X6 );
  2437. L6309:
  2438.         X5 = PAIR_CAR( X6 );
  2439.         if  ( NEQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L6295;
  2440.         X10 = PAIR_CAR( v3638 );
  2441.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  2442.                           UNSIGNED( c1051 ) ) );
  2443.         if  ( FALSE( X9 ) )  goto  L6315;
  2444.         X8 = scrt1_caddr( v3638 );
  2445.         goto L6316;
  2446. L6315:
  2447.         X8 = X9;
  2448. L6316:
  2449.         if  ( NEQ( TSCPTAG( X8 ), PAIRTAG ) )  goto  L6318;
  2450.         X10 = PAIR_CAR( X8 );
  2451.         X9 = BOOLEAN( EQ( UNSIGNED( X10 ), 
  2452.                           UNSIGNED( c1874 ) ) );
  2453.         goto L6319;
  2454. L6318:
  2455.         X9 = FALSEVALUE;
  2456. L6319:
  2457.         if  ( FALSE( X9 ) )  goto  L6322;
  2458.         X7 = scrt1_cdddr( X8 );
  2459.         goto L6323;
  2460. L6322:
  2461.         X7 = X9;
  2462. L6323:
  2463.         X6 = scrt1_last_2dpair( X7 );
  2464.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L6326;
  2465.         scrt1__24__car_2derror( X6 );
  2466. L6326:
  2467.         X7 = PAIR_CAR( X6 );
  2468.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L6329;
  2469.         scrt1__24__car_2derror( X7 );
  2470. L6329:
  2471.         X5 = PAIR_CAR( X7 );
  2472.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1825 ) ) )  goto  L6311;
  2473.         plist_put( v3637, c1824, c1825 );
  2474.         POPSTACKTRACE( c1825 );
  2475. L6311:
  2476.         POPSTACKTRACE( c2909 );
  2477. L6295:
  2478.         POPSTACKTRACE( c2909 );
  2479. L6293:
  2480.         POPSTACKTRACE( c2909 );
  2481. L6290:
  2482.         POPSTACKTRACE( c2909 );
  2483. L6288:
  2484.         POPSTACKTRACE( c2909 );
  2485. L6280:
  2486.         POPSTACKTRACE( c2909 );
  2487. L6278:
  2488.         POPSTACKTRACE( c2909 );
  2489. }
  2490.  
  2491. DEFTSCP( transform_log_2dtransform_v );
  2492. DEFSTRING( t6332, "LOG-TRANSFORM", 13 );
  2493. EXTERNTSCPP( scrt6_newline );
  2494. EXTERNTSCP( scrt6_newline_v );
  2495.  
  2496. TSCP  transform_log_2dtransform( e4321 )
  2497.         TSCP  e4321;
  2498. {
  2499.         TSCP  X3, X2, X1;
  2500.  
  2501.         PUSHSTACKTRACE( U_TX( ADR( t6332 ) ) );
  2502.         X1 = SYMBOL_VALUE( log_3f_v );
  2503.         X1 = UNKNOWNCALL( X1, 1 );
  2504.         if  ( FALSE( VIA( PROCEDURE_CODE( X1 ) )( c2779, 
  2505.                                                   PROCEDURE_CLOSURE( X1 ) ) )
  2506.             )  goto  L6334;
  2507.         X1 = e4321;
  2508. L6338:
  2509.         if  ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) )  goto  L6339;
  2510.         X2 = SYMBOL_VALUE( sc_2dicode_v );
  2511.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L6343;
  2512.         scrt1__24__car_2derror( X1 );
  2513. L6343:
  2514.         X3 = CONS( PAIR_CAR( X1 ), EMPTYLIST );
  2515.         scrt6_format( X2, CONS( c4346, X3 ) );
  2516.         X1 = PAIR_CDR( X1 );
  2517.         goto L6338;
  2518. L6339:
  2519.         POPSTACKTRACE( scrt6_newline( CONS( SYMBOL_VALUE( sc_2dicode_v ), 
  2520.                                             EMPTYLIST ) ) );
  2521. L6334:
  2522.         POPSTACKTRACE( FALSEVALUE );
  2523. }
  2524.  
  2525. DEFTSCP( transform_to_2dvalue_e947c03_v );
  2526. DEFSTRING( t6346, "TRANSFORM-VAR-TO-VALUE", 22 );
  2527. EXTERNTSCPP( scrt1_assoc );
  2528. EXTERNTSCP( scrt1_assoc_v );
  2529.  
  2530. TSCP  transform_to_2dvalue_e947c03( l4348, e4349, s4350 )
  2531.         TSCP  l4348, e4349, s4350;
  2532. {
  2533.         TSCP  X8, X7, X6, X5, X4, X3, X2, X1;
  2534.  
  2535.         PUSHSTACKTRACE( U_TX( ADR( t6346 ) ) );
  2536. L6347:
  2537.         l4348 = CONS( l4348, EMPTYLIST );
  2538.         X1 = scrt1_assoc( e4349, s4350 );
  2539.         if  ( FALSE( X1 ) )  goto  L6349;
  2540.         if  ( EQ( TSCPTAG( X1 ), PAIRTAG ) )  goto  L6352;
  2541.         scrt1__24__cdr_2derror( X1 );
  2542. L6352:
  2543.         X3 = PAIR_CDR( X1 );
  2544.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L6355;
  2545.         scrt1__24__car_2derror( X3 );
  2546. L6355:
  2547.         X2 = PAIR_CAR( X3 );
  2548.         e4349 = X2;
  2549.         l4348 = PAIR_CAR( l4348 );
  2550.         goto L6347;
  2551. L6349:
  2552.         X2 = BOOLEAN( EQ( TSCPTAG( e4349 ), PAIRTAG ) );
  2553.         if  ( FALSE( X2 ) )  goto  L6398;
  2554.         if  ( EQ( TSCPTAG( e4349 ), PAIRTAG ) )  goto  L6364;
  2555.         scrt1__24__car_2derror( e4349 );
  2556. L6364:
  2557.         X3 = PAIR_CAR( e4349 );
  2558.         if  ( NEQ( UNSIGNED( X3 ), UNSIGNED( c1051 ) ) )  goto  L6398;
  2559.         X5 = PAIR_CAR( e4349 );
  2560.         X4 = BOOLEAN( EQ( UNSIGNED( X5 ), 
  2561.                           UNSIGNED( c1051 ) ) );
  2562.         if  ( FALSE( X4 ) )  goto  L6368;
  2563.         X3 = scrt1_caddr( e4349 );
  2564.         goto L6369;
  2565. L6368:
  2566.         X3 = X4;
  2567. L6369:
  2568.         X4 = transform_to_2dvalue_e947c03( PAIR_CAR( l4348 ), 
  2569.                                            X3, s4350 );
  2570.         X6 = PAIR_CDR( e4349 );
  2571.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L6374;
  2572.         scrt1__24__cdr_2derror( X6 );
  2573. L6374:
  2574.         X5 = PAIR_CDR( X6 );
  2575.         if  ( EQ( TSCPTAG( X5 ), PAIRTAG ) )  goto  L6377;
  2576.         scrt6_error( c1125, c1126, CONS( X5, EMPTYLIST ) );
  2577. L6377:
  2578.         SETGEN( PAIR_CAR( X5 ), X4 );
  2579.         X8 = PAIR_CAR( e4349 );
  2580.         X7 = BOOLEAN( EQ( UNSIGNED( X8 ), 
  2581.                           UNSIGNED( c1051 ) ) );
  2582.         if  ( FALSE( X7 ) )  goto  L6381;
  2583.         X6 = scrt1_cdddr( e4349 );
  2584.         goto L6382;
  2585. L6381:
  2586.         X6 = X7;
  2587. L6382:
  2588.         X5 = transform_to_2dvalue_e947c03( PAIR_CAR( l4348 ), 
  2589.                                            X6, s4350 );
  2590.         X7 = PAIR_CDR( e4349 );
  2591.         if  ( EQ( TSCPTAG( X7 ), PAIRTAG ) )  goto  L6386;
  2592.         scrt1__24__cdr_2derror( X7 );
  2593. L6386:
  2594.         X6 = PAIR_CDR( X7 );
  2595.         if  ( EQ( TSCPTAG( X6 ), PAIRTAG ) )  goto  L6389;
  2596.         scrt6_error( c1358, c1126, CONS( X6, EMPTYLIST ) );
  2597. L6389:
  2598.         SETGEN( PAIR_CDR( X6 ), X5 );
  2599.         if  ( EQ( UNSIGNED( X3 ), UNSIGNED( X4 ) ) )  goto  L6391;
  2600.         if  ( NEQ( TSCPTAG( X4 ), PAIRTAG ) )  goto  L6393;
  2601.         X5 = PAIR_CAR( X4 );
  2602.         if  ( NEQ( UNSIGNED( X5 ), UNSIGNED( c1067 ) ) )  goto  L6395;
  2603.         POPSTACKTRACE( transform_l_2dlambda_8f20e049( e4349 ) );
  2604. L6395:
  2605.         POPSTACKTRACE( e4349 );
  2606. L6393:
  2607.         POPSTACKTRACE( e4349 );
  2608. L6391:
  2609.         POPSTACKTRACE( e4349 );
  2610. L6398:
  2611.         if  ( NEQ( TSCPTAG( e4349 ), PAIRTAG ) )  goto  L6399;
  2612.         X1 = PAIR_CAR( e4349 );
  2613.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1874 ) ) )  goto  L6405;
  2614.         POPSTACKTRACE( e4349 );
  2615. L6399:
  2616.         POPSTACKTRACE( e4349 );
  2617. L6405:
  2618.         X1 = PAIR_CAR( e4349 );
  2619.         if  ( NEQ( UNSIGNED( X1 ), UNSIGNED( c1067 ) ) )  goto  L6407;
  2620.         X3 = PAIR_CAR( e4349 );
  2621.         X2 = BOOLEAN( EQ( UNSIGNED( X3 ), 
  2622.                           UNSIGNED( c1067 ) ) );
  2623.         if  ( FALSE( X2 ) )  goto  L6412;
  2624.         X3 = PAIR_CDR( e4349 );
  2625.         if  ( EQ( TSCPTAG( X3 ), PAIRTAG ) )  goto  L6416;
  2626.         scrt1__24__car_2derror( X3 );
  2627. L6416:
  2628.         X1 = PAIR_CAR( X3 );
  2629.         goto L6413;
  2630. L6412:
  2631.         X1 = X2;
  2632. L6413:
  2633.         SETGEN( PAIR_CAR( l4348 ), X1 );
  2634. L6407:
  2635.         X2 = PAIR_CAR( e4349 );
  2636.         X1 = transform_to_2dvalue_e947c03( PAIR_CAR( l4348 ), 
  2637.                                            X2, s4350 );
  2638.         SETGEN( PAIR_CAR( e4349 ), X1 );
  2639.         X2 = PAIR_CDR( e4349 );
  2640.         X1 = transform_to_2dvalue_e947c03( PAIR_CAR( l4348 ), 
  2641.                                            X2, s4350 );
  2642.         SETGEN( PAIR_CDR( e4349 ), X1 );
  2643.         POPSTACKTRACE( e4349 );
  2644. }
  2645.  
  2646. static void  init_modules( compiler_version )
  2647.         char *compiler_version;
  2648. {
  2649.         scrt2__init();
  2650.         plist__init();
  2651.         scrt6__init();
  2652.         scrt1__init();
  2653.         MAXDISPLAY( 0 );
  2654. }
  2655.  
  2656. void  transform__init()
  2657. {
  2658.         static int  init = 0;
  2659.         if  (init)  return;
  2660.         init = 1;
  2661.         INITHEAP( 0, 0, 0, 0 );
  2662.         init_constants();
  2663.         init_modules( "(transform SCHEME->C COMPILER 28sep90jfb)" );
  2664.         INITIALIZEVAR( U_TX( ADR( t4983 ) ), 
  2665.                        ADR( transform_transform_2dstack_v ), 
  2666.                        EMPTYLIST );
  2667.         INITIALIZEVAR( U_TX( ADR( t4984 ) ), 
  2668.                        ADR( transform_transform_v ), 
  2669.                        MAKEPROCEDURE( 1, 
  2670.                                       0, 
  2671.                                       transform_transform, EMPTYLIST ) );
  2672.         INITIALIZEVAR( U_TX( ADR( t4988 ) ), 
  2673.                        ADR( transform_transformx_v ), 
  2674.                        MAKEPROCEDURE( 1, 
  2675.                                       0, 
  2676.                                       transform_transformx, EMPTYLIST ) );
  2677.         INITIALIZEVAR( U_TX( ADR( t5187 ) ), 
  2678.                        ADR( transform_transform_2dif1_v ), 
  2679.                        MAKEPROCEDURE( 1, 
  2680.                                       0, 
  2681.                                       transform_transform_2dif1, 
  2682.                                       EMPTYLIST ) );
  2683.         INITIALIZEVAR( U_TX( ADR( t5538 ) ), 
  2684.                        ADR( transform_transform_2dif2_v ), 
  2685.                        MAKEPROCEDURE( 1, 
  2686.                                       0, 
  2687.                                       transform_transform_2dif2, 
  2688.                                       EMPTYLIST ) );
  2689.         INITIALIZEVAR( U_TX( ADR( t5659 ) ), 
  2690.                        ADR( transform_log_2dbefore_v ), 
  2691.                        MAKEPROCEDURE( 1, 
  2692.                                       0, 
  2693.                                       transform_log_2dbefore, 
  2694.                                       EMPTYLIST ) );
  2695.         INITIALIZEVAR( U_TX( ADR( t5664 ) ), 
  2696.                        ADR( transform_log_2dafter_v ), 
  2697.                        MAKEPROCEDURE( 1, 
  2698.                                       0, 
  2699.                                       transform_log_2dafter, EMPTYLIST ) );
  2700.         INITIALIZEVAR( U_TX( ADR( t5669 ) ), 
  2701.                        ADR( transform_l_2dlambda_8f20e049_v ), 
  2702.                        MAKEPROCEDURE( 1, 
  2703.                                       0, 
  2704.                                       transform_l_2dlambda_8f20e049, 
  2705.                                       EMPTYLIST ) );
  2706.         INITIALIZEVAR( U_TX( ADR( t5879 ) ), 
  2707.                        ADR( transform_bda_2dbind_8a6984c8_v ), 
  2708.                        MAKEPROCEDURE( 2, 
  2709.                                       0, 
  2710.                                       transform_bda_2dbind_8a6984c8, 
  2711.                                       EMPTYLIST ) );
  2712.         INITIALIZEVAR( U_TX( ADR( t5892 ) ), 
  2713.                        ADR( transform_var_2duses_93ec09fc_v ), 
  2714.                        MAKEPROCEDURE( 2, 
  2715.                                       0, 
  2716.                                       transform_var_2duses_93ec09fc, 
  2717.                                       EMPTYLIST ) );
  2718.         INITIALIZEVAR( U_TX( ADR( t6027 ) ), 
  2719.                        ADR( transform_mbda_2dvar_cbbaf994_v ), 
  2720.                        MAKEPROCEDURE( 3, 
  2721.                                       0, 
  2722.                                       transform_mbda_2dvar_cbbaf994, 
  2723.                                       EMPTYLIST ) );
  2724.         INITIALIZEVAR( U_TX( ADR( t6332 ) ), 
  2725.                        ADR( transform_log_2dtransform_v ), 
  2726.                        MAKEPROCEDURE( 0, 
  2727.                                       1, 
  2728.                                       transform_log_2dtransform, 
  2729.                                       EMPTYLIST ) );
  2730.         INITIALIZEVAR( U_TX( ADR( t6346 ) ), 
  2731.                        ADR( transform_to_2dvalue_e947c03_v ), 
  2732.                        MAKEPROCEDURE( 3, 
  2733.                                       0, 
  2734.                                       transform_to_2dvalue_e947c03, 
  2735.                                       EMPTYLIST ) );
  2736.         return;
  2737. }
  2738.