cyclone/examples/hello-library/int-test/base.c

/**
 ** This file was automatically generated by the Cyclone scheme compiler
 **
 ** (c) 2014 Justin Ethier
 ** Version 0.0.1 (Pre-release)
 **
 **/

#define funcall0(cfn) ((cfn)->fn)(0,cfn)
/* Return to continuation after checking for stack overflow. */
#define return_funcall0(cfn) \
{char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[0]; \
     GC(cfn,buf,0); return; \
 } else {funcall0((closure) (cfn)); return;}}

/* Evaluate an expression after checking for stack overflow. */
#define return_check0(_fn) { \
 char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[0];  \
     mclosure0(c1, _fn); \
     GC(&c1, buf, 0); return; \
 } else { (_fn)(0,(closure)_fn); }}

#define funcall1(cfn,a1) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(0, (closure)a1, cfn); } else { ((cfn)->fn)(1,cfn,a1);}
/* Return to continuation after checking for stack overflow. */
#define return_funcall1(cfn,a1) \
{char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[1]; buf[0] = a1;\
     GC(cfn,buf,1); return; \
 } else {funcall1((closure) (cfn),a1); return;}}

/* Evaluate an expression after checking for stack overflow. */
#define return_check1(_fn,a1) { \
 char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[1]; buf[0] = a1; \
     mclosure0(c1, _fn); \
     GC(&c1, buf, 1); return; \
 } else { (_fn)(1,(closure)_fn,a1); }}

#define funcall2(cfn,a1,a2) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(1, (closure)a1, cfn,a2); } else { ((cfn)->fn)(2,cfn,a1,a2);}
/* Return to continuation after checking for stack overflow. */
#define return_funcall2(cfn,a1,a2) \
{char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[2]; buf[0] = a1;buf[1] = a2;\
     GC(cfn,buf,2); return; \
 } else {funcall2((closure) (cfn),a1,a2); return;}}

/* Evaluate an expression after checking for stack overflow. */
#define return_check2(_fn,a1,a2) { \
 char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[2]; buf[0] = a1;buf[1] = a2; \
     mclosure0(c1, _fn); \
     GC(&c1, buf, 2); return; \
 } else { (_fn)(2,(closure)_fn,a1,a2); }}

#define funcall3(cfn,a1,a2,a3) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(2, (closure)a1, cfn,a2,a3); } else { ((cfn)->fn)(3,cfn,a1,a2,a3);}
/* Return to continuation after checking for stack overflow. */
#define return_funcall3(cfn,a1,a2,a3) \
{char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
     GC(cfn,buf,3); return; \
 } else {funcall3((closure) (cfn),a1,a2,a3); return;}}

/* Evaluate an expression after checking for stack overflow. */
#define return_check3(_fn,a1,a2,a3) { \
 char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
     mclosure0(c1, _fn); \
     GC(&c1, buf, 3); return; \
 } else { (_fn)(3,(closure)_fn,a1,a2,a3); }}

#define funcall4(cfn,a1,a2,a3,a4) if (type_of(cfn) == cons_tag || prim(cfn)) { Cyc_apply(3, (closure)a1, cfn,a2,a3,a4); } else { ((cfn)->fn)(4,cfn,a1,a2,a3,a4);}
/* Return to continuation after checking for stack overflow. */
#define return_funcall4(cfn,a1,a2,a3,a4) \
{char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
     GC(cfn,buf,4); return; \
 } else {funcall4((closure) (cfn),a1,a2,a3,a4); return;}}

/* Evaluate an expression after checking for stack overflow. */
#define return_check4(_fn,a1,a2,a3,a4) { \
 char stack; \
 if (check_overflow(&stack,stack_limit1)) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
     mclosure0(c1, _fn); \
     GC(&c1, buf, 4); return; \
 } else { (_fn)(4,(closure)_fn,a1,a2,a3,a4); }}

#include "cyclone.h"
object __glo_Cyc_91remove_91exception_91handler = nil;
object __glo_Cyc_91add_91exception_91handler = nil;
object __glo__85exception_91handler_91stack_85 = nil;
object __glo_with_91exception_91handler = nil;
object __glo_raise_91continuable = nil;
object __glo_raise = nil;
object __glo_error = nil;
object __glo_make_91string = nil;
object __glo_Cyc_91obj_123_127 = nil;
object __glo_symbol_123_127 = nil;
object __glo_boolean_123_127 = nil;
object __glo_reverse = nil;
object __glo_list_91set_67 = nil;
object __glo_list_91ref = nil;
object __glo_list_91tail = nil;
object __glo_for_91each = nil;
object __glo_map = nil;
object __glo_list_91copy = nil;
object __glo_make_91list = nil;
object __glo__list = nil;
object __glo_append = nil;
object __glo_negative_127 = nil;
object __glo_positive_127 = nil;
object __glo_zero_127 = nil;
object __glo_list_127 = nil;
object __glo_not = nil;
object __glo_foldr = nil;
object __glo_foldl = nil;
object __glo_digit_91value = nil;
object __glo_char_91whitespace_127 = nil;
object __glo_char_91numeric_127 = nil;
object __glo_char_91lower_91case_127 = nil;
object __glo_char_91upper_91case_127 = nil;
object __glo_char_91alphabetic_127 = nil;
object __glo_char_91downcase = nil;
object __glo_char_91upcase = nil;
object __glo_char_125_123_127 = nil;
object __glo_char_121_123_127 = nil;
object __glo_char_125_127 = nil;
object __glo_char_121_127 = nil;
object __glo_char_123_127 = nil;
object __glo_Cyc_91bin_91op_91char = nil;
object __glo_Cyc_91bin_91op = nil;
object __glo_call_91with_91current_91continuation = nil;
object __glo__85Cyc_91version_91banner_85 = nil;
object __glo__85features_85 = nil;
object __glo__85c_91file_91header_91comment_85 = nil;
object __glo__85version_91banner_85 = nil;
object __glo__85version_85 = nil;
object __glo_call_95cc = nil;
#include "runtime.h"
defsymbol(cyclone, cyclone);
defsymbol(continuable, continuable);
defsymbol(raised, raised);
static void __lambda_191(int argc, closure _) ;
static void __lambda_190(int argc, closure _,object r_73370) ;
static void __lambda_189(int argc, closure _,object r_73377) ;
static void __lambda_188(int argc, closure _,object r_73371) ;
static void __lambda_187(int argc, closure _,object r_73376) ;
static void __lambda_186(int argc, closure _,object r_73372) ;
static void __lambda_185(int argc, closure _,object r_73375) ;
static void __lambda_184(int argc, closure _,object r_73373) ;
static void __lambda_183(int argc, closure _,object r_73374) ;
static void __lambda_182(int argc, closure _,object k_73366) ;
static void __lambda_181(int argc, object self_73515, object r_73369) ;
static void __lambda_180(int argc, object self_73516, object r_73367) ;
static void __lambda_179(int argc, object self_73517, object r_73368) ;
static void __lambda_178(int argc, closure _,object k_73362, object h_73107) ;
static void __lambda_177(int argc, object self_73514, object r_73363) ;
static void __lambda_176(int argc, closure _,object k_73342, object handler_73100, object thunk_73101) ;
static void __lambda_175(int argc, object self_73495, object k_73348, object obj_73104) ;
static void __lambda_174(int argc, object self_73496, object r_73349) ;
static void __lambda_173(int argc, object self_73497, object result_73105, object continuable_127_73106) ;
static void __lambda_172(int argc, object self_73498, object result_73105) ;
static void __lambda_171(int argc, object self_73499, object r_73350) ;
static void __lambda_170(int argc, object self_73500, object r_73353) ;
static void __lambda_169(int argc, object self_73501, object r_73352) ;
static void __lambda_168(int argc, object self_73502, object r_73351) ;
static void __lambda_167(int argc, object self_73503, object k_73354) ;
static void __lambda_166(int argc, object self_73504, object r_73355) ;
static void __lambda_165(int argc, object self_73505, object r_73356) ;
static void __lambda_164(int argc, object self_73506, object r_73357) ;
static void __lambda_163(int argc, object self_73507, object r_73343) ;
static void __lambda_162(int argc, object self_73508, object result_73102, object my_91handler_73103) ;
static void __lambda_161(int argc, object self_73509, object result_73102) ;
static void __lambda_160(int argc, object self_73510, object r_73344) ;
static void __lambda_159(int argc, object self_73511, object r_73347) ;
static void __lambda_158(int argc, object self_73512, object r_73345) ;
static void __lambda_157(int argc, object self_73513, object r_73346) ;
static void __lambda_156(int argc, closure _,object k_73336, object obj_7399) ;
static void __lambda_155(int argc, object self_73492, object r_73337) ;
static void __lambda_154(int argc, object self_73493, object r_73339) ;
static void __lambda_153(int argc, object self_73494, object r_73338) ;
static void __lambda_152(int argc, closure _,object k_73330, object obj_7398) ;
static void __lambda_151(int argc, object self_73489, object r_73331) ;
static void __lambda_150(int argc, object self_73490, object r_73333) ;
static void __lambda_149(int argc, object self_73491, object r_73332) ;
static void __lambda_148(int argc, closure _,object k_73326, object msg_7396, object args_7397_raw, ...) ;
static void __lambda_147(int argc, object self_73488, object r_73327) ;
static void __lambda_146(int argc, closure _,object k_73318, object k_7393, object fill_7394_raw, ...) ;
static void __lambda_145(int argc, object self_73482, object r_73319) ;
static void __lambda_144(int argc, object self_73483, object fill_85_7395) ;
static void __lambda_143(int argc, object self_73484, object r_73321) ;
static void __lambda_142(int argc, object self_73485, object r_73320) ;
static void __lambda_141(int argc, object self_73486, object k_73322) ;
static void __lambda_140(int argc, object self_73487, object r_73323) ;
static void __lambda_139(int argc, closure _,object k_73307, object type_127_7388, object obj_7389, object objs_7390) ;
static void __lambda_138(int argc, object self_73474, object r_73308) ;
static void __lambda_137(int argc, object self_73475, object k_73310, object return_7391) ;
static void __lambda_136(int argc, object self_73476, object k_73313, object o_7392) ;
static void __lambda_135(int argc, object self_73477, object r_73315) ;
static void __lambda_134(int argc, object self_73478, object r_73314) ;
static void __lambda_133(int argc, object self_73479, object r_73312) ;
static void __lambda_132(int argc, object self_73480, object r_73311) ;
static void __lambda_131(int argc, object self_73481, object r_73309) ;
static void __lambda_130(int argc, closure _,object k_73303, object sym1_7385, object sym2_7386, object syms_7387_raw, ...) ;
static void __lambda_129(int argc, object self_73473, object r_73304) ;
static void __lambda_128(int argc, closure _,object k_73299, object b1_7382, object b2_7383, object bs_7384_raw, ...) ;
static void __lambda_127(int argc, object self_73472, object r_73300) ;
static void __lambda_126(int argc, closure _,object k_73295, object lst_7381) ;
static void __lambda_125(int argc, object self_73471, object r_73296) ;
static void __lambda_124(int argc, closure _,object k_73291, object lst_7377, object k_7378, object obj_7379) ;
static void __lambda_123(int argc, object self_73469, object r_73292) ;
static void __lambda_122(int argc, object self_73470, object kth_7380) ;
static void __lambda_121(int argc, closure _,object k_73287, object lst_7375, object k_7376) ;
static void __lambda_120(int argc, object self_73468, object r_73288) ;
static void __lambda_119(int argc, closure _,object k_73281, object lst_7373, object k_7374) ;
static void __lambda_118(int argc, object self_73465, object r_73282) ;
static void __lambda_117(int argc, object self_73466, object r_73283) ;
static void __lambda_116(int argc, object self_73467, object r_73284) ;
static void __lambda_115(int argc, closure _,object k_73274, object f_7371, object lst_7372) ;
static void __lambda_114(int argc, object self_73460, object r_73275) ;
static void __lambda_113(int argc, object self_73461) ;
static void __lambda_112(int argc, object self_73462, object r_73278) ;
static void __lambda_111(int argc, object self_73463, object r_73276) ;
static void __lambda_110(int argc, object self_73464, object r_73277) ;
static void __lambda_109(int argc, closure _,object k_73267, object func_7367, object lst_7368) ;
static void __lambda_108(int argc, object self_73456, object k_73270, object x_7369, object y_7370) ;
static void __lambda_107(int argc, object self_73457, object r_73271) ;
static void __lambda_106(int argc, object self_73458, object r_73268) ;
static void __lambda_105(int argc, object self_73459, object r_73269) ;
static void __lambda_104(int argc, closure _,object k_73261, object lst_7364) ;
static void __lambda_103(int argc, object self_73453, object k_73264, object x_7365, object y_7366) ;
static void __lambda_102(int argc, object self_73454, object r_73262) ;
static void __lambda_101(int argc, object self_73455, object r_73263) ;
static void __lambda_100(int argc, closure _,object k_73248, object k_7358, object fill_7359_raw, ...) ;
static void __lambda_99(int argc, object self_73439, object x_7360, object make_7361) ;
static void __lambda_98(int argc, object self_73440, object x_7360) ;
static void __lambda_97(int argc, object self_73441, object make_7361) ;
static void __lambda_96(int argc, object self_73442) ;
static void __lambda_95(int argc, object self_73443, object r_73256) ;
static void __lambda_94(int argc, object self_73444, object r_73249) ;
static void __lambda_93(int argc, object self_73445, object k_73252, object n_7362, object obj_7363) ;
static void __lambda_92(int argc, object self_73446, object r_73253) ;
static void __lambda_91(int argc, object self_73447, object r_73255) ;
static void __lambda_90(int argc, object self_73448, object r_73254) ;
static void __lambda_89(int argc, object self_73449, object r_73251) ;
static void __lambda_88(int argc, object self_73450, object r_73250) ;
static void __lambda_87(int argc, object self_73451, object k_73257) ;
static void __lambda_86(int argc, object self_73452, object r_73258) ;
static void __lambda_85(int argc, closure _,object k_73245, object objs_7357_raw, ...) ;
static void __lambda_84(int argc, closure _,object k_73230, object lst_7347_raw, ...) ;
static void __lambda_83(int argc, object self_73424, object append_912_7349) ;
static void __lambda_82(int argc, object self_73425, object append_912_7349) ;
static void __lambda_81(int argc, object self_73426, object append_912_7350) ;
static void __lambda_80(int argc, object self_73427, object k_73240, object inlist_7351, object alist_7352) ;
static void __lambda_79(int argc, object self_73428, object k_73242, object ap_7353, object in_7354) ;
static void __lambda_78(int argc, object self_73429, object r_73241) ;
static void __lambda_77(int argc, object self_73430, object r_73239) ;
static void __lambda_76(int argc, object self_73431, object r_73231) ;
static void __lambda_75(int argc, object self_73432, object r_73232) ;
static void __lambda_74(int argc, object self_73433, object r_73238) ;
static void __lambda_73(int argc, object self_73434, object r_73233) ;
static void __lambda_72(int argc, object self_73435, object k_73237, object a_7355, object b_7356) ;
static void __lambda_71(int argc, object self_73436, object r_73234) ;
static void __lambda_70(int argc, object self_73437, object r_73235) ;
static void __lambda_69(int argc, object self_73438, object r_73236) ;
static void __lambda_68(int argc, closure _,object k_73227, object n_7346) ;
static void __lambda_67(int argc, closure _,object k_73224, object n_7345) ;
static void __lambda_66(int argc, closure _,object k_73221, object n_7344) ;
static void __lambda_65(int argc, closure _,object k_73211, object o_7339) ;
static void __lambda_64(int argc, object self_73414, object _191list_127_7341) ;
static void __lambda_63(int argc, object self_73415, object _191list_127_7341) ;
static void __lambda_62(int argc, object self_73416, object _191list_127_7342) ;
static void __lambda_61(int argc, object self_73417, object k_73215, object obj_7343) ;
static void __lambda_60(int argc, object self_73418, object r_73216) ;
static void __lambda_59(int argc, object self_73419, object r_73217) ;
static void __lambda_58(int argc, object self_73420, object r_73218) ;
static void __lambda_57(int argc, object self_73421, object r_73214) ;
static void __lambda_56(int argc, object self_73422, object r_73212) ;
static void __lambda_55(int argc, object self_73423, object r_73213) ;
static void __lambda_54(int argc, closure _,object k_73208, object x_7338) ;
static void __lambda_53(int argc, closure _,object k_73201, object func_7335, object end_7336, object lst_7337) ;
static void __lambda_52(int argc, object self_73410, object r_73202) ;
static void __lambda_51(int argc, object self_73411, object r_73203) ;
static void __lambda_50(int argc, object self_73412, object r_73205) ;
static void __lambda_49(int argc, object self_73413, object r_73204) ;
static void __lambda_48(int argc, closure _,object k_73194, object func_7332, object accum_7333, object lst_7334) ;
static void __lambda_47(int argc, object self_73406, object r_73195) ;
static void __lambda_46(int argc, object self_73407, object r_73198) ;
static void __lambda_45(int argc, object self_73408, object r_73196) ;
static void __lambda_44(int argc, object self_73409, object r_73197) ;
static void __lambda_43(int argc, closure _,object k_73189, object c_7331) ;
static void __lambda_42(int argc, object self_73404, object r_73190) ;
static void __lambda_41(int argc, object self_73405, object r_73191) ;
static void __lambda_40(int argc, closure _,object k_73185, object c_7330) ;
static void __lambda_39(int argc, object self_73403, object r_73186) ;
static void __lambda_38(int argc, closure _,object k_73181, object c_7329) ;
static void __lambda_37(int argc, object self_73402, object r_73182) ;
static void __lambda_36(int argc, closure _,object k_73177, object c_7328) ;
static void __lambda_35(int argc, object self_73401, object r_73178) ;
static void __lambda_34(int argc, closure _,object k_73173, object c_7327) ;
static void __lambda_33(int argc, object self_73400, object r_73174) ;
static void __lambda_32(int argc, closure _,object k_73169, object c_7326) ;
static void __lambda_31(int argc, object self_73399, object r_73170) ;
static void __lambda_30(int argc, closure _,object k_73163, object c_7325) ;
static void __lambda_29(int argc, object self_73396, object r_73164) ;
static void __lambda_28(int argc, object self_73397, object r_73166) ;
static void __lambda_27(int argc, object self_73398, object r_73165) ;
static void __lambda_26(int argc, closure _,object k_73157, object c_7324) ;
static void __lambda_25(int argc, object self_73393, object r_73158) ;
static void __lambda_24(int argc, object self_73394, object r_73160) ;
static void __lambda_23(int argc, object self_73395, object r_73159) ;
static void __lambda_22(int argc, closure _,object k_73153, object c1_7321, object c2_7322, object cs_7323_raw, ...) ;
static void __lambda_21(int argc, object self_73392, object r_73154) ;
static void __lambda_20(int argc, closure _,object k_73149, object c1_7318, object c2_7319, object cs_7320_raw, ...) ;
static void __lambda_19(int argc, object self_73391, object r_73150) ;
static void __lambda_18(int argc, closure _,object k_73145, object c1_7315, object c2_7316, object cs_7317_raw, ...) ;
static void __lambda_17(int argc, object self_73390, object r_73146) ;
static void __lambda_16(int argc, closure _,object k_73141, object c1_7312, object c2_7313, object cs_7314_raw, ...) ;
static void __lambda_15(int argc, object self_73389, object r_73142) ;
static void __lambda_14(int argc, closure _,object k_73137, object c1_739, object c2_7310, object cs_7311_raw, ...) ;
static void __lambda_13(int argc, object self_73388, object r_73138) ;
static void __lambda_12(int argc, closure _,object k_73130, object cmp_734, object c_735, object cs_736) ;
static void __lambda_11(int argc, object self_73384, object k_73132, object x_737, object y_738) ;
static void __lambda_10(int argc, object self_73385, object r_73133) ;
static void __lambda_9(int argc, object self_73386, object r_73134) ;
static void __lambda_8(int argc, object self_73387, object r_73131) ;
static void __lambda_7(int argc, closure _,object k_73122, object cmp_731, object x_732, object lst_733) ;
static void __lambda_6(int argc, object self_73379, object r_73123) ;
static void __lambda_5(int argc, object self_73380, object r_73127) ;
static void __lambda_4(int argc, object self_73381, object r_73124) ;
static void __lambda_3(int argc, object self_73382, object r_73125) ;
static void __lambda_2(int argc, object self_73383, object r_73126) ;
static void __lambda_1(int argc, closure _,object k, object f) ;
static void __lambda_0(int argc, object self_73378, object _191, object result) ;

static void __lambda_191(int argc, closure _) {
  make_int(c_731369, 0);
return_check1(__lambda_190,&c_731369);; 
}

static void __lambda_190(int argc, closure _,object r_73370) {
  make_string(c_731367, "\n              :@ \n            @@@  \n          @@@@:  \n        `@@@@@+  \n       .@@@+@@@      Cyclone  \n       @@     @@     An experimental Scheme compiler\n      ,@             https://github.com/justinethier/cyclone\n      '@        \n      .@        \n       @@     #@     (c) 2014 Justin Ethier\n       `@@@#@@@.     Version ");
make_string(c_731368, "\n        #@@@@@   \n        +@@@+    \n        @@#      \n      `@.  \n     \n");
string_type c_731366 = Cyc_string_append(3,&c_731367, __glo__85version_85, &c_731368);
return_check1(__lambda_189,&c_731366);; 
}

static void __lambda_189(int argc, closure _,object r_73377) {
  return_check1(__lambda_188,global_set(__glo__85version_91banner_85, r_73377));; 
}

static void __lambda_188(int argc, closure _,object r_73371) {
  make_string(c_731360, "/**\n ** This file was automatically generated by the Cyclone scheme compiler\n **\n ** (c) 2014 Justin Ethier\n ** Version ");
make_string(c_731361, "\n **\n **/\n");
string_type c_731359 = Cyc_string_append(3,&c_731360, __glo__85version_85, &c_731361);
return_check1(__lambda_187,&c_731359);; 
}

static void __lambda_187(int argc, closure _,object r_73376) {
  return_check1(__lambda_186,global_set(__glo__85c_91file_91header_91comment_85, r_73376));; 
}

static void __lambda_186(int argc, closure _,object r_73372) {
  make_cons(c_731354,quote_cyclone,nil);
return_check1(__lambda_185,&c_731354);; 
}

static void __lambda_185(int argc, closure _,object r_73375) {
  return_check1(__lambda_184,global_set(__glo__85features_85, r_73375));; 
}

static void __lambda_184(int argc, closure _,object r_73373) {
  return_check1(__lambda_183,nil);; 
}

static void __lambda_183(int argc, closure _,object r_73374) {
  __halt(global_set(__glo__85exception_91handler_91stack_85, r_73374)); 
}

static void __lambda_182(int argc, closure _,object k_73366) {
  
closureN_type c_731324;
c_731324.tag = closureN_tag;
 c_731324.fn = __lambda_181;
c_731324.num_elt = 1;
c_731324.elts = (object *)alloca(sizeof(object) * 1);
c_731324.elts[0] = k_73366;

return_funcall1((closure)&c_731324,  Cyc_is_null(__glo__85exception_91handler_91stack_85));; 
}

static void __lambda_181(int argc, object self_73515, object r_73369) {
  
closureN_type c_731326;
c_731326.tag = closureN_tag;
 c_731326.fn = __lambda_180;
c_731326.num_elt = 1;
c_731326.elts = (object *)alloca(sizeof(object) * 1);
c_731326.elts[0] = ((closureN)self_73515)->elts[0];

return_funcall2(  __glo_not,  &c_731326, r_73369);; 
}

static void __lambda_180(int argc, object self_73516, object r_73367) {
  if( !eq(boolean_f, r_73367) ){ 
  
closureN_type c_731328;
c_731328.tag = closureN_tag;
 c_731328.fn = __lambda_179;
c_731328.num_elt = 1;
c_731328.elts = (object *)alloca(sizeof(object) * 1);
c_731328.elts[0] = ((closureN)self_73516)->elts[0];

return_funcall1((closure)&c_731328,  cdr(__glo__85exception_91handler_91stack_85));
} else { 
  return_funcall1(  ((closureN)self_73516)->elts[0],  boolean_f);}
; 
}

static void __lambda_179(int argc, object self_73517, object r_73368) {
  return_funcall1(  ((closureN)self_73517)->elts[0],  global_set(__glo__85exception_91handler_91stack_85, r_73368));; 
}

static void __lambda_178(int argc, closure _,object k_73362, object h_73107) {
  
closureN_type c_731314;
c_731314.tag = closureN_tag;
 c_731314.fn = __lambda_177;
c_731314.num_elt = 1;
c_731314.elts = (object *)alloca(sizeof(object) * 1);
c_731314.elts[0] = k_73362;


make_cons(c_731321,h_73107, __glo__85exception_91handler_91stack_85);
return_funcall1((closure)&c_731314,  &c_731321);; 
}

static void __lambda_177(int argc, object self_73514, object r_73363) {
  return_funcall1(  ((closureN)self_73514)->elts[0],  global_set(__glo__85exception_91handler_91stack_85, r_73363));; 
}

static void __lambda_176(int argc, closure _,object k_73342, object handler_73100, object thunk_73101) {
  
closureN_type c_731232;
c_731232.tag = closureN_tag;
 c_731232.fn = __lambda_163;
c_731232.num_elt = 2;
c_731232.elts = (object *)alloca(sizeof(object) * 2);
c_731232.elts[0] = k_73342;
c_731232.elts[1] = thunk_73101;


closureN_type c_731258;
c_731258.tag = closureN_tag;
 c_731258.fn = __lambda_175;
c_731258.num_elt = 1;
c_731258.elts = (object *)alloca(sizeof(object) * 1);
c_731258.elts[0] = handler_73100;

return_funcall1((closure)&c_731232,  &c_731258);; 
}

static void __lambda_175(int argc, object self_73495, object k_73348, object obj_73104) {
  
closureN_type c_731260;
c_731260.tag = closureN_tag;
 c_731260.fn = __lambda_167;
c_731260.num_elt = 1;
c_731260.elts = (object *)alloca(sizeof(object) * 1);
c_731260.elts[0] = obj_73104;


closureN_type c_731280;
c_731280.tag = closureN_tag;
 c_731280.fn = __lambda_174;
c_731280.num_elt = 3;
c_731280.elts = (object *)alloca(sizeof(object) * 3);
c_731280.elts[0] = ((closureN)self_73495)->elts[0];
c_731280.elts[1] = k_73348;
c_731280.elts[2] = obj_73104;

return_funcall1((closure)&c_731260,  &c_731280);; 
}

static void __lambda_174(int argc, object self_73496, object r_73349) {
  
closureN_type c_731282;
c_731282.tag = closureN_tag;
 c_731282.fn = __lambda_173;
c_731282.num_elt = 3;
c_731282.elts = (object *)alloca(sizeof(object) * 3);
c_731282.elts[0] = ((closureN)self_73496)->elts[0];
c_731282.elts[1] = ((closureN)self_73496)->elts[1];
c_731282.elts[2] = ((closureN)self_73496)->elts[2];

return_funcall2((closure)&c_731282,  boolean_f, r_73349);; 
}

static void __lambda_173(int argc, object self_73497, object result_73105, object continuable_127_73106) {
  
closureN_type c_731284;
c_731284.tag = closureN_tag;
 c_731284.fn = __lambda_172;
c_731284.num_elt = 4;
c_731284.elts = (object *)alloca(sizeof(object) * 4);
c_731284.elts[0] = continuable_127_73106;
c_731284.elts[1] = ((closureN)self_73497)->elts[0];
c_731284.elts[2] = ((closureN)self_73497)->elts[1];
c_731284.elts[3] = ((closureN)self_73497)->elts[2];


make_cell(c_731311,result_73105);
return_funcall1((closure)&c_731284,  &c_731311);; 
}

static void __lambda_172(int argc, object self_73498, object result_73105) {
  
closureN_type c_731286;
c_731286.tag = closureN_tag;
 c_731286.fn = __lambda_171;
c_731286.num_elt = 5;
c_731286.elts = (object *)alloca(sizeof(object) * 5);
c_731286.elts[0] = ((closureN)self_73498)->elts[0];
c_731286.elts[1] = ((closureN)self_73498)->elts[1];
c_731286.elts[2] = ((closureN)self_73498)->elts[2];
c_731286.elts[3] = ((closureN)self_73498)->elts[3];
c_731286.elts[4] = result_73105;

return_funcall1(  __glo_Cyc_91remove_91exception_91handler,  &c_731286);; 
}

static void __lambda_171(int argc, object self_73499, object r_73350) {
  
closureN_type c_731288;
c_731288.tag = closureN_tag;
 c_731288.fn = __lambda_170;
c_731288.num_elt = 4;
c_731288.elts = (object *)alloca(sizeof(object) * 4);
c_731288.elts[0] = ((closureN)self_73499)->elts[0];
c_731288.elts[1] = ((closureN)self_73499)->elts[1];
c_731288.elts[2] = ((closureN)self_73499)->elts[2];
c_731288.elts[3] = ((closureN)self_73499)->elts[4];

return_funcall1((closure)&c_731288,  cadr(((closureN)self_73499)->elts[3]));; 
}

static void __lambda_170(int argc, object self_73500, object r_73353) {
  
closureN_type c_731291;
c_731291.tag = closureN_tag;
 c_731291.fn = __lambda_169;
c_731291.num_elt = 3;
c_731291.elts = (object *)alloca(sizeof(object) * 3);
c_731291.elts[0] = ((closureN)self_73500)->elts[0];
c_731291.elts[1] = ((closureN)self_73500)->elts[2];
c_731291.elts[2] = ((closureN)self_73500)->elts[3];

return_funcall2(  ((closureN)self_73500)->elts[1],  &c_731291, r_73353);; 
}

static void __lambda_169(int argc, object self_73501, object r_73352) {
  
closureN_type c_731293;
c_731293.tag = closureN_tag;
 c_731293.fn = __lambda_168;
c_731293.num_elt = 3;
c_731293.elts = (object *)alloca(sizeof(object) * 3);
c_731293.elts[0] = ((closureN)self_73501)->elts[0];
c_731293.elts[1] = ((closureN)self_73501)->elts[1];
c_731293.elts[2] = ((closureN)self_73501)->elts[2];

return_funcall1((closure)&c_731293,  Cyc_set_car(((closureN)self_73501)->elts[2], r_73352));; 
}

static void __lambda_168(int argc, object self_73502, object r_73351) {
  if( !eq(boolean_f, ((closureN)self_73502)->elts[0]) ){ 
  return_funcall1(  ((closureN)self_73502)->elts[1],  cell_get(((closureN)self_73502)->elts[2]));
} else { 
  
make_string(c_731302, "exception handler returned");
return_funcall2(  __glo_error,  ((closureN)self_73502)->elts[1], &c_731302);}
; 
}

static void __lambda_167(int argc, object self_73503, object k_73354) {
  
closureN_type c_731262;
c_731262.tag = closureN_tag;
 c_731262.fn = __lambda_166;
c_731262.num_elt = 2;
c_731262.elts = (object *)alloca(sizeof(object) * 2);
c_731262.elts[0] = k_73354;
c_731262.elts[1] = ((closureN)self_73503)->elts[0];

return_funcall1((closure)&c_731262,  Cyc_is_cons(((closureN)self_73503)->elts[0]));; 
}

static void __lambda_166(int argc, object self_73504, object r_73355) {
  if( !eq(boolean_f, r_73355) ){ 
  
closureN_type c_731264;
c_731264.tag = closureN_tag;
 c_731264.fn = __lambda_165;
c_731264.num_elt = 1;
c_731264.elts = (object *)alloca(sizeof(object) * 1);
c_731264.elts[0] = ((closureN)self_73504)->elts[0];

return_funcall1((closure)&c_731264,  car(((closureN)self_73504)->elts[1]));
} else { 
  return_funcall1(  ((closureN)self_73504)->elts[0],  boolean_f);}
; 
}

static void __lambda_165(int argc, object self_73505, object r_73356) {
  
closureN_type c_731266;
c_731266.tag = closureN_tag;
 c_731266.fn = __lambda_164;
c_731266.num_elt = 2;
c_731266.elts = (object *)alloca(sizeof(object) * 2);
c_731266.elts[0] = ((closureN)self_73505)->elts[0];
c_731266.elts[1] = r_73356;

return_funcall1((closure)&c_731266,  quote_continuable);; 
}

static void __lambda_164(int argc, object self_73506, object r_73357) {
  return_funcall1(  ((closureN)self_73506)->elts[0],  equalp(((closureN)self_73506)->elts[1], r_73357));; 
}

static void __lambda_163(int argc, object self_73507, object r_73343) {
  
closureN_type c_731234;
c_731234.tag = closureN_tag;
 c_731234.fn = __lambda_162;
c_731234.num_elt = 2;
c_731234.elts = (object *)alloca(sizeof(object) * 2);
c_731234.elts[0] = ((closureN)self_73507)->elts[0];
c_731234.elts[1] = ((closureN)self_73507)->elts[1];

return_funcall2((closure)&c_731234,  boolean_f, r_73343);; 
}

static void __lambda_162(int argc, object self_73508, object result_73102, object my_91handler_73103) {
  
closureN_type c_731236;
c_731236.tag = closureN_tag;
 c_731236.fn = __lambda_161;
c_731236.num_elt = 3;
c_731236.elts = (object *)alloca(sizeof(object) * 3);
c_731236.elts[0] = ((closureN)self_73508)->elts[0];
c_731236.elts[1] = my_91handler_73103;
c_731236.elts[2] = ((closureN)self_73508)->elts[1];


make_cell(c_731257,result_73102);
return_funcall1((closure)&c_731236,  &c_731257);; 
}

static void __lambda_161(int argc, object self_73509, object result_73102) {
  
closureN_type c_731238;
c_731238.tag = closureN_tag;
 c_731238.fn = __lambda_160;
c_731238.num_elt = 3;
c_731238.elts = (object *)alloca(sizeof(object) * 3);
c_731238.elts[0] = ((closureN)self_73509)->elts[0];
c_731238.elts[1] = result_73102;
c_731238.elts[2] = ((closureN)self_73509)->elts[2];

return_funcall2(  __glo_Cyc_91add_91exception_91handler,  &c_731238, ((closureN)self_73509)->elts[1]);; 
}

static void __lambda_160(int argc, object self_73510, object r_73344) {
  
closureN_type c_731241;
c_731241.tag = closureN_tag;
 c_731241.fn = __lambda_159;
c_731241.num_elt = 2;
c_731241.elts = (object *)alloca(sizeof(object) * 2);
c_731241.elts[0] = ((closureN)self_73510)->elts[0];
c_731241.elts[1] = ((closureN)self_73510)->elts[1];

return_funcall1(  ((closureN)self_73510)->elts[2],  &c_731241);; 
}

static void __lambda_159(int argc, object self_73511, object r_73347) {
  
closureN_type c_731243;
c_731243.tag = closureN_tag;
 c_731243.fn = __lambda_158;
c_731243.num_elt = 2;
c_731243.elts = (object *)alloca(sizeof(object) * 2);
c_731243.elts[0] = ((closureN)self_73511)->elts[0];
c_731243.elts[1] = ((closureN)self_73511)->elts[1];

return_funcall1((closure)&c_731243,  Cyc_set_car(((closureN)self_73511)->elts[1], r_73347));; 
}

static void __lambda_158(int argc, object self_73512, object r_73345) {
  
closureN_type c_731245;
c_731245.tag = closureN_tag;
 c_731245.fn = __lambda_157;
c_731245.num_elt = 2;
c_731245.elts = (object *)alloca(sizeof(object) * 2);
c_731245.elts[0] = ((closureN)self_73512)->elts[0];
c_731245.elts[1] = ((closureN)self_73512)->elts[1];

return_funcall1(  __glo_Cyc_91remove_91exception_91handler,  &c_731245);; 
}

static void __lambda_157(int argc, object self_73513, object r_73346) {
  return_funcall1(  ((closureN)self_73513)->elts[0],  cell_get(((closureN)self_73513)->elts[1]));; 
}

static void __lambda_156(int argc, closure _,object k_73336, object obj_7399) {
  
closureN_type c_731219;
c_731219.tag = closureN_tag;
 c_731219.fn = __lambda_155;
c_731219.num_elt = 2;
c_731219.elts = (object *)alloca(sizeof(object) * 2);
c_731219.elts[0] = k_73336;
c_731219.elts[1] = obj_7399;

return_funcall1((closure)&c_731219,  Cyc_current_exception_handler());; 
}

static void __lambda_155(int argc, object self_73492, object r_73337) {
  
closureN_type c_731221;
c_731221.tag = closureN_tag;
 c_731221.fn = __lambda_154;
c_731221.num_elt = 3;
c_731221.elts = (object *)alloca(sizeof(object) * 3);
c_731221.elts[0] = ((closureN)self_73492)->elts[0];
c_731221.elts[1] = ((closureN)self_73492)->elts[1];
c_731221.elts[2] = r_73337;

return_funcall1((closure)&c_731221,  quote_continuable);; 
}

static void __lambda_154(int argc, object self_73493, object r_73339) {
  
closureN_type c_731223;
c_731223.tag = closureN_tag;
 c_731223.fn = __lambda_153;
c_731223.num_elt = 2;
c_731223.elts = (object *)alloca(sizeof(object) * 2);
c_731223.elts[0] = ((closureN)self_73493)->elts[0];
c_731223.elts[1] = ((closureN)self_73493)->elts[2];

return_funcall3(  __glo__list,  &c_731223, r_73339, ((closureN)self_73493)->elts[1]);; 
}

static void __lambda_153(int argc, object self_73494, object r_73338) {
  return_funcall2(  ((closureN)self_73494)->elts[1],  ((closureN)self_73494)->elts[0], r_73338);; 
}

static void __lambda_152(int argc, closure _,object k_73330, object obj_7398) {
  
closureN_type c_731206;
c_731206.tag = closureN_tag;
 c_731206.fn = __lambda_151;
c_731206.num_elt = 2;
c_731206.elts = (object *)alloca(sizeof(object) * 2);
c_731206.elts[0] = k_73330;
c_731206.elts[1] = obj_7398;

return_funcall1((closure)&c_731206,  Cyc_current_exception_handler());; 
}

static void __lambda_151(int argc, object self_73489, object r_73331) {
  
closureN_type c_731208;
c_731208.tag = closureN_tag;
 c_731208.fn = __lambda_150;
c_731208.num_elt = 3;
c_731208.elts = (object *)alloca(sizeof(object) * 3);
c_731208.elts[0] = ((closureN)self_73489)->elts[0];
c_731208.elts[1] = ((closureN)self_73489)->elts[1];
c_731208.elts[2] = r_73331;

return_funcall1((closure)&c_731208,  quote_raised);; 
}

static void __lambda_150(int argc, object self_73490, object r_73333) {
  
closureN_type c_731210;
c_731210.tag = closureN_tag;
 c_731210.fn = __lambda_149;
c_731210.num_elt = 2;
c_731210.elts = (object *)alloca(sizeof(object) * 2);
c_731210.elts[0] = ((closureN)self_73490)->elts[0];
c_731210.elts[1] = ((closureN)self_73490)->elts[2];

return_funcall3(  __glo__list,  &c_731210, r_73333, ((closureN)self_73490)->elts[1]);; 
}

static void __lambda_149(int argc, object self_73491, object r_73332) {
  return_funcall2(  ((closureN)self_73491)->elts[1],  ((closureN)self_73491)->elts[0], r_73332);; 
}

static void __lambda_148(int argc, closure _,object k_73326, object msg_7396, object args_7397_raw, ...) {
load_varargs(args_7397, args_7397_raw, argc - 2);
  
closureN_type c_731198;
c_731198.tag = closureN_tag;
 c_731198.fn = __lambda_147;
c_731198.num_elt = 1;
c_731198.elts = (object *)alloca(sizeof(object) * 1);
c_731198.elts[0] = k_73326;


make_cons(c_731203,msg_7396, args_7397);
return_funcall1((closure)&c_731198,  &c_731203);; 
}

static void __lambda_147(int argc, object self_73488, object r_73327) {
  return_funcall2(  __glo_raise,  ((closureN)self_73488)->elts[0], r_73327);; 
}

static void __lambda_146(int argc, closure _,object k_73318, object k_7393, object fill_7394_raw, ...) {
load_varargs(fill_7394, fill_7394_raw, argc - 2);
  
closureN_type c_731165;
c_731165.tag = closureN_tag;
 c_731165.fn = __lambda_141;
c_731165.num_elt = 1;
c_731165.elts = (object *)alloca(sizeof(object) * 1);
c_731165.elts[0] = fill_7394;


closureN_type c_731177;
c_731177.tag = closureN_tag;
 c_731177.fn = __lambda_145;
c_731177.num_elt = 2;
c_731177.elts = (object *)alloca(sizeof(object) * 2);
c_731177.elts[0] = k_73318;
c_731177.elts[1] = k_7393;

return_funcall1((closure)&c_731165,  &c_731177);; 
}

static void __lambda_145(int argc, object self_73482, object r_73319) {
  
closureN_type c_731179;
c_731179.tag = closureN_tag;
 c_731179.fn = __lambda_144;
c_731179.num_elt = 2;
c_731179.elts = (object *)alloca(sizeof(object) * 2);
c_731179.elts[0] = ((closureN)self_73482)->elts[0];
c_731179.elts[1] = ((closureN)self_73482)->elts[1];

return_funcall1((closure)&c_731179,  r_73319);; 
}

static void __lambda_144(int argc, object self_73483, object fill_85_7395) {
  
closureN_type c_731181;
c_731181.tag = closureN_tag;
 c_731181.fn = __lambda_143;
c_731181.num_elt = 1;
c_731181.elts = (object *)alloca(sizeof(object) * 1);
c_731181.elts[0] = ((closureN)self_73483)->elts[0];


make_cons(c_731194,((closureN)self_73483)->elts[1], fill_85_7395);
return_funcall1((closure)&c_731181,  &c_731194);; 
}

static void __lambda_143(int argc, object self_73484, object r_73321) {
  
closureN_type c_731183;
c_731183.tag = closureN_tag;
 c_731183.fn = __lambda_142;
c_731183.num_elt = 1;
c_731183.elts = (object *)alloca(sizeof(object) * 1);
c_731183.elts[0] = ((closureN)self_73484)->elts[0];


object c_731191 = apply((closure)&c_731183, __glo_make_91list, r_73321);
return_funcall1((closure)&c_731183,  c_731191);; 
}

static void __lambda_142(int argc, object self_73485, object r_73320) {
  
string_type c_731188 = Cyc_list2string(r_73320);
return_funcall1(  ((closureN)self_73485)->elts[0],  &c_731188);; 
}

static void __lambda_141(int argc, object self_73486, object k_73322) {
  
closureN_type c_731167;
c_731167.tag = closureN_tag;
 c_731167.fn = __lambda_140;
c_731167.num_elt = 2;
c_731167.elts = (object *)alloca(sizeof(object) * 2);
c_731167.elts[0] = ((closureN)self_73486)->elts[0];
c_731167.elts[1] = k_73322;

return_funcall1((closure)&c_731167,  Cyc_is_null(((closureN)self_73486)->elts[0]));; 
}

static void __lambda_140(int argc, object self_73487, object r_73323) {
  if( !eq(boolean_f, r_73323) ){ 
  
make_cons(c_731170,obj_char2obj(32),nil);
return_funcall1(  ((closureN)self_73487)->elts[1],  &c_731170);
} else { 
  return_funcall1(  ((closureN)self_73487)->elts[1],  ((closureN)self_73487)->elts[0]);}
; 
}

static void __lambda_139(int argc, closure _,object k_73307, object type_127_7388, object obj_7389, object objs_7390) {
  
closureN_type c_731135;
c_731135.tag = closureN_tag;
 c_731135.fn = __lambda_138;
c_731135.num_elt = 3;
c_731135.elts = (object *)alloca(sizeof(object) * 3);
c_731135.elts[0] = k_73307;
c_731135.elts[1] = obj_7389;
c_731135.elts[2] = objs_7390;

return_funcall2(  type_127_7388,  &c_731135, obj_7389);; 
}

static void __lambda_138(int argc, object self_73474, object r_73308) {
  if( !eq(boolean_f, r_73308) ){ 
  
closureN_type c_731137;
c_731137.tag = closureN_tag;
 c_731137.fn = __lambda_131;
c_731137.num_elt = 1;
c_731137.elts = (object *)alloca(sizeof(object) * 1);
c_731137.elts[0] = ((closureN)self_73474)->elts[0];


closureN_type c_731140;
c_731140.tag = closureN_tag;
 c_731140.fn = __lambda_137;
c_731140.num_elt = 2;
c_731140.elts = (object *)alloca(sizeof(object) * 2);
c_731140.elts[0] = ((closureN)self_73474)->elts[1];
c_731140.elts[1] = ((closureN)self_73474)->elts[2];

return_funcall1((closure)&c_731137,  &c_731140);
} else { 
  return_funcall1(  ((closureN)self_73474)->elts[0],  boolean_f);}
; 
}

static void __lambda_137(int argc, object self_73475, object k_73310, object return_7391) {
  
closureN_type c_731142;
c_731142.tag = closureN_tag;
 c_731142.fn = __lambda_133;
c_731142.num_elt = 2;
c_731142.elts = (object *)alloca(sizeof(object) * 2);
c_731142.elts[0] = k_73310;
c_731142.elts[1] = ((closureN)self_73475)->elts[1];


closureN_type c_731148;
c_731148.tag = closureN_tag;
 c_731148.fn = __lambda_136;
c_731148.num_elt = 2;
c_731148.elts = (object *)alloca(sizeof(object) * 2);
c_731148.elts[0] = ((closureN)self_73475)->elts[0];
c_731148.elts[1] = return_7391;

return_funcall1((closure)&c_731142,  &c_731148);; 
}

static void __lambda_136(int argc, object self_73476, object k_73313, object o_7392) {
  
closureN_type c_731150;
c_731150.tag = closureN_tag;
 c_731150.fn = __lambda_135;
c_731150.num_elt = 2;
c_731150.elts = (object *)alloca(sizeof(object) * 2);
c_731150.elts[0] = k_73313;
c_731150.elts[1] = ((closureN)self_73476)->elts[1];

return_funcall1((closure)&c_731150,  Cyc_eq(o_7392, ((closureN)self_73476)->elts[0]));; 
}

static void __lambda_135(int argc, object self_73477, object r_73315) {
  
closureN_type c_731152;
c_731152.tag = closureN_tag;
 c_731152.fn = __lambda_134;
c_731152.num_elt = 2;
c_731152.elts = (object *)alloca(sizeof(object) * 2);
c_731152.elts[0] = ((closureN)self_73477)->elts[0];
c_731152.elts[1] = ((closureN)self_73477)->elts[1];

return_funcall2(  __glo_not,  &c_731152, r_73315);; 
}

static void __lambda_134(int argc, object self_73478, object r_73314) {
  if( !eq(boolean_f, r_73314) ){ 
  return_funcall2(  ((closureN)self_73478)->elts[1],  ((closureN)self_73478)->elts[0], boolean_f);
} else { 
  return_funcall1(  ((closureN)self_73478)->elts[0],  boolean_f);}
; 
}

static void __lambda_133(int argc, object self_73479, object r_73312) {
  
closureN_type c_731144;
c_731144.tag = closureN_tag;
 c_731144.fn = __lambda_132;
c_731144.num_elt = 1;
c_731144.elts = (object *)alloca(sizeof(object) * 1);
c_731144.elts[0] = ((closureN)self_73479)->elts[0];

return_funcall3(  __glo_for_91each,  &c_731144, r_73312, ((closureN)self_73479)->elts[1]);; 
}

static void __lambda_132(int argc, object self_73480, object r_73311) {
  return_funcall1(  ((closureN)self_73480)->elts[0],  boolean_t);; 
}

static void __lambda_131(int argc, object self_73481, object r_73309) {
  return_funcall2(  __glo_call_95cc,  ((closureN)self_73481)->elts[0], r_73309);; 
}

static void __lambda_130(int argc, closure _,object k_73303, object sym1_7385, object sym2_7386, object syms_7387_raw, ...) {
load_varargs(syms_7387, syms_7387_raw, argc - 3);
  
closureN_type c_731126;
c_731126.tag = closureN_tag;
 c_731126.fn = __lambda_129;
c_731126.num_elt = 2;
c_731126.elts = (object *)alloca(sizeof(object) * 2);
c_731126.elts[0] = k_73303;
c_731126.elts[1] = sym1_7385;


make_cons(c_731132,sym2_7386, syms_7387);
return_funcall1((closure)&c_731126,  &c_731132);; 
}

static void __lambda_129(int argc, object self_73473, object r_73304) {
  return_funcall4(  __glo_Cyc_91obj_123_127,  ((closureN)self_73473)->elts[0], primitive_symbol_127, ((closureN)self_73473)->elts[1], r_73304);; 
}

static void __lambda_128(int argc, closure _,object k_73299, object b1_7382, object b2_7383, object bs_7384_raw, ...) {
load_varargs(bs_7384, bs_7384_raw, argc - 3);
  
closureN_type c_731117;
c_731117.tag = closureN_tag;
 c_731117.fn = __lambda_127;
c_731117.num_elt = 2;
c_731117.elts = (object *)alloca(sizeof(object) * 2);
c_731117.elts[0] = b1_7382;
c_731117.elts[1] = k_73299;


make_cons(c_731123,b2_7383, bs_7384);
return_funcall1((closure)&c_731117,  &c_731123);; 
}

static void __lambda_127(int argc, object self_73472, object r_73300) {
  return_funcall4(  __glo_Cyc_91obj_123_127,  ((closureN)self_73472)->elts[1], primitive_boolean_127, ((closureN)self_73472)->elts[0], r_73300);; 
}

static void __lambda_126(int argc, closure _,object k_73295, object lst_7381) {
  
closureN_type c_731111;
c_731111.tag = closureN_tag;
 c_731111.fn = __lambda_125;
c_731111.num_elt = 2;
c_731111.elts = (object *)alloca(sizeof(object) * 2);
c_731111.elts[0] = k_73295;
c_731111.elts[1] = lst_7381;

return_funcall1((closure)&c_731111,  nil);; 
}

static void __lambda_125(int argc, object self_73471, object r_73296) {
  return_funcall4(  __glo_foldl,  ((closureN)self_73471)->elts[0], primitive_cons, r_73296, ((closureN)self_73471)->elts[1]);; 
}

static void __lambda_124(int argc, closure _,object k_73291, object lst_7377, object k_7378, object obj_7379) {
  
closureN_type c_731101;
c_731101.tag = closureN_tag;
 c_731101.fn = __lambda_123;
c_731101.num_elt = 2;
c_731101.elts = (object *)alloca(sizeof(object) * 2);
c_731101.elts[0] = k_73291;
c_731101.elts[1] = obj_7379;

return_funcall3(  __glo_list_91tail,  &c_731101, lst_7377, k_7378);; 
}

static void __lambda_123(int argc, object self_73469, object r_73292) {
  
closureN_type c_731103;
c_731103.tag = closureN_tag;
 c_731103.fn = __lambda_122;
c_731103.num_elt = 2;
c_731103.elts = (object *)alloca(sizeof(object) * 2);
c_731103.elts[0] = ((closureN)self_73469)->elts[0];
c_731103.elts[1] = ((closureN)self_73469)->elts[1];

return_funcall1((closure)&c_731103,  r_73292);; 
}

static void __lambda_122(int argc, object self_73470, object kth_7380) {
  return_funcall1(  ((closureN)self_73470)->elts[0],  Cyc_set_car(kth_7380, ((closureN)self_73470)->elts[1]));; 
}

static void __lambda_121(int argc, closure _,object k_73287, object lst_7375, object k_7376) {
  
closureN_type c_731094;
c_731094.tag = closureN_tag;
 c_731094.fn = __lambda_120;
c_731094.num_elt = 1;
c_731094.elts = (object *)alloca(sizeof(object) * 1);
c_731094.elts[0] = k_73287;

return_funcall3(  __glo_list_91tail,  &c_731094, lst_7375, k_7376);; 
}

static void __lambda_120(int argc, object self_73468, object r_73288) {
  return_funcall1(  ((closureN)self_73468)->elts[0],  car(r_73288));; 
}

static void __lambda_119(int argc, closure _,object k_73281, object lst_7373, object k_7374) {
  
closureN_type c_731073;
c_731073.tag = closureN_tag;
 c_731073.fn = __lambda_118;
c_731073.num_elt = 3;
c_731073.elts = (object *)alloca(sizeof(object) * 3);
c_731073.elts[0] = k_73281;
c_731073.elts[1] = k_7374;
c_731073.elts[2] = lst_7373;

return_funcall2(  __glo_zero_127,  &c_731073, k_7374);; 
}

static void __lambda_118(int argc, object self_73465, object r_73282) {
  if( !eq(boolean_f, r_73282) ){ 
  return_funcall1(  ((closureN)self_73465)->elts[0],  ((closureN)self_73465)->elts[2]);
} else { 
  
closureN_type c_731078;
c_731078.tag = closureN_tag;
 c_731078.fn = __lambda_117;
c_731078.num_elt = 2;
c_731078.elts = (object *)alloca(sizeof(object) * 2);
c_731078.elts[0] = ((closureN)self_73465)->elts[0];
c_731078.elts[1] = ((closureN)self_73465)->elts[1];

return_funcall1((closure)&c_731078,  cdr(((closureN)self_73465)->elts[2]));}
; 
}

static void __lambda_117(int argc, object self_73466, object r_73283) {
  
closureN_type c_731080;
c_731080.tag = closureN_tag;
 c_731080.fn = __lambda_116;
c_731080.num_elt = 2;
c_731080.elts = (object *)alloca(sizeof(object) * 2);
c_731080.elts[0] = ((closureN)self_73466)->elts[0];
c_731080.elts[1] = r_73283;


make_int(c_731088, 1);

common_type c_731086 = Cyc_sub(2,((closureN)self_73466)->elts[1], &c_731088);
return_funcall1((closure)&c_731080,  &c_731086);; 
}

static void __lambda_116(int argc, object self_73467, object r_73284) {
  return_funcall3(  __glo_list_91tail,  ((closureN)self_73467)->elts[0], ((closureN)self_73467)->elts[1], r_73284);; 
}

static void __lambda_115(int argc, closure _,object k_73274, object f_7371, object lst_7372) {
  
closureN_type c_731048;
c_731048.tag = closureN_tag;
 c_731048.fn = __lambda_114;
c_731048.num_elt = 3;
c_731048.elts = (object *)alloca(sizeof(object) * 3);
c_731048.elts[0] = f_7371;
c_731048.elts[1] = k_73274;
c_731048.elts[2] = lst_7372;

return_funcall1((closure)&c_731048,  Cyc_is_null(lst_7372));; 
}

static void __lambda_114(int argc, object self_73460, object r_73275) {
  if( !eq(boolean_f, r_73275) ){ 
  return_funcall1(  ((closureN)self_73460)->elts[1],  boolean_t);
} else { 
  
closureN_type c_731052;
c_731052.tag = closureN_tag;
 c_731052.fn = __lambda_113;
c_731052.num_elt = 3;
c_731052.elts = (object *)alloca(sizeof(object) * 3);
c_731052.elts[0] = ((closureN)self_73460)->elts[0];
c_731052.elts[1] = ((closureN)self_73460)->elts[1];
c_731052.elts[2] = ((closureN)self_73460)->elts[2];

return_funcall0((closure)&c_731052);}
; 
}

static void __lambda_113(int argc, object self_73461) {
  
closureN_type c_731054;
c_731054.tag = closureN_tag;
 c_731054.fn = __lambda_112;
c_731054.num_elt = 3;
c_731054.elts = (object *)alloca(sizeof(object) * 3);
c_731054.elts[0] = ((closureN)self_73461)->elts[0];
c_731054.elts[1] = ((closureN)self_73461)->elts[1];
c_731054.elts[2] = ((closureN)self_73461)->elts[2];

return_funcall1((closure)&c_731054,  car(((closureN)self_73461)->elts[2]));; 
}

static void __lambda_112(int argc, object self_73462, object r_73278) {
  
closureN_type c_731057;
c_731057.tag = closureN_tag;
 c_731057.fn = __lambda_111;
c_731057.num_elt = 3;
c_731057.elts = (object *)alloca(sizeof(object) * 3);
c_731057.elts[0] = ((closureN)self_73462)->elts[0];
c_731057.elts[1] = ((closureN)self_73462)->elts[1];
c_731057.elts[2] = ((closureN)self_73462)->elts[2];

return_funcall2(  ((closureN)self_73462)->elts[0],  &c_731057, r_73278);; 
}

static void __lambda_111(int argc, object self_73463, object r_73276) {
  
closureN_type c_731059;
c_731059.tag = closureN_tag;
 c_731059.fn = __lambda_110;
c_731059.num_elt = 2;
c_731059.elts = (object *)alloca(sizeof(object) * 2);
c_731059.elts[0] = ((closureN)self_73463)->elts[0];
c_731059.elts[1] = ((closureN)self_73463)->elts[1];

return_funcall1((closure)&c_731059,  cdr(((closureN)self_73463)->elts[2]));; 
}

static void __lambda_110(int argc, object self_73464, object r_73277) {
  return_funcall3(  __glo_for_91each,  ((closureN)self_73464)->elts[1], ((closureN)self_73464)->elts[0], r_73277);; 
}

static void __lambda_109(int argc, closure _,object k_73267, object func_7367, object lst_7368) {
  
closureN_type c_731029;
c_731029.tag = closureN_tag;
 c_731029.fn = __lambda_106;
c_731029.num_elt = 2;
c_731029.elts = (object *)alloca(sizeof(object) * 2);
c_731029.elts[0] = k_73267;
c_731029.elts[1] = lst_7368;


closureN_type c_731036;
c_731036.tag = closureN_tag;
 c_731036.fn = __lambda_108;
c_731036.num_elt = 1;
c_731036.elts = (object *)alloca(sizeof(object) * 1);
c_731036.elts[0] = func_7367;

return_funcall1((closure)&c_731029,  &c_731036);; 
}

static void __lambda_108(int argc, object self_73456, object k_73270, object x_7369, object y_7370) {
  
closureN_type c_731039;
c_731039.tag = closureN_tag;
 c_731039.fn = __lambda_107;
c_731039.num_elt = 2;
c_731039.elts = (object *)alloca(sizeof(object) * 2);
c_731039.elts[0] = k_73270;
c_731039.elts[1] = y_7370;

return_funcall2(  ((closureN)self_73456)->elts[0],  &c_731039, x_7369);; 
}

static void __lambda_107(int argc, object self_73457, object r_73271) {
  
make_cons(c_731044,r_73271, ((closureN)self_73457)->elts[1]);
return_funcall1(  ((closureN)self_73457)->elts[0],  &c_731044);; 
}

static void __lambda_106(int argc, object self_73458, object r_73268) {
  
closureN_type c_731031;
c_731031.tag = closureN_tag;
 c_731031.fn = __lambda_105;
c_731031.num_elt = 3;
c_731031.elts = (object *)alloca(sizeof(object) * 3);
c_731031.elts[0] = ((closureN)self_73458)->elts[0];
c_731031.elts[1] = ((closureN)self_73458)->elts[1];
c_731031.elts[2] = r_73268;

return_funcall1((closure)&c_731031,  nil);; 
}

static void __lambda_105(int argc, object self_73459, object r_73269) {
  return_funcall4(  __glo_foldr,  ((closureN)self_73459)->elts[0], ((closureN)self_73459)->elts[2], r_73269, ((closureN)self_73459)->elts[1]);; 
}

static void __lambda_104(int argc, closure _,object k_73261, object lst_7364) {
  
closureN_type c_731015;
c_731015.tag = closureN_tag;
 c_731015.fn = __lambda_102;
c_731015.num_elt = 2;
c_731015.elts = (object *)alloca(sizeof(object) * 2);
c_731015.elts[0] = k_73261;
c_731015.elts[1] = lst_7364;


mclosure0(c_731022, (function_type)__lambda_103);
return_funcall1((closure)&c_731015,  &c_731022);; 
}

static void __lambda_103(int argc, object self_73453, object k_73264, object x_7365, object y_7366) {
  
make_cons(c_731026,x_7365, y_7366);
return_funcall1(  k_73264,  &c_731026);; 
}

static void __lambda_102(int argc, object self_73454, object r_73262) {
  
closureN_type c_731017;
c_731017.tag = closureN_tag;
 c_731017.fn = __lambda_101;
c_731017.num_elt = 3;
c_731017.elts = (object *)alloca(sizeof(object) * 3);
c_731017.elts[0] = ((closureN)self_73454)->elts[0];
c_731017.elts[1] = ((closureN)self_73454)->elts[1];
c_731017.elts[2] = r_73262;

return_funcall1((closure)&c_731017,  nil);; 
}

static void __lambda_101(int argc, object self_73455, object r_73263) {
  return_funcall4(  __glo_foldr,  ((closureN)self_73455)->elts[0], ((closureN)self_73455)->elts[2], r_73263, ((closureN)self_73455)->elts[1]);; 
}

static void __lambda_100(int argc, closure _,object k_73248, object k_7358, object fill_7359_raw, ...) {
load_varargs(fill_7359, fill_7359_raw, argc - 2);
  
closureN_type c_73939;
c_73939.tag = closureN_tag;
 c_73939.fn = __lambda_99;
c_73939.num_elt = 3;
c_73939.elts = (object *)alloca(sizeof(object) * 3);
c_73939.elts[0] = fill_7359;
c_73939.elts[1] = k_73248;
c_73939.elts[2] = k_7358;

return_funcall2((closure)&c_73939,  boolean_f, boolean_f);; 
}

static void __lambda_99(int argc, object self_73439, object x_7360, object make_7361) {
  
closureN_type c_73941;
c_73941.tag = closureN_tag;
 c_73941.fn = __lambda_98;
c_73941.num_elt = 4;
c_73941.elts = (object *)alloca(sizeof(object) * 4);
c_73941.elts[0] = ((closureN)self_73439)->elts[0];
c_73941.elts[1] = ((closureN)self_73439)->elts[1];
c_73941.elts[2] = ((closureN)self_73439)->elts[2];
c_73941.elts[3] = make_7361;


make_cell(c_731012,x_7360);
return_funcall1((closure)&c_73941,  &c_731012);; 
}

static void __lambda_98(int argc, object self_73440, object x_7360) {
  
closureN_type c_73943;
c_73943.tag = closureN_tag;
 c_73943.fn = __lambda_97;
c_73943.num_elt = 4;
c_73943.elts = (object *)alloca(sizeof(object) * 4);
c_73943.elts[0] = ((closureN)self_73440)->elts[0];
c_73943.elts[1] = ((closureN)self_73440)->elts[1];
c_73943.elts[2] = ((closureN)self_73440)->elts[2];
c_73943.elts[3] = x_7360;


make_cell(c_731008,((closureN)self_73440)->elts[3]);
return_funcall1((closure)&c_73943,  &c_731008);; 
}

static void __lambda_97(int argc, object self_73441, object make_7361) {
  
closureN_type c_73945;
c_73945.tag = closureN_tag;
 c_73945.fn = __lambda_96;
c_73945.num_elt = 5;
c_73945.elts = (object *)alloca(sizeof(object) * 5);
c_73945.elts[0] = ((closureN)self_73441)->elts[0];
c_73945.elts[1] = ((closureN)self_73441)->elts[1];
c_73945.elts[2] = ((closureN)self_73441)->elts[2];
c_73945.elts[3] = make_7361;
c_73945.elts[4] = ((closureN)self_73441)->elts[3];

return_funcall0((closure)&c_73945);; 
}

static void __lambda_96(int argc, object self_73442) {
  
closureN_type c_73947;
c_73947.tag = closureN_tag;
 c_73947.fn = __lambda_87;
c_73947.num_elt = 1;
c_73947.elts = (object *)alloca(sizeof(object) * 1);
c_73947.elts[0] = ((closureN)self_73442)->elts[0];


closureN_type c_73960;
c_73960.tag = closureN_tag;
 c_73960.fn = __lambda_95;
c_73960.num_elt = 4;
c_73960.elts = (object *)alloca(sizeof(object) * 4);
c_73960.elts[0] = ((closureN)self_73442)->elts[1];
c_73960.elts[1] = ((closureN)self_73442)->elts[2];
c_73960.elts[2] = ((closureN)self_73442)->elts[3];
c_73960.elts[3] = ((closureN)self_73442)->elts[4];

return_funcall1((closure)&c_73947,  &c_73960);; 
}

static void __lambda_95(int argc, object self_73443, object r_73256) {
  
closureN_type c_73962;
c_73962.tag = closureN_tag;
 c_73962.fn = __lambda_94;
c_73962.num_elt = 4;
c_73962.elts = (object *)alloca(sizeof(object) * 4);
c_73962.elts[0] = ((closureN)self_73443)->elts[0];
c_73962.elts[1] = ((closureN)self_73443)->elts[1];
c_73962.elts[2] = ((closureN)self_73443)->elts[2];
c_73962.elts[3] = ((closureN)self_73443)->elts[3];

return_funcall1((closure)&c_73962,  Cyc_set_car(((closureN)self_73443)->elts[3], r_73256));; 
}

static void __lambda_94(int argc, object self_73444, object r_73249) {
  
closureN_type c_73964;
c_73964.tag = closureN_tag;
 c_73964.fn = __lambda_89;
c_73964.num_elt = 4;
c_73964.elts = (object *)alloca(sizeof(object) * 4);
c_73964.elts[0] = ((closureN)self_73444)->elts[0];
c_73964.elts[1] = ((closureN)self_73444)->elts[1];
c_73964.elts[2] = ((closureN)self_73444)->elts[2];
c_73964.elts[3] = ((closureN)self_73444)->elts[3];


closureN_type c_73979;
c_73979.tag = closureN_tag;
 c_73979.fn = __lambda_93;
c_73979.num_elt = 1;
c_73979.elts = (object *)alloca(sizeof(object) * 1);
c_73979.elts[0] = ((closureN)self_73444)->elts[2];

return_funcall1((closure)&c_73964,  &c_73979);; 
}

static void __lambda_93(int argc, object self_73445, object k_73252, object n_7362, object obj_7363) {
  
closureN_type c_73981;
c_73981.tag = closureN_tag;
 c_73981.fn = __lambda_92;
c_73981.num_elt = 4;
c_73981.elts = (object *)alloca(sizeof(object) * 4);
c_73981.elts[0] = k_73252;
c_73981.elts[1] = ((closureN)self_73445)->elts[0];
c_73981.elts[2] = n_7362;
c_73981.elts[3] = obj_7363;

return_funcall2(  __glo_zero_127,  &c_73981, n_7362);; 
}

static void __lambda_92(int argc, object self_73446, object r_73253) {
  if( !eq(boolean_f, r_73253) ){ 
  return_funcall1(  ((closureN)self_73446)->elts[0],  nil);
} else { 
  
closureN_type c_73985;
c_73985.tag = closureN_tag;
 c_73985.fn = __lambda_91;
c_73985.num_elt = 3;
c_73985.elts = (object *)alloca(sizeof(object) * 3);
c_73985.elts[0] = ((closureN)self_73446)->elts[0];
c_73985.elts[1] = ((closureN)self_73446)->elts[1];
c_73985.elts[2] = ((closureN)self_73446)->elts[3];


make_int(c_731002, 1);

common_type c_731000 = Cyc_sub(2,((closureN)self_73446)->elts[2], &c_731002);
return_funcall1((closure)&c_73985,  &c_731000);}
; 
}

static void __lambda_91(int argc, object self_73447, object r_73255) {
  
closureN_type c_73990;
c_73990.tag = closureN_tag;
 c_73990.fn = __lambda_90;
c_73990.num_elt = 2;
c_73990.elts = (object *)alloca(sizeof(object) * 2);
c_73990.elts[0] = ((closureN)self_73447)->elts[0];
c_73990.elts[1] = ((closureN)self_73447)->elts[2];

return_funcall3(  cell_get(((closureN)self_73447)->elts[1]),  &c_73990, r_73255, ((closureN)self_73447)->elts[2]);; 
}

static void __lambda_90(int argc, object self_73448, object r_73254) {
  
make_cons(c_73995,((closureN)self_73448)->elts[1], r_73254);
return_funcall1(  ((closureN)self_73448)->elts[0],  &c_73995);; 
}

static void __lambda_89(int argc, object self_73449, object r_73251) {
  
closureN_type c_73966;
c_73966.tag = closureN_tag;
 c_73966.fn = __lambda_88;
c_73966.num_elt = 4;
c_73966.elts = (object *)alloca(sizeof(object) * 4);
c_73966.elts[0] = ((closureN)self_73449)->elts[0];
c_73966.elts[1] = ((closureN)self_73449)->elts[1];
c_73966.elts[2] = ((closureN)self_73449)->elts[2];
c_73966.elts[3] = ((closureN)self_73449)->elts[3];

return_funcall1((closure)&c_73966,  Cyc_set_car(((closureN)self_73449)->elts[2], r_73251));; 
}

static void __lambda_88(int argc, object self_73450, object r_73250) {
  return_funcall3(  cell_get(((closureN)self_73450)->elts[2]),  ((closureN)self_73450)->elts[0], ((closureN)self_73450)->elts[1], cell_get(((closureN)self_73450)->elts[3]));; 
}

static void __lambda_87(int argc, object self_73451, object k_73257) {
  
closureN_type c_73949;
c_73949.tag = closureN_tag;
 c_73949.fn = __lambda_86;
c_73949.num_elt = 2;
c_73949.elts = (object *)alloca(sizeof(object) * 2);
c_73949.elts[0] = ((closureN)self_73451)->elts[0];
c_73949.elts[1] = k_73257;

return_funcall1((closure)&c_73949,  Cyc_is_null(((closureN)self_73451)->elts[0]));; 
}

static void __lambda_86(int argc, object self_73452, object r_73258) {
  if( !eq(boolean_f, r_73258) ){ 
  return_funcall1(  ((closureN)self_73452)->elts[1],  boolean_f);
} else { 
  return_funcall1(  ((closureN)self_73452)->elts[1],  car(((closureN)self_73452)->elts[0]));}
; 
}

static void __lambda_85(int argc, closure _,object k_73245, object objs_7357_raw, ...) {
load_varargs(objs_7357, objs_7357_raw, argc - 1);
  return_funcall1(  k_73245,  objs_7357);; 
}

static void __lambda_84(int argc, closure _,object k_73230, object lst_7347_raw, ...) {
load_varargs(lst_7347, lst_7347_raw, argc - 1);
  
closureN_type c_73865;
c_73865.tag = closureN_tag;
 c_73865.fn = __lambda_83;
c_73865.num_elt = 2;
c_73865.elts = (object *)alloca(sizeof(object) * 2);
c_73865.elts[0] = k_73230;
c_73865.elts[1] = lst_7347;

return_funcall1((closure)&c_73865,  boolean_f);; 
}

static void __lambda_83(int argc, object self_73424, object append_912_7349) {
  
closureN_type c_73867;
c_73867.tag = closureN_tag;
 c_73867.fn = __lambda_82;
c_73867.num_elt = 2;
c_73867.elts = (object *)alloca(sizeof(object) * 2);
c_73867.elts[0] = ((closureN)self_73424)->elts[0];
c_73867.elts[1] = ((closureN)self_73424)->elts[1];


make_cell(c_73934,append_912_7349);
return_funcall1((closure)&c_73867,  &c_73934);; 
}

static void __lambda_82(int argc, object self_73425, object append_912_7349) {
  
closureN_type c_73869;
c_73869.tag = closureN_tag;
 c_73869.fn = __lambda_81;
c_73869.num_elt = 3;
c_73869.elts = (object *)alloca(sizeof(object) * 3);
c_73869.elts[0] = append_912_7349;
c_73869.elts[1] = ((closureN)self_73425)->elts[0];
c_73869.elts[2] = ((closureN)self_73425)->elts[1];

return_funcall1((closure)&c_73869,  boolean_f);; 
}

static void __lambda_81(int argc, object self_73426, object append_912_7350) {
  
closureN_type c_73871;
c_73871.tag = closureN_tag;
 c_73871.fn = __lambda_77;
c_73871.num_elt = 3;
c_73871.elts = (object *)alloca(sizeof(object) * 3);
c_73871.elts[0] = ((closureN)self_73426)->elts[0];
c_73871.elts[1] = ((closureN)self_73426)->elts[1];
c_73871.elts[2] = ((closureN)self_73426)->elts[2];


mclosure0(c_73920, (function_type)__lambda_80);
return_funcall1((closure)&c_73871,  &c_73920);; 
}

static void __lambda_80(int argc, object self_73427, object k_73240, object inlist_7351, object alist_7352) {
  
closureN_type c_73922;
c_73922.tag = closureN_tag;
 c_73922.fn = __lambda_78;
c_73922.num_elt = 3;
c_73922.elts = (object *)alloca(sizeof(object) * 3);
c_73922.elts[0] = alist_7352;
c_73922.elts[1] = inlist_7351;
c_73922.elts[2] = k_73240;


mclosure0(c_73927, (function_type)__lambda_79);
return_funcall1((closure)&c_73922,  &c_73927);; 
}

static void __lambda_79(int argc, object self_73428, object k_73242, object ap_7353, object in_7354) {
  
make_cons(c_73931,ap_7353, in_7354);
return_funcall1(  k_73242,  &c_73931);; 
}

static void __lambda_78(int argc, object self_73429, object r_73241) {
  return_funcall4(  __glo_foldr,  ((closureN)self_73429)->elts[2], r_73241, ((closureN)self_73429)->elts[0], ((closureN)self_73429)->elts[1]);; 
}

static void __lambda_77(int argc, object self_73430, object r_73239) {
  
closureN_type c_73873;
c_73873.tag = closureN_tag;
 c_73873.fn = __lambda_76;
c_73873.num_elt = 3;
c_73873.elts = (object *)alloca(sizeof(object) * 3);
c_73873.elts[0] = ((closureN)self_73430)->elts[0];
c_73873.elts[1] = ((closureN)self_73430)->elts[1];
c_73873.elts[2] = ((closureN)self_73430)->elts[2];

return_funcall1((closure)&c_73873,  Cyc_set_car(((closureN)self_73430)->elts[0], r_73239));; 
}

static void __lambda_76(int argc, object self_73431, object r_73231) {
  
closureN_type c_73875;
c_73875.tag = closureN_tag;
 c_73875.fn = __lambda_75;
c_73875.num_elt = 3;
c_73875.elts = (object *)alloca(sizeof(object) * 3);
c_73875.elts[0] = ((closureN)self_73431)->elts[0];
c_73875.elts[1] = ((closureN)self_73431)->elts[1];
c_73875.elts[2] = ((closureN)self_73431)->elts[2];

return_funcall1((closure)&c_73875,  Cyc_is_null(((closureN)self_73431)->elts[2]));; 
}

static void __lambda_75(int argc, object self_73432, object r_73232) {
  if( !eq(boolean_f, r_73232) ){ 
  return_funcall1(  ((closureN)self_73432)->elts[1],  ((closureN)self_73432)->elts[2]);
} else { 
  
closureN_type c_73880;
c_73880.tag = closureN_tag;
 c_73880.fn = __lambda_74;
c_73880.num_elt = 3;
c_73880.elts = (object *)alloca(sizeof(object) * 3);
c_73880.elts[0] = ((closureN)self_73432)->elts[0];
c_73880.elts[1] = ((closureN)self_73432)->elts[1];
c_73880.elts[2] = ((closureN)self_73432)->elts[2];

return_funcall1((closure)&c_73880,  cdr(((closureN)self_73432)->elts[2]));}
; 
}

static void __lambda_74(int argc, object self_73433, object r_73238) {
  
closureN_type c_73882;
c_73882.tag = closureN_tag;
 c_73882.fn = __lambda_73;
c_73882.num_elt = 3;
c_73882.elts = (object *)alloca(sizeof(object) * 3);
c_73882.elts[0] = ((closureN)self_73433)->elts[0];
c_73882.elts[1] = ((closureN)self_73433)->elts[1];
c_73882.elts[2] = ((closureN)self_73433)->elts[2];

return_funcall1((closure)&c_73882,  Cyc_is_null(r_73238));; 
}

static void __lambda_73(int argc, object self_73434, object r_73233) {
  if( !eq(boolean_f, r_73233) ){ 
  return_funcall1(  ((closureN)self_73434)->elts[1],  car(((closureN)self_73434)->elts[2]));
} else { 
  
closureN_type c_73889;
c_73889.tag = closureN_tag;
 c_73889.fn = __lambda_71;
c_73889.num_elt = 2;
c_73889.elts = (object *)alloca(sizeof(object) * 2);
c_73889.elts[0] = ((closureN)self_73434)->elts[1];
c_73889.elts[1] = ((closureN)self_73434)->elts[2];


closureN_type c_73904;
c_73904.tag = closureN_tag;
 c_73904.fn = __lambda_72;
c_73904.num_elt = 1;
c_73904.elts = (object *)alloca(sizeof(object) * 1);
c_73904.elts[0] = ((closureN)self_73434)->elts[0];

return_funcall1((closure)&c_73889,  &c_73904);}
; 
}

static void __lambda_72(int argc, object self_73435, object k_73237, object a_7355, object b_7356) {
  return_funcall3(  cell_get(((closureN)self_73435)->elts[0]),  k_73237, b_7356, a_7355);; 
}

static void __lambda_71(int argc, object self_73436, object r_73234) {
  
closureN_type c_73891;
c_73891.tag = closureN_tag;
 c_73891.fn = __lambda_70;
c_73891.num_elt = 3;
c_73891.elts = (object *)alloca(sizeof(object) * 3);
c_73891.elts[0] = ((closureN)self_73436)->elts[0];
c_73891.elts[1] = ((closureN)self_73436)->elts[1];
c_73891.elts[2] = r_73234;

return_funcall1((closure)&c_73891,  car(((closureN)self_73436)->elts[1]));; 
}

static void __lambda_70(int argc, object self_73437, object r_73235) {
  
closureN_type c_73893;
c_73893.tag = closureN_tag;
 c_73893.fn = __lambda_69;
c_73893.num_elt = 3;
c_73893.elts = (object *)alloca(sizeof(object) * 3);
c_73893.elts[0] = ((closureN)self_73437)->elts[0];
c_73893.elts[1] = ((closureN)self_73437)->elts[2];
c_73893.elts[2] = r_73235;

return_funcall1((closure)&c_73893,  cdr(((closureN)self_73437)->elts[1]));; 
}

static void __lambda_69(int argc, object self_73438, object r_73236) {
  return_funcall4(  __glo_foldl,  ((closureN)self_73438)->elts[0], ((closureN)self_73438)->elts[1], ((closureN)self_73438)->elts[2], r_73236);; 
}

static void __lambda_68(int argc, closure _,object k_73227, object n_7346) {
  
make_int(c_73862, 0);
return_funcall1(  k_73227,  __num_lt(n_7346, &c_73862));; 
}

static void __lambda_67(int argc, closure _,object k_73224, object n_7345) {
  
make_int(c_73857, 0);
return_funcall1(  k_73224,  __num_gt(n_7345, &c_73857));; 
}

static void __lambda_66(int argc, closure _,object k_73221, object n_7344) {
  
make_int(c_73852, 0);
return_funcall1(  k_73221,  __num_eq(n_7344, &c_73852));; 
}

static void __lambda_65(int argc, closure _,object k_73211, object o_7339) {
  
closureN_type c_73796;
c_73796.tag = closureN_tag;
 c_73796.fn = __lambda_64;
c_73796.num_elt = 2;
c_73796.elts = (object *)alloca(sizeof(object) * 2);
c_73796.elts[0] = k_73211;
c_73796.elts[1] = o_7339;

return_funcall1((closure)&c_73796,  boolean_f);; 
}

static void __lambda_64(int argc, object self_73414, object _191list_127_7341) {
  
closureN_type c_73798;
c_73798.tag = closureN_tag;
 c_73798.fn = __lambda_63;
c_73798.num_elt = 2;
c_73798.elts = (object *)alloca(sizeof(object) * 2);
c_73798.elts[0] = ((closureN)self_73414)->elts[0];
c_73798.elts[1] = ((closureN)self_73414)->elts[1];


make_cell(c_73847,_191list_127_7341);
return_funcall1((closure)&c_73798,  &c_73847);; 
}

static void __lambda_63(int argc, object self_73415, object _191list_127_7341) {
  
closureN_type c_73800;
c_73800.tag = closureN_tag;
 c_73800.fn = __lambda_62;
c_73800.num_elt = 3;
c_73800.elts = (object *)alloca(sizeof(object) * 3);
c_73800.elts[0] = _191list_127_7341;
c_73800.elts[1] = ((closureN)self_73415)->elts[0];
c_73800.elts[2] = ((closureN)self_73415)->elts[1];

return_funcall1((closure)&c_73800,  boolean_f);; 
}

static void __lambda_62(int argc, object self_73416, object _191list_127_7342) {
  
closureN_type c_73802;
c_73802.tag = closureN_tag;
 c_73802.fn = __lambda_57;
c_73802.num_elt = 3;
c_73802.elts = (object *)alloca(sizeof(object) * 3);
c_73802.elts[0] = ((closureN)self_73416)->elts[0];
c_73802.elts[1] = ((closureN)self_73416)->elts[1];
c_73802.elts[2] = ((closureN)self_73416)->elts[2];


closureN_type c_73821;
c_73821.tag = closureN_tag;
 c_73821.fn = __lambda_61;
c_73821.num_elt = 1;
c_73821.elts = (object *)alloca(sizeof(object) * 1);
c_73821.elts[0] = ((closureN)self_73416)->elts[0];

return_funcall1((closure)&c_73802,  &c_73821);; 
}

static void __lambda_61(int argc, object self_73417, object k_73215, object obj_7343) {
  
closureN_type c_73823;
c_73823.tag = closureN_tag;
 c_73823.fn = __lambda_60;
c_73823.num_elt = 3;
c_73823.elts = (object *)alloca(sizeof(object) * 3);
c_73823.elts[0] = ((closureN)self_73417)->elts[0];
c_73823.elts[1] = k_73215;
c_73823.elts[2] = obj_7343;

return_funcall1((closure)&c_73823,  Cyc_is_null(obj_7343));; 
}

static void __lambda_60(int argc, object self_73418, object r_73216) {
  if( !eq(boolean_f, r_73216) ){ 
  return_funcall1(  ((closureN)self_73418)->elts[1],  boolean_t);
} else { 
  
closureN_type c_73827;
c_73827.tag = closureN_tag;
 c_73827.fn = __lambda_59;
c_73827.num_elt = 3;
c_73827.elts = (object *)alloca(sizeof(object) * 3);
c_73827.elts[0] = ((closureN)self_73418)->elts[0];
c_73827.elts[1] = ((closureN)self_73418)->elts[1];
c_73827.elts[2] = ((closureN)self_73418)->elts[2];

return_funcall1((closure)&c_73827,  Cyc_is_cons(((closureN)self_73418)->elts[2]));}
; 
}

static void __lambda_59(int argc, object self_73419, object r_73217) {
  if( !eq(boolean_f, r_73217) ){ 
  
closureN_type c_73829;
c_73829.tag = closureN_tag;
 c_73829.fn = __lambda_58;
c_73829.num_elt = 2;
c_73829.elts = (object *)alloca(sizeof(object) * 2);
c_73829.elts[0] = ((closureN)self_73419)->elts[0];
c_73829.elts[1] = ((closureN)self_73419)->elts[1];

return_funcall1((closure)&c_73829,  cdr(((closureN)self_73419)->elts[2]));
} else { 
  return_funcall1(  ((closureN)self_73419)->elts[1],  boolean_f);}
; 
}

static void __lambda_58(int argc, object self_73420, object r_73218) {
  return_funcall2(  cell_get(((closureN)self_73420)->elts[0]),  ((closureN)self_73420)->elts[1], r_73218);; 
}

static void __lambda_57(int argc, object self_73421, object r_73214) {
  
closureN_type c_73804;
c_73804.tag = closureN_tag;
 c_73804.fn = __lambda_56;
c_73804.num_elt = 3;
c_73804.elts = (object *)alloca(sizeof(object) * 3);
c_73804.elts[0] = ((closureN)self_73421)->elts[0];
c_73804.elts[1] = ((closureN)self_73421)->elts[1];
c_73804.elts[2] = ((closureN)self_73421)->elts[2];

return_funcall1((closure)&c_73804,  Cyc_set_car(((closureN)self_73421)->elts[0], r_73214));; 
}

static void __lambda_56(int argc, object self_73422, object r_73212) {
  
closureN_type c_73806;
c_73806.tag = closureN_tag;
 c_73806.fn = __lambda_55;
c_73806.num_elt = 3;
c_73806.elts = (object *)alloca(sizeof(object) * 3);
c_73806.elts[0] = ((closureN)self_73422)->elts[0];
c_73806.elts[1] = ((closureN)self_73422)->elts[1];
c_73806.elts[2] = ((closureN)self_73422)->elts[2];

return_funcall1((closure)&c_73806,  Cyc_has_cycle(((closureN)self_73422)->elts[2]));; 
}

static void __lambda_55(int argc, object self_73423, object r_73213) {
  if( !eq(boolean_f, r_73213) ){ 
  return_funcall1(  ((closureN)self_73423)->elts[1],  boolean_t);
} else { 
  return_funcall2(  cell_get(((closureN)self_73423)->elts[0]),  ((closureN)self_73423)->elts[1], ((closureN)self_73423)->elts[2]);}
; 
}

static void __lambda_54(int argc, closure _,object k_73208, object x_7338) {
  if( !eq(boolean_f, x_7338) ){ 
  return_funcall1(  k_73208,  boolean_f);
} else { 
  return_funcall1(  k_73208,  boolean_t);}
; 
}

static void __lambda_53(int argc, closure _,object k_73201, object func_7335, object end_7336, object lst_7337) {
  
closureN_type c_73767;
c_73767.tag = closureN_tag;
 c_73767.fn = __lambda_52;
c_73767.num_elt = 4;
c_73767.elts = (object *)alloca(sizeof(object) * 4);
c_73767.elts[0] = end_7336;
c_73767.elts[1] = func_7335;
c_73767.elts[2] = k_73201;
c_73767.elts[3] = lst_7337;

return_funcall1((closure)&c_73767,  Cyc_is_null(lst_7337));; 
}

static void __lambda_52(int argc, object self_73410, object r_73202) {
  if( !eq(boolean_f, r_73202) ){ 
  return_funcall1(  ((closureN)self_73410)->elts[2],  ((closureN)self_73410)->elts[0]);
} else { 
  
closureN_type c_73772;
c_73772.tag = closureN_tag;
 c_73772.fn = __lambda_51;
c_73772.num_elt = 4;
c_73772.elts = (object *)alloca(sizeof(object) * 4);
c_73772.elts[0] = ((closureN)self_73410)->elts[0];
c_73772.elts[1] = ((closureN)self_73410)->elts[1];
c_73772.elts[2] = ((closureN)self_73410)->elts[2];
c_73772.elts[3] = ((closureN)self_73410)->elts[3];

return_funcall1((closure)&c_73772,  car(((closureN)self_73410)->elts[3]));}
; 
}

static void __lambda_51(int argc, object self_73411, object r_73203) {
  
closureN_type c_73774;
c_73774.tag = closureN_tag;
 c_73774.fn = __lambda_50;
c_73774.num_elt = 4;
c_73774.elts = (object *)alloca(sizeof(object) * 4);
c_73774.elts[0] = ((closureN)self_73411)->elts[0];
c_73774.elts[1] = ((closureN)self_73411)->elts[1];
c_73774.elts[2] = ((closureN)self_73411)->elts[2];
c_73774.elts[3] = r_73203;

return_funcall1((closure)&c_73774,  cdr(((closureN)self_73411)->elts[3]));; 
}

static void __lambda_50(int argc, object self_73412, object r_73205) {
  
closureN_type c_73776;
c_73776.tag = closureN_tag;
 c_73776.fn = __lambda_49;
c_73776.num_elt = 3;
c_73776.elts = (object *)alloca(sizeof(object) * 3);
c_73776.elts[0] = ((closureN)self_73412)->elts[1];
c_73776.elts[1] = ((closureN)self_73412)->elts[2];
c_73776.elts[2] = ((closureN)self_73412)->elts[3];

return_funcall4(  __glo_foldr,  &c_73776, ((closureN)self_73412)->elts[1], ((closureN)self_73412)->elts[0], r_73205);; 
}

static void __lambda_49(int argc, object self_73413, object r_73204) {
  return_funcall3(  ((closureN)self_73413)->elts[0],  ((closureN)self_73413)->elts[1], ((closureN)self_73413)->elts[2], r_73204);; 
}

static void __lambda_48(int argc, closure _,object k_73194, object func_7332, object accum_7333, object lst_7334) {
  
closureN_type c_73741;
c_73741.tag = closureN_tag;
 c_73741.fn = __lambda_47;
c_73741.num_elt = 4;
c_73741.elts = (object *)alloca(sizeof(object) * 4);
c_73741.elts[0] = accum_7333;
c_73741.elts[1] = func_7332;
c_73741.elts[2] = k_73194;
c_73741.elts[3] = lst_7334;

return_funcall1((closure)&c_73741,  Cyc_is_null(lst_7334));; 
}

static void __lambda_47(int argc, object self_73406, object r_73195) {
  if( !eq(boolean_f, r_73195) ){ 
  return_funcall1(  ((closureN)self_73406)->elts[2],  ((closureN)self_73406)->elts[0]);
} else { 
  
closureN_type c_73746;
c_73746.tag = closureN_tag;
 c_73746.fn = __lambda_46;
c_73746.num_elt = 4;
c_73746.elts = (object *)alloca(sizeof(object) * 4);
c_73746.elts[0] = ((closureN)self_73406)->elts[0];
c_73746.elts[1] = ((closureN)self_73406)->elts[1];
c_73746.elts[2] = ((closureN)self_73406)->elts[2];
c_73746.elts[3] = ((closureN)self_73406)->elts[3];

return_funcall1((closure)&c_73746,  car(((closureN)self_73406)->elts[3]));}
; 
}

static void __lambda_46(int argc, object self_73407, object r_73198) {
  
closureN_type c_73749;
c_73749.tag = closureN_tag;
 c_73749.fn = __lambda_45;
c_73749.num_elt = 3;
c_73749.elts = (object *)alloca(sizeof(object) * 3);
c_73749.elts[0] = ((closureN)self_73407)->elts[1];
c_73749.elts[1] = ((closureN)self_73407)->elts[2];
c_73749.elts[2] = ((closureN)self_73407)->elts[3];

return_funcall3(  ((closureN)self_73407)->elts[1],  &c_73749, r_73198, ((closureN)self_73407)->elts[0]);; 
}

static void __lambda_45(int argc, object self_73408, object r_73196) {
  
closureN_type c_73751;
c_73751.tag = closureN_tag;
 c_73751.fn = __lambda_44;
c_73751.num_elt = 3;
c_73751.elts = (object *)alloca(sizeof(object) * 3);
c_73751.elts[0] = ((closureN)self_73408)->elts[0];
c_73751.elts[1] = ((closureN)self_73408)->elts[1];
c_73751.elts[2] = r_73196;

return_funcall1((closure)&c_73751,  cdr(((closureN)self_73408)->elts[2]));; 
}

static void __lambda_44(int argc, object self_73409, object r_73197) {
  return_funcall4(  __glo_foldl,  ((closureN)self_73409)->elts[1], ((closureN)self_73409)->elts[0], ((closureN)self_73409)->elts[2], r_73197);; 
}

static void __lambda_43(int argc, closure _,object k_73189, object c_7331) {
  
closureN_type c_73724;
c_73724.tag = closureN_tag;
 c_73724.fn = __lambda_42;
c_73724.num_elt = 2;
c_73724.elts = (object *)alloca(sizeof(object) * 2);
c_73724.elts[0] = c_7331;
c_73724.elts[1] = k_73189;

return_funcall2(  __glo_char_91numeric_127,  &c_73724, c_7331);; 
}

static void __lambda_42(int argc, object self_73404, object r_73190) {
  if( !eq(boolean_f, r_73190) ){ 
  
closureN_type c_73726;
c_73726.tag = closureN_tag;
 c_73726.fn = __lambda_41;
c_73726.num_elt = 1;
c_73726.elts = (object *)alloca(sizeof(object) * 1);
c_73726.elts[0] = ((closureN)self_73404)->elts[1];


integer_type c_73735 = Cyc_char2integer(((closureN)self_73404)->elts[0]);
return_funcall1((closure)&c_73726,  &c_73735);
} else { 
  return_funcall1(  ((closureN)self_73404)->elts[1],  boolean_f);}
; 
}

static void __lambda_41(int argc, object self_73405, object r_73191) {
  
make_int(c_73732, 48);

common_type c_73731 = Cyc_sub(2,r_73191, &c_73732);
return_funcall1(  ((closureN)self_73405)->elts[0],  &c_73731);; 
}

static void __lambda_40(int argc, closure _,object k_73185, object c_7330) {
  
closureN_type c_73712;
c_73712.tag = closureN_tag;
 c_73712.fn = __lambda_39;
c_73712.num_elt = 2;
c_73712.elts = (object *)alloca(sizeof(object) * 2);
c_73712.elts[0] = c_7330;
c_73712.elts[1] = k_73185;


make_cons(c_73721,obj_char2obj(10),nil);

make_cons(c_73720,obj_char2obj(13),&c_73721);

make_cons(c_73719,obj_char2obj(32),&c_73720);

make_cons(c_73718,obj_char2obj(9),&c_73719);
return_funcall1((closure)&c_73712,  &c_73718);; 
}

static void __lambda_39(int argc, object self_73403, object r_73186) {
  return_funcall1(  ((closureN)self_73403)->elts[1],  memberp(((closureN)self_73403)->elts[0], r_73186));; 
}

static void __lambda_38(int argc, closure _,object k_73181, object c_7329) {
  
closureN_type c_73694;
c_73694.tag = closureN_tag;
 c_73694.fn = __lambda_37;
c_73694.num_elt = 2;
c_73694.elts = (object *)alloca(sizeof(object) * 2);
c_73694.elts[0] = c_7329;
c_73694.elts[1] = k_73181;


make_cons(c_73709,obj_char2obj(57),nil);

make_cons(c_73708,obj_char2obj(56),&c_73709);

make_cons(c_73707,obj_char2obj(55),&c_73708);

make_cons(c_73706,obj_char2obj(54),&c_73707);

make_cons(c_73705,obj_char2obj(53),&c_73706);

make_cons(c_73704,obj_char2obj(52),&c_73705);

make_cons(c_73703,obj_char2obj(51),&c_73704);

make_cons(c_73702,obj_char2obj(50),&c_73703);

make_cons(c_73701,obj_char2obj(49),&c_73702);

make_cons(c_73700,obj_char2obj(48),&c_73701);
return_funcall1((closure)&c_73694,  &c_73700);; 
}

static void __lambda_37(int argc, object self_73402, object r_73182) {
  return_funcall1(  ((closureN)self_73402)->elts[1],  memberp(((closureN)self_73402)->elts[0], r_73182));; 
}

static void __lambda_36(int argc, closure _,object k_73177, object c_7328) {
  
closureN_type c_73686;
c_73686.tag = closureN_tag;
 c_73686.fn = __lambda_35;
c_73686.num_elt = 2;
c_73686.elts = (object *)alloca(sizeof(object) * 2);
c_73686.elts[0] = c_7328;
c_73686.elts[1] = k_73177;

return_funcall3(  __glo_char_125_123_127,  &c_73686, c_7328, obj_char2obj(97));; 
}

static void __lambda_35(int argc, object self_73401, object r_73178) {
  if( !eq(boolean_f, r_73178) ){ 
  return_funcall3(  __glo_char_121_123_127,  ((closureN)self_73401)->elts[1], ((closureN)self_73401)->elts[0], obj_char2obj(122));
} else { 
  return_funcall1(  ((closureN)self_73401)->elts[1],  boolean_f);}
; 
}

static void __lambda_34(int argc, closure _,object k_73173, object c_7327) {
  
closureN_type c_73678;
c_73678.tag = closureN_tag;
 c_73678.fn = __lambda_33;
c_73678.num_elt = 2;
c_73678.elts = (object *)alloca(sizeof(object) * 2);
c_73678.elts[0] = c_7327;
c_73678.elts[1] = k_73173;

return_funcall3(  __glo_char_125_123_127,  &c_73678, c_7327, obj_char2obj(65));; 
}

static void __lambda_33(int argc, object self_73400, object r_73174) {
  if( !eq(boolean_f, r_73174) ){ 
  return_funcall3(  __glo_char_121_123_127,  ((closureN)self_73400)->elts[1], ((closureN)self_73400)->elts[0], obj_char2obj(90));
} else { 
  return_funcall1(  ((closureN)self_73400)->elts[1],  boolean_f);}
; 
}

static void __lambda_32(int argc, closure _,object k_73169, object c_7326) {
  
closureN_type c_73670;
c_73670.tag = closureN_tag;
 c_73670.fn = __lambda_31;
c_73670.num_elt = 2;
c_73670.elts = (object *)alloca(sizeof(object) * 2);
c_73670.elts[0] = c_7326;
c_73670.elts[1] = k_73169;

return_funcall3(  __glo_char_125_123_127,  &c_73670, c_7326, obj_char2obj(65));; 
}

static void __lambda_31(int argc, object self_73399, object r_73170) {
  if( !eq(boolean_f, r_73170) ){ 
  return_funcall3(  __glo_char_121_123_127,  ((closureN)self_73399)->elts[1], ((closureN)self_73399)->elts[0], obj_char2obj(122));
} else { 
  return_funcall1(  ((closureN)self_73399)->elts[1],  boolean_f);}
; 
}

static void __lambda_30(int argc, closure _,object k_73163, object c_7325) {
  
closureN_type c_73648;
c_73648.tag = closureN_tag;
 c_73648.fn = __lambda_29;
c_73648.num_elt = 2;
c_73648.elts = (object *)alloca(sizeof(object) * 2);
c_73648.elts[0] = c_7325;
c_73648.elts[1] = k_73163;

return_funcall2(  __glo_char_91upper_91case_127,  &c_73648, c_7325);; 
}

static void __lambda_29(int argc, object self_73396, object r_73164) {
  if( !eq(boolean_f, r_73164) ){ 
  
closureN_type c_73650;
c_73650.tag = closureN_tag;
 c_73650.fn = __lambda_28;
c_73650.num_elt = 1;
c_73650.elts = (object *)alloca(sizeof(object) * 1);
c_73650.elts[0] = ((closureN)self_73396)->elts[1];


integer_type c_73663 = Cyc_char2integer(((closureN)self_73396)->elts[0]);
return_funcall1((closure)&c_73650,  &c_73663);
} else { 
  return_funcall1(  ((closureN)self_73396)->elts[1],  ((closureN)self_73396)->elts[0]);}
; 
}

static void __lambda_28(int argc, object self_73397, object r_73166) {
  
closureN_type c_73652;
c_73652.tag = closureN_tag;
 c_73652.fn = __lambda_27;
c_73652.num_elt = 1;
c_73652.elts = (object *)alloca(sizeof(object) * 1);
c_73652.elts[0] = ((closureN)self_73397)->elts[0];


make_int(c_73660, 32);

common_type c_73659 = Cyc_sum(2,r_73166, &c_73660);
return_funcall1((closure)&c_73652,  &c_73659);; 
}

static void __lambda_27(int argc, object self_73398, object r_73165) {
  return_funcall1(  ((closureN)self_73398)->elts[0],  Cyc_integer2char(r_73165));; 
}

static void __lambda_26(int argc, closure _,object k_73157, object c_7324) {
  
closureN_type c_73626;
c_73626.tag = closureN_tag;
 c_73626.fn = __lambda_25;
c_73626.num_elt = 2;
c_73626.elts = (object *)alloca(sizeof(object) * 2);
c_73626.elts[0] = c_7324;
c_73626.elts[1] = k_73157;

return_funcall2(  __glo_char_91lower_91case_127,  &c_73626, c_7324);; 
}

static void __lambda_25(int argc, object self_73393, object r_73158) {
  if( !eq(boolean_f, r_73158) ){ 
  
closureN_type c_73628;
c_73628.tag = closureN_tag;
 c_73628.fn = __lambda_24;
c_73628.num_elt = 1;
c_73628.elts = (object *)alloca(sizeof(object) * 1);
c_73628.elts[0] = ((closureN)self_73393)->elts[1];


integer_type c_73641 = Cyc_char2integer(((closureN)self_73393)->elts[0]);
return_funcall1((closure)&c_73628,  &c_73641);
} else { 
  return_funcall1(  ((closureN)self_73393)->elts[1],  ((closureN)self_73393)->elts[0]);}
; 
}

static void __lambda_24(int argc, object self_73394, object r_73160) {
  
closureN_type c_73630;
c_73630.tag = closureN_tag;
 c_73630.fn = __lambda_23;
c_73630.num_elt = 1;
c_73630.elts = (object *)alloca(sizeof(object) * 1);
c_73630.elts[0] = ((closureN)self_73394)->elts[0];


make_int(c_73638, 32);

common_type c_73637 = Cyc_sub(2,r_73160, &c_73638);
return_funcall1((closure)&c_73630,  &c_73637);; 
}

static void __lambda_23(int argc, object self_73395, object r_73159) {
  return_funcall1(  ((closureN)self_73395)->elts[0],  Cyc_integer2char(r_73159));; 
}

static void __lambda_22(int argc, closure _,object k_73153, object c1_7321, object c2_7322, object cs_7323_raw, ...) {
load_varargs(cs_7323, cs_7323_raw, argc - 3);
  
closureN_type c_73617;
c_73617.tag = closureN_tag;
 c_73617.fn = __lambda_21;
c_73617.num_elt = 2;
c_73617.elts = (object *)alloca(sizeof(object) * 2);
c_73617.elts[0] = c1_7321;
c_73617.elts[1] = k_73153;


make_cons(c_73623,c2_7322, cs_7323);
return_funcall1((closure)&c_73617,  &c_73623);; 
}

static void __lambda_21(int argc, object self_73392, object r_73154) {
  return_funcall4(  __glo_Cyc_91bin_91op_91char,  ((closureN)self_73392)->elts[1], primitive__125_123, ((closureN)self_73392)->elts[0], r_73154);; 
}

static void __lambda_20(int argc, closure _,object k_73149, object c1_7318, object c2_7319, object cs_7320_raw, ...) {
load_varargs(cs_7320, cs_7320_raw, argc - 3);
  
closureN_type c_73608;
c_73608.tag = closureN_tag;
 c_73608.fn = __lambda_19;
c_73608.num_elt = 2;
c_73608.elts = (object *)alloca(sizeof(object) * 2);
c_73608.elts[0] = c1_7318;
c_73608.elts[1] = k_73149;


make_cons(c_73614,c2_7319, cs_7320);
return_funcall1((closure)&c_73608,  &c_73614);; 
}

static void __lambda_19(int argc, object self_73391, object r_73150) {
  return_funcall4(  __glo_Cyc_91bin_91op_91char,  ((closureN)self_73391)->elts[1], primitive__121_123, ((closureN)self_73391)->elts[0], r_73150);; 
}

static void __lambda_18(int argc, closure _,object k_73145, object c1_7315, object c2_7316, object cs_7317_raw, ...) {
load_varargs(cs_7317, cs_7317_raw, argc - 3);
  
closureN_type c_73599;
c_73599.tag = closureN_tag;
 c_73599.fn = __lambda_17;
c_73599.num_elt = 2;
c_73599.elts = (object *)alloca(sizeof(object) * 2);
c_73599.elts[0] = c1_7315;
c_73599.elts[1] = k_73145;


make_cons(c_73605,c2_7316, cs_7317);
return_funcall1((closure)&c_73599,  &c_73605);; 
}

static void __lambda_17(int argc, object self_73390, object r_73146) {
  return_funcall4(  __glo_Cyc_91bin_91op_91char,  ((closureN)self_73390)->elts[1], primitive__125, ((closureN)self_73390)->elts[0], r_73146);; 
}

static void __lambda_16(int argc, closure _,object k_73141, object c1_7312, object c2_7313, object cs_7314_raw, ...) {
load_varargs(cs_7314, cs_7314_raw, argc - 3);
  
closureN_type c_73590;
c_73590.tag = closureN_tag;
 c_73590.fn = __lambda_15;
c_73590.num_elt = 2;
c_73590.elts = (object *)alloca(sizeof(object) * 2);
c_73590.elts[0] = c1_7312;
c_73590.elts[1] = k_73141;


make_cons(c_73596,c2_7313, cs_7314);
return_funcall1((closure)&c_73590,  &c_73596);; 
}

static void __lambda_15(int argc, object self_73389, object r_73142) {
  return_funcall4(  __glo_Cyc_91bin_91op_91char,  ((closureN)self_73389)->elts[1], primitive__121, ((closureN)self_73389)->elts[0], r_73142);; 
}

static void __lambda_14(int argc, closure _,object k_73137, object c1_739, object c2_7310, object cs_7311_raw, ...) {
load_varargs(cs_7311, cs_7311_raw, argc - 3);
  
closureN_type c_73581;
c_73581.tag = closureN_tag;
 c_73581.fn = __lambda_13;
c_73581.num_elt = 2;
c_73581.elts = (object *)alloca(sizeof(object) * 2);
c_73581.elts[0] = c1_739;
c_73581.elts[1] = k_73137;


make_cons(c_73587,c2_7310, cs_7311);
return_funcall1((closure)&c_73581,  &c_73587);; 
}

static void __lambda_13(int argc, object self_73388, object r_73138) {
  return_funcall4(  __glo_Cyc_91bin_91op_91char,  ((closureN)self_73388)->elts[1], primitive__123, ((closureN)self_73388)->elts[0], r_73138);; 
}

static void __lambda_12(int argc, closure _,object k_73130, object cmp_734, object c_735, object cs_736) {
  
closureN_type c_73558;
c_73558.tag = closureN_tag;
 c_73558.fn = __lambda_8;
c_73558.num_elt = 3;
c_73558.elts = (object *)alloca(sizeof(object) * 3);
c_73558.elts[0] = c_735;
c_73558.elts[1] = cs_736;
c_73558.elts[2] = k_73130;


closureN_type c_73563;
c_73563.tag = closureN_tag;
 c_73563.fn = __lambda_11;
c_73563.num_elt = 1;
c_73563.elts = (object *)alloca(sizeof(object) * 1);
c_73563.elts[0] = cmp_734;

return_funcall1((closure)&c_73558,  &c_73563);; 
}

static void __lambda_11(int argc, object self_73384, object k_73132, object x_737, object y_738) {
  
closureN_type c_73565;
c_73565.tag = closureN_tag;
 c_73565.fn = __lambda_10;
c_73565.num_elt = 3;
c_73565.elts = (object *)alloca(sizeof(object) * 3);
c_73565.elts[0] = ((closureN)self_73384)->elts[0];
c_73565.elts[1] = k_73132;
c_73565.elts[2] = y_738;


integer_type c_73578 = Cyc_char2integer(x_737);
return_funcall1((closure)&c_73565,  &c_73578);; 
}

static void __lambda_10(int argc, object self_73385, object r_73133) {
  
closureN_type c_73567;
c_73567.tag = closureN_tag;
 c_73567.fn = __lambda_9;
c_73567.num_elt = 3;
c_73567.elts = (object *)alloca(sizeof(object) * 3);
c_73567.elts[0] = ((closureN)self_73385)->elts[0];
c_73567.elts[1] = ((closureN)self_73385)->elts[1];
c_73567.elts[2] = r_73133;


integer_type c_73574 = Cyc_char2integer(((closureN)self_73385)->elts[2]);
return_funcall1((closure)&c_73567,  &c_73574);; 
}

static void __lambda_9(int argc, object self_73386, object r_73134) {
  return_funcall3(  ((closureN)self_73386)->elts[0],  ((closureN)self_73386)->elts[1], ((closureN)self_73386)->elts[2], r_73134);; 
}

static void __lambda_8(int argc, object self_73387, object r_73131) {
  return_funcall4(  __glo_Cyc_91bin_91op,  ((closureN)self_73387)->elts[2], r_73131, ((closureN)self_73387)->elts[0], ((closureN)self_73387)->elts[1]);; 
}

static void __lambda_7(int argc, closure _,object k_73122, object cmp_731, object x_732, object lst_733) {
  
closureN_type c_73526;
c_73526.tag = closureN_tag;
 c_73526.fn = __lambda_6;
c_73526.num_elt = 4;
c_73526.elts = (object *)alloca(sizeof(object) * 4);
c_73526.elts[0] = cmp_731;
c_73526.elts[1] = k_73122;
c_73526.elts[2] = lst_733;
c_73526.elts[3] = x_732;

return_funcall1((closure)&c_73526,  Cyc_is_null(lst_733));; 
}

static void __lambda_6(int argc, object self_73379, object r_73123) {
  if( !eq(boolean_f, r_73123) ){ 
  return_funcall1(  ((closureN)self_73379)->elts[1],  boolean_t);
} else { 
  
closureN_type c_73530;
c_73530.tag = closureN_tag;
 c_73530.fn = __lambda_5;
c_73530.num_elt = 4;
c_73530.elts = (object *)alloca(sizeof(object) * 4);
c_73530.elts[0] = ((closureN)self_73379)->elts[0];
c_73530.elts[1] = ((closureN)self_73379)->elts[1];
c_73530.elts[2] = ((closureN)self_73379)->elts[2];
c_73530.elts[3] = ((closureN)self_73379)->elts[3];

return_funcall1((closure)&c_73530,  car(((closureN)self_73379)->elts[2]));}
; 
}

static void __lambda_5(int argc, object self_73380, object r_73127) {
  
closureN_type c_73533;
c_73533.tag = closureN_tag;
 c_73533.fn = __lambda_4;
c_73533.num_elt = 3;
c_73533.elts = (object *)alloca(sizeof(object) * 3);
c_73533.elts[0] = ((closureN)self_73380)->elts[0];
c_73533.elts[1] = ((closureN)self_73380)->elts[1];
c_73533.elts[2] = ((closureN)self_73380)->elts[2];

return_funcall3(  ((closureN)self_73380)->elts[0],  &c_73533, ((closureN)self_73380)->elts[3], r_73127);; 
}

static void __lambda_4(int argc, object self_73381, object r_73124) {
  if( !eq(boolean_f, r_73124) ){ 
  
closureN_type c_73535;
c_73535.tag = closureN_tag;
 c_73535.fn = __lambda_3;
c_73535.num_elt = 3;
c_73535.elts = (object *)alloca(sizeof(object) * 3);
c_73535.elts[0] = ((closureN)self_73381)->elts[0];
c_73535.elts[1] = ((closureN)self_73381)->elts[1];
c_73535.elts[2] = ((closureN)self_73381)->elts[2];

return_funcall1((closure)&c_73535,  car(((closureN)self_73381)->elts[2]));
} else { 
  return_funcall1(  ((closureN)self_73381)->elts[1],  boolean_f);}
; 
}

static void __lambda_3(int argc, object self_73382, object r_73125) {
  
closureN_type c_73537;
c_73537.tag = closureN_tag;
 c_73537.fn = __lambda_2;
c_73537.num_elt = 3;
c_73537.elts = (object *)alloca(sizeof(object) * 3);
c_73537.elts[0] = ((closureN)self_73382)->elts[0];
c_73537.elts[1] = ((closureN)self_73382)->elts[1];
c_73537.elts[2] = r_73125;

return_funcall1((closure)&c_73537,  cdr(((closureN)self_73382)->elts[2]));; 
}

static void __lambda_2(int argc, object self_73383, object r_73126) {
  return_funcall4(  __glo_Cyc_91bin_91op,  ((closureN)self_73383)->elts[1], ((closureN)self_73383)->elts[0], ((closureN)self_73383)->elts[2], r_73126);; 
}

static void __lambda_1(int argc, closure _,object k, object f) {
  
closureN_type c_73520;
c_73520.tag = closureN_tag;
 c_73520.fn = __lambda_0;
c_73520.num_elt = 1;
c_73520.elts = (object *)alloca(sizeof(object) * 1);
c_73520.elts[0] = k;

return_funcall2(  f,  k, &c_73520);; 
}

static void __lambda_0(int argc, object self_73378, object _191, object result) {
  return_funcall1(  ((closureN)self_73378)->elts[0],  result);; 
}

void c_schemebase_entry_pt(argc, env,cont) int argc; closure env,cont; { 

  add_global((object *) &__glo_Cyc_91remove_91exception_91handler);
  add_global((object *) &__glo_Cyc_91add_91exception_91handler);
  add_global((object *) &__glo__85exception_91handler_91stack_85);
  add_global((object *) &__glo_with_91exception_91handler);
  add_global((object *) &__glo_raise_91continuable);
  add_global((object *) &__glo_raise);
  add_global((object *) &__glo_error);
  add_global((object *) &__glo_make_91string);
  add_global((object *) &__glo_Cyc_91obj_123_127);
  add_global((object *) &__glo_symbol_123_127);
  add_global((object *) &__glo_boolean_123_127);
  add_global((object *) &__glo_reverse);
  add_global((object *) &__glo_list_91set_67);
  add_global((object *) &__glo_list_91ref);
  add_global((object *) &__glo_list_91tail);
  add_global((object *) &__glo_for_91each);
  add_global((object *) &__glo_map);
  add_global((object *) &__glo_list_91copy);
  add_global((object *) &__glo_make_91list);
  add_global((object *) &__glo__list);
  add_global((object *) &__glo_append);
  add_global((object *) &__glo_negative_127);
  add_global((object *) &__glo_positive_127);
  add_global((object *) &__glo_zero_127);
  add_global((object *) &__glo_list_127);
  add_global((object *) &__glo_not);
  add_global((object *) &__glo_foldr);
  add_global((object *) &__glo_foldl);
  add_global((object *) &__glo_digit_91value);
  add_global((object *) &__glo_char_91whitespace_127);
  add_global((object *) &__glo_char_91numeric_127);
  add_global((object *) &__glo_char_91lower_91case_127);
  add_global((object *) &__glo_char_91upper_91case_127);
  add_global((object *) &__glo_char_91alphabetic_127);
  add_global((object *) &__glo_char_91downcase);
  add_global((object *) &__glo_char_91upcase);
  add_global((object *) &__glo_char_125_123_127);
  add_global((object *) &__glo_char_121_123_127);
  add_global((object *) &__glo_char_125_127);
  add_global((object *) &__glo_char_121_127);
  add_global((object *) &__glo_char_123_127);
  add_global((object *) &__glo_Cyc_91bin_91op_91char);
  add_global((object *) &__glo_Cyc_91bin_91op);
  add_global((object *) &__glo_call_91with_91current_91continuation);
  add_global((object *) &__glo__85Cyc_91version_91banner_85);
  add_global((object *) &__glo__85features_85);
  add_global((object *) &__glo__85c_91file_91header_91comment_85);
  add_global((object *) &__glo__85version_91banner_85);
  add_global((object *) &__glo__85version_85);
  add_global((object *) &__glo_call_95cc);
  add_symbol(quote_cyclone);
  add_symbol(quote_continuable);
  add_symbol(quote_raised);
  mclosure0(c_731322, (function_type)__lambda_182); 
  __glo_Cyc_91remove_91exception_91handler = &c_731322; 
  mclosure0(c_731312, (function_type)__lambda_178); 
  __glo_Cyc_91add_91exception_91handler = &c_731312; 
  mclosure0(c_731230, (function_type)__lambda_176); 
  __glo_with_91exception_91handler = &c_731230; 
  mclosure0(c_731217, (function_type)__lambda_156); 
  __glo_raise_91continuable = &c_731217; 
  mclosure0(c_731204, (function_type)__lambda_152); 
  __glo_raise = &c_731204; 
  mclosure0(c_731196, (function_type)__lambda_148); 
  __glo_error = &c_731196; 
  mclosure0(c_731163, (function_type)__lambda_146); 
  __glo_make_91string = &c_731163; 
  mclosure0(c_731133, (function_type)__lambda_139); 
  __glo_Cyc_91obj_123_127 = &c_731133; 
  mclosure0(c_731124, (function_type)__lambda_130); 
  __glo_symbol_123_127 = &c_731124; 
  mclosure0(c_731115, (function_type)__lambda_128); 
  __glo_boolean_123_127 = &c_731115; 
  mclosure0(c_731109, (function_type)__lambda_126); 
  __glo_reverse = &c_731109; 
  mclosure0(c_731099, (function_type)__lambda_124); 
  __glo_list_91set_67 = &c_731099; 
  mclosure0(c_731092, (function_type)__lambda_121); 
  __glo_list_91ref = &c_731092; 
  mclosure0(c_731071, (function_type)__lambda_119); 
  __glo_list_91tail = &c_731071; 
  mclosure0(c_731046, (function_type)__lambda_115); 
  __glo_for_91each = &c_731046; 
  mclosure0(c_731027, (function_type)__lambda_109); 
  __glo_map = &c_731027; 
  mclosure0(c_731013, (function_type)__lambda_104); 
  __glo_list_91copy = &c_731013; 
  mclosure0(c_73937, (function_type)__lambda_100); 
  __glo_make_91list = &c_73937; 
  mclosure0(c_73935, (function_type)__lambda_85); 
  __glo__list = &c_73935; 
  mclosure0(c_73863, (function_type)__lambda_84); 
  __glo_append = &c_73863; 
  mclosure0(c_73858, (function_type)__lambda_68); 
  __glo_negative_127 = &c_73858; 
  mclosure0(c_73853, (function_type)__lambda_67); 
  __glo_positive_127 = &c_73853; 
  mclosure0(c_73848, (function_type)__lambda_66); 
  __glo_zero_127 = &c_73848; 
  mclosure0(c_73794, (function_type)__lambda_65); 
  __glo_list_127 = &c_73794; 
  mclosure0(c_73791, (function_type)__lambda_54); 
  __glo_not = &c_73791; 
  mclosure0(c_73765, (function_type)__lambda_53); 
  __glo_foldr = &c_73765; 
  mclosure0(c_73739, (function_type)__lambda_48); 
  __glo_foldl = &c_73739; 
  mclosure0(c_73722, (function_type)__lambda_43); 
  __glo_digit_91value = &c_73722; 
  mclosure0(c_73710, (function_type)__lambda_40); 
  __glo_char_91whitespace_127 = &c_73710; 
  mclosure0(c_73692, (function_type)__lambda_38); 
  __glo_char_91numeric_127 = &c_73692; 
  mclosure0(c_73684, (function_type)__lambda_36); 
  __glo_char_91lower_91case_127 = &c_73684; 
  mclosure0(c_73676, (function_type)__lambda_34); 
  __glo_char_91upper_91case_127 = &c_73676; 
  mclosure0(c_73668, (function_type)__lambda_32); 
  __glo_char_91alphabetic_127 = &c_73668; 
  mclosure0(c_73646, (function_type)__lambda_30); 
  __glo_char_91downcase = &c_73646; 
  mclosure0(c_73624, (function_type)__lambda_26); 
  __glo_char_91upcase = &c_73624; 
  mclosure0(c_73615, (function_type)__lambda_22); 
  __glo_char_125_123_127 = &c_73615; 
  mclosure0(c_73606, (function_type)__lambda_20); 
  __glo_char_121_123_127 = &c_73606; 
  mclosure0(c_73597, (function_type)__lambda_18); 
  __glo_char_125_127 = &c_73597; 
  mclosure0(c_73588, (function_type)__lambda_16); 
  __glo_char_121_127 = &c_73588; 
  mclosure0(c_73579, (function_type)__lambda_14); 
  __glo_char_123_127 = &c_73579; 
  mclosure0(c_73556, (function_type)__lambda_12); 
  __glo_Cyc_91bin_91op_91char = &c_73556; 
  mclosure0(c_73524, (function_type)__lambda_7); 
  __glo_Cyc_91bin_91op = &c_73524; 
  mclosure0(c_73518, (function_type)__lambda_1); 
  __glo_call_95cc = &c_73518; 
  __glo__85exception_91handler_91stack_85 = boolean_f; 
  __glo_call_91with_91current_91continuation = __glo_call_95cc; 
  __glo__85Cyc_91version_91banner_85 = __glo__85version_91banner_85; 
  __glo__85features_85 = boolean_f; 
  __glo__85c_91file_91header_91comment_85 = boolean_f; 
  __glo__85version_91banner_85 = boolean_f; 
  make_string(c_73523, "0.0.1 (Pre-release)"); 
  __glo__85version_85 = &c_73523; 

  make_cvar(cvar_731370, (object *)&__glo_Cyc_91remove_91exception_91handler);make_cons(pair_731371, find_or_add_symbol("Cyc-remove-exception-handler"), &cvar_731370);
  make_cvar(cvar_731372, (object *)&__glo_Cyc_91add_91exception_91handler);make_cons(pair_731373, find_or_add_symbol("Cyc-add-exception-handler"), &cvar_731372);
  make_cvar(cvar_731374, (object *)&__glo__85exception_91handler_91stack_85);make_cons(pair_731375, find_or_add_symbol("*exception-handler-stack*"), &cvar_731374);
  make_cvar(cvar_731376, (object *)&__glo_with_91exception_91handler);make_cons(pair_731377, find_or_add_symbol("with-exception-handler"), &cvar_731376);
  make_cvar(cvar_731378, (object *)&__glo_raise_91continuable);make_cons(pair_731379, find_or_add_symbol("raise-continuable"), &cvar_731378);
  make_cvar(cvar_731380, (object *)&__glo_raise);make_cons(pair_731381, find_or_add_symbol("raise"), &cvar_731380);
  make_cvar(cvar_731382, (object *)&__glo_error);make_cons(pair_731383, find_or_add_symbol("error"), &cvar_731382);
  make_cvar(cvar_731384, (object *)&__glo_make_91string);make_cons(pair_731385, find_or_add_symbol("make-string"), &cvar_731384);
  make_cvar(cvar_731386, (object *)&__glo_Cyc_91obj_123_127);make_cons(pair_731387, find_or_add_symbol("Cyc-obj=?"), &cvar_731386);
  make_cvar(cvar_731388, (object *)&__glo_symbol_123_127);make_cons(pair_731389, find_or_add_symbol("symbol=?"), &cvar_731388);
  make_cvar(cvar_731390, (object *)&__glo_boolean_123_127);make_cons(pair_731391, find_or_add_symbol("boolean=?"), &cvar_731390);
  make_cvar(cvar_731392, (object *)&__glo_reverse);make_cons(pair_731393, find_or_add_symbol("reverse"), &cvar_731392);
  make_cvar(cvar_731394, (object *)&__glo_list_91set_67);make_cons(pair_731395, find_or_add_symbol("list-set!"), &cvar_731394);
  make_cvar(cvar_731396, (object *)&__glo_list_91ref);make_cons(pair_731397, find_or_add_symbol("list-ref"), &cvar_731396);
  make_cvar(cvar_731398, (object *)&__glo_list_91tail);make_cons(pair_731399, find_or_add_symbol("list-tail"), &cvar_731398);
  make_cvar(cvar_731400, (object *)&__glo_for_91each);make_cons(pair_731401, find_or_add_symbol("for-each"), &cvar_731400);
  make_cvar(cvar_731402, (object *)&__glo_map);make_cons(pair_731403, find_or_add_symbol("map"), &cvar_731402);
  make_cvar(cvar_731404, (object *)&__glo_list_91copy);make_cons(pair_731405, find_or_add_symbol("list-copy"), &cvar_731404);
  make_cvar(cvar_731406, (object *)&__glo_make_91list);make_cons(pair_731407, find_or_add_symbol("make-list"), &cvar_731406);
  make_cvar(cvar_731408, (object *)&__glo__list);make_cons(pair_731409, find_or_add_symbol("list"), &cvar_731408);
  make_cvar(cvar_731410, (object *)&__glo_append);make_cons(pair_731411, find_or_add_symbol("append"), &cvar_731410);
  make_cvar(cvar_731412, (object *)&__glo_negative_127);make_cons(pair_731413, find_or_add_symbol("negative?"), &cvar_731412);
  make_cvar(cvar_731414, (object *)&__glo_positive_127);make_cons(pair_731415, find_or_add_symbol("positive?"), &cvar_731414);
  make_cvar(cvar_731416, (object *)&__glo_zero_127);make_cons(pair_731417, find_or_add_symbol("zero?"), &cvar_731416);
  make_cvar(cvar_731418, (object *)&__glo_list_127);make_cons(pair_731419, find_or_add_symbol("list?"), &cvar_731418);
  make_cvar(cvar_731420, (object *)&__glo_not);make_cons(pair_731421, find_or_add_symbol("not"), &cvar_731420);
  make_cvar(cvar_731422, (object *)&__glo_foldr);make_cons(pair_731423, find_or_add_symbol("foldr"), &cvar_731422);
  make_cvar(cvar_731424, (object *)&__glo_foldl);make_cons(pair_731425, find_or_add_symbol("foldl"), &cvar_731424);
  make_cvar(cvar_731426, (object *)&__glo_digit_91value);make_cons(pair_731427, find_or_add_symbol("digit-value"), &cvar_731426);
  make_cvar(cvar_731428, (object *)&__glo_char_91whitespace_127);make_cons(pair_731429, find_or_add_symbol("char-whitespace?"), &cvar_731428);
  make_cvar(cvar_731430, (object *)&__glo_char_91numeric_127);make_cons(pair_731431, find_or_add_symbol("char-numeric?"), &cvar_731430);
  make_cvar(cvar_731432, (object *)&__glo_char_91lower_91case_127);make_cons(pair_731433, find_or_add_symbol("char-lower-case?"), &cvar_731432);
  make_cvar(cvar_731434, (object *)&__glo_char_91upper_91case_127);make_cons(pair_731435, find_or_add_symbol("char-upper-case?"), &cvar_731434);
  make_cvar(cvar_731436, (object *)&__glo_char_91alphabetic_127);make_cons(pair_731437, find_or_add_symbol("char-alphabetic?"), &cvar_731436);
  make_cvar(cvar_731438, (object *)&__glo_char_91downcase);make_cons(pair_731439, find_or_add_symbol("char-downcase"), &cvar_731438);
  make_cvar(cvar_731440, (object *)&__glo_char_91upcase);make_cons(pair_731441, find_or_add_symbol("char-upcase"), &cvar_731440);
  make_cvar(cvar_731442, (object *)&__glo_char_125_123_127);make_cons(pair_731443, find_or_add_symbol("char>=?"), &cvar_731442);
  make_cvar(cvar_731444, (object *)&__glo_char_121_123_127);make_cons(pair_731445, find_or_add_symbol("char<=?"), &cvar_731444);
  make_cvar(cvar_731446, (object *)&__glo_char_125_127);make_cons(pair_731447, find_or_add_symbol("char>?"), &cvar_731446);
  make_cvar(cvar_731448, (object *)&__glo_char_121_127);make_cons(pair_731449, find_or_add_symbol("char<?"), &cvar_731448);
  make_cvar(cvar_731450, (object *)&__glo_char_123_127);make_cons(pair_731451, find_or_add_symbol("char=?"), &cvar_731450);
  make_cvar(cvar_731452, (object *)&__glo_Cyc_91bin_91op_91char);make_cons(pair_731453, find_or_add_symbol("Cyc-bin-op-char"), &cvar_731452);
  make_cvar(cvar_731454, (object *)&__glo_Cyc_91bin_91op);make_cons(pair_731455, find_or_add_symbol("Cyc-bin-op"), &cvar_731454);
  make_cvar(cvar_731456, (object *)&__glo_call_91with_91current_91continuation);make_cons(pair_731457, find_or_add_symbol("call-with-current-continuation"), &cvar_731456);
  make_cvar(cvar_731458, (object *)&__glo__85Cyc_91version_91banner_85);make_cons(pair_731459, find_or_add_symbol("*Cyc-version-banner*"), &cvar_731458);
  make_cvar(cvar_731460, (object *)&__glo__85features_85);make_cons(pair_731461, find_or_add_symbol("*features*"), &cvar_731460);
  make_cvar(cvar_731462, (object *)&__glo__85c_91file_91header_91comment_85);make_cons(pair_731463, find_or_add_symbol("*c-file-header-comment*"), &cvar_731462);
  make_cvar(cvar_731464, (object *)&__glo__85version_91banner_85);make_cons(pair_731465, find_or_add_symbol("*version-banner*"), &cvar_731464);
  make_cvar(cvar_731466, (object *)&__glo__85version_85);make_cons(pair_731467, find_or_add_symbol("*version*"), &cvar_731466);
  make_cvar(cvar_731468, (object *)&__glo_call_95cc);make_cons(pair_731469, find_or_add_symbol("call/cc"), &cvar_731468);
make_cons(c_731519, &pair_731371,Cyc_global_variables);
make_cons(c_731518, &pair_731373, &c_731519);
make_cons(c_731517, &pair_731375, &c_731518);
make_cons(c_731516, &pair_731377, &c_731517);
make_cons(c_731515, &pair_731379, &c_731516);
make_cons(c_731514, &pair_731381, &c_731515);
make_cons(c_731513, &pair_731383, &c_731514);
make_cons(c_731512, &pair_731385, &c_731513);
make_cons(c_731511, &pair_731387, &c_731512);
make_cons(c_731510, &pair_731389, &c_731511);
make_cons(c_731509, &pair_731391, &c_731510);
make_cons(c_731508, &pair_731393, &c_731509);
make_cons(c_731507, &pair_731395, &c_731508);
make_cons(c_731506, &pair_731397, &c_731507);
make_cons(c_731505, &pair_731399, &c_731506);
make_cons(c_731504, &pair_731401, &c_731505);
make_cons(c_731503, &pair_731403, &c_731504);
make_cons(c_731502, &pair_731405, &c_731503);
make_cons(c_731501, &pair_731407, &c_731502);
make_cons(c_731500, &pair_731409, &c_731501);
make_cons(c_731499, &pair_731411, &c_731500);
make_cons(c_731498, &pair_731413, &c_731499);
make_cons(c_731497, &pair_731415, &c_731498);
make_cons(c_731496, &pair_731417, &c_731497);
make_cons(c_731495, &pair_731419, &c_731496);
make_cons(c_731494, &pair_731421, &c_731495);
make_cons(c_731493, &pair_731423, &c_731494);
make_cons(c_731492, &pair_731425, &c_731493);
make_cons(c_731491, &pair_731427, &c_731492);
make_cons(c_731490, &pair_731429, &c_731491);
make_cons(c_731489, &pair_731431, &c_731490);
make_cons(c_731488, &pair_731433, &c_731489);
make_cons(c_731487, &pair_731435, &c_731488);
make_cons(c_731486, &pair_731437, &c_731487);
make_cons(c_731485, &pair_731439, &c_731486);
make_cons(c_731484, &pair_731441, &c_731485);
make_cons(c_731483, &pair_731443, &c_731484);
make_cons(c_731482, &pair_731445, &c_731483);
make_cons(c_731481, &pair_731447, &c_731482);
make_cons(c_731480, &pair_731449, &c_731481);
make_cons(c_731479, &pair_731451, &c_731480);
make_cons(c_731478, &pair_731453, &c_731479);
make_cons(c_731477, &pair_731455, &c_731478);
make_cons(c_731476, &pair_731457, &c_731477);
make_cons(c_731475, &pair_731459, &c_731476);
make_cons(c_731474, &pair_731461, &c_731475);
make_cons(c_731473, &pair_731463, &c_731474);
make_cons(c_731472, &pair_731465, &c_731473);
make_cons(c_731471, &pair_731467, &c_731472);
make_cons(c_731470, &pair_731469, &c_731471);
Cyc_global_variables = &c_731470;}