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

#include <dirent.h>
#include "cyclone/types.h"
object __glo_lib_91init_117libsfile_libs_file = NULL;
object __glo_doc_91file_127_libs_file = NULL;
object __glo_scm_91files_libs_file = NULL;
object __glo_sld_91files_libs_file = NULL;
object __glo_code_91files_libs_file = NULL;
object __glo_test_91file_127_libs_file = NULL;
object __glo_random_91temp_91dir_libs_file = NULL;
object __glo__91_125path_libs_file = NULL;
object __glo_path_91extension_libs_file = NULL;
object __glo_path_91strip_91extension_libs_file = NULL;
object __glo_path_91extension_91pos_libs_file = NULL;
object __glo_path_91strip_91directory_libs_file = NULL;
object __glo_path_91dir_libs_file = NULL;
object __glo_directory_91content_libs_file = 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_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_filter_scheme_cyclone_util;
extern object __glo_random_91integer_srfi_27;
extern object __glo_random_91real_srfi_27;
extern object __glo_default_91random_91source_srfi_27;
extern object __glo_next_91mrg32k3a_srfi_27;
extern object __glo_make_91random_91source_srfi_27;
extern object __glo_random_91source_91state_91ref_srfi_27;
extern object __glo_random_91source_91state_91set_67_srfi_27;
extern object __glo_random_91source_91randomize_67_srfi_27;
extern object __glo_random_91source_91pseudo_91randomize_67_srfi_27;
extern object __glo_random_91source_91make_91integers_srfi_27;
extern object __glo_random_91source_91make_91reals_srfi_27;
extern object __glo_chain_libs_util;
extern object __glo_get_91parameter_91value_libs_util;
extern object __glo_get_91parameter_91all_91occurrences_libs_util;
extern object __glo_levenshtein_libs_util;
extern object __glo_remove_libs_util;
extern object __glo__91_125string_libs_util;
extern object __glo_string_91contains_libs_util;
extern object __glo_string_91find_91right_libs_util;
extern object __glo_string_91join_libs_util;
extern object __glo_string_91split_libs_util;
extern object __glo_string_91_125proper_91symbol_libs_util;
extern object __glo_trim_91trailing_91slash_libs_util;
extern object __glo__85default_91metadata_91file_85_libs_metadata;
extern object __glo_get_91test_libs_metadata;
extern object __glo__85doc_91candidates_85_libs_common;
extern object __glo_fast_91string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_fast_91string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo__75write_91bytevector_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_list_127_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_exact_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_complex_127_191_191inline_191_191_scheme_base;
extern object __glo_fixnum_127_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_void_191_191inline_191_191_scheme_base;
extern object __glo_make_91record_91marker_191_191inline_191_191_scheme_base;
extern object __glo_tagged_91list_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125condition_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125then_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_if_91_125else_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_app_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_ref_127_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_set_67_91_125var_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_set_67_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_define_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_lambda_91_125formals_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_lambda_91_125exp_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117enclosing_91environment_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117first_91frame_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117frame_91variables_191_191inline_191_191_scheme_cyclone_util;
extern object __glo_env_117frame_91values_191_191inline_191_191_scheme_cyclone_util;
#include "cyclone/runtime.h"
static void __lambda_70(void *data, object clo, int argc, object *args) ;/*closure _,object k_73327*/
static void __lambda_64(void *data, object clo, int argc, object *args) ;/*closure _,object k_73318, object file_73124_73180*/
static void __lambda_69(void *data, object clo, int argc, object *args) ;/*object self_73382, object k_73323, object e_73125_73181*/
static void __lambda_65(void *data, object clo, int argc, object *args) ;/*object self_73383, object r_73319*/
static void __lambda_68(void *data, object clo, int argc, object *args) ;/*object self_73384, object k_73322, object c_73126_73182*/
static void __lambda_66(void *data, object clo, int argc, object *args) ;/*object self_73385, object r_73321*/
static void __lambda_67(void *data, object clo, int argc, object *args) ;/*object self_73386, object r_73320*/
static void __lambda_60(void *data, object clo, int argc, object *args) ;/*closure _,object k_73312, object files_73122_73178*/
static void __lambda_62(void *data, object clo, int argc, object *args) ;/*object self_73379, object k_73314, object f_73123_73179*/
static void __lambda_63(void *data, object clo, int argc, object *args) ;/*object self_73380, object r_73315*/
static void __lambda_61(void *data, object clo, int argc, object *args) ;/*object self_73381, object r_73313*/
static void __lambda_56(void *data, object clo, int argc, object *args) ;/*closure _,object k_73306, object files_73120_73176*/
static void __lambda_58(void *data, object clo, int argc, object *args) ;/*object self_73376, object k_73308, object f_73121_73177*/
static void __lambda_59(void *data, object clo, int argc, object *args) ;/*object self_73377, object r_73309*/
static void __lambda_57(void *data, object clo, int argc, object *args) ;/*object self_73378, object r_73307*/
static void __lambda_50(void *data, object clo, int argc, object *args) ;/*closure _,object k_73292, object files_73110_73171, object pkg_73111_73172_raw, ...*/
static void __lambda_52(void *data, object clo, int argc, object *args) ;/*object self_73371, object k_73295, object f_73113_73174*/
static void __lambda_53(void *data, object clo, int argc, object *args) ;/*object self_73372, object r_73301*/
static void __lambda_54(void *data, object clo, int argc, object *args) ;/*object self_73373, object r_73300*/
static void __lambda_55(void *data, object clo, int argc, object *args) ;/*object self_73374, object r_73298*/
static void __lambda_51(void *data, object clo, int argc, object *args) ;/*object self_73375, object r_73294*/
static void __lambda_47(void *data, object clo, int argc, object *args) ;/*closure _,object k_73284, object file_73100_73167, object pkg_73101_73168*/
static void __lambda_48(void *data, object clo, int argc, object *args) ;/*object self_73369, object tmp_73103_73105_73169*/
static void __lambda_49(void *data, object clo, int argc, object *args) ;/*object self_73370, object tmp_73107_73109_73170*/
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*closure _,object k_73270, object prefix_7386_73162_raw, ...*/
static void __lambda_39(void *data, object clo, int argc, object *args) ;/*object self_73361, object tmp_7389_7391_73164*/
static void __lambda_43(void *data, object clo, int argc, object *args) ;/*object self_73362, object temp_91dir_7387_73163*/
static void __lambda_44(void *data, object clo, int argc, object *args) ;/*object self_73363, object r_73275*/
static void __lambda_45(void *data, object clo, int argc, object *args) ;/*object self_73364, object r_73274*/
static void __lambda_46(void *data, object clo, int argc, object *args) ;/*object self_73365, object r_73272*/
static void __lambda_40(void *data, object clo, int argc, object *args) ;/*object self_73366, object k_73279*/
static void __lambda_41(void *data, object clo, int argc, object *args) ;/*object self_73367, object tmp_7393_7395_73165*/
static void __lambda_42(void *data, object clo, int argc, object *args) ;/*object self_73368, object tmp_7397_7399_73166*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*closure _,object k_73230, object args_7353_73152_raw, ...*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*object self_73345, object args0_7359_73154*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*object self_73346, object start_7362_73155*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*object self_73347, object ls_7365_73156, object res_7366_73157*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*object self_73348, object lp_7367_73158*/
static void __lambda_72(void *data, object clo, int argc, object *args) ;/*object self_73349, object lp_7367_73158*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*object self_73350, object k_73239, object ls_7368_73159, object res_7369_73160*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*object self_73355, object r_73260*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*object self_73356, object x_7378_73161*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*object self_73354, object r_73247*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*object self_73351, object r_73241*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_73352, object r_73242*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*object self_73353, object k_73243*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*object self_73357, object r_73238*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73358, object r_73237*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*object self_73359, object k_73265*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73360, object r_73267*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*closure _,object k_73225, object path_7350_73149*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73343, object r_73226*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*object self_73344, object i_7351_73150, object len_7352_73151*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*closure _,object k_73220, object path_7348_73147*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73342, object i_7349_73148*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*closure _,object k_73205, object path_7316_73135*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*object self_73333, object end_7318_73137*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73334, object i_7320_73138*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*object self_73335, object lp_7322_73140*/
static void __lambda_71(void *data, object clo, int argc, object *args) ;/*object self_73336, object lp_7322_73140*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_73337, object k_73209, object i_7323_73141, object dot_7324_73142*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73339, object tmp_7344_7346_73146*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*object self_73338, object tmp_7337_7339_73145*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73340, object r_73208*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*object self_73341, object r_73207*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*closure _,object k_73198, object path_7314_73133*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*object self_73332, object i_7315_73134*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_73185, object path_731_73127*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73328, object r_73186*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*object self_73329, object trimmed_91string_737_73129*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_73330, object slash_7312_73131*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*object self_73331, object r_73194*/
static void __lambda_73(void *data, object clo, int argc, object *args) ;/*(void *data, int argc, closure _, object k, object directory)*/

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

static void __lambda_64(void *data, object _, int argc, object *args) /* closure _,object k_73318, object file_73124_73180 */
 {
object k_73318 = args[0]; object file_73124_73180 = args[1];
  Cyc_st_add(data, "libs/file.sld:doc-file?");

closureN_type c_73940;
object e_73954 [2];
c_73940.hdr.mark = gc_color_red;
 c_73940.hdr.grayed = 0;
c_73940.tag = closureN_tag;
 c_73940.fn = (function_type)__lambda_65;
c_73940.num_args = 1;
c_73940.num_elements = 2;
c_73940.elements = (object *)e_73954;
c_73940.elements[0] = file_73124_73180;
c_73940.elements[1] = k_73318;


mclosure0(c_73955, (function_type)__lambda_69);c_73955.num_args = 1;
return_direct_with_clo1(data,(closure)&c_73940,__lambda_65,  &c_73955);; 
}

static void __lambda_69(void *data, object self_73382, int argc, object *args) /* object self_73382, object k_73323, object e_73125_73181 */
 {
 object k_73323 = args[0]; object e_73125_73181 = args[1];
  
complex_num_type local_73959; 


return_direct_with_clo1(data,  k_73323, (((closure)  k_73323)->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_73959, Cyc_eq(e_73125_73181, boolean_f)));; 
}

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


closureN_type c_73950;
object e_73953 [1];
c_73950.hdr.mark = gc_color_red;
 c_73950.hdr.grayed = 0;
c_73950.tag = closureN_tag;
 c_73950.fn = (function_type)__lambda_68;
c_73950.num_args = 1;
c_73950.num_elements = 1;
c_73950.elements = (object *)e_73953;
c_73950.elements[0] = ((closureN)self_73383)->elements[0];

return_direct_with_clo1(data,(closure)&c_73942,__lambda_66,  &c_73950);; 
}

static void __lambda_68(void *data, object self_73384, int argc, object *args) /* object self_73384, object k_73322, object c_73126_73182 */
 {
 object k_73322 = args[0]; object c_73126_73182 = args[1];
  return_direct_with_clo3(data,  __glo_string_91contains_libs_util, (((closure)  __glo_string_91contains_libs_util)->fn),  k_73322, ((closureN)self_73384)->elements[0], c_73126_73182);; 
}

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

return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73944, r_73321, __glo__85doc_91candidates_85_libs_common);; 
}

static void __lambda_67(void *data, object self_73386, int argc, object *args) /* object self_73386, object r_73320 */
 {
 object r_73320 = args[0];
  return_direct_with_clo3(data,  __glo_any_scheme_base, (((closure)  __glo_any_scheme_base)->fn),  ((closureN)self_73386)->elements[0], ((closureN)self_73386)->elements[1], r_73320);; 
}

static void __lambda_60(void *data, object _, int argc, object *args) /* closure _,object k_73312, object files_73122_73178 */
 {
object k_73312 = args[0]; object files_73122_73178 = args[1];
  Cyc_st_add(data, "libs/file.sld:scm-files");

closureN_type c_73923;
object e_73927 [2];
c_73923.hdr.mark = gc_color_red;
 c_73923.hdr.grayed = 0;
c_73923.tag = closureN_tag;
 c_73923.fn = (function_type)__lambda_61;
c_73923.num_args = 1;
c_73923.num_elements = 2;
c_73923.elements = (object *)e_73927;
c_73923.elements[0] = files_73122_73178;
c_73923.elements[1] = k_73312;


mclosure0(c_73928, (function_type)__lambda_62);c_73928.num_args = 1;
return_direct_with_clo1(data,(closure)&c_73923,__lambda_61,  &c_73928);; 
}

static void __lambda_62(void *data, object self_73379, int argc, object *args) /* object self_73379, object k_73314, object f_73123_73179 */
 {
 object k_73314 = args[0]; object f_73123_73179 = args[1];
  
closureN_type c_73930;
object e_73937 [1];
c_73930.hdr.mark = gc_color_red;
 c_73930.hdr.grayed = 0;
c_73930.tag = closureN_tag;
 c_73930.fn = (function_type)__lambda_63;
c_73930.num_args = 1;
c_73930.num_elements = 1;
c_73930.elements = (object *)e_73937;
c_73930.elements[0] = k_73314;

return_direct_with_clo2(data,  __glo_path_91extension_libs_file, (((closure)  __glo_path_91extension_libs_file)->fn),  &c_73930, f_73123_73179);; 
}

static void __lambda_63(void *data, object self_73380, int argc, object *args) /* object self_73380, object r_73315 */
 {
 object r_73315 = args[0];
  
complex_num_type local_73935; 

make_utf8_string_with_len(c_73936, "scm", 3, 3);
return_direct_with_clo1(data,  ((closureN)self_73380)->elements[0], (((closure)  ((closureN)self_73380)->elements[0])->fn),  ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73935, r_73315, &c_73936));; 
}

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

static void __lambda_56(void *data, object _, int argc, object *args) /* closure _,object k_73306, object files_73120_73176 */
 {
object k_73306 = args[0]; object files_73120_73176 = args[1];
  Cyc_st_add(data, "libs/file.sld:sld-files");

closureN_type c_73906;
object e_73910 [2];
c_73906.hdr.mark = gc_color_red;
 c_73906.hdr.grayed = 0;
c_73906.tag = closureN_tag;
 c_73906.fn = (function_type)__lambda_57;
c_73906.num_args = 1;
c_73906.num_elements = 2;
c_73906.elements = (object *)e_73910;
c_73906.elements[0] = files_73120_73176;
c_73906.elements[1] = k_73306;


mclosure0(c_73911, (function_type)__lambda_58);c_73911.num_args = 1;
return_direct_with_clo1(data,(closure)&c_73906,__lambda_57,  &c_73911);; 
}

static void __lambda_58(void *data, object self_73376, int argc, object *args) /* object self_73376, object k_73308, object f_73121_73177 */
 {
 object k_73308 = args[0]; object f_73121_73177 = args[1];
  
closureN_type c_73913;
object e_73920 [1];
c_73913.hdr.mark = gc_color_red;
 c_73913.hdr.grayed = 0;
c_73913.tag = closureN_tag;
 c_73913.fn = (function_type)__lambda_59;
c_73913.num_args = 1;
c_73913.num_elements = 1;
c_73913.elements = (object *)e_73920;
c_73913.elements[0] = k_73308;

return_direct_with_clo2(data,  __glo_path_91extension_libs_file, (((closure)  __glo_path_91extension_libs_file)->fn),  &c_73913, f_73121_73177);; 
}

static void __lambda_59(void *data, object self_73377, int argc, object *args) /* object self_73377, object r_73309 */
 {
 object r_73309 = args[0];
  
complex_num_type local_73918; 

make_utf8_string_with_len(c_73919, "sld", 3, 3);
return_direct_with_clo1(data,  ((closureN)self_73377)->elements[0], (((closure)  ((closureN)self_73377)->elements[0])->fn),  ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73918, r_73309, &c_73919));; 
}

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

static void __lambda_50(void *data, object _, int argc, object *args) /* closure _,object k_73292, object files_73110_73171, object pkg_73111_73172_raw, ... */
 {
object k_73292 = args[0]; object files_73110_73171 = args[1];
load_varargs(pkg_73111_73172, args, 2, argc - 2);
  object pkg_73112_73173;
  Cyc_st_add(data, "libs/file.sld:code-files");
  
if( (boolean_f != Cyc_is_null(pkg_73111_73172)) ){ 
  pkg_73112_73173 = NULL;
} else { 
  
  pkg_73112_73173 = Cyc_car(data, pkg_73111_73172);}
;
closureN_type c_73858;
object e_73862 [2];
c_73858.hdr.mark = gc_color_red;
 c_73858.hdr.grayed = 0;
c_73858.tag = closureN_tag;
 c_73858.fn = (function_type)__lambda_51;
c_73858.num_args = 1;
c_73858.num_elements = 2;
c_73858.elements = (object *)e_73862;
c_73858.elements[0] = files_73110_73171;
c_73858.elements[1] = k_73292;


closureN_type c_73863;
object e_73903 [1];
c_73863.hdr.mark = gc_color_red;
 c_73863.hdr.grayed = 0;
c_73863.tag = closureN_tag;
 c_73863.fn = (function_type)__lambda_52;
c_73863.num_args = 1;
c_73863.num_elements = 1;
c_73863.elements = (object *)e_73903;
c_73863.elements[0] = pkg_73112_73173;

return_direct_with_clo1(data,(closure)&c_73858,__lambda_51,  &c_73863);; 
}

static void __lambda_52(void *data, object self_73371, int argc, object *args) /* object self_73371, object k_73295, object f_73113_73174 */
 {
 object k_73295 = args[0]; object f_73113_73174 = args[1];
  
closureN_type c_73865;
object e_73902 [3];
c_73865.hdr.mark = gc_color_red;
 c_73865.hdr.grayed = 0;
c_73865.tag = closureN_tag;
 c_73865.fn = (function_type)__lambda_53;
c_73865.num_args = 1;
c_73865.num_elements = 3;
c_73865.elements = (object *)e_73902;
c_73865.elements[0] = f_73113_73174;
c_73865.elements[1] = k_73295;
c_73865.elements[2] = ((closureN)self_73371)->elements[0];

return_direct_with_clo2(data,  __glo_path_91extension_libs_file, (((closure)  __glo_path_91extension_libs_file)->fn),  &c_73865, f_73113_73174);; 
}

static void __lambda_53(void *data, object self_73372, int argc, object *args) /* object self_73372, object r_73301 */
 {
 object r_73301 = args[0];
    complex_num_type local_73868; 
  make_utf8_string_with_len(c_73869, "sld", 3, 3);
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73868, r_73301, &c_73869)) ){ 
  
complex_num_type local_73874; 

make_utf8_string_with_len(c_73875, "sld", 3, 3);
return_direct_with_clo1(data,  ((closureN)self_73372)->elements[1], (((closure)  ((closureN)self_73372)->elements[1])->fn),  ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73874, r_73301, &c_73875));
} else { 
  
closureN_type c_73877;
object e_73900 [3];
c_73877.hdr.mark = gc_color_red;
 c_73877.hdr.grayed = 0;
c_73877.tag = closureN_tag;
 c_73877.fn = (function_type)__lambda_54;
c_73877.num_args = 1;
c_73877.num_elements = 3;
c_73877.elements = (object *)e_73900;
c_73877.elements[0] = ((closureN)self_73372)->elements[0];
c_73877.elements[1] = ((closureN)self_73372)->elements[1];
c_73877.elements[2] = ((closureN)self_73372)->elements[2];

return_direct_with_clo2(data,  __glo_path_91extension_libs_file, (((closure)  __glo_path_91extension_libs_file)->fn),  &c_73877, ((closureN)self_73372)->elements[0]);}
;; 
}

static void __lambda_54(void *data, object self_73373, int argc, object *args) /* object self_73373, object r_73300 */
 {
 object r_73300 = args[0];
    complex_num_type local_73880; 
  make_utf8_string_with_len(c_73881, "scm", 3, 3);
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73880, r_73300, &c_73881)) ){ 
  
closureN_type c_73883;
object e_73895 [2];
c_73883.hdr.mark = gc_color_red;
 c_73883.hdr.grayed = 0;
c_73883.tag = closureN_tag;
 c_73883.fn = (function_type)__lambda_55;
c_73883.num_args = 1;
c_73883.num_elements = 2;
c_73883.elements = (object *)e_73895;
c_73883.elements[0] = ((closureN)self_73373)->elements[0];
c_73883.elements[1] = ((closureN)self_73373)->elements[1];

return_direct_with_clo3(data,  __glo_test_91file_127_libs_file, (((closure)  __glo_test_91file_127_libs_file)->fn),  &c_73883, ((closureN)self_73373)->elements[0], ((closureN)self_73373)->elements[2]);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73373)->elements[1], (((closure)  ((closureN)self_73373)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_55(void *data, object self_73374, int argc, object *args) /* object self_73374, object r_73298 */
 {
 object r_73298 = args[0];
  if( (boolean_f != r_73298) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73374)->elements[1], (((closure)  ((closureN)self_73374)->elements[1])->fn),  boolean_f);
} else { 
  
complex_num_type local_73890; 

complex_num_type local_73893; 
return_direct_with_clo1(data,  ((closureN)self_73374)->elements[1], (((closure)  ((closureN)self_73374)->elements[1])->fn),  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_73890, ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73893, ((closureN)self_73374)->elements[0], __glo__85default_91metadata_91file_85_libs_metadata)));}
;; 
}

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

static void __lambda_47(void *data, object _, int argc, object *args) /* closure _,object k_73284, object file_73100_73167, object pkg_73101_73168 */
 {
object k_73284 = args[0]; object file_73100_73167 = args[1]; object pkg_73101_73168 = args[2];
  Cyc_st_add(data, "libs/file.sld:test-file?");

closureN_type c_73824;
object e_73847 [3];
c_73824.hdr.mark = gc_color_red;
 c_73824.hdr.grayed = 0;
c_73824.tag = closureN_tag;
 c_73824.fn = (function_type)__lambda_48;
c_73824.num_args = 1;
c_73824.num_elements = 3;
c_73824.elements = (object *)e_73847;
c_73824.elements[0] = file_73100_73167;
c_73824.elements[1] = k_73284;
c_73824.elements[2] = pkg_73101_73168;


make_utf8_string_with_len(c_73848, "test", 4, 4);
return_direct_with_clo3(data,  __glo_string_91contains_libs_util, (((closure)  __glo_string_91contains_libs_util)->fn),  &c_73824, file_73100_73167, &c_73848);; 
}

static void __lambda_48(void *data, object self_73369, int argc, object *args) /* object self_73369, object tmp_73103_73105_73169 */
 {
 object tmp_73103_73105_73169 = args[0];
  if( (boolean_f != tmp_73103_73105_73169) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73369)->elements[1], (((closure)  ((closureN)self_73369)->elements[1])->fn),  tmp_73103_73105_73169);
} else { 
    
if( (boolean_f != Cyc_is_null(((closureN)self_73369)->elements[2])) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73369)->elements[1], (((closure)  ((closureN)self_73369)->elements[1])->fn),  boolean_f);
} else { 
  
closureN_type c_73833;
object e_73845 [2];
c_73833.hdr.mark = gc_color_red;
 c_73833.hdr.grayed = 0;
c_73833.tag = closureN_tag;
 c_73833.fn = (function_type)__lambda_49;
c_73833.num_args = 1;
c_73833.num_elements = 2;
c_73833.elements = (object *)e_73845;
c_73833.elements[0] = ((closureN)self_73369)->elements[0];
c_73833.elements[1] = ((closureN)self_73369)->elements[1];

return_direct_with_clo2(data,  __glo_get_91test_libs_metadata, (((closure)  __glo_get_91test_libs_metadata)->fn),  &c_73833, ((closureN)self_73369)->elements[2]);}
;}
;; 
}

static void __lambda_49(void *data, object self_73370, int argc, object *args) /* object self_73370, object tmp_73107_73109_73170 */
 {
 object tmp_73107_73109_73170 = args[0];
  object r_73287;
  if( (boolean_f != tmp_73107_73109_73170) ){ 
  r_73287 = tmp_73107_73109_73170;
} else { 
  object c_73837;
 alloc_string(data,c_73837, 0, 0);
char tmp_73838[] = "";
memcpy(((string_type *)c_73837)->str, tmp_73838,0);
((string_type *)c_73837)->str[0] = '\0';
  r_73287 = c_73837;}
;
complex_num_type local_73843; 
return_direct_with_clo1(data,  ((closureN)self_73370)->elements[1], (((closure)  ((closureN)self_73370)->elements[1])->fn),  ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73843, ((closureN)self_73370)->elements[0], r_73287));; 
}

static void __lambda_38(void *data, object _, int argc, object *args) /* closure _,object k_73270, object prefix_7386_73162_raw, ... */
 {
object k_73270 = args[0];
load_varargs(prefix_7386_73162, args, 1, argc - 1);
  Cyc_st_add(data, "libs/file.sld:random-temp-dir");

closureN_type c_73765;
object e_73820 [2];
c_73765.hdr.mark = gc_color_red;
 c_73765.hdr.grayed = 0;
c_73765.tag = closureN_tag;
 c_73765.fn = (function_type)__lambda_39;
c_73765.num_args = 1;
c_73765.num_elements = 2;
c_73765.elements = (object *)e_73820;
c_73765.elements[0] = k_73270;
c_73765.elements[1] = prefix_7386_73162;


make_utf8_string_with_len(c_73821, "TMPDIR", 6, 6);
return_direct_with_clo2(data,  __glo_get_91environment_91variable_scheme_process_91context, (((closure)  __glo_get_91environment_91variable_scheme_process_91context)->fn),  &c_73765, &c_73821);; 
}

static void __lambda_39(void *data, object self_73361, int argc, object *args) /* object self_73361, object tmp_7389_7391_73164 */
 {
 object tmp_7389_7391_73164 = args[0];
  
closureN_type c_73767;
object e_73786 [1];
c_73767.hdr.mark = gc_color_red;
 c_73767.hdr.grayed = 0;
c_73767.tag = closureN_tag;
 c_73767.fn = (function_type)__lambda_40;
c_73767.num_args = 0;
c_73767.num_elements = 1;
c_73767.elements = (object *)e_73786;
c_73767.elements[0] = tmp_7389_7391_73164;


closureN_type c_73787;
object e_73819 [2];
c_73787.hdr.mark = gc_color_red;
 c_73787.hdr.grayed = 0;
c_73787.tag = closureN_tag;
 c_73787.fn = (function_type)__lambda_43;
c_73787.num_args = 1;
c_73787.num_elements = 2;
c_73787.elements = (object *)e_73819;
c_73787.elements[0] = ((closureN)self_73361)->elements[0];
c_73787.elements[1] = ((closureN)self_73361)->elements[1];

return_direct_with_clo1(data,(closure)&c_73767,__lambda_40,  &c_73787);; 
}

static void __lambda_43(void *data, object self_73362, int argc, object *args) /* object self_73362, object temp_91dir_7387_73163 */
 {
 object temp_91dir_7387_73163 = args[0];
  object r_73273;
    
if( (boolean_f != Cyc_is_null(((closureN)self_73362)->elements[1])) ){ 
  object c_73793;
 alloc_string(data,c_73793, 0, 0);
char tmp_73794[] = "";
memcpy(((string_type *)c_73793)->str, tmp_73794,0);
((string_type *)c_73793)->str[0] = '\0';
  r_73273 = c_73793;
} else { 
  
  r_73273 = Cyc_car(data, ((closureN)self_73362)->elements[1]);}
;
closureN_type c_73800;
object e_73817 [3];
c_73800.hdr.mark = gc_color_red;
 c_73800.hdr.grayed = 0;
c_73800.tag = closureN_tag;
 c_73800.fn = (function_type)__lambda_44;
c_73800.num_args = 1;
c_73800.num_elements = 3;
c_73800.elements = (object *)e_73817;
c_73800.elements[0] = ((closureN)self_73362)->elements[0];
c_73800.elements[1] = r_73273;
c_73800.elements[2] = temp_91dir_7387_73163;


alloc_bignum(data, c_73818); BIGNUM_CALL(mp_read_radix(&bignum_value(c_73818), "10000000000000000000", 10));
return_direct_with_clo2(data,  __glo_random_91integer_srfi_27, (((closure)  __glo_random_91integer_srfi_27)->fn),  &c_73800, c_73818);; 
}

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


object c_73816 = Cyc_number2string2(data,(closure)&c_73802,1,r_73275);
return_closcall1(data,(closure)&c_73802,  c_73816);; 
}

static void __lambda_45(void *data, object self_73364, int argc, object *args) /* object self_73364, object r_73274 */
 {
 object r_73274 = args[0];
  
closureN_type c_73804;
object e_73808 [2];
c_73804.hdr.mark = gc_color_red;
 c_73804.hdr.grayed = 0;
c_73804.tag = closureN_tag;
 c_73804.fn = (function_type)__lambda_46;
c_73804.num_args = 1;
c_73804.num_elements = 2;
c_73804.elements = (object *)e_73808;
c_73804.elements[0] = ((closureN)self_73364)->elements[0];
c_73804.elements[1] = ((closureN)self_73364)->elements[2];


object c_73811 = Cyc_string_append(data,(closure)&c_73804,2,((closureN)self_73364)->elements[1], r_73274);
return_closcall1(data,(closure)&c_73804,  c_73811);; 
}

static void __lambda_46(void *data, object self_73365, int argc, object *args) /* object self_73365, object r_73272 */
 {
 object r_73272 = args[0];
  return_direct_with_clo3(data,  __glo__91_125path_libs_file, (((closure)  __glo__91_125path_libs_file)->fn),  ((closureN)self_73365)->elements[0], ((closureN)self_73365)->elements[1], r_73272);; 
}

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


make_utf8_string_with_len(c_73785, "TEMP", 4, 4);
return_direct_with_clo2(data,  __glo_get_91environment_91variable_scheme_process_91context, (((closure)  __glo_get_91environment_91variable_scheme_process_91context)->fn),  &c_73772, &c_73785);}
;; 
}

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


make_utf8_string_with_len(c_73783, "TMP", 3, 3);
return_direct_with_clo2(data,  __glo_get_91environment_91variable_scheme_process_91context, (((closure)  __glo_get_91environment_91variable_scheme_process_91context)->fn),  &c_73776, &c_73783);}
;; 
}

static void __lambda_42(void *data, object self_73368, int argc, object *args) /* object self_73368, object tmp_7397_7399_73166 */
 {
 object tmp_7397_7399_73166 = args[0];
  if( (boolean_f != tmp_7397_7399_73166) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73368)->elements[0], (((closure)  ((closureN)self_73368)->elements[0])->fn),  tmp_7397_7399_73166);
} else { 
  
make_utf8_string_with_len(c_73781, ".", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73368)->elements[0], (((closure)  ((closureN)self_73368)->elements[0])->fn),  &c_73781);}
;; 
}

static void __lambda_22(void *data, object _, int argc, object *args) /* closure _,object k_73230, object args_7353_73152_raw, ... */
 {
object k_73230 = args[0];
load_varargs(args_7353_73152, args, 1, argc - 1);
  Cyc_st_add(data, "libs/file.sld:->path");
  
if( (boolean_f != Cyc_is_null(args_7353_73152)) ){ 
  
make_utf8_string_with_len(c_73593, "", 0, 0);
return_direct_with_clo1(data,  k_73230, (((closure)  k_73230)->fn),  &c_73593);
} else { 
  
closureN_type c_73595;
object e_73614 [1];
c_73595.hdr.mark = gc_color_red;
 c_73595.hdr.grayed = 0;
c_73595.tag = closureN_tag;
 c_73595.fn = (function_type)__lambda_23;
c_73595.num_args = 0;
c_73595.num_elements = 1;
c_73595.elements = (object *)e_73614;
c_73595.elements[0] = args_7353_73152;


closureN_type c_73615;
object e_73762 [2];
c_73615.hdr.mark = gc_color_red;
 c_73615.hdr.grayed = 0;
c_73615.tag = closureN_tag;
 c_73615.fn = (function_type)__lambda_25;
c_73615.num_args = 1;
c_73615.num_elements = 2;
c_73615.elements = (object *)e_73762;
c_73615.elements[0] = args_7353_73152;
c_73615.elements[1] = k_73230;

return_direct_with_clo1(data,(closure)&c_73595,__lambda_23,  &c_73615);}
;; 
}

static void __lambda_25(void *data, object self_73345, int argc, object *args) /* object self_73345, object args0_7359_73154 */
 {
 object args0_7359_73154 = args[0];
  
closureN_type c_73617;
object e_73761 [3];
c_73617.hdr.mark = gc_color_red;
 c_73617.hdr.grayed = 0;
c_73617.tag = closureN_tag;
 c_73617.fn = (function_type)__lambda_26;
c_73617.num_args = 1;
c_73617.num_elements = 3;
c_73617.elements = (object *)e_73761;
c_73617.elements[0] = ((closureN)self_73345)->elements[0];
c_73617.elements[1] = args0_7359_73154;
c_73617.elements[2] = ((closureN)self_73345)->elements[1];

return_direct_with_clo2(data,  __glo_trim_91trailing_91slash_libs_util, (((closure)  __glo_trim_91trailing_91slash_libs_util)->fn),  &c_73617, args0_7359_73154);; 
}

static void __lambda_26(void *data, object self_73346, int argc, object *args) /* object self_73346, object start_7362_73155 */
 {
 object start_7362_73155 = args[0];
  object r_73236;
    object local_73621 = alloca(sizeof(complex_num_type)); 
  object c_73622;
 alloc_string(data,c_73622, 0, 0);
char tmp_73623[] = "";
memcpy(((string_type *)c_73622)->str, tmp_73623,0);
((string_type *)c_73622)->str[0] = '\0';
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,local_73621, c_73622, start_7362_73155)) ){ 
  r_73236 = NULL;
} else { 
  object local_73628 = alloca(sizeof(pair_type)); 
  r_73236 = set_cell_as_expr(local_73628, start_7362_73155);}
;
closureN_type c_73630;
object e_73757 [2];
c_73630.hdr.mark = gc_color_red;
 c_73630.hdr.grayed = 0;
c_73630.tag = closureN_tag;
 c_73630.fn = (function_type)__lambda_27;
c_73630.num_args = 2;
c_73630.num_elements = 2;
c_73630.elements = (object *)e_73757;
c_73630.elements[0] = ((closureN)self_73346)->elements[1];
c_73630.elements[1] = ((closureN)self_73346)->elements[2];



return_direct_with_clo2(data,(closure)&c_73630,__lambda_27,  Cyc_cdr(data, ((closureN)self_73346)->elements[0]), r_73236);; 
}

static void __lambda_27(void *data, object self_73347, int argc, object *args) /* object self_73347, object ls_7365_73156, object res_7366_73157 */
 {
 object ls_7365_73156 = args[0]; object res_7366_73157 = args[1];
  
closureN_type c_73632;
object e_73756 [4];
c_73632.hdr.mark = gc_color_red;
 c_73632.hdr.grayed = 0;
c_73632.tag = closureN_tag;
 c_73632.fn = (function_type)__lambda_28;
c_73632.num_args = 1;
c_73632.num_elements = 4;
c_73632.elements = (object *)e_73756;
c_73632.elements[0] = ((closureN)self_73347)->elements[0];
c_73632.elements[1] = ((closureN)self_73347)->elements[1];
c_73632.elements[2] = ls_7365_73156;
c_73632.elements[3] = res_7366_73157;

return_direct_with_clo1(data,(closure)&c_73632,__lambda_28,  boolean_f);; 
}

static void __lambda_28(void *data, object self_73348, int argc, object *args) /* object self_73348, object lp_7367_73158 */
 {
 object lp_7367_73158 = args[0];
  
closureN_type c_73634;
object e_73752 [4];
c_73634.hdr.mark = gc_color_red;
 c_73634.hdr.grayed = 0;
c_73634.tag = closureN_tag;
 c_73634.fn = (function_type)__lambda_72;
c_73634.num_args = 1;
c_73634.num_elements = 4;
c_73634.elements = (object *)e_73752;
c_73634.elements[0] = ((closureN)self_73348)->elements[0];
c_73634.elements[1] = ((closureN)self_73348)->elements[1];
c_73634.elements[2] = ((closureN)self_73348)->elements[2];
c_73634.elements[3] = ((closureN)self_73348)->elements[3];


pair_type local_73755; 
return_direct_with_clo1(data,(closure)&c_73634,__lambda_72,  set_cell_as_expr(&local_73755, lp_7367_73158));; 
}

static void __lambda_72(void *data, object self_73349, int argc, object *args) /* object self_73349, object lp_7367_73158 */
 {
 object lp_7367_73158 = args[0];
  
closureN_type c_73636;
object e_73650 [4];
c_73636.hdr.mark = gc_color_red;
 c_73636.hdr.grayed = 0;
c_73636.tag = closureN_tag;
 c_73636.fn = (function_type)__lambda_29;
c_73636.num_args = 1;
c_73636.num_elements = 4;
c_73636.elements = (object *)e_73650;
c_73636.elements[0] = ((closureN)self_73349)->elements[1];
c_73636.elements[1] = lp_7367_73158;
c_73636.elements[2] = ((closureN)self_73349)->elements[2];
c_73636.elements[3] = ((closureN)self_73349)->elements[3];


closureN_type c_73651;
object e_73751 [2];
c_73651.hdr.mark = gc_color_red;
 c_73651.hdr.grayed = 0;
c_73651.tag = closureN_tag;
 c_73651.fn = (function_type)__lambda_31;
c_73651.num_args = 2;
c_73651.num_elements = 2;
c_73651.elements = (object *)e_73751;
c_73651.elements[0] = ((closureN)self_73349)->elements[0];
c_73651.elements[1] = lp_7367_73158;

return_direct_with_clo1(data,(closure)&c_73636,__lambda_29,  &c_73651);; 
}

static void __lambda_31(void *data, object self_73350, int argc, object *args) /* object self_73350, object k_73239, object ls_7368_73159, object res_7369_73160 */
 {
 object k_73239 = args[0]; object ls_7368_73159 = args[1]; object res_7369_73160 = args[2];
    
if( (boolean_f != Cyc_is_null(ls_7368_73159)) ){ 
  
closureN_type c_73655;
object e_73669 [2];
c_73655.hdr.mark = gc_color_red;
 c_73655.hdr.grayed = 0;
c_73655.tag = closureN_tag;
 c_73655.fn = (function_type)__lambda_32;
c_73655.num_args = 0;
c_73655.num_elements = 2;
c_73655.elements = (object *)e_73669;
c_73655.elements[0] = ((closureN)self_73350)->elements[0];
c_73655.elements[1] = res_7369_73160;


closureN_type c_73670;
object e_73680 [2];
c_73670.hdr.mark = gc_color_red;
 c_73670.hdr.grayed = 0;
c_73670.tag = closureN_tag;
 c_73670.fn = (function_type)__lambda_33;
c_73670.num_args = 1;
c_73670.num_elements = 2;
c_73670.elements = (object *)e_73680;
c_73670.elements[0] = k_73239;
c_73670.elements[1] = res_7369_73160;

return_direct_with_clo1(data,(closure)&c_73655,__lambda_32,  &c_73670);
} else { 
    
  
if( (boolean_f != Cyc_is_pair(Cyc_car(data, ls_7368_73159))) ){ 
  
closureN_type c_73686;
object e_73693 [3];
c_73686.hdr.mark = gc_color_red;
 c_73686.hdr.grayed = 0;
c_73686.tag = closureN_tag;
 c_73686.fn = (function_type)__lambda_35;
c_73686.num_args = 1;
c_73686.num_elements = 3;
c_73686.elements = (object *)e_73693;
c_73686.elements[0] = k_73239;
c_73686.elements[1] = ((closureN)self_73350)->elements[1];
c_73686.elements[2] = res_7369_73160;





return_direct_with_clo3(data,  __glo_append_scheme_base, (((closure)  __glo_append_scheme_base)->fn),  &c_73686, Cyc_car(data, ls_7368_73159), Cyc_cdr(data, ls_7368_73159));
} else { 
  
closureN_type c_73699;
object e_73748 [4];
c_73699.hdr.mark = gc_color_red;
 c_73699.hdr.grayed = 0;
c_73699.tag = closureN_tag;
 c_73699.fn = (function_type)__lambda_36;
c_73699.num_args = 1;
c_73699.num_elements = 4;
c_73699.elements = (object *)e_73748;
c_73699.elements[0] = k_73239;
c_73699.elements[1] = ((closureN)self_73350)->elements[1];
c_73699.elements[2] = ls_7368_73159;
c_73699.elements[3] = res_7369_73160;



return_direct_with_clo2(data,  __glo__91_125string_libs_util, (((closure)  __glo__91_125string_libs_util)->fn),  &c_73699, Cyc_car(data, ls_7368_73159));}
;}
;; 
}

static void __lambda_36(void *data, object self_73355, int argc, object *args) /* object self_73355, object r_73260 */
 {
 object r_73260 = args[0];
  
closureN_type c_73701;
object e_73747 [4];
c_73701.hdr.mark = gc_color_red;
 c_73701.hdr.grayed = 0;
c_73701.tag = closureN_tag;
 c_73701.fn = (function_type)__lambda_37;
c_73701.num_args = 1;
c_73701.num_elements = 4;
c_73701.elements = (object *)e_73747;
c_73701.elements[0] = ((closureN)self_73355)->elements[0];
c_73701.elements[1] = ((closureN)self_73355)->elements[1];
c_73701.elements[2] = ((closureN)self_73355)->elements[2];
c_73701.elements[3] = ((closureN)self_73355)->elements[3];

return_direct_with_clo2(data,  __glo_trim_91trailing_91slash_libs_util, (((closure)  __glo_trim_91trailing_91slash_libs_util)->fn),  &c_73701, r_73260);; 
}

static void __lambda_37(void *data, object self_73356, int argc, object *args) /* object self_73356, object x_7378_73161 */
 {
 object x_7378_73161 = args[0];
    complex_num_type local_73704; 
  make_utf8_string_with_len(c_73705, "", 0, 0);
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73704, x_7378_73161, &c_73705)) ){ 
  



return_closcall3(data,  car(((closureN)self_73356)->elements[1]),  ((closureN)self_73356)->elements[0], Cyc_cdr(data, ((closureN)self_73356)->elements[2]), ((closureN)self_73356)->elements[3]);
} else { 
    
  
if( (boolean_f != Cyc_eqv(obj_char2obj(47), Cyc_string_ref(data, x_7378_73161, obj_int2obj(0)))) ){ 
  




pair_type local_73729; 
return_closcall3(data,  car(((closureN)self_73356)->elements[1]),  ((closureN)self_73356)->elements[0], Cyc_cdr(data, ((closureN)self_73356)->elements[2]), set_pair_as_expr(&local_73729, x_7378_73161, ((closureN)self_73356)->elements[3]));
} else { 
  




pair_type local_73741; 

pair_type local_73744; 

make_utf8_string_with_len(c_73745, "/", 1, 1);
return_closcall3(data,  car(((closureN)self_73356)->elements[1]),  ((closureN)self_73356)->elements[0], Cyc_cdr(data, ((closureN)self_73356)->elements[2]), set_pair_as_expr(&local_73741, x_7378_73161, set_pair_as_expr(&local_73744, &c_73745, ((closureN)self_73356)->elements[3])));}
;}
;; 
}

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

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

static void __lambda_33(void *data, object self_73351, int argc, object *args) /* object self_73351, object r_73241 */
 {
 object r_73241 = args[0];
  if( (boolean_f != r_73241) ){ 
  
make_utf8_string_with_len(c_73673, "/", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73351)->elements[0], (((closure)  ((closureN)self_73351)->elements[0])->fn),  &c_73673);
} else { 
  
closureN_type c_73675;
object e_73678 [1];
c_73675.hdr.mark = gc_color_red;
 c_73675.hdr.grayed = 0;
c_73675.tag = closureN_tag;
 c_73675.fn = (function_type)__lambda_34;
c_73675.num_args = 1;
c_73675.num_elements = 1;
c_73675.elements = (object *)e_73678;
c_73675.elements[0] = ((closureN)self_73351)->elements[0];

return_direct_with_clo2(data,  __glo_reverse_scheme_base, (((closure)  __glo_reverse_scheme_base)->fn),  &c_73675, ((closureN)self_73351)->elements[1]);}
;; 
}

static void __lambda_34(void *data, object self_73352, int argc, object *args) /* object self_73352, object r_73242 */
 {
 object r_73242 = args[0];
  return_direct_with_clo2(data,  __glo_string_91join_libs_util, (((closure)  __glo_string_91join_libs_util)->fn),  ((closureN)self_73352)->elements[0], r_73242);; 
}

static void __lambda_32(void *data, object self_73353, int argc, object *args) /* object self_73353, object k_73243 */
 {
 object k_73243 = args[0];
    
if( (boolean_f != Cyc_is_null(((closureN)self_73353)->elements[1])) ){ 
  
complex_num_type local_73662; 

complex_num_type local_73665; 

make_utf8_string_with_len(c_73666, "", 0, 0);
return_direct_with_clo1(data,  k_73243,__lambda_33,  ((inline_function_type)
                   ((closure)__glo_not_191_191inline_191_191_scheme_base)->fn)(data,&local_73662, ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73665, &c_73666, ((closureN)self_73353)->elements[0])));
} else { 
  return_direct_with_clo1(data,  k_73243,__lambda_33,  boolean_f);}
;; 
}

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



return_direct_with_clo1(data,(closure)&c_73638,__lambda_30,  Cyc_set_cell(data, ((closureN)self_73357)->elements[1], r_73238));; 
}

static void __lambda_30(void *data, object self_73358, int argc, object *args) /* object self_73358, object r_73237 */
 {

  

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

static void __lambda_23(void *data, object self_73359, int argc, object *args) /* object self_73359, object k_73265 */
 {
 object k_73265 = args[0];
    complex_num_type local_73598; 
  
if( (boolean_f != ((inline_function_type)
                   ((closure)__glo_list_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73598, Cyc_car(data, ((closureN)self_73359)->elements[0]))) ){ 
  
closureN_type c_73603;
object e_73606 [1];
c_73603.hdr.mark = gc_color_red;
 c_73603.hdr.grayed = 0;
c_73603.tag = closureN_tag;
 c_73603.fn = (function_type)__lambda_24;
c_73603.num_args = 1;
c_73603.num_elements = 1;
c_73603.elements = (object *)e_73606;
c_73603.elements[0] = k_73265;



return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73603, __glo__91_125string_libs_util, Cyc_car(data, ((closureN)self_73359)->elements[0]));
} else { 
  

return_direct_with_clo2(data,  __glo__91_125string_libs_util, (((closure)  __glo__91_125string_libs_util)->fn),  k_73265, Cyc_car(data, ((closureN)self_73359)->elements[0]));}
;; 
}

static void __lambda_24(void *data, object self_73360, int argc, object *args) /* object self_73360, object r_73267 */
 {
 object r_73267 = args[0];
  return_direct_with_clo3(data,  __glo_string_91join_libs_util, (((closure)  __glo_string_91join_libs_util)->fn),  ((closureN)self_73360)->elements[0], r_73267, obj_char2obj(47));; 
}

static void __lambda_19(void *data, object _, int argc, object *args) /* closure _,object k_73225, object path_7350_73149 */
 {
object k_73225 = args[0]; object path_7350_73149 = args[1];
  Cyc_st_add(data, "libs/file.sld:path-extension");

closureN_type c_73572;
object e_73588 [2];
c_73572.hdr.mark = gc_color_red;
 c_73572.hdr.grayed = 0;
c_73572.tag = closureN_tag;
 c_73572.fn = (function_type)__lambda_20;
c_73572.num_args = 1;
c_73572.num_elements = 2;
c_73572.elements = (object *)e_73588;
c_73572.elements[0] = k_73225;
c_73572.elements[1] = path_7350_73149;

return_direct_with_clo2(data,  __glo_path_91extension_91pos_libs_file, (((closure)  __glo_path_91extension_91pos_libs_file)->fn),  &c_73572, path_7350_73149);; 
}

static void __lambda_20(void *data, object self_73343, int argc, object *args) /* object self_73343, object r_73226 */
 {
 object r_73226 = args[0];
  
closureN_type c_73574;
object e_73584 [2];
c_73574.hdr.mark = gc_color_red;
 c_73574.hdr.grayed = 0;
c_73574.tag = closureN_tag;
 c_73574.fn = (function_type)__lambda_21;
c_73574.num_args = 2;
c_73574.num_elements = 2;
c_73574.elements = (object *)e_73584;
c_73574.elements[0] = ((closureN)self_73343)->elements[0];
c_73574.elements[1] = ((closureN)self_73343)->elements[1];



return_direct_with_clo2(data,(closure)&c_73574,__lambda_21,  r_73226, Cyc_string_length(data, ((closureN)self_73343)->elements[1]));; 
}

static void __lambda_21(void *data, object self_73344, int argc, object *args) /* object self_73344, object i_7351_73150, object len_7352_73151 */
 {
 object i_7351_73150 = args[0]; object len_7352_73151 = args[1];
  if( (boolean_f != i_7351_73150) ){ 
  
object c_73579 = Cyc_substring(data,  ((closureN)self_73344)->elements[0],((closureN)self_73344)->elements[1], i_7351_73150, len_7352_73151);
return_direct_with_clo1(data,  ((closureN)self_73344)->elements[0], (((closure)  ((closureN)self_73344)->elements[0])->fn),  c_73579);
} else { 
  
make_utf8_string_with_len(c_73583, "", 0, 0);
return_direct_with_clo1(data,  ((closureN)self_73344)->elements[0], (((closure)  ((closureN)self_73344)->elements[0])->fn),  &c_73583);}
;; 
}

static void __lambda_17(void *data, object _, int argc, object *args) /* closure _,object k_73220, object path_7348_73147 */
 {
object k_73220 = args[0]; object path_7348_73147 = args[1];
  Cyc_st_add(data, "libs/file.sld:path-strip-extension");

closureN_type c_73556;
object e_73569 [2];
c_73556.hdr.mark = gc_color_red;
 c_73556.hdr.grayed = 0;
c_73556.tag = closureN_tag;
 c_73556.fn = (function_type)__lambda_18;
c_73556.num_args = 1;
c_73556.num_elements = 2;
c_73556.elements = (object *)e_73569;
c_73556.elements[0] = k_73220;
c_73556.elements[1] = path_7348_73147;

return_direct_with_clo2(data,  __glo_path_91extension_91pos_libs_file, (((closure)  __glo_path_91extension_91pos_libs_file)->fn),  &c_73556, path_7348_73147);; 
}

static void __lambda_18(void *data, object self_73342, int argc, object *args) /* object self_73342, object i_7349_73148 */
 {
 object i_7349_73148 = args[0];
  if( (boolean_f != i_7349_73148) ){ 
  
complex_num_type local_73565; 

object c_73561 = Cyc_substring(data,  ((closureN)self_73342)->elements[0],((closureN)self_73342)->elements[1], obj_int2obj(0), Cyc_fast_sub(data,&local_73565, i_7349_73148, obj_int2obj(1)));
return_direct_with_clo1(data,  ((closureN)self_73342)->elements[0], (((closure)  ((closureN)self_73342)->elements[0])->fn),  c_73561);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73342)->elements[0], (((closure)  ((closureN)self_73342)->elements[0])->fn),  ((closureN)self_73342)->elements[1]);}
;; 
}

static void __lambda_8(void *data, object _, int argc, object *args) /* closure _,object k_73205, object path_7316_73135 */
 {
object k_73205 = args[0]; object path_7316_73135 = args[1];
  Cyc_st_add(data, "libs/file.sld:path-extension-pos");

closureN_type c_73467;
object e_73551 [2];
c_73467.hdr.mark = gc_color_red;
 c_73467.hdr.grayed = 0;
c_73467.tag = closureN_tag;
 c_73467.fn = (function_type)__lambda_9;
c_73467.num_args = 1;
c_73467.num_elements = 2;
c_73467.elements = (object *)e_73551;
c_73467.elements[0] = k_73205;
c_73467.elements[1] = path_7316_73135;



return_direct_with_clo1(data,(closure)&c_73467,__lambda_9,  Cyc_string_length(data, path_7316_73135));; 
}

static void __lambda_9(void *data, object self_73333, int argc, object *args) /* object self_73333, object end_7318_73137 */
 {
 object end_7318_73137 = args[0];
  
closureN_type c_73469;
object e_73550 [3];
c_73469.hdr.mark = gc_color_red;
 c_73469.hdr.grayed = 0;
c_73469.tag = closureN_tag;
 c_73469.fn = (function_type)__lambda_10;
c_73469.num_args = 1;
c_73469.num_elements = 3;
c_73469.elements = (object *)e_73550;
c_73469.elements[0] = end_7318_73137;
c_73469.elements[1] = ((closureN)self_73333)->elements[0];
c_73469.elements[2] = ((closureN)self_73333)->elements[1];

return_direct_with_clo1(data,(closure)&c_73469,__lambda_10,  end_7318_73137);; 
}

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

return_direct_with_clo1(data,(closure)&c_73471,__lambda_11,  boolean_f);; 
}

static void __lambda_11(void *data, object self_73335, int argc, object *args) /* object self_73335, object lp_7322_73140 */
 {
 object lp_7322_73140 = args[0];
  
closureN_type c_73473;
object e_73545 [4];
c_73473.hdr.mark = gc_color_red;
 c_73473.hdr.grayed = 0;
c_73473.tag = closureN_tag;
 c_73473.fn = (function_type)__lambda_71;
c_73473.num_args = 1;
c_73473.num_elements = 4;
c_73473.elements = (object *)e_73545;
c_73473.elements[0] = ((closureN)self_73335)->elements[0];
c_73473.elements[1] = ((closureN)self_73335)->elements[1];
c_73473.elements[2] = ((closureN)self_73335)->elements[2];
c_73473.elements[3] = ((closureN)self_73335)->elements[3];


pair_type local_73548; 
return_direct_with_clo1(data,(closure)&c_73473,__lambda_71,  set_cell_as_expr(&local_73548, lp_7322_73140));; 
}

static void __lambda_71(void *data, object self_73336, int argc, object *args) /* object self_73336, object lp_7322_73140 */
 {
 object lp_7322_73140 = args[0];
  
closureN_type c_73475;
object e_73488 [3];
c_73475.hdr.mark = gc_color_red;
 c_73475.hdr.grayed = 0;
c_73475.tag = closureN_tag;
 c_73475.fn = (function_type)__lambda_12;
c_73475.num_args = 1;
c_73475.num_elements = 3;
c_73475.elements = (object *)e_73488;
c_73475.elements[0] = ((closureN)self_73336)->elements[1];
c_73475.elements[1] = ((closureN)self_73336)->elements[2];
c_73475.elements[2] = lp_7322_73140;


closureN_type c_73489;
object e_73544 [3];
c_73489.hdr.mark = gc_color_red;
 c_73489.hdr.grayed = 0;
c_73489.tag = closureN_tag;
 c_73489.fn = (function_type)__lambda_14;
c_73489.num_args = 2;
c_73489.num_elements = 3;
c_73489.elements = (object *)e_73544;
c_73489.elements[0] = ((closureN)self_73336)->elements[0];
c_73489.elements[1] = lp_7322_73140;
c_73489.elements[2] = ((closureN)self_73336)->elements[3];

return_direct_with_clo1(data,(closure)&c_73475,__lambda_12,  &c_73489);; 
}

static void __lambda_14(void *data, object self_73337, int argc, object *args) /* object self_73337, object k_73209, object i_7323_73141, object dot_7324_73142 */
 {
 object k_73209 = args[0]; object i_7323_73141 = args[1]; object dot_7324_73142 = args[2];
    
if( (boolean_f != Cyc_num_fast_lte_op(data, i_7323_73141, obj_int2obj(0))) ){ 
  return_direct_with_clo1(data,  k_73209, (((closure)  k_73209)->fn),  boolean_f);
} else { 
    
  
  complex_num_type local_73500; 
if( (boolean_f != Cyc_eqv(obj_char2obj(46), Cyc_string_ref(data, ((closureN)self_73337)->elements[2], Cyc_fast_sub(data,&local_73500, i_7323_73141, obj_int2obj(1))))) ){ 
    
if( (boolean_f != Cyc_num_fast_lt_op(data, i_7323_73141, ((closureN)self_73337)->elements[0])) ){ 
  
closureN_type c_73505;
object e_73519 [3];
c_73505.hdr.mark = gc_color_red;
 c_73505.hdr.grayed = 0;
c_73505.tag = closureN_tag;
 c_73505.fn = (function_type)__lambda_15;
c_73505.num_args = 1;
c_73505.num_elements = 3;
c_73505.elements = (object *)e_73519;
c_73505.elements[0] = i_7323_73141;
c_73505.elements[1] = k_73209;
c_73505.elements[2] = ((closureN)self_73337)->elements[1];

return_direct_with_clo1(data,(closure)&c_73505,__lambda_15,  dot_7324_73142);
} else { 
  return_direct_with_clo1(data,  k_73209, (((closure)  k_73209)->fn),  boolean_f);}
;
} else { 
    
  
  complex_num_type local_73528; 
if( (boolean_f != Cyc_eqv(obj_char2obj(47), Cyc_string_ref(data, ((closureN)self_73337)->elements[2], Cyc_fast_sub(data,&local_73528, i_7323_73141, obj_int2obj(1))))) ){ 
  return_direct_with_clo1(data,  k_73209, (((closure)  k_73209)->fn),  boolean_f);
} else { 
  
closureN_type c_73531;
object e_73543 [3];
c_73531.hdr.mark = gc_color_red;
 c_73531.hdr.grayed = 0;
c_73531.tag = closureN_tag;
 c_73531.fn = (function_type)__lambda_16;
c_73531.num_args = 1;
c_73531.num_elements = 3;
c_73531.elements = (object *)e_73543;
c_73531.elements[0] = i_7323_73141;
c_73531.elements[1] = k_73209;
c_73531.elements[2] = ((closureN)self_73337)->elements[1];

return_direct_with_clo1(data,(closure)&c_73531,__lambda_16,  dot_7324_73142);}
;}
;}
;; 
}

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


complex_num_type local_73541; 
return_closcall3(data,  car(((closureN)self_73339)->elements[2]),  ((closureN)self_73339)->elements[1], Cyc_fast_sub(data,&local_73541, ((closureN)self_73339)->elements[0], obj_int2obj(1)), boolean_f);}
;; 
}

static void __lambda_15(void *data, object self_73338, int argc, object *args) /* object self_73338, object tmp_7337_7339_73145 */
 {
 object tmp_7337_7339_73145 = args[0];
  object r_73215;
  if( (boolean_f != tmp_7337_7339_73145) ){ 
  r_73215 = tmp_7337_7339_73145;
} else { 
  r_73215 = ((closureN)self_73338)->elements[0];}
;


complex_num_type local_73517; 
return_closcall3(data,  car(((closureN)self_73338)->elements[2]),  ((closureN)self_73338)->elements[1], Cyc_fast_sub(data,&local_73517, ((closureN)self_73338)->elements[0], obj_int2obj(1)), r_73215);; 
}

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



return_direct_with_clo1(data,(closure)&c_73477,__lambda_13,  Cyc_set_cell(data, ((closureN)self_73340)->elements[2], r_73208));; 
}

static void __lambda_13(void *data, object self_73341, int argc, object *args) /* object self_73341, object r_73207 */
 {

  

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

static void __lambda_6(void *data, object _, int argc, object *args) /* closure _,object k_73198, object path_7314_73133 */
 {
object k_73198 = args[0]; object path_7314_73133 = args[1];
  Cyc_st_add(data, "libs/file.sld:path-strip-directory");

closureN_type c_73446;
object e_73464 [2];
c_73446.hdr.mark = gc_color_red;
 c_73446.hdr.grayed = 0;
c_73446.tag = closureN_tag;
 c_73446.fn = (function_type)__lambda_7;
c_73446.num_args = 1;
c_73446.num_elements = 2;
c_73446.elements = (object *)e_73464;
c_73446.elements[0] = k_73198;
c_73446.elements[1] = path_7314_73133;

return_direct_with_clo3(data,  __glo_string_91find_91right_libs_util, (((closure)  __glo_string_91find_91right_libs_util)->fn),  &c_73446, path_7314_73133, obj_char2obj(47));; 
}

static void __lambda_7(void *data, object self_73332, int argc, object *args) /* object self_73332, object i_7315_73134 */
 {
 object i_7315_73134 = args[0];
    
if( (boolean_f != Cyc_num_fast_eq_op(data, obj_int2obj(0), i_7315_73134)) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73332)->elements[0], (((closure)  ((closureN)self_73332)->elements[0])->fn),  ((closureN)self_73332)->elements[1]);
} else { 
  
complex_num_type local_73460; 



object c_73456 = Cyc_substring(data,  ((closureN)self_73332)->elements[0],((closureN)self_73332)->elements[1], Cyc_fast_sum(data,&local_73460, obj_int2obj(1), i_7315_73134), Cyc_string_length(data, ((closureN)self_73332)->elements[1]));
return_direct_with_clo1(data,  ((closureN)self_73332)->elements[0], (((closure)  ((closureN)self_73332)->elements[0])->fn),  c_73456);}
;; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_73185, object path_731_73127 */
 {
object k_73185 = args[0]; object path_731_73127 = args[1];
  Cyc_st_add(data, "libs/file.sld:path-dir");

closureN_type c_73390;
object e_73439 [2];
c_73390.hdr.mark = gc_color_red;
 c_73390.hdr.grayed = 0;
c_73390.tag = closureN_tag;
 c_73390.fn = (function_type)__lambda_2;
c_73390.num_args = 1;
c_73390.num_elements = 2;
c_73390.elements = (object *)e_73439;
c_73390.elements[0] = k_73185;
c_73390.elements[1] = path_731_73127;


complex_num_type local_73442; 

make_utf8_string_with_len(c_73443, "", 0, 0);
return_direct_with_clo1(data,(closure)&c_73390,__lambda_2,  ((inline_function_type)
                   ((closure)__glo_fast_91string_123_127_191_191inline_191_191_scheme_base)->fn)(data,&local_73442, path_731_73127, &c_73443));; 
}

static void __lambda_2(void *data, object self_73328, int argc, object *args) /* object self_73328, object r_73186 */
 {
 object r_73186 = args[0];
  if( (boolean_f != r_73186) ){ 
  
make_utf8_string_with_len(c_73393, ".", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73328)->elements[0], (((closure)  ((closureN)self_73328)->elements[0])->fn),  &c_73393);
} else { 
  
closureN_type c_73395;
object e_73437 [2];
c_73395.hdr.mark = gc_color_red;
 c_73395.hdr.grayed = 0;
c_73395.tag = closureN_tag;
 c_73395.fn = (function_type)__lambda_3;
c_73395.num_args = 1;
c_73395.num_elements = 2;
c_73395.elements = (object *)e_73437;
c_73395.elements[0] = ((closureN)self_73328)->elements[0];
c_73395.elements[1] = ((closureN)self_73328)->elements[1];

return_direct_with_clo2(data,  __glo_trim_91trailing_91slash_libs_util, (((closure)  __glo_trim_91trailing_91slash_libs_util)->fn),  &c_73395, ((closureN)self_73328)->elements[1]);}
;; 
}

static void __lambda_3(void *data, object self_73329, int argc, object *args) /* object self_73329, object trimmed_91string_737_73129 */
 {
 object trimmed_91string_737_73129 = args[0];
    
  complex_num_type local_73400; 
  
if( (boolean_f != Cyc_eq(obj_int2obj(0), Cyc_fast_sub(data,&local_73400, Cyc_string_length(data, trimmed_91string_737_73129), obj_int2obj(1)))) ){ 
  
make_utf8_string_with_len(c_73405, "/", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73329)->elements[0], (((closure)  ((closureN)self_73329)->elements[0])->fn),  &c_73405);
} else { 
  
closureN_type c_73407;
object e_73435 [2];
c_73407.hdr.mark = gc_color_red;
 c_73407.hdr.grayed = 0;
c_73407.tag = closureN_tag;
 c_73407.fn = (function_type)__lambda_4;
c_73407.num_args = 1;
c_73407.num_elements = 2;
c_73407.elements = (object *)e_73435;
c_73407.elements[0] = ((closureN)self_73329)->elements[0];
c_73407.elements[1] = ((closureN)self_73329)->elements[1];

return_direct_with_clo3(data,  __glo_string_91find_91right_libs_util, (((closure)  __glo_string_91find_91right_libs_util)->fn),  &c_73407, ((closureN)self_73329)->elements[1], obj_char2obj(47));}
;; 
}

static void __lambda_4(void *data, object self_73330, int argc, object *args) /* object self_73330, object slash_7312_73131 */
 {
 object slash_7312_73131 = args[0];
    
if( (boolean_f != Cyc_eq(obj_int2obj(0), slash_7312_73131)) ){ 
  
make_utf8_string_with_len(c_73412, ".", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73330)->elements[0], (((closure)  ((closureN)self_73330)->elements[0])->fn),  &c_73412);
} else { 
  
closureN_type c_73414;
object e_73430 [2];
c_73414.hdr.mark = gc_color_red;
 c_73414.hdr.grayed = 0;
c_73414.tag = closureN_tag;
 c_73414.fn = (function_type)__lambda_5;
c_73414.num_args = 1;
c_73414.num_elements = 2;
c_73414.elements = (object *)e_73430;
c_73414.elements[0] = ((closureN)self_73330)->elements[0];
c_73414.elements[1] = ((closureN)self_73330)->elements[1];


object c_73433 = Cyc_substring(data,(closure)&c_73414,((closureN)self_73330)->elements[1], obj_int2obj(0), slash_7312_73131);
return_closcall1(data,(closure)&c_73414,  c_73433);}
;; 
}

static void __lambda_5(void *data, object self_73331, int argc, object *args) /* object self_73331, object r_73194 */
 {
 object r_73194 = args[0];
    
  
if( (boolean_f != Cyc_eq(obj_int2obj(0), Cyc_string_length(data, r_73194))) ){ 
  
make_utf8_string_with_len(c_73421, "/", 1, 1);
return_direct_with_clo1(data,  ((closureN)self_73331)->elements[0], (((closure)  ((closureN)self_73331)->elements[0])->fn),  &c_73421);
} else { 
  


object c_73426 = Cyc_substring(data,  ((closureN)self_73331)->elements[0],((closureN)self_73331)->elements[1], obj_int2obj(0), Cyc_string_length(data, r_73194));
return_direct_with_clo1(data,  ((closureN)self_73331)->elements[0], (((closure)  ((closureN)self_73331)->elements[0])->fn),  c_73426);}
;; 
}

static void __lambda_73(void *data, object _, int argc, object *args) {object k = args[0];object directory = args[1];object file_list = NULL;
       object dir_list = NULL;
       
       Cyc_check_str(data, directory);
     
       DIR* d = opendir(string_str(directory));
       if (d == NULL)
           Cyc_rt_raise2(data, "Could not open directory: ", (object *) directory);
    
       struct dirent *dir; // for the directory entries
       while((dir = readdir(d)) != NULL)
       {
           object ps = alloca(sizeof(string_type));
           alloca_pair(pl, ps, NULL);
           make_utf8_string(data, s, dir->d_name);
           memcpy(ps, &s, sizeof(string_type));
    
           if(dir->d_type != DT_DIR) {
               ((list) pl)->pair_cdr = file_list;
               file_list = pl;
           }
           else if(dir->d_type == DT_DIR && strcmp(dir->d_name, ".") != 0 && strcmp(dir->d_name,"..") != 0)  {
               ((list) pl)->pair_cdr = dir_list;
               dir_list = pl;
           }
       }
       closedir(d);
    
       make_pair(l2, (object) dir_list, NULL);
       make_pair(l, (object) file_list, &l2);
    
       return_closcall1(data, k, &l); }
void c_libsfile_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_libsfile_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);

  add_global("__glo_lib_91init_117libsfile_libs_file", (object *) &__glo_lib_91init_117libsfile_libs_file);
  add_global("__glo_doc_91file_127_libs_file", (object *) &__glo_doc_91file_127_libs_file);
  add_global("__glo_scm_91files_libs_file", (object *) &__glo_scm_91files_libs_file);
  add_global("__glo_sld_91files_libs_file", (object *) &__glo_sld_91files_libs_file);
  add_global("__glo_code_91files_libs_file", (object *) &__glo_code_91files_libs_file);
  add_global("__glo_test_91file_127_libs_file", (object *) &__glo_test_91file_127_libs_file);
  add_global("__glo_random_91temp_91dir_libs_file", (object *) &__glo_random_91temp_91dir_libs_file);
  add_global("__glo__91_125path_libs_file", (object *) &__glo__91_125path_libs_file);
  add_global("__glo_path_91extension_libs_file", (object *) &__glo_path_91extension_libs_file);
  add_global("__glo_path_91strip_91extension_libs_file", (object *) &__glo_path_91strip_91extension_libs_file);
  add_global("__glo_path_91extension_91pos_libs_file", (object *) &__glo_path_91extension_91pos_libs_file);
  add_global("__glo_path_91strip_91directory_libs_file", (object *) &__glo_path_91strip_91directory_libs_file);
  add_global("__glo_path_91dir_libs_file", (object *) &__glo_path_91dir_libs_file);
  add_global("__glo_directory_91content_libs_file", (object *) &__glo_directory_91content_libs_file);
  mclosure0(c_73962, (function_type)__lambda_70);c_73962.num_args = 0; 
  __glo_lib_91init_117libsfile_libs_file = &c_73962; 
  mclosure0(c_73938, (function_type)__lambda_64);c_73938.num_args = 1; 
  __glo_doc_91file_127_libs_file = &c_73938; 
  mclosure0(c_73921, (function_type)__lambda_60);c_73921.num_args = 1; 
  __glo_scm_91files_libs_file = &c_73921; 
  mclosure0(c_73904, (function_type)__lambda_56);c_73904.num_args = 1; 
  __glo_sld_91files_libs_file = &c_73904; 
  mclosure0(c_73849, (function_type)__lambda_50);c_73849.num_args = 1; 
  __glo_code_91files_libs_file = &c_73849; 
  mclosure0(c_73822, (function_type)__lambda_47);c_73822.num_args = 2; 
  __glo_test_91file_127_libs_file = &c_73822; 
  mclosure0(c_73763, (function_type)__lambda_38);c_73763.num_args = 0; 
  __glo_random_91temp_91dir_libs_file = &c_73763; 
  mclosure0(c_73589, (function_type)__lambda_22);c_73589.num_args = 0; 
  __glo__91_125path_libs_file = &c_73589; 
  mclosure0(c_73570, (function_type)__lambda_19);c_73570.num_args = 1; 
  __glo_path_91extension_libs_file = &c_73570; 
  mclosure0(c_73554, (function_type)__lambda_17);c_73554.num_args = 1; 
  __glo_path_91strip_91extension_libs_file = &c_73554; 
  mclosure0(c_73465, (function_type)__lambda_8);c_73465.num_args = 1; 
  __glo_path_91extension_91pos_libs_file = &c_73465; 
  mclosure0(c_73444, (function_type)__lambda_6);c_73444.num_args = 1; 
  __glo_path_91strip_91directory_libs_file = &c_73444; 
  mclosure0(c_73388, (function_type)__lambda_1);c_73388.num_args = 1; 
  __glo_path_91dir_libs_file = &c_73388; 
  mclosure0(c_73387, (function_type)__lambda_73);c_73387.num_args = 1; 
  __glo_directory_91content_libs_file = &c_73387; 

  mclosure0(clo_73965, c_libsfile_inlinable_lambdas); make_pair(pair_73964, find_or_add_symbol("c_libsfile_inlinable_lambdas"), &clo_73965);
  make_cvar(cvar_73966, (object *)&__glo_lib_91init_117libsfile_libs_file);make_pair(pair_73967, find_or_add_symbol("lib-init:libsfile"), &cvar_73966);
  make_cvar(cvar_73968, (object *)&__glo_doc_91file_127_libs_file);make_pair(pair_73969, find_or_add_symbol("doc-file?"), &cvar_73968);
  make_cvar(cvar_73970, (object *)&__glo_scm_91files_libs_file);make_pair(pair_73971, find_or_add_symbol("scm-files"), &cvar_73970);
  make_cvar(cvar_73972, (object *)&__glo_sld_91files_libs_file);make_pair(pair_73973, find_or_add_symbol("sld-files"), &cvar_73972);
  make_cvar(cvar_73974, (object *)&__glo_code_91files_libs_file);make_pair(pair_73975, find_or_add_symbol("code-files"), &cvar_73974);
  make_cvar(cvar_73976, (object *)&__glo_test_91file_127_libs_file);make_pair(pair_73977, find_or_add_symbol("test-file?"), &cvar_73976);
  make_cvar(cvar_73978, (object *)&__glo_random_91temp_91dir_libs_file);make_pair(pair_73979, find_or_add_symbol("random-temp-dir"), &cvar_73978);
  make_cvar(cvar_73980, (object *)&__glo__91_125path_libs_file);make_pair(pair_73981, find_or_add_symbol("->path"), &cvar_73980);
  make_cvar(cvar_73982, (object *)&__glo_path_91extension_libs_file);make_pair(pair_73983, find_or_add_symbol("path-extension"), &cvar_73982);
  make_cvar(cvar_73984, (object *)&__glo_path_91strip_91extension_libs_file);make_pair(pair_73985, find_or_add_symbol("path-strip-extension"), &cvar_73984);
  make_cvar(cvar_73986, (object *)&__glo_path_91extension_91pos_libs_file);make_pair(pair_73987, find_or_add_symbol("path-extension-pos"), &cvar_73986);
  make_cvar(cvar_73988, (object *)&__glo_path_91strip_91directory_libs_file);make_pair(pair_73989, find_or_add_symbol("path-strip-directory"), &cvar_73988);
  make_cvar(cvar_73990, (object *)&__glo_path_91dir_libs_file);make_pair(pair_73991, find_or_add_symbol("path-dir"), &cvar_73990);
  make_cvar(cvar_73992, (object *)&__glo_directory_91content_libs_file);make_pair(pair_73993, find_or_add_symbol("directory-content"), &cvar_73992);
make_pair(c_731008, &pair_73964,Cyc_global_variables);
make_pair(c_731007, &pair_73967, &c_731008);
make_pair(c_731006, &pair_73969, &c_731007);
make_pair(c_731005, &pair_73971, &c_731006);
make_pair(c_731004, &pair_73973, &c_731005);
make_pair(c_731003, &pair_73975, &c_731004);
make_pair(c_731002, &pair_73977, &c_731003);
make_pair(c_731001, &pair_73979, &c_731002);
make_pair(c_731000, &pair_73981, &c_731001);
make_pair(c_73999, &pair_73983, &c_731000);
make_pair(c_73998, &pair_73985, &c_73999);
make_pair(c_73997, &pair_73987, &c_73998);
make_pair(c_73996, &pair_73989, &c_73997);
make_pair(c_73995, &pair_73991, &c_73996);
make_pair(c_73994, &pair_73993, &c_73995);
Cyc_global_variables = &c_73994;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117libsfile_libs_file)->fn)(data, buf[0], 1, buf);
}
void c_libsfile_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("libs_file");
  c_libsfile_entry_pt_first_lambda(data, cont, argc, value);
}
