diff --git a/CHANGELOG.md b/CHANGELOG.md
index 5ace246b..0047d968 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,11 @@
 # Changelog
 
+## 0.26 - TBD
+
+Features
+
+- Enhanced `c-define` to emit type checks for parameters. 
+
 ## 0.25 - January 25, 2021
 
 Features
diff --git a/ffi.c b/ffi.c
index 37553adb..3d3651a4 100644
--- a/ffi.c
+++ b/ffi.c
@@ -1,182 +1,3929 @@
-/** 
- * Cyclone Scheme
- * https://github.com/justinethier/cyclone
- *
- * Copyright (c) 2020, Justin Ethier
- * All rights reserved.
- *
- * FFI module to support calling Scheme code from C.
- */
+/**
+ ** This file was automatically generated by the Cyclone scheme compiler
+ ** http://justinethier.github.io/cyclone/
+ **
+ ** (c) 2014-2021 Justin Ethier
+ ** Version 0.25 
+ **
+ **/
+
+#define closcall1(td, clo,a1) \
+if (obj_is_not_closure(clo)) { \
+   Cyc_apply(td, 0, (closure)(a1), clo); \
+} else { \
+   ((clo)->fn)(td, 1, clo,a1);\
+}
+#define return_closcall1(td, clo,a1) { \
+ char top; \
+ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
+     object buf[1]; buf[0] = a1;\
+     GC(td, clo, buf, 1); \
+     return; \
+ } else {\
+     closcall1(td, (closure) (clo),a1); \
+     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; \
+ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
+     object buf[1]; buf[0] = a1; \
+     mclosure0(c1, (function_type) _fn); \
+     GC(td, &c1, buf, 1); \
+     return; \
+ } else { \
+     (_fn)(td, 1, (closure)_fn,a1); \
+ }}
+
+#define return_direct_with_clo1(td, clo, _fn,a1) { \
+ char top; \
+ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
+     object buf[1]; buf[0] = a1;\
+     GC(td, clo, buf, 1); \
+     return; \
+ } else { \
+     (_fn)(td, 1, (closure)(clo),a1); \
+ }}
+
+#define closcall2(td, clo,a1,a2) \
+if (obj_is_not_closure(clo)) { \
+   Cyc_apply(td, 1, (closure)(a1), clo,a2); \
+} else { \
+   ((clo)->fn)(td, 2, clo,a1,a2);\
+}
+#define return_closcall2(td, clo,a1,a2) { \
+ char top; \
+ 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 {\
+     closcall2(td, (closure) (clo),a1,a2); \
+     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; \
+ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
+     object buf[2]; buf[0] = a1;buf[1] = a2; \
+     mclosure0(c1, (function_type) _fn); \
+     GC(td, &c1, buf, 2); \
+     return; \
+ } else { \
+     (_fn)(td, 2, (closure)_fn,a1,a2); \
+ }}
+
+#define return_direct_with_clo2(td, clo, _fn,a1,a2) { \
+ char top; \
+ 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 { \
+     (_fn)(td, 2, (closure)(clo),a1,a2); \
+ }}
+
+#define closcall3(td, clo,a1,a2,a3) \
+if (obj_is_not_closure(clo)) { \
+   Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \
+} else { \
+   ((clo)->fn)(td, 3, clo,a1,a2,a3);\
+}
+#define return_closcall3(td, clo,a1,a2,a3) { \
+ char top; \
+ 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 {\
+     closcall3(td, (closure) (clo),a1,a2,a3); \
+     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; \
+ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \
+     object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \
+     mclosure0(c1, (function_type) _fn); \
+     GC(td, &c1, buf, 3); \
+     return; \
+ } else { \
+     (_fn)(td, 3, (closure)_fn,a1,a2,a3); \
+ }}
+
+#define return_direct_with_clo3(td, clo, _fn,a1,a2,a3) { \
+ char top; \
+ 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 { \
+     (_fn)(td, 3, (closure)(clo),a1,a2,a3); \
+ }}
+
+#define closcall4(td, clo,a1,a2,a3,a4) \
+if (obj_is_not_closure(clo)) { \
+   Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \
+} else { \
+   ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\
+}
+#define return_closcall4(td, clo,a1,a2,a3,a4) { \
+ char top; \
+ 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 {\
+     closcall4(td, (closure) (clo),a1,a2,a3,a4); \
+     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; \
+ 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; \
+     mclosure0(c1, (function_type) _fn); \
+     GC(td, &c1, buf, 4); \
+     return; \
+ } else { \
+     (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \
+ }}
+
+#define return_direct_with_clo4(td, clo, _fn,a1,a2,a3,a4) { \
+ char top; \
+ 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 { \
+     (_fn)(td, 4, (closure)(clo),a1,a2,a3,a4); \
+ }}
 
 #include "cyclone/types.h"
+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_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_display_scheme_write;
+extern object __glo_write_scheme_write;
+extern object __glo_write_91shared_scheme_write;
+extern object __glo_write_91simple_scheme_write;
+extern object __glo_pretty_91print_scheme_cyclone_pretty_91print;
+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_eval_scheme_eval;
+extern object __glo_eval_91from_91c_scheme_eval;
+extern object __glo_create_91environment_scheme_eval;
+extern object __glo_setup_91environment_scheme_eval;
+extern object __glo__75import_scheme_eval;
+extern object __glo_imported_127_scheme_eval;
+extern object __glo__75set_91import_91dirs_67_scheme_eval;
+extern object __glo__85defined_91macros_85_scheme_eval;
+extern object __glo_get_91macros_scheme_eval;
+extern object __glo_macro_117macro_127_scheme_eval;
+extern object __glo_macro_117expand_scheme_eval;
+extern object __glo_macro_117add_67_scheme_eval;
+extern object __glo_macro_117cleanup_scheme_eval;
+extern object __glo_macro_117load_91env_67_scheme_eval;
+extern object __glo_macro_117get_91env_scheme_eval;
+extern object __glo_macro_117get_91defined_91macros_scheme_eval;
+extern object __glo_expand_scheme_eval;
+extern object __glo_expand_91lambda_91body_scheme_eval;
+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_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_denominator_191_191inline_191_191_scheme_base;
+extern object __glo_numerator_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;
+extern object __glo_variable_127_191_191inline_191_191_scheme_eval;
+extern object __glo_assignment_91variable_191_191inline_191_191_scheme_eval;
+extern object __glo_assignment_91value_191_191inline_191_191_scheme_eval;
+extern object __glo_definition_91variable_191_191inline_191_191_scheme_eval;
+extern object __glo_lambda_91parameters_191_191inline_191_191_scheme_eval;
+extern object __glo_lambda_91body_191_191inline_191_191_scheme_eval;
+extern object __glo_if_91predicate_191_191inline_191_191_scheme_eval;
+extern object __glo_if_91consequent_191_191inline_191_191_scheme_eval;
+extern object __glo_if_91alternative_191_191inline_191_191_scheme_eval;
+extern object __glo_application_127_191_191inline_191_191_scheme_eval;
+extern object __glo_operator_191_191inline_191_191_scheme_eval;
+extern object __glo_operands_191_191inline_191_191_scheme_eval;
+extern object __glo_procedure_91parameters_191_191inline_191_191_scheme_eval;
+extern object __glo_procedure_91body_191_191inline_191_191_scheme_eval;
+extern object __glo_procedure_91environment_191_191inline_191_191_scheme_eval;
+extern object __glo_primitive_91implementation_191_191inline_191_191_scheme_eval;
+extern object __glo_macro_117macro_127_191_191inline_191_191_scheme_eval;
 #include "cyclone/runtime.h"
-#include <ck_pr.h>
-#include <unistd.h>
+#include "cyclone/runtime-main.h"
+defsymbol(sub_91big_91nums);
+defsymbol(c_91define);
+defsymbol(scm_91fnc);
+defsymbol(symbol);
+defsymbol(arg);
+defsymbol(quote);
+defsymbol(_85foreign_91types_85);
+defsymbol(hash_91table_91ref);
+defsymbol(X);
+defsymbol(lambda);
+defsymbol(with_91handler);
+defsymbol(define);
+defsymbol(define_91c);
+defsymbol(begin);
+defsymbol(c_91void);
+defsymbol(opaque);
+defsymbol(bytevector);
+defsymbol(string);
+defsymbol(_char);
+defsymbol(bool);
+defsymbol(bigint);
+defsymbol(bignum);
+defsymbol(var);
+defsymbol(_double);
+defsymbol(_float);
+defsymbol(integer);
+defsymbol(_int);
+static void __lambda_1(void *data, int argc, closure _,object expr_731_73123_73164, object rename_732_73124_73165, object compare_733_73125_73166) ;
+static void __lambda_2(void *data, int argc, object self_73521, object emit_91type_91check_73167) ;
+static void __lambda_131(void *data, int argc, object self_73522, object emit_91type_91check_73167) ;
+static void __lambda_123(void *data, int argc, object self_73523, object k_73491, object arg_734_73126_73168, object type_735_73127_73169) ;
+static void __lambda_124(void *data, int argc, object self_73524, object tmp_736_739_73128_73170) ;
+static void __lambda_126(void *data, int argc, object self_73525, object r_73493) ;
+static void __lambda_128(void *data, int argc, object self_73526, object r_73494) ;
+static void __lambda_127(void *data, int argc, object self_73527, object k_73509) ;
+static void __lambda_125(void *data, int argc, object self_73528, object k_73513) ;
+static void __lambda_3(void *data, int argc, object self_73529, object r_73490) ;
+static void __lambda_4(void *data, int argc, object self_73530, object r_73209) ;
+static void __lambda_5(void *data, int argc, object self_73531, object scm_91fnc_91wrapper_7315_73130_73172) ;
+static void __lambda_6(void *data, int argc, object self_73532, object rv_91cust_91type_7324_73133_73175) ;
+static void __lambda_8(void *data, int argc, object self_73533, object rv_91cust_91convert_7327_73134_73176) ;
+static void __lambda_130(void *data, int argc, object self_73534, object rv_91cust_91convert_7327_73134_73176) ;
+static void __lambda_9(void *data, int argc, object self_73535, object arg_91cust_91convert_7333_73136_73178) ;
+static void __lambda_129(void *data, int argc, object self_73536, object arg_91cust_91convert_7333_73136_73178) ;
+static void __lambda_103(void *data, int argc, object self_73537, object k_73395, object type_73101_73159_73201) ;
+static void __lambda_104(void *data, int argc, object self_73538, object r_73462) ;
+static void __lambda_105(void *data, int argc, object self_73539, object r_73396) ;
+static void __lambda_106(void *data, int argc, object self_73540, object r_73455) ;
+static void __lambda_107(void *data, int argc, object self_73541, object r_73397) ;
+static void __lambda_108(void *data, int argc, object self_73542, object var_73102_73160_73202, object arg_91cust_91type_73103_73161_73203) ;
+static void __lambda_112(void *data, int argc, object self_73543, object tmp_73104_73107_73162_73204) ;
+static void __lambda_122(void *data, int argc, object self_73544, object r_73398) ;
+static void __lambda_113(void *data, int argc, object self_73545, object k_73400) ;
+static void __lambda_115(void *data, int argc, object self_73546, object r_73402) ;
+static void __lambda_117(void *data, int argc, object self_73547, object r_73403) ;
+static void __lambda_121(void *data, int argc, object self_73548, object r_73411) ;
+static void __lambda_118(void *data, int argc, object self_73549, object k_73412) ;
+static void __lambda_120(void *data, int argc, object self_73550, object r_73413) ;
+static void __lambda_119(void *data, int argc, object self_73551, object k_73414) ;
+static void __lambda_116(void *data, int argc, object self_73552, object k_73424) ;
+static void __lambda_114(void *data, int argc, object self_73553, object k_73428) ;
+static void __lambda_109(void *data, int argc, object self_73554, object k_73436) ;
+static void __lambda_111(void *data, int argc, object self_73555, object r_73437) ;
+static void __lambda_110(void *data, int argc, object self_73556, object k_73438) ;
+static void __lambda_10(void *data, int argc, object self_73557, object r_73394) ;
+static void __lambda_11(void *data, int argc, object self_73558, object arg_91syms_95unbox_7336_73137_73179) ;
+static void __lambda_15(void *data, int argc, object self_73559, object tmp_7392_7395_73153_73195) ;
+static void __lambda_74(void *data, int argc, object self_73560, object returns_7339_73138_73180) ;
+static void __lambda_102(void *data, int argc, object self_73561, object k_73299, object sym_95unbox_7391_73152_73194) ;
+static void __lambda_75(void *data, int argc, object self_73562, object r_73298) ;
+static void __lambda_76(void *data, int argc, object self_73563, object r_73297) ;
+static void __lambda_77(void *data, int argc, object self_73564, object r_73296) ;
+static void __lambda_78(void *data, int argc, object self_73565, object args_7348_73141_73183) ;
+static void __lambda_101(void *data, int argc, object self_73566, object k_73295, object arg_7389_73150_73192, object type_7390_73151_73193) ;
+static void __lambda_79(void *data, int argc, object self_73567, object r_73293) ;
+static void __lambda_80(void *data, int argc, object self_73568, object r_73294) ;
+static void __lambda_81(void *data, int argc, object self_73569, object r_73292) ;
+static void __lambda_82(void *data, int argc, object self_73570, object type_91checks_7351_73142_73184) ;
+static void __lambda_83(void *data, int argc, object self_73571, object body_7354_73143_73185) ;
+static void __lambda_99(void *data, int argc, object self_73572, object r_73207) ;
+static void __lambda_100(void *data, int argc, object self_73573, object r_73206) ;
+static void __lambda_84(void *data, int argc, object self_73574, object k_73224) ;
+static void __lambda_85(void *data, int argc, object self_73575, object tmp_7360_7362_73144_73186) ;
+static void __lambda_87(void *data, int argc, object self_73576, object r_73226) ;
+static void __lambda_92(void *data, int argc, object self_73577, object k_73251, object type_7367_73146_73188) ;
+static void __lambda_93(void *data, int argc, object self_73578, object sym_7370_73147_73189) ;
+static void __lambda_94(void *data, int argc, object self_73579, object arg_91cust_91type_7373_73148_73190) ;
+static void __lambda_98(void *data, int argc, object self_73580, object pass_91arg_7376_73149_73191) ;
+static void __lambda_95(void *data, int argc, object self_73581, object k_73255) ;
+static void __lambda_97(void *data, int argc, object self_73582, object r_73256) ;
+static void __lambda_96(void *data, int argc, object self_73583, object k_73260) ;
+static void __lambda_88(void *data, int argc, object self_73584, object r_73250) ;
+static void __lambda_89(void *data, int argc, object self_73585, object arg_91syms_7363_73145_73187) ;
+static void __lambda_90(void *data, int argc, object self_73586, object r_73244) ;
+static void __lambda_91(void *data, int argc, object self_73587, object r_73243) ;
+static void __lambda_86(void *data, int argc, object self_73588, object k_73284) ;
+static void __lambda_16(void *data, int argc, object self_73589, object k_73302) ;
+static void __lambda_22(void *data, int argc, object self_73594, object r_73308) ;
+static void __lambda_31(void *data, int argc, object self_73602, object r_73317) ;
+static void __lambda_73(void *data, int argc, object self_73643, object r_73368) ;
+static void __lambda_72(void *data, int argc, object self_73644, object k_73369) ;
+static void __lambda_68(void *data, int argc, object self_73639, object r_73367) ;
+static void __lambda_69(void *data, int argc, object self_73640, object r_73366) ;
+static void __lambda_70(void *data, int argc, object self_73641, object r_73365) ;
+static void __lambda_71(void *data, int argc, object self_73642, object r_73364) ;
+static void __lambda_61(void *data, int argc, object self_73632, object r_73361) ;
+static void __lambda_62(void *data, int argc, object self_73633, object var_73100_73158_73200) ;
+static void __lambda_63(void *data, int argc, object self_73634, object r_73360) ;
+static void __lambda_64(void *data, int argc, object self_73635, object r_73359) ;
+static void __lambda_65(void *data, int argc, object self_73636, object r_73358) ;
+static void __lambda_66(void *data, int argc, object self_73637, object r_73356) ;
+static void __lambda_67(void *data, int argc, object self_73638, object r_73357) ;
+static void __lambda_54(void *data, int argc, object self_73625, object r_73352) ;
+static void __lambda_55(void *data, int argc, object self_73626, object var_7399_73157_73199) ;
+static void __lambda_56(void *data, int argc, object self_73627, object r_73351) ;
+static void __lambda_57(void *data, int argc, object self_73628, object r_73350) ;
+static void __lambda_58(void *data, int argc, object self_73629, object r_73349) ;
+static void __lambda_59(void *data, int argc, object self_73630, object r_73347) ;
+static void __lambda_60(void *data, int argc, object self_73631, object r_73348) ;
+static void __lambda_47(void *data, int argc, object self_73618, object r_73343) ;
+static void __lambda_48(void *data, int argc, object self_73619, object var_7398_73156_73198) ;
+static void __lambda_49(void *data, int argc, object self_73620, object r_73342) ;
+static void __lambda_50(void *data, int argc, object self_73621, object r_73341) ;
+static void __lambda_51(void *data, int argc, object self_73622, object r_73340) ;
+static void __lambda_52(void *data, int argc, object self_73623, object r_73338) ;
+static void __lambda_53(void *data, int argc, object self_73624, object r_73339) ;
+static void __lambda_43(void *data, int argc, object self_73614, object r_73335) ;
+static void __lambda_44(void *data, int argc, object self_73615, object r_73334) ;
+static void __lambda_45(void *data, int argc, object self_73616, object r_73333) ;
+static void __lambda_46(void *data, int argc, object self_73617, object r_73332) ;
+static void __lambda_39(void *data, int argc, object self_73610, object r_73330) ;
+static void __lambda_40(void *data, int argc, object self_73611, object r_73329) ;
+static void __lambda_41(void *data, int argc, object self_73612, object r_73328) ;
+static void __lambda_42(void *data, int argc, object self_73613, object r_73327) ;
+static void __lambda_32(void *data, int argc, object self_73603, object r_73324) ;
+static void __lambda_33(void *data, int argc, object self_73604, object var_7397_73155_73197) ;
+static void __lambda_34(void *data, int argc, object self_73605, object r_73323) ;
+static void __lambda_35(void *data, int argc, object self_73606, object r_73322) ;
+static void __lambda_36(void *data, int argc, object self_73607, object r_73321) ;
+static void __lambda_37(void *data, int argc, object self_73608, object r_73319) ;
+static void __lambda_38(void *data, int argc, object self_73609, object r_73320) ;
+static void __lambda_30(void *data, int argc, object self_73645, object k_73376) ;
+static void __lambda_23(void *data, int argc, object self_73595, object r_73315) ;
+static void __lambda_24(void *data, int argc, object self_73596, object var_7396_73154_73196) ;
+static void __lambda_25(void *data, int argc, object self_73597, object r_73314) ;
+static void __lambda_26(void *data, int argc, object self_73598, object r_73313) ;
+static void __lambda_27(void *data, int argc, object self_73599, object r_73312) ;
+static void __lambda_28(void *data, int argc, object self_73600, object r_73310) ;
+static void __lambda_29(void *data, int argc, object self_73601, object r_73311) ;
+static void __lambda_21(void *data, int argc, object self_73646, object k_73380) ;
+static void __lambda_17(void *data, int argc, object self_73590, object r_73307) ;
+static void __lambda_18(void *data, int argc, object self_73591, object r_73306) ;
+static void __lambda_19(void *data, int argc, object self_73592, object r_73305) ;
+static void __lambda_20(void *data, int argc, object self_73593, object r_73304) ;
+static void __lambda_12(void *data, int argc, object self_73647, object k_73388) ;
+static void __lambda_14(void *data, int argc, object self_73648, object r_73390) ;
+static void __lambda_13(void *data, int argc, object self_73649, object k_73391) ;
+static void __lambda_7(void *data, int argc, object self_73650, object k_73464) ;
 
-void *Cyc_init_thread(object thread_and_thunk, int argc, object *args);
+static void __lambda_1(void *data, int argc, closure _,object expr_731_73123_73164, object rename_732_73124_73165, object compare_733_73125_73166) {
+  
+closureN_type c_73653;
+object e_731922 [1];
+c_73653.hdr.mark = gc_color_red;
+ c_73653.hdr.grayed = 0;
+c_73653.tag = closureN_tag;
+ c_73653.fn = (function_type)__lambda_2;
+c_73653.num_args = 1;
+c_73653.num_elements = 1;
+c_73653.elements = (object *)e_731922;
+c_73653.elements[0] = expr_731_73123_73164;
 
-/**
- * After the Scheme call finishes, we wind down the GC / Heap used
- * for the call and perform a minor GC to ensure any returned object
- * is on the heap and safe to use.
- */
-static void Cyc_return_from_scm_call(gc_thread_data *thd, int argc, object k, object result)
-{
-  // Cleaup thread object per Cyc_exit_thread
-  gc_remove_mutator(thd);
-  ck_pr_cas_int((int *)&(thd->thread_state), CYC_THREAD_STATE_RUNNABLE,
-                CYC_THREAD_STATE_TERMINATED);
-
-  // Return to local C caller
-  vector vec = thd->scm_thread_obj;
-  gc_thread_data *local = opaque_ptr(vec->elements[4]);
-  local->gc_cont = result;
-  longjmp(*(local->jmp_start), 1);
+return_direct_with_clo1(data,(closure)&c_73653,__lambda_2,  boolean_f);; 
 }
 
-/**
- * Scheme function calls into this function when it is done.
- * We store results and longjmp back to where we started, at the
- * bottom of the trampoline (we only jump once).
- */
-static void Cyc_after_scm_call(gc_thread_data *thd, int argc, object k, object result)
-{
-  mclosure0(clo, Cyc_return_from_scm_call);
-  object buf[1]; buf[0] = result;
-  GC(thd, &clo, buf, 1);
+static void __lambda_2(void *data, int argc, object self_73521, object emit_91type_91check_73167) {
+  
+closureN_type c_73655;
+object e_731918 [1];
+c_73655.hdr.mark = gc_color_red;
+ c_73655.hdr.grayed = 0;
+c_73655.tag = closureN_tag;
+ c_73655.fn = (function_type)__lambda_131;
+c_73655.num_args = 1;
+c_73655.num_elements = 1;
+c_73655.elements = (object *)e_731918;
+c_73655.elements[0] = ((closureN)self_73521)->elements[0];
+
+
+pair_type local_731921; 
+return_direct_with_clo1(data,(closure)&c_73655,__lambda_131,  set_cell_as_expr(&local_731921, emit_91type_91check_73167));; 
 }
 
-/**
- * Setup a full call into Scheme code.
- *
- * This is somewhat expensive as we setup a new thread object and
- * register it with our GC. On the other hand the called code
- * can do anything "normal" Scheme code does, and any returned
- * objects will be on the heap and available for use by the caller.
- */
-object Cyc_scm_call(gc_thread_data *parent_thd, object fnc, int argc, object *args)
-{
-  jmp_buf l;
-  gc_thread_data local;
-  local.gc_cont = NULL;
-  local.jmp_start = &l;
+static void __lambda_131(void *data, int argc, object self_73522, object emit_91type_91check_73167) {
+  
+closureN_type c_73657;
+object e_731773 [2];
+c_73657.hdr.mark = gc_color_red;
+ c_73657.hdr.grayed = 0;
+c_73657.tag = closureN_tag;
+ c_73657.fn = (function_type)__lambda_3;
+c_73657.num_args = 1;
+c_73657.num_elements = 2;
+c_73657.elements = (object *)e_731773;
+c_73657.elements[0] = emit_91type_91check_73167;
+c_73657.elements[1] = ((closureN)self_73522)->elements[0];
 
-  gc_thread_data *td = malloc(sizeof(gc_thread_data));
-  gc_add_new_unrunning_mutator(td); /* Register this thread */
-  make_c_opaque(co, td);
-  make_utf8_string(NULL, name_str, "");
 
-  make_c_opaque(co_parent_thd, parent_thd);
-  make_c_opaque(co_this_thd, &local);
-  mclosure0(after, (function_type)Cyc_after_scm_call); 
-
-  make_empty_vector(vec);
-  vec.num_elements = 7;
-  vec.elements = alloca(sizeof(object) * 5);
-  vec.elements[0] = find_or_add_symbol("cyc-thread-obj");
-  vec.elements[1] = fnc;
-  vec.elements[2] = &co;
-  vec.elements[3] = &name_str;
-  vec.elements[4] = &co_this_thd; //boolean_f;
-  vec.elements[5] = &co_parent_thd;
-  vec.elements[6] = &after;
-
-  make_pair(thread_and_thunk, &vec, fnc); // TODO: OK we are not clearing vec[5]? I think so... 
-
-  if (!setjmp(*(local.jmp_start))) {
-    Cyc_init_thread(&thread_and_thunk, argc, args);
-  }
-
-  return local.gc_cont;
+mclosure0(c_731774, (function_type)__lambda_123);c_731774.num_args = 2;
+return_direct_with_clo1(data,(closure)&c_73657,__lambda_3,  &c_731774);; 
 }
 
-///////////////////////////////////////////////////////////////////////////////
-//
-// Simplified interface with no support for GC
-//
-///////////////////////////////////////////////////////////////////////////////
+static void __lambda_123(void *data, int argc, object self_73523, object k_73491, object arg_734_73126_73168, object type_735_73127_73169) {
+  
+closureN_type c_731776;
+object e_731917 [2];
+c_731776.hdr.mark = gc_color_red;
+ c_731776.hdr.grayed = 0;
+c_731776.tag = closureN_tag;
+ c_731776.fn = (function_type)__lambda_124;
+c_731776.num_args = 1;
+c_731776.num_elements = 2;
+c_731776.elements = (object *)e_731917;
+c_731776.elements[0] = arg_734_73126_73168;
+c_731776.elements[1] = k_73491;
 
-/**
- * Scheme function calls into this function when it is done.
- * We store results and longjmp back to where we started, at the
- * bottom of the trampoline (we only jump once).
- */
-static void no_gc_after_call_scm(gc_thread_data *thd, int argc, object k, object result)
-{
-  thd->gc_cont = result;
-  longjmp(*(thd->jmp_start), 1);
+return_direct_with_clo1(data,(closure)&c_731776,__lambda_124,  type_735_73127_73169);; 
 }
 
-/**
- * Call into Scheme function
- */
-static void no_gc_call_scm(gc_thread_data *thd, object fnc, object obj)
-{
-  mclosure0(after, (function_type)no_gc_after_call_scm); 
-  ((closure)fnc)->fn(thd, 2, fnc, &after, obj);
+static void __lambda_124(void *data, int argc, object self_73524, object tmp_736_739_73128_73170) {
+  object r_73492;
+    
+if( (boolean_f != Cyc_eq(tmp_736_739_73128_73170, quote__int)) ){ 
+  r_73492 = boolean_t;
+} else { 
+  
+  r_73492 = Cyc_eq(tmp_736_739_73128_73170, quote_integer);}
+;if( (boolean_f != r_73492) ){ 
+  
+make_utf8_string_with_len(c_731789, "Cyc_check_fixnum(data,", 22, 22);
+
+make_utf8_string_with_len(c_731791, ");", 2, 2);
+
+object c_731788 = Cyc_string_append(data,  ((closureN)self_73524)->elements[1],3,&c_731789, ((closureN)self_73524)->elements[0], &c_731791);
+return_closcall1(data,  ((closureN)self_73524)->elements[1],  c_731788);
+} else { 
+  
+closureN_type c_731793;
+object e_731802 [1];
+c_731793.hdr.mark = gc_color_red;
+ c_731793.hdr.grayed = 0;
+c_731793.tag = closureN_tag;
+ c_731793.fn = (function_type)__lambda_125;
+c_731793.num_args = 0;
+c_731793.num_elements = 1;
+c_731793.elements = (object *)e_731802;
+c_731793.elements[0] = tmp_736_739_73128_73170;
+
+
+closureN_type c_731803;
+object e_731916 [3];
+c_731803.hdr.mark = gc_color_red;
+ c_731803.hdr.grayed = 0;
+c_731803.tag = closureN_tag;
+ c_731803.fn = (function_type)__lambda_126;
+c_731803.num_args = 1;
+c_731803.num_elements = 3;
+c_731803.elements = (object *)e_731916;
+c_731803.elements[0] = ((closureN)self_73524)->elements[0];
+c_731803.elements[1] = ((closureN)self_73524)->elements[1];
+c_731803.elements[2] = tmp_736_739_73128_73170;
+
+return_direct_with_clo1(data,(closure)&c_731793,__lambda_125,  &c_731803);}
+;; 
 }
 
-/**
- * Setup a quick-and-dirty thread object and use it to
- * make a call into Scheme code.
- *
- * Note this call is made in a limited way, and is only
- * designed for a quick call. There is no support for
- * performing any memory allocation by the Scheme code
- * other than temporary objects in the nursery. The 
- * returned object will need to either be an immediate
- * or re-allocated (EG: malloc) before returning it
- * to the C layer.
- */
-object Cyc_scm_call_no_gc(gc_thread_data *parent_thd, object fnc, object arg)
-{
-  long stack_size = 100000;
-  char *stack_base = (char *)&stack_size;
-  char *stack_traces[MAX_STACK_TRACES];
-  gc_thread_data thd = {0};
-  jmp_buf jmp;
-  thd.jmp_start = &jmp;
-  thd.stack_start = stack_base;
-#if STACK_GROWTH_IS_DOWNWARD
-  thd.stack_limit = stack_base - stack_size;
-#else
-  thd.stack_limit = stack_base + stack_size;
-#endif
-  thd.stack_traces = stack_traces;
+static void __lambda_126(void *data, int argc, object self_73525, object r_73493) {
+  if( (boolean_f != r_73493) ){ 
+  
+make_utf8_string_with_len(c_731809, "Cyc_check_double(data,", 22, 22);
 
-  thd.thread_id = pthread_self();
-  thd.thread_state = CYC_THREAD_STATE_RUNNABLE;
+make_utf8_string_with_len(c_731811, ");", 2, 2);
 
-  // Copy parameter objects from the calling thread
-  object parent = parent_thd->param_objs; // Unbox parent thread's data
-  object child = NULL;
-  while (parent) {
-    if (thd.param_objs == NULL) {
-      alloca_pair(p, NULL, NULL);
-      thd.param_objs = p;
-      child = thd.param_objs;
-    } else {
-      alloca_pair(p, NULL, NULL);
-      cdr(child) = p;
-      child = p;
-    }
-    alloca_pair(cc, car(car(parent)), cdr(car(parent)));
-    car(child) = cc;
-    parent = cdr(parent);
-  }
+object c_731808 = Cyc_string_append(data,  ((closureN)self_73525)->elements[1],3,&c_731809, ((closureN)self_73525)->elements[0], &c_731811);
+return_closcall1(data,  ((closureN)self_73525)->elements[1],  c_731808);
+} else { 
+  
+closureN_type c_731813;
+object e_731822 [1];
+c_731813.hdr.mark = gc_color_red;
+ c_731813.hdr.grayed = 0;
+c_731813.tag = closureN_tag;
+ c_731813.fn = (function_type)__lambda_127;
+c_731813.num_args = 0;
+c_731813.num_elements = 1;
+c_731813.elements = (object *)e_731822;
+c_731813.elements[0] = ((closureN)self_73525)->elements[2];
 
-  // Setup trampoline and call into Scheme
-  //
-  // When the Scheme call is done we return result back to C
-  //
-  // It is very important to know that the result, IF ON THE STACK,
-  // is further up the stack than the caller and will be overwritten
-  // by subsequent C calls on this thread. Thus the caller will want
-  // to immediately create a copy of the object...
-  //
-  if (!setjmp(*(thd.jmp_start))) {
-    no_gc_call_scm(&thd, fnc, arg);
-  }
 
-  return(thd.gc_cont);
+closureN_type c_731823;
+object e_731915 [3];
+c_731823.hdr.mark = gc_color_red;
+ c_731823.hdr.grayed = 0;
+c_731823.tag = closureN_tag;
+ c_731823.fn = (function_type)__lambda_128;
+c_731823.num_args = 1;
+c_731823.num_elements = 3;
+c_731823.elements = (object *)e_731915;
+c_731823.elements[0] = ((closureN)self_73525)->elements[0];
+c_731823.elements[1] = ((closureN)self_73525)->elements[1];
+c_731823.elements[2] = ((closureN)self_73525)->elements[2];
+
+return_direct_with_clo1(data,(closure)&c_731813,__lambda_127,  &c_731823);}
+;; 
 }
+
+static void __lambda_128(void *data, int argc, object self_73526, object r_73494) {
+  if( (boolean_f != r_73494) ){ 
+  
+make_utf8_string_with_len(c_731829, "Cyc_check_type(data,Cyc_is_bignum,bignum_tag,", 45, 45);
+
+make_utf8_string_with_len(c_731831, ");", 2, 2);
+
+object c_731828 = Cyc_string_append(data,  ((closureN)self_73526)->elements[1],3,&c_731829, ((closureN)self_73526)->elements[0], &c_731831);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  c_731828);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_bool)) ){ 
+  
+make_utf8_string_with_len(c_731840, "Cyc_check_type(data,Cyc_is_boolean,boolean_tag,", 47, 47);
+
+make_utf8_string_with_len(c_731842, ");", 2, 2);
+
+object c_731839 = Cyc_string_append(data,  ((closureN)self_73526)->elements[1],3,&c_731840, ((closureN)self_73526)->elements[0], &c_731842);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  c_731839);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote__char)) ){ 
+  
+make_utf8_string_with_len(c_731851, " if ((boolean_f == make_boolean(obj_is_char(", 44, 44);
+
+make_utf8_string_with_len(c_731853, ")))) {", 6, 6);
+
+make_utf8_string_with_len(c_731854, "Cyc_rt_raise2(data, \"Invalid type: expected char, found \", ", 59, 59);
+
+make_utf8_string_with_len(c_731856, "); } ", 5, 5);
+
+object c_731850 = Cyc_string_append(data,  ((closureN)self_73526)->elements[1],6,&c_731851, ((closureN)self_73526)->elements[0], &c_731853, &c_731854, ((closureN)self_73526)->elements[0], &c_731856);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  c_731850);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_string)) ){ 
+  
+make_utf8_string_with_len(c_731865, "Cyc_check_string(data,", 22, 22);
+
+make_utf8_string_with_len(c_731867, ");", 2, 2);
+
+object c_731864 = Cyc_string_append(data,  ((closureN)self_73526)->elements[1],3,&c_731865, ((closureN)self_73526)->elements[0], &c_731867);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  c_731864);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_symbol)) ){ 
+  
+make_utf8_string_with_len(c_731876, "Cyc_check_sym(data,", 19, 19);
+
+make_utf8_string_with_len(c_731878, ");", 2, 2);
+
+object c_731875 = Cyc_string_append(data,  ((closureN)self_73526)->elements[1],3,&c_731876, ((closureN)self_73526)->elements[0], &c_731878);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  c_731875);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_bytevector)) ){ 
+  
+make_utf8_string_with_len(c_731887, "Cyc_check_bvec(data,", 20, 20);
+
+make_utf8_string_with_len(c_731889, ");", 2, 2);
+
+object c_731886 = Cyc_string_append(data,  ((closureN)self_73526)->elements[1],3,&c_731887, ((closureN)self_73526)->elements[0], &c_731889);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  c_731886);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_opaque)) ){ 
+  
+make_utf8_string_with_len(c_731898, "Cyc_check_opaque(data,", 22, 22);
+
+make_utf8_string_with_len(c_731900, ");", 2, 2);
+
+object c_731897 = Cyc_string_append(data,  ((closureN)self_73526)->elements[1],3,&c_731898, ((closureN)self_73526)->elements[0], &c_731900);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  c_731897);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73526)->elements[2], quote_c_91void)) ){ 
+  
+make_utf8_string_with_len(c_731909, "Cyc_check_type(data,Cyc_is_void,void_tag,", 41, 41);
+
+make_utf8_string_with_len(c_731911, ");", 2, 2);
+
+object c_731908 = Cyc_string_append(data,  ((closureN)self_73526)->elements[1],3,&c_731909, ((closureN)self_73526)->elements[0], &c_731911);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  c_731908);
+} else { 
+  
+make_utf8_string_with_len(c_731914, "", 0, 0);
+return_closcall1(data,  ((closureN)self_73526)->elements[1],  &c_731914);}
+;}
+;}
+;}
+;}
+;}
+;}
+;}
+;; 
+}
+
+static void __lambda_127(void *data, int argc, object self_73527, object k_73509) {
+    
+if( (boolean_f != Cyc_eq(((closureN)self_73527)->elements[0], quote_bignum)) ){ 
+  return_direct_with_clo1(data,  k_73509,__lambda_128,  boolean_t);
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73509,__lambda_128,  Cyc_eq(((closureN)self_73527)->elements[0], quote_bigint));}
+;; 
+}
+
+static void __lambda_125(void *data, int argc, object self_73528, object k_73513) {
+    
+if( (boolean_f != Cyc_eq(((closureN)self_73528)->elements[0], quote__double)) ){ 
+  return_direct_with_clo1(data,  k_73513,__lambda_126,  boolean_t);
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73513,__lambda_126,  Cyc_eq(((closureN)self_73528)->elements[0], quote__float));}
+;; 
+}
+
+static void __lambda_3(void *data, int argc, object self_73529, object r_73490) {
+  
+closureN_type c_73659;
+object e_731769 [2];
+c_73659.hdr.mark = gc_color_red;
+ c_73659.hdr.grayed = 0;
+c_73659.tag = closureN_tag;
+ c_73659.fn = (function_type)__lambda_4;
+c_73659.num_args = 1;
+c_73659.num_elements = 2;
+c_73659.elements = (object *)e_731769;
+c_73659.elements[0] = ((closureN)self_73529)->elements[0];
+c_73659.elements[1] = ((closureN)self_73529)->elements[1];
+
+
+
+return_direct_with_clo1(data,(closure)&c_73659,__lambda_4,  Cyc_set_cell(data, ((closureN)self_73529)->elements[0], r_73490));; 
+}
+
+static void __lambda_4(void *data, int argc, object self_73530, object r_73209) {
+  
+closureN_type c_73661;
+object e_731768 [2];
+c_73661.hdr.mark = gc_color_red;
+ c_73661.hdr.grayed = 0;
+c_73661.tag = closureN_tag;
+ c_73661.fn = (function_type)__lambda_5;
+c_73661.num_args = 1;
+c_73661.num_elements = 2;
+c_73661.elements = (object *)e_731768;
+c_73661.elements[0] = ((closureN)self_73530)->elements[0];
+c_73661.elements[1] = ((closureN)self_73530)->elements[1];
+
+return_closcall2(data,  __glo_gensym_scheme_cyclone_util,  &c_73661, quote_scm_91fnc);; 
+}
+
+static void __lambda_5(void *data, int argc, object self_73531, object scm_91fnc_91wrapper_7315_73130_73172) {
+  
+closureN_type c_73663;
+object e_731731 [3];
+c_73663.hdr.mark = gc_color_red;
+ c_73663.hdr.grayed = 0;
+c_73663.tag = closureN_tag;
+ c_73663.fn = (function_type)__lambda_6;
+c_73663.num_args = 1;
+c_73663.num_elements = 3;
+c_73663.elements = (object *)e_731731;
+c_73663.elements[0] = ((closureN)self_73531)->elements[0];
+c_73663.elements[1] = ((closureN)self_73531)->elements[1];
+c_73663.elements[2] = scm_91fnc_91wrapper_7315_73130_73172;
+
+
+pair_type local_731734; 
+
+pair_type local_731737; 
+
+pair_type local_731740; 
+
+pair_type local_731743; 
+
+pair_type local_731746; 
+
+pair_type local_731749; 
+
+pair_type local_731752; 
+
+pair_type local_731755; 
+
+pair_type local_731758; 
+
+pair_type local_731761; 
+
+pair_type local_731764; 
+
+
+return_closcall2(data,  __glo_eval_scheme_eval,  &c_73663, set_pair_as_expr(&local_731734, quote_with_91handler, set_pair_as_expr(&local_731737, set_pair_as_expr(&local_731740, quote_lambda, set_pair_as_expr(&local_731743, quote_X, set_pair_as_expr(&local_731746, boolean_f, NULL))), set_pair_as_expr(&local_731749, set_pair_as_expr(&local_731752, quote_hash_91table_91ref, set_pair_as_expr(&local_731755, quote__85foreign_91types_85, set_pair_as_expr(&local_731758, set_pair_as_expr(&local_731761, quote_quote, set_pair_as_expr(&local_731764, Cyc_caddr(data, ((closureN)self_73531)->elements[1]), NULL)), NULL))), NULL))));; 
+}
+
+static void __lambda_6(void *data, int argc, object self_73532, object rv_91cust_91type_7324_73133_73175) {
+  
+closureN_type c_73665;
+object e_73680 [1];
+c_73665.hdr.mark = gc_color_red;
+ c_73665.hdr.grayed = 0;
+c_73665.tag = closureN_tag;
+ c_73665.fn = (function_type)__lambda_7;
+c_73665.num_args = 0;
+c_73665.num_elements = 1;
+c_73665.elements = (object *)e_73680;
+c_73665.elements[0] = rv_91cust_91type_7324_73133_73175;
+
+
+closureN_type c_73681;
+object e_731730 [4];
+c_73681.hdr.mark = gc_color_red;
+ c_73681.hdr.grayed = 0;
+c_73681.tag = closureN_tag;
+ c_73681.fn = (function_type)__lambda_8;
+c_73681.num_args = 1;
+c_73681.num_elements = 4;
+c_73681.elements = (object *)e_731730;
+c_73681.elements[0] = ((closureN)self_73532)->elements[0];
+c_73681.elements[1] = ((closureN)self_73532)->elements[1];
+c_73681.elements[2] = rv_91cust_91type_7324_73133_73175;
+c_73681.elements[3] = ((closureN)self_73532)->elements[2];
+
+return_direct_with_clo1(data,(closure)&c_73665,__lambda_7,  &c_73681);; 
+}
+
+static void __lambda_8(void *data, int argc, object self_73533, object rv_91cust_91convert_7327_73134_73176) {
+  
+closureN_type c_73683;
+object e_731726 [4];
+c_73683.hdr.mark = gc_color_red;
+ c_73683.hdr.grayed = 0;
+c_73683.tag = closureN_tag;
+ c_73683.fn = (function_type)__lambda_130;
+c_73683.num_args = 1;
+c_73683.num_elements = 4;
+c_73683.elements = (object *)e_731726;
+c_73683.elements[0] = ((closureN)self_73533)->elements[0];
+c_73683.elements[1] = ((closureN)self_73533)->elements[1];
+c_73683.elements[2] = ((closureN)self_73533)->elements[2];
+c_73683.elements[3] = ((closureN)self_73533)->elements[3];
+
+
+pair_type local_731729; 
+return_direct_with_clo1(data,(closure)&c_73683,__lambda_130,  set_cell_as_expr(&local_731729, rv_91cust_91convert_7327_73134_73176));; 
+}
+
+static void __lambda_130(void *data, int argc, object self_73534, object rv_91cust_91convert_7327_73134_73176) {
+  
+closureN_type c_73685;
+object e_731725 [5];
+c_73685.hdr.mark = gc_color_red;
+ c_73685.hdr.grayed = 0;
+c_73685.tag = closureN_tag;
+ c_73685.fn = (function_type)__lambda_9;
+c_73685.num_args = 1;
+c_73685.num_elements = 5;
+c_73685.elements = (object *)e_731725;
+c_73685.elements[0] = ((closureN)self_73534)->elements[0];
+c_73685.elements[1] = ((closureN)self_73534)->elements[1];
+c_73685.elements[2] = rv_91cust_91convert_7327_73134_73176;
+c_73685.elements[3] = ((closureN)self_73534)->elements[2];
+c_73685.elements[4] = ((closureN)self_73534)->elements[3];
+
+return_direct_with_clo1(data,(closure)&c_73685,__lambda_9,  boolean_f);; 
+}
+
+static void __lambda_9(void *data, int argc, object self_73535, object arg_91cust_91convert_7333_73136_73178) {
+  
+closureN_type c_73687;
+object e_731721 [5];
+c_73687.hdr.mark = gc_color_red;
+ c_73687.hdr.grayed = 0;
+c_73687.tag = closureN_tag;
+ c_73687.fn = (function_type)__lambda_129;
+c_73687.num_args = 1;
+c_73687.num_elements = 5;
+c_73687.elements = (object *)e_731721;
+c_73687.elements[0] = ((closureN)self_73535)->elements[0];
+c_73687.elements[1] = ((closureN)self_73535)->elements[1];
+c_73687.elements[2] = ((closureN)self_73535)->elements[2];
+c_73687.elements[3] = ((closureN)self_73535)->elements[3];
+c_73687.elements[4] = ((closureN)self_73535)->elements[4];
+
+
+pair_type local_731724; 
+return_direct_with_clo1(data,(closure)&c_73687,__lambda_129,  set_cell_as_expr(&local_731724, arg_91cust_91convert_7333_73136_73178));; 
+}
+
+static void __lambda_129(void *data, int argc, object self_73536, object arg_91cust_91convert_7333_73136_73178) {
+  
+closureN_type c_73689;
+object e_731468 [6];
+c_73689.hdr.mark = gc_color_red;
+ c_73689.hdr.grayed = 0;
+c_73689.tag = closureN_tag;
+ c_73689.fn = (function_type)__lambda_10;
+c_73689.num_args = 1;
+c_73689.num_elements = 6;
+c_73689.elements = (object *)e_731468;
+c_73689.elements[0] = arg_91cust_91convert_7333_73136_73178;
+c_73689.elements[1] = ((closureN)self_73536)->elements[0];
+c_73689.elements[2] = ((closureN)self_73536)->elements[1];
+c_73689.elements[3] = ((closureN)self_73536)->elements[2];
+c_73689.elements[4] = ((closureN)self_73536)->elements[3];
+c_73689.elements[5] = ((closureN)self_73536)->elements[4];
+
+
+closureN_type c_731469;
+object e_731720 [1];
+c_731469.hdr.mark = gc_color_red;
+ c_731469.hdr.grayed = 0;
+c_731469.tag = closureN_tag;
+ c_731469.fn = (function_type)__lambda_103;
+c_731469.num_args = 1;
+c_731469.num_elements = 1;
+c_731469.elements = (object *)e_731720;
+c_731469.elements[0] = arg_91cust_91convert_7333_73136_73178;
+
+return_direct_with_clo1(data,(closure)&c_73689,__lambda_10,  &c_731469);; 
+}
+
+static void __lambda_103(void *data, int argc, object self_73537, object k_73395, object type_73101_73159_73201) {
+  
+closureN_type c_731471;
+object e_731719 [3];
+c_731471.hdr.mark = gc_color_red;
+ c_731471.hdr.grayed = 0;
+c_731471.tag = closureN_tag;
+ c_731471.fn = (function_type)__lambda_104;
+c_731471.num_args = 1;
+c_731471.num_elements = 3;
+c_731471.elements = (object *)e_731719;
+c_731471.elements[0] = ((closureN)self_73537)->elements[0];
+c_731471.elements[1] = k_73395;
+c_731471.elements[2] = type_73101_73159_73201;
+
+return_closcall2(data,  __glo_gensym_scheme_cyclone_util,  &c_731471, quote_arg);; 
+}
+
+static void __lambda_104(void *data, int argc, object self_73538, object r_73462) {
+  
+closureN_type c_731473;
+object e_731718 [3];
+c_731473.hdr.mark = gc_color_red;
+ c_731473.hdr.grayed = 0;
+c_731473.tag = closureN_tag;
+ c_731473.fn = (function_type)__lambda_105;
+c_731473.num_args = 1;
+c_731473.num_elements = 3;
+c_731473.elements = (object *)e_731718;
+c_731473.elements[0] = ((closureN)self_73538)->elements[0];
+c_731473.elements[1] = ((closureN)self_73538)->elements[1];
+c_731473.elements[2] = ((closureN)self_73538)->elements[2];
+
+return_closcall2(data,  __glo_mangle_scheme_cyclone_util,  &c_731473, r_73462);; 
+}
+
+static void __lambda_105(void *data, int argc, object self_73539, object r_73396) {
+  
+closureN_type c_731475;
+object e_731713 [4];
+c_731475.hdr.mark = gc_color_red;
+ c_731475.hdr.grayed = 0;
+c_731475.tag = closureN_tag;
+ c_731475.fn = (function_type)__lambda_106;
+c_731475.num_args = 1;
+c_731475.num_elements = 4;
+c_731475.elements = (object *)e_731713;
+c_731475.elements[0] = ((closureN)self_73539)->elements[0];
+c_731475.elements[1] = ((closureN)self_73539)->elements[1];
+c_731475.elements[2] = r_73396;
+c_731475.elements[3] = ((closureN)self_73539)->elements[2];
+
+
+pair_type local_731716; 
+return_direct_with_clo1(data,(closure)&c_731475,__lambda_106,  set_pair_as_expr(&local_731716, ((closureN)self_73539)->elements[2], NULL));; 
+}
+
+static void __lambda_106(void *data, int argc, object self_73540, object r_73455) {
+  
+closureN_type c_731477;
+object e_731682 [4];
+c_731477.hdr.mark = gc_color_red;
+ c_731477.hdr.grayed = 0;
+c_731477.tag = closureN_tag;
+ c_731477.fn = (function_type)__lambda_107;
+c_731477.num_args = 1;
+c_731477.num_elements = 4;
+c_731477.elements = (object *)e_731682;
+c_731477.elements[0] = ((closureN)self_73540)->elements[0];
+c_731477.elements[1] = ((closureN)self_73540)->elements[1];
+c_731477.elements[2] = ((closureN)self_73540)->elements[2];
+c_731477.elements[3] = ((closureN)self_73540)->elements[3];
+
+
+pair_type local_731685; 
+
+pair_type local_731688; 
+
+pair_type local_731691; 
+
+pair_type local_731694; 
+
+pair_type local_731697; 
+
+pair_type local_731700; 
+
+pair_type local_731703; 
+
+pair_type local_731706; 
+
+pair_type local_731709; 
+
+pair_type local_731712; 
+return_closcall2(data,  __glo_eval_scheme_eval,  &c_731477, set_pair_as_expr(&local_731685, quote_with_91handler, set_pair_as_expr(&local_731688, set_pair_as_expr(&local_731691, quote_lambda, set_pair_as_expr(&local_731694, quote_X, set_pair_as_expr(&local_731697, boolean_f, NULL))), set_pair_as_expr(&local_731700, set_pair_as_expr(&local_731703, quote_hash_91table_91ref, set_pair_as_expr(&local_731706, quote__85foreign_91types_85, set_pair_as_expr(&local_731709, set_pair_as_expr(&local_731712, quote_quote, r_73455), NULL))), NULL))));; 
+}
+
+static void __lambda_107(void *data, int argc, object self_73541, object r_73397) {
+  
+closureN_type c_731479;
+object e_731680 [3];
+c_731479.hdr.mark = gc_color_red;
+ c_731479.hdr.grayed = 0;
+c_731479.tag = closureN_tag;
+ c_731479.fn = (function_type)__lambda_108;
+c_731479.num_args = 2;
+c_731479.num_elements = 3;
+c_731479.elements = (object *)e_731680;
+c_731479.elements[0] = ((closureN)self_73541)->elements[0];
+c_731479.elements[1] = ((closureN)self_73541)->elements[1];
+c_731479.elements[2] = ((closureN)self_73541)->elements[3];
+
+return_direct_with_clo2(data,(closure)&c_731479,__lambda_108,  ((closureN)self_73541)->elements[2], r_73397);; 
+}
+
+static void __lambda_108(void *data, int argc, object self_73542, object var_73102_73160_73202, object arg_91cust_91type_73103_73161_73203) {
+  
+closureN_type c_731481;
+object e_731505 [3];
+c_731481.hdr.mark = gc_color_red;
+ c_731481.hdr.grayed = 0;
+c_731481.tag = closureN_tag;
+ c_731481.fn = (function_type)__lambda_109;
+c_731481.num_args = 0;
+c_731481.num_elements = 3;
+c_731481.elements = (object *)e_731505;
+c_731481.elements[0] = ((closureN)self_73542)->elements[0];
+c_731481.elements[1] = arg_91cust_91type_73103_73161_73203;
+c_731481.elements[2] = ((closureN)self_73542)->elements[2];
+
+
+closureN_type c_731506;
+object e_731679 [5];
+c_731506.hdr.mark = gc_color_red;
+ c_731506.hdr.grayed = 0;
+c_731506.tag = closureN_tag;
+ c_731506.fn = (function_type)__lambda_112;
+c_731506.num_args = 1;
+c_731506.num_elements = 5;
+c_731506.elements = (object *)e_731679;
+c_731506.elements[0] = ((closureN)self_73542)->elements[0];
+c_731506.elements[1] = arg_91cust_91type_73103_73161_73203;
+c_731506.elements[2] = ((closureN)self_73542)->elements[1];
+c_731506.elements[3] = ((closureN)self_73542)->elements[2];
+c_731506.elements[4] = var_73102_73160_73202;
+
+return_direct_with_clo1(data,(closure)&c_731481,__lambda_109,  &c_731506);; 
+}
+
+static void __lambda_112(void *data, int argc, object self_73543, object tmp_73104_73107_73162_73204) {
+  
+closureN_type c_731508;
+object e_731670 [5];
+c_731508.hdr.mark = gc_color_red;
+ c_731508.hdr.grayed = 0;
+c_731508.tag = closureN_tag;
+ c_731508.fn = (function_type)__lambda_113;
+c_731508.num_args = 0;
+c_731508.num_elements = 5;
+c_731508.elements = (object *)e_731670;
+c_731508.elements[0] = ((closureN)self_73543)->elements[0];
+c_731508.elements[1] = ((closureN)self_73543)->elements[1];
+c_731508.elements[2] = tmp_73104_73107_73162_73204;
+c_731508.elements[3] = ((closureN)self_73543)->elements[3];
+c_731508.elements[4] = ((closureN)self_73543)->elements[4];
+
+
+closureN_type c_731671;
+object e_731678 [2];
+c_731671.hdr.mark = gc_color_red;
+ c_731671.hdr.grayed = 0;
+c_731671.tag = closureN_tag;
+ c_731671.fn = (function_type)__lambda_122;
+c_731671.num_args = 1;
+c_731671.num_elements = 2;
+c_731671.elements = (object *)e_731678;
+c_731671.elements[0] = ((closureN)self_73543)->elements[2];
+c_731671.elements[1] = ((closureN)self_73543)->elements[4];
+
+return_direct_with_clo1(data,(closure)&c_731508,__lambda_113,  &c_731671);; 
+}
+
+static void __lambda_122(void *data, int argc, object self_73544, object r_73398) {
+  
+pair_type local_731676; 
+return_closcall1(data,  ((closureN)self_73544)->elements[0],  set_pair_as_expr(&local_731676, ((closureN)self_73544)->elements[1], r_73398));; 
+}
+
+static void __lambda_113(void *data, int argc, object self_73545, object k_73400) {
+  object r_73401;
+    
+if( (boolean_f != Cyc_eq(((closureN)self_73545)->elements[2], quote__int)) ){ 
+  r_73401 = boolean_t;
+} else { 
+  
+  r_73401 = Cyc_eq(((closureN)self_73545)->elements[2], quote_integer);}
+;if( (boolean_f != r_73401) ){ 
+  
+make_utf8_string_with_len(c_731522, "obj_obj2int(", 12, 12);
+
+make_utf8_string_with_len(c_731524, ")", 1, 1);
+
+object c_731521 = Cyc_string_append(data,  k_73400,3,&c_731522, ((closureN)self_73545)->elements[4], &c_731524);
+return_closcall1(data,  k_73400,  c_731521);
+} else { 
+  
+closureN_type c_731526;
+object e_731535 [1];
+c_731526.hdr.mark = gc_color_red;
+ c_731526.hdr.grayed = 0;
+c_731526.tag = closureN_tag;
+ c_731526.fn = (function_type)__lambda_114;
+c_731526.num_args = 0;
+c_731526.num_elements = 1;
+c_731526.elements = (object *)e_731535;
+c_731526.elements[0] = ((closureN)self_73545)->elements[2];
+
+
+closureN_type c_731536;
+object e_731669 [6];
+c_731536.hdr.mark = gc_color_red;
+ c_731536.hdr.grayed = 0;
+c_731536.tag = closureN_tag;
+ c_731536.fn = (function_type)__lambda_115;
+c_731536.num_args = 1;
+c_731536.num_elements = 6;
+c_731536.elements = (object *)e_731669;
+c_731536.elements[0] = ((closureN)self_73545)->elements[0];
+c_731536.elements[1] = ((closureN)self_73545)->elements[1];
+c_731536.elements[2] = k_73400;
+c_731536.elements[3] = ((closureN)self_73545)->elements[2];
+c_731536.elements[4] = ((closureN)self_73545)->elements[3];
+c_731536.elements[5] = ((closureN)self_73545)->elements[4];
+
+return_direct_with_clo1(data,(closure)&c_731526,__lambda_114,  &c_731536);}
+;; 
+}
+
+static void __lambda_115(void *data, int argc, object self_73546, object r_73402) {
+  if( (boolean_f != r_73402) ){ 
+  
+make_utf8_string_with_len(c_731542, "double_value(", 13, 13);
+
+make_utf8_string_with_len(c_731544, ")", 1, 1);
+
+object c_731541 = Cyc_string_append(data,  ((closureN)self_73546)->elements[2],3,&c_731542, ((closureN)self_73546)->elements[5], &c_731544);
+return_closcall1(data,  ((closureN)self_73546)->elements[2],  c_731541);
+} else { 
+  
+closureN_type c_731546;
+object e_731555 [1];
+c_731546.hdr.mark = gc_color_red;
+ c_731546.hdr.grayed = 0;
+c_731546.tag = closureN_tag;
+ c_731546.fn = (function_type)__lambda_116;
+c_731546.num_args = 0;
+c_731546.num_elements = 1;
+c_731546.elements = (object *)e_731555;
+c_731546.elements[0] = ((closureN)self_73546)->elements[3];
+
+
+closureN_type c_731556;
+object e_731668 [6];
+c_731556.hdr.mark = gc_color_red;
+ c_731556.hdr.grayed = 0;
+c_731556.tag = closureN_tag;
+ c_731556.fn = (function_type)__lambda_117;
+c_731556.num_args = 1;
+c_731556.num_elements = 6;
+c_731556.elements = (object *)e_731668;
+c_731556.elements[0] = ((closureN)self_73546)->elements[0];
+c_731556.elements[1] = ((closureN)self_73546)->elements[1];
+c_731556.elements[2] = ((closureN)self_73546)->elements[2];
+c_731556.elements[3] = ((closureN)self_73546)->elements[3];
+c_731556.elements[4] = ((closureN)self_73546)->elements[4];
+c_731556.elements[5] = ((closureN)self_73546)->elements[5];
+
+return_direct_with_clo1(data,(closure)&c_731546,__lambda_116,  &c_731556);}
+;; 
+}
+
+static void __lambda_117(void *data, int argc, object self_73547, object r_73403) {
+  if( (boolean_f != r_73403) ){ 
+  
+make_utf8_string_with_len(c_731562, "bignum_value(", 13, 13);
+
+make_utf8_string_with_len(c_731564, ")", 1, 1);
+
+object c_731561 = Cyc_string_append(data,  ((closureN)self_73547)->elements[2],3,&c_731562, ((closureN)self_73547)->elements[5], &c_731564);
+return_closcall1(data,  ((closureN)self_73547)->elements[2],  c_731561);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_bool)) ){ 
+  
+make_utf8_string_with_len(c_731573, "(", 1, 1);
+
+make_utf8_string_with_len(c_731575, " == boolean_f)", 14, 14);
+
+object c_731572 = Cyc_string_append(data,  ((closureN)self_73547)->elements[2],3,&c_731573, ((closureN)self_73547)->elements[5], &c_731575);
+return_closcall1(data,  ((closureN)self_73547)->elements[2],  c_731572);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote__char)) ){ 
+  
+make_utf8_string_with_len(c_731584, "obj_obj2char(", 13, 13);
+
+make_utf8_string_with_len(c_731586, ")", 1, 1);
+
+object c_731583 = Cyc_string_append(data,  ((closureN)self_73547)->elements[2],3,&c_731584, ((closureN)self_73547)->elements[5], &c_731586);
+return_closcall1(data,  ((closureN)self_73547)->elements[2],  c_731583);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_string)) ){ 
+  
+make_utf8_string_with_len(c_731595, "string_str(", 11, 11);
+
+make_utf8_string_with_len(c_731597, ")", 1, 1);
+
+object c_731594 = Cyc_string_append(data,  ((closureN)self_73547)->elements[2],3,&c_731595, ((closureN)self_73547)->elements[5], &c_731597);
+return_closcall1(data,  ((closureN)self_73547)->elements[2],  c_731594);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_symbol)) ){ 
+  
+make_utf8_string_with_len(c_731606, "symbol_desc(", 12, 12);
+
+make_utf8_string_with_len(c_731608, ")", 1, 1);
+
+object c_731605 = Cyc_string_append(data,  ((closureN)self_73547)->elements[2],3,&c_731606, ((closureN)self_73547)->elements[5], &c_731608);
+return_closcall1(data,  ((closureN)self_73547)->elements[2],  c_731605);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_bytevector)) ){ 
+  
+make_utf8_string_with_len(c_731617, "(((bytevector_type *)", 21, 21);
+
+make_utf8_string_with_len(c_731619, ")->data)", 8, 8);
+
+object c_731616 = Cyc_string_append(data,  ((closureN)self_73547)->elements[2],3,&c_731617, ((closureN)self_73547)->elements[5], &c_731619);
+return_closcall1(data,  ((closureN)self_73547)->elements[2],  c_731616);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_opaque)) ){ 
+  
+make_utf8_string_with_len(c_731628, "opaque_ptr(", 11, 11);
+
+make_utf8_string_with_len(c_731630, ")", 1, 1);
+
+object c_731627 = Cyc_string_append(data,  ((closureN)self_73547)->elements[2],3,&c_731628, ((closureN)self_73547)->elements[5], &c_731630);
+return_closcall1(data,  ((closureN)self_73547)->elements[2],  c_731627);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73547)->elements[3], quote_c_91void)) ){ 
+  
+make_utf8_string_with_len(c_731636, "Cyc_VOID", 8, 8);
+return_closcall1(data,  ((closureN)self_73547)->elements[2],  &c_731636);
+} else { 
+  
+closureN_type c_731638;
+object e_731662 [3];
+c_731638.hdr.mark = gc_color_red;
+ c_731638.hdr.grayed = 0;
+c_731638.tag = closureN_tag;
+ c_731638.fn = (function_type)__lambda_118;
+c_731638.num_args = 0;
+c_731638.num_elements = 3;
+c_731638.elements = (object *)e_731662;
+c_731638.elements[0] = ((closureN)self_73547)->elements[0];
+c_731638.elements[1] = ((closureN)self_73547)->elements[1];
+c_731638.elements[2] = ((closureN)self_73547)->elements[4];
+
+
+closureN_type c_731663;
+object e_731667 [1];
+c_731663.hdr.mark = gc_color_red;
+ c_731663.hdr.grayed = 0;
+c_731663.tag = closureN_tag;
+ c_731663.fn = (function_type)__lambda_121;
+c_731663.num_args = 1;
+c_731663.num_elements = 1;
+c_731663.elements = (object *)e_731667;
+c_731663.elements[0] = ((closureN)self_73547)->elements[2];
+
+return_direct_with_clo1(data,(closure)&c_731638,__lambda_118,  &c_731663);}
+;}
+;}
+;}
+;}
+;}
+;}
+;}
+;; 
+}
+
+static void __lambda_121(void *data, int argc, object self_73548, object r_73411) {
+  
+make_utf8_string_with_len(c_731666, "scm->c unable to convert scheme object of type ", 47, 47);
+return_closcall3(data,  __glo_error_scheme_base,  ((closureN)self_73548)->elements[0], &c_731666, r_73411);; 
+}
+
+static void __lambda_118(void *data, int argc, object self_73549, object k_73412) {
+  if( (boolean_f != ((closureN)self_73549)->elements[1]) ){ 
+  
+closureN_type c_731641;
+object e_731652 [2];
+c_731641.hdr.mark = gc_color_red;
+ c_731641.hdr.grayed = 0;
+c_731641.tag = closureN_tag;
+ c_731641.fn = (function_type)__lambda_119;
+c_731641.num_args = 0;
+c_731641.num_elements = 2;
+c_731641.elements = (object *)e_731652;
+c_731641.elements[0] = ((closureN)self_73549)->elements[0];
+c_731641.elements[1] = ((closureN)self_73549)->elements[1];
+
+
+closureN_type c_731653;
+object e_731659 [2];
+c_731653.hdr.mark = gc_color_red;
+ c_731653.hdr.grayed = 0;
+c_731653.tag = closureN_tag;
+ c_731653.fn = (function_type)__lambda_120;
+c_731653.num_args = 1;
+c_731653.num_elements = 2;
+c_731653.elements = (object *)e_731659;
+c_731653.elements[0] = ((closureN)self_73549)->elements[1];
+c_731653.elements[1] = k_73412;
+
+return_direct_with_clo1(data,(closure)&c_731641,__lambda_119,  &c_731653);
+} else { 
+  return_closcall1(data,  k_73412,  ((closureN)self_73549)->elements[2]);}
+;; 
+}
+
+static void __lambda_120(void *data, int argc, object self_73550, object r_73413) {
+  
+
+return_closcall1(data,  ((closureN)self_73550)->elements[1],  Cyc_car(data, ((closureN)self_73550)->elements[0]));; 
+}
+
+static void __lambda_119(void *data, int argc, object self_73551, object k_73414) {
+    
+  
+if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, ((closureN)self_73551)->elements[1]), obj_int2obj(1))) ){ 
+  
+
+return_direct_with_clo1(data,  k_73414,__lambda_120,  Cyc_set_cell(data, ((closureN)self_73551)->elements[0], boolean_t));
+} else { 
+  return_direct_with_clo1(data,  k_73414,__lambda_120,  Cyc_VOID);}
+;; 
+}
+
+static void __lambda_116(void *data, int argc, object self_73552, object k_73424) {
+    
+if( (boolean_f != Cyc_eq(((closureN)self_73552)->elements[0], quote_bignum)) ){ 
+  return_direct_with_clo1(data,  k_73424,__lambda_117,  boolean_t);
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73424,__lambda_117,  Cyc_eq(((closureN)self_73552)->elements[0], quote_bigint));}
+;; 
+}
+
+static void __lambda_114(void *data, int argc, object self_73553, object k_73428) {
+    
+if( (boolean_f != Cyc_eq(((closureN)self_73553)->elements[0], quote__double)) ){ 
+  return_direct_with_clo1(data,  k_73428,__lambda_115,  boolean_t);
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73428,__lambda_115,  Cyc_eq(((closureN)self_73553)->elements[0], quote__float));}
+;; 
+}
+
+static void __lambda_109(void *data, int argc, object self_73554, object k_73436) {
+  if( (boolean_f != ((closureN)self_73554)->elements[1]) ){ 
+  
+closureN_type c_731484;
+object e_731495 [2];
+c_731484.hdr.mark = gc_color_red;
+ c_731484.hdr.grayed = 0;
+c_731484.tag = closureN_tag;
+ c_731484.fn = (function_type)__lambda_110;
+c_731484.num_args = 0;
+c_731484.num_elements = 2;
+c_731484.elements = (object *)e_731495;
+c_731484.elements[0] = ((closureN)self_73554)->elements[0];
+c_731484.elements[1] = ((closureN)self_73554)->elements[1];
+
+
+closureN_type c_731496;
+object e_731502 [2];
+c_731496.hdr.mark = gc_color_red;
+ c_731496.hdr.grayed = 0;
+c_731496.tag = closureN_tag;
+ c_731496.fn = (function_type)__lambda_111;
+c_731496.num_args = 1;
+c_731496.num_elements = 2;
+c_731496.elements = (object *)e_731502;
+c_731496.elements[0] = ((closureN)self_73554)->elements[1];
+c_731496.elements[1] = k_73436;
+
+return_direct_with_clo1(data,(closure)&c_731484,__lambda_110,  &c_731496);
+} else { 
+  return_closcall1(data,  k_73436,  ((closureN)self_73554)->elements[2]);}
+;; 
+}
+
+static void __lambda_111(void *data, int argc, object self_73555, object r_73437) {
+  
+
+return_closcall1(data,  ((closureN)self_73555)->elements[1],  Cyc_car(data, ((closureN)self_73555)->elements[0]));; 
+}
+
+static void __lambda_110(void *data, int argc, object self_73556, object k_73438) {
+    
+  
+if( (boolean_f != Cyc_num_fast_gt_op(data, Cyc_length(data, ((closureN)self_73556)->elements[1]), obj_int2obj(1))) ){ 
+  
+
+return_direct_with_clo1(data,  k_73438,__lambda_111,  Cyc_set_cell(data, ((closureN)self_73556)->elements[0], boolean_t));
+} else { 
+  return_direct_with_clo1(data,  k_73438,__lambda_111,  Cyc_VOID);}
+;; 
+}
+
+static void __lambda_10(void *data, int argc, object self_73557, object r_73394) {
+  
+closureN_type c_73691;
+object e_731464 [6];
+c_73691.hdr.mark = gc_color_red;
+ c_73691.hdr.grayed = 0;
+c_73691.tag = closureN_tag;
+ c_73691.fn = (function_type)__lambda_11;
+c_73691.num_args = 1;
+c_73691.num_elements = 6;
+c_73691.elements = (object *)e_731464;
+c_73691.elements[0] = ((closureN)self_73557)->elements[0];
+c_73691.elements[1] = ((closureN)self_73557)->elements[1];
+c_73691.elements[2] = ((closureN)self_73557)->elements[2];
+c_73691.elements[3] = ((closureN)self_73557)->elements[3];
+c_73691.elements[4] = ((closureN)self_73557)->elements[4];
+c_73691.elements[5] = ((closureN)self_73557)->elements[5];
+
+
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_73691, r_73394, Cyc_cddddr(data, ((closureN)self_73557)->elements[2]));; 
+}
+
+static void __lambda_11(void *data, int argc, object self_73558, object arg_91syms_95unbox_7336_73137_73179) {
+  
+closureN_type c_73693;
+object e_73733 [2];
+c_73693.hdr.mark = gc_color_red;
+ c_73693.hdr.grayed = 0;
+c_73693.tag = closureN_tag;
+ c_73693.fn = (function_type)__lambda_12;
+c_73693.num_args = 0;
+c_73693.num_elements = 2;
+c_73693.elements = (object *)e_73733;
+c_73693.elements[0] = ((closureN)self_73558)->elements[2];
+c_73693.elements[1] = ((closureN)self_73558)->elements[4];
+
+
+closureN_type c_73734;
+object e_731463 [7];
+c_73734.hdr.mark = gc_color_red;
+ c_73734.hdr.grayed = 0;
+c_73734.tag = closureN_tag;
+ c_73734.fn = (function_type)__lambda_15;
+c_73734.num_args = 1;
+c_73734.num_elements = 7;
+c_73734.elements = (object *)e_731463;
+c_73734.elements[0] = ((closureN)self_73558)->elements[0];
+c_73734.elements[1] = arg_91syms_95unbox_7336_73137_73179;
+c_73734.elements[2] = ((closureN)self_73558)->elements[1];
+c_73734.elements[3] = ((closureN)self_73558)->elements[2];
+c_73734.elements[4] = ((closureN)self_73558)->elements[3];
+c_73734.elements[5] = ((closureN)self_73558)->elements[4];
+c_73734.elements[6] = ((closureN)self_73558)->elements[5];
+
+return_direct_with_clo1(data,(closure)&c_73693,__lambda_12,  &c_73734);; 
+}
+
+static void __lambda_15(void *data, int argc, object self_73559, object tmp_7392_7395_73153_73195) {
+  
+closureN_type c_73736;
+object e_731186 [4];
+c_73736.hdr.mark = gc_color_red;
+ c_73736.hdr.grayed = 0;
+c_73736.tag = closureN_tag;
+ c_73736.fn = (function_type)__lambda_16;
+c_73736.num_args = 0;
+c_73736.num_elements = 4;
+c_73736.elements = (object *)e_731186;
+c_73736.elements[0] = ((closureN)self_73559)->elements[1];
+c_73736.elements[1] = ((closureN)self_73559)->elements[3];
+c_73736.elements[2] = ((closureN)self_73559)->elements[5];
+c_73736.elements[3] = tmp_7392_7395_73153_73195;
+
+
+closureN_type c_731187;
+object e_731462 [6];
+c_731187.hdr.mark = gc_color_red;
+ c_731187.hdr.grayed = 0;
+c_731187.tag = closureN_tag;
+ c_731187.fn = (function_type)__lambda_74;
+c_731187.num_args = 1;
+c_731187.num_elements = 6;
+c_731187.elements = (object *)e_731462;
+c_731187.elements[0] = ((closureN)self_73559)->elements[0];
+c_731187.elements[1] = ((closureN)self_73559)->elements[1];
+c_731187.elements[2] = ((closureN)self_73559)->elements[2];
+c_731187.elements[3] = ((closureN)self_73559)->elements[3];
+c_731187.elements[4] = ((closureN)self_73559)->elements[4];
+c_731187.elements[5] = ((closureN)self_73559)->elements[6];
+
+return_direct_with_clo1(data,(closure)&c_73736,__lambda_16,  &c_731187);; 
+}
+
+static void __lambda_74(void *data, int argc, object self_73560, object returns_7339_73138_73180) {
+  
+closureN_type c_731189;
+object e_731453 [7];
+c_731189.hdr.mark = gc_color_red;
+ c_731189.hdr.grayed = 0;
+c_731189.tag = closureN_tag;
+ c_731189.fn = (function_type)__lambda_75;
+c_731189.num_args = 1;
+c_731189.num_elements = 7;
+c_731189.elements = (object *)e_731453;
+c_731189.elements[0] = ((closureN)self_73560)->elements[0];
+c_731189.elements[1] = ((closureN)self_73560)->elements[1];
+c_731189.elements[2] = ((closureN)self_73560)->elements[2];
+c_731189.elements[3] = ((closureN)self_73560)->elements[3];
+c_731189.elements[4] = returns_7339_73138_73180;
+c_731189.elements[5] = ((closureN)self_73560)->elements[4];
+c_731189.elements[6] = ((closureN)self_73560)->elements[5];
+
+
+mclosure0(c_731454, (function_type)__lambda_102);c_731454.num_args = 1;
+return_direct_with_clo1(data,(closure)&c_731189,__lambda_75,  &c_731454);; 
+}
+
+static void __lambda_102(void *data, int argc, object self_73561, object k_73299, object sym_95unbox_7391_73152_73194) {
+  
+make_utf8_string_with_len(c_731459, ", object ", 9, 9);
+
+
+
+object c_731458 = Cyc_string_append(data,  k_73299,2,&c_731459, Cyc_car(data, sym_95unbox_7391_73152_73194));
+return_closcall1(data,  k_73299,  c_731458);; 
+}
+
+static void __lambda_75(void *data, int argc, object self_73562, object r_73298) {
+  
+closureN_type c_731191;
+object e_731451 [7];
+c_731191.hdr.mark = gc_color_red;
+ c_731191.hdr.grayed = 0;
+c_731191.tag = closureN_tag;
+ c_731191.fn = (function_type)__lambda_76;
+c_731191.num_args = 1;
+c_731191.num_elements = 7;
+c_731191.elements = (object *)e_731451;
+c_731191.elements[0] = ((closureN)self_73562)->elements[0];
+c_731191.elements[1] = ((closureN)self_73562)->elements[1];
+c_731191.elements[2] = ((closureN)self_73562)->elements[2];
+c_731191.elements[3] = ((closureN)self_73562)->elements[3];
+c_731191.elements[4] = ((closureN)self_73562)->elements[4];
+c_731191.elements[5] = ((closureN)self_73562)->elements[5];
+c_731191.elements[6] = ((closureN)self_73562)->elements[6];
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_731191, r_73298, ((closureN)self_73562)->elements[1]);; 
+}
+
+static void __lambda_76(void *data, int argc, object self_73563, object r_73297) {
+  
+closureN_type c_731193;
+object e_731447 [7];
+c_731193.hdr.mark = gc_color_red;
+ c_731193.hdr.grayed = 0;
+c_731193.tag = closureN_tag;
+ c_731193.fn = (function_type)__lambda_77;
+c_731193.num_args = 1;
+c_731193.num_elements = 7;
+c_731193.elements = (object *)e_731447;
+c_731193.elements[0] = ((closureN)self_73563)->elements[0];
+c_731193.elements[1] = ((closureN)self_73563)->elements[1];
+c_731193.elements[2] = ((closureN)self_73563)->elements[2];
+c_731193.elements[3] = ((closureN)self_73563)->elements[3];
+c_731193.elements[4] = ((closureN)self_73563)->elements[4];
+c_731193.elements[5] = ((closureN)self_73563)->elements[5];
+c_731193.elements[6] = ((closureN)self_73563)->elements[6];
+
+
+object c_731450 = apply(data,(closure)&c_731193,primitive_string_91append, r_73297);
+return_closcall1(data,(closure)&c_731193,  c_731450);; 
+}
+
+static void __lambda_77(void *data, int argc, object self_73564, object r_73296) {
+  
+closureN_type c_731195;
+object e_731441 [7];
+c_731195.hdr.mark = gc_color_red;
+ c_731195.hdr.grayed = 0;
+c_731195.tag = closureN_tag;
+ c_731195.fn = (function_type)__lambda_78;
+c_731195.num_args = 1;
+c_731195.num_elements = 7;
+c_731195.elements = (object *)e_731441;
+c_731195.elements[0] = ((closureN)self_73564)->elements[0];
+c_731195.elements[1] = ((closureN)self_73564)->elements[1];
+c_731195.elements[2] = ((closureN)self_73564)->elements[2];
+c_731195.elements[3] = ((closureN)self_73564)->elements[3];
+c_731195.elements[4] = ((closureN)self_73564)->elements[4];
+c_731195.elements[5] = ((closureN)self_73564)->elements[5];
+c_731195.elements[6] = ((closureN)self_73564)->elements[6];
+
+
+make_utf8_string_with_len(c_731445, "(void *data, int argc, closure _, object k ", 43, 43);
+
+make_utf8_string_with_len(c_731446, ")", 1, 1);
+
+object c_731444 = Cyc_string_append(data,(closure)&c_731195,3,&c_731445, r_73296, &c_731446);
+return_closcall1(data,(closure)&c_731195,  c_731444);; 
+}
+
+static void __lambda_78(void *data, int argc, object self_73565, object args_7348_73141_73183) {
+  
+closureN_type c_731197;
+object e_731434 [7];
+c_731197.hdr.mark = gc_color_red;
+ c_731197.hdr.grayed = 0;
+c_731197.tag = closureN_tag;
+ c_731197.fn = (function_type)__lambda_79;
+c_731197.num_args = 1;
+c_731197.num_elements = 7;
+c_731197.elements = (object *)e_731434;
+c_731197.elements[0] = ((closureN)self_73565)->elements[0];
+c_731197.elements[1] = ((closureN)self_73565)->elements[1];
+c_731197.elements[2] = args_7348_73141_73183;
+c_731197.elements[3] = ((closureN)self_73565)->elements[3];
+c_731197.elements[4] = ((closureN)self_73565)->elements[4];
+c_731197.elements[5] = ((closureN)self_73565)->elements[5];
+c_731197.elements[6] = ((closureN)self_73565)->elements[6];
+
+
+closureN_type c_731435;
+object e_731440 [1];
+c_731435.hdr.mark = gc_color_red;
+ c_731435.hdr.grayed = 0;
+c_731435.tag = closureN_tag;
+ c_731435.fn = (function_type)__lambda_101;
+c_731435.num_args = 2;
+c_731435.num_elements = 1;
+c_731435.elements = (object *)e_731440;
+c_731435.elements[0] = ((closureN)self_73565)->elements[2];
+
+return_direct_with_clo1(data,(closure)&c_731197,__lambda_79,  &c_731435);; 
+}
+
+static void __lambda_101(void *data, int argc, object self_73566, object k_73295, object arg_7389_73150_73192, object type_7390_73151_73193) {
+  
+
+return_closcall3(data,  car(((closureN)self_73566)->elements[0]),  k_73295, arg_7389_73150_73192, type_7390_73151_73193);; 
+}
+
+static void __lambda_79(void *data, int argc, object self_73567, object r_73293) {
+  
+closureN_type c_731199;
+object e_731432 [7];
+c_731199.hdr.mark = gc_color_red;
+ c_731199.hdr.grayed = 0;
+c_731199.tag = closureN_tag;
+ c_731199.fn = (function_type)__lambda_80;
+c_731199.num_args = 1;
+c_731199.num_elements = 7;
+c_731199.elements = (object *)e_731432;
+c_731199.elements[0] = ((closureN)self_73567)->elements[0];
+c_731199.elements[1] = ((closureN)self_73567)->elements[2];
+c_731199.elements[2] = ((closureN)self_73567)->elements[3];
+c_731199.elements[3] = r_73293;
+c_731199.elements[4] = ((closureN)self_73567)->elements[4];
+c_731199.elements[5] = ((closureN)self_73567)->elements[5];
+c_731199.elements[6] = ((closureN)self_73567)->elements[6];
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_731199, primitive_car, ((closureN)self_73567)->elements[1]);; 
+}
+
+static void __lambda_80(void *data, int argc, object self_73568, object r_73294) {
+  
+closureN_type c_731201;
+object e_731427 [6];
+c_731201.hdr.mark = gc_color_red;
+ c_731201.hdr.grayed = 0;
+c_731201.tag = closureN_tag;
+ c_731201.fn = (function_type)__lambda_81;
+c_731201.num_args = 1;
+c_731201.num_elements = 6;
+c_731201.elements = (object *)e_731427;
+c_731201.elements[0] = ((closureN)self_73568)->elements[0];
+c_731201.elements[1] = ((closureN)self_73568)->elements[1];
+c_731201.elements[2] = ((closureN)self_73568)->elements[2];
+c_731201.elements[3] = ((closureN)self_73568)->elements[4];
+c_731201.elements[4] = ((closureN)self_73568)->elements[5];
+c_731201.elements[5] = ((closureN)self_73568)->elements[6];
+
+
+
+return_closcall4(data,  __glo_Cyc_91map_91loop_912_scheme_base,  &c_731201, ((closureN)self_73568)->elements[3], r_73294, Cyc_cddddr(data, ((closureN)self_73568)->elements[2]));; 
+}
+
+static void __lambda_81(void *data, int argc, object self_73569, object r_73292) {
+  
+closureN_type c_731203;
+object e_731423 [6];
+c_731203.hdr.mark = gc_color_red;
+ c_731203.hdr.grayed = 0;
+c_731203.tag = closureN_tag;
+ c_731203.fn = (function_type)__lambda_82;
+c_731203.num_args = 1;
+c_731203.num_elements = 6;
+c_731203.elements = (object *)e_731423;
+c_731203.elements[0] = ((closureN)self_73569)->elements[0];
+c_731203.elements[1] = ((closureN)self_73569)->elements[1];
+c_731203.elements[2] = ((closureN)self_73569)->elements[2];
+c_731203.elements[3] = ((closureN)self_73569)->elements[3];
+c_731203.elements[4] = ((closureN)self_73569)->elements[4];
+c_731203.elements[5] = ((closureN)self_73569)->elements[5];
+
+
+object c_731426 = apply(data,(closure)&c_731203,primitive_string_91append, r_73292);
+return_closcall1(data,(closure)&c_731203,  c_731426);; 
+}
+
+static void __lambda_82(void *data, int argc, object self_73570, object type_91checks_7351_73142_73184) {
+  
+closureN_type c_731205;
+object e_731411 [5];
+c_731205.hdr.mark = gc_color_red;
+ c_731205.hdr.grayed = 0;
+c_731205.tag = closureN_tag;
+ c_731205.fn = (function_type)__lambda_83;
+c_731205.num_args = 1;
+c_731205.num_elements = 5;
+c_731205.elements = (object *)e_731411;
+c_731205.elements[0] = ((closureN)self_73570)->elements[0];
+c_731205.elements[1] = ((closureN)self_73570)->elements[1];
+c_731205.elements[2] = ((closureN)self_73570)->elements[2];
+c_731205.elements[3] = ((closureN)self_73570)->elements[4];
+c_731205.elements[4] = ((closureN)self_73570)->elements[5];
+
+
+
+
+make_utf8_string_with_len(c_731418, "return_closcall1(data, k, ", 26, 26);
+
+
+
+make_utf8_string_with_len(c_731422, ");", 2, 2);
+
+object c_731414 = Cyc_string_append(data,(closure)&c_731205,5,type_91checks_7351_73142_73184, Cyc_car(data, ((closureN)self_73570)->elements[3]), &c_731418, Cyc_cdr(data, ((closureN)self_73570)->elements[3]), &c_731422);
+return_closcall1(data,(closure)&c_731205,  c_731414);; 
+}
+
+static void __lambda_83(void *data, int argc, object self_73571, object body_7354_73143_73185) {
+  
+closureN_type c_731207;
+object e_731403 [6];
+c_731207.hdr.mark = gc_color_red;
+ c_731207.hdr.grayed = 0;
+c_731207.tag = closureN_tag;
+ c_731207.fn = (function_type)__lambda_84;
+c_731207.num_args = 0;
+c_731207.num_elements = 6;
+c_731207.elements = (object *)e_731403;
+c_731207.elements[0] = ((closureN)self_73571)->elements[0];
+c_731207.elements[1] = ((closureN)self_73571)->elements[1];
+c_731207.elements[2] = body_7354_73143_73185;
+c_731207.elements[3] = ((closureN)self_73571)->elements[2];
+c_731207.elements[4] = ((closureN)self_73571)->elements[3];
+c_731207.elements[5] = ((closureN)self_73571)->elements[4];
+
+
+mclosure0(c_731404, (function_type)__lambda_99);c_731404.num_args = 1;
+return_direct_with_clo1(data,(closure)&c_731207,__lambda_84,  &c_731404);; 
+}
+
+static void __lambda_99(void *data, int argc, object self_73572, object r_73207) {
+  
+mclosure0(c_731406, (function_type)__lambda_100);c_731406.num_args = 1;
+return_closcall2(data,  __glo_pretty_91print_scheme_cyclone_pretty_91print,  &c_731406, r_73207);; 
+}
+
+static void __lambda_100(void *data, int argc, object self_73573, object r_73206) {
+  
+  
+  __halt(__halt(obj_int2obj(0)));; 
+}
+
+static void __lambda_84(void *data, int argc, object self_73574, object k_73224) {
+  
+closureN_type c_731209;
+object e_731399 [7];
+c_731209.hdr.mark = gc_color_red;
+ c_731209.hdr.grayed = 0;
+c_731209.tag = closureN_tag;
+ c_731209.fn = (function_type)__lambda_85;
+c_731209.num_args = 1;
+c_731209.num_elements = 7;
+c_731209.elements = (object *)e_731399;
+c_731209.elements[0] = ((closureN)self_73574)->elements[0];
+c_731209.elements[1] = ((closureN)self_73574)->elements[1];
+c_731209.elements[2] = ((closureN)self_73574)->elements[2];
+c_731209.elements[3] = ((closureN)self_73574)->elements[3];
+c_731209.elements[4] = k_73224;
+c_731209.elements[5] = ((closureN)self_73574)->elements[4];
+c_731209.elements[6] = ((closureN)self_73574)->elements[5];
+
+
+
+return_direct_with_clo1(data,(closure)&c_731209,__lambda_85,  car(((closureN)self_73574)->elements[4]));; 
+}
+
+static void __lambda_85(void *data, int argc, object self_73575, object tmp_7360_7362_73144_73186) {
+  object r_73225;
+  if( (boolean_f != tmp_7360_7362_73144_73186) ){ 
+  r_73225 = tmp_7360_7362_73144_73186;
+} else { 
+  
+  r_73225 = car(((closureN)self_73575)->elements[0]);}
+;if( (boolean_f != r_73225) ){ 
+  
+closureN_type c_731217;
+object e_731226 [1];
+c_731217.hdr.mark = gc_color_red;
+ c_731217.hdr.grayed = 0;
+c_731217.tag = closureN_tag;
+ c_731217.fn = (function_type)__lambda_86;
+c_731217.num_args = 0;
+c_731217.num_elements = 1;
+c_731217.elements = (object *)e_731226;
+c_731217.elements[0] = ((closureN)self_73575)->elements[5];
+
+
+closureN_type c_731227;
+object e_731379 [6];
+c_731227.hdr.mark = gc_color_red;
+ c_731227.hdr.grayed = 0;
+c_731227.tag = closureN_tag;
+ c_731227.fn = (function_type)__lambda_87;
+c_731227.num_args = 1;
+c_731227.num_elements = 6;
+c_731227.elements = (object *)e_731379;
+c_731227.elements[0] = ((closureN)self_73575)->elements[1];
+c_731227.elements[1] = ((closureN)self_73575)->elements[2];
+c_731227.elements[2] = ((closureN)self_73575)->elements[3];
+c_731227.elements[3] = ((closureN)self_73575)->elements[4];
+c_731227.elements[4] = ((closureN)self_73575)->elements[5];
+c_731227.elements[5] = ((closureN)self_73575)->elements[6];
+
+return_direct_with_clo1(data,(closure)&c_731217,__lambda_86,  &c_731227);
+} else { 
+  
+pair_type local_731384; 
+
+pair_type local_731387; 
+
+
+
+pair_type local_731393; 
+
+pair_type local_731397; 
+return_closcall1(data,  ((closureN)self_73575)->elements[4],  set_pair_as_expr(&local_731384, quote_define_91c, set_pair_as_expr(&local_731387, Cyc_cadr(data, ((closureN)self_73575)->elements[3]), set_pair_as_expr(&local_731393, ((closureN)self_73575)->elements[1], set_pair_as_expr(&local_731397, ((closureN)self_73575)->elements[2], NULL)))));}
+;; 
+}
+
+static void __lambda_87(void *data, int argc, object self_73576, object r_73226) {
+  
+closureN_type c_731229;
+object e_731298 [6];
+c_731229.hdr.mark = gc_color_red;
+ c_731229.hdr.grayed = 0;
+c_731229.tag = closureN_tag;
+ c_731229.fn = (function_type)__lambda_88;
+c_731229.num_args = 1;
+c_731229.num_elements = 6;
+c_731229.elements = (object *)e_731298;
+c_731229.elements[0] = ((closureN)self_73576)->elements[0];
+c_731229.elements[1] = ((closureN)self_73576)->elements[1];
+c_731229.elements[2] = ((closureN)self_73576)->elements[2];
+c_731229.elements[3] = ((closureN)self_73576)->elements[3];
+c_731229.elements[4] = ((closureN)self_73576)->elements[4];
+c_731229.elements[5] = ((closureN)self_73576)->elements[5];
+
+
+mclosure0(c_731299, (function_type)__lambda_92);c_731299.num_args = 1;
+return_direct_with_clo1(data,(closure)&c_731229,__lambda_88,  &c_731299);; 
+}
+
+static void __lambda_92(void *data, int argc, object self_73577, object k_73251, object type_7367_73146_73188) {
+  
+closureN_type c_731301;
+object e_731378 [2];
+c_731301.hdr.mark = gc_color_red;
+ c_731301.hdr.grayed = 0;
+c_731301.tag = closureN_tag;
+ c_731301.fn = (function_type)__lambda_93;
+c_731301.num_args = 1;
+c_731301.num_elements = 2;
+c_731301.elements = (object *)e_731378;
+c_731301.elements[0] = k_73251;
+c_731301.elements[1] = type_7367_73146_73188;
+
+return_closcall2(data,  __glo_gensym_scheme_cyclone_util,  &c_731301, quote_arg);; 
+}
+
+static void __lambda_93(void *data, int argc, object self_73578, object sym_7370_73147_73189) {
+  
+closureN_type c_731303;
+object e_731343 [2];
+c_731303.hdr.mark = gc_color_red;
+ c_731303.hdr.grayed = 0;
+c_731303.tag = closureN_tag;
+ c_731303.fn = (function_type)__lambda_94;
+c_731303.num_args = 1;
+c_731303.num_elements = 2;
+c_731303.elements = (object *)e_731343;
+c_731303.elements[0] = ((closureN)self_73578)->elements[0];
+c_731303.elements[1] = sym_7370_73147_73189;
+
+
+pair_type local_731346; 
+
+pair_type local_731349; 
+
+pair_type local_731352; 
+
+pair_type local_731355; 
+
+pair_type local_731358; 
+
+pair_type local_731361; 
+
+pair_type local_731364; 
+
+pair_type local_731367; 
+
+pair_type local_731370; 
+
+pair_type local_731373; 
+
+pair_type local_731376; 
+return_closcall2(data,  __glo_eval_scheme_eval,  &c_731303, set_pair_as_expr(&local_731346, quote_with_91handler, set_pair_as_expr(&local_731349, set_pair_as_expr(&local_731352, quote_lambda, set_pair_as_expr(&local_731355, quote_X, set_pair_as_expr(&local_731358, boolean_f, NULL))), set_pair_as_expr(&local_731361, set_pair_as_expr(&local_731364, quote_hash_91table_91ref, set_pair_as_expr(&local_731367, quote__85foreign_91types_85, set_pair_as_expr(&local_731370, set_pair_as_expr(&local_731373, quote_quote, set_pair_as_expr(&local_731376, ((closureN)self_73578)->elements[1], NULL)), NULL))), NULL))));; 
+}
+
+static void __lambda_94(void *data, int argc, object self_73579, object arg_91cust_91type_7373_73148_73190) {
+  
+closureN_type c_731305;
+object e_731334 [2];
+c_731305.hdr.mark = gc_color_red;
+ c_731305.hdr.grayed = 0;
+c_731305.tag = closureN_tag;
+ c_731305.fn = (function_type)__lambda_95;
+c_731305.num_args = 0;
+c_731305.num_elements = 2;
+c_731305.elements = (object *)e_731334;
+c_731305.elements[0] = arg_91cust_91type_7373_73148_73190;
+c_731305.elements[1] = ((closureN)self_73579)->elements[1];
+
+
+closureN_type c_731335;
+object e_731342 [2];
+c_731335.hdr.mark = gc_color_red;
+ c_731335.hdr.grayed = 0;
+c_731335.tag = closureN_tag;
+ c_731335.fn = (function_type)__lambda_98;
+c_731335.num_args = 1;
+c_731335.num_elements = 2;
+c_731335.elements = (object *)e_731342;
+c_731335.elements[0] = ((closureN)self_73579)->elements[0];
+c_731335.elements[1] = ((closureN)self_73579)->elements[1];
+
+return_direct_with_clo1(data,(closure)&c_731305,__lambda_95,  &c_731335);; 
+}
+
+static void __lambda_98(void *data, int argc, object self_73580, object pass_91arg_7376_73149_73191) {
+  
+pair_type local_731340; 
+return_closcall1(data,  ((closureN)self_73580)->elements[0],  set_pair_as_expr(&local_731340, ((closureN)self_73580)->elements[1], pass_91arg_7376_73149_73191));; 
+}
+
+static void __lambda_95(void *data, int argc, object self_73581, object k_73255) {
+  
+closureN_type c_731307;
+object e_731316 [1];
+c_731307.hdr.mark = gc_color_red;
+ c_731307.hdr.grayed = 0;
+c_731307.tag = closureN_tag;
+ c_731307.fn = (function_type)__lambda_96;
+c_731307.num_args = 0;
+c_731307.num_elements = 1;
+c_731307.elements = (object *)e_731316;
+c_731307.elements[0] = ((closureN)self_73581)->elements[0];
+
+
+closureN_type c_731317;
+object e_731333 [3];
+c_731317.hdr.mark = gc_color_red;
+ c_731317.hdr.grayed = 0;
+c_731317.tag = closureN_tag;
+ c_731317.fn = (function_type)__lambda_97;
+c_731317.num_args = 1;
+c_731317.num_elements = 3;
+c_731317.elements = (object *)e_731333;
+c_731317.elements[0] = ((closureN)self_73581)->elements[0];
+c_731317.elements[1] = k_73255;
+c_731317.elements[2] = ((closureN)self_73581)->elements[1];
+
+return_direct_with_clo1(data,(closure)&c_731307,__lambda_96,  &c_731317);; 
+}
+
+static void __lambda_97(void *data, int argc, object self_73582, object r_73256) {
+  if( (boolean_f != r_73256) ){ 
+  
+pair_type local_731322; 
+
+
+
+pair_type local_731328; 
+return_closcall1(data,  ((closureN)self_73582)->elements[1],  set_pair_as_expr(&local_731322, Cyc_cadr(data, ((closureN)self_73582)->elements[0]), set_pair_as_expr(&local_731328, ((closureN)self_73582)->elements[2], NULL)));
+} else { 
+  return_closcall1(data,  ((closureN)self_73582)->elements[1],  ((closureN)self_73582)->elements[2]);}
+;; 
+}
+
+static void __lambda_96(void *data, int argc, object self_73583, object k_73260) {
+  if( (boolean_f != ((closureN)self_73583)->elements[0]) ){ 
+  
+
+
+
+return_direct_with_clo1(data,  k_73260,__lambda_97,  Cyc_num_fast_gt_op(data, Cyc_length(data, ((closureN)self_73583)->elements[0]), obj_int2obj(1)));
+} else { 
+  return_direct_with_clo1(data,  k_73260,__lambda_97,  boolean_f);}
+;; 
+}
+
+static void __lambda_88(void *data, int argc, object self_73584, object r_73250) {
+  
+closureN_type c_731231;
+object e_731294 [6];
+c_731231.hdr.mark = gc_color_red;
+ c_731231.hdr.grayed = 0;
+c_731231.tag = closureN_tag;
+ c_731231.fn = (function_type)__lambda_89;
+c_731231.num_args = 1;
+c_731231.num_elements = 6;
+c_731231.elements = (object *)e_731294;
+c_731231.elements[0] = ((closureN)self_73584)->elements[0];
+c_731231.elements[1] = ((closureN)self_73584)->elements[1];
+c_731231.elements[2] = ((closureN)self_73584)->elements[2];
+c_731231.elements[3] = ((closureN)self_73584)->elements[3];
+c_731231.elements[4] = ((closureN)self_73584)->elements[4];
+c_731231.elements[5] = ((closureN)self_73584)->elements[5];
+
+
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_731231, r_73250, Cyc_cddddr(data, ((closureN)self_73584)->elements[2]));; 
+}
+
+static void __lambda_89(void *data, int argc, object self_73585, object arg_91syms_7363_73145_73187) {
+  
+closureN_type c_731233;
+object e_731293 [7];
+c_731233.hdr.mark = gc_color_red;
+ c_731233.hdr.grayed = 0;
+c_731233.tag = closureN_tag;
+ c_731233.fn = (function_type)__lambda_90;
+c_731233.num_args = 1;
+c_731233.num_elements = 7;
+c_731233.elements = (object *)e_731293;
+c_731233.elements[0] = arg_91syms_7363_73145_73187;
+c_731233.elements[1] = ((closureN)self_73585)->elements[0];
+c_731233.elements[2] = ((closureN)self_73585)->elements[1];
+c_731233.elements[3] = ((closureN)self_73585)->elements[2];
+c_731233.elements[4] = ((closureN)self_73585)->elements[3];
+c_731233.elements[5] = ((closureN)self_73585)->elements[4];
+c_731233.elements[6] = ((closureN)self_73585)->elements[5];
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_731233, primitive_car, arg_91syms_7363_73145_73187);; 
+}
+
+static void __lambda_90(void *data, int argc, object self_73586, object r_73244) {
+  
+closureN_type c_731235;
+object e_731291 [7];
+c_731235.hdr.mark = gc_color_red;
+ c_731235.hdr.grayed = 0;
+c_731235.tag = closureN_tag;
+ c_731235.fn = (function_type)__lambda_91;
+c_731235.num_args = 1;
+c_731235.num_elements = 7;
+c_731235.elements = (object *)e_731291;
+c_731235.elements[0] = ((closureN)self_73586)->elements[1];
+c_731235.elements[1] = ((closureN)self_73586)->elements[2];
+c_731235.elements[2] = ((closureN)self_73586)->elements[3];
+c_731235.elements[3] = ((closureN)self_73586)->elements[4];
+c_731235.elements[4] = r_73244;
+c_731235.elements[5] = ((closureN)self_73586)->elements[5];
+c_731235.elements[6] = ((closureN)self_73586)->elements[6];
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_731235, primitive_cdr, ((closureN)self_73586)->elements[0]);; 
+}
+
+static void __lambda_91(void *data, int argc, object self_73587, object r_73243) {
+  
+pair_type local_731240; 
+
+pair_type local_731243; 
+
+pair_type local_731246; 
+
+pair_type local_731249; 
+
+pair_type local_731253; 
+
+pair_type local_731257; 
+
+pair_type local_731261; 
+
+pair_type local_731264; 
+
+pair_type local_731267; 
+
+pair_type local_731270; 
+
+
+
+pair_type local_731277; 
+
+pair_type local_731280; 
+
+
+
+pair_type local_731286; 
+
+pair_type local_731289; 
+return_closcall1(data,  ((closureN)self_73587)->elements[3],  set_pair_as_expr(&local_731240, quote_begin, set_pair_as_expr(&local_731243, set_pair_as_expr(&local_731246, quote_define_91c, set_pair_as_expr(&local_731249, ((closureN)self_73587)->elements[6], set_pair_as_expr(&local_731253, ((closureN)self_73587)->elements[0], set_pair_as_expr(&local_731257, ((closureN)self_73587)->elements[1], NULL)))), set_pair_as_expr(&local_731261, set_pair_as_expr(&local_731264, quote_define, set_pair_as_expr(&local_731267, set_pair_as_expr(&local_731270, Cyc_cadr(data, ((closureN)self_73587)->elements[2]), ((closureN)self_73587)->elements[4]), set_pair_as_expr(&local_731277, set_pair_as_expr(&local_731280, car(((closureN)self_73587)->elements[5]), set_pair_as_expr(&local_731286, set_pair_as_expr(&local_731289, ((closureN)self_73587)->elements[6], r_73243), NULL)), NULL))), NULL))));; 
+}
+
+static void __lambda_86(void *data, int argc, object self_73588, object k_73284) {
+    
+if( (boolean_f != car(((closureN)self_73588)->elements[0])) ){ 
+  return_direct_with_clo1(data,  k_73284,__lambda_87,  Cyc_VOID);
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73284,__lambda_87,  Cyc_set_cell(data, ((closureN)self_73588)->elements[0], quote_begin));}
+;; 
+}
+
+static void __lambda_16(void *data, int argc, object self_73589, object k_73302) {
+  object r_73303;
+    
+if( (boolean_f != Cyc_eq(((closureN)self_73589)->elements[3], quote__int)) ){ 
+  r_73303 = boolean_t;
+} else { 
+  
+  r_73303 = Cyc_eq(((closureN)self_73589)->elements[3], quote_integer);}
+;if( (boolean_f != r_73303) ){ 
+  
+closureN_type c_73747;
+object e_73777 [2];
+c_73747.hdr.mark = gc_color_red;
+ c_73747.hdr.grayed = 0;
+c_73747.tag = closureN_tag;
+ c_73747.fn = (function_type)__lambda_17;
+c_73747.num_args = 1;
+c_73747.num_elements = 2;
+c_73747.elements = (object *)e_73777;
+c_73747.elements[0] = ((closureN)self_73589)->elements[1];
+c_73747.elements[1] = k_73302;
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_73747, primitive_cdr, ((closureN)self_73589)->elements[0]);
+} else { 
+  
+closureN_type c_73780;
+object e_73789 [1];
+c_73780.hdr.mark = gc_color_red;
+ c_73780.hdr.grayed = 0;
+c_73780.tag = closureN_tag;
+ c_73780.fn = (function_type)__lambda_21;
+c_73780.num_args = 0;
+c_73780.num_elements = 1;
+c_73780.elements = (object *)e_73789;
+c_73780.elements[0] = ((closureN)self_73589)->elements[3];
+
+
+closureN_type c_73790;
+object e_731185 [5];
+c_73790.hdr.mark = gc_color_red;
+ c_73790.hdr.grayed = 0;
+c_73790.tag = closureN_tag;
+ c_73790.fn = (function_type)__lambda_22;
+c_73790.num_args = 1;
+c_73790.num_elements = 5;
+c_73790.elements = (object *)e_731185;
+c_73790.elements[0] = ((closureN)self_73589)->elements[0];
+c_73790.elements[1] = ((closureN)self_73589)->elements[1];
+c_73790.elements[2] = k_73302;
+c_73790.elements[3] = ((closureN)self_73589)->elements[2];
+c_73790.elements[4] = ((closureN)self_73589)->elements[3];
+
+return_direct_with_clo1(data,(closure)&c_73780,__lambda_21,  &c_73790);}
+;; 
+}
+
+static void __lambda_22(void *data, int argc, object self_73594, object r_73308) {
+  if( (boolean_f != r_73308) ){ 
+  
+closureN_type c_73792;
+object e_73839 [3];
+c_73792.hdr.mark = gc_color_red;
+ c_73792.hdr.grayed = 0;
+c_73792.tag = closureN_tag;
+ c_73792.fn = (function_type)__lambda_23;
+c_73792.num_args = 1;
+c_73792.num_elements = 3;
+c_73792.elements = (object *)e_73839;
+c_73792.elements[0] = ((closureN)self_73594)->elements[0];
+c_73792.elements[1] = ((closureN)self_73594)->elements[1];
+c_73792.elements[2] = ((closureN)self_73594)->elements[2];
+
+return_closcall2(data,  __glo_gensym_scheme_cyclone_util,  &c_73792, quote_var);
+} else { 
+  
+closureN_type c_73841;
+object e_73850 [1];
+c_73841.hdr.mark = gc_color_red;
+ c_73841.hdr.grayed = 0;
+c_73841.tag = closureN_tag;
+ c_73841.fn = (function_type)__lambda_30;
+c_73841.num_args = 0;
+c_73841.num_elements = 1;
+c_73841.elements = (object *)e_73850;
+c_73841.elements[0] = ((closureN)self_73594)->elements[4];
+
+
+closureN_type c_73851;
+object e_731184 [5];
+c_73851.hdr.mark = gc_color_red;
+ c_73851.hdr.grayed = 0;
+c_73851.tag = closureN_tag;
+ c_73851.fn = (function_type)__lambda_31;
+c_73851.num_args = 1;
+c_73851.num_elements = 5;
+c_73851.elements = (object *)e_731184;
+c_73851.elements[0] = ((closureN)self_73594)->elements[0];
+c_73851.elements[1] = ((closureN)self_73594)->elements[1];
+c_73851.elements[2] = ((closureN)self_73594)->elements[2];
+c_73851.elements[3] = ((closureN)self_73594)->elements[3];
+c_73851.elements[4] = ((closureN)self_73594)->elements[4];
+
+return_direct_with_clo1(data,(closure)&c_73841,__lambda_30,  &c_73851);}
+;; 
+}
+
+static void __lambda_31(void *data, int argc, object self_73602, object r_73317) {
+  if( (boolean_f != r_73317) ){ 
+  
+closureN_type c_73853;
+object e_73901 [3];
+c_73853.hdr.mark = gc_color_red;
+ c_73853.hdr.grayed = 0;
+c_73853.tag = closureN_tag;
+ c_73853.fn = (function_type)__lambda_32;
+c_73853.num_args = 1;
+c_73853.num_elements = 3;
+c_73853.elements = (object *)e_73901;
+c_73853.elements[0] = ((closureN)self_73602)->elements[0];
+c_73853.elements[1] = ((closureN)self_73602)->elements[1];
+c_73853.elements[2] = ((closureN)self_73602)->elements[2];
+
+return_closcall2(data,  __glo_gensym_scheme_cyclone_util,  &c_73853, quote_var);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_bool)) ){ 
+  
+closureN_type c_73906;
+object e_73936 [2];
+c_73906.hdr.mark = gc_color_red;
+ c_73906.hdr.grayed = 0;
+c_73906.tag = closureN_tag;
+ c_73906.fn = (function_type)__lambda_39;
+c_73906.num_args = 1;
+c_73906.num_elements = 2;
+c_73906.elements = (object *)e_73936;
+c_73906.elements[0] = ((closureN)self_73602)->elements[1];
+c_73906.elements[1] = ((closureN)self_73602)->elements[2];
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_73906, primitive_cdr, ((closureN)self_73602)->elements[0]);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote__char)) ){ 
+  
+closureN_type c_73942;
+object e_73972 [2];
+c_73942.hdr.mark = gc_color_red;
+ c_73942.hdr.grayed = 0;
+c_73942.tag = closureN_tag;
+ c_73942.fn = (function_type)__lambda_43;
+c_73942.num_args = 1;
+c_73942.num_elements = 2;
+c_73942.elements = (object *)e_73972;
+c_73942.elements[0] = ((closureN)self_73602)->elements[1];
+c_73942.elements[1] = ((closureN)self_73602)->elements[2];
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_73942, primitive_cdr, ((closureN)self_73602)->elements[0]);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_string)) ){ 
+  
+closureN_type c_73978;
+object e_731025 [3];
+c_73978.hdr.mark = gc_color_red;
+ c_73978.hdr.grayed = 0;
+c_73978.tag = closureN_tag;
+ c_73978.fn = (function_type)__lambda_47;
+c_73978.num_args = 1;
+c_73978.num_elements = 3;
+c_73978.elements = (object *)e_731025;
+c_73978.elements[0] = ((closureN)self_73602)->elements[0];
+c_73978.elements[1] = ((closureN)self_73602)->elements[1];
+c_73978.elements[2] = ((closureN)self_73602)->elements[2];
+
+return_closcall2(data,  __glo_gensym_scheme_cyclone_util,  &c_73978, quote_var);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_bytevector)) ){ 
+  
+closureN_type c_731030;
+object e_731079 [3];
+c_731030.hdr.mark = gc_color_red;
+ c_731030.hdr.grayed = 0;
+c_731030.tag = closureN_tag;
+ c_731030.fn = (function_type)__lambda_54;
+c_731030.num_args = 1;
+c_731030.num_elements = 3;
+c_731030.elements = (object *)e_731079;
+c_731030.elements[0] = ((closureN)self_73602)->elements[0];
+c_731030.elements[1] = ((closureN)self_73602)->elements[1];
+c_731030.elements[2] = ((closureN)self_73602)->elements[2];
+
+return_closcall2(data,  __glo_gensym_scheme_cyclone_util,  &c_731030, quote_var);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_opaque)) ){ 
+  
+closureN_type c_731084;
+object e_731131 [3];
+c_731084.hdr.mark = gc_color_red;
+ c_731084.hdr.grayed = 0;
+c_731084.tag = closureN_tag;
+ c_731084.fn = (function_type)__lambda_61;
+c_731084.num_args = 1;
+c_731084.num_elements = 3;
+c_731084.elements = (object *)e_731131;
+c_731084.elements[0] = ((closureN)self_73602)->elements[0];
+c_731084.elements[1] = ((closureN)self_73602)->elements[1];
+c_731084.elements[2] = ((closureN)self_73602)->elements[2];
+
+return_closcall2(data,  __glo_gensym_scheme_cyclone_util,  &c_731084, quote_var);
+} else { 
+    
+if( (boolean_f != Cyc_eqv(((closureN)self_73602)->elements[4], quote_c_91void)) ){ 
+  
+closureN_type c_731136;
+object e_731165 [2];
+c_731136.hdr.mark = gc_color_red;
+ c_731136.hdr.grayed = 0;
+c_731136.tag = closureN_tag;
+ c_731136.fn = (function_type)__lambda_68;
+c_731136.num_args = 1;
+c_731136.num_elements = 2;
+c_731136.elements = (object *)e_731165;
+c_731136.elements[0] = ((closureN)self_73602)->elements[1];
+c_731136.elements[1] = ((closureN)self_73602)->elements[2];
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_731136, primitive_cdr, ((closureN)self_73602)->elements[0]);
+} else { 
+  
+closureN_type c_731168;
+object e_731178 [2];
+c_731168.hdr.mark = gc_color_red;
+ c_731168.hdr.grayed = 0;
+c_731168.tag = closureN_tag;
+ c_731168.fn = (function_type)__lambda_72;
+c_731168.num_args = 0;
+c_731168.num_elements = 2;
+c_731168.elements = (object *)e_731178;
+c_731168.elements[0] = ((closureN)self_73602)->elements[1];
+c_731168.elements[1] = ((closureN)self_73602)->elements[3];
+
+
+closureN_type c_731179;
+object e_731183 [1];
+c_731179.hdr.mark = gc_color_red;
+ c_731179.hdr.grayed = 0;
+c_731179.tag = closureN_tag;
+ c_731179.fn = (function_type)__lambda_73;
+c_731179.num_args = 1;
+c_731179.num_elements = 1;
+c_731179.elements = (object *)e_731183;
+c_731179.elements[0] = ((closureN)self_73602)->elements[2];
+
+return_direct_with_clo1(data,(closure)&c_731168,__lambda_72,  &c_731179);}
+;}
+;}
+;}
+;}
+;}
+;}
+;; 
+}
+
+static void __lambda_73(void *data, int argc, object self_73643, object r_73368) {
+  
+make_utf8_string_with_len(c_731182, "c->scm unable to convert C object of type ", 42, 42);
+return_closcall3(data,  __glo_error_scheme_base,  ((closureN)self_73643)->elements[0], &c_731182, r_73368);; 
+}
+
+static void __lambda_72(void *data, int argc, object self_73644, object k_73369) {
+  if( (boolean_f != ((closureN)self_73644)->elements[1]) ){ 
+  
+
+return_direct_with_clo1(data,  k_73369,__lambda_73,  Cyc_car(data, ((closureN)self_73644)->elements[1]));
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73369,__lambda_73,  Cyc_caddr(data, ((closureN)self_73644)->elements[0]));}
+;; 
+}
+
+static void __lambda_68(void *data, int argc, object self_73639, object r_73367) {
+  
+closureN_type c_731138;
+object e_731163 [2];
+c_731138.hdr.mark = gc_color_red;
+ c_731138.hdr.grayed = 0;
+c_731138.tag = closureN_tag;
+ c_731138.fn = (function_type)__lambda_69;
+c_731138.num_args = 1;
+c_731138.num_elements = 2;
+c_731138.elements = (object *)e_731163;
+c_731138.elements[0] = ((closureN)self_73639)->elements[0];
+c_731138.elements[1] = ((closureN)self_73639)->elements[1];
+
+
+make_utf8_string_with_len(c_731164, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_731138, r_73367, &c_731164);; 
+}
+
+static void __lambda_69(void *data, int argc, object self_73640, object r_73366) {
+  
+closureN_type c_731140;
+object e_731154 [1];
+c_731140.hdr.mark = gc_color_red;
+ c_731140.hdr.grayed = 0;
+c_731140.tag = closureN_tag;
+ c_731140.fn = (function_type)__lambda_70;
+c_731140.num_args = 1;
+c_731140.num_elements = 1;
+c_731140.elements = (object *)e_731154;
+c_731140.elements[0] = ((closureN)self_73640)->elements[1];
+
+
+
+
+make_utf8_string_with_len(c_731161, "(", 1, 1);
+
+make_utf8_string_with_len(c_731162, ")", 1, 1);
+
+object c_731157 = Cyc_string_append(data,(closure)&c_731140,4,Cyc_cadddr(data, ((closureN)self_73640)->elements[0]), &c_731161, r_73366, &c_731162);
+return_closcall1(data,(closure)&c_731140,  c_731157);; 
+}
+
+static void __lambda_70(void *data, int argc, object self_73641, object r_73365) {
+  
+closureN_type c_731142;
+object e_731149 [1];
+c_731142.hdr.mark = gc_color_red;
+ c_731142.hdr.grayed = 0;
+c_731142.tag = closureN_tag;
+ c_731142.fn = (function_type)__lambda_71;
+c_731142.num_args = 1;
+c_731142.num_elements = 1;
+c_731142.elements = (object *)e_731149;
+c_731142.elements[0] = ((closureN)self_73641)->elements[0];
+
+
+make_utf8_string_with_len(c_731153, ";", 1, 1);
+
+object c_731152 = Cyc_string_append(data,(closure)&c_731142,2,r_73365, &c_731153);
+return_closcall1(data,(closure)&c_731142,  c_731152);; 
+}
+
+static void __lambda_71(void *data, int argc, object self_73642, object r_73364) {
+  
+pair_type local_731147; 
+
+make_utf8_string_with_len(c_731148, "Cyc_VOID", 8, 8);
+return_closcall1(data,  ((closureN)self_73642)->elements[0],  set_pair_as_expr(&local_731147, r_73364, &c_731148));; 
+}
+
+static void __lambda_61(void *data, int argc, object self_73632, object r_73361) {
+  
+closureN_type c_731086;
+object e_731130 [3];
+c_731086.hdr.mark = gc_color_red;
+ c_731086.hdr.grayed = 0;
+c_731086.tag = closureN_tag;
+ c_731086.fn = (function_type)__lambda_62;
+c_731086.num_args = 1;
+c_731086.num_elements = 3;
+c_731086.elements = (object *)e_731130;
+c_731086.elements[0] = ((closureN)self_73632)->elements[0];
+c_731086.elements[1] = ((closureN)self_73632)->elements[1];
+c_731086.elements[2] = ((closureN)self_73632)->elements[2];
+
+return_closcall2(data,  __glo_mangle_scheme_cyclone_util,  &c_731086, r_73361);; 
+}
+
+static void __lambda_62(void *data, int argc, object self_73633, object var_73100_73158_73200) {
+  
+closureN_type c_731088;
+object e_731128 [3];
+c_731088.hdr.mark = gc_color_red;
+ c_731088.hdr.grayed = 0;
+c_731088.tag = closureN_tag;
+ c_731088.fn = (function_type)__lambda_63;
+c_731088.num_args = 1;
+c_731088.num_elements = 3;
+c_731088.elements = (object *)e_731128;
+c_731088.elements[0] = ((closureN)self_73633)->elements[1];
+c_731088.elements[1] = ((closureN)self_73633)->elements[2];
+c_731088.elements[2] = var_73100_73158_73200;
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_731088, primitive_cdr, ((closureN)self_73633)->elements[0]);; 
+}
+
+static void __lambda_63(void *data, int argc, object self_73634, object r_73360) {
+  
+closureN_type c_731090;
+object e_731126 [3];
+c_731090.hdr.mark = gc_color_red;
+ c_731090.hdr.grayed = 0;
+c_731090.tag = closureN_tag;
+ c_731090.fn = (function_type)__lambda_64;
+c_731090.num_args = 1;
+c_731090.num_elements = 3;
+c_731090.elements = (object *)e_731126;
+c_731090.elements[0] = ((closureN)self_73634)->elements[0];
+c_731090.elements[1] = ((closureN)self_73634)->elements[1];
+c_731090.elements[2] = ((closureN)self_73634)->elements[2];
+
+
+make_utf8_string_with_len(c_731127, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_731090, r_73360, &c_731127);; 
+}
+
+static void __lambda_64(void *data, int argc, object self_73635, object r_73359) {
+  
+closureN_type c_731092;
+object e_731117 [2];
+c_731092.hdr.mark = gc_color_red;
+ c_731092.hdr.grayed = 0;
+c_731092.tag = closureN_tag;
+ c_731092.fn = (function_type)__lambda_65;
+c_731092.num_args = 1;
+c_731092.num_elements = 2;
+c_731092.elements = (object *)e_731117;
+c_731092.elements[0] = ((closureN)self_73635)->elements[1];
+c_731092.elements[1] = ((closureN)self_73635)->elements[2];
+
+
+
+
+make_utf8_string_with_len(c_731124, "(", 1, 1);
+
+make_utf8_string_with_len(c_731125, ")", 1, 1);
+
+object c_731120 = Cyc_string_append(data,(closure)&c_731092,4,Cyc_cadddr(data, ((closureN)self_73635)->elements[0]), &c_731124, r_73359, &c_731125);
+return_closcall1(data,(closure)&c_731092,  c_731120);; 
+}
+
+static void __lambda_65(void *data, int argc, object self_73636, object r_73358) {
+  
+closureN_type c_731094;
+object e_731109 [2];
+c_731094.hdr.mark = gc_color_red;
+ c_731094.hdr.grayed = 0;
+c_731094.tag = closureN_tag;
+ c_731094.fn = (function_type)__lambda_66;
+c_731094.num_args = 1;
+c_731094.num_elements = 2;
+c_731094.elements = (object *)e_731109;
+c_731094.elements[0] = ((closureN)self_73636)->elements[0];
+c_731094.elements[1] = ((closureN)self_73636)->elements[1];
+
+
+make_utf8_string_with_len(c_731113, "make_c_opaque(", 14, 14);
+
+make_utf8_string_with_len(c_731115, ", ", 2, 2);
+
+make_utf8_string_with_len(c_731116, ");", 2, 2);
+
+object c_731112 = Cyc_string_append(data,(closure)&c_731094,5,&c_731113, ((closureN)self_73636)->elements[1], &c_731115, r_73358, &c_731116);
+return_closcall1(data,(closure)&c_731094,  c_731112);; 
+}
+
+static void __lambda_66(void *data, int argc, object self_73637, object r_73356) {
+  
+closureN_type c_731096;
+object e_731103 [2];
+c_731096.hdr.mark = gc_color_red;
+ c_731096.hdr.grayed = 0;
+c_731096.tag = closureN_tag;
+ c_731096.fn = (function_type)__lambda_67;
+c_731096.num_args = 1;
+c_731096.num_elements = 2;
+c_731096.elements = (object *)e_731103;
+c_731096.elements[0] = ((closureN)self_73637)->elements[0];
+c_731096.elements[1] = r_73356;
+
+
+make_utf8_string_with_len(c_731107, "&", 1, 1);
+
+object c_731106 = Cyc_string_append(data,(closure)&c_731096,2,&c_731107, ((closureN)self_73637)->elements[1]);
+return_closcall1(data,(closure)&c_731096,  c_731106);; 
+}
+
+static void __lambda_67(void *data, int argc, object self_73638, object r_73357) {
+  
+pair_type local_731101; 
+return_closcall1(data,  ((closureN)self_73638)->elements[0],  set_pair_as_expr(&local_731101, ((closureN)self_73638)->elements[1], r_73357));; 
+}
+
+static void __lambda_54(void *data, int argc, object self_73625, object r_73352) {
+  
+closureN_type c_731032;
+object e_731078 [3];
+c_731032.hdr.mark = gc_color_red;
+ c_731032.hdr.grayed = 0;
+c_731032.tag = closureN_tag;
+ c_731032.fn = (function_type)__lambda_55;
+c_731032.num_args = 1;
+c_731032.num_elements = 3;
+c_731032.elements = (object *)e_731078;
+c_731032.elements[0] = ((closureN)self_73625)->elements[0];
+c_731032.elements[1] = ((closureN)self_73625)->elements[1];
+c_731032.elements[2] = ((closureN)self_73625)->elements[2];
+
+return_closcall2(data,  __glo_mangle_scheme_cyclone_util,  &c_731032, r_73352);; 
+}
+
+static void __lambda_55(void *data, int argc, object self_73626, object var_7399_73157_73199) {
+  
+closureN_type c_731034;
+object e_731076 [3];
+c_731034.hdr.mark = gc_color_red;
+ c_731034.hdr.grayed = 0;
+c_731034.tag = closureN_tag;
+ c_731034.fn = (function_type)__lambda_56;
+c_731034.num_args = 1;
+c_731034.num_elements = 3;
+c_731034.elements = (object *)e_731076;
+c_731034.elements[0] = ((closureN)self_73626)->elements[1];
+c_731034.elements[1] = ((closureN)self_73626)->elements[2];
+c_731034.elements[2] = var_7399_73157_73199;
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_731034, primitive_cdr, ((closureN)self_73626)->elements[0]);; 
+}
+
+static void __lambda_56(void *data, int argc, object self_73627, object r_73351) {
+  
+closureN_type c_731036;
+object e_731074 [3];
+c_731036.hdr.mark = gc_color_red;
+ c_731036.hdr.grayed = 0;
+c_731036.tag = closureN_tag;
+ c_731036.fn = (function_type)__lambda_57;
+c_731036.num_args = 1;
+c_731036.num_elements = 3;
+c_731036.elements = (object *)e_731074;
+c_731036.elements[0] = ((closureN)self_73627)->elements[0];
+c_731036.elements[1] = ((closureN)self_73627)->elements[1];
+c_731036.elements[2] = ((closureN)self_73627)->elements[2];
+
+
+make_utf8_string_with_len(c_731075, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_731036, r_73351, &c_731075);; 
+}
+
+static void __lambda_57(void *data, int argc, object self_73628, object r_73350) {
+  
+closureN_type c_731038;
+object e_731065 [2];
+c_731038.hdr.mark = gc_color_red;
+ c_731038.hdr.grayed = 0;
+c_731038.tag = closureN_tag;
+ c_731038.fn = (function_type)__lambda_58;
+c_731038.num_args = 1;
+c_731038.num_elements = 2;
+c_731038.elements = (object *)e_731065;
+c_731038.elements[0] = ((closureN)self_73628)->elements[1];
+c_731038.elements[1] = ((closureN)self_73628)->elements[2];
+
+
+
+
+make_utf8_string_with_len(c_731072, "(", 1, 1);
+
+make_utf8_string_with_len(c_731073, ")", 1, 1);
+
+object c_731068 = Cyc_string_append(data,(closure)&c_731038,4,Cyc_cadddr(data, ((closureN)self_73628)->elements[0]), &c_731072, r_73350, &c_731073);
+return_closcall1(data,(closure)&c_731038,  c_731068);; 
+}
+
+static void __lambda_58(void *data, int argc, object self_73629, object r_73349) {
+  
+closureN_type c_731040;
+object e_731055 [2];
+c_731040.hdr.mark = gc_color_red;
+ c_731040.hdr.grayed = 0;
+c_731040.tag = closureN_tag;
+ c_731040.fn = (function_type)__lambda_59;
+c_731040.num_args = 1;
+c_731040.num_elements = 2;
+c_731040.elements = (object *)e_731055;
+c_731040.elements[0] = ((closureN)self_73629)->elements[0];
+c_731040.elements[1] = ((closureN)self_73629)->elements[1];
+
+
+make_utf8_string_with_len(c_731059, "make_empty_bytevector(", 22, 22);
+
+make_utf8_string_with_len(c_731061, ");", 2, 2);
+
+make_utf8_string_with_len(c_731063, "->data = ", 9, 9);
+
+make_utf8_string_with_len(c_731064, ";", 1, 1);
+
+object c_731058 = Cyc_string_append(data,(closure)&c_731040,7,&c_731059, ((closureN)self_73629)->elements[1], &c_731061, ((closureN)self_73629)->elements[1], &c_731063, r_73349, &c_731064);
+return_closcall1(data,(closure)&c_731040,  c_731058);; 
+}
+
+static void __lambda_59(void *data, int argc, object self_73630, object r_73347) {
+  
+closureN_type c_731042;
+object e_731049 [2];
+c_731042.hdr.mark = gc_color_red;
+ c_731042.hdr.grayed = 0;
+c_731042.tag = closureN_tag;
+ c_731042.fn = (function_type)__lambda_60;
+c_731042.num_args = 1;
+c_731042.num_elements = 2;
+c_731042.elements = (object *)e_731049;
+c_731042.elements[0] = ((closureN)self_73630)->elements[0];
+c_731042.elements[1] = r_73347;
+
+
+make_utf8_string_with_len(c_731053, "&", 1, 1);
+
+object c_731052 = Cyc_string_append(data,(closure)&c_731042,2,&c_731053, ((closureN)self_73630)->elements[1]);
+return_closcall1(data,(closure)&c_731042,  c_731052);; 
+}
+
+static void __lambda_60(void *data, int argc, object self_73631, object r_73348) {
+  
+pair_type local_731047; 
+return_closcall1(data,  ((closureN)self_73631)->elements[0],  set_pair_as_expr(&local_731047, ((closureN)self_73631)->elements[1], r_73348));; 
+}
+
+static void __lambda_47(void *data, int argc, object self_73618, object r_73343) {
+  
+closureN_type c_73980;
+object e_731024 [3];
+c_73980.hdr.mark = gc_color_red;
+ c_73980.hdr.grayed = 0;
+c_73980.tag = closureN_tag;
+ c_73980.fn = (function_type)__lambda_48;
+c_73980.num_args = 1;
+c_73980.num_elements = 3;
+c_73980.elements = (object *)e_731024;
+c_73980.elements[0] = ((closureN)self_73618)->elements[0];
+c_73980.elements[1] = ((closureN)self_73618)->elements[1];
+c_73980.elements[2] = ((closureN)self_73618)->elements[2];
+
+return_closcall2(data,  __glo_mangle_scheme_cyclone_util,  &c_73980, r_73343);; 
+}
+
+static void __lambda_48(void *data, int argc, object self_73619, object var_7398_73156_73198) {
+  
+closureN_type c_73982;
+object e_731022 [3];
+c_73982.hdr.mark = gc_color_red;
+ c_73982.hdr.grayed = 0;
+c_73982.tag = closureN_tag;
+ c_73982.fn = (function_type)__lambda_49;
+c_73982.num_args = 1;
+c_73982.num_elements = 3;
+c_73982.elements = (object *)e_731022;
+c_73982.elements[0] = ((closureN)self_73619)->elements[1];
+c_73982.elements[1] = ((closureN)self_73619)->elements[2];
+c_73982.elements[2] = var_7398_73156_73198;
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_73982, primitive_cdr, ((closureN)self_73619)->elements[0]);; 
+}
+
+static void __lambda_49(void *data, int argc, object self_73620, object r_73342) {
+  
+closureN_type c_73984;
+object e_731020 [3];
+c_73984.hdr.mark = gc_color_red;
+ c_73984.hdr.grayed = 0;
+c_73984.tag = closureN_tag;
+ c_73984.fn = (function_type)__lambda_50;
+c_73984.num_args = 1;
+c_73984.num_elements = 3;
+c_73984.elements = (object *)e_731020;
+c_73984.elements[0] = ((closureN)self_73620)->elements[0];
+c_73984.elements[1] = ((closureN)self_73620)->elements[1];
+c_73984.elements[2] = ((closureN)self_73620)->elements[2];
+
+
+make_utf8_string_with_len(c_731021, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_73984, r_73342, &c_731021);; 
+}
+
+static void __lambda_50(void *data, int argc, object self_73621, object r_73341) {
+  
+closureN_type c_73986;
+object e_731011 [2];
+c_73986.hdr.mark = gc_color_red;
+ c_73986.hdr.grayed = 0;
+c_73986.tag = closureN_tag;
+ c_73986.fn = (function_type)__lambda_51;
+c_73986.num_args = 1;
+c_73986.num_elements = 2;
+c_73986.elements = (object *)e_731011;
+c_73986.elements[0] = ((closureN)self_73621)->elements[1];
+c_73986.elements[1] = ((closureN)self_73621)->elements[2];
+
+
+
+
+make_utf8_string_with_len(c_731018, "(", 1, 1);
+
+make_utf8_string_with_len(c_731019, ")", 1, 1);
+
+object c_731014 = Cyc_string_append(data,(closure)&c_73986,4,Cyc_cadddr(data, ((closureN)self_73621)->elements[0]), &c_731018, r_73341, &c_731019);
+return_closcall1(data,(closure)&c_73986,  c_731014);; 
+}
+
+static void __lambda_51(void *data, int argc, object self_73622, object r_73340) {
+  
+closureN_type c_73988;
+object e_731003 [2];
+c_73988.hdr.mark = gc_color_red;
+ c_73988.hdr.grayed = 0;
+c_73988.tag = closureN_tag;
+ c_73988.fn = (function_type)__lambda_52;
+c_73988.num_args = 1;
+c_73988.num_elements = 2;
+c_73988.elements = (object *)e_731003;
+c_73988.elements[0] = ((closureN)self_73622)->elements[0];
+c_73988.elements[1] = ((closureN)self_73622)->elements[1];
+
+
+make_utf8_string_with_len(c_731007, "make_utf8_string(data,", 22, 22);
+
+make_utf8_string_with_len(c_731009, ", ", 2, 2);
+
+make_utf8_string_with_len(c_731010, ");", 2, 2);
+
+object c_731006 = Cyc_string_append(data,(closure)&c_73988,5,&c_731007, ((closureN)self_73622)->elements[1], &c_731009, r_73340, &c_731010);
+return_closcall1(data,(closure)&c_73988,  c_731006);; 
+}
+
+static void __lambda_52(void *data, int argc, object self_73623, object r_73338) {
+  
+closureN_type c_73990;
+object e_73997 [2];
+c_73990.hdr.mark = gc_color_red;
+ c_73990.hdr.grayed = 0;
+c_73990.tag = closureN_tag;
+ c_73990.fn = (function_type)__lambda_53;
+c_73990.num_args = 1;
+c_73990.num_elements = 2;
+c_73990.elements = (object *)e_73997;
+c_73990.elements[0] = ((closureN)self_73623)->elements[0];
+c_73990.elements[1] = r_73338;
+
+
+make_utf8_string_with_len(c_731001, "&", 1, 1);
+
+object c_731000 = Cyc_string_append(data,(closure)&c_73990,2,&c_731001, ((closureN)self_73623)->elements[1]);
+return_closcall1(data,(closure)&c_73990,  c_731000);; 
+}
+
+static void __lambda_53(void *data, int argc, object self_73624, object r_73339) {
+  
+pair_type local_73995; 
+return_closcall1(data,  ((closureN)self_73624)->elements[0],  set_pair_as_expr(&local_73995, ((closureN)self_73624)->elements[1], r_73339));; 
+}
+
+static void __lambda_43(void *data, int argc, object self_73614, object r_73335) {
+  
+closureN_type c_73944;
+object e_73970 [2];
+c_73944.hdr.mark = gc_color_red;
+ c_73944.hdr.grayed = 0;
+c_73944.tag = closureN_tag;
+ c_73944.fn = (function_type)__lambda_44;
+c_73944.num_args = 1;
+c_73944.num_elements = 2;
+c_73944.elements = (object *)e_73970;
+c_73944.elements[0] = ((closureN)self_73614)->elements[0];
+c_73944.elements[1] = ((closureN)self_73614)->elements[1];
+
+
+make_utf8_string_with_len(c_73971, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_73944, r_73335, &c_73971);; 
+}
+
+static void __lambda_44(void *data, int argc, object self_73615, object r_73334) {
+  
+closureN_type c_73946;
+object e_73961 [1];
+c_73946.hdr.mark = gc_color_red;
+ c_73946.hdr.grayed = 0;
+c_73946.tag = closureN_tag;
+ c_73946.fn = (function_type)__lambda_45;
+c_73946.num_args = 1;
+c_73946.num_elements = 1;
+c_73946.elements = (object *)e_73961;
+c_73946.elements[0] = ((closureN)self_73615)->elements[1];
+
+
+
+
+make_utf8_string_with_len(c_73968, "(", 1, 1);
+
+make_utf8_string_with_len(c_73969, ")", 1, 1);
+
+object c_73964 = Cyc_string_append(data,(closure)&c_73946,4,Cyc_cadddr(data, ((closureN)self_73615)->elements[0]), &c_73968, r_73334, &c_73969);
+return_closcall1(data,(closure)&c_73946,  c_73964);; 
+}
+
+static void __lambda_45(void *data, int argc, object self_73616, object r_73333) {
+  
+closureN_type c_73948;
+object e_73955 [1];
+c_73948.hdr.mark = gc_color_red;
+ c_73948.hdr.grayed = 0;
+c_73948.tag = closureN_tag;
+ c_73948.fn = (function_type)__lambda_46;
+c_73948.num_args = 1;
+c_73948.num_elements = 1;
+c_73948.elements = (object *)e_73955;
+c_73948.elements[0] = ((closureN)self_73616)->elements[0];
+
+
+make_utf8_string_with_len(c_73959, "obj_char2obj(", 13, 13);
+
+make_utf8_string_with_len(c_73960, ")", 1, 1);
+
+object c_73958 = Cyc_string_append(data,(closure)&c_73948,3,&c_73959, r_73333, &c_73960);
+return_closcall1(data,(closure)&c_73948,  c_73958);; 
+}
+
+static void __lambda_46(void *data, int argc, object self_73617, object r_73332) {
+  
+pair_type local_73953; 
+
+make_utf8_string_with_len(c_73954, "", 0, 0);
+return_closcall1(data,  ((closureN)self_73617)->elements[0],  set_pair_as_expr(&local_73953, &c_73954, r_73332));; 
+}
+
+static void __lambda_39(void *data, int argc, object self_73610, object r_73330) {
+  
+closureN_type c_73908;
+object e_73934 [2];
+c_73908.hdr.mark = gc_color_red;
+ c_73908.hdr.grayed = 0;
+c_73908.tag = closureN_tag;
+ c_73908.fn = (function_type)__lambda_40;
+c_73908.num_args = 1;
+c_73908.num_elements = 2;
+c_73908.elements = (object *)e_73934;
+c_73908.elements[0] = ((closureN)self_73610)->elements[0];
+c_73908.elements[1] = ((closureN)self_73610)->elements[1];
+
+
+make_utf8_string_with_len(c_73935, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_73908, r_73330, &c_73935);; 
+}
+
+static void __lambda_40(void *data, int argc, object self_73611, object r_73329) {
+  
+closureN_type c_73910;
+object e_73925 [1];
+c_73910.hdr.mark = gc_color_red;
+ c_73910.hdr.grayed = 0;
+c_73910.tag = closureN_tag;
+ c_73910.fn = (function_type)__lambda_41;
+c_73910.num_args = 1;
+c_73910.num_elements = 1;
+c_73910.elements = (object *)e_73925;
+c_73910.elements[0] = ((closureN)self_73611)->elements[1];
+
+
+
+
+make_utf8_string_with_len(c_73932, "(", 1, 1);
+
+make_utf8_string_with_len(c_73933, ")", 1, 1);
+
+object c_73928 = Cyc_string_append(data,(closure)&c_73910,4,Cyc_cadddr(data, ((closureN)self_73611)->elements[0]), &c_73932, r_73329, &c_73933);
+return_closcall1(data,(closure)&c_73910,  c_73928);; 
+}
+
+static void __lambda_41(void *data, int argc, object self_73612, object r_73328) {
+  
+closureN_type c_73912;
+object e_73919 [1];
+c_73912.hdr.mark = gc_color_red;
+ c_73912.hdr.grayed = 0;
+c_73912.tag = closureN_tag;
+ c_73912.fn = (function_type)__lambda_42;
+c_73912.num_args = 1;
+c_73912.num_elements = 1;
+c_73912.elements = (object *)e_73919;
+c_73912.elements[0] = ((closureN)self_73612)->elements[0];
+
+
+make_utf8_string_with_len(c_73923, "(", 1, 1);
+
+make_utf8_string_with_len(c_73924, " == 0 ? boolean_f : boolean_t)", 30, 30);
+
+object c_73922 = Cyc_string_append(data,(closure)&c_73912,3,&c_73923, r_73328, &c_73924);
+return_closcall1(data,(closure)&c_73912,  c_73922);; 
+}
+
+static void __lambda_42(void *data, int argc, object self_73613, object r_73327) {
+  
+pair_type local_73917; 
+
+make_utf8_string_with_len(c_73918, "", 0, 0);
+return_closcall1(data,  ((closureN)self_73613)->elements[0],  set_pair_as_expr(&local_73917, &c_73918, r_73327));; 
+}
+
+static void __lambda_32(void *data, int argc, object self_73603, object r_73324) {
+  
+closureN_type c_73855;
+object e_73900 [3];
+c_73855.hdr.mark = gc_color_red;
+ c_73855.hdr.grayed = 0;
+c_73855.tag = closureN_tag;
+ c_73855.fn = (function_type)__lambda_33;
+c_73855.num_args = 1;
+c_73855.num_elements = 3;
+c_73855.elements = (object *)e_73900;
+c_73855.elements[0] = ((closureN)self_73603)->elements[0];
+c_73855.elements[1] = ((closureN)self_73603)->elements[1];
+c_73855.elements[2] = ((closureN)self_73603)->elements[2];
+
+return_closcall2(data,  __glo_mangle_scheme_cyclone_util,  &c_73855, r_73324);; 
+}
+
+static void __lambda_33(void *data, int argc, object self_73604, object var_7397_73155_73197) {
+  
+closureN_type c_73857;
+object e_73898 [3];
+c_73857.hdr.mark = gc_color_red;
+ c_73857.hdr.grayed = 0;
+c_73857.tag = closureN_tag;
+ c_73857.fn = (function_type)__lambda_34;
+c_73857.num_args = 1;
+c_73857.num_elements = 3;
+c_73857.elements = (object *)e_73898;
+c_73857.elements[0] = ((closureN)self_73604)->elements[1];
+c_73857.elements[1] = ((closureN)self_73604)->elements[2];
+c_73857.elements[2] = var_7397_73155_73197;
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_73857, primitive_cdr, ((closureN)self_73604)->elements[0]);; 
+}
+
+static void __lambda_34(void *data, int argc, object self_73605, object r_73323) {
+  
+closureN_type c_73859;
+object e_73896 [3];
+c_73859.hdr.mark = gc_color_red;
+ c_73859.hdr.grayed = 0;
+c_73859.tag = closureN_tag;
+ c_73859.fn = (function_type)__lambda_35;
+c_73859.num_args = 1;
+c_73859.num_elements = 3;
+c_73859.elements = (object *)e_73896;
+c_73859.elements[0] = ((closureN)self_73605)->elements[0];
+c_73859.elements[1] = ((closureN)self_73605)->elements[1];
+c_73859.elements[2] = ((closureN)self_73605)->elements[2];
+
+
+make_utf8_string_with_len(c_73897, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_73859, r_73323, &c_73897);; 
+}
+
+static void __lambda_35(void *data, int argc, object self_73606, object r_73322) {
+  
+closureN_type c_73861;
+object e_73887 [2];
+c_73861.hdr.mark = gc_color_red;
+ c_73861.hdr.grayed = 0;
+c_73861.tag = closureN_tag;
+ c_73861.fn = (function_type)__lambda_36;
+c_73861.num_args = 1;
+c_73861.num_elements = 2;
+c_73861.elements = (object *)e_73887;
+c_73861.elements[0] = ((closureN)self_73606)->elements[1];
+c_73861.elements[1] = ((closureN)self_73606)->elements[2];
+
+
+
+
+make_utf8_string_with_len(c_73894, "(", 1, 1);
+
+make_utf8_string_with_len(c_73895, ")", 1, 1);
+
+object c_73890 = Cyc_string_append(data,(closure)&c_73861,4,Cyc_cadddr(data, ((closureN)self_73606)->elements[0]), &c_73894, r_73322, &c_73895);
+return_closcall1(data,(closure)&c_73861,  c_73890);; 
+}
+
+static void __lambda_36(void *data, int argc, object self_73607, object r_73321) {
+  
+closureN_type c_73863;
+object e_73877 [2];
+c_73863.hdr.mark = gc_color_red;
+ c_73863.hdr.grayed = 0;
+c_73863.tag = closureN_tag;
+ c_73863.fn = (function_type)__lambda_37;
+c_73863.num_args = 1;
+c_73863.num_elements = 2;
+c_73863.elements = (object *)e_73877;
+c_73863.elements[0] = ((closureN)self_73607)->elements[0];
+c_73863.elements[1] = ((closureN)self_73607)->elements[1];
+
+
+make_utf8_string_with_len(c_73881, "alloc_bignum(data,", 18, 18);
+
+make_utf8_string_with_len(c_73883, ");", 2, 2);
+
+make_utf8_string_with_len(c_73885, "->bn = ", 7, 7);
+
+make_utf8_string_with_len(c_73886, ";", 1, 1);
+
+object c_73880 = Cyc_string_append(data,(closure)&c_73863,7,&c_73881, ((closureN)self_73607)->elements[1], &c_73883, ((closureN)self_73607)->elements[1], &c_73885, r_73321, &c_73886);
+return_closcall1(data,(closure)&c_73863,  c_73880);; 
+}
+
+static void __lambda_37(void *data, int argc, object self_73608, object r_73319) {
+  
+closureN_type c_73865;
+object e_73872 [2];
+c_73865.hdr.mark = gc_color_red;
+ c_73865.hdr.grayed = 0;
+c_73865.tag = closureN_tag;
+ c_73865.fn = (function_type)__lambda_38;
+c_73865.num_args = 1;
+c_73865.num_elements = 2;
+c_73865.elements = (object *)e_73872;
+c_73865.elements[0] = ((closureN)self_73608)->elements[0];
+c_73865.elements[1] = r_73319;
+
+
+object c_73875 = Cyc_string_append(data,(closure)&c_73865,1,((closureN)self_73608)->elements[1]);
+return_closcall1(data,(closure)&c_73865,  c_73875);; 
+}
+
+static void __lambda_38(void *data, int argc, object self_73609, object r_73320) {
+  
+pair_type local_73870; 
+return_closcall1(data,  ((closureN)self_73609)->elements[0],  set_pair_as_expr(&local_73870, ((closureN)self_73609)->elements[1], r_73320));; 
+}
+
+static void __lambda_30(void *data, int argc, object self_73645, object k_73376) {
+    
+if( (boolean_f != Cyc_eq(((closureN)self_73645)->elements[0], quote_bignum)) ){ 
+  return_direct_with_clo1(data,  k_73376,__lambda_31,  boolean_t);
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73376,__lambda_31,  Cyc_eq(((closureN)self_73645)->elements[0], quote_bigint));}
+;; 
+}
+
+static void __lambda_23(void *data, int argc, object self_73595, object r_73315) {
+  
+closureN_type c_73794;
+object e_73838 [3];
+c_73794.hdr.mark = gc_color_red;
+ c_73794.hdr.grayed = 0;
+c_73794.tag = closureN_tag;
+ c_73794.fn = (function_type)__lambda_24;
+c_73794.num_args = 1;
+c_73794.num_elements = 3;
+c_73794.elements = (object *)e_73838;
+c_73794.elements[0] = ((closureN)self_73595)->elements[0];
+c_73794.elements[1] = ((closureN)self_73595)->elements[1];
+c_73794.elements[2] = ((closureN)self_73595)->elements[2];
+
+return_closcall2(data,  __glo_mangle_scheme_cyclone_util,  &c_73794, r_73315);; 
+}
+
+static void __lambda_24(void *data, int argc, object self_73596, object var_7396_73154_73196) {
+  
+closureN_type c_73796;
+object e_73836 [3];
+c_73796.hdr.mark = gc_color_red;
+ c_73796.hdr.grayed = 0;
+c_73796.tag = closureN_tag;
+ c_73796.fn = (function_type)__lambda_25;
+c_73796.num_args = 1;
+c_73796.num_elements = 3;
+c_73796.elements = (object *)e_73836;
+c_73796.elements[0] = ((closureN)self_73596)->elements[1];
+c_73796.elements[1] = ((closureN)self_73596)->elements[2];
+c_73796.elements[2] = var_7396_73154_73196;
+
+return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_73796, primitive_cdr, ((closureN)self_73596)->elements[0]);; 
+}
+
+static void __lambda_25(void *data, int argc, object self_73597, object r_73314) {
+  
+closureN_type c_73798;
+object e_73834 [3];
+c_73798.hdr.mark = gc_color_red;
+ c_73798.hdr.grayed = 0;
+c_73798.tag = closureN_tag;
+ c_73798.fn = (function_type)__lambda_26;
+c_73798.num_args = 1;
+c_73798.num_elements = 3;
+c_73798.elements = (object *)e_73834;
+c_73798.elements[0] = ((closureN)self_73597)->elements[0];
+c_73798.elements[1] = ((closureN)self_73597)->elements[1];
+c_73798.elements[2] = ((closureN)self_73597)->elements[2];
+
+
+make_utf8_string_with_len(c_73835, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_73798, r_73314, &c_73835);; 
+}
+
+static void __lambda_26(void *data, int argc, object self_73598, object r_73313) {
+  
+closureN_type c_73800;
+object e_73825 [2];
+c_73800.hdr.mark = gc_color_red;
+ c_73800.hdr.grayed = 0;
+c_73800.tag = closureN_tag;
+ c_73800.fn = (function_type)__lambda_27;
+c_73800.num_args = 1;
+c_73800.num_elements = 2;
+c_73800.elements = (object *)e_73825;
+c_73800.elements[0] = ((closureN)self_73598)->elements[1];
+c_73800.elements[1] = ((closureN)self_73598)->elements[2];
+
+
+
+
+make_utf8_string_with_len(c_73832, "(", 1, 1);
+
+make_utf8_string_with_len(c_73833, ")", 1, 1);
+
+object c_73828 = Cyc_string_append(data,(closure)&c_73800,4,Cyc_cadddr(data, ((closureN)self_73598)->elements[0]), &c_73832, r_73313, &c_73833);
+return_closcall1(data,(closure)&c_73800,  c_73828);; 
+}
+
+static void __lambda_27(void *data, int argc, object self_73599, object r_73312) {
+  
+closureN_type c_73802;
+object e_73817 [2];
+c_73802.hdr.mark = gc_color_red;
+ c_73802.hdr.grayed = 0;
+c_73802.tag = closureN_tag;
+ c_73802.fn = (function_type)__lambda_28;
+c_73802.num_args = 1;
+c_73802.num_elements = 2;
+c_73802.elements = (object *)e_73817;
+c_73802.elements[0] = ((closureN)self_73599)->elements[0];
+c_73802.elements[1] = ((closureN)self_73599)->elements[1];
+
+
+make_utf8_string_with_len(c_73821, "make_double(", 12, 12);
+
+make_utf8_string_with_len(c_73823, ", ", 2, 2);
+
+make_utf8_string_with_len(c_73824, ");", 2, 2);
+
+object c_73820 = Cyc_string_append(data,(closure)&c_73802,5,&c_73821, ((closureN)self_73599)->elements[1], &c_73823, r_73312, &c_73824);
+return_closcall1(data,(closure)&c_73802,  c_73820);; 
+}
+
+static void __lambda_28(void *data, int argc, object self_73600, object r_73310) {
+  
+closureN_type c_73804;
+object e_73811 [2];
+c_73804.hdr.mark = gc_color_red;
+ c_73804.hdr.grayed = 0;
+c_73804.tag = closureN_tag;
+ c_73804.fn = (function_type)__lambda_29;
+c_73804.num_args = 1;
+c_73804.num_elements = 2;
+c_73804.elements = (object *)e_73811;
+c_73804.elements[0] = ((closureN)self_73600)->elements[0];
+c_73804.elements[1] = r_73310;
+
+
+make_utf8_string_with_len(c_73815, "&", 1, 1);
+
+object c_73814 = Cyc_string_append(data,(closure)&c_73804,2,&c_73815, ((closureN)self_73600)->elements[1]);
+return_closcall1(data,(closure)&c_73804,  c_73814);; 
+}
+
+static void __lambda_29(void *data, int argc, object self_73601, object r_73311) {
+  
+pair_type local_73809; 
+return_closcall1(data,  ((closureN)self_73601)->elements[0],  set_pair_as_expr(&local_73809, ((closureN)self_73601)->elements[1], r_73311));; 
+}
+
+static void __lambda_21(void *data, int argc, object self_73646, object k_73380) {
+    
+if( (boolean_f != Cyc_eq(((closureN)self_73646)->elements[0], quote__float)) ){ 
+  return_direct_with_clo1(data,  k_73380,__lambda_22,  boolean_t);
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73380,__lambda_22,  Cyc_eq(((closureN)self_73646)->elements[0], quote__double));}
+;; 
+}
+
+static void __lambda_17(void *data, int argc, object self_73590, object r_73307) {
+  
+closureN_type c_73749;
+object e_73775 [2];
+c_73749.hdr.mark = gc_color_red;
+ c_73749.hdr.grayed = 0;
+c_73749.tag = closureN_tag;
+ c_73749.fn = (function_type)__lambda_18;
+c_73749.num_args = 1;
+c_73749.num_elements = 2;
+c_73749.elements = (object *)e_73775;
+c_73749.elements[0] = ((closureN)self_73590)->elements[0];
+c_73749.elements[1] = ((closureN)self_73590)->elements[1];
+
+
+make_utf8_string_with_len(c_73776, ",", 1, 1);
+return_closcall3(data,  __glo_string_91join_scheme_cyclone_util,  &c_73749, r_73307, &c_73776);; 
+}
+
+static void __lambda_18(void *data, int argc, object self_73591, object r_73306) {
+  
+closureN_type c_73751;
+object e_73766 [1];
+c_73751.hdr.mark = gc_color_red;
+ c_73751.hdr.grayed = 0;
+c_73751.tag = closureN_tag;
+ c_73751.fn = (function_type)__lambda_19;
+c_73751.num_args = 1;
+c_73751.num_elements = 1;
+c_73751.elements = (object *)e_73766;
+c_73751.elements[0] = ((closureN)self_73591)->elements[1];
+
+
+
+
+make_utf8_string_with_len(c_73773, "(", 1, 1);
+
+make_utf8_string_with_len(c_73774, ")", 1, 1);
+
+object c_73769 = Cyc_string_append(data,(closure)&c_73751,4,Cyc_cadddr(data, ((closureN)self_73591)->elements[0]), &c_73773, r_73306, &c_73774);
+return_closcall1(data,(closure)&c_73751,  c_73769);; 
+}
+
+static void __lambda_19(void *data, int argc, object self_73592, object r_73305) {
+  
+closureN_type c_73753;
+object e_73760 [1];
+c_73753.hdr.mark = gc_color_red;
+ c_73753.hdr.grayed = 0;
+c_73753.tag = closureN_tag;
+ c_73753.fn = (function_type)__lambda_20;
+c_73753.num_args = 1;
+c_73753.num_elements = 1;
+c_73753.elements = (object *)e_73760;
+c_73753.elements[0] = ((closureN)self_73592)->elements[0];
+
+
+make_utf8_string_with_len(c_73764, "obj_int2obj(", 12, 12);
+
+make_utf8_string_with_len(c_73765, ")", 1, 1);
+
+object c_73763 = Cyc_string_append(data,(closure)&c_73753,3,&c_73764, r_73305, &c_73765);
+return_closcall1(data,(closure)&c_73753,  c_73763);; 
+}
+
+static void __lambda_20(void *data, int argc, object self_73593, object r_73304) {
+  
+pair_type local_73758; 
+
+make_utf8_string_with_len(c_73759, "", 0, 0);
+return_closcall1(data,  ((closureN)self_73593)->elements[0],  set_pair_as_expr(&local_73758, &c_73759, r_73304));; 
+}
+
+static void __lambda_12(void *data, int argc, object self_73647, object k_73388) {
+  object r_73392;
+  if( (boolean_f != ((closureN)self_73647)->elements[1]) ){ 
+  
+  r_73392 = Cyc_car(data, ((closureN)self_73647)->elements[1]);
+} else { 
+  
+  r_73392 = Cyc_caddr(data, ((closureN)self_73647)->elements[0]);}
+;  
+if( (boolean_f != Cyc_is_string(r_73392)) ){ 
+  
+closureN_type c_73707;
+object e_73717 [2];
+c_73707.hdr.mark = gc_color_red;
+ c_73707.hdr.grayed = 0;
+c_73707.tag = closureN_tag;
+ c_73707.fn = (function_type)__lambda_13;
+c_73707.num_args = 0;
+c_73707.num_elements = 2;
+c_73707.elements = (object *)e_73717;
+c_73707.elements[0] = ((closureN)self_73647)->elements[0];
+c_73707.elements[1] = ((closureN)self_73647)->elements[1];
+
+
+closureN_type c_73718;
+object e_73723 [1];
+c_73718.hdr.mark = gc_color_red;
+ c_73718.hdr.grayed = 0;
+c_73718.tag = closureN_tag;
+ c_73718.fn = (function_type)__lambda_14;
+c_73718.num_args = 1;
+c_73718.num_elements = 1;
+c_73718.elements = (object *)e_73723;
+c_73718.elements[0] = k_73388;
+
+return_direct_with_clo1(data,(closure)&c_73707,__lambda_13,  &c_73718);
+} else { 
+  if( (boolean_f != ((closureN)self_73647)->elements[1]) ){ 
+  
+
+return_closcall1(data,  k_73388,  Cyc_car(data, ((closureN)self_73647)->elements[1]));
+} else { 
+  
+
+return_closcall1(data,  k_73388,  Cyc_caddr(data, ((closureN)self_73647)->elements[0]));}
+;}
+;; 
+}
+
+static void __lambda_14(void *data, int argc, object self_73648, object r_73390) {
+  
+
+return_closcall1(data,  ((closureN)self_73648)->elements[0],  Cyc_string2symbol(data, r_73390));; 
+}
+
+static void __lambda_13(void *data, int argc, object self_73649, object k_73391) {
+  if( (boolean_f != ((closureN)self_73649)->elements[1]) ){ 
+  
+
+return_direct_with_clo1(data,  k_73391,__lambda_14,  Cyc_car(data, ((closureN)self_73649)->elements[1]));
+} else { 
+  
+
+return_direct_with_clo1(data,  k_73391,__lambda_14,  Cyc_caddr(data, ((closureN)self_73649)->elements[0]));}
+;; 
+}
+
+static void __lambda_7(void *data, int argc, object self_73650, object k_73464) {
+  object r_73465;
+  if( (boolean_f != ((closureN)self_73650)->elements[0]) ){ 
+  
+  
+  r_73465 = Cyc_num_fast_eq_op(data, obj_int2obj(3), Cyc_length(data, ((closureN)self_73650)->elements[0]));
+} else { 
+  r_73465 = boolean_f;}
+;if( (boolean_f != r_73465) ){ 
+  
+
+return_direct_with_clo1(data,  k_73464,__lambda_8,  Cyc_caddr(data, ((closureN)self_73650)->elements[0]));
+} else { 
+  return_direct_with_clo1(data,  k_73464,__lambda_8,  boolean_f);}
+;; 
+}
+
+static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
+extern void c_schemecyclonecommon_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemebase_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemefile_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_scheme_char_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_srfi69_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemewrite_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemecyclonehashset_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemecycloneprimitives_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemeprocess_91context_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemeread_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemecycloneutil_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemecyclonelibraries_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemeeval_entry_pt(void *data, int argc, closure cont, object value);
+extern void c_schemecyclonepretty_91print_entry_pt(void *data, int argc, closure cont, object value);
+static void c_entry_pt(data, argc, env,cont) void *data; int argc; closure env,cont; { 
+Cyc_set_globals_changed((gc_thread_data *)data);
+  quote_sub_91big_91nums = find_or_add_symbol("sub-big-nums");
+  quote_c_91define = find_or_add_symbol("c-define");
+  quote_scm_91fnc = find_or_add_symbol("scm-fnc");
+  quote_symbol = find_or_add_symbol("symbol");
+  quote_arg = find_or_add_symbol("arg");
+  quote_quote = find_or_add_symbol("quote");
+  quote__85foreign_91types_85 = find_or_add_symbol("*foreign-types*");
+  quote_hash_91table_91ref = find_or_add_symbol("hash-table-ref");
+  quote_X = find_or_add_symbol("X");
+  quote_lambda = find_or_add_symbol("lambda");
+  quote_with_91handler = find_or_add_symbol("with-handler");
+  quote_define = find_or_add_symbol("define");
+  quote_define_91c = find_or_add_symbol("define-c");
+  quote_begin = find_or_add_symbol("begin");
+  quote_c_91void = find_or_add_symbol("c-void");
+  quote_opaque = find_or_add_symbol("opaque");
+  quote_bytevector = find_or_add_symbol("bytevector");
+  quote_string = find_or_add_symbol("string");
+  quote__char = find_or_add_symbol("char");
+  quote_bool = find_or_add_symbol("bool");
+  quote_bigint = find_or_add_symbol("bigint");
+  quote_bignum = find_or_add_symbol("bignum");
+  quote_var = find_or_add_symbol("var");
+  quote__double = find_or_add_symbol("double");
+  quote__float = find_or_add_symbol("float");
+  quote_integer = find_or_add_symbol("integer");
+  quote__int = find_or_add_symbol("int");
+
+  add_symbol(quote_sub_91big_91nums);
+  add_symbol(quote_c_91define);
+  add_symbol(quote_scm_91fnc);
+  add_symbol(quote_symbol);
+  add_symbol(quote_arg);
+  add_symbol(quote_quote);
+  add_symbol(quote__85foreign_91types_85);
+  add_symbol(quote_hash_91table_91ref);
+  add_symbol(quote_X);
+  add_symbol(quote_lambda);
+  add_symbol(quote_with_91handler);
+  add_symbol(quote_define);
+  add_symbol(quote_define_91c);
+  add_symbol(quote_begin);
+  add_symbol(quote_c_91void);
+  add_symbol(quote_opaque);
+  add_symbol(quote_bytevector);
+  add_symbol(quote_string);
+  add_symbol(quote__char);
+  add_symbol(quote_bool);
+  add_symbol(quote_bigint);
+  add_symbol(quote_bignum);
+  add_symbol(quote_var);
+  add_symbol(quote__double);
+  add_symbol(quote__float);
+  add_symbol(quote_integer);
+  add_symbol(quote__int);
+
+mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
+mclosure1(c_731931, c_schemecyclonepretty_91print_entry_pt, &c_done);
+mclosure1(c_731932, c_schemeeval_entry_pt, &c_731931);
+mclosure1(c_731933, c_schemecyclonelibraries_entry_pt, &c_731932);
+mclosure1(c_731934, c_schemecycloneutil_entry_pt, &c_731933);
+mclosure1(c_731935, c_schemeread_entry_pt, &c_731934);
+mclosure1(c_731936, c_schemeprocess_91context_entry_pt, &c_731935);
+mclosure1(c_731937, c_schemecycloneprimitives_entry_pt, &c_731936);
+mclosure1(c_731938, c_schemecyclonehashset_entry_pt, &c_731937);
+mclosure1(c_731939, c_schemewrite_entry_pt, &c_731938);
+mclosure1(c_731940, c_srfi69_entry_pt, &c_731939);
+mclosure1(c_731941, c_scheme_char_entry_pt, &c_731940);
+mclosure1(c_731942, c_schemefile_entry_pt, &c_731941);
+mclosure1(c_731943, c_schemebase_entry_pt, &c_731942);
+mclosure1(c_731944, c_schemecyclonecommon_entry_pt, &c_731943);
+(c_731944.fn)(data, 0, &c_731944, &c_731944);
+}
+static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
+  make_utf8_string_with_len(c_731927, "sub_big_nums", 12, 12);c_731927.hdr.immutable = 1;
+make_pair(c_731930,quote_bignum,NULL);c_731930.hdr.immutable = 1;
+make_pair(c_731929,quote_bignum,&c_731930);c_731929.hdr.immutable = 1;
+make_pair(c_731928,quote_opaque,&c_731929);c_731928.hdr.immutable = 1;
+make_pair(c_731926,&c_731927,&c_731928);c_731926.hdr.immutable = 1;
+make_pair(c_731925,quote_bignum,&c_731926);c_731925.hdr.immutable = 1;
+make_pair(c_731924,quote_sub_91big_91nums,&c_731925);c_731924.hdr.immutable = 1;
+make_pair(c_731923,quote_c_91define,&c_731924);c_731923.hdr.immutable = 1;
+return_direct3(data,__lambda_1,&c_731923, __glo_values_scheme_base, __glo_values_scheme_base);
+;
+}
+int main(int argc, char **argv, char **envp)
+{gc_thread_data *thd;
+ long stack_size = global_stack_size = STACK_SIZE;
+ long heap_size = global_heap_size = HEAP_SIZE;
+ mclosure0(clos_halt,&Cyc_halt);  // Halt if final closure is reached
+ mclosure0(entry_pt,&c_entry_pt); // First function to execute
+ _cyc_argc = argc;
+ _cyc_argv = argv;
+ set_env_variables(envp);
+ gc_initialize();
+ thd = malloc(sizeof(gc_thread_data));
+ gc_thread_data_init(thd, 0, (char *) &stack_size, stack_size);
+ thd->gc_cont = &entry_pt;
+ thd->gc_args[0] = &clos_halt;
+ thd->gc_num_args = 1;
+ thd->thread_id = pthread_self();
+ gc_add_mutator(thd);
+ Cyc_heap_init(heap_size);
+ thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
+ Cyc_start_trampoline(thd);
+ return 0;}