/** ** This file was automatically generated by the Cyclone scheme compiler ** ** (c) 2014-2016 Justin Ethier ** Version 0.0.7 (Pre-release) ** **/ #define closcall1(td, clo,a1) \ if (type_of(clo) == pair_tag || prim(clo)) { \ Cyc_apply(td, 0, (closure)(a1), clo); \ } else { \ ((clo)->fn)(td, 1, clo,a1);\ } #define return_closcall1(td, clo,a1) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[1]; buf[0] = a1;\ GC(td, clo, buf, 1); \ return; \ } else {\ closcall1(td, (closure) (clo),a1); \ return;\ } \ } #define return_direct1(td, _fn,a1) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[1]; buf[0] = a1; \ mclosure0(c1, _fn); \ GC(td, &c1, buf, 1); \ return; \ } else { \ (_fn)(td, 1, (closure)_fn,a1); \ }} #define closcall2(td, clo,a1,a2) \ if (type_of(clo) == pair_tag || prim(clo)) { \ Cyc_apply(td, 1, (closure)(a1), clo,a2); \ } else { \ ((clo)->fn)(td, 2, clo,a1,a2);\ } #define return_closcall2(td, clo,a1,a2) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[2]; buf[0] = a1;buf[1] = a2;\ GC(td, clo, buf, 2); \ return; \ } else {\ closcall2(td, (closure) (clo),a1,a2); \ return;\ } \ } #define return_direct2(td, _fn,a1,a2) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[2]; buf[0] = a1;buf[1] = a2; \ mclosure0(c1, _fn); \ GC(td, &c1, buf, 2); \ return; \ } else { \ (_fn)(td, 2, (closure)_fn,a1,a2); \ }} #define closcall3(td, clo,a1,a2,a3) \ if (type_of(clo) == pair_tag || prim(clo)) { \ Cyc_apply(td, 2, (closure)(a1), clo,a2,a3); \ } else { \ ((clo)->fn)(td, 3, clo,a1,a2,a3);\ } #define return_closcall3(td, clo,a1,a2,a3) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3;\ GC(td, clo, buf, 3); \ return; \ } else {\ closcall3(td, (closure) (clo),a1,a2,a3); \ return;\ } \ } #define return_direct3(td, _fn,a1,a2,a3) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[3]; buf[0] = a1;buf[1] = a2;buf[2] = a3; \ mclosure0(c1, _fn); \ GC(td, &c1, buf, 3); \ return; \ } else { \ (_fn)(td, 3, (closure)_fn,a1,a2,a3); \ }} #define closcall4(td, clo,a1,a2,a3,a4) \ if (type_of(clo) == pair_tag || prim(clo)) { \ Cyc_apply(td, 3, (closure)(a1), clo,a2,a3,a4); \ } else { \ ((clo)->fn)(td, 4, clo,a1,a2,a3,a4);\ } #define return_closcall4(td, clo,a1,a2,a3,a4) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;\ GC(td, clo, buf, 4); \ return; \ } else {\ closcall4(td, (closure) (clo),a1,a2,a3,a4); \ return;\ } \ } #define return_direct4(td, _fn,a1,a2,a3,a4) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[4]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4; \ mclosure0(c1, _fn); \ GC(td, &c1, buf, 4); \ return; \ } else { \ (_fn)(td, 4, (closure)_fn,a1,a2,a3,a4); \ }} #define closcall5(td, clo,a1,a2,a3,a4,a5) \ if (type_of(clo) == pair_tag || prim(clo)) { \ Cyc_apply(td, 4, (closure)(a1), clo,a2,a3,a4,a5); \ } else { \ ((clo)->fn)(td, 5, clo,a1,a2,a3,a4,a5);\ } #define return_closcall5(td, clo,a1,a2,a3,a4,a5) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;\ GC(td, clo, buf, 5); \ return; \ } else {\ closcall5(td, (closure) (clo),a1,a2,a3,a4,a5); \ return;\ } \ } #define return_direct5(td, _fn,a1,a2,a3,a4,a5) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[5]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5; \ mclosure0(c1, _fn); \ GC(td, &c1, buf, 5); \ return; \ } else { \ (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \ }} #define closcall6(td, clo,a1,a2,a3,a4,a5,a6) \ if (type_of(clo) == pair_tag || prim(clo)) { \ Cyc_apply(td, 5, (closure)(a1), clo,a2,a3,a4,a5,a6); \ } else { \ ((clo)->fn)(td, 6, clo,a1,a2,a3,a4,a5,a6);\ } #define return_closcall6(td, clo,a1,a2,a3,a4,a5,a6) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;\ GC(td, clo, buf, 6); \ return; \ } else {\ closcall6(td, (closure) (clo),a1,a2,a3,a4,a5,a6); \ return;\ } \ } #define return_direct6(td, _fn,a1,a2,a3,a4,a5,a6) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[6]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6; \ mclosure0(c1, _fn); \ GC(td, &c1, buf, 6); \ return; \ } else { \ (_fn)(td, 6, (closure)_fn,a1,a2,a3,a4,a5,a6); \ }} #define closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) \ if (type_of(clo) == pair_tag || prim(clo)) { \ Cyc_apply(td, 7, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8); \ } else { \ ((clo)->fn)(td, 8, clo,a1,a2,a3,a4,a5,a6,a7,a8);\ } #define return_closcall8(td, clo,a1,a2,a3,a4,a5,a6,a7,a8) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;\ GC(td, clo, buf, 8); \ return; \ } else {\ closcall8(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8); \ return;\ } \ } #define return_direct8(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[8]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8; \ mclosure0(c1, _fn); \ GC(td, &c1, buf, 8); \ return; \ } else { \ (_fn)(td, 8, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8); \ }} #define closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) \ if (type_of(clo) == pair_tag || prim(clo)) { \ Cyc_apply(td, 8, (closure)(a1), clo,a2,a3,a4,a5,a6,a7,a8,a9); \ } else { \ ((clo)->fn)(td, 9, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9);\ } #define return_closcall9(td, clo,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9;\ GC(td, clo, buf, 9); \ return; \ } else {\ closcall9(td, (closure) (clo),a1,a2,a3,a4,a5,a6,a7,a8,a9); \ return;\ } \ } #define return_direct9(td, _fn,a1,a2,a3,a4,a5,a6,a7,a8,a9) { \ char top; \ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ object buf[9]; buf[0] = a1;buf[1] = a2;buf[2] = a3;buf[3] = a4;buf[4] = a5;buf[5] = a6;buf[6] = a7;buf[7] = a8;buf[8] = a9; \ mclosure0(c1, _fn); \ GC(td, &c1, buf, 9); \ return; \ } else { \ (_fn)(td, 9, (closure)_fn,a1,a2,a3,a4,a5,a6,a7,a8,a9); \ }} #include "cyclone/types.h" object __glo_lib_91init_117schemeread_scheme_read = NULL; object __glo_read_91all_scheme_read = NULL; object __glo_cyc_91read_scheme_read = NULL; object __glo_hex_91digit_127_scheme_read = NULL; object __glo_parse_91number_91rec_scheme_read = NULL; object __glo_parse_91number_scheme_read = NULL; object __glo_parse_91li_91rec_scheme_read = NULL; object __glo_parse_91literal_91identifier_scheme_read = NULL; object __glo_read_91block_91terminator_scheme_read = NULL; object __glo_read_91block_91comment_scheme_read = NULL; object __glo_get_91next_91char_scheme_read = NULL; object __glo_parse_91atom_scheme_read = NULL; object __glo_token_91numeric_127_scheme_read = NULL; object __glo_sign_127_scheme_read = NULL; object __glo_read_91str_91esc_scheme_read = NULL; object __glo_read_91str_scheme_read = NULL; object __glo_read_91pound_scheme_read = NULL; object __glo_parse_scheme_read = NULL; object __glo_parse_95tok_scheme_read = NULL; object __glo_parse_91error_scheme_read = NULL; object __glo__91_125dotted_91list_scheme_read = NULL; object __glo_dotted_127_scheme_read = NULL; object __glo__91_125tok_scheme_read = NULL; object __glo_get_91toks_scheme_read = NULL; object __glo_add_91tok_scheme_read = NULL; object __glo_in_91port_117set_91cnum_67_scheme_read = NULL; object __glo_in_91port_117get_91cnum_scheme_read = NULL; object __glo_in_91port_117set_91lnum_67_scheme_read = NULL; object __glo_in_91port_117get_91lnum_scheme_read = NULL; object __glo_in_91port_117set_91buf_67_scheme_read = NULL; object __glo_in_91port_117get_91buf_scheme_read = NULL; object __glo_in_91port_117read_91buf_67_scheme_read = NULL; object __glo_reg_91port_scheme_read = NULL; object __glo__85in_91port_91table_85_scheme_read = NULL; object __glo_read_scheme_read = NULL; 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_register_91simple_91type_scheme_base; extern object __glo_make_91type_91predicate_scheme_base; extern object __glo_make_91constructor_scheme_base; extern object __glo_make_91getter_scheme_base; extern object __glo_make_91setter_scheme_base; extern object __glo_slot_91set_67_scheme_base; extern object __glo_type_91slot_91offset_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_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_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_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_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_scheme_base; extern object __glo_raise_scheme_base; extern object __glo_raise_91continuable_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_flush_91output_91port_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_features_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_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_syntax_91error_scheme_base; extern object __glo_bytevector_91copy_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_display_scheme_write; extern object __glo_write_scheme_write; extern object __glo_char_91alphabetic_127_scheme__char; extern object __glo_char_91downcase_scheme__char; extern object __glo_char_91foldcase_scheme__char; extern object __glo_char_91lower_91case_127_scheme__char; extern object __glo_char_91numeric_127_scheme__char; extern object __glo_char_91upcase_scheme__char; extern object __glo_char_91upper_91case_127_scheme__char; extern object __glo_char_91whitespace_127_scheme__char; extern object __glo_char_91ci_121_123_127_scheme__char; extern object __glo_char_91ci_121_127_scheme__char; extern object __glo_char_91ci_123_127_scheme__char; extern object __glo_char_91ci_125_123_127_scheme__char; extern object __glo_char_91ci_125_127_scheme__char; extern object __glo_digit_91value_scheme__char; extern object __glo_string_91upcase_scheme__char; extern object __glo_string_91downcase_scheme__char; extern object __glo_string_91foldcase_scheme__char; extern object __glo_string_91ci_121_123_127_scheme__char; extern object __glo_string_91ci_121_127_scheme__char; extern object __glo_string_91ci_123_127_scheme__char; extern object __glo_string_91ci_125_123_127_scheme__char; extern object __glo_string_91ci_125_127_scheme__char; #include "cyclone/runtime.h" defsymbol(DEBUG); defsymbol(read); defsymbol(unquote); defsymbol(unquote_91splicing); defsymbol(quasiquote); defsymbol(quote); static void __lambda_406(void *data, int argc, closure _,object k_73267) ; static void __lambda_405(void *data, int argc, object self_73834, object r_73269) ; static void __lambda_404(void *data, int argc, object self_73835, object r_73270) ; static void __lambda_403(void *data, int argc, closure _,object k_73273, object args_73117_raw, ...) ; static void __lambda_402(void *data, int argc, object self_73836, object fp_73119) ; static void __lambda_401(void *data, int argc, object self_73837, object loop_73120) ; static void __lambda_400(void *data, int argc, object self_73838, object loop_73120) ; static void __lambda_399(void *data, int argc, object self_73839, object k_73278, object fp_73122, object result_73121) ; static void __lambda_398(void *data, int argc, object self_73840, object obj_73123) ; static void __lambda_397(void *data, int argc, object self_73841, object r_73277) ; static void __lambda_396(void *data, int argc, object self_73842, object r_73275) ; static void __lambda_395(void *data, int argc, object self_73843, object r_73276) ; static void __lambda_394(void *data, int argc, object self_73844, object k_73282) ; static void __lambda_393(void *data, int argc, closure _,object k_73286, object args_73124_raw, ...) ; static void __lambda_392(void *data, int argc, object self_73845, object fp_73125) ; static void __lambda_391(void *data, int argc, object self_73846, object r_73288) ; static void __lambda_390(void *data, int argc, object self_73847, object r_73289) ; static void __lambda_389(void *data, int argc, object self_73848, object r_73290) ; static void __lambda_388(void *data, int argc, object self_73849, object k_73291) ; static void __lambda_387(void *data, int argc, closure _,object k_73295, object c_73126) ; static void __lambda_386(void *data, int argc, object self_73850, object tmp_73127) ; static void __lambda_385(void *data, int argc, object self_73851, object r_73297) ; static void __lambda_384(void *data, int argc, object self_73852, object k_73298) ; static void __lambda_383(void *data, int argc, object self_73853, object r_73299) ; static void __lambda_382(void *data, int argc, closure _,object k_73302, object base_73131, object fp_73130, object tok_73129, object ptbl_73128) ; static void __lambda_381(void *data, int argc, object self_73854, object r_73303) ; static void __lambda_380(void *data, int argc, object self_73855, object k_73322, object c_73132) ; static void __lambda_379(void *data, int argc, object self_73856, object r_73304) ; static void __lambda_378(void *data, int argc, object self_73857, object c_73134, object next_73133) ; static void __lambda_377(void *data, int argc, object self_73858, object r_73305) ; static void __lambda_376(void *data, int argc, object self_73859, object r_73307) ; static void __lambda_375(void *data, int argc, object self_73860, object r_73318) ; static void __lambda_374(void *data, int argc, object self_73861, object r_73319) ; static void __lambda_373(void *data, int argc, object self_73862, object k_73320) ; static void __lambda_372(void *data, int argc, object self_73863, object r_73321) ; static void __lambda_371(void *data, int argc, object self_73864, object r_73308) ; static void __lambda_370(void *data, int argc, object self_73865, object k_73309) ; static void __lambda_369(void *data, int argc, object self_73866, object tmp_73135) ; static void __lambda_368(void *data, int argc, object self_73867, object r_73310) ; static void __lambda_367(void *data, int argc, object self_73868, object r_73311) ; static void __lambda_366(void *data, int argc, object self_73869, object r_73312) ; static void __lambda_365(void *data, int argc, object self_73870, object k_73314) ; static void __lambda_364(void *data, int argc, object self_73871, object r_73315) ; static void __lambda_363(void *data, int argc, object self_73872, object k_73316) ; static void __lambda_362(void *data, int argc, object self_73873, object r_73317) ; static void __lambda_361(void *data, int argc, closure _,object k_73326, object fp_73142, object toks_73141, object all_127_73140, object parens_73139, object ptbl_73138, object base_73137, object tok_91_125num_73136) ; static void __lambda_360(void *data, int argc, object self_73874, object r_73341) ; static void __lambda_359(void *data, int argc, object self_73875, object num_73143) ; static void __lambda_358(void *data, int argc, object self_73876, object r_73328) ; static void __lambda_357(void *data, int argc, object self_73877, object r_73332) ; static void __lambda_356(void *data, int argc, object self_73878, object r_73333) ; static void __lambda_355(void *data, int argc, object self_73879, object result_73144) ; static void __lambda_354(void *data, int argc, object self_73880, object r_73330) ; static void __lambda_353(void *data, int argc, object self_73881, object k_73334) ; static void __lambda_352(void *data, int argc, object self_73882, object tmp_73145) ; static void __lambda_351(void *data, int argc, object self_73883, object r_73337) ; static void __lambda_350(void *data, int argc, object self_73884, object r_73338) ; static void __lambda_349(void *data, int argc, closure _,object k_73344, object fp_73148, object tok_73147, object ptbl_73146) ; static void __lambda_348(void *data, int argc, object self_73885, object r_73345) ; static void __lambda_347(void *data, int argc, object self_73886, object k_73355, object c_73149) ; static void __lambda_346(void *data, int argc, object self_73887, object r_73346) ; static void __lambda_345(void *data, int argc, object self_73888, object c_73151, object next_73150) ; static void __lambda_344(void *data, int argc, object self_73889, object r_73353) ; static void __lambda_343(void *data, int argc, object self_73890, object r_73354) ; static void __lambda_342(void *data, int argc, object self_73891, object str_73152) ; static void __lambda_341(void *data, int argc, object self_73892, object k_73349) ; static void __lambda_340(void *data, int argc, object self_73893, object r_73351) ; static void __lambda_339(void *data, int argc, closure _,object k_73359, object fp_73157, object toks_73156, object all_127_73155, object parens_73154, object ptbl_73153) ; static void __lambda_338(void *data, int argc, object self_73894, object r_73363) ; static void __lambda_337(void *data, int argc, object self_73895, object sym_73158) ; static void __lambda_336(void *data, int argc, object self_73896, object r_73361) ; static void __lambda_335(void *data, int argc, closure _,object k_73366, object fp_73160, object ptbl_73159) ; static void __lambda_334(void *data, int argc, object self_73897, object c_73161) ; static void __lambda_333(void *data, int argc, closure _,object k_73372, object fp_73163, object ptbl_73162) ; static void __lambda_332(void *data, int argc, object self_73898, object c_73164) ; static void __lambda_331(void *data, int argc, closure _,object k_73377, object fp_73166, object ptbl_73165) ; static void __lambda_330(void *data, int argc, object self_73899, object r_73378) ; static void __lambda_329(void *data, int argc, closure _,object k_73381, object a_73167) ; static void __lambda_328(void *data, int argc, object self_73900, object r_73382) ; static void __lambda_327(void *data, int argc, object self_73901, object r_73384) ; static void __lambda_326(void *data, int argc, object self_73902, object r_73383) ; static void __lambda_325(void *data, int argc, closure _,object k_73387, object a_73168) ; static void __lambda_324(void *data, int argc, object self_73903, object tmp_73169) ; static void __lambda_323(void *data, int argc, object self_73904, object tmp_73170) ; static void __lambda_322(void *data, int argc, object self_73905, object r_73390) ; static void __lambda_321(void *data, int argc, object self_73906, object tmp_73171) ; static void __lambda_320(void *data, int argc, object self_73907, object r_73391) ; static void __lambda_319(void *data, int argc, object self_73908, object k_73394) ; static void __lambda_318(void *data, int argc, object self_73909, object k_73398) ; static void __lambda_317(void *data, int argc, object self_73910, object r_73399) ; static void __lambda_316(void *data, int argc, closure _,object k_73407, object c_73172) ; static void __lambda_315(void *data, int argc, closure _,object k_73411, object fp_73176, object buf_73175, object ptbl_73174) ; static void __lambda_314(void *data, int argc, object self_73911, object c_73177) ; static void __lambda_313(void *data, int argc, object self_73912, object r_73416) ; static void __lambda_312(void *data, int argc, object self_73913, object r_73422) ; static void __lambda_311(void *data, int argc, object self_73914, object r_73421) ; static void __lambda_310(void *data, int argc, object self_73915, object r_73418) ; static void __lambda_309(void *data, int argc, object self_73916, object r_73419) ; static void __lambda_308(void *data, int argc, object self_73917, object r_73420) ; static void __lambda_307(void *data, int argc, object self_73918, object k_73424) ; static void __lambda_306(void *data, int argc, object self_73919, object r_73414) ; static void __lambda_305(void *data, int argc, object self_73920, object r_73415) ; static void __lambda_304(void *data, int argc, closure _,object k_73427, object fp_73181, object buf_73180, object ptbl_73179) ; static void __lambda_303(void *data, int argc, object self_73921, object c_73182) ; static void __lambda_302(void *data, int argc, object self_73922, object r_73435) ; static void __lambda_301(void *data, int argc, object self_73923, object r_73433) ; static void __lambda_300(void *data, int argc, object self_73924, object r_73430) ; static void __lambda_299(void *data, int argc, object self_73925, object r_73431) ; static void __lambda_298(void *data, int argc, closure _,object k_73439, object fp_73184, object ptbl_73183) ; static void __lambda_297(void *data, int argc, object self_73926, object done_73188, object loop_73187) ; static void __lambda_296(void *data, int argc, object self_73927, object done_73188) ; static void __lambda_295(void *data, int argc, object self_73928, object loop_73187) ; static void __lambda_294(void *data, int argc, object self_73929, object k_73458, object raw_91buf_73195) ; static void __lambda_293(void *data, int argc, object self_73930, object buf_73196) ; static void __lambda_292(void *data, int argc, object self_73931, object r_73460) ; static void __lambda_291(void *data, int argc, object self_73932, object r_73463) ; static void __lambda_290(void *data, int argc, object self_73933, object r_73493) ; static void __lambda_289(void *data, int argc, object self_73934, object r_73492) ; static void __lambda_288(void *data, int argc, object self_73935, object r_73491) ; static void __lambda_287(void *data, int argc, object self_73936, object r_73490) ; static void __lambda_286(void *data, int argc, object self_73937, object r_73489) ; static void __lambda_285(void *data, int argc, object self_73938, object r_73488) ; static void __lambda_284(void *data, int argc, object self_73939, object r_73487) ; static void __lambda_283(void *data, int argc, object self_73940, object r_73486) ; static void __lambda_282(void *data, int argc, object self_73941, object r_73485) ; static void __lambda_281(void *data, int argc, object self_73942, object r_73473) ; static void __lambda_280(void *data, int argc, object self_73943, object r_73480) ; static void __lambda_279(void *data, int argc, object self_73944, object r_73477) ; static void __lambda_278(void *data, int argc, object self_73945, object r_73478) ; static void __lambda_277(void *data, int argc, object self_73946, object r_73479) ; static void __lambda_276(void *data, int argc, object self_73947, object r_73475) ; static void __lambda_275(void *data, int argc, object self_73948, object r_73474) ; static void __lambda_274(void *data, int argc, object self_73949, object k_73481) ; static void __lambda_273(void *data, int argc, object self_73950, object r_73482) ; static void __lambda_272(void *data, int argc, object self_73951, object r_73461) ; static void __lambda_271(void *data, int argc, object self_73952, object r_73462) ; static void __lambda_270(void *data, int argc, object self_73953, object r_73457) ; static void __lambda_269(void *data, int argc, object self_73954, object r_73440) ; static void __lambda_268(void *data, int argc, object self_73955, object k_73444, object buf_73191) ; static void __lambda_267(void *data, int argc, object self_73956, object c_73192) ; static void __lambda_266(void *data, int argc, object self_73957, object r_73446) ; static void __lambda_265(void *data, int argc, object self_73958, object r_73448) ; static void __lambda_264(void *data, int argc, object self_73959, object k_73450) ; static void __lambda_263(void *data, int argc, object self_73960, object tmp_73194) ; static void __lambda_262(void *data, int argc, object self_73961, object r_73452) ; static void __lambda_261(void *data, int argc, object self_73962, object k_73454) ; static void __lambda_260(void *data, int argc, object self_73963, object r_73455) ; static void __lambda_259(void *data, int argc, object self_73964, object r_73443) ; static void __lambda_258(void *data, int argc, object self_73965, object r_73441) ; static void __lambda_257(void *data, int argc, object self_73966, object r_73442) ; static void __lambda_256(void *data, int argc, closure _,object k_73498, object fp_73203, object tok_73202, object toks_73201, object all_127_73200, object comment_127_73199, object parens_73198, object ptbl_73197) ; static void __lambda_255(void *data, int argc, object self_73967, object r_73748) ; static void __lambda_254(void *data, int argc, object self_73968, object r_73747) ; static void __lambda_253(void *data, int argc, object self_73969, object r_73499) ; static void __lambda_252(void *data, int argc, object self_73970, object c_73205) ; static void __lambda_251(void *data, int argc, object self_73971, object r_73738) ; static void __lambda_250(void *data, int argc, object self_73972, object r_73740) ; static void __lambda_249(void *data, int argc, object self_73973, object r_73744) ; static void __lambda_248(void *data, int argc, object self_73974, object r_73501) ; static void __lambda_247(void *data, int argc, object self_73975, object r_73736) ; static void __lambda_246(void *data, int argc, object self_73976, object r_73502) ; static void __lambda_245(void *data, int argc, object self_73977, object r_73520) ; static void __lambda_244(void *data, int argc, object self_73978, object next_91c_73206) ; static void __lambda_243(void *data, int argc, object self_73979, object next_91c_73206) ; static void __lambda_242(void *data, int argc, object self_73980, object r_73732) ; static void __lambda_241(void *data, int argc, object self_73981, object r_73731) ; static void __lambda_240(void *data, int argc, object self_73982, object r_73639) ; static void __lambda_239(void *data, int argc, object self_73983, object r_73729) ; static void __lambda_238(void *data, int argc, object self_73984, object r_73730) ; static void __lambda_237(void *data, int argc, object self_73985, object r_73727) ; static void __lambda_236(void *data, int argc, object self_73986, object r_73728) ; static void __lambda_235(void *data, int argc, object self_73987, object r_73720) ; static void __lambda_234(void *data, int argc, object self_73988, object r_73721) ; static void __lambda_233(void *data, int argc, object self_73989, object r_73722) ; static void __lambda_232(void *data, int argc, object self_73990, object r_73724) ; static void __lambda_231(void *data, int argc, object self_73991, object r_73723) ; static void __lambda_230(void *data, int argc, object self_73992, object k_73725) ; static void __lambda_229(void *data, int argc, object self_73993, object r_73718) ; static void __lambda_228(void *data, int argc, object self_73994, object r_73717) ; static void __lambda_227(void *data, int argc, object self_73995, object r_73712) ; static void __lambda_226(void *data, int argc, object self_73996, object r_73713) ; static void __lambda_225(void *data, int argc, object self_73997, object r_73714) ; static void __lambda_224(void *data, int argc, object self_73998, object r_73700) ; static void __lambda_223(void *data, int argc, object self_73999, object r_73701) ; static void __lambda_222(void *data, int argc, object self_731000, object sub_73209, object toks_85_73208) ; static void __lambda_221(void *data, int argc, object self_731001, object new_91toks_73210) ; static void __lambda_220(void *data, int argc, object self_731002, object new_91toks_73210) ; static void __lambda_219(void *data, int argc, object self_731003, object r_73705) ; static void __lambda_218(void *data, int argc, object self_731004, object r_73704) ; static void __lambda_217(void *data, int argc, object self_731005, object r_73702) ; static void __lambda_216(void *data, int argc, object self_731006, object r_73703) ; static void __lambda_215(void *data, int argc, object self_731007, object k_73706) ; static void __lambda_214(void *data, int argc, object self_731008, object r_73707) ; static void __lambda_213(void *data, int argc, object self_731009, object r_73708) ; static void __lambda_212(void *data, int argc, object self_731010, object r_73709) ; static void __lambda_211(void *data, int argc, object self_731011, object k_73710) ; static void __lambda_210(void *data, int argc, object self_731012, object r_73698) ; static void __lambda_209(void *data, int argc, object self_731013, object r_73670) ; static void __lambda_208(void *data, int argc, object self_731014, object r_73671) ; static void __lambda_207(void *data, int argc, object self_731015, object r_73693) ; static void __lambda_206(void *data, int argc, object self_731016, object r_73672) ; static void __lambda_205(void *data, int argc, object self_731017, object r_73673) ; static void __lambda_204(void *data, int argc, object self_731018, object r_73686) ; static void __lambda_203(void *data, int argc, object self_731019, object r_73687) ; static void __lambda_202(void *data, int argc, object self_731020, object r_73688) ; static void __lambda_201(void *data, int argc, object self_731021, object r_73674) ; static void __lambda_200(void *data, int argc, object self_731022, object r_73675) ; static void __lambda_199(void *data, int argc, object self_731023, object sub_73212, object toks_85_73211) ; static void __lambda_198(void *data, int argc, object self_731024, object new_91toks_73213) ; static void __lambda_197(void *data, int argc, object self_731025, object new_91toks_73213) ; static void __lambda_196(void *data, int argc, object self_731026, object r_73679) ; static void __lambda_195(void *data, int argc, object self_731027, object r_73678) ; static void __lambda_194(void *data, int argc, object self_731028, object r_73676) ; static void __lambda_193(void *data, int argc, object self_731029, object r_73677) ; static void __lambda_192(void *data, int argc, object self_731030, object k_73680) ; static void __lambda_191(void *data, int argc, object self_731031, object r_73681) ; static void __lambda_190(void *data, int argc, object self_731032, object r_73682) ; static void __lambda_189(void *data, int argc, object self_731033, object r_73683) ; static void __lambda_188(void *data, int argc, object self_731034, object k_73684) ; static void __lambda_187(void *data, int argc, object self_731035, object k_73689) ; static void __lambda_186(void *data, int argc, object self_731036, object r_73691) ; static void __lambda_185(void *data, int argc, object self_731037, object r_73692) ; static void __lambda_184(void *data, int argc, object self_731038, object k_73694) ; static void __lambda_183(void *data, int argc, object self_731039, object r_73696) ; static void __lambda_182(void *data, int argc, object self_731040, object r_73697) ; static void __lambda_181(void *data, int argc, object self_731041, object k_73667, object num_73214) ; static void __lambda_180(void *data, int argc, object self_731042, object r_73668) ; static void __lambda_179(void *data, int argc, object self_731043, object r_73666) ; static void __lambda_178(void *data, int argc, object self_731044, object k_73663, object num_73215) ; static void __lambda_177(void *data, int argc, object self_731045, object r_73664) ; static void __lambda_176(void *data, int argc, object self_731046, object r_73662) ; static void __lambda_175(void *data, int argc, object self_731047, object k_73659, object num_73216) ; static void __lambda_174(void *data, int argc, object self_731048, object r_73660) ; static void __lambda_173(void *data, int argc, object self_731049, object r_73658) ; static void __lambda_172(void *data, int argc, object self_731050, object k_73655, object num_73217) ; static void __lambda_171(void *data, int argc, object self_731051, object r_73656) ; static void __lambda_170(void *data, int argc, object self_731052, object r_73654) ; static void __lambda_169(void *data, int argc, object self_731053, object k_73651, object num_73218) ; static void __lambda_168(void *data, int argc, object self_731054, object r_73652) ; static void __lambda_167(void *data, int argc, object self_731055, object r_73650) ; static void __lambda_166(void *data, int argc, object self_731056, object r_73647) ; static void __lambda_165(void *data, int argc, object self_731057, object r_73644) ; static void __lambda_164(void *data, int argc, object self_731058, object r_73641) ; static void __lambda_163(void *data, int argc, object self_731059, object r_73642) ; static void __lambda_162(void *data, int argc, object self_731060, object r_73624) ; static void __lambda_161(void *data, int argc, object self_731061, object r_73633) ; static void __lambda_160(void *data, int argc, object self_731062, object r_73628) ; static void __lambda_159(void *data, int argc, object self_731063, object r_73629) ; static void __lambda_158(void *data, int argc, object self_731064, object str_73220, object toks_85_73219) ; static void __lambda_157(void *data, int argc, object self_731065, object new_91toks_73221) ; static void __lambda_156(void *data, int argc, object self_731066, object new_91toks_73221) ; static void __lambda_155(void *data, int argc, object self_731067, object r_73632) ; static void __lambda_154(void *data, int argc, object self_731068, object r_73630) ; static void __lambda_153(void *data, int argc, object self_731069, object r_73631) ; static void __lambda_152(void *data, int argc, object self_731070, object r_73625) ; static void __lambda_151(void *data, int argc, object self_731071, object r_73627) ; static void __lambda_150(void *data, int argc, object self_731072, object r_73626) ; static void __lambda_149(void *data, int argc, object self_731073, object k_73634) ; static void __lambda_148(void *data, int argc, object self_731074, object r_73613) ; static void __lambda_147(void *data, int argc, object self_731075, object r_73617) ; static void __lambda_146(void *data, int argc, object self_731076, object r_73620) ; static void __lambda_145(void *data, int argc, object self_731077, object r_73618) ; static void __lambda_144(void *data, int argc, object self_731078, object r_73619) ; static void __lambda_143(void *data, int argc, object self_731079, object r_73614) ; static void __lambda_142(void *data, int argc, object self_731080, object r_73616) ; static void __lambda_141(void *data, int argc, object self_731081, object r_73615) ; static void __lambda_140(void *data, int argc, object self_731082, object k_73621) ; static void __lambda_139(void *data, int argc, object self_731083, object r_73593) ; static void __lambda_138(void *data, int argc, object self_731084, object r_73607) ; static void __lambda_137(void *data, int argc, object self_731085, object r_73608) ; static void __lambda_136(void *data, int argc, object self_731086, object r_73609) ; static void __lambda_135(void *data, int argc, object self_731087, object r_73597) ; static void __lambda_134(void *data, int argc, object self_731088, object r_73598) ; static void __lambda_133(void *data, int argc, object self_731089, object sub_73223, object toks_85_73222) ; static void __lambda_132(void *data, int argc, object self_731090, object new_91toks_73224) ; static void __lambda_131(void *data, int argc, object self_731091, object new_91toks_73224) ; static void __lambda_130(void *data, int argc, object self_731092, object r_73602) ; static void __lambda_129(void *data, int argc, object self_731093, object r_73601) ; static void __lambda_128(void *data, int argc, object self_731094, object r_73599) ; static void __lambda_127(void *data, int argc, object self_731095, object r_73600) ; static void __lambda_126(void *data, int argc, object self_731096, object k_73603) ; static void __lambda_125(void *data, int argc, object self_731097, object r_73604) ; static void __lambda_124(void *data, int argc, object self_731098, object k_73605) ; static void __lambda_123(void *data, int argc, object self_731099, object r_73594) ; static void __lambda_122(void *data, int argc, object self_731100, object r_73596) ; static void __lambda_121(void *data, int argc, object self_731101, object r_73595) ; static void __lambda_120(void *data, int argc, object self_731102, object k_73610) ; static void __lambda_119(void *data, int argc, object self_731103, object r_73563) ; static void __lambda_118(void *data, int argc, object self_731104, object sub_73228, object next_91c_73227, object unquote_91sym_73226, object new_91toks_73225) ; static void __lambda_117(void *data, int argc, object self_731105, object sub_73228) ; static void __lambda_116(void *data, int argc, object self_731106, object next_91c_73227) ; static void __lambda_115(void *data, int argc, object self_731107, object unquote_91sym_73226) ; static void __lambda_114(void *data, int argc, object self_731108, object new_91toks_73225) ; static void __lambda_113(void *data, int argc, object self_731109, object r_73567) ; static void __lambda_112(void *data, int argc, object self_731110, object r_73589) ; static void __lambda_111(void *data, int argc, object self_731111, object r_73568) ; static void __lambda_110(void *data, int argc, object self_731112, object r_73586) ; static void __lambda_109(void *data, int argc, object self_731113, object r_73569) ; static void __lambda_108(void *data, int argc, object self_731114, object r_73570) ; static void __lambda_107(void *data, int argc, object self_731115, object r_73571) ; static void __lambda_106(void *data, int argc, object self_731116, object r_73579) ; static void __lambda_105(void *data, int argc, object self_731117, object r_73580) ; static void __lambda_104(void *data, int argc, object self_731118, object r_73578) ; static void __lambda_103(void *data, int argc, object self_731119, object r_73572) ; static void __lambda_102(void *data, int argc, object self_731120, object r_73576) ; static void __lambda_101(void *data, int argc, object self_731121, object r_73577) ; static void __lambda_100(void *data, int argc, object self_731122, object r_73575) ; static void __lambda_99(void *data, int argc, object self_731123, object r_73573) ; static void __lambda_98(void *data, int argc, object self_731124, object r_73574) ; static void __lambda_97(void *data, int argc, object self_731125, object k_73581) ; static void __lambda_96(void *data, int argc, object self_731126, object r_73583) ; static void __lambda_95(void *data, int argc, object self_731127, object r_73584) ; static void __lambda_94(void *data, int argc, object self_731128, object k_73587) ; static void __lambda_93(void *data, int argc, object self_731129, object r_73564) ; static void __lambda_92(void *data, int argc, object self_731130, object r_73566) ; static void __lambda_91(void *data, int argc, object self_731131, object r_73565) ; static void __lambda_90(void *data, int argc, object self_731132, object k_73590) ; static void __lambda_89(void *data, int argc, object self_731133, object r_73547) ; static void __lambda_88(void *data, int argc, object self_731134, object r_73558) ; static void __lambda_87(void *data, int argc, object self_731135, object r_73559) ; static void __lambda_86(void *data, int argc, object self_731136, object sub_73229) ; static void __lambda_85(void *data, int argc, object self_731137, object new_91toks_73230) ; static void __lambda_84(void *data, int argc, object self_731138, object new_91toks_73230) ; static void __lambda_83(void *data, int argc, object self_731139, object r_73557) ; static void __lambda_82(void *data, int argc, object self_731140, object r_73555) ; static void __lambda_81(void *data, int argc, object self_731141, object r_73556) ; static void __lambda_80(void *data, int argc, object self_731142, object r_73554) ; static void __lambda_79(void *data, int argc, object self_731143, object r_73552) ; static void __lambda_78(void *data, int argc, object self_731144, object r_73553) ; static void __lambda_77(void *data, int argc, object self_731145, object r_73548) ; static void __lambda_76(void *data, int argc, object self_731146, object r_73550) ; static void __lambda_75(void *data, int argc, object self_731147, object r_73549) ; static void __lambda_74(void *data, int argc, object self_731148, object k_73560) ; static void __lambda_73(void *data, int argc, object self_731149, object r_73531) ; static void __lambda_72(void *data, int argc, object self_731150, object r_73542) ; static void __lambda_71(void *data, int argc, object self_731151, object r_73543) ; static void __lambda_70(void *data, int argc, object self_731152, object sub_73231) ; static void __lambda_69(void *data, int argc, object self_731153, object new_91toks_73232) ; static void __lambda_68(void *data, int argc, object self_731154, object new_91toks_73232) ; static void __lambda_67(void *data, int argc, object self_731155, object r_73541) ; static void __lambda_66(void *data, int argc, object self_731156, object r_73539) ; static void __lambda_65(void *data, int argc, object self_731157, object r_73540) ; static void __lambda_64(void *data, int argc, object self_731158, object r_73538) ; static void __lambda_63(void *data, int argc, object self_731159, object r_73536) ; static void __lambda_62(void *data, int argc, object self_731160, object r_73537) ; static void __lambda_61(void *data, int argc, object self_731161, object r_73532) ; static void __lambda_60(void *data, int argc, object self_731162, object r_73534) ; static void __lambda_59(void *data, int argc, object self_731163, object r_73533) ; static void __lambda_58(void *data, int argc, object self_731164, object k_73544) ; static void __lambda_57(void *data, int argc, object self_731165, object r_73521) ; static void __lambda_56(void *data, int argc, object self_731166, object r_73522) ; static void __lambda_55(void *data, int argc, object self_731167, object k_73523) ; static void __lambda_54(void *data, int argc, object self_731168, object k_73525) ; static void __lambda_53(void *data, int argc, object self_731169, object r_73528) ; static void __lambda_52(void *data, int argc, object self_731170, object r_73527) ; static void __lambda_51(void *data, int argc, object self_731171, object r_73519) ; static void __lambda_50(void *data, int argc, object self_731172, object r_73518) ; static void __lambda_49(void *data, int argc, object self_731173, object r_73517) ; static void __lambda_48(void *data, int argc, object self_731174, object r_73514) ; static void __lambda_47(void *data, int argc, object self_731175, object r_73515) ; static void __lambda_46(void *data, int argc, object self_731176, object r_73516) ; static void __lambda_45(void *data, int argc, object self_731177, object r_73504) ; static void __lambda_44(void *data, int argc, object self_731178, object last_73233) ; static void __lambda_43(void *data, int argc, object self_731179, object r_73507) ; static void __lambda_42(void *data, int argc, object self_731180, object r_73505) ; static void __lambda_41(void *data, int argc, object self_731181, object k_73509) ; static void __lambda_40(void *data, int argc, object self_731182, object r_73510) ; static void __lambda_39(void *data, int argc, object self_731183, object r_73511) ; static void __lambda_38(void *data, int argc, object self_731184, object r_73512) ; static void __lambda_37(void *data, int argc, object self_731185, object k_73745) ; static void __lambda_36(void *data, int argc, object self_731186, object r_73746) ; static void __lambda_35(void *data, int argc, closure _,object k_73751, object fp_73241, object tok_73240, object toks_73239, object all_127_73238, object comment_127_73237, object parens_73236, object ptbl_73235, object curr_91char_73234) ; static void __lambda_34(void *data, int argc, object self_731187, object r_73757) ; static void __lambda_33(void *data, int argc, object self_731188, object r_73759) ; static void __lambda_32(void *data, int argc, object self_731189, object r_73758) ; static void __lambda_31(void *data, int argc, object self_731190, object r_73754) ; static void __lambda_30(void *data, int argc, object self_731191, object r_73756) ; static void __lambda_29(void *data, int argc, object self_731192, object r_73755) ; static void __lambda_28(void *data, int argc, object self_731193, object r_73753) ; static void __lambda_27(void *data, int argc, closure _,object k_73762, object msg_73244, object lnum_73243, object cnum_73242) ; static void __lambda_26(void *data, int argc, object self_731194, object r_73764) ; static void __lambda_25(void *data, int argc, object self_731195, object r_73765) ; static void __lambda_24(void *data, int argc, object self_731196, object r_73763) ; static void __lambda_23(void *data, int argc, closure _,object k_73768, object lst_73245) ; static void __lambda_22(void *data, int argc, object self_731197, object r_73772) ; static void __lambda_21(void *data, int argc, closure _,object k_73778, object lst_73246) ; static void __lambda_20(void *data, int argc, object self_731198, object r_73779) ; static void __lambda_19(void *data, int argc, object self_731199, object r_73782) ; static void __lambda_18(void *data, int argc, closure _,object k_73786, object lst_73247) ; static void __lambda_17(void *data, int argc, object self_731200, object r_73787) ; static void __lambda_16(void *data, int argc, closure _,object k_73790, object tok_73249, object toks_73248) ; static void __lambda_15(void *data, int argc, object self_731201, object r_73792) ; static void __lambda_14(void *data, int argc, closure _,object k_73795, object tok_73251, object toks_73250) ; static void __lambda_13(void *data, int argc, closure _,object k_73798, object ptbl_73253, object cnum_73252) ; static void __lambda_12(void *data, int argc, closure _,object k_73802, object ptbl_73254) ; static void __lambda_11(void *data, int argc, closure _,object k_73805, object ptbl_73256, object lnum_73255) ; static void __lambda_10(void *data, int argc, closure _,object k_73809, object ptbl_73257) ; static void __lambda_9(void *data, int argc, closure _,object k_73812, object ptbl_73259, object buf_73258) ; static void __lambda_8(void *data, int argc, closure _,object k_73816, object ptbl_73260) ; static void __lambda_7(void *data, int argc, closure _,object k_73819, object ptbl_73261) ; static void __lambda_6(void *data, int argc, object self_731202, object r_73821) ; static void __lambda_5(void *data, int argc, closure _,object k_73824, object fp_73263) ; static void __lambda_4(void *data, int argc, object self_731203, object r_73264) ; static void __lambda_3(void *data, int argc, object self_731204, object r_73264) ; static void __lambda_2(void *data, int argc, object self_731205, object r_73829) ; static void __lambda_1(void *data, int argc, object self_731206, object r_73826) ; static void __lambda_0(void *data, int argc, object self_731207, object r_73827) ; static void __lambda_406(void *data, int argc, closure _,object k_73267) { Cyc_st_add(data, "scheme/read.sld:lib-init:schemeread"); closureN_type c_733650; c_733650.hdr.mark = gc_color_red; c_733650.hdr.grayed = 0; c_733650.tag = closureN_tag; c_733650.fn = (function_type)__lambda_405; c_733650.num_args = 1; c_733650.num_elements = 1; c_733650.elements = (object *)alloca(sizeof(object) * 1); c_733650.elements[0] = k_73267; return_closcall1(data,(closure)&c_733650, global_set(__glo_read_scheme_read, __glo_cyc_91read_scheme_read));; } static void __lambda_405(void *data, int argc, object self_73834, object r_73269) { closureN_type c_733652; c_733652.hdr.mark = gc_color_red; c_733652.hdr.grayed = 0; c_733652.tag = closureN_tag; c_733652.fn = (function_type)__lambda_404; c_733652.num_args = 1; c_733652.num_elements = 1; c_733652.elements = (object *)alloca(sizeof(object) * 1); c_733652.elements[0] = ((closureN)self_73834)->elements[0]; return_closcall1(data,(closure)&c_733652, NULL);; } static void __lambda_404(void *data, int argc, object self_73835, object r_73270) { return_closcall1(data, ((closureN)self_73835)->elements[0], global_set(__glo__85in_91port_91table_85_scheme_read, r_73270));; } static void __lambda_403(void *data, int argc, closure _,object k_73273, object args_73117_raw, ...) { load_varargs(args_73117, args_73117_raw, argc - 1); Cyc_st_add(data, "scheme/read.sld:read-all"); closureN_type c_733598; c_733598.hdr.mark = gc_color_red; c_733598.hdr.grayed = 0; c_733598.tag = closureN_tag; c_733598.fn = (function_type)__lambda_394; c_733598.num_args = 0; c_733598.num_elements = 1; c_733598.elements = (object *)alloca(sizeof(object) * 1); c_733598.elements[0] = args_73117; closureN_type c_733607; c_733607.hdr.mark = gc_color_red; c_733607.hdr.grayed = 0; c_733607.tag = closureN_tag; c_733607.fn = (function_type)__lambda_402; c_733607.num_args = 1; c_733607.num_elements = 1; c_733607.elements = (object *)alloca(sizeof(object) * 1); c_733607.elements[0] = k_73273; return_closcall1(data,(closure)&c_733598, &c_733607);; } static void __lambda_402(void *data, int argc, object self_73836, object fp_73119) { closureN_type c_733609; c_733609.hdr.mark = gc_color_red; c_733609.hdr.grayed = 0; c_733609.tag = closureN_tag; c_733609.fn = (function_type)__lambda_401; c_733609.num_args = 1; c_733609.num_elements = 2; c_733609.elements = (object *)alloca(sizeof(object) * 2); c_733609.elements[0] = fp_73119; c_733609.elements[1] = ((closureN)self_73836)->elements[0]; return_closcall1(data,(closure)&c_733609, boolean_f);; } static void __lambda_401(void *data, int argc, object self_73837, object loop_73120) { closureN_type c_733611; c_733611.hdr.mark = gc_color_red; c_733611.hdr.grayed = 0; c_733611.tag = closureN_tag; c_733611.fn = (function_type)__lambda_400; c_733611.num_args = 1; c_733611.num_elements = 2; c_733611.elements = (object *)alloca(sizeof(object) * 2); c_733611.elements[0] = ((closureN)self_73837)->elements[0]; c_733611.elements[1] = ((closureN)self_73837)->elements[1]; make_cell(c_733647,loop_73120); return_closcall1(data,(closure)&c_733611, &c_733647);; } static void __lambda_400(void *data, int argc, object self_73838, object loop_73120) { closureN_type c_733613; c_733613.hdr.mark = gc_color_red; c_733613.hdr.grayed = 0; c_733613.tag = closureN_tag; c_733613.fn = (function_type)__lambda_397; c_733613.num_args = 1; c_733613.num_elements = 3; c_733613.elements = (object *)alloca(sizeof(object) * 3); c_733613.elements[0] = ((closureN)self_73838)->elements[0]; c_733613.elements[1] = ((closureN)self_73838)->elements[1]; c_733613.elements[2] = loop_73120; closureN_type c_733627; c_733627.hdr.mark = gc_color_red; c_733627.hdr.grayed = 0; c_733627.tag = closureN_tag; c_733627.fn = (function_type)__lambda_399; c_733627.num_args = 2; c_733627.num_elements = 1; c_733627.elements = (object *)alloca(sizeof(object) * 1); c_733627.elements[0] = loop_73120; return_closcall1(data,(closure)&c_733613, &c_733627);; } static void __lambda_399(void *data, int argc, object self_73839, object k_73278, object fp_73122, object result_73121) { closureN_type c_733629; c_733629.hdr.mark = gc_color_red; c_733629.hdr.grayed = 0; c_733629.tag = closureN_tag; c_733629.fn = (function_type)__lambda_398; c_733629.num_args = 1; c_733629.num_elements = 4; c_733629.elements = (object *)alloca(sizeof(object) * 4); c_733629.elements[0] = fp_73122; c_733629.elements[1] = k_73278; c_733629.elements[2] = ((closureN)self_73839)->elements[0]; c_733629.elements[3] = result_73121; return_closcall2(data, __glo_cyc_91read_scheme_read, &c_733629, fp_73122);; } static void __lambda_398(void *data, int argc, object self_73840, object obj_73123) { if( (boolean_f != Cyc_is_eof_object(obj_73123)) ){ return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73840)->elements[1], ((closureN)self_73840)->elements[3]); } else { make_pair(c_733643,obj_73123, ((closureN)self_73840)->elements[3]); return_closcall3(data, cell_get(((closureN)self_73840)->elements[2]), ((closureN)self_73840)->elements[1], ((closureN)self_73840)->elements[0], &c_733643);} ; } static void __lambda_397(void *data, int argc, object self_73841, object r_73277) { closureN_type c_733615; c_733615.hdr.mark = gc_color_red; c_733615.hdr.grayed = 0; c_733615.tag = closureN_tag; c_733615.fn = (function_type)__lambda_396; c_733615.num_args = 1; c_733615.num_elements = 3; c_733615.elements = (object *)alloca(sizeof(object) * 3); c_733615.elements[0] = ((closureN)self_73841)->elements[0]; c_733615.elements[1] = ((closureN)self_73841)->elements[1]; c_733615.elements[2] = ((closureN)self_73841)->elements[2]; return_closcall1(data,(closure)&c_733615, Cyc_set_car(data, ((closureN)self_73841)->elements[2], r_73277));; } static void __lambda_396(void *data, int argc, object self_73842, object r_73275) { closureN_type c_733617; c_733617.hdr.mark = gc_color_red; c_733617.hdr.grayed = 0; c_733617.tag = closureN_tag; c_733617.fn = (function_type)__lambda_395; c_733617.num_args = 1; c_733617.num_elements = 3; c_733617.elements = (object *)alloca(sizeof(object) * 3); c_733617.elements[0] = ((closureN)self_73842)->elements[0]; c_733617.elements[1] = ((closureN)self_73842)->elements[1]; c_733617.elements[2] = ((closureN)self_73842)->elements[2]; return_closcall1(data,(closure)&c_733617, NULL);; } static void __lambda_395(void *data, int argc, object self_73843, object r_73276) { return_closcall3(data, cell_get(((closureN)self_73843)->elements[2]), ((closureN)self_73843)->elements[1], ((closureN)self_73843)->elements[0], r_73276);; } static void __lambda_394(void *data, int argc, object self_73844, object k_73282) { if( (boolean_f != Cyc_is_null(((closureN)self_73844)->elements[0])) ){ return_closcall1(data, __glo_current_91input_91port_scheme_base, k_73282); } else { return_closcall1(data, k_73282, car(((closureN)self_73844)->elements[0]));} ; } static void __lambda_393(void *data, int argc, closure _,object k_73286, object args_73124_raw, ...) { load_varargs(args_73124, args_73124_raw, argc - 1); Cyc_st_add(data, "scheme/read.sld:cyc-read"); closureN_type c_733574; c_733574.hdr.mark = gc_color_red; c_733574.hdr.grayed = 0; c_733574.tag = closureN_tag; c_733574.fn = (function_type)__lambda_388; c_733574.num_args = 0; c_733574.num_elements = 1; c_733574.elements = (object *)alloca(sizeof(object) * 1); c_733574.elements[0] = args_73124; closureN_type c_733583; c_733583.hdr.mark = gc_color_red; c_733583.hdr.grayed = 0; c_733583.tag = closureN_tag; c_733583.fn = (function_type)__lambda_392; c_733583.num_args = 1; c_733583.num_elements = 1; c_733583.elements = (object *)alloca(sizeof(object) * 1); c_733583.elements[0] = k_73286; return_closcall1(data,(closure)&c_733574, &c_733583);; } static void __lambda_392(void *data, int argc, object self_73845, object fp_73125) { closureN_type c_733585; c_733585.hdr.mark = gc_color_red; c_733585.hdr.grayed = 0; c_733585.tag = closureN_tag; c_733585.fn = (function_type)__lambda_391; c_733585.num_args = 1; c_733585.num_elements = 2; c_733585.elements = (object *)alloca(sizeof(object) * 2); c_733585.elements[0] = fp_73125; c_733585.elements[1] = ((closureN)self_73845)->elements[0]; return_closcall1(data,(closure)&c_733585, NULL);; } static void __lambda_391(void *data, int argc, object self_73846, object r_73288) { closureN_type c_733587; c_733587.hdr.mark = gc_color_red; c_733587.hdr.grayed = 0; c_733587.tag = closureN_tag; c_733587.fn = (function_type)__lambda_390; c_733587.num_args = 1; c_733587.num_elements = 3; c_733587.elements = (object *)alloca(sizeof(object) * 3); c_733587.elements[0] = ((closureN)self_73846)->elements[0]; c_733587.elements[1] = ((closureN)self_73846)->elements[1]; c_733587.elements[2] = r_73288; return_closcall1(data,(closure)&c_733587, NULL);; } static void __lambda_390(void *data, int argc, object self_73847, object r_73289) { closureN_type c_733589; c_733589.hdr.mark = gc_color_red; c_733589.hdr.grayed = 0; c_733589.tag = closureN_tag; c_733589.fn = (function_type)__lambda_389; c_733589.num_args = 1; c_733589.num_elements = 4; c_733589.elements = (object *)alloca(sizeof(object) * 4); c_733589.elements[0] = ((closureN)self_73847)->elements[0]; c_733589.elements[1] = ((closureN)self_73847)->elements[1]; c_733589.elements[2] = ((closureN)self_73847)->elements[2]; c_733589.elements[3] = r_73289; return_closcall2(data, __glo_reg_91port_scheme_read, &c_733589, ((closureN)self_73847)->elements[0]);; } static void __lambda_389(void *data, int argc, object self_73848, object r_73290) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73848)->elements[1], ((closureN)self_73848)->elements[0], ((closureN)self_73848)->elements[2], ((closureN)self_73848)->elements[3], boolean_f, boolean_f, obj_int2obj(0), r_73290);; } static void __lambda_388(void *data, int argc, object self_73849, object k_73291) { if( (boolean_f != Cyc_is_null(((closureN)self_73849)->elements[0])) ){ return_closcall1(data, __glo_current_91input_91port_scheme_base, k_73291); } else { return_closcall1(data, k_73291, car(((closureN)self_73849)->elements[0]));} ; } static void __lambda_387(void *data, int argc, closure _,object k_73295, object c_73126) { Cyc_st_add(data, "scheme/read.sld:hex-digit?"); closureN_type c_733552; c_733552.hdr.mark = gc_color_red; c_733552.hdr.grayed = 0; c_733552.tag = closureN_tag; c_733552.fn = (function_type)__lambda_384; c_733552.num_args = 0; c_733552.num_elements = 1; c_733552.elements = (object *)alloca(sizeof(object) * 1); c_733552.elements[0] = c_73126; closureN_type c_733561; c_733561.hdr.mark = gc_color_red; c_733561.hdr.grayed = 0; c_733561.tag = closureN_tag; c_733561.fn = (function_type)__lambda_386; c_733561.num_args = 1; c_733561.num_elements = 2; c_733561.elements = (object *)alloca(sizeof(object) * 2); c_733561.elements[0] = c_73126; c_733561.elements[1] = k_73295; return_closcall1(data,(closure)&c_733552, &c_733561);; } static void __lambda_386(void *data, int argc, object self_73850, object tmp_73127) { if( (boolean_f != tmp_73127) ){ return_closcall1(data, ((closureN)self_73850)->elements[1], tmp_73127); } else { closureN_type c_733565; c_733565.hdr.mark = gc_color_red; c_733565.hdr.grayed = 0; c_733565.tag = closureN_tag; c_733565.fn = (function_type)__lambda_385; c_733565.num_args = 1; c_733565.num_elements = 2; c_733565.elements = (object *)alloca(sizeof(object) * 2); c_733565.elements[0] = ((closureN)self_73850)->elements[0]; c_733565.elements[1] = ((closureN)self_73850)->elements[1]; return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_733565, ((closureN)self_73850)->elements[0], obj_char2obj(65));} ; } static void __lambda_385(void *data, int argc, object self_73851, object r_73297) { if( (boolean_f != r_73297) ){ return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73851)->elements[1], ((closureN)self_73851)->elements[0], obj_char2obj(70)); } else { return_closcall1(data, ((closureN)self_73851)->elements[1], boolean_f);} ; } static void __lambda_384(void *data, int argc, object self_73852, object k_73298) { closureN_type c_733554; c_733554.hdr.mark = gc_color_red; c_733554.hdr.grayed = 0; c_733554.tag = closureN_tag; c_733554.fn = (function_type)__lambda_383; c_733554.num_args = 1; c_733554.num_elements = 2; c_733554.elements = (object *)alloca(sizeof(object) * 2); c_733554.elements[0] = ((closureN)self_73852)->elements[0]; c_733554.elements[1] = k_73298; return_closcall3(data, __glo_char_125_123_127_scheme_base, &c_733554, ((closureN)self_73852)->elements[0], obj_char2obj(97));; } static void __lambda_383(void *data, int argc, object self_73853, object r_73299) { if( (boolean_f != r_73299) ){ return_closcall3(data, __glo_char_121_123_127_scheme_base, ((closureN)self_73853)->elements[1], ((closureN)self_73853)->elements[0], obj_char2obj(102)); } else { return_closcall1(data, ((closureN)self_73853)->elements[1], boolean_f);} ; } static void __lambda_382(void *data, int argc, closure _,object k_73302, object base_73131, object fp_73130, object tok_73129, object ptbl_73128) { Cyc_st_add(data, "scheme/read.sld:parse-number-rec"); closureN_type c_733444; c_733444.hdr.mark = gc_color_red; c_733444.hdr.grayed = 0; c_733444.tag = closureN_tag; c_733444.fn = (function_type)__lambda_381; c_733444.num_args = 1; c_733444.num_elements = 5; c_733444.elements = (object *)alloca(sizeof(object) * 5); c_733444.elements[0] = base_73131; c_733444.elements[1] = fp_73130; c_733444.elements[2] = k_73302; c_733444.elements[3] = ptbl_73128; c_733444.elements[4] = tok_73129; return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733444, fp_73130, ptbl_73128);; } static void __lambda_381(void *data, int argc, object self_73854, object r_73303) { closureN_type c_733446; c_733446.hdr.mark = gc_color_red; c_733446.hdr.grayed = 0; c_733446.tag = closureN_tag; c_733446.fn = (function_type)__lambda_379; c_733446.num_args = 1; c_733446.num_elements = 5; c_733446.elements = (object *)alloca(sizeof(object) * 5); c_733446.elements[0] = ((closureN)self_73854)->elements[0]; c_733446.elements[1] = ((closureN)self_73854)->elements[2]; c_733446.elements[2] = ((closureN)self_73854)->elements[3]; c_733446.elements[3] = r_73303; c_733446.elements[4] = ((closureN)self_73854)->elements[4]; closureN_type c_733541; c_733541.hdr.mark = gc_color_red; c_733541.hdr.grayed = 0; c_733541.tag = closureN_tag; c_733541.fn = (function_type)__lambda_380; c_733541.num_args = 1; c_733541.num_elements = 4; c_733541.elements = (object *)alloca(sizeof(object) * 4); c_733541.elements[0] = ((closureN)self_73854)->elements[0]; c_733541.elements[1] = ((closureN)self_73854)->elements[1]; c_733541.elements[2] = ((closureN)self_73854)->elements[3]; c_733541.elements[3] = ((closureN)self_73854)->elements[4]; return_closcall1(data,(closure)&c_733446, &c_733541);; } static void __lambda_380(void *data, int argc, object self_73855, object k_73322, object c_73132) { make_pair(c_733547,c_73132, ((closureN)self_73855)->elements[3]); return_closcall5(data, __glo_parse_91number_91rec_scheme_read, k_73322, ((closureN)self_73855)->elements[0], ((closureN)self_73855)->elements[1], &c_733547, ((closureN)self_73855)->elements[2]);; } static void __lambda_379(void *data, int argc, object self_73856, object r_73304) { closureN_type c_733448; c_733448.hdr.mark = gc_color_red; c_733448.hdr.grayed = 0; c_733448.tag = closureN_tag; c_733448.fn = (function_type)__lambda_378; c_733448.num_args = 2; c_733448.num_elements = 4; c_733448.elements = (object *)alloca(sizeof(object) * 4); c_733448.elements[0] = ((closureN)self_73856)->elements[0]; c_733448.elements[1] = ((closureN)self_73856)->elements[1]; c_733448.elements[2] = ((closureN)self_73856)->elements[2]; c_733448.elements[3] = ((closureN)self_73856)->elements[4]; return_closcall2(data,(closure)&c_733448, ((closureN)self_73856)->elements[3], r_73304);; } static void __lambda_378(void *data, int argc, object self_73857, object c_73134, object next_73133) { closureN_type c_733450; c_733450.hdr.mark = gc_color_red; c_733450.hdr.grayed = 0; c_733450.tag = closureN_tag; c_733450.fn = (function_type)__lambda_377; c_733450.num_args = 1; c_733450.num_elements = 6; c_733450.elements = (object *)alloca(sizeof(object) * 6); c_733450.elements[0] = ((closureN)self_73857)->elements[0]; c_733450.elements[1] = c_73134; c_733450.elements[2] = ((closureN)self_73857)->elements[1]; c_733450.elements[3] = next_73133; c_733450.elements[4] = ((closureN)self_73857)->elements[2]; c_733450.elements[5] = ((closureN)self_73857)->elements[3]; return_closcall2(data, __glo_sign_127_scheme_read, &c_733450, c_73134);; } static void __lambda_377(void *data, int argc, object self_73858, object r_73305) { if( (boolean_f != r_73305) ){ return_closcall2(data, ((closureN)self_73858)->elements[3], ((closureN)self_73858)->elements[2], ((closureN)self_73858)->elements[1]); } else { if( (boolean_f != Cyc_eq(obj_char2obj(46), ((closureN)self_73858)->elements[1])) ){ return_closcall2(data, ((closureN)self_73858)->elements[3], ((closureN)self_73858)->elements[2], ((closureN)self_73858)->elements[1]); } else { closureN_type c_733463; c_733463.hdr.mark = gc_color_red; c_733463.hdr.grayed = 0; c_733463.tag = closureN_tag; c_733463.fn = (function_type)__lambda_376; c_733463.num_args = 1; c_733463.num_elements = 6; c_733463.elements = (object *)alloca(sizeof(object) * 6); c_733463.elements[0] = ((closureN)self_73858)->elements[0]; c_733463.elements[1] = ((closureN)self_73858)->elements[1]; c_733463.elements[2] = ((closureN)self_73858)->elements[2]; c_733463.elements[3] = ((closureN)self_73858)->elements[3]; c_733463.elements[4] = ((closureN)self_73858)->elements[4]; c_733463.elements[5] = ((closureN)self_73858)->elements[5]; return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733463, ((closureN)self_73858)->elements[1]);} } ; } static void __lambda_376(void *data, int argc, object self_73859, object r_73307) { if( (boolean_f != r_73307) ){ closureN_type c_733465; c_733465.hdr.mark = gc_color_red; c_733465.hdr.grayed = 0; c_733465.tag = closureN_tag; c_733465.fn = (function_type)__lambda_370; c_733465.num_args = 0; c_733465.num_elements = 3; c_733465.elements = (object *)alloca(sizeof(object) * 3); c_733465.elements[0] = ((closureN)self_73859)->elements[0]; c_733465.elements[1] = ((closureN)self_73859)->elements[1]; c_733465.elements[2] = ((closureN)self_73859)->elements[4]; closureN_type c_733509; c_733509.hdr.mark = gc_color_red; c_733509.hdr.grayed = 0; c_733509.tag = closureN_tag; c_733509.fn = (function_type)__lambda_371; c_733509.num_args = 1; c_733509.num_elements = 3; c_733509.elements = (object *)alloca(sizeof(object) * 3); c_733509.elements[0] = ((closureN)self_73859)->elements[1]; c_733509.elements[1] = ((closureN)self_73859)->elements[2]; c_733509.elements[2] = ((closureN)self_73859)->elements[3]; return_closcall1(data,(closure)&c_733465, &c_733509); } else { closureN_type c_733515; c_733515.hdr.mark = gc_color_red; c_733515.hdr.grayed = 0; c_733515.tag = closureN_tag; c_733515.fn = (function_type)__lambda_373; c_733515.num_args = 0; c_733515.num_elements = 2; c_733515.elements = (object *)alloca(sizeof(object) * 2); c_733515.elements[0] = ((closureN)self_73859)->elements[0]; c_733515.elements[1] = ((closureN)self_73859)->elements[1]; closureN_type c_733527; c_733527.hdr.mark = gc_color_red; c_733527.hdr.grayed = 0; c_733527.tag = closureN_tag; c_733527.fn = (function_type)__lambda_375; c_733527.num_args = 1; c_733527.num_elements = 5; c_733527.elements = (object *)alloca(sizeof(object) * 5); c_733527.elements[0] = ((closureN)self_73859)->elements[1]; c_733527.elements[1] = ((closureN)self_73859)->elements[2]; c_733527.elements[2] = ((closureN)self_73859)->elements[3]; c_733527.elements[3] = ((closureN)self_73859)->elements[4]; c_733527.elements[4] = ((closureN)self_73859)->elements[5]; return_closcall1(data,(closure)&c_733515, &c_733527);} ; } static void __lambda_375(void *data, int argc, object self_73860, object r_73318) { if( (boolean_f != r_73318) ){ return_closcall2(data, ((closureN)self_73860)->elements[2], ((closureN)self_73860)->elements[1], ((closureN)self_73860)->elements[0]); } else { closureN_type c_733533; c_733533.hdr.mark = gc_color_red; c_733533.hdr.grayed = 0; c_733533.tag = closureN_tag; c_733533.fn = (function_type)__lambda_374; c_733533.num_args = 1; c_733533.num_elements = 2; c_733533.elements = (object *)alloca(sizeof(object) * 2); c_733533.elements[0] = ((closureN)self_73860)->elements[1]; c_733533.elements[1] = ((closureN)self_73860)->elements[4]; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_733533, ((closureN)self_73860)->elements[3], ((closureN)self_73860)->elements[0]);} ; } static void __lambda_374(void *data, int argc, object self_73861, object r_73319) { return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_73861)->elements[0], ((closureN)self_73861)->elements[1]);; } static void __lambda_373(void *data, int argc, object self_73862, object k_73320) { closureN_type c_733517; c_733517.hdr.mark = gc_color_red; c_733517.hdr.grayed = 0; c_733517.tag = closureN_tag; c_733517.fn = (function_type)__lambda_372; c_733517.num_args = 1; c_733517.num_elements = 2; c_733517.elements = (object *)alloca(sizeof(object) * 2); c_733517.elements[0] = ((closureN)self_73862)->elements[1]; c_733517.elements[1] = k_73320; object c_733525 = Cyc_num_eq(data,(closure)&c_733517,2,((closureN)self_73862)->elements[0], obj_int2obj(16)); return_closcall1(data,(closure)&c_733517, c_733525);; } static void __lambda_372(void *data, int argc, object self_73863, object r_73321) { if( (boolean_f != r_73321) ){ return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73863)->elements[1], ((closureN)self_73863)->elements[0]); } else { return_closcall1(data, ((closureN)self_73863)->elements[1], boolean_f);} ; } static void __lambda_371(void *data, int argc, object self_73864, object r_73308) { return_closcall2(data, ((closureN)self_73864)->elements[2], ((closureN)self_73864)->elements[1], ((closureN)self_73864)->elements[0]);; } static void __lambda_370(void *data, int argc, object self_73865, object k_73309) { closureN_type c_733467; c_733467.hdr.mark = gc_color_red; c_733467.hdr.grayed = 0; c_733467.tag = closureN_tag; c_733467.fn = (function_type)__lambda_363; c_733467.num_args = 0; c_733467.num_elements = 2; c_733467.elements = (object *)alloca(sizeof(object) * 2); c_733467.elements[0] = ((closureN)self_73865)->elements[0]; c_733467.elements[1] = ((closureN)self_73865)->elements[1]; closureN_type c_733479; c_733479.hdr.mark = gc_color_red; c_733479.hdr.grayed = 0; c_733479.tag = closureN_tag; c_733479.fn = (function_type)__lambda_369; c_733479.num_args = 1; c_733479.num_elements = 4; c_733479.elements = (object *)alloca(sizeof(object) * 4); c_733479.elements[0] = ((closureN)self_73865)->elements[0]; c_733479.elements[1] = ((closureN)self_73865)->elements[1]; c_733479.elements[2] = k_73309; c_733479.elements[3] = ((closureN)self_73865)->elements[2]; return_closcall1(data,(closure)&c_733467, &c_733479);; } static void __lambda_369(void *data, int argc, object self_73866, object tmp_73135) { closureN_type c_733481; c_733481.hdr.mark = gc_color_red; c_733481.hdr.grayed = 0; c_733481.tag = closureN_tag; c_733481.fn = (function_type)__lambda_365; c_733481.num_args = 0; c_733481.num_elements = 3; c_733481.elements = (object *)alloca(sizeof(object) * 3); c_733481.elements[0] = ((closureN)self_73866)->elements[0]; c_733481.elements[1] = ((closureN)self_73866)->elements[1]; c_733481.elements[2] = tmp_73135; closureN_type c_733496; c_733496.hdr.mark = gc_color_red; c_733496.hdr.grayed = 0; c_733496.tag = closureN_tag; c_733496.fn = (function_type)__lambda_368; c_733496.num_args = 1; c_733496.num_elements = 2; c_733496.elements = (object *)alloca(sizeof(object) * 2); c_733496.elements[0] = ((closureN)self_73866)->elements[2]; c_733496.elements[1] = ((closureN)self_73866)->elements[3]; return_closcall1(data,(closure)&c_733481, &c_733496);; } static void __lambda_368(void *data, int argc, object self_73867, object r_73310) { if( (boolean_f != r_73310) ){ closureN_type c_733498; c_733498.hdr.mark = gc_color_red; c_733498.hdr.grayed = 0; c_733498.tag = closureN_tag; c_733498.fn = (function_type)__lambda_367; c_733498.num_args = 1; c_733498.num_elements = 2; c_733498.elements = (object *)alloca(sizeof(object) * 2); c_733498.elements[0] = ((closureN)self_73867)->elements[0]; c_733498.elements[1] = ((closureN)self_73867)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733498, ((closureN)self_73867)->elements[1]); } else { return_closcall1(data, ((closureN)self_73867)->elements[0], boolean_f);} ; } static void __lambda_367(void *data, int argc, object self_73868, object r_73311) { closureN_type c_733500; c_733500.hdr.mark = gc_color_red; c_733500.hdr.grayed = 0; c_733500.tag = closureN_tag; c_733500.fn = (function_type)__lambda_366; c_733500.num_args = 1; c_733500.num_elements = 2; c_733500.elements = (object *)alloca(sizeof(object) * 2); c_733500.elements[0] = ((closureN)self_73868)->elements[0]; c_733500.elements[1] = r_73311; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733500, ((closureN)self_73868)->elements[1]);; } static void __lambda_366(void *data, int argc, object self_73869, object r_73312) { make_string(c_733503, "Illegal digit"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73869)->elements[0], &c_733503, ((closureN)self_73869)->elements[1], r_73312);; } static void __lambda_365(void *data, int argc, object self_73870, object k_73314) { if( (boolean_f != ((closureN)self_73870)->elements[2]) ){ return_closcall1(data, k_73314, ((closureN)self_73870)->elements[2]); } else { closureN_type c_733486; c_733486.hdr.mark = gc_color_red; c_733486.hdr.grayed = 0; c_733486.tag = closureN_tag; c_733486.fn = (function_type)__lambda_364; c_733486.num_args = 1; c_733486.num_elements = 2; c_733486.elements = (object *)alloca(sizeof(object) * 2); c_733486.elements[0] = ((closureN)self_73870)->elements[1]; c_733486.elements[1] = k_73314; object c_733494 = Cyc_num_eq(data,(closure)&c_733486,2,((closureN)self_73870)->elements[0], obj_int2obj(8)); return_closcall1(data,(closure)&c_733486, c_733494);} ; } static void __lambda_364(void *data, int argc, object self_73871, object r_73315) { if( (boolean_f != r_73315) ){ return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73871)->elements[1], ((closureN)self_73871)->elements[0], obj_char2obj(55)); } else { return_closcall1(data, ((closureN)self_73871)->elements[1], boolean_f);} ; } static void __lambda_363(void *data, int argc, object self_73872, object k_73316) { closureN_type c_733469; c_733469.hdr.mark = gc_color_red; c_733469.hdr.grayed = 0; c_733469.tag = closureN_tag; c_733469.fn = (function_type)__lambda_362; c_733469.num_args = 1; c_733469.num_elements = 2; c_733469.elements = (object *)alloca(sizeof(object) * 2); c_733469.elements[0] = ((closureN)self_73872)->elements[1]; c_733469.elements[1] = k_73316; object c_733477 = Cyc_num_eq(data,(closure)&c_733469,2,((closureN)self_73872)->elements[0], obj_int2obj(2)); return_closcall1(data,(closure)&c_733469, c_733477);; } static void __lambda_362(void *data, int argc, object self_73873, object r_73317) { if( (boolean_f != r_73317) ){ return_closcall3(data, __glo_char_125_127_scheme_base, ((closureN)self_73873)->elements[1], ((closureN)self_73873)->elements[0], obj_char2obj(49)); } else { return_closcall1(data, ((closureN)self_73873)->elements[1], boolean_f);} ; } static void __lambda_361(void *data, int argc, closure _,object k_73326, object fp_73142, object toks_73141, object all_127_73140, object parens_73139, object ptbl_73138, object base_73137, object tok_91_125num_73136) { Cyc_st_add(data, "scheme/read.sld:parse-number"); closureN_type c_733371; c_733371.hdr.mark = gc_color_red; c_733371.hdr.grayed = 0; c_733371.tag = closureN_tag; c_733371.fn = (function_type)__lambda_360; c_733371.num_args = 1; c_733371.num_elements = 8; c_733371.elements = (object *)alloca(sizeof(object) * 8); c_733371.elements[0] = all_127_73140; c_733371.elements[1] = base_73137; c_733371.elements[2] = fp_73142; c_733371.elements[3] = k_73326; c_733371.elements[4] = parens_73139; c_733371.elements[5] = ptbl_73138; c_733371.elements[6] = tok_91_125num_73136; c_733371.elements[7] = toks_73141; return_closcall1(data,(closure)&c_733371, NULL);; } static void __lambda_360(void *data, int argc, object self_73874, object r_73341) { closureN_type c_733373; c_733373.hdr.mark = gc_color_red; c_733373.hdr.grayed = 0; c_733373.tag = closureN_tag; c_733373.fn = (function_type)__lambda_359; c_733373.num_args = 1; c_733373.num_elements = 8; c_733373.elements = (object *)alloca(sizeof(object) * 8); c_733373.elements[0] = ((closureN)self_73874)->elements[0]; c_733373.elements[1] = ((closureN)self_73874)->elements[1]; c_733373.elements[2] = ((closureN)self_73874)->elements[2]; c_733373.elements[3] = ((closureN)self_73874)->elements[3]; c_733373.elements[4] = ((closureN)self_73874)->elements[4]; c_733373.elements[5] = ((closureN)self_73874)->elements[5]; c_733373.elements[6] = ((closureN)self_73874)->elements[6]; c_733373.elements[7] = ((closureN)self_73874)->elements[7]; return_closcall5(data, __glo_parse_91number_91rec_scheme_read, &c_733373, ((closureN)self_73874)->elements[1], ((closureN)self_73874)->elements[2], r_73341, ((closureN)self_73874)->elements[5]);; } static void __lambda_359(void *data, int argc, object self_73875, object num_73143) { closureN_type c_733375; c_733375.hdr.mark = gc_color_red; c_733375.hdr.grayed = 0; c_733375.tag = closureN_tag; c_733375.fn = (function_type)__lambda_353; c_733375.num_args = 0; c_733375.num_elements = 2; c_733375.elements = (object *)alloca(sizeof(object) * 2); c_733375.elements[0] = ((closureN)self_73875)->elements[1]; c_733375.elements[1] = num_73143; closureN_type c_733408; c_733408.hdr.mark = gc_color_red; c_733408.hdr.grayed = 0; c_733408.tag = closureN_tag; c_733408.fn = (function_type)__lambda_358; c_733408.num_args = 1; c_733408.num_elements = 8; c_733408.elements = (object *)alloca(sizeof(object) * 8); c_733408.elements[0] = ((closureN)self_73875)->elements[0]; c_733408.elements[1] = ((closureN)self_73875)->elements[2]; c_733408.elements[2] = ((closureN)self_73875)->elements[3]; c_733408.elements[3] = num_73143; c_733408.elements[4] = ((closureN)self_73875)->elements[4]; c_733408.elements[5] = ((closureN)self_73875)->elements[5]; c_733408.elements[6] = ((closureN)self_73875)->elements[6]; c_733408.elements[7] = ((closureN)self_73875)->elements[7]; return_closcall1(data,(closure)&c_733375, &c_733408);; } static void __lambda_358(void *data, int argc, object self_73876, object r_73328) { if( (boolean_f != r_73328) ){ closureN_type c_733411; c_733411.hdr.mark = gc_color_red; c_733411.hdr.grayed = 0; c_733411.tag = closureN_tag; c_733411.fn = (function_type)__lambda_355; c_733411.num_args = 1; c_733411.num_elements = 6; c_733411.elements = (object *)alloca(sizeof(object) * 6); c_733411.elements[0] = ((closureN)self_73876)->elements[0]; c_733411.elements[1] = ((closureN)self_73876)->elements[1]; c_733411.elements[2] = ((closureN)self_73876)->elements[2]; c_733411.elements[3] = ((closureN)self_73876)->elements[4]; c_733411.elements[4] = ((closureN)self_73876)->elements[5]; c_733411.elements[5] = ((closureN)self_73876)->elements[7]; return_closcall2(data, ((closureN)self_73876)->elements[6], &c_733411, ((closureN)self_73876)->elements[3]); } else { closureN_type c_733430; c_733430.hdr.mark = gc_color_red; c_733430.hdr.grayed = 0; c_733430.tag = closureN_tag; c_733430.fn = (function_type)__lambda_357; c_733430.num_args = 1; c_733430.num_elements = 2; c_733430.elements = (object *)alloca(sizeof(object) * 2); c_733430.elements[0] = ((closureN)self_73876)->elements[2]; c_733430.elements[1] = ((closureN)self_73876)->elements[5]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733430, ((closureN)self_73876)->elements[5]);} ; } static void __lambda_357(void *data, int argc, object self_73877, object r_73332) { closureN_type c_733432; c_733432.hdr.mark = gc_color_red; c_733432.hdr.grayed = 0; c_733432.tag = closureN_tag; c_733432.fn = (function_type)__lambda_356; c_733432.num_args = 1; c_733432.num_elements = 2; c_733432.elements = (object *)alloca(sizeof(object) * 2); c_733432.elements[0] = ((closureN)self_73877)->elements[0]; c_733432.elements[1] = r_73332; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733432, ((closureN)self_73877)->elements[1]);; } static void __lambda_356(void *data, int argc, object self_73878, object r_73333) { make_string(c_733435, "Illegal number syntax"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73878)->elements[0], &c_733435, ((closureN)self_73878)->elements[1], r_73333);; } static void __lambda_355(void *data, int argc, object self_73879, object result_73144) { if( (boolean_f != ((closureN)self_73879)->elements[0]) ){ closureN_type c_733414; c_733414.hdr.mark = gc_color_red; c_733414.hdr.grayed = 0; c_733414.tag = closureN_tag; c_733414.fn = (function_type)__lambda_354; c_733414.num_args = 1; c_733414.num_elements = 7; c_733414.elements = (object *)alloca(sizeof(object) * 7); c_733414.elements[0] = ((closureN)self_73879)->elements[0]; c_733414.elements[1] = ((closureN)self_73879)->elements[1]; c_733414.elements[2] = ((closureN)self_73879)->elements[2]; c_733414.elements[3] = ((closureN)self_73879)->elements[3]; c_733414.elements[4] = ((closureN)self_73879)->elements[4]; c_733414.elements[5] = result_73144; c_733414.elements[6] = ((closureN)self_73879)->elements[5]; return_closcall1(data,(closure)&c_733414, NULL); } else { return_closcall1(data, ((closureN)self_73879)->elements[2], result_73144);} ; } static void __lambda_354(void *data, int argc, object self_73880, object r_73330) { make_pair(c_733420,((closureN)self_73880)->elements[5], ((closureN)self_73880)->elements[6]); return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73880)->elements[2], ((closureN)self_73880)->elements[1], r_73330, &c_733420, ((closureN)self_73880)->elements[0], boolean_f, ((closureN)self_73880)->elements[3], ((closureN)self_73880)->elements[4]);; } static void __lambda_353(void *data, int argc, object self_73881, object k_73334) { if( (boolean_f != Cyc_is_null(((closureN)self_73881)->elements[1])) ){ return_closcall1(data, k_73334, boolean_f); } else { closureN_type c_733381; c_733381.hdr.mark = gc_color_red; c_733381.hdr.grayed = 0; c_733381.tag = closureN_tag; c_733381.fn = (function_type)__lambda_352; c_733381.num_args = 1; c_733381.num_elements = 3; c_733381.elements = (object *)alloca(sizeof(object) * 3); c_733381.elements[0] = ((closureN)self_73881)->elements[0]; c_733381.elements[1] = k_73334; c_733381.elements[2] = ((closureN)self_73881)->elements[1]; return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733381, ((closureN)self_73881)->elements[1]);} ; } static void __lambda_352(void *data, int argc, object self_73882, object tmp_73145) { if( (boolean_f != tmp_73145) ){ return_closcall1(data, ((closureN)self_73882)->elements[1], tmp_73145); } else { closureN_type c_733385; c_733385.hdr.mark = gc_color_red; c_733385.hdr.grayed = 0; c_733385.tag = closureN_tag; c_733385.fn = (function_type)__lambda_351; c_733385.num_args = 1; c_733385.num_elements = 3; c_733385.elements = (object *)alloca(sizeof(object) * 3); c_733385.elements[0] = ((closureN)self_73882)->elements[0]; c_733385.elements[1] = ((closureN)self_73882)->elements[1]; c_733385.elements[2] = ((closureN)self_73882)->elements[2]; object c_733403 = Cyc_num_gt(data,(closure)&c_733385,2,Cyc_length(data, ((closureN)self_73882)->elements[2]), obj_int2obj(0)); return_closcall1(data,(closure)&c_733385, c_733403);} ; } static void __lambda_351(void *data, int argc, object self_73883, object r_73337) { if( (boolean_f != r_73337) ){ closureN_type c_733387; c_733387.hdr.mark = gc_color_red; c_733387.hdr.grayed = 0; c_733387.tag = closureN_tag; c_733387.fn = (function_type)__lambda_350; c_733387.num_args = 1; c_733387.num_elements = 2; c_733387.elements = (object *)alloca(sizeof(object) * 2); c_733387.elements[0] = ((closureN)self_73883)->elements[1]; c_733387.elements[1] = ((closureN)self_73883)->elements[2]; object c_733397 = Cyc_num_eq(data,(closure)&c_733387,2,((closureN)self_73883)->elements[0], obj_int2obj(16)); return_closcall1(data,(closure)&c_733387, c_733397); } else { return_closcall1(data, ((closureN)self_73883)->elements[1], boolean_f);} ; } static void __lambda_350(void *data, int argc, object self_73884, object r_73338) { if( (boolean_f != r_73338) ){ return_closcall2(data, __glo_hex_91digit_127_scheme_read, ((closureN)self_73884)->elements[0], car(((closureN)self_73884)->elements[1])); } else { return_closcall1(data, ((closureN)self_73884)->elements[0], boolean_f);} ; } static void __lambda_349(void *data, int argc, closure _,object k_73344, object fp_73148, object tok_73147, object ptbl_73146) { Cyc_st_add(data, "scheme/read.sld:parse-li-rec"); closureN_type c_733319; c_733319.hdr.mark = gc_color_red; c_733319.hdr.grayed = 0; c_733319.tag = closureN_tag; c_733319.fn = (function_type)__lambda_348; c_733319.num_args = 1; c_733319.num_elements = 4; c_733319.elements = (object *)alloca(sizeof(object) * 4); c_733319.elements[0] = fp_73148; c_733319.elements[1] = k_73344; c_733319.elements[2] = ptbl_73146; c_733319.elements[3] = tok_73147; return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733319, fp_73148, ptbl_73146);; } static void __lambda_348(void *data, int argc, object self_73885, object r_73345) { closureN_type c_733321; c_733321.hdr.mark = gc_color_red; c_733321.hdr.grayed = 0; c_733321.tag = closureN_tag; c_733321.fn = (function_type)__lambda_346; c_733321.num_args = 1; c_733321.num_elements = 4; c_733321.elements = (object *)alloca(sizeof(object) * 4); c_733321.elements[0] = ((closureN)self_73885)->elements[1]; c_733321.elements[1] = ((closureN)self_73885)->elements[2]; c_733321.elements[2] = r_73345; c_733321.elements[3] = ((closureN)self_73885)->elements[3]; closureN_type c_733361; c_733361.hdr.mark = gc_color_red; c_733361.hdr.grayed = 0; c_733361.tag = closureN_tag; c_733361.fn = (function_type)__lambda_347; c_733361.num_args = 1; c_733361.num_elements = 3; c_733361.elements = (object *)alloca(sizeof(object) * 3); c_733361.elements[0] = ((closureN)self_73885)->elements[0]; c_733361.elements[1] = ((closureN)self_73885)->elements[2]; c_733361.elements[2] = ((closureN)self_73885)->elements[3]; return_closcall1(data,(closure)&c_733321, &c_733361);; } static void __lambda_347(void *data, int argc, object self_73886, object k_73355, object c_73149) { make_pair(c_733366,c_73149, ((closureN)self_73886)->elements[2]); return_closcall4(data, __glo_parse_91li_91rec_scheme_read, k_73355, ((closureN)self_73886)->elements[0], &c_733366, ((closureN)self_73886)->elements[1]);; } static void __lambda_346(void *data, int argc, object self_73887, object r_73346) { closureN_type c_733323; c_733323.hdr.mark = gc_color_red; c_733323.hdr.grayed = 0; c_733323.tag = closureN_tag; c_733323.fn = (function_type)__lambda_345; c_733323.num_args = 2; c_733323.num_elements = 3; c_733323.elements = (object *)alloca(sizeof(object) * 3); c_733323.elements[0] = ((closureN)self_73887)->elements[0]; c_733323.elements[1] = ((closureN)self_73887)->elements[1]; c_733323.elements[2] = ((closureN)self_73887)->elements[3]; return_closcall2(data,(closure)&c_733323, ((closureN)self_73887)->elements[2], r_73346);; } static void __lambda_345(void *data, int argc, object self_73888, object c_73151, object next_73150) { if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73151)) ){ closureN_type c_733327; c_733327.hdr.mark = gc_color_red; c_733327.hdr.grayed = 0; c_733327.tag = closureN_tag; c_733327.fn = (function_type)__lambda_341; c_733327.num_args = 0; c_733327.num_elements = 1; c_733327.elements = (object *)alloca(sizeof(object) * 1); c_733327.elements[0] = ((closureN)self_73888)->elements[2]; closureN_type c_733341; c_733341.hdr.mark = gc_color_red; c_733341.hdr.grayed = 0; c_733341.tag = closureN_tag; c_733341.fn = (function_type)__lambda_342; c_733341.num_args = 1; c_733341.num_elements = 1; c_733341.elements = (object *)alloca(sizeof(object) * 1); c_733341.elements[0] = ((closureN)self_73888)->elements[0]; return_closcall1(data,(closure)&c_733327, &c_733341); } else { if( (boolean_f != Cyc_is_eof_object(c_73151)) ){ closureN_type c_733349; c_733349.hdr.mark = gc_color_red; c_733349.hdr.grayed = 0; c_733349.tag = closureN_tag; c_733349.fn = (function_type)__lambda_344; c_733349.num_args = 1; c_733349.num_elements = 2; c_733349.elements = (object *)alloca(sizeof(object) * 2); c_733349.elements[0] = ((closureN)self_73888)->elements[0]; c_733349.elements[1] = ((closureN)self_73888)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733349, ((closureN)self_73888)->elements[1]); } else { return_closcall2(data, next_73150, ((closureN)self_73888)->elements[0], c_73151);} } ; } static void __lambda_344(void *data, int argc, object self_73889, object r_73353) { closureN_type c_733351; c_733351.hdr.mark = gc_color_red; c_733351.hdr.grayed = 0; c_733351.tag = closureN_tag; c_733351.fn = (function_type)__lambda_343; c_733351.num_args = 1; c_733351.num_elements = 2; c_733351.elements = (object *)alloca(sizeof(object) * 2); c_733351.elements[0] = ((closureN)self_73889)->elements[0]; c_733351.elements[1] = r_73353; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733351, ((closureN)self_73889)->elements[1]);; } static void __lambda_343(void *data, int argc, object self_73890, object r_73354) { make_string(c_733354, "EOF encountered parsing literal identifier"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73890)->elements[0], &c_733354, ((closureN)self_73890)->elements[1], r_73354);; } static void __lambda_342(void *data, int argc, object self_73891, object str_73152) { return_closcall1(data, ((closureN)self_73891)->elements[0], Cyc_string2symbol(data, str_73152));; } static void __lambda_341(void *data, int argc, object self_73892, object k_73349) { if( (boolean_f != Cyc_is_null(((closureN)self_73892)->elements[0])) ){ make_string(c_733332, "||"); return_closcall1(data, k_73349, &c_733332); } else { closureN_type c_733334; c_733334.hdr.mark = gc_color_red; c_733334.hdr.grayed = 0; c_733334.tag = closureN_tag; c_733334.fn = (function_type)__lambda_340; c_733334.num_args = 1; c_733334.num_elements = 1; c_733334.elements = (object *)alloca(sizeof(object) * 1); c_733334.elements[0] = k_73349; return_closcall2(data, __glo_reverse_scheme_base, &c_733334, ((closureN)self_73892)->elements[0]);} ; } static void __lambda_340(void *data, int argc, object self_73893, object r_73351) { object c_733339 = Cyc_list2string(data, ((closureN)self_73893)->elements[0],r_73351); return_closcall1(data, ((closureN)self_73893)->elements[0], c_733339);; } static void __lambda_339(void *data, int argc, closure _,object k_73359, object fp_73157, object toks_73156, object all_127_73155, object parens_73154, object ptbl_73153) { Cyc_st_add(data, "scheme/read.sld:parse-literal-identifier"); closureN_type c_733296; c_733296.hdr.mark = gc_color_red; c_733296.hdr.grayed = 0; c_733296.tag = closureN_tag; c_733296.fn = (function_type)__lambda_338; c_733296.num_args = 1; c_733296.num_elements = 6; c_733296.elements = (object *)alloca(sizeof(object) * 6); c_733296.elements[0] = all_127_73155; c_733296.elements[1] = fp_73157; c_733296.elements[2] = k_73359; c_733296.elements[3] = parens_73154; c_733296.elements[4] = ptbl_73153; c_733296.elements[5] = toks_73156; return_closcall1(data,(closure)&c_733296, NULL);; } static void __lambda_338(void *data, int argc, object self_73894, object r_73363) { closureN_type c_733298; c_733298.hdr.mark = gc_color_red; c_733298.hdr.grayed = 0; c_733298.tag = closureN_tag; c_733298.fn = (function_type)__lambda_337; c_733298.num_args = 1; c_733298.num_elements = 6; c_733298.elements = (object *)alloca(sizeof(object) * 6); c_733298.elements[0] = ((closureN)self_73894)->elements[0]; c_733298.elements[1] = ((closureN)self_73894)->elements[1]; c_733298.elements[2] = ((closureN)self_73894)->elements[2]; c_733298.elements[3] = ((closureN)self_73894)->elements[3]; c_733298.elements[4] = ((closureN)self_73894)->elements[4]; c_733298.elements[5] = ((closureN)self_73894)->elements[5]; return_closcall4(data, __glo_parse_91li_91rec_scheme_read, &c_733298, ((closureN)self_73894)->elements[1], r_73363, ((closureN)self_73894)->elements[4]);; } static void __lambda_337(void *data, int argc, object self_73895, object sym_73158) { if( (boolean_f != ((closureN)self_73895)->elements[0]) ){ closureN_type c_733301; c_733301.hdr.mark = gc_color_red; c_733301.hdr.grayed = 0; c_733301.tag = closureN_tag; c_733301.fn = (function_type)__lambda_336; c_733301.num_args = 1; c_733301.num_elements = 7; c_733301.elements = (object *)alloca(sizeof(object) * 7); c_733301.elements[0] = ((closureN)self_73895)->elements[0]; c_733301.elements[1] = ((closureN)self_73895)->elements[1]; c_733301.elements[2] = ((closureN)self_73895)->elements[2]; c_733301.elements[3] = ((closureN)self_73895)->elements[3]; c_733301.elements[4] = ((closureN)self_73895)->elements[4]; c_733301.elements[5] = sym_73158; c_733301.elements[6] = ((closureN)self_73895)->elements[5]; return_closcall1(data,(closure)&c_733301, NULL); } else { return_closcall1(data, ((closureN)self_73895)->elements[2], sym_73158);} ; } static void __lambda_336(void *data, int argc, object self_73896, object r_73361) { make_pair(c_733307,((closureN)self_73896)->elements[5], ((closureN)self_73896)->elements[6]); return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73896)->elements[2], ((closureN)self_73896)->elements[1], r_73361, &c_733307, ((closureN)self_73896)->elements[0], boolean_f, ((closureN)self_73896)->elements[3], ((closureN)self_73896)->elements[4]);; } static void __lambda_335(void *data, int argc, closure _,object k_73366, object fp_73160, object ptbl_73159) { Cyc_st_add(data, "scheme/read.sld:read-block-terminator"); closureN_type c_733279; c_733279.hdr.mark = gc_color_red; c_733279.hdr.grayed = 0; c_733279.tag = closureN_tag; c_733279.fn = (function_type)__lambda_334; c_733279.num_args = 1; c_733279.num_elements = 3; c_733279.elements = (object *)alloca(sizeof(object) * 3); c_733279.elements[0] = fp_73160; c_733279.elements[1] = k_73366; c_733279.elements[2] = ptbl_73159; return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733279, fp_73160, ptbl_73159);; } static void __lambda_334(void *data, int argc, object self_73897, object c_73161) { if( (boolean_f != Cyc_eq(obj_char2obj(35), c_73161)) ){ return_closcall1(data, ((closureN)self_73897)->elements[1], boolean_t); } else { if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73161)) ){ return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73897)->elements[1], ((closureN)self_73897)->elements[0], ((closureN)self_73897)->elements[2]); } else { return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73897)->elements[1], ((closureN)self_73897)->elements[0], ((closureN)self_73897)->elements[2]);} } ; } static void __lambda_333(void *data, int argc, closure _,object k_73372, object fp_73163, object ptbl_73162) { Cyc_st_add(data, "scheme/read.sld:read-block-comment"); closureN_type c_733266; c_733266.hdr.mark = gc_color_red; c_733266.hdr.grayed = 0; c_733266.tag = closureN_tag; c_733266.fn = (function_type)__lambda_332; c_733266.num_args = 1; c_733266.num_elements = 3; c_733266.elements = (object *)alloca(sizeof(object) * 3); c_733266.elements[0] = fp_73163; c_733266.elements[1] = k_73372; c_733266.elements[2] = ptbl_73162; return_closcall3(data, __glo_get_91next_91char_scheme_read, &c_733266, fp_73163, ptbl_73162);; } static void __lambda_332(void *data, int argc, object self_73898, object c_73164) { if( (boolean_f != Cyc_eq(obj_char2obj(124), c_73164)) ){ return_closcall3(data, __glo_read_91block_91terminator_scheme_read, ((closureN)self_73898)->elements[1], ((closureN)self_73898)->elements[0], ((closureN)self_73898)->elements[2]); } else { return_closcall3(data, __glo_read_91block_91comment_scheme_read, ((closureN)self_73898)->elements[1], ((closureN)self_73898)->elements[0], ((closureN)self_73898)->elements[2]);} ; } static void __lambda_331(void *data, int argc, closure _,object k_73377, object fp_73166, object ptbl_73165) { Cyc_st_add(data, "scheme/read.sld:get-next-char"); closureN_type c_733254; c_733254.hdr.mark = gc_color_red; c_733254.hdr.grayed = 0; c_733254.tag = closureN_tag; c_733254.fn = (function_type)__lambda_330; c_733254.num_args = 1; c_733254.num_elements = 3; c_733254.elements = (object *)alloca(sizeof(object) * 3); c_733254.elements[0] = fp_73166; c_733254.elements[1] = k_73377; c_733254.elements[2] = ptbl_73165; return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_733254, ptbl_73165);; } static void __lambda_330(void *data, int argc, object self_73899, object r_73378) { if( (boolean_f != r_73378) ){ return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_73899)->elements[1], ((closureN)self_73899)->elements[2]); } else { object c_733262 = Cyc_io_read_char(data, ((closureN)self_73899)->elements[1],((closureN)self_73899)->elements[0]); return_closcall1(data, ((closureN)self_73899)->elements[1], c_733262);} ; } static void __lambda_329(void *data, int argc, closure _,object k_73381, object a_73167) { Cyc_st_add(data, "scheme/read.sld:parse-atom"); closureN_type c_733230; c_733230.hdr.mark = gc_color_red; c_733230.hdr.grayed = 0; c_733230.tag = closureN_tag; c_733230.fn = (function_type)__lambda_328; c_733230.num_args = 1; c_733230.num_elements = 2; c_733230.elements = (object *)alloca(sizeof(object) * 2); c_733230.elements[0] = a_73167; c_733230.elements[1] = k_73381; return_closcall2(data, __glo_token_91numeric_127_scheme_read, &c_733230, a_73167);; } static void __lambda_328(void *data, int argc, object self_73900, object r_73382) { if( (boolean_f != r_73382) ){ closureN_type c_733232; c_733232.hdr.mark = gc_color_red; c_733232.hdr.grayed = 0; c_733232.tag = closureN_tag; c_733232.fn = (function_type)__lambda_326; c_733232.num_args = 1; c_733232.num_elements = 1; c_733232.elements = (object *)alloca(sizeof(object) * 1); c_733232.elements[0] = ((closureN)self_73900)->elements[1]; object c_733240 = Cyc_list2string(data,(closure)&c_733232,((closureN)self_73900)->elements[0]); return_closcall1(data,(closure)&c_733232, c_733240); } else { closureN_type c_733243; c_733243.hdr.mark = gc_color_red; c_733243.hdr.grayed = 0; c_733243.tag = closureN_tag; c_733243.fn = (function_type)__lambda_327; c_733243.num_args = 1; c_733243.num_elements = 1; c_733243.elements = (object *)alloca(sizeof(object) * 1); c_733243.elements[0] = ((closureN)self_73900)->elements[1]; object c_733250 = Cyc_list2string(data,(closure)&c_733243,((closureN)self_73900)->elements[0]); return_closcall1(data,(closure)&c_733243, c_733250);} ; } static void __lambda_327(void *data, int argc, object self_73901, object r_73384) { return_closcall1(data, ((closureN)self_73901)->elements[0], Cyc_string2symbol(data, r_73384));; } static void __lambda_326(void *data, int argc, object self_73902, object r_73383) { object c_733237 = Cyc_string2number2_(data, ((closureN)self_73902)->elements[0],1,r_73383); return_closcall1(data, ((closureN)self_73902)->elements[0], c_733237);; } static void __lambda_325(void *data, int argc, closure _,object k_73387, object a_73168) { Cyc_st_add(data, "scheme/read.sld:token-numeric?"); closureN_type c_733162; c_733162.hdr.mark = gc_color_red; c_733162.hdr.grayed = 0; c_733162.tag = closureN_tag; c_733162.fn = (function_type)__lambda_324; c_733162.num_args = 1; c_733162.num_elements = 2; c_733162.elements = (object *)alloca(sizeof(object) * 2); c_733162.elements[0] = a_73168; c_733162.elements[1] = k_73387; return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733162, car(a_73168));; } static void __lambda_324(void *data, int argc, object self_73903, object tmp_73169) { if( (boolean_f != tmp_73169) ){ return_closcall1(data, ((closureN)self_73903)->elements[1], tmp_73169); } else { closureN_type c_733166; c_733166.hdr.mark = gc_color_red; c_733166.hdr.grayed = 0; c_733166.tag = closureN_tag; c_733166.fn = (function_type)__lambda_318; c_733166.num_args = 0; c_733166.num_elements = 1; c_733166.elements = (object *)alloca(sizeof(object) * 1); c_733166.elements[0] = ((closureN)self_73903)->elements[0]; closureN_type c_733189; c_733189.hdr.mark = gc_color_red; c_733189.hdr.grayed = 0; c_733189.tag = closureN_tag; c_733189.fn = (function_type)__lambda_323; c_733189.num_args = 1; c_733189.num_elements = 2; c_733189.elements = (object *)alloca(sizeof(object) * 2); c_733189.elements[0] = ((closureN)self_73903)->elements[0]; c_733189.elements[1] = ((closureN)self_73903)->elements[1]; return_closcall1(data,(closure)&c_733166, &c_733189);} ; } static void __lambda_323(void *data, int argc, object self_73904, object tmp_73170) { if( (boolean_f != tmp_73170) ){ return_closcall1(data, ((closureN)self_73904)->elements[1], tmp_73170); } else { closureN_type c_733193; c_733193.hdr.mark = gc_color_red; c_733193.hdr.grayed = 0; c_733193.tag = closureN_tag; c_733193.fn = (function_type)__lambda_322; c_733193.num_args = 1; c_733193.num_elements = 2; c_733193.elements = (object *)alloca(sizeof(object) * 2); c_733193.elements[0] = ((closureN)self_73904)->elements[0]; c_733193.elements[1] = ((closureN)self_73904)->elements[1]; object c_733222 = Cyc_num_gt(data,(closure)&c_733193,2,Cyc_length(data, ((closureN)self_73904)->elements[0]), obj_int2obj(1)); return_closcall1(data,(closure)&c_733193, c_733222);} ; } static void __lambda_322(void *data, int argc, object self_73905, object r_73390) { if( (boolean_f != r_73390) ){ closureN_type c_733195; c_733195.hdr.mark = gc_color_red; c_733195.hdr.grayed = 0; c_733195.tag = closureN_tag; c_733195.fn = (function_type)__lambda_321; c_733195.num_args = 1; c_733195.num_elements = 2; c_733195.elements = (object *)alloca(sizeof(object) * 2); c_733195.elements[0] = ((closureN)self_73905)->elements[0]; c_733195.elements[1] = ((closureN)self_73905)->elements[1]; return_closcall2(data, __glo_char_91numeric_127_scheme__char, &c_733195, cadr(((closureN)self_73905)->elements[0])); } else { return_closcall1(data, ((closureN)self_73905)->elements[1], boolean_f);} ; } static void __lambda_321(void *data, int argc, object self_73906, object tmp_73171) { closureN_type c_733197; c_733197.hdr.mark = gc_color_red; c_733197.hdr.grayed = 0; c_733197.tag = closureN_tag; c_733197.fn = (function_type)__lambda_319; c_733197.num_args = 0; c_733197.num_elements = 2; c_733197.elements = (object *)alloca(sizeof(object) * 2); c_733197.elements[0] = ((closureN)self_73906)->elements[0]; c_733197.elements[1] = tmp_73171; closureN_type c_733207; c_733207.hdr.mark = gc_color_red; c_733207.hdr.grayed = 0; c_733207.tag = closureN_tag; c_733207.fn = (function_type)__lambda_320; c_733207.num_args = 1; c_733207.num_elements = 2; c_733207.elements = (object *)alloca(sizeof(object) * 2); c_733207.elements[0] = ((closureN)self_73906)->elements[0]; c_733207.elements[1] = ((closureN)self_73906)->elements[1]; return_closcall1(data,(closure)&c_733197, &c_733207);; } static void __lambda_320(void *data, int argc, object self_73907, object r_73391) { if( (boolean_f != r_73391) ){ return_closcall2(data, __glo_sign_127_scheme_read, ((closureN)self_73907)->elements[1], car(((closureN)self_73907)->elements[0])); } else { return_closcall1(data, ((closureN)self_73907)->elements[1], boolean_f);} ; } static void __lambda_319(void *data, int argc, object self_73908, object k_73394) { if( (boolean_f != ((closureN)self_73908)->elements[1]) ){ return_closcall1(data, k_73394, ((closureN)self_73908)->elements[1]); } else { return_closcall1(data, k_73394, Cyc_eq(obj_char2obj(46), cadr(((closureN)self_73908)->elements[0])));} ; } static void __lambda_318(void *data, int argc, object self_73909, object k_73398) { closureN_type c_733168; c_733168.hdr.mark = gc_color_red; c_733168.hdr.grayed = 0; c_733168.tag = closureN_tag; c_733168.fn = (function_type)__lambda_317; c_733168.num_args = 1; c_733168.num_elements = 2; c_733168.elements = (object *)alloca(sizeof(object) * 2); c_733168.elements[0] = ((closureN)self_73909)->elements[0]; c_733168.elements[1] = k_73398; object c_733185 = Cyc_num_gt(data,(closure)&c_733168,2,Cyc_length(data, ((closureN)self_73909)->elements[0]), obj_int2obj(1)); return_closcall1(data,(closure)&c_733168, c_733185);; } static void __lambda_317(void *data, int argc, object self_73910, object r_73399) { if( (boolean_f != r_73399) ){ if( (boolean_f != Cyc_eq(obj_char2obj(46), car(((closureN)self_73910)->elements[0]))) ){ return_closcall2(data, __glo_char_91numeric_127_scheme__char, ((closureN)self_73910)->elements[1], cadr(((closureN)self_73910)->elements[0])); } else { return_closcall1(data, ((closureN)self_73910)->elements[1], boolean_f);} } else { return_closcall1(data, ((closureN)self_73910)->elements[1], boolean_f);} ; } static void __lambda_316(void *data, int argc, closure _,object k_73407, object c_73172) { Cyc_st_add(data, "scheme/read.sld:sign?"); if( (boolean_f != equalp(c_73172, obj_char2obj(43))) ){ return_closcall1(data, k_73407, equalp(c_73172, obj_char2obj(43))); } else { return_closcall1(data, k_73407, equalp(c_73172, obj_char2obj(45)));} ; } static void __lambda_315(void *data, int argc, closure _,object k_73411, object fp_73176, object buf_73175, object ptbl_73174) { Cyc_st_add(data, "scheme/read.sld:read-str-esc"); closureN_type c_733080; c_733080.hdr.mark = gc_color_red; c_733080.hdr.grayed = 0; c_733080.tag = closureN_tag; c_733080.fn = (function_type)__lambda_314; c_733080.num_args = 1; c_733080.num_elements = 3; c_733080.elements = (object *)alloca(sizeof(object) * 3); c_733080.elements[0] = buf_73175; c_733080.elements[1] = k_73411; c_733080.elements[2] = ptbl_73174; object c_733150 = Cyc_io_read_char(data,(closure)&c_733080,fp_73176); return_closcall1(data,(closure)&c_733080, c_733150);; } static void __lambda_314(void *data, int argc, object self_73911, object c_73177) { if( (boolean_f != Cyc_is_eof_object(c_73177)) ){ closureN_type c_733084; c_733084.hdr.mark = gc_color_red; c_733084.hdr.grayed = 0; c_733084.tag = closureN_tag; c_733084.fn = (function_type)__lambda_306; c_733084.num_args = 1; c_733084.num_elements = 2; c_733084.elements = (object *)alloca(sizeof(object) * 2); c_733084.elements[0] = ((closureN)self_73911)->elements[1]; c_733084.elements[1] = ((closureN)self_73911)->elements[2]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733084, ((closureN)self_73911)->elements[2]); } else { closureN_type c_733094; c_733094.hdr.mark = gc_color_red; c_733094.hdr.grayed = 0; c_733094.tag = closureN_tag; c_733094.fn = (function_type)__lambda_307; c_733094.num_args = 0; c_733094.num_elements = 1; c_733094.elements = (object *)alloca(sizeof(object) * 1); c_733094.elements[0] = c_73177; closureN_type c_733106; c_733106.hdr.mark = gc_color_red; c_733106.hdr.grayed = 0; c_733106.tag = closureN_tag; c_733106.fn = (function_type)__lambda_313; c_733106.num_args = 1; c_733106.num_elements = 4; c_733106.elements = (object *)alloca(sizeof(object) * 4); c_733106.elements[0] = ((closureN)self_73911)->elements[0]; c_733106.elements[1] = c_73177; c_733106.elements[2] = ((closureN)self_73911)->elements[1]; c_733106.elements[3] = ((closureN)self_73911)->elements[2]; return_closcall1(data,(closure)&c_733094, &c_733106);} ; } static void __lambda_313(void *data, int argc, object self_73912, object r_73416) { if( (boolean_f != r_73416) ){ make_pair(c_733111,((closureN)self_73912)->elements[1], ((closureN)self_73912)->elements[0]); return_closcall1(data, ((closureN)self_73912)->elements[2], &c_733111); } else { if( (boolean_f != equalp(obj_char2obj(110), ((closureN)self_73912)->elements[1])) ){ make_pair(c_733121,obj_char2obj(10), ((closureN)self_73912)->elements[0]); return_closcall1(data, ((closureN)self_73912)->elements[2], &c_733121); } else { closureN_type c_733124; c_733124.hdr.mark = gc_color_red; c_733124.hdr.grayed = 0; c_733124.tag = closureN_tag; c_733124.fn = (function_type)__lambda_312; c_733124.num_args = 1; c_733124.num_elements = 2; c_733124.elements = (object *)alloca(sizeof(object) * 2); c_733124.elements[0] = ((closureN)self_73912)->elements[2]; c_733124.elements[1] = ((closureN)self_73912)->elements[3]; return_closcall2(data, __glo__list_scheme_base, &c_733124, ((closureN)self_73912)->elements[1]);} } ; } static void __lambda_312(void *data, int argc, object self_73913, object r_73422) { closureN_type c_733126; c_733126.hdr.mark = gc_color_red; c_733126.hdr.grayed = 0; c_733126.tag = closureN_tag; c_733126.fn = (function_type)__lambda_311; c_733126.num_args = 1; c_733126.num_elements = 2; c_733126.elements = (object *)alloca(sizeof(object) * 2); c_733126.elements[0] = ((closureN)self_73913)->elements[0]; c_733126.elements[1] = ((closureN)self_73913)->elements[1]; object c_733146 = Cyc_list2string(data,(closure)&c_733126,r_73422); return_closcall1(data,(closure)&c_733126, c_733146);; } static void __lambda_311(void *data, int argc, object self_73914, object r_73421) { closureN_type c_733128; c_733128.hdr.mark = gc_color_red; c_733128.hdr.grayed = 0; c_733128.tag = closureN_tag; c_733128.fn = (function_type)__lambda_310; c_733128.num_args = 1; c_733128.num_elements = 2; c_733128.elements = (object *)alloca(sizeof(object) * 2); c_733128.elements[0] = ((closureN)self_73914)->elements[0]; c_733128.elements[1] = ((closureN)self_73914)->elements[1]; make_string(c_733142, "invalid escape character ["); make_string(c_733143, "] in string"); object c_733141 = Cyc_string_append(data,(closure)&c_733128,3,&c_733142, r_73421, &c_733143); return_closcall1(data,(closure)&c_733128, c_733141);; } static void __lambda_310(void *data, int argc, object self_73915, object r_73418) { closureN_type c_733130; c_733130.hdr.mark = gc_color_red; c_733130.hdr.grayed = 0; c_733130.tag = closureN_tag; c_733130.fn = (function_type)__lambda_309; c_733130.num_args = 1; c_733130.num_elements = 3; c_733130.elements = (object *)alloca(sizeof(object) * 3); c_733130.elements[0] = ((closureN)self_73915)->elements[0]; c_733130.elements[1] = ((closureN)self_73915)->elements[1]; c_733130.elements[2] = r_73418; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733130, ((closureN)self_73915)->elements[1]);; } static void __lambda_309(void *data, int argc, object self_73916, object r_73419) { closureN_type c_733132; c_733132.hdr.mark = gc_color_red; c_733132.hdr.grayed = 0; c_733132.tag = closureN_tag; c_733132.fn = (function_type)__lambda_308; c_733132.num_args = 1; c_733132.num_elements = 3; c_733132.elements = (object *)alloca(sizeof(object) * 3); c_733132.elements[0] = ((closureN)self_73916)->elements[0]; c_733132.elements[1] = ((closureN)self_73916)->elements[2]; c_733132.elements[2] = r_73419; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733132, ((closureN)self_73916)->elements[1]);; } static void __lambda_308(void *data, int argc, object self_73917, object r_73420) { return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73917)->elements[0], ((closureN)self_73917)->elements[1], ((closureN)self_73917)->elements[2], r_73420);; } static void __lambda_307(void *data, int argc, object self_73918, object k_73424) { if( (boolean_f != equalp(obj_char2obj(34), ((closureN)self_73918)->elements[0])) ){ return_closcall1(data, k_73424, equalp(obj_char2obj(34), ((closureN)self_73918)->elements[0])); } else { return_closcall1(data, k_73424, equalp(obj_char2obj(92), ((closureN)self_73918)->elements[0]));} ; } static void __lambda_306(void *data, int argc, object self_73919, object r_73414) { closureN_type c_733086; c_733086.hdr.mark = gc_color_red; c_733086.hdr.grayed = 0; c_733086.tag = closureN_tag; c_733086.fn = (function_type)__lambda_305; c_733086.num_args = 1; c_733086.num_elements = 2; c_733086.elements = (object *)alloca(sizeof(object) * 2); c_733086.elements[0] = ((closureN)self_73919)->elements[0]; c_733086.elements[1] = r_73414; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733086, ((closureN)self_73919)->elements[1]);; } static void __lambda_305(void *data, int argc, object self_73920, object r_73415) { make_string(c_733089, "missing escaped character within string"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73920)->elements[0], &c_733089, ((closureN)self_73920)->elements[1], r_73415);; } static void __lambda_304(void *data, int argc, closure _,object k_73427, object fp_73181, object buf_73180, object ptbl_73179) { Cyc_st_add(data, "scheme/read.sld:read-str"); closureN_type c_733033; c_733033.hdr.mark = gc_color_red; c_733033.hdr.grayed = 0; c_733033.tag = closureN_tag; c_733033.fn = (function_type)__lambda_303; c_733033.num_args = 1; c_733033.num_elements = 4; c_733033.elements = (object *)alloca(sizeof(object) * 4); c_733033.elements[0] = buf_73180; c_733033.elements[1] = fp_73181; c_733033.elements[2] = k_73427; c_733033.elements[3] = ptbl_73179; object c_733077 = Cyc_io_read_char(data,(closure)&c_733033,fp_73181); return_closcall1(data,(closure)&c_733033, c_733077);; } static void __lambda_303(void *data, int argc, object self_73921, object c_73182) { if( (boolean_f != Cyc_is_eof_object(c_73182)) ){ closureN_type c_733037; c_733037.hdr.mark = gc_color_red; c_733037.hdr.grayed = 0; c_733037.tag = closureN_tag; c_733037.fn = (function_type)__lambda_300; c_733037.num_args = 1; c_733037.num_elements = 2; c_733037.elements = (object *)alloca(sizeof(object) * 2); c_733037.elements[0] = ((closureN)self_73921)->elements[2]; c_733037.elements[1] = ((closureN)self_73921)->elements[3]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_733037, ((closureN)self_73921)->elements[3]); } else { if( (boolean_f != equalp(obj_char2obj(92), c_73182)) ){ closureN_type c_733049; c_733049.hdr.mark = gc_color_red; c_733049.hdr.grayed = 0; c_733049.tag = closureN_tag; c_733049.fn = (function_type)__lambda_301; c_733049.num_args = 1; c_733049.num_elements = 3; c_733049.elements = (object *)alloca(sizeof(object) * 3); c_733049.elements[0] = ((closureN)self_73921)->elements[1]; c_733049.elements[1] = ((closureN)self_73921)->elements[2]; c_733049.elements[2] = ((closureN)self_73921)->elements[3]; return_closcall4(data, __glo_read_91str_91esc_scheme_read, &c_733049, ((closureN)self_73921)->elements[1], ((closureN)self_73921)->elements[0], ((closureN)self_73921)->elements[3]); } else { if( (boolean_f != equalp(obj_char2obj(34), c_73182)) ){ closureN_type c_733060; c_733060.hdr.mark = gc_color_red; c_733060.hdr.grayed = 0; c_733060.tag = closureN_tag; c_733060.fn = (function_type)__lambda_302; c_733060.num_args = 1; c_733060.num_elements = 1; c_733060.elements = (object *)alloca(sizeof(object) * 1); c_733060.elements[0] = ((closureN)self_73921)->elements[2]; return_closcall2(data, __glo_reverse_scheme_base, &c_733060, ((closureN)self_73921)->elements[0]); } else { make_pair(c_733072,c_73182, ((closureN)self_73921)->elements[0]); return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73921)->elements[2], ((closureN)self_73921)->elements[1], &c_733072, ((closureN)self_73921)->elements[3]);} } } ; } static void __lambda_302(void *data, int argc, object self_73922, object r_73435) { object c_733065 = Cyc_list2string(data, ((closureN)self_73922)->elements[0],r_73435); return_closcall1(data, ((closureN)self_73922)->elements[0], c_733065);; } static void __lambda_301(void *data, int argc, object self_73923, object r_73433) { return_closcall4(data, __glo_read_91str_scheme_read, ((closureN)self_73923)->elements[1], ((closureN)self_73923)->elements[0], r_73433, ((closureN)self_73923)->elements[2]);; } static void __lambda_300(void *data, int argc, object self_73924, object r_73430) { closureN_type c_733039; c_733039.hdr.mark = gc_color_red; c_733039.hdr.grayed = 0; c_733039.tag = closureN_tag; c_733039.fn = (function_type)__lambda_299; c_733039.num_args = 1; c_733039.num_elements = 2; c_733039.elements = (object *)alloca(sizeof(object) * 2); c_733039.elements[0] = ((closureN)self_73924)->elements[0]; c_733039.elements[1] = r_73430; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_733039, ((closureN)self_73924)->elements[1]);; } static void __lambda_299(void *data, int argc, object self_73925, object r_73431) { make_string(c_733042, "missing closing double-quote"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73925)->elements[0], &c_733042, ((closureN)self_73925)->elements[1], r_73431);; } static void __lambda_298(void *data, int argc, closure _,object k_73439, object fp_73184, object ptbl_73183) { Cyc_st_add(data, "scheme/read.sld:read-pound"); closureN_type c_732721; c_732721.hdr.mark = gc_color_red; c_732721.hdr.grayed = 0; c_732721.tag = closureN_tag; c_732721.fn = (function_type)__lambda_297; c_732721.num_args = 2; c_732721.num_elements = 3; c_732721.elements = (object *)alloca(sizeof(object) * 3); c_732721.elements[0] = fp_73184; c_732721.elements[1] = k_73439; c_732721.elements[2] = ptbl_73183; return_closcall2(data,(closure)&c_732721, boolean_f, boolean_f);; } static void __lambda_297(void *data, int argc, object self_73926, object done_73188, object loop_73187) { closureN_type c_732723; c_732723.hdr.mark = gc_color_red; c_732723.hdr.grayed = 0; c_732723.tag = closureN_tag; c_732723.fn = (function_type)__lambda_296; c_732723.num_args = 1; c_732723.num_elements = 4; c_732723.elements = (object *)alloca(sizeof(object) * 4); c_732723.elements[0] = ((closureN)self_73926)->elements[0]; c_732723.elements[1] = ((closureN)self_73926)->elements[1]; c_732723.elements[2] = loop_73187; c_732723.elements[3] = ((closureN)self_73926)->elements[2]; make_cell(c_733030,done_73188); return_closcall1(data,(closure)&c_732723, &c_733030);; } static void __lambda_296(void *data, int argc, object self_73927, object done_73188) { closureN_type c_732725; c_732725.hdr.mark = gc_color_red; c_732725.hdr.grayed = 0; c_732725.tag = closureN_tag; c_732725.fn = (function_type)__lambda_295; c_732725.num_args = 1; c_732725.num_elements = 4; c_732725.elements = (object *)alloca(sizeof(object) * 4); c_732725.elements[0] = done_73188; c_732725.elements[1] = ((closureN)self_73927)->elements[0]; c_732725.elements[2] = ((closureN)self_73927)->elements[1]; c_732725.elements[3] = ((closureN)self_73927)->elements[3]; make_cell(c_733026,((closureN)self_73927)->elements[2]); return_closcall1(data,(closure)&c_732725, &c_733026);; } static void __lambda_295(void *data, int argc, object self_73928, object loop_73187) { closureN_type c_732727; c_732727.hdr.mark = gc_color_red; c_732727.hdr.grayed = 0; c_732727.tag = closureN_tag; c_732727.fn = (function_type)__lambda_270; c_732727.num_args = 1; c_732727.num_elements = 4; c_732727.elements = (object *)alloca(sizeof(object) * 4); c_732727.elements[0] = ((closureN)self_73928)->elements[0]; c_732727.elements[1] = ((closureN)self_73928)->elements[1]; c_732727.elements[2] = ((closureN)self_73928)->elements[2]; c_732727.elements[3] = loop_73187; closureN_type c_732818; c_732818.hdr.mark = gc_color_red; c_732818.hdr.grayed = 0; c_732818.tag = closureN_tag; c_732818.fn = (function_type)__lambda_294; c_732818.num_args = 1; c_732818.num_elements = 1; c_732818.elements = (object *)alloca(sizeof(object) * 1); c_732818.elements[0] = ((closureN)self_73928)->elements[3]; return_closcall1(data,(closure)&c_732727, &c_732818);; } static void __lambda_294(void *data, int argc, object self_73929, object k_73458, object raw_91buf_73195) { closureN_type c_732820; c_732820.hdr.mark = gc_color_red; c_732820.hdr.grayed = 0; c_732820.tag = closureN_tag; c_732820.fn = (function_type)__lambda_293; c_732820.num_args = 1; c_732820.num_elements = 2; c_732820.elements = (object *)alloca(sizeof(object) * 2); c_732820.elements[0] = k_73458; c_732820.elements[1] = ((closureN)self_73929)->elements[0]; return_closcall2(data, __glo_reverse_scheme_base, &c_732820, raw_91buf_73195);; } static void __lambda_293(void *data, int argc, object self_73930, object buf_73196) { closureN_type c_732822; c_732822.hdr.mark = gc_color_red; c_732822.hdr.grayed = 0; c_732822.tag = closureN_tag; c_732822.fn = (function_type)__lambda_292; c_732822.num_args = 1; c_732822.num_elements = 3; c_732822.elements = (object *)alloca(sizeof(object) * 3); c_732822.elements[0] = buf_73196; c_732822.elements[1] = ((closureN)self_73930)->elements[0]; c_732822.elements[2] = ((closureN)self_73930)->elements[1]; object c_733021 = Cyc_num_eq(data,(closure)&c_732822,2,obj_int2obj(0), Cyc_length(data, buf_73196)); return_closcall1(data,(closure)&c_732822, c_733021);; } static void __lambda_292(void *data, int argc, object self_73931, object r_73460) { if( (boolean_f != r_73460) ){ closureN_type c_732824; c_732824.hdr.mark = gc_color_red; c_732824.hdr.grayed = 0; c_732824.tag = closureN_tag; c_732824.fn = (function_type)__lambda_272; c_732824.num_args = 1; c_732824.num_elements = 2; c_732824.elements = (object *)alloca(sizeof(object) * 2); c_732824.elements[0] = ((closureN)self_73931)->elements[1]; c_732824.elements[1] = ((closureN)self_73931)->elements[2]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732824, ((closureN)self_73931)->elements[2]); } else { closureN_type c_732834; c_732834.hdr.mark = gc_color_red; c_732834.hdr.grayed = 0; c_732834.tag = closureN_tag; c_732834.fn = (function_type)__lambda_291; c_732834.num_args = 1; c_732834.num_elements = 3; c_732834.elements = (object *)alloca(sizeof(object) * 3); c_732834.elements[0] = ((closureN)self_73931)->elements[0]; c_732834.elements[1] = ((closureN)self_73931)->elements[1]; c_732834.elements[2] = ((closureN)self_73931)->elements[2]; object c_733015 = Cyc_num_eq(data,(closure)&c_732834,2,obj_int2obj(1), Cyc_length(data, ((closureN)self_73931)->elements[0])); return_closcall1(data,(closure)&c_732834, c_733015);} ; } static void __lambda_291(void *data, int argc, object self_73932, object r_73463) { if( (boolean_f != r_73463) ){ return_closcall1(data, ((closureN)self_73932)->elements[1], car(((closureN)self_73932)->elements[0])); } else { closureN_type c_732841; c_732841.hdr.mark = gc_color_red; c_732841.hdr.grayed = 0; c_732841.tag = closureN_tag; c_732841.fn = (function_type)__lambda_290; c_732841.num_args = 1; c_732841.num_elements = 3; c_732841.elements = (object *)alloca(sizeof(object) * 3); c_732841.elements[0] = ((closureN)self_73932)->elements[0]; c_732841.elements[1] = ((closureN)self_73932)->elements[1]; c_732841.elements[2] = ((closureN)self_73932)->elements[2]; make_pair(c_733012,obj_char2obj(109),NULL); make_pair(c_733011,obj_char2obj(114),&c_733012); make_pair(c_733010,obj_char2obj(97),&c_733011); make_pair(c_733009,obj_char2obj(108),&c_733010); make_pair(c_733008,obj_char2obj(97),&c_733009); return_closcall1(data,(closure)&c_732841, &c_733008);} ; } static void __lambda_290(void *data, int argc, object self_73933, object r_73493) { if( (boolean_f != equalp(((closureN)self_73933)->elements[0], r_73493)) ){ return_closcall1(data, ((closureN)self_73933)->elements[1], obj_char2obj(7)); } else { closureN_type c_732848; c_732848.hdr.mark = gc_color_red; c_732848.hdr.grayed = 0; c_732848.tag = closureN_tag; c_732848.fn = (function_type)__lambda_289; c_732848.num_args = 1; c_732848.num_elements = 3; c_732848.elements = (object *)alloca(sizeof(object) * 3); c_732848.elements[0] = ((closureN)self_73933)->elements[0]; c_732848.elements[1] = ((closureN)self_73933)->elements[1]; c_732848.elements[2] = ((closureN)self_73933)->elements[2]; make_pair(c_733007,obj_char2obj(101),NULL); make_pair(c_733006,obj_char2obj(99),&c_733007); make_pair(c_733005,obj_char2obj(97),&c_733006); make_pair(c_733004,obj_char2obj(112),&c_733005); make_pair(c_733003,obj_char2obj(115),&c_733004); make_pair(c_733002,obj_char2obj(107),&c_733003); make_pair(c_733001,obj_char2obj(99),&c_733002); make_pair(c_733000,obj_char2obj(97),&c_733001); make_pair(c_732999,obj_char2obj(98),&c_733000); return_closcall1(data,(closure)&c_732848, &c_732999);} ; } static void __lambda_289(void *data, int argc, object self_73934, object r_73492) { if( (boolean_f != equalp(((closureN)self_73934)->elements[0], r_73492)) ){ return_closcall1(data, ((closureN)self_73934)->elements[1], obj_char2obj(8)); } else { closureN_type c_732855; c_732855.hdr.mark = gc_color_red; c_732855.hdr.grayed = 0; c_732855.tag = closureN_tag; c_732855.fn = (function_type)__lambda_288; c_732855.num_args = 1; c_732855.num_elements = 3; c_732855.elements = (object *)alloca(sizeof(object) * 3); c_732855.elements[0] = ((closureN)self_73934)->elements[0]; c_732855.elements[1] = ((closureN)self_73934)->elements[1]; c_732855.elements[2] = ((closureN)self_73934)->elements[2]; make_pair(c_732998,obj_char2obj(101),NULL); make_pair(c_732997,obj_char2obj(116),&c_732998); make_pair(c_732996,obj_char2obj(101),&c_732997); make_pair(c_732995,obj_char2obj(108),&c_732996); make_pair(c_732994,obj_char2obj(101),&c_732995); make_pair(c_732993,obj_char2obj(100),&c_732994); return_closcall1(data,(closure)&c_732855, &c_732993);} ; } static void __lambda_288(void *data, int argc, object self_73935, object r_73491) { if( (boolean_f != equalp(((closureN)self_73935)->elements[0], r_73491)) ){ return_closcall1(data, ((closureN)self_73935)->elements[1], obj_char2obj(127)); } else { closureN_type c_732862; c_732862.hdr.mark = gc_color_red; c_732862.hdr.grayed = 0; c_732862.tag = closureN_tag; c_732862.fn = (function_type)__lambda_287; c_732862.num_args = 1; c_732862.num_elements = 3; c_732862.elements = (object *)alloca(sizeof(object) * 3); c_732862.elements[0] = ((closureN)self_73935)->elements[0]; c_732862.elements[1] = ((closureN)self_73935)->elements[1]; c_732862.elements[2] = ((closureN)self_73935)->elements[2]; make_pair(c_732992,obj_char2obj(101),NULL); make_pair(c_732991,obj_char2obj(112),&c_732992); make_pair(c_732990,obj_char2obj(97),&c_732991); make_pair(c_732989,obj_char2obj(99),&c_732990); make_pair(c_732988,obj_char2obj(115),&c_732989); make_pair(c_732987,obj_char2obj(101),&c_732988); return_closcall1(data,(closure)&c_732862, &c_732987);} ; } static void __lambda_287(void *data, int argc, object self_73936, object r_73490) { if( (boolean_f != equalp(((closureN)self_73936)->elements[0], r_73490)) ){ return_closcall1(data, ((closureN)self_73936)->elements[1], obj_char2obj(27)); } else { closureN_type c_732869; c_732869.hdr.mark = gc_color_red; c_732869.hdr.grayed = 0; c_732869.tag = closureN_tag; c_732869.fn = (function_type)__lambda_286; c_732869.num_args = 1; c_732869.num_elements = 3; c_732869.elements = (object *)alloca(sizeof(object) * 3); c_732869.elements[0] = ((closureN)self_73936)->elements[0]; c_732869.elements[1] = ((closureN)self_73936)->elements[1]; c_732869.elements[2] = ((closureN)self_73936)->elements[2]; make_pair(c_732986,obj_char2obj(101),NULL); make_pair(c_732985,obj_char2obj(110),&c_732986); make_pair(c_732984,obj_char2obj(105),&c_732985); make_pair(c_732983,obj_char2obj(108),&c_732984); make_pair(c_732982,obj_char2obj(119),&c_732983); make_pair(c_732981,obj_char2obj(101),&c_732982); make_pair(c_732980,obj_char2obj(110),&c_732981); return_closcall1(data,(closure)&c_732869, &c_732980);} ; } static void __lambda_286(void *data, int argc, object self_73937, object r_73489) { if( (boolean_f != equalp(((closureN)self_73937)->elements[0], r_73489)) ){ return_closcall1(data, ((closureN)self_73937)->elements[1], obj_char2obj(10)); } else { closureN_type c_732876; c_732876.hdr.mark = gc_color_red; c_732876.hdr.grayed = 0; c_732876.tag = closureN_tag; c_732876.fn = (function_type)__lambda_285; c_732876.num_args = 1; c_732876.num_elements = 3; c_732876.elements = (object *)alloca(sizeof(object) * 3); c_732876.elements[0] = ((closureN)self_73937)->elements[0]; c_732876.elements[1] = ((closureN)self_73937)->elements[1]; c_732876.elements[2] = ((closureN)self_73937)->elements[2]; make_pair(c_732979,obj_char2obj(108),NULL); make_pair(c_732978,obj_char2obj(108),&c_732979); make_pair(c_732977,obj_char2obj(117),&c_732978); make_pair(c_732976,obj_char2obj(110),&c_732977); return_closcall1(data,(closure)&c_732876, &c_732976);} ; } static void __lambda_285(void *data, int argc, object self_73938, object r_73488) { if( (boolean_f != equalp(((closureN)self_73938)->elements[0], r_73488)) ){ return_closcall1(data, ((closureN)self_73938)->elements[1], obj_char2obj(0)); } else { closureN_type c_732883; c_732883.hdr.mark = gc_color_red; c_732883.hdr.grayed = 0; c_732883.tag = closureN_tag; c_732883.fn = (function_type)__lambda_284; c_732883.num_args = 1; c_732883.num_elements = 3; c_732883.elements = (object *)alloca(sizeof(object) * 3); c_732883.elements[0] = ((closureN)self_73938)->elements[0]; c_732883.elements[1] = ((closureN)self_73938)->elements[1]; c_732883.elements[2] = ((closureN)self_73938)->elements[2]; make_pair(c_732975,obj_char2obj(110),NULL); make_pair(c_732974,obj_char2obj(114),&c_732975); make_pair(c_732973,obj_char2obj(117),&c_732974); make_pair(c_732972,obj_char2obj(116),&c_732973); make_pair(c_732971,obj_char2obj(101),&c_732972); make_pair(c_732970,obj_char2obj(114),&c_732971); return_closcall1(data,(closure)&c_732883, &c_732970);} ; } static void __lambda_284(void *data, int argc, object self_73939, object r_73487) { if( (boolean_f != equalp(((closureN)self_73939)->elements[0], r_73487)) ){ return_closcall1(data, ((closureN)self_73939)->elements[1], obj_char2obj(13)); } else { closureN_type c_732890; c_732890.hdr.mark = gc_color_red; c_732890.hdr.grayed = 0; c_732890.tag = closureN_tag; c_732890.fn = (function_type)__lambda_283; c_732890.num_args = 1; c_732890.num_elements = 3; c_732890.elements = (object *)alloca(sizeof(object) * 3); c_732890.elements[0] = ((closureN)self_73939)->elements[0]; c_732890.elements[1] = ((closureN)self_73939)->elements[1]; c_732890.elements[2] = ((closureN)self_73939)->elements[2]; make_pair(c_732969,obj_char2obj(101),NULL); make_pair(c_732968,obj_char2obj(99),&c_732969); make_pair(c_732967,obj_char2obj(97),&c_732968); make_pair(c_732966,obj_char2obj(112),&c_732967); make_pair(c_732965,obj_char2obj(115),&c_732966); return_closcall1(data,(closure)&c_732890, &c_732965);} ; } static void __lambda_283(void *data, int argc, object self_73940, object r_73486) { if( (boolean_f != equalp(((closureN)self_73940)->elements[0], r_73486)) ){ return_closcall1(data, ((closureN)self_73940)->elements[1], obj_char2obj(32)); } else { closureN_type c_732897; c_732897.hdr.mark = gc_color_red; c_732897.hdr.grayed = 0; c_732897.tag = closureN_tag; c_732897.fn = (function_type)__lambda_282; c_732897.num_args = 1; c_732897.num_elements = 3; c_732897.elements = (object *)alloca(sizeof(object) * 3); c_732897.elements[0] = ((closureN)self_73940)->elements[0]; c_732897.elements[1] = ((closureN)self_73940)->elements[1]; c_732897.elements[2] = ((closureN)self_73940)->elements[2]; make_pair(c_732964,obj_char2obj(98),NULL); make_pair(c_732963,obj_char2obj(97),&c_732964); make_pair(c_732962,obj_char2obj(116),&c_732963); return_closcall1(data,(closure)&c_732897, &c_732962);} ; } static void __lambda_282(void *data, int argc, object self_73941, object r_73485) { if( (boolean_f != equalp(((closureN)self_73941)->elements[0], r_73485)) ){ return_closcall1(data, ((closureN)self_73941)->elements[1], obj_char2obj(9)); } else { closureN_type c_732904; c_732904.hdr.mark = gc_color_red; c_732904.hdr.grayed = 0; c_732904.tag = closureN_tag; c_732904.fn = (function_type)__lambda_274; c_732904.num_args = 0; c_732904.num_elements = 1; c_732904.elements = (object *)alloca(sizeof(object) * 1); c_732904.elements[0] = ((closureN)self_73941)->elements[0]; closureN_type c_732922; c_732922.hdr.mark = gc_color_red; c_732922.hdr.grayed = 0; c_732922.tag = closureN_tag; c_732922.fn = (function_type)__lambda_281; c_732922.num_args = 1; c_732922.num_elements = 3; c_732922.elements = (object *)alloca(sizeof(object) * 3); c_732922.elements[0] = ((closureN)self_73941)->elements[0]; c_732922.elements[1] = ((closureN)self_73941)->elements[1]; c_732922.elements[2] = ((closureN)self_73941)->elements[2]; return_closcall1(data,(closure)&c_732904, &c_732922);} ; } static void __lambda_281(void *data, int argc, object self_73942, object r_73473) { if( (boolean_f != r_73473) ){ closureN_type c_732924; c_732924.hdr.mark = gc_color_red; c_732924.hdr.grayed = 0; c_732924.tag = closureN_tag; c_732924.fn = (function_type)__lambda_276; c_732924.num_args = 1; c_732924.num_elements = 1; c_732924.elements = (object *)alloca(sizeof(object) * 1); c_732924.elements[0] = ((closureN)self_73942)->elements[1]; object c_732936 = Cyc_list2string(data,(closure)&c_732924,cdr(((closureN)self_73942)->elements[0])); return_closcall1(data,(closure)&c_732924, c_732936); } else { closureN_type c_732941; c_732941.hdr.mark = gc_color_red; c_732941.hdr.grayed = 0; c_732941.tag = closureN_tag; c_732941.fn = (function_type)__lambda_280; c_732941.num_args = 1; c_732941.num_elements = 2; c_732941.elements = (object *)alloca(sizeof(object) * 2); c_732941.elements[0] = ((closureN)self_73942)->elements[1]; c_732941.elements[1] = ((closureN)self_73942)->elements[2]; object c_732960 = Cyc_list2string(data,(closure)&c_732941,((closureN)self_73942)->elements[0]); return_closcall1(data,(closure)&c_732941, c_732960);} ; } static void __lambda_280(void *data, int argc, object self_73943, object r_73480) { closureN_type c_732943; c_732943.hdr.mark = gc_color_red; c_732943.hdr.grayed = 0; c_732943.tag = closureN_tag; c_732943.fn = (function_type)__lambda_279; c_732943.num_args = 1; c_732943.num_elements = 2; c_732943.elements = (object *)alloca(sizeof(object) * 2); c_732943.elements[0] = ((closureN)self_73943)->elements[0]; c_732943.elements[1] = ((closureN)self_73943)->elements[1]; make_string(c_732957, "unable to parse character: "); object c_732956 = Cyc_string_append(data,(closure)&c_732943,2,&c_732957, r_73480); return_closcall1(data,(closure)&c_732943, c_732956);; } static void __lambda_279(void *data, int argc, object self_73944, object r_73477) { closureN_type c_732945; c_732945.hdr.mark = gc_color_red; c_732945.hdr.grayed = 0; c_732945.tag = closureN_tag; c_732945.fn = (function_type)__lambda_278; c_732945.num_args = 1; c_732945.num_elements = 3; c_732945.elements = (object *)alloca(sizeof(object) * 3); c_732945.elements[0] = ((closureN)self_73944)->elements[0]; c_732945.elements[1] = ((closureN)self_73944)->elements[1]; c_732945.elements[2] = r_73477; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732945, ((closureN)self_73944)->elements[1]);; } static void __lambda_278(void *data, int argc, object self_73945, object r_73478) { closureN_type c_732947; c_732947.hdr.mark = gc_color_red; c_732947.hdr.grayed = 0; c_732947.tag = closureN_tag; c_732947.fn = (function_type)__lambda_277; c_732947.num_args = 1; c_732947.num_elements = 3; c_732947.elements = (object *)alloca(sizeof(object) * 3); c_732947.elements[0] = ((closureN)self_73945)->elements[0]; c_732947.elements[1] = ((closureN)self_73945)->elements[2]; c_732947.elements[2] = r_73478; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732947, ((closureN)self_73945)->elements[1]);; } static void __lambda_277(void *data, int argc, object self_73946, object r_73479) { return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73946)->elements[0], ((closureN)self_73946)->elements[1], ((closureN)self_73946)->elements[2], r_73479);; } static void __lambda_276(void *data, int argc, object self_73947, object r_73475) { closureN_type c_732926; c_732926.hdr.mark = gc_color_red; c_732926.hdr.grayed = 0; c_732926.tag = closureN_tag; c_732926.fn = (function_type)__lambda_275; c_732926.num_args = 1; c_732926.num_elements = 1; c_732926.elements = (object *)alloca(sizeof(object) * 1); c_732926.elements[0] = ((closureN)self_73947)->elements[0]; object c_732933 = Cyc_string2number2_(data,(closure)&c_732926,2,r_73475, obj_int2obj(16)); return_closcall1(data,(closure)&c_732926, c_732933);; } static void __lambda_275(void *data, int argc, object self_73948, object r_73474) { return_closcall1(data, ((closureN)self_73948)->elements[0], Cyc_integer2char(data, r_73474));; } static void __lambda_274(void *data, int argc, object self_73949, object k_73481) { closureN_type c_732906; c_732906.hdr.mark = gc_color_red; c_732906.hdr.grayed = 0; c_732906.tag = closureN_tag; c_732906.fn = (function_type)__lambda_273; c_732906.num_args = 1; c_732906.num_elements = 2; c_732906.elements = (object *)alloca(sizeof(object) * 2); c_732906.elements[0] = ((closureN)self_73949)->elements[0]; c_732906.elements[1] = k_73481; object c_732918 = Cyc_num_gt(data,(closure)&c_732906,2,Cyc_length(data, ((closureN)self_73949)->elements[0]), obj_int2obj(1)); return_closcall1(data,(closure)&c_732906, c_732918);; } static void __lambda_273(void *data, int argc, object self_73950, object r_73482) { if( (boolean_f != r_73482) ){ return_closcall1(data, ((closureN)self_73950)->elements[1], equalp(car(((closureN)self_73950)->elements[0]), obj_char2obj(120))); } else { return_closcall1(data, ((closureN)self_73950)->elements[1], boolean_f);} ; } static void __lambda_272(void *data, int argc, object self_73951, object r_73461) { closureN_type c_732826; c_732826.hdr.mark = gc_color_red; c_732826.hdr.grayed = 0; c_732826.tag = closureN_tag; c_732826.fn = (function_type)__lambda_271; c_732826.num_args = 1; c_732826.num_elements = 2; c_732826.elements = (object *)alloca(sizeof(object) * 2); c_732826.elements[0] = ((closureN)self_73951)->elements[0]; c_732826.elements[1] = r_73461; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732826, ((closureN)self_73951)->elements[1]);; } static void __lambda_271(void *data, int argc, object self_73952, object r_73462) { make_string(c_732829, "missing character"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73952)->elements[0], &c_732829, ((closureN)self_73952)->elements[1], r_73462);; } static void __lambda_270(void *data, int argc, object self_73953, object r_73457) { closureN_type c_732729; c_732729.hdr.mark = gc_color_red; c_732729.hdr.grayed = 0; c_732729.tag = closureN_tag; c_732729.fn = (function_type)__lambda_269; c_732729.num_args = 1; c_732729.num_elements = 4; c_732729.elements = (object *)alloca(sizeof(object) * 4); c_732729.elements[0] = ((closureN)self_73953)->elements[0]; c_732729.elements[1] = ((closureN)self_73953)->elements[1]; c_732729.elements[2] = ((closureN)self_73953)->elements[2]; c_732729.elements[3] = ((closureN)self_73953)->elements[3]; return_closcall1(data,(closure)&c_732729, Cyc_set_car(data, ((closureN)self_73953)->elements[0], r_73457));; } static void __lambda_269(void *data, int argc, object self_73954, object r_73440) { closureN_type c_732731; c_732731.hdr.mark = gc_color_red; c_732731.hdr.grayed = 0; c_732731.tag = closureN_tag; c_732731.fn = (function_type)__lambda_259; c_732731.num_args = 1; c_732731.num_elements = 2; c_732731.elements = (object *)alloca(sizeof(object) * 2); c_732731.elements[0] = ((closureN)self_73954)->elements[2]; c_732731.elements[1] = ((closureN)self_73954)->elements[3]; closureN_type c_732744; c_732744.hdr.mark = gc_color_red; c_732744.hdr.grayed = 0; c_732744.tag = closureN_tag; c_732744.fn = (function_type)__lambda_268; c_732744.num_args = 1; c_732744.num_elements = 3; c_732744.elements = (object *)alloca(sizeof(object) * 3); c_732744.elements[0] = ((closureN)self_73954)->elements[0]; c_732744.elements[1] = ((closureN)self_73954)->elements[1]; c_732744.elements[2] = ((closureN)self_73954)->elements[3]; return_closcall1(data,(closure)&c_732731, &c_732744);; } static void __lambda_268(void *data, int argc, object self_73955, object k_73444, object buf_73191) { closureN_type c_732746; c_732746.hdr.mark = gc_color_red; c_732746.hdr.grayed = 0; c_732746.tag = closureN_tag; c_732746.fn = (function_type)__lambda_267; c_732746.num_args = 1; c_732746.num_elements = 5; c_732746.elements = (object *)alloca(sizeof(object) * 5); c_732746.elements[0] = buf_73191; c_732746.elements[1] = ((closureN)self_73955)->elements[0]; c_732746.elements[2] = ((closureN)self_73955)->elements[1]; c_732746.elements[3] = k_73444; c_732746.elements[4] = ((closureN)self_73955)->elements[2]; object c_732813 = Cyc_io_peek_char(data,(closure)&c_732746,((closureN)self_73955)->elements[1]); return_closcall1(data,(closure)&c_732746, c_732813);; } static void __lambda_267(void *data, int argc, object self_73956, object c_73192) { closureN_type c_732748; c_732748.hdr.mark = gc_color_red; c_732748.hdr.grayed = 0; c_732748.tag = closureN_tag; c_732748.fn = (function_type)__lambda_264; c_732748.num_args = 0; c_732748.num_elements = 2; c_732748.elements = (object *)alloca(sizeof(object) * 2); c_732748.elements[0] = ((closureN)self_73956)->elements[0]; c_732748.elements[1] = c_73192; closureN_type c_732789; c_732789.hdr.mark = gc_color_red; c_732789.hdr.grayed = 0; c_732789.tag = closureN_tag; c_732789.fn = (function_type)__lambda_266; c_732789.num_args = 1; c_732789.num_elements = 5; c_732789.elements = (object *)alloca(sizeof(object) * 5); c_732789.elements[0] = ((closureN)self_73956)->elements[0]; c_732789.elements[1] = ((closureN)self_73956)->elements[1]; c_732789.elements[2] = ((closureN)self_73956)->elements[2]; c_732789.elements[3] = ((closureN)self_73956)->elements[3]; c_732789.elements[4] = ((closureN)self_73956)->elements[4]; return_closcall1(data,(closure)&c_732748, &c_732789);; } static void __lambda_266(void *data, int argc, object self_73957, object r_73446) { if( (boolean_f != r_73446) ){ return_closcall2(data, cell_get(((closureN)self_73957)->elements[1]), ((closureN)self_73957)->elements[3], ((closureN)self_73957)->elements[0]); } else { closureN_type c_732797; c_732797.hdr.mark = gc_color_red; c_732797.hdr.grayed = 0; c_732797.tag = closureN_tag; c_732797.fn = (function_type)__lambda_265; c_732797.num_args = 1; c_732797.num_elements = 3; c_732797.elements = (object *)alloca(sizeof(object) * 3); c_732797.elements[0] = ((closureN)self_73957)->elements[0]; c_732797.elements[1] = ((closureN)self_73957)->elements[3]; c_732797.elements[2] = ((closureN)self_73957)->elements[4]; object c_732809 = Cyc_io_read_char(data,(closure)&c_732797,((closureN)self_73957)->elements[2]); return_closcall1(data,(closure)&c_732797, c_732809);} ; } static void __lambda_265(void *data, int argc, object self_73958, object r_73448) { make_pair(c_732805,r_73448, ((closureN)self_73958)->elements[0]); return_closcall2(data, cell_get(((closureN)self_73958)->elements[2]), ((closureN)self_73958)->elements[1], &c_732805);; } static void __lambda_264(void *data, int argc, object self_73959, object k_73450) { if( (boolean_f != Cyc_is_eof_object(((closureN)self_73959)->elements[1])) ){ return_closcall1(data, k_73450, Cyc_is_eof_object(((closureN)self_73959)->elements[1])); } else { closureN_type c_732757; c_732757.hdr.mark = gc_color_red; c_732757.hdr.grayed = 0; c_732757.tag = closureN_tag; c_732757.fn = (function_type)__lambda_261; c_732757.num_args = 0; c_732757.num_elements = 2; c_732757.elements = (object *)alloca(sizeof(object) * 2); c_732757.elements[0] = ((closureN)self_73959)->elements[0]; c_732757.elements[1] = ((closureN)self_73959)->elements[1]; closureN_type c_732771; c_732771.hdr.mark = gc_color_red; c_732771.hdr.grayed = 0; c_732771.tag = closureN_tag; c_732771.fn = (function_type)__lambda_263; c_732771.num_args = 1; c_732771.num_elements = 3; c_732771.elements = (object *)alloca(sizeof(object) * 3); c_732771.elements[0] = ((closureN)self_73959)->elements[0]; c_732771.elements[1] = ((closureN)self_73959)->elements[1]; c_732771.elements[2] = k_73450; return_closcall1(data,(closure)&c_732757, &c_732771);} ; } static void __lambda_263(void *data, int argc, object self_73960, object tmp_73194) { if( (boolean_f != tmp_73194) ){ return_closcall1(data, ((closureN)self_73960)->elements[2], tmp_73194); } else { closureN_type c_732775; c_732775.hdr.mark = gc_color_red; c_732775.hdr.grayed = 0; c_732775.tag = closureN_tag; c_732775.fn = (function_type)__lambda_262; c_732775.num_args = 1; c_732775.num_elements = 2; c_732775.elements = (object *)alloca(sizeof(object) * 2); c_732775.elements[0] = ((closureN)self_73960)->elements[1]; c_732775.elements[1] = ((closureN)self_73960)->elements[2]; object c_732785 = Cyc_num_gt(data,(closure)&c_732775,2,Cyc_length(data, ((closureN)self_73960)->elements[0]), obj_int2obj(0)); return_closcall1(data,(closure)&c_732775, c_732785);} ; } static void __lambda_262(void *data, int argc, object self_73961, object r_73452) { if( (boolean_f != r_73452) ){ return_closcall1(data, ((closureN)self_73961)->elements[1], equalp(((closureN)self_73961)->elements[0], obj_char2obj(41))); } else { return_closcall1(data, ((closureN)self_73961)->elements[1], boolean_f);} ; } static void __lambda_261(void *data, int argc, object self_73962, object k_73454) { closureN_type c_732759; c_732759.hdr.mark = gc_color_red; c_732759.hdr.grayed = 0; c_732759.tag = closureN_tag; c_732759.fn = (function_type)__lambda_260; c_732759.num_args = 1; c_732759.num_elements = 2; c_732759.elements = (object *)alloca(sizeof(object) * 2); c_732759.elements[0] = ((closureN)self_73962)->elements[0]; c_732759.elements[1] = k_73454; return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_732759, ((closureN)self_73962)->elements[1]);; } static void __lambda_260(void *data, int argc, object self_73963, object r_73455) { if( (boolean_f != r_73455) ){ object c_732764 = Cyc_num_gt(data, ((closureN)self_73963)->elements[1],2,Cyc_length(data, ((closureN)self_73963)->elements[0]), obj_int2obj(0)); return_closcall1(data, ((closureN)self_73963)->elements[1], c_732764); } else { return_closcall1(data, ((closureN)self_73963)->elements[1], boolean_f);} ; } static void __lambda_259(void *data, int argc, object self_73964, object r_73443) { closureN_type c_732733; c_732733.hdr.mark = gc_color_red; c_732733.hdr.grayed = 0; c_732733.tag = closureN_tag; c_732733.fn = (function_type)__lambda_258; c_732733.num_args = 1; c_732733.num_elements = 2; c_732733.elements = (object *)alloca(sizeof(object) * 2); c_732733.elements[0] = ((closureN)self_73964)->elements[0]; c_732733.elements[1] = ((closureN)self_73964)->elements[1]; return_closcall1(data,(closure)&c_732733, Cyc_set_car(data, ((closureN)self_73964)->elements[1], r_73443));; } static void __lambda_258(void *data, int argc, object self_73965, object r_73441) { closureN_type c_732735; c_732735.hdr.mark = gc_color_red; c_732735.hdr.grayed = 0; c_732735.tag = closureN_tag; c_732735.fn = (function_type)__lambda_257; c_732735.num_args = 1; c_732735.num_elements = 2; c_732735.elements = (object *)alloca(sizeof(object) * 2); c_732735.elements[0] = ((closureN)self_73965)->elements[0]; c_732735.elements[1] = ((closureN)self_73965)->elements[1]; return_closcall1(data,(closure)&c_732735, NULL);; } static void __lambda_257(void *data, int argc, object self_73966, object r_73442) { return_closcall2(data, cell_get(((closureN)self_73966)->elements[1]), ((closureN)self_73966)->elements[0], r_73442);; } static void __lambda_256(void *data, int argc, closure _,object k_73498, object fp_73203, object tok_73202, object toks_73201, object all_127_73200, object comment_127_73199, object parens_73198, object ptbl_73197) { Cyc_st_add(data, "scheme/read.sld:parse"); closureN_type c_731419; c_731419.hdr.mark = gc_color_red; c_731419.hdr.grayed = 0; c_731419.tag = closureN_tag; c_731419.fn = (function_type)__lambda_255; c_731419.num_args = 1; c_731419.num_elements = 8; c_731419.elements = (object *)alloca(sizeof(object) * 8); c_731419.elements[0] = all_127_73200; c_731419.elements[1] = comment_127_73199; c_731419.elements[2] = fp_73203; c_731419.elements[3] = k_73498; c_731419.elements[4] = parens_73198; c_731419.elements[5] = ptbl_73197; c_731419.elements[6] = tok_73202; c_731419.elements[7] = toks_73201; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731419, ptbl_73197);; } static void __lambda_255(void *data, int argc, object self_73967, object r_73748) { closureN_type c_731421; c_731421.hdr.mark = gc_color_red; c_731421.hdr.grayed = 0; c_731421.tag = closureN_tag; c_731421.fn = (function_type)__lambda_254; c_731421.num_args = 1; c_731421.num_elements = 8; c_731421.elements = (object *)alloca(sizeof(object) * 8); c_731421.elements[0] = ((closureN)self_73967)->elements[0]; c_731421.elements[1] = ((closureN)self_73967)->elements[1]; c_731421.elements[2] = ((closureN)self_73967)->elements[2]; c_731421.elements[3] = ((closureN)self_73967)->elements[3]; c_731421.elements[4] = ((closureN)self_73967)->elements[4]; c_731421.elements[5] = ((closureN)self_73967)->elements[5]; c_731421.elements[6] = ((closureN)self_73967)->elements[6]; c_731421.elements[7] = ((closureN)self_73967)->elements[7]; object c_732718 = Cyc_sum(data,(closure)&c_731421,2,obj_int2obj(1), r_73748); return_closcall1(data,(closure)&c_731421, c_732718);; } static void __lambda_254(void *data, int argc, object self_73968, object r_73747) { closureN_type c_731423; c_731423.hdr.mark = gc_color_red; c_731423.hdr.grayed = 0; c_731423.tag = closureN_tag; c_731423.fn = (function_type)__lambda_253; c_731423.num_args = 1; c_731423.num_elements = 8; c_731423.elements = (object *)alloca(sizeof(object) * 8); c_731423.elements[0] = ((closureN)self_73968)->elements[0]; c_731423.elements[1] = ((closureN)self_73968)->elements[1]; c_731423.elements[2] = ((closureN)self_73968)->elements[2]; c_731423.elements[3] = ((closureN)self_73968)->elements[3]; c_731423.elements[4] = ((closureN)self_73968)->elements[4]; c_731423.elements[5] = ((closureN)self_73968)->elements[5]; c_731423.elements[6] = ((closureN)self_73968)->elements[6]; c_731423.elements[7] = ((closureN)self_73968)->elements[7]; return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731423, ((closureN)self_73968)->elements[5], r_73747);; } static void __lambda_253(void *data, int argc, object self_73969, object r_73499) { closureN_type c_731425; c_731425.hdr.mark = gc_color_red; c_731425.hdr.grayed = 0; c_731425.tag = closureN_tag; c_731425.fn = (function_type)__lambda_37; c_731425.num_args = 0; c_731425.num_elements = 2; c_731425.elements = (object *)alloca(sizeof(object) * 2); c_731425.elements[0] = ((closureN)self_73969)->elements[2]; c_731425.elements[1] = ((closureN)self_73969)->elements[5]; closureN_type c_731438; c_731438.hdr.mark = gc_color_red; c_731438.hdr.grayed = 0; c_731438.tag = closureN_tag; c_731438.fn = (function_type)__lambda_252; c_731438.num_args = 1; c_731438.num_elements = 8; c_731438.elements = (object *)alloca(sizeof(object) * 8); c_731438.elements[0] = ((closureN)self_73969)->elements[0]; c_731438.elements[1] = ((closureN)self_73969)->elements[1]; c_731438.elements[2] = ((closureN)self_73969)->elements[2]; c_731438.elements[3] = ((closureN)self_73969)->elements[3]; c_731438.elements[4] = ((closureN)self_73969)->elements[4]; c_731438.elements[5] = ((closureN)self_73969)->elements[5]; c_731438.elements[6] = ((closureN)self_73969)->elements[6]; c_731438.elements[7] = ((closureN)self_73969)->elements[7]; return_closcall1(data,(closure)&c_731425, &c_731438);; } static void __lambda_252(void *data, int argc, object self_73970, object c_73205) { closureN_type c_731440; c_731440.hdr.mark = gc_color_red; c_731440.hdr.grayed = 0; c_731440.tag = closureN_tag; c_731440.fn = (function_type)__lambda_251; c_731440.num_args = 1; c_731440.num_elements = 9; c_731440.elements = (object *)alloca(sizeof(object) * 9); c_731440.elements[0] = ((closureN)self_73970)->elements[0]; c_731440.elements[1] = c_73205; c_731440.elements[2] = ((closureN)self_73970)->elements[1]; c_731440.elements[3] = ((closureN)self_73970)->elements[2]; c_731440.elements[4] = ((closureN)self_73970)->elements[3]; c_731440.elements[5] = ((closureN)self_73970)->elements[4]; c_731440.elements[6] = ((closureN)self_73970)->elements[5]; c_731440.elements[7] = ((closureN)self_73970)->elements[6]; c_731440.elements[8] = ((closureN)self_73970)->elements[7]; return_closcall1(data,(closure)&c_731440, quote_DEBUG);; } static void __lambda_251(void *data, int argc, object self_73971, object r_73738) { closureN_type c_731442; c_731442.hdr.mark = gc_color_red; c_731442.hdr.grayed = 0; c_731442.tag = closureN_tag; c_731442.fn = (function_type)__lambda_250; c_731442.num_args = 1; c_731442.num_elements = 10; c_731442.elements = (object *)alloca(sizeof(object) * 10); c_731442.elements[0] = ((closureN)self_73971)->elements[0]; c_731442.elements[1] = ((closureN)self_73971)->elements[1]; c_731442.elements[2] = ((closureN)self_73971)->elements[2]; c_731442.elements[3] = ((closureN)self_73971)->elements[3]; c_731442.elements[4] = ((closureN)self_73971)->elements[4]; c_731442.elements[5] = ((closureN)self_73971)->elements[5]; c_731442.elements[6] = ((closureN)self_73971)->elements[6]; c_731442.elements[7] = r_73738; c_731442.elements[8] = ((closureN)self_73971)->elements[7]; c_731442.elements[9] = ((closureN)self_73971)->elements[8]; return_closcall1(data,(closure)&c_731442, quote_read);; } static void __lambda_250(void *data, int argc, object self_73972, object r_73740) { closureN_type c_731444; c_731444.hdr.mark = gc_color_red; c_731444.hdr.grayed = 0; c_731444.tag = closureN_tag; c_731444.fn = (function_type)__lambda_249; c_731444.num_args = 1; c_731444.num_elements = 11; c_731444.elements = (object *)alloca(sizeof(object) * 11); c_731444.elements[0] = ((closureN)self_73972)->elements[0]; c_731444.elements[1] = ((closureN)self_73972)->elements[1]; c_731444.elements[2] = ((closureN)self_73972)->elements[2]; c_731444.elements[3] = ((closureN)self_73972)->elements[3]; c_731444.elements[4] = ((closureN)self_73972)->elements[4]; c_731444.elements[5] = ((closureN)self_73972)->elements[5]; c_731444.elements[6] = ((closureN)self_73972)->elements[6]; c_731444.elements[7] = ((closureN)self_73972)->elements[7]; c_731444.elements[8] = r_73740; c_731444.elements[9] = ((closureN)self_73972)->elements[8]; c_731444.elements[10] = ((closureN)self_73972)->elements[9]; return_closcall1(data,(closure)&c_731444, NULL);; } static void __lambda_249(void *data, int argc, object self_73973, object r_73744) { closureN_type c_731446; c_731446.hdr.mark = gc_color_red; c_731446.hdr.grayed = 0; c_731446.tag = closureN_tag; c_731446.fn = (function_type)__lambda_248; c_731446.num_args = 1; c_731446.num_elements = 9; c_731446.elements = (object *)alloca(sizeof(object) * 9); c_731446.elements[0] = ((closureN)self_73973)->elements[0]; c_731446.elements[1] = ((closureN)self_73973)->elements[1]; c_731446.elements[2] = ((closureN)self_73973)->elements[2]; c_731446.elements[3] = ((closureN)self_73973)->elements[3]; c_731446.elements[4] = ((closureN)self_73973)->elements[4]; c_731446.elements[5] = ((closureN)self_73973)->elements[5]; c_731446.elements[6] = ((closureN)self_73973)->elements[6]; c_731446.elements[7] = ((closureN)self_73973)->elements[9]; c_731446.elements[8] = ((closureN)self_73973)->elements[10]; make_pair(c_732713,((closureN)self_73973)->elements[5], r_73744); make_pair(c_732709,((closureN)self_73973)->elements[1], &c_732713); make_pair(c_732705,((closureN)self_73973)->elements[9], &c_732709); make_pair(c_732701,((closureN)self_73973)->elements[8], &c_732705); make_pair(c_732697,((closureN)self_73973)->elements[7], &c_732701); return_closcall2(data, __glo_write_scheme_write, &c_731446, &c_732697);; } static void __lambda_248(void *data, int argc, object self_73974, object r_73501) { closureN_type c_731448; c_731448.hdr.mark = gc_color_red; c_731448.hdr.grayed = 0; c_731448.tag = closureN_tag; c_731448.fn = (function_type)__lambda_247; c_731448.num_args = 1; c_731448.num_elements = 9; c_731448.elements = (object *)alloca(sizeof(object) * 9); c_731448.elements[0] = ((closureN)self_73974)->elements[0]; c_731448.elements[1] = ((closureN)self_73974)->elements[1]; c_731448.elements[2] = ((closureN)self_73974)->elements[2]; c_731448.elements[3] = ((closureN)self_73974)->elements[3]; c_731448.elements[4] = ((closureN)self_73974)->elements[4]; c_731448.elements[5] = ((closureN)self_73974)->elements[5]; c_731448.elements[6] = ((closureN)self_73974)->elements[6]; c_731448.elements[7] = ((closureN)self_73974)->elements[7]; c_731448.elements[8] = ((closureN)self_73974)->elements[8]; return_closcall1(data, __glo_newline_scheme_base, &c_731448);; } static void __lambda_247(void *data, int argc, object self_73975, object r_73736) { closureN_type c_731450; c_731450.hdr.mark = gc_color_red; c_731450.hdr.grayed = 0; c_731450.tag = closureN_tag; c_731450.fn = (function_type)__lambda_246; c_731450.num_args = 1; c_731450.num_elements = 9; c_731450.elements = (object *)alloca(sizeof(object) * 9); c_731450.elements[0] = ((closureN)self_73975)->elements[0]; c_731450.elements[1] = ((closureN)self_73975)->elements[1]; c_731450.elements[2] = ((closureN)self_73975)->elements[2]; c_731450.elements[3] = ((closureN)self_73975)->elements[3]; c_731450.elements[4] = ((closureN)self_73975)->elements[4]; c_731450.elements[5] = ((closureN)self_73975)->elements[5]; c_731450.elements[6] = ((closureN)self_73975)->elements[6]; c_731450.elements[7] = ((closureN)self_73975)->elements[7]; c_731450.elements[8] = ((closureN)self_73975)->elements[8]; return_closcall2(data, __glo_write_scheme_write, &c_731450, r_73736);; } static void __lambda_246(void *data, int argc, object self_73976, object r_73502) { if( (boolean_f != Cyc_is_eof_object(((closureN)self_73976)->elements[1])) ){ closureN_type c_731455; c_731455.hdr.mark = gc_color_red; c_731455.hdr.grayed = 0; c_731455.tag = closureN_tag; c_731455.fn = (function_type)__lambda_41; c_731455.num_args = 0; c_731455.num_elements = 2; c_731455.elements = (object *)alloca(sizeof(object) * 2); c_731455.elements[0] = ((closureN)self_73976)->elements[5]; c_731455.elements[1] = ((closureN)self_73976)->elements[6]; closureN_type c_731474; c_731474.hdr.mark = gc_color_red; c_731474.hdr.grayed = 0; c_731474.tag = closureN_tag; c_731474.fn = (function_type)__lambda_45; c_731474.num_args = 1; c_731474.num_elements = 5; c_731474.elements = (object *)alloca(sizeof(object) * 5); c_731474.elements[0] = ((closureN)self_73976)->elements[0]; c_731474.elements[1] = ((closureN)self_73976)->elements[1]; c_731474.elements[2] = ((closureN)self_73976)->elements[4]; c_731474.elements[3] = ((closureN)self_73976)->elements[7]; c_731474.elements[4] = ((closureN)self_73976)->elements[8]; return_closcall1(data,(closure)&c_731455, &c_731474); } else { if( (boolean_f != ((closureN)self_73976)->elements[2]) ){ if( (boolean_f != Cyc_eq(((closureN)self_73976)->elements[1], obj_char2obj(10))) ){ closureN_type c_731506; c_731506.hdr.mark = gc_color_red; c_731506.hdr.grayed = 0; c_731506.tag = closureN_tag; c_731506.fn = (function_type)__lambda_50; c_731506.num_args = 1; c_731506.num_elements = 6; c_731506.elements = (object *)alloca(sizeof(object) * 6); c_731506.elements[0] = ((closureN)self_73976)->elements[0]; c_731506.elements[1] = ((closureN)self_73976)->elements[3]; c_731506.elements[2] = ((closureN)self_73976)->elements[4]; c_731506.elements[3] = ((closureN)self_73976)->elements[5]; c_731506.elements[4] = ((closureN)self_73976)->elements[6]; c_731506.elements[5] = ((closureN)self_73976)->elements[8]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731506, ((closureN)self_73976)->elements[6]); } else { closureN_type c_731529; c_731529.hdr.mark = gc_color_red; c_731529.hdr.grayed = 0; c_731529.tag = closureN_tag; c_731529.fn = (function_type)__lambda_51; c_731529.num_args = 1; c_731529.num_elements = 6; c_731529.elements = (object *)alloca(sizeof(object) * 6); c_731529.elements[0] = ((closureN)self_73976)->elements[0]; c_731529.elements[1] = ((closureN)self_73976)->elements[3]; c_731529.elements[2] = ((closureN)self_73976)->elements[4]; c_731529.elements[3] = ((closureN)self_73976)->elements[5]; c_731529.elements[4] = ((closureN)self_73976)->elements[6]; c_731529.elements[5] = ((closureN)self_73976)->elements[8]; return_closcall1(data,(closure)&c_731529, NULL);} } else { closureN_type c_731538; c_731538.hdr.mark = gc_color_red; c_731538.hdr.grayed = 0; c_731538.tag = closureN_tag; c_731538.fn = (function_type)__lambda_245; c_731538.num_args = 1; c_731538.num_elements = 8; c_731538.elements = (object *)alloca(sizeof(object) * 8); c_731538.elements[0] = ((closureN)self_73976)->elements[0]; c_731538.elements[1] = ((closureN)self_73976)->elements[1]; c_731538.elements[2] = ((closureN)self_73976)->elements[3]; c_731538.elements[3] = ((closureN)self_73976)->elements[4]; c_731538.elements[4] = ((closureN)self_73976)->elements[5]; c_731538.elements[5] = ((closureN)self_73976)->elements[6]; c_731538.elements[6] = ((closureN)self_73976)->elements[7]; c_731538.elements[7] = ((closureN)self_73976)->elements[8]; return_closcall2(data, __glo_char_91whitespace_127_scheme__char, &c_731538, ((closureN)self_73976)->elements[1]);} } ; } static void __lambda_245(void *data, int argc, object self_73977, object r_73520) { if( (boolean_f != r_73520) ){ closureN_type c_731540; c_731540.hdr.mark = gc_color_red; c_731540.hdr.grayed = 0; c_731540.tag = closureN_tag; c_731540.fn = (function_type)__lambda_54; c_731540.num_args = 0; c_731540.num_elements = 2; c_731540.elements = (object *)alloca(sizeof(object) * 2); c_731540.elements[0] = ((closureN)self_73977)->elements[1]; c_731540.elements[1] = ((closureN)self_73977)->elements[5]; closureN_type c_731556; c_731556.hdr.mark = gc_color_red; c_731556.hdr.grayed = 0; c_731556.tag = closureN_tag; c_731556.fn = (function_type)__lambda_57; c_731556.num_args = 1; c_731556.num_elements = 8; c_731556.elements = (object *)alloca(sizeof(object) * 8); c_731556.elements[0] = ((closureN)self_73977)->elements[0]; c_731556.elements[1] = ((closureN)self_73977)->elements[1]; c_731556.elements[2] = ((closureN)self_73977)->elements[2]; c_731556.elements[3] = ((closureN)self_73977)->elements[3]; c_731556.elements[4] = ((closureN)self_73977)->elements[4]; c_731556.elements[5] = ((closureN)self_73977)->elements[5]; c_731556.elements[6] = ((closureN)self_73977)->elements[6]; c_731556.elements[7] = ((closureN)self_73977)->elements[7]; return_closcall1(data,(closure)&c_731540, &c_731556); } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(59))) ){ return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], ((closureN)self_73977)->elements[6], ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_t, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5], ((closureN)self_73977)->elements[1]); } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(39))) ){ closureN_type c_731591; c_731591.hdr.mark = gc_color_red; c_731591.hdr.grayed = 0; c_731591.tag = closureN_tag; c_731591.fn = (function_type)__lambda_58; c_731591.num_args = 0; c_731591.num_elements = 2; c_731591.elements = (object *)alloca(sizeof(object) * 2); c_731591.elements[0] = ((closureN)self_73977)->elements[0]; c_731591.elements[1] = ((closureN)self_73977)->elements[6]; closureN_type c_731598; c_731598.hdr.mark = gc_color_red; c_731598.hdr.grayed = 0; c_731598.tag = closureN_tag; c_731598.fn = (function_type)__lambda_73; c_731598.num_args = 1; c_731598.num_elements = 8; c_731598.elements = (object *)alloca(sizeof(object) * 8); c_731598.elements[0] = ((closureN)self_73977)->elements[0]; c_731598.elements[1] = ((closureN)self_73977)->elements[1]; c_731598.elements[2] = ((closureN)self_73977)->elements[2]; c_731598.elements[3] = ((closureN)self_73977)->elements[3]; c_731598.elements[4] = ((closureN)self_73977)->elements[4]; c_731598.elements[5] = ((closureN)self_73977)->elements[5]; c_731598.elements[6] = ((closureN)self_73977)->elements[6]; c_731598.elements[7] = ((closureN)self_73977)->elements[7]; return_closcall1(data,(closure)&c_731591, &c_731598); } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(96))) ){ closureN_type c_731669; c_731669.hdr.mark = gc_color_red; c_731669.hdr.grayed = 0; c_731669.tag = closureN_tag; c_731669.fn = (function_type)__lambda_74; c_731669.num_args = 0; c_731669.num_elements = 2; c_731669.elements = (object *)alloca(sizeof(object) * 2); c_731669.elements[0] = ((closureN)self_73977)->elements[0]; c_731669.elements[1] = ((closureN)self_73977)->elements[6]; closureN_type c_731676; c_731676.hdr.mark = gc_color_red; c_731676.hdr.grayed = 0; c_731676.tag = closureN_tag; c_731676.fn = (function_type)__lambda_89; c_731676.num_args = 1; c_731676.num_elements = 8; c_731676.elements = (object *)alloca(sizeof(object) * 8); c_731676.elements[0] = ((closureN)self_73977)->elements[0]; c_731676.elements[1] = ((closureN)self_73977)->elements[1]; c_731676.elements[2] = ((closureN)self_73977)->elements[2]; c_731676.elements[3] = ((closureN)self_73977)->elements[3]; c_731676.elements[4] = ((closureN)self_73977)->elements[4]; c_731676.elements[5] = ((closureN)self_73977)->elements[5]; c_731676.elements[6] = ((closureN)self_73977)->elements[6]; c_731676.elements[7] = ((closureN)self_73977)->elements[7]; return_closcall1(data,(closure)&c_731669, &c_731676); } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(44))) ){ closureN_type c_731747; c_731747.hdr.mark = gc_color_red; c_731747.hdr.grayed = 0; c_731747.tag = closureN_tag; c_731747.fn = (function_type)__lambda_90; c_731747.num_args = 0; c_731747.num_elements = 2; c_731747.elements = (object *)alloca(sizeof(object) * 2); c_731747.elements[0] = ((closureN)self_73977)->elements[0]; c_731747.elements[1] = ((closureN)self_73977)->elements[6]; closureN_type c_731754; c_731754.hdr.mark = gc_color_red; c_731754.hdr.grayed = 0; c_731754.tag = closureN_tag; c_731754.fn = (function_type)__lambda_119; c_731754.num_args = 1; c_731754.num_elements = 8; c_731754.elements = (object *)alloca(sizeof(object) * 8); c_731754.elements[0] = ((closureN)self_73977)->elements[0]; c_731754.elements[1] = ((closureN)self_73977)->elements[1]; c_731754.elements[2] = ((closureN)self_73977)->elements[2]; c_731754.elements[3] = ((closureN)self_73977)->elements[3]; c_731754.elements[4] = ((closureN)self_73977)->elements[4]; c_731754.elements[5] = ((closureN)self_73977)->elements[5]; c_731754.elements[6] = ((closureN)self_73977)->elements[6]; c_731754.elements[7] = ((closureN)self_73977)->elements[7]; return_closcall1(data,(closure)&c_731747, &c_731754); } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(40))) ){ closureN_type c_731916; c_731916.hdr.mark = gc_color_red; c_731916.hdr.grayed = 0; c_731916.tag = closureN_tag; c_731916.fn = (function_type)__lambda_120; c_731916.num_args = 0; c_731916.num_elements = 2; c_731916.elements = (object *)alloca(sizeof(object) * 2); c_731916.elements[0] = ((closureN)self_73977)->elements[0]; c_731916.elements[1] = ((closureN)self_73977)->elements[6]; closureN_type c_731923; c_731923.hdr.mark = gc_color_red; c_731923.hdr.grayed = 0; c_731923.tag = closureN_tag; c_731923.fn = (function_type)__lambda_139; c_731923.num_args = 1; c_731923.num_elements = 8; c_731923.elements = (object *)alloca(sizeof(object) * 8); c_731923.elements[0] = ((closureN)self_73977)->elements[0]; c_731923.elements[1] = ((closureN)self_73977)->elements[1]; c_731923.elements[2] = ((closureN)self_73977)->elements[2]; c_731923.elements[3] = ((closureN)self_73977)->elements[3]; c_731923.elements[4] = ((closureN)self_73977)->elements[4]; c_731923.elements[5] = ((closureN)self_73977)->elements[5]; c_731923.elements[6] = ((closureN)self_73977)->elements[6]; c_731923.elements[7] = ((closureN)self_73977)->elements[7]; return_closcall1(data,(closure)&c_731916, &c_731923); } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(41))) ){ closureN_type c_732017; c_732017.hdr.mark = gc_color_red; c_732017.hdr.grayed = 0; c_732017.tag = closureN_tag; c_732017.fn = (function_type)__lambda_140; c_732017.num_args = 0; c_732017.num_elements = 2; c_732017.elements = (object *)alloca(sizeof(object) * 2); c_732017.elements[0] = ((closureN)self_73977)->elements[0]; c_732017.elements[1] = ((closureN)self_73977)->elements[6]; closureN_type c_732024; c_732024.hdr.mark = gc_color_red; c_732024.hdr.grayed = 0; c_732024.tag = closureN_tag; c_732024.fn = (function_type)__lambda_148; c_732024.num_args = 1; c_732024.num_elements = 6; c_732024.elements = (object *)alloca(sizeof(object) * 6); c_732024.elements[0] = ((closureN)self_73977)->elements[1]; c_732024.elements[1] = ((closureN)self_73977)->elements[3]; c_732024.elements[2] = ((closureN)self_73977)->elements[4]; c_732024.elements[3] = ((closureN)self_73977)->elements[5]; c_732024.elements[4] = ((closureN)self_73977)->elements[6]; c_732024.elements[5] = ((closureN)self_73977)->elements[7]; return_closcall1(data,(closure)&c_732017, &c_732024); } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(34))) ){ closureN_type c_732065; c_732065.hdr.mark = gc_color_red; c_732065.hdr.grayed = 0; c_732065.tag = closureN_tag; c_732065.fn = (function_type)__lambda_149; c_732065.num_args = 0; c_732065.num_elements = 2; c_732065.elements = (object *)alloca(sizeof(object) * 2); c_732065.elements[0] = ((closureN)self_73977)->elements[0]; c_732065.elements[1] = ((closureN)self_73977)->elements[6]; closureN_type c_732072; c_732072.hdr.mark = gc_color_red; c_732072.hdr.grayed = 0; c_732072.tag = closureN_tag; c_732072.fn = (function_type)__lambda_162; c_732072.num_args = 1; c_732072.num_elements = 8; c_732072.elements = (object *)alloca(sizeof(object) * 8); c_732072.elements[0] = ((closureN)self_73977)->elements[0]; c_732072.elements[1] = ((closureN)self_73977)->elements[1]; c_732072.elements[2] = ((closureN)self_73977)->elements[2]; c_732072.elements[3] = ((closureN)self_73977)->elements[3]; c_732072.elements[4] = ((closureN)self_73977)->elements[4]; c_732072.elements[5] = ((closureN)self_73977)->elements[5]; c_732072.elements[6] = ((closureN)self_73977)->elements[6]; c_732072.elements[7] = ((closureN)self_73977)->elements[7]; return_closcall1(data,(closure)&c_732065, &c_732072); } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(35))) ){ if( (boolean_f != Cyc_is_null(((closureN)self_73977)->elements[6])) ){ closureN_type c_732142; c_732142.hdr.mark = gc_color_red; c_732142.hdr.grayed = 0; c_732142.tag = closureN_tag; c_732142.fn = (function_type)__lambda_244; c_732142.num_args = 1; c_732142.num_elements = 8; c_732142.elements = (object *)alloca(sizeof(object) * 8); c_732142.elements[0] = ((closureN)self_73977)->elements[0]; c_732142.elements[1] = ((closureN)self_73977)->elements[1]; c_732142.elements[2] = ((closureN)self_73977)->elements[2]; c_732142.elements[3] = ((closureN)self_73977)->elements[3]; c_732142.elements[4] = ((closureN)self_73977)->elements[4]; c_732142.elements[5] = ((closureN)self_73977)->elements[5]; c_732142.elements[6] = ((closureN)self_73977)->elements[6]; c_732142.elements[7] = ((closureN)self_73977)->elements[7]; object c_732658 = Cyc_io_read_char(data,(closure)&c_732142,((closureN)self_73977)->elements[2]); return_closcall1(data,(closure)&c_732142, c_732658); } else { make_pair(c_732665,((closureN)self_73977)->elements[1], ((closureN)self_73977)->elements[6]); return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], &c_732665, ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_f, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);} } else { if( (boolean_f != Cyc_eq(((closureN)self_73977)->elements[1], obj_char2obj(124))) ){ return_closcall6(data, __glo_parse_91literal_91identifier_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]); } else { make_pair(c_732687,((closureN)self_73977)->elements[1], ((closureN)self_73977)->elements[6]); return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73977)->elements[3], ((closureN)self_73977)->elements[2], &c_732687, ((closureN)self_73977)->elements[7], ((closureN)self_73977)->elements[0], boolean_f, ((closureN)self_73977)->elements[4], ((closureN)self_73977)->elements[5]);} } } } } } } } } } ; } static void __lambda_244(void *data, int argc, object self_73978, object next_91c_73206) { closureN_type c_732144; c_732144.hdr.mark = gc_color_red; c_732144.hdr.grayed = 0; c_732144.tag = closureN_tag; c_732144.fn = (function_type)__lambda_243; c_732144.num_args = 1; c_732144.num_elements = 8; c_732144.elements = (object *)alloca(sizeof(object) * 8); c_732144.elements[0] = ((closureN)self_73978)->elements[0]; c_732144.elements[1] = ((closureN)self_73978)->elements[1]; c_732144.elements[2] = ((closureN)self_73978)->elements[2]; c_732144.elements[3] = ((closureN)self_73978)->elements[3]; c_732144.elements[4] = ((closureN)self_73978)->elements[4]; c_732144.elements[5] = ((closureN)self_73978)->elements[5]; c_732144.elements[6] = ((closureN)self_73978)->elements[6]; c_732144.elements[7] = ((closureN)self_73978)->elements[7]; make_cell(c_732655,next_91c_73206); return_closcall1(data,(closure)&c_732144, &c_732655);; } static void __lambda_243(void *data, int argc, object self_73979, object next_91c_73206) { closureN_type c_732146; c_732146.hdr.mark = gc_color_red; c_732146.hdr.grayed = 0; c_732146.tag = closureN_tag; c_732146.fn = (function_type)__lambda_242; c_732146.num_args = 1; c_732146.num_elements = 9; c_732146.elements = (object *)alloca(sizeof(object) * 9); c_732146.elements[0] = ((closureN)self_73979)->elements[0]; c_732146.elements[1] = ((closureN)self_73979)->elements[1]; c_732146.elements[2] = ((closureN)self_73979)->elements[2]; c_732146.elements[3] = ((closureN)self_73979)->elements[3]; c_732146.elements[4] = next_91c_73206; c_732146.elements[5] = ((closureN)self_73979)->elements[4]; c_732146.elements[6] = ((closureN)self_73979)->elements[5]; c_732146.elements[7] = ((closureN)self_73979)->elements[6]; c_732146.elements[8] = ((closureN)self_73979)->elements[7]; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732146, ((closureN)self_73979)->elements[5]);; } static void __lambda_242(void *data, int argc, object self_73980, object r_73732) { closureN_type c_732148; c_732148.hdr.mark = gc_color_red; c_732148.hdr.grayed = 0; c_732148.tag = closureN_tag; c_732148.fn = (function_type)__lambda_241; c_732148.num_args = 1; c_732148.num_elements = 9; c_732148.elements = (object *)alloca(sizeof(object) * 9); c_732148.elements[0] = ((closureN)self_73980)->elements[0]; c_732148.elements[1] = ((closureN)self_73980)->elements[1]; c_732148.elements[2] = ((closureN)self_73980)->elements[2]; c_732148.elements[3] = ((closureN)self_73980)->elements[3]; c_732148.elements[4] = ((closureN)self_73980)->elements[4]; c_732148.elements[5] = ((closureN)self_73980)->elements[5]; c_732148.elements[6] = ((closureN)self_73980)->elements[6]; c_732148.elements[7] = ((closureN)self_73980)->elements[7]; c_732148.elements[8] = ((closureN)self_73980)->elements[8]; object c_732651 = Cyc_sum(data,(closure)&c_732148,2,obj_int2obj(1), r_73732); return_closcall1(data,(closure)&c_732148, c_732651);; } static void __lambda_241(void *data, int argc, object self_73981, object r_73731) { closureN_type c_732150; c_732150.hdr.mark = gc_color_red; c_732150.hdr.grayed = 0; c_732150.tag = closureN_tag; c_732150.fn = (function_type)__lambda_240; c_732150.num_args = 1; c_732150.num_elements = 9; c_732150.elements = (object *)alloca(sizeof(object) * 9); c_732150.elements[0] = ((closureN)self_73981)->elements[0]; c_732150.elements[1] = ((closureN)self_73981)->elements[1]; c_732150.elements[2] = ((closureN)self_73981)->elements[2]; c_732150.elements[3] = ((closureN)self_73981)->elements[3]; c_732150.elements[4] = ((closureN)self_73981)->elements[4]; c_732150.elements[5] = ((closureN)self_73981)->elements[5]; c_732150.elements[6] = ((closureN)self_73981)->elements[6]; c_732150.elements[7] = ((closureN)self_73981)->elements[7]; c_732150.elements[8] = ((closureN)self_73981)->elements[8]; return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_732150, ((closureN)self_73981)->elements[6], r_73731);; } static void __lambda_240(void *data, int argc, object self_73982, object r_73639) { if( (boolean_f != Cyc_eq(obj_char2obj(124), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732157; c_732157.hdr.mark = gc_color_red; c_732157.hdr.grayed = 0; c_732157.tag = closureN_tag; c_732157.fn = (function_type)__lambda_164; c_732157.num_args = 1; c_732157.num_elements = 6; c_732157.elements = (object *)alloca(sizeof(object) * 6); c_732157.elements[0] = ((closureN)self_73982)->elements[0]; c_732157.elements[1] = ((closureN)self_73982)->elements[2]; c_732157.elements[2] = ((closureN)self_73982)->elements[3]; c_732157.elements[3] = ((closureN)self_73982)->elements[5]; c_732157.elements[4] = ((closureN)self_73982)->elements[6]; c_732157.elements[5] = ((closureN)self_73982)->elements[8]; return_closcall3(data, __glo_read_91block_91comment_scheme_read, &c_732157, ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[6]); } else { if( (boolean_f != Cyc_eq(obj_char2obj(116), cell_get(((closureN)self_73982)->elements[4]))) ){ if( (boolean_f != ((closureN)self_73982)->elements[0]) ){ closureN_type c_732176; c_732176.hdr.mark = gc_color_red; c_732176.hdr.grayed = 0; c_732176.tag = closureN_tag; c_732176.fn = (function_type)__lambda_165; c_732176.num_args = 1; c_732176.num_elements = 6; c_732176.elements = (object *)alloca(sizeof(object) * 6); c_732176.elements[0] = ((closureN)self_73982)->elements[0]; c_732176.elements[1] = ((closureN)self_73982)->elements[2]; c_732176.elements[2] = ((closureN)self_73982)->elements[3]; c_732176.elements[3] = ((closureN)self_73982)->elements[5]; c_732176.elements[4] = ((closureN)self_73982)->elements[6]; c_732176.elements[5] = ((closureN)self_73982)->elements[8]; return_closcall1(data,(closure)&c_732176, NULL); } else { return_closcall1(data, ((closureN)self_73982)->elements[3], boolean_t);} } else { if( (boolean_f != Cyc_eq(obj_char2obj(102), cell_get(((closureN)self_73982)->elements[4]))) ){ if( (boolean_f != ((closureN)self_73982)->elements[0]) ){ closureN_type c_732196; c_732196.hdr.mark = gc_color_red; c_732196.hdr.grayed = 0; c_732196.tag = closureN_tag; c_732196.fn = (function_type)__lambda_166; c_732196.num_args = 1; c_732196.num_elements = 6; c_732196.elements = (object *)alloca(sizeof(object) * 6); c_732196.elements[0] = ((closureN)self_73982)->elements[0]; c_732196.elements[1] = ((closureN)self_73982)->elements[2]; c_732196.elements[2] = ((closureN)self_73982)->elements[3]; c_732196.elements[3] = ((closureN)self_73982)->elements[5]; c_732196.elements[4] = ((closureN)self_73982)->elements[6]; c_732196.elements[5] = ((closureN)self_73982)->elements[8]; return_closcall1(data,(closure)&c_732196, NULL); } else { return_closcall1(data, ((closureN)self_73982)->elements[3], boolean_f);} } else { if( (boolean_f != Cyc_eq(obj_char2obj(101), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732215; c_732215.hdr.mark = gc_color_red; c_732215.hdr.grayed = 0; c_732215.tag = closureN_tag; c_732215.fn = (function_type)__lambda_167; c_732215.num_args = 1; c_732215.num_elements = 6; c_732215.elements = (object *)alloca(sizeof(object) * 6); c_732215.elements[0] = ((closureN)self_73982)->elements[0]; c_732215.elements[1] = ((closureN)self_73982)->elements[2]; c_732215.elements[2] = ((closureN)self_73982)->elements[3]; c_732215.elements[3] = ((closureN)self_73982)->elements[5]; c_732215.elements[4] = ((closureN)self_73982)->elements[6]; c_732215.elements[5] = ((closureN)self_73982)->elements[8]; mclosure0(c_732223, (function_type)__lambda_169);c_732223.num_args = 1; return_closcall1(data,(closure)&c_732215, &c_732223); } else { if( (boolean_f != Cyc_eq(obj_char2obj(105), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732234; c_732234.hdr.mark = gc_color_red; c_732234.hdr.grayed = 0; c_732234.tag = closureN_tag; c_732234.fn = (function_type)__lambda_170; c_732234.num_args = 1; c_732234.num_elements = 6; c_732234.elements = (object *)alloca(sizeof(object) * 6); c_732234.elements[0] = ((closureN)self_73982)->elements[0]; c_732234.elements[1] = ((closureN)self_73982)->elements[2]; c_732234.elements[2] = ((closureN)self_73982)->elements[3]; c_732234.elements[3] = ((closureN)self_73982)->elements[5]; c_732234.elements[4] = ((closureN)self_73982)->elements[6]; c_732234.elements[5] = ((closureN)self_73982)->elements[8]; mclosure0(c_732242, (function_type)__lambda_172);c_732242.num_args = 1; return_closcall1(data,(closure)&c_732234, &c_732242); } else { if( (boolean_f != Cyc_eq(obj_char2obj(98), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732253; c_732253.hdr.mark = gc_color_red; c_732253.hdr.grayed = 0; c_732253.tag = closureN_tag; c_732253.fn = (function_type)__lambda_173; c_732253.num_args = 1; c_732253.num_elements = 6; c_732253.elements = (object *)alloca(sizeof(object) * 6); c_732253.elements[0] = ((closureN)self_73982)->elements[0]; c_732253.elements[1] = ((closureN)self_73982)->elements[2]; c_732253.elements[2] = ((closureN)self_73982)->elements[3]; c_732253.elements[3] = ((closureN)self_73982)->elements[5]; c_732253.elements[4] = ((closureN)self_73982)->elements[6]; c_732253.elements[5] = ((closureN)self_73982)->elements[8]; mclosure0(c_732261, (function_type)__lambda_175);c_732261.num_args = 1; return_closcall1(data,(closure)&c_732253, &c_732261); } else { if( (boolean_f != Cyc_eq(obj_char2obj(111), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732278; c_732278.hdr.mark = gc_color_red; c_732278.hdr.grayed = 0; c_732278.tag = closureN_tag; c_732278.fn = (function_type)__lambda_176; c_732278.num_args = 1; c_732278.num_elements = 6; c_732278.elements = (object *)alloca(sizeof(object) * 6); c_732278.elements[0] = ((closureN)self_73982)->elements[0]; c_732278.elements[1] = ((closureN)self_73982)->elements[2]; c_732278.elements[2] = ((closureN)self_73982)->elements[3]; c_732278.elements[3] = ((closureN)self_73982)->elements[5]; c_732278.elements[4] = ((closureN)self_73982)->elements[6]; c_732278.elements[5] = ((closureN)self_73982)->elements[8]; mclosure0(c_732286, (function_type)__lambda_178);c_732286.num_args = 1; return_closcall1(data,(closure)&c_732278, &c_732286); } else { if( (boolean_f != Cyc_eq(obj_char2obj(120), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732303; c_732303.hdr.mark = gc_color_red; c_732303.hdr.grayed = 0; c_732303.tag = closureN_tag; c_732303.fn = (function_type)__lambda_179; c_732303.num_args = 1; c_732303.num_elements = 6; c_732303.elements = (object *)alloca(sizeof(object) * 6); c_732303.elements[0] = ((closureN)self_73982)->elements[0]; c_732303.elements[1] = ((closureN)self_73982)->elements[2]; c_732303.elements[2] = ((closureN)self_73982)->elements[3]; c_732303.elements[3] = ((closureN)self_73982)->elements[5]; c_732303.elements[4] = ((closureN)self_73982)->elements[6]; c_732303.elements[5] = ((closureN)self_73982)->elements[8]; mclosure0(c_732311, (function_type)__lambda_181);c_732311.num_args = 1; return_closcall1(data,(closure)&c_732303, &c_732311); } else { if( (boolean_f != Cyc_eq(obj_char2obj(117), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732328; c_732328.hdr.mark = gc_color_red; c_732328.hdr.grayed = 0; c_732328.tag = closureN_tag; c_732328.fn = (function_type)__lambda_210; c_732328.num_args = 1; c_732328.num_elements = 8; c_732328.elements = (object *)alloca(sizeof(object) * 8); c_732328.elements[0] = ((closureN)self_73982)->elements[0]; c_732328.elements[1] = ((closureN)self_73982)->elements[2]; c_732328.elements[2] = ((closureN)self_73982)->elements[3]; c_732328.elements[3] = ((closureN)self_73982)->elements[4]; c_732328.elements[4] = ((closureN)self_73982)->elements[5]; c_732328.elements[5] = ((closureN)self_73982)->elements[6]; c_732328.elements[6] = ((closureN)self_73982)->elements[7]; c_732328.elements[7] = ((closureN)self_73982)->elements[8]; object c_732470 = Cyc_io_read_char(data,(closure)&c_732328,((closureN)self_73982)->elements[2]); return_closcall1(data,(closure)&c_732328, c_732470); } else { if( (boolean_f != Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732478; c_732478.hdr.mark = gc_color_red; c_732478.hdr.grayed = 0; c_732478.tag = closureN_tag; c_732478.fn = (function_type)__lambda_227; c_732478.num_args = 1; c_732478.num_elements = 7; c_732478.elements = (object *)alloca(sizeof(object) * 7); c_732478.elements[0] = ((closureN)self_73982)->elements[0]; c_732478.elements[1] = ((closureN)self_73982)->elements[2]; c_732478.elements[2] = ((closureN)self_73982)->elements[3]; c_732478.elements[3] = ((closureN)self_73982)->elements[5]; c_732478.elements[4] = ((closureN)self_73982)->elements[6]; c_732478.elements[5] = ((closureN)self_73982)->elements[7]; c_732478.elements[6] = ((closureN)self_73982)->elements[8]; return_closcall1(data,(closure)&c_732478, NULL); } else { if( (boolean_f != Cyc_eq(obj_char2obj(92), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732568; c_732568.hdr.mark = gc_color_red; c_732568.hdr.grayed = 0; c_732568.tag = closureN_tag; c_732568.fn = (function_type)__lambda_229; c_732568.num_args = 1; c_732568.num_elements = 6; c_732568.elements = (object *)alloca(sizeof(object) * 6); c_732568.elements[0] = ((closureN)self_73982)->elements[0]; c_732568.elements[1] = ((closureN)self_73982)->elements[2]; c_732568.elements[2] = ((closureN)self_73982)->elements[3]; c_732568.elements[3] = ((closureN)self_73982)->elements[5]; c_732568.elements[4] = ((closureN)self_73982)->elements[6]; c_732568.elements[5] = ((closureN)self_73982)->elements[8]; return_closcall3(data, __glo_read_91pound_scheme_read, &c_732568, ((closureN)self_73982)->elements[2], ((closureN)self_73982)->elements[6]); } else { if( (boolean_f != Cyc_eq(obj_char2obj(59), cell_get(((closureN)self_73982)->elements[4]))) ){ closureN_type c_732599; c_732599.hdr.mark = gc_color_red; c_732599.hdr.grayed = 0; c_732599.tag = closureN_tag; c_732599.fn = (function_type)__lambda_237; c_732599.num_args = 1; c_732599.num_elements = 8; c_732599.elements = (object *)alloca(sizeof(object) * 8); c_732599.elements[0] = ((closureN)self_73982)->elements[0]; c_732599.elements[1] = ((closureN)self_73982)->elements[1]; c_732599.elements[2] = ((closureN)self_73982)->elements[2]; c_732599.elements[3] = ((closureN)self_73982)->elements[3]; c_732599.elements[4] = ((closureN)self_73982)->elements[5]; c_732599.elements[5] = ((closureN)self_73982)->elements[6]; c_732599.elements[6] = ((closureN)self_73982)->elements[7]; c_732599.elements[7] = ((closureN)self_73982)->elements[8]; return_closcall1(data,(closure)&c_732599, NULL); } else { closureN_type c_732639; c_732639.hdr.mark = gc_color_red; c_732639.hdr.grayed = 0; c_732639.tag = closureN_tag; c_732639.fn = (function_type)__lambda_239; c_732639.num_args = 1; c_732639.num_elements = 2; c_732639.elements = (object *)alloca(sizeof(object) * 2); c_732639.elements[0] = ((closureN)self_73982)->elements[3]; c_732639.elements[1] = ((closureN)self_73982)->elements[6]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732639, ((closureN)self_73982)->elements[6]);} } } } } } } } } } } } ; } static void __lambda_239(void *data, int argc, object self_73983, object r_73729) { closureN_type c_732641; c_732641.hdr.mark = gc_color_red; c_732641.hdr.grayed = 0; c_732641.tag = closureN_tag; c_732641.fn = (function_type)__lambda_238; c_732641.num_args = 1; c_732641.num_elements = 2; c_732641.elements = (object *)alloca(sizeof(object) * 2); c_732641.elements[0] = ((closureN)self_73983)->elements[0]; c_732641.elements[1] = r_73729; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732641, ((closureN)self_73983)->elements[1]);; } static void __lambda_238(void *data, int argc, object self_73984, object r_73730) { make_string(c_732644, "Unhandled input sequence"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_73984)->elements[0], &c_732644, ((closureN)self_73984)->elements[1], r_73730);; } static void __lambda_237(void *data, int argc, object self_73985, object r_73727) { closureN_type c_732601; c_732601.hdr.mark = gc_color_red; c_732601.hdr.grayed = 0; c_732601.tag = closureN_tag; c_732601.fn = (function_type)__lambda_236; c_732601.num_args = 1; c_732601.num_elements = 9; c_732601.elements = (object *)alloca(sizeof(object) * 9); c_732601.elements[0] = ((closureN)self_73985)->elements[0]; c_732601.elements[1] = ((closureN)self_73985)->elements[1]; c_732601.elements[2] = ((closureN)self_73985)->elements[2]; c_732601.elements[3] = ((closureN)self_73985)->elements[3]; c_732601.elements[4] = ((closureN)self_73985)->elements[4]; c_732601.elements[5] = ((closureN)self_73985)->elements[5]; c_732601.elements[6] = r_73727; c_732601.elements[7] = ((closureN)self_73985)->elements[6]; c_732601.elements[8] = ((closureN)self_73985)->elements[7]; return_closcall1(data,(closure)&c_732601, NULL);; } static void __lambda_236(void *data, int argc, object self_73986, object r_73728) { closureN_type c_732603; c_732603.hdr.mark = gc_color_red; c_732603.hdr.grayed = 0; c_732603.tag = closureN_tag; c_732603.fn = (function_type)__lambda_235; c_732603.num_args = 1; c_732603.num_elements = 8; c_732603.elements = (object *)alloca(sizeof(object) * 8); c_732603.elements[0] = ((closureN)self_73986)->elements[0]; c_732603.elements[1] = ((closureN)self_73986)->elements[1]; c_732603.elements[2] = ((closureN)self_73986)->elements[2]; c_732603.elements[3] = ((closureN)self_73986)->elements[3]; c_732603.elements[4] = ((closureN)self_73986)->elements[4]; c_732603.elements[5] = ((closureN)self_73986)->elements[5]; c_732603.elements[6] = ((closureN)self_73986)->elements[7]; c_732603.elements[7] = ((closureN)self_73986)->elements[8]; return_closcall8(data, __glo_parse_scheme_read, &c_732603, ((closureN)self_73986)->elements[2], ((closureN)self_73986)->elements[6], r_73728, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_73986)->elements[5]);; } static void __lambda_235(void *data, int argc, object self_73987, object r_73720) { closureN_type c_732605; c_732605.hdr.mark = gc_color_red; c_732605.hdr.grayed = 0; c_732605.tag = closureN_tag; c_732605.fn = (function_type)__lambda_230; c_732605.num_args = 0; c_732605.num_elements = 2; c_732605.elements = (object *)alloca(sizeof(object) * 2); c_732605.elements[0] = ((closureN)self_73987)->elements[0]; c_732605.elements[1] = ((closureN)self_73987)->elements[6]; closureN_type c_732612; c_732612.hdr.mark = gc_color_red; c_732612.hdr.grayed = 0; c_732612.tag = closureN_tag; c_732612.fn = (function_type)__lambda_234; c_732612.num_args = 1; c_732612.num_elements = 8; c_732612.elements = (object *)alloca(sizeof(object) * 8); c_732612.elements[0] = ((closureN)self_73987)->elements[0]; c_732612.elements[1] = ((closureN)self_73987)->elements[1]; c_732612.elements[2] = ((closureN)self_73987)->elements[2]; c_732612.elements[3] = ((closureN)self_73987)->elements[3]; c_732612.elements[4] = ((closureN)self_73987)->elements[4]; c_732612.elements[5] = ((closureN)self_73987)->elements[5]; c_732612.elements[6] = ((closureN)self_73987)->elements[6]; c_732612.elements[7] = ((closureN)self_73987)->elements[7]; return_closcall1(data,(closure)&c_732605, &c_732612);; } static void __lambda_234(void *data, int argc, object self_73988, object r_73721) { if( (boolean_f != r_73721) ){ closureN_type c_732614; c_732614.hdr.mark = gc_color_red; c_732614.hdr.grayed = 0; c_732614.tag = closureN_tag; c_732614.fn = (function_type)__lambda_233; c_732614.num_args = 1; c_732614.num_elements = 3; c_732614.elements = (object *)alloca(sizeof(object) * 3); c_732614.elements[0] = ((closureN)self_73988)->elements[3]; c_732614.elements[1] = ((closureN)self_73988)->elements[6]; c_732614.elements[2] = ((closureN)self_73988)->elements[7]; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732614, ((closureN)self_73988)->elements[5], ((closureN)self_73988)->elements[1]); } else { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73988)->elements[3], ((closureN)self_73988)->elements[2], ((closureN)self_73988)->elements[6], ((closureN)self_73988)->elements[7], ((closureN)self_73988)->elements[0], boolean_f, ((closureN)self_73988)->elements[4], ((closureN)self_73988)->elements[5]);} ; } static void __lambda_233(void *data, int argc, object self_73989, object r_73722) { closureN_type c_732616; c_732616.hdr.mark = gc_color_red; c_732616.hdr.grayed = 0; c_732616.tag = closureN_tag; c_732616.fn = (function_type)__lambda_232; c_732616.num_args = 1; c_732616.num_elements = 2; c_732616.elements = (object *)alloca(sizeof(object) * 2); c_732616.elements[0] = ((closureN)self_73989)->elements[0]; c_732616.elements[1] = ((closureN)self_73989)->elements[2]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_732616, ((closureN)self_73989)->elements[1]);; } static void __lambda_232(void *data, int argc, object self_73990, object r_73724) { closureN_type c_732618; c_732618.hdr.mark = gc_color_red; c_732618.hdr.grayed = 0; c_732618.tag = closureN_tag; c_732618.fn = (function_type)__lambda_231; c_732618.num_args = 1; c_732618.num_elements = 1; c_732618.elements = (object *)alloca(sizeof(object) * 1); c_732618.elements[0] = ((closureN)self_73990)->elements[0]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_732618, r_73724, ((closureN)self_73990)->elements[1]);; } static void __lambda_231(void *data, int argc, object self_73991, object r_73723) { return_closcall1(data, ((closureN)self_73991)->elements[0], car(r_73723));; } static void __lambda_230(void *data, int argc, object self_73992, object k_73725) { if( (boolean_f != ((closureN)self_73992)->elements[0]) ){ return_closcall1(data, k_73725, boolean_f); } else { return_closcall2(data, __glo_not_scheme_base, k_73725, Cyc_is_null(((closureN)self_73992)->elements[1]));} ; } static void __lambda_229(void *data, int argc, object self_73993, object r_73718) { if( (boolean_f != ((closureN)self_73993)->elements[0]) ){ closureN_type c_732571; c_732571.hdr.mark = gc_color_red; c_732571.hdr.grayed = 0; c_732571.tag = closureN_tag; c_732571.fn = (function_type)__lambda_228; c_732571.num_args = 1; c_732571.num_elements = 7; c_732571.elements = (object *)alloca(sizeof(object) * 7); c_732571.elements[0] = ((closureN)self_73993)->elements[0]; c_732571.elements[1] = ((closureN)self_73993)->elements[1]; c_732571.elements[2] = ((closureN)self_73993)->elements[2]; c_732571.elements[3] = ((closureN)self_73993)->elements[3]; c_732571.elements[4] = ((closureN)self_73993)->elements[4]; c_732571.elements[5] = r_73718; c_732571.elements[6] = ((closureN)self_73993)->elements[5]; return_closcall1(data,(closure)&c_732571, NULL); } else { make_pair(c_732589,r_73718, ((closureN)self_73993)->elements[5]); return_closcall1(data, ((closureN)self_73993)->elements[2], car(&c_732589));} ; } static void __lambda_228(void *data, int argc, object self_73994, object r_73717) { make_pair(c_732577,((closureN)self_73994)->elements[5], ((closureN)self_73994)->elements[6]); return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_73994)->elements[2], ((closureN)self_73994)->elements[1], r_73717, &c_732577, ((closureN)self_73994)->elements[0], boolean_f, ((closureN)self_73994)->elements[3], ((closureN)self_73994)->elements[4]);; } static void __lambda_227(void *data, int argc, object self_73995, object r_73712) { closureN_type c_732480; c_732480.hdr.mark = gc_color_red; c_732480.hdr.grayed = 0; c_732480.tag = closureN_tag; c_732480.fn = (function_type)__lambda_226; c_732480.num_args = 1; c_732480.num_elements = 8; c_732480.elements = (object *)alloca(sizeof(object) * 8); c_732480.elements[0] = ((closureN)self_73995)->elements[0]; c_732480.elements[1] = ((closureN)self_73995)->elements[1]; c_732480.elements[2] = ((closureN)self_73995)->elements[2]; c_732480.elements[3] = ((closureN)self_73995)->elements[3]; c_732480.elements[4] = ((closureN)self_73995)->elements[4]; c_732480.elements[5] = r_73712; c_732480.elements[6] = ((closureN)self_73995)->elements[5]; c_732480.elements[7] = ((closureN)self_73995)->elements[6]; return_closcall1(data,(closure)&c_732480, NULL);; } static void __lambda_226(void *data, int argc, object self_73996, object r_73713) { closureN_type c_732482; c_732482.hdr.mark = gc_color_red; c_732482.hdr.grayed = 0; c_732482.tag = closureN_tag; c_732482.fn = (function_type)__lambda_225; c_732482.num_args = 1; c_732482.num_elements = 9; c_732482.elements = (object *)alloca(sizeof(object) * 9); c_732482.elements[0] = ((closureN)self_73996)->elements[0]; c_732482.elements[1] = ((closureN)self_73996)->elements[1]; c_732482.elements[2] = ((closureN)self_73996)->elements[2]; c_732482.elements[3] = ((closureN)self_73996)->elements[3]; c_732482.elements[4] = ((closureN)self_73996)->elements[4]; c_732482.elements[5] = ((closureN)self_73996)->elements[5]; c_732482.elements[6] = r_73713; c_732482.elements[7] = ((closureN)self_73996)->elements[6]; c_732482.elements[8] = ((closureN)self_73996)->elements[7]; object c_732560 = Cyc_sum(data,(closure)&c_732482,2,((closureN)self_73996)->elements[3], obj_int2obj(1)); return_closcall1(data,(closure)&c_732482, c_732560);; } static void __lambda_225(void *data, int argc, object self_73997, object r_73714) { closureN_type c_732484; c_732484.hdr.mark = gc_color_red; c_732484.hdr.grayed = 0; c_732484.tag = closureN_tag; c_732484.fn = (function_type)__lambda_224; c_732484.num_args = 1; c_732484.num_elements = 7; c_732484.elements = (object *)alloca(sizeof(object) * 7); c_732484.elements[0] = ((closureN)self_73997)->elements[0]; c_732484.elements[1] = ((closureN)self_73997)->elements[1]; c_732484.elements[2] = ((closureN)self_73997)->elements[2]; c_732484.elements[3] = ((closureN)self_73997)->elements[3]; c_732484.elements[4] = ((closureN)self_73997)->elements[4]; c_732484.elements[5] = ((closureN)self_73997)->elements[7]; c_732484.elements[6] = ((closureN)self_73997)->elements[8]; return_closcall8(data, __glo_parse_scheme_read, &c_732484, ((closureN)self_73997)->elements[1], ((closureN)self_73997)->elements[5], ((closureN)self_73997)->elements[6], boolean_t, boolean_f, r_73714, ((closureN)self_73997)->elements[4]);; } static void __lambda_224(void *data, int argc, object self_73998, object r_73700) { closureN_type c_732486; c_732486.hdr.mark = gc_color_red; c_732486.hdr.grayed = 0; c_732486.tag = closureN_tag; c_732486.fn = (function_type)__lambda_223; c_732486.num_args = 1; c_732486.num_elements = 6; c_732486.elements = (object *)alloca(sizeof(object) * 6); c_732486.elements[0] = ((closureN)self_73998)->elements[0]; c_732486.elements[1] = ((closureN)self_73998)->elements[1]; c_732486.elements[2] = ((closureN)self_73998)->elements[2]; c_732486.elements[3] = ((closureN)self_73998)->elements[3]; c_732486.elements[4] = ((closureN)self_73998)->elements[4]; c_732486.elements[5] = r_73700; return_closcall3(data, __glo_get_91toks_scheme_read, &c_732486, ((closureN)self_73998)->elements[5], ((closureN)self_73998)->elements[6]);; } static void __lambda_223(void *data, int argc, object self_73999, object r_73701) { closureN_type c_732488; c_732488.hdr.mark = gc_color_red; c_732488.hdr.grayed = 0; c_732488.tag = closureN_tag; c_732488.fn = (function_type)__lambda_222; c_732488.num_args = 2; c_732488.num_elements = 5; c_732488.elements = (object *)alloca(sizeof(object) * 5); c_732488.elements[0] = ((closureN)self_73999)->elements[0]; c_732488.elements[1] = ((closureN)self_73999)->elements[1]; c_732488.elements[2] = ((closureN)self_73999)->elements[2]; c_732488.elements[3] = ((closureN)self_73999)->elements[3]; c_732488.elements[4] = ((closureN)self_73999)->elements[4]; return_closcall2(data,(closure)&c_732488, ((closureN)self_73999)->elements[5], r_73701);; } static void __lambda_222(void *data, int argc, object self_731000, object sub_73209, object toks_85_73208) { closureN_type c_732490; c_732490.hdr.mark = gc_color_red; c_732490.hdr.grayed = 0; c_732490.tag = closureN_tag; c_732490.fn = (function_type)__lambda_221; c_732490.num_args = 1; c_732490.num_elements = 7; c_732490.elements = (object *)alloca(sizeof(object) * 7); c_732490.elements[0] = ((closureN)self_731000)->elements[0]; c_732490.elements[1] = ((closureN)self_731000)->elements[1]; c_732490.elements[2] = ((closureN)self_731000)->elements[2]; c_732490.elements[3] = ((closureN)self_731000)->elements[3]; c_732490.elements[4] = ((closureN)self_731000)->elements[4]; c_732490.elements[5] = sub_73209; c_732490.elements[6] = toks_85_73208; return_closcall1(data,(closure)&c_732490, boolean_f);; } static void __lambda_221(void *data, int argc, object self_731001, object new_91toks_73210) { closureN_type c_732492; c_732492.hdr.mark = gc_color_red; c_732492.hdr.grayed = 0; c_732492.tag = closureN_tag; c_732492.fn = (function_type)__lambda_220; c_732492.num_args = 1; c_732492.num_elements = 7; c_732492.elements = (object *)alloca(sizeof(object) * 7); c_732492.elements[0] = ((closureN)self_731001)->elements[0]; c_732492.elements[1] = ((closureN)self_731001)->elements[1]; c_732492.elements[2] = ((closureN)self_731001)->elements[2]; c_732492.elements[3] = ((closureN)self_731001)->elements[3]; c_732492.elements[4] = ((closureN)self_731001)->elements[4]; c_732492.elements[5] = ((closureN)self_731001)->elements[5]; c_732492.elements[6] = ((closureN)self_731001)->elements[6]; make_cell(c_732550,new_91toks_73210); return_closcall1(data,(closure)&c_732492, &c_732550);; } static void __lambda_220(void *data, int argc, object self_731002, object new_91toks_73210) { closureN_type c_732494; c_732494.hdr.mark = gc_color_red; c_732494.hdr.grayed = 0; c_732494.tag = closureN_tag; c_732494.fn = (function_type)__lambda_215; c_732494.num_args = 0; c_732494.num_elements = 2; c_732494.elements = (object *)alloca(sizeof(object) * 2); c_732494.elements[0] = ((closureN)self_731002)->elements[4]; c_732494.elements[1] = ((closureN)self_731002)->elements[5]; closureN_type c_732520; c_732520.hdr.mark = gc_color_red; c_732520.hdr.grayed = 0; c_732520.tag = closureN_tag; c_732520.fn = (function_type)__lambda_219; c_732520.num_args = 1; c_732520.num_elements = 7; c_732520.elements = (object *)alloca(sizeof(object) * 7); c_732520.elements[0] = ((closureN)self_731002)->elements[0]; c_732520.elements[1] = ((closureN)self_731002)->elements[1]; c_732520.elements[2] = ((closureN)self_731002)->elements[2]; c_732520.elements[3] = new_91toks_73210; c_732520.elements[4] = ((closureN)self_731002)->elements[3]; c_732520.elements[5] = ((closureN)self_731002)->elements[4]; c_732520.elements[6] = ((closureN)self_731002)->elements[6]; return_closcall1(data,(closure)&c_732494, &c_732520);; } static void __lambda_219(void *data, int argc, object self_731003, object r_73705) { closureN_type c_732522; c_732522.hdr.mark = gc_color_red; c_732522.hdr.grayed = 0; c_732522.tag = closureN_tag; c_732522.fn = (function_type)__lambda_218; c_732522.num_args = 1; c_732522.num_elements = 6; c_732522.elements = (object *)alloca(sizeof(object) * 6); c_732522.elements[0] = ((closureN)self_731003)->elements[0]; c_732522.elements[1] = ((closureN)self_731003)->elements[1]; c_732522.elements[2] = ((closureN)self_731003)->elements[2]; c_732522.elements[3] = ((closureN)self_731003)->elements[3]; c_732522.elements[4] = ((closureN)self_731003)->elements[4]; c_732522.elements[5] = ((closureN)self_731003)->elements[5]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_732522, r_73705, ((closureN)self_731003)->elements[6]);; } static void __lambda_218(void *data, int argc, object self_731004, object r_73704) { closureN_type c_732524; c_732524.hdr.mark = gc_color_red; c_732524.hdr.grayed = 0; c_732524.tag = closureN_tag; c_732524.fn = (function_type)__lambda_217; c_732524.num_args = 1; c_732524.num_elements = 6; c_732524.elements = (object *)alloca(sizeof(object) * 6); c_732524.elements[0] = ((closureN)self_731004)->elements[0]; c_732524.elements[1] = ((closureN)self_731004)->elements[1]; c_732524.elements[2] = ((closureN)self_731004)->elements[2]; c_732524.elements[3] = ((closureN)self_731004)->elements[3]; c_732524.elements[4] = ((closureN)self_731004)->elements[4]; c_732524.elements[5] = ((closureN)self_731004)->elements[5]; return_closcall1(data,(closure)&c_732524, Cyc_set_car(data, ((closureN)self_731004)->elements[3], r_73704));; } static void __lambda_217(void *data, int argc, object self_731005, object r_73702) { if( (boolean_f != ((closureN)self_731005)->elements[0]) ){ closureN_type c_732527; c_732527.hdr.mark = gc_color_red; c_732527.hdr.grayed = 0; c_732527.tag = closureN_tag; c_732527.fn = (function_type)__lambda_216; c_732527.num_args = 1; c_732527.num_elements = 6; c_732527.elements = (object *)alloca(sizeof(object) * 6); c_732527.elements[0] = ((closureN)self_731005)->elements[0]; c_732527.elements[1] = ((closureN)self_731005)->elements[1]; c_732527.elements[2] = ((closureN)self_731005)->elements[2]; c_732527.elements[3] = ((closureN)self_731005)->elements[3]; c_732527.elements[4] = ((closureN)self_731005)->elements[4]; c_732527.elements[5] = ((closureN)self_731005)->elements[5]; return_closcall1(data,(closure)&c_732527, NULL); } else { return_closcall1(data, ((closureN)self_731005)->elements[2], car(cell_get(((closureN)self_731005)->elements[3])));} ; } static void __lambda_216(void *data, int argc, object self_731006, object r_73703) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731006)->elements[2], ((closureN)self_731006)->elements[1], r_73703, cell_get(((closureN)self_731006)->elements[3]), ((closureN)self_731006)->elements[0], boolean_f, ((closureN)self_731006)->elements[4], ((closureN)self_731006)->elements[5]);; } static void __lambda_215(void *data, int argc, object self_731007, object k_73706) { closureN_type c_732496; c_732496.hdr.mark = gc_color_red; c_732496.hdr.grayed = 0; c_732496.tag = closureN_tag; c_732496.fn = (function_type)__lambda_211; c_732496.num_args = 0; c_732496.num_elements = 1; c_732496.elements = (object *)alloca(sizeof(object) * 1); c_732496.elements[0] = ((closureN)self_731007)->elements[1]; closureN_type c_732503; c_732503.hdr.mark = gc_color_red; c_732503.hdr.grayed = 0; c_732503.tag = closureN_tag; c_732503.fn = (function_type)__lambda_214; c_732503.num_args = 1; c_732503.num_elements = 3; c_732503.elements = (object *)alloca(sizeof(object) * 3); c_732503.elements[0] = k_73706; c_732503.elements[1] = ((closureN)self_731007)->elements[0]; c_732503.elements[2] = ((closureN)self_731007)->elements[1]; return_closcall1(data,(closure)&c_732496, &c_732503);; } static void __lambda_214(void *data, int argc, object self_731008, object r_73707) { if( (boolean_f != r_73707) ){ closureN_type c_732505; c_732505.hdr.mark = gc_color_red; c_732505.hdr.grayed = 0; c_732505.tag = closureN_tag; c_732505.fn = (function_type)__lambda_213; c_732505.num_args = 1; c_732505.num_elements = 2; c_732505.elements = (object *)alloca(sizeof(object) * 2); c_732505.elements[0] = ((closureN)self_731008)->elements[0]; c_732505.elements[1] = ((closureN)self_731008)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732505, ((closureN)self_731008)->elements[1]); } else { object c_732518 = Cyc_list2vector(data, ((closureN)self_731008)->elements[0],((closureN)self_731008)->elements[2]); return_closcall1(data, ((closureN)self_731008)->elements[0], c_732518);} ; } static void __lambda_213(void *data, int argc, object self_731009, object r_73708) { closureN_type c_732507; c_732507.hdr.mark = gc_color_red; c_732507.hdr.grayed = 0; c_732507.tag = closureN_tag; c_732507.fn = (function_type)__lambda_212; c_732507.num_args = 1; c_732507.num_elements = 2; c_732507.elements = (object *)alloca(sizeof(object) * 2); c_732507.elements[0] = ((closureN)self_731009)->elements[0]; c_732507.elements[1] = r_73708; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732507, ((closureN)self_731009)->elements[1]);; } static void __lambda_212(void *data, int argc, object self_731010, object r_73709) { make_string(c_732510, "Invalid vector syntax"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731010)->elements[0], &c_732510, ((closureN)self_731010)->elements[1], r_73709);; } static void __lambda_211(void *data, int argc, object self_731011, object k_73710) { if( (boolean_f != Cyc_is_pair(((closureN)self_731011)->elements[0])) ){ return_closcall2(data, __glo_dotted_127_scheme_read, k_73710, ((closureN)self_731011)->elements[0]); } else { return_closcall1(data, k_73710, boolean_f);} ; } static void __lambda_210(void *data, int argc, object self_731012, object r_73698) { closureN_type c_732330; c_732330.hdr.mark = gc_color_red; c_732330.hdr.grayed = 0; c_732330.tag = closureN_tag; c_732330.fn = (function_type)__lambda_209; c_732330.num_args = 1; c_732330.num_elements = 8; c_732330.elements = (object *)alloca(sizeof(object) * 8); c_732330.elements[0] = ((closureN)self_731012)->elements[0]; c_732330.elements[1] = ((closureN)self_731012)->elements[1]; c_732330.elements[2] = ((closureN)self_731012)->elements[2]; c_732330.elements[3] = ((closureN)self_731012)->elements[3]; c_732330.elements[4] = ((closureN)self_731012)->elements[4]; c_732330.elements[5] = ((closureN)self_731012)->elements[5]; c_732330.elements[6] = ((closureN)self_731012)->elements[6]; c_732330.elements[7] = ((closureN)self_731012)->elements[7]; return_closcall1(data,(closure)&c_732330, Cyc_set_car(data, ((closureN)self_731012)->elements[3], r_73698));; } static void __lambda_209(void *data, int argc, object self_731013, object r_73670) { closureN_type c_732332; c_732332.hdr.mark = gc_color_red; c_732332.hdr.grayed = 0; c_732332.tag = closureN_tag; c_732332.fn = (function_type)__lambda_184; c_732332.num_args = 0; c_732332.num_elements = 2; c_732332.elements = (object *)alloca(sizeof(object) * 2); c_732332.elements[0] = ((closureN)self_731013)->elements[3]; c_732332.elements[1] = ((closureN)self_731013)->elements[5]; closureN_type c_732349; c_732349.hdr.mark = gc_color_red; c_732349.hdr.grayed = 0; c_732349.tag = closureN_tag; c_732349.fn = (function_type)__lambda_208; c_732349.num_args = 1; c_732349.num_elements = 8; c_732349.elements = (object *)alloca(sizeof(object) * 8); c_732349.elements[0] = ((closureN)self_731013)->elements[0]; c_732349.elements[1] = ((closureN)self_731013)->elements[1]; c_732349.elements[2] = ((closureN)self_731013)->elements[2]; c_732349.elements[3] = ((closureN)self_731013)->elements[3]; c_732349.elements[4] = ((closureN)self_731013)->elements[4]; c_732349.elements[5] = ((closureN)self_731013)->elements[5]; c_732349.elements[6] = ((closureN)self_731013)->elements[6]; c_732349.elements[7] = ((closureN)self_731013)->elements[7]; return_closcall1(data,(closure)&c_732332, &c_732349);; } static void __lambda_208(void *data, int argc, object self_731014, object r_73671) { closureN_type c_732351; c_732351.hdr.mark = gc_color_red; c_732351.hdr.grayed = 0; c_732351.tag = closureN_tag; c_732351.fn = (function_type)__lambda_207; c_732351.num_args = 1; c_732351.num_elements = 8; c_732351.elements = (object *)alloca(sizeof(object) * 8); c_732351.elements[0] = ((closureN)self_731014)->elements[0]; c_732351.elements[1] = ((closureN)self_731014)->elements[1]; c_732351.elements[2] = ((closureN)self_731014)->elements[2]; c_732351.elements[3] = ((closureN)self_731014)->elements[3]; c_732351.elements[4] = ((closureN)self_731014)->elements[4]; c_732351.elements[5] = ((closureN)self_731014)->elements[5]; c_732351.elements[6] = ((closureN)self_731014)->elements[6]; c_732351.elements[7] = ((closureN)self_731014)->elements[7]; object c_732463 = Cyc_io_read_char(data,(closure)&c_732351,((closureN)self_731014)->elements[1]); return_closcall1(data,(closure)&c_732351, c_732463);; } static void __lambda_207(void *data, int argc, object self_731015, object r_73693) { closureN_type c_732353; c_732353.hdr.mark = gc_color_red; c_732353.hdr.grayed = 0; c_732353.tag = closureN_tag; c_732353.fn = (function_type)__lambda_206; c_732353.num_args = 1; c_732353.num_elements = 8; c_732353.elements = (object *)alloca(sizeof(object) * 8); c_732353.elements[0] = ((closureN)self_731015)->elements[0]; c_732353.elements[1] = ((closureN)self_731015)->elements[1]; c_732353.elements[2] = ((closureN)self_731015)->elements[2]; c_732353.elements[3] = ((closureN)self_731015)->elements[3]; c_732353.elements[4] = ((closureN)self_731015)->elements[4]; c_732353.elements[5] = ((closureN)self_731015)->elements[5]; c_732353.elements[6] = ((closureN)self_731015)->elements[6]; c_732353.elements[7] = ((closureN)self_731015)->elements[7]; return_closcall1(data,(closure)&c_732353, Cyc_set_car(data, ((closureN)self_731015)->elements[3], r_73693));; } static void __lambda_206(void *data, int argc, object self_731016, object r_73672) { closureN_type c_732355; c_732355.hdr.mark = gc_color_red; c_732355.hdr.grayed = 0; c_732355.tag = closureN_tag; c_732355.fn = (function_type)__lambda_187; c_732355.num_args = 0; c_732355.num_elements = 2; c_732355.elements = (object *)alloca(sizeof(object) * 2); c_732355.elements[0] = ((closureN)self_731016)->elements[3]; c_732355.elements[1] = ((closureN)self_731016)->elements[5]; closureN_type c_732372; c_732372.hdr.mark = gc_color_red; c_732372.hdr.grayed = 0; c_732372.tag = closureN_tag; c_732372.fn = (function_type)__lambda_205; c_732372.num_args = 1; c_732372.num_elements = 7; c_732372.elements = (object *)alloca(sizeof(object) * 7); c_732372.elements[0] = ((closureN)self_731016)->elements[0]; c_732372.elements[1] = ((closureN)self_731016)->elements[1]; c_732372.elements[2] = ((closureN)self_731016)->elements[2]; c_732372.elements[3] = ((closureN)self_731016)->elements[4]; c_732372.elements[4] = ((closureN)self_731016)->elements[5]; c_732372.elements[5] = ((closureN)self_731016)->elements[6]; c_732372.elements[6] = ((closureN)self_731016)->elements[7]; return_closcall1(data,(closure)&c_732355, &c_732372);; } static void __lambda_205(void *data, int argc, object self_731017, object r_73673) { closureN_type c_732374; c_732374.hdr.mark = gc_color_red; c_732374.hdr.grayed = 0; c_732374.tag = closureN_tag; c_732374.fn = (function_type)__lambda_204; c_732374.num_args = 1; c_732374.num_elements = 7; c_732374.elements = (object *)alloca(sizeof(object) * 7); c_732374.elements[0] = ((closureN)self_731017)->elements[0]; c_732374.elements[1] = ((closureN)self_731017)->elements[1]; c_732374.elements[2] = ((closureN)self_731017)->elements[2]; c_732374.elements[3] = ((closureN)self_731017)->elements[3]; c_732374.elements[4] = ((closureN)self_731017)->elements[4]; c_732374.elements[5] = ((closureN)self_731017)->elements[5]; c_732374.elements[6] = ((closureN)self_731017)->elements[6]; return_closcall1(data,(closure)&c_732374, NULL);; } static void __lambda_204(void *data, int argc, object self_731018, object r_73686) { closureN_type c_732376; c_732376.hdr.mark = gc_color_red; c_732376.hdr.grayed = 0; c_732376.tag = closureN_tag; c_732376.fn = (function_type)__lambda_203; c_732376.num_args = 1; c_732376.num_elements = 8; c_732376.elements = (object *)alloca(sizeof(object) * 8); c_732376.elements[0] = ((closureN)self_731018)->elements[0]; c_732376.elements[1] = ((closureN)self_731018)->elements[1]; c_732376.elements[2] = ((closureN)self_731018)->elements[2]; c_732376.elements[3] = ((closureN)self_731018)->elements[3]; c_732376.elements[4] = ((closureN)self_731018)->elements[4]; c_732376.elements[5] = r_73686; c_732376.elements[6] = ((closureN)self_731018)->elements[5]; c_732376.elements[7] = ((closureN)self_731018)->elements[6]; return_closcall1(data,(closure)&c_732376, NULL);; } static void __lambda_203(void *data, int argc, object self_731019, object r_73687) { closureN_type c_732378; c_732378.hdr.mark = gc_color_red; c_732378.hdr.grayed = 0; c_732378.tag = closureN_tag; c_732378.fn = (function_type)__lambda_202; c_732378.num_args = 1; c_732378.num_elements = 9; c_732378.elements = (object *)alloca(sizeof(object) * 9); c_732378.elements[0] = ((closureN)self_731019)->elements[0]; c_732378.elements[1] = ((closureN)self_731019)->elements[1]; c_732378.elements[2] = ((closureN)self_731019)->elements[2]; c_732378.elements[3] = ((closureN)self_731019)->elements[3]; c_732378.elements[4] = ((closureN)self_731019)->elements[4]; c_732378.elements[5] = ((closureN)self_731019)->elements[5]; c_732378.elements[6] = r_73687; c_732378.elements[7] = ((closureN)self_731019)->elements[6]; c_732378.elements[8] = ((closureN)self_731019)->elements[7]; object c_732456 = Cyc_sum(data,(closure)&c_732378,2,((closureN)self_731019)->elements[3], obj_int2obj(1)); return_closcall1(data,(closure)&c_732378, c_732456);; } static void __lambda_202(void *data, int argc, object self_731020, object r_73688) { closureN_type c_732380; c_732380.hdr.mark = gc_color_red; c_732380.hdr.grayed = 0; c_732380.tag = closureN_tag; c_732380.fn = (function_type)__lambda_201; c_732380.num_args = 1; c_732380.num_elements = 7; c_732380.elements = (object *)alloca(sizeof(object) * 7); c_732380.elements[0] = ((closureN)self_731020)->elements[0]; c_732380.elements[1] = ((closureN)self_731020)->elements[1]; c_732380.elements[2] = ((closureN)self_731020)->elements[2]; c_732380.elements[3] = ((closureN)self_731020)->elements[3]; c_732380.elements[4] = ((closureN)self_731020)->elements[4]; c_732380.elements[5] = ((closureN)self_731020)->elements[7]; c_732380.elements[6] = ((closureN)self_731020)->elements[8]; return_closcall8(data, __glo_parse_scheme_read, &c_732380, ((closureN)self_731020)->elements[1], ((closureN)self_731020)->elements[5], ((closureN)self_731020)->elements[6], boolean_t, boolean_f, r_73688, ((closureN)self_731020)->elements[4]);; } static void __lambda_201(void *data, int argc, object self_731021, object r_73674) { closureN_type c_732382; c_732382.hdr.mark = gc_color_red; c_732382.hdr.grayed = 0; c_732382.tag = closureN_tag; c_732382.fn = (function_type)__lambda_200; c_732382.num_args = 1; c_732382.num_elements = 6; c_732382.elements = (object *)alloca(sizeof(object) * 6); c_732382.elements[0] = ((closureN)self_731021)->elements[0]; c_732382.elements[1] = ((closureN)self_731021)->elements[1]; c_732382.elements[2] = ((closureN)self_731021)->elements[2]; c_732382.elements[3] = ((closureN)self_731021)->elements[3]; c_732382.elements[4] = ((closureN)self_731021)->elements[4]; c_732382.elements[5] = r_73674; return_closcall3(data, __glo_get_91toks_scheme_read, &c_732382, ((closureN)self_731021)->elements[5], ((closureN)self_731021)->elements[6]);; } static void __lambda_200(void *data, int argc, object self_731022, object r_73675) { closureN_type c_732384; c_732384.hdr.mark = gc_color_red; c_732384.hdr.grayed = 0; c_732384.tag = closureN_tag; c_732384.fn = (function_type)__lambda_199; c_732384.num_args = 2; c_732384.num_elements = 5; c_732384.elements = (object *)alloca(sizeof(object) * 5); c_732384.elements[0] = ((closureN)self_731022)->elements[0]; c_732384.elements[1] = ((closureN)self_731022)->elements[1]; c_732384.elements[2] = ((closureN)self_731022)->elements[2]; c_732384.elements[3] = ((closureN)self_731022)->elements[3]; c_732384.elements[4] = ((closureN)self_731022)->elements[4]; return_closcall2(data,(closure)&c_732384, ((closureN)self_731022)->elements[5], r_73675);; } static void __lambda_199(void *data, int argc, object self_731023, object sub_73212, object toks_85_73211) { closureN_type c_732386; c_732386.hdr.mark = gc_color_red; c_732386.hdr.grayed = 0; c_732386.tag = closureN_tag; c_732386.fn = (function_type)__lambda_198; c_732386.num_args = 1; c_732386.num_elements = 7; c_732386.elements = (object *)alloca(sizeof(object) * 7); c_732386.elements[0] = ((closureN)self_731023)->elements[0]; c_732386.elements[1] = ((closureN)self_731023)->elements[1]; c_732386.elements[2] = ((closureN)self_731023)->elements[2]; c_732386.elements[3] = ((closureN)self_731023)->elements[3]; c_732386.elements[4] = ((closureN)self_731023)->elements[4]; c_732386.elements[5] = sub_73212; c_732386.elements[6] = toks_85_73211; return_closcall1(data,(closure)&c_732386, boolean_f);; } static void __lambda_198(void *data, int argc, object self_731024, object new_91toks_73213) { closureN_type c_732388; c_732388.hdr.mark = gc_color_red; c_732388.hdr.grayed = 0; c_732388.tag = closureN_tag; c_732388.fn = (function_type)__lambda_197; c_732388.num_args = 1; c_732388.num_elements = 7; c_732388.elements = (object *)alloca(sizeof(object) * 7); c_732388.elements[0] = ((closureN)self_731024)->elements[0]; c_732388.elements[1] = ((closureN)self_731024)->elements[1]; c_732388.elements[2] = ((closureN)self_731024)->elements[2]; c_732388.elements[3] = ((closureN)self_731024)->elements[3]; c_732388.elements[4] = ((closureN)self_731024)->elements[4]; c_732388.elements[5] = ((closureN)self_731024)->elements[5]; c_732388.elements[6] = ((closureN)self_731024)->elements[6]; make_cell(c_732446,new_91toks_73213); return_closcall1(data,(closure)&c_732388, &c_732446);; } static void __lambda_197(void *data, int argc, object self_731025, object new_91toks_73213) { closureN_type c_732390; c_732390.hdr.mark = gc_color_red; c_732390.hdr.grayed = 0; c_732390.tag = closureN_tag; c_732390.fn = (function_type)__lambda_192; c_732390.num_args = 0; c_732390.num_elements = 2; c_732390.elements = (object *)alloca(sizeof(object) * 2); c_732390.elements[0] = ((closureN)self_731025)->elements[4]; c_732390.elements[1] = ((closureN)self_731025)->elements[5]; closureN_type c_732416; c_732416.hdr.mark = gc_color_red; c_732416.hdr.grayed = 0; c_732416.tag = closureN_tag; c_732416.fn = (function_type)__lambda_196; c_732416.num_args = 1; c_732416.num_elements = 7; c_732416.elements = (object *)alloca(sizeof(object) * 7); c_732416.elements[0] = ((closureN)self_731025)->elements[0]; c_732416.elements[1] = ((closureN)self_731025)->elements[1]; c_732416.elements[2] = ((closureN)self_731025)->elements[2]; c_732416.elements[3] = new_91toks_73213; c_732416.elements[4] = ((closureN)self_731025)->elements[3]; c_732416.elements[5] = ((closureN)self_731025)->elements[4]; c_732416.elements[6] = ((closureN)self_731025)->elements[6]; return_closcall1(data,(closure)&c_732390, &c_732416);; } static void __lambda_196(void *data, int argc, object self_731026, object r_73679) { closureN_type c_732418; c_732418.hdr.mark = gc_color_red; c_732418.hdr.grayed = 0; c_732418.tag = closureN_tag; c_732418.fn = (function_type)__lambda_195; c_732418.num_args = 1; c_732418.num_elements = 6; c_732418.elements = (object *)alloca(sizeof(object) * 6); c_732418.elements[0] = ((closureN)self_731026)->elements[0]; c_732418.elements[1] = ((closureN)self_731026)->elements[1]; c_732418.elements[2] = ((closureN)self_731026)->elements[2]; c_732418.elements[3] = ((closureN)self_731026)->elements[3]; c_732418.elements[4] = ((closureN)self_731026)->elements[4]; c_732418.elements[5] = ((closureN)self_731026)->elements[5]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_732418, r_73679, ((closureN)self_731026)->elements[6]);; } static void __lambda_195(void *data, int argc, object self_731027, object r_73678) { closureN_type c_732420; c_732420.hdr.mark = gc_color_red; c_732420.hdr.grayed = 0; c_732420.tag = closureN_tag; c_732420.fn = (function_type)__lambda_194; c_732420.num_args = 1; c_732420.num_elements = 6; c_732420.elements = (object *)alloca(sizeof(object) * 6); c_732420.elements[0] = ((closureN)self_731027)->elements[0]; c_732420.elements[1] = ((closureN)self_731027)->elements[1]; c_732420.elements[2] = ((closureN)self_731027)->elements[2]; c_732420.elements[3] = ((closureN)self_731027)->elements[3]; c_732420.elements[4] = ((closureN)self_731027)->elements[4]; c_732420.elements[5] = ((closureN)self_731027)->elements[5]; return_closcall1(data,(closure)&c_732420, Cyc_set_car(data, ((closureN)self_731027)->elements[3], r_73678));; } static void __lambda_194(void *data, int argc, object self_731028, object r_73676) { if( (boolean_f != ((closureN)self_731028)->elements[0]) ){ closureN_type c_732423; c_732423.hdr.mark = gc_color_red; c_732423.hdr.grayed = 0; c_732423.tag = closureN_tag; c_732423.fn = (function_type)__lambda_193; c_732423.num_args = 1; c_732423.num_elements = 6; c_732423.elements = (object *)alloca(sizeof(object) * 6); c_732423.elements[0] = ((closureN)self_731028)->elements[0]; c_732423.elements[1] = ((closureN)self_731028)->elements[1]; c_732423.elements[2] = ((closureN)self_731028)->elements[2]; c_732423.elements[3] = ((closureN)self_731028)->elements[3]; c_732423.elements[4] = ((closureN)self_731028)->elements[4]; c_732423.elements[5] = ((closureN)self_731028)->elements[5]; return_closcall1(data,(closure)&c_732423, NULL); } else { return_closcall1(data, ((closureN)self_731028)->elements[2], car(cell_get(((closureN)self_731028)->elements[3])));} ; } static void __lambda_193(void *data, int argc, object self_731029, object r_73677) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731029)->elements[2], ((closureN)self_731029)->elements[1], r_73677, cell_get(((closureN)self_731029)->elements[3]), ((closureN)self_731029)->elements[0], boolean_f, ((closureN)self_731029)->elements[4], ((closureN)self_731029)->elements[5]);; } static void __lambda_192(void *data, int argc, object self_731030, object k_73680) { closureN_type c_732392; c_732392.hdr.mark = gc_color_red; c_732392.hdr.grayed = 0; c_732392.tag = closureN_tag; c_732392.fn = (function_type)__lambda_188; c_732392.num_args = 0; c_732392.num_elements = 1; c_732392.elements = (object *)alloca(sizeof(object) * 1); c_732392.elements[0] = ((closureN)self_731030)->elements[1]; closureN_type c_732399; c_732399.hdr.mark = gc_color_red; c_732399.hdr.grayed = 0; c_732399.tag = closureN_tag; c_732399.fn = (function_type)__lambda_191; c_732399.num_args = 1; c_732399.num_elements = 3; c_732399.elements = (object *)alloca(sizeof(object) * 3); c_732399.elements[0] = k_73680; c_732399.elements[1] = ((closureN)self_731030)->elements[0]; c_732399.elements[2] = ((closureN)self_731030)->elements[1]; return_closcall1(data,(closure)&c_732392, &c_732399);; } static void __lambda_191(void *data, int argc, object self_731031, object r_73681) { if( (boolean_f != r_73681) ){ closureN_type c_732401; c_732401.hdr.mark = gc_color_red; c_732401.hdr.grayed = 0; c_732401.tag = closureN_tag; c_732401.fn = (function_type)__lambda_190; c_732401.num_args = 1; c_732401.num_elements = 2; c_732401.elements = (object *)alloca(sizeof(object) * 2); c_732401.elements[0] = ((closureN)self_731031)->elements[0]; c_732401.elements[1] = ((closureN)self_731031)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732401, ((closureN)self_731031)->elements[1]); } else { object c_732414 = apply(data, ((closureN)self_731031)->elements[0],primitive_bytevector, ((closureN)self_731031)->elements[2]); return_closcall1(data, ((closureN)self_731031)->elements[0], c_732414);} ; } static void __lambda_190(void *data, int argc, object self_731032, object r_73682) { closureN_type c_732403; c_732403.hdr.mark = gc_color_red; c_732403.hdr.grayed = 0; c_732403.tag = closureN_tag; c_732403.fn = (function_type)__lambda_189; c_732403.num_args = 1; c_732403.num_elements = 2; c_732403.elements = (object *)alloca(sizeof(object) * 2); c_732403.elements[0] = ((closureN)self_731032)->elements[0]; c_732403.elements[1] = r_73682; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732403, ((closureN)self_731032)->elements[1]);; } static void __lambda_189(void *data, int argc, object self_731033, object r_73683) { make_string(c_732406, "Invalid vector syntax"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731033)->elements[0], &c_732406, ((closureN)self_731033)->elements[1], r_73683);; } static void __lambda_188(void *data, int argc, object self_731034, object k_73684) { if( (boolean_f != Cyc_is_pair(((closureN)self_731034)->elements[0])) ){ return_closcall2(data, __glo_dotted_127_scheme_read, k_73684, ((closureN)self_731034)->elements[0]); } else { return_closcall1(data, k_73684, boolean_f);} ; } static void __lambda_187(void *data, int argc, object self_731035, object k_73689) { if( (boolean_f != Cyc_eq(obj_char2obj(40), cell_get(((closureN)self_731035)->elements[0]))) ){ return_closcall1(data, k_73689, boolean_f); } else { closureN_type c_732363; c_732363.hdr.mark = gc_color_red; c_732363.hdr.grayed = 0; c_732363.tag = closureN_tag; c_732363.fn = (function_type)__lambda_186; c_732363.num_args = 1; c_732363.num_elements = 2; c_732363.elements = (object *)alloca(sizeof(object) * 2); c_732363.elements[0] = k_73689; c_732363.elements[1] = ((closureN)self_731035)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732363, ((closureN)self_731035)->elements[1]);} ; } static void __lambda_186(void *data, int argc, object self_731036, object r_73691) { closureN_type c_732365; c_732365.hdr.mark = gc_color_red; c_732365.hdr.grayed = 0; c_732365.tag = closureN_tag; c_732365.fn = (function_type)__lambda_185; c_732365.num_args = 1; c_732365.num_elements = 2; c_732365.elements = (object *)alloca(sizeof(object) * 2); c_732365.elements[0] = ((closureN)self_731036)->elements[0]; c_732365.elements[1] = r_73691; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732365, ((closureN)self_731036)->elements[1]);; } static void __lambda_185(void *data, int argc, object self_731037, object r_73692) { make_string(c_732368, "Unhandled input sequence"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731037)->elements[0], &c_732368, ((closureN)self_731037)->elements[1], r_73692);; } static void __lambda_184(void *data, int argc, object self_731038, object k_73694) { if( (boolean_f != Cyc_eq(obj_char2obj(56), cell_get(((closureN)self_731038)->elements[0]))) ){ return_closcall1(data, k_73694, boolean_f); } else { closureN_type c_732340; c_732340.hdr.mark = gc_color_red; c_732340.hdr.grayed = 0; c_732340.tag = closureN_tag; c_732340.fn = (function_type)__lambda_183; c_732340.num_args = 1; c_732340.num_elements = 2; c_732340.elements = (object *)alloca(sizeof(object) * 2); c_732340.elements[0] = k_73694; c_732340.elements[1] = ((closureN)self_731038)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732340, ((closureN)self_731038)->elements[1]);} ; } static void __lambda_183(void *data, int argc, object self_731039, object r_73696) { closureN_type c_732342; c_732342.hdr.mark = gc_color_red; c_732342.hdr.grayed = 0; c_732342.tag = closureN_tag; c_732342.fn = (function_type)__lambda_182; c_732342.num_args = 1; c_732342.num_elements = 2; c_732342.elements = (object *)alloca(sizeof(object) * 2); c_732342.elements[0] = ((closureN)self_731039)->elements[0]; c_732342.elements[1] = r_73696; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732342, ((closureN)self_731039)->elements[1]);; } static void __lambda_182(void *data, int argc, object self_731040, object r_73697) { make_string(c_732345, "Unhandled input sequence"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731040)->elements[0], &c_732345, ((closureN)self_731040)->elements[1], r_73697);; } static void __lambda_181(void *data, int argc, object self_731041, object k_73667, object num_73214) { closureN_type c_732313; c_732313.hdr.mark = gc_color_red; c_732313.hdr.grayed = 0; c_732313.tag = closureN_tag; c_732313.fn = (function_type)__lambda_180; c_732313.num_args = 1; c_732313.num_elements = 1; c_732313.elements = (object *)alloca(sizeof(object) * 1); c_732313.elements[0] = k_73667; object c_732321 = Cyc_list2string(data,(closure)&c_732313,num_73214); return_closcall1(data,(closure)&c_732313, c_732321);; } static void __lambda_180(void *data, int argc, object self_731042, object r_73668) { object c_732318 = Cyc_string2number2_(data, ((closureN)self_731042)->elements[0],2,r_73668, obj_int2obj(16)); return_closcall1(data, ((closureN)self_731042)->elements[0], c_732318);; } static void __lambda_179(void *data, int argc, object self_731043, object r_73666) { return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731043)->elements[2], ((closureN)self_731043)->elements[1], ((closureN)self_731043)->elements[5], ((closureN)self_731043)->elements[0], ((closureN)self_731043)->elements[3], ((closureN)self_731043)->elements[4], obj_int2obj(16), r_73666);; } static void __lambda_178(void *data, int argc, object self_731044, object k_73663, object num_73215) { closureN_type c_732288; c_732288.hdr.mark = gc_color_red; c_732288.hdr.grayed = 0; c_732288.tag = closureN_tag; c_732288.fn = (function_type)__lambda_177; c_732288.num_args = 1; c_732288.num_elements = 1; c_732288.elements = (object *)alloca(sizeof(object) * 1); c_732288.elements[0] = k_73663; object c_732296 = Cyc_list2string(data,(closure)&c_732288,num_73215); return_closcall1(data,(closure)&c_732288, c_732296);; } static void __lambda_177(void *data, int argc, object self_731045, object r_73664) { object c_732293 = Cyc_string2number2_(data, ((closureN)self_731045)->elements[0],2,r_73664, obj_int2obj(8)); return_closcall1(data, ((closureN)self_731045)->elements[0], c_732293);; } static void __lambda_176(void *data, int argc, object self_731046, object r_73662) { return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731046)->elements[2], ((closureN)self_731046)->elements[1], ((closureN)self_731046)->elements[5], ((closureN)self_731046)->elements[0], ((closureN)self_731046)->elements[3], ((closureN)self_731046)->elements[4], obj_int2obj(8), r_73662);; } static void __lambda_175(void *data, int argc, object self_731047, object k_73659, object num_73216) { closureN_type c_732263; c_732263.hdr.mark = gc_color_red; c_732263.hdr.grayed = 0; c_732263.tag = closureN_tag; c_732263.fn = (function_type)__lambda_174; c_732263.num_args = 1; c_732263.num_elements = 1; c_732263.elements = (object *)alloca(sizeof(object) * 1); c_732263.elements[0] = k_73659; object c_732271 = Cyc_list2string(data,(closure)&c_732263,num_73216); return_closcall1(data,(closure)&c_732263, c_732271);; } static void __lambda_174(void *data, int argc, object self_731048, object r_73660) { object c_732268 = Cyc_string2number2_(data, ((closureN)self_731048)->elements[0],2,r_73660, obj_int2obj(2)); return_closcall1(data, ((closureN)self_731048)->elements[0], c_732268);; } static void __lambda_173(void *data, int argc, object self_731049, object r_73658) { return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731049)->elements[2], ((closureN)self_731049)->elements[1], ((closureN)self_731049)->elements[5], ((closureN)self_731049)->elements[0], ((closureN)self_731049)->elements[3], ((closureN)self_731049)->elements[4], obj_int2obj(2), r_73658);; } static void __lambda_172(void *data, int argc, object self_731050, object k_73655, object num_73217) { closureN_type c_732244; c_732244.hdr.mark = gc_color_red; c_732244.hdr.grayed = 0; c_732244.tag = closureN_tag; c_732244.fn = (function_type)__lambda_171; c_732244.num_args = 1; c_732244.num_elements = 1; c_732244.elements = (object *)alloca(sizeof(object) * 1); c_732244.elements[0] = k_73655; return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732244, num_73217);; } static void __lambda_171(void *data, int argc, object self_731051, object r_73656) { return_closcall2(data, __glo_inexact_scheme_base, ((closureN)self_731051)->elements[0], r_73656);; } static void __lambda_170(void *data, int argc, object self_731052, object r_73654) { return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731052)->elements[2], ((closureN)self_731052)->elements[1], ((closureN)self_731052)->elements[5], ((closureN)self_731052)->elements[0], ((closureN)self_731052)->elements[3], ((closureN)self_731052)->elements[4], obj_int2obj(10), r_73654);; } static void __lambda_169(void *data, int argc, object self_731053, object k_73651, object num_73218) { closureN_type c_732225; c_732225.hdr.mark = gc_color_red; c_732225.hdr.grayed = 0; c_732225.tag = closureN_tag; c_732225.fn = (function_type)__lambda_168; c_732225.num_args = 1; c_732225.num_elements = 1; c_732225.elements = (object *)alloca(sizeof(object) * 1); c_732225.elements[0] = k_73651; return_closcall2(data, __glo_parse_91atom_scheme_read, &c_732225, num_73218);; } static void __lambda_168(void *data, int argc, object self_731054, object r_73652) { return_closcall2(data, __glo_exact_scheme_base, ((closureN)self_731054)->elements[0], r_73652);; } static void __lambda_167(void *data, int argc, object self_731055, object r_73650) { return_closcall8(data, __glo_parse_91number_scheme_read, ((closureN)self_731055)->elements[2], ((closureN)self_731055)->elements[1], ((closureN)self_731055)->elements[5], ((closureN)self_731055)->elements[0], ((closureN)self_731055)->elements[3], ((closureN)self_731055)->elements[4], obj_int2obj(10), r_73650);; } static void __lambda_166(void *data, int argc, object self_731056, object r_73647) { make_pair(c_732202,boolean_f, ((closureN)self_731056)->elements[5]); return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731056)->elements[2], ((closureN)self_731056)->elements[1], r_73647, &c_732202, ((closureN)self_731056)->elements[0], boolean_f, ((closureN)self_731056)->elements[3], ((closureN)self_731056)->elements[4]);; } static void __lambda_165(void *data, int argc, object self_731057, object r_73644) { make_pair(c_732182,boolean_t, ((closureN)self_731057)->elements[5]); return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731057)->elements[2], ((closureN)self_731057)->elements[1], r_73644, &c_732182, ((closureN)self_731057)->elements[0], boolean_f, ((closureN)self_731057)->elements[3], ((closureN)self_731057)->elements[4]);; } static void __lambda_164(void *data, int argc, object self_731058, object r_73641) { closureN_type c_732159; c_732159.hdr.mark = gc_color_red; c_732159.hdr.grayed = 0; c_732159.tag = closureN_tag; c_732159.fn = (function_type)__lambda_163; c_732159.num_args = 1; c_732159.num_elements = 6; c_732159.elements = (object *)alloca(sizeof(object) * 6); c_732159.elements[0] = ((closureN)self_731058)->elements[0]; c_732159.elements[1] = ((closureN)self_731058)->elements[1]; c_732159.elements[2] = ((closureN)self_731058)->elements[2]; c_732159.elements[3] = ((closureN)self_731058)->elements[3]; c_732159.elements[4] = ((closureN)self_731058)->elements[4]; c_732159.elements[5] = ((closureN)self_731058)->elements[5]; return_closcall1(data,(closure)&c_732159, NULL);; } static void __lambda_163(void *data, int argc, object self_731059, object r_73642) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731059)->elements[2], ((closureN)self_731059)->elements[1], r_73642, ((closureN)self_731059)->elements[5], ((closureN)self_731059)->elements[0], boolean_f, ((closureN)self_731059)->elements[3], ((closureN)self_731059)->elements[4]);; } static void __lambda_162(void *data, int argc, object self_731060, object r_73624) { if( (boolean_f != r_73624) ){ closureN_type c_732074; c_732074.hdr.mark = gc_color_red; c_732074.hdr.grayed = 0; c_732074.tag = closureN_tag; c_732074.fn = (function_type)__lambda_152; c_732074.num_args = 1; c_732074.num_elements = 3; c_732074.elements = (object *)alloca(sizeof(object) * 3); c_732074.elements[0] = ((closureN)self_731060)->elements[3]; c_732074.elements[1] = ((closureN)self_731060)->elements[6]; c_732074.elements[2] = ((closureN)self_731060)->elements[7]; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732074, ((closureN)self_731060)->elements[5], ((closureN)self_731060)->elements[1]); } else { closureN_type c_732088; c_732088.hdr.mark = gc_color_red; c_732088.hdr.grayed = 0; c_732088.tag = closureN_tag; c_732088.fn = (function_type)__lambda_161; c_732088.num_args = 1; c_732088.num_elements = 7; c_732088.elements = (object *)alloca(sizeof(object) * 7); c_732088.elements[0] = ((closureN)self_731060)->elements[0]; c_732088.elements[1] = ((closureN)self_731060)->elements[2]; c_732088.elements[2] = ((closureN)self_731060)->elements[3]; c_732088.elements[3] = ((closureN)self_731060)->elements[4]; c_732088.elements[4] = ((closureN)self_731060)->elements[5]; c_732088.elements[5] = ((closureN)self_731060)->elements[6]; c_732088.elements[6] = ((closureN)self_731060)->elements[7]; return_closcall1(data,(closure)&c_732088, NULL);} ; } static void __lambda_161(void *data, int argc, object self_731061, object r_73633) { closureN_type c_732090; c_732090.hdr.mark = gc_color_red; c_732090.hdr.grayed = 0; c_732090.tag = closureN_tag; c_732090.fn = (function_type)__lambda_160; c_732090.num_args = 1; c_732090.num_elements = 7; c_732090.elements = (object *)alloca(sizeof(object) * 7); c_732090.elements[0] = ((closureN)self_731061)->elements[0]; c_732090.elements[1] = ((closureN)self_731061)->elements[1]; c_732090.elements[2] = ((closureN)self_731061)->elements[2]; c_732090.elements[3] = ((closureN)self_731061)->elements[3]; c_732090.elements[4] = ((closureN)self_731061)->elements[4]; c_732090.elements[5] = ((closureN)self_731061)->elements[5]; c_732090.elements[6] = ((closureN)self_731061)->elements[6]; return_closcall4(data, __glo_read_91str_scheme_read, &c_732090, ((closureN)self_731061)->elements[1], r_73633, ((closureN)self_731061)->elements[4]);; } static void __lambda_160(void *data, int argc, object self_731062, object r_73628) { closureN_type c_732092; c_732092.hdr.mark = gc_color_red; c_732092.hdr.grayed = 0; c_732092.tag = closureN_tag; c_732092.fn = (function_type)__lambda_159; c_732092.num_args = 1; c_732092.num_elements = 6; c_732092.elements = (object *)alloca(sizeof(object) * 6); c_732092.elements[0] = ((closureN)self_731062)->elements[0]; c_732092.elements[1] = ((closureN)self_731062)->elements[1]; c_732092.elements[2] = ((closureN)self_731062)->elements[2]; c_732092.elements[3] = ((closureN)self_731062)->elements[3]; c_732092.elements[4] = ((closureN)self_731062)->elements[4]; c_732092.elements[5] = r_73628; return_closcall3(data, __glo_get_91toks_scheme_read, &c_732092, ((closureN)self_731062)->elements[5], ((closureN)self_731062)->elements[6]);; } static void __lambda_159(void *data, int argc, object self_731063, object r_73629) { closureN_type c_732094; c_732094.hdr.mark = gc_color_red; c_732094.hdr.grayed = 0; c_732094.tag = closureN_tag; c_732094.fn = (function_type)__lambda_158; c_732094.num_args = 2; c_732094.num_elements = 5; c_732094.elements = (object *)alloca(sizeof(object) * 5); c_732094.elements[0] = ((closureN)self_731063)->elements[0]; c_732094.elements[1] = ((closureN)self_731063)->elements[1]; c_732094.elements[2] = ((closureN)self_731063)->elements[2]; c_732094.elements[3] = ((closureN)self_731063)->elements[3]; c_732094.elements[4] = ((closureN)self_731063)->elements[4]; return_closcall2(data,(closure)&c_732094, ((closureN)self_731063)->elements[5], r_73629);; } static void __lambda_158(void *data, int argc, object self_731064, object str_73220, object toks_85_73219) { closureN_type c_732096; c_732096.hdr.mark = gc_color_red; c_732096.hdr.grayed = 0; c_732096.tag = closureN_tag; c_732096.fn = (function_type)__lambda_157; c_732096.num_args = 1; c_732096.num_elements = 7; c_732096.elements = (object *)alloca(sizeof(object) * 7); c_732096.elements[0] = ((closureN)self_731064)->elements[0]; c_732096.elements[1] = ((closureN)self_731064)->elements[1]; c_732096.elements[2] = ((closureN)self_731064)->elements[2]; c_732096.elements[3] = ((closureN)self_731064)->elements[3]; c_732096.elements[4] = ((closureN)self_731064)->elements[4]; c_732096.elements[5] = str_73220; c_732096.elements[6] = toks_85_73219; return_closcall1(data,(closure)&c_732096, boolean_f);; } static void __lambda_157(void *data, int argc, object self_731065, object new_91toks_73221) { closureN_type c_732098; c_732098.hdr.mark = gc_color_red; c_732098.hdr.grayed = 0; c_732098.tag = closureN_tag; c_732098.fn = (function_type)__lambda_156; c_732098.num_args = 1; c_732098.num_elements = 7; c_732098.elements = (object *)alloca(sizeof(object) * 7); c_732098.elements[0] = ((closureN)self_731065)->elements[0]; c_732098.elements[1] = ((closureN)self_731065)->elements[1]; c_732098.elements[2] = ((closureN)self_731065)->elements[2]; c_732098.elements[3] = ((closureN)self_731065)->elements[3]; c_732098.elements[4] = ((closureN)self_731065)->elements[4]; c_732098.elements[5] = ((closureN)self_731065)->elements[5]; c_732098.elements[6] = ((closureN)self_731065)->elements[6]; make_cell(c_732129,new_91toks_73221); return_closcall1(data,(closure)&c_732098, &c_732129);; } static void __lambda_156(void *data, int argc, object self_731066, object new_91toks_73221) { closureN_type c_732100; c_732100.hdr.mark = gc_color_red; c_732100.hdr.grayed = 0; c_732100.tag = closureN_tag; c_732100.fn = (function_type)__lambda_155; c_732100.num_args = 1; c_732100.num_elements = 6; c_732100.elements = (object *)alloca(sizeof(object) * 6); c_732100.elements[0] = ((closureN)self_731066)->elements[0]; c_732100.elements[1] = ((closureN)self_731066)->elements[1]; c_732100.elements[2] = ((closureN)self_731066)->elements[2]; c_732100.elements[3] = new_91toks_73221; c_732100.elements[4] = ((closureN)self_731066)->elements[3]; c_732100.elements[5] = ((closureN)self_731066)->elements[4]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_732100, ((closureN)self_731066)->elements[5], ((closureN)self_731066)->elements[6]);; } static void __lambda_155(void *data, int argc, object self_731067, object r_73632) { closureN_type c_732102; c_732102.hdr.mark = gc_color_red; c_732102.hdr.grayed = 0; c_732102.tag = closureN_tag; c_732102.fn = (function_type)__lambda_154; c_732102.num_args = 1; c_732102.num_elements = 6; c_732102.elements = (object *)alloca(sizeof(object) * 6); c_732102.elements[0] = ((closureN)self_731067)->elements[0]; c_732102.elements[1] = ((closureN)self_731067)->elements[1]; c_732102.elements[2] = ((closureN)self_731067)->elements[2]; c_732102.elements[3] = ((closureN)self_731067)->elements[3]; c_732102.elements[4] = ((closureN)self_731067)->elements[4]; c_732102.elements[5] = ((closureN)self_731067)->elements[5]; return_closcall1(data,(closure)&c_732102, Cyc_set_car(data, ((closureN)self_731067)->elements[3], r_73632));; } static void __lambda_154(void *data, int argc, object self_731068, object r_73630) { if( (boolean_f != ((closureN)self_731068)->elements[0]) ){ closureN_type c_732105; c_732105.hdr.mark = gc_color_red; c_732105.hdr.grayed = 0; c_732105.tag = closureN_tag; c_732105.fn = (function_type)__lambda_153; c_732105.num_args = 1; c_732105.num_elements = 6; c_732105.elements = (object *)alloca(sizeof(object) * 6); c_732105.elements[0] = ((closureN)self_731068)->elements[0]; c_732105.elements[1] = ((closureN)self_731068)->elements[1]; c_732105.elements[2] = ((closureN)self_731068)->elements[2]; c_732105.elements[3] = ((closureN)self_731068)->elements[3]; c_732105.elements[4] = ((closureN)self_731068)->elements[4]; c_732105.elements[5] = ((closureN)self_731068)->elements[5]; return_closcall1(data,(closure)&c_732105, NULL); } else { return_closcall1(data, ((closureN)self_731068)->elements[2], car(cell_get(((closureN)self_731068)->elements[3])));} ; } static void __lambda_153(void *data, int argc, object self_731069, object r_73631) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731069)->elements[2], ((closureN)self_731069)->elements[1], r_73631, cell_get(((closureN)self_731069)->elements[3]), ((closureN)self_731069)->elements[0], boolean_f, ((closureN)self_731069)->elements[4], ((closureN)self_731069)->elements[5]);; } static void __lambda_152(void *data, int argc, object self_731070, object r_73625) { closureN_type c_732076; c_732076.hdr.mark = gc_color_red; c_732076.hdr.grayed = 0; c_732076.tag = closureN_tag; c_732076.fn = (function_type)__lambda_151; c_732076.num_args = 1; c_732076.num_elements = 2; c_732076.elements = (object *)alloca(sizeof(object) * 2); c_732076.elements[0] = ((closureN)self_731070)->elements[0]; c_732076.elements[1] = ((closureN)self_731070)->elements[2]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_732076, ((closureN)self_731070)->elements[1]);; } static void __lambda_151(void *data, int argc, object self_731071, object r_73627) { closureN_type c_732078; c_732078.hdr.mark = gc_color_red; c_732078.hdr.grayed = 0; c_732078.tag = closureN_tag; c_732078.fn = (function_type)__lambda_150; c_732078.num_args = 1; c_732078.num_elements = 1; c_732078.elements = (object *)alloca(sizeof(object) * 1); c_732078.elements[0] = ((closureN)self_731071)->elements[0]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_732078, r_73627, ((closureN)self_731071)->elements[1]);; } static void __lambda_150(void *data, int argc, object self_731072, object r_73626) { return_closcall1(data, ((closureN)self_731072)->elements[0], car(r_73626));; } static void __lambda_149(void *data, int argc, object self_731073, object k_73634) { if( (boolean_f != ((closureN)self_731073)->elements[0]) ){ return_closcall1(data, k_73634, boolean_f); } else { return_closcall2(data, __glo_not_scheme_base, k_73634, Cyc_is_null(((closureN)self_731073)->elements[1]));} ; } static void __lambda_148(void *data, int argc, object self_731074, object r_73613) { if( (boolean_f != r_73613) ){ closureN_type c_732026; c_732026.hdr.mark = gc_color_red; c_732026.hdr.grayed = 0; c_732026.tag = closureN_tag; c_732026.fn = (function_type)__lambda_143; c_732026.num_args = 1; c_732026.num_elements = 3; c_732026.elements = (object *)alloca(sizeof(object) * 3); c_732026.elements[0] = ((closureN)self_731074)->elements[1]; c_732026.elements[1] = ((closureN)self_731074)->elements[4]; c_732026.elements[2] = ((closureN)self_731074)->elements[5]; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_732026, ((closureN)self_731074)->elements[3], ((closureN)self_731074)->elements[0]); } else { closureN_type c_732040; c_732040.hdr.mark = gc_color_red; c_732040.hdr.grayed = 0; c_732040.tag = closureN_tag; c_732040.fn = (function_type)__lambda_147; c_732040.num_args = 1; c_732040.num_elements = 4; c_732040.elements = (object *)alloca(sizeof(object) * 4); c_732040.elements[0] = ((closureN)self_731074)->elements[1]; c_732040.elements[1] = ((closureN)self_731074)->elements[3]; c_732040.elements[2] = ((closureN)self_731074)->elements[4]; c_732040.elements[3] = ((closureN)self_731074)->elements[5]; object c_732059 = Cyc_num_eq(data,(closure)&c_732040,2,((closureN)self_731074)->elements[2], obj_int2obj(0)); return_closcall1(data,(closure)&c_732040, c_732059);} ; } static void __lambda_147(void *data, int argc, object self_731075, object r_73617) { if( (boolean_f != r_73617) ){ closureN_type c_732042; c_732042.hdr.mark = gc_color_red; c_732042.hdr.grayed = 0; c_732042.tag = closureN_tag; c_732042.fn = (function_type)__lambda_145; c_732042.num_args = 1; c_732042.num_elements = 2; c_732042.elements = (object *)alloca(sizeof(object) * 2); c_732042.elements[0] = ((closureN)self_731075)->elements[0]; c_732042.elements[1] = ((closureN)self_731075)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_732042, ((closureN)self_731075)->elements[1]); } else { closureN_type c_732052; c_732052.hdr.mark = gc_color_red; c_732052.hdr.grayed = 0; c_732052.tag = closureN_tag; c_732052.fn = (function_type)__lambda_146; c_732052.num_args = 1; c_732052.num_elements = 1; c_732052.elements = (object *)alloca(sizeof(object) * 1); c_732052.elements[0] = ((closureN)self_731075)->elements[0]; return_closcall3(data, __glo_get_91toks_scheme_read, &c_732052, ((closureN)self_731075)->elements[2], ((closureN)self_731075)->elements[3]);} ; } static void __lambda_146(void *data, int argc, object self_731076, object r_73620) { return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731076)->elements[0], r_73620);; } static void __lambda_145(void *data, int argc, object self_731077, object r_73618) { closureN_type c_732044; c_732044.hdr.mark = gc_color_red; c_732044.hdr.grayed = 0; c_732044.tag = closureN_tag; c_732044.fn = (function_type)__lambda_144; c_732044.num_args = 1; c_732044.num_elements = 2; c_732044.elements = (object *)alloca(sizeof(object) * 2); c_732044.elements[0] = ((closureN)self_731077)->elements[0]; c_732044.elements[1] = r_73618; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_732044, ((closureN)self_731077)->elements[1]);; } static void __lambda_144(void *data, int argc, object self_731078, object r_73619) { make_string(c_732047, "unexpected closing parenthesis"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731078)->elements[0], &c_732047, ((closureN)self_731078)->elements[1], r_73619);; } static void __lambda_143(void *data, int argc, object self_731079, object r_73614) { closureN_type c_732028; c_732028.hdr.mark = gc_color_red; c_732028.hdr.grayed = 0; c_732028.tag = closureN_tag; c_732028.fn = (function_type)__lambda_142; c_732028.num_args = 1; c_732028.num_elements = 2; c_732028.elements = (object *)alloca(sizeof(object) * 2); c_732028.elements[0] = ((closureN)self_731079)->elements[0]; c_732028.elements[1] = ((closureN)self_731079)->elements[2]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_732028, ((closureN)self_731079)->elements[1]);; } static void __lambda_142(void *data, int argc, object self_731080, object r_73616) { closureN_type c_732030; c_732030.hdr.mark = gc_color_red; c_732030.hdr.grayed = 0; c_732030.tag = closureN_tag; c_732030.fn = (function_type)__lambda_141; c_732030.num_args = 1; c_732030.num_elements = 1; c_732030.elements = (object *)alloca(sizeof(object) * 1); c_732030.elements[0] = ((closureN)self_731080)->elements[0]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_732030, r_73616, ((closureN)self_731080)->elements[1]);; } static void __lambda_141(void *data, int argc, object self_731081, object r_73615) { return_closcall1(data, ((closureN)self_731081)->elements[0], car(r_73615));; } static void __lambda_140(void *data, int argc, object self_731082, object k_73621) { if( (boolean_f != ((closureN)self_731082)->elements[0]) ){ return_closcall1(data, k_73621, boolean_f); } else { return_closcall2(data, __glo_not_scheme_base, k_73621, Cyc_is_null(((closureN)self_731082)->elements[1]));} ; } static void __lambda_139(void *data, int argc, object self_731083, object r_73593) { if( (boolean_f != r_73593) ){ closureN_type c_731925; c_731925.hdr.mark = gc_color_red; c_731925.hdr.grayed = 0; c_731925.tag = closureN_tag; c_731925.fn = (function_type)__lambda_123; c_731925.num_args = 1; c_731925.num_elements = 3; c_731925.elements = (object *)alloca(sizeof(object) * 3); c_731925.elements[0] = ((closureN)self_731083)->elements[3]; c_731925.elements[1] = ((closureN)self_731083)->elements[6]; c_731925.elements[2] = ((closureN)self_731083)->elements[7]; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731925, ((closureN)self_731083)->elements[5], ((closureN)self_731083)->elements[1]); } else { closureN_type c_731939; c_731939.hdr.mark = gc_color_red; c_731939.hdr.grayed = 0; c_731939.tag = closureN_tag; c_731939.fn = (function_type)__lambda_138; c_731939.num_args = 1; c_731939.num_elements = 7; c_731939.elements = (object *)alloca(sizeof(object) * 7); c_731939.elements[0] = ((closureN)self_731083)->elements[0]; c_731939.elements[1] = ((closureN)self_731083)->elements[2]; c_731939.elements[2] = ((closureN)self_731083)->elements[3]; c_731939.elements[3] = ((closureN)self_731083)->elements[4]; c_731939.elements[4] = ((closureN)self_731083)->elements[5]; c_731939.elements[5] = ((closureN)self_731083)->elements[6]; c_731939.elements[6] = ((closureN)self_731083)->elements[7]; return_closcall1(data,(closure)&c_731939, NULL);} ; } static void __lambda_138(void *data, int argc, object self_731084, object r_73607) { closureN_type c_731941; c_731941.hdr.mark = gc_color_red; c_731941.hdr.grayed = 0; c_731941.tag = closureN_tag; c_731941.fn = (function_type)__lambda_137; c_731941.num_args = 1; c_731941.num_elements = 8; c_731941.elements = (object *)alloca(sizeof(object) * 8); c_731941.elements[0] = ((closureN)self_731084)->elements[0]; c_731941.elements[1] = ((closureN)self_731084)->elements[1]; c_731941.elements[2] = ((closureN)self_731084)->elements[2]; c_731941.elements[3] = ((closureN)self_731084)->elements[3]; c_731941.elements[4] = ((closureN)self_731084)->elements[4]; c_731941.elements[5] = r_73607; c_731941.elements[6] = ((closureN)self_731084)->elements[5]; c_731941.elements[7] = ((closureN)self_731084)->elements[6]; return_closcall1(data,(closure)&c_731941, NULL);; } static void __lambda_137(void *data, int argc, object self_731085, object r_73608) { closureN_type c_731943; c_731943.hdr.mark = gc_color_red; c_731943.hdr.grayed = 0; c_731943.tag = closureN_tag; c_731943.fn = (function_type)__lambda_136; c_731943.num_args = 1; c_731943.num_elements = 9; c_731943.elements = (object *)alloca(sizeof(object) * 9); c_731943.elements[0] = ((closureN)self_731085)->elements[0]; c_731943.elements[1] = ((closureN)self_731085)->elements[1]; c_731943.elements[2] = ((closureN)self_731085)->elements[2]; c_731943.elements[3] = ((closureN)self_731085)->elements[3]; c_731943.elements[4] = ((closureN)self_731085)->elements[4]; c_731943.elements[5] = ((closureN)self_731085)->elements[5]; c_731943.elements[6] = r_73608; c_731943.elements[7] = ((closureN)self_731085)->elements[6]; c_731943.elements[8] = ((closureN)self_731085)->elements[7]; object c_732011 = Cyc_sum(data,(closure)&c_731943,2,((closureN)self_731085)->elements[3], obj_int2obj(1)); return_closcall1(data,(closure)&c_731943, c_732011);; } static void __lambda_136(void *data, int argc, object self_731086, object r_73609) { closureN_type c_731945; c_731945.hdr.mark = gc_color_red; c_731945.hdr.grayed = 0; c_731945.tag = closureN_tag; c_731945.fn = (function_type)__lambda_135; c_731945.num_args = 1; c_731945.num_elements = 7; c_731945.elements = (object *)alloca(sizeof(object) * 7); c_731945.elements[0] = ((closureN)self_731086)->elements[0]; c_731945.elements[1] = ((closureN)self_731086)->elements[1]; c_731945.elements[2] = ((closureN)self_731086)->elements[2]; c_731945.elements[3] = ((closureN)self_731086)->elements[3]; c_731945.elements[4] = ((closureN)self_731086)->elements[4]; c_731945.elements[5] = ((closureN)self_731086)->elements[7]; c_731945.elements[6] = ((closureN)self_731086)->elements[8]; return_closcall8(data, __glo_parse_scheme_read, &c_731945, ((closureN)self_731086)->elements[1], ((closureN)self_731086)->elements[5], ((closureN)self_731086)->elements[6], boolean_t, boolean_f, r_73609, ((closureN)self_731086)->elements[4]);; } static void __lambda_135(void *data, int argc, object self_731087, object r_73597) { closureN_type c_731947; c_731947.hdr.mark = gc_color_red; c_731947.hdr.grayed = 0; c_731947.tag = closureN_tag; c_731947.fn = (function_type)__lambda_134; c_731947.num_args = 1; c_731947.num_elements = 6; c_731947.elements = (object *)alloca(sizeof(object) * 6); c_731947.elements[0] = ((closureN)self_731087)->elements[0]; c_731947.elements[1] = ((closureN)self_731087)->elements[1]; c_731947.elements[2] = ((closureN)self_731087)->elements[2]; c_731947.elements[3] = ((closureN)self_731087)->elements[3]; c_731947.elements[4] = ((closureN)self_731087)->elements[4]; c_731947.elements[5] = r_73597; return_closcall3(data, __glo_get_91toks_scheme_read, &c_731947, ((closureN)self_731087)->elements[5], ((closureN)self_731087)->elements[6]);; } static void __lambda_134(void *data, int argc, object self_731088, object r_73598) { closureN_type c_731949; c_731949.hdr.mark = gc_color_red; c_731949.hdr.grayed = 0; c_731949.tag = closureN_tag; c_731949.fn = (function_type)__lambda_133; c_731949.num_args = 2; c_731949.num_elements = 5; c_731949.elements = (object *)alloca(sizeof(object) * 5); c_731949.elements[0] = ((closureN)self_731088)->elements[0]; c_731949.elements[1] = ((closureN)self_731088)->elements[1]; c_731949.elements[2] = ((closureN)self_731088)->elements[2]; c_731949.elements[3] = ((closureN)self_731088)->elements[3]; c_731949.elements[4] = ((closureN)self_731088)->elements[4]; return_closcall2(data,(closure)&c_731949, ((closureN)self_731088)->elements[5], r_73598);; } static void __lambda_133(void *data, int argc, object self_731089, object sub_73223, object toks_85_73222) { closureN_type c_731951; c_731951.hdr.mark = gc_color_red; c_731951.hdr.grayed = 0; c_731951.tag = closureN_tag; c_731951.fn = (function_type)__lambda_132; c_731951.num_args = 1; c_731951.num_elements = 7; c_731951.elements = (object *)alloca(sizeof(object) * 7); c_731951.elements[0] = ((closureN)self_731089)->elements[0]; c_731951.elements[1] = ((closureN)self_731089)->elements[1]; c_731951.elements[2] = ((closureN)self_731089)->elements[2]; c_731951.elements[3] = ((closureN)self_731089)->elements[3]; c_731951.elements[4] = ((closureN)self_731089)->elements[4]; c_731951.elements[5] = sub_73223; c_731951.elements[6] = toks_85_73222; return_closcall1(data,(closure)&c_731951, boolean_f);; } static void __lambda_132(void *data, int argc, object self_731090, object new_91toks_73224) { closureN_type c_731953; c_731953.hdr.mark = gc_color_red; c_731953.hdr.grayed = 0; c_731953.tag = closureN_tag; c_731953.fn = (function_type)__lambda_131; c_731953.num_args = 1; c_731953.num_elements = 7; c_731953.elements = (object *)alloca(sizeof(object) * 7); c_731953.elements[0] = ((closureN)self_731090)->elements[0]; c_731953.elements[1] = ((closureN)self_731090)->elements[1]; c_731953.elements[2] = ((closureN)self_731090)->elements[2]; c_731953.elements[3] = ((closureN)self_731090)->elements[3]; c_731953.elements[4] = ((closureN)self_731090)->elements[4]; c_731953.elements[5] = ((closureN)self_731090)->elements[5]; c_731953.elements[6] = ((closureN)self_731090)->elements[6]; make_cell(c_732001,new_91toks_73224); return_closcall1(data,(closure)&c_731953, &c_732001);; } static void __lambda_131(void *data, int argc, object self_731091, object new_91toks_73224) { closureN_type c_731955; c_731955.hdr.mark = gc_color_red; c_731955.hdr.grayed = 0; c_731955.tag = closureN_tag; c_731955.fn = (function_type)__lambda_126; c_731955.num_args = 0; c_731955.num_elements = 1; c_731955.elements = (object *)alloca(sizeof(object) * 1); c_731955.elements[0] = ((closureN)self_731091)->elements[5]; closureN_type c_731971; c_731971.hdr.mark = gc_color_red; c_731971.hdr.grayed = 0; c_731971.tag = closureN_tag; c_731971.fn = (function_type)__lambda_130; c_731971.num_args = 1; c_731971.num_elements = 7; c_731971.elements = (object *)alloca(sizeof(object) * 7); c_731971.elements[0] = ((closureN)self_731091)->elements[0]; c_731971.elements[1] = ((closureN)self_731091)->elements[1]; c_731971.elements[2] = ((closureN)self_731091)->elements[2]; c_731971.elements[3] = new_91toks_73224; c_731971.elements[4] = ((closureN)self_731091)->elements[3]; c_731971.elements[5] = ((closureN)self_731091)->elements[4]; c_731971.elements[6] = ((closureN)self_731091)->elements[6]; return_closcall1(data,(closure)&c_731955, &c_731971);; } static void __lambda_130(void *data, int argc, object self_731092, object r_73602) { closureN_type c_731973; c_731973.hdr.mark = gc_color_red; c_731973.hdr.grayed = 0; c_731973.tag = closureN_tag; c_731973.fn = (function_type)__lambda_129; c_731973.num_args = 1; c_731973.num_elements = 6; c_731973.elements = (object *)alloca(sizeof(object) * 6); c_731973.elements[0] = ((closureN)self_731092)->elements[0]; c_731973.elements[1] = ((closureN)self_731092)->elements[1]; c_731973.elements[2] = ((closureN)self_731092)->elements[2]; c_731973.elements[3] = ((closureN)self_731092)->elements[3]; c_731973.elements[4] = ((closureN)self_731092)->elements[4]; c_731973.elements[5] = ((closureN)self_731092)->elements[5]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731973, r_73602, ((closureN)self_731092)->elements[6]);; } static void __lambda_129(void *data, int argc, object self_731093, object r_73601) { closureN_type c_731975; c_731975.hdr.mark = gc_color_red; c_731975.hdr.grayed = 0; c_731975.tag = closureN_tag; c_731975.fn = (function_type)__lambda_128; c_731975.num_args = 1; c_731975.num_elements = 6; c_731975.elements = (object *)alloca(sizeof(object) * 6); c_731975.elements[0] = ((closureN)self_731093)->elements[0]; c_731975.elements[1] = ((closureN)self_731093)->elements[1]; c_731975.elements[2] = ((closureN)self_731093)->elements[2]; c_731975.elements[3] = ((closureN)self_731093)->elements[3]; c_731975.elements[4] = ((closureN)self_731093)->elements[4]; c_731975.elements[5] = ((closureN)self_731093)->elements[5]; return_closcall1(data,(closure)&c_731975, Cyc_set_car(data, ((closureN)self_731093)->elements[3], r_73601));; } static void __lambda_128(void *data, int argc, object self_731094, object r_73599) { if( (boolean_f != ((closureN)self_731094)->elements[0]) ){ closureN_type c_731978; c_731978.hdr.mark = gc_color_red; c_731978.hdr.grayed = 0; c_731978.tag = closureN_tag; c_731978.fn = (function_type)__lambda_127; c_731978.num_args = 1; c_731978.num_elements = 6; c_731978.elements = (object *)alloca(sizeof(object) * 6); c_731978.elements[0] = ((closureN)self_731094)->elements[0]; c_731978.elements[1] = ((closureN)self_731094)->elements[1]; c_731978.elements[2] = ((closureN)self_731094)->elements[2]; c_731978.elements[3] = ((closureN)self_731094)->elements[3]; c_731978.elements[4] = ((closureN)self_731094)->elements[4]; c_731978.elements[5] = ((closureN)self_731094)->elements[5]; return_closcall1(data,(closure)&c_731978, NULL); } else { return_closcall1(data, ((closureN)self_731094)->elements[2], car(cell_get(((closureN)self_731094)->elements[3])));} ; } static void __lambda_127(void *data, int argc, object self_731095, object r_73600) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731095)->elements[2], ((closureN)self_731095)->elements[1], r_73600, cell_get(((closureN)self_731095)->elements[3]), ((closureN)self_731095)->elements[0], boolean_f, ((closureN)self_731095)->elements[4], ((closureN)self_731095)->elements[5]);; } static void __lambda_126(void *data, int argc, object self_731096, object k_73603) { closureN_type c_731957; c_731957.hdr.mark = gc_color_red; c_731957.hdr.grayed = 0; c_731957.tag = closureN_tag; c_731957.fn = (function_type)__lambda_124; c_731957.num_args = 0; c_731957.num_elements = 1; c_731957.elements = (object *)alloca(sizeof(object) * 1); c_731957.elements[0] = ((closureN)self_731096)->elements[0]; closureN_type c_731964; c_731964.hdr.mark = gc_color_red; c_731964.hdr.grayed = 0; c_731964.tag = closureN_tag; c_731964.fn = (function_type)__lambda_125; c_731964.num_args = 1; c_731964.num_elements = 2; c_731964.elements = (object *)alloca(sizeof(object) * 2); c_731964.elements[0] = k_73603; c_731964.elements[1] = ((closureN)self_731096)->elements[0]; return_closcall1(data,(closure)&c_731957, &c_731964);; } static void __lambda_125(void *data, int argc, object self_731097, object r_73604) { if( (boolean_f != r_73604) ){ return_closcall2(data, __glo__91_125dotted_91list_scheme_read, ((closureN)self_731097)->elements[0], ((closureN)self_731097)->elements[1]); } else { return_closcall1(data, ((closureN)self_731097)->elements[0], ((closureN)self_731097)->elements[1]);} ; } static void __lambda_124(void *data, int argc, object self_731098, object k_73605) { if( (boolean_f != Cyc_is_pair(((closureN)self_731098)->elements[0])) ){ return_closcall2(data, __glo_dotted_127_scheme_read, k_73605, ((closureN)self_731098)->elements[0]); } else { return_closcall1(data, k_73605, boolean_f);} ; } static void __lambda_123(void *data, int argc, object self_731099, object r_73594) { closureN_type c_731927; c_731927.hdr.mark = gc_color_red; c_731927.hdr.grayed = 0; c_731927.tag = closureN_tag; c_731927.fn = (function_type)__lambda_122; c_731927.num_args = 1; c_731927.num_elements = 2; c_731927.elements = (object *)alloca(sizeof(object) * 2); c_731927.elements[0] = ((closureN)self_731099)->elements[0]; c_731927.elements[1] = ((closureN)self_731099)->elements[2]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_731927, ((closureN)self_731099)->elements[1]);; } static void __lambda_122(void *data, int argc, object self_731100, object r_73596) { closureN_type c_731929; c_731929.hdr.mark = gc_color_red; c_731929.hdr.grayed = 0; c_731929.tag = closureN_tag; c_731929.fn = (function_type)__lambda_121; c_731929.num_args = 1; c_731929.num_elements = 1; c_731929.elements = (object *)alloca(sizeof(object) * 1); c_731929.elements[0] = ((closureN)self_731100)->elements[0]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731929, r_73596, ((closureN)self_731100)->elements[1]);; } static void __lambda_121(void *data, int argc, object self_731101, object r_73595) { return_closcall1(data, ((closureN)self_731101)->elements[0], car(r_73595));; } static void __lambda_120(void *data, int argc, object self_731102, object k_73610) { if( (boolean_f != ((closureN)self_731102)->elements[0]) ){ return_closcall1(data, k_73610, boolean_f); } else { return_closcall2(data, __glo_not_scheme_base, k_73610, Cyc_is_null(((closureN)self_731102)->elements[1]));} ; } static void __lambda_119(void *data, int argc, object self_731103, object r_73563) { if( (boolean_f != r_73563) ){ closureN_type c_731756; c_731756.hdr.mark = gc_color_red; c_731756.hdr.grayed = 0; c_731756.tag = closureN_tag; c_731756.fn = (function_type)__lambda_93; c_731756.num_args = 1; c_731756.num_elements = 3; c_731756.elements = (object *)alloca(sizeof(object) * 3); c_731756.elements[0] = ((closureN)self_731103)->elements[3]; c_731756.elements[1] = ((closureN)self_731103)->elements[6]; c_731756.elements[2] = ((closureN)self_731103)->elements[7]; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731756, ((closureN)self_731103)->elements[5], ((closureN)self_731103)->elements[1]); } else { closureN_type c_731770; c_731770.hdr.mark = gc_color_red; c_731770.hdr.grayed = 0; c_731770.tag = closureN_tag; c_731770.fn = (function_type)__lambda_118; c_731770.num_args = 4; c_731770.num_elements = 7; c_731770.elements = (object *)alloca(sizeof(object) * 7); c_731770.elements[0] = ((closureN)self_731103)->elements[0]; c_731770.elements[1] = ((closureN)self_731103)->elements[2]; c_731770.elements[2] = ((closureN)self_731103)->elements[3]; c_731770.elements[3] = ((closureN)self_731103)->elements[4]; c_731770.elements[4] = ((closureN)self_731103)->elements[5]; c_731770.elements[5] = ((closureN)self_731103)->elements[6]; c_731770.elements[6] = ((closureN)self_731103)->elements[7]; return_closcall4(data,(closure)&c_731770, boolean_f, boolean_f, boolean_f, boolean_f);} ; } static void __lambda_118(void *data, int argc, object self_731104, object sub_73228, object next_91c_73227, object unquote_91sym_73226, object new_91toks_73225) { closureN_type c_731772; c_731772.hdr.mark = gc_color_red; c_731772.hdr.grayed = 0; c_731772.tag = closureN_tag; c_731772.fn = (function_type)__lambda_117; c_731772.num_args = 1; c_731772.num_elements = 10; c_731772.elements = (object *)alloca(sizeof(object) * 10); c_731772.elements[0] = ((closureN)self_731104)->elements[0]; c_731772.elements[1] = ((closureN)self_731104)->elements[1]; c_731772.elements[2] = ((closureN)self_731104)->elements[2]; c_731772.elements[3] = new_91toks_73225; c_731772.elements[4] = next_91c_73227; c_731772.elements[5] = ((closureN)self_731104)->elements[3]; c_731772.elements[6] = ((closureN)self_731104)->elements[4]; c_731772.elements[7] = ((closureN)self_731104)->elements[5]; c_731772.elements[8] = ((closureN)self_731104)->elements[6]; c_731772.elements[9] = unquote_91sym_73226; make_cell(c_731911,sub_73228); return_closcall1(data,(closure)&c_731772, &c_731911);; } static void __lambda_117(void *data, int argc, object self_731105, object sub_73228) { closureN_type c_731774; c_731774.hdr.mark = gc_color_red; c_731774.hdr.grayed = 0; c_731774.tag = closureN_tag; c_731774.fn = (function_type)__lambda_116; c_731774.num_args = 1; c_731774.num_elements = 10; c_731774.elements = (object *)alloca(sizeof(object) * 10); c_731774.elements[0] = ((closureN)self_731105)->elements[0]; c_731774.elements[1] = ((closureN)self_731105)->elements[1]; c_731774.elements[2] = ((closureN)self_731105)->elements[2]; c_731774.elements[3] = ((closureN)self_731105)->elements[3]; c_731774.elements[4] = ((closureN)self_731105)->elements[5]; c_731774.elements[5] = ((closureN)self_731105)->elements[6]; c_731774.elements[6] = sub_73228; c_731774.elements[7] = ((closureN)self_731105)->elements[7]; c_731774.elements[8] = ((closureN)self_731105)->elements[8]; c_731774.elements[9] = ((closureN)self_731105)->elements[9]; make_cell(c_731907,((closureN)self_731105)->elements[4]); return_closcall1(data,(closure)&c_731774, &c_731907);; } static void __lambda_116(void *data, int argc, object self_731106, object next_91c_73227) { closureN_type c_731776; c_731776.hdr.mark = gc_color_red; c_731776.hdr.grayed = 0; c_731776.tag = closureN_tag; c_731776.fn = (function_type)__lambda_115; c_731776.num_args = 1; c_731776.num_elements = 10; c_731776.elements = (object *)alloca(sizeof(object) * 10); c_731776.elements[0] = ((closureN)self_731106)->elements[0]; c_731776.elements[1] = ((closureN)self_731106)->elements[1]; c_731776.elements[2] = ((closureN)self_731106)->elements[2]; c_731776.elements[3] = ((closureN)self_731106)->elements[3]; c_731776.elements[4] = next_91c_73227; c_731776.elements[5] = ((closureN)self_731106)->elements[4]; c_731776.elements[6] = ((closureN)self_731106)->elements[5]; c_731776.elements[7] = ((closureN)self_731106)->elements[6]; c_731776.elements[8] = ((closureN)self_731106)->elements[7]; c_731776.elements[9] = ((closureN)self_731106)->elements[8]; make_cell(c_731903,((closureN)self_731106)->elements[9]); return_closcall1(data,(closure)&c_731776, &c_731903);; } static void __lambda_115(void *data, int argc, object self_731107, object unquote_91sym_73226) { closureN_type c_731778; c_731778.hdr.mark = gc_color_red; c_731778.hdr.grayed = 0; c_731778.tag = closureN_tag; c_731778.fn = (function_type)__lambda_114; c_731778.num_args = 1; c_731778.num_elements = 10; c_731778.elements = (object *)alloca(sizeof(object) * 10); c_731778.elements[0] = ((closureN)self_731107)->elements[0]; c_731778.elements[1] = ((closureN)self_731107)->elements[1]; c_731778.elements[2] = ((closureN)self_731107)->elements[2]; c_731778.elements[3] = ((closureN)self_731107)->elements[4]; c_731778.elements[4] = ((closureN)self_731107)->elements[5]; c_731778.elements[5] = ((closureN)self_731107)->elements[6]; c_731778.elements[6] = ((closureN)self_731107)->elements[7]; c_731778.elements[7] = ((closureN)self_731107)->elements[8]; c_731778.elements[8] = ((closureN)self_731107)->elements[9]; c_731778.elements[9] = unquote_91sym_73226; make_cell(c_731899,((closureN)self_731107)->elements[3]); return_closcall1(data,(closure)&c_731778, &c_731899);; } static void __lambda_114(void *data, int argc, object self_731108, object new_91toks_73225) { closureN_type c_731780; c_731780.hdr.mark = gc_color_red; c_731780.hdr.grayed = 0; c_731780.tag = closureN_tag; c_731780.fn = (function_type)__lambda_113; c_731780.num_args = 1; c_731780.num_elements = 11; c_731780.elements = (object *)alloca(sizeof(object) * 11); c_731780.elements[0] = ((closureN)self_731108)->elements[0]; c_731780.elements[1] = ((closureN)self_731108)->elements[1]; c_731780.elements[2] = ((closureN)self_731108)->elements[2]; c_731780.elements[3] = new_91toks_73225; c_731780.elements[4] = ((closureN)self_731108)->elements[3]; c_731780.elements[5] = ((closureN)self_731108)->elements[4]; c_731780.elements[6] = ((closureN)self_731108)->elements[5]; c_731780.elements[7] = ((closureN)self_731108)->elements[6]; c_731780.elements[8] = ((closureN)self_731108)->elements[7]; c_731780.elements[9] = ((closureN)self_731108)->elements[8]; c_731780.elements[10] = ((closureN)self_731108)->elements[9]; return_closcall1(data,(closure)&c_731780, Cyc_set_car(data, ((closureN)self_731108)->elements[6], boolean_f));; } static void __lambda_113(void *data, int argc, object self_731109, object r_73567) { closureN_type c_731782; c_731782.hdr.mark = gc_color_red; c_731782.hdr.grayed = 0; c_731782.tag = closureN_tag; c_731782.fn = (function_type)__lambda_112; c_731782.num_args = 1; c_731782.num_elements = 11; c_731782.elements = (object *)alloca(sizeof(object) * 11); c_731782.elements[0] = ((closureN)self_731109)->elements[0]; c_731782.elements[1] = ((closureN)self_731109)->elements[1]; c_731782.elements[2] = ((closureN)self_731109)->elements[2]; c_731782.elements[3] = ((closureN)self_731109)->elements[3]; c_731782.elements[4] = ((closureN)self_731109)->elements[4]; c_731782.elements[5] = ((closureN)self_731109)->elements[5]; c_731782.elements[6] = ((closureN)self_731109)->elements[6]; c_731782.elements[7] = ((closureN)self_731109)->elements[7]; c_731782.elements[8] = ((closureN)self_731109)->elements[8]; c_731782.elements[9] = ((closureN)self_731109)->elements[9]; c_731782.elements[10] = ((closureN)self_731109)->elements[10]; object c_731892 = Cyc_io_read_char(data,(closure)&c_731782,((closureN)self_731109)->elements[1]); return_closcall1(data,(closure)&c_731782, c_731892);; } static void __lambda_112(void *data, int argc, object self_731110, object r_73589) { closureN_type c_731784; c_731784.hdr.mark = gc_color_red; c_731784.hdr.grayed = 0; c_731784.tag = closureN_tag; c_731784.fn = (function_type)__lambda_111; c_731784.num_args = 1; c_731784.num_elements = 11; c_731784.elements = (object *)alloca(sizeof(object) * 11); c_731784.elements[0] = ((closureN)self_731110)->elements[0]; c_731784.elements[1] = ((closureN)self_731110)->elements[1]; c_731784.elements[2] = ((closureN)self_731110)->elements[2]; c_731784.elements[3] = ((closureN)self_731110)->elements[3]; c_731784.elements[4] = ((closureN)self_731110)->elements[4]; c_731784.elements[5] = ((closureN)self_731110)->elements[5]; c_731784.elements[6] = ((closureN)self_731110)->elements[6]; c_731784.elements[7] = ((closureN)self_731110)->elements[7]; c_731784.elements[8] = ((closureN)self_731110)->elements[8]; c_731784.elements[9] = ((closureN)self_731110)->elements[9]; c_731784.elements[10] = ((closureN)self_731110)->elements[10]; return_closcall1(data,(closure)&c_731784, Cyc_set_car(data, ((closureN)self_731110)->elements[4], r_73589));; } static void __lambda_111(void *data, int argc, object self_731111, object r_73568) { closureN_type c_731786; c_731786.hdr.mark = gc_color_red; c_731786.hdr.grayed = 0; c_731786.tag = closureN_tag; c_731786.fn = (function_type)__lambda_94; c_731786.num_args = 0; c_731786.num_elements = 1; c_731786.elements = (object *)alloca(sizeof(object) * 1); c_731786.elements[0] = ((closureN)self_731111)->elements[4]; closureN_type c_731794; c_731794.hdr.mark = gc_color_red; c_731794.hdr.grayed = 0; c_731794.tag = closureN_tag; c_731794.fn = (function_type)__lambda_110; c_731794.num_args = 1; c_731794.num_elements = 11; c_731794.elements = (object *)alloca(sizeof(object) * 11); c_731794.elements[0] = ((closureN)self_731111)->elements[0]; c_731794.elements[1] = ((closureN)self_731111)->elements[1]; c_731794.elements[2] = ((closureN)self_731111)->elements[2]; c_731794.elements[3] = ((closureN)self_731111)->elements[3]; c_731794.elements[4] = ((closureN)self_731111)->elements[4]; c_731794.elements[5] = ((closureN)self_731111)->elements[5]; c_731794.elements[6] = ((closureN)self_731111)->elements[6]; c_731794.elements[7] = ((closureN)self_731111)->elements[7]; c_731794.elements[8] = ((closureN)self_731111)->elements[8]; c_731794.elements[9] = ((closureN)self_731111)->elements[9]; c_731794.elements[10] = ((closureN)self_731111)->elements[10]; return_closcall1(data,(closure)&c_731786, &c_731794);; } static void __lambda_110(void *data, int argc, object self_731112, object r_73586) { closureN_type c_731796; c_731796.hdr.mark = gc_color_red; c_731796.hdr.grayed = 0; c_731796.tag = closureN_tag; c_731796.fn = (function_type)__lambda_109; c_731796.num_args = 1; c_731796.num_elements = 11; c_731796.elements = (object *)alloca(sizeof(object) * 11); c_731796.elements[0] = ((closureN)self_731112)->elements[0]; c_731796.elements[1] = ((closureN)self_731112)->elements[1]; c_731796.elements[2] = ((closureN)self_731112)->elements[2]; c_731796.elements[3] = ((closureN)self_731112)->elements[3]; c_731796.elements[4] = ((closureN)self_731112)->elements[4]; c_731796.elements[5] = ((closureN)self_731112)->elements[5]; c_731796.elements[6] = ((closureN)self_731112)->elements[6]; c_731796.elements[7] = ((closureN)self_731112)->elements[7]; c_731796.elements[8] = ((closureN)self_731112)->elements[8]; c_731796.elements[9] = ((closureN)self_731112)->elements[9]; c_731796.elements[10] = ((closureN)self_731112)->elements[10]; return_closcall1(data,(closure)&c_731796, Cyc_set_car(data, ((closureN)self_731112)->elements[10], r_73586));; } static void __lambda_109(void *data, int argc, object self_731113, object r_73569) { closureN_type c_731798; c_731798.hdr.mark = gc_color_red; c_731798.hdr.grayed = 0; c_731798.tag = closureN_tag; c_731798.fn = (function_type)__lambda_108; c_731798.num_args = 1; c_731798.num_elements = 11; c_731798.elements = (object *)alloca(sizeof(object) * 11); c_731798.elements[0] = ((closureN)self_731113)->elements[0]; c_731798.elements[1] = ((closureN)self_731113)->elements[1]; c_731798.elements[2] = ((closureN)self_731113)->elements[2]; c_731798.elements[3] = ((closureN)self_731113)->elements[3]; c_731798.elements[4] = ((closureN)self_731113)->elements[4]; c_731798.elements[5] = ((closureN)self_731113)->elements[5]; c_731798.elements[6] = ((closureN)self_731113)->elements[6]; c_731798.elements[7] = ((closureN)self_731113)->elements[7]; c_731798.elements[8] = ((closureN)self_731113)->elements[8]; c_731798.elements[9] = ((closureN)self_731113)->elements[9]; c_731798.elements[10] = ((closureN)self_731113)->elements[10]; return_closcall1(data,(closure)&c_731798, Cyc_set_car(data, ((closureN)self_731113)->elements[3], boolean_f));; } static void __lambda_108(void *data, int argc, object self_731114, object r_73570) { closureN_type c_731800; c_731800.hdr.mark = gc_color_red; c_731800.hdr.grayed = 0; c_731800.tag = closureN_tag; c_731800.fn = (function_type)__lambda_97; c_731800.num_args = 0; c_731800.num_elements = 2; c_731800.elements = (object *)alloca(sizeof(object) * 2); c_731800.elements[0] = ((closureN)self_731114)->elements[4]; c_731800.elements[1] = ((closureN)self_731114)->elements[6]; closureN_type c_731827; c_731827.hdr.mark = gc_color_red; c_731827.hdr.grayed = 0; c_731827.tag = closureN_tag; c_731827.fn = (function_type)__lambda_107; c_731827.num_args = 1; c_731827.num_elements = 10; c_731827.elements = (object *)alloca(sizeof(object) * 10); c_731827.elements[0] = ((closureN)self_731114)->elements[0]; c_731827.elements[1] = ((closureN)self_731114)->elements[1]; c_731827.elements[2] = ((closureN)self_731114)->elements[2]; c_731827.elements[3] = ((closureN)self_731114)->elements[3]; c_731827.elements[4] = ((closureN)self_731114)->elements[5]; c_731827.elements[5] = ((closureN)self_731114)->elements[6]; c_731827.elements[6] = ((closureN)self_731114)->elements[7]; c_731827.elements[7] = ((closureN)self_731114)->elements[8]; c_731827.elements[8] = ((closureN)self_731114)->elements[9]; c_731827.elements[9] = ((closureN)self_731114)->elements[10]; return_closcall1(data,(closure)&c_731800, &c_731827);; } static void __lambda_107(void *data, int argc, object self_731115, object r_73571) { closureN_type c_731829; c_731829.hdr.mark = gc_color_red; c_731829.hdr.grayed = 0; c_731829.tag = closureN_tag; c_731829.fn = (function_type)__lambda_106; c_731829.num_args = 1; c_731829.num_elements = 10; c_731829.elements = (object *)alloca(sizeof(object) * 10); c_731829.elements[0] = ((closureN)self_731115)->elements[0]; c_731829.elements[1] = ((closureN)self_731115)->elements[1]; c_731829.elements[2] = ((closureN)self_731115)->elements[2]; c_731829.elements[3] = ((closureN)self_731115)->elements[3]; c_731829.elements[4] = ((closureN)self_731115)->elements[4]; c_731829.elements[5] = ((closureN)self_731115)->elements[5]; c_731829.elements[6] = ((closureN)self_731115)->elements[6]; c_731829.elements[7] = ((closureN)self_731115)->elements[7]; c_731829.elements[8] = ((closureN)self_731115)->elements[8]; c_731829.elements[9] = ((closureN)self_731115)->elements[9]; return_closcall1(data,(closure)&c_731829, NULL);; } static void __lambda_106(void *data, int argc, object self_731116, object r_73579) { closureN_type c_731831; c_731831.hdr.mark = gc_color_red; c_731831.hdr.grayed = 0; c_731831.tag = closureN_tag; c_731831.fn = (function_type)__lambda_105; c_731831.num_args = 1; c_731831.num_elements = 11; c_731831.elements = (object *)alloca(sizeof(object) * 11); c_731831.elements[0] = ((closureN)self_731116)->elements[0]; c_731831.elements[1] = ((closureN)self_731116)->elements[1]; c_731831.elements[2] = ((closureN)self_731116)->elements[2]; c_731831.elements[3] = ((closureN)self_731116)->elements[3]; c_731831.elements[4] = ((closureN)self_731116)->elements[4]; c_731831.elements[5] = ((closureN)self_731116)->elements[5]; c_731831.elements[6] = r_73579; c_731831.elements[7] = ((closureN)self_731116)->elements[6]; c_731831.elements[8] = ((closureN)self_731116)->elements[7]; c_731831.elements[9] = ((closureN)self_731116)->elements[8]; c_731831.elements[10] = ((closureN)self_731116)->elements[9]; return_closcall1(data,(closure)&c_731831, NULL);; } static void __lambda_105(void *data, int argc, object self_731117, object r_73580) { closureN_type c_731833; c_731833.hdr.mark = gc_color_red; c_731833.hdr.grayed = 0; c_731833.tag = closureN_tag; c_731833.fn = (function_type)__lambda_104; c_731833.num_args = 1; c_731833.num_elements = 10; c_731833.elements = (object *)alloca(sizeof(object) * 10); c_731833.elements[0] = ((closureN)self_731117)->elements[0]; c_731833.elements[1] = ((closureN)self_731117)->elements[1]; c_731833.elements[2] = ((closureN)self_731117)->elements[2]; c_731833.elements[3] = ((closureN)self_731117)->elements[3]; c_731833.elements[4] = ((closureN)self_731117)->elements[4]; c_731833.elements[5] = ((closureN)self_731117)->elements[5]; c_731833.elements[6] = ((closureN)self_731117)->elements[7]; c_731833.elements[7] = ((closureN)self_731117)->elements[8]; c_731833.elements[8] = ((closureN)self_731117)->elements[9]; c_731833.elements[9] = ((closureN)self_731117)->elements[10]; return_closcall8(data, __glo_parse_scheme_read, &c_731833, ((closureN)self_731117)->elements[1], ((closureN)self_731117)->elements[6], r_73580, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731117)->elements[5]);; } static void __lambda_104(void *data, int argc, object self_731118, object r_73578) { closureN_type c_731835; c_731835.hdr.mark = gc_color_red; c_731835.hdr.grayed = 0; c_731835.tag = closureN_tag; c_731835.fn = (function_type)__lambda_103; c_731835.num_args = 1; c_731835.num_elements = 10; c_731835.elements = (object *)alloca(sizeof(object) * 10); c_731835.elements[0] = ((closureN)self_731118)->elements[0]; c_731835.elements[1] = ((closureN)self_731118)->elements[1]; c_731835.elements[2] = ((closureN)self_731118)->elements[2]; c_731835.elements[3] = ((closureN)self_731118)->elements[3]; c_731835.elements[4] = ((closureN)self_731118)->elements[4]; c_731835.elements[5] = ((closureN)self_731118)->elements[5]; c_731835.elements[6] = ((closureN)self_731118)->elements[6]; c_731835.elements[7] = ((closureN)self_731118)->elements[7]; c_731835.elements[8] = ((closureN)self_731118)->elements[8]; c_731835.elements[9] = ((closureN)self_731118)->elements[9]; return_closcall1(data,(closure)&c_731835, Cyc_set_car(data, ((closureN)self_731118)->elements[6], r_73578));; } static void __lambda_103(void *data, int argc, object self_731119, object r_73572) { closureN_type c_731837; c_731837.hdr.mark = gc_color_red; c_731837.hdr.grayed = 0; c_731837.tag = closureN_tag; c_731837.fn = (function_type)__lambda_102; c_731837.num_args = 1; c_731837.num_elements = 8; c_731837.elements = (object *)alloca(sizeof(object) * 8); c_731837.elements[0] = ((closureN)self_731119)->elements[0]; c_731837.elements[1] = ((closureN)self_731119)->elements[1]; c_731837.elements[2] = ((closureN)self_731119)->elements[2]; c_731837.elements[3] = ((closureN)self_731119)->elements[3]; c_731837.elements[4] = ((closureN)self_731119)->elements[4]; c_731837.elements[5] = ((closureN)self_731119)->elements[5]; c_731837.elements[6] = ((closureN)self_731119)->elements[7]; c_731837.elements[7] = ((closureN)self_731119)->elements[8]; return_closcall3(data, __glo__list_scheme_base, &c_731837, cell_get(((closureN)self_731119)->elements[9]), cell_get(((closureN)self_731119)->elements[6]));; } static void __lambda_102(void *data, int argc, object self_731120, object r_73576) { closureN_type c_731839; c_731839.hdr.mark = gc_color_red; c_731839.hdr.grayed = 0; c_731839.tag = closureN_tag; c_731839.fn = (function_type)__lambda_101; c_731839.num_args = 1; c_731839.num_elements = 7; c_731839.elements = (object *)alloca(sizeof(object) * 7); c_731839.elements[0] = ((closureN)self_731120)->elements[0]; c_731839.elements[1] = ((closureN)self_731120)->elements[1]; c_731839.elements[2] = ((closureN)self_731120)->elements[2]; c_731839.elements[3] = ((closureN)self_731120)->elements[3]; c_731839.elements[4] = ((closureN)self_731120)->elements[4]; c_731839.elements[5] = ((closureN)self_731120)->elements[5]; c_731839.elements[6] = r_73576; return_closcall3(data, __glo_get_91toks_scheme_read, &c_731839, ((closureN)self_731120)->elements[6], ((closureN)self_731120)->elements[7]);; } static void __lambda_101(void *data, int argc, object self_731121, object r_73577) { closureN_type c_731841; c_731841.hdr.mark = gc_color_red; c_731841.hdr.grayed = 0; c_731841.tag = closureN_tag; c_731841.fn = (function_type)__lambda_100; c_731841.num_args = 1; c_731841.num_elements = 6; c_731841.elements = (object *)alloca(sizeof(object) * 6); c_731841.elements[0] = ((closureN)self_731121)->elements[0]; c_731841.elements[1] = ((closureN)self_731121)->elements[1]; c_731841.elements[2] = ((closureN)self_731121)->elements[2]; c_731841.elements[3] = ((closureN)self_731121)->elements[3]; c_731841.elements[4] = ((closureN)self_731121)->elements[4]; c_731841.elements[5] = ((closureN)self_731121)->elements[5]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731841, ((closureN)self_731121)->elements[6], r_73577);; } static void __lambda_100(void *data, int argc, object self_731122, object r_73575) { closureN_type c_731843; c_731843.hdr.mark = gc_color_red; c_731843.hdr.grayed = 0; c_731843.tag = closureN_tag; c_731843.fn = (function_type)__lambda_99; c_731843.num_args = 1; c_731843.num_elements = 6; c_731843.elements = (object *)alloca(sizeof(object) * 6); c_731843.elements[0] = ((closureN)self_731122)->elements[0]; c_731843.elements[1] = ((closureN)self_731122)->elements[1]; c_731843.elements[2] = ((closureN)self_731122)->elements[2]; c_731843.elements[3] = ((closureN)self_731122)->elements[3]; c_731843.elements[4] = ((closureN)self_731122)->elements[4]; c_731843.elements[5] = ((closureN)self_731122)->elements[5]; return_closcall1(data,(closure)&c_731843, Cyc_set_car(data, ((closureN)self_731122)->elements[3], r_73575));; } static void __lambda_99(void *data, int argc, object self_731123, object r_73573) { if( (boolean_f != ((closureN)self_731123)->elements[0]) ){ closureN_type c_731846; c_731846.hdr.mark = gc_color_red; c_731846.hdr.grayed = 0; c_731846.tag = closureN_tag; c_731846.fn = (function_type)__lambda_98; c_731846.num_args = 1; c_731846.num_elements = 6; c_731846.elements = (object *)alloca(sizeof(object) * 6); c_731846.elements[0] = ((closureN)self_731123)->elements[0]; c_731846.elements[1] = ((closureN)self_731123)->elements[1]; c_731846.elements[2] = ((closureN)self_731123)->elements[2]; c_731846.elements[3] = ((closureN)self_731123)->elements[3]; c_731846.elements[4] = ((closureN)self_731123)->elements[4]; c_731846.elements[5] = ((closureN)self_731123)->elements[5]; return_closcall1(data,(closure)&c_731846, NULL); } else { return_closcall1(data, ((closureN)self_731123)->elements[2], car(cell_get(((closureN)self_731123)->elements[3])));} ; } static void __lambda_98(void *data, int argc, object self_731124, object r_73574) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731124)->elements[2], ((closureN)self_731124)->elements[1], r_73574, cell_get(((closureN)self_731124)->elements[3]), ((closureN)self_731124)->elements[0], boolean_f, ((closureN)self_731124)->elements[4], ((closureN)self_731124)->elements[5]);; } static void __lambda_97(void *data, int argc, object self_731125, object k_73581) { if( (boolean_f != Cyc_is_eof_object(cell_get(((closureN)self_731125)->elements[0]))) ){ closureN_type c_731807; c_731807.hdr.mark = gc_color_red; c_731807.hdr.grayed = 0; c_731807.tag = closureN_tag; c_731807.fn = (function_type)__lambda_96; c_731807.num_args = 1; c_731807.num_elements = 2; c_731807.elements = (object *)alloca(sizeof(object) * 2); c_731807.elements[0] = k_73581; c_731807.elements[1] = ((closureN)self_731125)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731807, ((closureN)self_731125)->elements[1]); } else { if( (boolean_f != equalp(cell_get(((closureN)self_731125)->elements[0]), obj_char2obj(64))) ){ return_closcall1(data, k_73581, boolean_f); } else { return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, k_73581, ((closureN)self_731125)->elements[1], cell_get(((closureN)self_731125)->elements[0]));} } ; } static void __lambda_96(void *data, int argc, object self_731126, object r_73583) { closureN_type c_731809; c_731809.hdr.mark = gc_color_red; c_731809.hdr.grayed = 0; c_731809.tag = closureN_tag; c_731809.fn = (function_type)__lambda_95; c_731809.num_args = 1; c_731809.num_elements = 2; c_731809.elements = (object *)alloca(sizeof(object) * 2); c_731809.elements[0] = ((closureN)self_731126)->elements[0]; c_731809.elements[1] = r_73583; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731809, ((closureN)self_731126)->elements[1]);; } static void __lambda_95(void *data, int argc, object self_731127, object r_73584) { make_string(c_731812, "unexpected end of file"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731127)->elements[0], &c_731812, ((closureN)self_731127)->elements[1], r_73584);; } static void __lambda_94(void *data, int argc, object self_731128, object k_73587) { if( (boolean_f != equalp(cell_get(((closureN)self_731128)->elements[0]), obj_char2obj(64))) ){ return_closcall1(data, k_73587, quote_unquote_91splicing); } else { return_closcall1(data, k_73587, quote_unquote);} ; } static void __lambda_93(void *data, int argc, object self_731129, object r_73564) { closureN_type c_731758; c_731758.hdr.mark = gc_color_red; c_731758.hdr.grayed = 0; c_731758.tag = closureN_tag; c_731758.fn = (function_type)__lambda_92; c_731758.num_args = 1; c_731758.num_elements = 2; c_731758.elements = (object *)alloca(sizeof(object) * 2); c_731758.elements[0] = ((closureN)self_731129)->elements[0]; c_731758.elements[1] = ((closureN)self_731129)->elements[2]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_731758, ((closureN)self_731129)->elements[1]);; } static void __lambda_92(void *data, int argc, object self_731130, object r_73566) { closureN_type c_731760; c_731760.hdr.mark = gc_color_red; c_731760.hdr.grayed = 0; c_731760.tag = closureN_tag; c_731760.fn = (function_type)__lambda_91; c_731760.num_args = 1; c_731760.num_elements = 1; c_731760.elements = (object *)alloca(sizeof(object) * 1); c_731760.elements[0] = ((closureN)self_731130)->elements[0]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731760, r_73566, ((closureN)self_731130)->elements[1]);; } static void __lambda_91(void *data, int argc, object self_731131, object r_73565) { return_closcall1(data, ((closureN)self_731131)->elements[0], car(r_73565));; } static void __lambda_90(void *data, int argc, object self_731132, object k_73590) { if( (boolean_f != ((closureN)self_731132)->elements[0]) ){ return_closcall1(data, k_73590, boolean_f); } else { return_closcall2(data, __glo_not_scheme_base, k_73590, Cyc_is_null(((closureN)self_731132)->elements[1]));} ; } static void __lambda_89(void *data, int argc, object self_731133, object r_73547) { if( (boolean_f != r_73547) ){ closureN_type c_731678; c_731678.hdr.mark = gc_color_red; c_731678.hdr.grayed = 0; c_731678.tag = closureN_tag; c_731678.fn = (function_type)__lambda_77; c_731678.num_args = 1; c_731678.num_elements = 3; c_731678.elements = (object *)alloca(sizeof(object) * 3); c_731678.elements[0] = ((closureN)self_731133)->elements[3]; c_731678.elements[1] = ((closureN)self_731133)->elements[6]; c_731678.elements[2] = ((closureN)self_731133)->elements[7]; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731678, ((closureN)self_731133)->elements[5], ((closureN)self_731133)->elements[1]); } else { closureN_type c_731692; c_731692.hdr.mark = gc_color_red; c_731692.hdr.grayed = 0; c_731692.tag = closureN_tag; c_731692.fn = (function_type)__lambda_88; c_731692.num_args = 1; c_731692.num_elements = 7; c_731692.elements = (object *)alloca(sizeof(object) * 7); c_731692.elements[0] = ((closureN)self_731133)->elements[0]; c_731692.elements[1] = ((closureN)self_731133)->elements[2]; c_731692.elements[2] = ((closureN)self_731133)->elements[3]; c_731692.elements[3] = ((closureN)self_731133)->elements[4]; c_731692.elements[4] = ((closureN)self_731133)->elements[5]; c_731692.elements[5] = ((closureN)self_731133)->elements[6]; c_731692.elements[6] = ((closureN)self_731133)->elements[7]; return_closcall1(data,(closure)&c_731692, NULL);} ; } static void __lambda_88(void *data, int argc, object self_731134, object r_73558) { closureN_type c_731694; c_731694.hdr.mark = gc_color_red; c_731694.hdr.grayed = 0; c_731694.tag = closureN_tag; c_731694.fn = (function_type)__lambda_87; c_731694.num_args = 1; c_731694.num_elements = 8; c_731694.elements = (object *)alloca(sizeof(object) * 8); c_731694.elements[0] = ((closureN)self_731134)->elements[0]; c_731694.elements[1] = ((closureN)self_731134)->elements[1]; c_731694.elements[2] = ((closureN)self_731134)->elements[2]; c_731694.elements[3] = ((closureN)self_731134)->elements[3]; c_731694.elements[4] = ((closureN)self_731134)->elements[4]; c_731694.elements[5] = r_73558; c_731694.elements[6] = ((closureN)self_731134)->elements[5]; c_731694.elements[7] = ((closureN)self_731134)->elements[6]; return_closcall1(data,(closure)&c_731694, NULL);; } static void __lambda_87(void *data, int argc, object self_731135, object r_73559) { closureN_type c_731696; c_731696.hdr.mark = gc_color_red; c_731696.hdr.grayed = 0; c_731696.tag = closureN_tag; c_731696.fn = (function_type)__lambda_86; c_731696.num_args = 1; c_731696.num_elements = 7; c_731696.elements = (object *)alloca(sizeof(object) * 7); c_731696.elements[0] = ((closureN)self_731135)->elements[0]; c_731696.elements[1] = ((closureN)self_731135)->elements[1]; c_731696.elements[2] = ((closureN)self_731135)->elements[2]; c_731696.elements[3] = ((closureN)self_731135)->elements[3]; c_731696.elements[4] = ((closureN)self_731135)->elements[4]; c_731696.elements[5] = ((closureN)self_731135)->elements[6]; c_731696.elements[6] = ((closureN)self_731135)->elements[7]; return_closcall8(data, __glo_parse_scheme_read, &c_731696, ((closureN)self_731135)->elements[1], ((closureN)self_731135)->elements[5], r_73559, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731135)->elements[4]);; } static void __lambda_86(void *data, int argc, object self_731136, object sub_73229) { closureN_type c_731698; c_731698.hdr.mark = gc_color_red; c_731698.hdr.grayed = 0; c_731698.tag = closureN_tag; c_731698.fn = (function_type)__lambda_85; c_731698.num_args = 1; c_731698.num_elements = 8; c_731698.elements = (object *)alloca(sizeof(object) * 8); c_731698.elements[0] = ((closureN)self_731136)->elements[0]; c_731698.elements[1] = ((closureN)self_731136)->elements[1]; c_731698.elements[2] = ((closureN)self_731136)->elements[2]; c_731698.elements[3] = ((closureN)self_731136)->elements[3]; c_731698.elements[4] = ((closureN)self_731136)->elements[4]; c_731698.elements[5] = sub_73229; c_731698.elements[6] = ((closureN)self_731136)->elements[5]; c_731698.elements[7] = ((closureN)self_731136)->elements[6]; return_closcall1(data,(closure)&c_731698, boolean_f);; } static void __lambda_85(void *data, int argc, object self_731137, object new_91toks_73230) { closureN_type c_731700; c_731700.hdr.mark = gc_color_red; c_731700.hdr.grayed = 0; c_731700.tag = closureN_tag; c_731700.fn = (function_type)__lambda_84; c_731700.num_args = 1; c_731700.num_elements = 8; c_731700.elements = (object *)alloca(sizeof(object) * 8); c_731700.elements[0] = ((closureN)self_731137)->elements[0]; c_731700.elements[1] = ((closureN)self_731137)->elements[1]; c_731700.elements[2] = ((closureN)self_731137)->elements[2]; c_731700.elements[3] = ((closureN)self_731137)->elements[3]; c_731700.elements[4] = ((closureN)self_731137)->elements[4]; c_731700.elements[5] = ((closureN)self_731137)->elements[5]; c_731700.elements[6] = ((closureN)self_731137)->elements[6]; c_731700.elements[7] = ((closureN)self_731137)->elements[7]; make_cell(c_731739,new_91toks_73230); return_closcall1(data,(closure)&c_731700, &c_731739);; } static void __lambda_84(void *data, int argc, object self_731138, object new_91toks_73230) { closureN_type c_731702; c_731702.hdr.mark = gc_color_red; c_731702.hdr.grayed = 0; c_731702.tag = closureN_tag; c_731702.fn = (function_type)__lambda_83; c_731702.num_args = 1; c_731702.num_elements = 9; c_731702.elements = (object *)alloca(sizeof(object) * 9); c_731702.elements[0] = ((closureN)self_731138)->elements[0]; c_731702.elements[1] = ((closureN)self_731138)->elements[1]; c_731702.elements[2] = ((closureN)self_731138)->elements[2]; c_731702.elements[3] = new_91toks_73230; c_731702.elements[4] = ((closureN)self_731138)->elements[3]; c_731702.elements[5] = ((closureN)self_731138)->elements[4]; c_731702.elements[6] = ((closureN)self_731138)->elements[5]; c_731702.elements[7] = ((closureN)self_731138)->elements[6]; c_731702.elements[8] = ((closureN)self_731138)->elements[7]; return_closcall1(data,(closure)&c_731702, quote_quasiquote);; } static void __lambda_83(void *data, int argc, object self_731139, object r_73557) { closureN_type c_731704; c_731704.hdr.mark = gc_color_red; c_731704.hdr.grayed = 0; c_731704.tag = closureN_tag; c_731704.fn = (function_type)__lambda_82; c_731704.num_args = 1; c_731704.num_elements = 8; c_731704.elements = (object *)alloca(sizeof(object) * 8); c_731704.elements[0] = ((closureN)self_731139)->elements[0]; c_731704.elements[1] = ((closureN)self_731139)->elements[1]; c_731704.elements[2] = ((closureN)self_731139)->elements[2]; c_731704.elements[3] = ((closureN)self_731139)->elements[3]; c_731704.elements[4] = ((closureN)self_731139)->elements[4]; c_731704.elements[5] = ((closureN)self_731139)->elements[5]; c_731704.elements[6] = ((closureN)self_731139)->elements[7]; c_731704.elements[7] = ((closureN)self_731139)->elements[8]; return_closcall3(data, __glo__list_scheme_base, &c_731704, r_73557, ((closureN)self_731139)->elements[6]);; } static void __lambda_82(void *data, int argc, object self_731140, object r_73555) { closureN_type c_731706; c_731706.hdr.mark = gc_color_red; c_731706.hdr.grayed = 0; c_731706.tag = closureN_tag; c_731706.fn = (function_type)__lambda_81; c_731706.num_args = 1; c_731706.num_elements = 7; c_731706.elements = (object *)alloca(sizeof(object) * 7); c_731706.elements[0] = ((closureN)self_731140)->elements[0]; c_731706.elements[1] = ((closureN)self_731140)->elements[1]; c_731706.elements[2] = ((closureN)self_731140)->elements[2]; c_731706.elements[3] = ((closureN)self_731140)->elements[3]; c_731706.elements[4] = ((closureN)self_731140)->elements[4]; c_731706.elements[5] = ((closureN)self_731140)->elements[5]; c_731706.elements[6] = r_73555; return_closcall3(data, __glo_get_91toks_scheme_read, &c_731706, ((closureN)self_731140)->elements[6], ((closureN)self_731140)->elements[7]);; } static void __lambda_81(void *data, int argc, object self_731141, object r_73556) { closureN_type c_731708; c_731708.hdr.mark = gc_color_red; c_731708.hdr.grayed = 0; c_731708.tag = closureN_tag; c_731708.fn = (function_type)__lambda_80; c_731708.num_args = 1; c_731708.num_elements = 6; c_731708.elements = (object *)alloca(sizeof(object) * 6); c_731708.elements[0] = ((closureN)self_731141)->elements[0]; c_731708.elements[1] = ((closureN)self_731141)->elements[1]; c_731708.elements[2] = ((closureN)self_731141)->elements[2]; c_731708.elements[3] = ((closureN)self_731141)->elements[3]; c_731708.elements[4] = ((closureN)self_731141)->elements[4]; c_731708.elements[5] = ((closureN)self_731141)->elements[5]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731708, ((closureN)self_731141)->elements[6], r_73556);; } static void __lambda_80(void *data, int argc, object self_731142, object r_73554) { closureN_type c_731710; c_731710.hdr.mark = gc_color_red; c_731710.hdr.grayed = 0; c_731710.tag = closureN_tag; c_731710.fn = (function_type)__lambda_79; c_731710.num_args = 1; c_731710.num_elements = 6; c_731710.elements = (object *)alloca(sizeof(object) * 6); c_731710.elements[0] = ((closureN)self_731142)->elements[0]; c_731710.elements[1] = ((closureN)self_731142)->elements[1]; c_731710.elements[2] = ((closureN)self_731142)->elements[2]; c_731710.elements[3] = ((closureN)self_731142)->elements[3]; c_731710.elements[4] = ((closureN)self_731142)->elements[4]; c_731710.elements[5] = ((closureN)self_731142)->elements[5]; return_closcall1(data,(closure)&c_731710, Cyc_set_car(data, ((closureN)self_731142)->elements[3], r_73554));; } static void __lambda_79(void *data, int argc, object self_731143, object r_73552) { if( (boolean_f != ((closureN)self_731143)->elements[0]) ){ closureN_type c_731713; c_731713.hdr.mark = gc_color_red; c_731713.hdr.grayed = 0; c_731713.tag = closureN_tag; c_731713.fn = (function_type)__lambda_78; c_731713.num_args = 1; c_731713.num_elements = 6; c_731713.elements = (object *)alloca(sizeof(object) * 6); c_731713.elements[0] = ((closureN)self_731143)->elements[0]; c_731713.elements[1] = ((closureN)self_731143)->elements[1]; c_731713.elements[2] = ((closureN)self_731143)->elements[2]; c_731713.elements[3] = ((closureN)self_731143)->elements[3]; c_731713.elements[4] = ((closureN)self_731143)->elements[4]; c_731713.elements[5] = ((closureN)self_731143)->elements[5]; return_closcall1(data,(closure)&c_731713, NULL); } else { return_closcall1(data, ((closureN)self_731143)->elements[2], car(cell_get(((closureN)self_731143)->elements[3])));} ; } static void __lambda_78(void *data, int argc, object self_731144, object r_73553) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731144)->elements[2], ((closureN)self_731144)->elements[1], r_73553, cell_get(((closureN)self_731144)->elements[3]), ((closureN)self_731144)->elements[0], boolean_f, ((closureN)self_731144)->elements[4], ((closureN)self_731144)->elements[5]);; } static void __lambda_77(void *data, int argc, object self_731145, object r_73548) { closureN_type c_731680; c_731680.hdr.mark = gc_color_red; c_731680.hdr.grayed = 0; c_731680.tag = closureN_tag; c_731680.fn = (function_type)__lambda_76; c_731680.num_args = 1; c_731680.num_elements = 2; c_731680.elements = (object *)alloca(sizeof(object) * 2); c_731680.elements[0] = ((closureN)self_731145)->elements[0]; c_731680.elements[1] = ((closureN)self_731145)->elements[2]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_731680, ((closureN)self_731145)->elements[1]);; } static void __lambda_76(void *data, int argc, object self_731146, object r_73550) { closureN_type c_731682; c_731682.hdr.mark = gc_color_red; c_731682.hdr.grayed = 0; c_731682.tag = closureN_tag; c_731682.fn = (function_type)__lambda_75; c_731682.num_args = 1; c_731682.num_elements = 1; c_731682.elements = (object *)alloca(sizeof(object) * 1); c_731682.elements[0] = ((closureN)self_731146)->elements[0]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731682, r_73550, ((closureN)self_731146)->elements[1]);; } static void __lambda_75(void *data, int argc, object self_731147, object r_73549) { return_closcall1(data, ((closureN)self_731147)->elements[0], car(r_73549));; } static void __lambda_74(void *data, int argc, object self_731148, object k_73560) { if( (boolean_f != ((closureN)self_731148)->elements[0]) ){ return_closcall1(data, k_73560, boolean_f); } else { return_closcall2(data, __glo_not_scheme_base, k_73560, Cyc_is_null(((closureN)self_731148)->elements[1]));} ; } static void __lambda_73(void *data, int argc, object self_731149, object r_73531) { if( (boolean_f != r_73531) ){ closureN_type c_731600; c_731600.hdr.mark = gc_color_red; c_731600.hdr.grayed = 0; c_731600.tag = closureN_tag; c_731600.fn = (function_type)__lambda_61; c_731600.num_args = 1; c_731600.num_elements = 3; c_731600.elements = (object *)alloca(sizeof(object) * 3); c_731600.elements[0] = ((closureN)self_731149)->elements[3]; c_731600.elements[1] = ((closureN)self_731149)->elements[6]; c_731600.elements[2] = ((closureN)self_731149)->elements[7]; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731600, ((closureN)self_731149)->elements[5], ((closureN)self_731149)->elements[1]); } else { closureN_type c_731614; c_731614.hdr.mark = gc_color_red; c_731614.hdr.grayed = 0; c_731614.tag = closureN_tag; c_731614.fn = (function_type)__lambda_72; c_731614.num_args = 1; c_731614.num_elements = 7; c_731614.elements = (object *)alloca(sizeof(object) * 7); c_731614.elements[0] = ((closureN)self_731149)->elements[0]; c_731614.elements[1] = ((closureN)self_731149)->elements[2]; c_731614.elements[2] = ((closureN)self_731149)->elements[3]; c_731614.elements[3] = ((closureN)self_731149)->elements[4]; c_731614.elements[4] = ((closureN)self_731149)->elements[5]; c_731614.elements[5] = ((closureN)self_731149)->elements[6]; c_731614.elements[6] = ((closureN)self_731149)->elements[7]; return_closcall1(data,(closure)&c_731614, NULL);} ; } static void __lambda_72(void *data, int argc, object self_731150, object r_73542) { closureN_type c_731616; c_731616.hdr.mark = gc_color_red; c_731616.hdr.grayed = 0; c_731616.tag = closureN_tag; c_731616.fn = (function_type)__lambda_71; c_731616.num_args = 1; c_731616.num_elements = 8; c_731616.elements = (object *)alloca(sizeof(object) * 8); c_731616.elements[0] = ((closureN)self_731150)->elements[0]; c_731616.elements[1] = ((closureN)self_731150)->elements[1]; c_731616.elements[2] = ((closureN)self_731150)->elements[2]; c_731616.elements[3] = ((closureN)self_731150)->elements[3]; c_731616.elements[4] = ((closureN)self_731150)->elements[4]; c_731616.elements[5] = r_73542; c_731616.elements[6] = ((closureN)self_731150)->elements[5]; c_731616.elements[7] = ((closureN)self_731150)->elements[6]; return_closcall1(data,(closure)&c_731616, NULL);; } static void __lambda_71(void *data, int argc, object self_731151, object r_73543) { closureN_type c_731618; c_731618.hdr.mark = gc_color_red; c_731618.hdr.grayed = 0; c_731618.tag = closureN_tag; c_731618.fn = (function_type)__lambda_70; c_731618.num_args = 1; c_731618.num_elements = 7; c_731618.elements = (object *)alloca(sizeof(object) * 7); c_731618.elements[0] = ((closureN)self_731151)->elements[0]; c_731618.elements[1] = ((closureN)self_731151)->elements[1]; c_731618.elements[2] = ((closureN)self_731151)->elements[2]; c_731618.elements[3] = ((closureN)self_731151)->elements[3]; c_731618.elements[4] = ((closureN)self_731151)->elements[4]; c_731618.elements[5] = ((closureN)self_731151)->elements[6]; c_731618.elements[6] = ((closureN)self_731151)->elements[7]; return_closcall8(data, __glo_parse_scheme_read, &c_731618, ((closureN)self_731151)->elements[1], ((closureN)self_731151)->elements[5], r_73543, boolean_f, boolean_f, obj_int2obj(0), ((closureN)self_731151)->elements[4]);; } static void __lambda_70(void *data, int argc, object self_731152, object sub_73231) { closureN_type c_731620; c_731620.hdr.mark = gc_color_red; c_731620.hdr.grayed = 0; c_731620.tag = closureN_tag; c_731620.fn = (function_type)__lambda_69; c_731620.num_args = 1; c_731620.num_elements = 8; c_731620.elements = (object *)alloca(sizeof(object) * 8); c_731620.elements[0] = ((closureN)self_731152)->elements[0]; c_731620.elements[1] = ((closureN)self_731152)->elements[1]; c_731620.elements[2] = ((closureN)self_731152)->elements[2]; c_731620.elements[3] = ((closureN)self_731152)->elements[3]; c_731620.elements[4] = ((closureN)self_731152)->elements[4]; c_731620.elements[5] = sub_73231; c_731620.elements[6] = ((closureN)self_731152)->elements[5]; c_731620.elements[7] = ((closureN)self_731152)->elements[6]; return_closcall1(data,(closure)&c_731620, boolean_f);; } static void __lambda_69(void *data, int argc, object self_731153, object new_91toks_73232) { closureN_type c_731622; c_731622.hdr.mark = gc_color_red; c_731622.hdr.grayed = 0; c_731622.tag = closureN_tag; c_731622.fn = (function_type)__lambda_68; c_731622.num_args = 1; c_731622.num_elements = 8; c_731622.elements = (object *)alloca(sizeof(object) * 8); c_731622.elements[0] = ((closureN)self_731153)->elements[0]; c_731622.elements[1] = ((closureN)self_731153)->elements[1]; c_731622.elements[2] = ((closureN)self_731153)->elements[2]; c_731622.elements[3] = ((closureN)self_731153)->elements[3]; c_731622.elements[4] = ((closureN)self_731153)->elements[4]; c_731622.elements[5] = ((closureN)self_731153)->elements[5]; c_731622.elements[6] = ((closureN)self_731153)->elements[6]; c_731622.elements[7] = ((closureN)self_731153)->elements[7]; make_cell(c_731661,new_91toks_73232); return_closcall1(data,(closure)&c_731622, &c_731661);; } static void __lambda_68(void *data, int argc, object self_731154, object new_91toks_73232) { closureN_type c_731624; c_731624.hdr.mark = gc_color_red; c_731624.hdr.grayed = 0; c_731624.tag = closureN_tag; c_731624.fn = (function_type)__lambda_67; c_731624.num_args = 1; c_731624.num_elements = 9; c_731624.elements = (object *)alloca(sizeof(object) * 9); c_731624.elements[0] = ((closureN)self_731154)->elements[0]; c_731624.elements[1] = ((closureN)self_731154)->elements[1]; c_731624.elements[2] = ((closureN)self_731154)->elements[2]; c_731624.elements[3] = new_91toks_73232; c_731624.elements[4] = ((closureN)self_731154)->elements[3]; c_731624.elements[5] = ((closureN)self_731154)->elements[4]; c_731624.elements[6] = ((closureN)self_731154)->elements[5]; c_731624.elements[7] = ((closureN)self_731154)->elements[6]; c_731624.elements[8] = ((closureN)self_731154)->elements[7]; return_closcall1(data,(closure)&c_731624, quote_quote);; } static void __lambda_67(void *data, int argc, object self_731155, object r_73541) { closureN_type c_731626; c_731626.hdr.mark = gc_color_red; c_731626.hdr.grayed = 0; c_731626.tag = closureN_tag; c_731626.fn = (function_type)__lambda_66; c_731626.num_args = 1; c_731626.num_elements = 8; c_731626.elements = (object *)alloca(sizeof(object) * 8); c_731626.elements[0] = ((closureN)self_731155)->elements[0]; c_731626.elements[1] = ((closureN)self_731155)->elements[1]; c_731626.elements[2] = ((closureN)self_731155)->elements[2]; c_731626.elements[3] = ((closureN)self_731155)->elements[3]; c_731626.elements[4] = ((closureN)self_731155)->elements[4]; c_731626.elements[5] = ((closureN)self_731155)->elements[5]; c_731626.elements[6] = ((closureN)self_731155)->elements[7]; c_731626.elements[7] = ((closureN)self_731155)->elements[8]; return_closcall3(data, __glo__list_scheme_base, &c_731626, r_73541, ((closureN)self_731155)->elements[6]);; } static void __lambda_66(void *data, int argc, object self_731156, object r_73539) { closureN_type c_731628; c_731628.hdr.mark = gc_color_red; c_731628.hdr.grayed = 0; c_731628.tag = closureN_tag; c_731628.fn = (function_type)__lambda_65; c_731628.num_args = 1; c_731628.num_elements = 7; c_731628.elements = (object *)alloca(sizeof(object) * 7); c_731628.elements[0] = ((closureN)self_731156)->elements[0]; c_731628.elements[1] = ((closureN)self_731156)->elements[1]; c_731628.elements[2] = ((closureN)self_731156)->elements[2]; c_731628.elements[3] = ((closureN)self_731156)->elements[3]; c_731628.elements[4] = ((closureN)self_731156)->elements[4]; c_731628.elements[5] = ((closureN)self_731156)->elements[5]; c_731628.elements[6] = r_73539; return_closcall3(data, __glo_get_91toks_scheme_read, &c_731628, ((closureN)self_731156)->elements[6], ((closureN)self_731156)->elements[7]);; } static void __lambda_65(void *data, int argc, object self_731157, object r_73540) { closureN_type c_731630; c_731630.hdr.mark = gc_color_red; c_731630.hdr.grayed = 0; c_731630.tag = closureN_tag; c_731630.fn = (function_type)__lambda_64; c_731630.num_args = 1; c_731630.num_elements = 6; c_731630.elements = (object *)alloca(sizeof(object) * 6); c_731630.elements[0] = ((closureN)self_731157)->elements[0]; c_731630.elements[1] = ((closureN)self_731157)->elements[1]; c_731630.elements[2] = ((closureN)self_731157)->elements[2]; c_731630.elements[3] = ((closureN)self_731157)->elements[3]; c_731630.elements[4] = ((closureN)self_731157)->elements[4]; c_731630.elements[5] = ((closureN)self_731157)->elements[5]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731630, ((closureN)self_731157)->elements[6], r_73540);; } static void __lambda_64(void *data, int argc, object self_731158, object r_73538) { closureN_type c_731632; c_731632.hdr.mark = gc_color_red; c_731632.hdr.grayed = 0; c_731632.tag = closureN_tag; c_731632.fn = (function_type)__lambda_63; c_731632.num_args = 1; c_731632.num_elements = 6; c_731632.elements = (object *)alloca(sizeof(object) * 6); c_731632.elements[0] = ((closureN)self_731158)->elements[0]; c_731632.elements[1] = ((closureN)self_731158)->elements[1]; c_731632.elements[2] = ((closureN)self_731158)->elements[2]; c_731632.elements[3] = ((closureN)self_731158)->elements[3]; c_731632.elements[4] = ((closureN)self_731158)->elements[4]; c_731632.elements[5] = ((closureN)self_731158)->elements[5]; return_closcall1(data,(closure)&c_731632, Cyc_set_car(data, ((closureN)self_731158)->elements[3], r_73538));; } static void __lambda_63(void *data, int argc, object self_731159, object r_73536) { if( (boolean_f != ((closureN)self_731159)->elements[0]) ){ closureN_type c_731635; c_731635.hdr.mark = gc_color_red; c_731635.hdr.grayed = 0; c_731635.tag = closureN_tag; c_731635.fn = (function_type)__lambda_62; c_731635.num_args = 1; c_731635.num_elements = 6; c_731635.elements = (object *)alloca(sizeof(object) * 6); c_731635.elements[0] = ((closureN)self_731159)->elements[0]; c_731635.elements[1] = ((closureN)self_731159)->elements[1]; c_731635.elements[2] = ((closureN)self_731159)->elements[2]; c_731635.elements[3] = ((closureN)self_731159)->elements[3]; c_731635.elements[4] = ((closureN)self_731159)->elements[4]; c_731635.elements[5] = ((closureN)self_731159)->elements[5]; return_closcall1(data,(closure)&c_731635, NULL); } else { return_closcall1(data, ((closureN)self_731159)->elements[2], car(cell_get(((closureN)self_731159)->elements[3])));} ; } static void __lambda_62(void *data, int argc, object self_731160, object r_73537) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731160)->elements[2], ((closureN)self_731160)->elements[1], r_73537, cell_get(((closureN)self_731160)->elements[3]), ((closureN)self_731160)->elements[0], boolean_f, ((closureN)self_731160)->elements[4], ((closureN)self_731160)->elements[5]);; } static void __lambda_61(void *data, int argc, object self_731161, object r_73532) { closureN_type c_731602; c_731602.hdr.mark = gc_color_red; c_731602.hdr.grayed = 0; c_731602.tag = closureN_tag; c_731602.fn = (function_type)__lambda_60; c_731602.num_args = 1; c_731602.num_elements = 2; c_731602.elements = (object *)alloca(sizeof(object) * 2); c_731602.elements[0] = ((closureN)self_731161)->elements[0]; c_731602.elements[1] = ((closureN)self_731161)->elements[2]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_731602, ((closureN)self_731161)->elements[1]);; } static void __lambda_60(void *data, int argc, object self_731162, object r_73534) { closureN_type c_731604; c_731604.hdr.mark = gc_color_red; c_731604.hdr.grayed = 0; c_731604.tag = closureN_tag; c_731604.fn = (function_type)__lambda_59; c_731604.num_args = 1; c_731604.num_elements = 1; c_731604.elements = (object *)alloca(sizeof(object) * 1); c_731604.elements[0] = ((closureN)self_731162)->elements[0]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731604, r_73534, ((closureN)self_731162)->elements[1]);; } static void __lambda_59(void *data, int argc, object self_731163, object r_73533) { return_closcall1(data, ((closureN)self_731163)->elements[0], car(r_73533));; } static void __lambda_58(void *data, int argc, object self_731164, object k_73544) { if( (boolean_f != ((closureN)self_731164)->elements[0]) ){ return_closcall1(data, k_73544, boolean_f); } else { return_closcall2(data, __glo_not_scheme_base, k_73544, Cyc_is_null(((closureN)self_731164)->elements[1]));} ; } static void __lambda_57(void *data, int argc, object self_731165, object r_73521) { closureN_type c_731558; c_731558.hdr.mark = gc_color_red; c_731558.hdr.grayed = 0; c_731558.tag = closureN_tag; c_731558.fn = (function_type)__lambda_55; c_731558.num_args = 0; c_731558.num_elements = 2; c_731558.elements = (object *)alloca(sizeof(object) * 2); c_731558.elements[0] = ((closureN)self_731165)->elements[1]; c_731558.elements[1] = ((closureN)self_731165)->elements[5]; closureN_type c_731565; c_731565.hdr.mark = gc_color_red; c_731565.hdr.grayed = 0; c_731565.tag = closureN_tag; c_731565.fn = (function_type)__lambda_56; c_731565.num_args = 1; c_731565.num_elements = 8; c_731565.elements = (object *)alloca(sizeof(object) * 8); c_731565.elements[0] = ((closureN)self_731165)->elements[0]; c_731565.elements[1] = ((closureN)self_731165)->elements[1]; c_731565.elements[2] = ((closureN)self_731165)->elements[2]; c_731565.elements[3] = ((closureN)self_731165)->elements[3]; c_731565.elements[4] = ((closureN)self_731165)->elements[4]; c_731565.elements[5] = ((closureN)self_731165)->elements[5]; c_731565.elements[6] = ((closureN)self_731165)->elements[6]; c_731565.elements[7] = ((closureN)self_731165)->elements[7]; return_closcall1(data,(closure)&c_731558, &c_731565);; } static void __lambda_56(void *data, int argc, object self_731166, object r_73522) { return_closcall9(data, __glo_parse_95tok_scheme_read, ((closureN)self_731166)->elements[3], ((closureN)self_731166)->elements[2], ((closureN)self_731166)->elements[6], ((closureN)self_731166)->elements[7], ((closureN)self_731166)->elements[0], boolean_f, ((closureN)self_731166)->elements[4], ((closureN)self_731166)->elements[5], ((closureN)self_731166)->elements[1]);; } static void __lambda_55(void *data, int argc, object self_731167, object k_73523) { if( (boolean_f != equalp(((closureN)self_731167)->elements[0], obj_char2obj(10))) ){ return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, k_73523, ((closureN)self_731167)->elements[1], obj_int2obj(0)); } else { return_closcall1(data, k_73523, boolean_f);} ; } static void __lambda_54(void *data, int argc, object self_731168, object k_73525) { if( (boolean_f != equalp(((closureN)self_731168)->elements[0], obj_char2obj(10))) ){ closureN_type c_731545; c_731545.hdr.mark = gc_color_red; c_731545.hdr.grayed = 0; c_731545.tag = closureN_tag; c_731545.fn = (function_type)__lambda_53; c_731545.num_args = 1; c_731545.num_elements = 2; c_731545.elements = (object *)alloca(sizeof(object) * 2); c_731545.elements[0] = k_73525; c_731545.elements[1] = ((closureN)self_731168)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731545, ((closureN)self_731168)->elements[1]); } else { return_closcall1(data, k_73525, boolean_f);} ; } static void __lambda_53(void *data, int argc, object self_731169, object r_73528) { closureN_type c_731547; c_731547.hdr.mark = gc_color_red; c_731547.hdr.grayed = 0; c_731547.tag = closureN_tag; c_731547.fn = (function_type)__lambda_52; c_731547.num_args = 1; c_731547.num_elements = 2; c_731547.elements = (object *)alloca(sizeof(object) * 2); c_731547.elements[0] = ((closureN)self_731169)->elements[0]; c_731547.elements[1] = ((closureN)self_731169)->elements[1]; object c_731553 = Cyc_sum(data,(closure)&c_731547,2,obj_int2obj(1), r_73528); return_closcall1(data,(closure)&c_731547, c_731553);; } static void __lambda_52(void *data, int argc, object self_731170, object r_73527) { return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, ((closureN)self_731170)->elements[0], ((closureN)self_731170)->elements[1], r_73527);; } static void __lambda_51(void *data, int argc, object self_731171, object r_73519) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731171)->elements[2], ((closureN)self_731171)->elements[1], r_73519, ((closureN)self_731171)->elements[5], ((closureN)self_731171)->elements[0], boolean_t, ((closureN)self_731171)->elements[3], ((closureN)self_731171)->elements[4]);; } static void __lambda_50(void *data, int argc, object self_731172, object r_73518) { closureN_type c_731508; c_731508.hdr.mark = gc_color_red; c_731508.hdr.grayed = 0; c_731508.tag = closureN_tag; c_731508.fn = (function_type)__lambda_49; c_731508.num_args = 1; c_731508.num_elements = 6; c_731508.elements = (object *)alloca(sizeof(object) * 6); c_731508.elements[0] = ((closureN)self_731172)->elements[0]; c_731508.elements[1] = ((closureN)self_731172)->elements[1]; c_731508.elements[2] = ((closureN)self_731172)->elements[2]; c_731508.elements[3] = ((closureN)self_731172)->elements[3]; c_731508.elements[4] = ((closureN)self_731172)->elements[4]; c_731508.elements[5] = ((closureN)self_731172)->elements[5]; object c_731526 = Cyc_sum(data,(closure)&c_731508,2,obj_int2obj(1), r_73518); return_closcall1(data,(closure)&c_731508, c_731526);; } static void __lambda_49(void *data, int argc, object self_731173, object r_73517) { closureN_type c_731510; c_731510.hdr.mark = gc_color_red; c_731510.hdr.grayed = 0; c_731510.tag = closureN_tag; c_731510.fn = (function_type)__lambda_48; c_731510.num_args = 1; c_731510.num_elements = 6; c_731510.elements = (object *)alloca(sizeof(object) * 6); c_731510.elements[0] = ((closureN)self_731173)->elements[0]; c_731510.elements[1] = ((closureN)self_731173)->elements[1]; c_731510.elements[2] = ((closureN)self_731173)->elements[2]; c_731510.elements[3] = ((closureN)self_731173)->elements[3]; c_731510.elements[4] = ((closureN)self_731173)->elements[4]; c_731510.elements[5] = ((closureN)self_731173)->elements[5]; return_closcall3(data, __glo_in_91port_117set_91lnum_67_scheme_read, &c_731510, ((closureN)self_731173)->elements[4], r_73517);; } static void __lambda_48(void *data, int argc, object self_731174, object r_73514) { closureN_type c_731512; c_731512.hdr.mark = gc_color_red; c_731512.hdr.grayed = 0; c_731512.tag = closureN_tag; c_731512.fn = (function_type)__lambda_47; c_731512.num_args = 1; c_731512.num_elements = 6; c_731512.elements = (object *)alloca(sizeof(object) * 6); c_731512.elements[0] = ((closureN)self_731174)->elements[0]; c_731512.elements[1] = ((closureN)self_731174)->elements[1]; c_731512.elements[2] = ((closureN)self_731174)->elements[2]; c_731512.elements[3] = ((closureN)self_731174)->elements[3]; c_731512.elements[4] = ((closureN)self_731174)->elements[4]; c_731512.elements[5] = ((closureN)self_731174)->elements[5]; return_closcall3(data, __glo_in_91port_117set_91cnum_67_scheme_read, &c_731512, ((closureN)self_731174)->elements[4], obj_int2obj(0));; } static void __lambda_47(void *data, int argc, object self_731175, object r_73515) { closureN_type c_731514; c_731514.hdr.mark = gc_color_red; c_731514.hdr.grayed = 0; c_731514.tag = closureN_tag; c_731514.fn = (function_type)__lambda_46; c_731514.num_args = 1; c_731514.num_elements = 6; c_731514.elements = (object *)alloca(sizeof(object) * 6); c_731514.elements[0] = ((closureN)self_731175)->elements[0]; c_731514.elements[1] = ((closureN)self_731175)->elements[1]; c_731514.elements[2] = ((closureN)self_731175)->elements[2]; c_731514.elements[3] = ((closureN)self_731175)->elements[3]; c_731514.elements[4] = ((closureN)self_731175)->elements[4]; c_731514.elements[5] = ((closureN)self_731175)->elements[5]; return_closcall1(data,(closure)&c_731514, NULL);; } static void __lambda_46(void *data, int argc, object self_731176, object r_73516) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731176)->elements[2], ((closureN)self_731176)->elements[1], r_73516, ((closureN)self_731176)->elements[5], ((closureN)self_731176)->elements[0], boolean_f, ((closureN)self_731176)->elements[3], ((closureN)self_731176)->elements[4]);; } static void __lambda_45(void *data, int argc, object self_731177, object r_73504) { if( (boolean_f != ((closureN)self_731177)->elements[0]) ){ closureN_type c_731477; c_731477.hdr.mark = gc_color_red; c_731477.hdr.grayed = 0; c_731477.tag = closureN_tag; c_731477.fn = (function_type)__lambda_42; c_731477.num_args = 1; c_731477.num_elements = 1; c_731477.elements = (object *)alloca(sizeof(object) * 1); c_731477.elements[0] = ((closureN)self_731177)->elements[2]; return_closcall3(data, __glo_get_91toks_scheme_read, &c_731477, ((closureN)self_731177)->elements[3], ((closureN)self_731177)->elements[4]); } else { closureN_type c_731483; c_731483.hdr.mark = gc_color_red; c_731483.hdr.grayed = 0; c_731483.tag = closureN_tag; c_731483.fn = (function_type)__lambda_44; c_731483.num_args = 1; c_731483.num_elements = 2; c_731483.elements = (object *)alloca(sizeof(object) * 2); c_731483.elements[0] = ((closureN)self_731177)->elements[1]; c_731483.elements[1] = ((closureN)self_731177)->elements[2]; return_closcall3(data, __glo_get_91toks_scheme_read, &c_731483, ((closureN)self_731177)->elements[3], ((closureN)self_731177)->elements[4]);} ; } static void __lambda_44(void *data, int argc, object self_731178, object last_73233) { closureN_type c_731485; c_731485.hdr.mark = gc_color_red; c_731485.hdr.grayed = 0; c_731485.tag = closureN_tag; c_731485.fn = (function_type)__lambda_43; c_731485.num_args = 1; c_731485.num_elements = 3; c_731485.elements = (object *)alloca(sizeof(object) * 3); c_731485.elements[0] = ((closureN)self_731178)->elements[0]; c_731485.elements[1] = ((closureN)self_731178)->elements[1]; c_731485.elements[2] = last_73233; object c_731496 = Cyc_num_gt(data,(closure)&c_731485,2,Cyc_length(data, last_73233), obj_int2obj(0)); return_closcall1(data,(closure)&c_731485, c_731496);; } static void __lambda_43(void *data, int argc, object self_731179, object r_73507) { if( (boolean_f != r_73507) ){ return_closcall1(data, ((closureN)self_731179)->elements[1], car(((closureN)self_731179)->elements[2])); } else { return_closcall1(data, ((closureN)self_731179)->elements[1], ((closureN)self_731179)->elements[0]);} ; } static void __lambda_42(void *data, int argc, object self_731180, object r_73505) { return_closcall2(data, __glo_reverse_scheme_base, ((closureN)self_731180)->elements[0], r_73505);; } static void __lambda_41(void *data, int argc, object self_731181, object k_73509) { closureN_type c_731457; c_731457.hdr.mark = gc_color_red; c_731457.hdr.grayed = 0; c_731457.tag = closureN_tag; c_731457.fn = (function_type)__lambda_40; c_731457.num_args = 1; c_731457.num_elements = 2; c_731457.elements = (object *)alloca(sizeof(object) * 2); c_731457.elements[0] = k_73509; c_731457.elements[1] = ((closureN)self_731181)->elements[1]; object c_731472 = Cyc_num_gt(data,(closure)&c_731457,2,((closureN)self_731181)->elements[0], obj_int2obj(0)); return_closcall1(data,(closure)&c_731457, c_731472);; } static void __lambda_40(void *data, int argc, object self_731182, object r_73510) { if( (boolean_f != r_73510) ){ closureN_type c_731459; c_731459.hdr.mark = gc_color_red; c_731459.hdr.grayed = 0; c_731459.tag = closureN_tag; c_731459.fn = (function_type)__lambda_39; c_731459.num_args = 1; c_731459.num_elements = 2; c_731459.elements = (object *)alloca(sizeof(object) * 2); c_731459.elements[0] = ((closureN)self_731182)->elements[0]; c_731459.elements[1] = ((closureN)self_731182)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91lnum_scheme_read, &c_731459, ((closureN)self_731182)->elements[1]); } else { return_closcall1(data, ((closureN)self_731182)->elements[0], boolean_f);} ; } static void __lambda_39(void *data, int argc, object self_731183, object r_73511) { closureN_type c_731461; c_731461.hdr.mark = gc_color_red; c_731461.hdr.grayed = 0; c_731461.tag = closureN_tag; c_731461.fn = (function_type)__lambda_38; c_731461.num_args = 1; c_731461.num_elements = 2; c_731461.elements = (object *)alloca(sizeof(object) * 2); c_731461.elements[0] = ((closureN)self_731183)->elements[0]; c_731461.elements[1] = r_73511; return_closcall2(data, __glo_in_91port_117get_91cnum_scheme_read, &c_731461, ((closureN)self_731183)->elements[1]);; } static void __lambda_38(void *data, int argc, object self_731184, object r_73512) { make_string(c_731464, "missing closing parenthesis"); return_closcall4(data, __glo_parse_91error_scheme_read, ((closureN)self_731184)->elements[0], &c_731464, ((closureN)self_731184)->elements[1], r_73512);; } static void __lambda_37(void *data, int argc, object self_731185, object k_73745) { closureN_type c_731427; c_731427.hdr.mark = gc_color_red; c_731427.hdr.grayed = 0; c_731427.tag = closureN_tag; c_731427.fn = (function_type)__lambda_36; c_731427.num_args = 1; c_731427.num_elements = 3; c_731427.elements = (object *)alloca(sizeof(object) * 3); c_731427.elements[0] = ((closureN)self_731185)->elements[0]; c_731427.elements[1] = k_73745; c_731427.elements[2] = ((closureN)self_731185)->elements[1]; return_closcall2(data, __glo_in_91port_117get_91buf_scheme_read, &c_731427, ((closureN)self_731185)->elements[1]);; } static void __lambda_36(void *data, int argc, object self_731186, object r_73746) { if( (boolean_f != r_73746) ){ return_closcall2(data, __glo_in_91port_117read_91buf_67_scheme_read, ((closureN)self_731186)->elements[1], ((closureN)self_731186)->elements[2]); } else { object c_731435 = Cyc_io_read_char(data, ((closureN)self_731186)->elements[1],((closureN)self_731186)->elements[0]); return_closcall1(data, ((closureN)self_731186)->elements[1], c_731435);} ; } static void __lambda_35(void *data, int argc, closure _,object k_73751, object fp_73241, object tok_73240, object toks_73239, object all_127_73238, object comment_127_73237, object parens_73236, object ptbl_73235, object curr_91char_73234) { Cyc_st_add(data, "scheme/read.sld:parse/tok"); if( (boolean_f != Cyc_is_null(tok_73240)) ){ closureN_type c_731380; c_731380.hdr.mark = gc_color_red; c_731380.hdr.grayed = 0; c_731380.tag = closureN_tag; c_731380.fn = (function_type)__lambda_28; c_731380.num_args = 1; c_731380.num_elements = 7; c_731380.elements = (object *)alloca(sizeof(object) * 7); c_731380.elements[0] = all_127_73238; c_731380.elements[1] = comment_127_73237; c_731380.elements[2] = fp_73241; c_731380.elements[3] = k_73751; c_731380.elements[4] = parens_73236; c_731380.elements[5] = ptbl_73235; c_731380.elements[6] = toks_73239; return_closcall1(data,(closure)&c_731380, NULL); } else { if( (boolean_f != all_127_73238) ){ closureN_type c_731390; c_731390.hdr.mark = gc_color_red; c_731390.hdr.grayed = 0; c_731390.tag = closureN_tag; c_731390.fn = (function_type)__lambda_31; c_731390.num_args = 1; c_731390.num_elements = 8; c_731390.elements = (object *)alloca(sizeof(object) * 8); c_731390.elements[0] = all_127_73238; c_731390.elements[1] = comment_127_73237; c_731390.elements[2] = fp_73241; c_731390.elements[3] = k_73751; c_731390.elements[4] = parens_73236; c_731390.elements[5] = ptbl_73235; c_731390.elements[6] = tok_73240; c_731390.elements[7] = toks_73239; return_closcall1(data,(closure)&c_731390, NULL); } else { closureN_type c_731406; c_731406.hdr.mark = gc_color_red; c_731406.hdr.grayed = 0; c_731406.tag = closureN_tag; c_731406.fn = (function_type)__lambda_34; c_731406.num_args = 1; c_731406.num_elements = 3; c_731406.elements = (object *)alloca(sizeof(object) * 3); c_731406.elements[0] = k_73751; c_731406.elements[1] = tok_73240; c_731406.elements[2] = toks_73239; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731406, ptbl_73235, curr_91char_73234);} } ; } static void __lambda_34(void *data, int argc, object self_731187, object r_73757) { closureN_type c_731408; c_731408.hdr.mark = gc_color_red; c_731408.hdr.grayed = 0; c_731408.tag = closureN_tag; c_731408.fn = (function_type)__lambda_33; c_731408.num_args = 1; c_731408.num_elements = 2; c_731408.elements = (object *)alloca(sizeof(object) * 2); c_731408.elements[0] = ((closureN)self_731187)->elements[0]; c_731408.elements[1] = ((closureN)self_731187)->elements[2]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_731408, ((closureN)self_731187)->elements[1]);; } static void __lambda_33(void *data, int argc, object self_731188, object r_73759) { closureN_type c_731410; c_731410.hdr.mark = gc_color_red; c_731410.hdr.grayed = 0; c_731410.tag = closureN_tag; c_731410.fn = (function_type)__lambda_32; c_731410.num_args = 1; c_731410.num_elements = 1; c_731410.elements = (object *)alloca(sizeof(object) * 1); c_731410.elements[0] = ((closureN)self_731188)->elements[0]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731410, r_73759, ((closureN)self_731188)->elements[1]);; } static void __lambda_32(void *data, int argc, object self_731189, object r_73758) { return_closcall1(data, ((closureN)self_731189)->elements[0], car(r_73758));; } static void __lambda_31(void *data, int argc, object self_731190, object r_73754) { closureN_type c_731392; c_731392.hdr.mark = gc_color_red; c_731392.hdr.grayed = 0; c_731392.tag = closureN_tag; c_731392.fn = (function_type)__lambda_30; c_731392.num_args = 1; c_731392.num_elements = 8; c_731392.elements = (object *)alloca(sizeof(object) * 8); c_731392.elements[0] = ((closureN)self_731190)->elements[0]; c_731392.elements[1] = ((closureN)self_731190)->elements[1]; c_731392.elements[2] = ((closureN)self_731190)->elements[2]; c_731392.elements[3] = ((closureN)self_731190)->elements[3]; c_731392.elements[4] = ((closureN)self_731190)->elements[4]; c_731392.elements[5] = ((closureN)self_731190)->elements[5]; c_731392.elements[6] = r_73754; c_731392.elements[7] = ((closureN)self_731190)->elements[7]; return_closcall2(data, __glo__91_125tok_scheme_read, &c_731392, ((closureN)self_731190)->elements[6]);; } static void __lambda_30(void *data, int argc, object self_731191, object r_73756) { closureN_type c_731394; c_731394.hdr.mark = gc_color_red; c_731394.hdr.grayed = 0; c_731394.tag = closureN_tag; c_731394.fn = (function_type)__lambda_29; c_731394.num_args = 1; c_731394.num_elements = 7; c_731394.elements = (object *)alloca(sizeof(object) * 7); c_731394.elements[0] = ((closureN)self_731191)->elements[0]; c_731394.elements[1] = ((closureN)self_731191)->elements[1]; c_731394.elements[2] = ((closureN)self_731191)->elements[2]; c_731394.elements[3] = ((closureN)self_731191)->elements[3]; c_731394.elements[4] = ((closureN)self_731191)->elements[4]; c_731394.elements[5] = ((closureN)self_731191)->elements[5]; c_731394.elements[6] = ((closureN)self_731191)->elements[6]; return_closcall3(data, __glo_add_91tok_scheme_read, &c_731394, r_73756, ((closureN)self_731191)->elements[7]);; } static void __lambda_29(void *data, int argc, object self_731192, object r_73755) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731192)->elements[3], ((closureN)self_731192)->elements[2], ((closureN)self_731192)->elements[6], r_73755, ((closureN)self_731192)->elements[0], ((closureN)self_731192)->elements[1], ((closureN)self_731192)->elements[4], ((closureN)self_731192)->elements[5]);; } static void __lambda_28(void *data, int argc, object self_731193, object r_73753) { return_closcall8(data, __glo_parse_scheme_read, ((closureN)self_731193)->elements[3], ((closureN)self_731193)->elements[2], r_73753, ((closureN)self_731193)->elements[6], ((closureN)self_731193)->elements[0], ((closureN)self_731193)->elements[1], ((closureN)self_731193)->elements[4], ((closureN)self_731193)->elements[5]);; } static void __lambda_27(void *data, int argc, closure _,object k_73762, object msg_73244, object lnum_73243, object cnum_73242) { Cyc_st_add(data, "scheme/read.sld:parse-error"); closureN_type c_731354; c_731354.hdr.mark = gc_color_red; c_731354.hdr.grayed = 0; c_731354.tag = closureN_tag; c_731354.fn = (function_type)__lambda_26; c_731354.num_args = 1; c_731354.num_elements = 3; c_731354.elements = (object *)alloca(sizeof(object) * 3); c_731354.elements[0] = cnum_73242; c_731354.elements[1] = k_73762; c_731354.elements[2] = msg_73244; object c_731375 = Cyc_number2string2(data,(closure)&c_731354,1,lnum_73243); return_closcall1(data,(closure)&c_731354, c_731375);; } static void __lambda_26(void *data, int argc, object self_731194, object r_73764) { closureN_type c_731356; c_731356.hdr.mark = gc_color_red; c_731356.hdr.grayed = 0; c_731356.tag = closureN_tag; c_731356.fn = (function_type)__lambda_25; c_731356.num_args = 1; c_731356.num_elements = 3; c_731356.elements = (object *)alloca(sizeof(object) * 3); c_731356.elements[0] = ((closureN)self_731194)->elements[1]; c_731356.elements[1] = ((closureN)self_731194)->elements[2]; c_731356.elements[2] = r_73764; object c_731371 = Cyc_number2string2(data,(closure)&c_731356,1,((closureN)self_731194)->elements[0]); return_closcall1(data,(closure)&c_731356, c_731371);; } static void __lambda_25(void *data, int argc, object self_731195, object r_73765) { closureN_type c_731358; c_731358.hdr.mark = gc_color_red; c_731358.hdr.grayed = 0; c_731358.tag = closureN_tag; c_731358.fn = (function_type)__lambda_24; c_731358.num_args = 1; c_731358.num_elements = 1; c_731358.elements = (object *)alloca(sizeof(object) * 1); c_731358.elements[0] = ((closureN)self_731195)->elements[0]; make_string(c_731364, "Error (line "); make_string(c_731366, ", char "); make_string(c_731367, "): "); object c_731363 = Cyc_string_append(data,(closure)&c_731358,6,&c_731364, ((closureN)self_731195)->elements[2], &c_731366, r_73765, &c_731367, ((closureN)self_731195)->elements[1]); return_closcall1(data,(closure)&c_731358, c_731363);; } static void __lambda_24(void *data, int argc, object self_731196, object r_73763) { return_closcall2(data, __glo_error_scheme_base, ((closureN)self_731196)->elements[0], r_73763);; } static void __lambda_23(void *data, int argc, closure _,object k_73768, object lst_73245) { Cyc_st_add(data, "scheme/read.sld:->dotted-list"); if( (boolean_f != Cyc_is_null(lst_73245)) ){ return_closcall1(data, k_73768, NULL); } else { make_string(c_731336, "."); if( (boolean_f != equalp(car(lst_73245), Cyc_string2symbol(data, &c_731336))) ){ return_closcall1(data, k_73768, cadr(lst_73245)); } else { closureN_type c_731341; c_731341.hdr.mark = gc_color_red; c_731341.hdr.grayed = 0; c_731341.tag = closureN_tag; c_731341.fn = (function_type)__lambda_22; c_731341.num_args = 1; c_731341.num_elements = 2; c_731341.elements = (object *)alloca(sizeof(object) * 2); c_731341.elements[0] = k_73768; c_731341.elements[1] = lst_73245; return_closcall2(data, __glo__91_125dotted_91list_scheme_read, &c_731341, cdr(lst_73245));} } ; } static void __lambda_22(void *data, int argc, object self_731197, object r_73772) { make_pair(c_731346,car(((closureN)self_731197)->elements[1]), r_73772); return_closcall1(data, ((closureN)self_731197)->elements[0], &c_731346);; } static void __lambda_21(void *data, int argc, closure _,object k_73778, object lst_73246) { Cyc_st_add(data, "scheme/read.sld:dotted?"); closureN_type c_731306; c_731306.hdr.mark = gc_color_red; c_731306.hdr.grayed = 0; c_731306.tag = closureN_tag; c_731306.fn = (function_type)__lambda_20; c_731306.num_args = 1; c_731306.num_elements = 2; c_731306.elements = (object *)alloca(sizeof(object) * 2); c_731306.elements[0] = k_73778; c_731306.elements[1] = lst_73246; object c_731323 = Cyc_num_gt(data,(closure)&c_731306,2,Cyc_length(data, lst_73246), obj_int2obj(2)); return_closcall1(data,(closure)&c_731306, c_731323);; } static void __lambda_20(void *data, int argc, object self_731198, object r_73779) { if( (boolean_f != r_73779) ){ closureN_type c_731308; c_731308.hdr.mark = gc_color_red; c_731308.hdr.grayed = 0; c_731308.tag = closureN_tag; c_731308.fn = (function_type)__lambda_19; c_731308.num_args = 1; c_731308.num_elements = 1; c_731308.elements = (object *)alloca(sizeof(object) * 1); c_731308.elements[0] = ((closureN)self_731198)->elements[0]; return_closcall2(data, __glo_reverse_scheme_base, &c_731308, ((closureN)self_731198)->elements[1]); } else { return_closcall1(data, ((closureN)self_731198)->elements[0], boolean_f);} ; } static void __lambda_19(void *data, int argc, object self_731199, object r_73782) { make_string(c_731317, "."); return_closcall1(data, ((closureN)self_731199)->elements[0], equalp(cadr(r_73782), Cyc_string2symbol(data, &c_731317)));; } static void __lambda_18(void *data, int argc, closure _,object k_73786, object lst_73247) { Cyc_st_add(data, "scheme/read.sld:->tok"); closureN_type c_731301; c_731301.hdr.mark = gc_color_red; c_731301.hdr.grayed = 0; c_731301.tag = closureN_tag; c_731301.fn = (function_type)__lambda_17; c_731301.num_args = 1; c_731301.num_elements = 1; c_731301.elements = (object *)alloca(sizeof(object) * 1); c_731301.elements[0] = k_73786; return_closcall2(data, __glo_reverse_scheme_base, &c_731301, lst_73247);; } static void __lambda_17(void *data, int argc, object self_731200, object r_73787) { return_closcall2(data, __glo_parse_91atom_scheme_read, ((closureN)self_731200)->elements[0], r_73787);; } static void __lambda_16(void *data, int argc, closure _,object k_73790, object tok_73249, object toks_73248) { Cyc_st_add(data, "scheme/read.sld:get-toks"); if( (boolean_f != Cyc_is_null(tok_73249)) ){ return_closcall1(data, k_73790, toks_73248); } else { closureN_type c_731295; c_731295.hdr.mark = gc_color_red; c_731295.hdr.grayed = 0; c_731295.tag = closureN_tag; c_731295.fn = (function_type)__lambda_15; c_731295.num_args = 1; c_731295.num_elements = 2; c_731295.elements = (object *)alloca(sizeof(object) * 2); c_731295.elements[0] = k_73790; c_731295.elements[1] = toks_73248; return_closcall2(data, __glo__91_125tok_scheme_read, &c_731295, tok_73249);} ; } static void __lambda_15(void *data, int argc, object self_731201, object r_73792) { return_closcall3(data, __glo_add_91tok_scheme_read, ((closureN)self_731201)->elements[0], r_73792, ((closureN)self_731201)->elements[1]);; } static void __lambda_14(void *data, int argc, closure _,object k_73795, object tok_73251, object toks_73250) { Cyc_st_add(data, "scheme/read.sld:add-tok"); make_pair(c_731289,tok_73251, toks_73250); return_closcall1(data, k_73795, &c_731289);; } static void __lambda_13(void *data, int argc, closure _,object k_73798, object ptbl_73253, object cnum_73252) { Cyc_st_add(data, "scheme/read.sld:in-port:set-cnum!"); return_closcall1(data, k_73798, Cyc_set_car(data, cdddr(ptbl_73253), cnum_73252));; } static void __lambda_12(void *data, int argc, closure _,object k_73802, object ptbl_73254) { Cyc_st_add(data, "scheme/read.sld:in-port:get-cnum"); return_closcall1(data, k_73802, cadddr(ptbl_73254));; } static void __lambda_11(void *data, int argc, closure _,object k_73805, object ptbl_73256, object lnum_73255) { Cyc_st_add(data, "scheme/read.sld:in-port:set-lnum!"); return_closcall1(data, k_73805, Cyc_set_car(data, cddr(ptbl_73256), lnum_73255));; } static void __lambda_10(void *data, int argc, closure _,object k_73809, object ptbl_73257) { Cyc_st_add(data, "scheme/read.sld:in-port:get-lnum"); return_closcall1(data, k_73809, caddr(ptbl_73257));; } static void __lambda_9(void *data, int argc, closure _,object k_73812, object ptbl_73259, object buf_73258) { Cyc_st_add(data, "scheme/read.sld:in-port:set-buf!"); return_closcall1(data, k_73812, Cyc_set_car(data, cdr(ptbl_73259), buf_73258));; } static void __lambda_8(void *data, int argc, closure _,object k_73816, object ptbl_73260) { Cyc_st_add(data, "scheme/read.sld:in-port:get-buf"); return_closcall1(data, k_73816, cadr(ptbl_73260));; } static void __lambda_7(void *data, int argc, closure _,object k_73819, object ptbl_73261) { Cyc_st_add(data, "scheme/read.sld:in-port:read-buf!"); closureN_type c_731249; c_731249.hdr.mark = gc_color_red; c_731249.hdr.grayed = 0; c_731249.tag = closureN_tag; c_731249.fn = (function_type)__lambda_6; c_731249.num_args = 1; c_731249.num_elements = 2; c_731249.elements = (object *)alloca(sizeof(object) * 2); c_731249.elements[0] = k_73819; c_731249.elements[1] = ptbl_73261; return_closcall3(data, __glo_in_91port_117set_91buf_67_scheme_read, &c_731249, ptbl_73261, boolean_f);; } static void __lambda_6(void *data, int argc, object self_731202, object r_73821) { return_closcall1(data, ((closureN)self_731202)->elements[0], cadr(((closureN)self_731202)->elements[1]));; } static void __lambda_5(void *data, int argc, closure _,object k_73824, object fp_73263) { Cyc_st_add(data, "scheme/read.sld:reg-port"); closureN_type c_731210; c_731210.hdr.mark = gc_color_red; c_731210.hdr.grayed = 0; c_731210.tag = closureN_tag; c_731210.fn = (function_type)__lambda_4; c_731210.num_args = 1; c_731210.num_elements = 2; c_731210.elements = (object *)alloca(sizeof(object) * 2); c_731210.elements[0] = fp_73263; c_731210.elements[1] = k_73824; return_closcall1(data,(closure)&c_731210, assoc(data, fp_73263, __glo__85in_91port_91table_85_scheme_read));; } static void __lambda_4(void *data, int argc, object self_731203, object r_73264) { closureN_type c_731212; c_731212.hdr.mark = gc_color_red; c_731212.hdr.grayed = 0; c_731212.tag = closureN_tag; c_731212.fn = (function_type)__lambda_3; c_731212.num_args = 1; c_731212.num_elements = 2; c_731212.elements = (object *)alloca(sizeof(object) * 2); c_731212.elements[0] = ((closureN)self_731203)->elements[0]; c_731212.elements[1] = ((closureN)self_731203)->elements[1]; make_cell(c_731244,r_73264); return_closcall1(data,(closure)&c_731212, &c_731244);; } static void __lambda_3(void *data, int argc, object self_731204, object r_73264) { if( (boolean_f != cell_get(r_73264)) ){ return_closcall1(data, ((closureN)self_731204)->elements[1], cell_get(r_73264)); } else { closureN_type c_731220; c_731220.hdr.mark = gc_color_red; c_731220.hdr.grayed = 0; c_731220.tag = closureN_tag; c_731220.fn = (function_type)__lambda_2; c_731220.num_args = 1; c_731220.num_elements = 2; c_731220.elements = (object *)alloca(sizeof(object) * 2); c_731220.elements[0] = ((closureN)self_731204)->elements[1]; c_731220.elements[1] = r_73264; return_closcall5(data, __glo__list_scheme_base, &c_731220, ((closureN)self_731204)->elements[0], boolean_f, obj_int2obj(1), obj_int2obj(0));} ; } static void __lambda_2(void *data, int argc, object self_731205, object r_73829) { closureN_type c_731222; c_731222.hdr.mark = gc_color_red; c_731222.hdr.grayed = 0; c_731222.tag = closureN_tag; c_731222.fn = (function_type)__lambda_1; c_731222.num_args = 1; c_731222.num_elements = 2; c_731222.elements = (object *)alloca(sizeof(object) * 2); c_731222.elements[0] = ((closureN)self_731205)->elements[0]; c_731222.elements[1] = ((closureN)self_731205)->elements[1]; return_closcall1(data,(closure)&c_731222, Cyc_set_car(data, ((closureN)self_731205)->elements[1], r_73829));; } static void __lambda_1(void *data, int argc, object self_731206, object r_73826) { closureN_type c_731224; c_731224.hdr.mark = gc_color_red; c_731224.hdr.grayed = 0; c_731224.tag = closureN_tag; c_731224.fn = (function_type)__lambda_0; c_731224.num_args = 1; c_731224.num_elements = 2; c_731224.elements = (object *)alloca(sizeof(object) * 2); c_731224.elements[0] = ((closureN)self_731206)->elements[0]; c_731224.elements[1] = ((closureN)self_731206)->elements[1]; make_pair(c_731234,cell_get(((closureN)self_731206)->elements[1]), __glo__85in_91port_91table_85_scheme_read); return_closcall1(data,(closure)&c_731224, global_set(__glo__85in_91port_91table_85_scheme_read, &c_731234));; } static void __lambda_0(void *data, int argc, object self_731207, object r_73827) { return_closcall1(data, ((closureN)self_731207)->elements[0], cell_get(((closureN)self_731207)->elements[1]));; } void c_schemeread_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{ quote_DEBUG = find_or_add_symbol("DEBUG"); quote_read = find_or_add_symbol("read"); quote_unquote = find_or_add_symbol("unquote"); quote_unquote_91splicing = find_or_add_symbol("unquote-splicing"); quote_quasiquote = find_or_add_symbol("quasiquote"); quote_quote = find_or_add_symbol("quote"); add_global((object *) &__glo_lib_91init_117schemeread_scheme_read); add_global((object *) &__glo_read_91all_scheme_read); add_global((object *) &__glo_cyc_91read_scheme_read); add_global((object *) &__glo_hex_91digit_127_scheme_read); add_global((object *) &__glo_parse_91number_91rec_scheme_read); add_global((object *) &__glo_parse_91number_scheme_read); add_global((object *) &__glo_parse_91li_91rec_scheme_read); add_global((object *) &__glo_parse_91literal_91identifier_scheme_read); add_global((object *) &__glo_read_91block_91terminator_scheme_read); add_global((object *) &__glo_read_91block_91comment_scheme_read); add_global((object *) &__glo_get_91next_91char_scheme_read); add_global((object *) &__glo_parse_91atom_scheme_read); add_global((object *) &__glo_token_91numeric_127_scheme_read); add_global((object *) &__glo_sign_127_scheme_read); add_global((object *) &__glo_read_91str_91esc_scheme_read); add_global((object *) &__glo_read_91str_scheme_read); add_global((object *) &__glo_read_91pound_scheme_read); add_global((object *) &__glo_parse_scheme_read); add_global((object *) &__glo_parse_95tok_scheme_read); add_global((object *) &__glo_parse_91error_scheme_read); add_global((object *) &__glo__91_125dotted_91list_scheme_read); add_global((object *) &__glo_dotted_127_scheme_read); add_global((object *) &__glo__91_125tok_scheme_read); add_global((object *) &__glo_get_91toks_scheme_read); add_global((object *) &__glo_add_91tok_scheme_read); add_global((object *) &__glo_in_91port_117set_91cnum_67_scheme_read); add_global((object *) &__glo_in_91port_117get_91cnum_scheme_read); add_global((object *) &__glo_in_91port_117set_91lnum_67_scheme_read); add_global((object *) &__glo_in_91port_117get_91lnum_scheme_read); add_global((object *) &__glo_in_91port_117set_91buf_67_scheme_read); add_global((object *) &__glo_in_91port_117get_91buf_scheme_read); add_global((object *) &__glo_in_91port_117read_91buf_67_scheme_read); add_global((object *) &__glo_reg_91port_scheme_read); add_global((object *) &__glo__85in_91port_91table_85_scheme_read); add_global((object *) &__glo_read_scheme_read); add_symbol(quote_DEBUG); add_symbol(quote_read); add_symbol(quote_unquote); add_symbol(quote_unquote_91splicing); add_symbol(quote_quasiquote); add_symbol(quote_quote); mclosure0(c_733648, (function_type)__lambda_406);c_733648.num_args = 0; __glo_lib_91init_117schemeread_scheme_read = &c_733648; mclosure0(c_733596, (function_type)__lambda_403);c_733596.num_args = 0; __glo_read_91all_scheme_read = &c_733596; mclosure0(c_733572, (function_type)__lambda_393);c_733572.num_args = 0; __glo_cyc_91read_scheme_read = &c_733572; mclosure0(c_733550, (function_type)__lambda_387);c_733550.num_args = 1; __glo_hex_91digit_127_scheme_read = &c_733550; mclosure0(c_733442, (function_type)__lambda_382);c_733442.num_args = 4; __glo_parse_91number_91rec_scheme_read = &c_733442; mclosure0(c_733369, (function_type)__lambda_361);c_733369.num_args = 7; __glo_parse_91number_scheme_read = &c_733369; mclosure0(c_733317, (function_type)__lambda_349);c_733317.num_args = 3; __glo_parse_91li_91rec_scheme_read = &c_733317; mclosure0(c_733294, (function_type)__lambda_339);c_733294.num_args = 5; __glo_parse_91literal_91identifier_scheme_read = &c_733294; mclosure0(c_733277, (function_type)__lambda_335);c_733277.num_args = 2; __glo_read_91block_91terminator_scheme_read = &c_733277; mclosure0(c_733264, (function_type)__lambda_333);c_733264.num_args = 2; __glo_read_91block_91comment_scheme_read = &c_733264; mclosure0(c_733252, (function_type)__lambda_331);c_733252.num_args = 2; __glo_get_91next_91char_scheme_read = &c_733252; mclosure0(c_733228, (function_type)__lambda_329);c_733228.num_args = 1; __glo_parse_91atom_scheme_read = &c_733228; mclosure0(c_733160, (function_type)__lambda_325);c_733160.num_args = 1; __glo_token_91numeric_127_scheme_read = &c_733160; mclosure0(c_733151, (function_type)__lambda_316);c_733151.num_args = 1; __glo_sign_127_scheme_read = &c_733151; mclosure0(c_733078, (function_type)__lambda_315);c_733078.num_args = 3; __glo_read_91str_91esc_scheme_read = &c_733078; mclosure0(c_733031, (function_type)__lambda_304);c_733031.num_args = 3; __glo_read_91str_scheme_read = &c_733031; mclosure0(c_732719, (function_type)__lambda_298);c_732719.num_args = 2; __glo_read_91pound_scheme_read = &c_732719; mclosure0(c_731417, (function_type)__lambda_256);c_731417.num_args = 7; __glo_parse_scheme_read = &c_731417; mclosure0(c_731376, (function_type)__lambda_35);c_731376.num_args = 8; __glo_parse_95tok_scheme_read = &c_731376; mclosure0(c_731352, (function_type)__lambda_27);c_731352.num_args = 3; __glo_parse_91error_scheme_read = &c_731352; mclosure0(c_731326, (function_type)__lambda_23);c_731326.num_args = 1; __glo__91_125dotted_91list_scheme_read = &c_731326; mclosure0(c_731304, (function_type)__lambda_21);c_731304.num_args = 1; __glo_dotted_127_scheme_read = &c_731304; mclosure0(c_731299, (function_type)__lambda_18);c_731299.num_args = 1; __glo__91_125tok_scheme_read = &c_731299; mclosure0(c_731290, (function_type)__lambda_16);c_731290.num_args = 2; __glo_get_91toks_scheme_read = &c_731290; mclosure0(c_731285, (function_type)__lambda_14);c_731285.num_args = 2; __glo_add_91tok_scheme_read = &c_731285; mclosure0(c_731279, (function_type)__lambda_13);c_731279.num_args = 2; __glo_in_91port_117set_91cnum_67_scheme_read = &c_731279; mclosure0(c_731275, (function_type)__lambda_12);c_731275.num_args = 1; __glo_in_91port_117get_91cnum_scheme_read = &c_731275; mclosure0(c_731269, (function_type)__lambda_11);c_731269.num_args = 2; __glo_in_91port_117set_91lnum_67_scheme_read = &c_731269; mclosure0(c_731265, (function_type)__lambda_10);c_731265.num_args = 1; __glo_in_91port_117get_91lnum_scheme_read = &c_731265; mclosure0(c_731259, (function_type)__lambda_9);c_731259.num_args = 2; __glo_in_91port_117set_91buf_67_scheme_read = &c_731259; mclosure0(c_731255, (function_type)__lambda_8);c_731255.num_args = 1; __glo_in_91port_117get_91buf_scheme_read = &c_731255; mclosure0(c_731247, (function_type)__lambda_7);c_731247.num_args = 1; __glo_in_91port_117read_91buf_67_scheme_read = &c_731247; mclosure0(c_731208, (function_type)__lambda_5);c_731208.num_args = 1; __glo_reg_91port_scheme_read = &c_731208; __glo__85in_91port_91table_85_scheme_read = boolean_f; __glo_read_scheme_read = boolean_f; make_cvar(cvar_733659, (object *)&__glo_lib_91init_117schemeread_scheme_read);make_pair(pair_733660, find_or_add_symbol("lib-init:schemeread"), &cvar_733659); make_cvar(cvar_733661, (object *)&__glo_read_91all_scheme_read);make_pair(pair_733662, find_or_add_symbol("read-all"), &cvar_733661); make_cvar(cvar_733663, (object *)&__glo_cyc_91read_scheme_read);make_pair(pair_733664, find_or_add_symbol("cyc-read"), &cvar_733663); make_cvar(cvar_733665, (object *)&__glo_hex_91digit_127_scheme_read);make_pair(pair_733666, find_or_add_symbol("hex-digit?"), &cvar_733665); make_cvar(cvar_733667, (object *)&__glo_parse_91number_91rec_scheme_read);make_pair(pair_733668, find_or_add_symbol("parse-number-rec"), &cvar_733667); make_cvar(cvar_733669, (object *)&__glo_parse_91number_scheme_read);make_pair(pair_733670, find_or_add_symbol("parse-number"), &cvar_733669); make_cvar(cvar_733671, (object *)&__glo_parse_91li_91rec_scheme_read);make_pair(pair_733672, find_or_add_symbol("parse-li-rec"), &cvar_733671); make_cvar(cvar_733673, (object *)&__glo_parse_91literal_91identifier_scheme_read);make_pair(pair_733674, find_or_add_symbol("parse-literal-identifier"), &cvar_733673); make_cvar(cvar_733675, (object *)&__glo_read_91block_91terminator_scheme_read);make_pair(pair_733676, find_or_add_symbol("read-block-terminator"), &cvar_733675); make_cvar(cvar_733677, (object *)&__glo_read_91block_91comment_scheme_read);make_pair(pair_733678, find_or_add_symbol("read-block-comment"), &cvar_733677); make_cvar(cvar_733679, (object *)&__glo_get_91next_91char_scheme_read);make_pair(pair_733680, find_or_add_symbol("get-next-char"), &cvar_733679); make_cvar(cvar_733681, (object *)&__glo_parse_91atom_scheme_read);make_pair(pair_733682, find_or_add_symbol("parse-atom"), &cvar_733681); make_cvar(cvar_733683, (object *)&__glo_token_91numeric_127_scheme_read);make_pair(pair_733684, find_or_add_symbol("token-numeric?"), &cvar_733683); make_cvar(cvar_733685, (object *)&__glo_sign_127_scheme_read);make_pair(pair_733686, find_or_add_symbol("sign?"), &cvar_733685); make_cvar(cvar_733687, (object *)&__glo_read_91str_91esc_scheme_read);make_pair(pair_733688, find_or_add_symbol("read-str-esc"), &cvar_733687); make_cvar(cvar_733689, (object *)&__glo_read_91str_scheme_read);make_pair(pair_733690, find_or_add_symbol("read-str"), &cvar_733689); make_cvar(cvar_733691, (object *)&__glo_read_91pound_scheme_read);make_pair(pair_733692, find_or_add_symbol("read-pound"), &cvar_733691); make_cvar(cvar_733693, (object *)&__glo_parse_scheme_read);make_pair(pair_733694, find_or_add_symbol("parse"), &cvar_733693); make_cvar(cvar_733695, (object *)&__glo_parse_95tok_scheme_read);make_pair(pair_733696, find_or_add_symbol("parse/tok"), &cvar_733695); make_cvar(cvar_733697, (object *)&__glo_parse_91error_scheme_read);make_pair(pair_733698, find_or_add_symbol("parse-error"), &cvar_733697); make_cvar(cvar_733699, (object *)&__glo__91_125dotted_91list_scheme_read);make_pair(pair_733700, find_or_add_symbol("->dotted-list"), &cvar_733699); make_cvar(cvar_733701, (object *)&__glo_dotted_127_scheme_read);make_pair(pair_733702, find_or_add_symbol("dotted?"), &cvar_733701); make_cvar(cvar_733703, (object *)&__glo__91_125tok_scheme_read);make_pair(pair_733704, find_or_add_symbol("->tok"), &cvar_733703); make_cvar(cvar_733705, (object *)&__glo_get_91toks_scheme_read);make_pair(pair_733706, find_or_add_symbol("get-toks"), &cvar_733705); make_cvar(cvar_733707, (object *)&__glo_add_91tok_scheme_read);make_pair(pair_733708, find_or_add_symbol("add-tok"), &cvar_733707); make_cvar(cvar_733709, (object *)&__glo_in_91port_117set_91cnum_67_scheme_read);make_pair(pair_733710, find_or_add_symbol("in-port:set-cnum!"), &cvar_733709); make_cvar(cvar_733711, (object *)&__glo_in_91port_117get_91cnum_scheme_read);make_pair(pair_733712, find_or_add_symbol("in-port:get-cnum"), &cvar_733711); make_cvar(cvar_733713, (object *)&__glo_in_91port_117set_91lnum_67_scheme_read);make_pair(pair_733714, find_or_add_symbol("in-port:set-lnum!"), &cvar_733713); make_cvar(cvar_733715, (object *)&__glo_in_91port_117get_91lnum_scheme_read);make_pair(pair_733716, find_or_add_symbol("in-port:get-lnum"), &cvar_733715); make_cvar(cvar_733717, (object *)&__glo_in_91port_117set_91buf_67_scheme_read);make_pair(pair_733718, find_or_add_symbol("in-port:set-buf!"), &cvar_733717); make_cvar(cvar_733719, (object *)&__glo_in_91port_117get_91buf_scheme_read);make_pair(pair_733720, find_or_add_symbol("in-port:get-buf"), &cvar_733719); make_cvar(cvar_733721, (object *)&__glo_in_91port_117read_91buf_67_scheme_read);make_pair(pair_733722, find_or_add_symbol("in-port:read-buf!"), &cvar_733721); make_cvar(cvar_733723, (object *)&__glo_reg_91port_scheme_read);make_pair(pair_733724, find_or_add_symbol("reg-port"), &cvar_733723); make_cvar(cvar_733725, (object *)&__glo__85in_91port_91table_85_scheme_read);make_pair(pair_733726, find_or_add_symbol("*in-port-table*"), &cvar_733725); make_cvar(cvar_733727, (object *)&__glo_read_scheme_read);make_pair(pair_733728, find_or_add_symbol("read"), &cvar_733727); make_pair(c_733729, &pair_733660,Cyc_global_variables); make_pair(c_733730, &pair_733662, &c_733729); make_pair(c_733731, &pair_733664, &c_733730); make_pair(c_733732, &pair_733666, &c_733731); make_pair(c_733733, &pair_733668, &c_733732); make_pair(c_733734, &pair_733670, &c_733733); make_pair(c_733735, &pair_733672, &c_733734); make_pair(c_733736, &pair_733674, &c_733735); make_pair(c_733737, &pair_733676, &c_733736); make_pair(c_733738, &pair_733678, &c_733737); make_pair(c_733739, &pair_733680, &c_733738); make_pair(c_733740, &pair_733682, &c_733739); make_pair(c_733741, &pair_733684, &c_733740); make_pair(c_733742, &pair_733686, &c_733741); make_pair(c_733743, &pair_733688, &c_733742); make_pair(c_733744, &pair_733690, &c_733743); make_pair(c_733745, &pair_733692, &c_733744); make_pair(c_733746, &pair_733694, &c_733745); make_pair(c_733747, &pair_733696, &c_733746); make_pair(c_733748, &pair_733698, &c_733747); make_pair(c_733749, &pair_733700, &c_733748); make_pair(c_733750, &pair_733702, &c_733749); make_pair(c_733751, &pair_733704, &c_733750); make_pair(c_733752, &pair_733706, &c_733751); make_pair(c_733753, &pair_733708, &c_733752); make_pair(c_733754, &pair_733710, &c_733753); make_pair(c_733755, &pair_733712, &c_733754); make_pair(c_733756, &pair_733714, &c_733755); make_pair(c_733757, &pair_733716, &c_733756); make_pair(c_733758, &pair_733718, &c_733757); make_pair(c_733759, &pair_733720, &c_733758); make_pair(c_733760, &pair_733722, &c_733759); make_pair(c_733761, &pair_733724, &c_733760); make_pair(c_733762, &pair_733726, &c_733761); make_pair(c_733763, &pair_733728, &c_733762); Cyc_global_variables = &c_733763; cont = ((closure1_type *)cont)->element; (((closure)__glo_lib_91init_117schemeread_scheme_read)->fn)(data, 1, cont, cont); }