/**
 ** 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_117schemecycloneutil_scheme_cyclone_util = NULL;
object __glo_Cyc_91set_91immutable_67_scheme_cyclone_util = NULL;
object __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util = NULL;
object __glo_string_91split_scheme_cyclone_util = NULL;
object __glo_string_91join_scheme_cyclone_util = NULL;
object __glo__85c_91keywords_85_scheme_cyclone_util = NULL;
object __glo_mangle_91global_scheme_cyclone_util = NULL;
object __glo_mangle_scheme_cyclone_util = NULL;
object __glo_Cyc_91er_91compare_127_scheme_cyclone_util = NULL;
object __glo_Cyc_91er_91rename_scheme_cyclone_util = NULL;
object __glo_identifier_123_127_scheme_cyclone_util = NULL;
object __glo_identifier_91_125symbol_scheme_cyclone_util = NULL;
object __glo_identifier_127_scheme_cyclone_util = NULL;
object __glo_strip_91syntactic_91closures_scheme_cyclone_util = NULL;
object __glo_make_91syntactic_91closure_scheme_cyclone_util = NULL;
object __glo_make_91sc_scheme_cyclone_util = NULL;
object __glo_sc_91expr_scheme_cyclone_util = NULL;
object __glo_sc_91free_91names_scheme_cyclone_util = NULL;
object __glo_sc_91env_scheme_cyclone_util = NULL;
object __glo_sc_127_scheme_cyclone_util = NULL;
object __glo__121syn_91clo_125_scheme_cyclone_util = NULL;
object __glo_env_117define_91variable_67_scheme_cyclone_util = NULL;
object __glo_env_117set_91variable_91value_67_scheme_cyclone_util = NULL;
object __glo_env_117lookup_scheme_cyclone_util = NULL;
object __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util = NULL;
object __glo_env_117lookup_91variable_91value_scheme_cyclone_util = NULL;
object __glo_env_117extend_91environment_scheme_cyclone_util = NULL;
object __glo_env_117all_91values_scheme_cyclone_util = NULL;
object __glo_env_117all_91variables_scheme_cyclone_util = NULL;
object __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util = NULL;
object __glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_env_117frame_91values_scheme_cyclone_util = NULL;
object __glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_env_117frame_91variables_scheme_cyclone_util = NULL;
object __glo_env_117make_91frame_scheme_cyclone_util = NULL;
object __glo_env_117the_91empty_91environment_scheme_cyclone_util = NULL;
object __glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_env_117first_91frame_scheme_cyclone_util = NULL;
object __glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_env_117enclosing_91environment_scheme_cyclone_util = NULL;
object __glo_gensym_scheme_cyclone_util = NULL;
object __glo_gensym_91count_scheme_cyclone_util = NULL;
object __glo_list_91prefix_127_scheme_cyclone_util = NULL;
object __glo_reverse_91append_scheme_cyclone_util = NULL;
object __glo_string_91replace_91all_scheme_cyclone_util = NULL;
object __glo_list_91index2_scheme_cyclone_util = NULL;
object __glo_list_91insert_91at_67_scheme_cyclone_util = NULL;
object __glo_flatten_scheme_cyclone_util = NULL;
object __glo_delete_91duplicates_scheme_cyclone_util = NULL;
object __glo_delete_scheme_cyclone_util = NULL;
object __glo_filter_scheme_cyclone_util = NULL;
object __glo_integer_91_125char_91list_scheme_cyclone_util = NULL;
object __glo_char_91_125natural_scheme_cyclone_util = NULL;
object __glo_drop_scheme_cyclone_util = NULL;
object __glo_take_scheme_cyclone_util = NULL;
object __glo_length_95obj_scheme_cyclone_util = NULL;
object __glo_pack_91lambda_91arguments_scheme_cyclone_util = NULL;
object __glo_formals_91_125list_scheme_cyclone_util = NULL;
object __glo_lambda_91formals_91_125list_scheme_cyclone_util = NULL;
object __glo_lambda_91formals_91type_scheme_cyclone_util = NULL;
object __glo_lambda_91varargs_127_scheme_cyclone_util = NULL;
object __glo_lambda_91varargs_91var_scheme_cyclone_util = NULL;
object __glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_lambda_91_125exp_scheme_cyclone_util = NULL;
object __glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_lambda_91_125formals_scheme_cyclone_util = NULL;
object __glo_pair_91_125list_scheme_cyclone_util = NULL;
object __glo_define_91c_91_125inline_91var_scheme_cyclone_util = NULL;
object __glo_define_91c_91inline_127_scheme_cyclone_util = NULL;
object __glo_define_91c_127_scheme_cyclone_util = NULL;
object __glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_define_91_125exp_scheme_cyclone_util = NULL;
object __glo_define_91_125var_scheme_cyclone_util = NULL;
object __glo_define_91_125lambda_scheme_cyclone_util = NULL;
object __glo_define_91lambda_127_scheme_cyclone_util = NULL;
object __glo_define_127_scheme_cyclone_util = NULL;
object __glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_set_67_91_125exp_scheme_cyclone_util = NULL;
object __glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_set_67_91_125var_scheme_cyclone_util = NULL;
object __glo_set_67_127_scheme_cyclone_util = NULL;
object __glo_quote_127_scheme_cyclone_util = NULL;
object __glo_ref_127_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_ref_127_scheme_cyclone_util = NULL;
object __glo_const_127_scheme_cyclone_util = NULL;
object __glo_app_127_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_app_127_scheme_cyclone_util = NULL;
object __glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_if_91_125else_scheme_cyclone_util = NULL;
object __glo_if_91else_127_scheme_cyclone_util = NULL;
object __glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_if_91_125then_scheme_cyclone_util = NULL;
object __glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_if_91_125condition_scheme_cyclone_util = NULL;
object __glo_lambda_127_scheme_cyclone_util = NULL;
object __glo_begin_127_scheme_cyclone_util = NULL;
object __glo_letrec_91syntax_127_scheme_cyclone_util = NULL;
object __glo_let_91syntax_127_scheme_cyclone_util = NULL;
object __glo_define_91syntax_127_scheme_cyclone_util = NULL;
object __glo_if_91syntax_127_scheme_cyclone_util = NULL;
object __glo_if_127_scheme_cyclone_util = NULL;
object __glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util = NULL;
object __glo_tagged_91list_127_scheme_cyclone_util = NULL;
object __glo_current_91expand_91filepath_scheme_cyclone_util = 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_char_91alphabetic_127_scheme__char;
extern object __glo_char_91downcase_scheme__char;
extern object __glo_char_91foldcase_scheme__char;
extern object __glo_char_91lower_91case_127_scheme__char;
extern object __glo_char_91numeric_127_scheme__char;
extern object __glo_char_91upcase_scheme__char;
extern object __glo_char_91upper_91case_127_scheme__char;
extern object __glo_char_91whitespace_127_scheme__char;
extern object __glo_char_91ci_121_123_127_scheme__char;
extern object __glo_char_91ci_121_127_scheme__char;
extern object __glo_char_91ci_123_127_scheme__char;
extern object __glo_char_91ci_125_123_127_scheme__char;
extern object __glo_char_91ci_125_127_scheme__char;
extern object __glo_digit_91value_scheme__char;
extern object __glo_string_91upcase_scheme__char;
extern object __glo_string_91downcase_scheme__char;
extern object __glo_string_91foldcase_scheme__char;
extern object __glo_string_91ci_121_123_127_scheme__char;
extern object __glo_string_91ci_121_127_scheme__char;
extern object __glo_string_91ci_123_127_scheme__char;
extern object __glo_string_91ci_125_123_127_scheme__char;
extern object __glo_string_91ci_125_127_scheme__char;
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(current_91expand_91filepath);
defsymbol(env_117the_91empty_91environment);
defsymbol(sc_127);
defsymbol(env);
defsymbol(sc_91env);
defsymbol(free_91names);
defsymbol(sc_91free_91names);
defsymbol(expr);
defsymbol(sc_91expr);
defsymbol(_while);
defsymbol(_volatile);
defsymbol(_void);
defsymbol(_unsigned);
defsymbol(_union);
defsymbol(_typedef);
defsymbol(_switch);
defsymbol(_struct);
defsymbol(_static);
defsymbol(_sizeof);
defsymbol(_signed);
defsymbol(_short);
defsymbol(_return);
defsymbol(_restrict);
defsymbol(_register);
defsymbol(_long);
defsymbol(_int);
defsymbol(_inline);
defsymbol(_191Imaginary);
defsymbol(_goto);
defsymbol(_for);
defsymbol(_float);
defsymbol(_extern);
defsymbol(_enum);
defsymbol(_else);
defsymbol(_double);
defsymbol(_do);
defsymbol(_default);
defsymbol(_continue);
defsymbol(_const);
defsymbol(_191Complex);
defsymbol(_char);
defsymbol(_case);
defsymbol(_break);
defsymbol(_191Bool);
defsymbol(_auto);
defsymbol(_85c_91keywords_85);
defsymbol(macro);
defsymbol(not_91defined);
defsymbol(_121syn_91clo_125);
defsymbol(gensym_91count);
defsymbol(lambda_91formals_91type_117);
defsymbol(in);
defsymbol(_list);
defsymbol(formals);
defsymbol(Unexpected);
defsymbol(args_117fixed);
defsymbol(args_117fixed_91with_91varargs);
defsymbol(args_117varargs);
defsymbol(define_91c);
defsymbol(define);
defsymbol(set_67);
defsymbol(quote);
defsymbol(lambda);
defsymbol(begin);
defsymbol(letrec_91syntax);
defsymbol(let_91syntax);
defsymbol(define_91syntax);
defsymbol(_if);
static void __lambda_292(void *data, object clo, int argc, object *args) ;/*closure _,object k_731310*/
static void __lambda_293(void *data, object clo, int argc, object *args) ;/*object self_731608, object r_731341*/
static void __lambda_294(void *data, object clo, int argc, object *args) ;/*object self_731609, object r_731312*/
static void __lambda_295(void *data, object clo, int argc, object *args) ;/*object self_731610, object r_731313*/
static void __lambda_296(void *data, object clo, int argc, object *args) ;/*object self_731611, object r_731337*/
static void __lambda_297(void *data, object clo, int argc, object *args) ;/*object self_731612, object r_731314*/
static void __lambda_298(void *data, object clo, int argc, object *args) ;/*object self_731613, object r_731335*/
static void __lambda_299(void *data, object clo, int argc, object *args) ;/*object self_731614, object r_731315*/
static void __lambda_300(void *data, object clo, int argc, object *args) ;/*object self_731615, object r_731333*/
static void __lambda_301(void *data, object clo, int argc, object *args) ;/*object self_731616, object r_731331*/
static void __lambda_302(void *data, object clo, int argc, object *args) ;/*object self_731617, object r_731316*/
static void __lambda_303(void *data, object clo, int argc, object *args) ;/*object self_731618, object r_731329*/
static void __lambda_304(void *data, object clo, int argc, object *args) ;/*object self_731619, object r_731327*/
static void __lambda_305(void *data, object clo, int argc, object *args) ;/*object self_731620, object r_731317*/
static void __lambda_306(void *data, object clo, int argc, object *args) ;/*object self_731621, object r_731325*/
static void __lambda_307(void *data, object clo, int argc, object *args) ;/*object self_731622, object r_731323*/
static void __lambda_308(void *data, object clo, int argc, object *args) ;/*object self_731623, object r_731318*/
static void __lambda_286(void *data, object clo, int argc, object *args) ;/*closure _,object k_731299, object obj_73413_73665, object val_73414_73666*/
static void __lambda_287(void *data, object clo, int argc, object *args) ;/*object self_731603, object r_731300*/
static void __lambda_291(void *data, object clo, int argc, object *args) ;/*object self_731606, object k_731307, object o_73421_73667*/
static void __lambda_290(void *data, object clo, int argc, object *args) ;/*object self_731607, object r_731306*/
static void __lambda_288(void *data, object clo, int argc, object *args) ;/*object self_731604, object r_731302*/
static void __lambda_289(void *data, object clo, int argc, object *args) ;/*object self_731605, object r_731303*/
static void __lambda_342(void *data, object clo, int argc, object *args) ;/*(void *data, int argc, closure _, object k, object obj, object val)*/
static void __lambda_273(void *data, object clo, int argc, object *args) ;/*closure _,object k_731276, object str_73398_73651, object delim_73399_73652*/
static void __lambda_283(void *data, object clo, int argc, object *args) ;/*object self_731590, object k_731294, object current_73411_73663, object output_73412_73664*/
static void __lambda_284(void *data, object clo, int argc, object *args) ;/*object self_731591, object r_731296*/
static void __lambda_285(void *data, object clo, int argc, object *args) ;/*object self_731592, object r_731295*/
static void __lambda_274(void *data, object clo, int argc, object *args) ;/*object self_731593, object add_73400_73653*/
static void __lambda_275(void *data, object clo, int argc, object *args) ;/*object self_731594, object r_731278*/
static void __lambda_276(void *data, object clo, int argc, object *args) ;/*object self_731595, object input_73402_73654, object output_73403_73655, object current_73404_73656*/
static void __lambda_277(void *data, object clo, int argc, object *args) ;/*object self_731596, object loop_73405_73657*/
static void __lambda_326(void *data, object clo, int argc, object *args) ;/*object self_731597, object loop_73405_73657*/
static void __lambda_280(void *data, object clo, int argc, object *args) ;/*object self_731598, object k_731283, object input_73406_73658, object output_73407_73659, object current_73408_73660*/
static void __lambda_282(void *data, object clo, int argc, object *args) ;/*object self_731600, object r_731291*/
static void __lambda_281(void *data, object clo, int argc, object *args) ;/*object self_731599, object r_731286*/
static void __lambda_278(void *data, object clo, int argc, object *args) ;/*object self_731601, object r_731282*/
static void __lambda_279(void *data, object clo, int argc, object *args) ;/*object self_731602, object r_731281*/
static void __lambda_269(void *data, object clo, int argc, object *args) ;/*closure _,object k_731264, object lst_73388_73648, object delim_73389_73649*/
static void __lambda_271(void *data, object clo, int argc, object *args) ;/*object self_731587, object delim_85_73390_73650*/
static void __lambda_272(void *data, object clo, int argc, object *args) ;/*object self_731588, object r_731269*/
static void __lambda_270(void *data, object clo, int argc, object *args) ;/*object self_731589, object k_731272*/
static void __lambda_267(void *data, object clo, int argc, object *args) ;/*closure _,object k_731258, object symbol_73387_73647*/
static void __lambda_268(void *data, object clo, int argc, object *args) ;/*object self_731586, object r_731259*/
static void __lambda_245(void *data, object clo, int argc, object *args) ;/*closure _,object k_731226, object symbol_73378_73642*/
static void __lambda_246(void *data, object clo, int argc, object *args) ;/*object self_731563, object m_73379_73643, object ident_73380_73644*/
static void __lambda_325(void *data, object clo, int argc, object *args) ;/*object self_731564, object m_73379_73643*/
static void __lambda_324(void *data, object clo, int argc, object *args) ;/*object self_731565, object ident_73380_73644*/
static void __lambda_256(void *data, object clo, int argc, object *args) ;/*object self_731566, object k_731236, object chars_73381_73645*/
static void __lambda_259(void *data, object clo, int argc, object *args) ;/*object self_731567, object tmp_73383_73385_73646*/
static void __lambda_261(void *data, object clo, int argc, object *args) ;/*object self_731568, object r_731238*/
static void __lambda_263(void *data, object clo, int argc, object *args) ;/*object self_731570, object r_731246*/
static void __lambda_264(void *data, object clo, int argc, object *args) ;/*object self_731571, object r_731243*/
static void __lambda_265(void *data, object clo, int argc, object *args) ;/*object self_731572, object r_731244*/
static void __lambda_266(void *data, object clo, int argc, object *args) ;/*object self_731573, object r_731242*/
static void __lambda_262(void *data, object clo, int argc, object *args) ;/*object self_731569, object r_731240*/
static void __lambda_260(void *data, object clo, int argc, object *args) ;/*object self_731574, object k_731249*/
static void __lambda_257(void *data, object clo, int argc, object *args) ;/*object self_731575, object k_731251*/
static void __lambda_258(void *data, object clo, int argc, object *args) ;/*object self_731576, object r_731252*/
static void __lambda_247(void *data, object clo, int argc, object *args) ;/*object self_731577, object r_731235*/
static void __lambda_248(void *data, object clo, int argc, object *args) ;/*object self_731578, object r_731227*/
static void __lambda_249(void *data, object clo, int argc, object *args) ;/*object self_731579, object r_731234*/
static void __lambda_250(void *data, object clo, int argc, object *args) ;/*object self_731580, object r_731233*/
static void __lambda_251(void *data, object clo, int argc, object *args) ;/*object self_731581, object r_731232*/
static void __lambda_252(void *data, object clo, int argc, object *args) ;/*object self_731582, object r_731231*/
static void __lambda_253(void *data, object clo, int argc, object *args) ;/*object self_731583, object r_731228*/
static void __lambda_254(void *data, object clo, int argc, object *args) ;/*object self_731584, object r_731230*/
static void __lambda_255(void *data, object clo, int argc, object *args) ;/*object self_731585, object r_731229*/
static void __lambda_233(void *data, object clo, int argc, object *args) ;/*closure _,object k_731212, object use_91env_73362_73630, object renamed_91env_73363_73631*/
static void __lambda_234(void *data, object clo, int argc, object *args) ;/*object self_731550, object find_91original_91sym_73633*/
static void __lambda_323(void *data, object clo, int argc, object *args) ;/*object self_731551, object find_91original_91sym_73633*/
static void __lambda_240(void *data, object clo, int argc, object *args) ;/*object self_731552, object k_731219, object sym_73364_73635*/
static void __lambda_241(void *data, object clo, int argc, object *args) ;/*object self_731553, object val_73365_73636*/
static void __lambda_322(void *data, object clo, int argc, object *args) ;/*object self_731554, object val_73365_73636*/
static void __lambda_244(void *data, object clo, int argc, object *args) ;/*object self_731555, object r_731221*/
static void __lambda_242(void *data, object clo, int argc, object *args) ;/*object self_731556, object k_731222*/
static void __lambda_243(void *data, object clo, int argc, object *args) ;/*object self_731557, object r_731223*/
static void __lambda_235(void *data, object clo, int argc, object *args) ;/*object self_731558, object r_731218*/
static void __lambda_236(void *data, object clo, int argc, object *args) ;/*object self_731559, object r_731213*/
static void __lambda_237(void *data, object clo, int argc, object *args) ;/*object self_731560, object k_731214, object a_73366_73637, object b_73367_73638*/
static void __lambda_238(void *data, object clo, int argc, object *args) ;/*object self_731561, object asym_73370_73639*/
static void __lambda_239(void *data, object clo, int argc, object *args) ;/*object self_731562, object bsym_73373_73640*/
static void __lambda_215(void *data, object clo, int argc, object *args) ;/*closure _,object k_731189, object use_91env_73337_73619, object mac_91env_73338_73620, object binding_91lis_73339_73621*/
static void __lambda_216(void *data, object clo, int argc, object *args) ;/*object self_731532, object renames_73340_73622*/
static void __lambda_321(void *data, object clo, int argc, object *args) ;/*object self_731533, object renames_73340_73622*/
static void __lambda_217(void *data, object clo, int argc, object *args) ;/*object self_731534, object k_731191, object identifier_73341_73623*/
static void __lambda_218(void *data, object clo, int argc, object *args) ;/*object self_731535, object r_731192*/
static void __lambda_219(void *data, object clo, int argc, object *args) ;/*object self_731536, object r_731193*/
static void __lambda_220(void *data, object clo, int argc, object *args) ;/*object self_731537, object binding_91cell_73342_73624, object cell_73343_73625*/
static void __lambda_221(void *data, object clo, int argc, object *args) ;/*object self_731538, object val_73352_73627*/
static void __lambda_229(void *data, object clo, int argc, object *args) ;/*object self_731539, object name_73351_73626*/
static void __lambda_230(void *data, object clo, int argc, object *args) ;/*object self_731540, object r_731197*/
static void __lambda_231(void *data, object clo, int argc, object *args) ;/*object self_731541, object r_731196*/
static void __lambda_232(void *data, object clo, int argc, object *args) ;/*object self_731542, object r_731195*/
static void __lambda_222(void *data, object clo, int argc, object *args) ;/*object self_731543, object k_731199*/
static void __lambda_223(void *data, object clo, int argc, object *args) ;/*object self_731544, object r_731200*/
static void __lambda_227(void *data, object clo, int argc, object *args) ;/*object self_731548, object renamed_73360_73629*/
static void __lambda_228(void *data, object clo, int argc, object *args) ;/*object self_731549, object r_731206*/
static void __lambda_224(void *data, object clo, int argc, object *args) ;/*object self_731545, object renamed_73356_73628*/
static void __lambda_225(void *data, object clo, int argc, object *args) ;/*object self_731546, object r_731202*/
static void __lambda_226(void *data, object clo, int argc, object *args) ;/*object self_731547, object r_731203*/
static void __lambda_209(void *data, object clo, int argc, object *args) ;/*closure _,object k_731182, object env1_73331_73613, object id1_73332_73614, object env2_73333_73615, object id2_73334_73616*/
static void __lambda_210(void *data, object clo, int argc, object *args) ;/*object self_731527, object r_731186*/
static void __lambda_211(void *data, object clo, int argc, object *args) ;/*object self_731528, object r_731183*/
static void __lambda_212(void *data, object clo, int argc, object *args) ;/*object self_731529, object r_731185*/
static void __lambda_213(void *data, object clo, int argc, object *args) ;/*object self_731530, object r_731184*/
static void __lambda_214(void *data, object clo, int argc, object *args) ;/*object self_731531, object val1_73335_73617, object val2_73336_73618*/
static void __lambda_207(void *data, object clo, int argc, object *args) ;/*closure _,object k_731177, object id_73323_73612*/
static void __lambda_208(void *data, object clo, int argc, object *args) ;/*object self_731526, object r_731178*/
static void __lambda_206(void *data, object clo, int argc, object *args) ;/*closure _,object k_731173, object expr_73318_73610*/
static void __lambda_205(void *data, object clo, int argc, object *args) ;/*closure _,object k_731170, object expr_73317_73609*/
static void __lambda_204(void *data, object clo, int argc, object *args) ;/*closure _,object k_731167, object env_73314_73606, object free_91names_73315_73607, object expr_73316_73608*/
static void __lambda_203(void *data, object clo, int argc, object *args) ;/*closure _,object k_731161, object env_73311_73603, object free_91names_73312_73604, object expr_73313_73605*/
static void __lambda_197(void *data, object clo, int argc, object *args) ;/*closure _,object k_731137, object var_73297_73595, object val_73298_73596, object env_73299_73597*/
static void __lambda_198(void *data, object clo, int argc, object *args) ;/*object self_731520, object scan_73600_731365*/
static void __lambda_320(void *data, object clo, int argc, object *args) ;/*object self_731521, object scan_73600_731365*/
static void __lambda_201(void *data, object clo, int argc, object *args) ;/*object self_731522, object k_731143_731370, object vars_73301_73601_731371, object vals_73302_73602_731372*/
static void __lambda_202(void *data, object clo, int argc, object *args) ;/*object self_731523, object r_731147_731373*/
static void __lambda_199(void *data, object clo, int argc, object *args) ;/*object self_731524, object r_731142_731366*/
static void __lambda_200(void *data, object clo, int argc, object *args) ;/*object self_731525, object r_731139_731367*/
static void __lambda_185(void *data, object clo, int argc, object *args) ;/*closure _,object k_731115, object var_73283_73583, object val_73284_73584, object env_73285_73585*/
static void __lambda_186(void *data, object clo, int argc, object *args) ;/*object self_731507, object env_91loop_73587*/
static void __lambda_319(void *data, object clo, int argc, object *args) ;/*object self_731508, object env_91loop_73587*/
static void __lambda_189(void *data, object clo, int argc, object *args) ;/*object self_731509, object k_731118, object env_73286_73590*/
static void __lambda_190(void *data, object clo, int argc, object *args) ;/*object self_731510, object scan_73591*/
static void __lambda_318(void *data, object clo, int argc, object *args) ;/*object self_731511, object scan_73591*/
static void __lambda_193(void *data, object clo, int argc, object *args) ;/*object self_731512, object k_731125, object vars_73287_73592, object vals_73288_73593*/
static void __lambda_196(void *data, object clo, int argc, object *args) ;/*object self_731515, object r_731133*/
static void __lambda_194(void *data, object clo, int argc, object *args) ;/*object self_731513, object r_731131*/
static void __lambda_195(void *data, object clo, int argc, object *args) ;/*object self_731514, object r_731130*/
static void __lambda_191(void *data, object clo, int argc, object *args) ;/*object self_731516, object r_731124*/
static void __lambda_192(void *data, object clo, int argc, object *args) ;/*object self_731517, object r_731119*/
static void __lambda_187(void *data, object clo, int argc, object *args) ;/*object self_731518, object r_731117*/
static void __lambda_188(void *data, object clo, int argc, object *args) ;/*object self_731519, object r_731116*/
static void __lambda_182(void *data, object clo, int argc, object *args) ;/*closure _,object k_731110, object var_73280_73580, object env_73281_73581, object default_91value_73282_73582*/
static void __lambda_184(void *data, object clo, int argc, object *args) ;/*object self_731505, object k_731112*/
static void __lambda_183(void *data, object clo, int argc, object *args) ;/*object self_731506, object r_731111*/
static void __lambda_173(void *data, object clo, int argc, object *args) ;/*closure _,object k_731090, object var_73266_73568, object env_73267_73569, object not_91found_73268_73570*/
static void __lambda_174(void *data, object clo, int argc, object *args) ;/*object self_731495, object env_91loop_73572*/
static void __lambda_317(void *data, object clo, int argc, object *args) ;/*object self_731496, object env_91loop_73572*/
static void __lambda_177(void *data, object clo, int argc, object *args) ;/*object self_731497, object k_731093, object env_73269_73575*/
static void __lambda_178(void *data, object clo, int argc, object *args) ;/*object self_731498, object scan_73576*/
static void __lambda_316(void *data, object clo, int argc, object *args) ;/*object self_731499, object scan_73576*/
static void __lambda_181(void *data, object clo, int argc, object *args) ;/*object self_731500, object k_731100, object vars_73270_73577, object vals_73271_73578*/
static void __lambda_179(void *data, object clo, int argc, object *args) ;/*object self_731501, object r_731099*/
static void __lambda_180(void *data, object clo, int argc, object *args) ;/*object self_731502, object r_731094*/
static void __lambda_175(void *data, object clo, int argc, object *args) ;/*object self_731503, object r_731092*/
static void __lambda_176(void *data, object clo, int argc, object *args) ;/*object self_731504, object r_731091*/
static void __lambda_170(void *data, object clo, int argc, object *args) ;/*closure _,object k_731085, object var_73264_73566, object env_73265_73567*/
static void __lambda_172(void *data, object clo, int argc, object *args) ;/*object self_731493, object k_731087*/
static void __lambda_171(void *data, object clo, int argc, object *args) ;/*object self_731494, object r_731086*/
static void __lambda_165(void *data, object clo, int argc, object *args) ;/*closure _,object k_731075, object vars_73261_73563, object vals_73262_73564, object base_91env_73263_73565*/
static void __lambda_166(void *data, object clo, int argc, object *args) ;/*object self_731489, object r_731081*/
static void __lambda_167(void *data, object clo, int argc, object *args) ;/*object self_731490, object r_731082*/
static void __lambda_168(void *data, object clo, int argc, object *args) ;/*object self_731491, object r_731079*/
static void __lambda_169(void *data, object clo, int argc, object *args) ;/*object self_731492, object r_731080*/
static void __lambda_164(void *data, object clo, int argc, object *args) ;/*closure _,object k_731070, object env_73260_73562*/
static void __lambda_163(void *data, object clo, int argc, object *args) ;/*closure _,object k_731065, object env_73259_73561*/
static void __lambda_159(void *data, object clo, int argc, object *args) ;/*closure _,object k_731057, object var_73256_73558, object val_73257_73559, object frame_73258_73560*/
static void __lambda_160(void *data, object clo, int argc, object *args) ;/*object self_731486, object r_731062*/
static void __lambda_161(void *data, object clo, int argc, object *args) ;/*object self_731487, object r_731058*/
static void __lambda_162(void *data, object clo, int argc, object *args) ;/*object self_731488, object r_731060*/
static object __lambda_341(void *data, object ptr,object frame_73255_73557) ;
static void __lambda_158(void *data, object clo, int argc, object *args) ;/*closure _,object k_731054, object frame_73255_73557*/
static object __lambda_340(void *data, object ptr,object frame_73254_73556) ;
static void __lambda_157(void *data, object clo, int argc, object *args) ;/*closure _,object k_731051, object frame_73254_73556*/
static void __lambda_156(void *data, object clo, int argc, object *args) ;/*closure _,object k_731048, object variables_73252_73554, object values_73253_73555*/
static object __lambda_339(void *data, object ptr,object env_73251_73553) ;
static void __lambda_155(void *data, object clo, int argc, object *args) ;/*closure _,object k_731043, object env_73251_73553*/
static object __lambda_338(void *data, object ptr,object env_73250_73552) ;
static void __lambda_154(void *data, object clo, int argc, object *args) ;/*closure _,object k_731040, object env_73250_73552*/
static void __lambda_143(void *data, object clo, int argc, object *args) ;/*closure _,object k_731023, object params_73245_73551_raw, ...*/
static void __lambda_148(void *data, object clo, int argc, object *args) ;/*object self_731480, object r_731037*/
static void __lambda_149(void *data, object clo, int argc, object *args) ;/*object self_731481, object r_731029*/
static void __lambda_151(void *data, object clo, int argc, object *args) ;/*object self_731482, object r_731031*/
static void __lambda_152(void *data, object clo, int argc, object *args) ;/*object self_731483, object r_731032*/
static void __lambda_153(void *data, object clo, int argc, object *args) ;/*object self_731484, object r_731030*/
static void __lambda_150(void *data, object clo, int argc, object *args) ;/*object self_731485, object k_731033*/
static void __lambda_144(void *data, object clo, int argc, object *args) ;/*object self_731476, object r_731028*/
static void __lambda_145(void *data, object clo, int argc, object *args) ;/*object self_731477, object r_731025*/
static void __lambda_146(void *data, object clo, int argc, object *args) ;/*object self_731478, object r_731027*/
static void __lambda_147(void *data, object clo, int argc, object *args) ;/*object self_731479, object r_731026*/
static void __lambda_137(void *data, object clo, int argc, object *args) ;/*closure _,object k_731012, object lis_73240_73546, object prefix_73241_73547*/
static void __lambda_139(void *data, object clo, int argc, object *args) ;/*object self_731471, object k_731014, object return_73242_73548*/
static void __lambda_142(void *data, object clo, int argc, object *args) ;/*object self_731472, object k_731017, object x_73243_73549, object y_73244_73550*/
static void __lambda_140(void *data, object clo, int argc, object *args) ;/*object self_731473, object r_731016*/
static void __lambda_141(void *data, object clo, int argc, object *args) ;/*object self_731474, object r_731015*/
static void __lambda_138(void *data, object clo, int argc, object *args) ;/*object self_731475, object r_731013*/
static void __lambda_135(void *data, object clo, int argc, object *args) ;/*closure _,object k_731008, object pre_73238_73544, object lis_73239_73545*/
static void __lambda_136(void *data, object clo, int argc, object *args) ;/*object self_731470, object r_731009*/
static void __lambda_121(void *data, object clo, int argc, object *args) ;/*closure _,object k_73989, object haystack_73218_73532, object needle_73219_73533, object replacement_73220_73534*/
static void __lambda_122(void *data, object clo, int argc, object *args) ;/*object self_731456, object r_73990*/
static void __lambda_123(void *data, object clo, int argc, object *args) ;/*object self_731457, object r_73991*/
static void __lambda_124(void *data, object clo, int argc, object *args) ;/*object self_731458, object r_73992*/
static void __lambda_125(void *data, object clo, int argc, object *args) ;/*object self_731459, object haystack_73221_73535, object needle_73222_73536, object replacement_73223_73537, object needle_91len_73224_73538*/
static void __lambda_126(void *data, object clo, int argc, object *args) ;/*object self_731460, object haystack_73226_73539, object acc_73227_73540*/
static void __lambda_127(void *data, object clo, int argc, object *args) ;/*object self_731461, object loop_73228_73541*/
static void __lambda_315(void *data, object clo, int argc, object *args) ;/*object self_731462, object loop_73228_73541*/
static void __lambda_130(void *data, object clo, int argc, object *args) ;/*object self_731463, object k_73997, object haystack_73229_73542, object acc_73230_73543*/
static void __lambda_132(void *data, object clo, int argc, object *args) ;/*object self_731465, object r_731000*/
static void __lambda_133(void *data, object clo, int argc, object *args) ;/*object self_731466, object r_731001*/
static void __lambda_134(void *data, object clo, int argc, object *args) ;/*object self_731467, object r_731002*/
static void __lambda_131(void *data, object clo, int argc, object *args) ;/*object self_731464, object r_73999*/
static void __lambda_128(void *data, object clo, int argc, object *args) ;/*object self_731468, object r_73996*/
static void __lambda_129(void *data, object clo, int argc, object *args) ;/*object self_731469, object r_73995*/
static void __lambda_118(void *data, object clo, int argc, object *args) ;/*closure _,object k_73978, object e_73216_73530, object lst_73217_73531*/
static void __lambda_119(void *data, object clo, int argc, object *args) ;/*object self_731454, object r_73984*/
static void __lambda_120(void *data, object clo, int argc, object *args) ;/*object self_731455, object r_73982*/
static void __lambda_110(void *data, object clo, int argc, object *args) ;/*closure _,object k_73961, object lis_73201_73526, object obj_73202_73527, object k_73203_73528*/
static void __lambda_113(void *data, object clo, int argc, object *args) ;/*object self_731447, object r_73963*/
static void __lambda_117(void *data, object clo, int argc, object *args) ;/*object self_731451, object r_73971*/
static void __lambda_114(void *data, object clo, int argc, object *args) ;/*object self_731448, object old_91car_73214_73529*/
static void __lambda_115(void *data, object clo, int argc, object *args) ;/*object self_731449, object r_73968*/
static void __lambda_116(void *data, object clo, int argc, object *args) ;/*object self_731450, object r_73970*/
static void __lambda_111(void *data, object clo, int argc, object *args) ;/*object self_731452, object k_73973*/
static void __lambda_112(void *data, object clo, int argc, object *args) ;/*object self_731453, object r_73975*/
static void __lambda_107(void *data, object clo, int argc, object *args) ;/*closure _,object k_73952, object x_73193_73525*/
static void __lambda_108(void *data, object clo, int argc, object *args) ;/*object self_731445, object r_73955*/
static void __lambda_109(void *data, object clo, int argc, object *args) ;/*object self_731446, object r_73956*/
static void __lambda_100(void *data, object clo, int argc, object *args) ;/*closure _,object k_73940, object lis_73181_73517*/
static void __lambda_101(void *data, object clo, int argc, object *args) ;/*object self_731438, object recur_73519*/
static void __lambda_314(void *data, object clo, int argc, object *args) ;/*object self_731439, object recur_73519*/
static void __lambda_104(void *data, object clo, int argc, object *args) ;/*object self_731440, object k_73943, object lis_73182_73521*/
static void __lambda_105(void *data, object clo, int argc, object *args) ;/*object self_731441, object r_73949*/
static void __lambda_106(void *data, object clo, int argc, object *args) ;/*object self_731442, object new_91tail_73191_73524*/
static void __lambda_102(void *data, object clo, int argc, object *args) ;/*object self_731443, object r_73942*/
static void __lambda_103(void *data, object clo, int argc, object *args) ;/*object self_731444, object r_73941*/
static void __lambda_97(void *data, object clo, int argc, object *args) ;/*closure _,object k_73934, object x_73178_73514, object lis_73179_73515*/
static void __lambda_99(void *data, object clo, int argc, object *args) ;/*object self_731436, object k_73936, object y_73180_73516*/
static void __lambda_98(void *data, object clo, int argc, object *args) ;/*object self_731437, object r_73935*/
static void __lambda_89(void *data, object clo, int argc, object *args) ;/*closure _,object k_73922, object pred_73171_73507, object lis_73172_73508*/
static void __lambda_90(void *data, object clo, int argc, object *args) ;/*object self_731428, object recur_73173_73509*/
static void __lambda_313(void *data, object clo, int argc, object *args) ;/*object self_731429, object recur_73173_73509*/
static void __lambda_93(void *data, object clo, int argc, object *args) ;/*object self_731430, object k_73925, object lis_73174_73510*/
static void __lambda_94(void *data, object clo, int argc, object *args) ;/*object self_731431, object head_73175_73511, object tail_73176_73512*/
static void __lambda_95(void *data, object clo, int argc, object *args) ;/*object self_731432, object r_73929*/
static void __lambda_96(void *data, object clo, int argc, object *args) ;/*object self_731433, object new_91tail_73177_73513*/
static void __lambda_91(void *data, object clo, int argc, object *args) ;/*object self_731434, object r_73924*/
static void __lambda_92(void *data, object clo, int argc, object *args) ;/*object self_731435, object r_73923*/
static void __lambda_87(void *data, object clo, int argc, object *args) ;/*closure _,object k_73918, object n_73170_73506*/
static void __lambda_88(void *data, object clo, int argc, object *args) ;/*object self_731427, object r_73919*/
static void __lambda_86(void *data, object clo, int argc, object *args) ;/*closure _,object k_73912, object c_73168_73504*/
static void __lambda_80(void *data, object clo, int argc, object *args) ;/*closure _,object k_73903, object lis_73160_73497, object k_73161_73498*/
static void __lambda_81(void *data, object clo, int argc, object *args) ;/*object self_731421, object lis_73163_73499, object k_73164_73500*/
static void __lambda_82(void *data, object clo, int argc, object *args) ;/*object self_731422, object iter_73165_73501*/
static void __lambda_312(void *data, object clo, int argc, object *args) ;/*object self_731423, object iter_73165_73501*/
static void __lambda_85(void *data, object clo, int argc, object *args) ;/*object self_731424, object k_73906, object lis_73166_73502, object k_73167_73503*/
static void __lambda_83(void *data, object clo, int argc, object *args) ;/*object self_731425, object r_73905*/
static void __lambda_84(void *data, object clo, int argc, object *args) ;/*object self_731426, object r_73904*/
static void __lambda_73(void *data, object clo, int argc, object *args) ;/*closure _,object k_73892, object lis_73152_73490, object k_73153_73491*/
static void __lambda_74(void *data, object clo, int argc, object *args) ;/*object self_731414, object lis_73155_73492, object k_73156_73493*/
static void __lambda_75(void *data, object clo, int argc, object *args) ;/*object self_731415, object recur_73157_73494*/
static void __lambda_311(void *data, object clo, int argc, object *args) ;/*object self_731416, object recur_73157_73494*/
static void __lambda_78(void *data, object clo, int argc, object *args) ;/*object self_731417, object k_73895, object lis_73158_73495, object k_73159_73496*/
static void __lambda_79(void *data, object clo, int argc, object *args) ;/*object self_731418, object r_73898*/
static void __lambda_76(void *data, object clo, int argc, object *args) ;/*object self_731419, object r_73894*/
static void __lambda_77(void *data, object clo, int argc, object *args) ;/*object self_731420, object r_73893*/
static void __lambda_67(void *data, object clo, int argc, object *args) ;/*closure _,object k_73883, object l_73141_73484*/
static void __lambda_68(void *data, object clo, int argc, object *args) ;/*object self_731408, object lis_73143_73485*/
static void __lambda_69(void *data, object clo, int argc, object *args) ;/*object self_731409, object loop_73145_73487*/
static void __lambda_310(void *data, object clo, int argc, object *args) ;/*object self_731410, object loop_73145_73487*/
static void __lambda_72(void *data, object clo, int argc, object *args) ;/*object self_731411, object k_73886, object lis_73146_73488, object len_73147_73489*/
static void __lambda_70(void *data, object clo, int argc, object *args) ;/*object self_731412, object r_73885*/
static void __lambda_71(void *data, object clo, int argc, object *args) ;/*object self_731413, object r_73884*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*closure _,object k_73870, object formals_73130_73480, object args_73131_73481*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_731399, object r_73872*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_731400, object r_73873*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*object self_731401, object r_73874*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_731402, object num_91req_91args_73139_73482, object num_91args_73140_73483*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_731403, object r_73875*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*object self_731404, object r_73876*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*object self_731405, object r_73878*/
static void __lambda_66(void *data, object clo, int argc, object *args) ;/*object self_731406, object r_73877*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*object self_731407, object k_73879*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*closure _,object k_73865, object args_73122_73479*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*object self_731398, object r_73867*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*closure _,object k_73859, object exp_73120_73477*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_731397, object r_73860*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*closure _,object k_73840, object exp_73105_73475*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*closure _,object k_73833, object exp_7399_73472*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*object self_731396, object type_73100_73473*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*closure _,object k_73824, object exp_7398_73471*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_731392, object r_73825*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*object self_731393, object r_73829*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*object self_731394, object r_73828*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*object self_731395, object r_73827*/
static object __lambda_337(void *data, object ptr,object exp_7397_73470) ;
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*closure _,object k_73821, object exp_7397_73470*/
static object __lambda_336(void *data, object ptr,object exp_7396_73469) ;
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*closure _,object k_73818, object exp_7396_73469*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*closure _,object k_73807, object p_7391_73465*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_731385, object lst_7393_73466*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*object self_731386, object loop_7394_73467*/
static void __lambda_309(void *data, object clo, int argc, object *args) ;/*object self_731387, object loop_7394_73467*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*object self_731388, object k_73810, object lst_7395_73468*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*object self_731389, object r_73813*/
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*object self_731390, object r_73809*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_731391, object r_73808*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*closure _,object k_73801, object exp_7389_73463*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*object self_731382, object var_7390_73464*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_731383, object r_73804*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_731384, object r_73803*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*closure _,object k_73796, object exp_7387_73462*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_731381, object r_73797*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*closure _,object k_73792, object exp_7386_73461*/
static object __lambda_335(void *data, object ptr,object exp_7385_73460) ;
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*closure _,object k_73789, object exp_7385_73460*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*closure _,object k_73785, object exp_7380_73459*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_731380, object r_73786*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*closure _,object k_73771, object exp_7369_73455*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_731379, object r_73772*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*closure _,object k_73759, object exp_7360_73452*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*closure _,object k_73755, object exp_7359_73451*/
static object __lambda_334(void *data, object ptr,object exp_7358_73450) ;
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*closure _,object k_73752, object exp_7358_73450*/
static object __lambda_333(void *data, object ptr,object exp_7357_73449) ;
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*closure _,object k_73749, object exp_7357_73449*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*closure _,object k_73745, object exp_7356_73448*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*closure _,object k_73741, object exp_7355_73447*/
static object __lambda_332(void *data, object ptr,object exp_7354_73446) ;
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*closure _,object k_73738, object exp_7354_73446*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*closure _,object k_73726, object exp_7321_73437*/
static object __lambda_331(void *data, object ptr,object exp_7320_73436) ;
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*closure _,object k_73723, object exp_7320_73436*/
static object __lambda_330(void *data, object ptr,object exp_7319_73435) ;
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*closure _,object k_73720, object exp_7319_73435*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*closure _,object k_73714, object exp_7317_73434*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_731378, object r_73715*/
static object __lambda_329(void *data, object ptr,object exp_7316_73433) ;
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*closure _,object k_73711, object exp_7316_73433*/
static object __lambda_328(void *data, object ptr,object exp_7315_73432) ;
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*closure _,object k_73708, object exp_7315_73432*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*closure _,object k_73704, object exp_7314_73431*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*closure _,object k_73700, object exp_7313_73430*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*closure _,object k_73696, object exp_7312_73429*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*closure _,object k_73692, object exp_7311_73428*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*closure _,object k_73688, object exp_7310_73427*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*closure _,object k_73681, object exp_734_73425*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_731377, object r_73682*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*closure _,object k_73677, object exp_733_73424*/
static object __lambda_327(void *data, object ptr,object tag_731_73422, object exp_732_73423) ;
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_73672, object tag_731_73422, object exp_732_73423*/

static void __lambda_292(void *data, object _, int argc, object *args) /* closure _,object k_731310 */
 {
object k_731310 = args[0];
  Cyc_st_add(data, "scheme/cyclone/util.sld:lib-init:schemecycloneutil");

closureN_type c_733933;
object e_734049 [1];
c_733933.hdr.mark = gc_color_red;
 c_733933.hdr.grayed = 0;
c_733933.tag = closureN_tag;
 c_733933.fn = (function_type)__lambda_293;
c_733933.num_args = 1;
c_733933.num_elements = 1;
c_733933.elements = (object *)e_734049;
c_733933.elements[0] = k_731310;

return_direct_with_clo2(data,  __glo_make_91parameter_scheme_base, (((closure)  __glo_make_91parameter_scheme_base)->fn),  &c_733933, boolean_f);; 
}

static void __lambda_293(void *data, object self_731608, int argc, object *args) /* object self_731608, object r_731341 */
 {
 object r_731341 = args[0];
  
closureN_type c_733935;
object e_734045 [1];
c_733935.hdr.mark = gc_color_red;
 c_733935.hdr.grayed = 0;
c_733935.tag = closureN_tag;
 c_733935.fn = (function_type)__lambda_294;
c_733935.num_args = 1;
c_733935.num_elements = 1;
c_733935.elements = (object *)e_734045;
c_733935.elements[0] = ((closureN)self_731608)->elements[0];


object c_734048 = global_set_cps_id(data,(closure)&c_733935,"__glo_current_91expand_91filepath_scheme_cyclone_util", __glo_current_91expand_91filepath_scheme_cyclone_util, r_731341);
return_closcall1(data,(closure)&c_733935,  c_734048);; 
}

static void __lambda_294(void *data, object self_731609, int argc, object *args) /* object self_731609, object r_731312 */
 {

  
closureN_type c_733937;
object e_734041 [1];
c_733937.hdr.mark = gc_color_red;
 c_733937.hdr.grayed = 0;
c_733937.tag = closureN_tag;
 c_733937.fn = (function_type)__lambda_295;
c_733937.num_args = 1;
c_733937.num_elements = 1;
c_733937.elements = (object *)e_734041;
c_733937.elements[0] = ((closureN)self_731609)->elements[0];


object c_734044 = global_set_cps_id(data,(closure)&c_733937,"__glo_env_117the_91empty_91environment_scheme_cyclone_util", __glo_env_117the_91empty_91environment_scheme_cyclone_util, NULL);
return_closcall1(data,(closure)&c_733937,  c_734044);; 
}

static void __lambda_295(void *data, object self_731610, int argc, object *args) /* object self_731610, object r_731313 */
 {

  
closureN_type c_733939;
object e_734037 [1];
c_733939.hdr.mark = gc_color_red;
 c_733939.hdr.grayed = 0;
c_733939.tag = closureN_tag;
 c_733939.fn = (function_type)__lambda_296;
c_733939.num_args = 1;
c_733939.num_elements = 1;
c_733939.elements = (object *)e_734037;
c_733939.elements[0] = ((closureN)self_731610)->elements[0];


make_pair(c_734040,quote_expr,NULL);c_734040.hdr.immutable = 1;

make_pair(c_734039,quote_free_91names,&c_734040);c_734039.hdr.immutable = 1;

make_pair(c_734038,quote_env,&c_734039);c_734038.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_register_91simple_91type_scheme_base, (((closure)  __glo_register_91simple_91type_scheme_base)->fn),  &c_733939, quote__121syn_91clo_125, boolean_f, &c_734038);; 
}

static void __lambda_296(void *data, object self_731611, int argc, object *args) /* object self_731611, object r_731337 */
 {
 object r_731337 = args[0];
  
closureN_type c_733941;
object e_734033 [1];
c_733941.hdr.mark = gc_color_red;
 c_733941.hdr.grayed = 0;
c_733941.tag = closureN_tag;
 c_733941.fn = (function_type)__lambda_297;
c_733941.num_args = 1;
c_733941.num_elements = 1;
c_733941.elements = (object *)e_734033;
c_733941.elements[0] = ((closureN)self_731611)->elements[0];


object c_734036 = global_set_cps_id(data,(closure)&c_733941,"__glo__121syn_91clo_125_scheme_cyclone_util", __glo__121syn_91clo_125_scheme_cyclone_util, r_731337);
return_closcall1(data,(closure)&c_733941,  c_734036);; 
}

static void __lambda_297(void *data, object self_731612, int argc, object *args) /* object self_731612, object r_731314 */
 {

  
closureN_type c_733943;
object e_734032 [1];
c_733943.hdr.mark = gc_color_red;
 c_733943.hdr.grayed = 0;
c_733943.tag = closureN_tag;
 c_733943.fn = (function_type)__lambda_298;
c_733943.num_args = 1;
c_733943.num_elements = 1;
c_733943.elements = (object *)e_734032;
c_733943.elements[0] = ((closureN)self_731612)->elements[0];

return_direct_with_clo3(data,  __glo_make_91type_91predicate_scheme_base, (((closure)  __glo_make_91type_91predicate_scheme_base)->fn),  &c_733943, obj_int2obj(0), quote__121syn_91clo_125);; 
}

static void __lambda_298(void *data, object self_731613, int argc, object *args) /* object self_731613, object r_731335 */
 {
 object r_731335 = args[0];
  
closureN_type c_733945;
object e_734028 [1];
c_733945.hdr.mark = gc_color_red;
 c_733945.hdr.grayed = 0;
c_733945.tag = closureN_tag;
 c_733945.fn = (function_type)__lambda_299;
c_733945.num_args = 1;
c_733945.num_elements = 1;
c_733945.elements = (object *)e_734028;
c_733945.elements[0] = ((closureN)self_731613)->elements[0];


object c_734031 = global_set_cps_id(data,(closure)&c_733945,"__glo_sc_127_scheme_cyclone_util", __glo_sc_127_scheme_cyclone_util, r_731335);
return_closcall1(data,(closure)&c_733945,  c_734031);; 
}

static void __lambda_299(void *data, object self_731614, int argc, object *args) /* object self_731614, object r_731315 */
 {

  
closureN_type c_733947;
object e_734027 [1];
c_733947.hdr.mark = gc_color_red;
 c_733947.hdr.grayed = 0;
c_733947.tag = closureN_tag;
 c_733947.fn = (function_type)__lambda_300;
c_733947.num_args = 1;
c_733947.num_elements = 1;
c_733947.elements = (object *)e_734027;
c_733947.elements[0] = ((closureN)self_731614)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_733947, __glo__121syn_91clo_125_scheme_cyclone_util, quote_env);; 
}

static void __lambda_300(void *data, object self_731615, int argc, object *args) /* object self_731615, object r_731333 */
 {
 object r_731333 = args[0];
  
closureN_type c_733949;
object e_734025 [1];
c_733949.hdr.mark = gc_color_red;
 c_733949.hdr.grayed = 0;
c_733949.tag = closureN_tag;
 c_733949.fn = (function_type)__lambda_301;
c_733949.num_args = 1;
c_733949.num_elements = 1;
c_733949.elements = (object *)e_734025;
c_733949.elements[0] = ((closureN)self_731615)->elements[0];


make_utf8_string_with_len(c_734026, "sc-env", 6, 6);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_733949, &c_734026, quote__121syn_91clo_125, r_731333);; 
}

static void __lambda_301(void *data, object self_731616, int argc, object *args) /* object self_731616, object r_731331 */
 {
 object r_731331 = args[0];
  
closureN_type c_733951;
object e_734021 [1];
c_733951.hdr.mark = gc_color_red;
 c_733951.hdr.grayed = 0;
c_733951.tag = closureN_tag;
 c_733951.fn = (function_type)__lambda_302;
c_733951.num_args = 1;
c_733951.num_elements = 1;
c_733951.elements = (object *)e_734021;
c_733951.elements[0] = ((closureN)self_731616)->elements[0];


object c_734024 = global_set_cps_id(data,(closure)&c_733951,"__glo_sc_91env_scheme_cyclone_util", __glo_sc_91env_scheme_cyclone_util, r_731331);
return_closcall1(data,(closure)&c_733951,  c_734024);; 
}

static void __lambda_302(void *data, object self_731617, int argc, object *args) /* object self_731617, object r_731316 */
 {

  
closureN_type c_733953;
object e_734020 [1];
c_733953.hdr.mark = gc_color_red;
 c_733953.hdr.grayed = 0;
c_733953.tag = closureN_tag;
 c_733953.fn = (function_type)__lambda_303;
c_733953.num_args = 1;
c_733953.num_elements = 1;
c_733953.elements = (object *)e_734020;
c_733953.elements[0] = ((closureN)self_731617)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_733953, __glo__121syn_91clo_125_scheme_cyclone_util, quote_free_91names);; 
}

static void __lambda_303(void *data, object self_731618, int argc, object *args) /* object self_731618, object r_731329 */
 {
 object r_731329 = args[0];
  
closureN_type c_733955;
object e_734018 [1];
c_733955.hdr.mark = gc_color_red;
 c_733955.hdr.grayed = 0;
c_733955.tag = closureN_tag;
 c_733955.fn = (function_type)__lambda_304;
c_733955.num_args = 1;
c_733955.num_elements = 1;
c_733955.elements = (object *)e_734018;
c_733955.elements[0] = ((closureN)self_731618)->elements[0];


make_utf8_string_with_len(c_734019, "sc-free-names", 13, 13);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_733955, &c_734019, quote__121syn_91clo_125, r_731329);; 
}

static void __lambda_304(void *data, object self_731619, int argc, object *args) /* object self_731619, object r_731327 */
 {
 object r_731327 = args[0];
  
closureN_type c_733957;
object e_734014 [1];
c_733957.hdr.mark = gc_color_red;
 c_733957.hdr.grayed = 0;
c_733957.tag = closureN_tag;
 c_733957.fn = (function_type)__lambda_305;
c_733957.num_args = 1;
c_733957.num_elements = 1;
c_733957.elements = (object *)e_734014;
c_733957.elements[0] = ((closureN)self_731619)->elements[0];


object c_734017 = global_set_cps_id(data,(closure)&c_733957,"__glo_sc_91free_91names_scheme_cyclone_util", __glo_sc_91free_91names_scheme_cyclone_util, r_731327);
return_closcall1(data,(closure)&c_733957,  c_734017);; 
}

static void __lambda_305(void *data, object self_731620, int argc, object *args) /* object self_731620, object r_731317 */
 {

  
closureN_type c_733959;
object e_734013 [1];
c_733959.hdr.mark = gc_color_red;
 c_733959.hdr.grayed = 0;
c_733959.tag = closureN_tag;
 c_733959.fn = (function_type)__lambda_306;
c_733959.num_args = 1;
c_733959.num_elements = 1;
c_733959.elements = (object *)e_734013;
c_733959.elements[0] = ((closureN)self_731620)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_733959, __glo__121syn_91clo_125_scheme_cyclone_util, quote_expr);; 
}

static void __lambda_306(void *data, object self_731621, int argc, object *args) /* object self_731621, object r_731325 */
 {
 object r_731325 = args[0];
  
closureN_type c_733961;
object e_734011 [1];
c_733961.hdr.mark = gc_color_red;
 c_733961.hdr.grayed = 0;
c_733961.tag = closureN_tag;
 c_733961.fn = (function_type)__lambda_307;
c_733961.num_args = 1;
c_733961.num_elements = 1;
c_733961.elements = (object *)e_734011;
c_733961.elements[0] = ((closureN)self_731621)->elements[0];


make_utf8_string_with_len(c_734012, "sc-expr", 7, 7);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_733961, &c_734012, quote__121syn_91clo_125, r_731325);; 
}

static void __lambda_307(void *data, object self_731622, int argc, object *args) /* object self_731622, object r_731323 */
 {
 object r_731323 = args[0];
  
closureN_type c_733963;
object e_734007 [1];
c_733963.hdr.mark = gc_color_red;
 c_733963.hdr.grayed = 0;
c_733963.tag = closureN_tag;
 c_733963.fn = (function_type)__lambda_308;
c_733963.num_args = 1;
c_733963.num_elements = 1;
c_733963.elements = (object *)e_734007;
c_733963.elements[0] = ((closureN)self_731622)->elements[0];


object c_734010 = global_set_cps_id(data,(closure)&c_733963,"__glo_sc_91expr_scheme_cyclone_util", __glo_sc_91expr_scheme_cyclone_util, r_731323);
return_closcall1(data,(closure)&c_733963,  c_734010);; 
}

static void __lambda_308(void *data, object self_731623, int argc, object *args) /* object self_731623, object r_731318 */
 {

  
make_pair(c_734006,quote__list,NULL);c_734006.hdr.immutable = 1;

make_pair(c_734005,quote__while,&c_734006);c_734005.hdr.immutable = 1;

make_pair(c_734004,quote__volatile,&c_734005);c_734004.hdr.immutable = 1;

make_pair(c_734003,quote__void,&c_734004);c_734003.hdr.immutable = 1;

make_pair(c_734002,quote__unsigned,&c_734003);c_734002.hdr.immutable = 1;

make_pair(c_734001,quote__union,&c_734002);c_734001.hdr.immutable = 1;

make_pair(c_734000,quote__typedef,&c_734001);c_734000.hdr.immutable = 1;

make_pair(c_733999,quote__switch,&c_734000);c_733999.hdr.immutable = 1;

make_pair(c_733998,quote__struct,&c_733999);c_733998.hdr.immutable = 1;

make_pair(c_733997,quote__static,&c_733998);c_733997.hdr.immutable = 1;

make_pair(c_733996,quote__sizeof,&c_733997);c_733996.hdr.immutable = 1;

make_pair(c_733995,quote__signed,&c_733996);c_733995.hdr.immutable = 1;

make_pair(c_733994,quote__short,&c_733995);c_733994.hdr.immutable = 1;

make_pair(c_733993,quote__return,&c_733994);c_733993.hdr.immutable = 1;

make_pair(c_733992,quote__restrict,&c_733993);c_733992.hdr.immutable = 1;

make_pair(c_733991,quote__register,&c_733992);c_733991.hdr.immutable = 1;

make_pair(c_733990,quote__long,&c_733991);c_733990.hdr.immutable = 1;

make_pair(c_733989,quote__int,&c_733990);c_733989.hdr.immutable = 1;

make_pair(c_733988,quote__inline,&c_733989);c_733988.hdr.immutable = 1;

make_pair(c_733987,quote__191Imaginary,&c_733988);c_733987.hdr.immutable = 1;

make_pair(c_733986,quote__if,&c_733987);c_733986.hdr.immutable = 1;

make_pair(c_733985,quote__goto,&c_733986);c_733985.hdr.immutable = 1;

make_pair(c_733984,quote__for,&c_733985);c_733984.hdr.immutable = 1;

make_pair(c_733983,quote__float,&c_733984);c_733983.hdr.immutable = 1;

make_pair(c_733982,quote__extern,&c_733983);c_733982.hdr.immutable = 1;

make_pair(c_733981,quote__enum,&c_733982);c_733981.hdr.immutable = 1;

make_pair(c_733980,quote__else,&c_733981);c_733980.hdr.immutable = 1;

make_pair(c_733979,quote__double,&c_733980);c_733979.hdr.immutable = 1;

make_pair(c_733978,quote__do,&c_733979);c_733978.hdr.immutable = 1;

make_pair(c_733977,quote__default,&c_733978);c_733977.hdr.immutable = 1;

make_pair(c_733976,quote__continue,&c_733977);c_733976.hdr.immutable = 1;

make_pair(c_733975,quote__const,&c_733976);c_733975.hdr.immutable = 1;

make_pair(c_733974,quote__191Complex,&c_733975);c_733974.hdr.immutable = 1;

make_pair(c_733973,quote__char,&c_733974);c_733973.hdr.immutable = 1;

make_pair(c_733972,quote__case,&c_733973);c_733972.hdr.immutable = 1;

make_pair(c_733971,quote__break,&c_733972);c_733971.hdr.immutable = 1;

make_pair(c_733970,quote__191Bool,&c_733971);c_733970.hdr.immutable = 1;

make_pair(c_733969,quote__auto,&c_733970);c_733969.hdr.immutable = 1;

object c_733968 = global_set_cps_id(data,  ((closureN)self_731623)->elements[0],"__glo__85c_91keywords_85_scheme_cyclone_util", __glo__85c_91keywords_85_scheme_cyclone_util, &c_733969);
return_direct_with_clo1(data,  ((closureN)self_731623)->elements[0], (((closure)  ((closureN)self_731623)->elements[0])->fn),  c_733968);; 
}

static void __lambda_286(void *data, object _, int argc, object *args) /* closure _,object k_731299, object obj_73413_73665, object val_73414_73666 */
 {
object k_731299 = args[0]; object obj_73413_73665 = args[1]; object val_73414_73666 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:Cyc-set-immutable!");

closureN_type c_733895;
object e_733930 [3];
c_733895.hdr.mark = gc_color_red;
 c_733895.hdr.grayed = 0;
c_733895.tag = closureN_tag;
 c_733895.fn = (function_type)__lambda_287;
c_733895.num_args = 1;
c_733895.num_elements = 3;
c_733895.elements = (object *)e_733930;
c_733895.elements[0] = k_731299;
c_733895.elements[1] = obj_73413_73665;
c_733895.elements[2] = val_73414_73666;

return_direct_with_clo3(data,  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util, (((closure)  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util)->fn),  &c_733895, obj_73413_73665, val_73414_73666);; 
}

static void __lambda_287(void *data, object self_731603, int argc, object *args) /* object self_731603, object r_731300 */
 {

    
if( (boolean_f != Cyc_is_pair(((closureN)self_731603)->elements[1])) ){ 
  
closureN_type c_733900;
object e_733910 [3];
c_733900.hdr.mark = gc_color_red;
 c_733900.hdr.grayed = 0;
c_733900.tag = closureN_tag;
 c_733900.fn = (function_type)__lambda_288;
c_733900.num_args = 1;
c_733900.num_elements = 3;
c_733900.elements = (object *)e_733910;
c_733900.elements[0] = ((closureN)self_731603)->elements[0];
c_733900.elements[1] = ((closureN)self_731603)->elements[1];
c_733900.elements[2] = ((closureN)self_731603)->elements[2];



return_direct_with_clo3(data,  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util, (((closure)  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util)->fn),  &c_733900, Cyc_car(data, ((closureN)self_731603)->elements[1]), ((closureN)self_731603)->elements[2]);
} else { 
    
if( (boolean_f != Cyc_is_vector_not_record_type(((closureN)self_731603)->elements[1])) ){ 
  
closureN_type c_733919;
object e_733923 [2];
c_733919.hdr.mark = gc_color_red;
 c_733919.hdr.grayed = 0;
c_733919.tag = closureN_tag;
 c_733919.fn = (function_type)__lambda_290;
c_733919.num_args = 1;
c_733919.num_elements = 2;
c_733919.elements = (object *)e_733923;
c_733919.elements[0] = ((closureN)self_731603)->elements[0];
c_733919.elements[1] = ((closureN)self_731603)->elements[1];


closureN_type c_733924;
object e_733927 [1];
c_733924.hdr.mark = gc_color_red;
 c_733924.hdr.grayed = 0;
c_733924.tag = closureN_tag;
 c_733924.fn = (function_type)__lambda_291;
c_733924.num_args = 1;
c_733924.num_elements = 1;
c_733924.elements = (object *)e_733927;
c_733924.elements[0] = ((closureN)self_731603)->elements[2];

return_direct_with_clo1(data,(closure)&c_733919,__lambda_290,  &c_733924);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731603)->elements[0], (((closure)  ((closureN)self_731603)->elements[0])->fn),  boolean_f);}
;}
;; 
}

static void __lambda_291(void *data, object self_731606, int argc, object *args) /* object self_731606, object k_731307, object o_73421_73667 */
 {
 object k_731307 = args[0]; object o_73421_73667 = args[1];
  return_direct_with_clo3(data,  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util, (((closure)  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util)->fn),  k_731307, o_73421_73667, ((closureN)self_731606)->elements[0]);; 
}

static void __lambda_290(void *data, object self_731607, int argc, object *args) /* object self_731607, object r_731306 */
 {
 object r_731306 = args[0];
  return_direct_with_clo3(data,  __glo_vector_91for_91each_scheme_base, (((closure)  __glo_vector_91for_91each_scheme_base)->fn),  ((closureN)self_731607)->elements[0], r_731306, ((closureN)self_731607)->elements[1]);; 
}

static void __lambda_288(void *data, object self_731604, int argc, object *args) /* object self_731604, object r_731302 */
 {

  
closureN_type c_733902;
object e_733906 [2];
c_733902.hdr.mark = gc_color_red;
 c_733902.hdr.grayed = 0;
c_733902.tag = closureN_tag;
 c_733902.fn = (function_type)__lambda_289;
c_733902.num_args = 1;
c_733902.num_elements = 2;
c_733902.elements = (object *)e_733906;
c_733902.elements[0] = ((closureN)self_731604)->elements[0];
c_733902.elements[1] = ((closureN)self_731604)->elements[2];



return_direct_with_clo1(data,(closure)&c_733902,__lambda_289,  Cyc_cdr(data, ((closureN)self_731604)->elements[1]));; 
}

static void __lambda_289(void *data, object self_731605, int argc, object *args) /* object self_731605, object r_731303 */
 {
 object r_731303 = args[0];
  return_direct_with_clo3(data,  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util, (((closure)  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util)->fn),  ((closureN)self_731605)->elements[0], r_731303, ((closureN)self_731605)->elements[1]);; 
}

static void __lambda_342(void *data, object _, int argc, object *args) {object k = args[0];object obj = args[1];object val = args[2];object result = boolean_f;
    if (is_object_type(obj)) {
      immutable(obj) = (val == boolean_f) ? 0 : 1;
      result = boolean_t;
    }
    return_closcall1(data, k, result);  }
static void __lambda_273(void *data, object _, int argc, object *args) /* closure _,object k_731276, object str_73398_73651, object delim_73399_73652 */
 {
object k_731276 = args[0]; object str_73398_73651 = args[1]; object delim_73399_73652 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:string-split");

closureN_type c_733792;
object e_733875 [3];
c_733792.hdr.mark = gc_color_red;
 c_733792.hdr.grayed = 0;
c_733792.tag = closureN_tag;
 c_733792.fn = (function_type)__lambda_274;
c_733792.num_args = 1;
c_733792.num_elements = 3;
c_733792.elements = (object *)e_733875;
c_733792.elements[0] = delim_73399_73652;
c_733792.elements[1] = k_731276;
c_733792.elements[2] = str_73398_73651;


mclosure0(c_733876, (function_type)__lambda_283);c_733876.num_args = 2;
return_direct_with_clo1(data,(closure)&c_733792,__lambda_274,  &c_733876);; 
}

static void __lambda_283(void *data, object self_731590, int argc, object *args) /* object self_731590, object k_731294, object current_73411_73663, object output_73412_73664 */
 {
 object k_731294 = args[0]; object current_73411_73663 = args[1]; object output_73412_73664 = args[2];
  
closureN_type c_733878;
object e_733891 [2];
c_733878.hdr.mark = gc_color_red;
 c_733878.hdr.grayed = 0;
c_733878.tag = closureN_tag;
 c_733878.fn = (function_type)__lambda_284;
c_733878.num_args = 1;
c_733878.num_elements = 2;
c_733878.elements = (object *)e_733891;
c_733878.elements[0] = k_731294;
c_733878.elements[1] = output_73412_73664;

return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  &c_733878, current_73411_73663);; 
}

static void __lambda_284(void *data, object self_731591, int argc, object *args) /* object self_731591, object r_731296 */
 {
 object r_731296 = args[0];
  
closureN_type c_733880;
object e_733887 [2];
c_733880.hdr.mark = gc_color_red;
 c_733880.hdr.grayed = 0;
c_733880.tag = closureN_tag;
 c_733880.fn = (function_type)__lambda_285;
c_733880.num_args = 1;
c_733880.num_elements = 2;
c_733880.elements = (object *)e_733887;
c_733880.elements[0] = ((closureN)self_731591)->elements[0];
c_733880.elements[1] = ((closureN)self_731591)->elements[1];


object c_733890 = Cyc_list2string(data,(closure)&c_733880,r_731296);
return_closcall1(data,(closure)&c_733880,  c_733890);; 
}

static void __lambda_285(void *data, object self_731592, int argc, object *args) /* object self_731592, object r_731295 */
 {
 object r_731295 = args[0];
  
pair_type local_733885; 
return_direct_with_clo1(data,  ((closureN)self_731592)->elements[0], (((closure)  ((closureN)self_731592)->elements[0])->fn),  set_pair_as_expr(&local_733885, r_731295, ((closureN)self_731592)->elements[1]));; 
}

static void __lambda_274(void *data, object self_731593, int argc, object *args) /* object self_731593, object add_73400_73653 */
 {
 object add_73400_73653 = args[0];
  
closureN_type c_733794;
object e_733873 [3];
c_733794.hdr.mark = gc_color_red;
 c_733794.hdr.grayed = 0;
c_733794.tag = closureN_tag;
 c_733794.fn = (function_type)__lambda_275;
c_733794.num_args = 1;
c_733794.num_elements = 3;
c_733794.elements = (object *)e_733873;
c_733794.elements[0] = add_73400_73653;
c_733794.elements[1] = ((closureN)self_731593)->elements[0];
c_733794.elements[2] = ((closureN)self_731593)->elements[1];

return_direct_with_clo2(data,  __glo_string_91_125list_scheme_base, (((closure)  __glo_string_91_125list_scheme_base)->fn),  &c_733794, ((closureN)self_731593)->elements[2]);; 
}

static void __lambda_275(void *data, object self_731594, int argc, object *args) /* object self_731594, object r_731278 */
 {
 object r_731278 = args[0];
  
closureN_type c_733796;
object e_733872 [3];
c_733796.hdr.mark = gc_color_red;
 c_733796.hdr.grayed = 0;
c_733796.tag = closureN_tag;
 c_733796.fn = (function_type)__lambda_276;
c_733796.num_args = 3;
c_733796.num_elements = 3;
c_733796.elements = (object *)e_733872;
c_733796.elements[0] = ((closureN)self_731594)->elements[0];
c_733796.elements[1] = ((closureN)self_731594)->elements[1];
c_733796.elements[2] = ((closureN)self_731594)->elements[2];

return_direct_with_clo3(data,(closure)&c_733796,__lambda_276,  r_731278, NULL, NULL);; 
}

static void __lambda_276(void *data, object self_731595, int argc, object *args) /* object self_731595, object input_73402_73654, object output_73403_73655, object current_73404_73656 */
 {
 object input_73402_73654 = args[0]; object output_73403_73655 = args[1]; object current_73404_73656 = args[2];
  
closureN_type c_733798;
object e_733871 [6];
c_733798.hdr.mark = gc_color_red;
 c_733798.hdr.grayed = 0;
c_733798.tag = closureN_tag;
 c_733798.fn = (function_type)__lambda_277;
c_733798.num_args = 1;
c_733798.num_elements = 6;
c_733798.elements = (object *)e_733871;
c_733798.elements[0] = ((closureN)self_731595)->elements[0];
c_733798.elements[1] = current_73404_73656;
c_733798.elements[2] = ((closureN)self_731595)->elements[1];
c_733798.elements[3] = input_73402_73654;
c_733798.elements[4] = ((closureN)self_731595)->elements[2];
c_733798.elements[5] = output_73403_73655;

return_direct_with_clo1(data,(closure)&c_733798,__lambda_277,  boolean_f);; 
}

static void __lambda_277(void *data, object self_731596, int argc, object *args) /* object self_731596, object loop_73405_73657 */
 {
 object loop_73405_73657 = args[0];
  
closureN_type c_733800;
object e_733867 [6];
c_733800.hdr.mark = gc_color_red;
 c_733800.hdr.grayed = 0;
c_733800.tag = closureN_tag;
 c_733800.fn = (function_type)__lambda_326;
c_733800.num_args = 1;
c_733800.num_elements = 6;
c_733800.elements = (object *)e_733867;
c_733800.elements[0] = ((closureN)self_731596)->elements[0];
c_733800.elements[1] = ((closureN)self_731596)->elements[1];
c_733800.elements[2] = ((closureN)self_731596)->elements[2];
c_733800.elements[3] = ((closureN)self_731596)->elements[3];
c_733800.elements[4] = ((closureN)self_731596)->elements[4];
c_733800.elements[5] = ((closureN)self_731596)->elements[5];


pair_type local_733870; 
return_direct_with_clo1(data,(closure)&c_733800,__lambda_326,  set_cell_as_expr(&local_733870, loop_73405_73657));; 
}

static void __lambda_326(void *data, object self_731597, int argc, object *args) /* object self_731597, object loop_73405_73657 */
 {
 object loop_73405_73657 = args[0];
  
closureN_type c_733802;
object e_733817 [5];
c_733802.hdr.mark = gc_color_red;
 c_733802.hdr.grayed = 0;
c_733802.tag = closureN_tag;
 c_733802.fn = (function_type)__lambda_278;
c_733802.num_args = 1;
c_733802.num_elements = 5;
c_733802.elements = (object *)e_733817;
c_733802.elements[0] = ((closureN)self_731597)->elements[1];
c_733802.elements[1] = ((closureN)self_731597)->elements[3];
c_733802.elements[2] = ((closureN)self_731597)->elements[4];
c_733802.elements[3] = loop_73405_73657;
c_733802.elements[4] = ((closureN)self_731597)->elements[5];


closureN_type c_733818;
object e_733866 [3];
c_733818.hdr.mark = gc_color_red;
 c_733818.hdr.grayed = 0;
c_733818.tag = closureN_tag;
 c_733818.fn = (function_type)__lambda_280;
c_733818.num_args = 3;
c_733818.num_elements = 3;
c_733818.elements = (object *)e_733866;
c_733818.elements[0] = ((closureN)self_731597)->elements[0];
c_733818.elements[1] = ((closureN)self_731597)->elements[2];
c_733818.elements[2] = loop_73405_73657;

return_direct_with_clo1(data,(closure)&c_733802,__lambda_278,  &c_733818);; 
}

static void __lambda_280(void *data, object self_731598, int argc, object *args) /* object self_731598, object k_731283, object input_73406_73658, object output_73407_73659, object current_73408_73660 */
 {
 object k_731283 = args[0]; object input_73406_73658 = args[1]; object output_73407_73659 = args[2]; object current_73408_73660 = args[3];
    
if( (boolean_f != Cyc_is_null(input_73406_73658)) ){ 
    
if( (boolean_f != Cyc_is_null(output_73407_73659)) ){ 
  return_direct_with_clo1(data,  k_731283, (((closure)  k_731283)->fn),  NULL);
} else { 
  
closureN_type c_733826;
object e_733829 [1];
c_733826.hdr.mark = gc_color_red;
 c_733826.hdr.grayed = 0;
c_733826.tag = closureN_tag;
 c_733826.fn = (function_type)__lambda_281;
c_733826.num_args = 1;
c_733826.num_elements = 1;
c_733826.elements = (object *)e_733829;
c_733826.elements[0] = k_731283;

return_closcall3(data,  ((closureN)self_731598)->elements[0],  &c_733826, current_73408_73660, output_73407_73659);}
;
} else { 
    
  
if( (boolean_f != Cyc_char_eq_op(data, Cyc_car(data, input_73406_73658), ((closureN)self_731598)->elements[1])) ){ 
    
if( (boolean_f != Cyc_is_null(current_73408_73660)) ){ 
  



return_closcall4(data,  car(((closureN)self_731598)->elements[2]),  k_731283, Cyc_cdr(data, input_73406_73658), output_73407_73659, current_73408_73660);
} else { 
  
closureN_type c_733845;
object e_733854 [3];
c_733845.hdr.mark = gc_color_red;
 c_733845.hdr.grayed = 0;
c_733845.tag = closureN_tag;
 c_733845.fn = (function_type)__lambda_282;
c_733845.num_args = 1;
c_733845.num_elements = 3;
c_733845.elements = (object *)e_733854;
c_733845.elements[0] = input_73406_73658;
c_733845.elements[1] = k_731283;
c_733845.elements[2] = ((closureN)self_731598)->elements[2];

return_closcall3(data,  ((closureN)self_731598)->elements[0],  &c_733845, current_73408_73660, output_73407_73659);}
;
} else { 
  




pair_type local_733863; 


return_closcall4(data,  car(((closureN)self_731598)->elements[2]),  k_731283, Cyc_cdr(data, input_73406_73658), output_73407_73659, set_pair_as_expr(&local_733863, Cyc_car(data, input_73406_73658), current_73408_73660));}
;}
;; 
}

static void __lambda_282(void *data, object self_731600, int argc, object *args) /* object self_731600, object r_731291 */
 {
 object r_731291 = args[0];
  



return_closcall4(data,  car(((closureN)self_731600)->elements[2]),  ((closureN)self_731600)->elements[1], Cyc_cdr(data, ((closureN)self_731600)->elements[0]), r_731291, NULL);; 
}

static void __lambda_281(void *data, object self_731599, int argc, object *args) /* object self_731599, object r_731286 */
 {
 object r_731286 = args[0];
  return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  ((closureN)self_731599)->elements[0], r_731286);; 
}

static void __lambda_278(void *data, object self_731601, int argc, object *args) /* object self_731601, object r_731282 */
 {
 object r_731282 = args[0];
  
closureN_type c_733804;
object e_733813 [5];
c_733804.hdr.mark = gc_color_red;
 c_733804.hdr.grayed = 0;
c_733804.tag = closureN_tag;
 c_733804.fn = (function_type)__lambda_279;
c_733804.num_args = 1;
c_733804.num_elements = 5;
c_733804.elements = (object *)e_733813;
c_733804.elements[0] = ((closureN)self_731601)->elements[0];
c_733804.elements[1] = ((closureN)self_731601)->elements[1];
c_733804.elements[2] = ((closureN)self_731601)->elements[2];
c_733804.elements[3] = ((closureN)self_731601)->elements[3];
c_733804.elements[4] = ((closureN)self_731601)->elements[4];



return_direct_with_clo1(data,(closure)&c_733804,__lambda_279,  Cyc_set_cell(data, ((closureN)self_731601)->elements[3], r_731282));; 
}

static void __lambda_279(void *data, object self_731602, int argc, object *args) /* object self_731602, object r_731281 */
 {

  

return_closcall4(data,  car(((closureN)self_731602)->elements[3]),  ((closureN)self_731602)->elements[2], ((closureN)self_731602)->elements[1], ((closureN)self_731602)->elements[4], ((closureN)self_731602)->elements[0]);; 
}

static void __lambda_269(void *data, object _, int argc, object *args) /* closure _,object k_731264, object lst_73388_73648, object delim_73389_73649 */
 {
object k_731264 = args[0]; object lst_73388_73648 = args[1]; object delim_73389_73649 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:string-join");

closureN_type c_733748;
object e_733756 [1];
c_733748.hdr.mark = gc_color_red;
 c_733748.hdr.grayed = 0;
c_733748.tag = closureN_tag;
 c_733748.fn = (function_type)__lambda_270;
c_733748.num_args = 0;
c_733748.num_elements = 1;
c_733748.elements = (object *)e_733756;
c_733748.elements[0] = delim_73389_73649;


closureN_type c_733757;
object e_733789 [2];
c_733757.hdr.mark = gc_color_red;
 c_733757.hdr.grayed = 0;
c_733757.tag = closureN_tag;
 c_733757.fn = (function_type)__lambda_271;
c_733757.num_args = 1;
c_733757.num_elements = 2;
c_733757.elements = (object *)e_733789;
c_733757.elements[0] = k_731264;
c_733757.elements[1] = lst_73388_73648;

return_direct_with_clo1(data,(closure)&c_733748,__lambda_270,  &c_733757);; 
}

static void __lambda_271(void *data, object self_731587, int argc, object *args) /* object self_731587, object delim_85_73390_73650 */
 {
 object delim_85_73390_73650 = args[0];
    
if( (boolean_f != Cyc_is_null(((closureN)self_731587)->elements[1])) ){ 
  
make_utf8_string_with_len(c_733763, "", 0, 0);
return_direct_with_clo1(data,  ((closureN)self_731587)->elements[0], (((closure)  ((closureN)self_731587)->elements[0])->fn),  &c_733763);
} else { 
    
  
if( (boolean_f != Cyc_num_fast_eq_op(data, Cyc_length(data, ((closureN)self_731587)->elements[1]), obj_int2obj(1))) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731587)->elements[0], (((closure)  ((closureN)self_731587)->elements[0])->fn),  Cyc_car(data, ((closureN)self_731587)->elements[1]));
} else { 
  
closureN_type c_733775;
object e_733785 [3];
c_733775.hdr.mark = gc_color_red;
 c_733775.hdr.grayed = 0;
c_733775.tag = closureN_tag;
 c_733775.fn = (function_type)__lambda_272;
c_733775.num_args = 1;
c_733775.num_elements = 3;
c_733775.elements = (object *)e_733785;
c_733775.elements[0] = delim_85_73390_73650;
c_733775.elements[1] = ((closureN)self_731587)->elements[0];
c_733775.elements[2] = ((closureN)self_731587)->elements[1];



return_direct_with_clo3(data,  __glo_string_91join_scheme_cyclone_util, (((closure)  __glo_string_91join_scheme_cyclone_util)->fn),  &c_733775, Cyc_cdr(data, ((closureN)self_731587)->elements[1]), delim_85_73390_73650);}
;}
;; 
}

static void __lambda_272(void *data, object self_731588, int argc, object *args) /* object self_731588, object r_731269 */
 {
 object r_731269 = args[0];
  


object c_733780 = Cyc_string_append(data,  ((closureN)self_731588)->elements[1],3,Cyc_car(data, ((closureN)self_731588)->elements[2]), ((closureN)self_731588)->elements[0], r_731269);
return_direct_with_clo1(data,  ((closureN)self_731588)->elements[1], (((closure)  ((closureN)self_731588)->elements[1])->fn),  c_733780);; 
}

static void __lambda_270(void *data, object self_731589, int argc, object *args) /* object self_731589, object k_731272 */
 {
 object k_731272 = args[0];
    
if( (boolean_f != Cyc_is_char(((closureN)self_731589)->elements[0])) ){ 
  return_direct_with_clo2(data,  __glo_string_scheme_base, (((closure)  __glo_string_scheme_base)->fn),  k_731272, ((closureN)self_731589)->elements[0]);
} else { 
  return_direct_with_clo1(data,  k_731272, (((closure)  k_731272)->fn),  ((closureN)self_731589)->elements[0]);}
;; 
}

static void __lambda_267(void *data, object _, int argc, object *args) /* closure _,object k_731258, object symbol_73387_73647 */
 {
object k_731258 = args[0]; object symbol_73387_73647 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:mangle-global");

closureN_type c_733738;
object e_733745 [1];
c_733738.hdr.mark = gc_color_red;
 c_733738.hdr.grayed = 0;
c_733738.tag = closureN_tag;
 c_733738.fn = (function_type)__lambda_268;
c_733738.num_args = 1;
c_733738.num_elements = 1;
c_733738.elements = (object *)e_733745;
c_733738.elements[0] = k_731258;

return_direct_with_clo2(data,  __glo_mangle_scheme_cyclone_util, (((closure)  __glo_mangle_scheme_cyclone_util)->fn),  &c_733738, symbol_73387_73647);; 
}

static void __lambda_268(void *data, object self_731586, int argc, object *args) /* object self_731586, object r_731259 */
 {
 object r_731259 = args[0];
  
make_utf8_string_with_len(c_733744, "__glo_", 6, 6);

object c_733743 = Cyc_string_append(data,  ((closureN)self_731586)->elements[0],2,&c_733744, r_731259);
return_direct_with_clo1(data,  ((closureN)self_731586)->elements[0], (((closure)  ((closureN)self_731586)->elements[0])->fn),  c_733743);; 
}

static void __lambda_245(void *data, object _, int argc, object *args) /* closure _,object k_731226, object symbol_73378_73642 */
 {
object k_731226 = args[0]; object symbol_73378_73642 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:mangle");

closureN_type c_733573;
object e_733735 [2];
c_733573.hdr.mark = gc_color_red;
 c_733573.hdr.grayed = 0;
c_733573.tag = closureN_tag;
 c_733573.fn = (function_type)__lambda_246;
c_733573.num_args = 2;
c_733573.num_elements = 2;
c_733573.elements = (object *)e_733735;
c_733573.elements[0] = k_731226;
c_733573.elements[1] = symbol_73378_73642;

return_direct_with_clo2(data,(closure)&c_733573,__lambda_246,  boolean_f, boolean_f);; 
}

static void __lambda_246(void *data, object self_731563, int argc, object *args) /* object self_731563, object m_73379_73643, object ident_73380_73644 */
 {
 object m_73379_73643 = args[0]; object ident_73380_73644 = args[1];
  
closureN_type c_733575;
object e_733731 [3];
c_733575.hdr.mark = gc_color_red;
 c_733575.hdr.grayed = 0;
c_733575.tag = closureN_tag;
 c_733575.fn = (function_type)__lambda_325;
c_733575.num_args = 1;
c_733575.num_elements = 3;
c_733575.elements = (object *)e_733731;
c_733575.elements[0] = ident_73380_73644;
c_733575.elements[1] = ((closureN)self_731563)->elements[0];
c_733575.elements[2] = ((closureN)self_731563)->elements[1];


pair_type local_733734; 
return_direct_with_clo1(data,(closure)&c_733575,__lambda_325,  set_cell_as_expr(&local_733734, m_73379_73643));; 
}

static void __lambda_325(void *data, object self_731564, int argc, object *args) /* object self_731564, object m_73379_73643 */
 {
 object m_73379_73643 = args[0];
  
closureN_type c_733577;
object e_733726 [3];
c_733577.hdr.mark = gc_color_red;
 c_733577.hdr.grayed = 0;
c_733577.tag = closureN_tag;
 c_733577.fn = (function_type)__lambda_324;
c_733577.num_args = 1;
c_733577.num_elements = 3;
c_733577.elements = (object *)e_733726;
c_733577.elements[0] = ((closureN)self_731564)->elements[1];
c_733577.elements[1] = m_73379_73643;
c_733577.elements[2] = ((closureN)self_731564)->elements[2];


pair_type local_733729; 
return_direct_with_clo1(data,(closure)&c_733577,__lambda_324,  set_cell_as_expr(&local_733729, ((closureN)self_731564)->elements[0]));; 
}

static void __lambda_324(void *data, object self_731565, int argc, object *args) /* object self_731565, object ident_73380_73644 */
 {
 object ident_73380_73644 = args[0];
  
closureN_type c_733579;
object e_733641 [4];
c_733579.hdr.mark = gc_color_red;
 c_733579.hdr.grayed = 0;
c_733579.tag = closureN_tag;
 c_733579.fn = (function_type)__lambda_247;
c_733579.num_args = 1;
c_733579.num_elements = 4;
c_733579.elements = (object *)e_733641;
c_733579.elements[0] = ident_73380_73644;
c_733579.elements[1] = ((closureN)self_731565)->elements[0];
c_733579.elements[2] = ((closureN)self_731565)->elements[1];
c_733579.elements[3] = ((closureN)self_731565)->elements[2];


closureN_type c_733642;
object e_733725 [1];
c_733642.hdr.mark = gc_color_red;
 c_733642.hdr.grayed = 0;
c_733642.tag = closureN_tag;
 c_733642.fn = (function_type)__lambda_256;
c_733642.num_args = 1;
c_733642.num_elements = 1;
c_733642.elements = (object *)e_733725;
c_733642.elements[0] = ((closureN)self_731565)->elements[1];

return_direct_with_clo1(data,(closure)&c_733579,__lambda_247,  &c_733642);; 
}

static void __lambda_256(void *data, object self_731566, int argc, object *args) /* object self_731566, object k_731236, object chars_73381_73645 */
 {
 object k_731236 = args[0]; object chars_73381_73645 = args[1];
    
if( (boolean_f != Cyc_is_null(chars_73381_73645)) ){ 
  return_direct_with_clo1(data,  k_731236, (((closure)  k_731236)->fn),  NULL);
} else { 
  
closureN_type c_733647;
object e_733666 [1];
c_733647.hdr.mark = gc_color_red;
 c_733647.hdr.grayed = 0;
c_733647.tag = closureN_tag;
 c_733647.fn = (function_type)__lambda_257;
c_733647.num_args = 0;
c_733647.num_elements = 1;
c_733647.elements = (object *)e_733666;
c_733647.elements[0] = chars_73381_73645;


closureN_type c_733667;
object e_733724 [3];
c_733667.hdr.mark = gc_color_red;
 c_733667.hdr.grayed = 0;
c_733667.tag = closureN_tag;
 c_733667.fn = (function_type)__lambda_259;
c_733667.num_args = 1;
c_733667.num_elements = 3;
c_733667.elements = (object *)e_733724;
c_733667.elements[0] = chars_73381_73645;
c_733667.elements[1] = k_731236;
c_733667.elements[2] = ((closureN)self_731566)->elements[0];

return_direct_with_clo1(data,(closure)&c_733647,__lambda_257,  &c_733667);}
;; 
}

static void __lambda_259(void *data, object self_731567, int argc, object *args) /* object self_731567, object tmp_73383_73385_73646 */
 {
 object tmp_73383_73385_73646 = args[0];
  
closureN_type c_733669;
object e_733677 [2];
c_733669.hdr.mark = gc_color_red;
 c_733669.hdr.grayed = 0;
c_733669.tag = closureN_tag;
 c_733669.fn = (function_type)__lambda_260;
c_733669.num_args = 0;
c_733669.num_elements = 2;
c_733669.elements = (object *)e_733677;
c_733669.elements[0] = ((closureN)self_731567)->elements[0];
c_733669.elements[1] = tmp_73383_73385_73646;


closureN_type c_733678;
object e_733723 [3];
c_733678.hdr.mark = gc_color_red;
 c_733678.hdr.grayed = 0;
c_733678.tag = closureN_tag;
 c_733678.fn = (function_type)__lambda_261;
c_733678.num_args = 1;
c_733678.num_elements = 3;
c_733678.elements = (object *)e_733723;
c_733678.elements[0] = ((closureN)self_731567)->elements[0];
c_733678.elements[1] = ((closureN)self_731567)->elements[1];
c_733678.elements[2] = ((closureN)self_731567)->elements[2];

return_direct_with_clo1(data,(closure)&c_733669,__lambda_260,  &c_733678);; 
}

static void __lambda_261(void *data, object self_731568, int argc, object *args) /* object self_731568, object r_731238 */
 {
 object r_731238 = args[0];
  if( (boolean_f != r_731238) ){ 
  


closureN_type c_733683;
object e_733692 [2];
c_733683.hdr.mark = gc_color_red;
 c_733683.hdr.grayed = 0;
c_733683.tag = closureN_tag;
 c_733683.fn = (function_type)__lambda_262;
c_733683.num_args = 1;
c_733683.num_elements = 2;
c_733683.elements = (object *)e_733692;
c_733683.elements[0] = ((closureN)self_731568)->elements[0];
c_733683.elements[1] = ((closureN)self_731568)->elements[1];



return_closcall2(data,  car(((closureN)self_731568)->elements[2]),  &c_733683, Cyc_cdr(data, ((closureN)self_731568)->elements[0]));
} else { 
  
closureN_type c_733697;
object e_733719 [3];
c_733697.hdr.mark = gc_color_red;
 c_733697.hdr.grayed = 0;
c_733697.tag = closureN_tag;
 c_733697.fn = (function_type)__lambda_263;
c_733697.num_args = 1;
c_733697.num_elements = 3;
c_733697.elements = (object *)e_733719;
c_733697.elements[0] = ((closureN)self_731568)->elements[0];
c_733697.elements[1] = ((closureN)self_731568)->elements[1];
c_733697.elements[2] = ((closureN)self_731568)->elements[2];



return_direct_with_clo2(data,  __glo_char_91_125natural_scheme_cyclone_util, (((closure)  __glo_char_91_125natural_scheme_cyclone_util)->fn),  &c_733697, Cyc_car(data, ((closureN)self_731568)->elements[0]));}
;; 
}

static void __lambda_263(void *data, object self_731570, int argc, object *args) /* object self_731570, object r_731246 */
 {
 object r_731246 = args[0];
  
closureN_type c_733699;
object e_733718 [3];
c_733699.hdr.mark = gc_color_red;
 c_733699.hdr.grayed = 0;
c_733699.tag = closureN_tag;
 c_733699.fn = (function_type)__lambda_264;
c_733699.num_args = 1;
c_733699.num_elements = 3;
c_733699.elements = (object *)e_733718;
c_733699.elements[0] = ((closureN)self_731570)->elements[0];
c_733699.elements[1] = ((closureN)self_731570)->elements[1];
c_733699.elements[2] = ((closureN)self_731570)->elements[2];

return_direct_with_clo2(data,  __glo_integer_91_125char_91list_scheme_cyclone_util, (((closure)  __glo_integer_91_125char_91list_scheme_cyclone_util)->fn),  &c_733699, r_731246);; 
}

static void __lambda_264(void *data, object self_731571, int argc, object *args) /* object self_731571, object r_731243 */
 {
 object r_731243 = args[0];
  


closureN_type c_733704;
object e_733714 [2];
c_733704.hdr.mark = gc_color_red;
 c_733704.hdr.grayed = 0;
c_733704.tag = closureN_tag;
 c_733704.fn = (function_type)__lambda_265;
c_733704.num_args = 1;
c_733704.num_elements = 2;
c_733704.elements = (object *)e_733714;
c_733704.elements[0] = ((closureN)self_731571)->elements[1];
c_733704.elements[1] = r_731243;



return_closcall2(data,  car(((closureN)self_731571)->elements[2]),  &c_733704, Cyc_cdr(data, ((closureN)self_731571)->elements[0]));; 
}

static void __lambda_265(void *data, object self_731572, int argc, object *args) /* object self_731572, object r_731244 */
 {
 object r_731244 = args[0];
  
closureN_type c_733706;
object e_733712 [1];
c_733706.hdr.mark = gc_color_red;
 c_733706.hdr.grayed = 0;
c_733706.tag = closureN_tag;
 c_733706.fn = (function_type)__lambda_266;
c_733706.num_args = 1;
c_733706.num_elements = 1;
c_733706.elements = (object *)e_733712;
c_733706.elements[0] = ((closureN)self_731572)->elements[0];

return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_733706, ((closureN)self_731572)->elements[1], r_731244);; 
}

static void __lambda_266(void *data, object self_731573, int argc, object *args) /* object self_731573, object r_731242 */
 {
 object r_731242 = args[0];
  
pair_type local_733711; 
return_direct_with_clo1(data,  ((closureN)self_731573)->elements[0], (((closure)  ((closureN)self_731573)->elements[0])->fn),  set_pair_as_expr(&local_733711, obj_char2obj(95), r_731242));; 
}

static void __lambda_262(void *data, object self_731569, int argc, object *args) /* object self_731569, object r_731240 */
 {
 object r_731240 = args[0];
  
pair_type local_733688; 


return_direct_with_clo1(data,  ((closureN)self_731569)->elements[1], (((closure)  ((closureN)self_731569)->elements[1])->fn),  set_pair_as_expr(&local_733688, Cyc_car(data, ((closureN)self_731569)->elements[0]), r_731240));; 
}

static void __lambda_260(void *data, object self_731574, int argc, object *args) /* object self_731574, object k_731249 */
 {
 object k_731249 = args[0];
  if( (boolean_f != ((closureN)self_731574)->elements[1]) ){ 
  return_direct_with_clo1(data,  k_731249, (((closure)  k_731249)->fn),  ((closureN)self_731574)->elements[1]);
} else { 
  

return_direct_with_clo2(data,  __glo_char_91numeric_127_scheme__char, (((closure)  __glo_char_91numeric_127_scheme__char)->fn),  k_731249, Cyc_car(data, ((closureN)self_731574)->elements[0]));}
;; 
}

static void __lambda_257(void *data, object self_731575, int argc, object *args) /* object self_731575, object k_731251 */
 {
 object k_731251 = args[0];
  
closureN_type c_733649;
object e_733662 [2];
c_733649.hdr.mark = gc_color_red;
 c_733649.hdr.grayed = 0;
c_733649.tag = closureN_tag;
 c_733649.fn = (function_type)__lambda_258;
c_733649.num_args = 1;
c_733649.num_elements = 2;
c_733649.elements = (object *)e_733662;
c_733649.elements[0] = ((closureN)self_731575)->elements[0];
c_733649.elements[1] = k_731251;



return_direct_with_clo2(data,  __glo_char_91alphabetic_127_scheme__char, (((closure)  __glo_char_91alphabetic_127_scheme__char)->fn),  &c_733649, Cyc_car(data, ((closureN)self_731575)->elements[0]));; 
}

static void __lambda_258(void *data, object self_731576, int argc, object *args) /* object self_731576, object r_731252 */
 {
 object r_731252 = args[0];
  if( (boolean_f != r_731252) ){ 
  
complex_num_type local_733654; 




return_direct_with_clo1(data,  ((closureN)self_731576)->elements[1], (((closure)  ((closureN)self_731576)->elements[1])->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_733654, Cyc_char_eq_op(data, Cyc_car(data, ((closureN)self_731576)->elements[0]), obj_char2obj(95))));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731576)->elements[1], (((closure)  ((closureN)self_731576)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_247(void *data, object self_731577, int argc, object *args) /* object self_731577, object r_731235 */
 {
 object r_731235 = args[0];
  
closureN_type c_733581;
object e_733637 [4];
c_733581.hdr.mark = gc_color_red;
 c_733581.hdr.grayed = 0;
c_733581.tag = closureN_tag;
 c_733581.fn = (function_type)__lambda_248;
c_733581.num_args = 1;
c_733581.num_elements = 4;
c_733581.elements = (object *)e_733637;
c_733581.elements[0] = ((closureN)self_731577)->elements[0];
c_733581.elements[1] = ((closureN)self_731577)->elements[1];
c_733581.elements[2] = ((closureN)self_731577)->elements[2];
c_733581.elements[3] = ((closureN)self_731577)->elements[3];



return_direct_with_clo1(data,(closure)&c_733581,__lambda_248,  Cyc_set_cell(data, ((closureN)self_731577)->elements[2], r_731235));; 
}

static void __lambda_248(void *data, object self_731578, int argc, object *args) /* object self_731578, object r_731227 */
 {

  
closureN_type c_733583;
object e_733632 [3];
c_733583.hdr.mark = gc_color_red;
 c_733583.hdr.grayed = 0;
c_733583.tag = closureN_tag;
 c_733583.fn = (function_type)__lambda_249;
c_733583.num_args = 1;
c_733583.num_elements = 3;
c_733583.elements = (object *)e_733632;
c_733583.elements[0] = ((closureN)self_731578)->elements[0];
c_733583.elements[1] = ((closureN)self_731578)->elements[1];
c_733583.elements[2] = ((closureN)self_731578)->elements[2];


object c_733635 = Cyc_symbol2string(data,(closure)&c_733583,((closureN)self_731578)->elements[3]);
return_closcall1(data,(closure)&c_733583,  c_733635);; 
}

static void __lambda_249(void *data, object self_731579, int argc, object *args) /* object self_731579, object r_731234 */
 {
 object r_731234 = args[0];
  
closureN_type c_733585;
object e_733631 [3];
c_733585.hdr.mark = gc_color_red;
 c_733585.hdr.grayed = 0;
c_733585.tag = closureN_tag;
 c_733585.fn = (function_type)__lambda_250;
c_733585.num_args = 1;
c_733585.num_elements = 3;
c_733585.elements = (object *)e_733631;
c_733585.elements[0] = ((closureN)self_731579)->elements[0];
c_733585.elements[1] = ((closureN)self_731579)->elements[1];
c_733585.elements[2] = ((closureN)self_731579)->elements[2];

return_direct_with_clo2(data,  __glo_string_91_125list_scheme_base, (((closure)  __glo_string_91_125list_scheme_base)->fn),  &c_733585, r_731234);; 
}

static void __lambda_250(void *data, object self_731580, int argc, object *args) /* object self_731580, object r_731233 */
 {
 object r_731233 = args[0];
  


closureN_type c_733590;
object e_733630 [2];
c_733590.hdr.mark = gc_color_red;
 c_733590.hdr.grayed = 0;
c_733590.tag = closureN_tag;
 c_733590.fn = (function_type)__lambda_251;
c_733590.num_args = 1;
c_733590.num_elements = 2;
c_733590.elements = (object *)e_733630;
c_733590.elements[0] = ((closureN)self_731580)->elements[0];
c_733590.elements[1] = ((closureN)self_731580)->elements[1];

return_closcall2(data,  car(((closureN)self_731580)->elements[2]),  &c_733590, r_731233);; 
}

static void __lambda_251(void *data, object self_731581, int argc, object *args) /* object self_731581, object r_731232 */
 {
 object r_731232 = args[0];
  
closureN_type c_733592;
object e_733626 [2];
c_733592.hdr.mark = gc_color_red;
 c_733592.hdr.grayed = 0;
c_733592.tag = closureN_tag;
 c_733592.fn = (function_type)__lambda_252;
c_733592.num_args = 1;
c_733592.num_elements = 2;
c_733592.elements = (object *)e_733626;
c_733592.elements[0] = ((closureN)self_731581)->elements[0];
c_733592.elements[1] = ((closureN)self_731581)->elements[1];


object c_733629 = Cyc_list2string(data,(closure)&c_733592,r_731232);
return_closcall1(data,(closure)&c_733592,  c_733629);; 
}

static void __lambda_252(void *data, object self_731582, int argc, object *args) /* object self_731582, object r_731231 */
 {
 object r_731231 = args[0];
  
closureN_type c_733594;
object e_733622 [2];
c_733594.hdr.mark = gc_color_red;
 c_733594.hdr.grayed = 0;
c_733594.tag = closureN_tag;
 c_733594.fn = (function_type)__lambda_253;
c_733594.num_args = 1;
c_733594.num_elements = 2;
c_733594.elements = (object *)e_733622;
c_733594.elements[0] = ((closureN)self_731582)->elements[0];
c_733594.elements[1] = ((closureN)self_731582)->elements[1];



return_direct_with_clo1(data,(closure)&c_733594,__lambda_253,  Cyc_set_cell(data, ((closureN)self_731582)->elements[0], r_731231));; 
}

static void __lambda_253(void *data, object self_731583, int argc, object *args) /* object self_731583, object r_731228 */
 {

  
closureN_type c_733596;
object e_733616 [2];
c_733596.hdr.mark = gc_color_red;
 c_733596.hdr.grayed = 0;
c_733596.tag = closureN_tag;
 c_733596.fn = (function_type)__lambda_254;
c_733596.num_args = 1;
c_733596.num_elements = 2;
c_733596.elements = (object *)e_733616;
c_733596.elements[0] = ((closureN)self_731583)->elements[0];
c_733596.elements[1] = ((closureN)self_731583)->elements[1];





return_direct_with_clo1(data,(closure)&c_733596,__lambda_254,  Cyc_string2symbol(data, car(((closureN)self_731583)->elements[0])));; 
}

static void __lambda_254(void *data, object self_731584, int argc, object *args) /* object self_731584, object r_731230 */
 {
 object r_731230 = args[0];
  
closureN_type c_733598;
object e_733613 [2];
c_733598.hdr.mark = gc_color_red;
 c_733598.hdr.grayed = 0;
c_733598.tag = closureN_tag;
 c_733598.fn = (function_type)__lambda_255;
c_733598.num_args = 1;
c_733598.num_elements = 2;
c_733598.elements = (object *)e_733613;
c_733598.elements[0] = ((closureN)self_731584)->elements[0];
c_733598.elements[1] = ((closureN)self_731584)->elements[1];



return_direct_with_clo1(data,(closure)&c_733598,__lambda_255,  memberp(data, r_731230, __glo__85c_91keywords_85_scheme_cyclone_util));; 
}

static void __lambda_255(void *data, object self_731585, int argc, object *args) /* object self_731585, object r_731229 */
 {
 object r_731229 = args[0];
  if( (boolean_f != r_731229) ){ 
  
make_utf8_string_with_len(c_733604, "_", 1, 1);



object c_733603 = Cyc_string_append(data,  ((closureN)self_731585)->elements[1],2,&c_733604, car(((closureN)self_731585)->elements[0]));
return_direct_with_clo1(data,  ((closureN)self_731585)->elements[1], (((closure)  ((closureN)self_731585)->elements[1])->fn),  c_733603);
} else { 
  

return_direct_with_clo1(data,  ((closureN)self_731585)->elements[1], (((closure)  ((closureN)self_731585)->elements[1])->fn),  car(((closureN)self_731585)->elements[0]));}
;; 
}

static void __lambda_233(void *data, object _, int argc, object *args) /* closure _,object k_731212, object use_91env_73362_73630, object renamed_91env_73363_73631 */
 {
object k_731212 = args[0]; object use_91env_73362_73630 = args[1]; object renamed_91env_73363_73631 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:Cyc-er-compare?");

closureN_type c_733487;
object e_733570 [3];
c_733487.hdr.mark = gc_color_red;
 c_733487.hdr.grayed = 0;
c_733487.tag = closureN_tag;
 c_733487.fn = (function_type)__lambda_234;
c_733487.num_args = 1;
c_733487.num_elements = 3;
c_733487.elements = (object *)e_733570;
c_733487.elements[0] = k_731212;
c_733487.elements[1] = renamed_91env_73363_73631;
c_733487.elements[2] = use_91env_73362_73630;

return_direct_with_clo1(data,(closure)&c_733487,__lambda_234,  boolean_f);; 
}

static void __lambda_234(void *data, object self_731550, int argc, object *args) /* object self_731550, object find_91original_91sym_73633 */
 {
 object find_91original_91sym_73633 = args[0];
  
closureN_type c_733489;
object e_733566 [3];
c_733489.hdr.mark = gc_color_red;
 c_733489.hdr.grayed = 0;
c_733489.tag = closureN_tag;
 c_733489.fn = (function_type)__lambda_323;
c_733489.num_args = 1;
c_733489.num_elements = 3;
c_733489.elements = (object *)e_733566;
c_733489.elements[0] = ((closureN)self_731550)->elements[0];
c_733489.elements[1] = ((closureN)self_731550)->elements[1];
c_733489.elements[2] = ((closureN)self_731550)->elements[2];


pair_type local_733569; 
return_direct_with_clo1(data,(closure)&c_733489,__lambda_323,  set_cell_as_expr(&local_733569, find_91original_91sym_73633));; 
}

static void __lambda_323(void *data, object self_731551, int argc, object *args) /* object self_731551, object find_91original_91sym_73633 */
 {
 object find_91original_91sym_73633 = args[0];
  
closureN_type c_733491;
object e_733520 [2];
c_733491.hdr.mark = gc_color_red;
 c_733491.hdr.grayed = 0;
c_733491.tag = closureN_tag;
 c_733491.fn = (function_type)__lambda_235;
c_733491.num_args = 1;
c_733491.num_elements = 2;
c_733491.elements = (object *)e_733520;
c_733491.elements[0] = find_91original_91sym_73633;
c_733491.elements[1] = ((closureN)self_731551)->elements[0];


closureN_type c_733521;
object e_733565 [3];
c_733521.hdr.mark = gc_color_red;
 c_733521.hdr.grayed = 0;
c_733521.tag = closureN_tag;
 c_733521.fn = (function_type)__lambda_240;
c_733521.num_args = 1;
c_733521.num_elements = 3;
c_733521.elements = (object *)e_733565;
c_733521.elements[0] = find_91original_91sym_73633;
c_733521.elements[1] = ((closureN)self_731551)->elements[1];
c_733521.elements[2] = ((closureN)self_731551)->elements[2];

return_direct_with_clo1(data,(closure)&c_733491,__lambda_235,  &c_733521);; 
}

static void __lambda_240(void *data, object self_731552, int argc, object *args) /* object self_731552, object k_731219, object sym_73364_73635 */
 {
 object k_731219 = args[0]; object sym_73364_73635 = args[1];
  
closureN_type c_733523;
object e_733563 [4];
c_733523.hdr.mark = gc_color_red;
 c_733523.hdr.grayed = 0;
c_733523.tag = closureN_tag;
 c_733523.fn = (function_type)__lambda_241;
c_733523.num_args = 1;
c_733523.num_elements = 4;
c_733523.elements = (object *)e_733563;
c_733523.elements[0] = ((closureN)self_731552)->elements[0];
c_733523.elements[1] = k_731219;
c_733523.elements[2] = ((closureN)self_731552)->elements[1];
c_733523.elements[3] = sym_73364_73635;

return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_733523, sym_73364_73635, ((closureN)self_731552)->elements[2], boolean_f);; 
}

static void __lambda_241(void *data, object self_731553, int argc, object *args) /* object self_731553, object val_73365_73636 */
 {
 object val_73365_73636 = args[0];
  
closureN_type c_733525;
object e_733559 [4];
c_733525.hdr.mark = gc_color_red;
 c_733525.hdr.grayed = 0;
c_733525.tag = closureN_tag;
 c_733525.fn = (function_type)__lambda_322;
c_733525.num_args = 1;
c_733525.num_elements = 4;
c_733525.elements = (object *)e_733559;
c_733525.elements[0] = ((closureN)self_731553)->elements[0];
c_733525.elements[1] = ((closureN)self_731553)->elements[1];
c_733525.elements[2] = ((closureN)self_731553)->elements[2];
c_733525.elements[3] = ((closureN)self_731553)->elements[3];


pair_type local_733562; 
return_direct_with_clo1(data,(closure)&c_733525,__lambda_322,  set_cell_as_expr(&local_733562, val_73365_73636));; 
}

static void __lambda_322(void *data, object self_731554, int argc, object *args) /* object self_731554, object val_73365_73636 */
 {
 object val_73365_73636 = args[0];
  
closureN_type c_733527;
object e_733542 [3];
c_733527.hdr.mark = gc_color_red;
 c_733527.hdr.grayed = 0;
c_733527.tag = closureN_tag;
 c_733527.fn = (function_type)__lambda_242;
c_733527.num_args = 0;
c_733527.num_elements = 3;
c_733527.elements = (object *)e_733542;
c_733527.elements[0] = ((closureN)self_731554)->elements[2];
c_733527.elements[1] = ((closureN)self_731554)->elements[3];
c_733527.elements[2] = val_73365_73636;


closureN_type c_733543;
object e_733558 [4];
c_733543.hdr.mark = gc_color_red;
 c_733543.hdr.grayed = 0;
c_733543.tag = closureN_tag;
 c_733543.fn = (function_type)__lambda_244;
c_733543.num_args = 1;
c_733543.num_elements = 4;
c_733543.elements = (object *)e_733558;
c_733543.elements[0] = ((closureN)self_731554)->elements[0];
c_733543.elements[1] = ((closureN)self_731554)->elements[1];
c_733543.elements[2] = ((closureN)self_731554)->elements[3];
c_733543.elements[3] = val_73365_73636;

return_direct_with_clo1(data,(closure)&c_733527,__lambda_242,  &c_733543);; 
}

static void __lambda_244(void *data, object self_731555, int argc, object *args) /* object self_731555, object r_731221 */
 {

    
if( (boolean_f != car(((closureN)self_731555)->elements[3])) ){ 
  



return_closcall2(data,  car(((closureN)self_731555)->elements[0]),  ((closureN)self_731555)->elements[1], car(((closureN)self_731555)->elements[3]));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731555)->elements[1], (((closure)  ((closureN)self_731555)->elements[1])->fn),  ((closureN)self_731555)->elements[2]);}
;; 
}

static void __lambda_242(void *data, object self_731556, int argc, object *args) /* object self_731556, object k_731222 */
 {
 object k_731222 = args[0];
    
if( (boolean_f != car(((closureN)self_731556)->elements[2])) ){ 
  return_direct_with_clo1(data,  k_731222, (((closure)  k_731222)->fn),  Cyc_VOID);
} else { 
  
closureN_type c_733533;
object e_733539 [2];
c_733533.hdr.mark = gc_color_red;
 c_733533.hdr.grayed = 0;
c_733533.tag = closureN_tag;
 c_733533.fn = (function_type)__lambda_243;
c_733533.num_args = 1;
c_733533.num_elements = 2;
c_733533.elements = (object *)e_733539;
c_733533.elements[0] = k_731222;
c_733533.elements[1] = ((closureN)self_731556)->elements[2];

return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_733533, ((closureN)self_731556)->elements[1], ((closureN)self_731556)->elements[0], boolean_f);}
;; 
}

static void __lambda_243(void *data, object self_731557, int argc, object *args) /* object self_731557, object r_731223 */
 {
 object r_731223 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_731557)->elements[0], (((closure)  ((closureN)self_731557)->elements[0])->fn),  Cyc_set_cell(data, ((closureN)self_731557)->elements[1], r_731223));; 
}

static void __lambda_235(void *data, object self_731558, int argc, object *args) /* object self_731558, object r_731218 */
 {
 object r_731218 = args[0];
  
closureN_type c_733493;
object e_733516 [2];
c_733493.hdr.mark = gc_color_red;
 c_733493.hdr.grayed = 0;
c_733493.tag = closureN_tag;
 c_733493.fn = (function_type)__lambda_236;
c_733493.num_args = 1;
c_733493.num_elements = 2;
c_733493.elements = (object *)e_733516;
c_733493.elements[0] = ((closureN)self_731558)->elements[0];
c_733493.elements[1] = ((closureN)self_731558)->elements[1];



return_direct_with_clo1(data,(closure)&c_733493,__lambda_236,  Cyc_set_cell(data, ((closureN)self_731558)->elements[0], r_731218));; 
}

static void __lambda_236(void *data, object self_731559, int argc, object *args) /* object self_731559, object r_731213 */
 {

  
closureN_type c_733496;
object e_733515 [1];
c_733496.hdr.mark = gc_color_red;
 c_733496.hdr.grayed = 0;
c_733496.tag = closureN_tag;
 c_733496.fn = (function_type)__lambda_237;
c_733496.num_args = 2;
c_733496.num_elements = 1;
c_733496.elements = (object *)e_733515;
c_733496.elements[0] = ((closureN)self_731559)->elements[0];

return_direct_with_clo1(data,  ((closureN)self_731559)->elements[1], (((closure)  ((closureN)self_731559)->elements[1])->fn),  &c_733496);; 
}

static void __lambda_237(void *data, object self_731560, int argc, object *args) /* object self_731560, object k_731214, object a_73366_73637, object b_73367_73638 */
 {
 object k_731214 = args[0]; object a_73366_73637 = args[1]; object b_73367_73638 = args[2];
  


closureN_type c_733501;
object e_733514 [3];
c_733501.hdr.mark = gc_color_red;
 c_733501.hdr.grayed = 0;
c_733501.tag = closureN_tag;
 c_733501.fn = (function_type)__lambda_238;
c_733501.num_args = 1;
c_733501.num_elements = 3;
c_733501.elements = (object *)e_733514;
c_733501.elements[0] = b_73367_73638;
c_733501.elements[1] = ((closureN)self_731560)->elements[0];
c_733501.elements[2] = k_731214;

return_closcall2(data,  car(((closureN)self_731560)->elements[0]),  &c_733501, a_73366_73637);; 
}

static void __lambda_238(void *data, object self_731561, int argc, object *args) /* object self_731561, object asym_73370_73639 */
 {
 object asym_73370_73639 = args[0];
  


closureN_type c_733506;
object e_733512 [2];
c_733506.hdr.mark = gc_color_red;
 c_733506.hdr.grayed = 0;
c_733506.tag = closureN_tag;
 c_733506.fn = (function_type)__lambda_239;
c_733506.num_args = 1;
c_733506.num_elements = 2;
c_733506.elements = (object *)e_733512;
c_733506.elements[0] = asym_73370_73639;
c_733506.elements[1] = ((closureN)self_731561)->elements[2];

return_closcall2(data,  car(((closureN)self_731561)->elements[1]),  &c_733506, ((closureN)self_731561)->elements[0]);; 
}

static void __lambda_239(void *data, object self_731562, int argc, object *args) /* object self_731562, object bsym_73373_73640 */
 {
 object bsym_73373_73640 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_731562)->elements[1], (((closure)  ((closureN)self_731562)->elements[1])->fn),  Cyc_eq(((closureN)self_731562)->elements[0], bsym_73373_73640));; 
}

static void __lambda_215(void *data, object _, int argc, object *args) /* closure _,object k_731189, object use_91env_73337_73619, object mac_91env_73338_73620, object binding_91lis_73339_73621 */
 {
object k_731189 = args[0]; object use_91env_73337_73619 = args[1]; object mac_91env_73338_73620 = args[2]; object binding_91lis_73339_73621 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:Cyc-er-rename");

closureN_type c_733351;
object e_733464 [4];
c_733351.hdr.mark = gc_color_red;
 c_733351.hdr.grayed = 0;
c_733351.tag = closureN_tag;
 c_733351.fn = (function_type)__lambda_216;
c_733351.num_args = 1;
c_733351.num_elements = 4;
c_733351.elements = (object *)e_733464;
c_733351.elements[0] = binding_91lis_73339_73621;
c_733351.elements[1] = k_731189;
c_733351.elements[2] = mac_91env_73338_73620;
c_733351.elements[3] = use_91env_73337_73619;


make_pair(c_733466,quote_define,quote_define);c_733466.hdr.immutable = 1;

make_pair(c_733468,quote_define_91syntax,quote_define_91syntax);c_733468.hdr.immutable = 1;

make_pair(c_733470,quote_let_91syntax,quote_let_91syntax);c_733470.hdr.immutable = 1;

make_pair(c_733472,quote_letrec_91syntax,quote_letrec_91syntax);c_733472.hdr.immutable = 1;

make_pair(c_733474,quote_define_91c,quote_define_91c);c_733474.hdr.immutable = 1;

make_pair(c_733476,quote__if,quote__if);c_733476.hdr.immutable = 1;

make_pair(c_733478,quote_lambda,quote_lambda);c_733478.hdr.immutable = 1;

make_pair(c_733480,quote_quote,quote_quote);c_733480.hdr.immutable = 1;

make_pair(c_733482,quote_set_67,quote_set_67);c_733482.hdr.immutable = 1;

make_pair(c_733484,quote_begin,quote_begin);c_733484.hdr.immutable = 1;

make_pair(c_733483,&c_733484,NULL);c_733483.hdr.immutable = 1;

make_pair(c_733481,&c_733482,&c_733483);c_733481.hdr.immutable = 1;

make_pair(c_733479,&c_733480,&c_733481);c_733479.hdr.immutable = 1;

make_pair(c_733477,&c_733478,&c_733479);c_733477.hdr.immutable = 1;

make_pair(c_733475,&c_733476,&c_733477);c_733475.hdr.immutable = 1;

make_pair(c_733473,&c_733474,&c_733475);c_733473.hdr.immutable = 1;

make_pair(c_733471,&c_733472,&c_733473);c_733471.hdr.immutable = 1;

make_pair(c_733469,&c_733470,&c_733471);c_733469.hdr.immutable = 1;

make_pair(c_733467,&c_733468,&c_733469);c_733467.hdr.immutable = 1;

make_pair(c_733465,&c_733466,&c_733467);c_733465.hdr.immutable = 1;
return_direct_with_clo1(data,(closure)&c_733351,__lambda_216,  &c_733465);; 
}

static void __lambda_216(void *data, object self_731532, int argc, object *args) /* object self_731532, object renames_73340_73622 */
 {
 object renames_73340_73622 = args[0];
  
closureN_type c_733353;
object e_733460 [4];
c_733353.hdr.mark = gc_color_red;
 c_733353.hdr.grayed = 0;
c_733353.tag = closureN_tag;
 c_733353.fn = (function_type)__lambda_321;
c_733353.num_args = 1;
c_733353.num_elements = 4;
c_733353.elements = (object *)e_733460;
c_733353.elements[0] = ((closureN)self_731532)->elements[0];
c_733353.elements[1] = ((closureN)self_731532)->elements[1];
c_733353.elements[2] = ((closureN)self_731532)->elements[2];
c_733353.elements[3] = ((closureN)self_731532)->elements[3];


pair_type local_733463; 
return_direct_with_clo1(data,(closure)&c_733353,__lambda_321,  set_cell_as_expr(&local_733463, renames_73340_73622));; 
}

static void __lambda_321(void *data, object self_731533, int argc, object *args) /* object self_731533, object renames_73340_73622 */
 {
 object renames_73340_73622 = args[0];
  
closureN_type c_733356;
object e_733459 [4];
c_733356.hdr.mark = gc_color_red;
 c_733356.hdr.grayed = 0;
c_733356.tag = closureN_tag;
 c_733356.fn = (function_type)__lambda_217;
c_733356.num_args = 1;
c_733356.num_elements = 4;
c_733356.elements = (object *)e_733459;
c_733356.elements[0] = ((closureN)self_731533)->elements[0];
c_733356.elements[1] = ((closureN)self_731533)->elements[2];
c_733356.elements[2] = renames_73340_73622;
c_733356.elements[3] = ((closureN)self_731533)->elements[3];

return_direct_with_clo1(data,  ((closureN)self_731533)->elements[1], (((closure)  ((closureN)self_731533)->elements[1])->fn),  &c_733356);; 
}

static void __lambda_217(void *data, object self_731534, int argc, object *args) /* object self_731534, object k_731191, object identifier_73341_73623 */
 {
 object k_731191 = args[0]; object identifier_73341_73623 = args[1];
  
closureN_type c_733358;
object e_733455 [5];
c_733358.hdr.mark = gc_color_red;
 c_733358.hdr.grayed = 0;
c_733358.tag = closureN_tag;
 c_733358.fn = (function_type)__lambda_218;
c_733358.num_args = 1;
c_733358.num_elements = 5;
c_733358.elements = (object *)e_733455;
c_733358.elements[0] = identifier_73341_73623;
c_733358.elements[1] = k_731191;
c_733358.elements[2] = ((closureN)self_731534)->elements[1];
c_733358.elements[3] = ((closureN)self_731534)->elements[2];
c_733358.elements[4] = ((closureN)self_731534)->elements[3];



return_direct_with_clo1(data,(closure)&c_733358,__lambda_218,  assq(data, identifier_73341_73623, ((closureN)self_731534)->elements[0]));; 
}

static void __lambda_218(void *data, object self_731535, int argc, object *args) /* object self_731535, object r_731192 */
 {
 object r_731192 = args[0];
  
closureN_type c_733360;
object e_733448 [6];
c_733360.hdr.mark = gc_color_red;
 c_733360.hdr.grayed = 0;
c_733360.tag = closureN_tag;
 c_733360.fn = (function_type)__lambda_219;
c_733360.num_args = 1;
c_733360.num_elements = 6;
c_733360.elements = (object *)e_733448;
c_733360.elements[0] = ((closureN)self_731535)->elements[0];
c_733360.elements[1] = ((closureN)self_731535)->elements[1];
c_733360.elements[2] = ((closureN)self_731535)->elements[2];
c_733360.elements[3] = r_731192;
c_733360.elements[4] = ((closureN)self_731535)->elements[3];
c_733360.elements[5] = ((closureN)self_731535)->elements[4];





return_direct_with_clo1(data,(closure)&c_733360,__lambda_219,  assq(data, ((closureN)self_731535)->elements[0], car(((closureN)self_731535)->elements[3])));; 
}

static void __lambda_219(void *data, object self_731536, int argc, object *args) /* object self_731536, object r_731193 */
 {
 object r_731193 = args[0];
  
closureN_type c_733362;
object e_733446 [5];
c_733362.hdr.mark = gc_color_red;
 c_733362.hdr.grayed = 0;
c_733362.tag = closureN_tag;
 c_733362.fn = (function_type)__lambda_220;
c_733362.num_args = 2;
c_733362.num_elements = 5;
c_733362.elements = (object *)e_733446;
c_733362.elements[0] = ((closureN)self_731536)->elements[0];
c_733362.elements[1] = ((closureN)self_731536)->elements[1];
c_733362.elements[2] = ((closureN)self_731536)->elements[2];
c_733362.elements[3] = ((closureN)self_731536)->elements[4];
c_733362.elements[4] = ((closureN)self_731536)->elements[5];

return_direct_with_clo2(data,(closure)&c_733362,__lambda_220,  ((closureN)self_731536)->elements[3], r_731193);; 
}

static void __lambda_220(void *data, object self_731537, int argc, object *args) /* object self_731537, object binding_91cell_73342_73624, object cell_73343_73625 */
 {
 object binding_91cell_73342_73624 = args[0]; object cell_73343_73625 = args[1];
  if( (boolean_f != binding_91cell_73342_73624) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731537)->elements[1], (((closure)  ((closureN)self_731537)->elements[1])->fn),  Cyc_cdr(data, binding_91cell_73342_73624));
} else { 
  if( (boolean_f != cell_73343_73625) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731537)->elements[1], (((closure)  ((closureN)self_731537)->elements[1])->fn),  Cyc_cdr(data, cell_73343_73625));
} else { 
  
closureN_type c_733372;
object e_733443 [5];
c_733372.hdr.mark = gc_color_red;
 c_733372.hdr.grayed = 0;
c_733372.tag = closureN_tag;
 c_733372.fn = (function_type)__lambda_221;
c_733372.num_args = 1;
c_733372.num_elements = 5;
c_733372.elements = (object *)e_733443;
c_733372.elements[0] = ((closureN)self_731537)->elements[0];
c_733372.elements[1] = ((closureN)self_731537)->elements[1];
c_733372.elements[2] = ((closureN)self_731537)->elements[2];
c_733372.elements[3] = ((closureN)self_731537)->elements[3];
c_733372.elements[4] = ((closureN)self_731537)->elements[4];

return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_733372, ((closureN)self_731537)->elements[0], ((closureN)self_731537)->elements[2], quote_not_91defined);}
;}
;; 
}

static void __lambda_221(void *data, object self_731538, int argc, object *args) /* object self_731538, object val_73352_73627 */
 {
 object val_73352_73627 = args[0];
  
closureN_type c_733374;
object e_733415 [4];
c_733374.hdr.mark = gc_color_red;
 c_733374.hdr.grayed = 0;
c_733374.tag = closureN_tag;
 c_733374.fn = (function_type)__lambda_222;
c_733374.num_args = 0;
c_733374.num_elements = 4;
c_733374.elements = (object *)e_733415;
c_733374.elements[0] = ((closureN)self_731538)->elements[0];
c_733374.elements[1] = ((closureN)self_731538)->elements[2];
c_733374.elements[2] = ((closureN)self_731538)->elements[4];
c_733374.elements[3] = val_73352_73627;


closureN_type c_733416;
object e_733442 [3];
c_733416.hdr.mark = gc_color_red;
 c_733416.hdr.grayed = 0;
c_733416.tag = closureN_tag;
 c_733416.fn = (function_type)__lambda_229;
c_733416.num_args = 1;
c_733416.num_elements = 3;
c_733416.elements = (object *)e_733442;
c_733416.elements[0] = ((closureN)self_731538)->elements[0];
c_733416.elements[1] = ((closureN)self_731538)->elements[1];
c_733416.elements[2] = ((closureN)self_731538)->elements[3];

return_direct_with_clo1(data,(closure)&c_733374,__lambda_222,  &c_733416);; 
}

static void __lambda_229(void *data, object self_731539, int argc, object *args) /* object self_731539, object name_73351_73626 */
 {
 object name_73351_73626 = args[0];
  
closureN_type c_733418;
object e_733437 [3];
c_733418.hdr.mark = gc_color_red;
 c_733418.hdr.grayed = 0;
c_733418.tag = closureN_tag;
 c_733418.fn = (function_type)__lambda_230;
c_733418.num_args = 1;
c_733418.num_elements = 3;
c_733418.elements = (object *)e_733437;
c_733418.elements[0] = ((closureN)self_731539)->elements[1];
c_733418.elements[1] = name_73351_73626;
c_733418.elements[2] = ((closureN)self_731539)->elements[2];


pair_type local_733440; 
return_direct_with_clo1(data,(closure)&c_733418,__lambda_230,  set_pair_as_expr(&local_733440, ((closureN)self_731539)->elements[0], name_73351_73626));; 
}

static void __lambda_230(void *data, object self_731540, int argc, object *args) /* object self_731540, object r_731197 */
 {
 object r_731197 = args[0];
  
closureN_type c_733420;
object e_733430 [3];
c_733420.hdr.mark = gc_color_red;
 c_733420.hdr.grayed = 0;
c_733420.tag = closureN_tag;
 c_733420.fn = (function_type)__lambda_231;
c_733420.num_args = 1;
c_733420.num_elements = 3;
c_733420.elements = (object *)e_733430;
c_733420.elements[0] = ((closureN)self_731540)->elements[0];
c_733420.elements[1] = ((closureN)self_731540)->elements[1];
c_733420.elements[2] = ((closureN)self_731540)->elements[2];


pair_type local_733433; 


return_direct_with_clo1(data,(closure)&c_733420,__lambda_231,  set_pair_as_expr(&local_733433, r_731197, car(((closureN)self_731540)->elements[2])));; 
}

static void __lambda_231(void *data, object self_731541, int argc, object *args) /* object self_731541, object r_731196 */
 {
 object r_731196 = args[0];
  
closureN_type c_733422;
object e_733426 [2];
c_733422.hdr.mark = gc_color_red;
 c_733422.hdr.grayed = 0;
c_733422.tag = closureN_tag;
 c_733422.fn = (function_type)__lambda_232;
c_733422.num_args = 1;
c_733422.num_elements = 2;
c_733422.elements = (object *)e_733426;
c_733422.elements[0] = ((closureN)self_731541)->elements[0];
c_733422.elements[1] = ((closureN)self_731541)->elements[1];



return_direct_with_clo1(data,(closure)&c_733422,__lambda_232,  Cyc_set_cell(data, ((closureN)self_731541)->elements[2], r_731196));; 
}

static void __lambda_232(void *data, object self_731542, int argc, object *args) /* object self_731542, object r_731195 */
 {

  return_direct_with_clo1(data,  ((closureN)self_731542)->elements[0], (((closure)  ((closureN)self_731542)->elements[0])->fn),  ((closureN)self_731542)->elements[1]);; 
}

static void __lambda_222(void *data, object self_731543, int argc, object *args) /* object self_731543, object k_731199 */
 {
 object k_731199 = args[0];
  
closureN_type c_733376;
object e_733413 [5];
c_733376.hdr.mark = gc_color_red;
 c_733376.hdr.grayed = 0;
c_733376.tag = closureN_tag;
 c_733376.fn = (function_type)__lambda_223;
c_733376.num_args = 1;
c_733376.num_elements = 5;
c_733376.elements = (object *)e_733413;
c_733376.elements[0] = ((closureN)self_731543)->elements[0];
c_733376.elements[1] = k_731199;
c_733376.elements[2] = ((closureN)self_731543)->elements[1];
c_733376.elements[3] = ((closureN)self_731543)->elements[2];
c_733376.elements[4] = ((closureN)self_731543)->elements[3];

return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  &c_733376, quote_macro, ((closureN)self_731543)->elements[3]);; 
}

static void __lambda_223(void *data, object self_731544, int argc, object *args) /* object self_731544, object r_731200 */
 {
 object r_731200 = args[0];
  if( (boolean_f != r_731200) ){ 
  
closureN_type c_733378;
object e_733393 [5];
c_733378.hdr.mark = gc_color_red;
 c_733378.hdr.grayed = 0;
c_733378.tag = closureN_tag;
 c_733378.fn = (function_type)__lambda_224;
c_733378.num_args = 1;
c_733378.num_elements = 5;
c_733378.elements = (object *)e_733393;
c_733378.elements[0] = ((closureN)self_731544)->elements[0];
c_733378.elements[1] = ((closureN)self_731544)->elements[1];
c_733378.elements[2] = ((closureN)self_731544)->elements[2];
c_733378.elements[3] = ((closureN)self_731544)->elements[3];
c_733378.elements[4] = ((closureN)self_731544)->elements[4];

return_direct_with_clo2(data,  __glo_gensym_scheme_cyclone_util, (((closure)  __glo_gensym_scheme_cyclone_util)->fn),  &c_733378, ((closureN)self_731544)->elements[0]);
} else { 
    
if( (boolean_f != Cyc_eq(((closureN)self_731544)->elements[4], quote_not_91defined)) ){ 
  
closureN_type c_733399;
object e_733408 [3];
c_733399.hdr.mark = gc_color_red;
 c_733399.hdr.grayed = 0;
c_733399.tag = closureN_tag;
 c_733399.fn = (function_type)__lambda_227;
c_733399.num_args = 1;
c_733399.num_elements = 3;
c_733399.elements = (object *)e_733408;
c_733399.elements[0] = ((closureN)self_731544)->elements[0];
c_733399.elements[1] = ((closureN)self_731544)->elements[1];
c_733399.elements[2] = ((closureN)self_731544)->elements[3];

return_direct_with_clo2(data,  __glo_gensym_scheme_cyclone_util, (((closure)  __glo_gensym_scheme_cyclone_util)->fn),  &c_733399, ((closureN)self_731544)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731544)->elements[1], (((closure)  ((closureN)self_731544)->elements[1])->fn),  ((closureN)self_731544)->elements[0]);}
;}
;; 
}

static void __lambda_227(void *data, object self_731548, int argc, object *args) /* object self_731548, object renamed_73360_73629 */
 {
 object renamed_73360_73629 = args[0];
  
closureN_type c_733401;
object e_733405 [2];
c_733401.hdr.mark = gc_color_red;
 c_733401.hdr.grayed = 0;
c_733401.tag = closureN_tag;
 c_733401.fn = (function_type)__lambda_228;
c_733401.num_args = 1;
c_733401.num_elements = 2;
c_733401.elements = (object *)e_733405;
c_733401.elements[0] = ((closureN)self_731548)->elements[1];
c_733401.elements[1] = renamed_73360_73629;

return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  &c_733401, renamed_73360_73629, ((closureN)self_731548)->elements[0], ((closureN)self_731548)->elements[2]);; 
}

static void __lambda_228(void *data, object self_731549, int argc, object *args) /* object self_731549, object r_731206 */
 {

  return_direct_with_clo1(data,  ((closureN)self_731549)->elements[0], (((closure)  ((closureN)self_731549)->elements[0])->fn),  ((closureN)self_731549)->elements[1]);; 
}

static void __lambda_224(void *data, object self_731545, int argc, object *args) /* object self_731545, object renamed_73356_73628 */
 {
 object renamed_73356_73628 = args[0];
  
closureN_type c_733380;
object e_733390 [4];
c_733380.hdr.mark = gc_color_red;
 c_733380.hdr.grayed = 0;
c_733380.tag = closureN_tag;
 c_733380.fn = (function_type)__lambda_225;
c_733380.num_args = 1;
c_733380.num_elements = 4;
c_733380.elements = (object *)e_733390;
c_733380.elements[0] = ((closureN)self_731545)->elements[0];
c_733380.elements[1] = ((closureN)self_731545)->elements[1];
c_733380.elements[2] = renamed_73356_73628;
c_733380.elements[3] = ((closureN)self_731545)->elements[3];

return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  &c_733380, renamed_73356_73628, ((closureN)self_731545)->elements[4], ((closureN)self_731545)->elements[2]);; 
}

static void __lambda_225(void *data, object self_731546, int argc, object *args) /* object self_731546, object r_731202 */
 {

  
closureN_type c_733382;
object e_733386 [2];
c_733382.hdr.mark = gc_color_red;
 c_733382.hdr.grayed = 0;
c_733382.tag = closureN_tag;
 c_733382.fn = (function_type)__lambda_226;
c_733382.num_args = 1;
c_733382.num_elements = 2;
c_733382.elements = (object *)e_733386;
c_733382.elements[0] = ((closureN)self_731546)->elements[1];
c_733382.elements[1] = ((closureN)self_731546)->elements[2];

return_direct_with_clo4(data,  __glo_env_117define_91variable_67_scheme_cyclone_util, (((closure)  __glo_env_117define_91variable_67_scheme_cyclone_util)->fn),  &c_733382, ((closureN)self_731546)->elements[2], ((closureN)self_731546)->elements[0], ((closureN)self_731546)->elements[3]);; 
}

static void __lambda_226(void *data, object self_731547, int argc, object *args) /* object self_731547, object r_731203 */
 {

  return_direct_with_clo1(data,  ((closureN)self_731547)->elements[0], (((closure)  ((closureN)self_731547)->elements[0])->fn),  ((closureN)self_731547)->elements[1]);; 
}

static void __lambda_209(void *data, object _, int argc, object *args) /* closure _,object k_731182, object env1_73331_73613, object id1_73332_73614, object env2_73333_73615, object id2_73334_73616 */
 {
object k_731182 = args[0]; object env1_73331_73613 = args[1]; object id1_73332_73614 = args[2]; object env2_73333_73615 = args[3]; object id2_73334_73616 = args[4];
  Cyc_st_add(data, "scheme/cyclone/util.sld:identifier=?");

closureN_type c_733327;
object e_733348 [4];
c_733327.hdr.mark = gc_color_red;
 c_733327.hdr.grayed = 0;
c_733327.tag = closureN_tag;
 c_733327.fn = (function_type)__lambda_210;
c_733327.num_args = 1;
c_733327.num_elements = 4;
c_733327.elements = (object *)e_733348;
c_733327.elements[0] = env1_73331_73613;
c_733327.elements[1] = env2_73333_73615;
c_733327.elements[2] = id2_73334_73616;
c_733327.elements[3] = k_731182;

return_direct_with_clo2(data,  __glo_identifier_91_125symbol_scheme_cyclone_util, (((closure)  __glo_identifier_91_125symbol_scheme_cyclone_util)->fn),  &c_733327, id1_73332_73614);; 
}

static void __lambda_210(void *data, object self_731527, int argc, object *args) /* object self_731527, object r_731186 */
 {
 object r_731186 = args[0];
  
closureN_type c_733329;
object e_733346 [3];
c_733329.hdr.mark = gc_color_red;
 c_733329.hdr.grayed = 0;
c_733329.tag = closureN_tag;
 c_733329.fn = (function_type)__lambda_211;
c_733329.num_args = 1;
c_733329.num_elements = 3;
c_733329.elements = (object *)e_733346;
c_733329.elements[0] = ((closureN)self_731527)->elements[1];
c_733329.elements[1] = ((closureN)self_731527)->elements[2];
c_733329.elements[2] = ((closureN)self_731527)->elements[3];

return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_733329, r_731186, ((closureN)self_731527)->elements[0], boolean_f);; 
}

static void __lambda_211(void *data, object self_731528, int argc, object *args) /* object self_731528, object r_731183 */
 {
 object r_731183 = args[0];
  
closureN_type c_733331;
object e_733344 [3];
c_733331.hdr.mark = gc_color_red;
 c_733331.hdr.grayed = 0;
c_733331.tag = closureN_tag;
 c_733331.fn = (function_type)__lambda_212;
c_733331.num_args = 1;
c_733331.num_elements = 3;
c_733331.elements = (object *)e_733344;
c_733331.elements[0] = ((closureN)self_731528)->elements[0];
c_733331.elements[1] = ((closureN)self_731528)->elements[2];
c_733331.elements[2] = r_731183;

return_direct_with_clo2(data,  __glo_identifier_91_125symbol_scheme_cyclone_util, (((closure)  __glo_identifier_91_125symbol_scheme_cyclone_util)->fn),  &c_733331, ((closureN)self_731528)->elements[1]);; 
}

static void __lambda_212(void *data, object self_731529, int argc, object *args) /* object self_731529, object r_731185 */
 {
 object r_731185 = args[0];
  
closureN_type c_733333;
object e_733342 [2];
c_733333.hdr.mark = gc_color_red;
 c_733333.hdr.grayed = 0;
c_733333.tag = closureN_tag;
 c_733333.fn = (function_type)__lambda_213;
c_733333.num_args = 1;
c_733333.num_elements = 2;
c_733333.elements = (object *)e_733342;
c_733333.elements[0] = ((closureN)self_731529)->elements[1];
c_733333.elements[1] = ((closureN)self_731529)->elements[2];

return_direct_with_clo4(data,  __glo_env_117lookup_scheme_cyclone_util, (((closure)  __glo_env_117lookup_scheme_cyclone_util)->fn),  &c_733333, r_731185, ((closureN)self_731529)->elements[0], boolean_f);; 
}

static void __lambda_213(void *data, object self_731530, int argc, object *args) /* object self_731530, object r_731184 */
 {
 object r_731184 = args[0];
  
closureN_type c_733335;
object e_733340 [1];
c_733335.hdr.mark = gc_color_red;
 c_733335.hdr.grayed = 0;
c_733335.tag = closureN_tag;
 c_733335.fn = (function_type)__lambda_214;
c_733335.num_args = 2;
c_733335.num_elements = 1;
c_733335.elements = (object *)e_733340;
c_733335.elements[0] = ((closureN)self_731530)->elements[0];

return_direct_with_clo2(data,(closure)&c_733335,__lambda_214,  ((closureN)self_731530)->elements[1], r_731184);; 
}

static void __lambda_214(void *data, object self_731531, int argc, object *args) /* object self_731531, object val1_73335_73617, object val2_73336_73618 */
 {
 object val1_73335_73617 = args[0]; object val2_73336_73618 = args[1];
  

return_direct_with_clo1(data,  ((closureN)self_731531)->elements[0], (((closure)  ((closureN)self_731531)->elements[0])->fn),  Cyc_eq(val1_73335_73617, val2_73336_73618));; 
}

static void __lambda_207(void *data, object _, int argc, object *args) /* closure _,object k_731177, object id_73323_73612 */
 {
object k_731177 = args[0]; object id_73323_73612 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:identifier->symbol");

closureN_type c_733310;
object e_733324 [2];
c_733310.hdr.mark = gc_color_red;
 c_733310.hdr.grayed = 0;
c_733310.tag = closureN_tag;
 c_733310.fn = (function_type)__lambda_208;
c_733310.num_args = 1;
c_733310.num_elements = 2;
c_733310.elements = (object *)e_733324;
c_733310.elements[0] = id_73323_73612;
c_733310.elements[1] = k_731177;

return_direct_with_clo2(data,  __glo_sc_127_scheme_cyclone_util, (((closure)  __glo_sc_127_scheme_cyclone_util)->fn),  &c_733310, id_73323_73612);; 
}

static void __lambda_208(void *data, object self_731526, int argc, object *args) /* object self_731526, object r_731178 */
 {
 object r_731178 = args[0];
  if( (boolean_f != r_731178) ){ 
  return_direct_with_clo2(data,  __glo_sc_91expr_scheme_cyclone_util, (((closure)  __glo_sc_91expr_scheme_cyclone_util)->fn),  ((closureN)self_731526)->elements[1], ((closureN)self_731526)->elements[0]);
} else { 
    
if( (boolean_f != Cyc_is_symbol(((closureN)self_731526)->elements[0])) ){ 
  return_direct_with_clo1(data,  ((closureN)self_731526)->elements[1], (((closure)  ((closureN)self_731526)->elements[1])->fn),  ((closureN)self_731526)->elements[0]);
} else { 
  
make_utf8_string_with_len(c_733322, "Invalid parameter to identifier->symbol", 39, 39);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_731526)->elements[1], &c_733322, ((closureN)self_731526)->elements[0]);}
;}
;; 
}

static void __lambda_206(void *data, object _, int argc, object *args) /* closure _,object k_731173, object expr_73318_73610 */
 {
object k_731173 = args[0]; object expr_73318_73610 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:identifier?");
  
if( (boolean_f != Cyc_is_symbol(expr_73318_73610)) ){ 
  

return_direct_with_clo1(data,  k_731173, (((closure)  k_731173)->fn),  Cyc_is_symbol(expr_73318_73610));
} else { 
  return_direct_with_clo2(data,  __glo_sc_127_scheme_cyclone_util, (((closure)  __glo_sc_127_scheme_cyclone_util)->fn),  k_731173, expr_73318_73610);}
;; 
}

static void __lambda_205(void *data, object _, int argc, object *args) /* closure _,object k_731170, object expr_73317_73609 */
 {
object k_731170 = args[0]; object expr_73317_73609 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:strip-syntactic-closures");
return_direct_with_clo2(data,  __glo_identifier_91_125symbol_scheme_cyclone_util, (((closure)  __glo_identifier_91_125symbol_scheme_cyclone_util)->fn),  k_731170, expr_73317_73609);; 
}

static void __lambda_204(void *data, object _, int argc, object *args) /* closure _,object k_731167, object env_73314_73606, object free_91names_73315_73607, object expr_73316_73608 */
 {
object k_731167 = args[0]; object env_73314_73606 = args[1]; object free_91names_73315_73607 = args[2]; object expr_73316_73608 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:make-syntactic-closure");
return_direct_with_clo4(data,  __glo_make_91sc_scheme_cyclone_util, (((closure)  __glo_make_91sc_scheme_cyclone_util)->fn),  k_731167, env_73314_73606, free_91names_73315_73607, expr_73316_73608);; 
}

static void __lambda_203(void *data, object _, int argc, object *args) /* closure _,object k_731161, object env_73311_73603, object free_91names_73312_73604, object expr_73313_73605 */
 {
object k_731161 = args[0]; object env_73311_73603 = args[1]; object free_91names_73312_73604 = args[2]; object expr_73313_73605 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:make-sc");

vector_3_type local_733290; 

complex_num_type local_733293; 

vector_3_type local_733296; 
return_direct_with_clo1(data,  k_731161, (((closure)  k_731161)->fn),  Cyc_fast_vector_3(&local_733290, ((inline_function_type)
                   ((closure)__glo_make_91record_91marker_191_191inline_191_191_scheme_base)->fn)(data,&local_733293), quote__121syn_91clo_125, Cyc_fast_vector_3(&local_733296, env_73311_73603, free_91names_73312_73604, expr_73313_73605)));; 
}

static void __lambda_197(void *data, object _, int argc, object *args) /* closure _,object k_731137, object var_73297_73595, object val_73298_73596, object env_73299_73597 */
 {
object k_731137 = args[0]; object var_73297_73595 = args[1]; object val_73298_73596 = args[2]; object env_73299_73597 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:define-variable!");

closureN_type c_733221;
object e_733285 [4];
c_733221.hdr.mark = gc_color_red;
 c_733221.hdr.grayed = 0;
c_733221.tag = closureN_tag;
 c_733221.fn = (function_type)__lambda_198;
c_733221.num_args = 1;
c_733221.num_elements = 4;
c_733221.elements = (object *)e_733285;
c_733221.elements[0] = env_73299_73597;
c_733221.elements[1] = k_731137;
c_733221.elements[2] = val_73298_73596;
c_733221.elements[3] = var_73297_73595;

return_direct_with_clo1(data,(closure)&c_733221,__lambda_198,  boolean_f);; 
}

static void __lambda_198(void *data, object self_731520, int argc, object *args) /* object self_731520, object scan_73600_731365 */
 {
 object scan_73600_731365 = args[0];
  
closureN_type c_733223;
object e_733281 [4];
c_733223.hdr.mark = gc_color_red;
 c_733223.hdr.grayed = 0;
c_733223.tag = closureN_tag;
 c_733223.fn = (function_type)__lambda_320;
c_733223.num_args = 1;
c_733223.num_elements = 4;
c_733223.elements = (object *)e_733281;
c_733223.elements[0] = ((closureN)self_731520)->elements[0];
c_733223.elements[1] = ((closureN)self_731520)->elements[1];
c_733223.elements[2] = ((closureN)self_731520)->elements[2];
c_733223.elements[3] = ((closureN)self_731520)->elements[3];


pair_type local_733284; 
return_direct_with_clo1(data,(closure)&c_733223,__lambda_320,  set_cell_as_expr(&local_733284, scan_73600_731365));; 
}

static void __lambda_320(void *data, object self_731521, int argc, object *args) /* object self_731521, object scan_73600_731365 */
 {
 object scan_73600_731365 = args[0];
  
closureN_type c_733225;
object e_733247 [3];
c_733225.hdr.mark = gc_color_red;
 c_733225.hdr.grayed = 0;
c_733225.tag = closureN_tag;
 c_733225.fn = (function_type)__lambda_199;
c_733225.num_args = 1;
c_733225.num_elements = 3;
c_733225.elements = (object *)e_733247;
c_733225.elements[0] = ((closureN)self_731521)->elements[0];
c_733225.elements[1] = ((closureN)self_731521)->elements[1];
c_733225.elements[2] = scan_73600_731365;


closureN_type c_733248;
object e_733280 [4];
c_733248.hdr.mark = gc_color_red;
 c_733248.hdr.grayed = 0;
c_733248.tag = closureN_tag;
 c_733248.fn = (function_type)__lambda_201;
c_733248.num_args = 2;
c_733248.num_elements = 4;
c_733248.elements = (object *)e_733280;
c_733248.elements[0] = ((closureN)self_731521)->elements[0];
c_733248.elements[1] = scan_73600_731365;
c_733248.elements[2] = ((closureN)self_731521)->elements[2];
c_733248.elements[3] = ((closureN)self_731521)->elements[3];

return_direct_with_clo1(data,(closure)&c_733225,__lambda_199,  &c_733248);; 
}

static void __lambda_201(void *data, object self_731522, int argc, object *args) /* object self_731522, object k_731143_731370, object vars_73301_73601_731371, object vals_73302_73602_731372 */
 {
 object k_731143_731370 = args[0]; object vars_73301_73601_731371 = args[1]; object vals_73302_73602_731372 = args[2];
    
if( (boolean_f != Cyc_is_null(vars_73301_73601_731371)) ){ 
  

return_direct_with_clo4(data,  __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util, (((closure)  __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util)->fn),  k_731143_731370, ((closureN)self_731522)->elements[3], ((closureN)self_731522)->elements[2], Cyc_car(data, ((closureN)self_731522)->elements[0]));
} else { 
    
  
if( (boolean_f != Cyc_eq(((closureN)self_731522)->elements[3], Cyc_car(data, vars_73301_73601_731371))) ){ 
  
object c_733265 = Cyc_set_car_cps(data,  k_731143_731370,vals_73302_73602_731372, ((closureN)self_731522)->elements[2]);
return_direct_with_clo1(data,  k_731143_731370, (((closure)  k_731143_731370)->fn),  c_733265);
} else { 
  
closureN_type c_733268;
object e_733277 [3];
c_733268.hdr.mark = gc_color_red;
 c_733268.hdr.grayed = 0;
c_733268.tag = closureN_tag;
 c_733268.fn = (function_type)__lambda_202;
c_733268.num_args = 1;
c_733268.num_elements = 3;
c_733268.elements = (object *)e_733277;
c_733268.elements[0] = k_731143_731370;
c_733268.elements[1] = ((closureN)self_731522)->elements[1];
c_733268.elements[2] = vars_73301_73601_731371;



return_direct_with_clo1(data,(closure)&c_733268,__lambda_202,  Cyc_cdr(data, vals_73302_73602_731372));}
;}
;; 
}

static void __lambda_202(void *data, object self_731523, int argc, object *args) /* object self_731523, object r_731147_731373 */
 {
 object r_731147_731373 = args[0];
  



return_closcall3(data,  car(((closureN)self_731523)->elements[1]),  ((closureN)self_731523)->elements[0], Cyc_cdr(data, ((closureN)self_731523)->elements[2]), r_731147_731373);; 
}

static void __lambda_199(void *data, object self_731524, int argc, object *args) /* object self_731524, object r_731142_731366 */
 {
 object r_731142_731366 = args[0];
  
closureN_type c_733227;
object e_733243 [3];
c_733227.hdr.mark = gc_color_red;
 c_733227.hdr.grayed = 0;
c_733227.tag = closureN_tag;
 c_733227.fn = (function_type)__lambda_200;
c_733227.num_args = 1;
c_733227.num_elements = 3;
c_733227.elements = (object *)e_733243;
c_733227.elements[0] = ((closureN)self_731524)->elements[0];
c_733227.elements[1] = ((closureN)self_731524)->elements[1];
c_733227.elements[2] = ((closureN)self_731524)->elements[2];



return_direct_with_clo1(data,(closure)&c_733227,__lambda_200,  Cyc_set_cell(data, ((closureN)self_731524)->elements[2], r_731142_731366));; 
}

static void __lambda_200(void *data, object self_731525, int argc, object *args) /* object self_731525, object r_731139_731367 */
 {

  









return_closcall3(data,  car(((closureN)self_731525)->elements[2]),  ((closureN)self_731525)->elements[1], Cyc_car(data, Cyc_car(data, ((closureN)self_731525)->elements[0])), Cyc_cdr(data, Cyc_car(data, ((closureN)self_731525)->elements[0])));; 
}

static void __lambda_185(void *data, object _, int argc, object *args) /* closure _,object k_731115, object var_73283_73583, object val_73284_73584, object env_73285_73585 */
 {
object k_731115 = args[0]; object var_73283_73583 = args[1]; object val_73284_73584 = args[2]; object env_73285_73585 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:set-variable-value!");

closureN_type c_733100;
object e_733218 [4];
c_733100.hdr.mark = gc_color_red;
 c_733100.hdr.grayed = 0;
c_733100.tag = closureN_tag;
 c_733100.fn = (function_type)__lambda_186;
c_733100.num_args = 1;
c_733100.num_elements = 4;
c_733100.elements = (object *)e_733218;
c_733100.elements[0] = env_73285_73585;
c_733100.elements[1] = k_731115;
c_733100.elements[2] = val_73284_73584;
c_733100.elements[3] = var_73283_73583;

return_direct_with_clo1(data,(closure)&c_733100,__lambda_186,  boolean_f);; 
}

static void __lambda_186(void *data, object self_731507, int argc, object *args) /* object self_731507, object env_91loop_73587 */
 {
 object env_91loop_73587 = args[0];
  
closureN_type c_733102;
object e_733214 [4];
c_733102.hdr.mark = gc_color_red;
 c_733102.hdr.grayed = 0;
c_733102.tag = closureN_tag;
 c_733102.fn = (function_type)__lambda_319;
c_733102.num_args = 1;
c_733102.num_elements = 4;
c_733102.elements = (object *)e_733214;
c_733102.elements[0] = ((closureN)self_731507)->elements[0];
c_733102.elements[1] = ((closureN)self_731507)->elements[1];
c_733102.elements[2] = ((closureN)self_731507)->elements[2];
c_733102.elements[3] = ((closureN)self_731507)->elements[3];


pair_type local_733217; 
return_direct_with_clo1(data,(closure)&c_733102,__lambda_319,  set_cell_as_expr(&local_733217, env_91loop_73587));; 
}

static void __lambda_319(void *data, object self_731508, int argc, object *args) /* object self_731508, object env_91loop_73587 */
 {
 object env_91loop_73587 = args[0];
  
closureN_type c_733104;
object e_733117 [3];
c_733104.hdr.mark = gc_color_red;
 c_733104.hdr.grayed = 0;
c_733104.tag = closureN_tag;
 c_733104.fn = (function_type)__lambda_187;
c_733104.num_args = 1;
c_733104.num_elements = 3;
c_733104.elements = (object *)e_733117;
c_733104.elements[0] = ((closureN)self_731508)->elements[0];
c_733104.elements[1] = env_91loop_73587;
c_733104.elements[2] = ((closureN)self_731508)->elements[1];


closureN_type c_733118;
object e_733213 [3];
c_733118.hdr.mark = gc_color_red;
 c_733118.hdr.grayed = 0;
c_733118.tag = closureN_tag;
 c_733118.fn = (function_type)__lambda_189;
c_733118.num_args = 1;
c_733118.num_elements = 3;
c_733118.elements = (object *)e_733213;
c_733118.elements[0] = env_91loop_73587;
c_733118.elements[1] = ((closureN)self_731508)->elements[2];
c_733118.elements[2] = ((closureN)self_731508)->elements[3];

return_direct_with_clo1(data,(closure)&c_733104,__lambda_187,  &c_733118);; 
}

static void __lambda_189(void *data, object self_731509, int argc, object *args) /* object self_731509, object k_731118, object env_73286_73590 */
 {
 object k_731118 = args[0]; object env_73286_73590 = args[1];
  
closureN_type c_733120;
object e_733212 [5];
c_733120.hdr.mark = gc_color_red;
 c_733120.hdr.grayed = 0;
c_733120.tag = closureN_tag;
 c_733120.fn = (function_type)__lambda_190;
c_733120.num_args = 1;
c_733120.num_elements = 5;
c_733120.elements = (object *)e_733212;
c_733120.elements[0] = env_73286_73590;
c_733120.elements[1] = ((closureN)self_731509)->elements[0];
c_733120.elements[2] = k_731118;
c_733120.elements[3] = ((closureN)self_731509)->elements[1];
c_733120.elements[4] = ((closureN)self_731509)->elements[2];

return_direct_with_clo1(data,(closure)&c_733120,__lambda_190,  boolean_f);; 
}

static void __lambda_190(void *data, object self_731510, int argc, object *args) /* object self_731510, object scan_73591 */
 {
 object scan_73591 = args[0];
  
closureN_type c_733122;
object e_733208 [5];
c_733122.hdr.mark = gc_color_red;
 c_733122.hdr.grayed = 0;
c_733122.tag = closureN_tag;
 c_733122.fn = (function_type)__lambda_318;
c_733122.num_args = 1;
c_733122.num_elements = 5;
c_733122.elements = (object *)e_733208;
c_733122.elements[0] = ((closureN)self_731510)->elements[0];
c_733122.elements[1] = ((closureN)self_731510)->elements[1];
c_733122.elements[2] = ((closureN)self_731510)->elements[2];
c_733122.elements[3] = ((closureN)self_731510)->elements[3];
c_733122.elements[4] = ((closureN)self_731510)->elements[4];


pair_type local_733211; 
return_direct_with_clo1(data,(closure)&c_733122,__lambda_318,  set_cell_as_expr(&local_733211, scan_73591));; 
}

static void __lambda_318(void *data, object self_731511, int argc, object *args) /* object self_731511, object scan_73591 */
 {
 object scan_73591 = args[0];
  
closureN_type c_733124;
object e_733153 [4];
c_733124.hdr.mark = gc_color_red;
 c_733124.hdr.grayed = 0;
c_733124.tag = closureN_tag;
 c_733124.fn = (function_type)__lambda_191;
c_733124.num_args = 1;
c_733124.num_elements = 4;
c_733124.elements = (object *)e_733153;
c_733124.elements[0] = ((closureN)self_731511)->elements[0];
c_733124.elements[1] = ((closureN)self_731511)->elements[2];
c_733124.elements[2] = scan_73591;
c_733124.elements[3] = ((closureN)self_731511)->elements[4];


closureN_type c_733154;
object e_733207 [5];
c_733154.hdr.mark = gc_color_red;
 c_733154.hdr.grayed = 0;
c_733154.tag = closureN_tag;
 c_733154.fn = (function_type)__lambda_193;
c_733154.num_args = 2;
c_733154.num_elements = 5;
c_733154.elements = (object *)e_733207;
c_733154.elements[0] = ((closureN)self_731511)->elements[0];
c_733154.elements[1] = ((closureN)self_731511)->elements[1];
c_733154.elements[2] = scan_73591;
c_733154.elements[3] = ((closureN)self_731511)->elements[3];
c_733154.elements[4] = ((closureN)self_731511)->elements[4];

return_direct_with_clo1(data,(closure)&c_733124,__lambda_191,  &c_733154);; 
}

static void __lambda_193(void *data, object self_731512, int argc, object *args) /* object self_731512, object k_731125, object vars_73287_73592, object vals_73288_73593 */
 {
 object k_731125 = args[0]; object vars_73287_73592 = args[1]; object vals_73288_73593 = args[2];
    
if( (boolean_f != Cyc_is_null(vars_73287_73592)) ){ 
  



return_closcall2(data,  car(((closureN)self_731512)->elements[1]),  k_731125, Cyc_cdr(data, ((closureN)self_731512)->elements[0]));
} else { 
    
  
if( (boolean_f != Cyc_eq(((closureN)self_731512)->elements[4], Cyc_car(data, vars_73287_73592))) ){ 
  
closureN_type c_733170;
object e_733191 [3];
c_733170.hdr.mark = gc_color_red;
 c_733170.hdr.grayed = 0;
c_733170.tag = closureN_tag;
 c_733170.fn = (function_type)__lambda_194;
c_733170.num_args = 1;
c_733170.num_elements = 3;
c_733170.elements = (object *)e_733191;
c_733170.elements[0] = k_731125;
c_733170.elements[1] = ((closureN)self_731512)->elements[3];
c_733170.elements[2] = vals_73288_73593;



return_direct_with_clo1(data,(closure)&c_733170,__lambda_194,  Cyc_car(data, vals_73288_73593));
} else { 
  
closureN_type c_733195;
object e_733204 [3];
c_733195.hdr.mark = gc_color_red;
 c_733195.hdr.grayed = 0;
c_733195.tag = closureN_tag;
 c_733195.fn = (function_type)__lambda_196;
c_733195.num_args = 1;
c_733195.num_elements = 3;
c_733195.elements = (object *)e_733204;
c_733195.elements[0] = k_731125;
c_733195.elements[1] = ((closureN)self_731512)->elements[2];
c_733195.elements[2] = vars_73287_73592;



return_direct_with_clo1(data,(closure)&c_733195,__lambda_196,  Cyc_cdr(data, vals_73288_73593));}
;}
;; 
}

static void __lambda_196(void *data, object self_731515, int argc, object *args) /* object self_731515, object r_731133 */
 {
 object r_731133 = args[0];
  



return_closcall3(data,  car(((closureN)self_731515)->elements[1]),  ((closureN)self_731515)->elements[0], Cyc_cdr(data, ((closureN)self_731515)->elements[2]), r_731133);; 
}

static void __lambda_194(void *data, object self_731513, int argc, object *args) /* object self_731513, object r_731131 */
 {
 object r_731131 = args[0];
    
if( (boolean_f != Cyc_is_cvar(r_731131)) ){ 
  
closureN_type c_733174;
object e_733180 [2];
c_733174.hdr.mark = gc_color_red;
 c_733174.hdr.grayed = 0;
c_733174.tag = closureN_tag;
 c_733174.fn = (function_type)__lambda_195;
c_733174.num_args = 1;
c_733174.num_elements = 2;
c_733174.elements = (object *)e_733180;
c_733174.elements[0] = ((closureN)self_731513)->elements[0];
c_733174.elements[1] = ((closureN)self_731513)->elements[1];



return_direct_with_clo1(data,(closure)&c_733174,__lambda_195,  Cyc_car(data, ((closureN)self_731513)->elements[2]));
} else { 
  
object c_733188 = Cyc_set_car_cps(data,  ((closureN)self_731513)->elements[0],((closureN)self_731513)->elements[2], ((closureN)self_731513)->elements[1]);
return_direct_with_clo1(data,  ((closureN)self_731513)->elements[0], (((closure)  ((closureN)self_731513)->elements[0])->fn),  c_733188);}
;; 
}

static void __lambda_195(void *data, object self_731514, int argc, object *args) /* object self_731514, object r_731130 */
 {
 object r_731130 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_731514)->elements[0], (((closure)  ((closureN)self_731514)->elements[0])->fn),  Cyc_set_cvar(r_731130, ((closureN)self_731514)->elements[1]));; 
}

static void __lambda_191(void *data, object self_731516, int argc, object *args) /* object self_731516, object r_731124 */
 {
 object r_731124 = args[0];
  
closureN_type c_733126;
object e_733149 [4];
c_733126.hdr.mark = gc_color_red;
 c_733126.hdr.grayed = 0;
c_733126.tag = closureN_tag;
 c_733126.fn = (function_type)__lambda_192;
c_733126.num_args = 1;
c_733126.num_elements = 4;
c_733126.elements = (object *)e_733149;
c_733126.elements[0] = ((closureN)self_731516)->elements[0];
c_733126.elements[1] = ((closureN)self_731516)->elements[1];
c_733126.elements[2] = ((closureN)self_731516)->elements[2];
c_733126.elements[3] = ((closureN)self_731516)->elements[3];



return_direct_with_clo1(data,(closure)&c_733126,__lambda_192,  Cyc_set_cell(data, ((closureN)self_731516)->elements[2], r_731124));; 
}

static void __lambda_192(void *data, object self_731517, int argc, object *args) /* object self_731517, object r_731119 */
 {

    
if( (boolean_f != Cyc_eq(((closureN)self_731517)->elements[0], __glo_env_117the_91empty_91environment_scheme_cyclone_util)) ){ 
  
make_utf8_string_with_len(c_733132, "Unbound variable -- SET!", 24, 24);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_731517)->elements[1], &c_733132, ((closureN)self_731517)->elements[3]);
} else { 
  









return_closcall3(data,  car(((closureN)self_731517)->elements[2]),  ((closureN)self_731517)->elements[1], Cyc_car(data, Cyc_car(data, ((closureN)self_731517)->elements[0])), Cyc_cdr(data, Cyc_car(data, ((closureN)self_731517)->elements[0])));}
;; 
}

static void __lambda_187(void *data, object self_731518, int argc, object *args) /* object self_731518, object r_731117 */
 {
 object r_731117 = args[0];
  
closureN_type c_733106;
object e_733113 [3];
c_733106.hdr.mark = gc_color_red;
 c_733106.hdr.grayed = 0;
c_733106.tag = closureN_tag;
 c_733106.fn = (function_type)__lambda_188;
c_733106.num_args = 1;
c_733106.num_elements = 3;
c_733106.elements = (object *)e_733113;
c_733106.elements[0] = ((closureN)self_731518)->elements[0];
c_733106.elements[1] = ((closureN)self_731518)->elements[1];
c_733106.elements[2] = ((closureN)self_731518)->elements[2];



return_direct_with_clo1(data,(closure)&c_733106,__lambda_188,  Cyc_set_cell(data, ((closureN)self_731518)->elements[1], r_731117));; 
}

static void __lambda_188(void *data, object self_731519, int argc, object *args) /* object self_731519, object r_731116 */
 {

  

return_closcall2(data,  car(((closureN)self_731519)->elements[1]),  ((closureN)self_731519)->elements[2], ((closureN)self_731519)->elements[0]);; 
}

static void __lambda_182(void *data, object _, int argc, object *args) /* closure _,object k_731110, object var_73280_73580, object env_73281_73581, object default_91value_73282_73582 */
 {
object k_731110 = args[0]; object var_73280_73580 = args[1]; object env_73281_73581 = args[2]; object default_91value_73282_73582 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:lookup");

closureN_type c_733088;
object e_733093 [3];
c_733088.hdr.mark = gc_color_red;
 c_733088.hdr.grayed = 0;
c_733088.tag = closureN_tag;
 c_733088.fn = (function_type)__lambda_183;
c_733088.num_args = 1;
c_733088.num_elements = 3;
c_733088.elements = (object *)e_733093;
c_733088.elements[0] = env_73281_73581;
c_733088.elements[1] = k_731110;
c_733088.elements[2] = var_73280_73580;


closureN_type c_733094;
object e_733097 [1];
c_733094.hdr.mark = gc_color_red;
 c_733094.hdr.grayed = 0;
c_733094.tag = closureN_tag;
 c_733094.fn = (function_type)__lambda_184;
c_733094.num_args = 0;
c_733094.num_elements = 1;
c_733094.elements = (object *)e_733097;
c_733094.elements[0] = default_91value_73282_73582;

return_direct_with_clo1(data,(closure)&c_733088,__lambda_183,  &c_733094);; 
}

static void __lambda_184(void *data, object self_731505, int argc, object *args) /* object self_731505, object k_731112 */
 {
 object k_731112 = args[0];
  return_direct_with_clo1(data,  k_731112, (((closure)  k_731112)->fn),  ((closureN)self_731505)->elements[0]);; 
}

static void __lambda_183(void *data, object self_731506, int argc, object *args) /* object self_731506, object r_731111 */
 {
 object r_731111 = args[0];
  return_direct_with_clo4(data,  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util, (((closure)  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util)->fn),  ((closureN)self_731506)->elements[1], ((closureN)self_731506)->elements[2], ((closureN)self_731506)->elements[0], r_731111);; 
}

static void __lambda_173(void *data, object _, int argc, object *args) /* closure _,object k_731090, object var_73266_73568, object env_73267_73569, object not_91found_73268_73570 */
 {
object k_731090 = args[0]; object var_73266_73568 = args[1]; object env_73267_73569 = args[2]; object not_91found_73268_73570 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:_lookup-variable-value");

closureN_type c_732993;
object e_733085 [4];
c_732993.hdr.mark = gc_color_red;
 c_732993.hdr.grayed = 0;
c_732993.tag = closureN_tag;
 c_732993.fn = (function_type)__lambda_174;
c_732993.num_args = 1;
c_732993.num_elements = 4;
c_732993.elements = (object *)e_733085;
c_732993.elements[0] = env_73267_73569;
c_732993.elements[1] = k_731090;
c_732993.elements[2] = not_91found_73268_73570;
c_732993.elements[3] = var_73266_73568;

return_direct_with_clo1(data,(closure)&c_732993,__lambda_174,  boolean_f);; 
}

static void __lambda_174(void *data, object self_731495, int argc, object *args) /* object self_731495, object env_91loop_73572 */
 {
 object env_91loop_73572 = args[0];
  
closureN_type c_732995;
object e_733081 [4];
c_732995.hdr.mark = gc_color_red;
 c_732995.hdr.grayed = 0;
c_732995.tag = closureN_tag;
 c_732995.fn = (function_type)__lambda_317;
c_732995.num_args = 1;
c_732995.num_elements = 4;
c_732995.elements = (object *)e_733081;
c_732995.elements[0] = ((closureN)self_731495)->elements[0];
c_732995.elements[1] = ((closureN)self_731495)->elements[1];
c_732995.elements[2] = ((closureN)self_731495)->elements[2];
c_732995.elements[3] = ((closureN)self_731495)->elements[3];


pair_type local_733084; 
return_direct_with_clo1(data,(closure)&c_732995,__lambda_317,  set_cell_as_expr(&local_733084, env_91loop_73572));; 
}

static void __lambda_317(void *data, object self_731496, int argc, object *args) /* object self_731496, object env_91loop_73572 */
 {
 object env_91loop_73572 = args[0];
  
closureN_type c_732997;
object e_733010 [3];
c_732997.hdr.mark = gc_color_red;
 c_732997.hdr.grayed = 0;
c_732997.tag = closureN_tag;
 c_732997.fn = (function_type)__lambda_175;
c_732997.num_args = 1;
c_732997.num_elements = 3;
c_732997.elements = (object *)e_733010;
c_732997.elements[0] = ((closureN)self_731496)->elements[0];
c_732997.elements[1] = env_91loop_73572;
c_732997.elements[2] = ((closureN)self_731496)->elements[1];


closureN_type c_733011;
object e_733080 [3];
c_733011.hdr.mark = gc_color_red;
 c_733011.hdr.grayed = 0;
c_733011.tag = closureN_tag;
 c_733011.fn = (function_type)__lambda_177;
c_733011.num_args = 1;
c_733011.num_elements = 3;
c_733011.elements = (object *)e_733080;
c_733011.elements[0] = env_91loop_73572;
c_733011.elements[1] = ((closureN)self_731496)->elements[2];
c_733011.elements[2] = ((closureN)self_731496)->elements[3];

return_direct_with_clo1(data,(closure)&c_732997,__lambda_175,  &c_733011);; 
}

static void __lambda_177(void *data, object self_731497, int argc, object *args) /* object self_731497, object k_731093, object env_73269_73575 */
 {
 object k_731093 = args[0]; object env_73269_73575 = args[1];
  
closureN_type c_733013;
object e_733079 [5];
c_733013.hdr.mark = gc_color_red;
 c_733013.hdr.grayed = 0;
c_733013.tag = closureN_tag;
 c_733013.fn = (function_type)__lambda_178;
c_733013.num_args = 1;
c_733013.num_elements = 5;
c_733013.elements = (object *)e_733079;
c_733013.elements[0] = env_73269_73575;
c_733013.elements[1] = ((closureN)self_731497)->elements[0];
c_733013.elements[2] = k_731093;
c_733013.elements[3] = ((closureN)self_731497)->elements[1];
c_733013.elements[4] = ((closureN)self_731497)->elements[2];

return_direct_with_clo1(data,(closure)&c_733013,__lambda_178,  boolean_f);; 
}

static void __lambda_178(void *data, object self_731498, int argc, object *args) /* object self_731498, object scan_73576 */
 {
 object scan_73576 = args[0];
  
closureN_type c_733015;
object e_733075 [5];
c_733015.hdr.mark = gc_color_red;
 c_733015.hdr.grayed = 0;
c_733015.tag = closureN_tag;
 c_733015.fn = (function_type)__lambda_316;
c_733015.num_args = 1;
c_733015.num_elements = 5;
c_733015.elements = (object *)e_733075;
c_733015.elements[0] = ((closureN)self_731498)->elements[0];
c_733015.elements[1] = ((closureN)self_731498)->elements[1];
c_733015.elements[2] = ((closureN)self_731498)->elements[2];
c_733015.elements[3] = ((closureN)self_731498)->elements[3];
c_733015.elements[4] = ((closureN)self_731498)->elements[4];


pair_type local_733078; 
return_direct_with_clo1(data,(closure)&c_733015,__lambda_316,  set_cell_as_expr(&local_733078, scan_73576));; 
}

static void __lambda_316(void *data, object self_731499, int argc, object *args) /* object self_731499, object scan_73576 */
 {
 object scan_73576 = args[0];
  
closureN_type c_733017;
object e_733045 [4];
c_733017.hdr.mark = gc_color_red;
 c_733017.hdr.grayed = 0;
c_733017.tag = closureN_tag;
 c_733017.fn = (function_type)__lambda_179;
c_733017.num_args = 1;
c_733017.num_elements = 4;
c_733017.elements = (object *)e_733045;
c_733017.elements[0] = ((closureN)self_731499)->elements[0];
c_733017.elements[1] = ((closureN)self_731499)->elements[2];
c_733017.elements[2] = ((closureN)self_731499)->elements[3];
c_733017.elements[3] = scan_73576;


closureN_type c_733046;
object e_733074 [4];
c_733046.hdr.mark = gc_color_red;
 c_733046.hdr.grayed = 0;
c_733046.tag = closureN_tag;
 c_733046.fn = (function_type)__lambda_181;
c_733046.num_args = 2;
c_733046.num_elements = 4;
c_733046.elements = (object *)e_733074;
c_733046.elements[0] = ((closureN)self_731499)->elements[0];
c_733046.elements[1] = ((closureN)self_731499)->elements[1];
c_733046.elements[2] = scan_73576;
c_733046.elements[3] = ((closureN)self_731499)->elements[4];

return_direct_with_clo1(data,(closure)&c_733017,__lambda_179,  &c_733046);; 
}

static void __lambda_181(void *data, object self_731500, int argc, object *args) /* object self_731500, object k_731100, object vars_73270_73577, object vals_73271_73578 */
 {
 object k_731100 = args[0]; object vars_73270_73577 = args[1]; object vals_73271_73578 = args[2];
    
if( (boolean_f != Cyc_is_null(vars_73270_73577)) ){ 
  



return_closcall2(data,  car(((closureN)self_731500)->elements[1]),  k_731100, Cyc_cdr(data, ((closureN)self_731500)->elements[0]));
} else { 
    
  
if( (boolean_f != Cyc_eq(((closureN)self_731500)->elements[3], Cyc_car(data, vars_73270_73577))) ){ 
  



return_direct_with_clo1(data,  k_731100, (((closure)  k_731100)->fn),  Cyc_get_cvar(Cyc_car(data, vals_73271_73578)));
} else { 
  





return_closcall3(data,  car(((closureN)self_731500)->elements[2]),  k_731100, Cyc_cdr(data, vars_73270_73577), Cyc_cdr(data, vals_73271_73578));}
;}
;; 
}

static void __lambda_179(void *data, object self_731501, int argc, object *args) /* object self_731501, object r_731099 */
 {
 object r_731099 = args[0];
  
closureN_type c_733019;
object e_733041 [4];
c_733019.hdr.mark = gc_color_red;
 c_733019.hdr.grayed = 0;
c_733019.tag = closureN_tag;
 c_733019.fn = (function_type)__lambda_180;
c_733019.num_args = 1;
c_733019.num_elements = 4;
c_733019.elements = (object *)e_733041;
c_733019.elements[0] = ((closureN)self_731501)->elements[0];
c_733019.elements[1] = ((closureN)self_731501)->elements[1];
c_733019.elements[2] = ((closureN)self_731501)->elements[2];
c_733019.elements[3] = ((closureN)self_731501)->elements[3];



return_direct_with_clo1(data,(closure)&c_733019,__lambda_180,  Cyc_set_cell(data, ((closureN)self_731501)->elements[3], r_731099));; 
}

static void __lambda_180(void *data, object self_731502, int argc, object *args) /* object self_731502, object r_731094 */
 {

    
if( (boolean_f != Cyc_eq(((closureN)self_731502)->elements[0], __glo_env_117the_91empty_91environment_scheme_cyclone_util)) ){ 
  return_closcall1(data,  ((closureN)self_731502)->elements[2],  ((closureN)self_731502)->elements[1]);
} else { 
  









return_closcall3(data,  car(((closureN)self_731502)->elements[3]),  ((closureN)self_731502)->elements[1], Cyc_car(data, Cyc_car(data, ((closureN)self_731502)->elements[0])), Cyc_cdr(data, Cyc_car(data, ((closureN)self_731502)->elements[0])));}
;; 
}

static void __lambda_175(void *data, object self_731503, int argc, object *args) /* object self_731503, object r_731092 */
 {
 object r_731092 = args[0];
  
closureN_type c_732999;
object e_733006 [3];
c_732999.hdr.mark = gc_color_red;
 c_732999.hdr.grayed = 0;
c_732999.tag = closureN_tag;
 c_732999.fn = (function_type)__lambda_176;
c_732999.num_args = 1;
c_732999.num_elements = 3;
c_732999.elements = (object *)e_733006;
c_732999.elements[0] = ((closureN)self_731503)->elements[0];
c_732999.elements[1] = ((closureN)self_731503)->elements[1];
c_732999.elements[2] = ((closureN)self_731503)->elements[2];



return_direct_with_clo1(data,(closure)&c_732999,__lambda_176,  Cyc_set_cell(data, ((closureN)self_731503)->elements[1], r_731092));; 
}

static void __lambda_176(void *data, object self_731504, int argc, object *args) /* object self_731504, object r_731091 */
 {

  

return_closcall2(data,  car(((closureN)self_731504)->elements[1]),  ((closureN)self_731504)->elements[2], ((closureN)self_731504)->elements[0]);; 
}

static void __lambda_170(void *data, object _, int argc, object *args) /* closure _,object k_731085, object var_73264_73566, object env_73265_73567 */
 {
object k_731085 = args[0]; object var_73264_73566 = args[1]; object env_73265_73567 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:lookup-variable-value");

closureN_type c_732980;
object e_732985 [3];
c_732980.hdr.mark = gc_color_red;
 c_732980.hdr.grayed = 0;
c_732980.tag = closureN_tag;
 c_732980.fn = (function_type)__lambda_171;
c_732980.num_args = 1;
c_732980.num_elements = 3;
c_732980.elements = (object *)e_732985;
c_732980.elements[0] = env_73265_73567;
c_732980.elements[1] = k_731085;
c_732980.elements[2] = var_73264_73566;


closureN_type c_732986;
object e_732990 [1];
c_732986.hdr.mark = gc_color_red;
 c_732986.hdr.grayed = 0;
c_732986.tag = closureN_tag;
 c_732986.fn = (function_type)__lambda_172;
c_732986.num_args = 0;
c_732986.num_elements = 1;
c_732986.elements = (object *)e_732990;
c_732986.elements[0] = var_73264_73566;

return_direct_with_clo1(data,(closure)&c_732980,__lambda_171,  &c_732986);; 
}

static void __lambda_172(void *data, object self_731493, int argc, object *args) /* object self_731493, object k_731087 */
 {
 object k_731087 = args[0];
  
make_utf8_string_with_len(c_732988, "Unbound variable", 16, 16);
return_direct_with_clo3(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_731087, &c_732988, ((closureN)self_731493)->elements[0]);; 
}

static void __lambda_171(void *data, object self_731494, int argc, object *args) /* object self_731494, object r_731086 */
 {
 object r_731086 = args[0];
  return_direct_with_clo4(data,  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util, (((closure)  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util)->fn),  ((closureN)self_731494)->elements[1], ((closureN)self_731494)->elements[2], ((closureN)self_731494)->elements[0], r_731086);; 
}

static void __lambda_165(void *data, object _, int argc, object *args) /* closure _,object k_731075, object vars_73261_73563, object vals_73262_73564, object base_91env_73263_73565 */
 {
object k_731075 = args[0]; object vars_73261_73563 = args[1]; object vals_73262_73564 = args[2]; object base_91env_73263_73565 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:extend-environment");

closureN_type c_732929;
object e_732975 [4];
c_732929.hdr.mark = gc_color_red;
 c_732929.hdr.grayed = 0;
c_732929.tag = closureN_tag;
 c_732929.fn = (function_type)__lambda_166;
c_732929.num_args = 1;
c_732929.num_elements = 4;
c_732929.elements = (object *)e_732975;
c_732929.elements[0] = base_91env_73263_73565;
c_732929.elements[1] = k_731075;
c_732929.elements[2] = vals_73262_73564;
c_732929.elements[3] = vars_73261_73563;



return_direct_with_clo1(data,(closure)&c_732929,__lambda_166,  Cyc_length(data, vars_73261_73563));; 
}

static void __lambda_166(void *data, object self_731489, int argc, object *args) /* object self_731489, object r_731081 */
 {
 object r_731081 = args[0];
  
closureN_type c_732931;
object e_732971 [5];
c_732931.hdr.mark = gc_color_red;
 c_732931.hdr.grayed = 0;
c_732931.tag = closureN_tag;
 c_732931.fn = (function_type)__lambda_167;
c_732931.num_args = 1;
c_732931.num_elements = 5;
c_732931.elements = (object *)e_732971;
c_732931.elements[0] = ((closureN)self_731489)->elements[0];
c_732931.elements[1] = ((closureN)self_731489)->elements[1];
c_732931.elements[2] = r_731081;
c_732931.elements[3] = ((closureN)self_731489)->elements[2];
c_732931.elements[4] = ((closureN)self_731489)->elements[3];



return_direct_with_clo1(data,(closure)&c_732931,__lambda_167,  Cyc_length(data, ((closureN)self_731489)->elements[2]));; 
}

static void __lambda_167(void *data, object self_731490, int argc, object *args) /* object self_731490, object r_731082 */
 {
 object r_731082 = args[0];
    
if( (boolean_f != Cyc_num_fast_eq_op(data, ((closureN)self_731490)->elements[2], r_731082)) ){ 
  
pair_type local_732939; 

pair_type local_732942; 
return_direct_with_clo1(data,  ((closureN)self_731490)->elements[1], (((closure)  ((closureN)self_731490)->elements[1])->fn),  set_pair_as_expr(&local_732939, set_pair_as_expr(&local_732942, ((closureN)self_731490)->elements[4], ((closureN)self_731490)->elements[3]), ((closureN)self_731490)->elements[0]));
} else { 
  
closureN_type c_732947;
object e_732967 [3];
c_732947.hdr.mark = gc_color_red;
 c_732947.hdr.grayed = 0;
c_732947.tag = closureN_tag;
 c_732947.fn = (function_type)__lambda_168;
c_732947.num_args = 1;
c_732947.num_elements = 3;
c_732947.elements = (object *)e_732967;
c_732947.elements[0] = ((closureN)self_731490)->elements[1];
c_732947.elements[1] = ((closureN)self_731490)->elements[3];
c_732947.elements[2] = ((closureN)self_731490)->elements[4];



return_direct_with_clo1(data,(closure)&c_732947,__lambda_168,  Cyc_length(data, ((closureN)self_731490)->elements[4]));}
;; 
}

static void __lambda_168(void *data, object self_731491, int argc, object *args) /* object self_731491, object r_731079 */
 {
 object r_731079 = args[0];
  
closureN_type c_732949;
object e_732963 [4];
c_732949.hdr.mark = gc_color_red;
 c_732949.hdr.grayed = 0;
c_732949.tag = closureN_tag;
 c_732949.fn = (function_type)__lambda_169;
c_732949.num_args = 1;
c_732949.num_elements = 4;
c_732949.elements = (object *)e_732963;
c_732949.elements[0] = ((closureN)self_731491)->elements[0];
c_732949.elements[1] = r_731079;
c_732949.elements[2] = ((closureN)self_731491)->elements[1];
c_732949.elements[3] = ((closureN)self_731491)->elements[2];



return_direct_with_clo1(data,(closure)&c_732949,__lambda_169,  Cyc_length(data, ((closureN)self_731491)->elements[1]));; 
}

static void __lambda_169(void *data, object self_731492, int argc, object *args) /* object self_731492, object r_731080 */
 {
 object r_731080 = args[0];
    
if( (boolean_f != Cyc_num_fast_lt_op(data, ((closureN)self_731492)->elements[1], r_731080)) ){ 
  
make_utf8_string_with_len(c_732955, "Too many arguments supplied", 27, 27);
return_direct_with_clo4(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_731492)->elements[0], &c_732955, ((closureN)self_731492)->elements[3], ((closureN)self_731492)->elements[2]);
} else { 
  
make_utf8_string_with_len(c_732960, "Too few arguments supplied", 26, 26);
return_direct_with_clo4(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  ((closureN)self_731492)->elements[0], &c_732960, ((closureN)self_731492)->elements[3], ((closureN)self_731492)->elements[2]);}
;; 
}

static void __lambda_164(void *data, object _, int argc, object *args) /* closure _,object k_731070, object env_73260_73562 */
 {
object k_731070 = args[0]; object env_73260_73562 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:all-values");




return_direct_with_clo2(data,  __glo_flatten_scheme_cyclone_util, (((closure)  __glo_flatten_scheme_cyclone_util)->fn),  k_731070, Cyc_cdr(data, Cyc_car(data, env_73260_73562)));; 
}

static void __lambda_163(void *data, object _, int argc, object *args) /* closure _,object k_731065, object env_73259_73561 */
 {
object k_731065 = args[0]; object env_73259_73561 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:all-variables");




return_direct_with_clo2(data,  __glo_flatten_scheme_cyclone_util, (((closure)  __glo_flatten_scheme_cyclone_util)->fn),  k_731065, Cyc_car(data, Cyc_car(data, env_73259_73561)));; 
}

static void __lambda_159(void *data, object _, int argc, object *args) /* closure _,object k_731057, object var_73256_73558, object val_73257_73559, object frame_73258_73560 */
 {
object k_731057 = args[0]; object var_73256_73558 = args[1]; object val_73257_73559 = args[2]; object frame_73258_73560 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:add-binding-to-frame!");

closureN_type c_732884;
object e_732912 [4];
c_732884.hdr.mark = gc_color_red;
 c_732884.hdr.grayed = 0;
c_732884.tag = closureN_tag;
 c_732884.fn = (function_type)__lambda_160;
c_732884.num_args = 1;
c_732884.num_elements = 4;
c_732884.elements = (object *)e_732912;
c_732884.elements[0] = frame_73258_73560;
c_732884.elements[1] = k_731057;
c_732884.elements[2] = val_73257_73559;
c_732884.elements[3] = var_73256_73558;



return_direct_with_clo1(data,(closure)&c_732884,__lambda_160,  Cyc_car(data, frame_73258_73560));; 
}

static void __lambda_160(void *data, object self_731486, int argc, object *args) /* object self_731486, object r_731062 */
 {
 object r_731062 = args[0];
  
closureN_type c_732886;
object e_732903 [3];
c_732886.hdr.mark = gc_color_red;
 c_732886.hdr.grayed = 0;
c_732886.tag = closureN_tag;
 c_732886.fn = (function_type)__lambda_161;
c_732886.num_args = 1;
c_732886.num_elements = 3;
c_732886.elements = (object *)e_732903;
c_732886.elements[0] = ((closureN)self_731486)->elements[0];
c_732886.elements[1] = ((closureN)self_731486)->elements[1];
c_732886.elements[2] = ((closureN)self_731486)->elements[2];


pair_type local_732910; 

object c_732906 = Cyc_set_car_cps(data,(closure)&c_732886,((closureN)self_731486)->elements[0], set_pair_as_expr(&local_732910, ((closureN)self_731486)->elements[3], r_731062));
return_closcall1(data,(closure)&c_732886,  c_732906);; 
}

static void __lambda_161(void *data, object self_731487, int argc, object *args) /* object self_731487, object r_731058 */
 {

  
closureN_type c_732888;
object e_732899 [3];
c_732888.hdr.mark = gc_color_red;
 c_732888.hdr.grayed = 0;
c_732888.tag = closureN_tag;
 c_732888.fn = (function_type)__lambda_162;
c_732888.num_args = 1;
c_732888.num_elements = 3;
c_732888.elements = (object *)e_732899;
c_732888.elements[0] = ((closureN)self_731487)->elements[0];
c_732888.elements[1] = ((closureN)self_731487)->elements[1];
c_732888.elements[2] = ((closureN)self_731487)->elements[2];



return_direct_with_clo1(data,(closure)&c_732888,__lambda_162,  Cyc_cdr(data, ((closureN)self_731487)->elements[0]));; 
}

static void __lambda_162(void *data, object self_731488, int argc, object *args) /* object self_731488, object r_731060 */
 {
 object r_731060 = args[0];
  
pair_type local_732897; 

object c_732893 = Cyc_set_cdr_cps(data,  ((closureN)self_731488)->elements[1],((closureN)self_731488)->elements[0], set_pair_as_expr(&local_732897, ((closureN)self_731488)->elements[2], r_731060));
return_direct_with_clo1(data,  ((closureN)self_731488)->elements[1], (((closure)  ((closureN)self_731488)->elements[1])->fn),  c_732893);; 
}

static object __lambda_341(void *data, object ptr,object frame_73255_73557) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:env:frame-values");


return_copy(ptr,  Cyc_cdr(data, frame_73255_73557));; 
}

static void __lambda_158(void *data, object _, int argc, object *args) /* closure _,object k_731054, object frame_73255_73557 */
 {
object k_731054 = args[0]; object frame_73255_73557 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:frame-values");


return_direct_with_clo1(data,  k_731054, (((closure)  k_731054)->fn),  Cyc_cdr(data, frame_73255_73557));; 
}

static object __lambda_340(void *data, object ptr,object frame_73254_73556) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:env:frame-variables");


return_copy(ptr,  Cyc_car(data, frame_73254_73556));; 
}

static void __lambda_157(void *data, object _, int argc, object *args) /* closure _,object k_731051, object frame_73254_73556 */
 {
object k_731051 = args[0]; object frame_73254_73556 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:frame-variables");


return_direct_with_clo1(data,  k_731051, (((closure)  k_731051)->fn),  Cyc_car(data, frame_73254_73556));; 
}

static void __lambda_156(void *data, object _, int argc, object *args) /* closure _,object k_731048, object variables_73252_73554, object values_73253_73555 */
 {
object k_731048 = args[0]; object variables_73252_73554 = args[1]; object values_73253_73555 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:make-frame");

pair_type local_732865; 
return_direct_with_clo1(data,  k_731048, (((closure)  k_731048)->fn),  set_pair_as_expr(&local_732865, variables_73252_73554, values_73253_73555));; 
}

static object __lambda_339(void *data, object ptr,object env_73251_73553) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:env:first-frame");


return_copy(ptr,  Cyc_car(data, env_73251_73553));; 
}

static void __lambda_155(void *data, object _, int argc, object *args) /* closure _,object k_731043, object env_73251_73553 */
 {
object k_731043 = args[0]; object env_73251_73553 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:first-frame");


return_direct_with_clo1(data,  k_731043, (((closure)  k_731043)->fn),  Cyc_car(data, env_73251_73553));; 
}

static object __lambda_338(void *data, object ptr,object env_73250_73552) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:env:enclosing-environment");


return_copy(ptr,  Cyc_cdr(data, env_73250_73552));; 
}

static void __lambda_154(void *data, object _, int argc, object *args) /* closure _,object k_731040, object env_73250_73552 */
 {
object k_731040 = args[0]; object env_73250_73552 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:env:enclosing-environment");


return_direct_with_clo1(data,  k_731040, (((closure)  k_731040)->fn),  Cyc_cdr(data, env_73250_73552));; 
}

static void __lambda_143(void *data, object _, int argc, object *args) /* closure _,object k_731023, object params_73245_73551_raw, ... */
 {
object k_731023 = args[0];
load_varargs(params_73245_73551, args, 1, argc - 1);
  Cyc_st_add(data, "scheme/cyclone/util.sld:gensym");
  
if( (boolean_f != Cyc_is_null(params_73245_73551)) ){ 
  
closureN_type c_732766;
object e_732790 [1];
c_732766.hdr.mark = gc_color_red;
 c_732766.hdr.grayed = 0;
c_732766.tag = closureN_tag;
 c_732766.fn = (function_type)__lambda_144;
c_732766.num_args = 1;
c_732766.num_elements = 1;
c_732766.elements = (object *)e_732790;
c_732766.elements[0] = k_731023;


complex_num_type local_732793; 
return_direct_with_clo1(data,(closure)&c_732766,__lambda_144,  Cyc_fast_sum(data,&local_732793, __glo_gensym_91count_scheme_cyclone_util, obj_int2obj(1)));
} else { 
  
closureN_type c_732795;
object e_732841 [2];
c_732795.hdr.mark = gc_color_red;
 c_732795.hdr.grayed = 0;
c_732795.tag = closureN_tag;
 c_732795.fn = (function_type)__lambda_148;
c_732795.num_args = 1;
c_732795.num_elements = 2;
c_732795.elements = (object *)e_732841;
c_732795.elements[0] = k_731023;
c_732795.elements[1] = params_73245_73551;


complex_num_type local_732844; 
return_direct_with_clo1(data,(closure)&c_732795,__lambda_148,  Cyc_fast_sum(data,&local_732844, __glo_gensym_91count_scheme_cyclone_util, obj_int2obj(1)));}
;; 
}

static void __lambda_148(void *data, object self_731480, int argc, object *args) /* object self_731480, object r_731037 */
 {
 object r_731037 = args[0];
  
closureN_type c_732797;
object e_732837 [2];
c_732797.hdr.mark = gc_color_red;
 c_732797.hdr.grayed = 0;
c_732797.tag = closureN_tag;
 c_732797.fn = (function_type)__lambda_149;
c_732797.num_args = 1;
c_732797.num_elements = 2;
c_732797.elements = (object *)e_732837;
c_732797.elements[0] = ((closureN)self_731480)->elements[0];
c_732797.elements[1] = ((closureN)self_731480)->elements[1];


object c_732840 = global_set_cps_id(data,(closure)&c_732797,"__glo_gensym_91count_scheme_cyclone_util", __glo_gensym_91count_scheme_cyclone_util, r_731037);
return_closcall1(data,(closure)&c_732797,  c_732840);; 
}

static void __lambda_149(void *data, object self_731481, int argc, object *args) /* object self_731481, object r_731029 */
 {

  
closureN_type c_732799;
object e_732816 [1];
c_732799.hdr.mark = gc_color_red;
 c_732799.hdr.grayed = 0;
c_732799.tag = closureN_tag;
 c_732799.fn = (function_type)__lambda_150;
c_732799.num_args = 0;
c_732799.num_elements = 1;
c_732799.elements = (object *)e_732816;
c_732799.elements[0] = ((closureN)self_731481)->elements[1];


closureN_type c_732817;
object e_732836 [1];
c_732817.hdr.mark = gc_color_red;
 c_732817.hdr.grayed = 0;
c_732817.tag = closureN_tag;
 c_732817.fn = (function_type)__lambda_151;
c_732817.num_args = 1;
c_732817.num_elements = 1;
c_732817.elements = (object *)e_732836;
c_732817.elements[0] = ((closureN)self_731481)->elements[0];

return_direct_with_clo1(data,(closure)&c_732799,__lambda_150,  &c_732817);; 
}

static void __lambda_151(void *data, object self_731482, int argc, object *args) /* object self_731482, object r_731031 */
 {
 object r_731031 = args[0];
  
closureN_type c_732819;
object e_732832 [2];
c_732819.hdr.mark = gc_color_red;
 c_732819.hdr.grayed = 0;
c_732819.tag = closureN_tag;
 c_732819.fn = (function_type)__lambda_152;
c_732819.num_args = 1;
c_732819.num_elements = 2;
c_732819.elements = (object *)e_732832;
c_732819.elements[0] = ((closureN)self_731482)->elements[0];
c_732819.elements[1] = r_731031;


object c_732835 = Cyc_number2string2(data,(closure)&c_732819,1,__glo_gensym_91count_scheme_cyclone_util);
return_closcall1(data,(closure)&c_732819,  c_732835);; 
}

static void __lambda_152(void *data, object self_731483, int argc, object *args) /* object self_731483, object r_731032 */
 {
 object r_731032 = args[0];
  
closureN_type c_732821;
object e_732826 [1];
c_732821.hdr.mark = gc_color_red;
 c_732821.hdr.grayed = 0;
c_732821.tag = closureN_tag;
 c_732821.fn = (function_type)__lambda_153;
c_732821.num_args = 1;
c_732821.num_elements = 1;
c_732821.elements = (object *)e_732826;
c_732821.elements[0] = ((closureN)self_731483)->elements[0];


make_utf8_string_with_len(c_732831, "$", 1, 1);

object c_732829 = Cyc_string_append(data,(closure)&c_732821,3,((closureN)self_731483)->elements[1], &c_732831, r_731032);
return_closcall1(data,(closure)&c_732821,  c_732829);; 
}

static void __lambda_153(void *data, object self_731484, int argc, object *args) /* object self_731484, object r_731030 */
 {
 object r_731030 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_731484)->elements[0], (((closure)  ((closureN)self_731484)->elements[0])->fn),  Cyc_string2symbol(data, r_731030));; 
}

static void __lambda_150(void *data, object self_731485, int argc, object *args) /* object self_731485, object k_731033 */
 {
 object k_731033 = args[0];
    
  
if( (boolean_f != Cyc_is_symbol(Cyc_car(data, ((closureN)self_731485)->elements[0]))) ){ 
  


object c_732808 = Cyc_symbol2string(data,  k_731033,Cyc_car(data, ((closureN)self_731485)->elements[0]));
return_direct_with_clo1(data,  k_731033, (((closure)  k_731033)->fn),  c_732808);
} else { 
  

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

static void __lambda_144(void *data, object self_731476, int argc, object *args) /* object self_731476, object r_731028 */
 {
 object r_731028 = args[0];
  
closureN_type c_732768;
object e_732786 [1];
c_732768.hdr.mark = gc_color_red;
 c_732768.hdr.grayed = 0;
c_732768.tag = closureN_tag;
 c_732768.fn = (function_type)__lambda_145;
c_732768.num_args = 1;
c_732768.num_elements = 1;
c_732768.elements = (object *)e_732786;
c_732768.elements[0] = ((closureN)self_731476)->elements[0];


object c_732789 = global_set_cps_id(data,(closure)&c_732768,"__glo_gensym_91count_scheme_cyclone_util", __glo_gensym_91count_scheme_cyclone_util, r_731028);
return_closcall1(data,(closure)&c_732768,  c_732789);; 
}

static void __lambda_145(void *data, object self_731477, int argc, object *args) /* object self_731477, object r_731025 */
 {

  
closureN_type c_732770;
object e_732782 [1];
c_732770.hdr.mark = gc_color_red;
 c_732770.hdr.grayed = 0;
c_732770.tag = closureN_tag;
 c_732770.fn = (function_type)__lambda_146;
c_732770.num_args = 1;
c_732770.num_elements = 1;
c_732770.elements = (object *)e_732782;
c_732770.elements[0] = ((closureN)self_731477)->elements[0];


object c_732785 = Cyc_number2string2(data,(closure)&c_732770,1,__glo_gensym_91count_scheme_cyclone_util);
return_closcall1(data,(closure)&c_732770,  c_732785);; 
}

static void __lambda_146(void *data, object self_731478, int argc, object *args) /* object self_731478, object r_731027 */
 {
 object r_731027 = args[0];
  
closureN_type c_732772;
object e_732777 [1];
c_732772.hdr.mark = gc_color_red;
 c_732772.hdr.grayed = 0;
c_732772.tag = closureN_tag;
 c_732772.fn = (function_type)__lambda_147;
c_732772.num_args = 1;
c_732772.num_elements = 1;
c_732772.elements = (object *)e_732777;
c_732772.elements[0] = ((closureN)self_731478)->elements[0];


make_utf8_string_with_len(c_732781, "$", 1, 1);

object c_732780 = Cyc_string_append(data,(closure)&c_732772,2,&c_732781, r_731027);
return_closcall1(data,(closure)&c_732772,  c_732780);; 
}

static void __lambda_147(void *data, object self_731479, int argc, object *args) /* object self_731479, object r_731026 */
 {
 object r_731026 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_731479)->elements[0], (((closure)  ((closureN)self_731479)->elements[0])->fn),  Cyc_string2symbol(data, r_731026));; 
}

static void __lambda_137(void *data, object _, int argc, object *args) /* closure _,object k_731012, object lis_73240_73546, object prefix_73241_73547 */
 {
object k_731012 = args[0]; object lis_73240_73546 = args[1]; object prefix_73241_73547 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:list-prefix?");

closureN_type c_732738;
object e_732741 [1];
c_732738.hdr.mark = gc_color_red;
 c_732738.hdr.grayed = 0;
c_732738.tag = closureN_tag;
 c_732738.fn = (function_type)__lambda_138;
c_732738.num_args = 1;
c_732738.num_elements = 1;
c_732738.elements = (object *)e_732741;
c_732738.elements[0] = k_731012;


closureN_type c_732742;
object e_732761 [2];
c_732742.hdr.mark = gc_color_red;
 c_732742.hdr.grayed = 0;
c_732742.tag = closureN_tag;
 c_732742.fn = (function_type)__lambda_139;
c_732742.num_args = 1;
c_732742.num_elements = 2;
c_732742.elements = (object *)e_732761;
c_732742.elements[0] = lis_73240_73546;
c_732742.elements[1] = prefix_73241_73547;

return_direct_with_clo1(data,(closure)&c_732738,__lambda_138,  &c_732742);; 
}

static void __lambda_139(void *data, object self_731471, int argc, object *args) /* object self_731471, object k_731014, object return_73242_73548 */
 {
 object k_731014 = args[0]; object return_73242_73548 = args[1];
  
closureN_type c_732744;
object e_732753 [4];
c_732744.hdr.mark = gc_color_red;
 c_732744.hdr.grayed = 0;
c_732744.tag = closureN_tag;
 c_732744.fn = (function_type)__lambda_140;
c_732744.num_args = 1;
c_732744.num_elements = 4;
c_732744.elements = (object *)e_732753;
c_732744.elements[0] = k_731014;
c_732744.elements[1] = ((closureN)self_731471)->elements[0];
c_732744.elements[2] = ((closureN)self_731471)->elements[1];
c_732744.elements[3] = return_73242_73548;


closureN_type c_732754;
object e_732760 [1];
c_732754.hdr.mark = gc_color_red;
 c_732754.hdr.grayed = 0;
c_732754.tag = closureN_tag;
 c_732754.fn = (function_type)__lambda_142;
c_732754.num_args = 2;
c_732754.num_elements = 1;
c_732754.elements = (object *)e_732760;
c_732754.elements[0] = return_73242_73548;

return_direct_with_clo1(data,(closure)&c_732744,__lambda_140,  &c_732754);; 
}

static void __lambda_142(void *data, object self_731472, int argc, object *args) /* object self_731472, object k_731017, object x_73243_73549, object y_73244_73550 */
 {
 object k_731017 = args[0]; object x_73243_73549 = args[1]; object y_73244_73550 = args[2];
    
if( (boolean_f != equalp(x_73243_73549, y_73244_73550)) ){ 
  return_direct_with_clo1(data,  k_731017, (((closure)  k_731017)->fn),  Cyc_VOID);
} else { 
  return_closcall2(data,  ((closureN)self_731472)->elements[0],  k_731017, boolean_f);}
;; 
}

static void __lambda_140(void *data, object self_731473, int argc, object *args) /* object self_731473, object r_731016 */
 {
 object r_731016 = args[0];
  
closureN_type c_732746;
object e_732750 [2];
c_732746.hdr.mark = gc_color_red;
 c_732746.hdr.grayed = 0;
c_732746.tag = closureN_tag;
 c_732746.fn = (function_type)__lambda_141;
c_732746.num_args = 1;
c_732746.num_elements = 2;
c_732746.elements = (object *)e_732750;
c_732746.elements[0] = ((closureN)self_731473)->elements[0];
c_732746.elements[1] = ((closureN)self_731473)->elements[3];

return_direct_with_clo4(data,  __glo_Cyc_91for_91each_91loop_912_scheme_base, (((closure)  __glo_Cyc_91for_91each_91loop_912_scheme_base)->fn),  &c_732746, r_731016, ((closureN)self_731473)->elements[1], ((closureN)self_731473)->elements[2]);; 
}

static void __lambda_141(void *data, object self_731474, int argc, object *args) /* object self_731474, object r_731015 */
 {

  return_closcall2(data,  ((closureN)self_731474)->elements[1],  ((closureN)self_731474)->elements[0], boolean_t);; 
}

static void __lambda_138(void *data, object self_731475, int argc, object *args) /* object self_731475, object r_731013 */
 {
 object r_731013 = args[0];
  return_direct_with_clo2(data,  __glo_call_95cc_scheme_base, (((closure)  __glo_call_95cc_scheme_base)->fn),  ((closureN)self_731475)->elements[0], r_731013);; 
}

static void __lambda_135(void *data, object _, int argc, object *args) /* closure _,object k_731008, object pre_73238_73544, object lis_73239_73545 */
 {
object k_731008 = args[0]; object pre_73238_73544 = args[1]; object lis_73239_73545 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:reverse-append");

closureN_type c_732731;
object e_732735 [2];
c_732731.hdr.mark = gc_color_red;
 c_732731.hdr.grayed = 0;
c_732731.tag = closureN_tag;
 c_732731.fn = (function_type)__lambda_136;
c_732731.num_args = 1;
c_732731.num_elements = 2;
c_732731.elements = (object *)e_732735;
c_732731.elements[0] = k_731008;
c_732731.elements[1] = lis_73239_73545;

return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  &c_732731, pre_73238_73544);; 
}

static void __lambda_136(void *data, object self_731470, int argc, object *args) /* object self_731470, object r_731009 */
 {
 object r_731009 = args[0];
  return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  ((closureN)self_731470)->elements[0], r_731009, ((closureN)self_731470)->elements[1]);; 
}

static void __lambda_121(void *data, object _, int argc, object *args) /* closure _,object k_73989, object haystack_73218_73532, object needle_73219_73533, object replacement_73220_73534 */
 {
object k_73989 = args[0]; object haystack_73218_73532 = args[1]; object needle_73219_73533 = args[2]; object replacement_73220_73534 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:string-replace-all");

closureN_type c_732636;
object e_732728 [3];
c_732636.hdr.mark = gc_color_red;
 c_732636.hdr.grayed = 0;
c_732636.tag = closureN_tag;
 c_732636.fn = (function_type)__lambda_122;
c_732636.num_args = 1;
c_732636.num_elements = 3;
c_732636.elements = (object *)e_732728;
c_732636.elements[0] = k_73989;
c_732636.elements[1] = needle_73219_73533;
c_732636.elements[2] = replacement_73220_73534;

return_direct_with_clo2(data,  __glo_string_91_125list_scheme_base, (((closure)  __glo_string_91_125list_scheme_base)->fn),  &c_732636, haystack_73218_73532);; 
}

static void __lambda_122(void *data, object self_731456, int argc, object *args) /* object self_731456, object r_73990 */
 {
 object r_73990 = args[0];
  
closureN_type c_732638;
object e_732726 [4];
c_732638.hdr.mark = gc_color_red;
 c_732638.hdr.grayed = 0;
c_732638.tag = closureN_tag;
 c_732638.fn = (function_type)__lambda_123;
c_732638.num_args = 1;
c_732638.num_elements = 4;
c_732638.elements = (object *)e_732726;
c_732638.elements[0] = ((closureN)self_731456)->elements[0];
c_732638.elements[1] = ((closureN)self_731456)->elements[1];
c_732638.elements[2] = r_73990;
c_732638.elements[3] = ((closureN)self_731456)->elements[2];

return_direct_with_clo2(data,  __glo_string_91_125list_scheme_base, (((closure)  __glo_string_91_125list_scheme_base)->fn),  &c_732638, ((closureN)self_731456)->elements[1]);; 
}

static void __lambda_123(void *data, object self_731457, int argc, object *args) /* object self_731457, object r_73991 */
 {
 object r_73991 = args[0];
  
closureN_type c_732640;
object e_732724 [4];
c_732640.hdr.mark = gc_color_red;
 c_732640.hdr.grayed = 0;
c_732640.tag = closureN_tag;
 c_732640.fn = (function_type)__lambda_124;
c_732640.num_args = 1;
c_732640.num_elements = 4;
c_732640.elements = (object *)e_732724;
c_732640.elements[0] = ((closureN)self_731457)->elements[0];
c_732640.elements[1] = ((closureN)self_731457)->elements[1];
c_732640.elements[2] = ((closureN)self_731457)->elements[2];
c_732640.elements[3] = r_73991;

return_direct_with_clo2(data,  __glo_string_91_125list_scheme_base, (((closure)  __glo_string_91_125list_scheme_base)->fn),  &c_732640, ((closureN)self_731457)->elements[3]);; 
}

static void __lambda_124(void *data, object self_731458, int argc, object *args) /* object self_731458, object r_73992 */
 {
 object r_73992 = args[0];
  
closureN_type c_732642;
object e_732718 [1];
c_732642.hdr.mark = gc_color_red;
 c_732642.hdr.grayed = 0;
c_732642.tag = closureN_tag;
 c_732642.fn = (function_type)__lambda_125;
c_732642.num_args = 4;
c_732642.num_elements = 1;
c_732642.elements = (object *)e_732718;
c_732642.elements[0] = ((closureN)self_731458)->elements[0];



return_direct_with_clo4(data,(closure)&c_732642,__lambda_125,  ((closureN)self_731458)->elements[2], ((closureN)self_731458)->elements[3], r_73992, Cyc_string_length(data, ((closureN)self_731458)->elements[1]));; 
}

static void __lambda_125(void *data, object self_731459, int argc, object *args) /* object self_731459, object haystack_73221_73535, object needle_73222_73536, object replacement_73223_73537, object needle_91len_73224_73538 */
 {
 object haystack_73221_73535 = args[0]; object needle_73222_73536 = args[1]; object replacement_73223_73537 = args[2]; object needle_91len_73224_73538 = args[3];
  
closureN_type c_732644;
object e_732717 [4];
c_732644.hdr.mark = gc_color_red;
 c_732644.hdr.grayed = 0;
c_732644.tag = closureN_tag;
 c_732644.fn = (function_type)__lambda_126;
c_732644.num_args = 2;
c_732644.num_elements = 4;
c_732644.elements = (object *)e_732717;
c_732644.elements[0] = ((closureN)self_731459)->elements[0];
c_732644.elements[1] = needle_73222_73536;
c_732644.elements[2] = needle_91len_73224_73538;
c_732644.elements[3] = replacement_73223_73537;

return_direct_with_clo2(data,(closure)&c_732644,__lambda_126,  haystack_73221_73535, NULL);; 
}

static void __lambda_126(void *data, object self_731460, int argc, object *args) /* object self_731460, object haystack_73226_73539, object acc_73227_73540 */
 {
 object haystack_73226_73539 = args[0]; object acc_73227_73540 = args[1];
  
closureN_type c_732646;
object e_732716 [6];
c_732646.hdr.mark = gc_color_red;
 c_732646.hdr.grayed = 0;
c_732646.tag = closureN_tag;
 c_732646.fn = (function_type)__lambda_127;
c_732646.num_args = 1;
c_732646.num_elements = 6;
c_732646.elements = (object *)e_732716;
c_732646.elements[0] = acc_73227_73540;
c_732646.elements[1] = haystack_73226_73539;
c_732646.elements[2] = ((closureN)self_731460)->elements[0];
c_732646.elements[3] = ((closureN)self_731460)->elements[1];
c_732646.elements[4] = ((closureN)self_731460)->elements[2];
c_732646.elements[5] = ((closureN)self_731460)->elements[3];

return_direct_with_clo1(data,(closure)&c_732646,__lambda_127,  boolean_f);; 
}

static void __lambda_127(void *data, object self_731461, int argc, object *args) /* object self_731461, object loop_73228_73541 */
 {
 object loop_73228_73541 = args[0];
  
closureN_type c_732648;
object e_732712 [6];
c_732648.hdr.mark = gc_color_red;
 c_732648.hdr.grayed = 0;
c_732648.tag = closureN_tag;
 c_732648.fn = (function_type)__lambda_315;
c_732648.num_args = 1;
c_732648.num_elements = 6;
c_732648.elements = (object *)e_732712;
c_732648.elements[0] = ((closureN)self_731461)->elements[0];
c_732648.elements[1] = ((closureN)self_731461)->elements[1];
c_732648.elements[2] = ((closureN)self_731461)->elements[2];
c_732648.elements[3] = ((closureN)self_731461)->elements[3];
c_732648.elements[4] = ((closureN)self_731461)->elements[4];
c_732648.elements[5] = ((closureN)self_731461)->elements[5];


pair_type local_732715; 
return_direct_with_clo1(data,(closure)&c_732648,__lambda_315,  set_cell_as_expr(&local_732715, loop_73228_73541));; 
}

static void __lambda_315(void *data, object self_731462, int argc, object *args) /* object self_731462, object loop_73228_73541 */
 {
 object loop_73228_73541 = args[0];
  
closureN_type c_732650;
object e_732664 [4];
c_732650.hdr.mark = gc_color_red;
 c_732650.hdr.grayed = 0;
c_732650.tag = closureN_tag;
 c_732650.fn = (function_type)__lambda_128;
c_732650.num_args = 1;
c_732650.num_elements = 4;
c_732650.elements = (object *)e_732664;
c_732650.elements[0] = ((closureN)self_731462)->elements[0];
c_732650.elements[1] = ((closureN)self_731462)->elements[1];
c_732650.elements[2] = ((closureN)self_731462)->elements[2];
c_732650.elements[3] = loop_73228_73541;


closureN_type c_732665;
object e_732711 [4];
c_732665.hdr.mark = gc_color_red;
 c_732665.hdr.grayed = 0;
c_732665.tag = closureN_tag;
 c_732665.fn = (function_type)__lambda_130;
c_732665.num_args = 2;
c_732665.num_elements = 4;
c_732665.elements = (object *)e_732711;
c_732665.elements[0] = loop_73228_73541;
c_732665.elements[1] = ((closureN)self_731462)->elements[3];
c_732665.elements[2] = ((closureN)self_731462)->elements[4];
c_732665.elements[3] = ((closureN)self_731462)->elements[5];

return_direct_with_clo1(data,(closure)&c_732650,__lambda_128,  &c_732665);; 
}

static void __lambda_130(void *data, object self_731463, int argc, object *args) /* object self_731463, object k_73997, object haystack_73229_73542, object acc_73230_73543 */
 {
 object k_73997 = args[0]; object haystack_73229_73542 = args[1]; object acc_73230_73543 = args[2];
    
if( (boolean_f != Cyc_is_null(haystack_73229_73542)) ){ 
  
closureN_type c_732669;
object e_732675 [1];
c_732669.hdr.mark = gc_color_red;
 c_732669.hdr.grayed = 0;
c_732669.tag = closureN_tag;
 c_732669.fn = (function_type)__lambda_131;
c_732669.num_args = 1;
c_732669.num_elements = 1;
c_732669.elements = (object *)e_732675;
c_732669.elements[0] = k_73997;

return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  &c_732669, acc_73230_73543);
} else { 
  
closureN_type c_732677;
object e_732709 [6];
c_732677.hdr.mark = gc_color_red;
 c_732677.hdr.grayed = 0;
c_732677.tag = closureN_tag;
 c_732677.fn = (function_type)__lambda_132;
c_732677.num_args = 1;
c_732677.num_elements = 6;
c_732677.elements = (object *)e_732709;
c_732677.elements[0] = acc_73230_73543;
c_732677.elements[1] = haystack_73229_73542;
c_732677.elements[2] = k_73997;
c_732677.elements[3] = ((closureN)self_731463)->elements[0];
c_732677.elements[4] = ((closureN)self_731463)->elements[2];
c_732677.elements[5] = ((closureN)self_731463)->elements[3];

return_direct_with_clo3(data,  __glo_list_91prefix_127_scheme_cyclone_util, (((closure)  __glo_list_91prefix_127_scheme_cyclone_util)->fn),  &c_732677, haystack_73229_73542, ((closureN)self_731463)->elements[1]);}
;; 
}

static void __lambda_132(void *data, object self_731465, int argc, object *args) /* object self_731465, object r_731000 */
 {
 object r_731000 = args[0];
  if( (boolean_f != r_731000) ){ 
  
closureN_type c_732679;
object e_732691 [4];
c_732679.hdr.mark = gc_color_red;
 c_732679.hdr.grayed = 0;
c_732679.tag = closureN_tag;
 c_732679.fn = (function_type)__lambda_133;
c_732679.num_args = 1;
c_732679.num_elements = 4;
c_732679.elements = (object *)e_732691;
c_732679.elements[0] = ((closureN)self_731465)->elements[0];
c_732679.elements[1] = ((closureN)self_731465)->elements[2];
c_732679.elements[2] = ((closureN)self_731465)->elements[3];
c_732679.elements[3] = ((closureN)self_731465)->elements[5];

return_direct_with_clo3(data,  __glo_list_91tail_scheme_base, (((closure)  __glo_list_91tail_scheme_base)->fn),  &c_732679, ((closureN)self_731465)->elements[1], ((closureN)self_731465)->elements[4]);
} else { 
  




pair_type local_732704; 


return_closcall3(data,  car(((closureN)self_731465)->elements[3]),  ((closureN)self_731465)->elements[2], Cyc_cdr(data, ((closureN)self_731465)->elements[1]), set_pair_as_expr(&local_732704, Cyc_car(data, ((closureN)self_731465)->elements[1]), ((closureN)self_731465)->elements[0]));}
;; 
}

static void __lambda_133(void *data, object self_731466, int argc, object *args) /* object self_731466, object r_731001 */
 {
 object r_731001 = args[0];
  
closureN_type c_732681;
object e_732688 [3];
c_732681.hdr.mark = gc_color_red;
 c_732681.hdr.grayed = 0;
c_732681.tag = closureN_tag;
 c_732681.fn = (function_type)__lambda_134;
c_732681.num_args = 1;
c_732681.num_elements = 3;
c_732681.elements = (object *)e_732688;
c_732681.elements[0] = ((closureN)self_731466)->elements[1];
c_732681.elements[1] = ((closureN)self_731466)->elements[2];
c_732681.elements[2] = r_731001;

return_direct_with_clo3(data,  __glo_reverse_91append_scheme_cyclone_util, (((closure)  __glo_reverse_91append_scheme_cyclone_util)->fn),  &c_732681, ((closureN)self_731466)->elements[3], ((closureN)self_731466)->elements[0]);; 
}

static void __lambda_134(void *data, object self_731467, int argc, object *args) /* object self_731467, object r_731002 */
 {
 object r_731002 = args[0];
  

return_closcall3(data,  car(((closureN)self_731467)->elements[1]),  ((closureN)self_731467)->elements[0], ((closureN)self_731467)->elements[2], r_731002);; 
}

static void __lambda_131(void *data, object self_731464, int argc, object *args) /* object self_731464, object r_73999 */
 {
 object r_73999 = args[0];
  
object c_732674 = Cyc_list2string(data,  ((closureN)self_731464)->elements[0],r_73999);
return_direct_with_clo1(data,  ((closureN)self_731464)->elements[0], (((closure)  ((closureN)self_731464)->elements[0])->fn),  c_732674);; 
}

static void __lambda_128(void *data, object self_731468, int argc, object *args) /* object self_731468, object r_73996 */
 {
 object r_73996 = args[0];
  
closureN_type c_732652;
object e_732660 [4];
c_732652.hdr.mark = gc_color_red;
 c_732652.hdr.grayed = 0;
c_732652.tag = closureN_tag;
 c_732652.fn = (function_type)__lambda_129;
c_732652.num_args = 1;
c_732652.num_elements = 4;
c_732652.elements = (object *)e_732660;
c_732652.elements[0] = ((closureN)self_731468)->elements[0];
c_732652.elements[1] = ((closureN)self_731468)->elements[1];
c_732652.elements[2] = ((closureN)self_731468)->elements[2];
c_732652.elements[3] = ((closureN)self_731468)->elements[3];



return_direct_with_clo1(data,(closure)&c_732652,__lambda_129,  Cyc_set_cell(data, ((closureN)self_731468)->elements[3], r_73996));; 
}

static void __lambda_129(void *data, object self_731469, int argc, object *args) /* object self_731469, object r_73995 */
 {

  

return_closcall3(data,  car(((closureN)self_731469)->elements[3]),  ((closureN)self_731469)->elements[2], ((closureN)self_731469)->elements[1], ((closureN)self_731469)->elements[0]);; 
}

static void __lambda_118(void *data, object _, int argc, object *args) /* closure _,object k_73978, object e_73216_73530, object lst_73217_73531 */
 {
object k_73978 = args[0]; object e_73216_73530 = args[1]; object lst_73217_73531 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:list-index2");
  
if( (boolean_f != Cyc_is_null(lst_73217_73531)) ){ 
  return_direct_with_clo1(data,  k_73978, (((closure)  k_73978)->fn),  obj_int2obj(-1));
} else { 
    
  
if( (boolean_f != Cyc_eq(Cyc_car(data, lst_73217_73531), e_73216_73530)) ){ 
  return_direct_with_clo1(data,  k_73978, (((closure)  k_73978)->fn),  obj_int2obj(0));
} else { 
  
closureN_type c_732614;
object e_732631 [3];
c_732614.hdr.mark = gc_color_red;
 c_732614.hdr.grayed = 0;
c_732614.tag = closureN_tag;
 c_732614.fn = (function_type)__lambda_119;
c_732614.num_args = 1;
c_732614.num_elements = 3;
c_732614.elements = (object *)e_732631;
c_732614.elements[0] = e_73216_73530;
c_732614.elements[1] = k_73978;
c_732614.elements[2] = lst_73217_73531;



return_direct_with_clo3(data,  __glo_list_91index2_scheme_cyclone_util, (((closure)  __glo_list_91index2_scheme_cyclone_util)->fn),  &c_732614, e_73216_73530, Cyc_cdr(data, lst_73217_73531));}
;}
;; 
}

static void __lambda_119(void *data, object self_731454, int argc, object *args) /* object self_731454, object r_73984 */
 {
 object r_73984 = args[0];
    
if( (boolean_f != Cyc_num_fast_eq_op(data, r_73984, obj_int2obj(-1))) ){ 
  return_direct_with_clo1(data,  ((closureN)self_731454)->elements[1], (((closure)  ((closureN)self_731454)->elements[1])->fn),  obj_int2obj(-1));
} else { 
  
closureN_type c_732620;
object e_732626 [1];
c_732620.hdr.mark = gc_color_red;
 c_732620.hdr.grayed = 0;
c_732620.tag = closureN_tag;
 c_732620.fn = (function_type)__lambda_120;
c_732620.num_args = 1;
c_732620.num_elements = 1;
c_732620.elements = (object *)e_732626;
c_732620.elements[0] = ((closureN)self_731454)->elements[1];



return_direct_with_clo3(data,  __glo_list_91index2_scheme_cyclone_util, (((closure)  __glo_list_91index2_scheme_cyclone_util)->fn),  &c_732620, ((closureN)self_731454)->elements[0], Cyc_cdr(data, ((closureN)self_731454)->elements[2]));}
;; 
}

static void __lambda_120(void *data, object self_731455, int argc, object *args) /* object self_731455, object r_73982 */
 {
 object r_73982 = args[0];
  
complex_num_type local_732625; 
return_direct_with_clo1(data,  ((closureN)self_731455)->elements[0], (((closure)  ((closureN)self_731455)->elements[0])->fn),  Cyc_fast_sum(data,&local_732625, obj_int2obj(1), r_73982));; 
}

static void __lambda_110(void *data, object _, int argc, object *args) /* closure _,object k_73961, object lis_73201_73526, object obj_73202_73527, object k_73203_73528 */
 {
object k_73961 = args[0]; object lis_73201_73526 = args[1]; object obj_73202_73527 = args[2]; object k_73203_73528 = args[3];
  Cyc_st_add(data, "scheme/cyclone/util.sld:list-insert-at!");
  
if( (boolean_f != Cyc_is_null(lis_73201_73526)) ){ 
  
make_utf8_string_with_len(c_732527, "list-insert-at!, lis cannot be null", 35, 35);
return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_73961, &c_732527);
} else { 
  
closureN_type c_732529;
object e_732544 [2];
c_732529.hdr.mark = gc_color_red;
 c_732529.hdr.grayed = 0;
c_732529.tag = closureN_tag;
 c_732529.fn = (function_type)__lambda_111;
c_732529.num_args = 0;
c_732529.num_elements = 2;
c_732529.elements = (object *)e_732544;
c_732529.elements[0] = k_73203_73528;
c_732529.elements[1] = lis_73201_73526;


closureN_type c_732545;
object e_732603 [4];
c_732545.hdr.mark = gc_color_red;
 c_732545.hdr.grayed = 0;
c_732545.tag = closureN_tag;
 c_732545.fn = (function_type)__lambda_113;
c_732545.num_args = 1;
c_732545.num_elements = 4;
c_732545.elements = (object *)e_732603;
c_732545.elements[0] = k_73203_73528;
c_732545.elements[1] = k_73961;
c_732545.elements[2] = lis_73201_73526;
c_732545.elements[3] = obj_73202_73527;

return_direct_with_clo1(data,(closure)&c_732529,__lambda_111,  &c_732545);}
;; 
}

static void __lambda_113(void *data, object self_731447, int argc, object *args) /* object self_731447, object r_73963 */
 {
 object r_73963 = args[0];
  if( (boolean_f != r_73963) ){ 
  
pair_type local_732554; 

object c_732550 = Cyc_set_cdr_cps(data,  ((closureN)self_731447)->elements[1],((closureN)self_731447)->elements[2], set_pair_as_expr(&local_732554, ((closureN)self_731447)->elements[3], NULL));
return_direct_with_clo1(data,  ((closureN)self_731447)->elements[1], (((closure)  ((closureN)self_731447)->elements[1])->fn),  c_732550);
} else { 
    complex_num_type local_732558; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_732558, ((closureN)self_731447)->elements[0])) ){ 
  
closureN_type c_732561;
object e_732586 [3];
c_732561.hdr.mark = gc_color_red;
 c_732561.hdr.grayed = 0;
c_732561.tag = closureN_tag;
 c_732561.fn = (function_type)__lambda_114;
c_732561.num_args = 1;
c_732561.num_elements = 3;
c_732561.elements = (object *)e_732586;
c_732561.elements[0] = ((closureN)self_731447)->elements[1];
c_732561.elements[1] = ((closureN)self_731447)->elements[2];
c_732561.elements[2] = ((closureN)self_731447)->elements[3];



return_direct_with_clo1(data,(closure)&c_732561,__lambda_114,  Cyc_car(data, ((closureN)self_731447)->elements[2]));
} else { 
  
closureN_type c_732591;
object e_732599 [3];
c_732591.hdr.mark = gc_color_red;
 c_732591.hdr.grayed = 0;
c_732591.tag = closureN_tag;
 c_732591.fn = (function_type)__lambda_117;
c_732591.num_args = 1;
c_732591.num_elements = 3;
c_732591.elements = (object *)e_732599;
c_732591.elements[0] = ((closureN)self_731447)->elements[0];
c_732591.elements[1] = ((closureN)self_731447)->elements[1];
c_732591.elements[2] = ((closureN)self_731447)->elements[3];



return_direct_with_clo1(data,(closure)&c_732591,__lambda_117,  Cyc_cdr(data, ((closureN)self_731447)->elements[2]));}
;}
;; 
}

static void __lambda_117(void *data, object self_731451, int argc, object *args) /* object self_731451, object r_73971 */
 {
 object r_73971 = args[0];
  
complex_num_type local_732597; 
return_direct_with_clo4(data,  __glo_list_91insert_91at_67_scheme_cyclone_util, (((closure)  __glo_list_91insert_91at_67_scheme_cyclone_util)->fn),  ((closureN)self_731451)->elements[1], r_73971, ((closureN)self_731451)->elements[2], Cyc_fast_sub(data,&local_732597, ((closureN)self_731451)->elements[0], obj_int2obj(1)));; 
}

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


object c_732583 = Cyc_set_car_cps(data,(closure)&c_732563,((closureN)self_731448)->elements[1], ((closureN)self_731448)->elements[2]);
return_closcall1(data,(closure)&c_732563,  c_732583);; 
}

static void __lambda_115(void *data, object self_731449, int argc, object *args) /* object self_731449, object r_73968 */
 {

  
closureN_type c_732565;
object e_732576 [3];
c_732565.hdr.mark = gc_color_red;
 c_732565.hdr.grayed = 0;
c_732565.tag = closureN_tag;
 c_732565.fn = (function_type)__lambda_116;
c_732565.num_args = 1;
c_732565.num_elements = 3;
c_732565.elements = (object *)e_732576;
c_732565.elements[0] = ((closureN)self_731449)->elements[0];
c_732565.elements[1] = ((closureN)self_731449)->elements[1];
c_732565.elements[2] = ((closureN)self_731449)->elements[2];



return_direct_with_clo1(data,(closure)&c_732565,__lambda_116,  Cyc_cdr(data, ((closureN)self_731449)->elements[1]));; 
}

static void __lambda_116(void *data, object self_731450, int argc, object *args) /* object self_731450, object r_73970 */
 {
 object r_73970 = args[0];
  
pair_type local_732574; 

object c_732570 = Cyc_set_cdr_cps(data,  ((closureN)self_731450)->elements[0],((closureN)self_731450)->elements[1], set_pair_as_expr(&local_732574, ((closureN)self_731450)->elements[2], r_73970));
return_direct_with_clo1(data,  ((closureN)self_731450)->elements[0], (((closure)  ((closureN)self_731450)->elements[0])->fn),  c_732570);; 
}

static void __lambda_111(void *data, object self_731452, int argc, object *args) /* object self_731452, object k_73973 */
 {
 object k_73973 = args[0];
    
if( (boolean_f != Cyc_num_fast_gt_op(data, ((closureN)self_731452)->elements[0], obj_int2obj(0))) ){ 
  
closureN_type c_732534;
object e_732539 [1];
c_732534.hdr.mark = gc_color_red;
 c_732534.hdr.grayed = 0;
c_732534.tag = closureN_tag;
 c_732534.fn = (function_type)__lambda_112;
c_732534.num_args = 1;
c_732534.num_elements = 1;
c_732534.elements = (object *)e_732539;
c_732534.elements[0] = k_73973;



return_direct_with_clo1(data,(closure)&c_732534,__lambda_112,  Cyc_cdr(data, ((closureN)self_731452)->elements[1]));
} else { 
  return_direct_with_clo1(data,  k_73973, (((closure)  k_73973)->fn),  boolean_f);}
;; 
}

static void __lambda_112(void *data, object self_731453, int argc, object *args) /* object self_731453, object r_73975 */
 {
 object r_73975 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_731453)->elements[0], (((closure)  ((closureN)self_731453)->elements[0])->fn),  Cyc_is_null(r_73975));; 
}

static void __lambda_107(void *data, object _, int argc, object *args) /* closure _,object k_73952, object x_73193_73525 */
 {
object k_73952 = args[0]; object x_73193_73525 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:flatten");
  
if( (boolean_f != Cyc_is_null(x_73193_73525)) ){ 
  return_direct_with_clo1(data,  k_73952, (((closure)  k_73952)->fn),  NULL);
} else { 
    
if( (boolean_f != Cyc_is_pair(x_73193_73525)) ){ 
  
closureN_type c_732506;
object e_732516 [2];
c_732506.hdr.mark = gc_color_red;
 c_732506.hdr.grayed = 0;
c_732506.tag = closureN_tag;
 c_732506.fn = (function_type)__lambda_108;
c_732506.num_args = 1;
c_732506.num_elements = 2;
c_732506.elements = (object *)e_732516;
c_732506.elements[0] = k_73952;
c_732506.elements[1] = x_73193_73525;



return_direct_with_clo2(data,  __glo_flatten_scheme_cyclone_util, (((closure)  __glo_flatten_scheme_cyclone_util)->fn),  &c_732506, Cyc_car(data, x_73193_73525));
} else { 
  
pair_type local_732522; 
return_direct_with_clo1(data,  k_73952, (((closure)  k_73952)->fn),  set_cell_as_expr(&local_732522, x_73193_73525));}
;}
;; 
}

static void __lambda_108(void *data, object self_731445, int argc, object *args) /* object self_731445, object r_73955 */
 {
 object r_73955 = args[0];
  
closureN_type c_732508;
object e_732512 [2];
c_732508.hdr.mark = gc_color_red;
 c_732508.hdr.grayed = 0;
c_732508.tag = closureN_tag;
 c_732508.fn = (function_type)__lambda_109;
c_732508.num_args = 1;
c_732508.num_elements = 2;
c_732508.elements = (object *)e_732512;
c_732508.elements[0] = ((closureN)self_731445)->elements[0];
c_732508.elements[1] = r_73955;



return_direct_with_clo2(data,  __glo_flatten_scheme_cyclone_util, (((closure)  __glo_flatten_scheme_cyclone_util)->fn),  &c_732508, Cyc_cdr(data, ((closureN)self_731445)->elements[1]));; 
}

static void __lambda_109(void *data, object self_731446, int argc, object *args) /* object self_731446, object r_73956 */
 {
 object r_73956 = args[0];
  return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  ((closureN)self_731446)->elements[0], ((closureN)self_731446)->elements[1], r_73956);; 
}

static void __lambda_100(void *data, object _, int argc, object *args) /* closure _,object k_73940, object lis_73181_73517 */
 {
object k_73940 = args[0]; object lis_73181_73517 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:delete-duplicates");

closureN_type c_732442;
object e_732498 [2];
c_732442.hdr.mark = gc_color_red;
 c_732442.hdr.grayed = 0;
c_732442.tag = closureN_tag;
 c_732442.fn = (function_type)__lambda_101;
c_732442.num_args = 1;
c_732442.num_elements = 2;
c_732442.elements = (object *)e_732498;
c_732442.elements[0] = k_73940;
c_732442.elements[1] = lis_73181_73517;

return_direct_with_clo1(data,(closure)&c_732442,__lambda_101,  boolean_f);; 
}

static void __lambda_101(void *data, object self_731438, int argc, object *args) /* object self_731438, object recur_73519 */
 {
 object recur_73519 = args[0];
  
closureN_type c_732444;
object e_732494 [2];
c_732444.hdr.mark = gc_color_red;
 c_732444.hdr.grayed = 0;
c_732444.tag = closureN_tag;
 c_732444.fn = (function_type)__lambda_314;
c_732444.num_args = 1;
c_732444.num_elements = 2;
c_732444.elements = (object *)e_732494;
c_732444.elements[0] = ((closureN)self_731438)->elements[0];
c_732444.elements[1] = ((closureN)self_731438)->elements[1];


pair_type local_732497; 
return_direct_with_clo1(data,(closure)&c_732444,__lambda_314,  set_cell_as_expr(&local_732497, recur_73519));; 
}

static void __lambda_314(void *data, object self_731439, int argc, object *args) /* object self_731439, object recur_73519 */
 {
 object recur_73519 = args[0];
  
closureN_type c_732446;
object e_732459 [3];
c_732446.hdr.mark = gc_color_red;
 c_732446.hdr.grayed = 0;
c_732446.tag = closureN_tag;
 c_732446.fn = (function_type)__lambda_102;
c_732446.num_args = 1;
c_732446.num_elements = 3;
c_732446.elements = (object *)e_732459;
c_732446.elements[0] = ((closureN)self_731439)->elements[0];
c_732446.elements[1] = ((closureN)self_731439)->elements[1];
c_732446.elements[2] = recur_73519;


closureN_type c_732460;
object e_732493 [1];
c_732460.hdr.mark = gc_color_red;
 c_732460.hdr.grayed = 0;
c_732460.tag = closureN_tag;
 c_732460.fn = (function_type)__lambda_104;
c_732460.num_args = 1;
c_732460.num_elements = 1;
c_732460.elements = (object *)e_732493;
c_732460.elements[0] = recur_73519;

return_direct_with_clo1(data,(closure)&c_732446,__lambda_102,  &c_732460);; 
}

static void __lambda_104(void *data, object self_731440, int argc, object *args) /* object self_731440, object k_73943, object lis_73182_73521 */
 {
 object k_73943 = args[0]; object lis_73182_73521 = args[1];
    
if( (boolean_f != Cyc_is_null(lis_73182_73521)) ){ 
  return_direct_with_clo1(data,  k_73943, (((closure)  k_73943)->fn),  lis_73182_73521);
} else { 
  
closureN_type c_732465;
object e_732488 [3];
c_732465.hdr.mark = gc_color_red;
 c_732465.hdr.grayed = 0;
c_732465.tag = closureN_tag;
 c_732465.fn = (function_type)__lambda_105;
c_732465.num_args = 1;
c_732465.num_elements = 3;
c_732465.elements = (object *)e_732488;
c_732465.elements[0] = k_73943;
c_732465.elements[1] = lis_73182_73521;
c_732465.elements[2] = ((closureN)self_731440)->elements[0];





return_direct_with_clo3(data,  __glo_delete_scheme_cyclone_util, (((closure)  __glo_delete_scheme_cyclone_util)->fn),  &c_732465, Cyc_car(data, lis_73182_73521), Cyc_cdr(data, lis_73182_73521));}
;; 
}

static void __lambda_105(void *data, object self_731441, int argc, object *args) /* object self_731441, object r_73949 */
 {
 object r_73949 = args[0];
  


closureN_type c_732470;
object e_732487 [2];
c_732470.hdr.mark = gc_color_red;
 c_732470.hdr.grayed = 0;
c_732470.tag = closureN_tag;
 c_732470.fn = (function_type)__lambda_106;
c_732470.num_args = 1;
c_732470.num_elements = 2;
c_732470.elements = (object *)e_732487;
c_732470.elements[0] = ((closureN)self_731441)->elements[0];
c_732470.elements[1] = ((closureN)self_731441)->elements[1];

return_closcall2(data,  car(((closureN)self_731441)->elements[2]),  &c_732470, r_73949);; 
}

static void __lambda_106(void *data, object self_731442, int argc, object *args) /* object self_731442, object new_91tail_73191_73524 */
 {
 object new_91tail_73191_73524 = args[0];
    
  
if( (boolean_f != Cyc_eq(Cyc_cdr(data, ((closureN)self_731442)->elements[1]), new_91tail_73191_73524)) ){ 
  return_direct_with_clo1(data,  ((closureN)self_731442)->elements[0], (((closure)  ((closureN)self_731442)->elements[0])->fn),  ((closureN)self_731442)->elements[1]);
} else { 
  
pair_type local_732483; 


return_direct_with_clo1(data,  ((closureN)self_731442)->elements[0], (((closure)  ((closureN)self_731442)->elements[0])->fn),  set_pair_as_expr(&local_732483, Cyc_car(data, ((closureN)self_731442)->elements[1]), new_91tail_73191_73524));}
;; 
}

static void __lambda_102(void *data, object self_731443, int argc, object *args) /* object self_731443, object r_73942 */
 {
 object r_73942 = args[0];
  
closureN_type c_732448;
object e_732455 [3];
c_732448.hdr.mark = gc_color_red;
 c_732448.hdr.grayed = 0;
c_732448.tag = closureN_tag;
 c_732448.fn = (function_type)__lambda_103;
c_732448.num_args = 1;
c_732448.num_elements = 3;
c_732448.elements = (object *)e_732455;
c_732448.elements[0] = ((closureN)self_731443)->elements[0];
c_732448.elements[1] = ((closureN)self_731443)->elements[1];
c_732448.elements[2] = ((closureN)self_731443)->elements[2];



return_direct_with_clo1(data,(closure)&c_732448,__lambda_103,  Cyc_set_cell(data, ((closureN)self_731443)->elements[2], r_73942));; 
}

static void __lambda_103(void *data, object self_731444, int argc, object *args) /* object self_731444, object r_73941 */
 {

  

return_closcall2(data,  car(((closureN)self_731444)->elements[2]),  ((closureN)self_731444)->elements[0], ((closureN)self_731444)->elements[1]);; 
}

static void __lambda_97(void *data, object _, int argc, object *args) /* closure _,object k_73934, object x_73178_73514, object lis_73179_73515 */
 {
object k_73934 = args[0]; object x_73178_73514 = args[1]; object lis_73179_73515 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:delete");

closureN_type c_732426;
object e_732430 [2];
c_732426.hdr.mark = gc_color_red;
 c_732426.hdr.grayed = 0;
c_732426.tag = closureN_tag;
 c_732426.fn = (function_type)__lambda_98;
c_732426.num_args = 1;
c_732426.num_elements = 2;
c_732426.elements = (object *)e_732430;
c_732426.elements[0] = k_73934;
c_732426.elements[1] = lis_73179_73515;


closureN_type c_732431;
object e_732439 [1];
c_732431.hdr.mark = gc_color_red;
 c_732431.hdr.grayed = 0;
c_732431.tag = closureN_tag;
 c_732431.fn = (function_type)__lambda_99;
c_732431.num_args = 1;
c_732431.num_elements = 1;
c_732431.elements = (object *)e_732439;
c_732431.elements[0] = x_73178_73514;

return_direct_with_clo1(data,(closure)&c_732426,__lambda_98,  &c_732431);; 
}

static void __lambda_99(void *data, object self_731436, int argc, object *args) /* object self_731436, object k_73936, object y_73180_73516 */
 {
 object k_73936 = args[0]; object y_73180_73516 = args[1];
  
complex_num_type local_732435; 


return_direct_with_clo1(data,  k_73936, (((closure)  k_73936)->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_732435, equalp(((closureN)self_731436)->elements[0], y_73180_73516)));; 
}

static void __lambda_98(void *data, object self_731437, int argc, object *args) /* object self_731437, object r_73935 */
 {
 object r_73935 = args[0];
  return_direct_with_clo3(data,  __glo_filter_scheme_cyclone_util, (((closure)  __glo_filter_scheme_cyclone_util)->fn),  ((closureN)self_731437)->elements[0], r_73935, ((closureN)self_731437)->elements[1]);; 
}

static void __lambda_89(void *data, object _, int argc, object *args) /* closure _,object k_73922, object pred_73171_73507, object lis_73172_73508 */
 {
object k_73922 = args[0]; object pred_73171_73507 = args[1]; object lis_73172_73508 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:filter");

closureN_type c_732360;
object e_732423 [3];
c_732360.hdr.mark = gc_color_red;
 c_732360.hdr.grayed = 0;
c_732360.tag = closureN_tag;
 c_732360.fn = (function_type)__lambda_90;
c_732360.num_args = 1;
c_732360.num_elements = 3;
c_732360.elements = (object *)e_732423;
c_732360.elements[0] = k_73922;
c_732360.elements[1] = lis_73172_73508;
c_732360.elements[2] = pred_73171_73507;

return_direct_with_clo1(data,(closure)&c_732360,__lambda_90,  boolean_f);; 
}

static void __lambda_90(void *data, object self_731428, int argc, object *args) /* object self_731428, object recur_73173_73509 */
 {
 object recur_73173_73509 = args[0];
  
closureN_type c_732362;
object e_732419 [3];
c_732362.hdr.mark = gc_color_red;
 c_732362.hdr.grayed = 0;
c_732362.tag = closureN_tag;
 c_732362.fn = (function_type)__lambda_313;
c_732362.num_args = 1;
c_732362.num_elements = 3;
c_732362.elements = (object *)e_732419;
c_732362.elements[0] = ((closureN)self_731428)->elements[0];
c_732362.elements[1] = ((closureN)self_731428)->elements[1];
c_732362.elements[2] = ((closureN)self_731428)->elements[2];


pair_type local_732422; 
return_direct_with_clo1(data,(closure)&c_732362,__lambda_313,  set_cell_as_expr(&local_732422, recur_73173_73509));; 
}

static void __lambda_313(void *data, object self_731429, int argc, object *args) /* object self_731429, object recur_73173_73509 */
 {
 object recur_73173_73509 = args[0];
  
closureN_type c_732364;
object e_732377 [3];
c_732364.hdr.mark = gc_color_red;
 c_732364.hdr.grayed = 0;
c_732364.tag = closureN_tag;
 c_732364.fn = (function_type)__lambda_91;
c_732364.num_args = 1;
c_732364.num_elements = 3;
c_732364.elements = (object *)e_732377;
c_732364.elements[0] = ((closureN)self_731429)->elements[0];
c_732364.elements[1] = ((closureN)self_731429)->elements[1];
c_732364.elements[2] = recur_73173_73509;


closureN_type c_732378;
object e_732418 [2];
c_732378.hdr.mark = gc_color_red;
 c_732378.hdr.grayed = 0;
c_732378.tag = closureN_tag;
 c_732378.fn = (function_type)__lambda_93;
c_732378.num_args = 1;
c_732378.num_elements = 2;
c_732378.elements = (object *)e_732418;
c_732378.elements[0] = ((closureN)self_731429)->elements[2];
c_732378.elements[1] = recur_73173_73509;

return_direct_with_clo1(data,(closure)&c_732364,__lambda_91,  &c_732378);; 
}

static void __lambda_93(void *data, object self_731430, int argc, object *args) /* object self_731430, object k_73925, object lis_73174_73510 */
 {
 object k_73925 = args[0]; object lis_73174_73510 = args[1];
    
if( (boolean_f != Cyc_is_null(lis_73174_73510)) ){ 
  return_direct_with_clo1(data,  k_73925, (((closure)  k_73925)->fn),  lis_73174_73510);
} else { 
  
closureN_type c_732383;
object e_732413 [4];
c_732383.hdr.mark = gc_color_red;
 c_732383.hdr.grayed = 0;
c_732383.tag = closureN_tag;
 c_732383.fn = (function_type)__lambda_94;
c_732383.num_args = 2;
c_732383.num_elements = 4;
c_732383.elements = (object *)e_732413;
c_732383.elements[0] = k_73925;
c_732383.elements[1] = lis_73174_73510;
c_732383.elements[2] = ((closureN)self_731430)->elements[0];
c_732383.elements[3] = ((closureN)self_731430)->elements[1];





return_direct_with_clo2(data,(closure)&c_732383,__lambda_94,  Cyc_car(data, lis_73174_73510), Cyc_cdr(data, lis_73174_73510));}
;; 
}

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

return_closcall2(data,  ((closureN)self_731431)->elements[2],  &c_732386, head_73175_73511);; 
}

static void __lambda_95(void *data, object self_731432, int argc, object *args) /* object self_731432, object r_73929 */
 {
 object r_73929 = args[0];
  if( (boolean_f != r_73929) ){ 
  


closureN_type c_732391;
object e_732404 [4];
c_732391.hdr.mark = gc_color_red;
 c_732391.hdr.grayed = 0;
c_732391.tag = closureN_tag;
 c_732391.fn = (function_type)__lambda_96;
c_732391.num_args = 1;
c_732391.num_elements = 4;
c_732391.elements = (object *)e_732404;
c_732391.elements[0] = ((closureN)self_731432)->elements[0];
c_732391.elements[1] = ((closureN)self_731432)->elements[1];
c_732391.elements[2] = ((closureN)self_731432)->elements[2];
c_732391.elements[3] = ((closureN)self_731432)->elements[4];

return_closcall2(data,  car(((closureN)self_731432)->elements[3]),  &c_732391, ((closureN)self_731432)->elements[4]);
} else { 
  

return_closcall2(data,  car(((closureN)self_731432)->elements[3]),  ((closureN)self_731432)->elements[1], ((closureN)self_731432)->elements[4]);}
;; 
}

static void __lambda_96(void *data, object self_731433, int argc, object *args) /* object self_731433, object new_91tail_73177_73513 */
 {
 object new_91tail_73177_73513 = args[0];
    
if( (boolean_f != Cyc_eq(((closureN)self_731433)->elements[3], new_91tail_73177_73513)) ){ 
  return_direct_with_clo1(data,  ((closureN)self_731433)->elements[1], (((closure)  ((closureN)self_731433)->elements[1])->fn),  ((closureN)self_731433)->elements[2]);
} else { 
  
pair_type local_732402; 
return_direct_with_clo1(data,  ((closureN)self_731433)->elements[1], (((closure)  ((closureN)self_731433)->elements[1])->fn),  set_pair_as_expr(&local_732402, ((closureN)self_731433)->elements[0], new_91tail_73177_73513));}
;; 
}

static void __lambda_91(void *data, object self_731434, int argc, object *args) /* object self_731434, object r_73924 */
 {
 object r_73924 = args[0];
  
closureN_type c_732366;
object e_732373 [3];
c_732366.hdr.mark = gc_color_red;
 c_732366.hdr.grayed = 0;
c_732366.tag = closureN_tag;
 c_732366.fn = (function_type)__lambda_92;
c_732366.num_args = 1;
c_732366.num_elements = 3;
c_732366.elements = (object *)e_732373;
c_732366.elements[0] = ((closureN)self_731434)->elements[0];
c_732366.elements[1] = ((closureN)self_731434)->elements[1];
c_732366.elements[2] = ((closureN)self_731434)->elements[2];



return_direct_with_clo1(data,(closure)&c_732366,__lambda_92,  Cyc_set_cell(data, ((closureN)self_731434)->elements[2], r_73924));; 
}

static void __lambda_92(void *data, object self_731435, int argc, object *args) /* object self_731435, object r_73923 */
 {

  

return_closcall2(data,  car(((closureN)self_731435)->elements[2]),  ((closureN)self_731435)->elements[0], ((closureN)self_731435)->elements[1]);; 
}

static void __lambda_87(void *data, object _, int argc, object *args) /* closure _,object k_73918, object n_73170_73506 */
 {
object k_73918 = args[0]; object n_73170_73506 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:integer->char-list");

closureN_type c_732351;
object e_732354 [1];
c_732351.hdr.mark = gc_color_red;
 c_732351.hdr.grayed = 0;
c_732351.tag = closureN_tag;
 c_732351.fn = (function_type)__lambda_88;
c_732351.num_args = 1;
c_732351.num_elements = 1;
c_732351.elements = (object *)e_732354;
c_732351.elements[0] = k_73918;


object c_732357 = Cyc_number2string2(data,(closure)&c_732351,1,n_73170_73506);
return_closcall1(data,(closure)&c_732351,  c_732357);; 
}

static void __lambda_88(void *data, object self_731427, int argc, object *args) /* object self_731427, object r_73919 */
 {
 object r_73919 = args[0];
  return_direct_with_clo2(data,  __glo_string_91_125list_scheme_base, (((closure)  __glo_string_91_125list_scheme_base)->fn),  ((closureN)self_731427)->elements[0], r_73919);; 
}

static void __lambda_86(void *data, object _, int argc, object *args) /* closure _,object k_73912, object c_73168_73504 */
 {
object k_73912 = args[0]; object c_73168_73504 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:char->natural");
  
  
if( (boolean_f != Cyc_num_fast_lt_op(data, Cyc_char2integer(c_73168_73504), obj_int2obj(0))) ){ 
  
complex_num_type local_732337; 


return_direct_with_clo1(data,  k_73912, (((closure)  k_73912)->fn),  Cyc_fast_mul(data,&local_732337, obj_int2obj(-2), Cyc_char2integer(c_73168_73504)));
} else { 
  
complex_num_type local_732343; 

complex_num_type local_732346; 


return_direct_with_clo1(data,  k_73912, (((closure)  k_73912)->fn),  Cyc_fast_sum(data,&local_732343, Cyc_fast_mul(data,&local_732346, obj_int2obj(2), Cyc_char2integer(c_73168_73504)), obj_int2obj(1)));}
;; 
}

static void __lambda_80(void *data, object _, int argc, object *args) /* closure _,object k_73903, object lis_73160_73497, object k_73161_73498 */
 {
object k_73903 = args[0]; object lis_73160_73497 = args[1]; object k_73161_73498 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:drop");

closureN_type c_732287;
object e_732328 [1];
c_732287.hdr.mark = gc_color_red;
 c_732287.hdr.grayed = 0;
c_732287.tag = closureN_tag;
 c_732287.fn = (function_type)__lambda_81;
c_732287.num_args = 2;
c_732287.num_elements = 1;
c_732287.elements = (object *)e_732328;
c_732287.elements[0] = k_73903;

return_direct_with_clo2(data,(closure)&c_732287,__lambda_81,  lis_73160_73497, k_73161_73498);; 
}

static void __lambda_81(void *data, object self_731421, int argc, object *args) /* object self_731421, object lis_73163_73499, object k_73164_73500 */
 {
 object lis_73163_73499 = args[0]; object k_73164_73500 = args[1];
  
closureN_type c_732289;
object e_732327 [3];
c_732289.hdr.mark = gc_color_red;
 c_732289.hdr.grayed = 0;
c_732289.tag = closureN_tag;
 c_732289.fn = (function_type)__lambda_82;
c_732289.num_args = 1;
c_732289.num_elements = 3;
c_732289.elements = (object *)e_732327;
c_732289.elements[0] = k_73164_73500;
c_732289.elements[1] = ((closureN)self_731421)->elements[0];
c_732289.elements[2] = lis_73163_73499;

return_direct_with_clo1(data,(closure)&c_732289,__lambda_82,  boolean_f);; 
}

static void __lambda_82(void *data, object self_731422, int argc, object *args) /* object self_731422, object iter_73165_73501 */
 {
 object iter_73165_73501 = args[0];
  
closureN_type c_732291;
object e_732323 [3];
c_732291.hdr.mark = gc_color_red;
 c_732291.hdr.grayed = 0;
c_732291.tag = closureN_tag;
 c_732291.fn = (function_type)__lambda_312;
c_732291.num_args = 1;
c_732291.num_elements = 3;
c_732291.elements = (object *)e_732323;
c_732291.elements[0] = ((closureN)self_731422)->elements[0];
c_732291.elements[1] = ((closureN)self_731422)->elements[1];
c_732291.elements[2] = ((closureN)self_731422)->elements[2];


pair_type local_732326; 
return_direct_with_clo1(data,(closure)&c_732291,__lambda_312,  set_cell_as_expr(&local_732326, iter_73165_73501));; 
}

static void __lambda_312(void *data, object self_731423, int argc, object *args) /* object self_731423, object iter_73165_73501 */
 {
 object iter_73165_73501 = args[0];
  
closureN_type c_732293;
object e_732307 [4];
c_732293.hdr.mark = gc_color_red;
 c_732293.hdr.grayed = 0;
c_732293.tag = closureN_tag;
 c_732293.fn = (function_type)__lambda_83;
c_732293.num_args = 1;
c_732293.num_elements = 4;
c_732293.elements = (object *)e_732307;
c_732293.elements[0] = iter_73165_73501;
c_732293.elements[1] = ((closureN)self_731423)->elements[0];
c_732293.elements[2] = ((closureN)self_731423)->elements[1];
c_732293.elements[3] = ((closureN)self_731423)->elements[2];


closureN_type c_732308;
object e_732322 [1];
c_732308.hdr.mark = gc_color_red;
 c_732308.hdr.grayed = 0;
c_732308.tag = closureN_tag;
 c_732308.fn = (function_type)__lambda_85;
c_732308.num_args = 2;
c_732308.num_elements = 1;
c_732308.elements = (object *)e_732322;
c_732308.elements[0] = iter_73165_73501;

return_direct_with_clo1(data,(closure)&c_732293,__lambda_83,  &c_732308);; 
}

static void __lambda_85(void *data, object self_731424, int argc, object *args) /* object self_731424, object k_73906, object lis_73166_73502, object k_73167_73503 */
 {
 object k_73906 = args[0]; object lis_73166_73502 = args[1]; object k_73167_73503 = args[2];
    complex_num_type local_732311; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_732311, k_73167_73503)) ){ 
  return_direct_with_clo1(data,  k_73906, (((closure)  k_73906)->fn),  lis_73166_73502);
} else { 
  




complex_num_type local_732321; 
return_closcall3(data,  car(((closureN)self_731424)->elements[0]),  k_73906, Cyc_cdr(data, lis_73166_73502), Cyc_fast_sub(data,&local_732321, k_73167_73503, obj_int2obj(1)));}
;; 
}

static void __lambda_83(void *data, object self_731425, int argc, object *args) /* object self_731425, object r_73905 */
 {
 object r_73905 = args[0];
  
closureN_type c_732295;
object e_732303 [4];
c_732295.hdr.mark = gc_color_red;
 c_732295.hdr.grayed = 0;
c_732295.tag = closureN_tag;
 c_732295.fn = (function_type)__lambda_84;
c_732295.num_args = 1;
c_732295.num_elements = 4;
c_732295.elements = (object *)e_732303;
c_732295.elements[0] = ((closureN)self_731425)->elements[0];
c_732295.elements[1] = ((closureN)self_731425)->elements[1];
c_732295.elements[2] = ((closureN)self_731425)->elements[2];
c_732295.elements[3] = ((closureN)self_731425)->elements[3];



return_direct_with_clo1(data,(closure)&c_732295,__lambda_84,  Cyc_set_cell(data, ((closureN)self_731425)->elements[0], r_73905));; 
}

static void __lambda_84(void *data, object self_731426, int argc, object *args) /* object self_731426, object r_73904 */
 {

  

return_closcall3(data,  car(((closureN)self_731426)->elements[0]),  ((closureN)self_731426)->elements[2], ((closureN)self_731426)->elements[3], ((closureN)self_731426)->elements[1]);; 
}

static void __lambda_73(void *data, object _, int argc, object *args) /* closure _,object k_73892, object lis_73152_73490, object k_73153_73491 */
 {
object k_73892 = args[0]; object lis_73152_73490 = args[1]; object k_73153_73491 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:take");

closureN_type c_732233;
object e_732284 [1];
c_732233.hdr.mark = gc_color_red;
 c_732233.hdr.grayed = 0;
c_732233.tag = closureN_tag;
 c_732233.fn = (function_type)__lambda_74;
c_732233.num_args = 2;
c_732233.num_elements = 1;
c_732233.elements = (object *)e_732284;
c_732233.elements[0] = k_73892;

return_direct_with_clo2(data,(closure)&c_732233,__lambda_74,  lis_73152_73490, k_73153_73491);; 
}

static void __lambda_74(void *data, object self_731414, int argc, object *args) /* object self_731414, object lis_73155_73492, object k_73156_73493 */
 {
 object lis_73155_73492 = args[0]; object k_73156_73493 = args[1];
  
closureN_type c_732235;
object e_732283 [3];
c_732235.hdr.mark = gc_color_red;
 c_732235.hdr.grayed = 0;
c_732235.tag = closureN_tag;
 c_732235.fn = (function_type)__lambda_75;
c_732235.num_args = 1;
c_732235.num_elements = 3;
c_732235.elements = (object *)e_732283;
c_732235.elements[0] = k_73156_73493;
c_732235.elements[1] = ((closureN)self_731414)->elements[0];
c_732235.elements[2] = lis_73155_73492;

return_direct_with_clo1(data,(closure)&c_732235,__lambda_75,  boolean_f);; 
}

static void __lambda_75(void *data, object self_731415, int argc, object *args) /* object self_731415, object recur_73157_73494 */
 {
 object recur_73157_73494 = args[0];
  
closureN_type c_732237;
object e_732279 [3];
c_732237.hdr.mark = gc_color_red;
 c_732237.hdr.grayed = 0;
c_732237.tag = closureN_tag;
 c_732237.fn = (function_type)__lambda_311;
c_732237.num_args = 1;
c_732237.num_elements = 3;
c_732237.elements = (object *)e_732279;
c_732237.elements[0] = ((closureN)self_731415)->elements[0];
c_732237.elements[1] = ((closureN)self_731415)->elements[1];
c_732237.elements[2] = ((closureN)self_731415)->elements[2];


pair_type local_732282; 
return_direct_with_clo1(data,(closure)&c_732237,__lambda_311,  set_cell_as_expr(&local_732282, recur_73157_73494));; 
}

static void __lambda_311(void *data, object self_731416, int argc, object *args) /* object self_731416, object recur_73157_73494 */
 {
 object recur_73157_73494 = args[0];
  
closureN_type c_732239;
object e_732253 [4];
c_732239.hdr.mark = gc_color_red;
 c_732239.hdr.grayed = 0;
c_732239.tag = closureN_tag;
 c_732239.fn = (function_type)__lambda_76;
c_732239.num_args = 1;
c_732239.num_elements = 4;
c_732239.elements = (object *)e_732253;
c_732239.elements[0] = ((closureN)self_731416)->elements[0];
c_732239.elements[1] = ((closureN)self_731416)->elements[1];
c_732239.elements[2] = ((closureN)self_731416)->elements[2];
c_732239.elements[3] = recur_73157_73494;


closureN_type c_732254;
object e_732278 [1];
c_732254.hdr.mark = gc_color_red;
 c_732254.hdr.grayed = 0;
c_732254.tag = closureN_tag;
 c_732254.fn = (function_type)__lambda_78;
c_732254.num_args = 2;
c_732254.num_elements = 1;
c_732254.elements = (object *)e_732278;
c_732254.elements[0] = recur_73157_73494;

return_direct_with_clo1(data,(closure)&c_732239,__lambda_76,  &c_732254);; 
}

static void __lambda_78(void *data, object self_731417, int argc, object *args) /* object self_731417, object k_73895, object lis_73158_73495, object k_73159_73496 */
 {
 object k_73895 = args[0]; object lis_73158_73495 = args[1]; object k_73159_73496 = args[2];
    complex_num_type local_732257; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_732257, k_73159_73496)) ){ 
  return_direct_with_clo1(data,  k_73895, (((closure)  k_73895)->fn),  NULL);
} else { 
  


closureN_type c_732263;
object e_732272 [2];
c_732263.hdr.mark = gc_color_red;
 c_732263.hdr.grayed = 0;
c_732263.tag = closureN_tag;
 c_732263.fn = (function_type)__lambda_79;
c_732263.num_args = 1;
c_732263.num_elements = 2;
c_732263.elements = (object *)e_732272;
c_732263.elements[0] = k_73895;
c_732263.elements[1] = lis_73158_73495;




complex_num_type local_732277; 
return_closcall3(data,  car(((closureN)self_731417)->elements[0]),  &c_732263, Cyc_cdr(data, lis_73158_73495), Cyc_fast_sub(data,&local_732277, k_73159_73496, obj_int2obj(1)));}
;; 
}

static void __lambda_79(void *data, object self_731418, int argc, object *args) /* object self_731418, object r_73898 */
 {
 object r_73898 = args[0];
  
pair_type local_732268; 


return_direct_with_clo1(data,  ((closureN)self_731418)->elements[0], (((closure)  ((closureN)self_731418)->elements[0])->fn),  set_pair_as_expr(&local_732268, Cyc_car(data, ((closureN)self_731418)->elements[1]), r_73898));; 
}

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



return_direct_with_clo1(data,(closure)&c_732241,__lambda_77,  Cyc_set_cell(data, ((closureN)self_731419)->elements[3], r_73894));; 
}

static void __lambda_77(void *data, object self_731420, int argc, object *args) /* object self_731420, object r_73893 */
 {

  

return_closcall3(data,  car(((closureN)self_731420)->elements[3]),  ((closureN)self_731420)->elements[1], ((closureN)self_731420)->elements[2], ((closureN)self_731420)->elements[0]);; 
}

static void __lambda_67(void *data, object _, int argc, object *args) /* closure _,object k_73883, object l_73141_73484 */
 {
object k_73883 = args[0]; object l_73141_73484 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:length/obj");

closureN_type c_732191;
object e_732230 [1];
c_732191.hdr.mark = gc_color_red;
 c_732191.hdr.grayed = 0;
c_732191.tag = closureN_tag;
 c_732191.fn = (function_type)__lambda_68;
c_732191.num_args = 1;
c_732191.num_elements = 1;
c_732191.elements = (object *)e_732230;
c_732191.elements[0] = k_73883;

return_direct_with_clo1(data,(closure)&c_732191,__lambda_68,  l_73141_73484);; 
}

static void __lambda_68(void *data, object self_731408, int argc, object *args) /* object self_731408, object lis_73143_73485 */
 {
 object lis_73143_73485 = args[0];
  
closureN_type c_732193;
object e_732229 [2];
c_732193.hdr.mark = gc_color_red;
 c_732193.hdr.grayed = 0;
c_732193.tag = closureN_tag;
 c_732193.fn = (function_type)__lambda_69;
c_732193.num_args = 1;
c_732193.num_elements = 2;
c_732193.elements = (object *)e_732229;
c_732193.elements[0] = ((closureN)self_731408)->elements[0];
c_732193.elements[1] = lis_73143_73485;

return_direct_with_clo1(data,(closure)&c_732193,__lambda_69,  boolean_f);; 
}

static void __lambda_69(void *data, object self_731409, int argc, object *args) /* object self_731409, object loop_73145_73487 */
 {
 object loop_73145_73487 = args[0];
  
closureN_type c_732195;
object e_732225 [2];
c_732195.hdr.mark = gc_color_red;
 c_732195.hdr.grayed = 0;
c_732195.tag = closureN_tag;
 c_732195.fn = (function_type)__lambda_310;
c_732195.num_args = 1;
c_732195.num_elements = 2;
c_732195.elements = (object *)e_732225;
c_732195.elements[0] = ((closureN)self_731409)->elements[0];
c_732195.elements[1] = ((closureN)self_731409)->elements[1];


pair_type local_732228; 
return_direct_with_clo1(data,(closure)&c_732195,__lambda_310,  set_cell_as_expr(&local_732228, loop_73145_73487));; 
}

static void __lambda_310(void *data, object self_731410, int argc, object *args) /* object self_731410, object loop_73145_73487 */
 {
 object loop_73145_73487 = args[0];
  
closureN_type c_732197;
object e_732210 [3];
c_732197.hdr.mark = gc_color_red;
 c_732197.hdr.grayed = 0;
c_732197.tag = closureN_tag;
 c_732197.fn = (function_type)__lambda_70;
c_732197.num_args = 1;
c_732197.num_elements = 3;
c_732197.elements = (object *)e_732210;
c_732197.elements[0] = ((closureN)self_731410)->elements[0];
c_732197.elements[1] = ((closureN)self_731410)->elements[1];
c_732197.elements[2] = loop_73145_73487;


closureN_type c_732211;
object e_732224 [1];
c_732211.hdr.mark = gc_color_red;
 c_732211.hdr.grayed = 0;
c_732211.tag = closureN_tag;
 c_732211.fn = (function_type)__lambda_72;
c_732211.num_args = 2;
c_732211.num_elements = 1;
c_732211.elements = (object *)e_732224;
c_732211.elements[0] = loop_73145_73487;

return_direct_with_clo1(data,(closure)&c_732197,__lambda_70,  &c_732211);; 
}

static void __lambda_72(void *data, object self_731411, int argc, object *args) /* object self_731411, object k_73886, object lis_73146_73488, object len_73147_73489 */
 {
 object k_73886 = args[0]; object lis_73146_73488 = args[1]; object len_73147_73489 = args[2];
    
if( (boolean_f != Cyc_is_pair(lis_73146_73488)) ){ 
  




complex_num_type local_732222; 
return_closcall3(data,  car(((closureN)self_731411)->elements[0]),  k_73886, Cyc_cdr(data, lis_73146_73488), Cyc_fast_sum(data,&local_732222, len_73147_73489, obj_int2obj(1)));
} else { 
  return_direct_with_clo1(data,  k_73886, (((closure)  k_73886)->fn),  len_73147_73489);}
;; 
}

static void __lambda_70(void *data, object self_731412, int argc, object *args) /* object self_731412, object r_73885 */
 {
 object r_73885 = args[0];
  
closureN_type c_732199;
object e_732206 [3];
c_732199.hdr.mark = gc_color_red;
 c_732199.hdr.grayed = 0;
c_732199.tag = closureN_tag;
 c_732199.fn = (function_type)__lambda_71;
c_732199.num_args = 1;
c_732199.num_elements = 3;
c_732199.elements = (object *)e_732206;
c_732199.elements[0] = ((closureN)self_731412)->elements[0];
c_732199.elements[1] = ((closureN)self_731412)->elements[1];
c_732199.elements[2] = ((closureN)self_731412)->elements[2];



return_direct_with_clo1(data,(closure)&c_732199,__lambda_71,  Cyc_set_cell(data, ((closureN)self_731412)->elements[2], r_73885));; 
}

static void __lambda_71(void *data, object self_731413, int argc, object *args) /* object self_731413, object r_73884 */
 {

  

return_closcall3(data,  car(((closureN)self_731413)->elements[2]),  ((closureN)self_731413)->elements[0], ((closureN)self_731413)->elements[1], obj_int2obj(0));; 
}

static void __lambda_57(void *data, object _, int argc, object *args) /* closure _,object k_73870, object formals_73130_73480, object args_73131_73481 */
 {
object k_73870 = args[0]; object formals_73130_73480 = args[1]; object args_73131_73481 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:pack-lambda-arguments");
  
if( (boolean_f != Cyc_is_symbol(formals_73130_73480)) ){ 
  
pair_type local_732132; 
return_direct_with_clo1(data,  k_73870, (((closure)  k_73870)->fn),  set_cell_as_expr(&local_732132, args_73131_73481));
} else { 
  
closureN_type c_732134;
object e_732185 [3];
c_732134.hdr.mark = gc_color_red;
 c_732134.hdr.grayed = 0;
c_732134.tag = closureN_tag;
 c_732134.fn = (function_type)__lambda_58;
c_732134.num_args = 1;
c_732134.num_elements = 3;
c_732134.elements = (object *)e_732185;
c_732134.elements[0] = args_73131_73481;
c_732134.elements[1] = formals_73130_73480;
c_732134.elements[2] = k_73870;


complex_num_type local_732188; 
return_direct_with_clo1(data,(closure)&c_732134,__lambda_58,  ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,&local_732188, formals_73130_73480));}
;; 
}

static void __lambda_58(void *data, object self_731399, int argc, object *args) /* object self_731399, object r_73872 */
 {
 object r_73872 = args[0];
  if( (boolean_f != r_73872) ){ 
  return_direct_with_clo1(data,  ((closureN)self_731399)->elements[2], (((closure)  ((closureN)self_731399)->elements[2])->fn),  ((closureN)self_731399)->elements[0]);
} else { 
  
closureN_type c_732139;
object e_732183 [3];
c_732139.hdr.mark = gc_color_red;
 c_732139.hdr.grayed = 0;
c_732139.tag = closureN_tag;
 c_732139.fn = (function_type)__lambda_59;
c_732139.num_args = 1;
c_732139.num_elements = 3;
c_732139.elements = (object *)e_732183;
c_732139.elements[0] = ((closureN)self_731399)->elements[0];
c_732139.elements[1] = ((closureN)self_731399)->elements[1];
c_732139.elements[2] = ((closureN)self_731399)->elements[2];

return_direct_with_clo2(data,  __glo_length_95obj_scheme_cyclone_util, (((closure)  __glo_length_95obj_scheme_cyclone_util)->fn),  &c_732139, ((closureN)self_731399)->elements[1]);}
;; 
}

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



return_direct_with_clo1(data,(closure)&c_732141,__lambda_60,  Cyc_length(data, ((closureN)self_731400)->elements[0]));; 
}

static void __lambda_60(void *data, object self_731401, int argc, object *args) /* object self_731401, object r_73874 */
 {
 object r_73874 = args[0];
  
closureN_type c_732143;
object e_732177 [3];
c_732143.hdr.mark = gc_color_red;
 c_732143.hdr.grayed = 0;
c_732143.tag = closureN_tag;
 c_732143.fn = (function_type)__lambda_61;
c_732143.num_args = 2;
c_732143.num_elements = 3;
c_732143.elements = (object *)e_732177;
c_732143.elements[0] = ((closureN)self_731401)->elements[0];
c_732143.elements[1] = ((closureN)self_731401)->elements[1];
c_732143.elements[2] = ((closureN)self_731401)->elements[2];

return_direct_with_clo2(data,(closure)&c_732143,__lambda_61,  ((closureN)self_731401)->elements[3], r_73874);; 
}

static void __lambda_61(void *data, object self_731402, int argc, object *args) /* object self_731402, object num_91req_91args_73139_73482, object num_91args_73140_73483 */
 {
 object num_91req_91args_73139_73482 = args[0]; object num_91args_73140_73483 = args[1];
  
closureN_type c_732145;
object e_732155 [4];
c_732145.hdr.mark = gc_color_red;
 c_732145.hdr.grayed = 0;
c_732145.tag = closureN_tag;
 c_732145.fn = (function_type)__lambda_62;
c_732145.num_args = 0;
c_732145.num_elements = 4;
c_732145.elements = (object *)e_732155;
c_732145.elements[0] = ((closureN)self_731402)->elements[0];
c_732145.elements[1] = ((closureN)self_731402)->elements[1];
c_732145.elements[2] = num_91args_73140_73483;
c_732145.elements[3] = num_91req_91args_73139_73482;


closureN_type c_732156;
object e_732176 [3];
c_732156.hdr.mark = gc_color_red;
 c_732156.hdr.grayed = 0;
c_732156.tag = closureN_tag;
 c_732156.fn = (function_type)__lambda_63;
c_732156.num_args = 1;
c_732156.num_elements = 3;
c_732156.elements = (object *)e_732176;
c_732156.elements[0] = ((closureN)self_731402)->elements[0];
c_732156.elements[1] = ((closureN)self_731402)->elements[2];
c_732156.elements[2] = num_91req_91args_73139_73482;

return_direct_with_clo1(data,(closure)&c_732145,__lambda_62,  &c_732156);; 
}

static void __lambda_63(void *data, object self_731403, int argc, object *args) /* object self_731403, object r_73875 */
 {

  
closureN_type c_732158;
object e_732173 [3];
c_732158.hdr.mark = gc_color_red;
 c_732158.hdr.grayed = 0;
c_732158.tag = closureN_tag;
 c_732158.fn = (function_type)__lambda_64;
c_732158.num_args = 1;
c_732158.num_elements = 3;
c_732158.elements = (object *)e_732173;
c_732158.elements[0] = ((closureN)self_731403)->elements[0];
c_732158.elements[1] = ((closureN)self_731403)->elements[1];
c_732158.elements[2] = ((closureN)self_731403)->elements[2];

return_direct_with_clo3(data,  __glo_take_scheme_cyclone_util, (((closure)  __glo_take_scheme_cyclone_util)->fn),  &c_732158, ((closureN)self_731403)->elements[0], ((closureN)self_731403)->elements[2]);; 
}

static void __lambda_64(void *data, object self_731404, int argc, object *args) /* object self_731404, object r_73876 */
 {
 object r_73876 = args[0];
  
closureN_type c_732160;
object e_732170 [2];
c_732160.hdr.mark = gc_color_red;
 c_732160.hdr.grayed = 0;
c_732160.tag = closureN_tag;
 c_732160.fn = (function_type)__lambda_65;
c_732160.num_args = 1;
c_732160.num_elements = 2;
c_732160.elements = (object *)e_732170;
c_732160.elements[0] = ((closureN)self_731404)->elements[1];
c_732160.elements[1] = r_73876;

return_direct_with_clo3(data,  __glo_list_91tail_scheme_base, (((closure)  __glo_list_91tail_scheme_base)->fn),  &c_732160, ((closureN)self_731404)->elements[0], ((closureN)self_731404)->elements[2]);; 
}

static void __lambda_65(void *data, object self_731405, int argc, object *args) /* object self_731405, object r_73878 */
 {
 object r_73878 = args[0];
  
closureN_type c_732162;
object e_732166 [2];
c_732162.hdr.mark = gc_color_red;
 c_732162.hdr.grayed = 0;
c_732162.tag = closureN_tag;
 c_732162.fn = (function_type)__lambda_66;
c_732162.num_args = 1;
c_732162.num_elements = 2;
c_732162.elements = (object *)e_732166;
c_732162.elements[0] = ((closureN)self_731405)->elements[0];
c_732162.elements[1] = ((closureN)self_731405)->elements[1];


pair_type local_732169; 
return_direct_with_clo1(data,(closure)&c_732162,__lambda_66,  set_cell_as_expr(&local_732169, r_73878));; 
}

static void __lambda_66(void *data, object self_731406, int argc, object *args) /* object self_731406, object r_73877 */
 {
 object r_73877 = args[0];
  return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  ((closureN)self_731406)->elements[0], ((closureN)self_731406)->elements[1], r_73877);; 
}

static void __lambda_62(void *data, object self_731407, int argc, object *args) /* object self_731407, object k_73879 */
 {
 object k_73879 = args[0];
    
if( (boolean_f != Cyc_num_fast_gt_op(data, ((closureN)self_731407)->elements[3], ((closureN)self_731407)->elements[2])) ){ 
  
make_utf8_string_with_len(c_732151, "Too few arguments supplied", 26, 26);
return_direct_with_clo4(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_73879, &c_732151, ((closureN)self_731407)->elements[1], ((closureN)self_731407)->elements[0]);
} else { 
  return_direct_with_clo1(data,  k_73879, (((closure)  k_73879)->fn),  Cyc_VOID);}
;; 
}

static void __lambda_55(void *data, object _, int argc, object *args) /* closure _,object k_73865, object args_73122_73479 */
 {
object k_73865 = args[0]; object args_73122_73479 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:formals->list");
  
if( (boolean_f != Cyc_is_symbol(args_73122_73479)) ){ 
  
pair_type local_732113; 
return_direct_with_clo1(data,  k_73865, (((closure)  k_73865)->fn),  set_cell_as_expr(&local_732113, args_73122_73479));
} else { 
  
closureN_type c_732115;
object e_732122 [2];
c_732115.hdr.mark = gc_color_red;
 c_732115.hdr.grayed = 0;
c_732115.tag = closureN_tag;
 c_732115.fn = (function_type)__lambda_56;
c_732115.num_args = 1;
c_732115.num_elements = 2;
c_732115.elements = (object *)e_732122;
c_732115.elements[0] = args_73122_73479;
c_732115.elements[1] = k_73865;


complex_num_type local_732125; 
return_direct_with_clo1(data,(closure)&c_732115,__lambda_56,  ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,&local_732125, args_73122_73479));}
;; 
}

static void __lambda_56(void *data, object self_731398, int argc, object *args) /* object self_731398, object r_73867 */
 {
 object r_73867 = args[0];
  if( (boolean_f != r_73867) ){ 
  return_direct_with_clo1(data,  ((closureN)self_731398)->elements[1], (((closure)  ((closureN)self_731398)->elements[1])->fn),  ((closureN)self_731398)->elements[0]);
} else { 
  return_direct_with_clo2(data,  __glo_pair_91_125list_scheme_cyclone_util, (((closure)  __glo_pair_91_125list_scheme_cyclone_util)->fn),  ((closureN)self_731398)->elements[1], ((closureN)self_731398)->elements[0]);}
;; 
}

static void __lambda_53(void *data, object _, int argc, object *args) /* closure _,object k_73859, object exp_73120_73477 */
 {
object k_73859 = args[0]; object exp_73120_73477 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda-formals->list");

closureN_type c_732082;
object e_732106 [2];
c_732082.hdr.mark = gc_color_red;
 c_732082.hdr.grayed = 0;
c_732082.tag = closureN_tag;
 c_732082.fn = (function_type)__lambda_54;
c_732082.num_args = 1;
c_732082.num_elements = 2;
c_732082.elements = (object *)e_732106;
c_732082.elements[0] = exp_73120_73477;
c_732082.elements[1] = k_73859;

return_direct_with_clo2(data,  __glo_lambda_91varargs_127_scheme_cyclone_util, (((closure)  __glo_lambda_91varargs_127_scheme_cyclone_util)->fn),  &c_732082, exp_73120_73477);; 
}

static void __lambda_54(void *data, object self_731397, int argc, object *args) /* object self_731397, object r_73860 */
 {
 object r_73860 = args[0];
  if( (boolean_f != r_73860) ){ 
    
  
if( (boolean_f != Cyc_is_symbol(Cyc_cadr(data, ((closureN)self_731397)->elements[0]))) ){ 
  
pair_type local_732092; 


return_direct_with_clo1(data,  ((closureN)self_731397)->elements[1], (((closure)  ((closureN)self_731397)->elements[1])->fn),  set_cell_as_expr(&local_732092, Cyc_cadr(data, ((closureN)self_731397)->elements[0])));
} else { 
  

return_direct_with_clo2(data,  __glo_pair_91_125list_scheme_cyclone_util, (((closure)  __glo_pair_91_125list_scheme_cyclone_util)->fn),  ((closureN)self_731397)->elements[1], Cyc_cadr(data, ((closureN)self_731397)->elements[0]));}
;
} else { 
  

return_direct_with_clo1(data,  ((closureN)self_731397)->elements[1], (((closure)  ((closureN)self_731397)->elements[1])->fn),  Cyc_cadr(data, ((closureN)self_731397)->elements[0]));}
;; 
}

static void __lambda_52(void *data, object _, int argc, object *args) /* closure _,object k_73840, object exp_73105_73475 */
 {
object k_73840 = args[0]; object exp_73105_73475 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda-formals-type");
  
  
if( (boolean_f != Cyc_is_symbol(Cyc_cadr(data, exp_73105_73475))) ){ 
  return_direct_with_clo1(data,  k_73840, (((closure)  k_73840)->fn),  quote_args_117varargs);
} else { 
    complex_num_type local_732050; 
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,&local_732050, Cyc_cadr(data, exp_73105_73475))) ){ 
  return_direct_with_clo1(data,  k_73840, (((closure)  k_73840)->fn),  quote_args_117fixed);
} else { 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_cadr(data, exp_73105_73475))) ){ 
  return_direct_with_clo1(data,  k_73840, (((closure)  k_73840)->fn),  quote_args_117fixed_91with_91varargs);
} else { 
  
pair_type local_732062; 

pair_type local_732065; 

pair_type local_732068; 

pair_type local_732071; 

pair_type local_732074; 

pair_type local_732077; 


return_direct_with_clo2(data,  __glo_error_scheme_base, (((closure)  __glo_error_scheme_base)->fn),  k_73840, set_pair_as_expr(&local_732062, quote_Unexpected, set_pair_as_expr(&local_732065, quote_formals, set_pair_as_expr(&local_732068, quote__list, set_pair_as_expr(&local_732071, quote_in, set_pair_as_expr(&local_732074, quote_lambda_91formals_91type_117, set_pair_as_expr(&local_732077, Cyc_cadr(data, exp_73105_73475), NULL)))))));}
;}
;}
;; 
}

static void __lambda_50(void *data, object _, int argc, object *args) /* closure _,object k_73833, object exp_7399_73472 */
 {
object k_73833 = args[0]; object exp_7399_73472 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda-varargs?");

closureN_type c_732030;
object e_732041 [1];
c_732030.hdr.mark = gc_color_red;
 c_732030.hdr.grayed = 0;
c_732030.tag = closureN_tag;
 c_732030.fn = (function_type)__lambda_51;
c_732030.num_args = 1;
c_732030.num_elements = 1;
c_732030.elements = (object *)e_732041;
c_732030.elements[0] = k_73833;

return_direct_with_clo2(data,  __glo_lambda_91formals_91type_scheme_cyclone_util, (((closure)  __glo_lambda_91formals_91type_scheme_cyclone_util)->fn),  &c_732030, exp_7399_73472);; 
}

static void __lambda_51(void *data, object self_731396, int argc, object *args) /* object self_731396, object type_73100_73473 */
 {
 object type_73100_73473 = args[0];
    
if( (boolean_f != equalp(type_73100_73473, quote_args_117varargs)) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731396)->elements[0], (((closure)  ((closureN)self_731396)->elements[0])->fn),  equalp(type_73100_73473, quote_args_117varargs));
} else { 
  

return_direct_with_clo1(data,  ((closureN)self_731396)->elements[0], (((closure)  ((closureN)self_731396)->elements[0])->fn),  equalp(type_73100_73473, quote_args_117fixed_91with_91varargs));}
;; 
}

static void __lambda_45(void *data, object _, int argc, object *args) /* closure _,object k_73824, object exp_7398_73471 */
 {
object k_73824 = args[0]; object exp_7398_73471 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda-varargs-var");

closureN_type c_732002;
object e_732027 [2];
c_732002.hdr.mark = gc_color_red;
 c_732002.hdr.grayed = 0;
c_732002.tag = closureN_tag;
 c_732002.fn = (function_type)__lambda_46;
c_732002.num_args = 1;
c_732002.num_elements = 2;
c_732002.elements = (object *)e_732027;
c_732002.elements[0] = exp_7398_73471;
c_732002.elements[1] = k_73824;

return_direct_with_clo2(data,  __glo_lambda_91varargs_127_scheme_cyclone_util, (((closure)  __glo_lambda_91varargs_127_scheme_cyclone_util)->fn),  &c_732002, exp_7398_73471);; 
}

static void __lambda_46(void *data, object self_731392, int argc, object *args) /* object self_731392, object r_73825 */
 {
 object r_73825 = args[0];
  if( (boolean_f != r_73825) ){ 
  
closureN_type c_732004;
object e_732023 [2];
c_732004.hdr.mark = gc_color_red;
 c_732004.hdr.grayed = 0;
c_732004.tag = closureN_tag;
 c_732004.fn = (function_type)__lambda_47;
c_732004.num_args = 1;
c_732004.num_elements = 2;
c_732004.elements = (object *)e_732023;
c_732004.elements[0] = ((closureN)self_731392)->elements[0];
c_732004.elements[1] = ((closureN)self_731392)->elements[1];

return_direct_with_clo2(data,  __glo_lambda_91formals_91type_scheme_cyclone_util, (((closure)  __glo_lambda_91formals_91type_scheme_cyclone_util)->fn),  &c_732004, ((closureN)self_731392)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731392)->elements[1], (((closure)  ((closureN)self_731392)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_47(void *data, object self_731393, int argc, object *args) /* object self_731393, object r_73829 */
 {
 object r_73829 = args[0];
    
if( (boolean_f != equalp(r_73829, quote_args_117varargs)) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731393)->elements[1], (((closure)  ((closureN)self_731393)->elements[1])->fn),  Cyc_cadr(data, ((closureN)self_731393)->elements[0]));
} else { 
  
closureN_type c_732013;
object e_732021 [1];
c_732013.hdr.mark = gc_color_red;
 c_732013.hdr.grayed = 0;
c_732013.tag = closureN_tag;
 c_732013.fn = (function_type)__lambda_48;
c_732013.num_args = 1;
c_732013.num_elements = 1;
c_732013.elements = (object *)e_732021;
c_732013.elements[0] = ((closureN)self_731393)->elements[1];

return_direct_with_clo2(data,  __glo_lambda_91formals_91_125list_scheme_cyclone_util, (((closure)  __glo_lambda_91formals_91_125list_scheme_cyclone_util)->fn),  &c_732013, ((closureN)self_731393)->elements[0]);}
;; 
}

static void __lambda_48(void *data, object self_731394, int argc, object *args) /* object self_731394, object r_73828 */
 {
 object r_73828 = args[0];
  
closureN_type c_732015;
object e_732020 [1];
c_732015.hdr.mark = gc_color_red;
 c_732015.hdr.grayed = 0;
c_732015.tag = closureN_tag;
 c_732015.fn = (function_type)__lambda_49;
c_732015.num_args = 1;
c_732015.num_elements = 1;
c_732015.elements = (object *)e_732020;
c_732015.elements[0] = ((closureN)self_731394)->elements[0];

return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  &c_732015, r_73828);; 
}

static void __lambda_49(void *data, object self_731395, int argc, object *args) /* object self_731395, object r_73827 */
 {
 object r_73827 = args[0];
  

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

static object __lambda_337(void *data, object ptr,object exp_7397_73470) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda->exp");


return_copy(ptr,  Cyc_cddr(data, exp_7397_73470));; 
}

static void __lambda_44(void *data, object _, int argc, object *args) /* closure _,object k_73821, object exp_7397_73470 */
 {
object k_73821 = args[0]; object exp_7397_73470 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda->exp");


return_direct_with_clo1(data,  k_73821, (((closure)  k_73821)->fn),  Cyc_cddr(data, exp_7397_73470));; 
}

static object __lambda_336(void *data, object ptr,object exp_7396_73469) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda->formals");


return_copy(ptr,  Cyc_cadr(data, exp_7396_73469));; 
}

static void __lambda_43(void *data, object _, int argc, object *args) /* closure _,object k_73818, object exp_7396_73469 */
 {
object k_73818 = args[0]; object exp_7396_73469 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda->formals");


return_direct_with_clo1(data,  k_73818, (((closure)  k_73818)->fn),  Cyc_cadr(data, exp_7396_73469));; 
}

static void __lambda_36(void *data, object _, int argc, object *args) /* closure _,object k_73807, object p_7391_73465 */
 {
object k_73807 = args[0]; object p_7391_73465 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:pair->list");

closureN_type c_731934;
object e_731983 [1];
c_731934.hdr.mark = gc_color_red;
 c_731934.hdr.grayed = 0;
c_731934.tag = closureN_tag;
 c_731934.fn = (function_type)__lambda_37;
c_731934.num_args = 1;
c_731934.num_elements = 1;
c_731934.elements = (object *)e_731983;
c_731934.elements[0] = k_73807;

return_direct_with_clo1(data,(closure)&c_731934,__lambda_37,  p_7391_73465);; 
}

static void __lambda_37(void *data, object self_731385, int argc, object *args) /* object self_731385, object lst_7393_73466 */
 {
 object lst_7393_73466 = args[0];
  
closureN_type c_731936;
object e_731982 [2];
c_731936.hdr.mark = gc_color_red;
 c_731936.hdr.grayed = 0;
c_731936.tag = closureN_tag;
 c_731936.fn = (function_type)__lambda_38;
c_731936.num_args = 1;
c_731936.num_elements = 2;
c_731936.elements = (object *)e_731982;
c_731936.elements[0] = ((closureN)self_731385)->elements[0];
c_731936.elements[1] = lst_7393_73466;

return_direct_with_clo1(data,(closure)&c_731936,__lambda_38,  boolean_f);; 
}

static void __lambda_38(void *data, object self_731386, int argc, object *args) /* object self_731386, object loop_7394_73467 */
 {
 object loop_7394_73467 = args[0];
  
closureN_type c_731938;
object e_731978 [2];
c_731938.hdr.mark = gc_color_red;
 c_731938.hdr.grayed = 0;
c_731938.tag = closureN_tag;
 c_731938.fn = (function_type)__lambda_309;
c_731938.num_args = 1;
c_731938.num_elements = 2;
c_731938.elements = (object *)e_731978;
c_731938.elements[0] = ((closureN)self_731386)->elements[0];
c_731938.elements[1] = ((closureN)self_731386)->elements[1];


pair_type local_731981; 
return_direct_with_clo1(data,(closure)&c_731938,__lambda_309,  set_cell_as_expr(&local_731981, loop_7394_73467));; 
}

static void __lambda_309(void *data, object self_731387, int argc, object *args) /* object self_731387, object loop_7394_73467 */
 {
 object loop_7394_73467 = args[0];
  
closureN_type c_731940;
object e_731953 [3];
c_731940.hdr.mark = gc_color_red;
 c_731940.hdr.grayed = 0;
c_731940.tag = closureN_tag;
 c_731940.fn = (function_type)__lambda_39;
c_731940.num_args = 1;
c_731940.num_elements = 3;
c_731940.elements = (object *)e_731953;
c_731940.elements[0] = ((closureN)self_731387)->elements[0];
c_731940.elements[1] = loop_7394_73467;
c_731940.elements[2] = ((closureN)self_731387)->elements[1];


closureN_type c_731954;
object e_731977 [1];
c_731954.hdr.mark = gc_color_red;
 c_731954.hdr.grayed = 0;
c_731954.tag = closureN_tag;
 c_731954.fn = (function_type)__lambda_41;
c_731954.num_args = 1;
c_731954.num_elements = 1;
c_731954.elements = (object *)e_731977;
c_731954.elements[0] = loop_7394_73467;

return_direct_with_clo1(data,(closure)&c_731940,__lambda_39,  &c_731954);; 
}

static void __lambda_41(void *data, object self_731388, int argc, object *args) /* object self_731388, object k_73810, object lst_7395_73468 */
 {
 object k_73810 = args[0]; object lst_7395_73468 = args[1];
    
if( (boolean_f != Cyc_is_pair(lst_7395_73468)) ){ 
  


closureN_type c_731961;
object e_731970 [2];
c_731961.hdr.mark = gc_color_red;
 c_731961.hdr.grayed = 0;
c_731961.tag = closureN_tag;
 c_731961.fn = (function_type)__lambda_42;
c_731961.num_args = 1;
c_731961.num_elements = 2;
c_731961.elements = (object *)e_731970;
c_731961.elements[0] = k_73810;
c_731961.elements[1] = lst_7395_73468;



return_closcall2(data,  car(((closureN)self_731388)->elements[0]),  &c_731961, Cyc_cdr(data, lst_7395_73468));
} else { 
  
pair_type local_731976; 
return_direct_with_clo1(data,  k_73810, (((closure)  k_73810)->fn),  set_pair_as_expr(&local_731976, lst_7395_73468, NULL));}
;; 
}

static void __lambda_42(void *data, object self_731389, int argc, object *args) /* object self_731389, object r_73813 */
 {
 object r_73813 = args[0];
  
pair_type local_731966; 


return_direct_with_clo1(data,  ((closureN)self_731389)->elements[0], (((closure)  ((closureN)self_731389)->elements[0])->fn),  set_pair_as_expr(&local_731966, Cyc_car(data, ((closureN)self_731389)->elements[1]), r_73813));; 
}

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



return_direct_with_clo1(data,(closure)&c_731942,__lambda_40,  Cyc_set_cell(data, ((closureN)self_731390)->elements[1], r_73809));; 
}

static void __lambda_40(void *data, object self_731391, int argc, object *args) /* object self_731391, object r_73808 */
 {

  

return_closcall2(data,  car(((closureN)self_731391)->elements[1]),  ((closureN)self_731391)->elements[0], ((closureN)self_731391)->elements[2]);; 
}

static void __lambda_32(void *data, object _, int argc, object *args) /* closure _,object k_73801, object exp_7389_73463 */
 {
object k_73801 = args[0]; object exp_7389_73463 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:define-c->inline-var");

closureN_type c_731913;
object e_731931 [1];
c_731913.hdr.mark = gc_color_red;
 c_731913.hdr.grayed = 0;
c_731913.tag = closureN_tag;
 c_731913.fn = (function_type)__lambda_33;
c_731913.num_args = 1;
c_731913.num_elements = 1;
c_731913.elements = (object *)e_731931;
c_731913.elements[0] = k_73801;

return_direct_with_clo2(data,  __glo_define_91_125var_scheme_cyclone_util, (((closure)  __glo_define_91_125var_scheme_cyclone_util)->fn),  &c_731913, exp_7389_73463);; 
}

static void __lambda_33(void *data, object self_731382, int argc, object *args) /* object self_731382, object var_7390_73464 */
 {
 object var_7390_73464 = args[0];
  
closureN_type c_731915;
object e_731927 [1];
c_731915.hdr.mark = gc_color_red;
 c_731915.hdr.grayed = 0;
c_731915.tag = closureN_tag;
 c_731915.fn = (function_type)__lambda_34;
c_731915.num_args = 1;
c_731915.num_elements = 1;
c_731915.elements = (object *)e_731927;
c_731915.elements[0] = ((closureN)self_731382)->elements[0];


object c_731930 = Cyc_symbol2string(data,(closure)&c_731915,var_7390_73464);
return_closcall1(data,(closure)&c_731915,  c_731930);; 
}

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


make_utf8_string_with_len(c_731926, "__inline__", 10, 10);

object c_731925 = Cyc_string_append(data,(closure)&c_731917,2,r_73804, &c_731926);
return_closcall1(data,(closure)&c_731917,  c_731925);; 
}

static void __lambda_35(void *data, object self_731384, int argc, object *args) /* object self_731384, object r_73803 */
 {
 object r_73803 = args[0];
  

return_direct_with_clo1(data,  ((closureN)self_731384)->elements[0], (((closure)  ((closureN)self_731384)->elements[0])->fn),  Cyc_string2symbol(data, r_73803));; 
}

static void __lambda_30(void *data, object _, int argc, object *args) /* closure _,object k_73796, object exp_7387_73462 */
 {
object k_73796 = args[0]; object exp_7387_73462 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:define-c-inline?");

closureN_type c_731900;
object e_731910 [2];
c_731900.hdr.mark = gc_color_red;
 c_731900.hdr.grayed = 0;
c_731900.tag = closureN_tag;
 c_731900.fn = (function_type)__lambda_31;
c_731900.num_args = 1;
c_731900.num_elements = 2;
c_731900.elements = (object *)e_731910;
c_731900.elements[0] = exp_7387_73462;
c_731900.elements[1] = k_73796;

return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  &c_731900, quote_define_91c, exp_7387_73462);; 
}

static void __lambda_31(void *data, object self_731381, int argc, object *args) /* object self_731381, object r_73797 */
 {
 object r_73797 = args[0];
  if( (boolean_f != r_73797) ){ 
  



return_direct_with_clo1(data,  ((closureN)self_731381)->elements[1], (((closure)  ((closureN)self_731381)->elements[1])->fn),  Cyc_num_fast_eq_op(data, Cyc_length(data, ((closureN)self_731381)->elements[0]), obj_int2obj(6)));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731381)->elements[1], (((closure)  ((closureN)self_731381)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_29(void *data, object _, int argc, object *args) /* closure _,object k_73792, object exp_7386_73461 */
 {
object k_73792 = args[0]; object exp_7386_73461 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:define-c?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73792, quote_define_91c, exp_7386_73461);; 
}

static object __lambda_335(void *data, object ptr,object exp_7385_73460) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:define->exp");


return_copy(ptr,  Cyc_cddr(data, exp_7385_73460));; 
}

static void __lambda_28(void *data, object _, int argc, object *args) /* closure _,object k_73789, object exp_7385_73460 */
 {
object k_73789 = args[0]; object exp_7385_73460 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:define->exp");


return_direct_with_clo1(data,  k_73789, (((closure)  k_73789)->fn),  Cyc_cddr(data, exp_7385_73460));; 
}

static void __lambda_26(void *data, object _, int argc, object *args) /* closure _,object k_73785, object exp_7380_73459 */
 {
object k_73785 = args[0]; object exp_7380_73459 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:define->var");

closureN_type c_731876;
object e_731887 [2];
c_731876.hdr.mark = gc_color_red;
 c_731876.hdr.grayed = 0;
c_731876.tag = closureN_tag;
 c_731876.fn = (function_type)__lambda_27;
c_731876.num_args = 1;
c_731876.num_elements = 2;
c_731876.elements = (object *)e_731887;
c_731876.elements[0] = exp_7380_73459;
c_731876.elements[1] = k_73785;

return_direct_with_clo2(data,  __glo_define_91lambda_127_scheme_cyclone_util, (((closure)  __glo_define_91lambda_127_scheme_cyclone_util)->fn),  &c_731876, exp_7380_73459);; 
}

static void __lambda_27(void *data, object self_731380, int argc, object *args) /* object self_731380, object r_73786 */
 {
 object r_73786 = args[0];
  if( (boolean_f != r_73786) ){ 
  

return_direct_with_clo1(data,  ((closureN)self_731380)->elements[1], (((closure)  ((closureN)self_731380)->elements[1])->fn),  Cyc_caadr(data, ((closureN)self_731380)->elements[0]));
} else { 
  

return_direct_with_clo1(data,  ((closureN)self_731380)->elements[1], (((closure)  ((closureN)self_731380)->elements[1])->fn),  Cyc_cadr(data, ((closureN)self_731380)->elements[0]));}
;; 
}

static void __lambda_24(void *data, object _, int argc, object *args) /* closure _,object k_73771, object exp_7369_73455 */
 {
object k_73771 = args[0]; object exp_7369_73455 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:define->lambda");

closureN_type c_731843;
object e_731873 [2];
c_731843.hdr.mark = gc_color_red;
 c_731843.hdr.grayed = 0;
c_731843.tag = closureN_tag;
 c_731843.fn = (function_type)__lambda_25;
c_731843.num_args = 1;
c_731843.num_elements = 2;
c_731843.elements = (object *)e_731873;
c_731843.elements[0] = exp_7369_73455;
c_731843.elements[1] = k_73771;

return_direct_with_clo2(data,  __glo_define_91lambda_127_scheme_cyclone_util, (((closure)  __glo_define_91lambda_127_scheme_cyclone_util)->fn),  &c_731843, exp_7369_73455);; 
}

static void __lambda_25(void *data, object self_731379, int argc, object *args) /* object self_731379, object r_73772 */
 {
 object r_73772 = args[0];
  if( (boolean_f != r_73772) ){ 
  
pair_type local_731848; 

pair_type local_731851; 



pair_type local_731857; 

pair_type local_731860; 

pair_type local_731863; 




return_direct_with_clo1(data,  ((closureN)self_731379)->elements[1], (((closure)  ((closureN)self_731379)->elements[1])->fn),  set_pair_as_expr(&local_731848, quote_define, set_pair_as_expr(&local_731851, Cyc_caadr(data, ((closureN)self_731379)->elements[0]), set_pair_as_expr(&local_731857, set_pair_as_expr(&local_731860, quote_lambda, set_pair_as_expr(&local_731863, Cyc_cdadr(data, ((closureN)self_731379)->elements[0]), Cyc_cddr(data, ((closureN)self_731379)->elements[0]))), NULL))));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731379)->elements[1], (((closure)  ((closureN)self_731379)->elements[1])->fn),  ((closureN)self_731379)->elements[0]);}
;; 
}

static void __lambda_23(void *data, object _, int argc, object *args) /* closure _,object k_73759, object exp_7360_73452 */
 {
object k_73759 = args[0]; object exp_7360_73452 = args[1];
  object tmp_7363_7365_73454;
  Cyc_st_add(data, "scheme/cyclone/util.sld:define-lambda?");
  object local_731810 = alloca(sizeof(complex_num_type)); 
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,local_731810, Cyc_cadr(data, exp_7360_73452))) ){ 
    
  
  
if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, Cyc_cadr(data, exp_7360_73452)), obj_int2obj(0))) ){ 
  
  
  
  tmp_7363_7365_73454 = Cyc_is_symbol(Cyc_car(data, Cyc_cadr(data, exp_7360_73452)));
} else { 
  tmp_7363_7365_73454 = boolean_f;}
;
} else { 
  tmp_7363_7365_73454 = boolean_f;}
;if( (boolean_f != tmp_7363_7365_73454) ){ 
  return_direct_with_clo1(data,  k_73759, (((closure)  k_73759)->fn),  tmp_7363_7365_73454);
} else { 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_cadr(data, exp_7360_73452))) ){ 
  





return_direct_with_clo1(data,  k_73759, (((closure)  k_73759)->fn),  Cyc_is_symbol(Cyc_car(data, Cyc_cadr(data, exp_7360_73452))));
} else { 
  return_direct_with_clo1(data,  k_73759, (((closure)  k_73759)->fn),  boolean_f);}
;}
;; 
}

static void __lambda_22(void *data, object _, int argc, object *args) /* closure _,object k_73755, object exp_7359_73451 */
 {
object k_73755 = args[0]; object exp_7359_73451 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:define?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73755, quote_define, exp_7359_73451);; 
}

static object __lambda_334(void *data, object ptr,object exp_7358_73450) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:set!->exp");


return_copy(ptr,  Cyc_caddr(data, exp_7358_73450));; 
}

static void __lambda_21(void *data, object _, int argc, object *args) /* closure _,object k_73752, object exp_7358_73450 */
 {
object k_73752 = args[0]; object exp_7358_73450 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:set!->exp");


return_direct_with_clo1(data,  k_73752, (((closure)  k_73752)->fn),  Cyc_caddr(data, exp_7358_73450));; 
}

static object __lambda_333(void *data, object ptr,object exp_7357_73449) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:set!->var");


return_copy(ptr,  Cyc_cadr(data, exp_7357_73449));; 
}

static void __lambda_20(void *data, object _, int argc, object *args) /* closure _,object k_73749, object exp_7357_73449 */
 {
object k_73749 = args[0]; object exp_7357_73449 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:set!->var");


return_direct_with_clo1(data,  k_73749, (((closure)  k_73749)->fn),  Cyc_cadr(data, exp_7357_73449));; 
}

static void __lambda_19(void *data, object _, int argc, object *args) /* closure _,object k_73745, object exp_7356_73448 */
 {
object k_73745 = args[0]; object exp_7356_73448 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:set!?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73745, quote_set_67, exp_7356_73448);; 
}

static void __lambda_18(void *data, object _, int argc, object *args) /* closure _,object k_73741, object exp_7355_73447 */
 {
object k_73741 = args[0]; object exp_7355_73447 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:quote?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73741, quote_quote, exp_7355_73447);; 
}

static object __lambda_332(void *data, object ptr,object exp_7354_73446) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:ref?");


return_copy(ptr,  Cyc_is_symbol(exp_7354_73446));; 
}

static void __lambda_17(void *data, object _, int argc, object *args) /* closure _,object k_73738, object exp_7354_73446 */
 {
object k_73738 = args[0]; object exp_7354_73446 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:ref?");


return_direct_with_clo1(data,  k_73738, (((closure)  k_73738)->fn),  Cyc_is_symbol(exp_7354_73446));; 
}

static void __lambda_16(void *data, object _, int argc, object *args) /* closure _,object k_73726, object exp_7321_73437 */
 {
object k_73726 = args[0]; object exp_7321_73437 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:const?");
  
if( (boolean_f != Cyc_is_integer(exp_7321_73437)) ){ 
  

return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  Cyc_is_integer(exp_7321_73437));
} else { 
    
if( (boolean_f != Cyc_is_real(exp_7321_73437)) ){ 
  

return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  Cyc_is_real(exp_7321_73437));
} else { 
    complex_num_type local_731737; 
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_complex_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731737, exp_7321_73437)) ){ 
  
complex_num_type local_731741; 
return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  ((inline_function_type)
                   ((closure)__glo_complex_127_191_191inline_191_191_scheme_base)->fn)(data,&local_731741, exp_7321_73437));
} else { 
    
  complex_num_type local_731746; 
if( (boolean_f != Cyc_eq(((inline_function_type)
                   ((closure)__glo_void_191_191inline_191_191_scheme_base)->fn)(data,&local_731746), exp_7321_73437)) ){ 
  


complex_num_type local_731752; 
return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  Cyc_eq(((inline_function_type)
                   ((closure)__glo_void_191_191inline_191_191_scheme_base)->fn)(data,&local_731752), exp_7321_73437));
} else { 
    
if( (boolean_f != Cyc_is_string(exp_7321_73437)) ){ 
  

return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  Cyc_is_string(exp_7321_73437));
} else { 
    
if( (boolean_f != Cyc_is_vector_not_record_type(exp_7321_73437)) ){ 
  

return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  Cyc_is_vector_not_record_type(exp_7321_73437));
} else { 
    
if( (boolean_f != Cyc_is_bytevector(exp_7321_73437)) ){ 
  

return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  Cyc_is_bytevector(exp_7321_73437));
} else { 
    
if( (boolean_f != Cyc_is_char(exp_7321_73437)) ){ 
  

return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  Cyc_is_char(exp_7321_73437));
} else { 
  

return_direct_with_clo1(data,  k_73726, (((closure)  k_73726)->fn),  Cyc_is_boolean(exp_7321_73437));}
;}
;}
;}
;}
;}
;}
;}
;; 
}

static object __lambda_331(void *data, object ptr,object exp_7320_73436) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:app?");


return_copy(ptr,  Cyc_is_pair(exp_7320_73436));; 
}

static void __lambda_15(void *data, object _, int argc, object *args) /* closure _,object k_73723, object exp_7320_73436 */
 {
object k_73723 = args[0]; object exp_7320_73436 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:app?");


return_direct_with_clo1(data,  k_73723, (((closure)  k_73723)->fn),  Cyc_is_pair(exp_7320_73436));; 
}

static object __lambda_330(void *data, object ptr,object exp_7319_73435) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:if->else");


return_copy(ptr,  Cyc_cadddr(data, exp_7319_73435));; 
}

static void __lambda_14(void *data, object _, int argc, object *args) /* closure _,object k_73720, object exp_7319_73435 */
 {
object k_73720 = args[0]; object exp_7319_73435 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:if->else");


return_direct_with_clo1(data,  k_73720, (((closure)  k_73720)->fn),  Cyc_cadddr(data, exp_7319_73435));; 
}

static void __lambda_12(void *data, object _, int argc, object *args) /* closure _,object k_73714, object exp_7317_73434 */
 {
object k_73714 = args[0]; object exp_7317_73434 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:if-else?");

closureN_type c_731697;
object e_731707 [2];
c_731697.hdr.mark = gc_color_red;
 c_731697.hdr.grayed = 0;
c_731697.tag = closureN_tag;
 c_731697.fn = (function_type)__lambda_13;
c_731697.num_args = 1;
c_731697.num_elements = 2;
c_731697.elements = (object *)e_731707;
c_731697.elements[0] = exp_7317_73434;
c_731697.elements[1] = k_73714;

return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  &c_731697, quote__if, exp_7317_73434);; 
}

static void __lambda_13(void *data, object self_731378, int argc, object *args) /* object self_731378, object r_73715 */
 {
 object r_73715 = args[0];
  if( (boolean_f != r_73715) ){ 
  



return_direct_with_clo1(data,  ((closureN)self_731378)->elements[1], (((closure)  ((closureN)self_731378)->elements[1])->fn),  Cyc_num_fast_gt_op(data, Cyc_length(data, ((closureN)self_731378)->elements[0]), obj_int2obj(3)));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731378)->elements[1], (((closure)  ((closureN)self_731378)->elements[1])->fn),  boolean_f);}
;; 
}

static object __lambda_329(void *data, object ptr,object exp_7316_73433) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:if->then");


return_copy(ptr,  Cyc_caddr(data, exp_7316_73433));; 
}

static void __lambda_11(void *data, object _, int argc, object *args) /* closure _,object k_73711, object exp_7316_73433 */
 {
object k_73711 = args[0]; object exp_7316_73433 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:if->then");


return_direct_with_clo1(data,  k_73711, (((closure)  k_73711)->fn),  Cyc_caddr(data, exp_7316_73433));; 
}

static object __lambda_328(void *data, object ptr,object exp_7315_73432) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:if->condition");


return_copy(ptr,  Cyc_cadr(data, exp_7315_73432));; 
}

static void __lambda_10(void *data, object _, int argc, object *args) /* closure _,object k_73708, object exp_7315_73432 */
 {
object k_73708 = args[0]; object exp_7315_73432 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:if->condition");


return_direct_with_clo1(data,  k_73708, (((closure)  k_73708)->fn),  Cyc_cadr(data, exp_7315_73432));; 
}

static void __lambda_9(void *data, object _, int argc, object *args) /* closure _,object k_73704, object exp_7314_73431 */
 {
object k_73704 = args[0]; object exp_7314_73431 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:lambda?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73704, quote_lambda, exp_7314_73431);; 
}

static void __lambda_8(void *data, object _, int argc, object *args) /* closure _,object k_73700, object exp_7313_73430 */
 {
object k_73700 = args[0]; object exp_7313_73430 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:begin?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73700, quote_begin, exp_7313_73430);; 
}

static void __lambda_7(void *data, object _, int argc, object *args) /* closure _,object k_73696, object exp_7312_73429 */
 {
object k_73696 = args[0]; object exp_7312_73429 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:letrec-syntax?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73696, quote_letrec_91syntax, exp_7312_73429);; 
}

static void __lambda_6(void *data, object _, int argc, object *args) /* closure _,object k_73692, object exp_7311_73428 */
 {
object k_73692 = args[0]; object exp_7311_73428 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:let-syntax?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73692, quote_let_91syntax, exp_7311_73428);; 
}

static void __lambda_5(void *data, object _, int argc, object *args) /* closure _,object k_73688, object exp_7310_73427 */
 {
object k_73688 = args[0]; object exp_7310_73427 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:define-syntax?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73688, quote_define_91syntax, exp_7310_73427);; 
}

static void __lambda_3(void *data, object _, int argc, object *args) /* closure _,object k_73681, object exp_734_73425 */
 {
object k_73681 = args[0]; object exp_734_73425 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:if-syntax?");

closureN_type c_731646;
object e_731668 [2];
c_731646.hdr.mark = gc_color_red;
 c_731646.hdr.grayed = 0;
c_731646.tag = closureN_tag;
 c_731646.fn = (function_type)__lambda_4;
c_731646.num_args = 1;
c_731646.num_elements = 2;
c_731646.elements = (object *)e_731668;
c_731646.elements[0] = exp_734_73425;
c_731646.elements[1] = k_73681;

return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  &c_731646, quote__if, exp_734_73425);; 
}

static void __lambda_4(void *data, object self_731377, int argc, object *args) /* object self_731377, object r_73682 */
 {
 object r_73682 = args[0];
  if( (boolean_f != r_73682) ){ 
    
  
if( (boolean_f != Cyc_num_fast_eq_op(data, Cyc_length(data, ((closureN)self_731377)->elements[0]), obj_int2obj(3))) ){ 
  



return_direct_with_clo1(data,  ((closureN)self_731377)->elements[1], (((closure)  ((closureN)self_731377)->elements[1])->fn),  Cyc_num_fast_eq_op(data, Cyc_length(data, ((closureN)self_731377)->elements[0]), obj_int2obj(3)));
} else { 
  



return_direct_with_clo1(data,  ((closureN)self_731377)->elements[1], (((closure)  ((closureN)self_731377)->elements[1])->fn),  Cyc_num_fast_eq_op(data, Cyc_length(data, ((closureN)self_731377)->elements[0]), obj_int2obj(4)));}
;
} else { 
  return_direct_with_clo1(data,  ((closureN)self_731377)->elements[1], (((closure)  ((closureN)self_731377)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_2(void *data, object _, int argc, object *args) /* closure _,object k_73677, object exp_733_73424 */
 {
object k_73677 = args[0]; object exp_733_73424 = args[1];
  Cyc_st_add(data, "scheme/cyclone/util.sld:if?");
return_direct_with_clo3(data,  __glo_tagged_91list_127_scheme_cyclone_util, (((closure)  __glo_tagged_91list_127_scheme_cyclone_util)->fn),  k_73677, quote__if, exp_733_73424);; 
}

static object __lambda_327(void *data, object ptr,object tag_731_73422, object exp_732_73423) {

  Cyc_st_add(data, "scheme/cyclone/util.sld:tagged-list?");
  
if( (boolean_f != Cyc_is_pair(exp_732_73423)) ){ 
  



return_copy(ptr,  equalp(Cyc_car(data, exp_732_73423), tag_731_73422));
} else { 
  return_copy(ptr,  boolean_f);}
;; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_73672, object tag_731_73422, object exp_732_73423 */
 {
object k_73672 = args[0]; object tag_731_73422 = args[1]; object exp_732_73423 = args[2];
  Cyc_st_add(data, "scheme/cyclone/util.sld:tagged-list?");
  
if( (boolean_f != Cyc_is_pair(exp_732_73423)) ){ 
  



return_direct_with_clo1(data,  k_73672, (((closure)  k_73672)->fn),  equalp(Cyc_car(data, exp_732_73423), tag_731_73422));
} else { 
  return_direct_with_clo1(data,  k_73672, (((closure)  k_73672)->fn),  boolean_f);}
;; 
}

void c_schemecycloneutil_inlinable_lambdas(void *data, object clo, int argc, object *args){ 
make_pair(pair_734050, find_or_add_symbol("env:frame-values"), find_or_add_symbol("env:frame-values__inline__"));
make_pair(pair_734051, find_or_add_symbol("env:frame-variables"), find_or_add_symbol("env:frame-variables__inline__"));
make_pair(pair_734052, find_or_add_symbol("env:first-frame"), find_or_add_symbol("env:first-frame__inline__"));
make_pair(pair_734053, find_or_add_symbol("env:enclosing-environment"), find_or_add_symbol("env:enclosing-environment__inline__"));
make_pair(pair_734054, find_or_add_symbol("lambda->exp"), find_or_add_symbol("lambda->exp__inline__"));
make_pair(pair_734055, find_or_add_symbol("lambda->formals"), find_or_add_symbol("lambda->formals__inline__"));
make_pair(pair_734056, find_or_add_symbol("define->exp"), find_or_add_symbol("define->exp__inline__"));
make_pair(pair_734057, find_or_add_symbol("set!->exp"), find_or_add_symbol("set!->exp__inline__"));
make_pair(pair_734058, find_or_add_symbol("set!->var"), find_or_add_symbol("set!->var__inline__"));
make_pair(pair_734059, find_or_add_symbol("ref?"), find_or_add_symbol("ref?__inline__"));
make_pair(pair_734060, find_or_add_symbol("app?"), find_or_add_symbol("app?__inline__"));
make_pair(pair_734061, find_or_add_symbol("if->else"), find_or_add_symbol("if->else__inline__"));
make_pair(pair_734062, find_or_add_symbol("if->then"), find_or_add_symbol("if->then__inline__"));
make_pair(pair_734063, find_or_add_symbol("if->condition"), find_or_add_symbol("if->condition__inline__"));
make_pair(pair_734064, find_or_add_symbol("tagged-list?"), find_or_add_symbol("tagged-list?__inline__"));
make_pair(c_734079, &pair_734050, NULL);
make_pair(c_734078, &pair_734051, &c_734079);
make_pair(c_734077, &pair_734052, &c_734078);
make_pair(c_734076, &pair_734053, &c_734077);
make_pair(c_734075, &pair_734054, &c_734076);
make_pair(c_734074, &pair_734055, &c_734075);
make_pair(c_734073, &pair_734056, &c_734074);
make_pair(c_734072, &pair_734057, &c_734073);
make_pair(c_734071, &pair_734058, &c_734072);
make_pair(c_734070, &pair_734059, &c_734071);
make_pair(c_734069, &pair_734060, &c_734070);
make_pair(c_734068, &pair_734061, &c_734069);
make_pair(c_734067, &pair_734062, &c_734068);
make_pair(c_734066, &pair_734063, &c_734067);
make_pair(c_734065, &pair_734064, &c_734066);
object buf[1]; object cont = args[0];
buf[0] = &c_734065; (((closure)cont)->fn)(data, cont, 1, buf);
 } 
void c_schemecycloneutil_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_current_91expand_91filepath = find_or_add_symbol("current-expand-filepath");
  quote_env_117the_91empty_91environment = find_or_add_symbol("env:the-empty-environment");
  quote_sc_127 = find_or_add_symbol("sc?");
  quote_env = find_or_add_symbol("env");
  quote_sc_91env = find_or_add_symbol("sc-env");
  quote_free_91names = find_or_add_symbol("free-names");
  quote_sc_91free_91names = find_or_add_symbol("sc-free-names");
  quote_expr = find_or_add_symbol("expr");
  quote_sc_91expr = find_or_add_symbol("sc-expr");
  quote__while = find_or_add_symbol("while");
  quote__volatile = find_or_add_symbol("volatile");
  quote__void = find_or_add_symbol("void");
  quote__unsigned = find_or_add_symbol("unsigned");
  quote__union = find_or_add_symbol("union");
  quote__typedef = find_or_add_symbol("typedef");
  quote__switch = find_or_add_symbol("switch");
  quote__struct = find_or_add_symbol("struct");
  quote__static = find_or_add_symbol("static");
  quote__sizeof = find_or_add_symbol("sizeof");
  quote__signed = find_or_add_symbol("signed");
  quote__short = find_or_add_symbol("short");
  quote__return = find_or_add_symbol("return");
  quote__restrict = find_or_add_symbol("restrict");
  quote__register = find_or_add_symbol("register");
  quote__long = find_or_add_symbol("long");
  quote__int = find_or_add_symbol("int");
  quote__inline = find_or_add_symbol("inline");
  quote__191Imaginary = find_or_add_symbol("_Imaginary");
  quote__goto = find_or_add_symbol("goto");
  quote__for = find_or_add_symbol("for");
  quote__float = find_or_add_symbol("float");
  quote__extern = find_or_add_symbol("extern");
  quote__enum = find_or_add_symbol("enum");
  quote__else = find_or_add_symbol("else");
  quote__double = find_or_add_symbol("double");
  quote__do = find_or_add_symbol("do");
  quote__default = find_or_add_symbol("default");
  quote__continue = find_or_add_symbol("continue");
  quote__const = find_or_add_symbol("const");
  quote__191Complex = find_or_add_symbol("_Complex");
  quote__char = find_or_add_symbol("char");
  quote__case = find_or_add_symbol("case");
  quote__break = find_or_add_symbol("break");
  quote__191Bool = find_or_add_symbol("_Bool");
  quote__auto = find_or_add_symbol("auto");
  quote__85c_91keywords_85 = find_or_add_symbol("*c-keywords*");
  quote_macro = find_or_add_symbol("macro");
  quote_not_91defined = find_or_add_symbol("not-defined");
  quote__121syn_91clo_125 = find_or_add_symbol("<syn-clo>");
  quote_gensym_91count = find_or_add_symbol("gensym-count");
  quote_lambda_91formals_91type_117 = find_or_add_symbol("lambda-formals-type:");
  quote_in = find_or_add_symbol("in");
  quote__list = find_or_add_symbol("list");
  quote_formals = find_or_add_symbol("formals");
  quote_Unexpected = find_or_add_symbol("Unexpected");
  quote_args_117fixed = find_or_add_symbol("args:fixed");
  quote_args_117fixed_91with_91varargs = find_or_add_symbol("args:fixed-with-varargs");
  quote_args_117varargs = find_or_add_symbol("args:varargs");
  quote_define_91c = find_or_add_symbol("define-c");
  quote_define = find_or_add_symbol("define");
  quote_set_67 = find_or_add_symbol("set!");
  quote_quote = find_or_add_symbol("quote");
  quote_lambda = find_or_add_symbol("lambda");
  quote_begin = find_or_add_symbol("begin");
  quote_letrec_91syntax = find_or_add_symbol("letrec-syntax");
  quote_let_91syntax = find_or_add_symbol("let-syntax");
  quote_define_91syntax = find_or_add_symbol("define-syntax");
  quote__if = find_or_add_symbol("if");

  add_global("__glo_lib_91init_117schemecycloneutil_scheme_cyclone_util", (object *) &__glo_lib_91init_117schemecycloneutil_scheme_cyclone_util);
  add_global("__glo_Cyc_91set_91immutable_67_scheme_cyclone_util", (object *) &__glo_Cyc_91set_91immutable_67_scheme_cyclone_util);
  add_global("__glo__191Cyc_91set_91immutable_67_scheme_cyclone_util", (object *) &__glo__191Cyc_91set_91immutable_67_scheme_cyclone_util);
  add_global("__glo_string_91split_scheme_cyclone_util", (object *) &__glo_string_91split_scheme_cyclone_util);
  add_global("__glo_string_91join_scheme_cyclone_util", (object *) &__glo_string_91join_scheme_cyclone_util);
  add_global("__glo__85c_91keywords_85_scheme_cyclone_util", (object *) &__glo__85c_91keywords_85_scheme_cyclone_util);
  add_global("__glo_mangle_91global_scheme_cyclone_util", (object *) &__glo_mangle_91global_scheme_cyclone_util);
  add_global("__glo_mangle_scheme_cyclone_util", (object *) &__glo_mangle_scheme_cyclone_util);
  add_global("__glo_Cyc_91er_91compare_127_scheme_cyclone_util", (object *) &__glo_Cyc_91er_91compare_127_scheme_cyclone_util);
  add_global("__glo_Cyc_91er_91rename_scheme_cyclone_util", (object *) &__glo_Cyc_91er_91rename_scheme_cyclone_util);
  add_global("__glo_identifier_123_127_scheme_cyclone_util", (object *) &__glo_identifier_123_127_scheme_cyclone_util);
  add_global("__glo_identifier_91_125symbol_scheme_cyclone_util", (object *) &__glo_identifier_91_125symbol_scheme_cyclone_util);
  add_global("__glo_identifier_127_scheme_cyclone_util", (object *) &__glo_identifier_127_scheme_cyclone_util);
  add_global("__glo_strip_91syntactic_91closures_scheme_cyclone_util", (object *) &__glo_strip_91syntactic_91closures_scheme_cyclone_util);
  add_global("__glo_make_91syntactic_91closure_scheme_cyclone_util", (object *) &__glo_make_91syntactic_91closure_scheme_cyclone_util);
  add_global("__glo_make_91sc_scheme_cyclone_util", (object *) &__glo_make_91sc_scheme_cyclone_util);
  add_global("__glo_sc_91expr_scheme_cyclone_util", (object *) &__glo_sc_91expr_scheme_cyclone_util);
  add_global("__glo_sc_91free_91names_scheme_cyclone_util", (object *) &__glo_sc_91free_91names_scheme_cyclone_util);
  add_global("__glo_sc_91env_scheme_cyclone_util", (object *) &__glo_sc_91env_scheme_cyclone_util);
  add_global("__glo_sc_127_scheme_cyclone_util", (object *) &__glo_sc_127_scheme_cyclone_util);
  add_global("__glo__121syn_91clo_125_scheme_cyclone_util", (object *) &__glo__121syn_91clo_125_scheme_cyclone_util);
  add_global("__glo_env_117define_91variable_67_scheme_cyclone_util", (object *) &__glo_env_117define_91variable_67_scheme_cyclone_util);
  add_global("__glo_env_117set_91variable_91value_67_scheme_cyclone_util", (object *) &__glo_env_117set_91variable_91value_67_scheme_cyclone_util);
  add_global("__glo_env_117lookup_scheme_cyclone_util", (object *) &__glo_env_117lookup_scheme_cyclone_util);
  add_global("__glo_env_117_191lookup_91variable_91value_scheme_cyclone_util", (object *) &__glo_env_117_191lookup_91variable_91value_scheme_cyclone_util);
  add_global("__glo_env_117lookup_91variable_91value_scheme_cyclone_util", (object *) &__glo_env_117lookup_91variable_91value_scheme_cyclone_util);
  add_global("__glo_env_117extend_91environment_scheme_cyclone_util", (object *) &__glo_env_117extend_91environment_scheme_cyclone_util);
  add_global("__glo_env_117all_91values_scheme_cyclone_util", (object *) &__glo_env_117all_91values_scheme_cyclone_util);
  add_global("__glo_env_117all_91variables_scheme_cyclone_util", (object *) &__glo_env_117all_91variables_scheme_cyclone_util);
  add_global("__glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util", (object *) &__glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util);
  add_global("__glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_env_117frame_91values_scheme_cyclone_util", (object *) &__glo_env_117frame_91values_scheme_cyclone_util);
  add_global("__glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_env_117frame_91variables_scheme_cyclone_util", (object *) &__glo_env_117frame_91variables_scheme_cyclone_util);
  add_global("__glo_env_117make_91frame_scheme_cyclone_util", (object *) &__glo_env_117make_91frame_scheme_cyclone_util);
  add_global("__glo_env_117the_91empty_91environment_scheme_cyclone_util", (object *) &__glo_env_117the_91empty_91environment_scheme_cyclone_util);
  add_global("__glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_env_117first_91frame_scheme_cyclone_util", (object *) &__glo_env_117first_91frame_scheme_cyclone_util);
  add_global("__glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_env_117enclosing_91environment_scheme_cyclone_util", (object *) &__glo_env_117enclosing_91environment_scheme_cyclone_util);
  add_global("__glo_gensym_scheme_cyclone_util", (object *) &__glo_gensym_scheme_cyclone_util);
  add_global("__glo_gensym_91count_scheme_cyclone_util", (object *) &__glo_gensym_91count_scheme_cyclone_util);
  add_global("__glo_list_91prefix_127_scheme_cyclone_util", (object *) &__glo_list_91prefix_127_scheme_cyclone_util);
  add_global("__glo_reverse_91append_scheme_cyclone_util", (object *) &__glo_reverse_91append_scheme_cyclone_util);
  add_global("__glo_string_91replace_91all_scheme_cyclone_util", (object *) &__glo_string_91replace_91all_scheme_cyclone_util);
  add_global("__glo_list_91index2_scheme_cyclone_util", (object *) &__glo_list_91index2_scheme_cyclone_util);
  add_global("__glo_list_91insert_91at_67_scheme_cyclone_util", (object *) &__glo_list_91insert_91at_67_scheme_cyclone_util);
  add_global("__glo_flatten_scheme_cyclone_util", (object *) &__glo_flatten_scheme_cyclone_util);
  add_global("__glo_delete_91duplicates_scheme_cyclone_util", (object *) &__glo_delete_91duplicates_scheme_cyclone_util);
  add_global("__glo_delete_scheme_cyclone_util", (object *) &__glo_delete_scheme_cyclone_util);
  add_global("__glo_filter_scheme_cyclone_util", (object *) &__glo_filter_scheme_cyclone_util);
  add_global("__glo_integer_91_125char_91list_scheme_cyclone_util", (object *) &__glo_integer_91_125char_91list_scheme_cyclone_util);
  add_global("__glo_char_91_125natural_scheme_cyclone_util", (object *) &__glo_char_91_125natural_scheme_cyclone_util);
  add_global("__glo_drop_scheme_cyclone_util", (object *) &__glo_drop_scheme_cyclone_util);
  add_global("__glo_take_scheme_cyclone_util", (object *) &__glo_take_scheme_cyclone_util);
  add_global("__glo_length_95obj_scheme_cyclone_util", (object *) &__glo_length_95obj_scheme_cyclone_util);
  add_global("__glo_pack_91lambda_91arguments_scheme_cyclone_util", (object *) &__glo_pack_91lambda_91arguments_scheme_cyclone_util);
  add_global("__glo_formals_91_125list_scheme_cyclone_util", (object *) &__glo_formals_91_125list_scheme_cyclone_util);
  add_global("__glo_lambda_91formals_91_125list_scheme_cyclone_util", (object *) &__glo_lambda_91formals_91_125list_scheme_cyclone_util);
  add_global("__glo_lambda_91formals_91type_scheme_cyclone_util", (object *) &__glo_lambda_91formals_91type_scheme_cyclone_util);
  add_global("__glo_lambda_91varargs_127_scheme_cyclone_util", (object *) &__glo_lambda_91varargs_127_scheme_cyclone_util);
  add_global("__glo_lambda_91varargs_91var_scheme_cyclone_util", (object *) &__glo_lambda_91varargs_91var_scheme_cyclone_util);
  add_global("__glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_lambda_91_125exp_scheme_cyclone_util", (object *) &__glo_lambda_91_125exp_scheme_cyclone_util);
  add_global("__glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_lambda_91_125formals_scheme_cyclone_util", (object *) &__glo_lambda_91_125formals_scheme_cyclone_util);
  add_global("__glo_pair_91_125list_scheme_cyclone_util", (object *) &__glo_pair_91_125list_scheme_cyclone_util);
  add_global("__glo_define_91c_91_125inline_91var_scheme_cyclone_util", (object *) &__glo_define_91c_91_125inline_91var_scheme_cyclone_util);
  add_global("__glo_define_91c_91inline_127_scheme_cyclone_util", (object *) &__glo_define_91c_91inline_127_scheme_cyclone_util);
  add_global("__glo_define_91c_127_scheme_cyclone_util", (object *) &__glo_define_91c_127_scheme_cyclone_util);
  add_global("__glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_define_91_125exp_scheme_cyclone_util", (object *) &__glo_define_91_125exp_scheme_cyclone_util);
  add_global("__glo_define_91_125var_scheme_cyclone_util", (object *) &__glo_define_91_125var_scheme_cyclone_util);
  add_global("__glo_define_91_125lambda_scheme_cyclone_util", (object *) &__glo_define_91_125lambda_scheme_cyclone_util);
  add_global("__glo_define_91lambda_127_scheme_cyclone_util", (object *) &__glo_define_91lambda_127_scheme_cyclone_util);
  add_global("__glo_define_127_scheme_cyclone_util", (object *) &__glo_define_127_scheme_cyclone_util);
  add_global("__glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_set_67_91_125exp_scheme_cyclone_util", (object *) &__glo_set_67_91_125exp_scheme_cyclone_util);
  add_global("__glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_set_67_91_125var_scheme_cyclone_util", (object *) &__glo_set_67_91_125var_scheme_cyclone_util);
  add_global("__glo_set_67_127_scheme_cyclone_util", (object *) &__glo_set_67_127_scheme_cyclone_util);
  add_global("__glo_quote_127_scheme_cyclone_util", (object *) &__glo_quote_127_scheme_cyclone_util);
  add_global("__glo_ref_127_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_ref_127_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_ref_127_scheme_cyclone_util", (object *) &__glo_ref_127_scheme_cyclone_util);
  add_global("__glo_const_127_scheme_cyclone_util", (object *) &__glo_const_127_scheme_cyclone_util);
  add_global("__glo_app_127_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_app_127_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_app_127_scheme_cyclone_util", (object *) &__glo_app_127_scheme_cyclone_util);
  add_global("__glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_if_91_125else_scheme_cyclone_util", (object *) &__glo_if_91_125else_scheme_cyclone_util);
  add_global("__glo_if_91else_127_scheme_cyclone_util", (object *) &__glo_if_91else_127_scheme_cyclone_util);
  add_global("__glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_if_91_125then_scheme_cyclone_util", (object *) &__glo_if_91_125then_scheme_cyclone_util);
  add_global("__glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_if_91_125condition_scheme_cyclone_util", (object *) &__glo_if_91_125condition_scheme_cyclone_util);
  add_global("__glo_lambda_127_scheme_cyclone_util", (object *) &__glo_lambda_127_scheme_cyclone_util);
  add_global("__glo_begin_127_scheme_cyclone_util", (object *) &__glo_begin_127_scheme_cyclone_util);
  add_global("__glo_letrec_91syntax_127_scheme_cyclone_util", (object *) &__glo_letrec_91syntax_127_scheme_cyclone_util);
  add_global("__glo_let_91syntax_127_scheme_cyclone_util", (object *) &__glo_let_91syntax_127_scheme_cyclone_util);
  add_global("__glo_define_91syntax_127_scheme_cyclone_util", (object *) &__glo_define_91syntax_127_scheme_cyclone_util);
  add_global("__glo_if_91syntax_127_scheme_cyclone_util", (object *) &__glo_if_91syntax_127_scheme_cyclone_util);
  add_global("__glo_if_127_scheme_cyclone_util", (object *) &__glo_if_127_scheme_cyclone_util);
  add_global("__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util", (object *) &__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util);
  add_global("__glo_tagged_91list_127_scheme_cyclone_util", (object *) &__glo_tagged_91list_127_scheme_cyclone_util);
  add_global("__glo_current_91expand_91filepath_scheme_cyclone_util", (object *) &__glo_current_91expand_91filepath_scheme_cyclone_util);
  mclosure0(c_733931, (function_type)__lambda_292);c_733931.num_args = 0; 
  __glo_lib_91init_117schemecycloneutil_scheme_cyclone_util = &c_733931; 
  mclosure0(c_733893, (function_type)__lambda_286);c_733893.num_args = 2; 
  __glo_Cyc_91set_91immutable_67_scheme_cyclone_util = &c_733893; 
  mclosure0(c_733892, (function_type)__lambda_342);c_733892.num_args = 2; 
  __glo__191Cyc_91set_91immutable_67_scheme_cyclone_util = &c_733892; 
  mclosure0(c_733790, (function_type)__lambda_273);c_733790.num_args = 2; 
  __glo_string_91split_scheme_cyclone_util = &c_733790; 
  mclosure0(c_733746, (function_type)__lambda_269);c_733746.num_args = 2; 
  __glo_string_91join_scheme_cyclone_util = &c_733746; 
  mclosure0(c_733736, (function_type)__lambda_267);c_733736.num_args = 1; 
  __glo_mangle_91global_scheme_cyclone_util = &c_733736; 
  mclosure0(c_733571, (function_type)__lambda_245);c_733571.num_args = 1; 
  __glo_mangle_scheme_cyclone_util = &c_733571; 
  mclosure0(c_733485, (function_type)__lambda_233);c_733485.num_args = 2; 
  __glo_Cyc_91er_91compare_127_scheme_cyclone_util = &c_733485; 
  mclosure0(c_733349, (function_type)__lambda_215);c_733349.num_args = 3; 
  __glo_Cyc_91er_91rename_scheme_cyclone_util = &c_733349; 
  mclosure0(c_733325, (function_type)__lambda_209);c_733325.num_args = 4; 
  __glo_identifier_123_127_scheme_cyclone_util = &c_733325; 
  mclosure0(c_733308, (function_type)__lambda_207);c_733308.num_args = 1; 
  __glo_identifier_91_125symbol_scheme_cyclone_util = &c_733308; 
  mclosure0(c_733301, (function_type)__lambda_206);c_733301.num_args = 1; 
  __glo_identifier_127_scheme_cyclone_util = &c_733301; 
  mclosure0(c_733299, (function_type)__lambda_205);c_733299.num_args = 1; 
  __glo_strip_91syntactic_91closures_scheme_cyclone_util = &c_733299; 
  mclosure0(c_733297, (function_type)__lambda_204);c_733297.num_args = 3; 
  __glo_make_91syntactic_91closure_scheme_cyclone_util = &c_733297; 
  mclosure0(c_733286, (function_type)__lambda_203);c_733286.num_args = 3; 
  __glo_make_91sc_scheme_cyclone_util = &c_733286; 
  mclosure0(c_733219, (function_type)__lambda_197);c_733219.num_args = 3; 
  __glo_env_117define_91variable_67_scheme_cyclone_util = &c_733219; 
  mclosure0(c_733098, (function_type)__lambda_185);c_733098.num_args = 3; 
  __glo_env_117set_91variable_91value_67_scheme_cyclone_util = &c_733098; 
  mclosure0(c_733086, (function_type)__lambda_182);c_733086.num_args = 3; 
  __glo_env_117lookup_scheme_cyclone_util = &c_733086; 
  mclosure0(c_732991, (function_type)__lambda_173);c_732991.num_args = 3; 
  __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util = &c_732991; 
  mclosure0(c_732978, (function_type)__lambda_170);c_732978.num_args = 2; 
  __glo_env_117lookup_91variable_91value_scheme_cyclone_util = &c_732978; 
  mclosure0(c_732927, (function_type)__lambda_165);c_732927.num_args = 3; 
  __glo_env_117extend_91environment_scheme_cyclone_util = &c_732927; 
  mclosure0(c_732921, (function_type)__lambda_164);c_732921.num_args = 1; 
  __glo_env_117all_91values_scheme_cyclone_util = &c_732921; 
  mclosure0(c_732915, (function_type)__lambda_163);c_732915.num_args = 1; 
  __glo_env_117all_91variables_scheme_cyclone_util = &c_732915; 
  mclosure0(c_732882, (function_type)__lambda_159);c_732882.num_args = 3; 
  __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util = &c_732882; 
  mclosure0(c_732878, (function_type)__lambda_341);c_732878.num_args = 1; 
  __glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util = &c_732878; 
  mclosure0(c_732874, (function_type)__lambda_158);c_732874.num_args = 1; 
  __glo_env_117frame_91values_scheme_cyclone_util = &c_732874; 
  mclosure0(c_732870, (function_type)__lambda_340);c_732870.num_args = 1; 
  __glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util = &c_732870; 
  mclosure0(c_732866, (function_type)__lambda_157);c_732866.num_args = 1; 
  __glo_env_117frame_91variables_scheme_cyclone_util = &c_732866; 
  mclosure0(c_732861, (function_type)__lambda_156);c_732861.num_args = 2; 
  __glo_env_117make_91frame_scheme_cyclone_util = &c_732861; 
  mclosure0(c_732857, (function_type)__lambda_339);c_732857.num_args = 1; 
  __glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util = &c_732857; 
  mclosure0(c_732853, (function_type)__lambda_155);c_732853.num_args = 1; 
  __glo_env_117first_91frame_scheme_cyclone_util = &c_732853; 
  mclosure0(c_732849, (function_type)__lambda_338);c_732849.num_args = 1; 
  __glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util = &c_732849; 
  mclosure0(c_732845, (function_type)__lambda_154);c_732845.num_args = 1; 
  __glo_env_117enclosing_91environment_scheme_cyclone_util = &c_732845; 
  mclosure0(c_732762, (function_type)__lambda_143);c_732762.num_args = 0; 
  __glo_gensym_scheme_cyclone_util = &c_732762; 
  mclosure0(c_732736, (function_type)__lambda_137);c_732736.num_args = 2; 
  __glo_list_91prefix_127_scheme_cyclone_util = &c_732736; 
  mclosure0(c_732729, (function_type)__lambda_135);c_732729.num_args = 2; 
  __glo_reverse_91append_scheme_cyclone_util = &c_732729; 
  mclosure0(c_732634, (function_type)__lambda_121);c_732634.num_args = 3; 
  __glo_string_91replace_91all_scheme_cyclone_util = &c_732634; 
  mclosure0(c_732604, (function_type)__lambda_118);c_732604.num_args = 2; 
  __glo_list_91index2_scheme_cyclone_util = &c_732604; 
  mclosure0(c_732523, (function_type)__lambda_110);c_732523.num_args = 3; 
  __glo_list_91insert_91at_67_scheme_cyclone_util = &c_732523; 
  mclosure0(c_732499, (function_type)__lambda_107);c_732499.num_args = 1; 
  __glo_flatten_scheme_cyclone_util = &c_732499; 
  mclosure0(c_732440, (function_type)__lambda_100);c_732440.num_args = 1; 
  __glo_delete_91duplicates_scheme_cyclone_util = &c_732440; 
  mclosure0(c_732424, (function_type)__lambda_97);c_732424.num_args = 2; 
  __glo_delete_scheme_cyclone_util = &c_732424; 
  mclosure0(c_732358, (function_type)__lambda_89);c_732358.num_args = 2; 
  __glo_filter_scheme_cyclone_util = &c_732358; 
  mclosure0(c_732349, (function_type)__lambda_87);c_732349.num_args = 1; 
  __glo_integer_91_125char_91list_scheme_cyclone_util = &c_732349; 
  mclosure0(c_732329, (function_type)__lambda_86);c_732329.num_args = 1; 
  __glo_char_91_125natural_scheme_cyclone_util = &c_732329; 
  mclosure0(c_732285, (function_type)__lambda_80);c_732285.num_args = 2; 
  __glo_drop_scheme_cyclone_util = &c_732285; 
  mclosure0(c_732231, (function_type)__lambda_73);c_732231.num_args = 2; 
  __glo_take_scheme_cyclone_util = &c_732231; 
  mclosure0(c_732189, (function_type)__lambda_67);c_732189.num_args = 1; 
  __glo_length_95obj_scheme_cyclone_util = &c_732189; 
  mclosure0(c_732126, (function_type)__lambda_57);c_732126.num_args = 2; 
  __glo_pack_91lambda_91arguments_scheme_cyclone_util = &c_732126; 
  mclosure0(c_732107, (function_type)__lambda_55);c_732107.num_args = 1; 
  __glo_formals_91_125list_scheme_cyclone_util = &c_732107; 
  mclosure0(c_732080, (function_type)__lambda_53);c_732080.num_args = 1; 
  __glo_lambda_91formals_91_125list_scheme_cyclone_util = &c_732080; 
  mclosure0(c_732042, (function_type)__lambda_52);c_732042.num_args = 1; 
  __glo_lambda_91formals_91type_scheme_cyclone_util = &c_732042; 
  mclosure0(c_732028, (function_type)__lambda_50);c_732028.num_args = 1; 
  __glo_lambda_91varargs_127_scheme_cyclone_util = &c_732028; 
  mclosure0(c_732000, (function_type)__lambda_45);c_732000.num_args = 1; 
  __glo_lambda_91varargs_91var_scheme_cyclone_util = &c_732000; 
  mclosure0(c_731996, (function_type)__lambda_337);c_731996.num_args = 1; 
  __glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util = &c_731996; 
  mclosure0(c_731992, (function_type)__lambda_44);c_731992.num_args = 1; 
  __glo_lambda_91_125exp_scheme_cyclone_util = &c_731992; 
  mclosure0(c_731988, (function_type)__lambda_336);c_731988.num_args = 1; 
  __glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util = &c_731988; 
  mclosure0(c_731984, (function_type)__lambda_43);c_731984.num_args = 1; 
  __glo_lambda_91_125formals_scheme_cyclone_util = &c_731984; 
  mclosure0(c_731932, (function_type)__lambda_36);c_731932.num_args = 1; 
  __glo_pair_91_125list_scheme_cyclone_util = &c_731932; 
  mclosure0(c_731911, (function_type)__lambda_32);c_731911.num_args = 1; 
  __glo_define_91c_91_125inline_91var_scheme_cyclone_util = &c_731911; 
  mclosure0(c_731898, (function_type)__lambda_30);c_731898.num_args = 1; 
  __glo_define_91c_91inline_127_scheme_cyclone_util = &c_731898; 
  mclosure0(c_731896, (function_type)__lambda_29);c_731896.num_args = 1; 
  __glo_define_91c_127_scheme_cyclone_util = &c_731896; 
  mclosure0(c_731892, (function_type)__lambda_335);c_731892.num_args = 1; 
  __glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util = &c_731892; 
  mclosure0(c_731888, (function_type)__lambda_28);c_731888.num_args = 1; 
  __glo_define_91_125exp_scheme_cyclone_util = &c_731888; 
  mclosure0(c_731874, (function_type)__lambda_26);c_731874.num_args = 1; 
  __glo_define_91_125var_scheme_cyclone_util = &c_731874; 
  mclosure0(c_731841, (function_type)__lambda_24);c_731841.num_args = 1; 
  __glo_define_91_125lambda_scheme_cyclone_util = &c_731841; 
  mclosure0(c_731806, (function_type)__lambda_23);c_731806.num_args = 1; 
  __glo_define_91lambda_127_scheme_cyclone_util = &c_731806; 
  mclosure0(c_731804, (function_type)__lambda_22);c_731804.num_args = 1; 
  __glo_define_127_scheme_cyclone_util = &c_731804; 
  mclosure0(c_731800, (function_type)__lambda_334);c_731800.num_args = 1; 
  __glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util = &c_731800; 
  mclosure0(c_731796, (function_type)__lambda_21);c_731796.num_args = 1; 
  __glo_set_67_91_125exp_scheme_cyclone_util = &c_731796; 
  mclosure0(c_731792, (function_type)__lambda_333);c_731792.num_args = 1; 
  __glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util = &c_731792; 
  mclosure0(c_731788, (function_type)__lambda_20);c_731788.num_args = 1; 
  __glo_set_67_91_125var_scheme_cyclone_util = &c_731788; 
  mclosure0(c_731786, (function_type)__lambda_19);c_731786.num_args = 1; 
  __glo_set_67_127_scheme_cyclone_util = &c_731786; 
  mclosure0(c_731784, (function_type)__lambda_18);c_731784.num_args = 1; 
  __glo_quote_127_scheme_cyclone_util = &c_731784; 
  mclosure0(c_731780, (function_type)__lambda_332);c_731780.num_args = 1; 
  __glo_ref_127_191_191inline_191_191_scheme_cyclone_util = &c_731780; 
  mclosure0(c_731776, (function_type)__lambda_17);c_731776.num_args = 1; 
  __glo_ref_127_scheme_cyclone_util = &c_731776; 
  mclosure0(c_731724, (function_type)__lambda_16);c_731724.num_args = 1; 
  __glo_const_127_scheme_cyclone_util = &c_731724; 
  mclosure0(c_731720, (function_type)__lambda_331);c_731720.num_args = 1; 
  __glo_app_127_191_191inline_191_191_scheme_cyclone_util = &c_731720; 
  mclosure0(c_731716, (function_type)__lambda_15);c_731716.num_args = 1; 
  __glo_app_127_scheme_cyclone_util = &c_731716; 
  mclosure0(c_731712, (function_type)__lambda_330);c_731712.num_args = 1; 
  __glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util = &c_731712; 
  mclosure0(c_731708, (function_type)__lambda_14);c_731708.num_args = 1; 
  __glo_if_91_125else_scheme_cyclone_util = &c_731708; 
  mclosure0(c_731695, (function_type)__lambda_12);c_731695.num_args = 1; 
  __glo_if_91else_127_scheme_cyclone_util = &c_731695; 
  mclosure0(c_731691, (function_type)__lambda_329);c_731691.num_args = 1; 
  __glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util = &c_731691; 
  mclosure0(c_731687, (function_type)__lambda_11);c_731687.num_args = 1; 
  __glo_if_91_125then_scheme_cyclone_util = &c_731687; 
  mclosure0(c_731683, (function_type)__lambda_328);c_731683.num_args = 1; 
  __glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util = &c_731683; 
  mclosure0(c_731679, (function_type)__lambda_10);c_731679.num_args = 1; 
  __glo_if_91_125condition_scheme_cyclone_util = &c_731679; 
  mclosure0(c_731677, (function_type)__lambda_9);c_731677.num_args = 1; 
  __glo_lambda_127_scheme_cyclone_util = &c_731677; 
  mclosure0(c_731675, (function_type)__lambda_8);c_731675.num_args = 1; 
  __glo_begin_127_scheme_cyclone_util = &c_731675; 
  mclosure0(c_731673, (function_type)__lambda_7);c_731673.num_args = 1; 
  __glo_letrec_91syntax_127_scheme_cyclone_util = &c_731673; 
  mclosure0(c_731671, (function_type)__lambda_6);c_731671.num_args = 1; 
  __glo_let_91syntax_127_scheme_cyclone_util = &c_731671; 
  mclosure0(c_731669, (function_type)__lambda_5);c_731669.num_args = 1; 
  __glo_define_91syntax_127_scheme_cyclone_util = &c_731669; 
  mclosure0(c_731644, (function_type)__lambda_3);c_731644.num_args = 1; 
  __glo_if_91syntax_127_scheme_cyclone_util = &c_731644; 
  mclosure0(c_731642, (function_type)__lambda_2);c_731642.num_args = 1; 
  __glo_if_127_scheme_cyclone_util = &c_731642; 
  mclosure0(c_731633, (function_type)__lambda_327);c_731633.num_args = 2; 
  __glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util = &c_731633; 
  mclosure0(c_731624, (function_type)__lambda_1);c_731624.num_args = 2; 
  __glo_tagged_91list_127_scheme_cyclone_util = &c_731624; 
  __glo__85c_91keywords_85_scheme_cyclone_util = boolean_f; 
  __glo_sc_91expr_scheme_cyclone_util = boolean_f; 
  __glo_sc_91free_91names_scheme_cyclone_util = boolean_f; 
  __glo_sc_91env_scheme_cyclone_util = boolean_f; 
  __glo_sc_127_scheme_cyclone_util = boolean_f; 
  __glo__121syn_91clo_125_scheme_cyclone_util = boolean_f; 
  __glo_env_117the_91empty_91environment_scheme_cyclone_util = boolean_f; 
  __glo_gensym_91count_scheme_cyclone_util = obj_int2obj(0); 
  __glo_current_91expand_91filepath_scheme_cyclone_util = boolean_f; 

  mclosure0(clo_734081, c_schemecycloneutil_inlinable_lambdas); make_pair(pair_734080, find_or_add_symbol("c_schemecycloneutil_inlinable_lambdas"), &clo_734081);
  make_cvar(cvar_734082, (object *)&__glo_lib_91init_117schemecycloneutil_scheme_cyclone_util);make_pair(pair_734083, find_or_add_symbol("lib-init:schemecycloneutil"), &cvar_734082);
  make_cvar(cvar_734084, (object *)&__glo_Cyc_91set_91immutable_67_scheme_cyclone_util);make_pair(pair_734085, find_or_add_symbol("Cyc-set-immutable!"), &cvar_734084);
  make_cvar(cvar_734086, (object *)&__glo__191Cyc_91set_91immutable_67_scheme_cyclone_util);make_pair(pair_734087, find_or_add_symbol("_Cyc-set-immutable!"), &cvar_734086);
  make_cvar(cvar_734088, (object *)&__glo_string_91split_scheme_cyclone_util);make_pair(pair_734089, find_or_add_symbol("string-split"), &cvar_734088);
  make_cvar(cvar_734090, (object *)&__glo_string_91join_scheme_cyclone_util);make_pair(pair_734091, find_or_add_symbol("string-join"), &cvar_734090);
  make_cvar(cvar_734092, (object *)&__glo__85c_91keywords_85_scheme_cyclone_util);make_pair(pair_734093, find_or_add_symbol("*c-keywords*"), &cvar_734092);
  make_cvar(cvar_734094, (object *)&__glo_mangle_91global_scheme_cyclone_util);make_pair(pair_734095, find_or_add_symbol("mangle-global"), &cvar_734094);
  make_cvar(cvar_734096, (object *)&__glo_mangle_scheme_cyclone_util);make_pair(pair_734097, find_or_add_symbol("mangle"), &cvar_734096);
  make_cvar(cvar_734098, (object *)&__glo_Cyc_91er_91compare_127_scheme_cyclone_util);make_pair(pair_734099, find_or_add_symbol("Cyc-er-compare?"), &cvar_734098);
  make_cvar(cvar_734100, (object *)&__glo_Cyc_91er_91rename_scheme_cyclone_util);make_pair(pair_734101, find_or_add_symbol("Cyc-er-rename"), &cvar_734100);
  make_cvar(cvar_734102, (object *)&__glo_identifier_123_127_scheme_cyclone_util);make_pair(pair_734103, find_or_add_symbol("identifier=?"), &cvar_734102);
  make_cvar(cvar_734104, (object *)&__glo_identifier_91_125symbol_scheme_cyclone_util);make_pair(pair_734105, find_or_add_symbol("identifier->symbol"), &cvar_734104);
  make_cvar(cvar_734106, (object *)&__glo_identifier_127_scheme_cyclone_util);make_pair(pair_734107, find_or_add_symbol("identifier?"), &cvar_734106);
  make_cvar(cvar_734108, (object *)&__glo_strip_91syntactic_91closures_scheme_cyclone_util);make_pair(pair_734109, find_or_add_symbol("strip-syntactic-closures"), &cvar_734108);
  make_cvar(cvar_734110, (object *)&__glo_make_91syntactic_91closure_scheme_cyclone_util);make_pair(pair_734111, find_or_add_symbol("make-syntactic-closure"), &cvar_734110);
  make_cvar(cvar_734112, (object *)&__glo_make_91sc_scheme_cyclone_util);make_pair(pair_734113, find_or_add_symbol("make-sc"), &cvar_734112);
  make_cvar(cvar_734114, (object *)&__glo_sc_91expr_scheme_cyclone_util);make_pair(pair_734115, find_or_add_symbol("sc-expr"), &cvar_734114);
  make_cvar(cvar_734116, (object *)&__glo_sc_91free_91names_scheme_cyclone_util);make_pair(pair_734117, find_or_add_symbol("sc-free-names"), &cvar_734116);
  make_cvar(cvar_734118, (object *)&__glo_sc_91env_scheme_cyclone_util);make_pair(pair_734119, find_or_add_symbol("sc-env"), &cvar_734118);
  make_cvar(cvar_734120, (object *)&__glo_sc_127_scheme_cyclone_util);make_pair(pair_734121, find_or_add_symbol("sc?"), &cvar_734120);
  make_cvar(cvar_734122, (object *)&__glo__121syn_91clo_125_scheme_cyclone_util);make_pair(pair_734123, find_or_add_symbol("<syn-clo>"), &cvar_734122);
  make_cvar(cvar_734124, (object *)&__glo_env_117define_91variable_67_scheme_cyclone_util);make_pair(pair_734125, find_or_add_symbol("env:define-variable!"), &cvar_734124);
  make_cvar(cvar_734126, (object *)&__glo_env_117set_91variable_91value_67_scheme_cyclone_util);make_pair(pair_734127, find_or_add_symbol("env:set-variable-value!"), &cvar_734126);
  make_cvar(cvar_734128, (object *)&__glo_env_117lookup_scheme_cyclone_util);make_pair(pair_734129, find_or_add_symbol("env:lookup"), &cvar_734128);
  make_cvar(cvar_734130, (object *)&__glo_env_117_191lookup_91variable_91value_scheme_cyclone_util);make_pair(pair_734131, find_or_add_symbol("env:_lookup-variable-value"), &cvar_734130);
  make_cvar(cvar_734132, (object *)&__glo_env_117lookup_91variable_91value_scheme_cyclone_util);make_pair(pair_734133, find_or_add_symbol("env:lookup-variable-value"), &cvar_734132);
  make_cvar(cvar_734134, (object *)&__glo_env_117extend_91environment_scheme_cyclone_util);make_pair(pair_734135, find_or_add_symbol("env:extend-environment"), &cvar_734134);
  make_cvar(cvar_734136, (object *)&__glo_env_117all_91values_scheme_cyclone_util);make_pair(pair_734137, find_or_add_symbol("env:all-values"), &cvar_734136);
  make_cvar(cvar_734138, (object *)&__glo_env_117all_91variables_scheme_cyclone_util);make_pair(pair_734139, find_or_add_symbol("env:all-variables"), &cvar_734138);
  make_cvar(cvar_734140, (object *)&__glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util);make_pair(pair_734141, find_or_add_symbol("env:add-binding-to-frame!"), &cvar_734140);
  make_cvar(cvar_734142, (object *)&__glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734143, find_or_add_symbol("env:frame-values__inline__"), &cvar_734142);
  make_cvar(cvar_734144, (object *)&__glo_env_117frame_91values_scheme_cyclone_util);make_pair(pair_734145, find_or_add_symbol("env:frame-values"), &cvar_734144);
  make_cvar(cvar_734146, (object *)&__glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734147, find_or_add_symbol("env:frame-variables__inline__"), &cvar_734146);
  make_cvar(cvar_734148, (object *)&__glo_env_117frame_91variables_scheme_cyclone_util);make_pair(pair_734149, find_or_add_symbol("env:frame-variables"), &cvar_734148);
  make_cvar(cvar_734150, (object *)&__glo_env_117make_91frame_scheme_cyclone_util);make_pair(pair_734151, find_or_add_symbol("env:make-frame"), &cvar_734150);
  make_cvar(cvar_734152, (object *)&__glo_env_117the_91empty_91environment_scheme_cyclone_util);make_pair(pair_734153, find_or_add_symbol("env:the-empty-environment"), &cvar_734152);
  make_cvar(cvar_734154, (object *)&__glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734155, find_or_add_symbol("env:first-frame__inline__"), &cvar_734154);
  make_cvar(cvar_734156, (object *)&__glo_env_117first_91frame_scheme_cyclone_util);make_pair(pair_734157, find_or_add_symbol("env:first-frame"), &cvar_734156);
  make_cvar(cvar_734158, (object *)&__glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734159, find_or_add_symbol("env:enclosing-environment__inline__"), &cvar_734158);
  make_cvar(cvar_734160, (object *)&__glo_env_117enclosing_91environment_scheme_cyclone_util);make_pair(pair_734161, find_or_add_symbol("env:enclosing-environment"), &cvar_734160);
  make_cvar(cvar_734162, (object *)&__glo_gensym_scheme_cyclone_util);make_pair(pair_734163, find_or_add_symbol("gensym"), &cvar_734162);
  make_cvar(cvar_734164, (object *)&__glo_gensym_91count_scheme_cyclone_util);make_pair(pair_734165, find_or_add_symbol("gensym-count"), &cvar_734164);
  make_cvar(cvar_734166, (object *)&__glo_list_91prefix_127_scheme_cyclone_util);make_pair(pair_734167, find_or_add_symbol("list-prefix?"), &cvar_734166);
  make_cvar(cvar_734168, (object *)&__glo_reverse_91append_scheme_cyclone_util);make_pair(pair_734169, find_or_add_symbol("reverse-append"), &cvar_734168);
  make_cvar(cvar_734170, (object *)&__glo_string_91replace_91all_scheme_cyclone_util);make_pair(pair_734171, find_or_add_symbol("string-replace-all"), &cvar_734170);
  make_cvar(cvar_734172, (object *)&__glo_list_91index2_scheme_cyclone_util);make_pair(pair_734173, find_or_add_symbol("list-index2"), &cvar_734172);
  make_cvar(cvar_734174, (object *)&__glo_list_91insert_91at_67_scheme_cyclone_util);make_pair(pair_734175, find_or_add_symbol("list-insert-at!"), &cvar_734174);
  make_cvar(cvar_734176, (object *)&__glo_flatten_scheme_cyclone_util);make_pair(pair_734177, find_or_add_symbol("flatten"), &cvar_734176);
  make_cvar(cvar_734178, (object *)&__glo_delete_91duplicates_scheme_cyclone_util);make_pair(pair_734179, find_or_add_symbol("delete-duplicates"), &cvar_734178);
  make_cvar(cvar_734180, (object *)&__glo_delete_scheme_cyclone_util);make_pair(pair_734181, find_or_add_symbol("delete"), &cvar_734180);
  make_cvar(cvar_734182, (object *)&__glo_filter_scheme_cyclone_util);make_pair(pair_734183, find_or_add_symbol("filter"), &cvar_734182);
  make_cvar(cvar_734184, (object *)&__glo_integer_91_125char_91list_scheme_cyclone_util);make_pair(pair_734185, find_or_add_symbol("integer->char-list"), &cvar_734184);
  make_cvar(cvar_734186, (object *)&__glo_char_91_125natural_scheme_cyclone_util);make_pair(pair_734187, find_or_add_symbol("char->natural"), &cvar_734186);
  make_cvar(cvar_734188, (object *)&__glo_drop_scheme_cyclone_util);make_pair(pair_734189, find_or_add_symbol("drop"), &cvar_734188);
  make_cvar(cvar_734190, (object *)&__glo_take_scheme_cyclone_util);make_pair(pair_734191, find_or_add_symbol("take"), &cvar_734190);
  make_cvar(cvar_734192, (object *)&__glo_length_95obj_scheme_cyclone_util);make_pair(pair_734193, find_or_add_symbol("length/obj"), &cvar_734192);
  make_cvar(cvar_734194, (object *)&__glo_pack_91lambda_91arguments_scheme_cyclone_util);make_pair(pair_734195, find_or_add_symbol("pack-lambda-arguments"), &cvar_734194);
  make_cvar(cvar_734196, (object *)&__glo_formals_91_125list_scheme_cyclone_util);make_pair(pair_734197, find_or_add_symbol("formals->list"), &cvar_734196);
  make_cvar(cvar_734198, (object *)&__glo_lambda_91formals_91_125list_scheme_cyclone_util);make_pair(pair_734199, find_or_add_symbol("lambda-formals->list"), &cvar_734198);
  make_cvar(cvar_734200, (object *)&__glo_lambda_91formals_91type_scheme_cyclone_util);make_pair(pair_734201, find_or_add_symbol("lambda-formals-type"), &cvar_734200);
  make_cvar(cvar_734202, (object *)&__glo_lambda_91varargs_127_scheme_cyclone_util);make_pair(pair_734203, find_or_add_symbol("lambda-varargs?"), &cvar_734202);
  make_cvar(cvar_734204, (object *)&__glo_lambda_91varargs_91var_scheme_cyclone_util);make_pair(pair_734205, find_or_add_symbol("lambda-varargs-var"), &cvar_734204);
  make_cvar(cvar_734206, (object *)&__glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734207, find_or_add_symbol("lambda->exp__inline__"), &cvar_734206);
  make_cvar(cvar_734208, (object *)&__glo_lambda_91_125exp_scheme_cyclone_util);make_pair(pair_734209, find_or_add_symbol("lambda->exp"), &cvar_734208);
  make_cvar(cvar_734210, (object *)&__glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734211, find_or_add_symbol("lambda->formals__inline__"), &cvar_734210);
  make_cvar(cvar_734212, (object *)&__glo_lambda_91_125formals_scheme_cyclone_util);make_pair(pair_734213, find_or_add_symbol("lambda->formals"), &cvar_734212);
  make_cvar(cvar_734214, (object *)&__glo_pair_91_125list_scheme_cyclone_util);make_pair(pair_734215, find_or_add_symbol("pair->list"), &cvar_734214);
  make_cvar(cvar_734216, (object *)&__glo_define_91c_91_125inline_91var_scheme_cyclone_util);make_pair(pair_734217, find_or_add_symbol("define-c->inline-var"), &cvar_734216);
  make_cvar(cvar_734218, (object *)&__glo_define_91c_91inline_127_scheme_cyclone_util);make_pair(pair_734219, find_or_add_symbol("define-c-inline?"), &cvar_734218);
  make_cvar(cvar_734220, (object *)&__glo_define_91c_127_scheme_cyclone_util);make_pair(pair_734221, find_or_add_symbol("define-c?"), &cvar_734220);
  make_cvar(cvar_734222, (object *)&__glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734223, find_or_add_symbol("define->exp__inline__"), &cvar_734222);
  make_cvar(cvar_734224, (object *)&__glo_define_91_125exp_scheme_cyclone_util);make_pair(pair_734225, find_or_add_symbol("define->exp"), &cvar_734224);
  make_cvar(cvar_734226, (object *)&__glo_define_91_125var_scheme_cyclone_util);make_pair(pair_734227, find_or_add_symbol("define->var"), &cvar_734226);
  make_cvar(cvar_734228, (object *)&__glo_define_91_125lambda_scheme_cyclone_util);make_pair(pair_734229, find_or_add_symbol("define->lambda"), &cvar_734228);
  make_cvar(cvar_734230, (object *)&__glo_define_91lambda_127_scheme_cyclone_util);make_pair(pair_734231, find_or_add_symbol("define-lambda?"), &cvar_734230);
  make_cvar(cvar_734232, (object *)&__glo_define_127_scheme_cyclone_util);make_pair(pair_734233, find_or_add_symbol("define?"), &cvar_734232);
  make_cvar(cvar_734234, (object *)&__glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734235, find_or_add_symbol("set!->exp__inline__"), &cvar_734234);
  make_cvar(cvar_734236, (object *)&__glo_set_67_91_125exp_scheme_cyclone_util);make_pair(pair_734237, find_or_add_symbol("set!->exp"), &cvar_734236);
  make_cvar(cvar_734238, (object *)&__glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734239, find_or_add_symbol("set!->var__inline__"), &cvar_734238);
  make_cvar(cvar_734240, (object *)&__glo_set_67_91_125var_scheme_cyclone_util);make_pair(pair_734241, find_or_add_symbol("set!->var"), &cvar_734240);
  make_cvar(cvar_734242, (object *)&__glo_set_67_127_scheme_cyclone_util);make_pair(pair_734243, find_or_add_symbol("set!?"), &cvar_734242);
  make_cvar(cvar_734244, (object *)&__glo_quote_127_scheme_cyclone_util);make_pair(pair_734245, find_or_add_symbol("quote?"), &cvar_734244);
  make_cvar(cvar_734246, (object *)&__glo_ref_127_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734247, find_or_add_symbol("ref?__inline__"), &cvar_734246);
  make_cvar(cvar_734248, (object *)&__glo_ref_127_scheme_cyclone_util);make_pair(pair_734249, find_or_add_symbol("ref?"), &cvar_734248);
  make_cvar(cvar_734250, (object *)&__glo_const_127_scheme_cyclone_util);make_pair(pair_734251, find_or_add_symbol("const?"), &cvar_734250);
  make_cvar(cvar_734252, (object *)&__glo_app_127_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734253, find_or_add_symbol("app?__inline__"), &cvar_734252);
  make_cvar(cvar_734254, (object *)&__glo_app_127_scheme_cyclone_util);make_pair(pair_734255, find_or_add_symbol("app?"), &cvar_734254);
  make_cvar(cvar_734256, (object *)&__glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734257, find_or_add_symbol("if->else__inline__"), &cvar_734256);
  make_cvar(cvar_734258, (object *)&__glo_if_91_125else_scheme_cyclone_util);make_pair(pair_734259, find_or_add_symbol("if->else"), &cvar_734258);
  make_cvar(cvar_734260, (object *)&__glo_if_91else_127_scheme_cyclone_util);make_pair(pair_734261, find_or_add_symbol("if-else?"), &cvar_734260);
  make_cvar(cvar_734262, (object *)&__glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734263, find_or_add_symbol("if->then__inline__"), &cvar_734262);
  make_cvar(cvar_734264, (object *)&__glo_if_91_125then_scheme_cyclone_util);make_pair(pair_734265, find_or_add_symbol("if->then"), &cvar_734264);
  make_cvar(cvar_734266, (object *)&__glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734267, find_or_add_symbol("if->condition__inline__"), &cvar_734266);
  make_cvar(cvar_734268, (object *)&__glo_if_91_125condition_scheme_cyclone_util);make_pair(pair_734269, find_or_add_symbol("if->condition"), &cvar_734268);
  make_cvar(cvar_734270, (object *)&__glo_lambda_127_scheme_cyclone_util);make_pair(pair_734271, find_or_add_symbol("lambda?"), &cvar_734270);
  make_cvar(cvar_734272, (object *)&__glo_begin_127_scheme_cyclone_util);make_pair(pair_734273, find_or_add_symbol("begin?"), &cvar_734272);
  make_cvar(cvar_734274, (object *)&__glo_letrec_91syntax_127_scheme_cyclone_util);make_pair(pair_734275, find_or_add_symbol("letrec-syntax?"), &cvar_734274);
  make_cvar(cvar_734276, (object *)&__glo_let_91syntax_127_scheme_cyclone_util);make_pair(pair_734277, find_or_add_symbol("let-syntax?"), &cvar_734276);
  make_cvar(cvar_734278, (object *)&__glo_define_91syntax_127_scheme_cyclone_util);make_pair(pair_734279, find_or_add_symbol("define-syntax?"), &cvar_734278);
  make_cvar(cvar_734280, (object *)&__glo_if_91syntax_127_scheme_cyclone_util);make_pair(pair_734281, find_or_add_symbol("if-syntax?"), &cvar_734280);
  make_cvar(cvar_734282, (object *)&__glo_if_127_scheme_cyclone_util);make_pair(pair_734283, find_or_add_symbol("if?"), &cvar_734282);
  make_cvar(cvar_734284, (object *)&__glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util);make_pair(pair_734285, find_or_add_symbol("tagged-list?__inline__"), &cvar_734284);
  make_cvar(cvar_734286, (object *)&__glo_tagged_91list_127_scheme_cyclone_util);make_pair(pair_734287, find_or_add_symbol("tagged-list?"), &cvar_734286);
  make_cvar(cvar_734288, (object *)&__glo_current_91expand_91filepath_scheme_cyclone_util);make_pair(pair_734289, find_or_add_symbol("current-expand-filepath"), &cvar_734288);
make_pair(c_734394, &pair_734080,Cyc_global_variables);
make_pair(c_734393, &pair_734083, &c_734394);
make_pair(c_734392, &pair_734085, &c_734393);
make_pair(c_734391, &pair_734087, &c_734392);
make_pair(c_734390, &pair_734089, &c_734391);
make_pair(c_734389, &pair_734091, &c_734390);
make_pair(c_734388, &pair_734093, &c_734389);
make_pair(c_734387, &pair_734095, &c_734388);
make_pair(c_734386, &pair_734097, &c_734387);
make_pair(c_734385, &pair_734099, &c_734386);
make_pair(c_734384, &pair_734101, &c_734385);
make_pair(c_734383, &pair_734103, &c_734384);
make_pair(c_734382, &pair_734105, &c_734383);
make_pair(c_734381, &pair_734107, &c_734382);
make_pair(c_734380, &pair_734109, &c_734381);
make_pair(c_734379, &pair_734111, &c_734380);
make_pair(c_734378, &pair_734113, &c_734379);
make_pair(c_734377, &pair_734115, &c_734378);
make_pair(c_734376, &pair_734117, &c_734377);
make_pair(c_734375, &pair_734119, &c_734376);
make_pair(c_734374, &pair_734121, &c_734375);
make_pair(c_734373, &pair_734123, &c_734374);
make_pair(c_734372, &pair_734125, &c_734373);
make_pair(c_734371, &pair_734127, &c_734372);
make_pair(c_734370, &pair_734129, &c_734371);
make_pair(c_734369, &pair_734131, &c_734370);
make_pair(c_734368, &pair_734133, &c_734369);
make_pair(c_734367, &pair_734135, &c_734368);
make_pair(c_734366, &pair_734137, &c_734367);
make_pair(c_734365, &pair_734139, &c_734366);
make_pair(c_734364, &pair_734141, &c_734365);
make_pair(c_734363, &pair_734143, &c_734364);
make_pair(c_734362, &pair_734145, &c_734363);
make_pair(c_734361, &pair_734147, &c_734362);
make_pair(c_734360, &pair_734149, &c_734361);
make_pair(c_734359, &pair_734151, &c_734360);
make_pair(c_734358, &pair_734153, &c_734359);
make_pair(c_734357, &pair_734155, &c_734358);
make_pair(c_734356, &pair_734157, &c_734357);
make_pair(c_734355, &pair_734159, &c_734356);
make_pair(c_734354, &pair_734161, &c_734355);
make_pair(c_734353, &pair_734163, &c_734354);
make_pair(c_734352, &pair_734165, &c_734353);
make_pair(c_734351, &pair_734167, &c_734352);
make_pair(c_734350, &pair_734169, &c_734351);
make_pair(c_734349, &pair_734171, &c_734350);
make_pair(c_734348, &pair_734173, &c_734349);
make_pair(c_734347, &pair_734175, &c_734348);
make_pair(c_734346, &pair_734177, &c_734347);
make_pair(c_734345, &pair_734179, &c_734346);
make_pair(c_734344, &pair_734181, &c_734345);
make_pair(c_734343, &pair_734183, &c_734344);
make_pair(c_734342, &pair_734185, &c_734343);
make_pair(c_734341, &pair_734187, &c_734342);
make_pair(c_734340, &pair_734189, &c_734341);
make_pair(c_734339, &pair_734191, &c_734340);
make_pair(c_734338, &pair_734193, &c_734339);
make_pair(c_734337, &pair_734195, &c_734338);
make_pair(c_734336, &pair_734197, &c_734337);
make_pair(c_734335, &pair_734199, &c_734336);
make_pair(c_734334, &pair_734201, &c_734335);
make_pair(c_734333, &pair_734203, &c_734334);
make_pair(c_734332, &pair_734205, &c_734333);
make_pair(c_734331, &pair_734207, &c_734332);
make_pair(c_734330, &pair_734209, &c_734331);
make_pair(c_734329, &pair_734211, &c_734330);
make_pair(c_734328, &pair_734213, &c_734329);
make_pair(c_734327, &pair_734215, &c_734328);
make_pair(c_734326, &pair_734217, &c_734327);
make_pair(c_734325, &pair_734219, &c_734326);
make_pair(c_734324, &pair_734221, &c_734325);
make_pair(c_734323, &pair_734223, &c_734324);
make_pair(c_734322, &pair_734225, &c_734323);
make_pair(c_734321, &pair_734227, &c_734322);
make_pair(c_734320, &pair_734229, &c_734321);
make_pair(c_734319, &pair_734231, &c_734320);
make_pair(c_734318, &pair_734233, &c_734319);
make_pair(c_734317, &pair_734235, &c_734318);
make_pair(c_734316, &pair_734237, &c_734317);
make_pair(c_734315, &pair_734239, &c_734316);
make_pair(c_734314, &pair_734241, &c_734315);
make_pair(c_734313, &pair_734243, &c_734314);
make_pair(c_734312, &pair_734245, &c_734313);
make_pair(c_734311, &pair_734247, &c_734312);
make_pair(c_734310, &pair_734249, &c_734311);
make_pair(c_734309, &pair_734251, &c_734310);
make_pair(c_734308, &pair_734253, &c_734309);
make_pair(c_734307, &pair_734255, &c_734308);
make_pair(c_734306, &pair_734257, &c_734307);
make_pair(c_734305, &pair_734259, &c_734306);
make_pair(c_734304, &pair_734261, &c_734305);
make_pair(c_734303, &pair_734263, &c_734304);
make_pair(c_734302, &pair_734265, &c_734303);
make_pair(c_734301, &pair_734267, &c_734302);
make_pair(c_734300, &pair_734269, &c_734301);
make_pair(c_734299, &pair_734271, &c_734300);
make_pair(c_734298, &pair_734273, &c_734299);
make_pair(c_734297, &pair_734275, &c_734298);
make_pair(c_734296, &pair_734277, &c_734297);
make_pair(c_734295, &pair_734279, &c_734296);
make_pair(c_734294, &pair_734281, &c_734295);
make_pair(c_734293, &pair_734283, &c_734294);
make_pair(c_734292, &pair_734285, &c_734293);
make_pair(c_734291, &pair_734287, &c_734292);
make_pair(c_734290, &pair_734289, &c_734291);
Cyc_global_variables = &c_734290;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117schemecycloneutil_scheme_cyclone_util)->fn)(data, buf[0], 1, buf);
}
void c_schemecycloneutil_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("scheme_cyclone_util");
  c_schemecycloneutil_entry_pt_first_lambda(data, cont, argc, value);
}
