/**
 ** 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 "cyclone/types.h"
object __glo_lib_91init_117scheme_191char_scheme__char = NULL;
object __glo_string_91foldcase_scheme__char = NULL;
object __glo_string_91downcase_scheme__char = NULL;
object __glo_string_91upcase_scheme__char = NULL;
object __glo_digit_91value_scheme__char = NULL;
object __glo_char_91whitespace_127_scheme__char = NULL;
object __glo_char_91numeric_127_scheme__char = NULL;
object __glo_char_91lower_91case_127_scheme__char = NULL;
object __glo_char_91upper_91case_127_scheme__char = NULL;
object __glo_char_91alphabetic_127_scheme__char = NULL;
object __glo_string_91ci_125_123_127_scheme__char = NULL;
object __glo_string_91ci_125_127_scheme__char = NULL;
object __glo_string_91ci_121_123_127_scheme__char = NULL;
object __glo_string_91ci_121_127_scheme__char = NULL;
object __glo_string_91ci_123_127_scheme__char = NULL;
object __glo_char_91ci_125_127_scheme__char = NULL;
object __glo_char_91ci_125_123_127_scheme__char = NULL;
object __glo_char_91ci_121_127_scheme__char = NULL;
object __glo_char_91ci_121_123_127_scheme__char = NULL;
object __glo_char_91ci_123_127_scheme__char = NULL;
object __glo_char_91foldcase_scheme__char = NULL;
object __glo_char_91downcase_scheme__char = NULL;
object __glo_char_91upcase_scheme__char = 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_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;
#include "cyclone/runtime.h"
defsymbol(char_91foldcase);
static void __lambda_38(void *data, object clo, int argc, object *args) ;/*closure _,object k_73194*/
static void __lambda_37(void *data, object clo, int argc, object *args) ;/*closure _,object k_73191, object str_7342_7379*/
static void __lambda_36(void *data, object clo, int argc, object *args) ;/*closure _,object k_73188, object str_7341_7378*/
static void __lambda_35(void *data, object clo, int argc, object *args) ;/*closure _,object k_73185, object str_7340_7377*/
static void __lambda_33(void *data, object clo, int argc, object *args) ;/*closure _,object k_73179, object c_7339_7376*/
static void __lambda_34(void *data, object clo, int argc, object *args) ;/*object self_73211, object r_73180*/
static void __lambda_31(void *data, object clo, int argc, object *args) ;/*closure _,object k_73174, object c_7338_7375*/
static void __lambda_32(void *data, object clo, int argc, object *args) ;/*object self_73210, object r_73175*/
static void __lambda_29(void *data, object clo, int argc, object *args) ;/*closure _,object k_73169, object c_7337_7374*/
static void __lambda_30(void *data, object clo, int argc, object *args) ;/*object self_73209, object r_73170*/
static void __lambda_28(void *data, object clo, int argc, object *args) ;/*closure _,object k_73165, object c_7335_7373*/
static void __lambda_27(void *data, object clo, int argc, object *args) ;/*closure _,object k_73161, object c_7333_7372*/
static void __lambda_25(void *data, object clo, int argc, object *args) ;/*closure _,object k_73157, object c_7328_7370*/
static void __lambda_26(void *data, object clo, int argc, object *args) ;/*object self_73208, object tmp_7330_7332_7371*/
static void __lambda_23(void *data, object clo, int argc, object *args) ;/*closure _,object k_73152, object s1_7326_7368, object s2_7327_7369*/
static void __lambda_24(void *data, object clo, int argc, object *args) ;/*object self_73207, object r_73153*/
static void __lambda_21(void *data, object clo, int argc, object *args) ;/*closure _,object k_73147, object s1_7324_7366, object s2_7325_7367*/
static void __lambda_22(void *data, object clo, int argc, object *args) ;/*object self_73206, object r_73148*/
static void __lambda_19(void *data, object clo, int argc, object *args) ;/*closure _,object k_73142, object s1_7322_7364, object s2_7323_7365*/
static void __lambda_20(void *data, object clo, int argc, object *args) ;/*object self_73205, object r_73143*/
static void __lambda_17(void *data, object clo, int argc, object *args) ;/*closure _,object k_73137, object s1_7320_7362, object s2_7321_7363*/
static void __lambda_18(void *data, object clo, int argc, object *args) ;/*object self_73204, object r_73138*/
static void __lambda_15(void *data, object clo, int argc, object *args) ;/*closure _,object k_73132, object s1_7318_7360, object s2_7319_7361*/
static void __lambda_16(void *data, object clo, int argc, object *args) ;/*object self_73203, object r_73133*/
static void __lambda_13(void *data, object clo, int argc, object *args) ;/*closure _,object k_73126, object c1_7315_7357, object c2_7316_7358, object cs_7317_7359_raw, ...*/
static void __lambda_14(void *data, object clo, int argc, object *args) ;/*object self_73202, object r_73127*/
static void __lambda_11(void *data, object clo, int argc, object *args) ;/*closure _,object k_73120, object c1_7312_7354, object c2_7313_7355, object cs_7314_7356_raw, ...*/
static void __lambda_12(void *data, object clo, int argc, object *args) ;/*object self_73201, object r_73121*/
static void __lambda_9(void *data, object clo, int argc, object *args) ;/*closure _,object k_73114, object c1_739_7351, object c2_7310_7352, object cs_7311_7353_raw, ...*/
static void __lambda_10(void *data, object clo, int argc, object *args) ;/*object self_73200, object r_73115*/
static void __lambda_7(void *data, object clo, int argc, object *args) ;/*closure _,object k_73108, object c1_736_7348, object c2_737_7349, object cs_738_7350_raw, ...*/
static void __lambda_8(void *data, object clo, int argc, object *args) ;/*object self_73199, object r_73109*/
static void __lambda_5(void *data, object clo, int argc, object *args) ;/*closure _,object k_73102, object c1_733_7345, object c2_734_7346, object cs_735_7347_raw, ...*/
static void __lambda_6(void *data, object clo, int argc, object *args) ;/*object self_73198, object r_73103*/
static void __lambda_3(void *data, object clo, int argc, object *args) ;/*closure _,object k_7391, object c_732_7344*/
static void __lambda_4(void *data, object clo, int argc, object *args) ;/*object self_73197, object r_7392*/
static void __lambda_1(void *data, object clo, int argc, object *args) ;/*closure _,object k_7382, object c_731_7343*/
static void __lambda_2(void *data, object clo, int argc, object *args) ;/*object self_73196, object r_7383*/

static void __lambda_38(void *data, object _, int argc, object *args) /* closure _,object k_73194 */
 {
object k_73194 = args[0];
  Cyc_st_add(data, "scheme/char.sld:lib-init:scheme_char");

object c_73462 = global_set_cps_id(data,  k_73194,"__glo_char_91foldcase_scheme__char", __glo_char_91foldcase_scheme__char, __glo_char_91downcase_scheme__char);
return_direct_with_clo1(data,  k_73194, (((closure)  k_73194)->fn),  c_73462);; 
}

static void __lambda_37(void *data, object _, int argc, object *args) /* closure _,object k_73191, object str_7342_7379 */
 {
object k_73191 = args[0]; object str_7342_7379 = args[1];
  Cyc_st_add(data, "scheme/char.sld:string-foldcase");
return_direct_with_clo3(data,  __glo_string_91map_scheme_base, (((closure)  __glo_string_91map_scheme_base)->fn),  k_73191, __glo_char_91foldcase_scheme__char, str_7342_7379);; 
}

static void __lambda_36(void *data, object _, int argc, object *args) /* closure _,object k_73188, object str_7341_7378 */
 {
object k_73188 = args[0]; object str_7341_7378 = args[1];
  Cyc_st_add(data, "scheme/char.sld:string-downcase");
return_direct_with_clo3(data,  __glo_string_91map_scheme_base, (((closure)  __glo_string_91map_scheme_base)->fn),  k_73188, __glo_char_91downcase_scheme__char, str_7341_7378);; 
}

static void __lambda_35(void *data, object _, int argc, object *args) /* closure _,object k_73185, object str_7340_7377 */
 {
object k_73185 = args[0]; object str_7340_7377 = args[1];
  Cyc_st_add(data, "scheme/char.sld:string-upcase");
return_direct_with_clo3(data,  __glo_string_91map_scheme_base, (((closure)  __glo_string_91map_scheme_base)->fn),  k_73185, __glo_char_91upcase_scheme__char, str_7340_7377);; 
}

static void __lambda_33(void *data, object _, int argc, object *args) /* closure _,object k_73179, object c_7339_7376 */
 {
object k_73179 = args[0]; object c_7339_7376 = args[1];
  Cyc_st_add(data, "scheme/char.sld:digit-value");

closureN_type c_73440;
object e_73451 [2];
c_73440.hdr.mark = gc_color_red;
 c_73440.hdr.grayed = 0;
c_73440.tag = closureN_tag;
 c_73440.fn = (function_type)__lambda_34;
c_73440.num_args = 1;
c_73440.num_elements = 2;
c_73440.elements = (object *)e_73451;
c_73440.elements[0] = c_7339_7376;
c_73440.elements[1] = k_73179;

return_direct_with_clo2(data,  __glo_char_91numeric_127_scheme__char, (((closure)  __glo_char_91numeric_127_scheme__char)->fn),  &c_73440, c_7339_7376);; 
}

static void __lambda_34(void *data, object self_73211, int argc, object *args) /* object self_73211, object r_73180 */
 {
 object r_73180 = args[0];
  if( (boolean_f != r_73180) ){ 
  
complex_num_type local_73445; 


return_direct_with_clo1(data,  ((closureN)self_73211)->elements[1], (((closure)  ((closureN)self_73211)->elements[1])->fn),  Cyc_fast_sub(data,&local_73445, Cyc_char2integer(((closureN)self_73211)->elements[0]), obj_int2obj(48)));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73211)->elements[1], (((closure)  ((closureN)self_73211)->elements[1])->fn),  boolean_f);}
;; 
}

static void __lambda_31(void *data, object _, int argc, object *args) /* closure _,object k_73174, object c_7338_7375 */
 {
object k_73174 = args[0]; object c_7338_7375 = args[1];
  Cyc_st_add(data, "scheme/char.sld:char-whitespace?");

closureN_type c_73426;
object e_73431 [1];
c_73426.hdr.mark = gc_color_red;
 c_73426.hdr.grayed = 0;
c_73426.tag = closureN_tag;
 c_73426.fn = (function_type)__lambda_32;
c_73426.num_args = 1;
c_73426.num_elements = 1;
c_73426.elements = (object *)e_73431;
c_73426.elements[0] = k_73174;




make_pair(c_73437,obj_char2obj(10),NULL);c_73437.hdr.immutable = 1;

make_pair(c_73436,obj_char2obj(13),&c_73437);c_73436.hdr.immutable = 1;

make_pair(c_73435,obj_char2obj(32),&c_73436);c_73435.hdr.immutable = 1;

make_pair(c_73434,obj_char2obj(9),&c_73435);c_73434.hdr.immutable = 1;
return_direct_with_clo1(data,(closure)&c_73426,__lambda_32,  memberp(data, c_7338_7375, &c_73434));; 
}

static void __lambda_32(void *data, object self_73210, int argc, object *args) /* object self_73210, object r_73175 */
 {
 object r_73175 = args[0];
  if( (boolean_f != r_73175) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73210)->elements[0], (((closure)  ((closureN)self_73210)->elements[0])->fn),  boolean_t);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73210)->elements[0], (((closure)  ((closureN)self_73210)->elements[0])->fn),  boolean_f);}
;; 
}

static void __lambda_29(void *data, object _, int argc, object *args) /* closure _,object k_73169, object c_7337_7374 */
 {
object k_73169 = args[0]; object c_7337_7374 = args[1];
  Cyc_st_add(data, "scheme/char.sld:char-numeric?");

closureN_type c_73406;
object e_73411 [1];
c_73406.hdr.mark = gc_color_red;
 c_73406.hdr.grayed = 0;
c_73406.tag = closureN_tag;
 c_73406.fn = (function_type)__lambda_30;
c_73406.num_args = 1;
c_73406.num_elements = 1;
c_73406.elements = (object *)e_73411;
c_73406.elements[0] = k_73169;




make_pair(c_73423,obj_char2obj(57),NULL);c_73423.hdr.immutable = 1;

make_pair(c_73422,obj_char2obj(56),&c_73423);c_73422.hdr.immutable = 1;

make_pair(c_73421,obj_char2obj(55),&c_73422);c_73421.hdr.immutable = 1;

make_pair(c_73420,obj_char2obj(54),&c_73421);c_73420.hdr.immutable = 1;

make_pair(c_73419,obj_char2obj(53),&c_73420);c_73419.hdr.immutable = 1;

make_pair(c_73418,obj_char2obj(52),&c_73419);c_73418.hdr.immutable = 1;

make_pair(c_73417,obj_char2obj(51),&c_73418);c_73417.hdr.immutable = 1;

make_pair(c_73416,obj_char2obj(50),&c_73417);c_73416.hdr.immutable = 1;

make_pair(c_73415,obj_char2obj(49),&c_73416);c_73415.hdr.immutable = 1;

make_pair(c_73414,obj_char2obj(48),&c_73415);c_73414.hdr.immutable = 1;
return_direct_with_clo1(data,(closure)&c_73406,__lambda_30,  memberp(data, c_7337_7374, &c_73414));; 
}

static void __lambda_30(void *data, object self_73209, int argc, object *args) /* object self_73209, object r_73170 */
 {
 object r_73170 = args[0];
  if( (boolean_f != r_73170) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73209)->elements[0], (((closure)  ((closureN)self_73209)->elements[0])->fn),  boolean_t);
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73209)->elements[0], (((closure)  ((closureN)self_73209)->elements[0])->fn),  boolean_f);}
;; 
}

static void __lambda_28(void *data, object _, int argc, object *args) /* closure _,object k_73165, object c_7335_7373 */
 {
object k_73165 = args[0]; object c_7335_7373 = args[1];
  Cyc_st_add(data, "scheme/char.sld:char-lower-case?");
  
if( (boolean_f != Cyc_char_gte_op(data, c_7335_7373, obj_char2obj(97))) ){ 
  

return_direct_with_clo1(data,  k_73165, (((closure)  k_73165)->fn),  Cyc_char_lte_op(data, c_7335_7373, obj_char2obj(122)));
} else { 
  return_direct_with_clo1(data,  k_73165, (((closure)  k_73165)->fn),  boolean_f);}
;; 
}

static void __lambda_27(void *data, object _, int argc, object *args) /* closure _,object k_73161, object c_7333_7372 */
 {
object k_73161 = args[0]; object c_7333_7372 = args[1];
  Cyc_st_add(data, "scheme/char.sld:char-upper-case?");
  
if( (boolean_f != Cyc_char_gte_op(data, c_7333_7372, obj_char2obj(65))) ){ 
  

return_direct_with_clo1(data,  k_73161, (((closure)  k_73161)->fn),  Cyc_char_lte_op(data, c_7333_7372, obj_char2obj(90)));
} else { 
  return_direct_with_clo1(data,  k_73161, (((closure)  k_73161)->fn),  boolean_f);}
;; 
}

static void __lambda_25(void *data, object _, int argc, object *args) /* closure _,object k_73157, object c_7328_7370 */
 {
object k_73157 = args[0]; object c_7328_7370 = args[1];
  Cyc_st_add(data, "scheme/char.sld:char-alphabetic?");

closureN_type c_73383;
object e_73389 [2];
c_73383.hdr.mark = gc_color_red;
 c_73383.hdr.grayed = 0;
c_73383.tag = closureN_tag;
 c_73383.fn = (function_type)__lambda_26;
c_73383.num_args = 1;
c_73383.num_elements = 2;
c_73383.elements = (object *)e_73389;
c_73383.elements[0] = c_7328_7370;
c_73383.elements[1] = k_73157;

return_direct_with_clo2(data,  __glo_char_91upper_91case_127_scheme__char, (((closure)  __glo_char_91upper_91case_127_scheme__char)->fn),  &c_73383, c_7328_7370);; 
}

static void __lambda_26(void *data, object self_73208, int argc, object *args) /* object self_73208, object tmp_7330_7332_7371 */
 {
 object tmp_7330_7332_7371 = args[0];
  if( (boolean_f != tmp_7330_7332_7371) ){ 
  return_direct_with_clo1(data,  ((closureN)self_73208)->elements[1], (((closure)  ((closureN)self_73208)->elements[1])->fn),  tmp_7330_7332_7371);
} else { 
  return_direct_with_clo2(data,  __glo_char_91lower_91case_127_scheme__char, (((closure)  __glo_char_91lower_91case_127_scheme__char)->fn),  ((closureN)self_73208)->elements[1], ((closureN)self_73208)->elements[0]);}
;; 
}

static void __lambda_23(void *data, object _, int argc, object *args) /* closure _,object k_73152, object s1_7326_7368, object s2_7327_7369 */
 {
object k_73152 = args[0]; object s1_7326_7368 = args[1]; object s2_7327_7369 = args[2];
  Cyc_st_add(data, "scheme/char.sld:string-ci>=?");

closureN_type c_73371;
object e_73377 [1];
c_73371.hdr.mark = gc_color_red;
 c_73371.hdr.grayed = 0;
c_73371.tag = closureN_tag;
 c_73371.fn = (function_type)__lambda_24;
c_73371.num_args = 1;
c_73371.num_elements = 1;
c_73371.elements = (object *)e_73377;
c_73371.elements[0] = k_73152;


list_2_type local_73380; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73371, __glo_string_91foldcase_scheme__char, Cyc_fast_list_2(&local_73380, s1_7326_7368, s2_7327_7369));; 
}

static void __lambda_24(void *data, object self_73207, int argc, object *args) /* object self_73207, object r_73153 */
 {
 object r_73153 = args[0];
  
object c_73376 = apply(data,  ((closureN)self_73207)->elements[0],__glo_string_125_123_127_scheme_base, r_73153);
return_direct_with_clo1(data,  ((closureN)self_73207)->elements[0], (((closure)  ((closureN)self_73207)->elements[0])->fn),  c_73376);; 
}

static void __lambda_21(void *data, object _, int argc, object *args) /* closure _,object k_73147, object s1_7324_7366, object s2_7325_7367 */
 {
object k_73147 = args[0]; object s1_7324_7366 = args[1]; object s2_7325_7367 = args[2];
  Cyc_st_add(data, "scheme/char.sld:string-ci>?");

closureN_type c_73359;
object e_73365 [1];
c_73359.hdr.mark = gc_color_red;
 c_73359.hdr.grayed = 0;
c_73359.tag = closureN_tag;
 c_73359.fn = (function_type)__lambda_22;
c_73359.num_args = 1;
c_73359.num_elements = 1;
c_73359.elements = (object *)e_73365;
c_73359.elements[0] = k_73147;


list_2_type local_73368; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73359, __glo_string_91foldcase_scheme__char, Cyc_fast_list_2(&local_73368, s1_7324_7366, s2_7325_7367));; 
}

static void __lambda_22(void *data, object self_73206, int argc, object *args) /* object self_73206, object r_73148 */
 {
 object r_73148 = args[0];
  
object c_73364 = apply(data,  ((closureN)self_73206)->elements[0],__glo_string_125_127_scheme_base, r_73148);
return_direct_with_clo1(data,  ((closureN)self_73206)->elements[0], (((closure)  ((closureN)self_73206)->elements[0])->fn),  c_73364);; 
}

static void __lambda_19(void *data, object _, int argc, object *args) /* closure _,object k_73142, object s1_7322_7364, object s2_7323_7365 */
 {
object k_73142 = args[0]; object s1_7322_7364 = args[1]; object s2_7323_7365 = args[2];
  Cyc_st_add(data, "scheme/char.sld:string-ci<=?");

closureN_type c_73347;
object e_73353 [1];
c_73347.hdr.mark = gc_color_red;
 c_73347.hdr.grayed = 0;
c_73347.tag = closureN_tag;
 c_73347.fn = (function_type)__lambda_20;
c_73347.num_args = 1;
c_73347.num_elements = 1;
c_73347.elements = (object *)e_73353;
c_73347.elements[0] = k_73142;


list_2_type local_73356; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73347, __glo_string_91foldcase_scheme__char, Cyc_fast_list_2(&local_73356, s1_7322_7364, s2_7323_7365));; 
}

static void __lambda_20(void *data, object self_73205, int argc, object *args) /* object self_73205, object r_73143 */
 {
 object r_73143 = args[0];
  
object c_73352 = apply(data,  ((closureN)self_73205)->elements[0],__glo_string_121_123_127_scheme_base, r_73143);
return_direct_with_clo1(data,  ((closureN)self_73205)->elements[0], (((closure)  ((closureN)self_73205)->elements[0])->fn),  c_73352);; 
}

static void __lambda_17(void *data, object _, int argc, object *args) /* closure _,object k_73137, object s1_7320_7362, object s2_7321_7363 */
 {
object k_73137 = args[0]; object s1_7320_7362 = args[1]; object s2_7321_7363 = args[2];
  Cyc_st_add(data, "scheme/char.sld:string-ci<?");

closureN_type c_73335;
object e_73341 [1];
c_73335.hdr.mark = gc_color_red;
 c_73335.hdr.grayed = 0;
c_73335.tag = closureN_tag;
 c_73335.fn = (function_type)__lambda_18;
c_73335.num_args = 1;
c_73335.num_elements = 1;
c_73335.elements = (object *)e_73341;
c_73335.elements[0] = k_73137;


list_2_type local_73344; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73335, __glo_string_91foldcase_scheme__char, Cyc_fast_list_2(&local_73344, s1_7320_7362, s2_7321_7363));; 
}

static void __lambda_18(void *data, object self_73204, int argc, object *args) /* object self_73204, object r_73138 */
 {
 object r_73138 = args[0];
  
object c_73340 = apply(data,  ((closureN)self_73204)->elements[0],__glo_string_121_127_scheme_base, r_73138);
return_direct_with_clo1(data,  ((closureN)self_73204)->elements[0], (((closure)  ((closureN)self_73204)->elements[0])->fn),  c_73340);; 
}

static void __lambda_15(void *data, object _, int argc, object *args) /* closure _,object k_73132, object s1_7318_7360, object s2_7319_7361 */
 {
object k_73132 = args[0]; object s1_7318_7360 = args[1]; object s2_7319_7361 = args[2];
  Cyc_st_add(data, "scheme/char.sld:string-ci=?");

closureN_type c_73323;
object e_73329 [1];
c_73323.hdr.mark = gc_color_red;
 c_73323.hdr.grayed = 0;
c_73323.tag = closureN_tag;
 c_73323.fn = (function_type)__lambda_16;
c_73323.num_args = 1;
c_73323.num_elements = 1;
c_73323.elements = (object *)e_73329;
c_73323.elements[0] = k_73132;


list_2_type local_73332; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73323, __glo_string_91foldcase_scheme__char, Cyc_fast_list_2(&local_73332, s1_7318_7360, s2_7319_7361));; 
}

static void __lambda_16(void *data, object self_73203, int argc, object *args) /* object self_73203, object r_73133 */
 {
 object r_73133 = args[0];
  
object c_73328 = apply(data,  ((closureN)self_73203)->elements[0],__glo_string_123_127_scheme_base, r_73133);
return_direct_with_clo1(data,  ((closureN)self_73203)->elements[0], (((closure)  ((closureN)self_73203)->elements[0])->fn),  c_73328);; 
}

static void __lambda_13(void *data, object _, int argc, object *args) /* closure _,object k_73126, object c1_7315_7357, object c2_7316_7358, object cs_7317_7359_raw, ... */
 {
object k_73126 = args[0]; object c1_7315_7357 = args[1]; object c2_7316_7358 = args[2];
load_varargs(cs_7317_7359, args, 3, argc - 3);
  Cyc_st_add(data, "scheme/char.sld:char-ci>?");

closureN_type c_73308;
object e_73314 [1];
c_73308.hdr.mark = gc_color_red;
 c_73308.hdr.grayed = 0;
c_73308.tag = closureN_tag;
 c_73308.fn = (function_type)__lambda_14;
c_73308.num_args = 1;
c_73308.num_elements = 1;
c_73308.elements = (object *)e_73314;
c_73308.elements[0] = k_73126;


pair_type local_73317; 

pair_type local_73320; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73308, __glo_char_91foldcase_scheme__char, set_pair_as_expr(&local_73317, c1_7315_7357, set_pair_as_expr(&local_73320, c2_7316_7358, cs_7317_7359)));; 
}

static void __lambda_14(void *data, object self_73202, int argc, object *args) /* object self_73202, object r_73127 */
 {
 object r_73127 = args[0];
  
object c_73313 = apply(data,  ((closureN)self_73202)->elements[0],__glo_char_125_127_scheme_base, r_73127);
return_direct_with_clo1(data,  ((closureN)self_73202)->elements[0], (((closure)  ((closureN)self_73202)->elements[0])->fn),  c_73313);; 
}

static void __lambda_11(void *data, object _, int argc, object *args) /* closure _,object k_73120, object c1_7312_7354, object c2_7313_7355, object cs_7314_7356_raw, ... */
 {
object k_73120 = args[0]; object c1_7312_7354 = args[1]; object c2_7313_7355 = args[2];
load_varargs(cs_7314_7356, args, 3, argc - 3);
  Cyc_st_add(data, "scheme/char.sld:char-ci>=?");

closureN_type c_73293;
object e_73299 [1];
c_73293.hdr.mark = gc_color_red;
 c_73293.hdr.grayed = 0;
c_73293.tag = closureN_tag;
 c_73293.fn = (function_type)__lambda_12;
c_73293.num_args = 1;
c_73293.num_elements = 1;
c_73293.elements = (object *)e_73299;
c_73293.elements[0] = k_73120;


pair_type local_73302; 

pair_type local_73305; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73293, __glo_char_91foldcase_scheme__char, set_pair_as_expr(&local_73302, c1_7312_7354, set_pair_as_expr(&local_73305, c2_7313_7355, cs_7314_7356)));; 
}

static void __lambda_12(void *data, object self_73201, int argc, object *args) /* object self_73201, object r_73121 */
 {
 object r_73121 = args[0];
  
object c_73298 = apply(data,  ((closureN)self_73201)->elements[0],__glo_char_125_123_127_scheme_base, r_73121);
return_direct_with_clo1(data,  ((closureN)self_73201)->elements[0], (((closure)  ((closureN)self_73201)->elements[0])->fn),  c_73298);; 
}

static void __lambda_9(void *data, object _, int argc, object *args) /* closure _,object k_73114, object c1_739_7351, object c2_7310_7352, object cs_7311_7353_raw, ... */
 {
object k_73114 = args[0]; object c1_739_7351 = args[1]; object c2_7310_7352 = args[2];
load_varargs(cs_7311_7353, args, 3, argc - 3);
  Cyc_st_add(data, "scheme/char.sld:char-ci<?");

closureN_type c_73278;
object e_73284 [1];
c_73278.hdr.mark = gc_color_red;
 c_73278.hdr.grayed = 0;
c_73278.tag = closureN_tag;
 c_73278.fn = (function_type)__lambda_10;
c_73278.num_args = 1;
c_73278.num_elements = 1;
c_73278.elements = (object *)e_73284;
c_73278.elements[0] = k_73114;


pair_type local_73287; 

pair_type local_73290; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73278, __glo_char_91foldcase_scheme__char, set_pair_as_expr(&local_73287, c1_739_7351, set_pair_as_expr(&local_73290, c2_7310_7352, cs_7311_7353)));; 
}

static void __lambda_10(void *data, object self_73200, int argc, object *args) /* object self_73200, object r_73115 */
 {
 object r_73115 = args[0];
  
object c_73283 = apply(data,  ((closureN)self_73200)->elements[0],__glo_char_121_127_scheme_base, r_73115);
return_direct_with_clo1(data,  ((closureN)self_73200)->elements[0], (((closure)  ((closureN)self_73200)->elements[0])->fn),  c_73283);; 
}

static void __lambda_7(void *data, object _, int argc, object *args) /* closure _,object k_73108, object c1_736_7348, object c2_737_7349, object cs_738_7350_raw, ... */
 {
object k_73108 = args[0]; object c1_736_7348 = args[1]; object c2_737_7349 = args[2];
load_varargs(cs_738_7350, args, 3, argc - 3);
  Cyc_st_add(data, "scheme/char.sld:char-ci<=?");

closureN_type c_73263;
object e_73269 [1];
c_73263.hdr.mark = gc_color_red;
 c_73263.hdr.grayed = 0;
c_73263.tag = closureN_tag;
 c_73263.fn = (function_type)__lambda_8;
c_73263.num_args = 1;
c_73263.num_elements = 1;
c_73263.elements = (object *)e_73269;
c_73263.elements[0] = k_73108;


pair_type local_73272; 

pair_type local_73275; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73263, __glo_char_91foldcase_scheme__char, set_pair_as_expr(&local_73272, c1_736_7348, set_pair_as_expr(&local_73275, c2_737_7349, cs_738_7350)));; 
}

static void __lambda_8(void *data, object self_73199, int argc, object *args) /* object self_73199, object r_73109 */
 {
 object r_73109 = args[0];
  
object c_73268 = apply(data,  ((closureN)self_73199)->elements[0],__glo_char_121_123_127_scheme_base, r_73109);
return_direct_with_clo1(data,  ((closureN)self_73199)->elements[0], (((closure)  ((closureN)self_73199)->elements[0])->fn),  c_73268);; 
}

static void __lambda_5(void *data, object _, int argc, object *args) /* closure _,object k_73102, object c1_733_7345, object c2_734_7346, object cs_735_7347_raw, ... */
 {
object k_73102 = args[0]; object c1_733_7345 = args[1]; object c2_734_7346 = args[2];
load_varargs(cs_735_7347, args, 3, argc - 3);
  Cyc_st_add(data, "scheme/char.sld:char-ci=?");

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


pair_type local_73257; 

pair_type local_73260; 
return_direct_with_clo3(data,  __glo_Cyc_91map_91loop_911_scheme_base, (((closure)  __glo_Cyc_91map_91loop_911_scheme_base)->fn),  &c_73248, __glo_char_91foldcase_scheme__char, set_pair_as_expr(&local_73257, c1_733_7345, set_pair_as_expr(&local_73260, c2_734_7346, cs_735_7347)));; 
}

static void __lambda_6(void *data, object self_73198, int argc, object *args) /* object self_73198, object r_73103 */
 {
 object r_73103 = args[0];
  
object c_73253 = apply(data,  ((closureN)self_73198)->elements[0],__glo_char_123_127_scheme_base, r_73103);
return_direct_with_clo1(data,  ((closureN)self_73198)->elements[0], (((closure)  ((closureN)self_73198)->elements[0])->fn),  c_73253);; 
}

static void __lambda_3(void *data, object _, int argc, object *args) /* closure _,object k_7391, object c_732_7344 */
 {
object k_7391 = args[0]; object c_732_7344 = args[1];
  Cyc_st_add(data, "scheme/char.sld:char-downcase");

closureN_type c_73231;
object e_73245 [2];
c_73231.hdr.mark = gc_color_red;
 c_73231.hdr.grayed = 0;
c_73231.tag = closureN_tag;
 c_73231.fn = (function_type)__lambda_4;
c_73231.num_args = 1;
c_73231.num_elements = 2;
c_73231.elements = (object *)e_73245;
c_73231.elements[0] = c_732_7344;
c_73231.elements[1] = k_7391;

return_direct_with_clo2(data,  __glo_char_91upper_91case_127_scheme__char, (((closure)  __glo_char_91upper_91case_127_scheme__char)->fn),  &c_73231, c_732_7344);; 
}

static void __lambda_4(void *data, object self_73197, int argc, object *args) /* object self_73197, object r_7392 */
 {
 object r_7392 = args[0];
  if( (boolean_f != r_7392) ){ 
  


complex_num_type local_73238; 


return_direct_with_clo1(data,  ((closureN)self_73197)->elements[1], (((closure)  ((closureN)self_73197)->elements[1])->fn),  Cyc_integer2char(data, Cyc_fast_sum(data,&local_73238, Cyc_char2integer(((closureN)self_73197)->elements[0]), obj_int2obj(32))));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73197)->elements[1], (((closure)  ((closureN)self_73197)->elements[1])->fn),  ((closureN)self_73197)->elements[0]);}
;; 
}

static void __lambda_1(void *data, object _, int argc, object *args) /* closure _,object k_7382, object c_731_7343 */
 {
object k_7382 = args[0]; object c_731_7343 = args[1];
  Cyc_st_add(data, "scheme/char.sld:char-upcase");

closureN_type c_73214;
object e_73228 [2];
c_73214.hdr.mark = gc_color_red;
 c_73214.hdr.grayed = 0;
c_73214.tag = closureN_tag;
 c_73214.fn = (function_type)__lambda_2;
c_73214.num_args = 1;
c_73214.num_elements = 2;
c_73214.elements = (object *)e_73228;
c_73214.elements[0] = c_731_7343;
c_73214.elements[1] = k_7382;

return_direct_with_clo2(data,  __glo_char_91lower_91case_127_scheme__char, (((closure)  __glo_char_91lower_91case_127_scheme__char)->fn),  &c_73214, c_731_7343);; 
}

static void __lambda_2(void *data, object self_73196, int argc, object *args) /* object self_73196, object r_7383 */
 {
 object r_7383 = args[0];
  if( (boolean_f != r_7383) ){ 
  


complex_num_type local_73221; 


return_direct_with_clo1(data,  ((closureN)self_73196)->elements[1], (((closure)  ((closureN)self_73196)->elements[1])->fn),  Cyc_integer2char(data, Cyc_fast_sub(data,&local_73221, Cyc_char2integer(((closureN)self_73196)->elements[0]), obj_int2obj(32))));
} else { 
  return_direct_with_clo1(data,  ((closureN)self_73196)->elements[1], (((closure)  ((closureN)self_73196)->elements[1])->fn),  ((closureN)self_73196)->elements[0]);}
;; 
}

void c_scheme_char_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_scheme_char_entry_pt_first_lambda(void *data, object clo, int argc, object *args){ 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_char_91foldcase = find_or_add_symbol("char-foldcase");

  add_global("__glo_lib_91init_117scheme_191char_scheme__char", (object *) &__glo_lib_91init_117scheme_191char_scheme__char);
  add_global("__glo_string_91foldcase_scheme__char", (object *) &__glo_string_91foldcase_scheme__char);
  add_global("__glo_string_91downcase_scheme__char", (object *) &__glo_string_91downcase_scheme__char);
  add_global("__glo_string_91upcase_scheme__char", (object *) &__glo_string_91upcase_scheme__char);
  add_global("__glo_digit_91value_scheme__char", (object *) &__glo_digit_91value_scheme__char);
  add_global("__glo_char_91whitespace_127_scheme__char", (object *) &__glo_char_91whitespace_127_scheme__char);
  add_global("__glo_char_91numeric_127_scheme__char", (object *) &__glo_char_91numeric_127_scheme__char);
  add_global("__glo_char_91lower_91case_127_scheme__char", (object *) &__glo_char_91lower_91case_127_scheme__char);
  add_global("__glo_char_91upper_91case_127_scheme__char", (object *) &__glo_char_91upper_91case_127_scheme__char);
  add_global("__glo_char_91alphabetic_127_scheme__char", (object *) &__glo_char_91alphabetic_127_scheme__char);
  add_global("__glo_string_91ci_125_123_127_scheme__char", (object *) &__glo_string_91ci_125_123_127_scheme__char);
  add_global("__glo_string_91ci_125_127_scheme__char", (object *) &__glo_string_91ci_125_127_scheme__char);
  add_global("__glo_string_91ci_121_123_127_scheme__char", (object *) &__glo_string_91ci_121_123_127_scheme__char);
  add_global("__glo_string_91ci_121_127_scheme__char", (object *) &__glo_string_91ci_121_127_scheme__char);
  add_global("__glo_string_91ci_123_127_scheme__char", (object *) &__glo_string_91ci_123_127_scheme__char);
  add_global("__glo_char_91ci_125_127_scheme__char", (object *) &__glo_char_91ci_125_127_scheme__char);
  add_global("__glo_char_91ci_125_123_127_scheme__char", (object *) &__glo_char_91ci_125_123_127_scheme__char);
  add_global("__glo_char_91ci_121_127_scheme__char", (object *) &__glo_char_91ci_121_127_scheme__char);
  add_global("__glo_char_91ci_121_123_127_scheme__char", (object *) &__glo_char_91ci_121_123_127_scheme__char);
  add_global("__glo_char_91ci_123_127_scheme__char", (object *) &__glo_char_91ci_123_127_scheme__char);
  add_global("__glo_char_91foldcase_scheme__char", (object *) &__glo_char_91foldcase_scheme__char);
  add_global("__glo_char_91downcase_scheme__char", (object *) &__glo_char_91downcase_scheme__char);
  add_global("__glo_char_91upcase_scheme__char", (object *) &__glo_char_91upcase_scheme__char);
  mclosure0(c_73458, (function_type)__lambda_38);c_73458.num_args = 0; 
  __glo_lib_91init_117scheme_191char_scheme__char = &c_73458; 
  mclosure0(c_73456, (function_type)__lambda_37);c_73456.num_args = 1; 
  __glo_string_91foldcase_scheme__char = &c_73456; 
  mclosure0(c_73454, (function_type)__lambda_36);c_73454.num_args = 1; 
  __glo_string_91downcase_scheme__char = &c_73454; 
  mclosure0(c_73452, (function_type)__lambda_35);c_73452.num_args = 1; 
  __glo_string_91upcase_scheme__char = &c_73452; 
  mclosure0(c_73438, (function_type)__lambda_33);c_73438.num_args = 1; 
  __glo_digit_91value_scheme__char = &c_73438; 
  mclosure0(c_73424, (function_type)__lambda_31);c_73424.num_args = 1; 
  __glo_char_91whitespace_127_scheme__char = &c_73424; 
  mclosure0(c_73404, (function_type)__lambda_29);c_73404.num_args = 1; 
  __glo_char_91numeric_127_scheme__char = &c_73404; 
  mclosure0(c_73397, (function_type)__lambda_28);c_73397.num_args = 1; 
  __glo_char_91lower_91case_127_scheme__char = &c_73397; 
  mclosure0(c_73390, (function_type)__lambda_27);c_73390.num_args = 1; 
  __glo_char_91upper_91case_127_scheme__char = &c_73390; 
  mclosure0(c_73381, (function_type)__lambda_25);c_73381.num_args = 1; 
  __glo_char_91alphabetic_127_scheme__char = &c_73381; 
  mclosure0(c_73369, (function_type)__lambda_23);c_73369.num_args = 2; 
  __glo_string_91ci_125_123_127_scheme__char = &c_73369; 
  mclosure0(c_73357, (function_type)__lambda_21);c_73357.num_args = 2; 
  __glo_string_91ci_125_127_scheme__char = &c_73357; 
  mclosure0(c_73345, (function_type)__lambda_19);c_73345.num_args = 2; 
  __glo_string_91ci_121_123_127_scheme__char = &c_73345; 
  mclosure0(c_73333, (function_type)__lambda_17);c_73333.num_args = 2; 
  __glo_string_91ci_121_127_scheme__char = &c_73333; 
  mclosure0(c_73321, (function_type)__lambda_15);c_73321.num_args = 2; 
  __glo_string_91ci_123_127_scheme__char = &c_73321; 
  mclosure0(c_73306, (function_type)__lambda_13);c_73306.num_args = 2; 
  __glo_char_91ci_125_127_scheme__char = &c_73306; 
  mclosure0(c_73291, (function_type)__lambda_11);c_73291.num_args = 2; 
  __glo_char_91ci_125_123_127_scheme__char = &c_73291; 
  mclosure0(c_73276, (function_type)__lambda_9);c_73276.num_args = 2; 
  __glo_char_91ci_121_127_scheme__char = &c_73276; 
  mclosure0(c_73261, (function_type)__lambda_7);c_73261.num_args = 2; 
  __glo_char_91ci_121_123_127_scheme__char = &c_73261; 
  mclosure0(c_73246, (function_type)__lambda_5);c_73246.num_args = 2; 
  __glo_char_91ci_123_127_scheme__char = &c_73246; 
  mclosure0(c_73229, (function_type)__lambda_3);c_73229.num_args = 1; 
  __glo_char_91downcase_scheme__char = &c_73229; 
  mclosure0(c_73212, (function_type)__lambda_1);c_73212.num_args = 1; 
  __glo_char_91upcase_scheme__char = &c_73212; 
  __glo_char_91foldcase_scheme__char = boolean_f; 

  mclosure0(clo_73464, c_scheme_char_inlinable_lambdas); make_pair(pair_73463, find_or_add_symbol("c_scheme_char_inlinable_lambdas"), &clo_73464);
  make_cvar(cvar_73465, (object *)&__glo_lib_91init_117scheme_191char_scheme__char);make_pair(pair_73466, find_or_add_symbol("lib-init:scheme_char"), &cvar_73465);
  make_cvar(cvar_73467, (object *)&__glo_string_91foldcase_scheme__char);make_pair(pair_73468, find_or_add_symbol("string-foldcase"), &cvar_73467);
  make_cvar(cvar_73469, (object *)&__glo_string_91downcase_scheme__char);make_pair(pair_73470, find_or_add_symbol("string-downcase"), &cvar_73469);
  make_cvar(cvar_73471, (object *)&__glo_string_91upcase_scheme__char);make_pair(pair_73472, find_or_add_symbol("string-upcase"), &cvar_73471);
  make_cvar(cvar_73473, (object *)&__glo_digit_91value_scheme__char);make_pair(pair_73474, find_or_add_symbol("digit-value"), &cvar_73473);
  make_cvar(cvar_73475, (object *)&__glo_char_91whitespace_127_scheme__char);make_pair(pair_73476, find_or_add_symbol("char-whitespace?"), &cvar_73475);
  make_cvar(cvar_73477, (object *)&__glo_char_91numeric_127_scheme__char);make_pair(pair_73478, find_or_add_symbol("char-numeric?"), &cvar_73477);
  make_cvar(cvar_73479, (object *)&__glo_char_91lower_91case_127_scheme__char);make_pair(pair_73480, find_or_add_symbol("char-lower-case?"), &cvar_73479);
  make_cvar(cvar_73481, (object *)&__glo_char_91upper_91case_127_scheme__char);make_pair(pair_73482, find_or_add_symbol("char-upper-case?"), &cvar_73481);
  make_cvar(cvar_73483, (object *)&__glo_char_91alphabetic_127_scheme__char);make_pair(pair_73484, find_or_add_symbol("char-alphabetic?"), &cvar_73483);
  make_cvar(cvar_73485, (object *)&__glo_string_91ci_125_123_127_scheme__char);make_pair(pair_73486, find_or_add_symbol("string-ci>=?"), &cvar_73485);
  make_cvar(cvar_73487, (object *)&__glo_string_91ci_125_127_scheme__char);make_pair(pair_73488, find_or_add_symbol("string-ci>?"), &cvar_73487);
  make_cvar(cvar_73489, (object *)&__glo_string_91ci_121_123_127_scheme__char);make_pair(pair_73490, find_or_add_symbol("string-ci<=?"), &cvar_73489);
  make_cvar(cvar_73491, (object *)&__glo_string_91ci_121_127_scheme__char);make_pair(pair_73492, find_or_add_symbol("string-ci<?"), &cvar_73491);
  make_cvar(cvar_73493, (object *)&__glo_string_91ci_123_127_scheme__char);make_pair(pair_73494, find_or_add_symbol("string-ci=?"), &cvar_73493);
  make_cvar(cvar_73495, (object *)&__glo_char_91ci_125_127_scheme__char);make_pair(pair_73496, find_or_add_symbol("char-ci>?"), &cvar_73495);
  make_cvar(cvar_73497, (object *)&__glo_char_91ci_125_123_127_scheme__char);make_pair(pair_73498, find_or_add_symbol("char-ci>=?"), &cvar_73497);
  make_cvar(cvar_73499, (object *)&__glo_char_91ci_121_127_scheme__char);make_pair(pair_73500, find_or_add_symbol("char-ci<?"), &cvar_73499);
  make_cvar(cvar_73501, (object *)&__glo_char_91ci_121_123_127_scheme__char);make_pair(pair_73502, find_or_add_symbol("char-ci<=?"), &cvar_73501);
  make_cvar(cvar_73503, (object *)&__glo_char_91ci_123_127_scheme__char);make_pair(pair_73504, find_or_add_symbol("char-ci=?"), &cvar_73503);
  make_cvar(cvar_73505, (object *)&__glo_char_91foldcase_scheme__char);make_pair(pair_73506, find_or_add_symbol("char-foldcase"), &cvar_73505);
  make_cvar(cvar_73507, (object *)&__glo_char_91downcase_scheme__char);make_pair(pair_73508, find_or_add_symbol("char-downcase"), &cvar_73507);
  make_cvar(cvar_73509, (object *)&__glo_char_91upcase_scheme__char);make_pair(pair_73510, find_or_add_symbol("char-upcase"), &cvar_73509);
make_pair(c_73534, &pair_73463,Cyc_global_variables);
make_pair(c_73533, &pair_73466, &c_73534);
make_pair(c_73532, &pair_73468, &c_73533);
make_pair(c_73531, &pair_73470, &c_73532);
make_pair(c_73530, &pair_73472, &c_73531);
make_pair(c_73529, &pair_73474, &c_73530);
make_pair(c_73528, &pair_73476, &c_73529);
make_pair(c_73527, &pair_73478, &c_73528);
make_pair(c_73526, &pair_73480, &c_73527);
make_pair(c_73525, &pair_73482, &c_73526);
make_pair(c_73524, &pair_73484, &c_73525);
make_pair(c_73523, &pair_73486, &c_73524);
make_pair(c_73522, &pair_73488, &c_73523);
make_pair(c_73521, &pair_73490, &c_73522);
make_pair(c_73520, &pair_73492, &c_73521);
make_pair(c_73519, &pair_73494, &c_73520);
make_pair(c_73518, &pair_73496, &c_73519);
make_pair(c_73517, &pair_73498, &c_73518);
make_pair(c_73516, &pair_73500, &c_73517);
make_pair(c_73515, &pair_73502, &c_73516);
make_pair(c_73514, &pair_73504, &c_73515);
make_pair(c_73513, &pair_73506, &c_73514);
make_pair(c_73512, &pair_73508, &c_73513);
make_pair(c_73511, &pair_73510, &c_73512);
Cyc_global_variables = &c_73511;
object buf[1]; buf[0] = ((closure1_type *)clo)->element;
(((closure)__glo_lib_91init_117scheme_191char_scheme__char)->fn)(data, buf[0], 1, buf);
}
void c_scheme_char_entry_pt(void *data, object cont, int argc, object value){ 
  register_library("scheme__char");
  c_scheme_char_entry_pt_first_lambda(data, cont, argc, value);
}
