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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

#include "cyclone/types.h"
object __glo_lib_91init_117libslock_libs_lock = NULL;
object __glo_with_91file_91lock_libs_lock = NULL;
object __glo_unlock_91file_67_libs_lock = NULL;
object __glo_try_91to_91lock_91file_67_libs_lock = NULL;
extern object __glo_member_scheme_base;
extern object __glo_assoc_scheme_base;
extern object __glo_cons_91source_scheme_base;
extern object __glo_syntax_91rules_scheme_base;
extern object __glo_letrec_85_scheme_base;
extern object __glo_guard_scheme_base;
extern object __glo_guard_91aux_scheme_base;
extern object __glo_define_91record_91type_scheme_base;
extern object __glo_record_127_scheme_base;
extern object __glo_is_91a_127_scheme_base;
extern object __glo_register_91simple_91type_scheme_base;
extern object __glo_make_91type_91predicate_scheme_base;
extern object __glo_make_91constructor_scheme_base;
extern object __glo_make_91constructor_95args_scheme_base;
extern object __glo_make_91getter_scheme_base;
extern object __glo_make_91setter_scheme_base;
extern object __glo_slot_91ref_scheme_base;
extern object __glo_slot_91set_67_scheme_base;
extern object __glo_type_91slot_91offset_scheme_base;
extern object __glo_make_91record_91marker_scheme_base;
extern object __glo_receive_scheme_base;
extern object __glo_abs_scheme_base;
extern object __glo_max_scheme_base;
extern object __glo_min_scheme_base;
extern object __glo_modulo_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_even_127_scheme_base;
extern object __glo_exact_91integer_127_scheme_base;
extern object __glo_exact_91integer_91sqrt_scheme_base;
extern object __glo_exact_127_scheme_base;
extern object __glo_inexact_127_scheme_base;
extern object __glo_odd_127_scheme_base;
extern object __glo_complex_127_scheme_base;
extern object __glo_rational_127_scheme_base;
extern object __glo_bignum_127_scheme_base;
extern object __glo_gcd_scheme_base;
extern object __glo_lcm_scheme_base;
extern object __glo_quotient_scheme_base;
extern object __glo_remainder_scheme_base;
extern object __glo_truncate_91quotient_scheme_base;
extern object __glo_truncate_91remainder_scheme_base;
extern object __glo_truncate_95_scheme_base;
extern object __glo_floor_91quotient_scheme_base;
extern object __glo_floor_91remainder_scheme_base;
extern object __glo_floor_95_scheme_base;
extern object __glo_square_scheme_base;
extern object __glo_expt_scheme_base;
extern object __glo_call_91with_91current_91continuation_scheme_base;
extern object __glo_call_95cc_scheme_base;
extern object __glo_call_91with_91values_scheme_base;
extern object __glo_dynamic_91wind_scheme_base;
extern object __glo_values_scheme_base;
extern object __glo_char_123_127_scheme_base;
extern object __glo_char_121_127_scheme_base;
extern object __glo_char_125_127_scheme_base;
extern object __glo_char_121_123_127_scheme_base;
extern object __glo_char_125_123_127_scheme_base;
extern object __glo_string_123_127_scheme_base;
extern object __glo_string_121_127_scheme_base;
extern object __glo_string_121_123_127_scheme_base;
extern object __glo_string_125_127_scheme_base;
extern object __glo_string_125_123_127_scheme_base;
extern object __glo_fast_91string_123_127_scheme_base;
extern object __glo_fast_91string_121_127_scheme_base;
extern object __glo_fast_91string_121_123_127_scheme_base;
extern object __glo_fast_91string_125_127_scheme_base;
extern object __glo_fast_91string_125_123_127_scheme_base;
extern object __glo_foldl_scheme_base;
extern object __glo_foldr_scheme_base;
extern object __glo_not_scheme_base;
extern object __glo_list_127_scheme_base;
extern object __glo_zero_127_scheme_base;
extern object __glo_positive_127_scheme_base;
extern object __glo_negative_127_scheme_base;
extern object __glo_append_scheme_base;
extern object __glo__list_scheme_base;
extern object __glo_make_91list_scheme_base;
extern object __glo_list_91copy_scheme_base;
extern object __glo_map_scheme_base;
extern object __glo_Cyc_91map_91loop_911_scheme_base;
extern object __glo_Cyc_91map_91loop_912_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_911_scheme_base;
extern object __glo_Cyc_91for_91each_91loop_912_scheme_base;
extern object __glo_for_91each_scheme_base;
extern object __glo_list_91tail_scheme_base;
extern object __glo_list_91ref_scheme_base;
extern object __glo_list_91set_67_scheme_base;
extern object __glo_reverse_scheme_base;
extern object __glo_boolean_123_127_scheme_base;
extern object __glo_symbol_123_127_scheme_base;
extern object __glo_Cyc_91obj_123_127_scheme_base;
extern object __glo_vector_scheme_base;
extern object __glo_vector_91append_scheme_base;
extern object __glo_vector_91copy_scheme_base;
extern object __glo_vector_91copy_67_scheme_base;
extern object __glo_vector_91fill_67_scheme_base;
extern object __glo_vector_91_125list_scheme_base;
extern object __glo_vector_91_125string_scheme_base;
extern object __glo_vector_91map_scheme_base;
extern object __glo_vector_91for_91each_scheme_base;
extern object __glo_make_91string_scheme_base;
extern object __glo_string_scheme_base;
extern object __glo_string_91copy_scheme_base;
extern object __glo_string_91copy_67_scheme_base;
extern object __glo_string_91fill_67_scheme_base;
extern object __glo_string_91_125list_scheme_base;
extern object __glo_string_91_125vector_scheme_base;
extern object __glo_string_91map_scheme_base;
extern object __glo_string_91for_91each_scheme_base;
extern object __glo_make_91parameter_scheme_base;
extern object __glo_current_91output_91port_scheme_base;
extern object __glo_current_91input_91port_scheme_base;
extern object __glo_current_91error_91port_scheme_base;
extern object __glo_call_91with_91port_scheme_base;
extern object __glo_error_91object_127_scheme_base;
extern object __glo_error_91object_91message_scheme_base;
extern object __glo_error_91object_91irritants_scheme_base;
extern object __glo_error_95loc_scheme_base;
extern object __glo_error_scheme_base;
extern object __glo_raise_scheme_base;
extern object __glo_raise_91continuable_scheme_base;
extern object __glo_with_91handler_scheme_base;
extern object __glo_with_91exception_91handler_scheme_base;
extern object __glo_Cyc_91add_91exception_91handler_scheme_base;
extern object __glo_Cyc_91remove_91exception_91handler_scheme_base;
extern object __glo_newline_scheme_base;
extern object __glo_write_91char_scheme_base;
extern object __glo_write_91string_scheme_base;
extern object __glo_write_91string_911_scheme_base;
extern object __glo_write_91string_912_scheme_base;
extern object __glo_flush_91output_91port_scheme_base;
extern object __glo_char_91ready_127_scheme_base;
extern object __glo_peek_91char_scheme_base;
extern object __glo_read_91char_scheme_base;
extern object __glo_read_91line_scheme_base;
extern object __glo_read_91string_scheme_base;
extern object __glo_input_91port_127_scheme_base;
extern object __glo_output_91port_127_scheme_base;
extern object __glo_input_91port_91open_127_scheme_base;
extern object __glo_output_91port_91open_127_scheme_base;
extern object __glo_get_91output_91string_scheme_base;
extern object __glo_open_91output_91string_scheme_base;
extern object __glo_open_91input_91string_scheme_base;
extern object __glo_get_91output_91bytevector_scheme_base;
extern object __glo_open_91input_91bytevector_scheme_base;
extern object __glo_open_91output_91bytevector_scheme_base;
extern object __glo_features_scheme_base;
extern object __glo_Cyc_91add_91feature_67_scheme_base;
extern object __glo_Cyc_91version_scheme_base;
extern object __glo_any_scheme_base;
extern object __glo_every_scheme_base;
extern object __glo_and_scheme_base;
extern object __glo_or_scheme_base;
extern object __glo_let_scheme_base;
extern object __glo_let_85_scheme_base;
extern object __glo_letrec_scheme_base;
extern object __glo_let_85_91values_scheme_base;
extern object __glo_let_91values_scheme_base;
extern object __glo_define_91values_scheme_base;
extern object __glo_begin_scheme_base;
extern object __glo__case_scheme_base;
extern object __glo_cond_scheme_base;
extern object __glo_cond_91expand_scheme_base;
extern object __glo__do_scheme_base;
extern object __glo_when_scheme_base;
extern object __glo_unless_scheme_base;
extern object __glo_quasiquote_scheme_base;
extern object __glo_floor_scheme_base;
extern object __glo_ceiling_scheme_base;
extern object __glo_truncate_scheme_base;
extern object __glo_round_scheme_base;
extern object __glo_exact_scheme_base;
extern object __glo_inexact_scheme_base;
extern object __glo_eof_91object_scheme_base;
extern object __glo__void_scheme_base;
extern object __glo_syntax_91error_scheme_base;
extern object __glo_bytevector_91copy_scheme_base;
extern object __glo_bytevector_91copy_67_scheme_base;
extern object __glo_utf8_91_125string_scheme_base;
extern object __glo_string_91_125utf8_scheme_base;
extern object __glo_denominator_scheme_base;
extern object __glo_numerator_scheme_base;
extern object __glo_parameterize_scheme_base;
extern object __glo_read_91bytevector_scheme_base;
extern object __glo_read_91bytevector_67_scheme_base;
extern object __glo_write_91bytevector_scheme_base;
extern object __glo_peek_91u8_scheme_base;
extern object __glo_read_91u8_scheme_base;
extern object __glo_write_91u8_scheme_base;
extern object __glo_binary_91port_127_scheme_base;
extern object __glo_textual_91port_127_scheme_base;
extern object __glo_rationalize_scheme_base;
extern object __glo_display_scheme_write;
extern object __glo_format_srfi_28;
extern object __glo_thread_91sleep_67_srfi_18;
extern object __glo__85default_91lock_91file_85_libs_common;
extern object __glo_delete_67_libs_system_91calls;
extern object __glo_touch_67_libs_system_91calls;
extern object __glo_fast_91string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo__75write_91bytevector_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_list_127_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_exact_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
extern object __glo_fixnum_127_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_void_191_191inline_191_191_scheme_base;
extern object __glo_make_91record_91marker_191_191inline_191_191_scheme_base;
extern object __glo_thread_91name_191_191inline_191_191_srfi_18;
extern object __glo_thread_91specific_191_191inline_191_191_srfi_18;
#include "cyclone/runtime.h"
defsymbol(unlock_91file_67);
defsymbol(body);
defsymbol(try_91to_91lock_91file_67);
defsymbol(begin);
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*closure _,object k_73116*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*closure _,object k_7382, object expr_7317_7328_7341_7352, object rename_7318_7329_7342_7353, object compare_7319_7330_7343_7354*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73130, object v_931_7325_7335_7345_7356*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_73131, object tmp_7332_7334_7344_7355*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73132, object r_7383*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_73133, object k_7385*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_73134, object r_7386*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*object self_73135, object k_7388*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73136, object r_7394*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*object self_73137, object r_73109*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73138, object r_7397*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_73139, object r_73105*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73140, object r_73102*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_73141, object r_73100*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73142, object r_7398*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_73143, object r_7395*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*object self_73144, object r_7393*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*closure _,object k_7379*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_7362*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73117, object lp_733_7350*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*object self_73118, object lp_733_7350*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_73119, object k_7365, object t_734_7351*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_73123, object r_7370*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73124, object r_7374*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_73125, object r_7371*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73126, object r_7372*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_73127, object r_7373*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_73120, object r_7368*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_73121, object r_7369*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_73122, object r_7367*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73128, object r_7364*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_73129, object r_7363*/

static void __lambda_31(void *data, object _, int argc, object *args) /* closure _,object k_73116 */
 {
object k_73116 = args[0];
  Cyc_st_add(data, "libs/lock.sld:lib-init:libslock");
return_direct_with_clo1(data,  k_73116, (((closure)  k_73116)->fn),  obj_int2obj(0));; 
}

static void __lambda_15(void *data, object _, int argc, object *args) /* closure _,object k_7382, object expr_7317_7328_7341_7352, object rename_7318_7329_7342_7353, object compare_7319_7330_7343_7354 */
 {
object k_7382 = args[0]; object expr_7317_7328_7341_7352 = args[1]; object rename_7318_7329_7342_7353 = args[2];
  Cyc_st_add(data, "libs/lock.sld:with-file-lock");

closureN_type c_73227;
object e_73323 [3];
c_73227.hdr.mark = gc_color_red;
 c_73227.hdr.grayed = 0;
c_73227.tag = closureN_tag;
 c_73227.fn = (function_type)__lambda_16;
c_73227.num_args = 1;
c_73227.num_elements = 3;
c_73227.elements = (object *)e_73323;
c_73227.elements[0] = expr_7317_7328_7341_7352;
c_73227.elements[1] = k_7382;
c_73227.elements[2] = rename_7318_7329_7342_7353;



return_direct_with_clo1(data,(closure)&c_73227,__lambda_16,  Cyc_cdr(data, expr_7317_7328_7341_7352));; 
}

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


closureN_type c_73299;
object e_73322 [2];
c_73299.hdr.mark = gc_color_red;
 c_73299.hdr.grayed = 0;
c_73299.tag = closureN_tag;
 c_73299.fn = (function_type)__lambda_27;
c_73299.num_args = 1;
c_73299.num_elements = 2;
c_73299.elements = (object *)e_73322;
c_73299.elements[0] = ((closureN)self_73130)->elements[0];
c_73299.elements[1] = ((closureN)self_73130)->elements[1];

return_direct_with_clo1(data,(closure)&c_73229,__lambda_17,  &c_73299);; 
}

static void __lambda_27(void *data, object self_73131, int argc, object *args) /* object self_73131, object tmp_7332_7334_7344_7355 */
 {
 object tmp_7332_7334_7344_7355 = args[0];
  
closureN_type c_73301;
object e_73315 [2];
c_73301.hdr.mark = gc_color_red;
 c_73301.hdr.grayed = 0;
c_73301.tag = closureN_tag;
 c_73301.fn = (function_type)__lambda_28;
c_73301.num_args = 0;
c_73301.num_elements = 2;
c_73301.elements = (object *)e_73315;
c_73301.elements[0] = ((closureN)self_73131)->elements[0];
c_73301.elements[1] = tmp_7332_7334_7344_7355;


closureN_type c_73316;
object e_73321 [1];
c_73316.hdr.mark = gc_color_red;
 c_73316.hdr.grayed = 0;
c_73316.tag = closureN_tag;
 c_73316.fn = (function_type)__lambda_30;
c_73316.num_args = 1;
c_73316.num_elements = 1;
c_73316.elements = (object *)e_73321;
c_73316.elements[0] = ((closureN)self_73131)->elements[1];

return_direct_with_clo1(data,(closure)&c_73301,__lambda_28,  &c_73316);; 
}

static void __lambda_30(void *data, object self_73132, int argc, object *args) /* object self_73132, object r_7383 */
 {
 object r_7383 = args[0];
  

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

static void __lambda_28(void *data, object self_73133, int argc, object *args) /* object self_73133, object k_7385 */
 {
 object k_7385 = args[0];
  if( (boolean_f != ((closureN)self_73133)->elements[1]) ){ 
  return_direct_with_clo1(data,  k_7385, (((closure)  k_7385)->fn),  ((closureN)self_73133)->elements[1]);
} else { 
  
closureN_type c_73306;
object e_73312 [1];
c_73306.hdr.mark = gc_color_red;
 c_73306.hdr.grayed = 0;
c_73306.tag = closureN_tag;
 c_73306.fn = (function_type)__lambda_29;
c_73306.num_args = 1;
c_73306.num_elements = 1;
c_73306.elements = (object *)e_73312;
c_73306.elements[0] = k_7385;


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

static void __lambda_29(void *data, object self_73134, int argc, object *args) /* object self_73134, object r_7386 */
 {
 object r_7386 = args[0];
  
pair_type local_73311; 
return_direct_with_clo1(data,  ((closureN)self_73134)->elements[0], (((closure)  ((closureN)self_73134)->elements[0])->fn),  set_pair_as_expr(&local_73311, r_7386, boolean_f));; 
}

static void __lambda_17(void *data, object self_73135, int argc, object *args) /* object self_73135, object k_7388 */
 {
 object k_7388 = args[0];
    
if( (boolean_f != Cyc_is_pair(((closureN)self_73135)->elements[1])) ){ 
    
  
if( (boolean_f != Cyc_is_null(Cyc_cdr(data, ((closureN)self_73135)->elements[1]))) ){ 
  
closureN_type c_73240;
object e_73295 [3];
c_73240.hdr.mark = gc_color_red;
 c_73240.hdr.grayed = 0;
c_73240.tag = closureN_tag;
 c_73240.fn = (function_type)__lambda_18;
c_73240.num_args = 1;
c_73240.num_elements = 3;
c_73240.elements = (object *)e_73295;
c_73240.elements[0] = k_7388;
c_73240.elements[1] = ((closureN)self_73135)->elements[0];
c_73240.elements[2] = ((closureN)self_73135)->elements[1];

return_closcall2(data,  ((closureN)self_73135)->elements[0],  &c_73240, quote_begin);
} else { 
  return_direct_with_clo1(data,  k_7388, (((closure)  k_7388)->fn),  boolean_f);}
;
} else { 
  return_direct_with_clo1(data,  k_7388, (((closure)  k_7388)->fn),  boolean_f);}
;; 
}

static void __lambda_18(void *data, object self_73136, int argc, object *args) /* object self_73136, object r_7394 */
 {
 object r_7394 = args[0];
  
closureN_type c_73243;
object e_73294 [4];
c_73243.hdr.mark = gc_color_red;
 c_73243.hdr.grayed = 0;
c_73243.tag = closureN_tag;
 c_73243.fn = (function_type)__lambda_19;
c_73243.num_args = 1;
c_73243.num_elements = 4;
c_73243.elements = (object *)e_73294;
c_73243.elements[0] = ((closureN)self_73136)->elements[0];
c_73243.elements[1] = r_7394;
c_73243.elements[2] = ((closureN)self_73136)->elements[1];
c_73243.elements[3] = ((closureN)self_73136)->elements[2];

return_closcall2(data,  ((closureN)self_73136)->elements[1],  &c_73243, quote_try_91to_91lock_91file_67);; 
}

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


make_pair(c_73293,quote_try_91to_91lock_91file_67,NULL);c_73293.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73245, r_73109, NULL, &c_73293);; 
}

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

return_closcall2(data,  ((closureN)self_73138)->elements[2],  &c_73248, quote_unlock_91file_67);; 
}

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


make_pair(c_73290,quote_unlock_91file_67,NULL);c_73290.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73250, r_73105, NULL, &c_73290);; 
}

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


make_pair(c_73288,quote_unlock_91file_67,NULL);c_73288.hdr.immutable = 1;

make_pair(c_73287,&c_73288,NULL);c_73287.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73252, r_73102, NULL, &c_73287);; 
}

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




make_pair(c_73285,quote_unlock_91file_67,NULL);c_73285.hdr.immutable = 1;

make_pair(c_73284,&c_73285,NULL);c_73284.hdr.immutable = 1;

make_pair(c_73283,quote_body,&c_73284);c_73283.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73254, Cyc_car(data, ((closureN)self_73141)->elements[3]), r_73100, &c_73283);; 
}

static void __lambda_24(void *data, object self_73142, int argc, object *args) /* object self_73142, object r_7398 */
 {
 object r_7398 = args[0];
  
closureN_type c_73256;
object e_73272 [2];
c_73256.hdr.mark = gc_color_red;
 c_73256.hdr.grayed = 0;
c_73256.tag = closureN_tag;
 c_73256.fn = (function_type)__lambda_25;
c_73256.num_args = 1;
c_73256.num_elements = 2;
c_73256.elements = (object *)e_73272;
c_73256.elements[0] = ((closureN)self_73142)->elements[0];
c_73256.elements[1] = ((closureN)self_73142)->elements[1];


make_pair(c_73275,quote_try_91to_91lock_91file_67,NULL);c_73275.hdr.immutable = 1;

make_pair(c_73278,quote_unlock_91file_67,NULL);c_73278.hdr.immutable = 1;

make_pair(c_73277,&c_73278,NULL);c_73277.hdr.immutable = 1;

make_pair(c_73276,quote_body,&c_73277);c_73276.hdr.immutable = 1;

make_pair(c_73274,&c_73275,&c_73276);c_73274.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73256, ((closureN)self_73142)->elements[2], r_7398, &c_73274);; 
}

static void __lambda_25(void *data, object self_73143, int argc, object *args) /* object self_73143, object r_7395 */
 {
 object r_7395 = args[0];
  
closureN_type c_73258;
object e_73264 [1];
c_73258.hdr.mark = gc_color_red;
 c_73258.hdr.grayed = 0;
c_73258.tag = closureN_tag;
 c_73258.fn = (function_type)__lambda_26;
c_73258.num_args = 1;
c_73258.num_elements = 1;
c_73258.elements = (object *)e_73264;
c_73258.elements[0] = ((closureN)self_73143)->elements[0];


make_pair(c_73268,quote_try_91to_91lock_91file_67,NULL);c_73268.hdr.immutable = 1;

make_pair(c_73271,quote_unlock_91file_67,NULL);c_73271.hdr.immutable = 1;

make_pair(c_73270,&c_73271,NULL);c_73270.hdr.immutable = 1;

make_pair(c_73269,quote_body,&c_73270);c_73269.hdr.immutable = 1;

make_pair(c_73267,&c_73268,&c_73269);c_73267.hdr.immutable = 1;

make_pair(c_73266,quote_begin,&c_73267);c_73266.hdr.immutable = 1;
return_direct_with_clo4(data,  __glo_cons_91source_scheme_base, (((closure)  __glo_cons_91source_scheme_base)->fn),  &c_73258, ((closureN)self_73143)->elements[1], r_7395, &c_73266);; 
}

static void __lambda_26(void *data, object self_73144, int argc, object *args) /* object self_73144, object r_7393 */
 {
 object r_7393 = args[0];
  
pair_type local_73263; 
return_direct_with_clo1(data,  ((closureN)self_73144)->elements[0], (((closure)  ((closureN)self_73144)->elements[0])->fn),  set_pair_as_expr(&local_73263, r_7393, boolean_f));; 
}

static void __lambda_14(void *data, object _, int argc, object *args) /* closure _,object k_7379 */
 {
object k_7379 = args[0];
  Cyc_st_add(data, "libs/lock.sld:unlock-file!");
return_direct_with_clo2(data,  __glo_delete_67_libs_system_91calls, (((closure)  __glo_delete_67_libs_system_91calls)->fn),  k_7379, __glo__85default_91lock_91file_85_libs_common);; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_7362 */
 {
object k_7362 = args[0];
  Cyc_st_add(data, "libs/lock.sld:try-to-lock-file!");

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

return_direct_with_clo1(data,(closure)&c_73147,__lambda_2,  boolean_f);; 
}

static void __lambda_2(void *data, object self_73117, int argc, object *args) /* object self_73117, object lp_733_7350 */
 {
 object lp_733_7350 = args[0];
  
closureN_type c_73149;
object e_73218 [1];
c_73149.hdr.mark = gc_color_red;
 c_73149.hdr.grayed = 0;
c_73149.tag = closureN_tag;
 c_73149.fn = (function_type)__lambda_32;
c_73149.num_args = 1;
c_73149.num_elements = 1;
c_73149.elements = (object *)e_73218;
c_73149.elements[0] = ((closureN)self_73117)->elements[0];


pair_type local_73221; 
return_direct_with_clo1(data,(closure)&c_73149,__lambda_32,  set_cell_as_expr(&local_73221, lp_733_7350));; 
}

static void __lambda_32(void *data, object self_73118, int argc, object *args) /* object self_73118, object lp_733_7350 */
 {
 object lp_733_7350 = args[0];
  
closureN_type c_73151;
object e_73163 [2];
c_73151.hdr.mark = gc_color_red;
 c_73151.hdr.grayed = 0;
c_73151.tag = closureN_tag;
 c_73151.fn = (function_type)__lambda_3;
c_73151.num_args = 1;
c_73151.num_elements = 2;
c_73151.elements = (object *)e_73163;
c_73151.elements[0] = ((closureN)self_73118)->elements[0];
c_73151.elements[1] = lp_733_7350;


closureN_type c_73164;
object e_73217 [1];
c_73164.hdr.mark = gc_color_red;
 c_73164.hdr.grayed = 0;
c_73164.tag = closureN_tag;
 c_73164.fn = (function_type)__lambda_5;
c_73164.num_args = 1;
c_73164.num_elements = 1;
c_73164.elements = (object *)e_73217;
c_73164.elements[0] = lp_733_7350;

return_direct_with_clo1(data,(closure)&c_73151,__lambda_3,  &c_73164);; 
}

static void __lambda_5(void *data, object self_73119, int argc, object *args) /* object self_73119, object k_7365, object t_734_7351 */
 {
 object k_7365 = args[0]; object t_734_7351 = args[1];
  object r_7366;
    
if( (boolean_f != Cyc_num_fast_gt_op(data, t_734_7351, obj_int2obj(10))) ){ 
  
  r_7366 = Cyc_io_file_exists(data, __glo__85default_91lock_91file_85_libs_common);
} else { 
  r_7366 = boolean_f;}
;if( (boolean_f != r_7366) ){ 
  
closureN_type c_73173;
object e_73185 [1];
c_73173.hdr.mark = gc_color_red;
 c_73173.hdr.grayed = 0;
c_73173.tag = closureN_tag;
 c_73173.fn = (function_type)__lambda_6;
c_73173.num_args = 1;
c_73173.num_elements = 1;
c_73173.elements = (object *)e_73185;
c_73173.elements[0] = k_7365;


make_utf8_string_with_len(c_73186, "Unable to acquire lock ~a~%Is another instance of Winds still running\?~%", 72, 72);
return_direct_with_clo3(data,  __glo_format_srfi_28, (((closure)  __glo_format_srfi_28)->fn),  &c_73173, &c_73186, __glo__85default_91lock_91file_85_libs_common);
} else { 
  
closureN_type c_73188;
object e_73214 [3];
c_73188.hdr.mark = gc_color_red;
 c_73188.hdr.grayed = 0;
c_73188.tag = closureN_tag;
 c_73188.fn = (function_type)__lambda_9;
c_73188.num_args = 1;
c_73188.num_elements = 3;
c_73188.elements = (object *)e_73214;
c_73188.elements[0] = k_7365;
c_73188.elements[1] = ((closureN)self_73119)->elements[0];
c_73188.elements[2] = t_734_7351;



return_direct_with_clo1(data,(closure)&c_73188,__lambda_9,  Cyc_io_file_exists(data, __glo__85default_91lock_91file_85_libs_common));}
;; 
}

static void __lambda_9(void *data, object self_73123, int argc, object *args) /* object self_73123, object r_7370 */
 {
 object r_7370 = args[0];
  if( (boolean_f != r_7370) ){ 
  
closureN_type c_73190;
object e_73209 [3];
c_73190.hdr.mark = gc_color_red;
 c_73190.hdr.grayed = 0;
c_73190.tag = closureN_tag;
 c_73190.fn = (function_type)__lambda_10;
c_73190.num_args = 1;
c_73190.num_elements = 3;
c_73190.elements = (object *)e_73209;
c_73190.elements[0] = ((closureN)self_73123)->elements[0];
c_73190.elements[1] = ((closureN)self_73123)->elements[1];
c_73190.elements[2] = ((closureN)self_73123)->elements[2];


make_utf8_string_with_len(c_73210, "Is another instance of Winds running\? Retrying...(~a)~%", 55, 55);
return_direct_with_clo3(data,  __glo_format_srfi_28, (((closure)  __glo_format_srfi_28)->fn),  &c_73190, &c_73210, ((closureN)self_73123)->elements[2]);
} else { 
  return_direct_with_clo2(data,  __glo_touch_67_libs_system_91calls, (((closure)  __glo_touch_67_libs_system_91calls)->fn),  ((closureN)self_73123)->elements[0], __glo__85default_91lock_91file_85_libs_common);}
;; 
}

static void __lambda_10(void *data, object self_73124, int argc, object *args) /* object self_73124, object r_7374 */
 {
 object r_7374 = args[0];
  
closureN_type c_73192;
object e_73208 [3];
c_73192.hdr.mark = gc_color_red;
 c_73192.hdr.grayed = 0;
c_73192.tag = closureN_tag;
 c_73192.fn = (function_type)__lambda_11;
c_73192.num_args = 1;
c_73192.num_elements = 3;
c_73192.elements = (object *)e_73208;
c_73192.elements[0] = ((closureN)self_73124)->elements[0];
c_73192.elements[1] = ((closureN)self_73124)->elements[1];
c_73192.elements[2] = ((closureN)self_73124)->elements[2];

return_direct_with_clo2(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  &c_73192, r_7374);; 
}

static void __lambda_11(void *data, object self_73125, int argc, object *args) /* object self_73125, object r_7371 */
 {

  
closureN_type c_73194;
object e_73207 [3];
c_73194.hdr.mark = gc_color_red;
 c_73194.hdr.grayed = 0;
c_73194.tag = closureN_tag;
 c_73194.fn = (function_type)__lambda_12;
c_73194.num_args = 1;
c_73194.num_elements = 3;
c_73194.elements = (object *)e_73207;
c_73194.elements[0] = ((closureN)self_73125)->elements[0];
c_73194.elements[1] = ((closureN)self_73125)->elements[1];
c_73194.elements[2] = ((closureN)self_73125)->elements[2];

return_direct_with_clo2(data,  __glo_thread_91sleep_67_srfi_18, (((closure)  __glo_thread_91sleep_67_srfi_18)->fn),  &c_73194, obj_int2obj(1));; 
}

static void __lambda_12(void *data, object self_73126, int argc, object *args) /* object self_73126, object r_7372 */
 {

  
closureN_type c_73196;
object e_73202 [2];
c_73196.hdr.mark = gc_color_red;
 c_73196.hdr.grayed = 0;
c_73196.tag = closureN_tag;
 c_73196.fn = (function_type)__lambda_13;
c_73196.num_args = 1;
c_73196.num_elements = 2;
c_73196.elements = (object *)e_73202;
c_73196.elements[0] = ((closureN)self_73126)->elements[0];
c_73196.elements[1] = ((closureN)self_73126)->elements[1];


complex_num_type local_73205; 
return_direct_with_clo1(data,(closure)&c_73196,__lambda_13,  Cyc_fast_sum(data,&local_73205, ((closureN)self_73126)->elements[2], obj_int2obj(1)));; 
}

static void __lambda_13(void *data, object self_73127, int argc, object *args) /* object self_73127, object r_7373 */
 {
 object r_7373 = args[0];
  

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

static void __lambda_6(void *data, object self_73120, int argc, object *args) /* object self_73120, object r_7368 */
 {
 object r_7368 = args[0];
  
closureN_type c_73175;
object e_73184 [2];
c_73175.hdr.mark = gc_color_red;
 c_73175.hdr.grayed = 0;
c_73175.tag = closureN_tag;
 c_73175.fn = (function_type)__lambda_7;
c_73175.num_args = 1;
c_73175.num_elements = 2;
c_73175.elements = (object *)e_73184;
c_73175.elements[0] = ((closureN)self_73120)->elements[0];
c_73175.elements[1] = r_7368;

return_direct_with_clo1(data,  __glo_current_91error_91port_scheme_base, (((closure)  __glo_current_91error_91port_scheme_base)->fn),  &c_73175);; 
}

static void __lambda_7(void *data, object self_73121, int argc, object *args) /* object self_73121, object r_7369 */
 {
 object r_7369 = args[0];
  
closureN_type c_73177;
object e_73182 [1];
c_73177.hdr.mark = gc_color_red;
 c_73177.hdr.grayed = 0;
c_73177.tag = closureN_tag;
 c_73177.fn = (function_type)__lambda_8;
c_73177.num_args = 1;
c_73177.num_elements = 1;
c_73177.elements = (object *)e_73182;
c_73177.elements[0] = ((closureN)self_73121)->elements[0];

return_direct_with_clo3(data,  __glo_display_scheme_write, (((closure)  __glo_display_scheme_write)->fn),  &c_73177, ((closureN)self_73121)->elements[1], r_7369);; 
}

static void __lambda_8(void *data, object self_73122, int argc, object *args) /* object self_73122, object r_7367 */
 {

  

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

static void __lambda_3(void *data, object self_73128, int argc, object *args) /* object self_73128, object r_7364 */
 {
 object r_7364 = args[0];
  
closureN_type c_73153;
object e_73159 [2];
c_73153.hdr.mark = gc_color_red;
 c_73153.hdr.grayed = 0;
c_73153.tag = closureN_tag;
 c_73153.fn = (function_type)__lambda_4;
c_73153.num_args = 1;
c_73153.num_elements = 2;
c_73153.elements = (object *)e_73159;
c_73153.elements[0] = ((closureN)self_73128)->elements[0];
c_73153.elements[1] = ((closureN)self_73128)->elements[1];



return_direct_with_clo1(data,(closure)&c_73153,__lambda_4,  Cyc_set_cell(data, ((closureN)self_73128)->elements[1], r_7364));; 
}

static void __lambda_4(void *data, object self_73129, int argc, object *args) /* object self_73129, object r_7363 */
 {

  

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

void c_libslock_inlinable_lambdas(void *data, object clo, int argc, object *args){ 
object buf[1]; object cont = args[0];
buf[0] = NULL; (((closure)cont)->fn)(data, cont, 1, buf);
 } 
void c_libslock_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_unlock_91file_67 = find_or_add_symbol("unlock-file!");
  quote_body = find_or_add_symbol("body");
  quote_try_91to_91lock_91file_67 = find_or_add_symbol("try-to-lock-file!");
  quote_begin = find_or_add_symbol("begin");

  add_global("__glo_lib_91init_117libslock_libs_lock", (object *) &__glo_lib_91init_117libslock_libs_lock);
  add_global("__glo_with_91file_91lock_libs_lock", (object *) &__glo_with_91file_91lock_libs_lock);
  add_global("__glo_unlock_91file_67_libs_lock", (object *) &__glo_unlock_91file_67_libs_lock);
  add_global("__glo_try_91to_91lock_91file_67_libs_lock", (object *) &__glo_try_91to_91lock_91file_67_libs_lock);
  mclosure0(c_73326, (function_type)__lambda_31);c_73326.num_args = 0; 
  __glo_lib_91init_117libslock_libs_lock = &c_73326; 
  mmacro(c_73225, (function_type)__lambda_15);c_73225.num_args = 3; 
  __glo_with_91file_91lock_libs_lock = &c_73225; 
  mclosure0(c_73223, (function_type)__lambda_14);c_73223.num_args = 0; 
  __glo_unlock_91file_67_libs_lock = &c_73223; 
  mclosure0(c_73145, (function_type)__lambda_1);c_73145.num_args = 0; 
  __glo_try_91to_91lock_91file_67_libs_lock = &c_73145; 

  mclosure0(clo_73329, c_libslock_inlinable_lambdas); make_pair(pair_73328, find_or_add_symbol("c_libslock_inlinable_lambdas"), &clo_73329);
  make_cvar(cvar_73330, (object *)&__glo_lib_91init_117libslock_libs_lock);make_pair(pair_73331, find_or_add_symbol("lib-init:libslock"), &cvar_73330);
  make_cvar(cvar_73332, (object *)&__glo_with_91file_91lock_libs_lock);make_pair(pair_73333, find_or_add_symbol("with-file-lock"), &cvar_73332);
  make_cvar(cvar_73334, (object *)&__glo_unlock_91file_67_libs_lock);make_pair(pair_73335, find_or_add_symbol("unlock-file!"), &cvar_73334);
  make_cvar(cvar_73336, (object *)&__glo_try_91to_91lock_91file_67_libs_lock);make_pair(pair_73337, find_or_add_symbol("try-to-lock-file!"), &cvar_73336);
make_pair(c_73342, &pair_73328,Cyc_global_variables);
make_pair(c_73341, &pair_73331, &c_73342);
make_pair(c_73340, &pair_73333, &c_73341);
make_pair(c_73339, &pair_73335, &c_73340);
make_pair(c_73338, &pair_73337, &c_73339);
Cyc_global_variables = &c_73338;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117libslock_libs_lock)->fn)(data, buf[0], 1, buf);
}
void c_libslock_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("libs_lock");
  c_libslock_entry_pt_first_lambda(data, cont, argc, value);
}
