/**
 ** This file was automatically generated by the Cyclone scheme compiler
 ** http://justinethier.github.io/cyclone/
 **
 ** (c) 2014-2024 Justin Ethier
 ** Version 0.36.0 
 **
 **/

#define closcall1(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 1, buf ); \
} else { \
   ((clo)->fn)(td, clo, 1, buf); \
;\
}
#define return_closcall1(td, clo,a1) { \
 char top; \
 object buf[1]; buf[0] = a1;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 1); \
     return; \
 } else {\
     closcall1(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc1(td, clo,a1) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[1]; buf[0] = a1;\
     GC(td, clo, buf, 1); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct1(td, _fn,a1) { \
 char top; \
 object buf[1]; buf[0] = a1; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 1); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 1, buf); \
 }}

#define return_direct_with_clo1(td, clo, _fn,a1) { \
 char top; \
 object buf[1]; buf[0] = a1;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 1); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 1, buf); \
 }}

#define closcall2(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 2, buf ); \
} else { \
   ((clo)->fn)(td, clo, 2, buf); \
;\
}
#define return_closcall2(td, clo,a1,a2) { \
 char top; \
 object buf[2]; buf[0] = a1;buf[1] = a2;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 2); \
     return; \
 } else {\
     closcall2(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc2(td, clo,a1,a2) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[2]; buf[0] = a1;buf[1] = a2;\
     GC(td, clo, buf, 2); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct2(td, _fn,a1,a2) { \
 char top; \
 object buf[2]; buf[0] = a1;buf[1] = a2; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 2); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 2, buf); \
 }}

#define return_direct_with_clo2(td, clo, _fn,a1,a2) { \
 char top; \
 object buf[2]; buf[0] = a1;buf[1] = a2;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 2); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 2, buf); \
 }}

#define closcall3(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 3, buf ); \
} else { \
   ((clo)->fn)(td, clo, 3, buf); \
;\
}
#define return_closcall3(td, clo,a1,a2,a3) { \
 char top; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 3); \
     return; \
 } else {\
     closcall3(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc3(td, clo,a1,a2,a3) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
     GC(td, clo, buf, 3); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct3(td, _fn,a1,a2,a3) { \
 char top; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 3); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 3, buf); \
 }}

#define return_direct_with_clo3(td, clo, _fn,a1,a2,a3) { \
 char top; \
 object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 3); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 3, buf); \
 }}

#define closcall4(td, clo, buf) \
if (obj_is_not_closure(clo)) { \
   Cyc_apply(td, clo, 4, buf ); \
} else { \
   ((clo)->fn)(td, clo, 4, buf); \
;\
}
#define return_closcall4(td, clo,a1,a2,a3,a4) { \
 char top; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 4); \
     return; \
 } else {\
     closcall4(td, (closure) (clo), buf); \
     return;\
 } \
}

#define continue_or_gc4(td, clo,a1,a2,a3,a4) { \
 char *top = alloca(sizeof(char)); \
 if (stack_overflow(top, (((gc_thread_data *)data)->stack_limit))) { \
     object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
     GC(td, clo, buf, 4); \
     return; \
 } else {\
     continue;\
 } \
}

#define return_direct4(td, _fn,a1,a2,a3,a4) { \
 char top; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     mclosure0(c1, (function_type) _fn); \
     GC(td, &c1, buf, 4); \
     return; \
 } else { \
     (_fn)(td, (closure)_fn, 4, buf); \
 }}

#define return_direct_with_clo4(td, clo, _fn,a1,a2,a3,a4) { \
 char top; \
 object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\
 if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
     GC(td, clo, buf, 4); \
     return; \
 } else { \
     (_fn)(td, (closure)(clo), 4, buf); \
 }}

#include "cyclone/types.h"
object __glo_lib_91init_117schemecase_19191lambda_scheme_case_91lambda = NULL;
object __glo_case_91lambda_scheme_case_91lambda = NULL;
object __glo__75case_scheme_case_91lambda = NULL;
extern object __glo_member_scheme_base;
extern object __glo_assoc_scheme_base;
extern object __glo_cons_91source_scheme_base;
extern object __glo_syntax_91rules_scheme_base;
extern object __glo_letrec_85_scheme_base;
extern object __glo_guard_scheme_base;
extern object __glo_guard_91aux_scheme_base;
extern object __glo_define_91record_91type_scheme_base;
extern object __glo_record_127_scheme_base;
extern object __glo_is_91a_127_scheme_base;
extern object __glo_register_91simple_91type_scheme_base;
extern object __glo_make_91type_91predicate_scheme_base;
extern object __glo_make_91constructor_scheme_base;
extern object __glo_make_91constructor_95args_scheme_base;
extern object __glo_make_91getter_scheme_base;
extern object __glo_make_91setter_scheme_base;
extern object __glo_slot_91ref_scheme_base;
extern object __glo_slot_91set_67_scheme_base;
extern object __glo_type_91slot_91offset_scheme_base;
extern object __glo_make_91record_91marker_scheme_base;
extern object __glo_receive_scheme_base;
extern object __glo_abs_scheme_base;
extern object __glo_max_scheme_base;
extern object __glo_min_scheme_base;
extern object __glo_modulo_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_even_127_scheme_base;
extern object __glo_exact_91integer_127_scheme_base;
extern object __glo_exact_91integer_91sqrt_scheme_base;
extern object __glo_exact_127_scheme_base;
extern object __glo_inexact_127_scheme_base;
extern object __glo_odd_127_scheme_base;
extern object __glo_complex_127_scheme_base;
extern object __glo_rational_127_scheme_base;
extern object __glo_bignum_127_scheme_base;
extern object __glo_gcd_scheme_base;
extern object __glo_lcm_scheme_base;
extern object __glo_quotient_scheme_base;
extern object __glo_remainder_scheme_base;
extern object __glo_truncate_91quotient_scheme_base;
extern object __glo_truncate_91remainder_scheme_base;
extern object __glo_truncate_95_scheme_base;
extern object __glo_floor_91quotient_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_floor_95_scheme_base;
extern object __glo_square_scheme_base;
extern object __glo_expt_scheme_base;
extern object __glo_call_91with_91current_91continuation_scheme_base;
extern object __glo_call_95cc_scheme_base;
extern object __glo_call_91with_91values_scheme_base;
extern object __glo_dynamic_91wind_scheme_base;
extern object __glo_values_scheme_base;
extern object __glo_char_123_127_scheme_base;
extern object __glo_char_121_127_scheme_base;
extern object __glo_char_125_127_scheme_base;
extern object __glo_char_121_123_127_scheme_base;
extern object __glo_char_125_123_127_scheme_base;
extern object __glo_string_123_127_scheme_base;
extern object __glo_string_121_127_scheme_base;
extern object __glo_string_121_123_127_scheme_base;
extern object __glo_string_125_127_scheme_base;
extern object __glo_string_125_123_127_scheme_base;
extern object __glo_fast_91string_123_127_scheme_base;
extern object __glo_fast_91string_121_127_scheme_base;
extern object __glo_fast_91string_121_123_127_scheme_base;
extern object __glo_fast_91string_125_127_scheme_base;
extern object __glo_fast_91string_125_123_127_scheme_base;
extern object __glo_foldl_scheme_base;
extern object __glo_foldr_scheme_base;
extern object __glo_not_scheme_base;
extern object __glo_list_127_scheme_base;
extern object __glo_zero_127_scheme_base;
extern object __glo_positive_127_scheme_base;
extern object __glo_negative_127_scheme_base;
extern object __glo_append_scheme_base;
extern object __glo__list_scheme_base;
extern object __glo_make_91list_scheme_base;
extern object __glo_list_91copy_scheme_base;
extern object __glo_map_scheme_base;
extern object __glo_Cyc_91map_91loop_911_scheme_base;
extern object __glo_Cyc_91map_91loop_912_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_912_scheme_base;
extern object __glo_for_91each_scheme_base;
extern object __glo_list_91tail_scheme_base;
extern object __glo_list_91ref_scheme_base;
extern object __glo_list_91set_67_scheme_base;
extern object __glo_reverse_scheme_base;
extern object __glo_boolean_123_127_scheme_base;
extern object __glo_symbol_123_127_scheme_base;
extern object __glo_Cyc_91obj_123_127_scheme_base;
extern object __glo_vector_scheme_base;
extern object __glo_vector_91append_scheme_base;
extern object __glo_vector_91copy_scheme_base;
extern object __glo_vector_91copy_67_scheme_base;
extern object __glo_vector_91fill_67_scheme_base;
extern object __glo_vector_91_125list_scheme_base;
extern object __glo_vector_91_125string_scheme_base;
extern object __glo_vector_91map_scheme_base;
extern object __glo_vector_91for_91each_scheme_base;
extern object __glo_make_91string_scheme_base;
extern object __glo_string_scheme_base;
extern object __glo_string_91copy_scheme_base;
extern object __glo_string_91copy_67_scheme_base;
extern object __glo_string_91fill_67_scheme_base;
extern object __glo_string_91_125list_scheme_base;
extern object __glo_string_91_125vector_scheme_base;
extern object __glo_string_91map_scheme_base;
extern object __glo_string_91for_91each_scheme_base;
extern object __glo_make_91parameter_scheme_base;
extern object __glo_current_91output_91port_scheme_base;
extern object __glo_current_91input_91port_scheme_base;
extern object __glo_current_91error_91port_scheme_base;
extern object __glo_call_91with_91port_scheme_base;
extern object __glo_error_91object_127_scheme_base;
extern object __glo_error_91object_91message_scheme_base;
extern object __glo_error_91object_91irritants_scheme_base;
extern object __glo_error_95loc_scheme_base;
extern object __glo_error_scheme_base;
extern object __glo_raise_scheme_base;
extern object __glo_raise_91continuable_scheme_base;
extern object __glo_with_91handler_scheme_base;
extern object __glo_with_91exception_91handler_scheme_base;
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
extern object __glo_newline_scheme_base;
extern object __glo_write_91char_scheme_base;
extern object __glo_write_91string_scheme_base;
extern object __glo_write_91string_911_scheme_base;
extern object __glo_write_91string_912_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_char_91ready_127_scheme_base;
extern object __glo_peek_91char_scheme_base;
extern object __glo_read_91char_scheme_base;
extern object __glo_read_91line_scheme_base;
extern object __glo_read_91string_scheme_base;
extern object __glo_input_91port_127_scheme_base;
extern object __glo_output_91port_127_scheme_base;
extern object __glo_input_91port_91open_127_scheme_base;
extern object __glo_output_91port_91open_127_scheme_base;
extern object __glo_get_91output_91string_scheme_base;
extern object __glo_open_91output_91string_scheme_base;
extern object __glo_open_91input_91string_scheme_base;
extern object __glo_get_91output_91bytevector_scheme_base;
extern object __glo_open_91input_91bytevector_scheme_base;
extern object __glo_open_91output_91bytevector_scheme_base;
extern object __glo_features_scheme_base;
extern object __glo_Cyc_91add_91feature_67_scheme_base;
extern object __glo_Cyc_91version_scheme_base;
extern object __glo_any_scheme_base;
extern object __glo_every_scheme_base;
extern object __glo_and_scheme_base;
extern object __glo_or_scheme_base;
extern object __glo_let_scheme_base;
extern object __glo_let_85_scheme_base;
extern object __glo_letrec_scheme_base;
extern object __glo_let_85_91values_scheme_base;
extern object __glo_let_91values_scheme_base;
extern object __glo_define_91values_scheme_base;
extern object __glo_begin_scheme_base;
extern object __glo__case_scheme_base;
extern object __glo_cond_scheme_base;
extern object __glo_cond_91expand_scheme_base;
extern object __glo__do_scheme_base;
extern object __glo_when_scheme_base;
extern object __glo_unless_scheme_base;
extern object __glo_quasiquote_scheme_base;
extern object __glo_floor_scheme_base;
extern object __glo_ceiling_scheme_base;
extern object __glo_truncate_scheme_base;
extern object __glo_round_scheme_base;
extern object __glo_exact_scheme_base;
extern object __glo_inexact_scheme_base;
extern object __glo_eof_91object_scheme_base;
extern object __glo__void_scheme_base;
extern object __glo_syntax_91error_scheme_base;
extern object __glo_bytevector_91copy_scheme_base;
extern object __glo_bytevector_91copy_67_scheme_base;
extern object __glo_utf8_91_125string_scheme_base;
extern object __glo_string_91_125utf8_scheme_base;
extern object __glo_denominator_scheme_base;
extern object __glo_numerator_scheme_base;
extern object __glo_parameterize_scheme_base;
extern object __glo_read_91bytevector_scheme_base;
extern object __glo_read_91bytevector_67_scheme_base;
extern object __glo_write_91bytevector_scheme_base;
extern object __glo_peek_91u8_scheme_base;
extern object __glo_read_91u8_scheme_base;
extern object __glo_write_91u8_scheme_base;
extern object __glo_binary_91port_127_scheme_base;
extern object __glo_textual_91port_127_scheme_base;
extern object __glo_rationalize_scheme_base;
extern object __glo_fast_91string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo__75write_91bytevector_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_list_127_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_exact_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
extern object __glo_fixnum_127_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_void_191_191inline_191_191_scheme_base;
extern object __glo_make_91record_91marker_191_191inline_191_191_scheme_base;
#include "cyclone/runtime.h"
defsymbol(clauses);
defsymbol(let);
defsymbol(error);
defsymbol(_125_123);
defsymbol(y);
defsymbol(x);
defsymbol(p);
defsymbol(n);
defsymbol(_87);
defsymbol(rest);
defsymbol(_75case);
defsymbol(args);
defsymbol(body);
defsymbol(lambda);
defsymbol(apply);
defsymbol(_93_93_93);
defsymbol(params);
defsymbol(quote);
defsymbol(length);
defsymbol(len);
defsymbol(_123);
defsymbol(_if);
static void __lambda_121(void *data, object clo, int argc, object *args) ;/*closure _,object k_73701*/
static void __lambda_91(void *data, object clo, int argc, object *args) ;/*closure _,object k_73637, object expr_73276_73285_73294_73385, object rename_73277_73286_73295_73386, object compare_73278_73287_73296_73387*/
static void __lambda_92(void *data, object clo, int argc, object *args) ;/*object self_73791, object clauses_73293_73299_73390*/
static void __lambda_93(void *data, object clo, int argc, object *args) ;/*object self_73792, object r_73644*/
static void __lambda_94(void *data, object clo, int argc, object *args) ;/*object self_73793, object r_73647*/
static void __lambda_95(void *data, object clo, int argc, object *args) ;/*object self_73794, object r_73653*/
static void __lambda_96(void *data, object clo, int argc, object *args) ;/*object self_73795, object r_73681*/
static void __lambda_97(void *data, object clo, int argc, object *args) ;/*object self_73796, object r_73687*/
static void __lambda_98(void *data, object clo, int argc, object *args) ;/*object self_73797, object r_73690*/
static void __lambda_99(void *data, object clo, int argc, object *args) ;/*object self_73798, object r_73688*/
static void __lambda_100(void *data, object clo, int argc, object *args) ;/*object self_73799, object r_73684*/
static void __lambda_101(void *data, object clo, int argc, object *args) ;/*object self_73800, object r_73682*/
static void __lambda_102(void *data, object clo, int argc, object *args) ;/*object self_73801, object r_73678*/
static void __lambda_103(void *data, object clo, int argc, object *args) ;/*object self_73802, object r_73656*/
static void __lambda_104(void *data, object clo, int argc, object *args) ;/*object self_73803, object r_73662*/
static void __lambda_105(void *data, object clo, int argc, object *args) ;/*object self_73804, object r_73665*/
static void __lambda_106(void *data, object clo, int argc, object *args) ;/*object self_73805, object r_73668*/
static void __lambda_107(void *data, object clo, int argc, object *args) ;/*object self_73806, object r_73671*/
static void __lambda_108(void *data, object clo, int argc, object *args) ;/*object self_73807, object r_73669*/
static void __lambda_109(void *data, object clo, int argc, object *args) ;/*object self_73808, object r_73666*/
static void __lambda_110(void *data, object clo, int argc, object *args) ;/*object self_73809, object r_73663*/
static void __lambda_111(void *data, object clo, int argc, object *args) ;/*object self_73810, object r_73659*/
static void __lambda_112(void *data, object clo, int argc, object *args) ;/*object self_73811, object r_73657*/
static void __lambda_113(void *data, object clo, int argc, object *args) ;/*object self_73812, object r_73654*/
static void __lambda_114(void *data, object clo, int argc, object *args) ;/*object self_73813, object r_73650*/
static void __lambda_115(void *data, object clo, int argc, object *args) ;/*object self_73814, object r_73648*/
static void __lambda_116(void *data, object clo, int argc, object *args) ;/*object self_73815, object r_73645*/
static void __lambda_117(void *data, object clo, int argc, object *args) ;/*object self_73816, object r_73643*/
static void __lambda_120(void *data, object clo, int argc, object *args) ;/*object self_73817, object r_73638*/
static void __lambda_118(void *data, object clo, int argc, object *args) ;/*object self_73818, object k_73640*/
static void __lambda_119(void *data, object clo, int argc, object *args) ;/*object self_73819, object r_73641*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_73393, object expr_735_7363_73187_73300, object rename_736_7364_73188_73301, object compare_737_7365_73189_73302*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73702, object v_931_7313_73160_73252_73365*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*object self_73703, object tmp_7367_7369_73190_73303*/
static void __lambda_90(void *data, object clo, int argc, object *args) ;/*object self_73704, object r_73394*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*object self_73705, object k_73396*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_73706, object v_9314_7326_73128_73228_73341*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*object self_73707, object tmp_7371_7373_73191_73304*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_73708, object v_9329_7341_73100_73207_73320*/
static void __lambda_82(void *data, object clo, int argc, object *args) ;/*object self_73709, object tmp_7375_7377_73192_73305*/
static void __lambda_83(void *data, object clo, int argc, object *args) ;/*object self_73710, object v_9342_7354_7382_73194_73307*/
static void __lambda_88(void *data, object clo, int argc, object *args) ;/*object self_73711, object tmp_7379_7381_73193_73306*/
static void __lambda_89(void *data, object clo, int argc, object *args) ;/*object self_73712, object r_73400*/
static void __lambda_84(void *data, object clo, int argc, object *args) ;/*object self_73713, object k_73402*/
static void __lambda_85(void *data, object clo, int argc, object *args) ;/*object self_73714, object r_73417*/
static void __lambda_86(void *data, object clo, int argc, object *args) ;/*object self_73715, object r_73418*/
static void __lambda_87(void *data, object clo, int argc, object *args) ;/*object self_73716, object r_73416*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*object self_73717, object k_73424*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*object self_73718, object r_73445*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*object self_73719, object r_73487*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_73720, object r_73490*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_73721, object r_73488*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*object self_73722, object r_73448*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_73723, object r_73469*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*object self_73724, object r_73477*/
static void __lambda_81(void *data, object clo, int argc, object *args) ;/*object self_73725, object k_73484, object p_73127_73227_73340*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_73726, object r_73483*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*object self_73727, object r_73482*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*object self_73728, object r_73480*/
static void __lambda_66(void *data, object clo, int argc, object *args) ;/*object self_73729, object r_73478*/
static void __lambda_67(void *data, object clo, int argc, object *args) ;/*object self_73730, object r_73472*/
static void __lambda_68(void *data, object clo, int argc, object *args) ;/*object self_73731, object r_73473*/
static void __lambda_69(void *data, object clo, int argc, object *args) ;/*object self_73732, object r_73470*/
static void __lambda_70(void *data, object clo, int argc, object *args) ;/*object self_73733, object r_73451*/
static void __lambda_71(void *data, object clo, int argc, object *args) ;/*object self_73734, object r_73457*/
static void __lambda_72(void *data, object clo, int argc, object *args) ;/*object self_73735, object r_73464*/
static void __lambda_73(void *data, object clo, int argc, object *args) ;/*object self_73736, object r_73462*/
static void __lambda_74(void *data, object clo, int argc, object *args) ;/*object self_73737, object r_73460*/
static void __lambda_75(void *data, object clo, int argc, object *args) ;/*object self_73738, object r_73458*/
static void __lambda_76(void *data, object clo, int argc, object *args) ;/*object self_73739, object r_73454*/
static void __lambda_77(void *data, object clo, int argc, object *args) ;/*object self_73740, object r_73452*/
static void __lambda_78(void *data, object clo, int argc, object *args) ;/*object self_73741, object r_73449*/
static void __lambda_79(void *data, object clo, int argc, object *args) ;/*object self_73742, object r_73446*/
static void __lambda_80(void *data, object clo, int argc, object *args) ;/*object self_73743, object r_73444*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_73744, object k_73497*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*object self_73745, object r_73521*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_73746, object r_73543*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*object self_73747, object r_73546*/
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*object self_73748, object r_73544*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_73749, object r_73528*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*object self_73750, object k_73542, object p_73159_73251_73364*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*object self_73751, object r_73541*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*object self_73752, object r_73537*/
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*object self_73753, object r_73538*/
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*object self_73754, object r_73531*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*object self_73755, object r_73534*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_73756, object r_73532*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*object self_73757, object r_73529*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*object self_73758, object r_73526*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*object self_73759, object r_73524*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*object self_73760, object r_73522*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*object self_73761, object r_73520*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73762, object k_73553*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_73763, object r_73574*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_73764, object r_73612*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_73765, object r_73620*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_73766, object r_73626*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_73767, object r_73627*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_73768, object r_73623*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73769, object r_73621*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_73770, object r_73617*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73771, object r_73615*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_73772, object r_73613*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_73773, object r_73577*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_73774, object r_73598*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73775, object r_73606*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_73776, object r_73607*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73777, object r_73601*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*object self_73778, object r_73602*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73779, object r_73599*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_73780, object r_73580*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73781, object r_73586*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_73782, object r_73593*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73783, object r_73591*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_73784, object r_73589*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*object self_73785, object r_73587*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_73786, object r_73583*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_73787, object r_73581*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_73788, object r_73578*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73789, object r_73575*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_73790, object r_73573*/

static void __lambda_121(void *data, object _, int argc, object *args) /* closure _,object k_73701 */
 {
object k_73701 = args[0];
  Cyc_st_add(data, "scheme/case-lambda.sld:lib-init:schemecase_91lambda");
return_direct_with_clo1(data,  k_73701, (((closure)  k_73701)->fn),  obj_int2obj(0));; 
}

static void __lambda_91(void *data, object _, int argc, object *args) /* closure _,object k_73637, object expr_73276_73285_73294_73385, object rename_73277_73286_73295_73386, object compare_73278_73287_73296_73387 */
 {
object k_73637 = args[0]; object expr_73276_73285_73294_73385 = args[1]; object rename_73277_73286_73295_73386 = args[2];
  Cyc_st_add(data, "scheme/case-lambda.sld:case-lambda");

closureN_type c_732007;
object e_732236 [3];
c_732007.hdr.mark = gc_color_red;
 c_732007.hdr.grayed = 0;
c_732007.tag = closureN_tag;
 c_732007.fn = (function_type)__lambda_92;
c_732007.num_args = 1;
c_732007.num_elements = 3;
c_732007.elements = (object *)e_732236;
c_732007.elements[0] = expr_73276_73285_73294_73385;
c_732007.elements[1] = k_73637;
c_732007.elements[2] = rename_73277_73286_73295_73386;



return_direct_with_clo1(data,(closure)&c_732007,__lambda_92,  Cyc_cdr(data, expr_73276_73285_73294_73385));; 
}

static void __lambda_92(void *data, object self_73791, int argc, object *args) /* object self_73791, object clauses_73293_73299_73390 */
 {
 object clauses_73293_73299_73390 = args[0];
  
closureN_type c_732010;
object e_732235 [4];
c_732010.hdr.mark = gc_color_red;
 c_732010.hdr.grayed = 0;
c_732010.tag = closureN_tag;
 c_732010.fn = (function_type)__lambda_93;
c_732010.num_args = 1;
c_732010.num_elements = 4;
c_732010.elements = (object *)e_732235;
c_732010.elements[0] = clauses_73293_73299_73390;
c_732010.elements[1] = ((closureN)self_73791)->elements[0];
c_732010.elements[2] = ((closureN)self_73791)->elements[1];
c_732010.elements[3] = ((closureN)self_73791)->elements[2];

return_closcall2(data,  ((closureN)self_73791)->elements[2],  &c_732010, quote_lambda);; 
}

static void __lambda_93(void *data, object self_73792, int argc, object *args) /* object self_73792, object r_73644 */
 {
 object r_73644 = args[0];
  
closureN_type c_732013;
object e_732234 [5];
c_732013.hdr.mark = gc_color_red;
 c_732013.hdr.grayed = 0;
c_732013.tag = closureN_tag;
 c_732013.fn = (function_type)__lambda_94;
c_732013.num_args = 1;
c_732013.num_elements = 5;
c_732013.elements = (object *)e_732234;
c_732013.elements[0] = ((closureN)self_73792)->elements[0];
c_732013.elements[1] = ((closureN)self_73792)->elements[1];
c_732013.elements[2] = ((closureN)self_73792)->elements[2];
c_732013.elements[3] = r_73644;
c_732013.elements[4] = ((closureN)self_73792)->elements[3];

return_closcall2(data,  ((closureN)self_73792)->elements[3],  &c_732013, quote_args);; 
}

static void __lambda_94(void *data, object self_73793, int argc, object *args) /* object self_73793, object r_73647 */
 {
 object r_73647 = args[0];
  
closureN_type c_732016;
object e_732233 [6];
c_732016.hdr.mark = gc_color_red;
 c_732016.hdr.grayed = 0;
c_732016.tag = closureN_tag;
 c_732016.fn = (function_type)__lambda_95;
c_732016.num_args = 1;
c_732016.num_elements = 6;
c_732016.elements = (object *)e_732233;
c_732016.elements[0] = ((closureN)self_73793)->elements[0];
c_732016.elements[1] = ((closureN)self_73793)->elements[1];
c_732016.elements[2] = ((closureN)self_73793)->elements[2];
c_732016.elements[3] = ((closureN)self_73793)->elements[3];
c_732016.elements[4] = r_73647;
c_732016.elements[5] = ((closureN)self_73793)->elements[4];

return_closcall2(data,  ((closureN)self_73793)->elements[4],  &c_732016, quote_let);; 
}

static void __lambda_95(void *data, object self_73794, int argc, object *args) /* object self_73794, object r_73653 */
 {
 object r_73653 = args[0];
  
closureN_type c_732019;
object e_732232 [7];
c_732019.hdr.mark = gc_color_red;
 c_732019.hdr.grayed = 0;
c_732019.tag = closureN_tag;
 c_732019.fn = (function_type)__lambda_96;
c_732019.num_args = 1;
c_732019.num_elements = 7;
c_732019.elements = (object *)e_732232;
c_732019.elements[0] = ((closureN)self_73794)->elements[0];
c_732019.elements[1] = ((closureN)self_73794)->elements[1];
c_732019.elements[2] = ((closureN)self_73794)->elements[2];
c_732019.elements[3] = ((closureN)self_73794)->elements[3];
c_732019.elements[4] = ((closureN)self_73794)->elements[4];
c_732019.elements[5] = r_73653;
c_732019.elements[6] = ((closureN)self_73794)->elements[5];

return_closcall2(data,  ((closureN)self_73794)->elements[5],  &c_732019, quote_len);; 
}

static void __lambda_96(void *data, object self_73795, int argc, object *args) /* object self_73795, object r_73681 */
 {
 object r_73681 = args[0];
  
closureN_type c_732022;
object e_732231 [8];
c_732022.hdr.mark = gc_color_red;
 c_732022.hdr.grayed = 0;
c_732022.tag = closureN_tag;
 c_732022.fn = (function_type)__lambda_97;
c_732022.num_args = 1;
c_732022.num_elements = 8;
c_732022.elements = (object *)e_732231;
c_732022.elements[0] = ((closureN)self_73795)->elements[0];
c_732022.elements[1] = ((closureN)self_73795)->elements[1];
c_732022.elements[2] = ((closureN)self_73795)->elements[2];
c_732022.elements[3] = ((closureN)self_73795)->elements[3];
c_732022.elements[4] = ((closureN)self_73795)->elements[4];
c_732022.elements[5] = ((closureN)self_73795)->elements[5];
c_732022.elements[6] = r_73681;
c_732022.elements[7] = ((closureN)self_73795)->elements[6];

return_closcall2(data,  ((closureN)self_73795)->elements[6],  &c_732022, quote_length);; 
}

static void __lambda_97(void *data, object self_73796, int argc, object *args) /* object self_73796, object r_73687 */
 {
 object r_73687 = args[0];
  
closureN_type c_732025;
object e_732230 [9];
c_732025.hdr.mark = gc_color_red;
 c_732025.hdr.grayed = 0;
c_732025.tag = closureN_tag;
 c_732025.fn = (function_type)__lambda_98;
c_732025.num_args = 1;
c_732025.num_elements = 9;
c_732025.elements = (object *)e_732230;
c_732025.elements[0] = ((closureN)self_73796)->elements[0];
c_732025.elements[1] = ((closureN)self_73796)->elements[1];
c_732025.elements[2] = ((closureN)self_73796)->elements[2];
c_732025.elements[3] = ((closureN)self_73796)->elements[3];
c_732025.elements[4] = ((closureN)self_73796)->elements[4];
c_732025.elements[5] = ((closureN)self_73796)->elements[5];
c_732025.elements[6] = ((closureN)self_73796)->elements[6];
c_732025.elements[7] = r_73687;
c_732025.elements[8] = ((closureN)self_73796)->elements[7];

return_closcall2(data,  ((closureN)self_73796)->elements[7],  &c_732025, quote_args);; 
}

static void __lambda_98(void *data, object self_73797, int argc, object *args) /* object self_73797, object r_73690 */
 {
 object r_73690 = args[0];
  
closureN_type c_732027;
object e_732228 [9];
c_732027.hdr.mark = gc_color_red;
 c_732027.hdr.grayed = 0;
c_732027.tag = closureN_tag;
 c_732027.fn = (function_type)__lambda_99;
c_732027.num_args = 1;
c_732027.num_elements = 9;
c_732027.elements = (object *)e_732228;
c_732027.elements[0] = ((closureN)self_73797)->elements[0];
c_732027.elements[1] = ((closureN)self_73797)->elements[1];
c_732027.elements[2] = ((closureN)self_73797)->elements[2];
c_732027.elements[3] = ((closureN)self_73797)->elements[3];
c_732027.elements[4] = ((closureN)self_73797)->elements[4];
c_732027.elements[5] = ((closureN)self_73797)->elements[5];
c_732027.elements[6] = ((closureN)self_73797)->elements[6];
c_732027.elements[7] = ((closureN)self_73797)->elements[7];
c_732027.elements[8] = ((closureN)self_73797)->elements[8];


make_pair(c_732229,quote_args,NULL);c_732229.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732027, r_73690, NULL, &c_732229);; 
}

static void __lambda_99(void *data, object self_73798, int argc, object *args) /* object self_73798, object r_73688 */
 {
 object r_73688 = args[0];
  
closureN_type c_732029;
object e_732224 [8];
c_732029.hdr.mark = gc_color_red;
 c_732029.hdr.grayed = 0;
c_732029.tag = closureN_tag;
 c_732029.fn = (function_type)__lambda_100;
c_732029.num_args = 1;
c_732029.num_elements = 8;
c_732029.elements = (object *)e_732224;
c_732029.elements[0] = ((closureN)self_73798)->elements[0];
c_732029.elements[1] = ((closureN)self_73798)->elements[1];
c_732029.elements[2] = ((closureN)self_73798)->elements[2];
c_732029.elements[3] = ((closureN)self_73798)->elements[3];
c_732029.elements[4] = ((closureN)self_73798)->elements[4];
c_732029.elements[5] = ((closureN)self_73798)->elements[5];
c_732029.elements[6] = ((closureN)self_73798)->elements[6];
c_732029.elements[7] = ((closureN)self_73798)->elements[8];


make_pair(c_732227,quote_args,NULL);c_732227.hdr.immutable = 1;

make_pair(c_732226,quote_length,&c_732227);c_732226.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732029, ((closureN)self_73798)->elements[7], r_73688, &c_732226);; 
}

static void __lambda_100(void *data, object self_73799, int argc, object *args) /* object self_73799, object r_73684 */
 {
 object r_73684 = args[0];
  
closureN_type c_732031;
object e_732220 [8];
c_732031.hdr.mark = gc_color_red;
 c_732031.hdr.grayed = 0;
c_732031.tag = closureN_tag;
 c_732031.fn = (function_type)__lambda_101;
c_732031.num_args = 1;
c_732031.num_elements = 8;
c_732031.elements = (object *)e_732220;
c_732031.elements[0] = ((closureN)self_73799)->elements[0];
c_732031.elements[1] = ((closureN)self_73799)->elements[1];
c_732031.elements[2] = ((closureN)self_73799)->elements[2];
c_732031.elements[3] = ((closureN)self_73799)->elements[3];
c_732031.elements[4] = ((closureN)self_73799)->elements[4];
c_732031.elements[5] = ((closureN)self_73799)->elements[5];
c_732031.elements[6] = ((closureN)self_73799)->elements[6];
c_732031.elements[7] = ((closureN)self_73799)->elements[7];


make_pair(c_732223,quote_args,NULL);c_732223.hdr.immutable = 1;

make_pair(c_732222,quote_length,&c_732223);c_732222.hdr.immutable = 1;

make_pair(c_732221,&c_732222,NULL);c_732221.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732031, r_73684, NULL, &c_732221);; 
}

static void __lambda_101(void *data, object self_73800, int argc, object *args) /* object self_73800, object r_73682 */
 {
 object r_73682 = args[0];
  
closureN_type c_732033;
object e_732214 [7];
c_732033.hdr.mark = gc_color_red;
 c_732033.hdr.grayed = 0;
c_732033.tag = closureN_tag;
 c_732033.fn = (function_type)__lambda_102;
c_732033.num_args = 1;
c_732033.num_elements = 7;
c_732033.elements = (object *)e_732214;
c_732033.elements[0] = ((closureN)self_73800)->elements[0];
c_732033.elements[1] = ((closureN)self_73800)->elements[1];
c_732033.elements[2] = ((closureN)self_73800)->elements[2];
c_732033.elements[3] = ((closureN)self_73800)->elements[3];
c_732033.elements[4] = ((closureN)self_73800)->elements[4];
c_732033.elements[5] = ((closureN)self_73800)->elements[5];
c_732033.elements[6] = ((closureN)self_73800)->elements[7];


make_pair(c_732219,quote_args,NULL);c_732219.hdr.immutable = 1;

make_pair(c_732218,quote_length,&c_732219);c_732218.hdr.immutable = 1;

make_pair(c_732217,&c_732218,NULL);c_732217.hdr.immutable = 1;

make_pair(c_732216,quote_len,&c_732217);c_732216.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732033, ((closureN)self_73800)->elements[6], r_73682, &c_732216);; 
}

static void __lambda_102(void *data, object self_73801, int argc, object *args) /* object self_73801, object r_73678 */
 {
 object r_73678 = args[0];
  
closureN_type c_732035;
object e_732208 [7];
c_732035.hdr.mark = gc_color_red;
 c_732035.hdr.grayed = 0;
c_732035.tag = closureN_tag;
 c_732035.fn = (function_type)__lambda_103;
c_732035.num_args = 1;
c_732035.num_elements = 7;
c_732035.elements = (object *)e_732208;
c_732035.elements[0] = ((closureN)self_73801)->elements[0];
c_732035.elements[1] = ((closureN)self_73801)->elements[1];
c_732035.elements[2] = ((closureN)self_73801)->elements[2];
c_732035.elements[3] = ((closureN)self_73801)->elements[3];
c_732035.elements[4] = ((closureN)self_73801)->elements[4];
c_732035.elements[5] = ((closureN)self_73801)->elements[5];
c_732035.elements[6] = ((closureN)self_73801)->elements[6];


make_pair(c_732213,quote_args,NULL);c_732213.hdr.immutable = 1;

make_pair(c_732212,quote_length,&c_732213);c_732212.hdr.immutable = 1;

make_pair(c_732211,&c_732212,NULL);c_732211.hdr.immutable = 1;

make_pair(c_732210,quote_len,&c_732211);c_732210.hdr.immutable = 1;

make_pair(c_732209,&c_732210,NULL);c_732209.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732035, r_73678, NULL, &c_732209);; 
}

static void __lambda_103(void *data, object self_73802, int argc, object *args) /* object self_73802, object r_73656 */
 {
 object r_73656 = args[0];
  
closureN_type c_732038;
object e_732207 [8];
c_732038.hdr.mark = gc_color_red;
 c_732038.hdr.grayed = 0;
c_732038.tag = closureN_tag;
 c_732038.fn = (function_type)__lambda_104;
c_732038.num_args = 1;
c_732038.num_elements = 8;
c_732038.elements = (object *)e_732207;
c_732038.elements[0] = ((closureN)self_73802)->elements[0];
c_732038.elements[1] = ((closureN)self_73802)->elements[1];
c_732038.elements[2] = ((closureN)self_73802)->elements[2];
c_732038.elements[3] = ((closureN)self_73802)->elements[3];
c_732038.elements[4] = ((closureN)self_73802)->elements[4];
c_732038.elements[5] = ((closureN)self_73802)->elements[5];
c_732038.elements[6] = r_73656;
c_732038.elements[7] = ((closureN)self_73802)->elements[6];

return_closcall2(data,  ((closureN)self_73802)->elements[6],  &c_732038, quote__75case);; 
}

static void __lambda_104(void *data, object self_73803, int argc, object *args) /* object self_73803, object r_73662 */
 {
 object r_73662 = args[0];
  
closureN_type c_732041;
object e_732206 [9];
c_732041.hdr.mark = gc_color_red;
 c_732041.hdr.grayed = 0;
c_732041.tag = closureN_tag;
 c_732041.fn = (function_type)__lambda_105;
c_732041.num_args = 1;
c_732041.num_elements = 9;
c_732041.elements = (object *)e_732206;
c_732041.elements[0] = ((closureN)self_73803)->elements[0];
c_732041.elements[1] = ((closureN)self_73803)->elements[1];
c_732041.elements[2] = ((closureN)self_73803)->elements[2];
c_732041.elements[3] = ((closureN)self_73803)->elements[3];
c_732041.elements[4] = ((closureN)self_73803)->elements[4];
c_732041.elements[5] = ((closureN)self_73803)->elements[5];
c_732041.elements[6] = ((closureN)self_73803)->elements[6];
c_732041.elements[7] = r_73662;
c_732041.elements[8] = ((closureN)self_73803)->elements[7];

return_closcall2(data,  ((closureN)self_73803)->elements[7],  &c_732041, quote_args);; 
}

static void __lambda_105(void *data, object self_73804, int argc, object *args) /* object self_73804, object r_73665 */
 {
 object r_73665 = args[0];
  
closureN_type c_732044;
object e_732205 [9];
c_732044.hdr.mark = gc_color_red;
 c_732044.hdr.grayed = 0;
c_732044.tag = closureN_tag;
 c_732044.fn = (function_type)__lambda_106;
c_732044.num_args = 1;
c_732044.num_elements = 9;
c_732044.elements = (object *)e_732205;
c_732044.elements[0] = ((closureN)self_73804)->elements[0];
c_732044.elements[1] = ((closureN)self_73804)->elements[1];
c_732044.elements[2] = ((closureN)self_73804)->elements[2];
c_732044.elements[3] = ((closureN)self_73804)->elements[3];
c_732044.elements[4] = ((closureN)self_73804)->elements[4];
c_732044.elements[5] = ((closureN)self_73804)->elements[5];
c_732044.elements[6] = ((closureN)self_73804)->elements[6];
c_732044.elements[7] = ((closureN)self_73804)->elements[7];
c_732044.elements[8] = r_73665;

return_closcall2(data,  ((closureN)self_73804)->elements[8],  &c_732044, quote_len);; 
}

static void __lambda_106(void *data, object self_73805, int argc, object *args) /* object self_73805, object r_73668 */
 {
 object r_73668 = args[0];
  
closureN_type c_732046;
object e_732202 [9];
c_732046.hdr.mark = gc_color_red;
 c_732046.hdr.grayed = 0;
c_732046.tag = closureN_tag;
 c_732046.fn = (function_type)__lambda_107;
c_732046.num_args = 1;
c_732046.num_elements = 9;
c_732046.elements = (object *)e_732202;
c_732046.elements[0] = ((closureN)self_73805)->elements[1];
c_732046.elements[1] = ((closureN)self_73805)->elements[2];
c_732046.elements[2] = ((closureN)self_73805)->elements[3];
c_732046.elements[3] = ((closureN)self_73805)->elements[4];
c_732046.elements[4] = ((closureN)self_73805)->elements[5];
c_732046.elements[5] = ((closureN)self_73805)->elements[6];
c_732046.elements[6] = ((closureN)self_73805)->elements[7];
c_732046.elements[7] = ((closureN)self_73805)->elements[8];
c_732046.elements[8] = r_73668;


make_pair(c_732204,NULL,quote_clauses);c_732204.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732046, NULL, ((closureN)self_73805)->elements[0], &c_732204);; 
}

static void __lambda_107(void *data, object self_73806, int argc, object *args) /* object self_73806, object r_73671 */
 {
 object r_73671 = args[0];
  
closureN_type c_732048;
object e_732199 [9];
c_732048.hdr.mark = gc_color_red;
 c_732048.hdr.grayed = 0;
c_732048.tag = closureN_tag;
 c_732048.fn = (function_type)__lambda_108;
c_732048.num_args = 1;
c_732048.num_elements = 9;
c_732048.elements = (object *)e_732199;
c_732048.elements[0] = ((closureN)self_73806)->elements[0];
c_732048.elements[1] = ((closureN)self_73806)->elements[1];
c_732048.elements[2] = ((closureN)self_73806)->elements[2];
c_732048.elements[3] = ((closureN)self_73806)->elements[3];
c_732048.elements[4] = ((closureN)self_73806)->elements[4];
c_732048.elements[5] = ((closureN)self_73806)->elements[5];
c_732048.elements[6] = ((closureN)self_73806)->elements[6];
c_732048.elements[7] = ((closureN)self_73806)->elements[7];
c_732048.elements[8] = ((closureN)self_73806)->elements[8];


make_pair(c_732201,NULL,quote_clauses);c_732201.hdr.immutable = 1;

make_pair(c_732200,obj_int2obj(0),&c_732201);c_732200.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732048, obj_int2obj(0), r_73671, &c_732200);; 
}

static void __lambda_108(void *data, object self_73807, int argc, object *args) /* object self_73807, object r_73669 */
 {
 object r_73669 = args[0];
  
closureN_type c_732050;
object e_732194 [8];
c_732050.hdr.mark = gc_color_red;
 c_732050.hdr.grayed = 0;
c_732050.tag = closureN_tag;
 c_732050.fn = (function_type)__lambda_109;
c_732050.num_args = 1;
c_732050.num_elements = 8;
c_732050.elements = (object *)e_732194;
c_732050.elements[0] = ((closureN)self_73807)->elements[0];
c_732050.elements[1] = ((closureN)self_73807)->elements[1];
c_732050.elements[2] = ((closureN)self_73807)->elements[2];
c_732050.elements[3] = ((closureN)self_73807)->elements[3];
c_732050.elements[4] = ((closureN)self_73807)->elements[4];
c_732050.elements[5] = ((closureN)self_73807)->elements[5];
c_732050.elements[6] = ((closureN)self_73807)->elements[6];
c_732050.elements[7] = ((closureN)self_73807)->elements[7];


make_pair(c_732198,NULL,quote_clauses);c_732198.hdr.immutable = 1;

make_pair(c_732197,obj_int2obj(0),&c_732198);c_732197.hdr.immutable = 1;

make_pair(c_732196,quote_len,&c_732197);c_732196.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732050, ((closureN)self_73807)->elements[8], r_73669, &c_732196);; 
}

static void __lambda_109(void *data, object self_73808, int argc, object *args) /* object self_73808, object r_73666 */
 {
 object r_73666 = args[0];
  
closureN_type c_732052;
object e_732188 [7];
c_732052.hdr.mark = gc_color_red;
 c_732052.hdr.grayed = 0;
c_732052.tag = closureN_tag;
 c_732052.fn = (function_type)__lambda_110;
c_732052.num_args = 1;
c_732052.num_elements = 7;
c_732052.elements = (object *)e_732188;
c_732052.elements[0] = ((closureN)self_73808)->elements[0];
c_732052.elements[1] = ((closureN)self_73808)->elements[1];
c_732052.elements[2] = ((closureN)self_73808)->elements[2];
c_732052.elements[3] = ((closureN)self_73808)->elements[3];
c_732052.elements[4] = ((closureN)self_73808)->elements[4];
c_732052.elements[5] = ((closureN)self_73808)->elements[5];
c_732052.elements[6] = ((closureN)self_73808)->elements[6];


make_pair(c_732193,NULL,quote_clauses);c_732193.hdr.immutable = 1;

make_pair(c_732192,obj_int2obj(0),&c_732193);c_732192.hdr.immutable = 1;

make_pair(c_732191,quote_len,&c_732192);c_732191.hdr.immutable = 1;

make_pair(c_732190,quote_args,&c_732191);c_732190.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732052, ((closureN)self_73808)->elements[7], r_73666, &c_732190);; 
}

static void __lambda_110(void *data, object self_73809, int argc, object *args) /* object self_73809, object r_73663 */
 {
 object r_73663 = args[0];
  
closureN_type c_732054;
object e_732181 [6];
c_732054.hdr.mark = gc_color_red;
 c_732054.hdr.grayed = 0;
c_732054.tag = closureN_tag;
 c_732054.fn = (function_type)__lambda_111;
c_732054.num_args = 1;
c_732054.num_elements = 6;
c_732054.elements = (object *)e_732181;
c_732054.elements[0] = ((closureN)self_73809)->elements[0];
c_732054.elements[1] = ((closureN)self_73809)->elements[1];
c_732054.elements[2] = ((closureN)self_73809)->elements[2];
c_732054.elements[3] = ((closureN)self_73809)->elements[3];
c_732054.elements[4] = ((closureN)self_73809)->elements[4];
c_732054.elements[5] = ((closureN)self_73809)->elements[5];


make_pair(c_732187,NULL,quote_clauses);c_732187.hdr.immutable = 1;

make_pair(c_732186,obj_int2obj(0),&c_732187);c_732186.hdr.immutable = 1;

make_pair(c_732185,quote_len,&c_732186);c_732185.hdr.immutable = 1;

make_pair(c_732184,quote_args,&c_732185);c_732184.hdr.immutable = 1;

make_pair(c_732183,quote__75case,&c_732184);c_732183.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732054, ((closureN)self_73809)->elements[6], r_73663, &c_732183);; 
}

static void __lambda_111(void *data, object self_73810, int argc, object *args) /* object self_73810, object r_73659 */
 {
 object r_73659 = args[0];
  
closureN_type c_732056;
object e_732174 [6];
c_732056.hdr.mark = gc_color_red;
 c_732056.hdr.grayed = 0;
c_732056.tag = closureN_tag;
 c_732056.fn = (function_type)__lambda_112;
c_732056.num_args = 1;
c_732056.num_elements = 6;
c_732056.elements = (object *)e_732174;
c_732056.elements[0] = ((closureN)self_73810)->elements[0];
c_732056.elements[1] = ((closureN)self_73810)->elements[1];
c_732056.elements[2] = ((closureN)self_73810)->elements[2];
c_732056.elements[3] = ((closureN)self_73810)->elements[3];
c_732056.elements[4] = ((closureN)self_73810)->elements[4];
c_732056.elements[5] = ((closureN)self_73810)->elements[5];


make_pair(c_732180,NULL,quote_clauses);c_732180.hdr.immutable = 1;

make_pair(c_732179,obj_int2obj(0),&c_732180);c_732179.hdr.immutable = 1;

make_pair(c_732178,quote_len,&c_732179);c_732178.hdr.immutable = 1;

make_pair(c_732177,quote_args,&c_732178);c_732177.hdr.immutable = 1;

make_pair(c_732176,quote__75case,&c_732177);c_732176.hdr.immutable = 1;

make_pair(c_732175,&c_732176,NULL);c_732175.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732056, r_73659, NULL, &c_732175);; 
}

static void __lambda_112(void *data, object self_73811, int argc, object *args) /* object self_73811, object r_73657 */
 {
 object r_73657 = args[0];
  
closureN_type c_732058;
object e_732160 [5];
c_732058.hdr.mark = gc_color_red;
 c_732058.hdr.grayed = 0;
c_732058.tag = closureN_tag;
 c_732058.fn = (function_type)__lambda_113;
c_732058.num_args = 1;
c_732058.num_elements = 5;
c_732058.elements = (object *)e_732160;
c_732058.elements[0] = ((closureN)self_73811)->elements[0];
c_732058.elements[1] = ((closureN)self_73811)->elements[1];
c_732058.elements[2] = ((closureN)self_73811)->elements[2];
c_732058.elements[3] = ((closureN)self_73811)->elements[3];
c_732058.elements[4] = ((closureN)self_73811)->elements[4];


make_pair(c_732167,quote_args,NULL);c_732167.hdr.immutable = 1;

make_pair(c_732166,quote_length,&c_732167);c_732166.hdr.immutable = 1;

make_pair(c_732165,&c_732166,NULL);c_732165.hdr.immutable = 1;

make_pair(c_732164,quote_len,&c_732165);c_732164.hdr.immutable = 1;

make_pair(c_732163,&c_732164,NULL);c_732163.hdr.immutable = 1;

make_pair(c_732173,NULL,quote_clauses);c_732173.hdr.immutable = 1;

make_pair(c_732172,obj_int2obj(0),&c_732173);c_732172.hdr.immutable = 1;

make_pair(c_732171,quote_len,&c_732172);c_732171.hdr.immutable = 1;

make_pair(c_732170,quote_args,&c_732171);c_732170.hdr.immutable = 1;

make_pair(c_732169,quote__75case,&c_732170);c_732169.hdr.immutable = 1;

make_pair(c_732168,&c_732169,NULL);c_732168.hdr.immutable = 1;

make_pair(c_732162,&c_732163,&c_732168);c_732162.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732058, ((closureN)self_73811)->elements[5], r_73657, &c_732162);; 
}

static void __lambda_113(void *data, object self_73812, int argc, object *args) /* object self_73812, object r_73654 */
 {
 object r_73654 = args[0];
  
closureN_type c_732060;
object e_732145 [4];
c_732060.hdr.mark = gc_color_red;
 c_732060.hdr.grayed = 0;
c_732060.tag = closureN_tag;
 c_732060.fn = (function_type)__lambda_114;
c_732060.num_args = 1;
c_732060.num_elements = 4;
c_732060.elements = (object *)e_732145;
c_732060.elements[0] = ((closureN)self_73812)->elements[0];
c_732060.elements[1] = ((closureN)self_73812)->elements[1];
c_732060.elements[2] = ((closureN)self_73812)->elements[2];
c_732060.elements[3] = ((closureN)self_73812)->elements[3];


make_pair(c_732153,quote_args,NULL);c_732153.hdr.immutable = 1;

make_pair(c_732152,quote_length,&c_732153);c_732152.hdr.immutable = 1;

make_pair(c_732151,&c_732152,NULL);c_732151.hdr.immutable = 1;

make_pair(c_732150,quote_len,&c_732151);c_732150.hdr.immutable = 1;

make_pair(c_732149,&c_732150,NULL);c_732149.hdr.immutable = 1;

make_pair(c_732159,NULL,quote_clauses);c_732159.hdr.immutable = 1;

make_pair(c_732158,obj_int2obj(0),&c_732159);c_732158.hdr.immutable = 1;

make_pair(c_732157,quote_len,&c_732158);c_732157.hdr.immutable = 1;

make_pair(c_732156,quote_args,&c_732157);c_732156.hdr.immutable = 1;

make_pair(c_732155,quote__75case,&c_732156);c_732155.hdr.immutable = 1;

make_pair(c_732154,&c_732155,NULL);c_732154.hdr.immutable = 1;

make_pair(c_732148,&c_732149,&c_732154);c_732148.hdr.immutable = 1;

make_pair(c_732147,quote_let,&c_732148);c_732147.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732060, ((closureN)self_73812)->elements[4], r_73654, &c_732147);; 
}

static void __lambda_114(void *data, object self_73813, int argc, object *args) /* object self_73813, object r_73650 */
 {
 object r_73650 = args[0];
  
closureN_type c_732062;
object e_732130 [4];
c_732062.hdr.mark = gc_color_red;
 c_732062.hdr.grayed = 0;
c_732062.tag = closureN_tag;
 c_732062.fn = (function_type)__lambda_115;
c_732062.num_args = 1;
c_732062.num_elements = 4;
c_732062.elements = (object *)e_732130;
c_732062.elements[0] = ((closureN)self_73813)->elements[0];
c_732062.elements[1] = ((closureN)self_73813)->elements[1];
c_732062.elements[2] = ((closureN)self_73813)->elements[2];
c_732062.elements[3] = ((closureN)self_73813)->elements[3];


make_pair(c_732138,quote_args,NULL);c_732138.hdr.immutable = 1;

make_pair(c_732137,quote_length,&c_732138);c_732137.hdr.immutable = 1;

make_pair(c_732136,&c_732137,NULL);c_732136.hdr.immutable = 1;

make_pair(c_732135,quote_len,&c_732136);c_732135.hdr.immutable = 1;

make_pair(c_732134,&c_732135,NULL);c_732134.hdr.immutable = 1;

make_pair(c_732144,NULL,quote_clauses);c_732144.hdr.immutable = 1;

make_pair(c_732143,obj_int2obj(0),&c_732144);c_732143.hdr.immutable = 1;

make_pair(c_732142,quote_len,&c_732143);c_732142.hdr.immutable = 1;

make_pair(c_732141,quote_args,&c_732142);c_732141.hdr.immutable = 1;

make_pair(c_732140,quote__75case,&c_732141);c_732140.hdr.immutable = 1;

make_pair(c_732139,&c_732140,NULL);c_732139.hdr.immutable = 1;

make_pair(c_732133,&c_732134,&c_732139);c_732133.hdr.immutable = 1;

make_pair(c_732132,quote_let,&c_732133);c_732132.hdr.immutable = 1;

make_pair(c_732131,&c_732132,NULL);c_732131.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732062, r_73650, NULL, &c_732131);; 
}

static void __lambda_115(void *data, object self_73814, int argc, object *args) /* object self_73814, object r_73648 */
 {
 object r_73648 = args[0];
  
closureN_type c_732064;
object e_732113 [3];
c_732064.hdr.mark = gc_color_red;
 c_732064.hdr.grayed = 0;
c_732064.tag = closureN_tag;
 c_732064.fn = (function_type)__lambda_116;
c_732064.num_args = 1;
c_732064.num_elements = 3;
c_732064.elements = (object *)e_732113;
c_732064.elements[0] = ((closureN)self_73814)->elements[0];
c_732064.elements[1] = ((closureN)self_73814)->elements[1];
c_732064.elements[2] = ((closureN)self_73814)->elements[2];


make_pair(c_732123,quote_args,NULL);c_732123.hdr.immutable = 1;

make_pair(c_732122,quote_length,&c_732123);c_732122.hdr.immutable = 1;

make_pair(c_732121,&c_732122,NULL);c_732121.hdr.immutable = 1;

make_pair(c_732120,quote_len,&c_732121);c_732120.hdr.immutable = 1;

make_pair(c_732119,&c_732120,NULL);c_732119.hdr.immutable = 1;

make_pair(c_732129,NULL,quote_clauses);c_732129.hdr.immutable = 1;

make_pair(c_732128,obj_int2obj(0),&c_732129);c_732128.hdr.immutable = 1;

make_pair(c_732127,quote_len,&c_732128);c_732127.hdr.immutable = 1;

make_pair(c_732126,quote_args,&c_732127);c_732126.hdr.immutable = 1;

make_pair(c_732125,quote__75case,&c_732126);c_732125.hdr.immutable = 1;

make_pair(c_732124,&c_732125,NULL);c_732124.hdr.immutable = 1;

make_pair(c_732118,&c_732119,&c_732124);c_732118.hdr.immutable = 1;

make_pair(c_732117,quote_let,&c_732118);c_732117.hdr.immutable = 1;

make_pair(c_732116,&c_732117,NULL);c_732116.hdr.immutable = 1;

make_pair(c_732115,quote_args,&c_732116);c_732115.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732064, ((closureN)self_73814)->elements[3], r_73648, &c_732115);; 
}

static void __lambda_116(void *data, object self_73815, int argc, object *args) /* object self_73815, object r_73645 */
 {
 object r_73645 = args[0];
  
closureN_type c_732066;
object e_732095 [2];
c_732066.hdr.mark = gc_color_red;
 c_732066.hdr.grayed = 0;
c_732066.tag = closureN_tag;
 c_732066.fn = (function_type)__lambda_117;
c_732066.num_args = 1;
c_732066.num_elements = 2;
c_732066.elements = (object *)e_732095;
c_732066.elements[0] = ((closureN)self_73815)->elements[0];
c_732066.elements[1] = ((closureN)self_73815)->elements[1];


make_pair(c_732106,quote_args,NULL);c_732106.hdr.immutable = 1;

make_pair(c_732105,quote_length,&c_732106);c_732105.hdr.immutable = 1;

make_pair(c_732104,&c_732105,NULL);c_732104.hdr.immutable = 1;

make_pair(c_732103,quote_len,&c_732104);c_732103.hdr.immutable = 1;

make_pair(c_732102,&c_732103,NULL);c_732102.hdr.immutable = 1;

make_pair(c_732112,NULL,quote_clauses);c_732112.hdr.immutable = 1;

make_pair(c_732111,obj_int2obj(0),&c_732112);c_732111.hdr.immutable = 1;

make_pair(c_732110,quote_len,&c_732111);c_732110.hdr.immutable = 1;

make_pair(c_732109,quote_args,&c_732110);c_732109.hdr.immutable = 1;

make_pair(c_732108,quote__75case,&c_732109);c_732108.hdr.immutable = 1;

make_pair(c_732107,&c_732108,NULL);c_732107.hdr.immutable = 1;

make_pair(c_732101,&c_732102,&c_732107);c_732101.hdr.immutable = 1;

make_pair(c_732100,quote_let,&c_732101);c_732100.hdr.immutable = 1;

make_pair(c_732099,&c_732100,NULL);c_732099.hdr.immutable = 1;

make_pair(c_732098,quote_args,&c_732099);c_732098.hdr.immutable = 1;

make_pair(c_732097,quote_lambda,&c_732098);c_732097.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_732066, ((closureN)self_73815)->elements[2], r_73645, &c_732097);; 
}

static void __lambda_117(void *data, object self_73816, int argc, object *args) /* object self_73816, object r_73643 */
 {
 object r_73643 = args[0];
  
closureN_type c_732068;
object e_732088 [2];
c_732068.hdr.mark = gc_color_red;
 c_732068.hdr.grayed = 0;
c_732068.tag = closureN_tag;
 c_732068.fn = (function_type)__lambda_118;
c_732068.num_args = 0;
c_732068.num_elements = 2;
c_732068.elements = (object *)e_732088;
c_732068.elements[0] = ((closureN)self_73816)->elements[0];
c_732068.elements[1] = r_73643;


closureN_type c_732089;
object e_732094 [1];
c_732089.hdr.mark = gc_color_red;
 c_732089.hdr.grayed = 0;
c_732089.tag = closureN_tag;
 c_732089.fn = (function_type)__lambda_120;
c_732089.num_args = 1;
c_732089.num_elements = 1;
c_732089.elements = (object *)e_732094;
c_732089.elements[0] = ((closureN)self_73816)->elements[1];

return_direct_with_clo1(data,(closure)&c_732068,__lambda_118,  &c_732089);; 
}

static void __lambda_120(void *data, object self_73817, int argc, object *args) /* object self_73817, object r_73638 */
 {
 object r_73638 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_73817)->elements[0], (((closure)  ((closureN)self_73817)->elements[0])->fn),  Cyc_car(data, r_73638));; 
}

static void __lambda_118(void *data, object self_73818, int argc, object *args) /* object self_73818, object k_73640 */
 {
 object k_73640 = args[0];
    pair_type local_732071; 
if( (boolean_f != set_pair_as_expr(&local_732071, ((closureN)self_73818)->elements[1], boolean_f)) ){ 
  
pair_type local_732076; 
return_direct_with_clo1(data,  k_73640, (((closure)  k_73640)->fn),  set_pair_as_expr(&local_732076, ((closureN)self_73818)->elements[1], boolean_f));
} else { 
  
closureN_type c_732079;
object e_732085 [1];
c_732079.hdr.mark = gc_color_red;
 c_732079.hdr.grayed = 0;
c_732079.tag = closureN_tag;
 c_732079.fn = (function_type)__lambda_119;
c_732079.num_args = 1;
c_732079.num_elements = 1;
c_732079.elements = (object *)e_732085;
c_732079.elements[0] = k_73640;


make_utf8_string_with_len(c_732086, "no expansion for", 16, 16);
return_direct_with_clo3(data,  __glo_error_95loc_scheme_base, (((closure)  __glo_error_95loc_scheme_base)->fn),  &c_732079, &c_732086, ((closureN)self_73818)->elements[0]);}
;; 
}

static void __lambda_119(void *data, object self_73819, int argc, object *args) /* object self_73819, object r_73641 */
 {
 object r_73641 = args[0];
  
pair_type local_732084; 
return_direct_with_clo1(data,  ((closureN)self_73819)->elements[0], (((closure)  ((closureN)self_73819)->elements[0])->fn),  set_pair_as_expr(&local_732084, r_73641, boolean_f));; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_73393, object expr_735_7363_73187_73300, object rename_736_7364_73188_73301, object compare_737_7365_73189_73302 */
 {
object k_73393 = args[0]; object expr_735_7363_73187_73300 = args[1]; object rename_736_7364_73188_73301 = args[2];
  Cyc_st_add(data, "scheme/case-lambda.sld:%case");

closureN_type c_73822;
object e_732002 [3];
c_73822.hdr.mark = gc_color_red;
 c_73822.hdr.grayed = 0;
c_73822.tag = closureN_tag;
 c_73822.fn = (function_type)__lambda_2;
c_73822.num_args = 1;
c_73822.num_elements = 3;
c_73822.elements = (object *)e_732002;
c_73822.elements[0] = expr_735_7363_73187_73300;
c_73822.elements[1] = k_73393;
c_73822.elements[2] = rename_736_7364_73188_73301;



return_direct_with_clo1(data,(closure)&c_73822,__lambda_2,  Cyc_cdr(data, expr_735_7363_73187_73300));; 
}

static void __lambda_2(void *data, object self_73702, int argc, object *args) /* object self_73702, object v_931_7313_73160_73252_73365 */
 {
 object v_931_7313_73160_73252_73365 = args[0];
  
closureN_type c_73824;
object e_731233 [2];
c_73824.hdr.mark = gc_color_red;
 c_73824.hdr.grayed = 0;
c_73824.tag = closureN_tag;
 c_73824.fn = (function_type)__lambda_3;
c_73824.num_args = 0;
c_73824.num_elements = 2;
c_73824.elements = (object *)e_731233;
c_73824.elements[0] = ((closureN)self_73702)->elements[2];
c_73824.elements[1] = v_931_7313_73160_73252_73365;


closureN_type c_731234;
object e_732001 [3];
c_731234.hdr.mark = gc_color_red;
 c_731234.hdr.grayed = 0;
c_731234.tag = closureN_tag;
 c_731234.fn = (function_type)__lambda_32;
c_731234.num_args = 1;
c_731234.num_elements = 3;
c_731234.elements = (object *)e_732001;
c_731234.elements[0] = ((closureN)self_73702)->elements[0];
c_731234.elements[1] = ((closureN)self_73702)->elements[1];
c_731234.elements[2] = ((closureN)self_73702)->elements[2];

return_direct_with_clo1(data,(closure)&c_73824,__lambda_3,  &c_731234);; 
}

static void __lambda_32(void *data, object self_73703, int argc, object *args) /* object self_73703, object tmp_7367_7369_73190_73303 */
 {
 object tmp_7367_7369_73190_73303 = args[0];
  
closureN_type c_731236;
object e_731994 [3];
c_731236.hdr.mark = gc_color_red;
 c_731236.hdr.grayed = 0;
c_731236.tag = closureN_tag;
 c_731236.fn = (function_type)__lambda_33;
c_731236.num_args = 0;
c_731236.num_elements = 3;
c_731236.elements = (object *)e_731994;
c_731236.elements[0] = ((closureN)self_73703)->elements[0];
c_731236.elements[1] = ((closureN)self_73703)->elements[2];
c_731236.elements[2] = tmp_7367_7369_73190_73303;


closureN_type c_731995;
object e_732000 [1];
c_731995.hdr.mark = gc_color_red;
 c_731995.hdr.grayed = 0;
c_731995.tag = closureN_tag;
 c_731995.fn = (function_type)__lambda_90;
c_731995.num_args = 1;
c_731995.num_elements = 1;
c_731995.elements = (object *)e_732000;
c_731995.elements[0] = ((closureN)self_73703)->elements[1];

return_direct_with_clo1(data,(closure)&c_731236,__lambda_33,  &c_731995);; 
}

static void __lambda_90(void *data, object self_73704, int argc, object *args) /* object self_73704, object r_73394 */
 {
 object r_73394 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_73704)->elements[0], (((closure)  ((closureN)self_73704)->elements[0])->fn),  Cyc_car(data, r_73394));; 
}

static void __lambda_33(void *data, object self_73705, int argc, object *args) /* object self_73705, object k_73396 */
 {
 object k_73396 = args[0];
  if( (boolean_f != ((closureN)self_73705)->elements[2]) ){ 
  return_direct_with_clo1(data,  k_73396, (((closure)  k_73396)->fn),  ((closureN)self_73705)->elements[2]);
} else { 
  
closureN_type c_731241;
object e_731990 [3];
c_731241.hdr.mark = gc_color_red;
 c_731241.hdr.grayed = 0;
c_731241.tag = closureN_tag;
 c_731241.fn = (function_type)__lambda_34;
c_731241.num_args = 1;
c_731241.num_elements = 3;
c_731241.elements = (object *)e_731990;
c_731241.elements[0] = ((closureN)self_73705)->elements[0];
c_731241.elements[1] = k_73396;
c_731241.elements[2] = ((closureN)self_73705)->elements[1];



return_direct_with_clo1(data,(closure)&c_731241,__lambda_34,  Cyc_cdr(data, ((closureN)self_73705)->elements[0]));}
;; 
}

static void __lambda_34(void *data, object self_73706, int argc, object *args) /* object self_73706, object v_9314_7326_73128_73228_73341 */
 {
 object v_9314_7326_73128_73228_73341 = args[0];
  
closureN_type c_731243;
object e_731529 [2];
c_731243.hdr.mark = gc_color_red;
 c_731243.hdr.grayed = 0;
c_731243.tag = closureN_tag;
 c_731243.fn = (function_type)__lambda_35;
c_731243.num_args = 0;
c_731243.num_elements = 2;
c_731243.elements = (object *)e_731529;
c_731243.elements[0] = ((closureN)self_73706)->elements[2];
c_731243.elements[1] = v_9314_7326_73128_73228_73341;


closureN_type c_731530;
object e_731989 [3];
c_731530.hdr.mark = gc_color_red;
 c_731530.hdr.grayed = 0;
c_731530.tag = closureN_tag;
 c_731530.fn = (function_type)__lambda_53;
c_731530.num_args = 1;
c_731530.num_elements = 3;
c_731530.elements = (object *)e_731989;
c_731530.elements[0] = ((closureN)self_73706)->elements[0];
c_731530.elements[1] = ((closureN)self_73706)->elements[1];
c_731530.elements[2] = ((closureN)self_73706)->elements[2];

return_direct_with_clo1(data,(closure)&c_731243,__lambda_35,  &c_731530);; 
}

static void __lambda_53(void *data, object self_73707, int argc, object *args) /* object self_73707, object tmp_7371_7373_73191_73304 */
 {
 object tmp_7371_7373_73191_73304 = args[0];
  if( (boolean_f != tmp_7371_7373_73191_73304) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73707)->elements[1], (((closure)  ((closureN)self_73707)->elements[1])->fn),  tmp_7371_7373_73191_73304);
} else { 
  
closureN_type c_731534;
object e_731985 [3];
c_731534.hdr.mark = gc_color_red;
 c_731534.hdr.grayed = 0;
c_731534.tag = closureN_tag;
 c_731534.fn = (function_type)__lambda_54;
c_731534.num_args = 1;
c_731534.num_elements = 3;
c_731534.elements = (object *)e_731985;
c_731534.elements[0] = ((closureN)self_73707)->elements[0];
c_731534.elements[1] = ((closureN)self_73707)->elements[1];
c_731534.elements[2] = ((closureN)self_73707)->elements[2];



return_direct_with_clo1(data,(closure)&c_731534,__lambda_54,  Cyc_cdr(data, ((closureN)self_73707)->elements[0]));}
;; 
}

static void __lambda_54(void *data, object self_73708, int argc, object *args) /* object self_73708, object v_9329_7341_73100_73207_73320 */
 {
 object v_9329_7341_73100_73207_73320 = args[0];
  
closureN_type c_731536;
object e_731867 [2];
c_731536.hdr.mark = gc_color_red;
 c_731536.hdr.grayed = 0;
c_731536.tag = closureN_tag;
 c_731536.fn = (function_type)__lambda_55;
c_731536.num_args = 0;
c_731536.num_elements = 2;
c_731536.elements = (object *)e_731867;
c_731536.elements[0] = ((closureN)self_73708)->elements[2];
c_731536.elements[1] = v_9329_7341_73100_73207_73320;


closureN_type c_731868;
object e_731984 [3];
c_731868.hdr.mark = gc_color_red;
 c_731868.hdr.grayed = 0;
c_731868.tag = closureN_tag;
 c_731868.fn = (function_type)__lambda_82;
c_731868.num_args = 1;
c_731868.num_elements = 3;
c_731868.elements = (object *)e_731984;
c_731868.elements[0] = ((closureN)self_73708)->elements[0];
c_731868.elements[1] = ((closureN)self_73708)->elements[1];
c_731868.elements[2] = ((closureN)self_73708)->elements[2];

return_direct_with_clo1(data,(closure)&c_731536,__lambda_55,  &c_731868);; 
}

static void __lambda_82(void *data, object self_73709, int argc, object *args) /* object self_73709, object tmp_7375_7377_73192_73305 */
 {
 object tmp_7375_7377_73192_73305 = args[0];
  if( (boolean_f != tmp_7375_7377_73192_73305) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73709)->elements[1], (((closure)  ((closureN)self_73709)->elements[1])->fn),  tmp_7375_7377_73192_73305);
} else { 
  
closureN_type c_731872;
object e_731980 [3];
c_731872.hdr.mark = gc_color_red;
 c_731872.hdr.grayed = 0;
c_731872.tag = closureN_tag;
 c_731872.fn = (function_type)__lambda_83;
c_731872.num_args = 1;
c_731872.num_elements = 3;
c_731872.elements = (object *)e_731980;
c_731872.elements[0] = ((closureN)self_73709)->elements[0];
c_731872.elements[1] = ((closureN)self_73709)->elements[1];
c_731872.elements[2] = ((closureN)self_73709)->elements[2];



return_direct_with_clo1(data,(closure)&c_731872,__lambda_83,  Cyc_cdr(data, ((closureN)self_73709)->elements[0]));}
;; 
}

static void __lambda_83(void *data, object self_73710, int argc, object *args) /* object self_73710, object v_9342_7354_7382_73194_73307 */
 {
 object v_9342_7354_7382_73194_73307 = args[0];
  
closureN_type c_731874;
object e_731965 [2];
c_731874.hdr.mark = gc_color_red;
 c_731874.hdr.grayed = 0;
c_731874.tag = closureN_tag;
 c_731874.fn = (function_type)__lambda_84;
c_731874.num_args = 0;
c_731874.num_elements = 2;
c_731874.elements = (object *)e_731965;
c_731874.elements[0] = ((closureN)self_73710)->elements[2];
c_731874.elements[1] = v_9342_7354_7382_73194_73307;


closureN_type c_731966;
object e_731979 [2];
c_731966.hdr.mark = gc_color_red;
 c_731966.hdr.grayed = 0;
c_731966.tag = closureN_tag;
 c_731966.fn = (function_type)__lambda_88;
c_731966.num_args = 1;
c_731966.num_elements = 2;
c_731966.elements = (object *)e_731979;
c_731966.elements[0] = ((closureN)self_73710)->elements[0];
c_731966.elements[1] = ((closureN)self_73710)->elements[1];

return_direct_with_clo1(data,(closure)&c_731874,__lambda_84,  &c_731966);; 
}

static void __lambda_88(void *data, object self_73711, int argc, object *args) /* object self_73711, object tmp_7379_7381_73193_73306 */
 {
 object tmp_7379_7381_73193_73306 = args[0];
  if( (boolean_f != tmp_7379_7381_73193_73306) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73711)->elements[1], (((closure)  ((closureN)self_73711)->elements[1])->fn),  tmp_7379_7381_73193_73306);
} else { 
  
closureN_type c_731970;
object e_731976 [1];
c_731970.hdr.mark = gc_color_red;
 c_731970.hdr.grayed = 0;
c_731970.tag = closureN_tag;
 c_731970.fn = (function_type)__lambda_89;
c_731970.num_args = 1;
c_731970.num_elements = 1;
c_731970.elements = (object *)e_731976;
c_731970.elements[0] = ((closureN)self_73711)->elements[1];


make_utf8_string_with_len(c_731977, "no expansion for", 16, 16);
return_direct_with_clo3(data,  __glo_error_95loc_scheme_base, (((closure)  __glo_error_95loc_scheme_base)->fn),  &c_731970, &c_731977, ((closureN)self_73711)->elements[0]);}
;; 
}

static void __lambda_89(void *data, object self_73712, int argc, object *args) /* object self_73712, object r_73400 */
 {
 object r_73400 = args[0];
  
pair_type local_731975; 
return_direct_with_clo1(data,  ((closureN)self_73712)->elements[0], (((closure)  ((closureN)self_73712)->elements[0])->fn),  set_pair_as_expr(&local_731975, r_73400, boolean_f));; 
}

static void __lambda_84(void *data, object self_73713, int argc, object *args) /* object self_73713, object k_73402 */
 {
 object k_73402 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73713)->elements[1])) ){ 
  
  Cyc_car(data, ((closureN)self_73713)->elements[1]);  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, ((closureN)self_73713)->elements[1]))) ){ 
  
  
  Cyc_car(data, Cyc_cdr(data, ((closureN)self_73713)->elements[1]));  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73713)->elements[1])))) ){ 
  
  
  
  Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73713)->elements[1])));  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73713)->elements[1]))))) ){ 
  
  
  
  
  Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73713)->elements[1]))));  
  
  
  
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73713)->elements[1])))))) ){ 
  
closureN_type c_731916;
object e_731935 [1];
c_731916.hdr.mark = gc_color_red;
 c_731916.hdr.grayed = 0;
c_731916.tag = closureN_tag;
 c_731916.fn = (function_type)__lambda_85;
c_731916.num_args = 1;
c_731916.num_elements = 1;
c_731916.elements = (object *)e_731935;
c_731916.elements[0] = k_73402;

return_closcall2(data,  ((closureN)self_73713)->elements[0],  &c_731916, quote_error);
} else { 
  return_direct_with_clo1(data,  k_73402, (((closure)  k_73402)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73402, (((closure)  k_73402)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73402, (((closure)  k_73402)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73402, (((closure)  k_73402)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73402, (((closure)  k_73402)->fn),  boolean_f);}
;; 
}

static void __lambda_85(void *data, object self_73714, int argc, object *args) /* object self_73714, object r_73417 */
 {
 object r_73417 = args[0];
  
closureN_type c_731918;
object e_731931 [2];
c_731918.hdr.mark = gc_color_red;
 c_731918.hdr.grayed = 0;
c_731918.tag = closureN_tag;
 c_731918.fn = (function_type)__lambda_86;
c_731918.num_args = 1;
c_731918.num_elements = 2;
c_731918.elements = (object *)e_731931;
c_731918.elements[0] = ((closureN)self_73714)->elements[0];
c_731918.elements[1] = r_73417;


make_utf8_string_with_len(c_731932, "case-lambda: no cases matched", 29, 29);

make_utf8_string_with_len(c_731934, "case-lambda: no cases matched", 29, 29);c_731934.hdr.immutable = 1;

make_pair(c_731933,&c_731934,NULL);c_731933.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731918, &c_731932, NULL, &c_731933);; 
}

static void __lambda_86(void *data, object self_73715, int argc, object *args) /* object self_73715, object r_73418 */
 {
 object r_73418 = args[0];
  
closureN_type c_731920;
object e_731926 [1];
c_731920.hdr.mark = gc_color_red;
 c_731920.hdr.grayed = 0;
c_731920.tag = closureN_tag;
 c_731920.fn = (function_type)__lambda_87;
c_731920.num_args = 1;
c_731920.num_elements = 1;
c_731920.elements = (object *)e_731926;
c_731920.elements[0] = ((closureN)self_73715)->elements[0];


make_utf8_string_with_len(c_731930, "case-lambda: no cases matched", 29, 29);c_731930.hdr.immutable = 1;

make_pair(c_731929,&c_731930,NULL);c_731929.hdr.immutable = 1;

make_pair(c_731928,quote_error,&c_731929);c_731928.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731920, ((closureN)self_73715)->elements[1], r_73418, &c_731928);; 
}

static void __lambda_87(void *data, object self_73716, int argc, object *args) /* object self_73716, object r_73416 */
 {
 object r_73416 = args[0];
  
pair_type local_731925; 
return_direct_with_clo1(data,  ((closureN)self_73716)->elements[0], (((closure)  ((closureN)self_73716)->elements[0])->fn),  set_pair_as_expr(&local_731925, r_73416, boolean_f));; 
}

static void __lambda_55(void *data, object self_73717, int argc, object *args) /* object self_73717, object k_73424 */
 {
 object k_73424 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73717)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, ((closureN)self_73717)->elements[1]))) ){ 
    
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73717)->elements[1])))) ){ 
    
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73717)->elements[1]))))) ){ 
    complex_num_type local_731563; 
  
  
  
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731563, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73717)->elements[1])))))) ){ 
    
  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73717)->elements[1])))))) ){ 
    
  
  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73717)->elements[1]))))))) ){ 
  
closureN_type c_731599;
object e_731859 [3];
c_731599.hdr.mark = gc_color_red;
 c_731599.hdr.grayed = 0;
c_731599.tag = closureN_tag;
 c_731599.fn = (function_type)__lambda_56;
c_731599.num_args = 1;
c_731599.num_elements = 3;
c_731599.elements = (object *)e_731859;
c_731599.elements[0] = k_73424;
c_731599.elements[1] = ((closureN)self_73717)->elements[0];
c_731599.elements[2] = ((closureN)self_73717)->elements[1];

return_closcall2(data,  ((closureN)self_73717)->elements[0],  &c_731599, quote__if);
} else { 
  return_direct_with_clo1(data,  k_73424, (((closure)  k_73424)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73424, (((closure)  k_73424)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73424, (((closure)  k_73424)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73424, (((closure)  k_73424)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73424, (((closure)  k_73424)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73424, (((closure)  k_73424)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73424, (((closure)  k_73424)->fn),  boolean_f);}
;; 
}

static void __lambda_56(void *data, object self_73718, int argc, object *args) /* object self_73718, object r_73445 */
 {
 object r_73445 = args[0];
  
closureN_type c_731602;
object e_731858 [4];
c_731602.hdr.mark = gc_color_red;
 c_731602.hdr.grayed = 0;
c_731602.tag = closureN_tag;
 c_731602.fn = (function_type)__lambda_57;
c_731602.num_args = 1;
c_731602.num_elements = 4;
c_731602.elements = (object *)e_731858;
c_731602.elements[0] = ((closureN)self_73718)->elements[0];
c_731602.elements[1] = r_73445;
c_731602.elements[2] = ((closureN)self_73718)->elements[1];
c_731602.elements[3] = ((closureN)self_73718)->elements[2];

return_closcall2(data,  ((closureN)self_73718)->elements[1],  &c_731602, quote__125_123);; 
}

static void __lambda_57(void *data, object self_73719, int argc, object *args) /* object self_73719, object r_73487 */
 {
 object r_73487 = args[0];
  
closureN_type c_731604;
object e_731849 [5];
c_731604.hdr.mark = gc_color_red;
 c_731604.hdr.grayed = 0;
c_731604.tag = closureN_tag;
 c_731604.fn = (function_type)__lambda_58;
c_731604.num_args = 1;
c_731604.num_elements = 5;
c_731604.elements = (object *)e_731849;
c_731604.elements[0] = ((closureN)self_73719)->elements[0];
c_731604.elements[1] = ((closureN)self_73719)->elements[1];
c_731604.elements[2] = r_73487;
c_731604.elements[3] = ((closureN)self_73719)->elements[2];
c_731604.elements[4] = ((closureN)self_73719)->elements[3];








make_pair(c_731857,quote_n,NULL);c_731857.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731604, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73719)->elements[3]))), NULL, &c_731857);; 
}

static void __lambda_58(void *data, object self_73720, int argc, object *args) /* object self_73720, object r_73490 */
 {
 object r_73490 = args[0];
  
closureN_type c_731606;
object e_731841 [5];
c_731606.hdr.mark = gc_color_red;
 c_731606.hdr.grayed = 0;
c_731606.tag = closureN_tag;
 c_731606.fn = (function_type)__lambda_59;
c_731606.num_args = 1;
c_731606.num_elements = 5;
c_731606.elements = (object *)e_731841;
c_731606.elements[0] = ((closureN)self_73720)->elements[0];
c_731606.elements[1] = ((closureN)self_73720)->elements[1];
c_731606.elements[2] = ((closureN)self_73720)->elements[2];
c_731606.elements[3] = ((closureN)self_73720)->elements[3];
c_731606.elements[4] = ((closureN)self_73720)->elements[4];






make_pair(c_731848,quote_n,NULL);c_731848.hdr.immutable = 1;

make_pair(c_731847,quote_len,&c_731848);c_731847.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731606, Cyc_car(data, Cyc_cdr(data, ((closureN)self_73720)->elements[4])), r_73490, &c_731847);; 
}

static void __lambda_59(void *data, object self_73721, int argc, object *args) /* object self_73721, object r_73488 */
 {
 object r_73488 = args[0];
  
closureN_type c_731608;
object e_731836 [4];
c_731608.hdr.mark = gc_color_red;
 c_731608.hdr.grayed = 0;
c_731608.tag = closureN_tag;
 c_731608.fn = (function_type)__lambda_60;
c_731608.num_args = 1;
c_731608.num_elements = 4;
c_731608.elements = (object *)e_731836;
c_731608.elements[0] = ((closureN)self_73721)->elements[0];
c_731608.elements[1] = ((closureN)self_73721)->elements[1];
c_731608.elements[2] = ((closureN)self_73721)->elements[3];
c_731608.elements[3] = ((closureN)self_73721)->elements[4];


make_pair(c_731840,quote_n,NULL);c_731840.hdr.immutable = 1;

make_pair(c_731839,quote_len,&c_731840);c_731839.hdr.immutable = 1;

make_pair(c_731838,quote__125_123,&c_731839);c_731838.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731608, ((closureN)self_73721)->elements[2], r_73488, &c_731838);; 
}

static void __lambda_60(void *data, object self_73722, int argc, object *args) /* object self_73722, object r_73448 */
 {
 object r_73448 = args[0];
  
closureN_type c_731611;
object e_731835 [5];
c_731611.hdr.mark = gc_color_red;
 c_731611.hdr.grayed = 0;
c_731611.tag = closureN_tag;
 c_731611.fn = (function_type)__lambda_61;
c_731611.num_args = 1;
c_731611.num_elements = 5;
c_731611.elements = (object *)e_731835;
c_731611.elements[0] = ((closureN)self_73722)->elements[0];
c_731611.elements[1] = ((closureN)self_73722)->elements[1];
c_731611.elements[2] = r_73448;
c_731611.elements[3] = ((closureN)self_73722)->elements[2];
c_731611.elements[4] = ((closureN)self_73722)->elements[3];

return_closcall2(data,  ((closureN)self_73722)->elements[2],  &c_731611, quote_apply);; 
}

static void __lambda_61(void *data, object self_73723, int argc, object *args) /* object self_73723, object r_73469 */
 {
 object r_73469 = args[0];
  
closureN_type c_731614;
object e_731834 [6];
c_731614.hdr.mark = gc_color_red;
 c_731614.hdr.grayed = 0;
c_731614.tag = closureN_tag;
 c_731614.fn = (function_type)__lambda_62;
c_731614.num_args = 1;
c_731614.num_elements = 6;
c_731614.elements = (object *)e_731834;
c_731614.elements[0] = ((closureN)self_73723)->elements[0];
c_731614.elements[1] = ((closureN)self_73723)->elements[1];
c_731614.elements[2] = ((closureN)self_73723)->elements[2];
c_731614.elements[3] = r_73469;
c_731614.elements[4] = ((closureN)self_73723)->elements[3];
c_731614.elements[5] = ((closureN)self_73723)->elements[4];

return_closcall2(data,  ((closureN)self_73723)->elements[3],  &c_731614, quote_lambda);; 
}

static void __lambda_62(void *data, object self_73724, int argc, object *args) /* object self_73724, object r_73477 */
 {
 object r_73477 = args[0];
  
closureN_type c_731616;
object e_731831 [7];
c_731616.hdr.mark = gc_color_red;
 c_731616.hdr.grayed = 0;
c_731616.tag = closureN_tag;
 c_731616.fn = (function_type)__lambda_63;
c_731616.num_args = 1;
c_731616.num_elements = 7;
c_731616.elements = (object *)e_731831;
c_731616.elements[0] = ((closureN)self_73724)->elements[0];
c_731616.elements[1] = ((closureN)self_73724)->elements[1];
c_731616.elements[2] = ((closureN)self_73724)->elements[2];
c_731616.elements[3] = ((closureN)self_73724)->elements[3];
c_731616.elements[4] = r_73477;
c_731616.elements[5] = ((closureN)self_73724)->elements[4];
c_731616.elements[6] = ((closureN)self_73724)->elements[5];


mmacro(c_731832, (function_type)__lambda_81);c_731832.num_args = 1;
return_direct_with_clo1(data,(closure)&c_731616,__lambda_63,  &c_731832);; 
}

static void __lambda_81(void *data, object self_73725, int argc, object *args) /* object self_73725, object k_73484, object p_73127_73227_73340 */
 {
 object k_73484 = args[0]; object p_73127_73227_73340 = args[1];
  return_direct_with_clo1(data,  k_73484, (((closure)  k_73484)->fn),  p_73127_73227_73340);; 
}

static void __lambda_63(void *data, object self_73726, int argc, object *args) /* object self_73726, object r_73483 */
 {
 object r_73483 = args[0];
  
closureN_type c_731618;
object e_731821 [7];
c_731618.hdr.mark = gc_color_red;
 c_731618.hdr.grayed = 0;
c_731618.tag = closureN_tag;
 c_731618.fn = (function_type)__lambda_64;
c_731618.num_args = 1;
c_731618.num_elements = 7;
c_731618.elements = (object *)e_731821;
c_731618.elements[0] = ((closureN)self_73726)->elements[0];
c_731618.elements[1] = ((closureN)self_73726)->elements[1];
c_731618.elements[2] = ((closureN)self_73726)->elements[2];
c_731618.elements[3] = ((closureN)self_73726)->elements[3];
c_731618.elements[4] = ((closureN)self_73726)->elements[4];
c_731618.elements[5] = ((closureN)self_73726)->elements[5];
c_731618.elements[6] = ((closureN)self_73726)->elements[6];









return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_731618, r_73483, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73726)->elements[6])))));; 
}

static void __lambda_64(void *data, object self_73727, int argc, object *args) /* object self_73727, object r_73482 */
 {
 object r_73482 = args[0];
  
closureN_type c_731620;
object e_731807 [7];
c_731620.hdr.mark = gc_color_red;
 c_731620.hdr.grayed = 0;
c_731620.tag = closureN_tag;
 c_731620.fn = (function_type)__lambda_65;
c_731620.num_args = 1;
c_731620.num_elements = 7;
c_731620.elements = (object *)e_731807;
c_731620.elements[0] = ((closureN)self_73727)->elements[0];
c_731620.elements[1] = ((closureN)self_73727)->elements[1];
c_731620.elements[2] = ((closureN)self_73727)->elements[2];
c_731620.elements[3] = ((closureN)self_73727)->elements[3];
c_731620.elements[4] = ((closureN)self_73727)->elements[4];
c_731620.elements[5] = ((closureN)self_73727)->elements[5];
c_731620.elements[6] = ((closureN)self_73727)->elements[6];













return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_731620, r_73482, Cyc_car(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73727)->elements[6])))))));; 
}

static void __lambda_65(void *data, object self_73728, int argc, object *args) /* object self_73728, object r_73480 */
 {
 object r_73480 = args[0];
  
closureN_type c_731622;
object e_731790 [7];
c_731622.hdr.mark = gc_color_red;
 c_731622.hdr.grayed = 0;
c_731622.tag = closureN_tag;
 c_731622.fn = (function_type)__lambda_66;
c_731622.num_args = 1;
c_731622.num_elements = 7;
c_731622.elements = (object *)e_731790;
c_731622.elements[0] = ((closureN)self_73728)->elements[0];
c_731622.elements[1] = ((closureN)self_73728)->elements[1];
c_731622.elements[2] = ((closureN)self_73728)->elements[2];
c_731622.elements[3] = ((closureN)self_73728)->elements[3];
c_731622.elements[4] = ((closureN)self_73728)->elements[4];
c_731622.elements[5] = ((closureN)self_73728)->elements[5];
c_731622.elements[6] = ((closureN)self_73728)->elements[6];














make_pair(c_731806,quote__93_93_93,quote_y);c_731806.hdr.immutable = 1;

make_pair(c_731805,quote_p,&c_731806);c_731805.hdr.immutable = 1;

make_pair(c_731804,&c_731805,quote_body);c_731804.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731622, r_73480, Cyc_cdr(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73728)->elements[6])))))), &c_731804);; 
}

static void __lambda_66(void *data, object self_73729, int argc, object *args) /* object self_73729, object r_73478 */
 {
 object r_73478 = args[0];
  
closureN_type c_731624;
object e_731784 [6];
c_731624.hdr.mark = gc_color_red;
 c_731624.hdr.grayed = 0;
c_731624.tag = closureN_tag;
 c_731624.fn = (function_type)__lambda_67;
c_731624.num_args = 1;
c_731624.num_elements = 6;
c_731624.elements = (object *)e_731784;
c_731624.elements[0] = ((closureN)self_73729)->elements[0];
c_731624.elements[1] = ((closureN)self_73729)->elements[1];
c_731624.elements[2] = ((closureN)self_73729)->elements[2];
c_731624.elements[3] = ((closureN)self_73729)->elements[3];
c_731624.elements[4] = ((closureN)self_73729)->elements[5];
c_731624.elements[5] = ((closureN)self_73729)->elements[6];


make_pair(c_731789,quote__93_93_93,quote_y);c_731789.hdr.immutable = 1;

make_pair(c_731788,quote_p,&c_731789);c_731788.hdr.immutable = 1;

make_pair(c_731787,&c_731788,quote_body);c_731787.hdr.immutable = 1;

make_pair(c_731786,quote_lambda,&c_731787);c_731786.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731624, ((closureN)self_73729)->elements[4], r_73478, &c_731786);; 
}

static void __lambda_67(void *data, object self_73730, int argc, object *args) /* object self_73730, object r_73472 */
 {
 object r_73472 = args[0];
  
closureN_type c_731626;
object e_731779 [7];
c_731626.hdr.mark = gc_color_red;
 c_731626.hdr.grayed = 0;
c_731626.tag = closureN_tag;
 c_731626.fn = (function_type)__lambda_68;
c_731626.num_args = 1;
c_731626.num_elements = 7;
c_731626.elements = (object *)e_731779;
c_731626.elements[0] = ((closureN)self_73730)->elements[0];
c_731626.elements[1] = ((closureN)self_73730)->elements[1];
c_731626.elements[2] = ((closureN)self_73730)->elements[2];
c_731626.elements[3] = ((closureN)self_73730)->elements[3];
c_731626.elements[4] = r_73472;
c_731626.elements[5] = ((closureN)self_73730)->elements[4];
c_731626.elements[6] = ((closureN)self_73730)->elements[5];




make_pair(c_731783,quote_args,NULL);c_731783.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731626, Cyc_car(data, ((closureN)self_73730)->elements[5]), NULL, &c_731783);; 
}

static void __lambda_68(void *data, object self_73731, int argc, object *args) /* object self_73731, object r_73473 */
 {
 object r_73473 = args[0];
  
closureN_type c_731628;
object e_731771 [6];
c_731628.hdr.mark = gc_color_red;
 c_731628.hdr.grayed = 0;
c_731628.tag = closureN_tag;
 c_731628.fn = (function_type)__lambda_69;
c_731628.num_args = 1;
c_731628.num_elements = 6;
c_731628.elements = (object *)e_731771;
c_731628.elements[0] = ((closureN)self_73731)->elements[0];
c_731628.elements[1] = ((closureN)self_73731)->elements[1];
c_731628.elements[2] = ((closureN)self_73731)->elements[2];
c_731628.elements[3] = ((closureN)self_73731)->elements[3];
c_731628.elements[4] = ((closureN)self_73731)->elements[5];
c_731628.elements[5] = ((closureN)self_73731)->elements[6];


make_pair(c_731777,quote__93_93_93,quote_y);c_731777.hdr.immutable = 1;

make_pair(c_731776,quote_p,&c_731777);c_731776.hdr.immutable = 1;

make_pair(c_731775,&c_731776,quote_body);c_731775.hdr.immutable = 1;

make_pair(c_731774,quote_lambda,&c_731775);c_731774.hdr.immutable = 1;

make_pair(c_731778,quote_args,NULL);c_731778.hdr.immutable = 1;

make_pair(c_731773,&c_731774,&c_731778);c_731773.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731628, ((closureN)self_73731)->elements[4], r_73473, &c_731773);; 
}

static void __lambda_69(void *data, object self_73732, int argc, object *args) /* object self_73732, object r_73470 */
 {
 object r_73470 = args[0];
  
closureN_type c_731630;
object e_731762 [5];
c_731630.hdr.mark = gc_color_red;
 c_731630.hdr.grayed = 0;
c_731630.tag = closureN_tag;
 c_731630.fn = (function_type)__lambda_70;
c_731630.num_args = 1;
c_731630.num_elements = 5;
c_731630.elements = (object *)e_731762;
c_731630.elements[0] = ((closureN)self_73732)->elements[0];
c_731630.elements[1] = ((closureN)self_73732)->elements[1];
c_731630.elements[2] = ((closureN)self_73732)->elements[2];
c_731630.elements[3] = ((closureN)self_73732)->elements[4];
c_731630.elements[4] = ((closureN)self_73732)->elements[5];


make_pair(c_731769,quote__93_93_93,quote_y);c_731769.hdr.immutable = 1;

make_pair(c_731768,quote_p,&c_731769);c_731768.hdr.immutable = 1;

make_pair(c_731767,&c_731768,quote_body);c_731767.hdr.immutable = 1;

make_pair(c_731766,quote_lambda,&c_731767);c_731766.hdr.immutable = 1;

make_pair(c_731770,quote_args,NULL);c_731770.hdr.immutable = 1;

make_pair(c_731765,&c_731766,&c_731770);c_731765.hdr.immutable = 1;

make_pair(c_731764,quote_apply,&c_731765);c_731764.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731630, ((closureN)self_73732)->elements[3], r_73470, &c_731764);; 
}

static void __lambda_70(void *data, object self_73733, int argc, object *args) /* object self_73733, object r_73451 */
 {
 object r_73451 = args[0];
  
closureN_type c_731633;
object e_731761 [5];
c_731633.hdr.mark = gc_color_red;
 c_731633.hdr.grayed = 0;
c_731633.tag = closureN_tag;
 c_731633.fn = (function_type)__lambda_71;
c_731633.num_args = 1;
c_731633.num_elements = 5;
c_731633.elements = (object *)e_731761;
c_731633.elements[0] = ((closureN)self_73733)->elements[0];
c_731633.elements[1] = ((closureN)self_73733)->elements[1];
c_731633.elements[2] = ((closureN)self_73733)->elements[2];
c_731633.elements[3] = r_73451;
c_731633.elements[4] = ((closureN)self_73733)->elements[4];

return_closcall2(data,  ((closureN)self_73733)->elements[3],  &c_731633, quote__75case);; 
}

static void __lambda_71(void *data, object self_73734, int argc, object *args) /* object self_73734, object r_73457 */
 {
 object r_73457 = args[0];
  
closureN_type c_731635;
object e_731748 [6];
c_731635.hdr.mark = gc_color_red;
 c_731635.hdr.grayed = 0;
c_731635.tag = closureN_tag;
 c_731635.fn = (function_type)__lambda_72;
c_731635.num_args = 1;
c_731635.num_elements = 6;
c_731635.elements = (object *)e_731748;
c_731635.elements[0] = ((closureN)self_73734)->elements[0];
c_731635.elements[1] = ((closureN)self_73734)->elements[1];
c_731635.elements[2] = ((closureN)self_73734)->elements[2];
c_731635.elements[3] = ((closureN)self_73734)->elements[3];
c_731635.elements[4] = r_73457;
c_731635.elements[5] = ((closureN)self_73734)->elements[4];












make_pair(c_731760,NULL,quote_rest);c_731760.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731635, NULL, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73734)->elements[4]))))), &c_731760);; 
}

static void __lambda_72(void *data, object self_73735, int argc, object *args) /* object self_73735, object r_73464 */
 {
 object r_73464 = args[0];
  
closureN_type c_731637;
object e_731745 [6];
c_731637.hdr.mark = gc_color_red;
 c_731637.hdr.grayed = 0;
c_731637.tag = closureN_tag;
 c_731637.fn = (function_type)__lambda_73;
c_731637.num_args = 1;
c_731637.num_elements = 6;
c_731637.elements = (object *)e_731745;
c_731637.elements[0] = ((closureN)self_73735)->elements[0];
c_731637.elements[1] = ((closureN)self_73735)->elements[1];
c_731637.elements[2] = ((closureN)self_73735)->elements[2];
c_731637.elements[3] = ((closureN)self_73735)->elements[3];
c_731637.elements[4] = ((closureN)self_73735)->elements[4];
c_731637.elements[5] = ((closureN)self_73735)->elements[5];


make_pair(c_731747,NULL,quote_rest);c_731747.hdr.immutable = 1;

make_pair(c_731746,obj_int2obj(0),&c_731747);c_731746.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731637, obj_int2obj(0), r_73464, &c_731746);; 
}

static void __lambda_73(void *data, object self_73736, int argc, object *args) /* object self_73736, object r_73462 */
 {
 object r_73462 = args[0];
  
closureN_type c_731639;
object e_731736 [6];
c_731639.hdr.mark = gc_color_red;
 c_731639.hdr.grayed = 0;
c_731639.tag = closureN_tag;
 c_731639.fn = (function_type)__lambda_74;
c_731639.num_args = 1;
c_731639.num_elements = 6;
c_731639.elements = (object *)e_731736;
c_731639.elements[0] = ((closureN)self_73736)->elements[0];
c_731639.elements[1] = ((closureN)self_73736)->elements[1];
c_731639.elements[2] = ((closureN)self_73736)->elements[2];
c_731639.elements[3] = ((closureN)self_73736)->elements[3];
c_731639.elements[4] = ((closureN)self_73736)->elements[4];
c_731639.elements[5] = ((closureN)self_73736)->elements[5];






make_pair(c_731744,NULL,quote_rest);c_731744.hdr.immutable = 1;

make_pair(c_731743,obj_int2obj(0),&c_731744);c_731743.hdr.immutable = 1;

make_pair(c_731742,quote_len,&c_731743);c_731742.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731639, Cyc_car(data, Cyc_cdr(data, ((closureN)self_73736)->elements[5])), r_73462, &c_731742);; 
}

static void __lambda_74(void *data, object self_73737, int argc, object *args) /* object self_73737, object r_73460 */
 {
 object r_73460 = args[0];
  
closureN_type c_731641;
object e_731728 [5];
c_731641.hdr.mark = gc_color_red;
 c_731641.hdr.grayed = 0;
c_731641.tag = closureN_tag;
 c_731641.fn = (function_type)__lambda_75;
c_731641.num_args = 1;
c_731641.num_elements = 5;
c_731641.elements = (object *)e_731728;
c_731641.elements[0] = ((closureN)self_73737)->elements[0];
c_731641.elements[1] = ((closureN)self_73737)->elements[1];
c_731641.elements[2] = ((closureN)self_73737)->elements[2];
c_731641.elements[3] = ((closureN)self_73737)->elements[3];
c_731641.elements[4] = ((closureN)self_73737)->elements[4];




make_pair(c_731735,NULL,quote_rest);c_731735.hdr.immutable = 1;

make_pair(c_731734,obj_int2obj(0),&c_731735);c_731734.hdr.immutable = 1;

make_pair(c_731733,quote_len,&c_731734);c_731733.hdr.immutable = 1;

make_pair(c_731732,quote_args,&c_731733);c_731732.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731641, Cyc_car(data, ((closureN)self_73737)->elements[5]), r_73460, &c_731732);; 
}

static void __lambda_75(void *data, object self_73738, int argc, object *args) /* object self_73738, object r_73458 */
 {
 object r_73458 = args[0];
  
closureN_type c_731643;
object e_731721 [4];
c_731643.hdr.mark = gc_color_red;
 c_731643.hdr.grayed = 0;
c_731643.tag = closureN_tag;
 c_731643.fn = (function_type)__lambda_76;
c_731643.num_args = 1;
c_731643.num_elements = 4;
c_731643.elements = (object *)e_731721;
c_731643.elements[0] = ((closureN)self_73738)->elements[0];
c_731643.elements[1] = ((closureN)self_73738)->elements[1];
c_731643.elements[2] = ((closureN)self_73738)->elements[2];
c_731643.elements[3] = ((closureN)self_73738)->elements[3];


make_pair(c_731727,NULL,quote_rest);c_731727.hdr.immutable = 1;

make_pair(c_731726,obj_int2obj(0),&c_731727);c_731726.hdr.immutable = 1;

make_pair(c_731725,quote_len,&c_731726);c_731725.hdr.immutable = 1;

make_pair(c_731724,quote_args,&c_731725);c_731724.hdr.immutable = 1;

make_pair(c_731723,quote__75case,&c_731724);c_731723.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731643, ((closureN)self_73738)->elements[4], r_73458, &c_731723);; 
}

static void __lambda_76(void *data, object self_73739, int argc, object *args) /* object self_73739, object r_73454 */
 {
 object r_73454 = args[0];
  
closureN_type c_731645;
object e_731714 [4];
c_731645.hdr.mark = gc_color_red;
 c_731645.hdr.grayed = 0;
c_731645.tag = closureN_tag;
 c_731645.fn = (function_type)__lambda_77;
c_731645.num_args = 1;
c_731645.num_elements = 4;
c_731645.elements = (object *)e_731714;
c_731645.elements[0] = ((closureN)self_73739)->elements[0];
c_731645.elements[1] = ((closureN)self_73739)->elements[1];
c_731645.elements[2] = ((closureN)self_73739)->elements[2];
c_731645.elements[3] = ((closureN)self_73739)->elements[3];


make_pair(c_731720,NULL,quote_rest);c_731720.hdr.immutable = 1;

make_pair(c_731719,obj_int2obj(0),&c_731720);c_731719.hdr.immutable = 1;

make_pair(c_731718,quote_len,&c_731719);c_731718.hdr.immutable = 1;

make_pair(c_731717,quote_args,&c_731718);c_731717.hdr.immutable = 1;

make_pair(c_731716,quote__75case,&c_731717);c_731716.hdr.immutable = 1;

make_pair(c_731715,&c_731716,NULL);c_731715.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731645, r_73454, NULL, &c_731715);; 
}

static void __lambda_77(void *data, object self_73740, int argc, object *args) /* object self_73740, object r_73452 */
 {
 object r_73452 = args[0];
  
closureN_type c_731647;
object e_731698 [3];
c_731647.hdr.mark = gc_color_red;
 c_731647.hdr.grayed = 0;
c_731647.tag = closureN_tag;
 c_731647.fn = (function_type)__lambda_78;
c_731647.num_args = 1;
c_731647.num_elements = 3;
c_731647.elements = (object *)e_731698;
c_731647.elements[0] = ((closureN)self_73740)->elements[0];
c_731647.elements[1] = ((closureN)self_73740)->elements[1];
c_731647.elements[2] = ((closureN)self_73740)->elements[2];


make_pair(c_731706,quote__93_93_93,quote_y);c_731706.hdr.immutable = 1;

make_pair(c_731705,quote_p,&c_731706);c_731705.hdr.immutable = 1;

make_pair(c_731704,&c_731705,quote_body);c_731704.hdr.immutable = 1;

make_pair(c_731703,quote_lambda,&c_731704);c_731703.hdr.immutable = 1;

make_pair(c_731707,quote_args,NULL);c_731707.hdr.immutable = 1;

make_pair(c_731702,&c_731703,&c_731707);c_731702.hdr.immutable = 1;

make_pair(c_731701,quote_apply,&c_731702);c_731701.hdr.immutable = 1;

make_pair(c_731713,NULL,quote_rest);c_731713.hdr.immutable = 1;

make_pair(c_731712,obj_int2obj(0),&c_731713);c_731712.hdr.immutable = 1;

make_pair(c_731711,quote_len,&c_731712);c_731711.hdr.immutable = 1;

make_pair(c_731710,quote_args,&c_731711);c_731710.hdr.immutable = 1;

make_pair(c_731709,quote__75case,&c_731710);c_731709.hdr.immutable = 1;

make_pair(c_731708,&c_731709,NULL);c_731708.hdr.immutable = 1;

make_pair(c_731700,&c_731701,&c_731708);c_731700.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731647, ((closureN)self_73740)->elements[3], r_73452, &c_731700);; 
}

static void __lambda_78(void *data, object self_73741, int argc, object *args) /* object self_73741, object r_73449 */
 {
 object r_73449 = args[0];
  
closureN_type c_731649;
object e_731678 [2];
c_731649.hdr.mark = gc_color_red;
 c_731649.hdr.grayed = 0;
c_731649.tag = closureN_tag;
 c_731649.fn = (function_type)__lambda_79;
c_731649.num_args = 1;
c_731649.num_elements = 2;
c_731649.elements = (object *)e_731678;
c_731649.elements[0] = ((closureN)self_73741)->elements[0];
c_731649.elements[1] = ((closureN)self_73741)->elements[1];


make_pair(c_731683,quote_n,NULL);c_731683.hdr.immutable = 1;

make_pair(c_731682,quote_len,&c_731683);c_731682.hdr.immutable = 1;

make_pair(c_731681,quote__125_123,&c_731682);c_731681.hdr.immutable = 1;

make_pair(c_731690,quote__93_93_93,quote_y);c_731690.hdr.immutable = 1;

make_pair(c_731689,quote_p,&c_731690);c_731689.hdr.immutable = 1;

make_pair(c_731688,&c_731689,quote_body);c_731688.hdr.immutable = 1;

make_pair(c_731687,quote_lambda,&c_731688);c_731687.hdr.immutable = 1;

make_pair(c_731691,quote_args,NULL);c_731691.hdr.immutable = 1;

make_pair(c_731686,&c_731687,&c_731691);c_731686.hdr.immutable = 1;

make_pair(c_731685,quote_apply,&c_731686);c_731685.hdr.immutable = 1;

make_pair(c_731697,NULL,quote_rest);c_731697.hdr.immutable = 1;

make_pair(c_731696,obj_int2obj(0),&c_731697);c_731696.hdr.immutable = 1;

make_pair(c_731695,quote_len,&c_731696);c_731695.hdr.immutable = 1;

make_pair(c_731694,quote_args,&c_731695);c_731694.hdr.immutable = 1;

make_pair(c_731693,quote__75case,&c_731694);c_731693.hdr.immutable = 1;

make_pair(c_731692,&c_731693,NULL);c_731692.hdr.immutable = 1;

make_pair(c_731684,&c_731685,&c_731692);c_731684.hdr.immutable = 1;

make_pair(c_731680,&c_731681,&c_731684);c_731680.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731649, ((closureN)self_73741)->elements[2], r_73449, &c_731680);; 
}

static void __lambda_79(void *data, object self_73742, int argc, object *args) /* object self_73742, object r_73446 */
 {
 object r_73446 = args[0];
  
closureN_type c_731651;
object e_731657 [1];
c_731651.hdr.mark = gc_color_red;
 c_731651.hdr.grayed = 0;
c_731651.tag = closureN_tag;
 c_731651.fn = (function_type)__lambda_80;
c_731651.num_args = 1;
c_731651.num_elements = 1;
c_731651.elements = (object *)e_731657;
c_731651.elements[0] = ((closureN)self_73742)->elements[0];


make_pair(c_731663,quote_n,NULL);c_731663.hdr.immutable = 1;

make_pair(c_731662,quote_len,&c_731663);c_731662.hdr.immutable = 1;

make_pair(c_731661,quote__125_123,&c_731662);c_731661.hdr.immutable = 1;

make_pair(c_731670,quote__93_93_93,quote_y);c_731670.hdr.immutable = 1;

make_pair(c_731669,quote_p,&c_731670);c_731669.hdr.immutable = 1;

make_pair(c_731668,&c_731669,quote_body);c_731668.hdr.immutable = 1;

make_pair(c_731667,quote_lambda,&c_731668);c_731667.hdr.immutable = 1;

make_pair(c_731671,quote_args,NULL);c_731671.hdr.immutable = 1;

make_pair(c_731666,&c_731667,&c_731671);c_731666.hdr.immutable = 1;

make_pair(c_731665,quote_apply,&c_731666);c_731665.hdr.immutable = 1;

make_pair(c_731677,NULL,quote_rest);c_731677.hdr.immutable = 1;

make_pair(c_731676,obj_int2obj(0),&c_731677);c_731676.hdr.immutable = 1;

make_pair(c_731675,quote_len,&c_731676);c_731675.hdr.immutable = 1;

make_pair(c_731674,quote_args,&c_731675);c_731674.hdr.immutable = 1;

make_pair(c_731673,quote__75case,&c_731674);c_731673.hdr.immutable = 1;

make_pair(c_731672,&c_731673,NULL);c_731672.hdr.immutable = 1;

make_pair(c_731664,&c_731665,&c_731672);c_731664.hdr.immutable = 1;

make_pair(c_731660,&c_731661,&c_731664);c_731660.hdr.immutable = 1;

make_pair(c_731659,quote__if,&c_731660);c_731659.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731651, ((closureN)self_73742)->elements[1], r_73446, &c_731659);; 
}

static void __lambda_80(void *data, object self_73743, int argc, object *args) /* object self_73743, object r_73444 */
 {
 object r_73444 = args[0];
  
pair_type local_731656; 
return_direct_with_clo1(data,  ((closureN)self_73743)->elements[0], (((closure)  ((closureN)self_73743)->elements[0])->fn),  set_pair_as_expr(&local_731656, r_73444, boolean_f));; 
}

static void __lambda_35(void *data, object self_73744, int argc, object *args) /* object self_73744, object k_73497 */
 {
 object k_73497 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73744)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, ((closureN)self_73744)->elements[1]))) ){ 
    
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73744)->elements[1])))) ){ 
    
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73744)->elements[1]))))) ){ 
    complex_num_type local_731270; 
  
  
  
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731270, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73744)->elements[1])))))) ){ 
    
  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73744)->elements[1])))))) ){ 
    
  
  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73744)->elements[1]))))))) ){ 
    
  
  
  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73744)->elements[1])))))))) ){ 
  
closureN_type c_731321;
object e_731520 [3];
c_731321.hdr.mark = gc_color_red;
 c_731321.hdr.grayed = 0;
c_731321.tag = closureN_tag;
 c_731321.fn = (function_type)__lambda_36;
c_731321.num_args = 1;
c_731321.num_elements = 3;
c_731321.elements = (object *)e_731520;
c_731321.elements[0] = k_73497;
c_731321.elements[1] = ((closureN)self_73744)->elements[0];
c_731321.elements[2] = ((closureN)self_73744)->elements[1];

return_closcall2(data,  ((closureN)self_73744)->elements[0],  &c_731321, quote__75case);
} else { 
  return_direct_with_clo1(data,  k_73497, (((closure)  k_73497)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73497, (((closure)  k_73497)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73497, (((closure)  k_73497)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73497, (((closure)  k_73497)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73497, (((closure)  k_73497)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73497, (((closure)  k_73497)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73497, (((closure)  k_73497)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73497, (((closure)  k_73497)->fn),  boolean_f);}
;; 
}

static void __lambda_36(void *data, object self_73745, int argc, object *args) /* object self_73745, object r_73521 */
 {
 object r_73521 = args[0];
  
closureN_type c_731324;
object e_731519 [3];
c_731324.hdr.mark = gc_color_red;
 c_731324.hdr.grayed = 0;
c_731324.tag = closureN_tag;
 c_731324.fn = (function_type)__lambda_37;
c_731324.num_args = 1;
c_731324.num_elements = 3;
c_731324.elements = (object *)e_731519;
c_731324.elements[0] = ((closureN)self_73745)->elements[0];
c_731324.elements[1] = r_73521;
c_731324.elements[2] = ((closureN)self_73745)->elements[2];

return_closcall2(data,  ((closureN)self_73745)->elements[1],  &c_731324, quote__87);; 
}

static void __lambda_37(void *data, object self_73746, int argc, object *args) /* object self_73746, object r_73543 */
 {
 object r_73543 = args[0];
  
closureN_type c_731326;
object e_731517 [4];
c_731326.hdr.mark = gc_color_red;
 c_731326.hdr.grayed = 0;
c_731326.tag = closureN_tag;
 c_731326.fn = (function_type)__lambda_38;
c_731326.num_args = 1;
c_731326.num_elements = 4;
c_731326.elements = (object *)e_731517;
c_731326.elements[0] = ((closureN)self_73746)->elements[0];
c_731326.elements[1] = ((closureN)self_73746)->elements[1];
c_731326.elements[2] = r_73543;
c_731326.elements[3] = ((closureN)self_73746)->elements[2];


make_pair(c_731518,obj_int2obj(1),NULL);c_731518.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731326, obj_int2obj(1), NULL, &c_731518);; 
}

static void __lambda_38(void *data, object self_73747, int argc, object *args) /* object self_73747, object r_73546 */
 {
 object r_73546 = args[0];
  
closureN_type c_731328;
object e_731507 [4];
c_731328.hdr.mark = gc_color_red;
 c_731328.hdr.grayed = 0;
c_731328.tag = closureN_tag;
 c_731328.fn = (function_type)__lambda_39;
c_731328.num_args = 1;
c_731328.num_elements = 4;
c_731328.elements = (object *)e_731507;
c_731328.elements[0] = ((closureN)self_73747)->elements[0];
c_731328.elements[1] = ((closureN)self_73747)->elements[1];
c_731328.elements[2] = ((closureN)self_73747)->elements[2];
c_731328.elements[3] = ((closureN)self_73747)->elements[3];








make_pair(c_731516,obj_int2obj(1),NULL);c_731516.hdr.immutable = 1;

make_pair(c_731515,quote_n,&c_731516);c_731515.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731328, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73747)->elements[3]))), r_73546, &c_731515);; 
}

static void __lambda_39(void *data, object self_73748, int argc, object *args) /* object self_73748, object r_73544 */
 {
 object r_73544 = args[0];
  
closureN_type c_731330;
object e_731502 [3];
c_731330.hdr.mark = gc_color_red;
 c_731330.hdr.grayed = 0;
c_731330.tag = closureN_tag;
 c_731330.fn = (function_type)__lambda_40;
c_731330.num_args = 1;
c_731330.num_elements = 3;
c_731330.elements = (object *)e_731502;
c_731330.elements[0] = ((closureN)self_73748)->elements[0];
c_731330.elements[1] = ((closureN)self_73748)->elements[1];
c_731330.elements[2] = ((closureN)self_73748)->elements[3];


make_pair(c_731506,obj_int2obj(1),NULL);c_731506.hdr.immutable = 1;

make_pair(c_731505,quote_n,&c_731506);c_731505.hdr.immutable = 1;

make_pair(c_731504,quote__87,&c_731505);c_731504.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731330, ((closureN)self_73748)->elements[2], r_73544, &c_731504);; 
}

static void __lambda_40(void *data, object self_73749, int argc, object *args) /* object self_73749, object r_73528 */
 {
 object r_73528 = args[0];
  
closureN_type c_731332;
object e_731499 [4];
c_731332.hdr.mark = gc_color_red;
 c_731332.hdr.grayed = 0;
c_731332.tag = closureN_tag;
 c_731332.fn = (function_type)__lambda_41;
c_731332.num_args = 1;
c_731332.num_elements = 4;
c_731332.elements = (object *)e_731499;
c_731332.elements[0] = ((closureN)self_73749)->elements[0];
c_731332.elements[1] = ((closureN)self_73749)->elements[1];
c_731332.elements[2] = r_73528;
c_731332.elements[3] = ((closureN)self_73749)->elements[2];


mmacro(c_731500, (function_type)__lambda_52);c_731500.num_args = 1;
return_direct_with_clo1(data,(closure)&c_731332,__lambda_41,  &c_731500);; 
}

static void __lambda_52(void *data, object self_73750, int argc, object *args) /* object self_73750, object k_73542, object p_73159_73251_73364 */
 {
 object k_73542 = args[0]; object p_73159_73251_73364 = args[1];
  return_direct_with_clo1(data,  k_73542, (((closure)  k_73542)->fn),  p_73159_73251_73364);; 
}

static void __lambda_41(void *data, object self_73751, int argc, object *args) /* object self_73751, object r_73541 */
 {
 object r_73541 = args[0];
  
closureN_type c_731334;
object e_731489 [4];
c_731334.hdr.mark = gc_color_red;
 c_731334.hdr.grayed = 0;
c_731334.tag = closureN_tag;
 c_731334.fn = (function_type)__lambda_42;
c_731334.num_args = 1;
c_731334.num_elements = 4;
c_731334.elements = (object *)e_731489;
c_731334.elements[0] = ((closureN)self_73751)->elements[0];
c_731334.elements[1] = ((closureN)self_73751)->elements[1];
c_731334.elements[2] = ((closureN)self_73751)->elements[2];
c_731334.elements[3] = ((closureN)self_73751)->elements[3];









return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_731334, r_73541, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73751)->elements[3])))));; 
}

static void __lambda_42(void *data, object self_73752, int argc, object *args) /* object self_73752, object r_73537 */
 {
 object r_73537 = args[0];
  
closureN_type c_731336;
object e_731472 [5];
c_731336.hdr.mark = gc_color_red;
 c_731336.hdr.grayed = 0;
c_731336.tag = closureN_tag;
 c_731336.fn = (function_type)__lambda_43;
c_731336.num_args = 1;
c_731336.num_elements = 5;
c_731336.elements = (object *)e_731472;
c_731336.elements[0] = ((closureN)self_73752)->elements[0];
c_731336.elements[1] = ((closureN)self_73752)->elements[1];
c_731336.elements[2] = ((closureN)self_73752)->elements[2];
c_731336.elements[3] = r_73537;
c_731336.elements[4] = ((closureN)self_73752)->elements[3];
















make_pair(c_731488,quote_x,NULL);c_731488.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731336, Cyc_car(data, Cyc_car(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73752)->elements[3]))))))), NULL, &c_731488);; 
}

static void __lambda_43(void *data, object self_73753, int argc, object *args) /* object self_73753, object r_73538 */
 {
 object r_73538 = args[0];
  
closureN_type c_731338;
object e_731470 [4];
c_731338.hdr.mark = gc_color_red;
 c_731338.hdr.grayed = 0;
c_731338.tag = closureN_tag;
 c_731338.fn = (function_type)__lambda_44;
c_731338.num_args = 1;
c_731338.num_elements = 4;
c_731338.elements = (object *)e_731470;
c_731338.elements[0] = ((closureN)self_73753)->elements[0];
c_731338.elements[1] = ((closureN)self_73753)->elements[1];
c_731338.elements[2] = ((closureN)self_73753)->elements[2];
c_731338.elements[3] = ((closureN)self_73753)->elements[4];

return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_731338, ((closureN)self_73753)->elements[3], r_73538);; 
}

static void __lambda_44(void *data, object self_73754, int argc, object *args) /* object self_73754, object r_73531 */
 {
 object r_73531 = args[0];
  
closureN_type c_731340;
object e_731440 [5];
c_731340.hdr.mark = gc_color_red;
 c_731340.hdr.grayed = 0;
c_731340.tag = closureN_tag;
 c_731340.fn = (function_type)__lambda_45;
c_731340.num_args = 1;
c_731340.num_elements = 5;
c_731340.elements = (object *)e_731440;
c_731340.elements[0] = ((closureN)self_73754)->elements[0];
c_731340.elements[1] = ((closureN)self_73754)->elements[1];
c_731340.elements[2] = ((closureN)self_73754)->elements[2];
c_731340.elements[3] = r_73531;
c_731340.elements[4] = ((closureN)self_73754)->elements[3];




























make_pair(c_731469,quote_y,quote_body);c_731469.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731340, Cyc_cdr(data, Cyc_car(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73754)->elements[3]))))))), Cyc_cdr(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73754)->elements[3])))))), &c_731469);; 
}

static void __lambda_45(void *data, object self_73755, int argc, object *args) /* object self_73755, object r_73534 */
 {
 object r_73534 = args[0];
  
closureN_type c_731342;
object e_731426 [5];
c_731342.hdr.mark = gc_color_red;
 c_731342.hdr.grayed = 0;
c_731342.tag = closureN_tag;
 c_731342.fn = (function_type)__lambda_46;
c_731342.num_args = 1;
c_731342.num_elements = 5;
c_731342.elements = (object *)e_731426;
c_731342.elements[0] = ((closureN)self_73755)->elements[0];
c_731342.elements[1] = ((closureN)self_73755)->elements[1];
c_731342.elements[2] = ((closureN)self_73755)->elements[2];
c_731342.elements[3] = ((closureN)self_73755)->elements[3];
c_731342.elements[4] = ((closureN)self_73755)->elements[4];












make_pair(c_731439,quote_y,quote_body);c_731439.hdr.immutable = 1;

make_pair(c_731438,&c_731439,quote_rest);c_731438.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731342, r_73534, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73755)->elements[4]))))), &c_731438);; 
}

static void __lambda_46(void *data, object self_73756, int argc, object *args) /* object self_73756, object r_73532 */
 {
 object r_73532 = args[0];
  
closureN_type c_731344;
object e_731418 [4];
c_731344.hdr.mark = gc_color_red;
 c_731344.hdr.grayed = 0;
c_731344.tag = closureN_tag;
 c_731344.fn = (function_type)__lambda_47;
c_731344.num_args = 1;
c_731344.num_elements = 4;
c_731344.elements = (object *)e_731418;
c_731344.elements[0] = ((closureN)self_73756)->elements[0];
c_731344.elements[1] = ((closureN)self_73756)->elements[1];
c_731344.elements[2] = ((closureN)self_73756)->elements[2];
c_731344.elements[3] = ((closureN)self_73756)->elements[4];


make_pair(c_731423,quote_x,NULL);c_731423.hdr.immutable = 1;

make_pair(c_731422,quote__93_93_93,&c_731423);c_731422.hdr.immutable = 1;

make_pair(c_731421,quote_p,&c_731422);c_731421.hdr.immutable = 1;

make_pair(c_731425,quote_y,quote_body);c_731425.hdr.immutable = 1;

make_pair(c_731424,&c_731425,quote_rest);c_731424.hdr.immutable = 1;

make_pair(c_731420,&c_731421,&c_731424);c_731420.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731344, ((closureN)self_73756)->elements[3], r_73532, &c_731420);; 
}

static void __lambda_47(void *data, object self_73757, int argc, object *args) /* object self_73757, object r_73529 */
 {
 object r_73529 = args[0];
  
closureN_type c_731346;
object e_731406 [3];
c_731346.hdr.mark = gc_color_red;
 c_731346.hdr.grayed = 0;
c_731346.tag = closureN_tag;
 c_731346.fn = (function_type)__lambda_48;
c_731346.num_args = 1;
c_731346.num_elements = 3;
c_731346.elements = (object *)e_731406;
c_731346.elements[0] = ((closureN)self_73757)->elements[0];
c_731346.elements[1] = ((closureN)self_73757)->elements[1];
c_731346.elements[2] = ((closureN)self_73757)->elements[3];


make_pair(c_731411,obj_int2obj(1),NULL);c_731411.hdr.immutable = 1;

make_pair(c_731410,quote_n,&c_731411);c_731410.hdr.immutable = 1;

make_pair(c_731409,quote__87,&c_731410);c_731409.hdr.immutable = 1;

make_pair(c_731415,quote_x,NULL);c_731415.hdr.immutable = 1;

make_pair(c_731414,quote__93_93_93,&c_731415);c_731414.hdr.immutable = 1;

make_pair(c_731413,quote_p,&c_731414);c_731413.hdr.immutable = 1;

make_pair(c_731417,quote_y,quote_body);c_731417.hdr.immutable = 1;

make_pair(c_731416,&c_731417,quote_rest);c_731416.hdr.immutable = 1;

make_pair(c_731412,&c_731413,&c_731416);c_731412.hdr.immutable = 1;

make_pair(c_731408,&c_731409,&c_731412);c_731408.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731346, ((closureN)self_73757)->elements[2], r_73529, &c_731408);; 
}

static void __lambda_48(void *data, object self_73758, int argc, object *args) /* object self_73758, object r_73526 */
 {
 object r_73526 = args[0];
  
closureN_type c_731348;
object e_731389 [3];
c_731348.hdr.mark = gc_color_red;
 c_731348.hdr.grayed = 0;
c_731348.tag = closureN_tag;
 c_731348.fn = (function_type)__lambda_49;
c_731348.num_args = 1;
c_731348.num_elements = 3;
c_731348.elements = (object *)e_731389;
c_731348.elements[0] = ((closureN)self_73758)->elements[0];
c_731348.elements[1] = ((closureN)self_73758)->elements[1];
c_731348.elements[2] = ((closureN)self_73758)->elements[2];






make_pair(c_731399,obj_int2obj(1),NULL);c_731399.hdr.immutable = 1;

make_pair(c_731398,quote_n,&c_731399);c_731398.hdr.immutable = 1;

make_pair(c_731397,quote__87,&c_731398);c_731397.hdr.immutable = 1;

make_pair(c_731403,quote_x,NULL);c_731403.hdr.immutable = 1;

make_pair(c_731402,quote__93_93_93,&c_731403);c_731402.hdr.immutable = 1;

make_pair(c_731401,quote_p,&c_731402);c_731401.hdr.immutable = 1;

make_pair(c_731405,quote_y,quote_body);c_731405.hdr.immutable = 1;

make_pair(c_731404,&c_731405,quote_rest);c_731404.hdr.immutable = 1;

make_pair(c_731400,&c_731401,&c_731404);c_731400.hdr.immutable = 1;

make_pair(c_731396,&c_731397,&c_731400);c_731396.hdr.immutable = 1;

make_pair(c_731395,quote_len,&c_731396);c_731395.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731348, Cyc_car(data, Cyc_cdr(data, ((closureN)self_73758)->elements[2])), r_73526, &c_731395);; 
}

static void __lambda_49(void *data, object self_73759, int argc, object *args) /* object self_73759, object r_73524 */
 {
 object r_73524 = args[0];
  
closureN_type c_731350;
object e_731373 [2];
c_731350.hdr.mark = gc_color_red;
 c_731350.hdr.grayed = 0;
c_731350.tag = closureN_tag;
 c_731350.fn = (function_type)__lambda_50;
c_731350.num_args = 1;
c_731350.num_elements = 2;
c_731350.elements = (object *)e_731373;
c_731350.elements[0] = ((closureN)self_73759)->elements[0];
c_731350.elements[1] = ((closureN)self_73759)->elements[1];




make_pair(c_731382,obj_int2obj(1),NULL);c_731382.hdr.immutable = 1;

make_pair(c_731381,quote_n,&c_731382);c_731381.hdr.immutable = 1;

make_pair(c_731380,quote__87,&c_731381);c_731380.hdr.immutable = 1;

make_pair(c_731386,quote_x,NULL);c_731386.hdr.immutable = 1;

make_pair(c_731385,quote__93_93_93,&c_731386);c_731385.hdr.immutable = 1;

make_pair(c_731384,quote_p,&c_731385);c_731384.hdr.immutable = 1;

make_pair(c_731388,quote_y,quote_body);c_731388.hdr.immutable = 1;

make_pair(c_731387,&c_731388,quote_rest);c_731387.hdr.immutable = 1;

make_pair(c_731383,&c_731384,&c_731387);c_731383.hdr.immutable = 1;

make_pair(c_731379,&c_731380,&c_731383);c_731379.hdr.immutable = 1;

make_pair(c_731378,quote_len,&c_731379);c_731378.hdr.immutable = 1;

make_pair(c_731377,quote_args,&c_731378);c_731377.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731350, Cyc_car(data, ((closureN)self_73759)->elements[2]), r_73524, &c_731377);; 
}

static void __lambda_50(void *data, object self_73760, int argc, object *args) /* object self_73760, object r_73522 */
 {
 object r_73522 = args[0];
  
closureN_type c_731352;
object e_731358 [1];
c_731352.hdr.mark = gc_color_red;
 c_731352.hdr.grayed = 0;
c_731352.tag = closureN_tag;
 c_731352.fn = (function_type)__lambda_51;
c_731352.num_args = 1;
c_731352.num_elements = 1;
c_731352.elements = (object *)e_731358;
c_731352.elements[0] = ((closureN)self_73760)->elements[0];


make_pair(c_731366,obj_int2obj(1),NULL);c_731366.hdr.immutable = 1;

make_pair(c_731365,quote_n,&c_731366);c_731365.hdr.immutable = 1;

make_pair(c_731364,quote__87,&c_731365);c_731364.hdr.immutable = 1;

make_pair(c_731370,quote_x,NULL);c_731370.hdr.immutable = 1;

make_pair(c_731369,quote__93_93_93,&c_731370);c_731369.hdr.immutable = 1;

make_pair(c_731368,quote_p,&c_731369);c_731368.hdr.immutable = 1;

make_pair(c_731372,quote_y,quote_body);c_731372.hdr.immutable = 1;

make_pair(c_731371,&c_731372,quote_rest);c_731371.hdr.immutable = 1;

make_pair(c_731367,&c_731368,&c_731371);c_731367.hdr.immutable = 1;

make_pair(c_731363,&c_731364,&c_731367);c_731363.hdr.immutable = 1;

make_pair(c_731362,quote_len,&c_731363);c_731362.hdr.immutable = 1;

make_pair(c_731361,quote_args,&c_731362);c_731361.hdr.immutable = 1;

make_pair(c_731360,quote__75case,&c_731361);c_731360.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_731352, ((closureN)self_73760)->elements[1], r_73522, &c_731360);; 
}

static void __lambda_51(void *data, object self_73761, int argc, object *args) /* object self_73761, object r_73520 */
 {
 object r_73520 = args[0];
  
pair_type local_731357; 
return_direct_with_clo1(data,  ((closureN)self_73761)->elements[0], (((closure)  ((closureN)self_73761)->elements[0])->fn),  set_pair_as_expr(&local_731357, r_73520, boolean_f));; 
}

static void __lambda_3(void *data, object self_73762, int argc, object *args) /* object self_73762, object k_73553 */
 {
 object k_73553 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73762)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, ((closureN)self_73762)->elements[1]))) ){ 
    
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73762)->elements[1])))) ){ 
  
  
  
  Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73762)->elements[1])));  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73762)->elements[1]))))) ){ 
  
  
  
  
  Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73762)->elements[1]))));  
  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73762)->elements[1])))))) ){ 
    
  
  
  
  
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73762)->elements[1]))))))) ){ 
    complex_num_type local_73877; 
  
  
  
  
  
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73877, Cyc_car(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73762)->elements[1])))))))) ){ 
  
closureN_type c_73893;
object e_731209 [3];
c_73893.hdr.mark = gc_color_red;
 c_73893.hdr.grayed = 0;
c_73893.tag = closureN_tag;
 c_73893.fn = (function_type)__lambda_4;
c_73893.num_args = 1;
c_73893.num_elements = 3;
c_73893.elements = (object *)e_731209;
c_73893.elements[0] = k_73553;
c_73893.elements[1] = ((closureN)self_73762)->elements[0];
c_73893.elements[2] = ((closureN)self_73762)->elements[1];

return_closcall2(data,  ((closureN)self_73762)->elements[0],  &c_73893, quote__if);
} else { 
  return_direct_with_clo1(data,  k_73553, (((closure)  k_73553)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73553, (((closure)  k_73553)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73553, (((closure)  k_73553)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73553, (((closure)  k_73553)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73553, (((closure)  k_73553)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73553, (((closure)  k_73553)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_73553, (((closure)  k_73553)->fn),  boolean_f);}
;; 
}

static void __lambda_4(void *data, object self_73763, int argc, object *args) /* object self_73763, object r_73574 */
 {
 object r_73574 = args[0];
  
closureN_type c_73896;
object e_731208 [4];
c_73896.hdr.mark = gc_color_red;
 c_73896.hdr.grayed = 0;
c_73896.tag = closureN_tag;
 c_73896.fn = (function_type)__lambda_5;
c_73896.num_args = 1;
c_73896.num_elements = 4;
c_73896.elements = (object *)e_731208;
c_73896.elements[0] = ((closureN)self_73763)->elements[0];
c_73896.elements[1] = r_73574;
c_73896.elements[2] = ((closureN)self_73763)->elements[1];
c_73896.elements[3] = ((closureN)self_73763)->elements[2];

return_closcall2(data,  ((closureN)self_73763)->elements[1],  &c_73896, quote__123);; 
}

static void __lambda_5(void *data, object self_73764, int argc, object *args) /* object self_73764, object r_73612 */
 {
 object r_73612 = args[0];
  
closureN_type c_73899;
object e_731207 [5];
c_73899.hdr.mark = gc_color_red;
 c_73899.hdr.grayed = 0;
c_73899.tag = closureN_tag;
 c_73899.fn = (function_type)__lambda_6;
c_73899.num_args = 1;
c_73899.num_elements = 5;
c_73899.elements = (object *)e_731207;
c_73899.elements[0] = ((closureN)self_73764)->elements[0];
c_73899.elements[1] = ((closureN)self_73764)->elements[1];
c_73899.elements[2] = r_73612;
c_73899.elements[3] = ((closureN)self_73764)->elements[2];
c_73899.elements[4] = ((closureN)self_73764)->elements[3];

return_closcall2(data,  ((closureN)self_73764)->elements[2],  &c_73899, quote_length);; 
}

static void __lambda_6(void *data, object self_73765, int argc, object *args) /* object self_73765, object r_73620 */
 {
 object r_73620 = args[0];
  
closureN_type c_73902;
object e_731206 [6];
c_73902.hdr.mark = gc_color_red;
 c_73902.hdr.grayed = 0;
c_73902.tag = closureN_tag;
 c_73902.fn = (function_type)__lambda_7;
c_73902.num_args = 1;
c_73902.num_elements = 6;
c_73902.elements = (object *)e_731206;
c_73902.elements[0] = ((closureN)self_73765)->elements[0];
c_73902.elements[1] = ((closureN)self_73765)->elements[1];
c_73902.elements[2] = ((closureN)self_73765)->elements[2];
c_73902.elements[3] = r_73620;
c_73902.elements[4] = ((closureN)self_73765)->elements[3];
c_73902.elements[5] = ((closureN)self_73765)->elements[4];

return_closcall2(data,  ((closureN)self_73765)->elements[3],  &c_73902, quote_quote);; 
}

static void __lambda_7(void *data, object self_73766, int argc, object *args) /* object self_73766, object r_73626 */
 {
 object r_73626 = args[0];
  
closureN_type c_73904;
object e_731189 [7];
c_73904.hdr.mark = gc_color_red;
 c_73904.hdr.grayed = 0;
c_73904.tag = closureN_tag;
 c_73904.fn = (function_type)__lambda_8;
c_73904.num_args = 1;
c_73904.num_elements = 7;
c_73904.elements = (object *)e_731189;
c_73904.elements[0] = ((closureN)self_73766)->elements[0];
c_73904.elements[1] = ((closureN)self_73766)->elements[1];
c_73904.elements[2] = ((closureN)self_73766)->elements[2];
c_73904.elements[3] = ((closureN)self_73766)->elements[3];
c_73904.elements[4] = r_73626;
c_73904.elements[5] = ((closureN)self_73766)->elements[4];
c_73904.elements[6] = ((closureN)self_73766)->elements[5];














make_pair(c_731205,quote__93_93_93,NULL);c_731205.hdr.immutable = 1;

make_pair(c_731204,quote_params,&c_731205);c_731204.hdr.immutable = 1;

make_pair(c_731203,&c_731204,NULL);c_731203.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73904, Cyc_car(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73766)->elements[5])))))), NULL, &c_731203);; 
}

static void __lambda_8(void *data, object self_73767, int argc, object *args) /* object self_73767, object r_73627 */
 {
 object r_73627 = args[0];
  
closureN_type c_73906;
object e_731183 [6];
c_73906.hdr.mark = gc_color_red;
 c_73906.hdr.grayed = 0;
c_73906.tag = closureN_tag;
 c_73906.fn = (function_type)__lambda_9;
c_73906.num_args = 1;
c_73906.num_elements = 6;
c_73906.elements = (object *)e_731183;
c_73906.elements[0] = ((closureN)self_73767)->elements[0];
c_73906.elements[1] = ((closureN)self_73767)->elements[1];
c_73906.elements[2] = ((closureN)self_73767)->elements[2];
c_73906.elements[3] = ((closureN)self_73767)->elements[3];
c_73906.elements[4] = ((closureN)self_73767)->elements[5];
c_73906.elements[5] = ((closureN)self_73767)->elements[6];


make_pair(c_731188,quote__93_93_93,NULL);c_731188.hdr.immutable = 1;

make_pair(c_731187,quote_params,&c_731188);c_731187.hdr.immutable = 1;

make_pair(c_731186,&c_731187,NULL);c_731186.hdr.immutable = 1;

make_pair(c_731185,quote_quote,&c_731186);c_731185.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73906, ((closureN)self_73767)->elements[4], r_73627, &c_731185);; 
}

static void __lambda_9(void *data, object self_73768, int argc, object *args) /* object self_73768, object r_73623 */
 {
 object r_73623 = args[0];
  
closureN_type c_73908;
object e_731177 [6];
c_73908.hdr.mark = gc_color_red;
 c_73908.hdr.grayed = 0;
c_73908.tag = closureN_tag;
 c_73908.fn = (function_type)__lambda_10;
c_73908.num_args = 1;
c_73908.num_elements = 6;
c_73908.elements = (object *)e_731177;
c_73908.elements[0] = ((closureN)self_73768)->elements[0];
c_73908.elements[1] = ((closureN)self_73768)->elements[1];
c_73908.elements[2] = ((closureN)self_73768)->elements[2];
c_73908.elements[3] = ((closureN)self_73768)->elements[3];
c_73908.elements[4] = ((closureN)self_73768)->elements[4];
c_73908.elements[5] = ((closureN)self_73768)->elements[5];


make_pair(c_731182,quote__93_93_93,NULL);c_731182.hdr.immutable = 1;

make_pair(c_731181,quote_params,&c_731182);c_731181.hdr.immutable = 1;

make_pair(c_731180,&c_731181,NULL);c_731180.hdr.immutable = 1;

make_pair(c_731179,quote_quote,&c_731180);c_731179.hdr.immutable = 1;

make_pair(c_731178,&c_731179,NULL);c_731178.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73908, r_73623, NULL, &c_731178);; 
}

static void __lambda_10(void *data, object self_73769, int argc, object *args) /* object self_73769, object r_73621 */
 {
 object r_73621 = args[0];
  
closureN_type c_73910;
object e_731169 [5];
c_73910.hdr.mark = gc_color_red;
 c_73910.hdr.grayed = 0;
c_73910.tag = closureN_tag;
 c_73910.fn = (function_type)__lambda_11;
c_73910.num_args = 1;
c_73910.num_elements = 5;
c_73910.elements = (object *)e_731169;
c_73910.elements[0] = ((closureN)self_73769)->elements[0];
c_73910.elements[1] = ((closureN)self_73769)->elements[1];
c_73910.elements[2] = ((closureN)self_73769)->elements[2];
c_73910.elements[3] = ((closureN)self_73769)->elements[4];
c_73910.elements[4] = ((closureN)self_73769)->elements[5];


make_pair(c_731176,quote__93_93_93,NULL);c_731176.hdr.immutable = 1;

make_pair(c_731175,quote_params,&c_731176);c_731175.hdr.immutable = 1;

make_pair(c_731174,&c_731175,NULL);c_731174.hdr.immutable = 1;

make_pair(c_731173,quote_quote,&c_731174);c_731173.hdr.immutable = 1;

make_pair(c_731172,&c_731173,NULL);c_731172.hdr.immutable = 1;

make_pair(c_731171,quote_length,&c_731172);c_731171.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73910, ((closureN)self_73769)->elements[3], r_73621, &c_731171);; 
}

static void __lambda_11(void *data, object self_73770, int argc, object *args) /* object self_73770, object r_73617 */
 {
 object r_73617 = args[0];
  
closureN_type c_73912;
object e_731161 [5];
c_73912.hdr.mark = gc_color_red;
 c_73912.hdr.grayed = 0;
c_73912.tag = closureN_tag;
 c_73912.fn = (function_type)__lambda_12;
c_73912.num_args = 1;
c_73912.num_elements = 5;
c_73912.elements = (object *)e_731161;
c_73912.elements[0] = ((closureN)self_73770)->elements[0];
c_73912.elements[1] = ((closureN)self_73770)->elements[1];
c_73912.elements[2] = ((closureN)self_73770)->elements[2];
c_73912.elements[3] = ((closureN)self_73770)->elements[3];
c_73912.elements[4] = ((closureN)self_73770)->elements[4];


make_pair(c_731168,quote__93_93_93,NULL);c_731168.hdr.immutable = 1;

make_pair(c_731167,quote_params,&c_731168);c_731167.hdr.immutable = 1;

make_pair(c_731166,&c_731167,NULL);c_731166.hdr.immutable = 1;

make_pair(c_731165,quote_quote,&c_731166);c_731165.hdr.immutable = 1;

make_pair(c_731164,&c_731165,NULL);c_731164.hdr.immutable = 1;

make_pair(c_731163,quote_length,&c_731164);c_731163.hdr.immutable = 1;

make_pair(c_731162,&c_731163,NULL);c_731162.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73912, r_73617, NULL, &c_731162);; 
}

static void __lambda_12(void *data, object self_73771, int argc, object *args) /* object self_73771, object r_73615 */
 {
 object r_73615 = args[0];
  
closureN_type c_73914;
object e_731147 [5];
c_73914.hdr.mark = gc_color_red;
 c_73914.hdr.grayed = 0;
c_73914.tag = closureN_tag;
 c_73914.fn = (function_type)__lambda_13;
c_73914.num_args = 1;
c_73914.num_elements = 5;
c_73914.elements = (object *)e_731147;
c_73914.elements[0] = ((closureN)self_73771)->elements[0];
c_73914.elements[1] = ((closureN)self_73771)->elements[1];
c_73914.elements[2] = ((closureN)self_73771)->elements[2];
c_73914.elements[3] = ((closureN)self_73771)->elements[3];
c_73914.elements[4] = ((closureN)self_73771)->elements[4];






make_pair(c_731160,quote__93_93_93,NULL);c_731160.hdr.immutable = 1;

make_pair(c_731159,quote_params,&c_731160);c_731159.hdr.immutable = 1;

make_pair(c_731158,&c_731159,NULL);c_731158.hdr.immutable = 1;

make_pair(c_731157,quote_quote,&c_731158);c_731157.hdr.immutable = 1;

make_pair(c_731156,&c_731157,NULL);c_731156.hdr.immutable = 1;

make_pair(c_731155,quote_length,&c_731156);c_731155.hdr.immutable = 1;

make_pair(c_731154,&c_731155,NULL);c_731154.hdr.immutable = 1;

make_pair(c_731153,quote_len,&c_731154);c_731153.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73914, Cyc_car(data, Cyc_cdr(data, ((closureN)self_73771)->elements[4])), r_73615, &c_731153);; 
}

static void __lambda_13(void *data, object self_73772, int argc, object *args) /* object self_73772, object r_73613 */
 {
 object r_73613 = args[0];
  
closureN_type c_73916;
object e_731136 [4];
c_73916.hdr.mark = gc_color_red;
 c_73916.hdr.grayed = 0;
c_73916.tag = closureN_tag;
 c_73916.fn = (function_type)__lambda_14;
c_73916.num_args = 1;
c_73916.num_elements = 4;
c_73916.elements = (object *)e_731136;
c_73916.elements[0] = ((closureN)self_73772)->elements[0];
c_73916.elements[1] = ((closureN)self_73772)->elements[1];
c_73916.elements[2] = ((closureN)self_73772)->elements[3];
c_73916.elements[3] = ((closureN)self_73772)->elements[4];


make_pair(c_731146,quote__93_93_93,NULL);c_731146.hdr.immutable = 1;

make_pair(c_731145,quote_params,&c_731146);c_731145.hdr.immutable = 1;

make_pair(c_731144,&c_731145,NULL);c_731144.hdr.immutable = 1;

make_pair(c_731143,quote_quote,&c_731144);c_731143.hdr.immutable = 1;

make_pair(c_731142,&c_731143,NULL);c_731142.hdr.immutable = 1;

make_pair(c_731141,quote_length,&c_731142);c_731141.hdr.immutable = 1;

make_pair(c_731140,&c_731141,NULL);c_731140.hdr.immutable = 1;

make_pair(c_731139,quote_len,&c_731140);c_731139.hdr.immutable = 1;

make_pair(c_731138,quote__123,&c_731139);c_731138.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73916, ((closureN)self_73772)->elements[2], r_73613, &c_731138);; 
}

static void __lambda_14(void *data, object self_73773, int argc, object *args) /* object self_73773, object r_73577 */
 {
 object r_73577 = args[0];
  
closureN_type c_73919;
object e_731135 [5];
c_73919.hdr.mark = gc_color_red;
 c_73919.hdr.grayed = 0;
c_73919.tag = closureN_tag;
 c_73919.fn = (function_type)__lambda_15;
c_73919.num_args = 1;
c_73919.num_elements = 5;
c_73919.elements = (object *)e_731135;
c_73919.elements[0] = ((closureN)self_73773)->elements[0];
c_73919.elements[1] = ((closureN)self_73773)->elements[1];
c_73919.elements[2] = r_73577;
c_73919.elements[3] = ((closureN)self_73773)->elements[2];
c_73919.elements[4] = ((closureN)self_73773)->elements[3];

return_closcall2(data,  ((closureN)self_73773)->elements[2],  &c_73919, quote_apply);; 
}

static void __lambda_15(void *data, object self_73774, int argc, object *args) /* object self_73774, object r_73598 */
 {
 object r_73598 = args[0];
  
closureN_type c_73922;
object e_731134 [6];
c_73922.hdr.mark = gc_color_red;
 c_73922.hdr.grayed = 0;
c_73922.tag = closureN_tag;
 c_73922.fn = (function_type)__lambda_16;
c_73922.num_args = 1;
c_73922.num_elements = 6;
c_73922.elements = (object *)e_731134;
c_73922.elements[0] = ((closureN)self_73774)->elements[0];
c_73922.elements[1] = ((closureN)self_73774)->elements[1];
c_73922.elements[2] = ((closureN)self_73774)->elements[2];
c_73922.elements[3] = r_73598;
c_73922.elements[4] = ((closureN)self_73774)->elements[3];
c_73922.elements[5] = ((closureN)self_73774)->elements[4];

return_closcall2(data,  ((closureN)self_73774)->elements[3],  &c_73922, quote_lambda);; 
}

static void __lambda_16(void *data, object self_73775, int argc, object *args) /* object self_73775, object r_73606 */
 {
 object r_73606 = args[0];
  
closureN_type c_73924;
object e_731104 [7];
c_73924.hdr.mark = gc_color_red;
 c_73924.hdr.grayed = 0;
c_73924.tag = closureN_tag;
 c_73924.fn = (function_type)__lambda_17;
c_73924.num_args = 1;
c_73924.num_elements = 7;
c_73924.elements = (object *)e_731104;
c_73924.elements[0] = ((closureN)self_73775)->elements[0];
c_73924.elements[1] = ((closureN)self_73775)->elements[1];
c_73924.elements[2] = ((closureN)self_73775)->elements[2];
c_73924.elements[3] = ((closureN)self_73775)->elements[3];
c_73924.elements[4] = r_73606;
c_73924.elements[5] = ((closureN)self_73775)->elements[4];
c_73924.elements[6] = ((closureN)self_73775)->elements[5];


























make_pair(c_731133,quote__93_93_93,NULL);c_731133.hdr.immutable = 1;

make_pair(c_731132,quote_params,&c_731133);c_731132.hdr.immutable = 1;

make_pair(c_731131,&c_731132,quote_body);c_731131.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73924, Cyc_car(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73775)->elements[5])))))), Cyc_cdr(data, Cyc_car(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73775)->elements[5])))))), &c_731131);; 
}

static void __lambda_17(void *data, object self_73776, int argc, object *args) /* object self_73776, object r_73607 */
 {
 object r_73607 = args[0];
  
closureN_type c_73926;
object e_731098 [6];
c_73926.hdr.mark = gc_color_red;
 c_73926.hdr.grayed = 0;
c_73926.tag = closureN_tag;
 c_73926.fn = (function_type)__lambda_18;
c_73926.num_args = 1;
c_73926.num_elements = 6;
c_73926.elements = (object *)e_731098;
c_73926.elements[0] = ((closureN)self_73776)->elements[0];
c_73926.elements[1] = ((closureN)self_73776)->elements[1];
c_73926.elements[2] = ((closureN)self_73776)->elements[2];
c_73926.elements[3] = ((closureN)self_73776)->elements[3];
c_73926.elements[4] = ((closureN)self_73776)->elements[5];
c_73926.elements[5] = ((closureN)self_73776)->elements[6];


make_pair(c_731103,quote__93_93_93,NULL);c_731103.hdr.immutable = 1;

make_pair(c_731102,quote_params,&c_731103);c_731102.hdr.immutable = 1;

make_pair(c_731101,&c_731102,quote_body);c_731101.hdr.immutable = 1;

make_pair(c_731100,quote_lambda,&c_731101);c_731100.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73926, ((closureN)self_73776)->elements[4], r_73607, &c_731100);; 
}

static void __lambda_18(void *data, object self_73777, int argc, object *args) /* object self_73777, object r_73601 */
 {
 object r_73601 = args[0];
  
closureN_type c_73928;
object e_731093 [7];
c_73928.hdr.mark = gc_color_red;
 c_73928.hdr.grayed = 0;
c_73928.tag = closureN_tag;
 c_73928.fn = (function_type)__lambda_19;
c_73928.num_args = 1;
c_73928.num_elements = 7;
c_73928.elements = (object *)e_731093;
c_73928.elements[0] = ((closureN)self_73777)->elements[0];
c_73928.elements[1] = ((closureN)self_73777)->elements[1];
c_73928.elements[2] = ((closureN)self_73777)->elements[2];
c_73928.elements[3] = ((closureN)self_73777)->elements[3];
c_73928.elements[4] = r_73601;
c_73928.elements[5] = ((closureN)self_73777)->elements[4];
c_73928.elements[6] = ((closureN)self_73777)->elements[5];




make_pair(c_731097,quote_args,NULL);c_731097.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73928, Cyc_car(data, ((closureN)self_73777)->elements[5]), NULL, &c_731097);; 
}

static void __lambda_19(void *data, object self_73778, int argc, object *args) /* object self_73778, object r_73602 */
 {
 object r_73602 = args[0];
  
closureN_type c_73930;
object e_731085 [6];
c_73930.hdr.mark = gc_color_red;
 c_73930.hdr.grayed = 0;
c_73930.tag = closureN_tag;
 c_73930.fn = (function_type)__lambda_20;
c_73930.num_args = 1;
c_73930.num_elements = 6;
c_73930.elements = (object *)e_731085;
c_73930.elements[0] = ((closureN)self_73778)->elements[0];
c_73930.elements[1] = ((closureN)self_73778)->elements[1];
c_73930.elements[2] = ((closureN)self_73778)->elements[2];
c_73930.elements[3] = ((closureN)self_73778)->elements[3];
c_73930.elements[4] = ((closureN)self_73778)->elements[5];
c_73930.elements[5] = ((closureN)self_73778)->elements[6];


make_pair(c_731091,quote__93_93_93,NULL);c_731091.hdr.immutable = 1;

make_pair(c_731090,quote_params,&c_731091);c_731090.hdr.immutable = 1;

make_pair(c_731089,&c_731090,quote_body);c_731089.hdr.immutable = 1;

make_pair(c_731088,quote_lambda,&c_731089);c_731088.hdr.immutable = 1;

make_pair(c_731092,quote_args,NULL);c_731092.hdr.immutable = 1;

make_pair(c_731087,&c_731088,&c_731092);c_731087.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73930, ((closureN)self_73778)->elements[4], r_73602, &c_731087);; 
}

static void __lambda_20(void *data, object self_73779, int argc, object *args) /* object self_73779, object r_73599 */
 {
 object r_73599 = args[0];
  
closureN_type c_73932;
object e_731076 [5];
c_73932.hdr.mark = gc_color_red;
 c_73932.hdr.grayed = 0;
c_73932.tag = closureN_tag;
 c_73932.fn = (function_type)__lambda_21;
c_73932.num_args = 1;
c_73932.num_elements = 5;
c_73932.elements = (object *)e_731076;
c_73932.elements[0] = ((closureN)self_73779)->elements[0];
c_73932.elements[1] = ((closureN)self_73779)->elements[1];
c_73932.elements[2] = ((closureN)self_73779)->elements[2];
c_73932.elements[3] = ((closureN)self_73779)->elements[4];
c_73932.elements[4] = ((closureN)self_73779)->elements[5];


make_pair(c_731083,quote__93_93_93,NULL);c_731083.hdr.immutable = 1;

make_pair(c_731082,quote_params,&c_731083);c_731082.hdr.immutable = 1;

make_pair(c_731081,&c_731082,quote_body);c_731081.hdr.immutable = 1;

make_pair(c_731080,quote_lambda,&c_731081);c_731080.hdr.immutable = 1;

make_pair(c_731084,quote_args,NULL);c_731084.hdr.immutable = 1;

make_pair(c_731079,&c_731080,&c_731084);c_731079.hdr.immutable = 1;

make_pair(c_731078,quote_apply,&c_731079);c_731078.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73932, ((closureN)self_73779)->elements[3], r_73599, &c_731078);; 
}

static void __lambda_21(void *data, object self_73780, int argc, object *args) /* object self_73780, object r_73580 */
 {
 object r_73580 = args[0];
  
closureN_type c_73935;
object e_731075 [5];
c_73935.hdr.mark = gc_color_red;
 c_73935.hdr.grayed = 0;
c_73935.tag = closureN_tag;
 c_73935.fn = (function_type)__lambda_22;
c_73935.num_args = 1;
c_73935.num_elements = 5;
c_73935.elements = (object *)e_731075;
c_73935.elements[0] = ((closureN)self_73780)->elements[0];
c_73935.elements[1] = ((closureN)self_73780)->elements[1];
c_73935.elements[2] = ((closureN)self_73780)->elements[2];
c_73935.elements[3] = r_73580;
c_73935.elements[4] = ((closureN)self_73780)->elements[4];

return_closcall2(data,  ((closureN)self_73780)->elements[3],  &c_73935, quote__75case);; 
}

static void __lambda_22(void *data, object self_73781, int argc, object *args) /* object self_73781, object r_73586 */
 {
 object r_73586 = args[0];
  
closureN_type c_73937;
object e_731062 [6];
c_73937.hdr.mark = gc_color_red;
 c_73937.hdr.grayed = 0;
c_73937.tag = closureN_tag;
 c_73937.fn = (function_type)__lambda_23;
c_73937.num_args = 1;
c_73937.num_elements = 6;
c_73937.elements = (object *)e_731062;
c_73937.elements[0] = ((closureN)self_73781)->elements[0];
c_73937.elements[1] = ((closureN)self_73781)->elements[1];
c_73937.elements[2] = ((closureN)self_73781)->elements[2];
c_73937.elements[3] = ((closureN)self_73781)->elements[3];
c_73937.elements[4] = r_73586;
c_73937.elements[5] = ((closureN)self_73781)->elements[4];












make_pair(c_731074,NULL,quote_rest);c_731074.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73937, NULL, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, Cyc_cdr(data, ((closureN)self_73781)->elements[4]))))), &c_731074);; 
}

static void __lambda_23(void *data, object self_73782, int argc, object *args) /* object self_73782, object r_73593 */
 {
 object r_73593 = args[0];
  
closureN_type c_73939;
object e_731059 [6];
c_73939.hdr.mark = gc_color_red;
 c_73939.hdr.grayed = 0;
c_73939.tag = closureN_tag;
 c_73939.fn = (function_type)__lambda_24;
c_73939.num_args = 1;
c_73939.num_elements = 6;
c_73939.elements = (object *)e_731059;
c_73939.elements[0] = ((closureN)self_73782)->elements[0];
c_73939.elements[1] = ((closureN)self_73782)->elements[1];
c_73939.elements[2] = ((closureN)self_73782)->elements[2];
c_73939.elements[3] = ((closureN)self_73782)->elements[3];
c_73939.elements[4] = ((closureN)self_73782)->elements[4];
c_73939.elements[5] = ((closureN)self_73782)->elements[5];


make_pair(c_731061,NULL,quote_rest);c_731061.hdr.immutable = 1;

make_pair(c_731060,obj_int2obj(0),&c_731061);c_731060.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73939, obj_int2obj(0), r_73593, &c_731060);; 
}

static void __lambda_24(void *data, object self_73783, int argc, object *args) /* object self_73783, object r_73591 */
 {
 object r_73591 = args[0];
  
closureN_type c_73941;
object e_731050 [6];
c_73941.hdr.mark = gc_color_red;
 c_73941.hdr.grayed = 0;
c_73941.tag = closureN_tag;
 c_73941.fn = (function_type)__lambda_25;
c_73941.num_args = 1;
c_73941.num_elements = 6;
c_73941.elements = (object *)e_731050;
c_73941.elements[0] = ((closureN)self_73783)->elements[0];
c_73941.elements[1] = ((closureN)self_73783)->elements[1];
c_73941.elements[2] = ((closureN)self_73783)->elements[2];
c_73941.elements[3] = ((closureN)self_73783)->elements[3];
c_73941.elements[4] = ((closureN)self_73783)->elements[4];
c_73941.elements[5] = ((closureN)self_73783)->elements[5];






make_pair(c_731058,NULL,quote_rest);c_731058.hdr.immutable = 1;

make_pair(c_731057,obj_int2obj(0),&c_731058);c_731057.hdr.immutable = 1;

make_pair(c_731056,quote_len,&c_731057);c_731056.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73941, Cyc_car(data, Cyc_cdr(data, ((closureN)self_73783)->elements[5])), r_73591, &c_731056);; 
}

static void __lambda_25(void *data, object self_73784, int argc, object *args) /* object self_73784, object r_73589 */
 {
 object r_73589 = args[0];
  
closureN_type c_73943;
object e_731042 [5];
c_73943.hdr.mark = gc_color_red;
 c_73943.hdr.grayed = 0;
c_73943.tag = closureN_tag;
 c_73943.fn = (function_type)__lambda_26;
c_73943.num_args = 1;
c_73943.num_elements = 5;
c_73943.elements = (object *)e_731042;
c_73943.elements[0] = ((closureN)self_73784)->elements[0];
c_73943.elements[1] = ((closureN)self_73784)->elements[1];
c_73943.elements[2] = ((closureN)self_73784)->elements[2];
c_73943.elements[3] = ((closureN)self_73784)->elements[3];
c_73943.elements[4] = ((closureN)self_73784)->elements[4];




make_pair(c_731049,NULL,quote_rest);c_731049.hdr.immutable = 1;

make_pair(c_731048,obj_int2obj(0),&c_731049);c_731048.hdr.immutable = 1;

make_pair(c_731047,quote_len,&c_731048);c_731047.hdr.immutable = 1;

make_pair(c_731046,quote_args,&c_731047);c_731046.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73943, Cyc_car(data, ((closureN)self_73784)->elements[5]), r_73589, &c_731046);; 
}

static void __lambda_26(void *data, object self_73785, int argc, object *args) /* object self_73785, object r_73587 */
 {
 object r_73587 = args[0];
  
closureN_type c_73945;
object e_731035 [4];
c_73945.hdr.mark = gc_color_red;
 c_73945.hdr.grayed = 0;
c_73945.tag = closureN_tag;
 c_73945.fn = (function_type)__lambda_27;
c_73945.num_args = 1;
c_73945.num_elements = 4;
c_73945.elements = (object *)e_731035;
c_73945.elements[0] = ((closureN)self_73785)->elements[0];
c_73945.elements[1] = ((closureN)self_73785)->elements[1];
c_73945.elements[2] = ((closureN)self_73785)->elements[2];
c_73945.elements[3] = ((closureN)self_73785)->elements[3];


make_pair(c_731041,NULL,quote_rest);c_731041.hdr.immutable = 1;

make_pair(c_731040,obj_int2obj(0),&c_731041);c_731040.hdr.immutable = 1;

make_pair(c_731039,quote_len,&c_731040);c_731039.hdr.immutable = 1;

make_pair(c_731038,quote_args,&c_731039);c_731038.hdr.immutable = 1;

make_pair(c_731037,quote__75case,&c_731038);c_731037.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73945, ((closureN)self_73785)->elements[4], r_73587, &c_731037);; 
}

static void __lambda_27(void *data, object self_73786, int argc, object *args) /* object self_73786, object r_73583 */
 {
 object r_73583 = args[0];
  
closureN_type c_73947;
object e_731028 [4];
c_73947.hdr.mark = gc_color_red;
 c_73947.hdr.grayed = 0;
c_73947.tag = closureN_tag;
 c_73947.fn = (function_type)__lambda_28;
c_73947.num_args = 1;
c_73947.num_elements = 4;
c_73947.elements = (object *)e_731028;
c_73947.elements[0] = ((closureN)self_73786)->elements[0];
c_73947.elements[1] = ((closureN)self_73786)->elements[1];
c_73947.elements[2] = ((closureN)self_73786)->elements[2];
c_73947.elements[3] = ((closureN)self_73786)->elements[3];


make_pair(c_731034,NULL,quote_rest);c_731034.hdr.immutable = 1;

make_pair(c_731033,obj_int2obj(0),&c_731034);c_731033.hdr.immutable = 1;

make_pair(c_731032,quote_len,&c_731033);c_731032.hdr.immutable = 1;

make_pair(c_731031,quote_args,&c_731032);c_731031.hdr.immutable = 1;

make_pair(c_731030,quote__75case,&c_731031);c_731030.hdr.immutable = 1;

make_pair(c_731029,&c_731030,NULL);c_731029.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73947, r_73583, NULL, &c_731029);; 
}

static void __lambda_28(void *data, object self_73787, int argc, object *args) /* object self_73787, object r_73581 */
 {
 object r_73581 = args[0];
  
closureN_type c_73949;
object e_731012 [3];
c_73949.hdr.mark = gc_color_red;
 c_73949.hdr.grayed = 0;
c_73949.tag = closureN_tag;
 c_73949.fn = (function_type)__lambda_29;
c_73949.num_args = 1;
c_73949.num_elements = 3;
c_73949.elements = (object *)e_731012;
c_73949.elements[0] = ((closureN)self_73787)->elements[0];
c_73949.elements[1] = ((closureN)self_73787)->elements[1];
c_73949.elements[2] = ((closureN)self_73787)->elements[2];


make_pair(c_731020,quote__93_93_93,NULL);c_731020.hdr.immutable = 1;

make_pair(c_731019,quote_params,&c_731020);c_731019.hdr.immutable = 1;

make_pair(c_731018,&c_731019,quote_body);c_731018.hdr.immutable = 1;

make_pair(c_731017,quote_lambda,&c_731018);c_731017.hdr.immutable = 1;

make_pair(c_731021,quote_args,NULL);c_731021.hdr.immutable = 1;

make_pair(c_731016,&c_731017,&c_731021);c_731016.hdr.immutable = 1;

make_pair(c_731015,quote_apply,&c_731016);c_731015.hdr.immutable = 1;

make_pair(c_731027,NULL,quote_rest);c_731027.hdr.immutable = 1;

make_pair(c_731026,obj_int2obj(0),&c_731027);c_731026.hdr.immutable = 1;

make_pair(c_731025,quote_len,&c_731026);c_731025.hdr.immutable = 1;

make_pair(c_731024,quote_args,&c_731025);c_731024.hdr.immutable = 1;

make_pair(c_731023,quote__75case,&c_731024);c_731023.hdr.immutable = 1;

make_pair(c_731022,&c_731023,NULL);c_731022.hdr.immutable = 1;

make_pair(c_731014,&c_731015,&c_731022);c_731014.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73949, ((closureN)self_73787)->elements[3], r_73581, &c_731014);; 
}

static void __lambda_29(void *data, object self_73788, int argc, object *args) /* object self_73788, object r_73578 */
 {
 object r_73578 = args[0];
  
closureN_type c_73951;
object e_73986 [2];
c_73951.hdr.mark = gc_color_red;
 c_73951.hdr.grayed = 0;
c_73951.tag = closureN_tag;
 c_73951.fn = (function_type)__lambda_30;
c_73951.num_args = 1;
c_73951.num_elements = 2;
c_73951.elements = (object *)e_73986;
c_73951.elements[0] = ((closureN)self_73788)->elements[0];
c_73951.elements[1] = ((closureN)self_73788)->elements[1];


make_pair(c_73997,quote__93_93_93,NULL);c_73997.hdr.immutable = 1;

make_pair(c_73996,quote_params,&c_73997);c_73996.hdr.immutable = 1;

make_pair(c_73995,&c_73996,NULL);c_73995.hdr.immutable = 1;

make_pair(c_73994,quote_quote,&c_73995);c_73994.hdr.immutable = 1;

make_pair(c_73993,&c_73994,NULL);c_73993.hdr.immutable = 1;

make_pair(c_73992,quote_length,&c_73993);c_73992.hdr.immutable = 1;

make_pair(c_73991,&c_73992,NULL);c_73991.hdr.immutable = 1;

make_pair(c_73990,quote_len,&c_73991);c_73990.hdr.immutable = 1;

make_pair(c_73989,quote__123,&c_73990);c_73989.hdr.immutable = 1;

make_pair(c_731004,quote__93_93_93,NULL);c_731004.hdr.immutable = 1;

make_pair(c_731003,quote_params,&c_731004);c_731003.hdr.immutable = 1;

make_pair(c_731002,&c_731003,quote_body);c_731002.hdr.immutable = 1;

make_pair(c_731001,quote_lambda,&c_731002);c_731001.hdr.immutable = 1;

make_pair(c_731005,quote_args,NULL);c_731005.hdr.immutable = 1;

make_pair(c_731000,&c_731001,&c_731005);c_731000.hdr.immutable = 1;

make_pair(c_73999,quote_apply,&c_731000);c_73999.hdr.immutable = 1;

make_pair(c_731011,NULL,quote_rest);c_731011.hdr.immutable = 1;

make_pair(c_731010,obj_int2obj(0),&c_731011);c_731010.hdr.immutable = 1;

make_pair(c_731009,quote_len,&c_731010);c_731009.hdr.immutable = 1;

make_pair(c_731008,quote_args,&c_731009);c_731008.hdr.immutable = 1;

make_pair(c_731007,quote__75case,&c_731008);c_731007.hdr.immutable = 1;

make_pair(c_731006,&c_731007,NULL);c_731006.hdr.immutable = 1;

make_pair(c_73998,&c_73999,&c_731006);c_73998.hdr.immutable = 1;

make_pair(c_73988,&c_73989,&c_73998);c_73988.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73951, ((closureN)self_73788)->elements[2], r_73578, &c_73988);; 
}

static void __lambda_30(void *data, object self_73789, int argc, object *args) /* object self_73789, object r_73575 */
 {
 object r_73575 = args[0];
  
closureN_type c_73953;
object e_73959 [1];
c_73953.hdr.mark = gc_color_red;
 c_73953.hdr.grayed = 0;
c_73953.tag = closureN_tag;
 c_73953.fn = (function_type)__lambda_31;
c_73953.num_args = 1;
c_73953.num_elements = 1;
c_73953.elements = (object *)e_73959;
c_73953.elements[0] = ((closureN)self_73789)->elements[0];


make_pair(c_73971,quote__93_93_93,NULL);c_73971.hdr.immutable = 1;

make_pair(c_73970,quote_params,&c_73971);c_73970.hdr.immutable = 1;

make_pair(c_73969,&c_73970,NULL);c_73969.hdr.immutable = 1;

make_pair(c_73968,quote_quote,&c_73969);c_73968.hdr.immutable = 1;

make_pair(c_73967,&c_73968,NULL);c_73967.hdr.immutable = 1;

make_pair(c_73966,quote_length,&c_73967);c_73966.hdr.immutable = 1;

make_pair(c_73965,&c_73966,NULL);c_73965.hdr.immutable = 1;

make_pair(c_73964,quote_len,&c_73965);c_73964.hdr.immutable = 1;

make_pair(c_73963,quote__123,&c_73964);c_73963.hdr.immutable = 1;

make_pair(c_73978,quote__93_93_93,NULL);c_73978.hdr.immutable = 1;

make_pair(c_73977,quote_params,&c_73978);c_73977.hdr.immutable = 1;

make_pair(c_73976,&c_73977,quote_body);c_73976.hdr.immutable = 1;

make_pair(c_73975,quote_lambda,&c_73976);c_73975.hdr.immutable = 1;

make_pair(c_73979,quote_args,NULL);c_73979.hdr.immutable = 1;

make_pair(c_73974,&c_73975,&c_73979);c_73974.hdr.immutable = 1;

make_pair(c_73973,quote_apply,&c_73974);c_73973.hdr.immutable = 1;

make_pair(c_73985,NULL,quote_rest);c_73985.hdr.immutable = 1;

make_pair(c_73984,obj_int2obj(0),&c_73985);c_73984.hdr.immutable = 1;

make_pair(c_73983,quote_len,&c_73984);c_73983.hdr.immutable = 1;

make_pair(c_73982,quote_args,&c_73983);c_73982.hdr.immutable = 1;

make_pair(c_73981,quote__75case,&c_73982);c_73981.hdr.immutable = 1;

make_pair(c_73980,&c_73981,NULL);c_73980.hdr.immutable = 1;

make_pair(c_73972,&c_73973,&c_73980);c_73972.hdr.immutable = 1;

make_pair(c_73962,&c_73963,&c_73972);c_73962.hdr.immutable = 1;

make_pair(c_73961,quote__if,&c_73962);c_73961.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73953, ((closureN)self_73789)->elements[1], r_73575, &c_73961);; 
}

static void __lambda_31(void *data, object self_73790, int argc, object *args) /* object self_73790, object r_73573 */
 {
 object r_73573 = args[0];
  
pair_type local_73958; 
return_direct_with_clo1(data,  ((closureN)self_73790)->elements[0], (((closure)  ((closureN)self_73790)->elements[0])->fn),  set_pair_as_expr(&local_73958, r_73573, boolean_f));; 
}

void c_schemecase_91lambda_inlinable_lambdas(void *data, object clo, int argc, object *args){ 
object buf[1]; object cont = args[0];
buf[0] = NULL; (((closure)cont)->fn)(data, cont, 1, buf);
 } 
void c_schemecase_91lambda_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_clauses = find_or_add_symbol("clauses");
  quote_let = find_or_add_symbol("let");
  quote_error = find_or_add_symbol("error");
  quote__125_123 = find_or_add_symbol(">=");
  quote_y = find_or_add_symbol("y");
  quote_x = find_or_add_symbol("x");
  quote_p = find_or_add_symbol("p");
  quote_n = find_or_add_symbol("n");
  quote__87 = find_or_add_symbol("+");
  quote_rest = find_or_add_symbol("rest");
  quote__75case = find_or_add_symbol("%case");
  quote_args = find_or_add_symbol("args");
  quote_body = find_or_add_symbol("body");
  quote_lambda = find_or_add_symbol("lambda");
  quote_apply = find_or_add_symbol("apply");
  quote__93_93_93 = find_or_add_symbol("...");
  quote_params = find_or_add_symbol("params");
  quote_quote = find_or_add_symbol("quote");
  quote_length = find_or_add_symbol("length");
  quote_len = find_or_add_symbol("len");
  quote__123 = find_or_add_symbol("=");
  quote__if = find_or_add_symbol("if");

  add_global("__glo_lib_91init_117schemecase_19191lambda_scheme_case_91lambda", (object *) &__glo_lib_91init_117schemecase_19191lambda_scheme_case_91lambda);
  add_global("__glo_case_91lambda_scheme_case_91lambda", (object *) &__glo_case_91lambda_scheme_case_91lambda);
  add_global("__glo__75case_scheme_case_91lambda", (object *) &__glo__75case_scheme_case_91lambda);
  mclosure0(c_732239, (function_type)__lambda_121);c_732239.num_args = 0; 
  __glo_lib_91init_117schemecase_19191lambda_scheme_case_91lambda = &c_732239; 
  mmacro(c_732005, (function_type)__lambda_91);c_732005.num_args = 3; 
  __glo_case_91lambda_scheme_case_91lambda = &c_732005; 
  mmacro(c_73820, (function_type)__lambda_1);c_73820.num_args = 3; 
  __glo__75case_scheme_case_91lambda = &c_73820; 

  mclosure0(clo_732242, c_schemecase_91lambda_inlinable_lambdas); make_pair(pair_732241, find_or_add_symbol("c_schemecase_91lambda_inlinable_lambdas"), &clo_732242);
  make_cvar(cvar_732243, (object *)&__glo_lib_91init_117schemecase_19191lambda_scheme_case_91lambda);make_pair(pair_732244, find_or_add_symbol("lib-init:schemecase_91lambda"), &cvar_732243);
  make_cvar(cvar_732245, (object *)&__glo_case_91lambda_scheme_case_91lambda);make_pair(pair_732246, find_or_add_symbol("case-lambda"), &cvar_732245);
  make_cvar(cvar_732247, (object *)&__glo__75case_scheme_case_91lambda);make_pair(pair_732248, find_or_add_symbol("%case"), &cvar_732247);
make_pair(c_732252, &pair_732241,Cyc_global_variables);
make_pair(c_732251, &pair_732244, &c_732252);
make_pair(c_732250, &pair_732246, &c_732251);
make_pair(c_732249, &pair_732248, &c_732250);
Cyc_global_variables = &c_732249;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117schemecase_19191lambda_scheme_case_91lambda)->fn)(data, buf[0], 1, buf);
}
void c_schemecase_91lambda_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("scheme_case_91lambda");
  c_schemecase_91lambda_entry_pt_first_lambda(data, cont, argc, value);
}
