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

#include "cyclone/types.h"
object __glo_lib_91init_117libscommon_libs_common = NULL;
object __glo_get_91program_91installation_91dir_libs_common = NULL;
object __glo_get_91library_91installation_91dir_libs_common = NULL;
object __glo__85doc_91candidates_85_libs_common = NULL;
object __glo__85default_91doc_91file_85_libs_common = NULL;
object __glo__85default_91doc_91url_85_libs_common = NULL;
object __glo__85internal_91cyclone_91libs_85_libs_common = NULL;
object __glo__85library_91installable_91extensions_85_libs_common = NULL;
object __glo__85default_91lock_91file_85_libs_common = NULL;
object __glo__85default_91code_91directory_85_libs_common = NULL;
object __glo__85winds_91version_85_libs_common = NULL;
extern object __glo_member_scheme_base;
extern object __glo_assoc_scheme_base;
extern object __glo_cons_91source_scheme_base;
extern object __glo_syntax_91rules_scheme_base;
extern object __glo_letrec_85_scheme_base;
extern object __glo_guard_scheme_base;
extern object __glo_guard_91aux_scheme_base;
extern object __glo_define_91record_91type_scheme_base;
extern object __glo_record_127_scheme_base;
extern object __glo_is_91a_127_scheme_base;
extern object __glo_register_91simple_91type_scheme_base;
extern object __glo_make_91type_91predicate_scheme_base;
extern object __glo_make_91constructor_scheme_base;
extern object __glo_make_91constructor_95args_scheme_base;
extern object __glo_make_91getter_scheme_base;
extern object __glo_make_91setter_scheme_base;
extern object __glo_slot_91ref_scheme_base;
extern object __glo_slot_91set_67_scheme_base;
extern object __glo_type_91slot_91offset_scheme_base;
extern object __glo_make_91record_91marker_scheme_base;
extern object __glo_receive_scheme_base;
extern object __glo_abs_scheme_base;
extern object __glo_max_scheme_base;
extern object __glo_min_scheme_base;
extern object __glo_modulo_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_even_127_scheme_base;
extern object __glo_exact_91integer_127_scheme_base;
extern object __glo_exact_91integer_91sqrt_scheme_base;
extern object __glo_exact_127_scheme_base;
extern object __glo_inexact_127_scheme_base;
extern object __glo_odd_127_scheme_base;
extern object __glo_complex_127_scheme_base;
extern object __glo_rational_127_scheme_base;
extern object __glo_bignum_127_scheme_base;
extern object __glo_gcd_scheme_base;
extern object __glo_lcm_scheme_base;
extern object __glo_quotient_scheme_base;
extern object __glo_remainder_scheme_base;
extern object __glo_truncate_91quotient_scheme_base;
extern object __glo_truncate_91remainder_scheme_base;
extern object __glo_truncate_95_scheme_base;
extern object __glo_floor_91quotient_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_floor_95_scheme_base;
extern object __glo_square_scheme_base;
extern object __glo_expt_scheme_base;
extern object __glo_call_91with_91current_91continuation_scheme_base;
extern object __glo_call_95cc_scheme_base;
extern object __glo_call_91with_91values_scheme_base;
extern object __glo_dynamic_91wind_scheme_base;
extern object __glo_values_scheme_base;
extern object __glo_char_123_127_scheme_base;
extern object __glo_char_121_127_scheme_base;
extern object __glo_char_125_127_scheme_base;
extern object __glo_char_121_123_127_scheme_base;
extern object __glo_char_125_123_127_scheme_base;
extern object __glo_string_123_127_scheme_base;
extern object __glo_string_121_127_scheme_base;
extern object __glo_string_121_123_127_scheme_base;
extern object __glo_string_125_127_scheme_base;
extern object __glo_string_125_123_127_scheme_base;
extern object __glo_fast_91string_123_127_scheme_base;
extern object __glo_fast_91string_121_127_scheme_base;
extern object __glo_fast_91string_121_123_127_scheme_base;
extern object __glo_fast_91string_125_127_scheme_base;
extern object __glo_fast_91string_125_123_127_scheme_base;
extern object __glo_foldl_scheme_base;
extern object __glo_foldr_scheme_base;
extern object __glo_not_scheme_base;
extern object __glo_list_127_scheme_base;
extern object __glo_zero_127_scheme_base;
extern object __glo_positive_127_scheme_base;
extern object __glo_negative_127_scheme_base;
extern object __glo_append_scheme_base;
extern object __glo__list_scheme_base;
extern object __glo_make_91list_scheme_base;
extern object __glo_list_91copy_scheme_base;
extern object __glo_map_scheme_base;
extern object __glo_Cyc_91map_91loop_911_scheme_base;
extern object __glo_Cyc_91map_91loop_912_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_912_scheme_base;
extern object __glo_for_91each_scheme_base;
extern object __glo_list_91tail_scheme_base;
extern object __glo_list_91ref_scheme_base;
extern object __glo_list_91set_67_scheme_base;
extern object __glo_reverse_scheme_base;
extern object __glo_boolean_123_127_scheme_base;
extern object __glo_symbol_123_127_scheme_base;
extern object __glo_Cyc_91obj_123_127_scheme_base;
extern object __glo_vector_scheme_base;
extern object __glo_vector_91append_scheme_base;
extern object __glo_vector_91copy_scheme_base;
extern object __glo_vector_91copy_67_scheme_base;
extern object __glo_vector_91fill_67_scheme_base;
extern object __glo_vector_91_125list_scheme_base;
extern object __glo_vector_91_125string_scheme_base;
extern object __glo_vector_91map_scheme_base;
extern object __glo_vector_91for_91each_scheme_base;
extern object __glo_make_91string_scheme_base;
extern object __glo_string_scheme_base;
extern object __glo_string_91copy_scheme_base;
extern object __glo_string_91copy_67_scheme_base;
extern object __glo_string_91fill_67_scheme_base;
extern object __glo_string_91_125list_scheme_base;
extern object __glo_string_91_125vector_scheme_base;
extern object __glo_string_91map_scheme_base;
extern object __glo_string_91for_91each_scheme_base;
extern object __glo_make_91parameter_scheme_base;
extern object __glo_current_91output_91port_scheme_base;
extern object __glo_current_91input_91port_scheme_base;
extern object __glo_current_91error_91port_scheme_base;
extern object __glo_call_91with_91port_scheme_base;
extern object __glo_error_91object_127_scheme_base;
extern object __glo_error_91object_91message_scheme_base;
extern object __glo_error_91object_91irritants_scheme_base;
extern object __glo_error_95loc_scheme_base;
extern object __glo_error_scheme_base;
extern object __glo_raise_scheme_base;
extern object __glo_raise_91continuable_scheme_base;
extern object __glo_with_91handler_scheme_base;
extern object __glo_with_91exception_91handler_scheme_base;
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
extern object __glo_newline_scheme_base;
extern object __glo_write_91char_scheme_base;
extern object __glo_write_91string_scheme_base;
extern object __glo_write_91string_911_scheme_base;
extern object __glo_write_91string_912_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_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_command_91line_scheme_process_91context;
extern object __glo_emergency_91exit_scheme_process_91context;
extern object __glo_get_91environment_91variable_scheme_process_91context;
extern object __glo_get_91environment_91variables_scheme_process_91context;
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;
#include "cyclone/runtime.h"
defsymbol(_85default_91code_91directory_85);
defsymbol(_85default_91lock_91file_85);
defsymbol(_85library_91installable_91extensions_85);
defsymbol(srfi);
defsymbol(test);
defsymbol(match);
defsymbol(foreign);
defsymbol(concurrent);
defsymbol(cyclone);
defsymbol(_85internal_91cyclone_91libs_85);
defsymbol(_85doc_91candidates_85);
defsymbol(bin);
defsymbol(sld);
static void __lambda_5(void *data, int argc, closure _,object k_7348) ;
static void __lambda_6(void *data, int argc, object self_7394, object r_7391) ;
static void __lambda_7(void *data, int argc, object self_7395, object r_7350) ;
static void __lambda_8(void *data, int argc, object self_7396, object r_7390) ;
static void __lambda_9(void *data, int argc, object self_7397, object r_7389) ;
static void __lambda_10(void *data, int argc, object self_7398, object r_7351) ;
static void __lambda_11(void *data, int argc, object self_7399, object r_7352) ;
static void __lambda_16(void *data, int argc, object self_73100, object k_7384, object s_734_7316_7319) ;
static void __lambda_12(void *data, int argc, object self_73101, object r_7382) ;
static void __lambda_13(void *data, int argc, object self_73102, object r_7356) ;
static void __lambda_14(void *data, int argc, object self_73103, object r_7355) ;
static void __lambda_15(void *data, int argc, object self_73104, object r_7353) ;
static void __lambda_3(void *data, int argc, closure _,object k_7343) ;
static void __lambda_4(void *data, int argc, object self_7393, object tmp_7313_7315_7318) ;
static void __lambda_1(void *data, int argc, closure _,object k_7338) ;
static void __lambda_2(void *data, int argc, object self_7392, object tmp_739_7311_7317) ;

static void __lambda_5(void *data, int argc, closure _,object k_7348) {
  Cyc_st_add(data, "libs/common.sld:lib-init:libscommon");

closureN_type c_73134;
object e_73259 [1];
c_73134.hdr.mark = gc_color_red;
 c_73134.hdr.grayed = 0;
c_73134.tag = closureN_tag;
 c_73134.fn = (function_type)__lambda_6;
c_73134.num_args = 1;
c_73134.num_elements = 1;
c_73134.elements = (object *)e_73259;
c_73134.elements[0] = k_7348;


make_utf8_string_with_len(c_73260, "cyclone", 7, 7);
return_closcall2(data,  __glo_make_91parameter_scheme_base,  &c_73134, &c_73260);; 
}

static void __lambda_6(void *data, int argc, object self_7394, object r_7391) {
  
closureN_type c_73136;
object e_73255 [1];
c_73136.hdr.mark = gc_color_red;
 c_73136.hdr.grayed = 0;
c_73136.tag = closureN_tag;
 c_73136.fn = (function_type)__lambda_7;
c_73136.num_args = 1;
c_73136.num_elements = 1;
c_73136.elements = (object *)e_73255;
c_73136.elements[0] = ((closureN)self_7394)->elements[0];


object c_73258 = global_set_cps_id(data,(closure)&c_73136,"__glo__85default_91code_91directory_85_libs_common", __glo__85default_91code_91directory_85_libs_common, r_7391);
return_closcall1(data,(closure)&c_73136,  c_73258);; 
}

static void __lambda_7(void *data, int argc, object self_7395, object r_7350) {
  
closureN_type c_73138;
object e_73254 [1];
c_73138.hdr.mark = gc_color_red;
 c_73138.hdr.grayed = 0;
c_73138.tag = closureN_tag;
 c_73138.fn = (function_type)__lambda_8;
c_73138.num_args = 1;
c_73138.num_elements = 1;
c_73138.elements = (object *)e_73254;
c_73138.elements[0] = ((closureN)self_7395)->elements[0];

return_closcall1(data,  __glo_get_91library_91installation_91dir_libs_common,  &c_73138);; 
}

static void __lambda_8(void *data, int argc, object self_7396, object r_7390) {
  
closureN_type c_73140;
object e_73248 [1];
c_73140.hdr.mark = gc_color_red;
 c_73140.hdr.grayed = 0;
c_73140.tag = closureN_tag;
 c_73140.fn = (function_type)__lambda_9;
c_73140.num_args = 1;
c_73140.num_elements = 1;
c_73140.elements = (object *)e_73248;
c_73140.elements[0] = ((closureN)self_7396)->elements[0];


make_utf8_string_with_len(c_73252, "/", 1, 1);

make_utf8_string_with_len(c_73253, "winds.lock", 10, 10);

object c_73251 = Cyc_string_append(data,(closure)&c_73140,3,r_7390, &c_73252, &c_73253);
return_closcall1(data,(closure)&c_73140,  c_73251);; 
}

static void __lambda_9(void *data, int argc, object self_7397, object r_7389) {
  
closureN_type c_73142;
object e_73244 [1];
c_73142.hdr.mark = gc_color_red;
 c_73142.hdr.grayed = 0;
c_73142.tag = closureN_tag;
 c_73142.fn = (function_type)__lambda_10;
c_73142.num_args = 1;
c_73142.num_elements = 1;
c_73142.elements = (object *)e_73244;
c_73142.elements[0] = ((closureN)self_7397)->elements[0];


object c_73247 = global_set_cps_id(data,(closure)&c_73142,"__glo__85default_91lock_91file_85_libs_common", __glo__85default_91lock_91file_85_libs_common, r_7389);
return_closcall1(data,(closure)&c_73142,  c_73247);; 
}

static void __lambda_10(void *data, int argc, object self_7398, object r_7351) {
  
closureN_type c_73144;
object e_73232 [1];
c_73144.hdr.mark = gc_color_red;
 c_73144.hdr.grayed = 0;
c_73144.tag = closureN_tag;
 c_73144.fn = (function_type)__lambda_11;
c_73144.num_args = 1;
c_73144.num_elements = 1;
c_73144.elements = (object *)e_73232;
c_73144.elements[0] = ((closureN)self_7398)->elements[0];


make_utf8_string_with_len(c_73237, ".o", 2, 2);c_73237.hdr.immutable = 1;

make_utf8_string_with_len(c_73239, ".so", 3, 3);c_73239.hdr.immutable = 1;

make_utf8_string_with_len(c_73241, ".sld", 4, 4);c_73241.hdr.immutable = 1;

make_utf8_string_with_len(c_73243, ".meta", 5, 5);c_73243.hdr.immutable = 1;

make_pair(c_73242,&c_73243,NULL);c_73242.hdr.immutable = 1;

make_pair(c_73240,&c_73241,&c_73242);c_73240.hdr.immutable = 1;

make_pair(c_73238,&c_73239,&c_73240);c_73238.hdr.immutable = 1;

make_pair(c_73236,&c_73237,&c_73238);c_73236.hdr.immutable = 1;

object c_73235 = global_set_cps_id(data,(closure)&c_73144,"__glo__85library_91installable_91extensions_85_libs_common", __glo__85library_91installable_91extensions_85_libs_common, &c_73236);
return_closcall1(data,(closure)&c_73144,  c_73235);; 
}

static void __lambda_11(void *data, int argc, object self_7399, object r_7352) {
  
closureN_type c_73146;
object e_73223 [1];
c_73146.hdr.mark = gc_color_red;
 c_73146.hdr.grayed = 0;
c_73146.tag = closureN_tag;
 c_73146.fn = (function_type)__lambda_12;
c_73146.num_args = 1;
c_73146.num_elements = 1;
c_73146.elements = (object *)e_73223;
c_73146.elements[0] = ((closureN)self_7399)->elements[0];


mclosure0(c_73224, (function_type)__lambda_16);c_73224.num_args = 1;
return_direct_with_clo1(data,(closure)&c_73146,__lambda_12,  &c_73224);; 
}

static void __lambda_16(void *data, int argc, object self_73100, object k_7384, object s_734_7316_7319) {
  
pair_type local_73228; 

pair_type local_73231; 
return_closcall1(data,  k_7384,  set_pair_as_expr(&local_73228, quote_srfi, set_pair_as_expr(&local_73231, s_734_7316_7319, NULL)));; 
}

static void __lambda_12(void *data, int argc, object self_73101, object r_7382) {
  
closureN_type c_73148;
object e_73205 [1];
c_73148.hdr.mark = gc_color_red;
 c_73148.hdr.grayed = 0;
c_73148.tag = closureN_tag;
 c_73148.fn = (function_type)__lambda_13;
c_73148.num_args = 1;
c_73148.num_elements = 1;
c_73148.elements = (object *)e_73205;
c_73148.elements[0] = ((closureN)self_73101)->elements[0];


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

make_pair(c_73221,obj_int2obj(133),&c_73222);c_73221.hdr.immutable = 1;

make_pair(c_73220,obj_int2obj(132),&c_73221);c_73220.hdr.immutable = 1;

make_pair(c_73219,obj_int2obj(128),&c_73220);c_73219.hdr.immutable = 1;

make_pair(c_73218,obj_int2obj(121),&c_73219);c_73218.hdr.immutable = 1;

make_pair(c_73217,obj_int2obj(117),&c_73218);c_73217.hdr.immutable = 1;

make_pair(c_73216,obj_int2obj(113),&c_73217);c_73216.hdr.immutable = 1;

make_pair(c_73215,obj_int2obj(111),&c_73216);c_73215.hdr.immutable = 1;

make_pair(c_73214,obj_int2obj(106),&c_73215);c_73214.hdr.immutable = 1;

make_pair(c_73213,obj_int2obj(69),&c_73214);c_73213.hdr.immutable = 1;

make_pair(c_73212,obj_int2obj(60),&c_73213);c_73212.hdr.immutable = 1;

make_pair(c_73211,obj_int2obj(28),&c_73212);c_73211.hdr.immutable = 1;

make_pair(c_73210,obj_int2obj(27),&c_73211);c_73210.hdr.immutable = 1;

make_pair(c_73209,obj_int2obj(18),&c_73210);c_73209.hdr.immutable = 1;

make_pair(c_73208,obj_int2obj(8),&c_73209);c_73208.hdr.immutable = 1;

make_pair(c_73207,obj_int2obj(2),&c_73208);c_73207.hdr.immutable = 1;

make_pair(c_73206,obj_int2obj(1),&c_73207);c_73206.hdr.immutable = 1;
return_closcall3(data,  __glo_Cyc_91map_91loop_911_scheme_base,  &c_73148, r_7382, &c_73206);; 
}

static void __lambda_13(void *data, int argc, object self_73102, object r_7356) {
  
closureN_type c_73150;
object e_73168 [1];
c_73150.hdr.mark = gc_color_red;
 c_73150.hdr.grayed = 0;
c_73150.tag = closureN_tag;
 c_73150.fn = (function_type)__lambda_14;
c_73150.num_args = 1;
c_73150.num_elements = 1;
c_73150.elements = (object *)e_73168;
c_73150.elements[0] = ((closureN)self_73102)->elements[0];


pair_type local_73171; 

pair_type local_73174; 

pair_type local_73177; 

pair_type local_73180; 

pair_type local_73183; 

pair_type local_73186; 

pair_type local_73189; 

pair_type local_73192; 

pair_type local_73195; 

pair_type local_73198; 

pair_type local_73201; 

pair_type local_73204; 
return_closcall3(data,  __glo_append_scheme_base,  &c_73150, r_7356, set_pair_as_expr(&local_73171, set_pair_as_expr(&local_73174, quote_cyclone, set_pair_as_expr(&local_73177, quote_concurrent, NULL)), set_pair_as_expr(&local_73180, set_pair_as_expr(&local_73183, quote_cyclone, set_pair_as_expr(&local_73186, quote_foreign, NULL)), set_pair_as_expr(&local_73189, set_pair_as_expr(&local_73192, quote_cyclone, set_pair_as_expr(&local_73195, quote_match, NULL)), set_pair_as_expr(&local_73198, set_pair_as_expr(&local_73201, quote_cyclone, set_pair_as_expr(&local_73204, quote_test, NULL)), NULL)))));; 
}

static void __lambda_14(void *data, int argc, object self_73103, object r_7355) {
  
closureN_type c_73152;
object e_73164 [1];
c_73152.hdr.mark = gc_color_red;
 c_73152.hdr.grayed = 0;
c_73152.tag = closureN_tag;
 c_73152.fn = (function_type)__lambda_15;
c_73152.num_args = 1;
c_73152.num_elements = 1;
c_73152.elements = (object *)e_73164;
c_73152.elements[0] = ((closureN)self_73103)->elements[0];


object c_73167 = global_set_cps_id(data,(closure)&c_73152,"__glo__85internal_91cyclone_91libs_85_libs_common", __glo__85internal_91cyclone_91libs_85_libs_common, r_7355);
return_closcall1(data,(closure)&c_73152,  c_73167);; 
}

static void __lambda_15(void *data, int argc, object self_73104, object r_7353) {
  
make_utf8_string_with_len(c_73159, "README", 6, 6);c_73159.hdr.immutable = 1;

make_utf8_string_with_len(c_73161, "Readme", 6, 6);c_73161.hdr.immutable = 1;

make_utf8_string_with_len(c_73163, "readme", 6, 6);c_73163.hdr.immutable = 1;

make_pair(c_73162,&c_73163,NULL);c_73162.hdr.immutable = 1;

make_pair(c_73160,&c_73161,&c_73162);c_73160.hdr.immutable = 1;

make_pair(c_73158,&c_73159,&c_73160);c_73158.hdr.immutable = 1;

object c_73157 = global_set_cps_id(data,  ((closureN)self_73104)->elements[0],"__glo__85doc_91candidates_85_libs_common", __glo__85doc_91candidates_85_libs_common, &c_73158);
return_closcall1(data,  ((closureN)self_73104)->elements[0],  c_73157);; 
}

static void __lambda_3(void *data, int argc, closure _,object k_7343) {
  Cyc_st_add(data, "libs/common.sld:get-program-installation-dir");

closureN_type c_73122;
object e_73130 [1];
c_73122.hdr.mark = gc_color_red;
 c_73122.hdr.grayed = 0;
c_73122.tag = closureN_tag;
 c_73122.fn = (function_type)__lambda_4;
c_73122.num_args = 1;
c_73122.num_elements = 1;
c_73122.elements = (object *)e_73130;
c_73122.elements[0] = k_7343;


make_utf8_string_with_len(c_73131, "CYCLONE_PROGRAM_PATH", 20, 20);
return_closcall2(data,  __glo_get_91environment_91variable_scheme_process_91context,  &c_73122, &c_73131);; 
}

static void __lambda_4(void *data, int argc, object self_7393, object tmp_7313_7315_7318) {
  if( (boolean_f != tmp_7313_7315_7318) ){ 
  return_closcall1(data,  ((closureN)self_7393)->elements[0],  tmp_7313_7315_7318);
} else { 
  
object c_73129 = Cyc_installation_dir(data,  ((closureN)self_7393)->elements[0],quote_bin);
return_closcall1(data,  ((closureN)self_7393)->elements[0],  c_73129);}
;; 
}

static void __lambda_1(void *data, int argc, closure _,object k_7338) {
  Cyc_st_add(data, "libs/common.sld:get-library-installation-dir");

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


make_utf8_string_with_len(c_73119, "CYCLONE_LIBRARY_PATH", 20, 20);
return_closcall2(data,  __glo_get_91environment_91variable_scheme_process_91context,  &c_73110, &c_73119);; 
}

static void __lambda_2(void *data, int argc, object self_7392, object tmp_739_7311_7317) {
  if( (boolean_f != tmp_739_7311_7317) ){ 
  return_closcall1(data,  ((closureN)self_7392)->elements[0],  tmp_739_7311_7317);
} else { 
  
object c_73117 = Cyc_installation_dir(data,  ((closureN)self_7392)->elements[0],quote_sld);
return_closcall1(data,  ((closureN)self_7392)->elements[0],  c_73117);}
;; 
}

void c_libscommon_inlinable_lambdas(void *data, int argc, closure _, object cont){ 
(((closure)cont)->fn)(data, 1, cont, NULL);
 } 
void c_libscommon_entry_pt_first_lambda(data, argc, cont,value) void *data; int argc; closure cont; object value;{ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote__85default_91code_91directory_85 = find_or_add_symbol("*default-code-directory*");
  quote__85default_91lock_91file_85 = find_or_add_symbol("*default-lock-file*");
  quote__85library_91installable_91extensions_85 = find_or_add_symbol("*library-installable-extensions*");
  quote_srfi = find_or_add_symbol("srfi");
  quote_test = find_or_add_symbol("test");
  quote_match = find_or_add_symbol("match");
  quote_foreign = find_or_add_symbol("foreign");
  quote_concurrent = find_or_add_symbol("concurrent");
  quote_cyclone = find_or_add_symbol("cyclone");
  quote__85internal_91cyclone_91libs_85 = find_or_add_symbol("*internal-cyclone-libs*");
  quote__85doc_91candidates_85 = find_or_add_symbol("*doc-candidates*");
  quote_bin = find_or_add_symbol("bin");
  quote_sld = find_or_add_symbol("sld");

  add_global("__glo_lib_91init_117libscommon_libs_common", (object *) &__glo_lib_91init_117libscommon_libs_common);
  add_global("__glo_get_91program_91installation_91dir_libs_common", (object *) &__glo_get_91program_91installation_91dir_libs_common);
  add_global("__glo_get_91library_91installation_91dir_libs_common", (object *) &__glo_get_91library_91installation_91dir_libs_common);
  add_global("__glo__85doc_91candidates_85_libs_common", (object *) &__glo__85doc_91candidates_85_libs_common);
  add_global("__glo__85default_91doc_91file_85_libs_common", (object *) &__glo__85default_91doc_91file_85_libs_common);
  add_global("__glo__85default_91doc_91url_85_libs_common", (object *) &__glo__85default_91doc_91url_85_libs_common);
  add_global("__glo__85internal_91cyclone_91libs_85_libs_common", (object *) &__glo__85internal_91cyclone_91libs_85_libs_common);
  add_global("__glo__85library_91installable_91extensions_85_libs_common", (object *) &__glo__85library_91installable_91extensions_85_libs_common);
  add_global("__glo__85default_91lock_91file_85_libs_common", (object *) &__glo__85default_91lock_91file_85_libs_common);
  add_global("__glo__85default_91code_91directory_85_libs_common", (object *) &__glo__85default_91code_91directory_85_libs_common);
  add_global("__glo__85winds_91version_85_libs_common", (object *) &__glo__85winds_91version_85_libs_common);
  add_symbol(quote__85default_91code_91directory_85);
  add_symbol(quote__85default_91lock_91file_85);
  add_symbol(quote__85library_91installable_91extensions_85);
  add_symbol(quote_srfi);
  add_symbol(quote_test);
  add_symbol(quote_match);
  add_symbol(quote_foreign);
  add_symbol(quote_concurrent);
  add_symbol(quote_cyclone);
  add_symbol(quote__85internal_91cyclone_91libs_85);
  add_symbol(quote__85doc_91candidates_85);
  add_symbol(quote_bin);
  add_symbol(quote_sld);
  mclosure0(c_73132, (function_type)__lambda_5);c_73132.num_args = 0; 
  __glo_lib_91init_117libscommon_libs_common = &c_73132; 
  mclosure0(c_73120, (function_type)__lambda_3);c_73120.num_args = 0; 
  __glo_get_91program_91installation_91dir_libs_common = &c_73120; 
  mclosure0(c_73108, (function_type)__lambda_1);c_73108.num_args = 0; 
  __glo_get_91library_91installation_91dir_libs_common = &c_73108; 
  __glo__85doc_91candidates_85_libs_common = boolean_f; 
  make_utf8_string_with_len(c_73107, "README.md", 9, 9); 
  __glo__85default_91doc_91file_85_libs_common = &c_73107; 
  make_utf8_string_with_len(c_73106, "https://github.com/cyclone-scheme/winds/wiki/", 45, 45); 
  __glo__85default_91doc_91url_85_libs_common = &c_73106; 
  __glo__85internal_91cyclone_91libs_85_libs_common = boolean_f; 
  __glo__85library_91installable_91extensions_85_libs_common = boolean_f; 
  __glo__85default_91lock_91file_85_libs_common = boolean_f; 
  __glo__85default_91code_91directory_85_libs_common = boolean_f; 
  make_utf8_string_with_len(c_73105, "0.25", 4, 4); 
  __glo__85winds_91version_85_libs_common = &c_73105; 

  mclosure0(clo_73262, c_libscommon_inlinable_lambdas); make_pair(pair_73261, find_or_add_symbol("c_libscommon_inlinable_lambdas"), &clo_73262);
  make_cvar(cvar_73263, (object *)&__glo_lib_91init_117libscommon_libs_common);make_pair(pair_73264, find_or_add_symbol("lib-init:libscommon"), &cvar_73263);
  make_cvar(cvar_73265, (object *)&__glo_get_91program_91installation_91dir_libs_common);make_pair(pair_73266, find_or_add_symbol("get-program-installation-dir"), &cvar_73265);
  make_cvar(cvar_73267, (object *)&__glo_get_91library_91installation_91dir_libs_common);make_pair(pair_73268, find_or_add_symbol("get-library-installation-dir"), &cvar_73267);
  make_cvar(cvar_73269, (object *)&__glo__85doc_91candidates_85_libs_common);make_pair(pair_73270, find_or_add_symbol("*doc-candidates*"), &cvar_73269);
  make_cvar(cvar_73271, (object *)&__glo__85default_91doc_91file_85_libs_common);make_pair(pair_73272, find_or_add_symbol("*default-doc-file*"), &cvar_73271);
  make_cvar(cvar_73273, (object *)&__glo__85default_91doc_91url_85_libs_common);make_pair(pair_73274, find_or_add_symbol("*default-doc-url*"), &cvar_73273);
  make_cvar(cvar_73275, (object *)&__glo__85internal_91cyclone_91libs_85_libs_common);make_pair(pair_73276, find_or_add_symbol("*internal-cyclone-libs*"), &cvar_73275);
  make_cvar(cvar_73277, (object *)&__glo__85library_91installable_91extensions_85_libs_common);make_pair(pair_73278, find_or_add_symbol("*library-installable-extensions*"), &cvar_73277);
  make_cvar(cvar_73279, (object *)&__glo__85default_91lock_91file_85_libs_common);make_pair(pair_73280, find_or_add_symbol("*default-lock-file*"), &cvar_73279);
  make_cvar(cvar_73281, (object *)&__glo__85default_91code_91directory_85_libs_common);make_pair(pair_73282, find_or_add_symbol("*default-code-directory*"), &cvar_73281);
  make_cvar(cvar_73283, (object *)&__glo__85winds_91version_85_libs_common);make_pair(pair_73284, find_or_add_symbol("*winds-version*"), &cvar_73283);
make_pair(c_73296, &pair_73261,Cyc_global_variables);
make_pair(c_73295, &pair_73264, &c_73296);
make_pair(c_73294, &pair_73266, &c_73295);
make_pair(c_73293, &pair_73268, &c_73294);
make_pair(c_73292, &pair_73270, &c_73293);
make_pair(c_73291, &pair_73272, &c_73292);
make_pair(c_73290, &pair_73274, &c_73291);
make_pair(c_73289, &pair_73276, &c_73290);
make_pair(c_73288, &pair_73278, &c_73289);
make_pair(c_73287, &pair_73280, &c_73288);
make_pair(c_73286, &pair_73282, &c_73287);
make_pair(c_73285, &pair_73284, &c_73286);
Cyc_global_variables = &c_73285;
cont = ((closure1_type *)cont)->element;
(((closure)__glo_lib_91init_117libscommon_libs_common)->fn)(data, 1, cont, cont);
}
void c_libscommon_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{ 
  register_library("libs_common");
  c_libscommon_entry_pt_first_lambda(data, argc, cont,value);
}
