/**
 ** 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); \
 }}

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

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

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

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

#include "cyclone/types.h"
object __glo_lib_91init_117schemecycloneast_scheme_cyclone_ast = NULL;
object __glo_sexp_91_125ast_scheme_cyclone_ast = NULL;
object __glo_ast_91_125sexp_scheme_cyclone_ast = NULL;
object __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast = NULL;
object __glo_ast_117make_91lambda_scheme_cyclone_ast = NULL;
object __glo_ast_117_75make_91lambda_scheme_cyclone_ast = NULL;
object __glo_ast_117set_91lambda_91has_91cont_67_scheme_cyclone_ast = NULL;
object __glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast = NULL;
object __glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast = NULL;
object __glo_ast_117lambda_91has_91cont_scheme_cyclone_ast = NULL;
object __glo_ast_117lambda_91body_scheme_cyclone_ast = NULL;
object __glo_ast_117lambda_91args_scheme_cyclone_ast = NULL;
object __glo_ast_117lambda_91id_scheme_cyclone_ast = NULL;
object __glo_ast_117lambda_127_scheme_cyclone_ast = NULL;
object __glo__121lambda_91ast_125_scheme_cyclone_ast = NULL;
object __glo_ast_117reset_91lambda_91ids_67_scheme_cyclone_ast = NULL;
object __glo_ast_117get_91next_91lambda_91id_67_scheme_cyclone_ast = NULL;
object __glo__85lambda_91id_85_scheme_cyclone_ast = NULL;
object __glo_ast_117sexp_91_125ast_scheme_cyclone_ast = NULL;
object __glo_ast_117ast_91_125sexp_scheme_cyclone_ast = 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_define_91syntax_127_scheme_cyclone_util;
extern object __glo_let_91syntax_127_scheme_cyclone_util;
extern object __glo_letrec_91syntax_127_scheme_cyclone_util;
extern object __glo_tagged_91list_127_scheme_cyclone_util;
extern object __glo_if_127_scheme_cyclone_util;
extern object __glo_if_91syntax_127_scheme_cyclone_util;
extern object __glo_begin_127_scheme_cyclone_util;
extern object __glo_lambda_127_scheme_cyclone_util;
extern object __glo_pair_91_125list_scheme_cyclone_util;
extern object __glo_define_91lambda_127_scheme_cyclone_util;
extern object __glo_define_91_125lambda_scheme_cyclone_util;
extern object __glo_formals_91_125list_scheme_cyclone_util;
extern object __glo_lambda_91formals_91_125list_scheme_cyclone_util;
extern object __glo_lambda_91varargs_127_scheme_cyclone_util;
extern object __glo_lambda_91_125formals_scheme_cyclone_util;
extern object __glo_lambda_91_125exp_scheme_cyclone_util;
extern object __glo_lambda_91formals_91type_scheme_cyclone_util;
extern object __glo_lambda_91varargs_91var_scheme_cyclone_util;
extern object __glo_pack_91lambda_91arguments_scheme_cyclone_util;
extern object __glo_if_91_125condition_scheme_cyclone_util;
extern object __glo_if_91_125then_scheme_cyclone_util;
extern object __glo_if_91else_127_scheme_cyclone_util;
extern object __glo_if_91_125else_scheme_cyclone_util;
extern object __glo_const_127_scheme_cyclone_util;
extern object __glo_ref_127_scheme_cyclone_util;
extern object __glo_quote_127_scheme_cyclone_util;
extern object __glo_define_91c_127_scheme_cyclone_util;
extern object __glo_set_67_127_scheme_cyclone_util;
extern object __glo_set_67_91_125var_scheme_cyclone_util;
extern object __glo_set_67_91_125exp_scheme_cyclone_util;
extern object __glo_define_127_scheme_cyclone_util;
extern object __glo_define_91_125var_scheme_cyclone_util;
extern object __glo_define_91_125exp_scheme_cyclone_util;
extern object __glo_app_127_scheme_cyclone_util;
extern object __glo_env_117enclosing_91environment_scheme_cyclone_util;
extern object __glo_env_117first_91frame_scheme_cyclone_util;
extern object __glo_env_117the_91empty_91environment_scheme_cyclone_util;
extern object __glo_env_117make_91frame_scheme_cyclone_util;
extern object __glo_env_117frame_91variables_scheme_cyclone_util;
extern object __glo_env_117frame_91values_scheme_cyclone_util;
extern object __glo_env_117add_91binding_91to_91frame_67_scheme_cyclone_util;
extern object __glo_env_117all_91variables_scheme_cyclone_util;
extern object __glo_env_117all_91values_scheme_cyclone_util;
extern object __glo_env_117extend_91environment_scheme_cyclone_util;
extern object __glo_env_117lookup_scheme_cyclone_util;
extern object __glo_env_117lookup_91variable_91value_scheme_cyclone_util;
extern object __glo_env_117_191lookup_91variable_91value_scheme_cyclone_util;
extern object __glo_env_117set_91variable_91value_67_scheme_cyclone_util;
extern object __glo_env_117define_91variable_67_scheme_cyclone_util;
extern object __glo_make_91syntactic_91closure_scheme_cyclone_util;
extern object __glo_strip_91syntactic_91closures_scheme_cyclone_util;
extern object __glo_identifier_91_125symbol_scheme_cyclone_util;
extern object __glo_identifier_127_scheme_cyclone_util;
extern object __glo_identifier_123_127_scheme_cyclone_util;
extern object __glo_Cyc_91er_91rename_scheme_cyclone_util;
extern object __glo_Cyc_91er_91compare_127_scheme_cyclone_util;
extern object __glo_mangle_scheme_cyclone_util;
extern object __glo_mangle_91global_scheme_cyclone_util;
extern object __glo_define_91c_91inline_127_scheme_cyclone_util;
extern object __glo_define_91c_91_125inline_91var_scheme_cyclone_util;
extern object __glo_Cyc_91set_91immutable_67_scheme_cyclone_util;
extern object __glo_string_91join_scheme_cyclone_util;
extern object __glo_string_91split_scheme_cyclone_util;
extern object __glo_gensym_scheme_cyclone_util;
extern object __glo_delete_scheme_cyclone_util;
extern object __glo_delete_91duplicates_scheme_cyclone_util;
extern object __glo_flatten_scheme_cyclone_util;
extern object __glo_length_95obj_scheme_cyclone_util;
extern object __glo_list_91index2_scheme_cyclone_util;
extern object __glo_list_91insert_91at_67_scheme_cyclone_util;
extern object __glo_list_91prefix_127_scheme_cyclone_util;
extern object __glo_string_91replace_91all_scheme_cyclone_util;
extern object __glo_take_scheme_cyclone_util;
extern object __glo_drop_scheme_cyclone_util;
extern object __glo_filter_scheme_cyclone_util;
extern object __glo_current_91expand_91filepath_scheme_cyclone_util;
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;
extern object __glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_app_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_ref_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util;
#include "cyclone/runtime.h"
defsymbol(ast_117ast_91_125sexp);
defsymbol(ast_117sexp_91_125ast);
defsymbol(ast_117lambda_127);
defsymbol(id);
defsymbol(ast_117lambda_91id);
defsymbol(ast_117lambda_91args);
defsymbol(ast_117lambda_91body);
defsymbol(ast_117lambda_91has_91cont);
defsymbol(args);
defsymbol(ast_117set_91lambda_91args_67);
defsymbol(body);
defsymbol(ast_117set_91lambda_91body_67);
defsymbol(has_91cont);
defsymbol(ast_117set_91lambda_91has_91cont_67);
defsymbol(lambda);
defsymbol(_if);
defsymbol(set_67);
defsymbol(define);
defsymbol(_121lambda_91ast_125);
defsymbol(_85lambda_91id_85);
static void __lambda_69(void *data, object clo, int argc, object *args) ;/*closure _,object k_73329*/
static void __lambda_70(void *data, object clo, int argc, object *args) ;/*object self_73436, object r_73331*/
static void __lambda_71(void *data, object clo, int argc, object *args) ;/*object self_73437, object r_73332*/
static void __lambda_72(void *data, object clo, int argc, object *args) ;/*object self_73438, object r_73372*/
static void __lambda_73(void *data, object clo, int argc, object *args) ;/*object self_73439, object r_73333*/
static void __lambda_74(void *data, object clo, int argc, object *args) ;/*object self_73440, object r_73370*/
static void __lambda_75(void *data, object clo, int argc, object *args) ;/*object self_73441, object r_73334*/
static void __lambda_76(void *data, object clo, int argc, object *args) ;/*object self_73442, object r_73368*/
static void __lambda_77(void *data, object clo, int argc, object *args) ;/*object self_73443, object r_73366*/
static void __lambda_78(void *data, object clo, int argc, object *args) ;/*object self_73444, object r_73335*/
static void __lambda_79(void *data, object clo, int argc, object *args) ;/*object self_73445, object r_73364*/
static void __lambda_80(void *data, object clo, int argc, object *args) ;/*object self_73446, object r_73362*/
static void __lambda_81(void *data, object clo, int argc, object *args) ;/*object self_73447, object r_73336*/
static void __lambda_82(void *data, object clo, int argc, object *args) ;/*object self_73448, object r_73360*/
static void __lambda_83(void *data, object clo, int argc, object *args) ;/*object self_73449, object r_73358*/
static void __lambda_84(void *data, object clo, int argc, object *args) ;/*object self_73450, object r_73337*/
static void __lambda_85(void *data, object clo, int argc, object *args) ;/*object self_73451, object r_73356*/
static void __lambda_86(void *data, object clo, int argc, object *args) ;/*object self_73452, object r_73354*/
static void __lambda_87(void *data, object clo, int argc, object *args) ;/*object self_73453, object r_73338*/
static void __lambda_88(void *data, object clo, int argc, object *args) ;/*object self_73454, object r_73352*/
static void __lambda_89(void *data, object clo, int argc, object *args) ;/*object self_73455, object r_73350*/
static void __lambda_90(void *data, object clo, int argc, object *args) ;/*object self_73456, object r_73340*/
static void __lambda_91(void *data, object clo, int argc, object *args) ;/*object self_73457, object r_73348*/
static void __lambda_92(void *data, object clo, int argc, object *args) ;/*object self_73458, object r_73346*/
static void __lambda_93(void *data, object clo, int argc, object *args) ;/*object self_73459, object r_73341*/
static void __lambda_94(void *data, object clo, int argc, object *args) ;/*object self_73460, object r_73344*/
static void __lambda_95(void *data, object clo, int argc, object *args) ;/*object self_73461, object r_73342*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*closure _,object k_73292, object exp_73106_73157*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_73421, object r_73293*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*object self_73423, object r_73297*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*object self_73424, object r_73298*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_73425, object r_73299*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_73426, object r_73300*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*object self_73429, object r_73306*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*object self_73431, object r_73314*/
static void __lambda_68(void *data, object clo, int argc, object *args) ;/*object self_73435, object r_73326*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*object self_73432, object r_73317*/
static void __lambda_66(void *data, object clo, int argc, object *args) ;/*object self_73433, object r_73319*/
static void __lambda_67(void *data, object clo, int argc, object *args) ;/*object self_73434, object r_73321*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_73430, object r_73311*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*object self_73427, object r_73303*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_73428, object r_73304*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*object self_73422, object r_73295*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*closure _,object k_73251, object exp_7358_73153*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*object self_73401, object r_73252*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_73408, object r_73260*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*object self_73409, object r_73261*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*object self_73410, object r_73262*/
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*object self_73411, object r_73263*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_73414, object r_73269*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*object self_73416, object r_73277*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*object self_73420, object r_73289*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*object self_73417, object r_73280*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*object self_73418, object r_73282*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*object self_73419, object r_73284*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*object self_73415, object r_73274*/
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*object self_73412, object r_73266*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*object self_73413, object r_73267*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_73402, object id_7364_73154*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_73403, object has_91cont_7367_73155*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*object self_73404, object r_73257*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_73405, object r_73259*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*object self_73406, object r_73258*/
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*object self_73407, object r_73256*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*closure _,object k_73206, object exp_7310_73149*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73379, object r_73207*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*object self_73388, object r_73219*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73389, object r_73220*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_73390, object r_73221*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73391, object r_73222*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_73394, object r_73228*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_73396, object r_73236*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_73400, object r_73248*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_73397, object r_73239*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_73398, object r_73241*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73399, object r_73243*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*object self_73395, object r_73233*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_73392, object r_73225*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73393, object r_73226*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_73380, object id_7316_73150*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73381, object has_91cont_7319_73151*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_73382, object r_73216*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_73383, object r_73215*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_73384, object r_73212*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73385, object r_73214*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_73386, object r_73213*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73387, object r_73211*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*closure _,object k_73198, object args_736_73145, object body_737_73146, object opts_738_73147_raw, ...*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_73377, object r_73201*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_73378, object r_73200*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*closure _,object k_73192, object id_732_73141, object args_733_73142, object body_734_73143, object has_91cont_735_73144*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*closure _,object k_73171*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_73166*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73375, object r_73168*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73376, object r_73167*/

static void __lambda_69(void *data, object _, int argc, object *args) /* closure _,object k_73329 */
 {
object k_73329 = args[0];
  Cyc_st_add(data, "scheme/cyclone/ast.sld:lib-init:schemecycloneast");

closureN_type c_731016;
object e_731135 [1];
c_731016.hdr.mark = gc_color_red;
 c_731016.hdr.grayed = 0;
c_731016.tag = closureN_tag;
 c_731016.fn = (function_type)__lambda_70;
c_731016.num_args = 1;
c_731016.num_elements = 1;
c_731016.elements = (object *)e_731135;
c_731016.elements[0] = k_73329;


object c_731138 = global_set_cps_id(data,(closure)&c_731016,"__glo_ast_117ast_91_125sexp_scheme_cyclone_ast", __glo_ast_117ast_91_125sexp_scheme_cyclone_ast, __glo_ast_91_125sexp_scheme_cyclone_ast);
return_closcall1(data,(closure)&c_731016,  c_731138);; 
}

static void __lambda_70(void *data, object self_73436, int argc, object *args) /* object self_73436, object r_73331 */
 {

  
closureN_type c_731018;
object e_731131 [1];
c_731018.hdr.mark = gc_color_red;
 c_731018.hdr.grayed = 0;
c_731018.tag = closureN_tag;
 c_731018.fn = (function_type)__lambda_71;
c_731018.num_args = 1;
c_731018.num_elements = 1;
c_731018.elements = (object *)e_731131;
c_731018.elements[0] = ((closureN)self_73436)->elements[0];


object c_731134 = global_set_cps_id(data,(closure)&c_731018,"__glo_ast_117sexp_91_125ast_scheme_cyclone_ast", __glo_ast_117sexp_91_125ast_scheme_cyclone_ast, __glo_sexp_91_125ast_scheme_cyclone_ast);
return_closcall1(data,(closure)&c_731018,  c_731134);; 
}

static void __lambda_71(void *data, object self_73437, int argc, object *args) /* object self_73437, object r_73332 */
 {

  
closureN_type c_731020;
object e_731126 [1];
c_731020.hdr.mark = gc_color_red;
 c_731020.hdr.grayed = 0;
c_731020.tag = closureN_tag;
 c_731020.fn = (function_type)__lambda_72;
c_731020.num_args = 1;
c_731020.num_elements = 1;
c_731020.elements = (object *)e_731126;
c_731020.elements[0] = ((closureN)self_73437)->elements[0];


make_pair(c_731130,quote_has_91cont,NULL);c_731130.hdr.immutable = 1;

make_pair(c_731129,quote_body,&c_731130);c_731129.hdr.immutable = 1;

make_pair(c_731128,quote_args,&c_731129);c_731128.hdr.immutable = 1;

make_pair(c_731127,quote_id,&c_731128);c_731127.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_register_91simple_91type_scheme_base, (((closure)  __glo_register_91simple_91type_scheme_base)->fn),  &c_731020, quote__121lambda_91ast_125, boolean_f, &c_731127);; 
}

static void __lambda_72(void *data, object self_73438, int argc, object *args) /* object self_73438, object r_73372 */
 {
 object r_73372 = args[0];
  
closureN_type c_731022;
object e_731122 [1];
c_731022.hdr.mark = gc_color_red;
 c_731022.hdr.grayed = 0;
c_731022.tag = closureN_tag;
 c_731022.fn = (function_type)__lambda_73;
c_731022.num_args = 1;
c_731022.num_elements = 1;
c_731022.elements = (object *)e_731122;
c_731022.elements[0] = ((closureN)self_73438)->elements[0];


object c_731125 = global_set_cps_id(data,(closure)&c_731022,"__glo__121lambda_91ast_125_scheme_cyclone_ast", __glo__121lambda_91ast_125_scheme_cyclone_ast, r_73372);
return_closcall1(data,(closure)&c_731022,  c_731125);; 
}

static void __lambda_73(void *data, object self_73439, int argc, object *args) /* object self_73439, object r_73333 */
 {

  
closureN_type c_731024;
object e_731121 [1];
c_731024.hdr.mark = gc_color_red;
 c_731024.hdr.grayed = 0;
c_731024.tag = closureN_tag;
 c_731024.fn = (function_type)__lambda_74;
c_731024.num_args = 1;
c_731024.num_elements = 1;
c_731024.elements = (object *)e_731121;
c_731024.elements[0] = ((closureN)self_73439)->elements[0];

return_direct_with_clo3(data,  __glo_make_91type_91predicate_scheme_base, (((closure)  __glo_make_91type_91predicate_scheme_base)->fn),  &c_731024, obj_int2obj(0), quote__121lambda_91ast_125);; 
}

static void __lambda_74(void *data, object self_73440, int argc, object *args) /* object self_73440, object r_73370 */
 {
 object r_73370 = args[0];
  
closureN_type c_731026;
object e_731117 [1];
c_731026.hdr.mark = gc_color_red;
 c_731026.hdr.grayed = 0;
c_731026.tag = closureN_tag;
 c_731026.fn = (function_type)__lambda_75;
c_731026.num_args = 1;
c_731026.num_elements = 1;
c_731026.elements = (object *)e_731117;
c_731026.elements[0] = ((closureN)self_73440)->elements[0];


object c_731120 = global_set_cps_id(data,(closure)&c_731026,"__glo_ast_117lambda_127_scheme_cyclone_ast", __glo_ast_117lambda_127_scheme_cyclone_ast, r_73370);
return_closcall1(data,(closure)&c_731026,  c_731120);; 
}

static void __lambda_75(void *data, object self_73441, int argc, object *args) /* object self_73441, object r_73334 */
 {

  
closureN_type c_731028;
object e_731116 [1];
c_731028.hdr.mark = gc_color_red;
 c_731028.hdr.grayed = 0;
c_731028.tag = closureN_tag;
 c_731028.fn = (function_type)__lambda_76;
c_731028.num_args = 1;
c_731028.num_elements = 1;
c_731028.elements = (object *)e_731116;
c_731028.elements[0] = ((closureN)self_73441)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_731028, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_id);; 
}

static void __lambda_76(void *data, object self_73442, int argc, object *args) /* object self_73442, object r_73368 */
 {
 object r_73368 = args[0];
  
closureN_type c_731030;
object e_731114 [1];
c_731030.hdr.mark = gc_color_red;
 c_731030.hdr.grayed = 0;
c_731030.tag = closureN_tag;
 c_731030.fn = (function_type)__lambda_77;
c_731030.num_args = 1;
c_731030.num_elements = 1;
c_731030.elements = (object *)e_731114;
c_731030.elements[0] = ((closureN)self_73442)->elements[0];


make_utf8_string_with_len(c_731115, "ast:lambda-id", 13, 13);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_731030, &c_731115, quote__121lambda_91ast_125, r_73368);; 
}

static void __lambda_77(void *data, object self_73443, int argc, object *args) /* object self_73443, object r_73366 */
 {
 object r_73366 = args[0];
  
closureN_type c_731032;
object e_731110 [1];
c_731032.hdr.mark = gc_color_red;
 c_731032.hdr.grayed = 0;
c_731032.tag = closureN_tag;
 c_731032.fn = (function_type)__lambda_78;
c_731032.num_args = 1;
c_731032.num_elements = 1;
c_731032.elements = (object *)e_731110;
c_731032.elements[0] = ((closureN)self_73443)->elements[0];


object c_731113 = global_set_cps_id(data,(closure)&c_731032,"__glo_ast_117lambda_91id_scheme_cyclone_ast", __glo_ast_117lambda_91id_scheme_cyclone_ast, r_73366);
return_closcall1(data,(closure)&c_731032,  c_731113);; 
}

static void __lambda_78(void *data, object self_73444, int argc, object *args) /* object self_73444, object r_73335 */
 {

  
closureN_type c_731034;
object e_731109 [1];
c_731034.hdr.mark = gc_color_red;
 c_731034.hdr.grayed = 0;
c_731034.tag = closureN_tag;
 c_731034.fn = (function_type)__lambda_79;
c_731034.num_args = 1;
c_731034.num_elements = 1;
c_731034.elements = (object *)e_731109;
c_731034.elements[0] = ((closureN)self_73444)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_731034, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_args);; 
}

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


make_utf8_string_with_len(c_731108, "ast:lambda-args", 15, 15);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_731036, &c_731108, quote__121lambda_91ast_125, r_73364);; 
}

static void __lambda_80(void *data, object self_73446, int argc, object *args) /* object self_73446, object r_73362 */
 {
 object r_73362 = args[0];
  
closureN_type c_731038;
object e_731103 [1];
c_731038.hdr.mark = gc_color_red;
 c_731038.hdr.grayed = 0;
c_731038.tag = closureN_tag;
 c_731038.fn = (function_type)__lambda_81;
c_731038.num_args = 1;
c_731038.num_elements = 1;
c_731038.elements = (object *)e_731103;
c_731038.elements[0] = ((closureN)self_73446)->elements[0];


object c_731106 = global_set_cps_id(data,(closure)&c_731038,"__glo_ast_117lambda_91args_scheme_cyclone_ast", __glo_ast_117lambda_91args_scheme_cyclone_ast, r_73362);
return_closcall1(data,(closure)&c_731038,  c_731106);; 
}

static void __lambda_81(void *data, object self_73447, int argc, object *args) /* object self_73447, object r_73336 */
 {

  
closureN_type c_731040;
object e_731102 [1];
c_731040.hdr.mark = gc_color_red;
 c_731040.hdr.grayed = 0;
c_731040.tag = closureN_tag;
 c_731040.fn = (function_type)__lambda_82;
c_731040.num_args = 1;
c_731040.num_elements = 1;
c_731040.elements = (object *)e_731102;
c_731040.elements[0] = ((closureN)self_73447)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_731040, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_body);; 
}

static void __lambda_82(void *data, object self_73448, int argc, object *args) /* object self_73448, object r_73360 */
 {
 object r_73360 = args[0];
  
closureN_type c_731042;
object e_731100 [1];
c_731042.hdr.mark = gc_color_red;
 c_731042.hdr.grayed = 0;
c_731042.tag = closureN_tag;
 c_731042.fn = (function_type)__lambda_83;
c_731042.num_args = 1;
c_731042.num_elements = 1;
c_731042.elements = (object *)e_731100;
c_731042.elements[0] = ((closureN)self_73448)->elements[0];


make_utf8_string_with_len(c_731101, "ast:lambda-body", 15, 15);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_731042, &c_731101, quote__121lambda_91ast_125, r_73360);; 
}

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


object c_731099 = global_set_cps_id(data,(closure)&c_731044,"__glo_ast_117lambda_91body_scheme_cyclone_ast", __glo_ast_117lambda_91body_scheme_cyclone_ast, r_73358);
return_closcall1(data,(closure)&c_731044,  c_731099);; 
}

static void __lambda_84(void *data, object self_73450, int argc, object *args) /* object self_73450, object r_73337 */
 {

  
closureN_type c_731046;
object e_731095 [1];
c_731046.hdr.mark = gc_color_red;
 c_731046.hdr.grayed = 0;
c_731046.tag = closureN_tag;
 c_731046.fn = (function_type)__lambda_85;
c_731046.num_args = 1;
c_731046.num_elements = 1;
c_731046.elements = (object *)e_731095;
c_731046.elements[0] = ((closureN)self_73450)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_731046, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_has_91cont);; 
}

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


make_utf8_string_with_len(c_731094, "ast:lambda-has-cont", 19, 19);
return_direct_with_clo4(data,  __glo_make_91getter_scheme_base, (((closure)  __glo_make_91getter_scheme_base)->fn),  &c_731048, &c_731094, quote__121lambda_91ast_125, r_73356);; 
}

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


object c_731092 = global_set_cps_id(data,(closure)&c_731050,"__glo_ast_117lambda_91has_91cont_scheme_cyclone_ast", __glo_ast_117lambda_91has_91cont_scheme_cyclone_ast, r_73354);
return_closcall1(data,(closure)&c_731050,  c_731092);; 
}

static void __lambda_87(void *data, object self_73453, int argc, object *args) /* object self_73453, object r_73338 */
 {

  
closureN_type c_731052;
object e_731088 [1];
c_731052.hdr.mark = gc_color_red;
 c_731052.hdr.grayed = 0;
c_731052.tag = closureN_tag;
 c_731052.fn = (function_type)__lambda_88;
c_731052.num_args = 1;
c_731052.num_elements = 1;
c_731052.elements = (object *)e_731088;
c_731052.elements[0] = ((closureN)self_73453)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_731052, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_args);; 
}

static void __lambda_88(void *data, object self_73454, int argc, object *args) /* object self_73454, object r_73352 */
 {
 object r_73352 = args[0];
  
closureN_type c_731054;
object e_731086 [1];
c_731054.hdr.mark = gc_color_red;
 c_731054.hdr.grayed = 0;
c_731054.tag = closureN_tag;
 c_731054.fn = (function_type)__lambda_89;
c_731054.num_args = 1;
c_731054.num_elements = 1;
c_731054.elements = (object *)e_731086;
c_731054.elements[0] = ((closureN)self_73454)->elements[0];


make_utf8_string_with_len(c_731087, "ast:set-lambda-args!", 20, 20);
return_direct_with_clo4(data,  __glo_make_91setter_scheme_base, (((closure)  __glo_make_91setter_scheme_base)->fn),  &c_731054, &c_731087, quote__121lambda_91ast_125, r_73352);; 
}

static void __lambda_89(void *data, object self_73455, int argc, object *args) /* object self_73455, object r_73350 */
 {
 object r_73350 = args[0];
  
closureN_type c_731056;
object e_731082 [1];
c_731056.hdr.mark = gc_color_red;
 c_731056.hdr.grayed = 0;
c_731056.tag = closureN_tag;
 c_731056.fn = (function_type)__lambda_90;
c_731056.num_args = 1;
c_731056.num_elements = 1;
c_731056.elements = (object *)e_731082;
c_731056.elements[0] = ((closureN)self_73455)->elements[0];


object c_731085 = global_set_cps_id(data,(closure)&c_731056,"__glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast", __glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast, r_73350);
return_closcall1(data,(closure)&c_731056,  c_731085);; 
}

static void __lambda_90(void *data, object self_73456, int argc, object *args) /* object self_73456, object r_73340 */
 {

  
closureN_type c_731058;
object e_731081 [1];
c_731058.hdr.mark = gc_color_red;
 c_731058.hdr.grayed = 0;
c_731058.tag = closureN_tag;
 c_731058.fn = (function_type)__lambda_91;
c_731058.num_args = 1;
c_731058.num_elements = 1;
c_731058.elements = (object *)e_731081;
c_731058.elements[0] = ((closureN)self_73456)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_731058, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_body);; 
}

static void __lambda_91(void *data, object self_73457, int argc, object *args) /* object self_73457, object r_73348 */
 {
 object r_73348 = args[0];
  
closureN_type c_731060;
object e_731079 [1];
c_731060.hdr.mark = gc_color_red;
 c_731060.hdr.grayed = 0;
c_731060.tag = closureN_tag;
 c_731060.fn = (function_type)__lambda_92;
c_731060.num_args = 1;
c_731060.num_elements = 1;
c_731060.elements = (object *)e_731079;
c_731060.elements[0] = ((closureN)self_73457)->elements[0];


make_utf8_string_with_len(c_731080, "ast:set-lambda-body!", 20, 20);
return_direct_with_clo4(data,  __glo_make_91setter_scheme_base, (((closure)  __glo_make_91setter_scheme_base)->fn),  &c_731060, &c_731080, quote__121lambda_91ast_125, r_73348);; 
}

static void __lambda_92(void *data, object self_73458, int argc, object *args) /* object self_73458, object r_73346 */
 {
 object r_73346 = args[0];
  
closureN_type c_731062;
object e_731075 [1];
c_731062.hdr.mark = gc_color_red;
 c_731062.hdr.grayed = 0;
c_731062.tag = closureN_tag;
 c_731062.fn = (function_type)__lambda_93;
c_731062.num_args = 1;
c_731062.num_elements = 1;
c_731062.elements = (object *)e_731075;
c_731062.elements[0] = ((closureN)self_73458)->elements[0];


object c_731078 = global_set_cps_id(data,(closure)&c_731062,"__glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast", __glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast, r_73346);
return_closcall1(data,(closure)&c_731062,  c_731078);; 
}

static void __lambda_93(void *data, object self_73459, int argc, object *args) /* object self_73459, object r_73341 */
 {

  
closureN_type c_731064;
object e_731074 [1];
c_731064.hdr.mark = gc_color_red;
 c_731064.hdr.grayed = 0;
c_731064.tag = closureN_tag;
 c_731064.fn = (function_type)__lambda_94;
c_731064.num_args = 1;
c_731064.num_elements = 1;
c_731064.elements = (object *)e_731074;
c_731064.elements[0] = ((closureN)self_73459)->elements[0];

return_direct_with_clo3(data,  __glo_type_91slot_91offset_scheme_base, (((closure)  __glo_type_91slot_91offset_scheme_base)->fn),  &c_731064, __glo__121lambda_91ast_125_scheme_cyclone_ast, quote_has_91cont);; 
}

static void __lambda_94(void *data, object self_73460, int argc, object *args) /* object self_73460, object r_73344 */
 {
 object r_73344 = args[0];
  
closureN_type c_731066;
object e_731072 [1];
c_731066.hdr.mark = gc_color_red;
 c_731066.hdr.grayed = 0;
c_731066.tag = closureN_tag;
 c_731066.fn = (function_type)__lambda_95;
c_731066.num_args = 1;
c_731066.num_elements = 1;
c_731066.elements = (object *)e_731072;
c_731066.elements[0] = ((closureN)self_73460)->elements[0];


make_utf8_string_with_len(c_731073, "ast:set-lambda-has-cont!", 24, 24);
return_direct_with_clo4(data,  __glo_make_91setter_scheme_base, (((closure)  __glo_make_91setter_scheme_base)->fn),  &c_731066, &c_731073, quote__121lambda_91ast_125, r_73344);; 
}

static void __lambda_95(void *data, object self_73461, int argc, object *args) /* object self_73461, object r_73342 */
 {
 object r_73342 = args[0];
  
object c_731071 = global_set_cps_id(data,  ((closureN)self_73461)->elements[0],"__glo_ast_117set_91lambda_91has_91cont_67_scheme_cyclone_ast", __glo_ast_117set_91lambda_91has_91cont_67_scheme_cyclone_ast, r_73342);
return_direct_with_clo1(data,  ((closureN)self_73461)->elements[0], (((closure)  ((closureN)self_73461)->elements[0])->fn),  c_731071);; 
}

static void __lambda_53(void *data, object _, int argc, object *args) /* closure _,object k_73292, object exp_73106_73157 */
 {
object k_73292 = args[0]; object exp_73106_73157 = args[1];
  Cyc_st_add(data, "scheme/cyclone/ast.sld:sexp->ast");

closureN_type c_73871;
object e_731013 [2];
c_73871.hdr.mark = gc_color_red;
 c_73871.hdr.grayed = 0;
c_73871.tag = closureN_tag;
 c_73871.fn = (function_type)__lambda_54;
c_73871.num_args = 1;
c_73871.num_elements = 2;
c_73871.elements = (object *)e_731013;
c_73871.elements[0] = exp_73106_73157;
c_73871.elements[1] = k_73292;

return_direct_with_clo2(data,  __glo_lambda_127_scheme_cyclone_util, (((closure)  __glo_lambda_127_scheme_cyclone_util)->fn),  &c_73871, exp_73106_73157);; 
}

static void __lambda_54(void *data, object self_73421, int argc, object *args) /* object self_73421, object r_73293 */
 {
 object r_73293 = args[0];
  if( (boolean_f != r_73293) ){ 
  
closureN_type c_73873;
object e_73880 [2];
c_73873.hdr.mark = gc_color_red;
 c_73873.hdr.grayed = 0;
c_73873.tag = closureN_tag;
 c_73873.fn = (function_type)__lambda_55;
c_73873.num_args = 1;
c_73873.num_elements = 2;
c_73873.elements = (object *)e_73880;
c_73873.elements[0] = ((closureN)self_73421)->elements[0];
c_73873.elements[1] = ((closureN)self_73421)->elements[1];


complex_num_type local_73883; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73873, __glo_sexp_91_125ast_scheme_cyclone_ast, ((inline_function_type)
                   ((closure)__glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73883, ((closureN)self_73421)->elements[0]));
} else { 
  
closureN_type c_73886;
object e_731011 [2];
c_73886.hdr.mark = gc_color_red;
 c_73886.hdr.grayed = 0;
c_73886.tag = closureN_tag;
 c_73886.fn = (function_type)__lambda_56;
c_73886.num_args = 1;
c_73886.num_elements = 2;
c_73886.elements = (object *)e_731011;
c_73886.elements[0] = ((closureN)self_73421)->elements[0];
c_73886.elements[1] = ((closureN)self_73421)->elements[1];

return_direct_with_clo2(data,  __glo_quote_127_scheme_cyclone_util, (((closure)  __glo_quote_127_scheme_cyclone_util)->fn),  &c_73886, ((closureN)self_73421)->elements[0]);}
;; 
}

static void __lambda_56(void *data, object self_73423, int argc, object *args) /* object self_73423, object r_73297 */
 {
 object r_73297 = args[0];
  if( (boolean_f != r_73297) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73423)->elements[1], (((closure)  ((closureN)self_73423)->elements[1])->fn),  ((closureN)self_73423)->elements[0]);
} else { 
  
closureN_type c_73891;
object e_731009 [2];
c_73891.hdr.mark = gc_color_red;
 c_73891.hdr.grayed = 0;
c_73891.tag = closureN_tag;
 c_73891.fn = (function_type)__lambda_57;
c_73891.num_args = 1;
c_73891.num_elements = 2;
c_73891.elements = (object *)e_731009;
c_73891.elements[0] = ((closureN)self_73423)->elements[0];
c_73891.elements[1] = ((closureN)self_73423)->elements[1];

return_direct_with_clo2(data,  __glo_const_127_scheme_cyclone_util, (((closure)  __glo_const_127_scheme_cyclone_util)->fn),  &c_73891, ((closureN)self_73423)->elements[0]);}
;; 
}

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


complex_num_type local_731007; 
return_direct_with_clo1(data,(closure)&c_73896,__lambda_58,  ((inline_function_type)
                   ((closure)__glo_ref_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_731007, ((closureN)self_73424)->elements[0]));}
;; 
}

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

return_direct_with_clo2(data,  __glo_define_127_scheme_cyclone_util, (((closure)  __glo_define_127_scheme_cyclone_util)->fn),  &c_73901, ((closureN)self_73425)->elements[0]);}
;; 
}

static void __lambda_59(void *data, object self_73426, int argc, object *args) /* object self_73426, object r_73300 */
 {
 object r_73300 = args[0];
  if( (boolean_f != r_73300) ){ 
  
closureN_type c_73903;
object e_73920 [2];
c_73903.hdr.mark = gc_color_red;
 c_73903.hdr.grayed = 0;
c_73903.tag = closureN_tag;
 c_73903.fn = (function_type)__lambda_60;
c_73903.num_args = 1;
c_73903.num_elements = 2;
c_73903.elements = (object *)e_73920;
c_73903.elements[0] = ((closureN)self_73426)->elements[0];
c_73903.elements[1] = ((closureN)self_73426)->elements[1];

return_direct_with_clo2(data,  __glo_define_91_125var_scheme_cyclone_util, (((closure)  __glo_define_91_125var_scheme_cyclone_util)->fn),  &c_73903, ((closureN)self_73426)->elements[0]);
} else { 
  
closureN_type c_73923;
object e_731000 [2];
c_73923.hdr.mark = gc_color_red;
 c_73923.hdr.grayed = 0;
c_73923.tag = closureN_tag;
 c_73923.fn = (function_type)__lambda_62;
c_73923.num_args = 1;
c_73923.num_elements = 2;
c_73923.elements = (object *)e_731000;
c_73923.elements[0] = ((closureN)self_73426)->elements[0];
c_73923.elements[1] = ((closureN)self_73426)->elements[1];

return_direct_with_clo2(data,  __glo_set_67_127_scheme_cyclone_util, (((closure)  __glo_set_67_127_scheme_cyclone_util)->fn),  &c_73923, ((closureN)self_73426)->elements[0]);}
;; 
}

static void __lambda_62(void *data, object self_73429, int argc, object *args) /* object self_73429, object r_73306 */
 {
 object r_73306 = args[0];
  if( (boolean_f != r_73306) ){ 
  
closureN_type c_73925;
object e_73941 [2];
c_73925.hdr.mark = gc_color_red;
 c_73925.hdr.grayed = 0;
c_73925.tag = closureN_tag;
 c_73925.fn = (function_type)__lambda_63;
c_73925.num_args = 1;
c_73925.num_elements = 2;
c_73925.elements = (object *)e_73941;
c_73925.elements[0] = ((closureN)self_73429)->elements[0];
c_73925.elements[1] = ((closureN)self_73429)->elements[1];


complex_num_type local_73944; 
return_direct_with_clo2(data,  __glo_sexp_91_125ast_scheme_cyclone_ast, (((closure)  __glo_sexp_91_125ast_scheme_cyclone_ast)->fn),  &c_73925, ((inline_function_type)
                   ((closure)__glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73944, ((closureN)self_73429)->elements[0]));
} else { 
  
closureN_type c_73947;
object e_73998 [2];
c_73947.hdr.mark = gc_color_red;
 c_73947.hdr.grayed = 0;
c_73947.tag = closureN_tag;
 c_73947.fn = (function_type)__lambda_64;
c_73947.num_args = 1;
c_73947.num_elements = 2;
c_73947.elements = (object *)e_73998;
c_73947.elements[0] = ((closureN)self_73429)->elements[0];
c_73947.elements[1] = ((closureN)self_73429)->elements[1];

return_direct_with_clo2(data,  __glo_if_127_scheme_cyclone_util, (((closure)  __glo_if_127_scheme_cyclone_util)->fn),  &c_73947, ((closureN)self_73429)->elements[0]);}
;; 
}

static void __lambda_64(void *data, object self_73431, int argc, object *args) /* object self_73431, object r_73314 */
 {
 object r_73314 = args[0];
  if( (boolean_f != r_73314) ){ 
  
closureN_type c_73949;
object e_73980 [2];
c_73949.hdr.mark = gc_color_red;
 c_73949.hdr.grayed = 0;
c_73949.tag = closureN_tag;
 c_73949.fn = (function_type)__lambda_65;
c_73949.num_args = 1;
c_73949.num_elements = 2;
c_73949.elements = (object *)e_73980;
c_73949.elements[0] = ((closureN)self_73431)->elements[0];
c_73949.elements[1] = ((closureN)self_73431)->elements[1];


complex_num_type local_73983; 
return_direct_with_clo2(data,  __glo_sexp_91_125ast_scheme_cyclone_ast, (((closure)  __glo_sexp_91_125ast_scheme_cyclone_ast)->fn),  &c_73949, ((inline_function_type)
                   ((closure)__glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73983, ((closureN)self_73431)->elements[0]));
} else { 
  
closureN_type c_73986;
object e_73993 [2];
c_73986.hdr.mark = gc_color_red;
 c_73986.hdr.grayed = 0;
c_73986.tag = closureN_tag;
 c_73986.fn = (function_type)__lambda_68;
c_73986.num_args = 1;
c_73986.num_elements = 2;
c_73986.elements = (object *)e_73993;
c_73986.elements[0] = ((closureN)self_73431)->elements[0];
c_73986.elements[1] = ((closureN)self_73431)->elements[1];


complex_num_type local_73996; 
return_direct_with_clo1(data,(closure)&c_73986,__lambda_68,  ((inline_function_type)
                   ((closure)__glo_app_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73996, ((closureN)self_73431)->elements[0]));}
;; 
}

static void __lambda_68(void *data, object self_73435, int argc, object *args) /* object self_73435, object r_73326 */
 {
 object r_73326 = args[0];
  if( (boolean_f != r_73326) ){ 
  return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  ((closureN)self_73435)->elements[1], __glo_sexp_91_125ast_scheme_cyclone_ast, ((closureN)self_73435)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73435)->elements[1], (((closure)  ((closureN)self_73435)->elements[1])->fn),  ((closureN)self_73435)->elements[0]);}
;; 
}

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


complex_num_type local_73978; 
return_direct_with_clo2(data,  __glo_sexp_91_125ast_scheme_cyclone_ast, (((closure)  __glo_sexp_91_125ast_scheme_cyclone_ast)->fn),  &c_73951, ((inline_function_type)
                   ((closure)__glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73978, ((closureN)self_73432)->elements[0]));; 
}

static void __lambda_66(void *data, object self_73433, int argc, object *args) /* object self_73433, object r_73319 */
 {
 object r_73319 = args[0];
  
closureN_type c_73953;
object e_73970 [3];
c_73953.hdr.mark = gc_color_red;
 c_73953.hdr.grayed = 0;
c_73953.tag = closureN_tag;
 c_73953.fn = (function_type)__lambda_67;
c_73953.num_args = 1;
c_73953.num_elements = 3;
c_73953.elements = (object *)e_73970;
c_73953.elements[0] = ((closureN)self_73433)->elements[1];
c_73953.elements[1] = ((closureN)self_73433)->elements[2];
c_73953.elements[2] = r_73319;


complex_num_type local_73973; 
return_direct_with_clo2(data,  __glo_sexp_91_125ast_scheme_cyclone_ast, (((closure)  __glo_sexp_91_125ast_scheme_cyclone_ast)->fn),  &c_73953, ((inline_function_type)
                   ((closure)__glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73973, ((closureN)self_73433)->elements[0]));; 
}

static void __lambda_67(void *data, object self_73434, int argc, object *args) /* object self_73434, object r_73321 */
 {
 object r_73321 = args[0];
  
pair_type local_73958; 

pair_type local_73961; 

pair_type local_73965; 

pair_type local_73969; 
return_direct_with_clo1(data,  ((closureN)self_73434)->elements[0], (((closure)  ((closureN)self_73434)->elements[0])->fn),  set_pair_as_expr(&local_73958, quote__if, set_pair_as_expr(&local_73961, ((closureN)self_73434)->elements[1], set_pair_as_expr(&local_73965, ((closureN)self_73434)->elements[2], set_pair_as_expr(&local_73969, r_73321, NULL)))));; 
}

static void __lambda_63(void *data, object self_73430, int argc, object *args) /* object self_73430, object r_73311 */
 {
 object r_73311 = args[0];
  
pair_type local_73930; 

pair_type local_73933; 

complex_num_type local_73936; 

pair_type local_73940; 
return_direct_with_clo1(data,  ((closureN)self_73430)->elements[1], (((closure)  ((closureN)self_73430)->elements[1])->fn),  set_pair_as_expr(&local_73930, quote_set_67, set_pair_as_expr(&local_73933, ((inline_function_type)
                   ((closure)__glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73936, ((closureN)self_73430)->elements[0]), set_pair_as_expr(&local_73940, r_73311, NULL))));; 
}

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


complex_num_type local_73918; 
return_direct_with_clo2(data,  __glo_sexp_91_125ast_scheme_cyclone_ast, (((closure)  __glo_sexp_91_125ast_scheme_cyclone_ast)->fn),  &c_73905, ((inline_function_type)
                   ((closure)__glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73918, ((closureN)self_73427)->elements[0]));; 
}

static void __lambda_61(void *data, object self_73428, int argc, object *args) /* object self_73428, object r_73304 */
 {
 object r_73304 = args[0];
  
pair_type local_73910; 

pair_type local_73913; 
return_direct_with_clo1(data,  ((closureN)self_73428)->elements[0], (((closure)  ((closureN)self_73428)->elements[0])->fn),  set_pair_as_expr(&local_73910, quote_define, set_pair_as_expr(&local_73913, ((closureN)self_73428)->elements[1], r_73304)));; 
}

static void __lambda_55(void *data, object self_73422, int argc, object *args) /* object self_73422, object r_73295 */
 {
 object r_73295 = args[0];
  
complex_num_type local_73878; 
return_direct_with_clo3(data,  __glo_ast_117make_91lambda_scheme_cyclone_ast, (((closure)  __glo_ast_117make_91lambda_scheme_cyclone_ast)->fn),  ((closureN)self_73422)->elements[1], ((inline_function_type)
                   ((closure)__glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73878, ((closureN)self_73422)->elements[0]), r_73295);; 
}

static void __lambda_32(void *data, object _, int argc, object *args) /* closure _,object k_73251, object exp_7358_73153 */
 {
object k_73251 = args[0]; object exp_7358_73153 = args[1];
  Cyc_st_add(data, "scheme/cyclone/ast.sld:ast->sexp");

closureN_type c_73708;
object e_73868 [2];
c_73708.hdr.mark = gc_color_red;
 c_73708.hdr.grayed = 0;
c_73708.tag = closureN_tag;
 c_73708.fn = (function_type)__lambda_33;
c_73708.num_args = 1;
c_73708.num_elements = 2;
c_73708.elements = (object *)e_73868;
c_73708.elements[0] = exp_7358_73153;
c_73708.elements[1] = k_73251;

return_direct_with_clo2(data,  __glo_ast_117lambda_127_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_127_scheme_cyclone_ast)->fn),  &c_73708, exp_7358_73153);; 
}

static void __lambda_33(void *data, object self_73401, int argc, object *args) /* object self_73401, object r_73252 */
 {
 object r_73252 = args[0];
  if( (boolean_f != r_73252) ){ 
  
closureN_type c_73710;
object e_73738 [2];
c_73710.hdr.mark = gc_color_red;
 c_73710.hdr.grayed = 0;
c_73710.tag = closureN_tag;
 c_73710.fn = (function_type)__lambda_34;
c_73710.num_args = 1;
c_73710.num_elements = 2;
c_73710.elements = (object *)e_73738;
c_73710.elements[0] = ((closureN)self_73401)->elements[0];
c_73710.elements[1] = ((closureN)self_73401)->elements[1];

return_direct_with_clo2(data,  __glo_ast_117lambda_91id_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_91id_scheme_cyclone_ast)->fn),  &c_73710, ((closureN)self_73401)->elements[0]);
} else { 
  
closureN_type c_73741;
object e_73866 [2];
c_73741.hdr.mark = gc_color_red;
 c_73741.hdr.grayed = 0;
c_73741.tag = closureN_tag;
 c_73741.fn = (function_type)__lambda_40;
c_73741.num_args = 1;
c_73741.num_elements = 2;
c_73741.elements = (object *)e_73866;
c_73741.elements[0] = ((closureN)self_73401)->elements[0];
c_73741.elements[1] = ((closureN)self_73401)->elements[1];

return_direct_with_clo2(data,  __glo_quote_127_scheme_cyclone_util, (((closure)  __glo_quote_127_scheme_cyclone_util)->fn),  &c_73741, ((closureN)self_73401)->elements[0]);}
;; 
}

static void __lambda_40(void *data, object self_73408, int argc, object *args) /* object self_73408, object r_73260 */
 {
 object r_73260 = args[0];
  if( (boolean_f != r_73260) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73408)->elements[1], (((closure)  ((closureN)self_73408)->elements[1])->fn),  ((closureN)self_73408)->elements[0]);
} else { 
  
closureN_type c_73746;
object e_73864 [2];
c_73746.hdr.mark = gc_color_red;
 c_73746.hdr.grayed = 0;
c_73746.tag = closureN_tag;
 c_73746.fn = (function_type)__lambda_41;
c_73746.num_args = 1;
c_73746.num_elements = 2;
c_73746.elements = (object *)e_73864;
c_73746.elements[0] = ((closureN)self_73408)->elements[0];
c_73746.elements[1] = ((closureN)self_73408)->elements[1];

return_direct_with_clo2(data,  __glo_const_127_scheme_cyclone_util, (((closure)  __glo_const_127_scheme_cyclone_util)->fn),  &c_73746, ((closureN)self_73408)->elements[0]);}
;; 
}

static void __lambda_41(void *data, object self_73409, int argc, object *args) /* object self_73409, object r_73261 */
 {
 object r_73261 = args[0];
  if( (boolean_f != r_73261) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73409)->elements[1], (((closure)  ((closureN)self_73409)->elements[1])->fn),  ((closureN)self_73409)->elements[0]);
} else { 
  
closureN_type c_73751;
object e_73859 [2];
c_73751.hdr.mark = gc_color_red;
 c_73751.hdr.grayed = 0;
c_73751.tag = closureN_tag;
 c_73751.fn = (function_type)__lambda_42;
c_73751.num_args = 1;
c_73751.num_elements = 2;
c_73751.elements = (object *)e_73859;
c_73751.elements[0] = ((closureN)self_73409)->elements[0];
c_73751.elements[1] = ((closureN)self_73409)->elements[1];


complex_num_type local_73862; 
return_direct_with_clo1(data,(closure)&c_73751,__lambda_42,  ((inline_function_type)
                   ((closure)__glo_ref_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73862, ((closureN)self_73409)->elements[0]));}
;; 
}

static void __lambda_42(void *data, object self_73410, int argc, object *args) /* object self_73410, object r_73262 */
 {
 object r_73262 = args[0];
  if( (boolean_f != r_73262) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73410)->elements[1], (((closure)  ((closureN)self_73410)->elements[1])->fn),  ((closureN)self_73410)->elements[0]);
} else { 
  
closureN_type c_73756;
object e_73857 [2];
c_73756.hdr.mark = gc_color_red;
 c_73756.hdr.grayed = 0;
c_73756.tag = closureN_tag;
 c_73756.fn = (function_type)__lambda_43;
c_73756.num_args = 1;
c_73756.num_elements = 2;
c_73756.elements = (object *)e_73857;
c_73756.elements[0] = ((closureN)self_73410)->elements[0];
c_73756.elements[1] = ((closureN)self_73410)->elements[1];

return_direct_with_clo2(data,  __glo_define_127_scheme_cyclone_util, (((closure)  __glo_define_127_scheme_cyclone_util)->fn),  &c_73756, ((closureN)self_73410)->elements[0]);}
;; 
}

static void __lambda_43(void *data, object self_73411, int argc, object *args) /* object self_73411, object r_73263 */
 {
 object r_73263 = args[0];
  if( (boolean_f != r_73263) ){ 
  
closureN_type c_73758;
object e_73775 [2];
c_73758.hdr.mark = gc_color_red;
 c_73758.hdr.grayed = 0;
c_73758.tag = closureN_tag;
 c_73758.fn = (function_type)__lambda_44;
c_73758.num_args = 1;
c_73758.num_elements = 2;
c_73758.elements = (object *)e_73775;
c_73758.elements[0] = ((closureN)self_73411)->elements[0];
c_73758.elements[1] = ((closureN)self_73411)->elements[1];

return_direct_with_clo2(data,  __glo_define_91_125var_scheme_cyclone_util, (((closure)  __glo_define_91_125var_scheme_cyclone_util)->fn),  &c_73758, ((closureN)self_73411)->elements[0]);
} else { 
  
closureN_type c_73778;
object e_73855 [2];
c_73778.hdr.mark = gc_color_red;
 c_73778.hdr.grayed = 0;
c_73778.tag = closureN_tag;
 c_73778.fn = (function_type)__lambda_46;
c_73778.num_args = 1;
c_73778.num_elements = 2;
c_73778.elements = (object *)e_73855;
c_73778.elements[0] = ((closureN)self_73411)->elements[0];
c_73778.elements[1] = ((closureN)self_73411)->elements[1];

return_direct_with_clo2(data,  __glo_set_67_127_scheme_cyclone_util, (((closure)  __glo_set_67_127_scheme_cyclone_util)->fn),  &c_73778, ((closureN)self_73411)->elements[0]);}
;; 
}

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


complex_num_type local_73799; 
return_direct_with_clo2(data,  __glo_ast_91_125sexp_scheme_cyclone_ast, (((closure)  __glo_ast_91_125sexp_scheme_cyclone_ast)->fn),  &c_73780, ((inline_function_type)
                   ((closure)__glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73799, ((closureN)self_73414)->elements[0]));
} else { 
  
closureN_type c_73802;
object e_73853 [2];
c_73802.hdr.mark = gc_color_red;
 c_73802.hdr.grayed = 0;
c_73802.tag = closureN_tag;
 c_73802.fn = (function_type)__lambda_48;
c_73802.num_args = 1;
c_73802.num_elements = 2;
c_73802.elements = (object *)e_73853;
c_73802.elements[0] = ((closureN)self_73414)->elements[0];
c_73802.elements[1] = ((closureN)self_73414)->elements[1];

return_direct_with_clo2(data,  __glo_if_127_scheme_cyclone_util, (((closure)  __glo_if_127_scheme_cyclone_util)->fn),  &c_73802, ((closureN)self_73414)->elements[0]);}
;; 
}

static void __lambda_48(void *data, object self_73416, int argc, object *args) /* object self_73416, object r_73277 */
 {
 object r_73277 = args[0];
  if( (boolean_f != r_73277) ){ 
  
closureN_type c_73804;
object e_73835 [2];
c_73804.hdr.mark = gc_color_red;
 c_73804.hdr.grayed = 0;
c_73804.tag = closureN_tag;
 c_73804.fn = (function_type)__lambda_49;
c_73804.num_args = 1;
c_73804.num_elements = 2;
c_73804.elements = (object *)e_73835;
c_73804.elements[0] = ((closureN)self_73416)->elements[0];
c_73804.elements[1] = ((closureN)self_73416)->elements[1];


complex_num_type local_73838; 
return_direct_with_clo2(data,  __glo_ast_91_125sexp_scheme_cyclone_ast, (((closure)  __glo_ast_91_125sexp_scheme_cyclone_ast)->fn),  &c_73804, ((inline_function_type)
                   ((closure)__glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73838, ((closureN)self_73416)->elements[0]));
} else { 
  
closureN_type c_73841;
object e_73848 [2];
c_73841.hdr.mark = gc_color_red;
 c_73841.hdr.grayed = 0;
c_73841.tag = closureN_tag;
 c_73841.fn = (function_type)__lambda_52;
c_73841.num_args = 1;
c_73841.num_elements = 2;
c_73841.elements = (object *)e_73848;
c_73841.elements[0] = ((closureN)self_73416)->elements[0];
c_73841.elements[1] = ((closureN)self_73416)->elements[1];


complex_num_type local_73851; 
return_direct_with_clo1(data,(closure)&c_73841,__lambda_52,  ((inline_function_type)
                   ((closure)__glo_app_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73851, ((closureN)self_73416)->elements[0]));}
;; 
}

static void __lambda_52(void *data, object self_73420, int argc, object *args) /* object self_73420, object r_73289 */
 {
 object r_73289 = args[0];
  if( (boolean_f != r_73289) ){ 
  return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  ((closureN)self_73420)->elements[1], __glo_ast_91_125sexp_scheme_cyclone_ast, ((closureN)self_73420)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73420)->elements[1], (((closure)  ((closureN)self_73420)->elements[1])->fn),  ((closureN)self_73420)->elements[0]);}
;; 
}

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


complex_num_type local_73833; 
return_direct_with_clo2(data,  __glo_ast_91_125sexp_scheme_cyclone_ast, (((closure)  __glo_ast_91_125sexp_scheme_cyclone_ast)->fn),  &c_73806, ((inline_function_type)
                   ((closure)__glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73833, ((closureN)self_73417)->elements[0]));; 
}

static void __lambda_50(void *data, object self_73418, int argc, object *args) /* object self_73418, object r_73282 */
 {
 object r_73282 = args[0];
  
closureN_type c_73808;
object e_73825 [3];
c_73808.hdr.mark = gc_color_red;
 c_73808.hdr.grayed = 0;
c_73808.tag = closureN_tag;
 c_73808.fn = (function_type)__lambda_51;
c_73808.num_args = 1;
c_73808.num_elements = 3;
c_73808.elements = (object *)e_73825;
c_73808.elements[0] = ((closureN)self_73418)->elements[1];
c_73808.elements[1] = ((closureN)self_73418)->elements[2];
c_73808.elements[2] = r_73282;


complex_num_type local_73828; 
return_direct_with_clo2(data,  __glo_ast_91_125sexp_scheme_cyclone_ast, (((closure)  __glo_ast_91_125sexp_scheme_cyclone_ast)->fn),  &c_73808, ((inline_function_type)
                   ((closure)__glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73828, ((closureN)self_73418)->elements[0]));; 
}

static void __lambda_51(void *data, object self_73419, int argc, object *args) /* object self_73419, object r_73284 */
 {
 object r_73284 = args[0];
  
pair_type local_73813; 

pair_type local_73816; 

pair_type local_73820; 

pair_type local_73824; 
return_direct_with_clo1(data,  ((closureN)self_73419)->elements[0], (((closure)  ((closureN)self_73419)->elements[0])->fn),  set_pair_as_expr(&local_73813, quote__if, set_pair_as_expr(&local_73816, ((closureN)self_73419)->elements[1], set_pair_as_expr(&local_73820, ((closureN)self_73419)->elements[2], set_pair_as_expr(&local_73824, r_73284, NULL)))));; 
}

static void __lambda_47(void *data, object self_73415, int argc, object *args) /* object self_73415, object r_73274 */
 {
 object r_73274 = args[0];
  
pair_type local_73785; 

pair_type local_73788; 

complex_num_type local_73791; 

pair_type local_73795; 
return_direct_with_clo1(data,  ((closureN)self_73415)->elements[1], (((closure)  ((closureN)self_73415)->elements[1])->fn),  set_pair_as_expr(&local_73785, quote_set_67, set_pair_as_expr(&local_73788, ((inline_function_type)
                   ((closure)__glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73791, ((closureN)self_73415)->elements[0]), set_pair_as_expr(&local_73795, r_73274, NULL))));; 
}

static void __lambda_44(void *data, object self_73412, int argc, object *args) /* object self_73412, object r_73266 */
 {
 object r_73266 = args[0];
  
closureN_type c_73760;
object e_73770 [2];
c_73760.hdr.mark = gc_color_red;
 c_73760.hdr.grayed = 0;
c_73760.tag = closureN_tag;
 c_73760.fn = (function_type)__lambda_45;
c_73760.num_args = 1;
c_73760.num_elements = 2;
c_73760.elements = (object *)e_73770;
c_73760.elements[0] = ((closureN)self_73412)->elements[1];
c_73760.elements[1] = r_73266;


complex_num_type local_73773; 
return_direct_with_clo2(data,  __glo_ast_91_125sexp_scheme_cyclone_ast, (((closure)  __glo_ast_91_125sexp_scheme_cyclone_ast)->fn),  &c_73760, ((inline_function_type)
                   ((closure)__glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73773, ((closureN)self_73412)->elements[0]));; 
}

static void __lambda_45(void *data, object self_73413, int argc, object *args) /* object self_73413, object r_73267 */
 {
 object r_73267 = args[0];
  
pair_type local_73765; 

pair_type local_73768; 
return_direct_with_clo1(data,  ((closureN)self_73413)->elements[0], (((closure)  ((closureN)self_73413)->elements[0])->fn),  set_pair_as_expr(&local_73765, quote_define, set_pair_as_expr(&local_73768, ((closureN)self_73413)->elements[1], r_73267)));; 
}

static void __lambda_34(void *data, object self_73402, int argc, object *args) /* object self_73402, object id_7364_73154 */
 {

  
closureN_type c_73712;
object e_73736 [2];
c_73712.hdr.mark = gc_color_red;
 c_73712.hdr.grayed = 0;
c_73712.tag = closureN_tag;
 c_73712.fn = (function_type)__lambda_35;
c_73712.num_args = 1;
c_73712.num_elements = 2;
c_73712.elements = (object *)e_73736;
c_73712.elements[0] = ((closureN)self_73402)->elements[0];
c_73712.elements[1] = ((closureN)self_73402)->elements[1];

return_direct_with_clo2(data,  __glo_ast_117lambda_91has_91cont_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_91has_91cont_scheme_cyclone_ast)->fn),  &c_73712, ((closureN)self_73402)->elements[0]);; 
}

static void __lambda_35(void *data, object self_73403, int argc, object *args) /* object self_73403, object has_91cont_7367_73155 */
 {

  
closureN_type c_73714;
object e_73734 [2];
c_73714.hdr.mark = gc_color_red;
 c_73714.hdr.grayed = 0;
c_73714.tag = closureN_tag;
 c_73714.fn = (function_type)__lambda_36;
c_73714.num_args = 1;
c_73714.num_elements = 2;
c_73714.elements = (object *)e_73734;
c_73714.elements[0] = ((closureN)self_73403)->elements[0];
c_73714.elements[1] = ((closureN)self_73403)->elements[1];

return_direct_with_clo2(data,  __glo_ast_117lambda_91args_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_91args_scheme_cyclone_ast)->fn),  &c_73714, ((closureN)self_73403)->elements[0]);; 
}

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

return_direct_with_clo2(data,  __glo_ast_117lambda_91body_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_91body_scheme_cyclone_ast)->fn),  &c_73716, ((closureN)self_73404)->elements[0]);; 
}

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

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73718, __glo_ast_91_125sexp_scheme_cyclone_ast, r_73259);; 
}

static void __lambda_38(void *data, object self_73406, int argc, object *args) /* object self_73406, object r_73258 */
 {
 object r_73258 = args[0];
  
closureN_type c_73720;
object e_73726 [1];
c_73720.hdr.mark = gc_color_red;
 c_73720.hdr.grayed = 0;
c_73720.tag = closureN_tag;
 c_73720.fn = (function_type)__lambda_39;
c_73720.num_args = 1;
c_73720.num_elements = 1;
c_73720.elements = (object *)e_73726;
c_73720.elements[0] = ((closureN)self_73406)->elements[0];


pair_type local_73729; 
return_direct_with_clo1(data,(closure)&c_73720,__lambda_39,  set_pair_as_expr(&local_73729, ((closureN)self_73406)->elements[1], r_73258));; 
}

static void __lambda_39(void *data, object self_73407, int argc, object *args) /* object self_73407, object r_73256 */
 {
 object r_73256 = args[0];
  
pair_type local_73725; 
return_direct_with_clo1(data,  ((closureN)self_73407)->elements[0], (((closure)  ((closureN)self_73407)->elements[0])->fn),  set_pair_as_expr(&local_73725, quote_lambda, r_73256));; 
}

static void __lambda_9(void *data, object _, int argc, object *args) /* closure _,object k_73206, object exp_7310_73149 */
 {
object k_73206 = args[0]; object exp_7310_73149 = args[1];
  Cyc_st_add(data, "scheme/cyclone/ast.sld:ast:ast->pp-sexp");

closureN_type c_73520;
object e_73705 [2];
c_73520.hdr.mark = gc_color_red;
 c_73520.hdr.grayed = 0;
c_73520.tag = closureN_tag;
 c_73520.fn = (function_type)__lambda_10;
c_73520.num_args = 1;
c_73520.num_elements = 2;
c_73520.elements = (object *)e_73705;
c_73520.elements[0] = exp_7310_73149;
c_73520.elements[1] = k_73206;

return_direct_with_clo2(data,  __glo_ast_117lambda_127_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_127_scheme_cyclone_ast)->fn),  &c_73520, exp_7310_73149);; 
}

static void __lambda_10(void *data, object self_73379, int argc, object *args) /* object self_73379, object r_73207 */
 {
 object r_73207 = args[0];
  if( (boolean_f != r_73207) ){ 
  
closureN_type c_73522;
object e_73575 [2];
c_73522.hdr.mark = gc_color_red;
 c_73522.hdr.grayed = 0;
c_73522.tag = closureN_tag;
 c_73522.fn = (function_type)__lambda_11;
c_73522.num_args = 1;
c_73522.num_elements = 2;
c_73522.elements = (object *)e_73575;
c_73522.elements[0] = ((closureN)self_73379)->elements[0];
c_73522.elements[1] = ((closureN)self_73379)->elements[1];

return_direct_with_clo2(data,  __glo_ast_117lambda_91id_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_91id_scheme_cyclone_ast)->fn),  &c_73522, ((closureN)self_73379)->elements[0]);
} else { 
  
closureN_type c_73578;
object e_73703 [2];
c_73578.hdr.mark = gc_color_red;
 c_73578.hdr.grayed = 0;
c_73578.tag = closureN_tag;
 c_73578.fn = (function_type)__lambda_19;
c_73578.num_args = 1;
c_73578.num_elements = 2;
c_73578.elements = (object *)e_73703;
c_73578.elements[0] = ((closureN)self_73379)->elements[0];
c_73578.elements[1] = ((closureN)self_73379)->elements[1];

return_direct_with_clo2(data,  __glo_quote_127_scheme_cyclone_util, (((closure)  __glo_quote_127_scheme_cyclone_util)->fn),  &c_73578, ((closureN)self_73379)->elements[0]);}
;; 
}

static void __lambda_19(void *data, object self_73388, int argc, object *args) /* object self_73388, object r_73219 */
 {
 object r_73219 = args[0];
  if( (boolean_f != r_73219) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73388)->elements[1], (((closure)  ((closureN)self_73388)->elements[1])->fn),  ((closureN)self_73388)->elements[0]);
} else { 
  
closureN_type c_73583;
object e_73701 [2];
c_73583.hdr.mark = gc_color_red;
 c_73583.hdr.grayed = 0;
c_73583.tag = closureN_tag;
 c_73583.fn = (function_type)__lambda_20;
c_73583.num_args = 1;
c_73583.num_elements = 2;
c_73583.elements = (object *)e_73701;
c_73583.elements[0] = ((closureN)self_73388)->elements[0];
c_73583.elements[1] = ((closureN)self_73388)->elements[1];

return_direct_with_clo2(data,  __glo_const_127_scheme_cyclone_util, (((closure)  __glo_const_127_scheme_cyclone_util)->fn),  &c_73583, ((closureN)self_73388)->elements[0]);}
;; 
}

static void __lambda_20(void *data, object self_73389, int argc, object *args) /* object self_73389, object r_73220 */
 {
 object r_73220 = args[0];
  if( (boolean_f != r_73220) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73389)->elements[1], (((closure)  ((closureN)self_73389)->elements[1])->fn),  ((closureN)self_73389)->elements[0]);
} else { 
  
closureN_type c_73588;
object e_73696 [2];
c_73588.hdr.mark = gc_color_red;
 c_73588.hdr.grayed = 0;
c_73588.tag = closureN_tag;
 c_73588.fn = (function_type)__lambda_21;
c_73588.num_args = 1;
c_73588.num_elements = 2;
c_73588.elements = (object *)e_73696;
c_73588.elements[0] = ((closureN)self_73389)->elements[0];
c_73588.elements[1] = ((closureN)self_73389)->elements[1];


complex_num_type local_73699; 
return_direct_with_clo1(data,(closure)&c_73588,__lambda_21,  ((inline_function_type)
                   ((closure)__glo_ref_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73699, ((closureN)self_73389)->elements[0]));}
;; 
}

static void __lambda_21(void *data, object self_73390, int argc, object *args) /* object self_73390, object r_73221 */
 {
 object r_73221 = args[0];
  if( (boolean_f != r_73221) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73390)->elements[1], (((closure)  ((closureN)self_73390)->elements[1])->fn),  ((closureN)self_73390)->elements[0]);
} else { 
  
closureN_type c_73593;
object e_73694 [2];
c_73593.hdr.mark = gc_color_red;
 c_73593.hdr.grayed = 0;
c_73593.tag = closureN_tag;
 c_73593.fn = (function_type)__lambda_22;
c_73593.num_args = 1;
c_73593.num_elements = 2;
c_73593.elements = (object *)e_73694;
c_73593.elements[0] = ((closureN)self_73390)->elements[0];
c_73593.elements[1] = ((closureN)self_73390)->elements[1];

return_direct_with_clo2(data,  __glo_define_127_scheme_cyclone_util, (((closure)  __glo_define_127_scheme_cyclone_util)->fn),  &c_73593, ((closureN)self_73390)->elements[0]);}
;; 
}

static void __lambda_22(void *data, object self_73391, int argc, object *args) /* object self_73391, object r_73222 */
 {
 object r_73222 = args[0];
  if( (boolean_f != r_73222) ){ 
  
closureN_type c_73595;
object e_73612 [2];
c_73595.hdr.mark = gc_color_red;
 c_73595.hdr.grayed = 0;
c_73595.tag = closureN_tag;
 c_73595.fn = (function_type)__lambda_23;
c_73595.num_args = 1;
c_73595.num_elements = 2;
c_73595.elements = (object *)e_73612;
c_73595.elements[0] = ((closureN)self_73391)->elements[0];
c_73595.elements[1] = ((closureN)self_73391)->elements[1];

return_direct_with_clo2(data,  __glo_define_91_125var_scheme_cyclone_util, (((closure)  __glo_define_91_125var_scheme_cyclone_util)->fn),  &c_73595, ((closureN)self_73391)->elements[0]);
} else { 
  
closureN_type c_73615;
object e_73692 [2];
c_73615.hdr.mark = gc_color_red;
 c_73615.hdr.grayed = 0;
c_73615.tag = closureN_tag;
 c_73615.fn = (function_type)__lambda_25;
c_73615.num_args = 1;
c_73615.num_elements = 2;
c_73615.elements = (object *)e_73692;
c_73615.elements[0] = ((closureN)self_73391)->elements[0];
c_73615.elements[1] = ((closureN)self_73391)->elements[1];

return_direct_with_clo2(data,  __glo_set_67_127_scheme_cyclone_util, (((closure)  __glo_set_67_127_scheme_cyclone_util)->fn),  &c_73615, ((closureN)self_73391)->elements[0]);}
;; 
}

static void __lambda_25(void *data, object self_73394, int argc, object *args) /* object self_73394, object r_73228 */
 {
 object r_73228 = args[0];
  if( (boolean_f != r_73228) ){ 
  
closureN_type c_73617;
object e_73633 [2];
c_73617.hdr.mark = gc_color_red;
 c_73617.hdr.grayed = 0;
c_73617.tag = closureN_tag;
 c_73617.fn = (function_type)__lambda_26;
c_73617.num_args = 1;
c_73617.num_elements = 2;
c_73617.elements = (object *)e_73633;
c_73617.elements[0] = ((closureN)self_73394)->elements[0];
c_73617.elements[1] = ((closureN)self_73394)->elements[1];


complex_num_type local_73636; 
return_direct_with_clo2(data,  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast, (((closure)  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast)->fn),  &c_73617, ((inline_function_type)
                   ((closure)__glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73636, ((closureN)self_73394)->elements[0]));
} else { 
  
closureN_type c_73639;
object e_73690 [2];
c_73639.hdr.mark = gc_color_red;
 c_73639.hdr.grayed = 0;
c_73639.tag = closureN_tag;
 c_73639.fn = (function_type)__lambda_27;
c_73639.num_args = 1;
c_73639.num_elements = 2;
c_73639.elements = (object *)e_73690;
c_73639.elements[0] = ((closureN)self_73394)->elements[0];
c_73639.elements[1] = ((closureN)self_73394)->elements[1];

return_direct_with_clo2(data,  __glo_if_127_scheme_cyclone_util, (((closure)  __glo_if_127_scheme_cyclone_util)->fn),  &c_73639, ((closureN)self_73394)->elements[0]);}
;; 
}

static void __lambda_27(void *data, object self_73396, int argc, object *args) /* object self_73396, object r_73236 */
 {
 object r_73236 = args[0];
  if( (boolean_f != r_73236) ){ 
  
closureN_type c_73641;
object e_73672 [2];
c_73641.hdr.mark = gc_color_red;
 c_73641.hdr.grayed = 0;
c_73641.tag = closureN_tag;
 c_73641.fn = (function_type)__lambda_28;
c_73641.num_args = 1;
c_73641.num_elements = 2;
c_73641.elements = (object *)e_73672;
c_73641.elements[0] = ((closureN)self_73396)->elements[0];
c_73641.elements[1] = ((closureN)self_73396)->elements[1];


complex_num_type local_73675; 
return_direct_with_clo2(data,  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast, (((closure)  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast)->fn),  &c_73641, ((inline_function_type)
                   ((closure)__glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73675, ((closureN)self_73396)->elements[0]));
} else { 
  
closureN_type c_73678;
object e_73685 [2];
c_73678.hdr.mark = gc_color_red;
 c_73678.hdr.grayed = 0;
c_73678.tag = closureN_tag;
 c_73678.fn = (function_type)__lambda_31;
c_73678.num_args = 1;
c_73678.num_elements = 2;
c_73678.elements = (object *)e_73685;
c_73678.elements[0] = ((closureN)self_73396)->elements[0];
c_73678.elements[1] = ((closureN)self_73396)->elements[1];


complex_num_type local_73688; 
return_direct_with_clo1(data,(closure)&c_73678,__lambda_31,  ((inline_function_type)
                   ((closure)__glo_app_127_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73688, ((closureN)self_73396)->elements[0]));}
;; 
}

static void __lambda_31(void *data, object self_73400, int argc, object *args) /* object self_73400, object r_73248 */
 {
 object r_73248 = args[0];
  if( (boolean_f != r_73248) ){ 
  return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  ((closureN)self_73400)->elements[1], __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast, ((closureN)self_73400)->elements[0]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73400)->elements[1], (((closure)  ((closureN)self_73400)->elements[1])->fn),  ((closureN)self_73400)->elements[0]);}
;; 
}

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


complex_num_type local_73670; 
return_direct_with_clo2(data,  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast, (((closure)  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast)->fn),  &c_73643, ((inline_function_type)
                   ((closure)__glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73670, ((closureN)self_73397)->elements[0]));; 
}

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


complex_num_type local_73665; 
return_direct_with_clo2(data,  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast, (((closure)  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast)->fn),  &c_73645, ((inline_function_type)
                   ((closure)__glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73665, ((closureN)self_73398)->elements[0]));; 
}

static void __lambda_30(void *data, object self_73399, int argc, object *args) /* object self_73399, object r_73243 */
 {
 object r_73243 = args[0];
  
pair_type local_73650; 

pair_type local_73653; 

pair_type local_73657; 

pair_type local_73661; 
return_direct_with_clo1(data,  ((closureN)self_73399)->elements[0], (((closure)  ((closureN)self_73399)->elements[0])->fn),  set_pair_as_expr(&local_73650, quote__if, set_pair_as_expr(&local_73653, ((closureN)self_73399)->elements[1], set_pair_as_expr(&local_73657, ((closureN)self_73399)->elements[2], set_pair_as_expr(&local_73661, r_73243, NULL)))));; 
}

static void __lambda_26(void *data, object self_73395, int argc, object *args) /* object self_73395, object r_73233 */
 {
 object r_73233 = args[0];
  
pair_type local_73622; 

pair_type local_73625; 

complex_num_type local_73628; 

pair_type local_73632; 
return_direct_with_clo1(data,  ((closureN)self_73395)->elements[1], (((closure)  ((closureN)self_73395)->elements[1])->fn),  set_pair_as_expr(&local_73622, quote_set_67, set_pair_as_expr(&local_73625, ((inline_function_type)
                   ((closure)__glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73628, ((closureN)self_73395)->elements[0]), set_pair_as_expr(&local_73632, r_73233, NULL))));; 
}

static void __lambda_23(void *data, object self_73392, int argc, object *args) /* object self_73392, object r_73225 */
 {
 object r_73225 = args[0];
  
closureN_type c_73597;
object e_73607 [2];
c_73597.hdr.mark = gc_color_red;
 c_73597.hdr.grayed = 0;
c_73597.tag = closureN_tag;
 c_73597.fn = (function_type)__lambda_24;
c_73597.num_args = 1;
c_73597.num_elements = 2;
c_73597.elements = (object *)e_73607;
c_73597.elements[0] = ((closureN)self_73392)->elements[1];
c_73597.elements[1] = r_73225;


complex_num_type local_73610; 
return_direct_with_clo2(data,  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast, (((closure)  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast)->fn),  &c_73597, ((inline_function_type)
                   ((closure)__glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util)->fn)(data,&local_73610, ((closureN)self_73392)->elements[0]));; 
}

static void __lambda_24(void *data, object self_73393, int argc, object *args) /* object self_73393, object r_73226 */
 {
 object r_73226 = args[0];
  
pair_type local_73602; 

pair_type local_73605; 
return_direct_with_clo1(data,  ((closureN)self_73393)->elements[0], (((closure)  ((closureN)self_73393)->elements[0])->fn),  set_pair_as_expr(&local_73602, quote_define, set_pair_as_expr(&local_73605, ((closureN)self_73393)->elements[1], r_73226)));; 
}

static void __lambda_11(void *data, object self_73380, int argc, object *args) /* object self_73380, object id_7316_73150 */
 {
 object id_7316_73150 = args[0];
  
closureN_type c_73524;
object e_73573 [3];
c_73524.hdr.mark = gc_color_red;
 c_73524.hdr.grayed = 0;
c_73524.tag = closureN_tag;
 c_73524.fn = (function_type)__lambda_12;
c_73524.num_args = 1;
c_73524.num_elements = 3;
c_73524.elements = (object *)e_73573;
c_73524.elements[0] = ((closureN)self_73380)->elements[0];
c_73524.elements[1] = id_7316_73150;
c_73524.elements[2] = ((closureN)self_73380)->elements[1];

return_direct_with_clo2(data,  __glo_ast_117lambda_91has_91cont_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_91has_91cont_scheme_cyclone_ast)->fn),  &c_73524, ((closureN)self_73380)->elements[0]);; 
}

static void __lambda_12(void *data, object self_73381, int argc, object *args) /* object self_73381, object has_91cont_7319_73151 */
 {
 object has_91cont_7319_73151 = args[0];
  
closureN_type c_73526;
object e_73568 [3];
c_73526.hdr.mark = gc_color_red;
 c_73526.hdr.grayed = 0;
c_73526.tag = closureN_tag;
 c_73526.fn = (function_type)__lambda_13;
c_73526.num_args = 1;
c_73526.num_elements = 3;
c_73526.elements = (object *)e_73568;
c_73526.elements[0] = ((closureN)self_73381)->elements[0];
c_73526.elements[1] = has_91cont_7319_73151;
c_73526.elements[2] = ((closureN)self_73381)->elements[2];


object c_73571 = Cyc_number2string2(data,(closure)&c_73526,1,((closureN)self_73381)->elements[1]);
return_closcall1(data,(closure)&c_73526,  c_73571);; 
}

static void __lambda_13(void *data, object self_73382, int argc, object *args) /* object self_73382, object r_73216 */
 {
 object r_73216 = args[0];
  object r_73217;
  if( (boolean_f != ((closureN)self_73382)->elements[1]) ){ 
  object c_73530;
 alloc_string(data,c_73530, 5, 5);
char tmp_73531[] = "-cont";
memcpy(((string_type *)c_73530)->str, tmp_73531,5);
((string_type *)c_73530)->str[5] = '\0';
  r_73217 = c_73530;
} else { 
  object c_73533;
 alloc_string(data,c_73533, 0, 0);
char tmp_73534[] = "";
memcpy(((string_type *)c_73533)->str, tmp_73534,0);
((string_type *)c_73533)->str[0] = '\0';
  r_73217 = c_73533;}
;
closureN_type c_73536;
object e_73563 [2];
c_73536.hdr.mark = gc_color_red;
 c_73536.hdr.grayed = 0;
c_73536.tag = closureN_tag;
 c_73536.fn = (function_type)__lambda_14;
c_73536.num_args = 1;
c_73536.num_elements = 2;
c_73536.elements = (object *)e_73563;
c_73536.elements[0] = ((closureN)self_73382)->elements[0];
c_73536.elements[1] = ((closureN)self_73382)->elements[2];


make_utf8_string_with_len(c_73567, "lambda-", 7, 7);

object c_73566 = Cyc_string_append(data,(closure)&c_73536,3,&c_73567, r_73216, r_73217);
return_closcall1(data,(closure)&c_73536,  c_73566);; 
}

static void __lambda_14(void *data, object self_73383, int argc, object *args) /* object self_73383, object r_73215 */
 {
 object r_73215 = args[0];
  
closureN_type c_73538;
object e_73561 [3];
c_73538.hdr.mark = gc_color_red;
 c_73538.hdr.grayed = 0;
c_73538.tag = closureN_tag;
 c_73538.fn = (function_type)__lambda_15;
c_73538.num_args = 1;
c_73538.num_elements = 3;
c_73538.elements = (object *)e_73561;
c_73538.elements[0] = ((closureN)self_73383)->elements[0];
c_73538.elements[1] = ((closureN)self_73383)->elements[1];
c_73538.elements[2] = r_73215;

return_direct_with_clo2(data,  __glo_ast_117lambda_91args_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_91args_scheme_cyclone_ast)->fn),  &c_73538, ((closureN)self_73383)->elements[0]);; 
}

static void __lambda_15(void *data, object self_73384, int argc, object *args) /* object self_73384, object r_73212 */
 {
 object r_73212 = args[0];
  
closureN_type c_73540;
object e_73559 [3];
c_73540.hdr.mark = gc_color_red;
 c_73540.hdr.grayed = 0;
c_73540.tag = closureN_tag;
 c_73540.fn = (function_type)__lambda_16;
c_73540.num_args = 1;
c_73540.num_elements = 3;
c_73540.elements = (object *)e_73559;
c_73540.elements[0] = ((closureN)self_73384)->elements[1];
c_73540.elements[1] = r_73212;
c_73540.elements[2] = ((closureN)self_73384)->elements[2];

return_direct_with_clo2(data,  __glo_ast_117lambda_91body_scheme_cyclone_ast, (((closure)  __glo_ast_117lambda_91body_scheme_cyclone_ast)->fn),  &c_73540, ((closureN)self_73384)->elements[0]);; 
}

static void __lambda_16(void *data, object self_73385, int argc, object *args) /* object self_73385, object r_73214 */
 {
 object r_73214 = args[0];
  
closureN_type c_73542;
object e_73558 [3];
c_73542.hdr.mark = gc_color_red;
 c_73542.hdr.grayed = 0;
c_73542.tag = closureN_tag;
 c_73542.fn = (function_type)__lambda_17;
c_73542.num_args = 1;
c_73542.num_elements = 3;
c_73542.elements = (object *)e_73558;
c_73542.elements[0] = ((closureN)self_73385)->elements[0];
c_73542.elements[1] = ((closureN)self_73385)->elements[1];
c_73542.elements[2] = ((closureN)self_73385)->elements[2];

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73542, __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast, r_73214);; 
}

static void __lambda_17(void *data, object self_73386, int argc, object *args) /* object self_73386, object r_73213 */
 {
 object r_73213 = args[0];
  
closureN_type c_73544;
object e_73553 [2];
c_73544.hdr.mark = gc_color_red;
 c_73544.hdr.grayed = 0;
c_73544.tag = closureN_tag;
 c_73544.fn = (function_type)__lambda_18;
c_73544.num_args = 1;
c_73544.num_elements = 2;
c_73544.elements = (object *)e_73553;
c_73544.elements[0] = ((closureN)self_73386)->elements[0];
c_73544.elements[1] = ((closureN)self_73386)->elements[2];


pair_type local_73556; 
return_direct_with_clo1(data,(closure)&c_73544,__lambda_18,  set_pair_as_expr(&local_73556, ((closureN)self_73386)->elements[1], r_73213));; 
}

static void __lambda_18(void *data, object self_73387, int argc, object *args) /* object self_73387, object r_73211 */
 {
 object r_73211 = args[0];
  
pair_type local_73549; 


return_direct_with_clo1(data,  ((closureN)self_73387)->elements[0], (((closure)  ((closureN)self_73387)->elements[0])->fn),  set_pair_as_expr(&local_73549, Cyc_string2symbol(data, ((closureN)self_73387)->elements[1]), r_73211));; 
}

static void __lambda_6(void *data, object _, int argc, object *args) /* closure _,object k_73198, object args_736_73145, object body_737_73146, object opts_738_73147_raw, ... */
 {
object k_73198 = args[0]; object args_736_73145 = args[1]; object body_737_73146 = args[2];
load_varargs(opts_738_73147, args, 3, argc - 3);
  object has_91cont_739_73148;
  Cyc_st_add(data, "scheme/cyclone/ast.sld:ast:make-lambda");
  
if( (boolean_f != Cyc_is_pair(opts_738_73147)) ){ 
  
  has_91cont_739_73148 = Cyc_car(data, opts_738_73147);
} else { 
  has_91cont_739_73148 = boolean_f;}
;
closureN_type c_73502;
object e_73514 [4];
c_73502.hdr.mark = gc_color_red;
 c_73502.hdr.grayed = 0;
c_73502.tag = closureN_tag;
 c_73502.fn = (function_type)__lambda_7;
c_73502.num_args = 1;
c_73502.num_elements = 4;
c_73502.elements = (object *)e_73514;
c_73502.elements[0] = args_736_73145;
c_73502.elements[1] = body_737_73146;
c_73502.elements[2] = has_91cont_739_73148;
c_73502.elements[3] = k_73198;


complex_num_type local_73517; 
return_direct_with_clo1(data,(closure)&c_73502,__lambda_7,  Cyc_fast_sum(data,&local_73517, obj_int2obj(1), __glo__85lambda_91id_85_scheme_cyclone_ast));; 
}

static void __lambda_7(void *data, object self_73377, int argc, object *args) /* object self_73377, object r_73201 */
 {
 object r_73201 = args[0];
  
closureN_type c_73504;
object e_73510 [4];
c_73504.hdr.mark = gc_color_red;
 c_73504.hdr.grayed = 0;
c_73504.tag = closureN_tag;
 c_73504.fn = (function_type)__lambda_8;
c_73504.num_args = 1;
c_73504.num_elements = 4;
c_73504.elements = (object *)e_73510;
c_73504.elements[0] = ((closureN)self_73377)->elements[0];
c_73504.elements[1] = ((closureN)self_73377)->elements[1];
c_73504.elements[2] = ((closureN)self_73377)->elements[2];
c_73504.elements[3] = ((closureN)self_73377)->elements[3];


object c_73513 = global_set_cps_id(data,(closure)&c_73504,"__glo__85lambda_91id_85_scheme_cyclone_ast", __glo__85lambda_91id_85_scheme_cyclone_ast, r_73201);
return_closcall1(data,(closure)&c_73504,  c_73513);; 
}

static void __lambda_8(void *data, object self_73378, int argc, object *args) /* object self_73378, object r_73200 */
 {

  return_direct_with_clo5(data,  __glo_ast_117_75make_91lambda_scheme_cyclone_ast, (((closure)  __glo_ast_117_75make_91lambda_scheme_cyclone_ast)->fn),  ((closureN)self_73378)->elements[3], __glo__85lambda_91id_85_scheme_cyclone_ast, ((closureN)self_73378)->elements[0], ((closureN)self_73378)->elements[1], ((closureN)self_73378)->elements[2]);; 
}

static void __lambda_5(void *data, object _, int argc, object *args) /* closure _,object k_73192, object id_732_73141, object args_733_73142, object body_734_73143, object has_91cont_735_73144 */
 {
object k_73192 = args[0]; object id_732_73141 = args[1]; object args_733_73142 = args[2]; object body_734_73143 = args[3]; object has_91cont_735_73144 = args[4];
  Cyc_st_add(data, "scheme/cyclone/ast.sld:ast:%make-lambda");

vector_3_type local_73486; 

complex_num_type local_73489; 

vector_4_type local_73492; 
return_direct_with_clo1(data,  k_73192, (((closure)  k_73192)->fn),  Cyc_fast_vector_3(&local_73486, ((inline_function_type)
                   ((closure)__glo_make_91record_91marker_191_191inline_191_191_scheme_base)->fn)(data,&local_73489), quote__121lambda_91ast_125, Cyc_fast_vector_4(&local_73492, id_732_73141, args_733_73142, body_734_73143, has_91cont_735_73144)));; 
}

static void __lambda_4(void *data, object _, int argc, object *args) /* closure _,object k_73171 */
 {
object k_73171 = args[0];
  Cyc_st_add(data, "scheme/cyclone/ast.sld:ast:reset-lambda-ids!");

object c_73481 = global_set_cps_id(data,  k_73171,"__glo__85lambda_91id_85_scheme_cyclone_ast", __glo__85lambda_91id_85_scheme_cyclone_ast, obj_int2obj(0));
return_direct_with_clo1(data,  k_73171, (((closure)  k_73171)->fn),  c_73481);; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_73166 */
 {
object k_73166 = args[0];
  Cyc_st_add(data, "scheme/cyclone/ast.sld:ast:get-next-lambda-id!");

closureN_type c_73464;
object e_73473 [1];
c_73464.hdr.mark = gc_color_red;
 c_73464.hdr.grayed = 0;
c_73464.tag = closureN_tag;
 c_73464.fn = (function_type)__lambda_2;
c_73464.num_args = 1;
c_73464.num_elements = 1;
c_73464.elements = (object *)e_73473;
c_73464.elements[0] = k_73166;


complex_num_type local_73476; 
return_direct_with_clo1(data,(closure)&c_73464,__lambda_2,  Cyc_fast_sum(data,&local_73476, obj_int2obj(1), __glo__85lambda_91id_85_scheme_cyclone_ast));; 
}

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


object c_73472 = global_set_cps_id(data,(closure)&c_73466,"__glo__85lambda_91id_85_scheme_cyclone_ast", __glo__85lambda_91id_85_scheme_cyclone_ast, r_73168);
return_closcall1(data,(closure)&c_73466,  c_73472);; 
}

static void __lambda_3(void *data, object self_73376, int argc, object *args) /* object self_73376, object r_73167 */
 {

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

void c_schemecycloneast_inlinable_lambdas(void *data, object clo, int argc, object *args){ 
object buf[1]; object cont = args[0];
buf[0] = NULL; (((closure)cont)->fn)(data, cont, 1, buf);
 } 
void c_schemecycloneast_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_ast_117ast_91_125sexp = find_or_add_symbol("ast:ast->sexp");
  quote_ast_117sexp_91_125ast = find_or_add_symbol("ast:sexp->ast");
  quote_ast_117lambda_127 = find_or_add_symbol("ast:lambda?");
  quote_id = find_or_add_symbol("id");
  quote_ast_117lambda_91id = find_or_add_symbol("ast:lambda-id");
  quote_ast_117lambda_91args = find_or_add_symbol("ast:lambda-args");
  quote_ast_117lambda_91body = find_or_add_symbol("ast:lambda-body");
  quote_ast_117lambda_91has_91cont = find_or_add_symbol("ast:lambda-has-cont");
  quote_args = find_or_add_symbol("args");
  quote_ast_117set_91lambda_91args_67 = find_or_add_symbol("ast:set-lambda-args!");
  quote_body = find_or_add_symbol("body");
  quote_ast_117set_91lambda_91body_67 = find_or_add_symbol("ast:set-lambda-body!");
  quote_has_91cont = find_or_add_symbol("has-cont");
  quote_ast_117set_91lambda_91has_91cont_67 = find_or_add_symbol("ast:set-lambda-has-cont!");
  quote_lambda = find_or_add_symbol("lambda");
  quote__if = find_or_add_symbol("if");
  quote_set_67 = find_or_add_symbol("set!");
  quote_define = find_or_add_symbol("define");
  quote__121lambda_91ast_125 = find_or_add_symbol("<lambda-ast>");
  quote__85lambda_91id_85 = find_or_add_symbol("*lambda-id*");

  add_global("__glo_lib_91init_117schemecycloneast_scheme_cyclone_ast", (object *) &__glo_lib_91init_117schemecycloneast_scheme_cyclone_ast);
  add_global("__glo_sexp_91_125ast_scheme_cyclone_ast", (object *) &__glo_sexp_91_125ast_scheme_cyclone_ast);
  add_global("__glo_ast_91_125sexp_scheme_cyclone_ast", (object *) &__glo_ast_91_125sexp_scheme_cyclone_ast);
  add_global("__glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast", (object *) &__glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast);
  add_global("__glo_ast_117make_91lambda_scheme_cyclone_ast", (object *) &__glo_ast_117make_91lambda_scheme_cyclone_ast);
  add_global("__glo_ast_117_75make_91lambda_scheme_cyclone_ast", (object *) &__glo_ast_117_75make_91lambda_scheme_cyclone_ast);
  add_global("__glo_ast_117set_91lambda_91has_91cont_67_scheme_cyclone_ast", (object *) &__glo_ast_117set_91lambda_91has_91cont_67_scheme_cyclone_ast);
  add_global("__glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast", (object *) &__glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast);
  add_global("__glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast", (object *) &__glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast);
  add_global("__glo_ast_117lambda_91has_91cont_scheme_cyclone_ast", (object *) &__glo_ast_117lambda_91has_91cont_scheme_cyclone_ast);
  add_global("__glo_ast_117lambda_91body_scheme_cyclone_ast", (object *) &__glo_ast_117lambda_91body_scheme_cyclone_ast);
  add_global("__glo_ast_117lambda_91args_scheme_cyclone_ast", (object *) &__glo_ast_117lambda_91args_scheme_cyclone_ast);
  add_global("__glo_ast_117lambda_91id_scheme_cyclone_ast", (object *) &__glo_ast_117lambda_91id_scheme_cyclone_ast);
  add_global("__glo_ast_117lambda_127_scheme_cyclone_ast", (object *) &__glo_ast_117lambda_127_scheme_cyclone_ast);
  add_global("__glo__121lambda_91ast_125_scheme_cyclone_ast", (object *) &__glo__121lambda_91ast_125_scheme_cyclone_ast);
  add_global("__glo_ast_117reset_91lambda_91ids_67_scheme_cyclone_ast", (object *) &__glo_ast_117reset_91lambda_91ids_67_scheme_cyclone_ast);
  add_global("__glo_ast_117get_91next_91lambda_91id_67_scheme_cyclone_ast", (object *) &__glo_ast_117get_91next_91lambda_91id_67_scheme_cyclone_ast);
  add_global("__glo__85lambda_91id_85_scheme_cyclone_ast", (object *) &__glo__85lambda_91id_85_scheme_cyclone_ast);
  add_global("__glo_ast_117sexp_91_125ast_scheme_cyclone_ast", (object *) &__glo_ast_117sexp_91_125ast_scheme_cyclone_ast);
  add_global("__glo_ast_117ast_91_125sexp_scheme_cyclone_ast", (object *) &__glo_ast_117ast_91_125sexp_scheme_cyclone_ast);
  mclosure0(c_731014, (function_type)__lambda_69);c_731014.num_args = 0; 
  __glo_lib_91init_117schemecycloneast_scheme_cyclone_ast = &c_731014; 
  mclosure0(c_73869, (function_type)__lambda_53);c_73869.num_args = 1; 
  __glo_sexp_91_125ast_scheme_cyclone_ast = &c_73869; 
  mclosure0(c_73706, (function_type)__lambda_32);c_73706.num_args = 1; 
  __glo_ast_91_125sexp_scheme_cyclone_ast = &c_73706; 
  mclosure0(c_73518, (function_type)__lambda_9);c_73518.num_args = 1; 
  __glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast = &c_73518; 
  mclosure0(c_73493, (function_type)__lambda_6);c_73493.num_args = 2; 
  __glo_ast_117make_91lambda_scheme_cyclone_ast = &c_73493; 
  mclosure0(c_73482, (function_type)__lambda_5);c_73482.num_args = 4; 
  __glo_ast_117_75make_91lambda_scheme_cyclone_ast = &c_73482; 
  mclosure0(c_73477, (function_type)__lambda_4);c_73477.num_args = 0; 
  __glo_ast_117reset_91lambda_91ids_67_scheme_cyclone_ast = &c_73477; 
  mclosure0(c_73462, (function_type)__lambda_1);c_73462.num_args = 0; 
  __glo_ast_117get_91next_91lambda_91id_67_scheme_cyclone_ast = &c_73462; 
  __glo_ast_117set_91lambda_91has_91cont_67_scheme_cyclone_ast = boolean_f; 
  __glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast = boolean_f; 
  __glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast = boolean_f; 
  __glo_ast_117lambda_91has_91cont_scheme_cyclone_ast = boolean_f; 
  __glo_ast_117lambda_91body_scheme_cyclone_ast = boolean_f; 
  __glo_ast_117lambda_91args_scheme_cyclone_ast = boolean_f; 
  __glo_ast_117lambda_91id_scheme_cyclone_ast = boolean_f; 
  __glo_ast_117lambda_127_scheme_cyclone_ast = boolean_f; 
  __glo__121lambda_91ast_125_scheme_cyclone_ast = boolean_f; 
  __glo__85lambda_91id_85_scheme_cyclone_ast = obj_int2obj(0); 
  __glo_ast_117sexp_91_125ast_scheme_cyclone_ast = boolean_f; 
  __glo_ast_117ast_91_125sexp_scheme_cyclone_ast = boolean_f; 

  mclosure0(clo_731140, c_schemecycloneast_inlinable_lambdas); make_pair(pair_731139, find_or_add_symbol("c_schemecycloneast_inlinable_lambdas"), &clo_731140);
  make_cvar(cvar_731141, (object *)&__glo_lib_91init_117schemecycloneast_scheme_cyclone_ast);make_pair(pair_731142, find_or_add_symbol("lib-init:schemecycloneast"), &cvar_731141);
  make_cvar(cvar_731143, (object *)&__glo_sexp_91_125ast_scheme_cyclone_ast);make_pair(pair_731144, find_or_add_symbol("sexp->ast"), &cvar_731143);
  make_cvar(cvar_731145, (object *)&__glo_ast_91_125sexp_scheme_cyclone_ast);make_pair(pair_731146, find_or_add_symbol("ast->sexp"), &cvar_731145);
  make_cvar(cvar_731147, (object *)&__glo_ast_117ast_91_125pp_91sexp_scheme_cyclone_ast);make_pair(pair_731148, find_or_add_symbol("ast:ast->pp-sexp"), &cvar_731147);
  make_cvar(cvar_731149, (object *)&__glo_ast_117make_91lambda_scheme_cyclone_ast);make_pair(pair_731150, find_or_add_symbol("ast:make-lambda"), &cvar_731149);
  make_cvar(cvar_731151, (object *)&__glo_ast_117_75make_91lambda_scheme_cyclone_ast);make_pair(pair_731152, find_or_add_symbol("ast:%make-lambda"), &cvar_731151);
  make_cvar(cvar_731153, (object *)&__glo_ast_117set_91lambda_91has_91cont_67_scheme_cyclone_ast);make_pair(pair_731154, find_or_add_symbol("ast:set-lambda-has-cont!"), &cvar_731153);
  make_cvar(cvar_731155, (object *)&__glo_ast_117set_91lambda_91body_67_scheme_cyclone_ast);make_pair(pair_731156, find_or_add_symbol("ast:set-lambda-body!"), &cvar_731155);
  make_cvar(cvar_731157, (object *)&__glo_ast_117set_91lambda_91args_67_scheme_cyclone_ast);make_pair(pair_731158, find_or_add_symbol("ast:set-lambda-args!"), &cvar_731157);
  make_cvar(cvar_731159, (object *)&__glo_ast_117lambda_91has_91cont_scheme_cyclone_ast);make_pair(pair_731160, find_or_add_symbol("ast:lambda-has-cont"), &cvar_731159);
  make_cvar(cvar_731161, (object *)&__glo_ast_117lambda_91body_scheme_cyclone_ast);make_pair(pair_731162, find_or_add_symbol("ast:lambda-body"), &cvar_731161);
  make_cvar(cvar_731163, (object *)&__glo_ast_117lambda_91args_scheme_cyclone_ast);make_pair(pair_731164, find_or_add_symbol("ast:lambda-args"), &cvar_731163);
  make_cvar(cvar_731165, (object *)&__glo_ast_117lambda_91id_scheme_cyclone_ast);make_pair(pair_731166, find_or_add_symbol("ast:lambda-id"), &cvar_731165);
  make_cvar(cvar_731167, (object *)&__glo_ast_117lambda_127_scheme_cyclone_ast);make_pair(pair_731168, find_or_add_symbol("ast:lambda?"), &cvar_731167);
  make_cvar(cvar_731169, (object *)&__glo__121lambda_91ast_125_scheme_cyclone_ast);make_pair(pair_731170, find_or_add_symbol("<lambda-ast>"), &cvar_731169);
  make_cvar(cvar_731171, (object *)&__glo_ast_117reset_91lambda_91ids_67_scheme_cyclone_ast);make_pair(pair_731172, find_or_add_symbol("ast:reset-lambda-ids!"), &cvar_731171);
  make_cvar(cvar_731173, (object *)&__glo_ast_117get_91next_91lambda_91id_67_scheme_cyclone_ast);make_pair(pair_731174, find_or_add_symbol("ast:get-next-lambda-id!"), &cvar_731173);
  make_cvar(cvar_731175, (object *)&__glo__85lambda_91id_85_scheme_cyclone_ast);make_pair(pair_731176, find_or_add_symbol("*lambda-id*"), &cvar_731175);
  make_cvar(cvar_731177, (object *)&__glo_ast_117sexp_91_125ast_scheme_cyclone_ast);make_pair(pair_731178, find_or_add_symbol("ast:sexp->ast"), &cvar_731177);
  make_cvar(cvar_731179, (object *)&__glo_ast_117ast_91_125sexp_scheme_cyclone_ast);make_pair(pair_731180, find_or_add_symbol("ast:ast->sexp"), &cvar_731179);
make_pair(c_731201, &pair_731139,Cyc_global_variables);
make_pair(c_731200, &pair_731142, &c_731201);
make_pair(c_731199, &pair_731144, &c_731200);
make_pair(c_731198, &pair_731146, &c_731199);
make_pair(c_731197, &pair_731148, &c_731198);
make_pair(c_731196, &pair_731150, &c_731197);
make_pair(c_731195, &pair_731152, &c_731196);
make_pair(c_731194, &pair_731154, &c_731195);
make_pair(c_731193, &pair_731156, &c_731194);
make_pair(c_731192, &pair_731158, &c_731193);
make_pair(c_731191, &pair_731160, &c_731192);
make_pair(c_731190, &pair_731162, &c_731191);
make_pair(c_731189, &pair_731164, &c_731190);
make_pair(c_731188, &pair_731166, &c_731189);
make_pair(c_731187, &pair_731168, &c_731188);
make_pair(c_731186, &pair_731170, &c_731187);
make_pair(c_731185, &pair_731172, &c_731186);
make_pair(c_731184, &pair_731174, &c_731185);
make_pair(c_731183, &pair_731176, &c_731184);
make_pair(c_731182, &pair_731178, &c_731183);
make_pair(c_731181, &pair_731180, &c_731182);
Cyc_global_variables = &c_731181;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117schemecycloneast_scheme_cyclone_ast)->fn)(data, buf[0], 1, buf);
}
void c_schemecycloneast_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("scheme_cyclone_ast");
  c_schemecycloneast_entry_pt_first_lambda(data, cont, argc, value);
}
