static void __lambda_27(void *data, int argc, object self_7372, object k_7321) { object c_73218 = Cyc_num_fast_eq_op(data,Cyc_length(data, ((closureN)self_7372)->elements[0]), obj_int2obj(1)); if( (boolean_f != c_73218) ){ return_closcall3(data, __glo_load_scheme_load, k_7321, Cyc_car(data, ((closureN)self_7372)->elements[0]), __glo__85icyc_91env_85); } else { return_closcall1(data, k_7321, boolean_f);} ; }
static void __lambda_12(void *data, int argc, object self_7386, object r_7319) { closureN_type c_73145; c_73145.hdr.mark = gc_color_red; c_73145.hdr.grayed = 0; c_73145.tag = closureN_tag; c_73145.fn = (function_type)__lambda_11; c_73145.num_args = 1; c_73145.num_elements = 1; c_73145.elements = (object *)alloca(sizeof(object) * 1); c_73145.elements[0] = ((closureN)self_7386)->elements[0]; return_closcall3(data, __glo_type_91slot_91offset_scheme_base, &c_73145, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_body);; }
static void __lambda_23(void *data, int argc, object self_7374, object r_7339) { closureN_type c_73187; c_73187.hdr.mark = gc_color_red; c_73187.hdr.grayed = 0; c_73187.tag = closureN_tag; c_73187.fn = (function_type)__lambda_22; c_73187.num_args = 1; c_73187.num_elements = 1; c_73187.elements = (object *)alloca(sizeof(object) * 1); c_73187.elements[0] = ((closureN)self_7374)->elements[0]; return_closcall3(data, __glo_eval_scheme_eval, &c_73187, r_7339, __glo__85icyc_91env_85);; }
static void __lambda_26(void *data, int argc, object self_7372, object r_7313) { closureN_type c_73117; c_73117.hdr.mark = gc_color_red; c_73117.hdr.grayed = 0; c_73117.tag = closureN_tag; c_73117.fn = (function_type)__lambda_25; c_73117.num_args = 1; c_73117.num_elements = 1; c_73117.elements = (object *)alloca(sizeof(object) * 1); c_73117.elements[0] = ((closureN)self_7372)->elements[0]; return_closcall3(data, __glo_make_91type_91predicate_scheme_base, &c_73117, __glo_ast_117lambda_127_scheme_cyclone_ast, __glo__121lambda_91ast_125_scheme_cyclone_ast);; }
static void __lambda_5(void *data, int argc, object self_7393, object r_7325) { closureN_type c_73163; c_73163.hdr.mark = gc_color_red; c_73163.hdr.grayed = 0; c_73163.tag = closureN_tag; c_73163.fn = (function_type)__lambda_4; c_73163.num_args = 1; c_73163.num_elements = 3; c_73163.elements = (object *)alloca(sizeof(object) * 3); c_73163.elements[0] = ((closureN)self_7393)->elements[1]; c_73163.elements[1] = ((closureN)self_7393)->elements[2]; c_73163.elements[2] = ((closureN)self_7393)->elements[3]; return_closcall3(data, __glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast, &c_73163, ((closureN)self_7393)->elements[3], ((closureN)self_7393)->elements[0]);; }
static void __lambda_9(void *data, int argc, object self_7389, object r_7320) { closureN_type c_73151; c_73151.hdr.mark = gc_color_red; c_73151.hdr.grayed = 0; c_73151.tag = closureN_tag; c_73151.fn = (function_type)__lambda_8; c_73151.num_args = 1; c_73151.num_elements = 1; c_73151.elements = (object *)alloca(sizeof(object) * 1); c_73151.elements[0] = ((closureN)self_7389)->elements[0]; make_string(c_73176, "ast:%make-lambda"); return_closcall3(data, __glo_make_91constructor_scheme_base, &c_73151, &c_73176, __glo__121lambda_91ast_125_scheme_cyclone_ast);; }
static void __lambda_20(void *data, int argc, object self_7385, object r_7339) { closureN_type c_73193; c_73193.hdr.mark = gc_color_red; c_73193.hdr.grayed = 0; c_73193.tag = closureN_tag; c_73193.fn = (function_type)__lambda_19; c_73193.num_args = 1; c_73193.num_elements = 3; c_73193.elements = (object *)alloca(sizeof(object) * 3); c_73193.elements[0] = ((closureN)self_7385)->elements[1]; c_73193.elements[1] = ((closureN)self_7385)->elements[2]; c_73193.elements[2] = ((closureN)self_7385)->elements[3]; return_closcall3(data, __glo__list_scheme_base, &c_73193, r_7339, ((closureN)self_7385)->elements[0]);; }
static void __lambda_5(void *data, int argc, object self_7395, object r_7366) { closureN_type c_73121; c_73121.hdr.mark = gc_color_red; c_73121.hdr.grayed = 0; c_73121.tag = closureN_tag; c_73121.fn = (function_type)__lambda_4; c_73121.num_args = 1; c_73121.num_elements = 3; c_73121.elements = (object *)alloca(sizeof(object) * 3); c_73121.elements[0] = ((closureN)self_7395)->elements[0]; c_73121.elements[1] = ((closureN)self_7395)->elements[2]; c_73121.elements[2] = ((closureN)self_7395)->elements[3]; return_closcall3(data, __glo_map_scheme_base, &c_73121, r_7366, ((closureN)self_7395)->elements[1]);; }
static void __lambda_17(void *data, int argc, object self_7379, object k_7345, object k_7312) { closureN_type c_73104; c_73104.hdr.mark = gc_color_red; c_73104.hdr.grayed = 0; c_73104.tag = closureN_tag; c_73104.fn = (function_type)__lambda_15; c_73104.num_args = 1; c_73104.num_elements = 1; c_73104.elements = (object *)alloca(sizeof(object) * 1); c_73104.elements[0] = k_7312; mclosure0(c_73179, (function_type)__lambda_16);c_73179.num_args = 0; return_closcall3(data, __glo_with_91exception_91handler_scheme_base, k_7345, &c_73104, &c_73179);; }
static void __lambda_9(void *data, int argc, closure _,object k_7362, object defined_91macros_7317, object base_91env_7316) { Cyc_st_add(data, "scheme/cyclone/macros.sld:macro:load-env!"); closureN_type c_73117; c_73117.hdr.mark = gc_color_red; c_73117.hdr.grayed = 0; c_73117.tag = closureN_tag; c_73117.fn = (function_type)__lambda_8; c_73117.num_args = 1; c_73117.num_elements = 3; c_73117.elements = (object *)alloca(sizeof(object) * 3); c_73117.elements[0] = base_91env_7316; c_73117.elements[1] = defined_91macros_7317; c_73117.elements[2] = k_7362; return_closcall3(data, __glo_map_scheme_base, &c_73117, primitive_car, defined_91macros_7317);; }
static void __lambda_6(void *data, int argc, object self_7392, object res_736) { closureN_type c_73161; c_73161.hdr.mark = gc_color_red; c_73161.hdr.grayed = 0; c_73161.tag = closureN_tag; c_73161.fn = (function_type)__lambda_5; c_73161.num_args = 1; c_73161.num_elements = 4; c_73161.elements = (object *)alloca(sizeof(object) * 4); c_73161.elements[0] = ((closureN)self_7392)->elements[0]; c_73161.elements[1] = ((closureN)self_7392)->elements[2]; c_73161.elements[2] = ((closureN)self_7392)->elements[3]; c_73161.elements[3] = res_736; return_closcall3(data, __glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast, &c_73161, res_736, ((closureN)self_7392)->elements[1]);; }
static void __lambda_21(void *data, int argc, object self_7384, object compiled_91macro_127_7312) { if( (boolean_f != ((closureN)self_7384)->elements[3]) ){ if( (boolean_f != compiled_91macro_127_7312) ){ closureN_type c_73180; c_73180.hdr.mark = gc_color_red; c_73180.hdr.grayed = 0; c_73180.tag = closureN_tag; c_73180.fn = (function_type)__lambda_16; c_73180.num_args = 1; c_73180.num_elements = 3; c_73180.elements = (object *)alloca(sizeof(object) * 3); c_73180.elements[0] = ((closureN)self_7384)->elements[0]; c_73180.elements[1] = ((closureN)self_7384)->elements[1]; c_73180.elements[2] = ((closureN)self_7384)->elements[3]; return_closcall2(data, __glo_Cyc_91er_91rename_scheme_cyclone_util, &c_73180, ((closureN)self_7384)->elements[2]); } else { closureN_type c_73191; c_73191.hdr.mark = gc_color_red; c_73191.hdr.grayed = 0; c_73191.tag = closureN_tag; c_73191.fn = (function_type)__lambda_20; c_73191.num_args = 1; c_73191.num_elements = 4; c_73191.elements = (object *)alloca(sizeof(object) * 4); c_73191.elements[0] = ((closureN)self_7384)->elements[0]; c_73191.elements[1] = ((closureN)self_7384)->elements[1]; c_73191.elements[2] = ((closureN)self_7384)->elements[2]; c_73191.elements[3] = ((closureN)self_7384)->elements[3]; return_closcall1(data,(closure)&c_73191, quote_quote);} } else { make_string(c_73211, "macro not found"); return_closcall3(data, __glo_error_scheme_base, ((closureN)self_7384)->elements[1], &c_73211, ((closureN)self_7384)->elements[0]);} ; }
static void __lambda_0(void *data, int argc, closure _,object k_7354, object string_7312, object proc_7311) { Cyc_st_add(data, "scheme/file.sld:call-with-input-file"); port_type c_7376 = Cyc_io_open_input_file(data,string_7312); return_closcall3(data, __glo_call_91with_91port_scheme_base, k_7354, &c_7376, proc_7311);; }
static void __lambda_1(void *data, int argc, closure _,object k_7350, object string_7310, object proc_739) { Cyc_st_add(data, "scheme/file.sld:call-with-output-file"); port_type c_7381 = Cyc_io_open_output_file(data,string_7310); return_closcall3(data, __glo_call_91with_91port_scheme_base, k_7350, &c_7381, proc_739);; }
static void __lambda_2(void *data, int argc, object self_7371, object k_7343) { return_closcall3(data, __glo_current_91input_91port_scheme_base, k_7343, quote__121param_91set_67_125, ((closureN)self_7371)->elements[0]);; }
static void __lambda_3(void *data, int argc, object self_7370, object r_7340) { return_closcall3(data, __glo_current_91input_91port_scheme_base, ((closureN)self_7370)->elements[0], quote__121param_91set_67_125, ((closureN)self_7370)->elements[1]);; }
static void __lambda_11(void *data, int argc, object self_7363, object k_7327) { return_closcall3(data, __glo_current_91output_91port_scheme_base, k_7327, quote__121param_91set_67_125, ((closureN)self_7363)->elements[0]);; }
static void __lambda_6(void *data, int argc, object self_7394, object r_7368) { return_closcall3(data, __glo__list_scheme_base, ((closureN)self_7394)->elements[0], r_7368, Cyc_cdr(data, ((closureN)self_7394)->elements[1]));; }
static void __lambda_12(void *data, int argc, object self_7391, object r_7353) { return_closcall3(data, __glo_tagged_91list_127_scheme_cyclone_util, ((closureN)self_7391)->elements[1], r_7353, ((closureN)self_7391)->elements[0]);; }
static void __lambda_17(void *data, int argc, object self_7388, object r_7335) { return_closcall3(data, __glo_eval_scheme_eval, ((closureN)self_7388)->elements[0], r_7335, ((closureN)self_7388)->elements[1]);; }
static void __lambda_9(void *data, int argc, object self_7387, object r_7355) { mclosure0(c_73156, (function_type)__lambda_8);c_73156.num_args = 1; return_closcall3(data, __glo_for_91each_scheme_base, ((closureN)self_7387)->elements[0], &c_73156, cell_get(((closureN)self_7387)->elements[1]));; }
static void __lambda_26(void *data, int argc, closure _,object k_7329, object f_7310) { Cyc_st_add(data, "icyc.scm:load2"); return_closcall3(data, __glo_load_scheme_load, k_7329, f_7310, __glo__85icyc_91env_85);; }