/*===========================================================================*/ /* (blib.scm) */ /* Bigloo (3.0c) */ /* Inria -- Sophia Antipolis (c) Tue Dec 11 11:07:30 CET 2007 */ /*===========================================================================*/ /* COMPILATION: (/usr/bin/bigloo -cc /home/ambro/roadsend-cross-build/bin/gcc-ignoremarch -mkaddlib -unsafev -copt -DPCC_LINUX -srfi PCC_LINUX -O3 -copt -D_GNU_SOURCE -g -copt -fPIC -c blib.scm -o blib_s.o)*/ /* GC selection */ #define THE_GC BOEHM_GC /* debug mode */ #define BIGLOO_DEBUG 1 #include #include #include #include #include #ifdef __cplusplus extern "C" { #endif /* Object type definitions */ typedef struct BgL_z62processzd2exceptionzb0_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62processzd2exceptionzb0_bglt; typedef struct BgL_z62iozd2parsezd2errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2parsezd2errorz62_bglt; typedef struct BgL_z62iozd2writezd2errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2writezd2errorz62_bglt; typedef struct BgL_z62iozd2errorzb0_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2errorzb0_bglt; typedef struct BgL_z62iozd2readzd2errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2readzd2errorz62_bglt; typedef struct BgL_z62typezd2errorzb0_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; obj_t BgL_typez00; } *BgL_z62typezd2errorzb0_bglt; typedef struct BgL_z62errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62errorz62_bglt; typedef struct BgL_z62iozd2portzd2errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2portzd2errorz62_bglt; typedef struct BgL_z62iozd2malformedzd2urlzd2errorzb0_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt; typedef struct BgL_z62iozd2filezd2notzd2foundzd2errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt; typedef struct BgL_z62iozd2sigpipezd2errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2sigpipezd2errorz62_bglt; typedef struct BgL_z62iozd2unknownzd2hostzd2errorzb0_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt; typedef struct BgL_z62exceptionz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; } *BgL_z62exceptionz62_bglt; typedef struct BgL_z62conditionz62_bgl { header_t header; obj_t widening; } *BgL_z62conditionz62_bglt; typedef struct BgL_z62evalzd2warningzb0_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_argsz00; } *BgL_z62evalzd2warningzb0_bglt; typedef struct BgL_z62iozd2timeoutzd2errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2timeoutzd2errorz62_bglt; typedef struct BgL_z62warningz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_argsz00; } *BgL_z62warningz62_bglt; typedef struct BgL_z62iozd2closedzd2errorz62_bgl { header_t header; obj_t widening; obj_t BgL_fnamez00; obj_t BgL_locationz00; obj_t BgL_procz00; obj_t BgL_msgz00; obj_t BgL_objz00; } *BgL_z62iozd2closedzd2errorz62_bglt; typedef struct BgL_tarzd2headerzd2_bgl { header_t header; obj_t widening; obj_t BgL_namez00; long BgL_modez00; long BgL_uidz00; long BgL_gidz00; long BgL_siza7eza7; obj_t BgL_mtimez00; long BgL_checksumz00; obj_t BgL_typez00; obj_t BgL_linknamez00; obj_t BgL_magicz00; obj_t BgL_unamez00; obj_t BgL_gnamez00; long BgL_devmajorz00; long BgL_devminorz00; } *BgL_tarzd2headerzd2_bglt; BGL_EXPORTED_DECL struct tm* BGl_mktimez00zzblibz00(int, int, int, int, int, int); BGL_EXPORTED_DECL double BGl_statzd2ctimezd2zzblibz00(struct stat*); BGL_EXPORTED_DECL struct stat* BGl_statz00zzblibz00(obj_t); static obj_t BGl__daylightz00zzblibz00(obj_t); static obj_t BGl__environz00zzblibz00(obj_t); static obj_t BGl__removez00zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl__tmzd2mdayzd2zzblibz00(obj_t, obj_t); BGL_IMPORT obj_t bstring_to_symbol(obj_t); BGL_EXPORTED_DECL int BGl_tmzd2hourzd2zzblibz00(struct tm*); BGL_EXPORTED_DECL struct tm* BGl_makezd2tmzd2zzblibz00(); static obj_t BGl_zc3anonymousza31512za3blibze2scmza3449ze3z61zzblibz00(obj_t); BGL_EXPORTED_DECL double BGl_statzd2mtimezd2zzblibz00(struct stat*); BGL_EXPORTED_DECL int BGl_statzd2gidzd2zzblibz00(struct stat*); BGL_IMPORT obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t); static obj_t BGl_requirezd2initializa7ationz75zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_notifyzd2assertzd2failz00zz__evalz00(obj_t, obj_t, obj_t); static obj_t BGl__statzd2devzd2zzblibz00(obj_t, obj_t); static obj_t BGl_proczd2outputzd2zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL obj_t BGl_stringza2zd2ze3stringzd2listz41zzblibz00(char**, obj_t); BGL_EXPORTED_DECL obj_t BGl_deletezd2duplicateszd2zzblibz00(obj_t); static obj_t BGl_zc3anonymousza31618za3blibze2scmza3543ze3z61zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl_zc3anonymousza31624za3blibze2scmza3545ze3z61zzblibz00(obj_t, obj_t); static obj_t BGl_z52carszb2cdrszb2z52zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL bool_t BGl_statzf3zf3zzblibz00(obj_t); static obj_t BGl__statzd2siza7ez75zzblibz00(obj_t, obj_t); static obj_t BGl_list2467z00zzblibz00 = BUNSPEC; static obj_t BGl_list2472z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL obj_t BGl_stringzd2joinzd2zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl__statzd2modezd2zzblibz00(obj_t, obj_t); static obj_t BGl_list2475z00zzblibz00 = BUNSPEC; static obj_t BGl_list2476z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t); static obj_t BGl_list2480z00zzblibz00 = BUNSPEC; static obj_t BGl_list2479z00zzblibz00 = BUNSPEC; static obj_t BGl_list2481z00zzblibz00 = BUNSPEC; static obj_t BGl_list2484z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL bool_t BGl_tmzf3zf3zzblibz00(obj_t); BGL_EXPORTED_DECL double BGl_statzd2atimezd2zzblibz00(struct stat*); static obj_t BGl_list2500z00zzblibz00 = BUNSPEC; static obj_t BGl_list2489z00zzblibz00 = BUNSPEC; static obj_t BGl__stringza2zd2ze3stringzd2listz41zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL int BGl_statzd2uidzd2zzblibz00(struct stat*); static obj_t BGl_list2492z00zzblibz00 = BUNSPEC; BGL_IMPORT bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t); static obj_t BGl__stmodezf3zf3zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL int BGl_tmzd2yearzd2zzblibz00(struct tm*); static obj_t BGl_list2516z00zzblibz00 = BUNSPEC; static obj_t BGl_list2521z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL int BGl_tmzd2minzd2zzblibz00(struct tm*); static obj_t BGl_cerrorz00zzblibz00(obj_t, obj_t); static obj_t BGl_list2540z00zzblibz00 = BUNSPEC; static obj_t BGl_list2552z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t); BGL_EXPORTED_DECL int BGl_bstmodezd2ze3stmodez31zzblibz00(obj_t); static obj_t BGl_list2561z00zzblibz00 = BUNSPEC; static obj_t BGl_list2562z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL char** BGl_stringzd2listzd2ze3stringza2z41zzblibz00(obj_t); static obj_t BGl_list2565z00zzblibz00 = BUNSPEC; static obj_t BGl__tmzd2seczd2zzblibz00(obj_t, obj_t); static obj_t BGl_list2568z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL obj_t BGl_setenvz00zzblibz00(char *, char *); static obj_t BGl_list2580z00zzblibz00 = BUNSPEC; static obj_t BGl_list2579z00zzblibz00 = BUNSPEC; static obj_t BGl_list2581z00zzblibz00 = BUNSPEC; static obj_t BGl_list2582z00zzblibz00 = BUNSPEC; static obj_t BGl_list2584z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL int BGl_tmzd2monzd2zzblibz00(struct tm*); BGL_EXPORTED_DECL bool_t BGl_fdzd2setzf3z21zzblibz00(obj_t); BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3hexz31zzblibz00(obj_t); BGL_IMPORT obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t); static obj_t BGl_recurz00zzblibz00(obj_t); static obj_t BGl_list2628z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL int BGl_statzd2inozd2zzblibz00(struct stat*); static obj_t BGl_cnstzd2initzd2zzblibz00(); static obj_t BGl__stringzd2listzd2ze3stringza2z41zzblibz00(obj_t, obj_t); BGL_IMPORT obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t); static obj_t BGl__statzf3zf3zzblibz00(obj_t, obj_t); static obj_t BGl_list2678z00zzblibz00 = BUNSPEC; static obj_t BGl_zc3anonymousza31545za3blibze2scmza3492ze3z61zzblibz00(obj_t, obj_t); static obj_t BGl_pairzd2foldzd2zzblibz00(obj_t, obj_t, obj_t, obj_t); static obj_t BGl__lastz00zzblibz00(obj_t, obj_t); static obj_t BGl__statzd2gidzd2zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL int BGl_statzd2rdevzd2zzblibz00(struct stat*); static obj_t BGl__bstmodezd2ze3stmodez31zzblibz00(obj_t, obj_t); static obj_t BGl__charzd2ze3hexz31zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL obj_t BGl_strftimez00zzblibz00(struct tm*, obj_t); static obj_t BGl_foldz00zzblibz00(obj_t, obj_t, obj_t, obj_t); static obj_t BGl_list2814z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL obj_t BGl_removez00zzblibz00(obj_t, obj_t); static obj_t BGl__statzd2uidzd2zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL int BGl_timeza7oneza7zzblibz00(); BGL_EXPORTED_DECL obj_t BGl_stmodezd2ze3bstmodez31zzblibz00(int); static obj_t BGl_zc3anonymousza31589za3blibze2scmza3531ze3z61zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL obj_t BGl_lsetzd2differencezd2zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl__stringzd2joinzd2zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzblibz00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__evenvz00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__evalz00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *); BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *); static obj_t BGl_recurz72z72z00zzblibz00(obj_t, obj_t); static obj_t BGl__statzd2nlinkzd2zzblibz00(obj_t, obj_t); BGL_IMPORT obj_t make_string(long, unsigned char); static obj_t BGl_transposez00zzblibz00(obj_t); static obj_t BGl_stringzd2beforezd2zzblibz00(obj_t, unsigned char); BGL_IMPORT long bgl_list_length(obj_t); static obj_t BGl_nullzd2listzf3z21zzblibz00(obj_t); static obj_t BGl_zc3anonymousza31465za3blibze2scmza3423ze3z61zzblibz00(obj_t); static obj_t BGl__makezd2tmzd2zzblibz00(obj_t); static obj_t BGl__tmzd2hourzd2zzblibz00(obj_t, obj_t); static obj_t BGl_zc3exitza31423za3blibze2scmza3351ze3z61zzblibz00(obj_t, obj_t); static obj_t BGl_z52cdrsz52zzblibz00(obj_t); BGL_EXPORTED_DECL obj_t BGl_environz00zzblibz00(); BGL_IMPORT obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long); BGL_IMPORT obj_t bgl_reverse(obj_t); static obj_t BGl__statzd2inozd2zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL obj_t BGl_lsetzd2unionz12zc0zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL int BGl_tmzd2mdayzd2zzblibz00(struct tm*); static obj_t BGl_symbol2455z00zzblibz00 = BUNSPEC; static obj_t BGl__stringzd2ze3hexz31zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2457z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL bool_t BGl_stringza2zf3z51zzblibz00(obj_t); static obj_t BGl_symbol2461z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2463z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2468z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2470z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2473z00zzblibz00 = BUNSPEC; static obj_t BGl__mktimez00zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2477z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t get_output_string(obj_t); static obj_t BGl_symbol2482z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2485z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2487z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t); BGL_IMPORT obj_t open_output_string(); BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t); static obj_t BGl_symbol2490z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2501z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2503z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2493z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2505z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2495z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2507z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2497z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2509z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2514z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(obj_t, obj_t); static obj_t BGl_symbol2517z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2519z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2522z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL int BGl_tmzd2seczd2zzblibz00(struct tm*); static obj_t BGl_symbol2524z00zzblibz00 = BUNSPEC; static obj_t BGl__stmodezd2ze3bstmodez31zzblibz00(obj_t, obj_t); BGL_EXPORTED_DECL long BGl_statzd2siza7ez75zzblibz00(struct stat*); BGL_IMPORT obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t, obj_t); static obj_t BGl_symbol2528z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t); static obj_t BGl_symbol2531z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2536z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL int BGl_statzd2modezd2zzblibz00(struct stat*); static obj_t BGl__lsetzd2differencezd2zzblibz00(obj_t, obj_t, obj_t, obj_t); BGL_IMPORT obj_t c_substring(obj_t, long, long); static obj_t BGl_symbol2541z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2543z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2545z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2547z00zzblibz00 = BUNSPEC; static obj_t BGl_zc3anonymousza31508za3blibze2scmza3447ze3z61zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2550z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2553z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2555z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t string_to_bstring(char *); static obj_t BGl_symbol2557z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2559z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL obj_t BGl_lastz00zzblibz00(obj_t); static obj_t BGl_symbol2563z00zzblibz00 = BUNSPEC; static obj_t BGl__tmzd2yearzd2zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2566z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2569z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2571z00zzblibz00 = BUNSPEC; static obj_t BGl_zc3anonymousza31594za3blibze2scmza3532ze3z61zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2575z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2577z00zzblibz00 = BUNSPEC; static obj_t BGl__statz00zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2583z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2585z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2587z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2600z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2589z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2591z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2602z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2593z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2604z00zzblibz00 = BUNSPEC; static obj_t BGl__statzd2ctimezd2zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2595z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2607z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2597z00zzblibz00 = BUNSPEC; static obj_t BGl__strftimez00zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2609z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2611z00zzblibz00 = BUNSPEC; static obj_t BGl_recurz72z72zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl_symbol2613z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2615z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2617z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2620z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2623z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL bool_t BGl_stmodezf3zf3zzblibz00(obj_t); static obj_t BGl_symbol2625z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2629z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2631z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2633z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2635z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2637z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2639z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2642z00zzblibz00 = BUNSPEC; static obj_t BGl_zc3anonymousza31604za3blibze2scmza3538ze3z61zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl_symbol2645z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2647z00zzblibz00 = BUNSPEC; static obj_t BGl__fdzd2setzf3z21zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2650z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2652z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2655z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t); static obj_t BGl_symbol2657z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2659z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2663z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2665z00zzblibz00 = BUNSPEC; static obj_t BGl__timeza7oneza7zzblibz00(obj_t); static obj_t BGl_symbol2667z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2669z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2671z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL int BGl_daylightz00zzblibz00(); static obj_t BGl_symbol2675z00zzblibz00 = BUNSPEC; static obj_t BGl_zc3exitza31409za3blibze2scmza3325ze3z61zzblibz00(obj_t); static obj_t BGl_symbol2679z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2681z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2683z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t); static obj_t BGl_symbol2685z00zzblibz00 = BUNSPEC; static obj_t BGl__statzd2mtimezd2zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2688z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2690z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2701z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2692z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2703z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2694z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2705z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2696z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2707z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2709z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2699z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2711z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2713z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2715z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2717z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2719z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2721z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2722z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2724z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL int BGl_statzd2nlinkzd2zzblibz00(struct stat*); static obj_t BGl_symbol2726z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2728z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2730z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2732z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2735z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2737z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2739z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2742z00zzblibz00 = BUNSPEC; static obj_t BGl__tmzf3zf3zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2745z00zzblibz00 = BUNSPEC; static obj_t BGl__tmzd2minzd2zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2747z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2750z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2753z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL dev_t BGl_statzd2devzd2zzblibz00(struct stat*); static obj_t BGl_symbol2755z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t); static obj_t BGl_symbol2757z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2761z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2763z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2765z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2767z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2769z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2771z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2773z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2775z00zzblibz00 = BUNSPEC; static bool_t BGl_forzd2eachzd2delimitedz00zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl_symbol2777z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2779z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2781z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2783z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2785z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2787z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2789z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2791z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2793z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2804z00zzblibz00 = BUNSPEC; static obj_t BGl__setenvz00zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl_symbol2795z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2806z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2797z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2809z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2799z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2812z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2815z00zzblibz00 = BUNSPEC; static obj_t BGl__tmzd2monzd2zzblibz00(obj_t, obj_t); static obj_t BGl__stringza2zf3z51zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2817z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2819z00zzblibz00 = BUNSPEC; BGL_IMPORT obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t); static obj_t BGl_symbol2821z00zzblibz00 = BUNSPEC; static obj_t BGl__deletezd2duplicates2157zd2zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2823z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2825z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2827z00zzblibz00 = BUNSPEC; BGL_IMPORT bool_t BGl_positivezf3zf3zz__r4_numbers_6_5z00(obj_t); static obj_t BGl_symbol2829z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2831z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2833z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2835z00zzblibz00 = BUNSPEC; static obj_t BGl__statzd2atimezd2zzblibz00(obj_t, obj_t); static obj_t BGl__statzd2rdevzd2zzblibz00(obj_t, obj_t); static obj_t BGl_symbol2837z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2839z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2841z00zzblibz00 = BUNSPEC; static obj_t BGl__lsetzd2unionz12zc0zzblibz00(obj_t, obj_t, obj_t); static obj_t BGl_symbol2843z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2845z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2847z00zzblibz00 = BUNSPEC; BGL_IMPORT bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t); static obj_t BGl_symbol2849z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2851z00zzblibz00 = BUNSPEC; BGL_EXPORTED_DECL obj_t BGl_charzd2ze3hexz31zzblibz00(unsigned char); static obj_t BGl_symbol2853z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2855z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2857z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2859z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2861z00zzblibz00 = BUNSPEC; static obj_t BGl_symbol2863z00zzblibz00 = BUNSPEC; BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t); static obj_t BGl_libraryzd2moduleszd2initz00zzblibz00(); BGL_IMPORT obj_t BGl_definezd2primopz12zc0zz__evenvz00(obj_t, obj_t); BGL_IMPORT obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t); static obj_t BGl_methodzd2initzd2zzblibz00(); static obj_t *__cnst; DEFINE_EXPORT_BGL_PROCEDURE( BGl_lsetzd2unionz12zd2envz12zzblibz00, BgL_bgl__lsetza7d2unionza7122883z00, va_generic_entry, BGl__lsetzd2unionz12zc0zzblibz00, BUNSPEC, -2 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_makezd2tmzd2envz00zzblibz00, BgL_bgl__makeza7d2tmza7d2za7za7b2884z00, BGl__makezd2tmzd2zzblibz00, 0L, BUNSPEC, 0 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2hourzd2envz00zzblibz00, BgL_bgl__tmza7d2hourza7d2za7za7b2885z00, BGl__tmzd2hourzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2456z00zzblibz00, BgL_bgl_string2456za700za7za7b2886za7, "%cdrs, blib.scm:325", 19 ); DEFINE_STRING( BGl_string2458z00zzblibz00, BgL_bgl_string2458za700za7za7b2887za7, "recur''", 7 ); DEFINE_STRING( BGl_string2460z00zzblibz00, BgL_bgl_string2460za700za7za7b2888za7, "/home/ambro/roadsend-cross-build/roadsend-php-2.9.4/runtime/blib.scm", 68 ); DEFINE_STRING( BGl_string2459z00zzblibz00, BgL_bgl_string2459za700za7za7b2889za7, "pair", 4 ); DEFINE_STRING( BGl_string2462z00zzblibz00, BgL_bgl_string2462za700za7za7b2890za7, "pair-fold, blib.scm:335", 23 ); DEFINE_STRING( BGl_string2464z00zzblibz00, BgL_bgl_string2464za700za7za7b2891za7, "lp", 2 ); DEFINE_STRING( BGl_string2465z00zzblibz00, BgL_bgl_string2465za700za7za7b2892za7, "pair-nil", 8 ); DEFINE_STRING( BGl_string2466z00zzblibz00, BgL_bgl_string2466za700za7za7b2893za7, "Wrong number of arguments", 25 ); DEFINE_STRING( BGl_string2469z00zzblibz00, BgL_bgl_string2469za700za7za7b2894za7, "apply", 5 ); DEFINE_STRING( BGl_string2471z00zzblibz00, BgL_bgl_string2471za700za7za7b2895za7, "f", 1 ); DEFINE_STRING( BGl_string2474z00zzblibz00, BgL_bgl_string2474za700za7za7b2896za7, "let", 3 ); DEFINE_STRING( BGl_string2478z00zzblibz00, BgL_bgl_string2478za700za7za7b2897za7, "arg1418", 7 ); DEFINE_STRING( BGl_string2483z00zzblibz00, BgL_bgl_string2483za700za7za7b2898za7, "list1419", 8 ); DEFINE_STRING( BGl_string2486z00zzblibz00, BgL_bgl_string2486za700za7za7b2899za7, "c-cons", 6 ); DEFINE_STRING( BGl_string2488z00zzblibz00, BgL_bgl_string2488za700za7za7b2900za7, "ans", 3 ); DEFINE_STRING( BGl_string2491z00zzblibz00, BgL_bgl_string2491za700za7za7b2901za7, "quote", 5 ); DEFINE_STRING( BGl_string2502z00zzblibz00, BgL_bgl_string2502za700za7za7b2902za7, "funcall", 7 ); DEFINE_STRING( BGl_string2504z00zzblibz00, BgL_bgl_string2504za700za7za7b2903za7, "lis", 3 ); DEFINE_STRING( BGl_string2494z00zzblibz00, BgL_bgl_string2494za700za7za7b2904za7, "append!", 7 ); DEFINE_STRING( BGl_string2506z00zzblibz00, BgL_bgl_string2506za700za7za7b2905za7, "%cars+cdrs+, blib.scm:351", 25 ); DEFINE_STRING( BGl_string2496z00zzblibz00, BgL_bgl_string2496za700za7za7b2906za7, "lists", 5 ); DEFINE_STRING( BGl_string2508z00zzblibz00, BgL_bgl_string2508za700za7za7b2907za7, "recur'", 6 ); DEFINE_STRING( BGl_string2498z00zzblibz00, BgL_bgl_string2498za700za7za7b2908za7, "_", 1 ); DEFINE_STRING( BGl_string2510z00zzblibz00, BgL_bgl_string2510za700za7za7b2909za7, "null-list?, blib.scm:363", 24 ); DEFINE_STRING( BGl_string2499z00zzblibz00, BgL_bgl_string2499za700za7za7b2910za7, "lp:Wrong number of arguments", 28 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2mdayzd2envz00zzblibz00, BgL_bgl__tmza7d2mdayza7d2za7za7b2911z00, BGl__tmzd2mdayzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2511z00zzblibz00, BgL_bgl_string2511za700za7za7b2912za7, "null-list?", 10 ); DEFINE_STRING( BGl_string2512z00zzblibz00, BgL_bgl_string2512za700za7za7b2913za7, "argument out of domain", 22 ); DEFINE_STRING( BGl_string2513z00zzblibz00, BgL_bgl_string2513za700za7za7b2914za7, "blib.scm", 8 ); DEFINE_STRING( BGl_string2515z00zzblibz00, BgL_bgl_string2515za700za7za7b2915za7, "fold, blib.scm:369", 18 ); BGL_IMPORT obj_t BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00; DEFINE_STRING( BGl_string2518z00zzblibz00, BgL_bgl_string2518za700za7za7b2916za7, "kons", 4 ); DEFINE_STRING( BGl_string2520z00zzblibz00, BgL_bgl_string2520za700za7za7b2917za7, "cars+ans", 8 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringza2zd2ze3stringzd2listzd2envz93zzblibz00, BgL_bgl__stringza7a2za7d2za7e32918za7, opt_generic_entry, BGl__stringza2zd2ze3stringzd2listz41zzblibz00, BFALSE,-1 ); DEFINE_STRING( BGl_string2523z00zzblibz00, BgL_bgl_string2523za700za7za7b2919za7, "arg1437", 7 ); DEFINE_STRING( BGl_string2525z00zzblibz00, BgL_bgl_string2525za700za7za7b2920za7, "string-before, blib.scm:396", 27 ); DEFINE_STRING( BGl_string2526z00zzblibz00, BgL_bgl_string2526za700za7za7b2921za7, "substring", 9 ); DEFINE_STRING( BGl_string2527z00zzblibz00, BgL_bgl_string2527za700za7za7b2922za7, "Illegal index", 13 ); DEFINE_STRING( BGl_string2530z00zzblibz00, BgL_bgl_string2530za700za7za7b2923za7, "bstring", 7 ); DEFINE_STRING( BGl_string2529z00zzblibz00, BgL_bgl_string2529za700za7za7b2924za7, "string-before", 13 ); DEFINE_STRING( BGl_string2532z00zzblibz00, BgL_bgl_string2532za700za7za7b2925za7, "cerror, blib.scm:410", 20 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_stmodezd2ze3bstmodezd2envze3zzblibz00, BgL_bgl__stmodeza7d2za7e3bst2926z00, BGl__stmodezd2ze3bstmodez31zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2533z00zzblibz00, BgL_bgl_string2533za700za7za7b2927za7, "", 0 ); DEFINE_STRING( BGl_string2534z00zzblibz00, BgL_bgl_string2534za700za7za7b2928za7, " arguments was", 14 ); DEFINE_STRING( BGl_string2535z00zzblibz00, BgL_bgl_string2535za700za7za7b2929za7, "~a: ~a~a", 8 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2monzd2envz00zzblibz00, BgL_bgl__tmza7d2monza7d2za7za7bl2930z00, BGl__tmzd2monzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2537z00zzblibz00, BgL_bgl_string2537za700za7za7b2931za7, "", 29 ); DEFINE_STRING( BGl_string2538z00zzblibz00, BgL_bgl_string2538za700za7za7b2932za7, "procedure", 9 ); DEFINE_STRING( BGl_string2539z00zzblibz00, BgL_bgl_string2539za700za7za7b2933za7, ":Wrong number of arguments", 55 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2siza7ezd2envza7zzblibz00, BgL_bgl__statza7d2siza7a7eza772934za7, BGl__statzd2siza7ez75zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_bstmodezd2ze3stmodezd2envze3zzblibz00, BgL_bgl__bstmodeza7d2za7e3st2935z00, BGl__bstmodezd2ze3stmodez31zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2542z00zzblibz00, BgL_bgl_string2542za700za7za7b2936za7, "display", 7 ); DEFINE_STRING( BGl_string2544z00zzblibz00, BgL_bgl_string2544za700za7za7b2937za7, "delim", 5 ); DEFINE_STRING( BGl_string2546z00zzblibz00, BgL_bgl_string2546za700za7za7b2938za7, "proc-output, blib.scm:422", 25 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2minzd2envz00zzblibz00, BgL_bgl__tmza7d2minza7d2za7za7bl2939z00, BGl__tmzd2minzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2548z00zzblibz00, BgL_bgl_string2548za700za7za7b2940za7, "proc-output", 11 ); DEFINE_STRING( BGl_string2549z00zzblibz00, BgL_bgl_string2549za700za7za7b2941za7, "output-port", 11 ); DEFINE_STRING( BGl_string2551z00zzblibz00, BgL_bgl_string2551za700za7za7b2942za7, "", 29 ); DEFINE_STRING( BGl_string2554z00zzblibz00, BgL_bgl_string2554za700za7za7b2943za7, "proc", 4 ); DEFINE_STRING( BGl_string2556z00zzblibz00, BgL_bgl_string2556za700za7za7b2944za7, "args", 4 ); DEFINE_STRING( BGl_string2558z00zzblibz00, BgL_bgl_string2558za700za7za7b2945za7, "transpose, blib.scm:433", 23 ); DEFINE_STRING( BGl_string2560z00zzblibz00, BgL_bgl_string2560za700za7za7b2946za7, "l", 1 ); DEFINE_STRING( BGl_string2564z00zzblibz00, BgL_bgl_string2564za700za7za7b2947za7, "begin", 5 ); DEFINE_STRING( BGl_string2567z00zzblibz00, BgL_bgl_string2567za700za7za7b2948za7, "list?", 5 ); DEFINE_STRING( BGl_string2570z00zzblibz00, BgL_bgl_string2570za700za7za7b2949za7, "loop", 4 ); DEFINE_STRING( BGl_string2572z00zzblibz00, BgL_bgl_string2572za700za7za7b2950za7, "map1348", 7 ); DEFINE_STRING( BGl_string2573z00zzblibz00, BgL_bgl_string2573za700za7za7b2951za7, "map", 3 ); DEFINE_STRING( BGl_string2574z00zzblibz00, BgL_bgl_string2574za700za7za7b2952za7, "argument not a list", 19 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_lastzd2envzd2zzblibz00, BgL_bgl__lastza700za7za7blibza702953z00, BGl__lastz00zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2576z00zzblibz00, BgL_bgl_string2576za700za7za7b2954za7, "map1354", 7 ); DEFINE_STRING( BGl_string2578z00zzblibz00, BgL_bgl_string2578za700za7za7b2955za7, "for-each-delimited, blib.scm:436", 32 ); DEFINE_STRING( BGl_string2586z00zzblibz00, BgL_bgl_string2586za700za7za7b2956za7, "c-car", 5 ); DEFINE_STRING( BGl_string2588z00zzblibz00, BgL_bgl_string2588za700za7za7b2957za7, "string->hex, blib.scm:460", 25 ); DEFINE_STRING( BGl_string2590z00zzblibz00, BgL_bgl_string2590za700za7za7b2958za7, "_string->hex", 12 ); DEFINE_STRING( BGl_string2601z00zzblibz00, BgL_bgl_string2601za700za7za7b2959za7, "_string*->string-list", 21 ); DEFINE_STRING( BGl_string2592z00zzblibz00, BgL_bgl_string2592za700za7za7b2960za7, "string*?, blib.scm:477", 22 ); DEFINE_STRING( BGl_string2603z00zzblibz00, BgL_bgl_string2603za700za7za7b2961za7, "string*->string-list, blib.scm:483", 34 ); DEFINE_STRING( BGl_string2594z00zzblibz00, BgL_bgl_string2594za700za7za7b2962za7, "string*", 7 ); DEFINE_STRING( BGl_string2605z00zzblibz00, BgL_bgl_string2605za700za7za7b2963za7, "string*->string-list", 20 ); DEFINE_STRING( BGl_string2606z00zzblibz00, BgL_bgl_string2606za700za7za7b2964za7, "long", 4 ); DEFINE_STRING( BGl_string2596z00zzblibz00, BgL_bgl_string2596za700za7za7b2965za7, "_string*->string-list, blib.scm:479", 35 ); DEFINE_STRING( BGl_string2608z00zzblibz00, BgL_bgl_string2608za700za7za7b2966za7, "string-list->string*, blib.scm:487", 34 ); DEFINE_STRING( BGl_string2598z00zzblibz00, BgL_bgl_string2598za700za7za7b2967za7, "string*->string-list::pair-nil", 30 ); DEFINE_STRING( BGl_string2610z00zzblibz00, BgL_bgl_string2610za700za7za7b2968za7, "_string-list->string*", 21 ); DEFINE_STRING( BGl_string2599z00zzblibz00, BgL_bgl_string2599za700za7za7b2969za7, "wrong number of arguments: [1..2] expected, provided", 52 ); DEFINE_STRING( BGl_string2612z00zzblibz00, BgL_bgl_string2612za700za7za7b2970za7, "last, blib.scm:490", 18 ); DEFINE_STRING( BGl_string2614z00zzblibz00, BgL_bgl_string2614za700za7za7b2971za7, "last", 4 ); DEFINE_STRING( BGl_string2616z00zzblibz00, BgL_bgl_string2616za700za7za7b2972za7, "_last", 5 ); DEFINE_STRING( BGl_string2618z00zzblibz00, BgL_bgl_string2618za700za7za7b2973za7, "remove, blib.scm:492", 20 ); DEFINE_STRING( BGl_string2619z00zzblibz00, BgL_bgl_string2619za700za7za7b2974za7, "filter: argument not a list", 27 ); DEFINE_STRING( BGl_string2621z00zzblibz00, BgL_bgl_string2621za700za7za7b2975za7, "remove", 6 ); DEFINE_STRING( BGl_string2622z00zzblibz00, BgL_bgl_string2622za700za7za7b2976za7, "filter: incorrect function arity", 32 ); DEFINE_STRING( BGl_string2624z00zzblibz00, BgL_bgl_string2624za700za7za7b2977za7, "_remove", 7 ); DEFINE_STRING( BGl_string2626z00zzblibz00, BgL_bgl_string2626za700za7za7b2978za7, "", 29 ); DEFINE_STRING( BGl_string2627z00zzblibz00, BgL_bgl_string2627za700za7za7b2979za7, ":Wrong number of arguments", 55 ); DEFINE_STRING( BGl_string2630z00zzblibz00, BgL_bgl_string2630za700za7za7b2980za7, "pred", 4 ); DEFINE_STRING( BGl_string2632z00zzblibz00, BgL_bgl_string2632za700za7za7b2981za7, "x", 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2modezd2envz00zzblibz00, BgL_bgl__statza7d2modeza7d2za72982za7, BGl__statzd2modezd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2634z00zzblibz00, BgL_bgl_string2634za700za7za7b2983za7, "delete-duplicates, blib.scm:495", 31 ); DEFINE_STRING( BGl_string2636z00zzblibz00, BgL_bgl_string2636za700za7za7b2984za7, "recur", 5 ); DEFINE_STRING( BGl_string2638z00zzblibz00, BgL_bgl_string2638za700za7za7b2985za7, "_string-join, blib.scm:502", 26 ); DEFINE_STRING( BGl_string2640z00zzblibz00, BgL_bgl_string2640za700za7za7b2986za7, "string-join", 11 ); DEFINE_STRING( BGl_string2641z00zzblibz00, BgL_bgl_string2641za700za7za7b2987za7, "wrong number of arguments: [1..3] expected, provided", 52 ); DEFINE_STRING( BGl_string2643z00zzblibz00, BgL_bgl_string2643za700za7za7b2988za7, "infix", 5 ); DEFINE_STRING( BGl_string2644z00zzblibz00, BgL_bgl_string2644za700za7za7b2989za7, " ", 1 ); DEFINE_STRING( BGl_string2646z00zzblibz00, BgL_bgl_string2646za700za7za7b2990za7, "string-join, blib.scm:503", 25 ); DEFINE_STRING( BGl_string2648z00zzblibz00, BgL_bgl_string2648za700za7za7b2991za7, "strict-infix", 12 ); DEFINE_STRING( BGl_string2649z00zzblibz00, BgL_bgl_string2649za700za7za7b2992za7, "string-list should be non-empty list for strict-infix grammar", 61 ); DEFINE_STRING( BGl_string2651z00zzblibz00, BgL_bgl_string2651za700za7za7b2993za7, "suffix", 6 ); DEFINE_STRING( BGl_string2653z00zzblibz00, BgL_bgl_string2653za700za7za7b2994za7, "prefix", 6 ); DEFINE_STRING( BGl_string2654z00zzblibz00, BgL_bgl_string2654za700za7za7b2995za7, "invalid grammar, must be one of: infix, strict-infix, suffix or prefix", 70 ); DEFINE_STRING( BGl_string2656z00zzblibz00, BgL_bgl_string2656za700za7za7b2996za7, "lset-difference, blib.scm:529", 29 ); DEFINE_STRING( BGl_string2658z00zzblibz00, BgL_bgl_string2658za700za7za7b2997za7, "lset-difference", 15 ); DEFINE_STRING( BGl_string2660z00zzblibz00, BgL_bgl_string2660za700za7za7b2998za7, "_lset-difference", 16 ); DEFINE_STRING( BGl_string2661z00zzblibz00, BgL_bgl_string2661za700za7za7b2999za7, "every: argument not a list", 26 ); DEFINE_STRING( BGl_string2662z00zzblibz00, BgL_bgl_string2662za700za7za7b3000za7, "every: incorrect function arity", 31 ); DEFINE_STRING( BGl_string2664z00zzblibz00, BgL_bgl_string2664za700za7za7b3001za7, "", 29 ); DEFINE_STRING( BGl_string2666z00zzblibz00, BgL_bgl_string2666za700za7za7b3002za7, "lset-union!, blib.scm:538", 25 ); DEFINE_STRING( BGl_string2668z00zzblibz00, BgL_bgl_string2668za700za7za7b3003za7, "lset-union!", 11 ); DEFINE_STRING( BGl_string2670z00zzblibz00, BgL_bgl_string2670za700za7za7b3004za7, "_lset-union!", 12 ); DEFINE_STRING( BGl_string2672z00zzblibz00, BgL_bgl_string2672za700za7za7b3005za7, "", 29 ); DEFINE_STRING( BGl_string2673z00zzblibz00, BgL_bgl_string2673za700za7za7b3006za7, "any: argument not a list", 24 ); DEFINE_STRING( BGl_string2674z00zzblibz00, BgL_bgl_string2674za700za7za7b3007za7, "any: incorrect function arity", 29 ); DEFINE_STRING( BGl_string2676z00zzblibz00, BgL_bgl_string2676za700za7za7b3008za7, "", 29 ); DEFINE_STRING( BGl_string2677z00zzblibz00, BgL_bgl_string2677za700za7za7b3009za7, ":Wrong number of arguments", 55 ); DEFINE_STRING( BGl_string2680z00zzblibz00, BgL_bgl_string2680za700za7za7b3010za7, "elt=", 4 ); DEFINE_STRING( BGl_string2682z00zzblibz00, BgL_bgl_string2682za700za7za7b3011za7, "elt", 3 ); DEFINE_STRING( BGl_string2684z00zzblibz00, BgL_bgl_string2684za700za7za7b3012za7, "char->hex, blib.scm:552", 23 ); DEFINE_STRING( BGl_string2686z00zzblibz00, BgL_bgl_string2686za700za7za7b3013za7, "_char->hex", 10 ); DEFINE_STRING( BGl_string2687z00zzblibz00, BgL_bgl_string2687za700za7za7b3014za7, "uchar", 5 ); DEFINE_STRING( BGl_string2700z00zzblibz00, BgL_bgl_string2700za700za7za7b3015za7, "tm-min, blib.scm:576", 20 ); DEFINE_STRING( BGl_string2689z00zzblibz00, BgL_bgl_string2689za700za7za7b3016za7, "environ, blib.scm:568", 21 ); DEFINE_STRING( BGl_string2691z00zzblibz00, BgL_bgl_string2691za700za7za7b3017za7, "map1367", 7 ); DEFINE_STRING( BGl_string2702z00zzblibz00, BgL_bgl_string2702za700za7za7b3018za7, "_tm-min", 7 ); DEFINE_STRING( BGl_string2693z00zzblibz00, BgL_bgl_string2693za700za7za7b3019za7, "environ", 7 ); DEFINE_STRING( BGl_string2704z00zzblibz00, BgL_bgl_string2704za700za7za7b3020za7, "tm-hour, blib.scm:581", 21 ); DEFINE_STRING( BGl_string2695z00zzblibz00, BgL_bgl_string2695za700za7za7b3021za7, "tm-sec, blib.scm:571", 20 ); DEFINE_STRING( BGl_string2706z00zzblibz00, BgL_bgl_string2706za700za7za7b3022za7, "_tm-hour", 8 ); DEFINE_STRING( BGl_string2697z00zzblibz00, BgL_bgl_string2697za700za7za7b3023za7, "_tm-sec", 7 ); DEFINE_STRING( BGl_string2708z00zzblibz00, BgL_bgl_string2708za700za7za7b3024za7, "tm-mday, blib.scm:586", 21 ); DEFINE_STRING( BGl_string2698z00zzblibz00, BgL_bgl_string2698za700za7za7b3025za7, "tm", 2 ); DEFINE_STRING( BGl_string2710z00zzblibz00, BgL_bgl_string2710za700za7za7b3026za7, "_tm-mday", 8 ); DEFINE_STRING( BGl_string2712z00zzblibz00, BgL_bgl_string2712za700za7za7b3027za7, "tm-mon, blib.scm:591", 20 ); DEFINE_STRING( BGl_string2714z00zzblibz00, BgL_bgl_string2714za700za7za7b3028za7, "_tm-mon", 7 ); DEFINE_STRING( BGl_string2716z00zzblibz00, BgL_bgl_string2716za700za7za7b3029za7, "tm-year, blib.scm:596", 21 ); DEFINE_STRING( BGl_string2718z00zzblibz00, BgL_bgl_string2718za700za7za7b3030za7, "_tm-year", 8 ); DEFINE_STRING( BGl_string2720z00zzblibz00, BgL_bgl_string2720za700za7za7b3031za7, "tm?, blib.scm:601", 17 ); DEFINE_STRING( BGl_string2723z00zzblibz00, BgL_bgl_string2723za700za7za7b3032za7, "timezone, blib.scm:613", 22 ); DEFINE_STRING( BGl_string2725z00zzblibz00, BgL_bgl_string2725za700za7za7b3033za7, "daylight, blib.scm:625", 22 ); DEFINE_STRING( BGl_string2727z00zzblibz00, BgL_bgl_string2727za700za7za7b3034za7, "make-tm, blib.scm:628", 21 ); DEFINE_STRING( BGl_string2729z00zzblibz00, BgL_bgl_string2729za700za7za7b3035za7, "_strftime, blib.scm:631", 23 ); DEFINE_STRING( BGl_string2731z00zzblibz00, BgL_bgl_string2731za700za7za7b3036za7, "strftime::bstring", 17 ); DEFINE_STRING( BGl_string2733z00zzblibz00, BgL_bgl_string2733za700za7za7b3037za7, "_strftime", 9 ); DEFINE_STRING( BGl_string2734z00zzblibz00, BgL_bgl_string2734za700za7za7b3038za7, "%x %X", 5 ); DEFINE_STRING( BGl_string2736z00zzblibz00, BgL_bgl_string2736za700za7za7b3039za7, "strftime, blib.scm:635", 22 ); DEFINE_STRING( BGl_string2738z00zzblibz00, BgL_bgl_string2738za700za7za7b3040za7, "_mktime, blib.scm:644", 21 ); DEFINE_STRING( BGl_string2740z00zzblibz00, BgL_bgl_string2740za700za7za7b3041za7, "mktime::tm", 10 ); DEFINE_STRING( BGl_string2741z00zzblibz00, BgL_bgl_string2741za700za7za7b3042za7, "wrong number of arguments: [3..6] expected, provided", 52 ); DEFINE_STRING( BGl_string2743z00zzblibz00, BgL_bgl_string2743za700za7za7b3043za7, "_mktime", 7 ); DEFINE_STRING( BGl_string2744z00zzblibz00, BgL_bgl_string2744za700za7za7b3044za7, "int", 3 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2rdevzd2envz00zzblibz00, BgL_bgl__statza7d2rdevza7d2za73045za7, BGl__statzd2rdevzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2746z00zzblibz00, BgL_bgl_string2746za700za7za7b3046za7, "mktime, blib.scm:652", 20 ); DEFINE_STRING( BGl_string2748z00zzblibz00, BgL_bgl_string2748za700za7za7b3047za7, "setenv, blib.scm:665", 20 ); DEFINE_STRING( BGl_string2749z00zzblibz00, BgL_bgl_string2749za700za7za7b3048za7, "setenv", 6 ); DEFINE_STRING( BGl_string2751z00zzblibz00, BgL_bgl_string2751za700za7za7b3049za7, "_setenv", 7 ); DEFINE_STRING( BGl_string2752z00zzblibz00, BgL_bgl_string2752za700za7za7b3050za7, "string", 6 ); DEFINE_STRING( BGl_string2754z00zzblibz00, BgL_bgl_string2754za700za7za7b3051za7, "stat?, blib.scm:669", 19 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_stmodezf3zd2envz21zzblibz00, BgL_bgl__stmodeza7f3za7f3za7za7b3052z00, BGl__stmodezf3zf3zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_STRING( BGl_string2756z00zzblibz00, BgL_bgl_string2756za700za7za7b3053za7, "stat", 4 ); DEFINE_STRING( BGl_string2758z00zzblibz00, BgL_bgl_string2758za700za7za7b3054za7, "stat, blib.scm:693", 18 ); DEFINE_STRING( BGl_string2760z00zzblibz00, BgL_bgl_string2760za700za7za7b3055za7, "must be filename or open file descriptor", 40 ); DEFINE_STRING( BGl_string2759z00zzblibz00, BgL_bgl_string2759za700za7za7b3056za7, "bint", 4 ); DEFINE_STRING( BGl_string2762z00zzblibz00, BgL_bgl_string2762za700za7za7b3057za7, "bstmode->stmode, blib.scm:718", 29 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_timeza7onezd2envz75zzblibz00, BgL_bgl__timeza7a7oneza7a7za7za73058z00, BGl__timeza7oneza7zzblibz00, 0L, BUNSPEC, 0 ); DEFINE_STRING( BGl_string2764z00zzblibz00, BgL_bgl_string2764za700za7za7b3059za7, "fsock", 5 ); DEFINE_STRING( BGl_string2766z00zzblibz00, BgL_bgl_string2766za700za7za7b3060za7, "flnk", 4 ); DEFINE_STRING( BGl_string2768z00zzblibz00, BgL_bgl_string2768za700za7za7b3061za7, "freg", 4 ); DEFINE_STRING( BGl_string2770z00zzblibz00, BgL_bgl_string2770za700za7za7b3062za7, "fblk", 4 ); DEFINE_STRING( BGl_string2772z00zzblibz00, BgL_bgl_string2772za700za7za7b3063za7, "fdir", 4 ); DEFINE_STRING( BGl_string2774z00zzblibz00, BgL_bgl_string2774za700za7za7b3064za7, "fchr", 4 ); DEFINE_STRING( BGl_string2776z00zzblibz00, BgL_bgl_string2776za700za7za7b3065za7, "fifo", 4 ); DEFINE_STRING( BGl_string2778z00zzblibz00, BgL_bgl_string2778za700za7za7b3066za7, "suid", 4 ); DEFINE_STRING( BGl_string2780z00zzblibz00, BgL_bgl_string2780za700za7za7b3067za7, "sgid", 4 ); DEFINE_STRING( BGl_string2782z00zzblibz00, BgL_bgl_string2782za700za7za7b3068za7, "svtx", 4 ); DEFINE_STRING( BGl_string2784z00zzblibz00, BgL_bgl_string2784za700za7za7b3069za7, "rusr", 4 ); DEFINE_STRING( BGl_string2786z00zzblibz00, BgL_bgl_string2786za700za7za7b3070za7, "wusr", 4 ); DEFINE_STRING( BGl_string2788z00zzblibz00, BgL_bgl_string2788za700za7za7b3071za7, "xusr", 4 ); DEFINE_STRING( BGl_string2800z00zzblibz00, BgL_bgl_string2800za700za7za7b3072za7, "xoth", 4 ); DEFINE_STRING( BGl_string2790z00zzblibz00, BgL_bgl_string2790za700za7za7b3073za7, "rgrp", 4 ); DEFINE_STRING( BGl_string2801z00zzblibz00, BgL_bgl_string2801za700za7za7b3074za7, "bstmode->stmode", 15 ); DEFINE_STRING( BGl_string2802z00zzblibz00, BgL_bgl_string2802za700za7za7b3075za7, "invalid argument, must be one of (fsock flnk freg fblk fdir fchr fifo suid sgid svtx rusr wusr xusr rgrp wgrp xgrp roth woth xoth): ", 132 ); DEFINE_STRING( BGl_string2792z00zzblibz00, BgL_bgl_string2792za700za7za7b3076za7, "wgrp", 4 ); DEFINE_STRING( BGl_string2803z00zzblibz00, BgL_bgl_string2803za700za7za7b3077za7, "for-each", 8 ); DEFINE_STRING( BGl_string2794z00zzblibz00, BgL_bgl_string2794za700za7za7b3078za7, "xgrp", 4 ); DEFINE_STRING( BGl_string2805z00zzblibz00, BgL_bgl_string2805za700za7za7b3079za7, "stmode->bstmode, blib.scm:795", 29 ); DEFINE_STRING( BGl_string2796z00zzblibz00, BgL_bgl_string2796za700za7za7b3080za7, "roth", 4 ); DEFINE_STRING( BGl_string2807z00zzblibz00, BgL_bgl_string2807za700za7za7b3081za7, "stmode->bstmode", 15 ); DEFINE_STRING( BGl_string2808z00zzblibz00, BgL_bgl_string2808za700za7za7b3082za7, "bstmode", 7 ); DEFINE_STRING( BGl_string2798z00zzblibz00, BgL_bgl_string2798za700za7za7b3083za7, "woth", 4 ); DEFINE_STRING( BGl_string2810z00zzblibz00, BgL_bgl_string2810za700za7za7b3084za7, "_stmode->bstmode", 16 ); DEFINE_STRING( BGl_string2811z00zzblibz00, BgL_bgl_string2811za700za7za7b3085za7, "stmode", 6 ); DEFINE_STRING( BGl_string2813z00zzblibz00, BgL_bgl_string2813za700za7za7b3086za7, "stmode?, blib.scm:873", 21 ); DEFINE_STRING( BGl_string2816z00zzblibz00, BgL_bgl_string2816za700za7za7b3087za7, "stat-mode, blib.scm:898", 23 ); DEFINE_STRING( BGl_string2818z00zzblibz00, BgL_bgl_string2818za700za7za7b3088za7, "_stat-mode", 10 ); DEFINE_STRING( BGl_string2820z00zzblibz00, BgL_bgl_string2820za700za7za7b3089za7, "stat-ino, blib.scm:903", 22 ); DEFINE_STRING( BGl_string2822z00zzblibz00, BgL_bgl_string2822za700za7za7b3090za7, "_stat-ino", 9 ); DEFINE_STRING( BGl_string2824z00zzblibz00, BgL_bgl_string2824za700za7za7b3091za7, "stat-dev, blib.scm:908", 22 ); DEFINE_STRING( BGl_string2826z00zzblibz00, BgL_bgl_string2826za700za7za7b3092za7, "_stat-dev", 9 ); BGL_IMPORT obj_t BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00; DEFINE_STRING( BGl_string2828z00zzblibz00, BgL_bgl_string2828za700za7za7b3093za7, "stat-rdev, blib.scm:913", 23 ); DEFINE_STRING( BGl_string2830z00zzblibz00, BgL_bgl_string2830za700za7za7b3094za7, "_stat-rdev", 10 ); DEFINE_STRING( BGl_string2832z00zzblibz00, BgL_bgl_string2832za700za7za7b3095za7, "stat-nlink, blib.scm:918", 24 ); DEFINE_STRING( BGl_string2834z00zzblibz00, BgL_bgl_string2834za700za7za7b3096za7, "_stat-nlink", 11 ); DEFINE_STRING( BGl_string2836z00zzblibz00, BgL_bgl_string2836za700za7za7b3097za7, "stat-uid, blib.scm:923", 22 ); DEFINE_STRING( BGl_string2838z00zzblibz00, BgL_bgl_string2838za700za7za7b3098za7, "_stat-uid", 9 ); DEFINE_STRING( BGl_string2840z00zzblibz00, BgL_bgl_string2840za700za7za7b3099za7, "stat-gid, blib.scm:928", 22 ); DEFINE_STRING( BGl_string2842z00zzblibz00, BgL_bgl_string2842za700za7za7b3100za7, "_stat-gid", 9 ); DEFINE_STRING( BGl_string2844z00zzblibz00, BgL_bgl_string2844za700za7za7b3101za7, "stat-size, blib.scm:933", 23 ); DEFINE_STRING( BGl_string2846z00zzblibz00, BgL_bgl_string2846za700za7za7b3102za7, "_stat-size", 10 ); DEFINE_STRING( BGl_string2848z00zzblibz00, BgL_bgl_string2848za700za7za7b3103za7, "stat-atime, blib.scm:938", 24 ); DEFINE_STRING( BGl_string2850z00zzblibz00, BgL_bgl_string2850za700za7za7b3104za7, "_stat-atime", 11 ); DEFINE_STRING( BGl_string2852z00zzblibz00, BgL_bgl_string2852za700za7za7b3105za7, "stat-mtime, blib.scm:943", 24 ); DEFINE_STRING( BGl_string2854z00zzblibz00, BgL_bgl_string2854za700za7za7b3106za7, "_stat-mtime", 11 ); DEFINE_STRING( BGl_string2856z00zzblibz00, BgL_bgl_string2856za700za7za7b3107za7, "stat-ctime, blib.scm:948", 24 ); DEFINE_STRING( BGl_string2858z00zzblibz00, BgL_bgl_string2858za700za7za7b3108za7, "_stat-ctime", 11 ); DEFINE_STRING( BGl_string2860z00zzblibz00, BgL_bgl_string2860za700za7za7b3109za7, "fd-set?, blib.scm:952", 21 ); DEFINE_STRING( BGl_string2862z00zzblibz00, BgL_bgl_string2862za700za7za7b3110za7, "fd-set", 6 ); DEFINE_STRING( BGl_string2864z00zzblibz00, BgL_bgl_string2864za700za7za7b3111za7, "method-init, blib.scm:36", 24 ); BGL_IMPORT obj_t BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00; DEFINE_EXPORT_BGL_PROCEDURE( BGl_deletezd2duplicateszd2envz00zzblibz00, BgL_bgl__deleteza7d2duplic3112za7, BGl__deletezd2duplicates2157zd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_charzd2ze3hexzd2envze3zzblibz00, BgL_bgl__charza7d2za7e3hexza733113za7, BGl__charzd2ze3hexz31zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_removezd2envzd2zzblibz00, BgL_bgl__removeza700za7za7blib3114za7, BGl__removez00zzblibz00, 0L, BUNSPEC, 2 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzf3zd2envz21zzblibz00, BgL_bgl__tmza7f3za7f3za7za7blibza73115za7, BGl__tmzf3zf3zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2ctimezd2envz00zzblibz00, BgL_bgl__statza7d2ctimeza7d23116z00, BGl__statzd2ctimezd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_environzd2envzd2zzblibz00, BgL_bgl__environza700za7za7bli3117za7, BGl__environz00zzblibz00, 0L, BUNSPEC, 0 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_lsetzd2differencezd2envz00zzblibz00, BgL_bgl__lsetza7d2differen3118za7, va_generic_entry, BGl__lsetzd2differencezd2zzblibz00, BUNSPEC, -3 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_setenvzd2envzd2zzblibz00, BgL_bgl__setenvza700za7za7blib3119za7, BGl__setenvz00zzblibz00, 0L, BUNSPEC, 2 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2yearzd2envz00zzblibz00, BgL_bgl__tmza7d2yearza7d2za7za7b3120z00, BGl__tmzd2yearzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2joinzd2envz00zzblibz00, BgL_bgl__stringza7d2joinza7d3121z00, opt_generic_entry, BGl__stringzd2joinzd2zzblibz00, BFALSE,-1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2devzd2envz00zzblibz00, BgL_bgl__statza7d2devza7d2za7za73122z00, BGl__statzd2devzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2nlinkzd2envz00zzblibz00, BgL_bgl__statza7d2nlinkza7d23123z00, BGl__statzd2nlinkzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2mtimezd2envz00zzblibz00, BgL_bgl__statza7d2mtimeza7d23124z00, BGl__statzd2mtimezd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_strftimezd2envzd2zzblibz00, BgL_bgl__strftimeza700za7za7bl3125za7, opt_generic_entry, BGl__strftimez00zzblibz00, BFALSE,-1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzf3zd2envz21zzblibz00, BgL_bgl__statza7f3za7f3za7za7bli3126z00, BGl__statzf3zf3zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2inozd2envz00zzblibz00, BgL_bgl__statza7d2inoza7d2za7za73127z00, BGl__statzd2inozd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2uidzd2envz00zzblibz00, BgL_bgl__statza7d2uidza7d2za7za73128z00, BGl__statzd2uidzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_daylightzd2envzd2zzblibz00, BgL_bgl__daylightza700za7za7bl3129za7, BGl__daylightz00zzblibz00, 0L, BUNSPEC, 0 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_tmzd2seczd2envz00zzblibz00, BgL_bgl__tmza7d2secza7d2za7za7bl3130z00, BGl__tmzd2seczd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_fdzd2setzf3zd2envzf3zzblibz00, BgL_bgl__fdza7d2setza7f3za721za73131z00, BGl__fdzd2setzf3z21zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_mktimezd2envzd2zzblibz00, BgL_bgl__mktimeza700za7za7blib3132za7, opt_generic_entry, BGl__mktimez00zzblibz00, BFALSE,-1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringza2zf3zd2envz83zzblibz00, BgL_bgl__stringza7a2za7f3za7513133za7, BGl__stringza2zf3z51zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2atimezd2envz00zzblibz00, BgL_bgl__statza7d2atimeza7d23134z00, BGl__statzd2atimezd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2gidzd2envz00zzblibz00, BgL_bgl__statza7d2gidza7d2za7za73135z00, BGl__statzd2gidzd2zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3hexzd2envze3zzblibz00, BgL_bgl__stringza7d2za7e3hex3136z00, BGl__stringzd2ze3hexz31zzblibz00, 0L, BUNSPEC, 1 ); DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2listzd2ze3stringza2zd2envz93zzblibz00, BgL_bgl__stringza7d2listza7d3137z00, BGl__stringzd2listzd2ze3stringza2z41zzblibz00, 0L, BUNSPEC, 1 ); BGL_IMPORT obj_t BGl_displayzd2envzd2zz__r4_output_6_10_3z00; DEFINE_EXPORT_BGL_PROCEDURE( BGl_statzd2envzd2zzblibz00, BgL_bgl__statza700za7za7blibza703138z00, BGl__statz00zzblibz00, 0L, BUNSPEC, 1 ); /* module-initialization */ BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzblibz00(long BgL_checksumz00_1814, char * BgL_fromz00_1815) { AN_OBJECT; { if( CBOOL(BGl_requirezd2initializa7ationz75zzblibz00)) { BGl_requirezd2initializa7ationz75zzblibz00 = BBOOL(((bool_t)0)); BGl_libraryzd2moduleszd2initz00zzblibz00(); BGl_cnstzd2initzd2zzblibz00(); BGl_methodzd2initzd2zzblibz00(); return BUNSPEC;} else { return BUNSPEC;} } } /* library-modules-init */ obj_t BGl_libraryzd2moduleszd2initz00zzblibz00() { AN_OBJECT; { /* blib.scm 36 */ BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__evalz00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__bexitz00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "blib"); BGl_modulezd2initializa7ationz75zz__evenvz00(((long)0), "blib"); return BUNSPEC;} } /* cnst-init */ obj_t BGl_cnstzd2initzd2zzblibz00() { AN_OBJECT; { /* blib.scm 36 */ BGl_symbol2455z00zzblibz00 = bstring_to_symbol(BGl_string2456z00zzblibz00); BGl_symbol2457z00zzblibz00 = bstring_to_symbol(BGl_string2458z00zzblibz00); BGl_symbol2461z00zzblibz00 = bstring_to_symbol(BGl_string2462z00zzblibz00); BGl_symbol2463z00zzblibz00 = bstring_to_symbol(BGl_string2464z00zzblibz00); BGl_symbol2468z00zzblibz00 = bstring_to_symbol(BGl_string2469z00zzblibz00); BGl_symbol2470z00zzblibz00 = bstring_to_symbol(BGl_string2471z00zzblibz00); BGl_symbol2473z00zzblibz00 = bstring_to_symbol(BGl_string2474z00zzblibz00); BGl_symbol2477z00zzblibz00 = bstring_to_symbol(BGl_string2478z00zzblibz00); BGl_symbol2482z00zzblibz00 = bstring_to_symbol(BGl_string2483z00zzblibz00); BGl_symbol2485z00zzblibz00 = bstring_to_symbol(BGl_string2486z00zzblibz00); BGl_symbol2487z00zzblibz00 = bstring_to_symbol(BGl_string2488z00zzblibz00); BGl_symbol2490z00zzblibz00 = bstring_to_symbol(BGl_string2491z00zzblibz00); BGl_list2489z00zzblibz00 = MAKE_PAIR(BGl_symbol2490z00zzblibz00, MAKE_PAIR(BNIL, BNIL)); BGl_list2484z00zzblibz00 = MAKE_PAIR(BGl_symbol2485z00zzblibz00, MAKE_PAIR(BGl_symbol2487z00zzblibz00, MAKE_PAIR(BGl_list2489z00zzblibz00, BNIL))); BGl_list2481z00zzblibz00 = MAKE_PAIR(BGl_symbol2482z00zzblibz00, MAKE_PAIR(BGl_list2484z00zzblibz00, BNIL)); BGl_list2480z00zzblibz00 = MAKE_PAIR(BGl_list2481z00zzblibz00, BNIL); BGl_list2479z00zzblibz00 = MAKE_PAIR(BGl_symbol2473z00zzblibz00, MAKE_PAIR(BGl_list2480z00zzblibz00, MAKE_PAIR(BGl_symbol2482z00zzblibz00, BNIL))); BGl_list2476z00zzblibz00 = MAKE_PAIR(BGl_symbol2477z00zzblibz00, MAKE_PAIR(BGl_list2479z00zzblibz00, BNIL)); BGl_list2475z00zzblibz00 = MAKE_PAIR(BGl_list2476z00zzblibz00, BNIL); BGl_symbol2493z00zzblibz00 = bstring_to_symbol(BGl_string2494z00zzblibz00); BGl_symbol2495z00zzblibz00 = bstring_to_symbol(BGl_string2496z00zzblibz00); BGl_list2492z00zzblibz00 = MAKE_PAIR(BGl_symbol2493z00zzblibz00, MAKE_PAIR(BGl_symbol2495z00zzblibz00, MAKE_PAIR(BGl_symbol2477z00zzblibz00, BNIL))); BGl_list2472z00zzblibz00 = MAKE_PAIR(BGl_symbol2473z00zzblibz00, MAKE_PAIR(BGl_list2475z00zzblibz00, MAKE_PAIR(BGl_list2492z00zzblibz00, BNIL))); BGl_list2467z00zzblibz00 = MAKE_PAIR(BGl_symbol2468z00zzblibz00, MAKE_PAIR(BGl_symbol2470z00zzblibz00, MAKE_PAIR(BGl_list2472z00zzblibz00, BNIL))); BGl_symbol2497z00zzblibz00 = bstring_to_symbol(BGl_string2498z00zzblibz00); BGl_symbol2501z00zzblibz00 = bstring_to_symbol(BGl_string2502z00zzblibz00); BGl_symbol2503z00zzblibz00 = bstring_to_symbol(BGl_string2504z00zzblibz00); BGl_list2500z00zzblibz00 = MAKE_PAIR(BGl_symbol2501z00zzblibz00, MAKE_PAIR(BGl_symbol2470z00zzblibz00, MAKE_PAIR(BGl_symbol2470z00zzblibz00, MAKE_PAIR(BGl_symbol2503z00zzblibz00, MAKE_PAIR(BGl_symbol2487z00zzblibz00, BNIL))))); BGl_symbol2505z00zzblibz00 = bstring_to_symbol(BGl_string2506z00zzblibz00); BGl_symbol2507z00zzblibz00 = bstring_to_symbol(BGl_string2508z00zzblibz00); BGl_symbol2509z00zzblibz00 = bstring_to_symbol(BGl_string2510z00zzblibz00); BGl_symbol2514z00zzblibz00 = bstring_to_symbol(BGl_string2515z00zzblibz00); BGl_symbol2517z00zzblibz00 = bstring_to_symbol(BGl_string2518z00zzblibz00); BGl_symbol2519z00zzblibz00 = bstring_to_symbol(BGl_string2520z00zzblibz00); BGl_list2516z00zzblibz00 = MAKE_PAIR(BGl_symbol2468z00zzblibz00, MAKE_PAIR(BGl_symbol2517z00zzblibz00, MAKE_PAIR(BGl_symbol2519z00zzblibz00, BNIL))); BGl_symbol2522z00zzblibz00 = bstring_to_symbol(BGl_string2523z00zzblibz00); BGl_list2521z00zzblibz00 = MAKE_PAIR(BGl_symbol2501z00zzblibz00, MAKE_PAIR(BGl_symbol2517z00zzblibz00, MAKE_PAIR(BGl_symbol2517z00zzblibz00, MAKE_PAIR(BGl_symbol2522z00zzblibz00, MAKE_PAIR(BGl_symbol2487z00zzblibz00, BNIL))))); BGl_symbol2524z00zzblibz00 = bstring_to_symbol(BGl_string2525z00zzblibz00); BGl_symbol2528z00zzblibz00 = bstring_to_symbol(BGl_string2529z00zzblibz00); BGl_symbol2531z00zzblibz00 = bstring_to_symbol(BGl_string2532z00zzblibz00); BGl_symbol2536z00zzblibz00 = bstring_to_symbol(BGl_string2537z00zzblibz00); BGl_symbol2541z00zzblibz00 = bstring_to_symbol(BGl_string2542z00zzblibz00); BGl_symbol2543z00zzblibz00 = bstring_to_symbol(BGl_string2544z00zzblibz00); BGl_list2540z00zzblibz00 = MAKE_PAIR(BGl_symbol2501z00zzblibz00, MAKE_PAIR(BGl_symbol2541z00zzblibz00, MAKE_PAIR(BGl_symbol2541z00zzblibz00, MAKE_PAIR(BGl_symbol2543z00zzblibz00, BNIL)))); BGl_symbol2545z00zzblibz00 = bstring_to_symbol(BGl_string2546z00zzblibz00); BGl_symbol2547z00zzblibz00 = bstring_to_symbol(BGl_string2548z00zzblibz00); BGl_symbol2550z00zzblibz00 = bstring_to_symbol(BGl_string2551z00zzblibz00); BGl_symbol2553z00zzblibz00 = bstring_to_symbol(BGl_string2554z00zzblibz00); BGl_symbol2555z00zzblibz00 = bstring_to_symbol(BGl_string2556z00zzblibz00); BGl_list2552z00zzblibz00 = MAKE_PAIR(BGl_symbol2468z00zzblibz00, MAKE_PAIR(BGl_symbol2553z00zzblibz00, MAKE_PAIR(BGl_symbol2555z00zzblibz00, BNIL))); BGl_symbol2557z00zzblibz00 = bstring_to_symbol(BGl_string2558z00zzblibz00); BGl_symbol2559z00zzblibz00 = bstring_to_symbol(BGl_string2560z00zzblibz00); BGl_list2561z00zzblibz00 = MAKE_PAIR(BGl_symbol2559z00zzblibz00, BNIL); BGl_symbol2563z00zzblibz00 = bstring_to_symbol(BGl_string2564z00zzblibz00); BGl_symbol2566z00zzblibz00 = bstring_to_symbol(BGl_string2567z00zzblibz00); BGl_list2565z00zzblibz00 = MAKE_PAIR(BGl_symbol2566z00zzblibz00, MAKE_PAIR(BGl_symbol2559z00zzblibz00, BNIL)); BGl_list2562z00zzblibz00 = MAKE_PAIR(BGl_symbol2563z00zzblibz00, MAKE_PAIR(BGl_list2565z00zzblibz00, BNIL)); BGl_list2568z00zzblibz00 = MAKE_PAIR(BGl_string2460z00zzblibz00, BINT(((long)13364))); BGl_symbol2569z00zzblibz00 = bstring_to_symbol(BGl_string2570z00zzblibz00); BGl_symbol2571z00zzblibz00 = bstring_to_symbol(BGl_string2572z00zzblibz00); BGl_symbol2575z00zzblibz00 = bstring_to_symbol(BGl_string2576z00zzblibz00); BGl_symbol2577z00zzblibz00 = bstring_to_symbol(BGl_string2578z00zzblibz00); BGl_symbol2583z00zzblibz00 = bstring_to_symbol(BGl_string2459z00zzblibz00); BGl_list2582z00zzblibz00 = MAKE_PAIR(BGl_symbol2583z00zzblibz00, MAKE_PAIR(BGl_symbol2559z00zzblibz00, BNIL)); BGl_list2581z00zzblibz00 = MAKE_PAIR(BGl_list2582z00zzblibz00, BNIL); BGl_symbol2585z00zzblibz00 = bstring_to_symbol(BGl_string2586z00zzblibz00); BGl_list2584z00zzblibz00 = MAKE_PAIR(BGl_symbol2585z00zzblibz00, MAKE_PAIR(BGl_symbol2583z00zzblibz00, BNIL)); BGl_list2580z00zzblibz00 = MAKE_PAIR(BGl_symbol2473z00zzblibz00, MAKE_PAIR(BGl_list2581z00zzblibz00, MAKE_PAIR(BGl_list2584z00zzblibz00, BNIL))); BGl_list2579z00zzblibz00 = MAKE_PAIR(BGl_symbol2468z00zzblibz00, MAKE_PAIR(BGl_symbol2553z00zzblibz00, MAKE_PAIR(BGl_list2580z00zzblibz00, BNIL))); BGl_symbol2587z00zzblibz00 = bstring_to_symbol(BGl_string2588z00zzblibz00); BGl_symbol2589z00zzblibz00 = bstring_to_symbol(BGl_string2590z00zzblibz00); BGl_symbol2591z00zzblibz00 = bstring_to_symbol(BGl_string2592z00zzblibz00); BGl_symbol2593z00zzblibz00 = bstring_to_symbol(BGl_string2594z00zzblibz00); BGl_symbol2595z00zzblibz00 = bstring_to_symbol(BGl_string2596z00zzblibz00); BGl_symbol2597z00zzblibz00 = bstring_to_symbol(BGl_string2598z00zzblibz00); BGl_symbol2600z00zzblibz00 = bstring_to_symbol(BGl_string2601z00zzblibz00); BGl_symbol2602z00zzblibz00 = bstring_to_symbol(BGl_string2603z00zzblibz00); BGl_symbol2604z00zzblibz00 = bstring_to_symbol(BGl_string2605z00zzblibz00); BGl_symbol2607z00zzblibz00 = bstring_to_symbol(BGl_string2608z00zzblibz00); BGl_symbol2609z00zzblibz00 = bstring_to_symbol(BGl_string2610z00zzblibz00); BGl_symbol2611z00zzblibz00 = bstring_to_symbol(BGl_string2612z00zzblibz00); BGl_symbol2613z00zzblibz00 = bstring_to_symbol(BGl_string2614z00zzblibz00); BGl_symbol2615z00zzblibz00 = bstring_to_symbol(BGl_string2616z00zzblibz00); BGl_symbol2617z00zzblibz00 = bstring_to_symbol(BGl_string2618z00zzblibz00); BGl_symbol2620z00zzblibz00 = bstring_to_symbol(BGl_string2621z00zzblibz00); BGl_symbol2623z00zzblibz00 = bstring_to_symbol(BGl_string2624z00zzblibz00); BGl_symbol2625z00zzblibz00 = bstring_to_symbol(BGl_string2626z00zzblibz00); BGl_symbol2629z00zzblibz00 = bstring_to_symbol(BGl_string2630z00zzblibz00); BGl_symbol2631z00zzblibz00 = bstring_to_symbol(BGl_string2632z00zzblibz00); BGl_list2628z00zzblibz00 = MAKE_PAIR(BGl_symbol2501z00zzblibz00, MAKE_PAIR(BGl_symbol2629z00zzblibz00, MAKE_PAIR(BGl_symbol2629z00zzblibz00, MAKE_PAIR(BGl_symbol2631z00zzblibz00, BNIL)))); BGl_symbol2633z00zzblibz00 = bstring_to_symbol(BGl_string2634z00zzblibz00); BGl_symbol2635z00zzblibz00 = bstring_to_symbol(BGl_string2636z00zzblibz00); BGl_symbol2637z00zzblibz00 = bstring_to_symbol(BGl_string2638z00zzblibz00); BGl_symbol2639z00zzblibz00 = bstring_to_symbol(BGl_string2640z00zzblibz00); BGl_symbol2642z00zzblibz00 = bstring_to_symbol(BGl_string2643z00zzblibz00); BGl_symbol2645z00zzblibz00 = bstring_to_symbol(BGl_string2646z00zzblibz00); BGl_symbol2647z00zzblibz00 = bstring_to_symbol(BGl_string2648z00zzblibz00); BGl_symbol2650z00zzblibz00 = bstring_to_symbol(BGl_string2651z00zzblibz00); BGl_symbol2652z00zzblibz00 = bstring_to_symbol(BGl_string2653z00zzblibz00); BGl_symbol2655z00zzblibz00 = bstring_to_symbol(BGl_string2656z00zzblibz00); BGl_symbol2657z00zzblibz00 = bstring_to_symbol(BGl_string2658z00zzblibz00); BGl_symbol2659z00zzblibz00 = bstring_to_symbol(BGl_string2660z00zzblibz00); BGl_symbol2663z00zzblibz00 = bstring_to_symbol(BGl_string2664z00zzblibz00); BGl_symbol2665z00zzblibz00 = bstring_to_symbol(BGl_string2666z00zzblibz00); BGl_symbol2667z00zzblibz00 = bstring_to_symbol(BGl_string2668z00zzblibz00); BGl_symbol2669z00zzblibz00 = bstring_to_symbol(BGl_string2670z00zzblibz00); BGl_symbol2671z00zzblibz00 = bstring_to_symbol(BGl_string2672z00zzblibz00); BGl_symbol2675z00zzblibz00 = bstring_to_symbol(BGl_string2676z00zzblibz00); BGl_symbol2679z00zzblibz00 = bstring_to_symbol(BGl_string2680z00zzblibz00); BGl_symbol2681z00zzblibz00 = bstring_to_symbol(BGl_string2682z00zzblibz00); BGl_list2678z00zzblibz00 = MAKE_PAIR(BGl_symbol2501z00zzblibz00, MAKE_PAIR(BGl_symbol2679z00zzblibz00, MAKE_PAIR(BGl_symbol2679z00zzblibz00, MAKE_PAIR(BGl_symbol2631z00zzblibz00, MAKE_PAIR(BGl_symbol2681z00zzblibz00, BNIL))))); BGl_symbol2683z00zzblibz00 = bstring_to_symbol(BGl_string2684z00zzblibz00); BGl_symbol2685z00zzblibz00 = bstring_to_symbol(BGl_string2686z00zzblibz00); BGl_symbol2688z00zzblibz00 = bstring_to_symbol(BGl_string2689z00zzblibz00); BGl_symbol2690z00zzblibz00 = bstring_to_symbol(BGl_string2691z00zzblibz00); BGl_symbol2692z00zzblibz00 = bstring_to_symbol(BGl_string2693z00zzblibz00); BGl_symbol2694z00zzblibz00 = bstring_to_symbol(BGl_string2695z00zzblibz00); BGl_symbol2696z00zzblibz00 = bstring_to_symbol(BGl_string2697z00zzblibz00); BGl_symbol2699z00zzblibz00 = bstring_to_symbol(BGl_string2700z00zzblibz00); BGl_symbol2701z00zzblibz00 = bstring_to_symbol(BGl_string2702z00zzblibz00); BGl_symbol2703z00zzblibz00 = bstring_to_symbol(BGl_string2704z00zzblibz00); BGl_symbol2705z00zzblibz00 = bstring_to_symbol(BGl_string2706z00zzblibz00); BGl_symbol2707z00zzblibz00 = bstring_to_symbol(BGl_string2708z00zzblibz00); BGl_symbol2709z00zzblibz00 = bstring_to_symbol(BGl_string2710z00zzblibz00); BGl_symbol2711z00zzblibz00 = bstring_to_symbol(BGl_string2712z00zzblibz00); BGl_symbol2713z00zzblibz00 = bstring_to_symbol(BGl_string2714z00zzblibz00); BGl_symbol2715z00zzblibz00 = bstring_to_symbol(BGl_string2716z00zzblibz00); BGl_symbol2717z00zzblibz00 = bstring_to_symbol(BGl_string2718z00zzblibz00); BGl_symbol2719z00zzblibz00 = bstring_to_symbol(BGl_string2720z00zzblibz00); BGl_symbol2721z00zzblibz00 = bstring_to_symbol(BGl_string2698z00zzblibz00); BGl_symbol2722z00zzblibz00 = bstring_to_symbol(BGl_string2723z00zzblibz00); BGl_symbol2724z00zzblibz00 = bstring_to_symbol(BGl_string2725z00zzblibz00); BGl_symbol2726z00zzblibz00 = bstring_to_symbol(BGl_string2727z00zzblibz00); BGl_symbol2728z00zzblibz00 = bstring_to_symbol(BGl_string2729z00zzblibz00); BGl_symbol2730z00zzblibz00 = bstring_to_symbol(BGl_string2731z00zzblibz00); BGl_symbol2732z00zzblibz00 = bstring_to_symbol(BGl_string2733z00zzblibz00); BGl_symbol2735z00zzblibz00 = bstring_to_symbol(BGl_string2736z00zzblibz00); BGl_symbol2737z00zzblibz00 = bstring_to_symbol(BGl_string2738z00zzblibz00); BGl_symbol2739z00zzblibz00 = bstring_to_symbol(BGl_string2740z00zzblibz00); BGl_symbol2742z00zzblibz00 = bstring_to_symbol(BGl_string2743z00zzblibz00); BGl_symbol2745z00zzblibz00 = bstring_to_symbol(BGl_string2746z00zzblibz00); BGl_symbol2747z00zzblibz00 = bstring_to_symbol(BGl_string2748z00zzblibz00); BGl_symbol2750z00zzblibz00 = bstring_to_symbol(BGl_string2751z00zzblibz00); BGl_symbol2753z00zzblibz00 = bstring_to_symbol(BGl_string2754z00zzblibz00); BGl_symbol2755z00zzblibz00 = bstring_to_symbol(BGl_string2756z00zzblibz00); BGl_symbol2757z00zzblibz00 = bstring_to_symbol(BGl_string2758z00zzblibz00); BGl_symbol2761z00zzblibz00 = bstring_to_symbol(BGl_string2762z00zzblibz00); BGl_symbol2763z00zzblibz00 = bstring_to_symbol(BGl_string2764z00zzblibz00); BGl_symbol2765z00zzblibz00 = bstring_to_symbol(BGl_string2766z00zzblibz00); BGl_symbol2767z00zzblibz00 = bstring_to_symbol(BGl_string2768z00zzblibz00); BGl_symbol2769z00zzblibz00 = bstring_to_symbol(BGl_string2770z00zzblibz00); BGl_symbol2771z00zzblibz00 = bstring_to_symbol(BGl_string2772z00zzblibz00); BGl_symbol2773z00zzblibz00 = bstring_to_symbol(BGl_string2774z00zzblibz00); BGl_symbol2775z00zzblibz00 = bstring_to_symbol(BGl_string2776z00zzblibz00); BGl_symbol2777z00zzblibz00 = bstring_to_symbol(BGl_string2778z00zzblibz00); BGl_symbol2779z00zzblibz00 = bstring_to_symbol(BGl_string2780z00zzblibz00); BGl_symbol2781z00zzblibz00 = bstring_to_symbol(BGl_string2782z00zzblibz00); BGl_symbol2783z00zzblibz00 = bstring_to_symbol(BGl_string2784z00zzblibz00); BGl_symbol2785z00zzblibz00 = bstring_to_symbol(BGl_string2786z00zzblibz00); BGl_symbol2787z00zzblibz00 = bstring_to_symbol(BGl_string2788z00zzblibz00); BGl_symbol2789z00zzblibz00 = bstring_to_symbol(BGl_string2790z00zzblibz00); BGl_symbol2791z00zzblibz00 = bstring_to_symbol(BGl_string2792z00zzblibz00); BGl_symbol2793z00zzblibz00 = bstring_to_symbol(BGl_string2794z00zzblibz00); BGl_symbol2795z00zzblibz00 = bstring_to_symbol(BGl_string2796z00zzblibz00); BGl_symbol2797z00zzblibz00 = bstring_to_symbol(BGl_string2798z00zzblibz00); BGl_symbol2799z00zzblibz00 = bstring_to_symbol(BGl_string2800z00zzblibz00); BGl_symbol2804z00zzblibz00 = bstring_to_symbol(BGl_string2805z00zzblibz00); BGl_symbol2806z00zzblibz00 = bstring_to_symbol(BGl_string2807z00zzblibz00); BGl_symbol2809z00zzblibz00 = bstring_to_symbol(BGl_string2810z00zzblibz00); BGl_symbol2812z00zzblibz00 = bstring_to_symbol(BGl_string2813z00zzblibz00); BGl_list2814z00zzblibz00 = MAKE_PAIR(BGl_symbol2763z00zzblibz00, MAKE_PAIR(BGl_symbol2765z00zzblibz00, MAKE_PAIR(BGl_symbol2767z00zzblibz00, MAKE_PAIR(BGl_symbol2769z00zzblibz00, MAKE_PAIR(BGl_symbol2771z00zzblibz00, MAKE_PAIR(BGl_symbol2773z00zzblibz00, MAKE_PAIR(BGl_symbol2775z00zzblibz00, MAKE_PAIR(BGl_symbol2777z00zzblibz00, MAKE_PAIR(BGl_symbol2779z00zzblibz00, MAKE_PAIR(BGl_symbol2781z00zzblibz00, MAKE_PAIR(BGl_symbol2783z00zzblibz00, MAKE_PAIR(BGl_symbol2785z00zzblibz00, MAKE_PAIR(BGl_symbol2787z00zzblibz00, MAKE_PAIR(BGl_symbol2789z00zzblibz00, MAKE_PAIR(BGl_symbol2791z00zzblibz00, MAKE_PAIR(BGl_symbol2793z00zzblibz00, MAKE_PAIR(BGl_symbol2795z00zzblibz00, MAKE_PAIR(BGl_symbol2797z00zzblibz00, MAKE_PAIR(BGl_symbol2799z00zzblibz00, BNIL))))))))))))))))))); BGl_symbol2815z00zzblibz00 = bstring_to_symbol(BGl_string2816z00zzblibz00); BGl_symbol2817z00zzblibz00 = bstring_to_symbol(BGl_string2818z00zzblibz00); BGl_symbol2819z00zzblibz00 = bstring_to_symbol(BGl_string2820z00zzblibz00); BGl_symbol2821z00zzblibz00 = bstring_to_symbol(BGl_string2822z00zzblibz00); BGl_symbol2823z00zzblibz00 = bstring_to_symbol(BGl_string2824z00zzblibz00); BGl_symbol2825z00zzblibz00 = bstring_to_symbol(BGl_string2826z00zzblibz00); BGl_symbol2827z00zzblibz00 = bstring_to_symbol(BGl_string2828z00zzblibz00); BGl_symbol2829z00zzblibz00 = bstring_to_symbol(BGl_string2830z00zzblibz00); BGl_symbol2831z00zzblibz00 = bstring_to_symbol(BGl_string2832z00zzblibz00); BGl_symbol2833z00zzblibz00 = bstring_to_symbol(BGl_string2834z00zzblibz00); BGl_symbol2835z00zzblibz00 = bstring_to_symbol(BGl_string2836z00zzblibz00); BGl_symbol2837z00zzblibz00 = bstring_to_symbol(BGl_string2838z00zzblibz00); BGl_symbol2839z00zzblibz00 = bstring_to_symbol(BGl_string2840z00zzblibz00); BGl_symbol2841z00zzblibz00 = bstring_to_symbol(BGl_string2842z00zzblibz00); BGl_symbol2843z00zzblibz00 = bstring_to_symbol(BGl_string2844z00zzblibz00); BGl_symbol2845z00zzblibz00 = bstring_to_symbol(BGl_string2846z00zzblibz00); BGl_symbol2847z00zzblibz00 = bstring_to_symbol(BGl_string2848z00zzblibz00); BGl_symbol2849z00zzblibz00 = bstring_to_symbol(BGl_string2850z00zzblibz00); BGl_symbol2851z00zzblibz00 = bstring_to_symbol(BGl_string2852z00zzblibz00); BGl_symbol2853z00zzblibz00 = bstring_to_symbol(BGl_string2854z00zzblibz00); BGl_symbol2855z00zzblibz00 = bstring_to_symbol(BGl_string2856z00zzblibz00); BGl_symbol2857z00zzblibz00 = bstring_to_symbol(BGl_string2858z00zzblibz00); BGl_symbol2859z00zzblibz00 = bstring_to_symbol(BGl_string2860z00zzblibz00); BGl_symbol2861z00zzblibz00 = bstring_to_symbol(BGl_string2862z00zzblibz00); return ( BGl_symbol2863z00zzblibz00 = bstring_to_symbol(BGl_string2864z00zzblibz00), BUNSPEC) ;} } /* %cdrs */ obj_t BGl_z52cdrsz52zzblibz00(obj_t BgL_listsz00_9) { AN_OBJECT; { /* blib.scm 324 */ { /* blib.scm 325 */ obj_t BgL_symbol2032z00_1135; BgL_symbol2032z00_1135 = BGl_symbol2455z00zzblibz00; { /* blib.scm 325 */ PUSH_TRACE(BgL_symbol2032z00_1135); { /* blib.scm 325 */ obj_t BgL_aux2031z00_1136; BgL_aux2031z00_1136 = BGl_zc3exitza31409za3blibze2scmza3325ze3z61zzblibz00(BgL_listsz00_9); POP_TRACE(); return BgL_aux2031z00_1136;} } } } } /* recur'' */ obj_t BGl_recurz72z72z00zzblibz00(obj_t BgL_an_exitd1309z00_1412, obj_t BgL_listsz00_153) { AN_OBJECT; { /* blib.scm 326 */ if( PAIRP(BgL_listsz00_153)) { /* blib.scm 328 */ obj_t BgL_lisz00_156; BgL_lisz00_156 = CAR(BgL_listsz00_153); if( CBOOL( BGl_nullzd2listzf3z21zzblibz00(BgL_lisz00_156))) { /* blib.scm 329 */ return BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1309z00_1412, BNIL);} else { /* blib.scm 330 */ obj_t BgL_arg1412z00_158;obj_t BgL_arg1413z00_159; { /* blib.scm 330 */ obj_t BgL_pairz00_673; if( PAIRP(BgL_lisz00_156)) { /* blib.scm 330 */ BgL_pairz00_673 = BgL_lisz00_156; } else { /* blib.scm 330 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2457z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_156, BGl_string2460z00zzblibz00, BINT(((long)10377))); exit( -1 );} BgL_arg1412z00_158 = CDR(BgL_pairz00_673); } BgL_arg1413z00_159 = BGl_recurz72z72z00zzblibz00(BgL_an_exitd1309z00_1412, CDR(BgL_listsz00_153)); return MAKE_PAIR(BgL_arg1412z00_158, BgL_arg1413z00_159);} } else { /* blib.scm 327 */ return BNIL;} } } /* */ obj_t BGl_zc3exitza31409za3blibze2scmza3325ze3z61zzblibz00(obj_t BgL_listsz00_1413) { AN_OBJECT; { /* blib.scm 325 */ jmp_buf_t jmpbuf; void * BgL_an_exit1308z00_148; {BGL_STORE_TRACE(); if( SET_EXIT(BgL_an_exit1308z00_148) ) { BGL_RESTORE_TRACE(); return _exit_value_; } else { BgL_an_exit1308z00_148 = (void *)jmpbuf; { /* blib.scm 325 */ PUSH_EXIT(BgL_an_exit1308z00_148, ((long)1)); { /* blib.scm 325 */ obj_t BgL_an_exitd1309z00_149; BgL_an_exitd1309z00_149 = BGL_EXITD_TOP(); { /* blib.scm 326 */ obj_t BgL_res1311z00_152; BgL_res1311z00_152 = BGl_recurz72z72z00zzblibz00(BgL_an_exitd1309z00_149, BgL_listsz00_1413); POP_EXIT(); return BgL_res1311z00_152;} } } }} } } /* pair-fold */ obj_t BGl_pairzd2foldzd2zzblibz00(obj_t BgL_fz00_10, obj_t BgL_za7eroza7_11, obj_t BgL_lis1z00_12, obj_t BgL_listsz00_13) { AN_OBJECT; { /* blib.scm 334 */ { /* blib.scm 335 */ obj_t BgL_symbol2034z00_1137; BgL_symbol2034z00_1137 = BGl_symbol2461z00zzblibz00; { /* blib.scm 335 */ PUSH_TRACE(BgL_symbol2034z00_1137); { /* blib.scm 335 */ obj_t BgL_aux2033z00_1138; if( PAIRP(BgL_listsz00_13)) { /* blib.scm 336 */ obj_t BgL_g1312z00_162; BgL_g1312z00_162 = MAKE_PAIR(BgL_lis1z00_12, BgL_listsz00_13); { obj_t BgL_listsz00_163;obj_t BgL_ansz00_164; BgL_listsz00_163 = BgL_g1312z00_162; BgL_ansz00_164 = BgL_za7eroza7_11; BgL_lpz00_165: { /* blib.scm 337 */ obj_t BgL_tailsz00_166; BgL_tailsz00_166 = BGl_z52cdrsz52zzblibz00(BgL_listsz00_163); if( NULLP(BgL_tailsz00_166)) { /* blib.scm 338 */ BgL_aux2033z00_1138 = BgL_ansz00_164; } else { /* blib.scm 339 */ obj_t BgL_arg1417z00_168; { /* blib.scm 339 */ obj_t BgL_valz00_1423; { /* blib.scm 339 */ obj_t BgL_arg1418z00_169; { /* blib.scm 339 */ obj_t BgL_list1419z00_170; BgL_list1419z00_170 = MAKE_PAIR(BgL_ansz00_164, BNIL); BgL_arg1418z00_169 = BgL_list1419z00_170; } { /* blib.scm 339 */ obj_t BgL_auxz00_2125; { /* blib.scm 339 */ bool_t BgL_testz00_2126; if( PAIRP(BgL_listsz00_163)) { /* blib.scm 339 */ BgL_testz00_2126 = ((bool_t)1) ; } else { /* blib.scm 339 */ BgL_testz00_2126 = NULLP(BgL_listsz00_163) ; } if(BgL_testz00_2126) { /* blib.scm 339 */ BgL_auxz00_2125 = BgL_listsz00_163 ; } else { /* blib.scm 339 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2465z00zzblibz00, BgL_listsz00_163, BGl_string2460z00zzblibz00, BINT(((long)10662))); exit( -1 );} } BgL_valz00_1423 = BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2125, BgL_arg1418z00_169); } } { /* blib.scm 339 */ int BgL_len2168z00_1424; BgL_len2168z00_1424 = (int)( bgl_list_length(BgL_valz00_1423)); if( PROCEDURE_CORRECT_ARITYP(BgL_fz00_10, BgL_len2168z00_1424)) { /* blib.scm 339 */ BgL_arg1417z00_168 = apply(BgL_fz00_10, BgL_valz00_1423); } else { /* blib.scm 339 */ BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2466z00zzblibz00, BGl_list2467z00zzblibz00, BGl_string2460z00zzblibz00, BINT(((long)10644))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } { obj_t BgL_ansz00_2144;obj_t BgL_listsz00_2143; BgL_listsz00_2143 = BgL_tailsz00_166; BgL_ansz00_2144 = BgL_arg1417z00_168; BgL_ansz00_164 = BgL_ansz00_2144; BgL_listsz00_163 = BgL_listsz00_2143; goto BgL_lpz00_165;} } } } } else { obj_t BgL_lisz00_680;obj_t BgL_ansz00_681; BgL_lisz00_680 = BgL_lis1z00_12; BgL_ansz00_681 = BgL_za7eroza7_11; BgL_lpz00_679: if( CBOOL( BGl_nullzd2listzf3z21zzblibz00(BgL_lisz00_680))) { /* blib.scm 341 */ BgL_aux2033z00_1138 = BgL_ansz00_681; } else { /* blib.scm 341 */ obj_t BgL_tailz00_686; { /* blib.scm 341 */ obj_t BgL_pairz00_688; if( PAIRP(BgL_lisz00_680)) { /* blib.scm 341 */ BgL_pairz00_688 = BgL_lisz00_680; } else { /* blib.scm 341 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_680, BGl_string2460z00zzblibz00, BINT(((long)10692))); exit( -1 );} BgL_tailz00_686 = CDR(BgL_pairz00_688); } { /* blib.scm 341 */ obj_t BgL_arg1421z00_687; if( PROCEDURE_CORRECT_ARITYP(BgL_fz00_10, ((long)2))) { /* blib.scm 341 */ BgL_arg1421z00_687 = PROCEDURE_ENTRY(BgL_fz00_10)(BgL_fz00_10, BgL_lisz00_680, BgL_ansz00_681, BEOA); } else { /* blib.scm 341 */ BGl_errorzf2locationzf2zz__errorz00(BGl_string2499z00zzblibz00, BGl_list2500z00zzblibz00, BgL_fz00_10, BGl_string2460z00zzblibz00, BINT(((long)10692))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} { obj_t BgL_ansz00_2162;obj_t BgL_lisz00_2161; BgL_lisz00_2161 = BgL_tailz00_686; BgL_ansz00_2162 = BgL_arg1421z00_687; BgL_ansz00_681 = BgL_ansz00_2162; BgL_lisz00_680 = BgL_lisz00_2161; goto BgL_lpz00_679;} } } } POP_TRACE(); return BgL_aux2033z00_1138;} } } } } /* %cars+cdrs+ */ obj_t BGl_z52carszb2cdrszb2z52zzblibz00(obj_t BgL_listsz00_15, obj_t BgL_carszd2finalzd2_16) { AN_OBJECT; { /* blib.scm 350 */ { /* blib.scm 351 */ obj_t BgL_symbol2036z00_1139; BgL_symbol2036z00_1139 = BGl_symbol2505z00zzblibz00; { /* blib.scm 351 */ PUSH_TRACE(BgL_symbol2036z00_1139); { /* blib.scm 351 */ obj_t BgL_aux2035z00_1140; BgL_aux2035z00_1140 = BGl_zc3exitza31423za3blibze2scmza3351ze3z61zzblibz00(BgL_listsz00_15, BgL_carszd2finalzd2_16); POP_TRACE(); return BgL_aux2035z00_1140;} } } } } /* recur' */ obj_t BGl_recurz72z72zzblibz00(obj_t BgL_an_exitd1314z00_1409, obj_t BgL_carszd2finalzd2_1408, obj_t BgL_listsz00_185) { AN_OBJECT; { /* blib.scm 352 */ if( PAIRP(BgL_listsz00_185)) { /* blib.scm 354 */ obj_t BgL_listz00_188; { /* blib.scm 354 */ obj_t BgL_val0_1338z00_708;obj_t BgL_val1_1339z00_709; BgL_val0_1338z00_708 = CAR(BgL_listsz00_185); BgL_val1_1339z00_709 = CDR(BgL_listsz00_185); { /* blib.scm 354 */ int BgL_auxz00_2171; BgL_auxz00_2171 = (int)(((long)2)); BGL_MVALUES_NUMBER_SET(BgL_auxz00_2171); } { /* blib.scm 354 */ int BgL_auxz00_2174; BgL_auxz00_2174 = (int)(((long)1)); BGL_MVALUES_VAL_SET(BgL_auxz00_2174, BgL_val1_1339z00_709); } BgL_listz00_188 = BgL_val0_1338z00_708; } { /* blib.scm 355 */ obj_t BgL_otherzd2listszd2_189; { /* blib.scm 355 */ int BgL_auxz00_2177; BgL_auxz00_2177 = (int)(((long)1)); BgL_otherzd2listszd2_189 = BGL_MVALUES_VAL(BgL_auxz00_2177); } if( CBOOL( BGl_nullzd2listzf3z21zzblibz00(BgL_listz00_188))) { /* blib.scm 355 */ obj_t BgL_arg1426z00_191; { /* blib.scm 355 */ int BgL_auxz00_2183; BgL_auxz00_2183 = (int)(((long)2)); BGL_MVALUES_NUMBER_SET(BgL_auxz00_2183); } { /* blib.scm 355 */ int BgL_auxz00_2186; BgL_auxz00_2186 = (int)(((long)1)); BGL_MVALUES_VAL_SET(BgL_auxz00_2186, BNIL); } BgL_arg1426z00_191 = BNIL; return BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1314z00_1409, BgL_arg1426z00_191);} else { /* blib.scm 356 */ obj_t BgL_az00_194; { /* blib.scm 356 */ obj_t BgL_val0_1338z00_721;obj_t BgL_val1_1339z00_722; { /* blib.scm 356 */ obj_t BgL_pairz00_723; if( PAIRP(BgL_listz00_188)) { /* blib.scm 356 */ BgL_pairz00_723 = BgL_listz00_188; } else { /* blib.scm 356 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2507z00zzblibz00, BGl_string2459z00zzblibz00, BgL_listz00_188, BGl_string2460z00zzblibz00, BINT(((long)11189))); exit( -1 );} BgL_val0_1338z00_721 = CAR(BgL_pairz00_723); } { /* blib.scm 356 */ obj_t BgL_pairz00_724; if( PAIRP(BgL_listz00_188)) { /* blib.scm 356 */ BgL_pairz00_724 = BgL_listz00_188; } else { /* blib.scm 356 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2507z00zzblibz00, BGl_string2459z00zzblibz00, BgL_listz00_188, BGl_string2460z00zzblibz00, BINT(((long)11189))); exit( -1 );} BgL_val1_1339z00_722 = CDR(BgL_pairz00_724); } { /* blib.scm 356 */ int BgL_auxz00_2202; BgL_auxz00_2202 = (int)(((long)2)); BGL_MVALUES_NUMBER_SET(BgL_auxz00_2202); } { /* blib.scm 356 */ int BgL_auxz00_2205; BgL_auxz00_2205 = (int)(((long)1)); BGL_MVALUES_VAL_SET(BgL_auxz00_2205, BgL_val1_1339z00_722); } BgL_az00_194 = BgL_val0_1338z00_721; } { /* blib.scm 357 */ obj_t BgL_dz00_195; { /* blib.scm 357 */ int BgL_auxz00_2208; BgL_auxz00_2208 = (int)(((long)1)); BgL_dz00_195 = BGL_MVALUES_VAL(BgL_auxz00_2208); } { /* blib.scm 357 */ obj_t BgL_carsz00_196; BgL_carsz00_196 = BGl_recurz72z72zzblibz00(BgL_an_exitd1314z00_1409, BgL_carszd2finalzd2_1408, BgL_otherzd2listszd2_189); { /* blib.scm 358 */ obj_t BgL_cdrsz00_197; { /* blib.scm 358 */ int BgL_auxz00_2212; BgL_auxz00_2212 = (int)(((long)1)); BgL_cdrsz00_197 = BGL_MVALUES_VAL(BgL_auxz00_2212); } { /* blib.scm 358 */ obj_t BgL_val0_1342z00_198;obj_t BgL_val1_1343z00_199; BgL_val0_1342z00_198 = MAKE_PAIR(BgL_az00_194, BgL_carsz00_196); BgL_val1_1343z00_199 = MAKE_PAIR(BgL_dz00_195, BgL_cdrsz00_197); { /* blib.scm 358 */ int BgL_auxz00_2217; BgL_auxz00_2217 = (int)(((long)2)); BGL_MVALUES_NUMBER_SET(BgL_auxz00_2217); } { /* blib.scm 358 */ int BgL_auxz00_2220; BgL_auxz00_2220 = (int)(((long)1)); BGL_MVALUES_VAL_SET(BgL_auxz00_2220, BgL_val1_1343z00_199); } return BgL_val0_1342z00_198;} } } } } } } else { /* blib.scm 359 */ obj_t BgL_val0_1344z00_200; { /* blib.scm 359 */ obj_t BgL_list1427z00_202; BgL_list1427z00_202 = MAKE_PAIR(BgL_carszd2finalzd2_1408, BNIL); BgL_val0_1344z00_200 = BgL_list1427z00_202; } { /* blib.scm 359 */ int BgL_auxz00_2224; BgL_auxz00_2224 = (int)(((long)2)); BGL_MVALUES_NUMBER_SET(BgL_auxz00_2224); } { /* blib.scm 359 */ int BgL_auxz00_2227; BgL_auxz00_2227 = (int)(((long)1)); BGL_MVALUES_VAL_SET(BgL_auxz00_2227, BNIL); } return BgL_val0_1344z00_200;} } } /* */ obj_t BGl_zc3exitza31423za3blibze2scmza3351ze3z61zzblibz00(obj_t BgL_listsz00_1411, obj_t BgL_carszd2finalzd2_1410) { AN_OBJECT; { /* blib.scm 351 */ jmp_buf_t jmpbuf; void * BgL_an_exit1313z00_180; {BGL_STORE_TRACE(); if( SET_EXIT(BgL_an_exit1313z00_180) ) { BGL_RESTORE_TRACE(); return _exit_value_; } else { BgL_an_exit1313z00_180 = (void *)jmpbuf; { /* blib.scm 351 */ PUSH_EXIT(BgL_an_exit1313z00_180, ((long)1)); { /* blib.scm 351 */ obj_t BgL_an_exitd1314z00_181; BgL_an_exitd1314z00_181 = BGL_EXITD_TOP(); { /* blib.scm 352 */ obj_t BgL_res1316z00_184; BgL_res1316z00_184 = BGl_recurz72z72zzblibz00(BgL_an_exitd1314z00_181, BgL_carszd2finalzd2_1410, BgL_listsz00_1411); POP_EXIT(); return BgL_res1316z00_184;} } } }} } } /* null-list? */ obj_t BGl_nullzd2listzf3z21zzblibz00(obj_t BgL_lz00_17) { AN_OBJECT; { /* blib.scm 362 */ { /* blib.scm 363 */ obj_t BgL_symbol2038z00_1141; BgL_symbol2038z00_1141 = BGl_symbol2509z00zzblibz00; { /* blib.scm 363 */ PUSH_TRACE(BgL_symbol2038z00_1141); { /* blib.scm 363 */ obj_t BgL_aux2037z00_1142; if( PAIRP(BgL_lz00_17)) { /* blib.scm 363 */ BgL_aux2037z00_1142 = BFALSE; } else { /* blib.scm 363 */ if( NULLP(BgL_lz00_17)) { /* blib.scm 364 */ BgL_aux2037z00_1142 = BTRUE; } else { /* blib.scm 364 */ BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2511z00zzblibz00, BGl_string2512z00zzblibz00, BgL_lz00_17, BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)11424)); BgL_aux2037z00_1142 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00, BINT(((long)11424))); } } POP_TRACE(); return BgL_aux2037z00_1142;} } } } } /* fold */ obj_t BGl_foldz00zzblibz00(obj_t BgL_konsz00_18, obj_t BgL_knilz00_19, obj_t BgL_lis1z00_20, obj_t BgL_listsz00_21) { AN_OBJECT; { /* blib.scm 368 */ { /* blib.scm 369 */ obj_t BgL_symbol2040z00_1143; BgL_symbol2040z00_1143 = BGl_symbol2514z00zzblibz00; { /* blib.scm 369 */ PUSH_TRACE(BgL_symbol2040z00_1143); { /* blib.scm 369 */ obj_t BgL_aux2039z00_1144; if( PAIRP(BgL_listsz00_21)) { /* blib.scm 370 */ obj_t BgL_g1317z00_206; BgL_g1317z00_206 = MAKE_PAIR(BgL_lis1z00_20, BgL_listsz00_21); { obj_t BgL_listsz00_742;obj_t BgL_ansz00_743; BgL_listsz00_742 = BgL_g1317z00_206; BgL_ansz00_743 = BgL_knilz00_19; BgL_lpz00_741: { /* blib.scm 370 */ obj_t BgL_carszb2anszb2_748; BgL_carszb2anszb2_748 = BGl_z52carszb2cdrszb2z52zzblibz00(BgL_listsz00_742, BgL_ansz00_743); { /* blib.scm 370 */ obj_t BgL_cdrsz00_749; { /* blib.scm 370 */ int BgL_auxz00_2251; BgL_auxz00_2251 = (int)(((long)1)); BgL_cdrsz00_749 = BGL_MVALUES_VAL(BgL_auxz00_2251); } if( NULLP(BgL_carszb2anszb2_748)) { /* blib.scm 370 */ BgL_aux2039z00_1144 = BgL_ansz00_743; } else { /* blib.scm 370 */ obj_t BgL_arg1432z00_751; { /* blib.scm 370 */ obj_t BgL_valz00_1440; BgL_valz00_1440 = BgL_carszb2anszb2_748; { /* blib.scm 370 */ int BgL_len2185z00_1441; BgL_len2185z00_1441 = (int)( bgl_list_length(BgL_valz00_1440)); if( PROCEDURE_CORRECT_ARITYP(BgL_konsz00_18, BgL_len2185z00_1441)) { /* blib.scm 370 */ BgL_arg1432z00_751 = apply(BgL_konsz00_18, BgL_valz00_1440); } else { /* blib.scm 370 */ BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2466z00zzblibz00, BGl_list2516z00zzblibz00, BGl_string2460z00zzblibz00, BINT(((long)11566))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } { obj_t BgL_ansz00_2266;obj_t BgL_listsz00_2265; BgL_listsz00_2265 = BgL_cdrsz00_749; BgL_ansz00_2266 = BgL_arg1432z00_751; BgL_ansz00_743 = BgL_ansz00_2266; BgL_listsz00_742 = BgL_listsz00_2265; goto BgL_lpz00_741;} } } } } } else { obj_t BgL_lisz00_769;obj_t BgL_ansz00_770; BgL_lisz00_769 = BgL_lis1z00_20; BgL_ansz00_770 = BgL_knilz00_19; BgL_lpz00_768: if( CBOOL( BGl_nullzd2listzf3z21zzblibz00(BgL_lisz00_769))) { /* blib.scm 375 */ BgL_aux2039z00_1144 = BgL_ansz00_770; } else { /* blib.scm 375 */ obj_t BgL_arg1434z00_776;obj_t BgL_arg1436z00_777; { /* blib.scm 375 */ obj_t BgL_pairz00_779; if( PAIRP(BgL_lisz00_769)) { /* blib.scm 375 */ BgL_pairz00_779 = BgL_lisz00_769; } else { /* blib.scm 375 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_769, BGl_string2460z00zzblibz00, BINT(((long)11766))); exit( -1 );} BgL_arg1434z00_776 = CDR(BgL_pairz00_779); } { /* blib.scm 375 */ obj_t BgL_arg1437z00_778; { /* blib.scm 375 */ obj_t BgL_pairz00_780; if( PAIRP(BgL_lisz00_769)) { /* blib.scm 375 */ BgL_pairz00_780 = BgL_lisz00_769; } else { /* blib.scm 375 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2463z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_769, BGl_string2460z00zzblibz00, BINT(((long)11766))); exit( -1 );} BgL_arg1437z00_778 = CAR(BgL_pairz00_780); } if( PROCEDURE_CORRECT_ARITYP(BgL_konsz00_18, ((long)2))) { /* blib.scm 375 */ BgL_arg1436z00_777 = PROCEDURE_ENTRY(BgL_konsz00_18)(BgL_konsz00_18, BgL_arg1437z00_778, BgL_ansz00_770, BEOA); } else { /* blib.scm 375 */ BGl_errorzf2locationzf2zz__errorz00(BGl_string2499z00zzblibz00, BGl_list2521z00zzblibz00, BgL_konsz00_18, BGl_string2460z00zzblibz00, BINT(((long)11766))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } { obj_t BgL_ansz00_2290;obj_t BgL_lisz00_2289; BgL_lisz00_2289 = BgL_arg1434z00_776; BgL_ansz00_2290 = BgL_arg1436z00_777; BgL_ansz00_770 = BgL_ansz00_2290; BgL_lisz00_769 = BgL_lisz00_2289; goto BgL_lpz00_768;} } } POP_TRACE(); return BgL_aux2039z00_1144;} } } } } /* string-before */ obj_t BGl_stringzd2beforezd2zzblibz00(obj_t BgL_sz00_27, unsigned char BgL_delimz00_28) { AN_OBJECT; { /* blib.scm 395 */ { /* blib.scm 396 */ obj_t BgL_symbol2042z00_1145; BgL_symbol2042z00_1145 = BGl_symbol2524z00zzblibz00; { /* blib.scm 396 */ PUSH_TRACE(BgL_symbol2042z00_1145); { /* blib.scm 396 */ obj_t BgL_aux2041z00_1146; { /* blib.scm 396 */ char * BgL_foundz00_228; { char * BgL_auxz00_2293; BgL_auxz00_2293 = BSTRING_TO_STRING(BgL_sz00_27); BgL_foundz00_228 = strchr(BgL_auxz00_2293, BgL_delimz00_28); } if( (BgL_foundz00_228 == 0L)) { /* blib.scm 399 */ BgL_aux2041z00_1146 = BgL_sz00_27; } else { /* blib.scm 401 */ int BgL_arg1445z00_231; { char * BgL_auxz00_2298; BgL_auxz00_2298 = BSTRING_TO_STRING(BgL_sz00_27); BgL_arg1445z00_231 = BgL_foundz00_228 - BgL_auxz00_2298; } { /* blib.scm 401 */ obj_t BgL_res2012z00_825; { /* blib.scm 401 */ long BgL_endz00_806; BgL_endz00_806 = (long)(BgL_arg1445z00_231); { /* blib.scm 401 */ bool_t BgL_testz00_2302; if( (BgL_endz00_806>=((long)0))) { /* blib.scm 401 */ if( (((long)0)>=((long)0))) { /* blib.scm 401 */ long BgL_auxz00_2307; BgL_auxz00_2307 = ( STRING_LENGTH(BgL_sz00_27)+((long)1)); BgL_testz00_2302 = BOUND_CHECK(BgL_endz00_806, BgL_auxz00_2307); } else { /* blib.scm 401 */ BgL_testz00_2302 = ((bool_t)0) ; } } else { /* blib.scm 401 */ BgL_testz00_2302 = ((bool_t)0) ; } if(BgL_testz00_2302) { /* blib.scm 401 */ BgL_res2012z00_825 = c_substring(BgL_sz00_27, ((long)0), BgL_endz00_806); } else { /* blib.scm 401 */ obj_t BgL_arg1621z00_815; BgL_arg1621z00_815 = MAKE_PAIR( BINT(((long)0)), BINT(BgL_endz00_806)); { /* blib.scm 401 */ obj_t BgL_aux2193z00_1450; BgL_aux2193z00_1450 = BGl_errorzf2locationzf2zz__errorz00(BGl_string2526z00zzblibz00, BGl_string2527z00zzblibz00, BgL_arg1621z00_815, BGl_string2460z00zzblibz00, BINT(((long)12553))); if( STRINGP(BgL_aux2193z00_1450)) { /* blib.scm 401 */ BgL_res2012z00_825 = BgL_aux2193z00_1450; } else { /* blib.scm 401 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2528z00zzblibz00, BGl_string2530z00zzblibz00, BgL_aux2193z00_1450, BGl_string2460z00zzblibz00, BINT(((long)12553))); exit( -1 );} } } } } BgL_aux2041z00_1146 = BgL_res2012z00_825; } } } POP_TRACE(); return BgL_aux2041z00_1146;} } } } } /* cerror */ obj_t BGl_cerrorz00zzblibz00(obj_t BgL_namez00_32, obj_t BgL_argumentsz00_33) { AN_OBJECT; { /* blib.scm 409 */ { /* blib.scm 410 */ obj_t BgL_symbol2046z00_1149; BgL_symbol2046z00_1149 = BGl_symbol2531z00zzblibz00; { /* blib.scm 410 */ PUSH_TRACE(BgL_symbol2046z00_1149); { /* blib.scm 410 */ obj_t BgL_aux2045z00_1150; { /* blib.scm 410 */ int BgL_errnumz00_242; BgL_errnumz00_242 = errno; { /* blib.scm 412 */ bool_t BgL_testz00_2325; if( ( (long)(BgL_errnumz00_242)==((long)0))) { /* blib.scm 412 */ BgL_testz00_2325 = ((bool_t)0) ; } else { /* blib.scm 412 */ BgL_testz00_2325 = ((bool_t)1) ; } if(BgL_testz00_2325) { /* blib.scm 412 */ { /* blib.scm 414 */ obj_t BgL_arg1450z00_244;obj_t BgL_arg1451z00_245; { /* blib.scm 414 */ char * BgL_arg1456z00_249;obj_t BgL_arg1457z00_250; { /* blib.scm 417 */ char * BgL_res2015z00_841; BgL_res2015z00_841 = strerror(BgL_errnumz00_242); BgL_arg1456z00_249 = BgL_res2015z00_841; } if( NULLP(BgL_argumentsz00_33)) { /* blib.scm 418 */ BgL_arg1457z00_250 = BGl_string2533z00zzblibz00; } else { /* blib.scm 418 */ BgL_arg1457z00_250 = BGl_string2534z00zzblibz00; } { /* blib.scm 414 */ obj_t BgL_list1458z00_251; { /* blib.scm 414 */ obj_t BgL_arg1459z00_252; { /* blib.scm 414 */ obj_t BgL_arg1460z00_253; BgL_arg1460z00_253 = MAKE_PAIR(BgL_arg1457z00_250, BNIL); BgL_arg1459z00_252 = MAKE_PAIR( string_to_bstring(BgL_arg1456z00_249), BgL_arg1460z00_253); } BgL_list1458z00_251 = MAKE_PAIR( BINT(BgL_errnumz00_242), BgL_arg1459z00_252); } BgL_arg1450z00_244 = BGl_formatz00zz__r4_output_6_10_3z00(BGl_string2535z00zzblibz00, BgL_list1458z00_251); } } { /* blib.scm 419 */ { /* blib.scm 419 */ obj_t BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254; BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254 = make_fx_procedure(BGl_zc3anonymousza31508za3blibze2scmza3447ze3z61zzblibz00, (int)(((long)1)), (int)(((long)2))); PROCEDURE_SET(BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254, (int)(((long)0)), BGl_displayzd2envzd2zz__r4_output_6_10_3z00); PROCEDURE_SET(BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254, (int)(((long)1)), BGl_string2533z00zzblibz00); { /* blib.scm 419 */ obj_t BgL_list1506z00_850; BgL_list1506z00_850 = MAKE_PAIR(BgL_argumentsz00_33, BNIL); BgL_arg1451z00_245 = BGl_proczd2outputzd2zzblibz00(BgL_zc3anonymousza31508za3blibze2scmza3447ze3z61_1254, BgL_list1506z00_850); } } } BGl_errorzf2czd2locationz20zz__errorz00(BgL_namez00_32, BgL_arg1450z00_244, BgL_arg1451z00_245, BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)12931)); } BgL_aux2045z00_1150 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00, BINT(((long)12931))); } else { /* blib.scm 412 */ BgL_aux2045z00_1150 = BFALSE; } } } POP_TRACE(); return BgL_aux2045z00_1150;} } } } } /* */ obj_t BGl_zc3anonymousza31508za3blibze2scmza3447ze3z61zzblibz00(obj_t BgL_envz00_1255, obj_t BgL_lz00_1258) { AN_OBJECT; { /* blib.scm 448 */ { /* blib.scm 419 */ obj_t BgL_displayz00_1256;obj_t BgL_delimz00_1257; BgL_displayz00_1256 = PROCEDURE_REF(BgL_envz00_1255, (int)(((long)0))); BgL_delimz00_1257 = PROCEDURE_REF(BgL_envz00_1255, (int)(((long)1))); { obj_t BgL_lz00_847; { /* blib.scm 419 */ bool_t BgL_auxz00_2356; BgL_lz00_847 = BgL_lz00_1258; { /* blib.scm 419 */ obj_t BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253; { int BgL_auxz00_2357; BgL_auxz00_2357 = (int)(((long)2)); BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253 = MAKE_EL_PROCEDURE(BgL_auxz00_2357); } PROCEDURE_EL_SET(BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253, (int)(((long)0)), BgL_displayz00_1256); PROCEDURE_EL_SET(BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253, (int)(((long)1)), BgL_delimz00_1257); { /* blib.scm 419 */ obj_t BgL_list1510z00_849; BgL_list1510z00_849 = MAKE_PAIR(BgL_lz00_847, BNIL); BgL_auxz00_2356 = BGl_forzd2eachzd2delimitedz00zzblibz00(BgL_displayz00_1256, BgL_zc3anonymousza31512za3blibze2scmza3449ze3z61_1253, BgL_list1510z00_849); } } return BBOOL(BgL_auxz00_2356);} } } } } /* */ obj_t BGl_zc3anonymousza31512za3blibze2scmza3449ze3z61zzblibz00(obj_t BgL_envz00_1259) { AN_OBJECT; { /* blib.scm 451 */ { /* blib.scm 419 */ obj_t BgL_displayz00_1260;obj_t BgL_delimz00_1261; BgL_displayz00_1260 = PROCEDURE_EL_REF(BgL_envz00_1259, (int)(((long)0))); BgL_delimz00_1261 = PROCEDURE_EL_REF(BgL_envz00_1259, (int)(((long)1))); { { /* blib.scm 419 */ obj_t BgL_funz00_1455; if( PROCEDUREP(BgL_displayz00_1260)) { /* blib.scm 419 */ BgL_funz00_1455 = BgL_displayz00_1260; } else { /* blib.scm 419 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2536z00zzblibz00, BGl_string2538z00zzblibz00, BgL_displayz00_1260, BGl_string2460z00zzblibz00, BINT(((long)13138))); exit( -1 );} if( PROCEDURE_CORRECT_ARITYP(BgL_funz00_1455, ((long)1))) { /* blib.scm 419 */ return PROCEDURE_ENTRY(BgL_funz00_1455)(BgL_displayz00_1260, BgL_delimz00_1261, BEOA);} else { /* blib.scm 419 */ BGl_errorzf2locationzf2zz__errorz00(BGl_string2539z00zzblibz00, BGl_list2540z00zzblibz00, BgL_funz00_1455, BGl_string2460z00zzblibz00, BINT(((long)13138))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } } } } /* proc-output */ obj_t BGl_proczd2outputzd2zzblibz00(obj_t BgL_procz00_34, obj_t BgL_argsz00_35) { AN_OBJECT; { /* blib.scm 421 */ { /* blib.scm 422 */ obj_t BgL_symbol2048z00_1151; BgL_symbol2048z00_1151 = BGl_symbol2545z00zzblibz00; { /* blib.scm 422 */ PUSH_TRACE(BgL_symbol2048z00_1151); { /* blib.scm 422 */ obj_t BgL_aux2047z00_1152; { /* blib.scm 422 */ obj_t BgL_osz00_851; BgL_osz00_851 = open_output_string(); { /* blib.scm 422 */ obj_t BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265; BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265 = make_fx_procedure(BGl_zc3anonymousza31465za3blibze2scmza3423ze3z61zzblibz00, (int)(((long)0)), (int)(((long)2))); PROCEDURE_SET(BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265, (int)(((long)0)), BgL_argsz00_35); PROCEDURE_SET(BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265, (int)(((long)1)), BgL_procz00_34); { /* blib.scm 422 */ obj_t BgL_auxz00_2392; if( OUTPUT_PORTP(BgL_osz00_851)) { /* blib.scm 422 */ BgL_auxz00_2392 = BgL_osz00_851 ; } else { /* blib.scm 422 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2547z00zzblibz00, BGl_string2549z00zzblibz00, BgL_osz00_851, BGl_string2460z00zzblibz00, BINT(((long)13212))); exit( -1 );} BGl_withzd2outputzd2tozd2portzd2zz__r4_ports_6_10_1z00(BgL_auxz00_2392, BgL_zc3anonymousza31465za3blibze2scmza3423ze3z61_1265); } } { /* blib.scm 422 */ obj_t BgL_portz00_853; if( OUTPUT_PORTP(BgL_osz00_851)) { /* blib.scm 422 */ BgL_portz00_853 = BgL_osz00_851; } else { /* blib.scm 422 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2547z00zzblibz00, BGl_string2549z00zzblibz00, BgL_osz00_851, BGl_string2460z00zzblibz00, BINT(((long)13212))); exit( -1 );} BgL_aux2047z00_1152 = get_output_string(BgL_portz00_853); } } POP_TRACE(); return BgL_aux2047z00_1152;} } } } } /* */ obj_t BGl_zc3anonymousza31465za3blibze2scmza3423ze3z61zzblibz00(obj_t BgL_envz00_1266) { AN_OBJECT; { /* blib.scm 425 */ { /* blib.scm 422 */ obj_t BgL_argsz00_1267;obj_t BgL_procz00_1268; BgL_argsz00_1267 = PROCEDURE_REF(BgL_envz00_1266, (int)(((long)0))); BgL_procz00_1268 = PROCEDURE_REF(BgL_envz00_1266, (int)(((long)1))); { { /* blib.scm 422 */ obj_t BgL_funz00_1464;obj_t BgL_valz00_1465; if( PROCEDUREP(BgL_procz00_1268)) { /* blib.scm 422 */ BgL_funz00_1464 = BgL_procz00_1268; } else { /* blib.scm 422 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2550z00zzblibz00, BGl_string2538z00zzblibz00, BgL_procz00_1268, BGl_string2460z00zzblibz00, BINT(((long)13212))); exit( -1 );} BgL_valz00_1465 = BgL_argsz00_1267; { /* blib.scm 422 */ int BgL_len2206z00_1466; BgL_len2206z00_1466 = (int)( bgl_list_length(BgL_valz00_1465)); if( PROCEDURE_CORRECT_ARITYP(BgL_funz00_1464, BgL_len2206z00_1466)) { /* blib.scm 422 */ return apply(BgL_funz00_1464, BgL_valz00_1465);} else { /* blib.scm 422 */ BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2550z00zzblibz00, BGl_string2466z00zzblibz00, BGl_list2552z00zzblibz00, BGl_string2460z00zzblibz00, BINT(((long)13212))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } } } } } /* transpose */ obj_t BGl_transposez00zzblibz00(obj_t BgL_lz00_36) { AN_OBJECT; { /* blib.scm 428 */ { /* blib.scm 433 */ obj_t BgL_symbol2050z00_1153; BgL_symbol2050z00_1153 = BGl_symbol2557z00zzblibz00; { /* blib.scm 433 */ PUSH_TRACE(BgL_symbol2050z00_1153); { /* blib.scm 433 */ obj_t BgL_aux2049z00_1154; if( BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_36)) { /* blib.scm 429 */BUNSPEC; } else { /* blib.scm 429 */ BGl_definezd2primopz12zc0zz__evenvz00(BGl_symbol2559z00zzblibz00, BgL_lz00_36); BGl_notifyzd2assertzd2failz00zz__evalz00(BGl_list2561z00zzblibz00, BGl_list2562z00zzblibz00, BGl_list2568z00zzblibz00); } { obj_t BgL_lz00_265;obj_t BgL_accuz00_266; BgL_lz00_265 = BgL_lz00_36; BgL_accuz00_266 = BNIL; BgL_loopz00_267: { /* blib.scm 431 */ bool_t BgL_testz00_2429; { /* blib.scm 431 */ obj_t BgL_auxz00_2430; { /* blib.scm 431 */ obj_t BgL_pairz00_854; if( PAIRP(BgL_lz00_265)) { /* blib.scm 431 */ BgL_pairz00_854 = BgL_lz00_265; } else { /* blib.scm 431 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00, BINT(((long)13433))); exit( -1 );} BgL_auxz00_2430 = CAR(BgL_pairz00_854); } BgL_testz00_2429 = NULLP(BgL_auxz00_2430); } if(BgL_testz00_2429) { /* blib.scm 432 */ obj_t BgL_auxz00_2438; { /* blib.scm 432 */ bool_t BgL_testz00_2439; if( PAIRP(BgL_accuz00_266)) { /* blib.scm 432 */ BgL_testz00_2439 = ((bool_t)1) ; } else { /* blib.scm 432 */ BgL_testz00_2439 = NULLP(BgL_accuz00_266) ; } if(BgL_testz00_2439) { /* blib.scm 432 */ BgL_auxz00_2438 = BgL_accuz00_266 ; } else { /* blib.scm 432 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_accuz00_266, BGl_string2460z00zzblibz00, BINT(((long)13453))); exit( -1 );} } BgL_aux2049z00_1154 = bgl_reverse(BgL_auxz00_2438); } else { /* blib.scm 433 */ obj_t BgL_arg1468z00_269;obj_t BgL_arg1469z00_270; if( NULLP(BgL_lz00_265)) { /* blib.scm 433 */ BgL_arg1468z00_269 = BNIL; } else { /* blib.scm 433 */ obj_t BgL_head1349z00_273; { /* blib.scm 433 */ obj_t BgL_arg1477z00_285; { /* blib.scm 433 */ obj_t BgL_pairz00_858; { /* blib.scm 433 */ obj_t BgL_pairz00_857; if( PAIRP(BgL_lz00_265)) { /* blib.scm 433 */ BgL_pairz00_857 = BgL_lz00_265; } else { /* blib.scm 433 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00, BINT(((long)13472))); exit( -1 );} { /* blib.scm 433 */ obj_t BgL_aux2214z00_1474; BgL_aux2214z00_1474 = CAR(BgL_pairz00_857); if( PAIRP(BgL_aux2214z00_1474)) { /* blib.scm 433 */ BgL_pairz00_858 = BgL_aux2214z00_1474; } else { /* blib.scm 433 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2214z00_1474, BGl_string2460z00zzblibz00, BINT(((long)13472))); exit( -1 );} } } BgL_arg1477z00_285 = CDR(BgL_pairz00_858); } BgL_head1349z00_273 = MAKE_PAIR(BgL_arg1477z00_285, BNIL); } { /* blib.scm 433 */ obj_t BgL_g1352z00_274; { /* blib.scm 433 */ obj_t BgL_pairz00_861; if( PAIRP(BgL_lz00_265)) { /* blib.scm 433 */ BgL_pairz00_861 = BgL_lz00_265; } else { /* blib.scm 433 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00, BINT(((long)13472))); exit( -1 );} BgL_g1352z00_274 = CDR(BgL_pairz00_861); } { obj_t BgL_l1347z00_275;obj_t BgL_tail1350z00_276; BgL_l1347z00_275 = BgL_g1352z00_274; BgL_tail1350z00_276 = BgL_head1349z00_273; BgL_map1348z00_277: if( PAIRP(BgL_l1347z00_275)) { /* blib.scm 433 */ obj_t BgL_newtail1351z00_279; { /* blib.scm 433 */ obj_t BgL_arg1473z00_281; { /* blib.scm 433 */ obj_t BgL_pairz00_864; { /* blib.scm 433 */ obj_t BgL_pairz00_863; BgL_pairz00_863 = BgL_l1347z00_275; { /* blib.scm 433 */ obj_t BgL_aux2220z00_1480; BgL_aux2220z00_1480 = CAR(BgL_pairz00_863); if( PAIRP(BgL_aux2220z00_1480)) { /* blib.scm 433 */ BgL_pairz00_864 = BgL_aux2220z00_1480; } else { /* blib.scm 433 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2571z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2220z00_1480, BGl_string2460z00zzblibz00, BINT(((long)13472))); exit( -1 );} } } BgL_arg1473z00_281 = CDR(BgL_pairz00_864); } BgL_newtail1351z00_279 = MAKE_PAIR(BgL_arg1473z00_281, BNIL); } SET_CDR(BgL_tail1350z00_276, BgL_newtail1351z00_279); { obj_t BgL_tail1350z00_2481;obj_t BgL_l1347z00_2479; BgL_l1347z00_2479 = CDR(BgL_l1347z00_275); BgL_tail1350z00_2481 = BgL_newtail1351z00_279; BgL_tail1350z00_276 = BgL_tail1350z00_2481; BgL_l1347z00_275 = BgL_l1347z00_2479; goto BgL_map1348z00_277;} } else { /* blib.scm 433 */ if( NULLP(BgL_l1347z00_275)) { /* blib.scm 433 */ BgL_arg1468z00_269 = BgL_head1349z00_273; } else { /* blib.scm 433 */ BgL_arg1468z00_269 = BGl_errorzf2locationzf2zz__errorz00(BGl_string2573z00zzblibz00, BGl_string2574z00zzblibz00, BgL_l1347z00_275, BGl_string2460z00zzblibz00, BINT(((long)13472))); } } } } } { /* blib.scm 433 */ obj_t BgL_arg1480z00_288; if( NULLP(BgL_lz00_265)) { /* blib.scm 433 */ BgL_arg1480z00_288 = BNIL; } else { /* blib.scm 433 */ obj_t BgL_head1355z00_291; { /* blib.scm 433 */ obj_t BgL_arg1489z00_303; { /* blib.scm 433 */ obj_t BgL_pairz00_873; { /* blib.scm 433 */ obj_t BgL_pairz00_872; if( PAIRP(BgL_lz00_265)) { /* blib.scm 433 */ BgL_pairz00_872 = BgL_lz00_265; } else { /* blib.scm 433 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00, BINT(((long)13488))); exit( -1 );} { /* blib.scm 433 */ obj_t BgL_aux2226z00_1486; BgL_aux2226z00_1486 = CAR(BgL_pairz00_872); if( PAIRP(BgL_aux2226z00_1486)) { /* blib.scm 433 */ BgL_pairz00_873 = BgL_aux2226z00_1486; } else { /* blib.scm 433 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2226z00_1486, BGl_string2460z00zzblibz00, BINT(((long)13488))); exit( -1 );} } } BgL_arg1489z00_303 = CAR(BgL_pairz00_873); } BgL_head1355z00_291 = MAKE_PAIR(BgL_arg1489z00_303, BNIL); } { /* blib.scm 433 */ obj_t BgL_g1358z00_292; { /* blib.scm 433 */ obj_t BgL_pairz00_876; if( PAIRP(BgL_lz00_265)) { /* blib.scm 433 */ BgL_pairz00_876 = BgL_lz00_265; } else { /* blib.scm 433 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_265, BGl_string2460z00zzblibz00, BINT(((long)13488))); exit( -1 );} BgL_g1358z00_292 = CDR(BgL_pairz00_876); } { obj_t BgL_l1353z00_293;obj_t BgL_tail1356z00_294; BgL_l1353z00_293 = BgL_g1358z00_292; BgL_tail1356z00_294 = BgL_head1355z00_291; BgL_map1354z00_295: if( PAIRP(BgL_l1353z00_293)) { /* blib.scm 433 */ obj_t BgL_newtail1357z00_297; { /* blib.scm 433 */ obj_t BgL_arg1485z00_299; { /* blib.scm 433 */ obj_t BgL_pairz00_879; { /* blib.scm 433 */ obj_t BgL_pairz00_878; BgL_pairz00_878 = BgL_l1353z00_293; { /* blib.scm 433 */ obj_t BgL_aux2233z00_1492; BgL_aux2233z00_1492 = CAR(BgL_pairz00_878); if( PAIRP(BgL_aux2233z00_1492)) { /* blib.scm 433 */ BgL_pairz00_879 = BgL_aux2233z00_1492; } else { /* blib.scm 433 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2575z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2233z00_1492, BGl_string2460z00zzblibz00, BINT(((long)13488))); exit( -1 );} } } BgL_arg1485z00_299 = CAR(BgL_pairz00_879); } BgL_newtail1357z00_297 = MAKE_PAIR(BgL_arg1485z00_299, BNIL); } SET_CDR(BgL_tail1356z00_294, BgL_newtail1357z00_297); { obj_t BgL_tail1356z00_2520;obj_t BgL_l1353z00_2518; BgL_l1353z00_2518 = CDR(BgL_l1353z00_293); BgL_tail1356z00_2520 = BgL_newtail1357z00_297; BgL_tail1356z00_294 = BgL_tail1356z00_2520; BgL_l1353z00_293 = BgL_l1353z00_2518; goto BgL_map1354z00_295;} } else { /* blib.scm 433 */ if( NULLP(BgL_l1353z00_293)) { /* blib.scm 433 */ BgL_arg1480z00_288 = BgL_head1355z00_291; } else { /* blib.scm 433 */ BgL_arg1480z00_288 = BGl_errorzf2locationzf2zz__errorz00(BGl_string2573z00zzblibz00, BGl_string2574z00zzblibz00, BgL_l1353z00_293, BGl_string2460z00zzblibz00, BINT(((long)13488))); } } } } } BgL_arg1469z00_270 = MAKE_PAIR(BgL_arg1480z00_288, BgL_accuz00_266); } { obj_t BgL_accuz00_2527;obj_t BgL_lz00_2526; BgL_lz00_2526 = BgL_arg1468z00_269; BgL_accuz00_2527 = BgL_arg1469z00_270; BgL_accuz00_266 = BgL_accuz00_2527; BgL_lz00_265 = BgL_lz00_2526; goto BgL_loopz00_267;} } } } POP_TRACE(); return BgL_aux2049z00_1154;} } } } } /* for-each-delimited */ bool_t BGl_forzd2eachzd2delimitedz00zzblibz00(obj_t BgL_procz00_37, obj_t BgL_thunkz00_38, obj_t BgL_listsz00_39) { AN_OBJECT; { /* blib.scm 435 */ { /* blib.scm 436 */ obj_t BgL_symbol2052z00_1155; BgL_symbol2052z00_1155 = BGl_symbol2577z00zzblibz00; { /* blib.scm 436 */ PUSH_TRACE(BgL_symbol2052z00_1155); { /* blib.scm 436 */ bool_t BgL_aux2051z00_1156; { /* blib.scm 436 */ obj_t BgL_g1323z00_307; BgL_g1323z00_307 = BGl_transposez00zzblibz00(BgL_listsz00_39); { obj_t BgL_lz00_308; BgL_lz00_308 = BgL_g1323z00_307; BgL_loopz00_309: if( NULLP(BgL_lz00_308)) { /* blib.scm 437 */ BgL_aux2051z00_1156 = ((bool_t)0); } else { /* blib.scm 437 */ { /* blib.scm 438 */ obj_t BgL_funz00_1500;obj_t BgL_valz00_1501; if( PROCEDUREP(BgL_procz00_37)) { /* blib.scm 438 */ BgL_funz00_1500 = BgL_procz00_37; } else { /* blib.scm 438 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2538z00zzblibz00, BgL_procz00_37, BGl_string2460z00zzblibz00, BINT(((long)13619))); exit( -1 );} { /* blib.scm 438 */ obj_t BgL_pairz00_887; if( PAIRP(BgL_lz00_308)) { /* blib.scm 438 */ BgL_pairz00_887 = BgL_lz00_308; } else { /* blib.scm 438 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_308, BGl_string2460z00zzblibz00, BINT(((long)13635))); exit( -1 );} BgL_valz00_1501 = CAR(BgL_pairz00_887); } { /* blib.scm 438 */ int BgL_len2243z00_1502; BgL_len2243z00_1502 = (int)( bgl_list_length(BgL_valz00_1501)); if( PROCEDURE_CORRECT_ARITYP(BgL_funz00_1500, BgL_len2243z00_1502)) { /* blib.scm 438 */ apply(BgL_funz00_1500, BgL_valz00_1501); } else { /* blib.scm 438 */ BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2466z00zzblibz00, BGl_list2579z00zzblibz00, BGl_string2460z00zzblibz00, BINT(((long)13619))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } { /* blib.scm 439 */ bool_t BgL_testz00_2553; { /* blib.scm 439 */ obj_t BgL_auxz00_2554; { /* blib.scm 439 */ obj_t BgL_pairz00_888; if( PAIRP(BgL_lz00_308)) { /* blib.scm 439 */ BgL_pairz00_888 = BgL_lz00_308; } else { /* blib.scm 439 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_308, BGl_string2460z00zzblibz00, BINT(((long)13662))); exit( -1 );} BgL_auxz00_2554 = CDR(BgL_pairz00_888); } BgL_testz00_2553 = NULLP(BgL_auxz00_2554); } if(BgL_testz00_2553) { /* blib.scm 439 */BFALSE; } else { /* blib.scm 439 */ BGl_zc3anonymousza31512za3blibze2scmza3449ze3z61zzblibz00(BgL_thunkz00_38); } } { /* blib.scm 440 */ obj_t BgL_arg1496z00_313; { /* blib.scm 440 */ obj_t BgL_pairz00_890; if( PAIRP(BgL_lz00_308)) { /* blib.scm 440 */ BgL_pairz00_890 = BgL_lz00_308; } else { /* blib.scm 440 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lz00_308, BGl_string2460z00zzblibz00, BINT(((long)13689))); exit( -1 );} BgL_arg1496z00_313 = CDR(BgL_pairz00_890); } { obj_t BgL_lz00_2570; BgL_lz00_2570 = BgL_arg1496z00_313; BgL_lz00_308 = BgL_lz00_2570; goto BgL_loopz00_309;} } } } } POP_TRACE(); return BgL_aux2051z00_1156;} } } } } /* string->hex */ BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3hexz31zzblibz00(obj_t BgL_sz00_45) { AN_OBJECT; { /* blib.scm 459 */ { /* blib.scm 460 */ obj_t BgL_symbol2056z00_1159; BgL_symbol2056z00_1159 = BGl_symbol2587z00zzblibz00; { /* blib.scm 460 */ PUSH_TRACE(BgL_symbol2056z00_1159); { /* blib.scm 460 */ obj_t BgL_aux2055z00_1160; { /* blib.scm 460 */ long BgL_lenz00_339; BgL_lenz00_339 = STRING_LENGTH(BgL_sz00_45); { /* blib.scm 460 */ obj_t BgL_resultz00_340; BgL_resultz00_340 = make_string( (BgL_lenz00_339*((long)2)), ((unsigned char)' ')); { /* blib.scm 461 */ { char * BgL_auxz00_2578;char * BgL_auxz00_2576; BgL_auxz00_2578 = BSTRING_TO_STRING(BgL_resultz00_340); BgL_auxz00_2576 = BSTRING_TO_STRING(BgL_sz00_45); { static char mask[]="0123456789abcdef"; while( BgL_lenz00_339 --) { char c = * BgL_auxz00_2576 ++; * BgL_auxz00_2578 ++ = mask[(c >> 4) & 15]; * BgL_auxz00_2578 ++ = mask[c & 15]; } }; } BgL_aux2055z00_1160 = BgL_resultz00_340; } } } POP_TRACE(); return BgL_aux2055z00_1160;} } } } } /* _string->hex */ obj_t BGl__stringzd2ze3hexz31zzblibz00(obj_t BgL_envz00_1296, obj_t BgL_sz00_1297) { AN_OBJECT; { /* blib.scm 459 */ { /* blib.scm 460 */ obj_t BgL_auxz00_2582; if( STRINGP(BgL_sz00_1297)) { /* blib.scm 460 */ BgL_auxz00_2582 = BgL_sz00_1297 ; } else { /* blib.scm 460 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2589z00zzblibz00, BGl_string2530z00zzblibz00, BgL_sz00_1297, BGl_string2460z00zzblibz00, BINT(((long)13984))); exit( -1 );} return BGl_stringzd2ze3hexz31zzblibz00(BgL_auxz00_2582);} } } /* string*? */ BGL_EXPORTED_DEF bool_t BGl_stringza2zf3z51zzblibz00(obj_t BgL_oz00_46) { AN_OBJECT; { /* blib.scm 476 */ { /* blib.scm 477 */ obj_t BgL_symbol2058z00_1161; BgL_symbol2058z00_1161 = BGl_symbol2591z00zzblibz00; { /* blib.scm 477 */ PUSH_TRACE(BgL_symbol2058z00_1161); { /* blib.scm 477 */ bool_t BgL_aux2057z00_1162; if( FOREIGNP(BgL_oz00_46)) { /* blib.scm 477 */ obj_t BgL_arg1515z00_942;obj_t BgL_arg1516z00_943; BgL_arg1515z00_942 = FOREIGN_ID(BgL_oz00_46); BgL_arg1516z00_943 = BGl_symbol2593z00zzblibz00; BgL_aux2057z00_1162 = (BgL_arg1515z00_942==BgL_arg1516z00_943); } else { /* blib.scm 477 */ BgL_aux2057z00_1162 = ((bool_t)0); } POP_TRACE(); return BgL_aux2057z00_1162;} } } } } /* _string*? */ obj_t BGl__stringza2zf3z51zzblibz00(obj_t BgL_envz00_1298, obj_t BgL_oz00_1299) { AN_OBJECT; { /* blib.scm 476 */ return BBOOL( BGl_stringza2zf3z51zzblibz00(BgL_oz00_1299));} } /* _string*->string-list */ obj_t BGl__stringza2zd2ze3stringzd2listz41zzblibz00(obj_t BgL_envz00_50, obj_t BgL_optz00_49) { AN_OBJECT; { /* blib.scm 479 */ { /* blib.scm 479 */ obj_t BgL_symbol2060z00_1163; BgL_symbol2060z00_1163 = BGl_symbol2595z00zzblibz00; { /* blib.scm 479 */ PUSH_TRACE(BgL_symbol2060z00_1163); { /* blib.scm 479 */ obj_t BgL_aux2059z00_1164; { /* blib.scm 479 */ obj_t BgL_spz00_346; BgL_spz00_346 = VECTOR_REF(BgL_optz00_49, (int)(((long)0))); { { /* blib.scm 479 */ int BgL_aux1392z00_348; BgL_aux1392z00_348 = VECTOR_LENGTH(BgL_optz00_49); switch( (long)(BgL_aux1392z00_348)) { case ((long)1) : { /* blib.scm 479 */ { /* blib.scm 479 */ obj_t BgL_arg1518z00_351; BgL_arg1518z00_351 = VECTOR_REF(BgL_optz00_49, (int)(((long)0))); { /* blib.scm 479 */ char** BgL_auxz00_2603; if( BGl_stringza2zf3z51zzblibz00(BgL_arg1518z00_351)) { /* blib.scm 479 */ BgL_auxz00_2603 = (char**)FOREIGN_TO_COBJ(BgL_arg1518z00_351) ; } else { /* blib.scm 479 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2600z00zzblibz00, BGl_string2594z00zzblibz00, BgL_arg1518z00_351, BGl_string2460z00zzblibz00, BINT(((long)14375))); exit( -1 );} BgL_aux2059z00_1164 = BGl_stringza2zd2ze3stringzd2listz41zzblibz00(BgL_auxz00_2603, BFALSE); } } } break;case ((long)2) : { /* blib.scm 479 */ obj_t BgL_lenz00_352; BgL_lenz00_352 = VECTOR_REF(BgL_optz00_49, (int)(((long)1))); { /* blib.scm 479 */ { /* blib.scm 479 */ obj_t BgL_arg1519z00_353; BgL_arg1519z00_353 = VECTOR_REF(BgL_optz00_49, (int)(((long)0))); { /* blib.scm 479 */ char** BgL_auxz00_2615; if( BGl_stringza2zf3z51zzblibz00(BgL_arg1519z00_353)) { /* blib.scm 479 */ BgL_auxz00_2615 = (char**)FOREIGN_TO_COBJ(BgL_arg1519z00_353) ; } else { /* blib.scm 479 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2600z00zzblibz00, BGl_string2594z00zzblibz00, BgL_arg1519z00_353, BGl_string2460z00zzblibz00, BINT(((long)14375))); exit( -1 );} BgL_aux2059z00_1164 = BGl_stringza2zd2ze3stringzd2listz41zzblibz00(BgL_auxz00_2615, BgL_lenz00_352); } } } } break; default: { /* blib.scm 479 */ obj_t BgL_arg1520z00_354;int BgL_arg1522z00_356; BgL_arg1520z00_354 = BGl_symbol2597z00zzblibz00; BgL_arg1522z00_356 = VECTOR_LENGTH(BgL_optz00_49); BgL_aux2059z00_1164 = BGl_errorzf2locationzf2zz__errorz00(BgL_arg1520z00_354, BGl_string2599z00zzblibz00, BINT(BgL_arg1522z00_356), BGl_string2460z00zzblibz00, BINT(((long)14375))); } } } } } POP_TRACE(); return BgL_aux2059z00_1164;} } } } } /* string*->string-list */ BGL_EXPORTED_DEF obj_t BGl_stringza2zd2ze3stringzd2listz41zzblibz00(char** BgL_spz00_47, obj_t BgL_lenz00_48) { AN_OBJECT; { /* blib.scm 479 */ { /* blib.scm 483 */ obj_t BgL_symbol2062z00_1165; BgL_symbol2062z00_1165 = BGl_symbol2602z00zzblibz00; { /* blib.scm 483 */ PUSH_TRACE(BgL_symbol2062z00_1165); { /* blib.scm 483 */ obj_t BgL_aux2061z00_1166; { /* blib.scm 483 */ char** BgL_pza2za2_357;obj_t BgL_lenz00_358; BgL_pza2za2_357 = BgL_spz00_47; BgL_lenz00_358 = MAKE_PAIR(BgL_lenz00_48, BNIL); { /* blib.scm 483 */ obj_t BgL_dsssl1523z00_359; BgL_dsssl1523z00_359 = BgL_lenz00_358; { /* blib.scm 483 */ obj_t BgL_lenz00_360; { /* blib.scm 483 */ bool_t BgL_testz00_2632; if( NULLP(BgL_dsssl1523z00_359)) { /* blib.scm 483 */ BgL_testz00_2632 = ((bool_t)1) ; } else { /* blib.scm 483 */ obj_t BgL_auxz00_2635; { /* blib.scm 483 */ obj_t BgL_auxz00_2636; { /* blib.scm 483 */ obj_t BgL_pairz00_948; { /* blib.scm 483 */ obj_t BgL_aux2261z00_1520; BgL_aux2261z00_1520 = BgL_dsssl1523z00_359; if( PAIRP(BgL_aux2261z00_1520)) { /* blib.scm 483 */ BgL_pairz00_948 = BgL_aux2261z00_1520; } else { /* blib.scm 483 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2604z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2261z00_1520, BGl_string2460z00zzblibz00, BINT(((long)14473))); exit( -1 );} } BgL_auxz00_2636 = CAR(BgL_pairz00_948); } BgL_auxz00_2635 = BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2636, BNIL); } BgL_testz00_2632 = CBOOL(BgL_auxz00_2635); } if(BgL_testz00_2632) { /* blib.scm 483 */ BgL_lenz00_360 = BFALSE; } else { /* blib.scm 483 */ obj_t BgL_tmp1524z00_371; { /* blib.scm 483 */ obj_t BgL_pairz00_949; { /* blib.scm 483 */ obj_t BgL_aux2263z00_1522; BgL_aux2263z00_1522 = BgL_dsssl1523z00_359; if( PAIRP(BgL_aux2263z00_1522)) { /* blib.scm 483 */ BgL_pairz00_949 = BgL_aux2263z00_1522; } else { /* blib.scm 483 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2604z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2263z00_1522, BGl_string2460z00zzblibz00, BINT(((long)14473))); exit( -1 );} } BgL_tmp1524z00_371 = CAR(BgL_pairz00_949); } { /* blib.scm 483 */ obj_t BgL_pairz00_950; { /* blib.scm 483 */ obj_t BgL_aux2265z00_1524; BgL_aux2265z00_1524 = BgL_dsssl1523z00_359; if( PAIRP(BgL_aux2265z00_1524)) { /* blib.scm 483 */ BgL_pairz00_950 = BgL_aux2265z00_1524; } else { /* blib.scm 483 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2604z00zzblibz00, BGl_string2459z00zzblibz00, BgL_aux2265z00_1524, BGl_string2460z00zzblibz00, BINT(((long)14473))); exit( -1 );} } BgL_dsssl1523z00_359 = CDR(BgL_pairz00_950); } BgL_lenz00_360 = BgL_tmp1524z00_371; } } { obj_t BgL_accuz00_362;long BgL_iz00_363; BgL_accuz00_362 = BNIL; BgL_iz00_363 = ((long)0); BgL_loopz00_364: { /* blib.scm 483 */ char * BgL_pz00_365; BgL_pz00_365 = BgL_pza2za2_357[BgL_iz00_363]; { /* blib.scm 483 */ bool_t BgL_testz00_2658; { /* blib.scm 483 */ bool_t BgL_testz00_2659; if( CBOOL(BgL_lenz00_360)) { /* blib.scm 483 */ long BgL_n1z00_951;long BgL_n2z00_952; BgL_n1z00_951 = BgL_iz00_363; { /* blib.scm 483 */ obj_t BgL_auxz00_2662; if( INTEGERP(BgL_lenz00_360)) { /* blib.scm 483 */ BgL_auxz00_2662 = BgL_lenz00_360 ; } else { /* blib.scm 483 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2606z00zzblibz00, BgL_lenz00_360, BGl_string2460z00zzblibz00, BINT(((long)14473))); exit( -1 );} BgL_n2z00_952 = (long)CINT(BgL_auxz00_2662); } BgL_testz00_2659 = (BgL_n1z00_951==BgL_n2z00_952); } else { /* blib.scm 483 */ BgL_testz00_2659 = ((bool_t)0) ; } if(BgL_testz00_2659) { /* blib.scm 483 */ BgL_testz00_2658 = ((bool_t)1) ; } else { /* blib.scm 483 */ BgL_testz00_2658 = BgL_pz00_365 == NULL ; } } if(BgL_testz00_2658) { /* blib.scm 483 */ obj_t BgL_auxz00_2671; { /* blib.scm 483 */ bool_t BgL_testz00_2672; if( PAIRP(BgL_accuz00_362)) { /* blib.scm 483 */ BgL_testz00_2672 = ((bool_t)1) ; } else { /* blib.scm 483 */ BgL_testz00_2672 = NULLP(BgL_accuz00_362) ; } if(BgL_testz00_2672) { /* blib.scm 483 */ BgL_auxz00_2671 = BgL_accuz00_362 ; } else { /* blib.scm 483 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_accuz00_362, BGl_string2460z00zzblibz00, BINT(((long)14473))); exit( -1 );} } BgL_aux2061z00_1166 = bgl_reverse(BgL_auxz00_2671); } else { /* blib.scm 483 */ obj_t BgL_arg1526z00_367;long BgL_arg1527z00_368; BgL_arg1526z00_367 = MAKE_PAIR( string_to_bstring(BgL_pz00_365), BgL_accuz00_362); BgL_arg1527z00_368 = (BgL_iz00_363+((long)1)); { long BgL_iz00_2684;obj_t BgL_accuz00_2683; BgL_accuz00_2683 = BgL_arg1526z00_367; BgL_iz00_2684 = BgL_arg1527z00_368; BgL_iz00_363 = BgL_iz00_2684; BgL_accuz00_362 = BgL_accuz00_2683; goto BgL_loopz00_364;} } } } } } } } POP_TRACE(); return BgL_aux2061z00_1166;} } } } } /* string-list->string* */ BGL_EXPORTED_DEF char** BGl_stringzd2listzd2ze3stringza2z41zzblibz00(obj_t BgL_slz00_51) { AN_OBJECT; { /* blib.scm 485 */ { /* blib.scm 487 */ obj_t BgL_symbol2064z00_1167; BgL_symbol2064z00_1167 = BGl_symbol2607z00zzblibz00; { /* blib.scm 487 */ PUSH_TRACE(BgL_symbol2064z00_1167); { /* blib.scm 487 */ char** BgL_aux2063z00_1168; { /* blib.scm 486 */ char** BgL_valspz00_377; { long BgL_auxz00_2687; { /* blib.scm 486 */ long BgL_arg1538z00_386; BgL_arg1538z00_386 = bgl_list_length(BgL_slz00_51); BgL_auxz00_2687 = (((long)1)+BgL_arg1538z00_386); } BgL_valspz00_377 = (char**)(GC_malloc(BgL_auxz00_2687 * sizeof(char**))); } { long BgL_iz00_378;obj_t BgL_attvalsz00_379; BgL_iz00_378 = ((long)0); BgL_attvalsz00_379 = BgL_slz00_51; BgL_loopz00_380: if( NULLP(BgL_attvalsz00_379)) { /* blib.scm 486 */ BgL_valspz00_377[BgL_iz00_378] = NULL; BgL_aux2063z00_1168 = BgL_valspz00_377; } else { /* blib.scm 486 */ { char * BgL_auxz00_2695; { /* blib.scm 486 */ obj_t BgL_arg1534z00_382; { /* blib.scm 486 */ obj_t BgL_pairz00_958; { /* blib.scm 486 */ bool_t BgL_test2272z00_1531; BgL_test2272z00_1531 = PAIRP(BgL_attvalsz00_379); if(BgL_test2272z00_1531) { /* blib.scm 486 */ BgL_pairz00_958 = BgL_attvalsz00_379; } else { /* blib.scm 486 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_attvalsz00_379, BGl_string2460z00zzblibz00, BINT(((long)14563))); exit( -1 );} } BgL_arg1534z00_382 = CAR(BgL_pairz00_958); } { /* blib.scm 486 */ obj_t BgL_sz00_959; { /* blib.scm 486 */ bool_t BgL_test2274z00_1533; BgL_test2274z00_1533 = STRINGP(BgL_arg1534z00_382); if(BgL_test2274z00_1533) { /* blib.scm 486 */ BgL_sz00_959 = BgL_arg1534z00_382; } else { /* blib.scm 486 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2530z00zzblibz00, BgL_arg1534z00_382, BGl_string2460z00zzblibz00, BINT(((long)14563))); exit( -1 );} } { /* blib.scm 486 */ char * BgL_csz00_960; BgL_csz00_960 = BSTRING_TO_STRING(BgL_sz00_959); BgL_auxz00_2695 = BgL_csz00_960; } } } BgL_valspz00_377[BgL_iz00_378] = BgL_auxz00_2695; } { /* blib.scm 486 */ long BgL_arg1535z00_383;obj_t BgL_arg1536z00_384; BgL_arg1535z00_383 = (BgL_iz00_378+((long)1)); { /* blib.scm 486 */ obj_t BgL_pairz00_963; if( PAIRP(BgL_attvalsz00_379)) { /* blib.scm 486 */ BgL_pairz00_963 = BgL_attvalsz00_379; } else { /* blib.scm 486 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_attvalsz00_379, BGl_string2460z00zzblibz00, BINT(((long)14563))); exit( -1 );} BgL_arg1536z00_384 = CDR(BgL_pairz00_963); } { obj_t BgL_attvalsz00_2717;long BgL_iz00_2716; BgL_iz00_2716 = BgL_arg1535z00_383; BgL_attvalsz00_2717 = BgL_arg1536z00_384; BgL_attvalsz00_379 = BgL_attvalsz00_2717; BgL_iz00_378 = BgL_iz00_2716; goto BgL_loopz00_380;} } } } } POP_TRACE(); return BgL_aux2063z00_1168;} } } } } /* _string-list->string* */ obj_t BGl__stringzd2listzd2ze3stringza2z41zzblibz00(obj_t BgL_envz00_1300, obj_t BgL_slz00_1301) { AN_OBJECT; { /* blib.scm 485 */ { /* blib.scm 148 */ char** BgL_resultz00_1538; { /* blib.scm 487 */ obj_t BgL_auxz00_2719; { /* blib.scm 487 */ bool_t BgL_testz00_2720; if( PAIRP(BgL_slz00_1301)) { /* blib.scm 487 */ BgL_testz00_2720 = ((bool_t)1) ; } else { /* blib.scm 487 */ BgL_testz00_2720 = NULLP(BgL_slz00_1301) ; } if(BgL_testz00_2720) { /* blib.scm 487 */ BgL_auxz00_2719 = BgL_slz00_1301 ; } else { /* blib.scm 487 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2609z00zzblibz00, BGl_string2465z00zzblibz00, BgL_slz00_1301, BGl_string2460z00zzblibz00, BINT(((long)14591))); exit( -1 );} } BgL_resultz00_1538 = BGl_stringzd2listzd2ze3stringza2z41zzblibz00(BgL_auxz00_2719); } return cobj_to_foreign(BGl_symbol2593z00zzblibz00, BgL_resultz00_1538);} } } /* last */ BGL_EXPORTED_DEF obj_t BGl_lastz00zzblibz00(obj_t BgL_lisz00_52) { AN_OBJECT; { /* blib.scm 490 */ { /* blib.scm 490 */ obj_t BgL_symbol2066z00_1169; BgL_symbol2066z00_1169 = BGl_symbol2611z00zzblibz00; { /* blib.scm 490 */ PUSH_TRACE(BgL_symbol2066z00_1169); { /* blib.scm 490 */ obj_t BgL_aux2065z00_1170; { /* blib.scm 490 */ obj_t BgL_auxz00_2730; { /* blib.scm 490 */ obj_t BgL_auxz00_2731; if( PAIRP(BgL_lisz00_52)) { /* blib.scm 490 */ BgL_auxz00_2731 = BgL_lisz00_52 ; } else { /* blib.scm 490 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2613z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_52, BGl_string2460z00zzblibz00, BINT(((long)14683))); exit( -1 );} BgL_auxz00_2730 = BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2731); } BgL_aux2065z00_1170 = CAR(BgL_auxz00_2730); } POP_TRACE(); return BgL_aux2065z00_1170;} } } } } /* _last */ obj_t BGl__lastz00zzblibz00(obj_t BgL_envz00_1302, obj_t BgL_lisz00_1303) { AN_OBJECT; { /* blib.scm 490 */ { /* blib.scm 490 */ obj_t BgL_auxz00_2740; { /* blib.scm 490 */ bool_t BgL_testz00_2741; if( PAIRP(BgL_lisz00_1303)) { /* blib.scm 490 */ BgL_testz00_2741 = ((bool_t)1) ; } else { /* blib.scm 490 */ BgL_testz00_2741 = NULLP(BgL_lisz00_1303) ; } if(BgL_testz00_2741) { /* blib.scm 490 */ BgL_auxz00_2740 = BgL_lisz00_1303 ; } else { /* blib.scm 490 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2615z00zzblibz00, BGl_string2465z00zzblibz00, BgL_lisz00_1303, BGl_string2460z00zzblibz00, BINT(((long)14672))); exit( -1 );} } return BGl_lastz00zzblibz00(BgL_auxz00_2740);} } } /* remove */ BGL_EXPORTED_DEF obj_t BGl_removez00zzblibz00(obj_t BgL_predz00_53, obj_t BgL_lz00_54) { AN_OBJECT; { /* blib.scm 492 */ { /* blib.scm 492 */ obj_t BgL_symbol2068z00_1171; BgL_symbol2068z00_1171 = BGl_symbol2617z00zzblibz00; { /* blib.scm 492 */ PUSH_TRACE(BgL_symbol2068z00_1171); { /* blib.scm 492 */ obj_t BgL_aux2067z00_1172; { /* blib.scm 492 */ obj_t BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304; BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304 = make_fx_procedure(BGl_zc3anonymousza31545za3blibze2scmza3492ze3z61zzblibz00, (int)(((long)1)), (int)(((long)1))); PROCEDURE_SET(BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304, (int)(((long)0)), BgL_predz00_53); if( PROCEDURE_CORRECT_ARITYP(BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304, (int)(((long)1)))) { /* blib.scm 492 */ if( BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_54)) { /* blib.scm 492 */ BgL_aux2067z00_1172 = BGl_filterz00zz__r4_control_features_6_9z00(BgL_zc3anonymousza31545za3blibze2scmza3492ze3z61_1304, BgL_lz00_54); } else { /* blib.scm 492 */ obj_t BgL_aux2283z00_1543; BgL_aux2283z00_1543 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2619z00zzblibz00, BgL_lz00_54, BGl_string2460z00zzblibz00, BINT(((long)14691))); { /* blib.scm 492 */ bool_t BgL_testz00_2763; if( PAIRP(BgL_aux2283z00_1543)) { /* blib.scm 492 */ BgL_testz00_2763 = ((bool_t)1) ; } else { /* blib.scm 492 */ BgL_testz00_2763 = NULLP(BgL_aux2283z00_1543) ; } if(BgL_testz00_2763) { /* blib.scm 492 */ BgL_aux2067z00_1172 = BgL_aux2283z00_1543; } else { /* blib.scm 492 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2620z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2283z00_1543, BGl_string2460z00zzblibz00, BINT(((long)14691))); exit( -1 );} } } } else { /* blib.scm 492 */ obj_t BgL_aux2285z00_1545; BgL_aux2285z00_1545 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2622z00zzblibz00, BINT(((long)1)), BGl_string2460z00zzblibz00, BINT(((long)14691))); { /* blib.scm 492 */ bool_t BgL_testz00_2773; if( PAIRP(BgL_aux2285z00_1545)) { /* blib.scm 492 */ BgL_testz00_2773 = ((bool_t)1) ; } else { /* blib.scm 492 */ BgL_testz00_2773 = NULLP(BgL_aux2285z00_1545) ; } if(BgL_testz00_2773) { /* blib.scm 492 */ BgL_aux2067z00_1172 = BgL_aux2285z00_1545; } else { /* blib.scm 492 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2620z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2285z00_1545, BGl_string2460z00zzblibz00, BINT(((long)14691))); exit( -1 );} } } } POP_TRACE(); return BgL_aux2067z00_1172;} } } } } /* _remove */ obj_t BGl__removez00zzblibz00(obj_t BgL_envz00_1305, obj_t BgL_predz00_1306, obj_t BgL_lz00_1307) { AN_OBJECT; { /* blib.scm 492 */ { /* blib.scm 492 */ obj_t BgL_auxz00_2787;obj_t BgL_auxz00_2781; { /* blib.scm 492 */ bool_t BgL_testz00_2788; if( PAIRP(BgL_lz00_1307)) { /* blib.scm 492 */ BgL_testz00_2788 = ((bool_t)1) ; } else { /* blib.scm 492 */ BgL_testz00_2788 = NULLP(BgL_lz00_1307) ; } if(BgL_testz00_2788) { /* blib.scm 492 */ BgL_auxz00_2787 = BgL_lz00_1307 ; } else { /* blib.scm 492 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2623z00zzblibz00, BGl_string2465z00zzblibz00, BgL_lz00_1307, BGl_string2460z00zzblibz00, BINT(((long)14691))); exit( -1 );} } if( PROCEDUREP(BgL_predz00_1306)) { /* blib.scm 492 */ BgL_auxz00_2781 = BgL_predz00_1306 ; } else { /* blib.scm 492 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2623z00zzblibz00, BGl_string2538z00zzblibz00, BgL_predz00_1306, BGl_string2460z00zzblibz00, BINT(((long)14691))); exit( -1 );} return BGl_removez00zzblibz00(BgL_auxz00_2781, BgL_auxz00_2787);} } } /* */ obj_t BGl_zc3anonymousza31545za3blibze2scmza3492ze3z61zzblibz00(obj_t BgL_envz00_1308, obj_t BgL_xz00_1310) { AN_OBJECT; { /* blib.scm 492 */ { /* blib.scm 492 */ obj_t BgL_predz00_1309; BgL_predz00_1309 = PROCEDURE_REF(BgL_envz00_1308, (int)(((long)0))); { obj_t BgL_xz00_397; { /* blib.scm 492 */ bool_t BgL_auxz00_2798; BgL_xz00_397 = BgL_xz00_1310; { /* blib.scm 492 */ bool_t BgL_testz00_2799; { /* blib.scm 492 */ obj_t BgL_funz00_1553; if( PROCEDUREP(BgL_predz00_1309)) { /* blib.scm 492 */ BgL_funz00_1553 = BgL_predz00_1309; } else { /* blib.scm 492 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2625z00zzblibz00, BGl_string2538z00zzblibz00, BgL_predz00_1309, BGl_string2460z00zzblibz00, BINT(((long)14742))); exit( -1 );} if( PROCEDURE_CORRECT_ARITYP(BgL_funz00_1553, ((long)1))) { /* blib.scm 492 */ BgL_testz00_2799 = CBOOL( PROCEDURE_ENTRY(BgL_funz00_1553)(BgL_predz00_1309, BgL_xz00_397, BEOA)) ; } else { /* blib.scm 492 */ BGl_errorzf2locationzf2zz__errorz00(BGl_string2627z00zzblibz00, BGl_list2628z00zzblibz00, BgL_funz00_1553, BGl_string2460z00zzblibz00, BINT(((long)14742))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } if(BgL_testz00_2799) { /* blib.scm 492 */ BgL_auxz00_2798 = ((bool_t)0) ; } else { /* blib.scm 492 */ BgL_auxz00_2798 = ((bool_t)1) ; } } return BBOOL(BgL_auxz00_2798);} } } } } /* delete-duplicates */ BGL_EXPORTED_DEF obj_t BGl_deletezd2duplicateszd2zzblibz00(obj_t BgL_lisz00_55) { AN_OBJECT; { /* blib.scm 494 */ { /* blib.scm 495 */ obj_t BgL_symbol2070z00_1173; BgL_symbol2070z00_1173 = BGl_symbol2633z00zzblibz00; { /* blib.scm 495 */ PUSH_TRACE(BgL_symbol2070z00_1173); { /* blib.scm 495 */ obj_t BgL_aux2069z00_1174; BgL_aux2069z00_1174 = BGl_recurz00zzblibz00(BgL_lisz00_55); POP_TRACE(); return BgL_aux2069z00_1174;} } } } } /* recur */ obj_t BGl_recurz00zzblibz00(obj_t BgL_lisz00_401) { AN_OBJECT; { /* blib.scm 495 */ if( CBOOL( BGl_nullzd2listzf3z21zzblibz00(BgL_lisz00_401))) { /* blib.scm 496 */ return BgL_lisz00_401;} else { /* blib.scm 497 */ obj_t BgL_xz00_404; { /* blib.scm 497 */ obj_t BgL_pairz00_968; if( PAIRP(BgL_lisz00_401)) { /* blib.scm 497 */ BgL_pairz00_968 = BgL_lisz00_401; } else { /* blib.scm 497 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2635z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_401, BGl_string2460z00zzblibz00, BINT(((long)14860))); exit( -1 );} BgL_xz00_404 = CAR(BgL_pairz00_968); } { /* blib.scm 497 */ obj_t BgL_tailz00_405; { /* blib.scm 498 */ obj_t BgL_pairz00_969; if( PAIRP(BgL_lisz00_401)) { /* blib.scm 498 */ BgL_pairz00_969 = BgL_lisz00_401; } else { /* blib.scm 498 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2635z00zzblibz00, BGl_string2459z00zzblibz00, BgL_lisz00_401, BGl_string2460z00zzblibz00, BINT(((long)14885))); exit( -1 );} BgL_tailz00_405 = CDR(BgL_pairz00_969); } { /* blib.scm 498 */ obj_t BgL_newzd2tailzd2_406; { /* blib.scm 499 */ obj_t BgL_arg1549z00_408; { /* blib.scm 499 */ { /* blib.scm 499 */ obj_t BgL_auxz00_2832; { /* blib.scm 499 */ bool_t BgL_testz00_2833; if( PAIRP(BgL_tailz00_405)) { /* blib.scm 499 */ BgL_testz00_2833 = ((bool_t)1) ; } else { /* blib.scm 499 */ BgL_testz00_2833 = NULLP(BgL_tailz00_405) ; } if(BgL_testz00_2833) { /* blib.scm 499 */ BgL_auxz00_2832 = BgL_tailz00_405 ; } else { /* blib.scm 499 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2635z00zzblibz00, BGl_string2465z00zzblibz00, BgL_tailz00_405, BGl_string2460z00zzblibz00, BINT(((long)14916))); exit( -1 );} } BgL_arg1549z00_408 = BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_404, BgL_auxz00_2832, BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00); } } BgL_newzd2tailzd2_406 = BGl_recurz00zzblibz00(BgL_arg1549z00_408); } { /* blib.scm 499 */ if( (BgL_tailz00_405==BgL_newzd2tailzd2_406)) { /* blib.scm 500 */ return BgL_lisz00_401;} else { /* blib.scm 500 */ return MAKE_PAIR(BgL_xz00_404, BgL_newzd2tailzd2_406);} } } } } } } /* _delete-duplicates2157 */ obj_t BGl__deletezd2duplicates2157zd2zzblibz00(obj_t BgL_envz00_1311, obj_t BgL_lisz00_1312) { AN_OBJECT; { /* blib.scm 494 */ return BGl_deletezd2duplicateszd2zzblibz00(BgL_lisz00_1312);} } /* _string-join */ obj_t BGl__stringzd2joinzd2zzblibz00(obj_t BgL_envz00_60, obj_t BgL_optz00_59) { AN_OBJECT; { /* blib.scm 502 */ { /* blib.scm 502 */ obj_t BgL_symbol2072z00_1175; BgL_symbol2072z00_1175 = BGl_symbol2637z00zzblibz00; { /* blib.scm 502 */ PUSH_TRACE(BgL_symbol2072z00_1175); { /* blib.scm 502 */ obj_t BgL_aux2071z00_1176; { /* blib.scm 502 */ obj_t BgL_stringzd2listzd2_412; BgL_stringzd2listzd2_412 = VECTOR_REF(BgL_optz00_59, (int)(((long)0))); { { /* blib.scm 502 */ int BgL_aux1394z00_414; BgL_aux1394z00_414 = VECTOR_LENGTH(BgL_optz00_59); switch( (long)(BgL_aux1394z00_414)) { case ((long)1) : { /* blib.scm 502 */ obj_t BgL_grammarz00_417; BgL_grammarz00_417 = BGl_symbol2642z00zzblibz00; { /* blib.scm 502 */ BgL_aux2071z00_1176 = BGl_stringzd2joinzd2zzblibz00( VECTOR_REF(BgL_optz00_59, (int)(((long)0))), BGl_string2644z00zzblibz00, BgL_grammarz00_417); } } break;case ((long)2) : { /* blib.scm 502 */ obj_t BgL_delimiterz00_419; BgL_delimiterz00_419 = VECTOR_REF(BgL_optz00_59, (int)(((long)1))); { /* blib.scm 502 */ obj_t BgL_grammarz00_420; BgL_grammarz00_420 = BGl_symbol2642z00zzblibz00; { /* blib.scm 502 */ BgL_aux2071z00_1176 = BGl_stringzd2joinzd2zzblibz00( VECTOR_REF(BgL_optz00_59, (int)(((long)0))), BgL_delimiterz00_419, BgL_grammarz00_420); } } } break;case ((long)3) : { /* blib.scm 502 */ obj_t BgL_delimiterz00_422; BgL_delimiterz00_422 = VECTOR_REF(BgL_optz00_59, (int)(((long)1))); { /* blib.scm 502 */ obj_t BgL_grammarz00_423; BgL_grammarz00_423 = VECTOR_REF(BgL_optz00_59, (int)(((long)2))); { /* blib.scm 502 */ BgL_aux2071z00_1176 = BGl_stringzd2joinzd2zzblibz00( VECTOR_REF(BgL_optz00_59, (int)(((long)0))), BgL_delimiterz00_422, BgL_grammarz00_423); } } } break; default: { /* blib.scm 502 */ obj_t BgL_arg1556z00_425;int BgL_arg1561z00_427; BgL_arg1556z00_425 = BGl_symbol2639z00zzblibz00; BgL_arg1561z00_427 = VECTOR_LENGTH(BgL_optz00_59); BgL_aux2071z00_1176 = BGl_errorzf2locationzf2zz__errorz00(BgL_arg1556z00_425, BGl_string2641z00zzblibz00, BINT(BgL_arg1561z00_427), BGl_string2460z00zzblibz00, BINT(((long)14990))); } } } } } POP_TRACE(); return BgL_aux2071z00_1176;} } } } } /* string-join */ BGL_EXPORTED_DEF obj_t BGl_stringzd2joinzd2zzblibz00(obj_t BgL_stringzd2listzd2_56, obj_t BgL_delimiterz00_57, obj_t BgL_grammarz00_58) { AN_OBJECT; { /* blib.scm 502 */ { /* blib.scm 503 */ obj_t BgL_symbol2074z00_1177; BgL_symbol2074z00_1177 = BGl_symbol2645z00zzblibz00; { /* blib.scm 503 */ PUSH_TRACE(BgL_symbol2074z00_1177); { /* blib.scm 503 */ obj_t BgL_aux2073z00_1178; { /* blib.scm 503 */ obj_t BgL_runner1581z00_448; { obj_t BgL_stringzd2listzd2_429;obj_t BgL_accuz00_430; BgL_stringzd2listzd2_429 = BgL_stringzd2listzd2_56; BgL_accuz00_430 = BNIL; BgL_loopz00_431: if( NULLP(BgL_stringzd2listzd2_429)) { /* blib.scm 507 */ if( NULLP(BgL_accuz00_430)) { /* blib.scm 508 */ if( (BgL_grammarz00_58==BGl_symbol2647z00zzblibz00)) { /* blib.scm 509 */ BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2640z00zzblibz00, BGl_string2649z00zzblibz00, BGl_string2533z00zzblibz00, BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)15238)); BgL_runner1581z00_448 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00, BINT(((long)15238))); } else { /* blib.scm 509 */ BgL_runner1581z00_448 = BNIL; } } else { /* blib.scm 513 */ bool_t BgL_testz00_2883; { /* blib.scm 513 */ bool_t BgL__ortest_1331z00_442; BgL__ortest_1331z00_442 = (BgL_grammarz00_58==BGl_symbol2642z00zzblibz00); if(BgL__ortest_1331z00_442) { /* blib.scm 513 */ BgL_testz00_2883 = BgL__ortest_1331z00_442 ; } else { /* blib.scm 513 */ BgL_testz00_2883 = (BgL_grammarz00_58==BGl_symbol2647z00zzblibz00) ; } } if(BgL_testz00_2883) { /* blib.scm 515 */ obj_t BgL_auxz00_2887; { /* blib.scm 515 */ obj_t BgL_pairz00_972; if( PAIRP(BgL_accuz00_430)) { /* blib.scm 515 */ BgL_pairz00_972 = BgL_accuz00_430; } else { /* blib.scm 515 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_accuz00_430, BGl_string2460z00zzblibz00, BINT(((long)15413))); exit( -1 );} { /* blib.scm 515 */ obj_t BgL_aux2303z00_1564; BgL_aux2303z00_1564 = CDR(BgL_pairz00_972); { /* blib.scm 515 */ bool_t BgL_testz00_2894; if( PAIRP(BgL_aux2303z00_1564)) { /* blib.scm 515 */ BgL_testz00_2894 = ((bool_t)1) ; } else { /* blib.scm 515 */ BgL_testz00_2894 = NULLP(BgL_aux2303z00_1564) ; } if(BgL_testz00_2894) { /* blib.scm 515 */ BgL_auxz00_2887 = BgL_aux2303z00_1564 ; } else { /* blib.scm 515 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2303z00_1564, BGl_string2460z00zzblibz00, BINT(((long)15408))); exit( -1 );} } } } BgL_runner1581z00_448 = bgl_reverse(BgL_auxz00_2887); } else { /* blib.scm 513 */ if( (BgL_grammarz00_58==BGl_symbol2650z00zzblibz00)) { /* blib.scm 517 */ obj_t BgL_auxz00_2904; { /* blib.scm 517 */ bool_t BgL_testz00_2905; if( PAIRP(BgL_accuz00_430)) { /* blib.scm 517 */ BgL_testz00_2905 = ((bool_t)1) ; } else { /* blib.scm 517 */ BgL_testz00_2905 = NULLP(BgL_accuz00_430) ; } if(BgL_testz00_2905) { /* blib.scm 517 */ BgL_auxz00_2904 = BgL_accuz00_430 ; } else { /* blib.scm 517 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_accuz00_430, BGl_string2460z00zzblibz00, BINT(((long)15453))); exit( -1 );} } BgL_runner1581z00_448 = bgl_reverse(BgL_auxz00_2904); } else { /* blib.scm 513 */ if( (BgL_grammarz00_58==BGl_symbol2652z00zzblibz00)) { /* blib.scm 519 */ obj_t BgL_arg1574z00_440; { /* blib.scm 519 */ obj_t BgL_auxz00_2915; { /* blib.scm 519 */ obj_t BgL_pairz00_977; if( PAIRP(BgL_accuz00_430)) { /* blib.scm 519 */ BgL_pairz00_977 = BgL_accuz00_430; } else { /* blib.scm 519 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_accuz00_430, BGl_string2460z00zzblibz00, BINT(((long)15511))); exit( -1 );} { /* blib.scm 519 */ obj_t BgL_aux2309z00_1570; BgL_aux2309z00_1570 = CDR(BgL_pairz00_977); { /* blib.scm 519 */ bool_t BgL_testz00_2922; if( PAIRP(BgL_aux2309z00_1570)) { /* blib.scm 519 */ BgL_testz00_2922 = ((bool_t)1) ; } else { /* blib.scm 519 */ BgL_testz00_2922 = NULLP(BgL_aux2309z00_1570) ; } if(BgL_testz00_2922) { /* blib.scm 519 */ BgL_auxz00_2915 = BgL_aux2309z00_1570 ; } else { /* blib.scm 519 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2309z00_1570, BGl_string2460z00zzblibz00, BINT(((long)15506))); exit( -1 );} } } } BgL_arg1574z00_440 = bgl_reverse(BgL_auxz00_2915); } BgL_runner1581z00_448 = MAKE_PAIR(BgL_delimiterz00_57, BgL_arg1574z00_440); } else { /* blib.scm 513 */ BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2640z00zzblibz00, BGl_string2654z00zzblibz00, BgL_grammarz00_58, BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)15539)); BgL_runner1581z00_448 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00, BINT(((long)15539))); } } } } } else { /* blib.scm 525 */ obj_t BgL_arg1576z00_443;obj_t BgL_arg1577z00_444; { /* blib.scm 525 */ obj_t BgL_pairz00_978; if( PAIRP(BgL_stringzd2listzd2_429)) { /* blib.scm 525 */ BgL_pairz00_978 = BgL_stringzd2listzd2_429; } else { /* blib.scm 525 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_stringzd2listzd2_429, BGl_string2460z00zzblibz00, BINT(((long)15673))); exit( -1 );} BgL_arg1576z00_443 = CDR(BgL_pairz00_978); } { /* blib.scm 526 */ obj_t BgL_arg1578z00_445; { /* blib.scm 526 */ obj_t BgL_arg1579z00_446; { /* blib.scm 526 */ obj_t BgL_pairz00_979; if( PAIRP(BgL_stringzd2listzd2_429)) { /* blib.scm 526 */ BgL_pairz00_979 = BgL_stringzd2listzd2_429; } else { /* blib.scm 526 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2569z00zzblibz00, BGl_string2459z00zzblibz00, BgL_stringzd2listzd2_429, BGl_string2460z00zzblibz00, BINT(((long)15709))); exit( -1 );} BgL_arg1579z00_446 = CAR(BgL_pairz00_979); } { /* blib.scm 526 */ obj_t BgL_list1580z00_447; BgL_list1580z00_447 = MAKE_PAIR(BgL_accuz00_430, BNIL); BgL_arg1578z00_445 = BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_arg1579z00_446, BgL_list1580z00_447); } } BgL_arg1577z00_444 = MAKE_PAIR(BgL_delimiterz00_57, BgL_arg1578z00_445); } { obj_t BgL_accuz00_2951;obj_t BgL_stringzd2listzd2_2950; BgL_stringzd2listzd2_2950 = BgL_arg1576z00_443; BgL_accuz00_2951 = BgL_arg1577z00_444; BgL_accuz00_430 = BgL_accuz00_2951; BgL_stringzd2listzd2_429 = BgL_stringzd2listzd2_2950; goto BgL_loopz00_431;} } } BgL_aux2073z00_1178 = BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_runner1581z00_448); } POP_TRACE(); return BgL_aux2073z00_1178;} } } } } /* lset-difference */ BGL_EXPORTED_DEF obj_t BGl_lsetzd2differencezd2zzblibz00(obj_t BgL_eltzd3zd3_61, obj_t BgL_lis1z00_62, obj_t BgL_listsz00_63) { AN_OBJECT; { /* blib.scm 528 */ { /* blib.scm 529 */ obj_t BgL_symbol2076z00_1179; BgL_symbol2076z00_1179 = BGl_symbol2655z00zzblibz00; { /* blib.scm 529 */ PUSH_TRACE(BgL_symbol2076z00_1179); { /* blib.scm 529 */ obj_t BgL_aux2075z00_1180; { /* blib.scm 529 */ obj_t BgL_listsz00_449; if( PROCEDURE_CORRECT_ARITYP(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, (int)(((long)1)))) { /* blib.scm 529 */ if( BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listsz00_63)) { /* blib.scm 529 */ obj_t BgL_auxz00_2960; { /* blib.scm 529 */ bool_t BgL_testz00_2961; if( PAIRP(BgL_listsz00_63)) { /* blib.scm 529 */ BgL_testz00_2961 = ((bool_t)1) ; } else { /* blib.scm 529 */ BgL_testz00_2961 = NULLP(BgL_listsz00_63) ; } if(BgL_testz00_2961) { /* blib.scm 529 */ BgL_auxz00_2960 = BgL_listsz00_63 ; } else { /* blib.scm 529 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2657z00zzblibz00, BGl_string2465z00zzblibz00, BgL_listsz00_63, BGl_string2460z00zzblibz00, BINT(((long)15796))); exit( -1 );} } BgL_listsz00_449 = BGl_filterz00zz__r4_control_features_6_9z00(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2960); } else { /* blib.scm 529 */ BgL_listsz00_449 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2619z00zzblibz00, BgL_listsz00_63, BGl_string2460z00zzblibz00, BINT(((long)15796))); } } else { /* blib.scm 529 */ BgL_listsz00_449 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2622z00zzblibz00, BINT(((long)1)), BGl_string2460z00zzblibz00, BINT(((long)15796))); } if( NULLP(BgL_listsz00_449)) { /* blib.scm 530 */ BgL_aux2075z00_1180 = BgL_lis1z00_62; } else { /* blib.scm 531 */ bool_t BgL_testz00_2976; { /* blib.scm 531 */ obj_t BgL_auxz00_2977; { /* blib.scm 531 */ obj_t BgL_auxz00_2978; { /* blib.scm 531 */ bool_t BgL_testz00_2979; if( PAIRP(BgL_listsz00_449)) { /* blib.scm 531 */ BgL_testz00_2979 = ((bool_t)1) ; } else { /* blib.scm 531 */ BgL_testz00_2979 = NULLP(BgL_listsz00_449) ; } if(BgL_testz00_2979) { /* blib.scm 531 */ BgL_auxz00_2978 = BgL_listsz00_449 ; } else { /* blib.scm 531 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2657z00zzblibz00, BGl_string2465z00zzblibz00, BgL_listsz00_449, BGl_string2460z00zzblibz00, BINT(((long)15913))); exit( -1 );} } BgL_auxz00_2977 = BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_lis1z00_62, BgL_auxz00_2978); } BgL_testz00_2976 = CBOOL(BgL_auxz00_2977); } if(BgL_testz00_2976) { /* blib.scm 531 */ BgL_aux2075z00_1180 = BNIL; } else { /* blib.scm 532 */ obj_t BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317; BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317 = make_fx_procedure(BGl_zc3anonymousza31589za3blibze2scmza3531ze3z61zzblibz00, (int)(((long)1)), (int)(((long)1))); PROCEDURE_SET(BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317, (int)(((long)0)), BgL_listsz00_449); if( PROCEDURE_CORRECT_ARITYP(BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317, (int)(((long)1)))) { /* blib.scm 531 */ if( BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lis1z00_62)) { /* blib.scm 531 */ obj_t BgL_auxz00_2998; { /* blib.scm 531 */ bool_t BgL_testz00_2999; if( PAIRP(BgL_lis1z00_62)) { /* blib.scm 531 */ BgL_testz00_2999 = ((bool_t)1) ; } else { /* blib.scm 531 */ BgL_testz00_2999 = NULLP(BgL_lis1z00_62) ; } if(BgL_testz00_2999) { /* blib.scm 531 */ BgL_auxz00_2998 = BgL_lis1z00_62 ; } else { /* blib.scm 531 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2657z00zzblibz00, BGl_string2465z00zzblibz00, BgL_lis1z00_62, BGl_string2460z00zzblibz00, BINT(((long)15902))); exit( -1 );} } BgL_aux2075z00_1180 = BGl_filterz00zz__r4_control_features_6_9z00(BgL_zc3anonymousza31589za3blibze2scmza3531ze3z61_1317, BgL_auxz00_2998); } else { /* blib.scm 531 */ BgL_aux2075z00_1180 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2619z00zzblibz00, BgL_lis1z00_62, BGl_string2460z00zzblibz00, BINT(((long)15902))); } } else { /* blib.scm 531 */ BgL_aux2075z00_1180 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2622z00zzblibz00, BINT(((long)1)), BGl_string2460z00zzblibz00, BINT(((long)15902))); } } } } POP_TRACE(); return BgL_aux2075z00_1180;} } } } } /* _lset-difference */ obj_t BGl__lsetzd2differencezd2zzblibz00(obj_t BgL_envz00_1318, obj_t BgL_eltzd3zd3_1319, obj_t BgL_lis1z00_1320, obj_t BgL_listsz00_1321) { AN_OBJECT; { /* blib.scm 528 */ { /* blib.scm 529 */ obj_t BgL_auxz00_3013; if( PROCEDUREP(BgL_eltzd3zd3_1319)) { /* blib.scm 529 */ BgL_auxz00_3013 = BgL_eltzd3zd3_1319 ; } else { /* blib.scm 529 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2659z00zzblibz00, BGl_string2538z00zzblibz00, BgL_eltzd3zd3_1319, BGl_string2460z00zzblibz00, BINT(((long)15790))); exit( -1 );} return BGl_lsetzd2differencezd2zzblibz00(BgL_auxz00_3013, BgL_lis1z00_1320, BgL_listsz00_1321);} } } /* */ obj_t BGl_zc3anonymousza31589za3blibze2scmza3531ze3z61zzblibz00(obj_t BgL_envz00_1322, obj_t BgL_xz00_1324) { AN_OBJECT; { /* blib.scm 532 */ { /* blib.scm 532 */ obj_t BgL_listsz00_1323; BgL_listsz00_1323 = PROCEDURE_REF(BgL_envz00_1322, (int)(((long)0))); { obj_t BgL_xz00_457; BgL_xz00_457 = BgL_xz00_1324; { /* blib.scm 533 */ obj_t BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316; BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316 = make_fx_procedure(BGl_zc3anonymousza31594za3blibze2scmza3532ze3z61zzblibz00, (int)(((long)1)), (int)(((long)1))); PROCEDURE_SET(BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316, (int)(((long)0)), BgL_xz00_457); if( PROCEDURE_CORRECT_ARITYP(BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316, (int)(((long)1)))) { /* blib.scm 532 */ if( BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listsz00_1323)) { /* blib.scm 532 */ obj_t BgL_list1592z00_464; BgL_list1592z00_464 = MAKE_PAIR(BgL_listsz00_1323, BNIL); return BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3anonymousza31594za3blibze2scmza3532ze3z61_1316, BgL_list1592z00_464);} else { /* blib.scm 532 */ return BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2661z00zzblibz00, BgL_listsz00_1323, BGl_string2460z00zzblibz00, BINT(((long)15954)));} } else { /* blib.scm 532 */ return BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2662z00zzblibz00, BINT(((long)1)), BGl_string2460z00zzblibz00, BINT(((long)15954)));} } } } } } /* */ obj_t BGl_zc3anonymousza31594za3blibze2scmza3532ze3z61zzblibz00(obj_t BgL_envz00_1325, obj_t BgL_lisz00_1327) { AN_OBJECT; { /* blib.scm 533 */ { /* blib.scm 533 */ obj_t BgL_xz00_1326; BgL_xz00_1326 = PROCEDURE_REF(BgL_envz00_1325, (int)(((long)0))); { obj_t BgL_lisz00_465; { /* blib.scm 533 */ bool_t BgL_auxz00_3041; BgL_lisz00_465 = BgL_lisz00_1327; { /* blib.scm 533 */ bool_t BgL_testz00_3042; { /* blib.scm 533 */ obj_t BgL_auxz00_3043; { /* blib.scm 533 */ obj_t BgL_auxz00_3044; { /* blib.scm 533 */ bool_t BgL_testz00_3045; if( PAIRP(BgL_lisz00_465)) { /* blib.scm 533 */ BgL_testz00_3045 = ((bool_t)1) ; } else { /* blib.scm 533 */ BgL_testz00_3045 = NULLP(BgL_lisz00_465) ; } if(BgL_testz00_3045) { /* blib.scm 533 */ BgL_auxz00_3044 = BgL_lisz00_465 ; } else { /* blib.scm 533 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2663z00zzblibz00, BGl_string2465z00zzblibz00, BgL_lisz00_465, BGl_string2460z00zzblibz00, BINT(((long)16007))); exit( -1 );} } BgL_auxz00_3043 = BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1326, BgL_auxz00_3044); } BgL_testz00_3042 = CBOOL(BgL_auxz00_3043); } if(BgL_testz00_3042) { /* blib.scm 533 */ BgL_auxz00_3041 = ((bool_t)0) ; } else { /* blib.scm 533 */ BgL_auxz00_3041 = ((bool_t)1) ; } } return BBOOL(BgL_auxz00_3041);} } } } } /* lset-union! */ BGL_EXPORTED_DEF obj_t BGl_lsetzd2unionz12zc0zzblibz00(obj_t BgL_eltzd3zd3_64, obj_t BgL_listsz00_65) { AN_OBJECT; { /* blib.scm 537 */ { /* blib.scm 538 */ obj_t BgL_symbol2078z00_1181; BgL_symbol2078z00_1181 = BGl_symbol2665z00zzblibz00; { /* blib.scm 538 */ PUSH_TRACE(BgL_symbol2078z00_1181); { /* blib.scm 538 */ obj_t BgL_aux2077z00_1182; { /* blib.scm 539 */ obj_t BgL_zc3anonymousza31604za3blibze2scmza3538ze3z61_1332; BgL_zc3anonymousza31604za3blibze2scmza3538ze3z61_1332 = make_fx_procedure(BGl_zc3anonymousza31604za3blibze2scmza3538ze3z61zzblibz00, (int)(((long)2)), (int)(((long)1))); PROCEDURE_SET(BgL_zc3anonymousza31604za3blibze2scmza3538ze3z61_1332, (int)(((long)0)), BgL_eltzd3zd3_64); if( CBOOL( BGl_nullzd2listzf3z21zzblibz00(BgL_listsz00_65))) { /* blib.scm 538 */ BgL_aux2077z00_1182 = BNIL; } else { /* blib.scm 538 */ obj_t BgL_arg1439z00_985;obj_t BgL_arg1440z00_986; { /* blib.scm 538 */ obj_t BgL_pairz00_988; if( PAIRP(BgL_listsz00_65)) { /* blib.scm 538 */ BgL_pairz00_988 = BgL_listsz00_65; } else { /* blib.scm 538 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2667z00zzblibz00, BGl_string2459z00zzblibz00, BgL_listsz00_65, BGl_string2460z00zzblibz00, BINT(((long)16078))); exit( -1 );} BgL_arg1439z00_985 = CAR(BgL_pairz00_988); } { /* blib.scm 538 */ obj_t BgL_pairz00_989; if( PAIRP(BgL_listsz00_65)) { /* blib.scm 538 */ BgL_pairz00_989 = BgL_listsz00_65; } else { /* blib.scm 538 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2667z00zzblibz00, BGl_string2459z00zzblibz00, BgL_listsz00_65, BGl_string2460z00zzblibz00, BINT(((long)16078))); exit( -1 );} BgL_arg1440z00_986 = CDR(BgL_pairz00_989); } { /* blib.scm 538 */ obj_t BgL_aux2329z00_1590; BgL_aux2329z00_1590 = BGl_foldz00zzblibz00(BgL_zc3anonymousza31604za3blibze2scmza3538ze3z61_1332, BgL_arg1439z00_985, BgL_arg1440z00_986, BNIL); { /* blib.scm 538 */ bool_t BgL_testz00_3077; if( PAIRP(BgL_aux2329z00_1590)) { /* blib.scm 538 */ BgL_testz00_3077 = ((bool_t)1) ; } else { /* blib.scm 538 */ BgL_testz00_3077 = NULLP(BgL_aux2329z00_1590) ; } if(BgL_testz00_3077) { /* blib.scm 538 */ BgL_aux2077z00_1182 = BgL_aux2329z00_1590; } else { /* blib.scm 538 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2667z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2329z00_1590, BGl_string2460z00zzblibz00, BINT(((long)16078))); exit( -1 );} } } } } POP_TRACE(); return BgL_aux2077z00_1182;} } } } } /* _lset-union! */ obj_t BGl__lsetzd2unionz12zc0zzblibz00(obj_t BgL_envz00_1333, obj_t BgL_eltzd3zd3_1334, obj_t BgL_listsz00_1335) { AN_OBJECT; { /* blib.scm 537 */ { /* blib.scm 538 */ obj_t BgL_auxz00_3085; if( PROCEDUREP(BgL_eltzd3zd3_1334)) { /* blib.scm 538 */ BgL_auxz00_3085 = BgL_eltzd3zd3_1334 ; } else { /* blib.scm 538 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2669z00zzblibz00, BGl_string2538z00zzblibz00, BgL_eltzd3zd3_1334, BGl_string2460z00zzblibz00, BINT(((long)16086))); exit( -1 );} return BGl_lsetzd2unionz12zc0zzblibz00(BgL_auxz00_3085, BgL_listsz00_1335);} } } /* */ obj_t BGl_zc3anonymousza31604za3blibze2scmza3538ze3z61zzblibz00(obj_t BgL_envz00_1336, obj_t BgL_lisz00_1338, obj_t BgL_ansz00_1339) { AN_OBJECT; { /* blib.scm 538 */ { /* blib.scm 539 */ obj_t BgL_eltzd3zd3_1337; BgL_eltzd3zd3_1337 = PROCEDURE_REF(BgL_envz00_1336, (int)(((long)0))); { obj_t BgL_lisz00_477;obj_t BgL_ansz00_478; BgL_lisz00_477 = BgL_lisz00_1338; BgL_ansz00_478 = BgL_ansz00_1339; if( NULLP(BgL_lisz00_477)) { /* blib.scm 539 */ return BgL_ansz00_478;} else { /* blib.scm 539 */ if( NULLP(BgL_ansz00_478)) { /* blib.scm 540 */ return BgL_lisz00_477;} else { /* blib.scm 540 */ if( (BgL_lisz00_477==BgL_ansz00_478)) { /* blib.scm 541 */ return BgL_ansz00_478;} else { /* blib.scm 544 */ obj_t BgL_zc3anonymousza31618za3blibze2scmza3543ze3z61_1331; BgL_zc3anonymousza31618za3blibze2scmza3543ze3z61_1331 = make_fx_procedure(BGl_zc3anonymousza31618za3blibze2scmza3543ze3z61zzblibz00, (int)(((long)2)), (int)(((long)1))); PROCEDURE_SET(BgL_zc3anonymousza31618za3blibze2scmza3543ze3z61_1331, (int)(((long)0)), BgL_eltzd3zd3_1337); return BGl_pairzd2foldzd2zzblibz00(BgL_zc3anonymousza31618za3blibze2scmza3543ze3z61_1331, BgL_ansz00_478, BgL_lisz00_477, BNIL);} } } } } } } /* */ obj_t BGl_zc3anonymousza31618za3blibze2scmza3543ze3z61zzblibz00(obj_t BgL_envz00_1340, obj_t BgL_pairz00_1342, obj_t BgL_ansz00_1343) { AN_OBJECT; { /* blib.scm 543 */ { /* blib.scm 544 */ obj_t BgL_eltzd3zd3_1341; BgL_eltzd3zd3_1341 = PROCEDURE_REF(BgL_envz00_1340, (int)(((long)0))); { obj_t BgL_pairz00_485;obj_t BgL_ansz00_486; BgL_pairz00_485 = BgL_pairz00_1342; BgL_ansz00_486 = BgL_ansz00_1343; { /* blib.scm 544 */ obj_t BgL_eltz00_488; { /* blib.scm 544 */ obj_t BgL_pairz00_992; if( PAIRP(BgL_pairz00_485)) { /* blib.scm 544 */ BgL_pairz00_992 = BgL_pairz00_485; } else { /* blib.scm 544 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2671z00zzblibz00, BGl_string2459z00zzblibz00, BgL_pairz00_485, BGl_string2460z00zzblibz00, BINT(((long)16340))); exit( -1 );} BgL_eltz00_488 = CAR(BgL_pairz00_992); } { /* blib.scm 545 */ bool_t BgL_testz00_3114; { /* blib.scm 545 */ obj_t BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330; BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330 = make_fx_procedure(BGl_zc3anonymousza31624za3blibze2scmza3545ze3z61zzblibz00, (int)(((long)1)), (int)(((long)2))); PROCEDURE_SET(BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330, (int)(((long)0)), BgL_eltzd3zd3_1341); PROCEDURE_SET(BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330, (int)(((long)1)), BgL_eltz00_488); if( PROCEDURE_CORRECT_ARITYP(BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330, (int)(((long)1)))) { /* blib.scm 545 */ if( BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_ansz00_486)) { /* blib.scm 545 */ obj_t BgL_list1622z00_495; BgL_list1622z00_495 = MAKE_PAIR(BgL_ansz00_486, BNIL); BgL_testz00_3114 = CBOOL( BGl_anyz00zz__r4_pairs_and_lists_6_3z00(BgL_zc3anonymousza31624za3blibze2scmza3545ze3z61_1330, BgL_list1622z00_495)); } else { /* blib.scm 545 */ BgL_testz00_3114 = CBOOL( BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2673z00zzblibz00, BgL_ansz00_486, BGl_string2460z00zzblibz00, BINT(((long)16354)))) ; } } else { /* blib.scm 545 */ BgL_testz00_3114 = CBOOL( BGl_errorzf2locationzf2zz__errorz00(BFALSE, BGl_string2674z00zzblibz00, BINT(((long)1)), BGl_string2460z00zzblibz00, BINT(((long)16354)))) ; } } if(BgL_testz00_3114) { /* blib.scm 545 */ return BgL_ansz00_486;} else { /* blib.scm 545 */ { /* blib.scm 547 */ obj_t BgL_pairz00_993; if( PAIRP(BgL_pairz00_485)) { /* blib.scm 547 */ BgL_pairz00_993 = BgL_pairz00_485; } else { /* blib.scm 547 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2671z00zzblibz00, BGl_string2459z00zzblibz00, BgL_pairz00_485, BGl_string2460z00zzblibz00, BINT(((long)16435))); exit( -1 );} SET_CDR(BgL_pairz00_993, BgL_ansz00_486); } return BgL_pairz00_485;} } } } } } } /* */ obj_t BGl_zc3anonymousza31624za3blibze2scmza3545ze3z61zzblibz00(obj_t BgL_envz00_1344, obj_t BgL_xz00_1347) { AN_OBJECT; { /* blib.scm 545 */ { /* blib.scm 545 */ obj_t BgL_eltzd3zd3_1345;obj_t BgL_eltz00_1346; BgL_eltzd3zd3_1345 = PROCEDURE_REF(BgL_envz00_1344, (int)(((long)0))); BgL_eltz00_1346 = PROCEDURE_REF(BgL_envz00_1344, (int)(((long)1))); { obj_t BgL_xz00_496; BgL_xz00_496 = BgL_xz00_1347; { /* blib.scm 545 */ obj_t BgL_funz00_1600; if( PROCEDUREP(BgL_eltzd3zd3_1345)) { /* blib.scm 545 */ BgL_funz00_1600 = BgL_eltzd3zd3_1345; } else { /* blib.scm 545 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2675z00zzblibz00, BGl_string2538z00zzblibz00, BgL_eltzd3zd3_1345, BGl_string2460z00zzblibz00, BINT(((long)16375))); exit( -1 );} if( PROCEDURE_CORRECT_ARITYP(BgL_funz00_1600, ((long)2))) { /* blib.scm 545 */ return PROCEDURE_ENTRY(BgL_funz00_1600)(BgL_eltzd3zd3_1345, BgL_xz00_496, BgL_eltz00_1346, BEOA);} else { /* blib.scm 545 */ BGl_errorzf2locationzf2zz__errorz00(BGl_string2677z00zzblibz00, BGl_list2678z00zzblibz00, BgL_funz00_1600, BGl_string2460z00zzblibz00, BINT(((long)16375))); FAILURE(BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00,BGl_symbol2497z00zzblibz00);} } } } } } /* char->hex */ BGL_EXPORTED_DEF obj_t BGl_charzd2ze3hexz31zzblibz00(unsigned char BgL_cz00_66) { AN_OBJECT; { /* blib.scm 551 */ { /* blib.scm 552 */ obj_t BgL_symbol2080z00_1183; BgL_symbol2080z00_1183 = BGl_symbol2683z00zzblibz00; { /* blib.scm 552 */ PUSH_TRACE(BgL_symbol2080z00_1183); { /* blib.scm 552 */ obj_t BgL_aux2079z00_1184; { /* blib.scm 552 */ obj_t BgL_sz00_995; BgL_sz00_995 = make_string(((long)2), ((unsigned char)' ')); { char * BgL_auxz00_3161; BgL_auxz00_3161 = BSTRING_TO_STRING(BgL_sz00_995); sprintf(BgL_auxz00_3161, "%02x", BgL_cz00_66); } BgL_aux2079z00_1184 = BgL_sz00_995; } POP_TRACE(); return BgL_aux2079z00_1184;} } } } } /* _char->hex */ obj_t BGl__charzd2ze3hexz31zzblibz00(obj_t BgL_envz00_1348, obj_t BgL_cz00_1349) { AN_OBJECT; { /* blib.scm 551 */ { /* blib.scm 552 */ unsigned char BgL_auxz00_3165; { /* blib.scm 552 */ obj_t BgL_auxz00_3166; if( CHARP(BgL_cz00_1349)) { /* blib.scm 552 */ BgL_auxz00_3166 = BgL_cz00_1349 ; } else { /* blib.scm 552 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2685z00zzblibz00, BGl_string2687z00zzblibz00, BgL_cz00_1349, BGl_string2460z00zzblibz00, BINT(((long)16538))); exit( -1 );} BgL_auxz00_3165 = CCHAR(BgL_auxz00_3166); } return BGl_charzd2ze3hexz31zzblibz00(BgL_auxz00_3165);} } } /* environ */ BGL_EXPORTED_DEF obj_t BGl_environz00zzblibz00() { AN_OBJECT; { /* blib.scm 558 */ { /* blib.scm 568 */ obj_t BgL_symbol2082z00_1185; BgL_symbol2082z00_1185 = BGl_symbol2688z00zzblibz00; { /* blib.scm 568 */ PUSH_TRACE(BgL_symbol2082z00_1185); { /* blib.scm 568 */ obj_t BgL_aux2081z00_1186; extern char** environ; { /* blib.scm 560 */ obj_t BgL_l1366z00_503; { /* blib.scm 568 */ char** BgL_arg1640z00_518; BgL_arg1640z00_518 = environ; { /* blib.scm 563 */ BgL_l1366z00_503 = BGl_stringza2zd2ze3stringzd2listz41zzblibz00(BgL_arg1640z00_518, BFALSE); } } if( NULLP(BgL_l1366z00_503)) { /* blib.scm 560 */ BgL_aux2081z00_1186 = BNIL; } else { /* blib.scm 560 */ obj_t BgL_head1368z00_505; BgL_head1368z00_505 = MAKE_PAIR(BNIL, BNIL); { obj_t BgL_l1366z00_506;obj_t BgL_tail1369z00_507; { /* blib.scm 560 */ obj_t BgL_aux2355z00_1617; BgL_l1366z00_506 = BgL_l1366z00_503; BgL_tail1369z00_507 = BgL_head1368z00_505; BgL_map1367z00_508: if( PAIRP(BgL_l1366z00_506)) { /* blib.scm 560 */ obj_t BgL_newtail1370z00_510; { /* blib.scm 560 */ obj_t BgL_arg1635z00_512; { /* blib.scm 560 */ obj_t BgL_strz00_514; BgL_strz00_514 = CAR(BgL_l1366z00_506); { /* blib.scm 561 */ obj_t BgL_arg1637z00_515;obj_t BgL_arg1638z00_516; { /* blib.scm 561 */ obj_t BgL_auxz00_3184; if( STRINGP(BgL_strz00_514)) { /* blib.scm 561 */ BgL_auxz00_3184 = BgL_strz00_514 ; } else { /* blib.scm 561 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2690z00zzblibz00, BGl_string2530z00zzblibz00, BgL_strz00_514, BGl_string2460z00zzblibz00, BINT(((long)16755))); exit( -1 );} BgL_arg1637z00_515 = BGl_stringzd2beforezd2zzblibz00(BgL_auxz00_3184, (char)(((unsigned char)'='))); } { /* blib.scm 562 */ obj_t BgL_sz00_1009;unsigned char BgL_delimz00_1010; if( STRINGP(BgL_strz00_514)) { /* blib.scm 562 */ BgL_sz00_1009 = BgL_strz00_514; } else { /* blib.scm 562 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2690z00zzblibz00, BGl_string2530z00zzblibz00, BgL_strz00_514, BGl_string2460z00zzblibz00, BINT(((long)16794))); exit( -1 );} BgL_delimz00_1010 = (char)(((unsigned char)'=')); { /* blib.scm 562 */ char * BgL_foundz00_1011; { char * BgL_auxz00_3198; BgL_auxz00_3198 = BSTRING_TO_STRING(BgL_sz00_1009); BgL_foundz00_1011 = strchr(BgL_auxz00_3198, BgL_delimz00_1010); } if( (BgL_foundz00_1011 != 0L)) { /* blib.scm 562 */ char * BgL_arg1442z00_1013; BgL_arg1442z00_1013 = BgL_foundz00_1011 + 1; BgL_arg1638z00_516 = string_to_bstring(BgL_arg1442z00_1013); } else { /* blib.scm 562 */ BgL_arg1638z00_516 = BFALSE; } } } BgL_arg1635z00_512 = MAKE_PAIR(BgL_arg1637z00_515, BgL_arg1638z00_516); } } BgL_newtail1370z00_510 = MAKE_PAIR(BgL_arg1635z00_512, BNIL); } SET_CDR(BgL_tail1369z00_507, BgL_newtail1370z00_510); { obj_t BgL_tail1369z00_3210;obj_t BgL_l1366z00_3208; BgL_l1366z00_3208 = CDR(BgL_l1366z00_506); BgL_tail1369z00_3210 = BgL_newtail1370z00_510; BgL_tail1369z00_507 = BgL_tail1369z00_3210; BgL_l1366z00_506 = BgL_l1366z00_3208; goto BgL_map1367z00_508;} } else { /* blib.scm 560 */ if( NULLP(BgL_l1366z00_506)) { /* blib.scm 560 */ BgL_aux2355z00_1617 = CDR(BgL_head1368z00_505); } else { /* blib.scm 560 */ BgL_aux2355z00_1617 = BGl_errorzf2locationzf2zz__errorz00(BGl_string2573z00zzblibz00, BGl_string2574z00zzblibz00, BgL_l1366z00_506, BGl_string2460z00zzblibz00, BINT(((long)16705))); } } { /* blib.scm 560 */ bool_t BgL_testz00_3216; if( PAIRP(BgL_aux2355z00_1617)) { /* blib.scm 560 */ BgL_testz00_3216 = ((bool_t)1) ; } else { /* blib.scm 560 */ BgL_testz00_3216 = NULLP(BgL_aux2355z00_1617) ; } if(BgL_testz00_3216) { /* blib.scm 560 */ BgL_aux2081z00_1186 = BgL_aux2355z00_1617; } else { /* blib.scm 560 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2692z00zzblibz00, BGl_string2465z00zzblibz00, BgL_aux2355z00_1617, BGl_string2460z00zzblibz00, BINT(((long)16705))); exit( -1 );} } } } } } POP_TRACE(); return BgL_aux2081z00_1186;} } } } } /* _environ */ obj_t BGl__environz00zzblibz00(obj_t BgL_envz00_1350) { AN_OBJECT; { /* blib.scm 558 */ return BGl_environz00zzblibz00();} } /* tm-sec */ BGL_EXPORTED_DEF int BGl_tmzd2seczd2zzblibz00(struct tm* BgL_oz00_67) { AN_OBJECT; { /* blib.scm 570 */ { /* blib.scm 571 */ obj_t BgL_symbol2084z00_1187; BgL_symbol2084z00_1187 = BGl_symbol2694z00zzblibz00; { /* blib.scm 571 */ PUSH_TRACE(BgL_symbol2084z00_1187); { /* blib.scm 571 */ int BgL_aux2083z00_1188; { /* blib.scm 571 */ int BgL_resultz00_1021; BgL_resultz00_1021 = BgL_oz00_67->tm_sec; BgL_aux2083z00_1188 = BgL_resultz00_1021; } POP_TRACE(); return BgL_aux2083z00_1188;} } } } } /* _tm-sec */ obj_t BGl__tmzd2seczd2zzblibz00(obj_t BgL_envz00_1351, obj_t BgL_oz00_1352) { AN_OBJECT; { /* blib.scm 570 */ { /* blib.scm 571 */ int BgL_auxz00_3228; { /* blib.scm 571 */ struct tm* BgL_auxz00_3229; if( BGl_tmzf3zf3zzblibz00(BgL_oz00_1352)) { /* blib.scm 571 */ BgL_auxz00_3229 = (struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1352) ; } else { /* blib.scm 571 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2696z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1352, BGl_string2460z00zzblibz00, BINT(((long)16992))); exit( -1 );} BgL_auxz00_3228 = BGl_tmzd2seczd2zzblibz00(BgL_auxz00_3229); } return BINT(BgL_auxz00_3228);} } } /* tm-min */ BGL_EXPORTED_DEF int BGl_tmzd2minzd2zzblibz00(struct tm* BgL_oz00_68) { AN_OBJECT; { /* blib.scm 575 */ { /* blib.scm 576 */ obj_t BgL_symbol2086z00_1189; BgL_symbol2086z00_1189 = BGl_symbol2699z00zzblibz00; { /* blib.scm 576 */ PUSH_TRACE(BgL_symbol2086z00_1189); { /* blib.scm 576 */ int BgL_aux2085z00_1190; { /* blib.scm 576 */ int BgL_resultz00_1022; BgL_resultz00_1022 = BgL_oz00_68->tm_min; BgL_aux2085z00_1190 = BgL_resultz00_1022; } POP_TRACE(); return BgL_aux2085z00_1190;} } } } } /* _tm-min */ obj_t BGl__tmzd2minzd2zzblibz00(obj_t BgL_envz00_1353, obj_t BgL_oz00_1354) { AN_OBJECT; { /* blib.scm 575 */ { /* blib.scm 576 */ int BgL_auxz00_3241; { /* blib.scm 576 */ struct tm* BgL_auxz00_3242; if( BGl_tmzf3zf3zzblibz00(BgL_oz00_1354)) { /* blib.scm 576 */ BgL_auxz00_3242 = (struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1354) ; } else { /* blib.scm 576 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2701z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1354, BGl_string2460z00zzblibz00, BINT(((long)17083))); exit( -1 );} BgL_auxz00_3241 = BGl_tmzd2minzd2zzblibz00(BgL_auxz00_3242); } return BINT(BgL_auxz00_3241);} } } /* tm-hour */ BGL_EXPORTED_DEF int BGl_tmzd2hourzd2zzblibz00(struct tm* BgL_oz00_69) { AN_OBJECT; { /* blib.scm 580 */ { /* blib.scm 581 */ obj_t BgL_symbol2088z00_1191; BgL_symbol2088z00_1191 = BGl_symbol2703z00zzblibz00; { /* blib.scm 581 */ PUSH_TRACE(BgL_symbol2088z00_1191); { /* blib.scm 581 */ int BgL_aux2087z00_1192; { /* blib.scm 581 */ int BgL_resultz00_1023; BgL_resultz00_1023 = BgL_oz00_69->tm_hour; BgL_aux2087z00_1192 = BgL_resultz00_1023; } POP_TRACE(); return BgL_aux2087z00_1192;} } } } } /* _tm-hour */ obj_t BGl__tmzd2hourzd2zzblibz00(obj_t BgL_envz00_1355, obj_t BgL_oz00_1356) { AN_OBJECT; { /* blib.scm 580 */ { /* blib.scm 581 */ int BgL_auxz00_3254; { /* blib.scm 581 */ struct tm* BgL_auxz00_3255; if( BGl_tmzf3zf3zzblibz00(BgL_oz00_1356)) { /* blib.scm 581 */ BgL_auxz00_3255 = (struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1356) ; } else { /* blib.scm 581 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2705z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1356, BGl_string2460z00zzblibz00, BINT(((long)17175))); exit( -1 );} BgL_auxz00_3254 = BGl_tmzd2hourzd2zzblibz00(BgL_auxz00_3255); } return BINT(BgL_auxz00_3254);} } } /* tm-mday */ BGL_EXPORTED_DEF int BGl_tmzd2mdayzd2zzblibz00(struct tm* BgL_oz00_70) { AN_OBJECT; { /* blib.scm 585 */ { /* blib.scm 586 */ obj_t BgL_symbol2090z00_1193; BgL_symbol2090z00_1193 = BGl_symbol2707z00zzblibz00; { /* blib.scm 586 */ PUSH_TRACE(BgL_symbol2090z00_1193); { /* blib.scm 586 */ int BgL_aux2089z00_1194; { /* blib.scm 586 */ int BgL_resultz00_1024; BgL_resultz00_1024 = BgL_oz00_70->tm_mday; BgL_aux2089z00_1194 = BgL_resultz00_1024; } POP_TRACE(); return BgL_aux2089z00_1194;} } } } } /* _tm-mday */ obj_t BGl__tmzd2mdayzd2zzblibz00(obj_t BgL_envz00_1357, obj_t BgL_oz00_1358) { AN_OBJECT; { /* blib.scm 585 */ { /* blib.scm 586 */ int BgL_auxz00_3267; { /* blib.scm 586 */ struct tm* BgL_auxz00_3268; if( BGl_tmzf3zf3zzblibz00(BgL_oz00_1358)) { /* blib.scm 586 */ BgL_auxz00_3268 = (struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1358) ; } else { /* blib.scm 586 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2709z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1358, BGl_string2460z00zzblibz00, BINT(((long)17268))); exit( -1 );} BgL_auxz00_3267 = BGl_tmzd2mdayzd2zzblibz00(BgL_auxz00_3268); } return BINT(BgL_auxz00_3267);} } } /* tm-mon */ BGL_EXPORTED_DEF int BGl_tmzd2monzd2zzblibz00(struct tm* BgL_oz00_71) { AN_OBJECT; { /* blib.scm 590 */ { /* blib.scm 591 */ obj_t BgL_symbol2092z00_1195; BgL_symbol2092z00_1195 = BGl_symbol2711z00zzblibz00; { /* blib.scm 591 */ PUSH_TRACE(BgL_symbol2092z00_1195); { /* blib.scm 591 */ int BgL_aux2091z00_1196; { /* blib.scm 591 */ int BgL_resultz00_1025; BgL_resultz00_1025 = BgL_oz00_71->tm_mon; BgL_aux2091z00_1196 = BgL_resultz00_1025; } POP_TRACE(); return BgL_aux2091z00_1196;} } } } } /* _tm-mon */ obj_t BGl__tmzd2monzd2zzblibz00(obj_t BgL_envz00_1359, obj_t BgL_oz00_1360) { AN_OBJECT; { /* blib.scm 590 */ { /* blib.scm 591 */ int BgL_auxz00_3280; { /* blib.scm 591 */ struct tm* BgL_auxz00_3281; if( BGl_tmzf3zf3zzblibz00(BgL_oz00_1360)) { /* blib.scm 591 */ BgL_auxz00_3281 = (struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1360) ; } else { /* blib.scm 591 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2713z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1360, BGl_string2460z00zzblibz00, BINT(((long)17360))); exit( -1 );} BgL_auxz00_3280 = BGl_tmzd2monzd2zzblibz00(BgL_auxz00_3281); } return BINT(BgL_auxz00_3280);} } } /* tm-year */ BGL_EXPORTED_DEF int BGl_tmzd2yearzd2zzblibz00(struct tm* BgL_oz00_72) { AN_OBJECT; { /* blib.scm 595 */ { /* blib.scm 596 */ obj_t BgL_symbol2094z00_1197; BgL_symbol2094z00_1197 = BGl_symbol2715z00zzblibz00; { /* blib.scm 596 */ PUSH_TRACE(BgL_symbol2094z00_1197); { /* blib.scm 596 */ int BgL_aux2093z00_1198; { /* blib.scm 596 */ int BgL_resultz00_1026; BgL_resultz00_1026 = BgL_oz00_72->tm_year; BgL_aux2093z00_1198 = BgL_resultz00_1026; } POP_TRACE(); return BgL_aux2093z00_1198;} } } } } /* _tm-year */ obj_t BGl__tmzd2yearzd2zzblibz00(obj_t BgL_envz00_1361, obj_t BgL_oz00_1362) { AN_OBJECT; { /* blib.scm 595 */ { /* blib.scm 596 */ int BgL_auxz00_3293; { /* blib.scm 596 */ struct tm* BgL_auxz00_3294; if( BGl_tmzf3zf3zzblibz00(BgL_oz00_1362)) { /* blib.scm 596 */ BgL_auxz00_3294 = (struct tm*)FOREIGN_TO_COBJ(BgL_oz00_1362) ; } else { /* blib.scm 596 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2717z00zzblibz00, BGl_string2698z00zzblibz00, BgL_oz00_1362, BGl_string2460z00zzblibz00, BINT(((long)17452))); exit( -1 );} BgL_auxz00_3293 = BGl_tmzd2yearzd2zzblibz00(BgL_auxz00_3294); } return BINT(BgL_auxz00_3293);} } } /* tm? */ BGL_EXPORTED_DEF bool_t BGl_tmzf3zf3zzblibz00(obj_t BgL_oz00_73) { AN_OBJECT; { /* blib.scm 600 */ { /* blib.scm 601 */ obj_t BgL_symbol2096z00_1199; BgL_symbol2096z00_1199 = BGl_symbol2719z00zzblibz00; { /* blib.scm 601 */ PUSH_TRACE(BgL_symbol2096z00_1199); { /* blib.scm 601 */ bool_t BgL_aux2095z00_1200; if( FOREIGNP(BgL_oz00_73)) { /* blib.scm 601 */ obj_t BgL_arg1641z00_1028;obj_t BgL_arg1642z00_1029; BgL_arg1641z00_1028 = FOREIGN_ID(BgL_oz00_73); BgL_arg1642z00_1029 = BGl_symbol2721z00zzblibz00; BgL_aux2095z00_1200 = (BgL_arg1641z00_1028==BgL_arg1642z00_1029); } else { /* blib.scm 601 */ BgL_aux2095z00_1200 = ((bool_t)0); } POP_TRACE(); return BgL_aux2095z00_1200;} } } } } /* _tm? */ obj_t BGl__tmzf3zf3zzblibz00(obj_t BgL_envz00_1363, obj_t BgL_oz00_1364) { AN_OBJECT; { /* blib.scm 600 */ return BBOOL( BGl_tmzf3zf3zzblibz00(BgL_oz00_1364));} } /* timezone */ BGL_EXPORTED_DEF int BGl_timeza7oneza7zzblibz00() { AN_OBJECT; { /* blib.scm 604 */ { /* blib.scm 613 */ obj_t BgL_symbol2098z00_1201; BgL_symbol2098z00_1201 = BGl_symbol2722z00zzblibz00; { /* blib.scm 613 */ PUSH_TRACE(BgL_symbol2098z00_1201); { /* blib.scm 613 */ int BgL_aux2097z00_1202; BgL_aux2097z00_1202 = __timezone; POP_TRACE(); return BgL_aux2097z00_1202;} } } } } /* _timezone */ obj_t BGl__timeza7oneza7zzblibz00(obj_t BgL_envz00_1365) { AN_OBJECT; { /* blib.scm 604 */ return BINT( BGl_timeza7oneza7zzblibz00());} } /* daylight */ BGL_EXPORTED_DEF int BGl_daylightz00zzblibz00() { AN_OBJECT; { /* blib.scm 616 */ { /* blib.scm 625 */ obj_t BgL_symbol2100z00_1203; BgL_symbol2100z00_1203 = BGl_symbol2724z00zzblibz00; { /* blib.scm 625 */ PUSH_TRACE(BgL_symbol2100z00_1203); { /* blib.scm 625 */ int BgL_aux2099z00_1204; BgL_aux2099z00_1204 = __daylight; POP_TRACE(); return BgL_aux2099z00_1204;} } } } } /* _daylight */ obj_t BGl__daylightz00zzblibz00(obj_t BgL_envz00_1366) { AN_OBJECT; { /* blib.scm 616 */ return BINT( BGl_daylightz00zzblibz00());} } /* make-tm */ BGL_EXPORTED_DEF struct tm* BGl_makezd2tmzd2zzblibz00() { AN_OBJECT; { /* blib.scm 627 */ { /* blib.scm 628 */ obj_t BgL_symbol2102z00_1205; BgL_symbol2102z00_1205 = BGl_symbol2726z00zzblibz00; { /* blib.scm 628 */ PUSH_TRACE(BgL_symbol2102z00_1205); { /* blib.scm 628 */ struct tm* BgL_aux2101z00_1206; BgL_aux2101z00_1206 = (struct tm*)GC_malloc_atomic(sizeof(struct tm)); POP_TRACE(); return BgL_aux2101z00_1206;} } } } } /* _make-tm */ obj_t BGl__makezd2tmzd2zzblibz00(obj_t BgL_envz00_1367) { AN_OBJECT; { /* blib.scm 627 */ { struct tm* BgL_auxz00_3324; BgL_auxz00_3324 = BGl_makezd2tmzd2zzblibz00(); return cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_auxz00_3324);} } } /* _strftime */ obj_t BGl__strftimez00zzblibz00(obj_t BgL_envz00_77, obj_t BgL_optz00_76) { AN_OBJECT; { /* blib.scm 631 */ { /* blib.scm 631 */ obj_t BgL_symbol2104z00_1207; BgL_symbol2104z00_1207 = BGl_symbol2728z00zzblibz00; { /* blib.scm 631 */ PUSH_TRACE(BgL_symbol2104z00_1207); { /* blib.scm 631 */ obj_t BgL_aux2103z00_1208; { /* blib.scm 631 */ obj_t BgL_tmz00_530; BgL_tmz00_530 = VECTOR_REF(BgL_optz00_76, (int)(((long)0))); { { /* blib.scm 631 */ int BgL_aux1396z00_532; BgL_aux1396z00_532 = VECTOR_LENGTH(BgL_optz00_76); switch( (long)(BgL_aux1396z00_532)) { case ((long)1) : { /* blib.scm 631 */ { /* blib.scm 631 */ obj_t BgL_arg1644z00_535; BgL_arg1644z00_535 = VECTOR_REF(BgL_optz00_76, (int)(((long)0))); { /* blib.scm 631 */ obj_t BgL_res2025z00_1033; { /* blib.scm 631 */ struct tm* BgL_tmz00_1031; if( BGl_tmzf3zf3zzblibz00(BgL_arg1644z00_535)) { /* blib.scm 631 */ BgL_tmz00_1031 = (struct tm*)FOREIGN_TO_COBJ(BgL_arg1644z00_535); } else { /* blib.scm 631 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2732z00zzblibz00, BGl_string2698z00zzblibz00, BgL_arg1644z00_535, BGl_string2460z00zzblibz00, BINT(((long)18083))); exit( -1 );} { /* blib.scm 631 */ char formatted_time[1024]; { char * BgL_auxz00_3340; BgL_auxz00_3340 = BSTRING_TO_STRING(BGl_string2734z00zzblibz00); strftime(formatted_time, sizeof(formatted_time), BgL_auxz00_3340, BgL_tmz00_1031); } BgL_res2025z00_1033 = string_to_bstring( formatted_time); } } BgL_aux2103z00_1208 = BgL_res2025z00_1033; } } } break;case ((long)2) : { /* blib.scm 631 */ obj_t BgL_formatz00_536; BgL_formatz00_536 = VECTOR_REF(BgL_optz00_76, (int)(((long)1))); { /* blib.scm 631 */ { /* blib.scm 631 */ obj_t BgL_arg1645z00_537; BgL_arg1645z00_537 = VECTOR_REF(BgL_optz00_76, (int)(((long)0))); { /* blib.scm 631 */ obj_t BgL_res2026z00_1036; { /* blib.scm 631 */ struct tm* BgL_tmz00_1034;obj_t BgL_formatz00_1035; if( BGl_tmzf3zf3zzblibz00(BgL_arg1645z00_537)) { /* blib.scm 631 */ BgL_tmz00_1034 = (struct tm*)FOREIGN_TO_COBJ(BgL_arg1645z00_537); } else { /* blib.scm 631 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2732z00zzblibz00, BGl_string2698z00zzblibz00, BgL_arg1645z00_537, BGl_string2460z00zzblibz00, BINT(((long)18083))); exit( -1 );} if( STRINGP(BgL_formatz00_536)) { /* blib.scm 631 */ BgL_formatz00_1035 = BgL_formatz00_536; } else { /* blib.scm 631 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2732z00zzblibz00, BGl_string2530z00zzblibz00, BgL_formatz00_536, BGl_string2460z00zzblibz00, BINT(((long)18083))); exit( -1 );} { /* blib.scm 631 */ char formatted_time[1024]; { char * BgL_auxz00_3361; BgL_auxz00_3361 = BSTRING_TO_STRING(BgL_formatz00_1035); strftime(formatted_time, sizeof(formatted_time), BgL_auxz00_3361, BgL_tmz00_1034); } BgL_res2026z00_1036 = string_to_bstring( formatted_time); } } BgL_aux2103z00_1208 = BgL_res2026z00_1036; } } } } break; default: { /* blib.scm 631 */ obj_t BgL_arg1647z00_538;int BgL_arg1649z00_540; BgL_arg1647z00_538 = BGl_symbol2730z00zzblibz00; BgL_arg1649z00_540 = VECTOR_LENGTH(BgL_optz00_76); BgL_aux2103z00_1208 = BGl_errorzf2locationzf2zz__errorz00(BgL_arg1647z00_538, BGl_string2599z00zzblibz00, BINT(BgL_arg1649z00_540), BGl_string2460z00zzblibz00, BINT(((long)18083))); } } } } } POP_TRACE(); return BgL_aux2103z00_1208;} } } } } /* strftime */ BGL_EXPORTED_DEF obj_t BGl_strftimez00zzblibz00(struct tm* BgL_tmz00_74, obj_t BgL_formatz00_75) { AN_OBJECT; { /* blib.scm 631 */ { /* blib.scm 635 */ obj_t BgL_symbol2106z00_1209; BgL_symbol2106z00_1209 = BGl_symbol2735z00zzblibz00; { /* blib.scm 635 */ PUSH_TRACE(BgL_symbol2106z00_1209); { /* blib.scm 635 */ obj_t BgL_aux2105z00_1210; { /* blib.scm 635 */ char formatted_time[1024]; { char * BgL_auxz00_3375; BgL_auxz00_3375 = BSTRING_TO_STRING(BgL_formatz00_75); strftime(formatted_time, sizeof(formatted_time), BgL_auxz00_3375, BgL_tmz00_74); } BgL_aux2105z00_1210 = string_to_bstring( formatted_time); } POP_TRACE(); return BgL_aux2105z00_1210;} } } } } /* _mktime */ obj_t BGl__mktimez00zzblibz00(obj_t BgL_envz00_85, obj_t BgL_optz00_84) { AN_OBJECT; { /* blib.scm 644 */ { /* blib.scm 644 */ obj_t BgL_symbol2108z00_1211; BgL_symbol2108z00_1211 = BGl_symbol2737z00zzblibz00; { /* blib.scm 644 */ PUSH_TRACE(BgL_symbol2108z00_1211); { /* blib.scm 644 */ obj_t BgL_aux2107z00_1212; { /* blib.scm 644 */ obj_t BgL_yearz00_541;obj_t BgL_monthz00_542;obj_t BgL_dayz00_543; BgL_yearz00_541 = VECTOR_REF(BgL_optz00_84, (int)(((long)0))); BgL_monthz00_542 = VECTOR_REF(BgL_optz00_84, (int)(((long)1))); BgL_dayz00_543 = VECTOR_REF(BgL_optz00_84, (int)(((long)2))); { { /* blib.scm 644 */ int BgL_aux1398z00_545; BgL_aux1398z00_545 = VECTOR_LENGTH(BgL_optz00_84); switch( (long)(BgL_aux1398z00_545)) { case ((long)3) : { /* blib.scm 644 */ int BgL_hourz00_547; BgL_hourz00_547 = (int)(((long)0)); { /* blib.scm 644 */ int BgL_secondz00_549; BgL_secondz00_549 = BgL_hourz00_547; { /* blib.scm 644 */ { /* blib.scm 644 */ obj_t BgL_arg1657z00_550;obj_t BgL_arg1664z00_551;obj_t BgL_arg1675z00_552; BgL_arg1657z00_550 = VECTOR_REF(BgL_optz00_84,BgL_secondz00_549); BgL_arg1664z00_551 = VECTOR_REF(BgL_optz00_84, (int)(((long)1))); BgL_arg1675z00_552 = VECTOR_REF(BgL_optz00_84, (int)(((long)2))); { /* blib.scm 644 */ struct tm* BgL_res2027z00_1044; { /* blib.scm 644 */ int BgL_yearz00_1037;int BgL_monthz00_1038;int BgL_dayz00_1039;int BgL_hourz00_1040;int BgL_minutez00_1041;int BgL_secondz00_1042; { /* blib.scm 644 */ obj_t BgL_auxz00_3395; if( INTEGERP(BgL_arg1657z00_550)) { /* blib.scm 644 */ BgL_auxz00_3395 = BgL_arg1657z00_550 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1657z00_550, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_yearz00_1037 = CINT(BgL_auxz00_3395); } { /* blib.scm 644 */ obj_t BgL_auxz00_3402; if( INTEGERP(BgL_arg1664z00_551)) { /* blib.scm 644 */ BgL_auxz00_3402 = BgL_arg1664z00_551 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1664z00_551, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_monthz00_1038 = CINT(BgL_auxz00_3402); } { /* blib.scm 644 */ obj_t BgL_auxz00_3409; if( INTEGERP(BgL_arg1675z00_552)) { /* blib.scm 644 */ BgL_auxz00_3409 = BgL_arg1675z00_552 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1675z00_552, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_dayz00_1039 = CINT(BgL_auxz00_3409); } BgL_hourz00_1040 = BgL_hourz00_547; BgL_minutez00_1041 = BgL_hourz00_547; BgL_secondz00_1042 = BgL_secondz00_549; { /* blib.scm 644 */ struct tm* BgL_tmz00_1043; BgL_tmz00_1043 = (struct tm*)GC_malloc_atomic(sizeof(struct tm)); BgL_tmz00_1043->tm_sec = BgL_secondz00_1042; BgL_tmz00_1043->tm_min = BgL_minutez00_1041; BgL_tmz00_1043->tm_hour = BgL_hourz00_1040; BgL_tmz00_1043->tm_mday = BgL_dayz00_1039; BgL_tmz00_1043->tm_mon = BgL_monthz00_1038 - 1; BgL_tmz00_1043->tm_year = BgL_yearz00_1037 - 1900;; BgL_res2027z00_1044 = BgL_tmz00_1043; } } BgL_aux2107z00_1212 = cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_res2027z00_1044); } } } } } break;case ((long)4) : { /* blib.scm 644 */ obj_t BgL_hourz00_553; BgL_hourz00_553 = VECTOR_REF(BgL_optz00_84, (int)(((long)3))); { /* blib.scm 644 */ int BgL_minutez00_554; BgL_minutez00_554 = (int)(((long)0)); { /* blib.scm 644 */ { /* blib.scm 644 */ obj_t BgL_arg1682z00_556;obj_t BgL_arg1697z00_557;obj_t BgL_arg1698z00_558; BgL_arg1682z00_556 = VECTOR_REF(BgL_optz00_84,BgL_minutez00_554); BgL_arg1697z00_557 = VECTOR_REF(BgL_optz00_84, (int)(((long)1))); BgL_arg1698z00_558 = VECTOR_REF(BgL_optz00_84, (int)(((long)2))); { /* blib.scm 644 */ struct tm* BgL_res2028z00_1052; { /* blib.scm 644 */ int BgL_yearz00_1045;int BgL_monthz00_1046;int BgL_dayz00_1047;int BgL_hourz00_1048;int BgL_minutez00_1049;int BgL_secondz00_1050; { /* blib.scm 644 */ obj_t BgL_auxz00_3427; if( INTEGERP(BgL_arg1682z00_556)) { /* blib.scm 644 */ BgL_auxz00_3427 = BgL_arg1682z00_556 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1682z00_556, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_yearz00_1045 = CINT(BgL_auxz00_3427); } { /* blib.scm 644 */ obj_t BgL_auxz00_3434; if( INTEGERP(BgL_arg1697z00_557)) { /* blib.scm 644 */ BgL_auxz00_3434 = BgL_arg1697z00_557 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1697z00_557, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_monthz00_1046 = CINT(BgL_auxz00_3434); } { /* blib.scm 644 */ obj_t BgL_auxz00_3441; if( INTEGERP(BgL_arg1698z00_558)) { /* blib.scm 644 */ BgL_auxz00_3441 = BgL_arg1698z00_558 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1698z00_558, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_dayz00_1047 = CINT(BgL_auxz00_3441); } { /* blib.scm 644 */ obj_t BgL_auxz00_3448; if( INTEGERP(BgL_hourz00_553)) { /* blib.scm 644 */ BgL_auxz00_3448 = BgL_hourz00_553 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_hourz00_553, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_hourz00_1048 = CINT(BgL_auxz00_3448); } BgL_minutez00_1049 = BgL_minutez00_554; BgL_secondz00_1050 = BgL_minutez00_554; { /* blib.scm 644 */ struct tm* BgL_tmz00_1051; BgL_tmz00_1051 = (struct tm*)GC_malloc_atomic(sizeof(struct tm)); BgL_tmz00_1051->tm_sec = BgL_secondz00_1050; BgL_tmz00_1051->tm_min = BgL_minutez00_1049; BgL_tmz00_1051->tm_hour = BgL_hourz00_1048; BgL_tmz00_1051->tm_mday = BgL_dayz00_1047; BgL_tmz00_1051->tm_mon = BgL_monthz00_1046 - 1; BgL_tmz00_1051->tm_year = BgL_yearz00_1045 - 1900;; BgL_res2028z00_1052 = BgL_tmz00_1051; } } BgL_aux2107z00_1212 = cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_res2028z00_1052); } } } } } break;case ((long)5) : { /* blib.scm 644 */ obj_t BgL_hourz00_559; BgL_hourz00_559 = VECTOR_REF(BgL_optz00_84, (int)(((long)3))); { /* blib.scm 644 */ obj_t BgL_minutez00_560; BgL_minutez00_560 = VECTOR_REF(BgL_optz00_84, (int)(((long)4))); { /* blib.scm 644 */ int BgL_secondz00_561; BgL_secondz00_561 = (int)(((long)0)); { /* blib.scm 644 */ { /* blib.scm 644 */ obj_t BgL_arg1699z00_562;obj_t BgL_arg1703z00_563;obj_t BgL_arg1707z00_564; BgL_arg1699z00_562 = VECTOR_REF(BgL_optz00_84,BgL_secondz00_561); BgL_arg1703z00_563 = VECTOR_REF(BgL_optz00_84, (int)(((long)1))); BgL_arg1707z00_564 = VECTOR_REF(BgL_optz00_84, (int)(((long)2))); { /* blib.scm 644 */ struct tm* BgL_res2029z00_1060; { /* blib.scm 644 */ int BgL_yearz00_1053;int BgL_monthz00_1054;int BgL_dayz00_1055;int BgL_hourz00_1056;int BgL_minutez00_1057;int BgL_secondz00_1058; { /* blib.scm 644 */ obj_t BgL_auxz00_3468; if( INTEGERP(BgL_arg1699z00_562)) { /* blib.scm 644 */ BgL_auxz00_3468 = BgL_arg1699z00_562 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1699z00_562, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_yearz00_1053 = CINT(BgL_auxz00_3468); } { /* blib.scm 644 */ obj_t BgL_auxz00_3475; if( INTEGERP(BgL_arg1703z00_563)) { /* blib.scm 644 */ BgL_auxz00_3475 = BgL_arg1703z00_563 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1703z00_563, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_monthz00_1054 = CINT(BgL_auxz00_3475); } { /* blib.scm 644 */ obj_t BgL_auxz00_3482; if( INTEGERP(BgL_arg1707z00_564)) { /* blib.scm 644 */ BgL_auxz00_3482 = BgL_arg1707z00_564 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1707z00_564, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_dayz00_1055 = CINT(BgL_auxz00_3482); } { /* blib.scm 644 */ obj_t BgL_auxz00_3489; if( INTEGERP(BgL_hourz00_559)) { /* blib.scm 644 */ BgL_auxz00_3489 = BgL_hourz00_559 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_hourz00_559, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_hourz00_1056 = CINT(BgL_auxz00_3489); } { /* blib.scm 644 */ obj_t BgL_auxz00_3496; if( INTEGERP(BgL_minutez00_560)) { /* blib.scm 644 */ BgL_auxz00_3496 = BgL_minutez00_560 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_minutez00_560, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_minutez00_1057 = CINT(BgL_auxz00_3496); } BgL_secondz00_1058 = BgL_secondz00_561; { /* blib.scm 644 */ struct tm* BgL_tmz00_1059; BgL_tmz00_1059 = (struct tm*)GC_malloc_atomic(sizeof(struct tm)); BgL_tmz00_1059->tm_sec = BgL_secondz00_1058; BgL_tmz00_1059->tm_min = BgL_minutez00_1057; BgL_tmz00_1059->tm_hour = BgL_hourz00_1056; BgL_tmz00_1059->tm_mday = BgL_dayz00_1055; BgL_tmz00_1059->tm_mon = BgL_monthz00_1054 - 1; BgL_tmz00_1059->tm_year = BgL_yearz00_1053 - 1900;; BgL_res2029z00_1060 = BgL_tmz00_1059; } } BgL_aux2107z00_1212 = cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_res2029z00_1060); } } } } } } break;case ((long)6) : { /* blib.scm 644 */ obj_t BgL_hourz00_565; BgL_hourz00_565 = VECTOR_REF(BgL_optz00_84, (int)(((long)3))); { /* blib.scm 644 */ obj_t BgL_minutez00_566; BgL_minutez00_566 = VECTOR_REF(BgL_optz00_84, (int)(((long)4))); { /* blib.scm 644 */ obj_t BgL_secondz00_567; BgL_secondz00_567 = VECTOR_REF(BgL_optz00_84, (int)(((long)5))); { /* blib.scm 644 */ { /* blib.scm 644 */ obj_t BgL_arg1710z00_568;obj_t BgL_arg1711z00_569;obj_t BgL_arg1712z00_570; BgL_arg1710z00_568 = VECTOR_REF(BgL_optz00_84, (int)(((long)0))); BgL_arg1711z00_569 = VECTOR_REF(BgL_optz00_84, (int)(((long)1))); BgL_arg1712z00_570 = VECTOR_REF(BgL_optz00_84, (int)(((long)2))); { /* blib.scm 644 */ struct tm* BgL_res2030z00_1068; { /* blib.scm 644 */ int BgL_yearz00_1061;int BgL_monthz00_1062;int BgL_dayz00_1063;int BgL_hourz00_1064;int BgL_minutez00_1065;int BgL_secondz00_1066; { /* blib.scm 644 */ obj_t BgL_auxz00_3518; if( INTEGERP(BgL_arg1710z00_568)) { /* blib.scm 644 */ BgL_auxz00_3518 = BgL_arg1710z00_568 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1710z00_568, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_yearz00_1061 = CINT(BgL_auxz00_3518); } { /* blib.scm 644 */ obj_t BgL_auxz00_3525; if( INTEGERP(BgL_arg1711z00_569)) { /* blib.scm 644 */ BgL_auxz00_3525 = BgL_arg1711z00_569 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1711z00_569, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_monthz00_1062 = CINT(BgL_auxz00_3525); } { /* blib.scm 644 */ obj_t BgL_auxz00_3532; if( INTEGERP(BgL_arg1712z00_570)) { /* blib.scm 644 */ BgL_auxz00_3532 = BgL_arg1712z00_570 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_arg1712z00_570, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_dayz00_1063 = CINT(BgL_auxz00_3532); } { /* blib.scm 644 */ obj_t BgL_auxz00_3539; if( INTEGERP(BgL_hourz00_565)) { /* blib.scm 644 */ BgL_auxz00_3539 = BgL_hourz00_565 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_hourz00_565, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_hourz00_1064 = CINT(BgL_auxz00_3539); } { /* blib.scm 644 */ obj_t BgL_auxz00_3546; if( INTEGERP(BgL_minutez00_566)) { /* blib.scm 644 */ BgL_auxz00_3546 = BgL_minutez00_566 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_minutez00_566, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_minutez00_1065 = CINT(BgL_auxz00_3546); } { /* blib.scm 644 */ obj_t BgL_auxz00_3553; if( INTEGERP(BgL_secondz00_567)) { /* blib.scm 644 */ BgL_auxz00_3553 = BgL_secondz00_567 ; } else { /* blib.scm 644 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2742z00zzblibz00, BGl_string2744z00zzblibz00, BgL_secondz00_567, BGl_string2460z00zzblibz00, BINT(((long)18434))); exit( -1 );} BgL_secondz00_1066 = CINT(BgL_auxz00_3553); } { /* blib.scm 644 */ struct tm* BgL_tmz00_1067; BgL_tmz00_1067 = (struct tm*)GC_malloc_atomic(sizeof(struct tm)); BgL_tmz00_1067->tm_sec = BgL_secondz00_1066; BgL_tmz00_1067->tm_min = BgL_minutez00_1065; BgL_tmz00_1067->tm_hour = BgL_hourz00_1064; BgL_tmz00_1067->tm_mday = BgL_dayz00_1063; BgL_tmz00_1067->tm_mon = BgL_monthz00_1062 - 1; BgL_tmz00_1067->tm_year = BgL_yearz00_1061 - 1900;; BgL_res2030z00_1068 = BgL_tmz00_1067; } } BgL_aux2107z00_1212 = cobj_to_foreign(BGl_symbol2721z00zzblibz00, BgL_res2030z00_1068); } } } } } } break; default: { /* blib.scm 644 */ obj_t BgL_arg1713z00_571;int BgL_arg1715z00_573; BgL_arg1713z00_571 = BGl_symbol2739z00zzblibz00; BgL_arg1715z00_573 = VECTOR_LENGTH(BgL_optz00_84); BgL_aux2107z00_1212 = BGl_errorzf2locationzf2zz__errorz00(BgL_arg1713z00_571, BGl_string2741z00zzblibz00, BINT(BgL_arg1715z00_573), BGl_string2460z00zzblibz00, BINT(((long)18434))); } } } } } POP_TRACE(); return BgL_aux2107z00_1212;} } } } } /* mktime */ BGL_EXPORTED_DEF struct tm* BGl_mktimez00zzblibz00(int BgL_yearz00_78, int BgL_monthz00_79, int BgL_dayz00_80, int BgL_hourz00_81, int BgL_minutez00_82, int BgL_secondz00_83) { AN_OBJECT; { /* blib.scm 644 */ { /* blib.scm 652 */ obj_t BgL_symbol2110z00_1213; BgL_symbol2110z00_1213 = BGl_symbol2745z00zzblibz00; { /* blib.scm 652 */ PUSH_TRACE(BgL_symbol2110z00_1213); { /* blib.scm 652 */ struct tm* BgL_aux2109z00_1214; { /* blib.scm 652 */ struct tm* BgL_tmz00_1069; BgL_tmz00_1069 = (struct tm*)GC_malloc_atomic(sizeof(struct tm)); BgL_tmz00_1069->tm_sec = BgL_secondz00_83; BgL_tmz00_1069->tm_min = BgL_minutez00_82; BgL_tmz00_1069->tm_hour = BgL_hourz00_81; BgL_tmz00_1069->tm_mday = BgL_dayz00_80; BgL_tmz00_1069->tm_mon = BgL_monthz00_79 - 1; BgL_tmz00_1069->tm_year = BgL_yearz00_78 - 1900;; BgL_aux2109z00_1214 = BgL_tmz00_1069; } POP_TRACE(); return BgL_aux2109z00_1214;} } } } } /* setenv */ BGL_EXPORTED_DEF obj_t BGl_setenvz00zzblibz00(char * BgL_namez00_86, char * BgL_valuez00_87) { AN_OBJECT; { /* blib.scm 664 */ { /* blib.scm 665 */ obj_t BgL_symbol2112z00_1215; BgL_symbol2112z00_1215 = BGl_symbol2747z00zzblibz00; { /* blib.scm 665 */ PUSH_TRACE(BgL_symbol2112z00_1215); { /* blib.scm 665 */ obj_t BgL_aux2111z00_1216; if( setenv(BgL_namez00_86, BgL_valuez00_87, 1)) { /* blib.scm 665 */ BgL_aux2111z00_1216 = BGl_cerrorz00zzblibz00(BGl_string2749z00zzblibz00, BNIL); } else { /* blib.scm 665 */ BgL_aux2111z00_1216 = BFALSE; } POP_TRACE(); return BgL_aux2111z00_1216;} } } } } /* _setenv */ obj_t BGl__setenvz00zzblibz00(obj_t BgL_envz00_1368, obj_t BgL_namez00_1369, obj_t BgL_valuez00_1370) { AN_OBJECT; { /* blib.scm 664 */ { /* blib.scm 665 */ char * BgL_auxz00_3587;char * BgL_auxz00_3579; { /* blib.scm 665 */ obj_t BgL_auxz00_3588; if( STRINGP(BgL_valuez00_1370)) { /* blib.scm 665 */ BgL_auxz00_3588 = BgL_valuez00_1370 ; } else { /* blib.scm 665 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2750z00zzblibz00, BGl_string2752z00zzblibz00, BgL_valuez00_1370, BGl_string2460z00zzblibz00, BINT(((long)18926))); exit( -1 );} BgL_auxz00_3587 = BSTRING_TO_STRING(BgL_auxz00_3588); } { /* blib.scm 665 */ obj_t BgL_auxz00_3580; if( STRINGP(BgL_namez00_1369)) { /* blib.scm 665 */ BgL_auxz00_3580 = BgL_namez00_1369 ; } else { /* blib.scm 665 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2750z00zzblibz00, BGl_string2752z00zzblibz00, BgL_namez00_1369, BGl_string2460z00zzblibz00, BINT(((long)18926))); exit( -1 );} BgL_auxz00_3579 = BSTRING_TO_STRING(BgL_auxz00_3580); } return BGl_setenvz00zzblibz00(BgL_auxz00_3579, BgL_auxz00_3587);} } } /* stat? */ BGL_EXPORTED_DEF bool_t BGl_statzf3zf3zzblibz00(obj_t BgL_oz00_88) { AN_OBJECT; { /* blib.scm 668 */ { /* blib.scm 669 */ obj_t BgL_symbol2114z00_1217; BgL_symbol2114z00_1217 = BGl_symbol2753z00zzblibz00; { /* blib.scm 669 */ PUSH_TRACE(BgL_symbol2114z00_1217); { /* blib.scm 669 */ bool_t BgL_aux2113z00_1218; if( FOREIGNP(BgL_oz00_88)) { /* blib.scm 669 */ obj_t BgL_arg1815z00_1073;obj_t BgL_arg1828z00_1074; BgL_arg1815z00_1073 = FOREIGN_ID(BgL_oz00_88); BgL_arg1828z00_1074 = BGl_symbol2755z00zzblibz00; BgL_aux2113z00_1218 = (BgL_arg1815z00_1073==BgL_arg1828z00_1074); } else { /* blib.scm 669 */ BgL_aux2113z00_1218 = ((bool_t)0); } POP_TRACE(); return BgL_aux2113z00_1218;} } } } } /* _stat? */ obj_t BGl__statzf3zf3zzblibz00(obj_t BgL_envz00_1371, obj_t BgL_oz00_1372) { AN_OBJECT; { /* blib.scm 668 */ return BBOOL( BGl_statzf3zf3zzblibz00(BgL_oz00_1372));} } /* stat */ BGL_EXPORTED_DEF struct stat* BGl_statz00zzblibz00(obj_t BgL_whatz00_89) { AN_OBJECT; { /* blib.scm 671 */ { /* blib.scm 693 */ obj_t BgL_symbol2116z00_1219; BgL_symbol2116z00_1219 = BGl_symbol2757z00zzblibz00; { /* blib.scm 693 */ PUSH_TRACE(BgL_symbol2116z00_1219); { /* blib.scm 693 */ struct stat* BgL_aux2115z00_1220; { /* blib.scm 693 */ struct stat* BgL_bufz00_580; BgL_bufz00_580 = (struct stat*)GC_malloc_atomic(sizeof(struct stat)); { /* blib.scm 693 */ obj_t BgL_failedzf3zf3_581; if( STRINGP(BgL_whatz00_89)) { /* blib.scm 697 */ bool_t BgL_auxz00_3608; { char * BgL_auxz00_3609; { /* blib.scm 699 */ obj_t BgL_auxz00_3610; { /* blib.scm 699 */ bool_t BgL_test2420z00_1687; BgL_test2420z00_1687 = STRINGP(BgL_whatz00_89); if(BgL_test2420z00_1687) { /* blib.scm 699 */ BgL_auxz00_3610 = BgL_whatz00_89 ; } else { /* blib.scm 699 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2755z00zzblibz00, BGl_string2530z00zzblibz00, BgL_whatz00_89, BGl_string2460z00zzblibz00, BINT(((long)19817))); exit( -1 );} } BgL_auxz00_3609 = BSTRING_TO_STRING(BgL_auxz00_3610); } BgL_auxz00_3608 = stat(BgL_auxz00_3609, BgL_bufz00_580); } BgL_failedzf3zf3_581 = BBOOL(BgL_auxz00_3608); } else { /* blib.scm 701 */ bool_t BgL_testz00_3619; if( BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_whatz00_89)) { /* blib.scm 701 */ BgL_testz00_3619 = BGl_positivezf3zf3zz__r4_numbers_6_5z00(BgL_whatz00_89) ; } else { /* blib.scm 701 */ BgL_testz00_3619 = ((bool_t)0) ; } if(BgL_testz00_3619) { /* blib.scm 702 */ bool_t BgL_auxz00_3623; { int BgL_auxz00_3624; { /* blib.scm 704 */ obj_t BgL_auxz00_3625; { /* blib.scm 704 */ bool_t BgL_test2422z00_1689; BgL_test2422z00_1689 = INTEGERP(BgL_whatz00_89); if(BgL_test2422z00_1689) { /* blib.scm 704 */ BgL_auxz00_3625 = BgL_whatz00_89 ; } else { /* blib.scm 704 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2755z00zzblibz00, BGl_string2759z00zzblibz00, BgL_whatz00_89, BGl_string2460z00zzblibz00, BINT(((long)19981))); exit( -1 );} } BgL_auxz00_3624 = CINT(BgL_auxz00_3625); } BgL_auxz00_3623 = fstat(BgL_auxz00_3624, BgL_bufz00_580); } BgL_failedzf3zf3_581 = BBOOL(BgL_auxz00_3623); } else { /* blib.scm 701 */ BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2756z00zzblibz00, BGl_string2760z00zzblibz00, BgL_whatz00_89, BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)20028)); BgL_failedzf3zf3_581 = BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00, BINT(((long)20028))); } } { /* blib.scm 695 */ BgL_aux2115z00_1220 = BgL_bufz00_580; } } } POP_TRACE(); return BgL_aux2115z00_1220;} } } } } /* _stat */ obj_t BGl__statz00zzblibz00(obj_t BgL_envz00_1373, obj_t BgL_whatz00_1374) { AN_OBJECT; { /* blib.scm 671 */ { struct stat* BgL_auxz00_3639; BgL_auxz00_3639 = BGl_statz00zzblibz00(BgL_whatz00_1374); return cobj_to_foreign(BGl_symbol2755z00zzblibz00, BgL_auxz00_3639);} } } /* bstmode->stmode */ BGL_EXPORTED_DEF int BGl_bstmodezd2ze3stmodez31zzblibz00(obj_t BgL_oz00_90) { AN_OBJECT; { /* blib.scm 717 */ { /* blib.scm 718 */ obj_t BgL_symbol2118z00_1221; BgL_symbol2118z00_1221 = BGl_symbol2761z00zzblibz00; { /* blib.scm 718 */ PUSH_TRACE(BgL_symbol2118z00_1221); { /* blib.scm 718 */ int BgL_aux2117z00_1222; { /* blib.scm 718 */ int BgL_resz00_585; BgL_resz00_585 = (int)(((long)0)); { obj_t BgL_l1373z00_586; BgL_l1373z00_586 = BgL_oz00_90; BgL_forzd2each1374zd2_587: if( PAIRP(BgL_l1373z00_586)) { /* blib.scm 719 */ { /* blib.scm 745 */ obj_t BgL_oz00_589; BgL_oz00_589 = CAR(BgL_l1373z00_586); if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2763z00zzblibz00)) { /* blib.scm 747 */ int BgL_arg1836z00_593; BgL_arg1836z00_593 = S_IFSOCK; { /* blib.scm 747 */ long BgL_xz00_1079;long BgL_yz00_1080; BgL_xz00_1079 = (long)(BgL_resz00_585); BgL_yz00_1080 = (long)(BgL_arg1836z00_593); BgL_resz00_585 = (int)( (BgL_xz00_1079 | BgL_yz00_1080)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2765z00zzblibz00)) { /* blib.scm 749 */ int BgL_arg1842z00_595; BgL_arg1842z00_595 = S_IFLNK; { /* blib.scm 749 */ long BgL_xz00_1081;long BgL_yz00_1082; BgL_xz00_1081 = (long)(BgL_resz00_585); BgL_yz00_1082 = (long)(BgL_arg1842z00_595); BgL_resz00_585 = (int)( (BgL_xz00_1081 | BgL_yz00_1082)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2767z00zzblibz00)) { /* blib.scm 751 */ int BgL_arg1849z00_597; BgL_arg1849z00_597 = S_IFREG; { /* blib.scm 751 */ long BgL_xz00_1083;long BgL_yz00_1084; BgL_xz00_1083 = (long)(BgL_resz00_585); BgL_yz00_1084 = (long)(BgL_arg1849z00_597); BgL_resz00_585 = (int)( (BgL_xz00_1083 | BgL_yz00_1084)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2769z00zzblibz00)) { /* blib.scm 753 */ int BgL_arg1855z00_599; BgL_arg1855z00_599 = S_IFBLK; { /* blib.scm 753 */ long BgL_xz00_1085;long BgL_yz00_1086; BgL_xz00_1085 = (long)(BgL_resz00_585); BgL_yz00_1086 = (long)(BgL_arg1855z00_599); BgL_resz00_585 = (int)( (BgL_xz00_1085 | BgL_yz00_1086)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2771z00zzblibz00)) { /* blib.scm 755 */ int BgL_arg1862z00_601; BgL_arg1862z00_601 = S_IFDIR; { /* blib.scm 755 */ long BgL_xz00_1087;long BgL_yz00_1088; BgL_xz00_1087 = (long)(BgL_resz00_585); BgL_yz00_1088 = (long)(BgL_arg1862z00_601); BgL_resz00_585 = (int)( (BgL_xz00_1087 | BgL_yz00_1088)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2773z00zzblibz00)) { /* blib.scm 757 */ int BgL_arg1868z00_603; BgL_arg1868z00_603 = S_IFCHR; { /* blib.scm 757 */ long BgL_xz00_1089;long BgL_yz00_1090; BgL_xz00_1089 = (long)(BgL_resz00_585); BgL_yz00_1090 = (long)(BgL_arg1868z00_603); BgL_resz00_585 = (int)( (BgL_xz00_1089 | BgL_yz00_1090)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2775z00zzblibz00)) { /* blib.scm 759 */ int BgL_arg1876z00_605; BgL_arg1876z00_605 = S_IFIFO; { /* blib.scm 759 */ long BgL_xz00_1091;long BgL_yz00_1092; BgL_xz00_1091 = (long)(BgL_resz00_585); BgL_yz00_1092 = (long)(BgL_arg1876z00_605); BgL_resz00_585 = (int)( (BgL_xz00_1091 | BgL_yz00_1092)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2777z00zzblibz00)) { /* blib.scm 761 */ int BgL_arg1882z00_607; BgL_arg1882z00_607 = S_ISUID; { /* blib.scm 761 */ long BgL_xz00_1093;long BgL_yz00_1094; BgL_xz00_1093 = (long)(BgL_resz00_585); BgL_yz00_1094 = (long)(BgL_arg1882z00_607); BgL_resz00_585 = (int)( (BgL_xz00_1093 | BgL_yz00_1094)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2779z00zzblibz00)) { /* blib.scm 763 */ int BgL_arg1890z00_609; BgL_arg1890z00_609 = S_ISGID; { /* blib.scm 763 */ long BgL_xz00_1095;long BgL_yz00_1096; BgL_xz00_1095 = (long)(BgL_resz00_585); BgL_yz00_1096 = (long)(BgL_arg1890z00_609); BgL_resz00_585 = (int)( (BgL_xz00_1095 | BgL_yz00_1096)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2781z00zzblibz00)) { /* blib.scm 765 */ int BgL_arg1896z00_611; BgL_arg1896z00_611 = S_ISVTX; { /* blib.scm 765 */ long BgL_xz00_1097;long BgL_yz00_1098; BgL_xz00_1097 = (long)(BgL_resz00_585); BgL_yz00_1098 = (long)(BgL_arg1896z00_611); BgL_resz00_585 = (int)( (BgL_xz00_1097 | BgL_yz00_1098)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2783z00zzblibz00)) { /* blib.scm 767 */ int BgL_arg1903z00_613; BgL_arg1903z00_613 = S_IRUSR; { /* blib.scm 767 */ long BgL_xz00_1099;long BgL_yz00_1100; BgL_xz00_1099 = (long)(BgL_resz00_585); BgL_yz00_1100 = (long)(BgL_arg1903z00_613); BgL_resz00_585 = (int)( (BgL_xz00_1099 | BgL_yz00_1100)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2785z00zzblibz00)) { /* blib.scm 769 */ int BgL_arg1909z00_615; BgL_arg1909z00_615 = S_IWUSR; { /* blib.scm 769 */ long BgL_xz00_1101;long BgL_yz00_1102; BgL_xz00_1101 = (long)(BgL_resz00_585); BgL_yz00_1102 = (long)(BgL_arg1909z00_615); BgL_resz00_585 = (int)( (BgL_xz00_1101 | BgL_yz00_1102)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2787z00zzblibz00)) { /* blib.scm 771 */ int BgL_arg1919z00_617; BgL_arg1919z00_617 = S_IXUSR; { /* blib.scm 771 */ long BgL_xz00_1103;long BgL_yz00_1104; BgL_xz00_1103 = (long)(BgL_resz00_585); BgL_yz00_1104 = (long)(BgL_arg1919z00_617); BgL_resz00_585 = (int)( (BgL_xz00_1103 | BgL_yz00_1104)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2789z00zzblibz00)) { /* blib.scm 773 */ int BgL_arg1925z00_619; BgL_arg1925z00_619 = S_IRGRP; { /* blib.scm 773 */ long BgL_xz00_1105;long BgL_yz00_1106; BgL_xz00_1105 = (long)(BgL_resz00_585); BgL_yz00_1106 = (long)(BgL_arg1925z00_619); BgL_resz00_585 = (int)( (BgL_xz00_1105 | BgL_yz00_1106)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2791z00zzblibz00)) { /* blib.scm 775 */ int BgL_arg1934z00_621; BgL_arg1934z00_621 = S_IWGRP; { /* blib.scm 775 */ long BgL_xz00_1107;long BgL_yz00_1108; BgL_xz00_1107 = (long)(BgL_resz00_585); BgL_yz00_1108 = (long)(BgL_arg1934z00_621); BgL_resz00_585 = (int)( (BgL_xz00_1107 | BgL_yz00_1108)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2793z00zzblibz00)) { /* blib.scm 777 */ int BgL_arg1942z00_623; BgL_arg1942z00_623 = S_IXGRP; { /* blib.scm 777 */ long BgL_xz00_1109;long BgL_yz00_1110; BgL_xz00_1109 = (long)(BgL_resz00_585); BgL_yz00_1110 = (long)(BgL_arg1942z00_623); BgL_resz00_585 = (int)( (BgL_xz00_1109 | BgL_yz00_1110)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2795z00zzblibz00)) { /* blib.scm 779 */ int BgL_arg1949z00_625; BgL_arg1949z00_625 = S_IROTH; { /* blib.scm 779 */ long BgL_xz00_1111;long BgL_yz00_1112; BgL_xz00_1111 = (long)(BgL_resz00_585); BgL_yz00_1112 = (long)(BgL_arg1949z00_625); BgL_resz00_585 = (int)( (BgL_xz00_1111 | BgL_yz00_1112)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2797z00zzblibz00)) { /* blib.scm 781 */ int BgL_arg1957z00_627; BgL_arg1957z00_627 = S_IWOTH; { /* blib.scm 781 */ long BgL_xz00_1113;long BgL_yz00_1114; BgL_xz00_1113 = (long)(BgL_resz00_585); BgL_yz00_1114 = (long)(BgL_arg1957z00_627); BgL_resz00_585 = (int)( (BgL_xz00_1113 | BgL_yz00_1114)); } } else { /* blib.scm 745 */ if( BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_oz00_589, BGl_symbol2799z00zzblibz00)) { /* blib.scm 783 */ int BgL_arg1964z00_629; BgL_arg1964z00_629 = S_IXOTH; { /* blib.scm 783 */ long BgL_xz00_1115;long BgL_yz00_1116; BgL_xz00_1115 = (long)(BgL_resz00_585); BgL_yz00_1116 = (long)(BgL_arg1964z00_629); BgL_resz00_585 = (int)( (BgL_xz00_1115 | BgL_yz00_1116)); } } else { /* blib.scm 745 */ BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2801z00zzblibz00, BGl_string2802z00zzblibz00, BgL_oz00_589, BSTRING_TO_STRING(BGl_string2513z00zzblibz00), ((long)22486)); BGl_errorzf2locationzf2zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2460z00zzblibz00, BINT(((long)22486))); } } } } } } } } } } } } } } } } } } } } { obj_t BgL_l1373z00_3784; BgL_l1373z00_3784 = CDR(BgL_l1373z00_586); BgL_l1373z00_586 = BgL_l1373z00_3784; goto BgL_forzd2each1374zd2_587;} } else { /* blib.scm 719 */ if( NULLP(BgL_l1373z00_586)) { /* blib.scm 719 */BTRUE; } else { /* blib.scm 719 */ BGl_errorzf2locationzf2zz__errorz00(BGl_string2803z00zzblibz00, BGl_string2574z00zzblibz00, BgL_l1373z00_586, BGl_string2460z00zzblibz00, BINT(((long)20423))); } } } BgL_aux2117z00_1222 = BgL_resz00_585; } POP_TRACE(); return BgL_aux2117z00_1222;} } } } } /* _bstmode->stmode */ obj_t BGl__bstmodezd2ze3stmodez31zzblibz00(obj_t BgL_envz00_1375, obj_t BgL_oz00_1376) { AN_OBJECT; { /* blib.scm 717 */ return BGl_stmodezd2ze3bstmodez31zzblibz00( BGl_bstmodezd2ze3stmodez31zzblibz00(BgL_oz00_1376));} } /* stmode->bstmode */ BGL_EXPORTED_DEF obj_t BGl_stmodezd2ze3bstmodez31zzblibz00(int BgL_oz00_91) { AN_OBJECT; { /* blib.scm 792 */ { /* blib.scm 795 */ obj_t BgL_symbol2120z00_1223; BgL_symbol2120z00_1223 = BGl_symbol2804z00zzblibz00; { /* blib.scm 795 */ PUSH_TRACE(BgL_symbol2120z00_1223); { /* blib.scm 795 */ obj_t BgL_aux2119z00_1224; { /* blib.scm 795 */ obj_t BgL_resz00_633; BgL_resz00_633 = BNIL; if( (BgL_oz00_91 & S_IFSOCK) == S_IFSOCK) { /* blib.scm 799 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2763z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 799 */BFALSE; } if( (BgL_oz00_91 & S_IFLNK) == S_IFLNK) { /* blib.scm 804 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2765z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 804 */BFALSE; } if( (BgL_oz00_91 & S_IFREG) == S_IFREG) { /* blib.scm 806 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2767z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 806 */BFALSE; } if( (BgL_oz00_91 & S_IFBLK) == S_IFBLK) { /* blib.scm 808 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2769z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 808 */BFALSE; } if( S_ISDIR( BgL_oz00_91 )) { /* blib.scm 812 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2771z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 812 */BFALSE; } if( (BgL_oz00_91 & S_IFCHR) == S_IFCHR) { /* blib.scm 814 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2773z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 814 */BFALSE; } if( (BgL_oz00_91 & S_IFIFO) == S_IFIFO) { /* blib.scm 816 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2775z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 816 */BFALSE; } if( (BgL_oz00_91 & S_ISUID) == S_ISUID) { /* blib.scm 821 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2777z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 821 */BFALSE; } if( (BgL_oz00_91 & S_ISGID) == S_ISGID) { /* blib.scm 826 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2779z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 826 */BFALSE; } if( (BgL_oz00_91 & S_ISVTX) == S_ISVTX) { /* blib.scm 831 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2781z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 831 */BFALSE; } if( (BgL_oz00_91 & S_IRUSR) == S_IRUSR) { /* blib.scm 833 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2783z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 833 */BFALSE; } if( (BgL_oz00_91 & S_IWUSR) == S_IWUSR) { /* blib.scm 835 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2785z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 835 */BFALSE; } if( (BgL_oz00_91 & S_IXUSR) == S_IXUSR) { /* blib.scm 837 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2787z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 837 */BFALSE; } if( (BgL_oz00_91 & S_IRGRP) == S_IRGRP) { /* blib.scm 842 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2789z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 842 */BFALSE; } if( (BgL_oz00_91 & S_IWGRP) == S_IWGRP) { /* blib.scm 847 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2791z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 847 */BFALSE; } if( (BgL_oz00_91 & S_IXGRP) == S_IXGRP) { /* blib.scm 852 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2793z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 852 */BFALSE; } if( (BgL_oz00_91 & S_IROTH) == S_IROTH) { /* blib.scm 857 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2795z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 857 */BFALSE; } if( (BgL_oz00_91 & S_IWOTH) == S_IWOTH) { /* blib.scm 862 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2797z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 862 */BFALSE; } if( (BgL_oz00_91 & S_IXOTH) == S_IXOTH) { /* blib.scm 867 */ BgL_resz00_633 = MAKE_PAIR(BGl_symbol2799z00zzblibz00, BgL_resz00_633); } else { /* blib.scm 867 */BFALSE; } { /* blib.scm 869 */ obj_t BgL_aux2427z00_1695; BgL_aux2427z00_1695 = BgL_resz00_633; if( BGl_stmodezf3zf3zzblibz00(BgL_aux2427z00_1695)) { /* blib.scm 869 */ BgL_aux2119z00_1224 = BgL_aux2427z00_1695; } else { /* blib.scm 869 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2806z00zzblibz00, BGl_string2808z00zzblibz00, BgL_aux2427z00_1695, BGl_string2460z00zzblibz00, BINT(((long)25353))); exit( -1 );} } } POP_TRACE(); return BgL_aux2119z00_1224;} } } } } /* _stmode->bstmode */ obj_t BGl__stmodezd2ze3bstmodez31zzblibz00(obj_t BgL_envz00_1377, obj_t BgL_oz00_1378) { AN_OBJECT; { /* blib.scm 792 */ { /* blib.scm 795 */ int BgL_auxz00_3858; { /* blib.scm 795 */ obj_t BgL_auxz00_3859; if( BGl_stmodezf3zf3zzblibz00(BgL_oz00_1378)) { /* blib.scm 795 */ BgL_auxz00_3859 = BgL_oz00_1378 ; } else { /* blib.scm 795 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2809z00zzblibz00, BGl_string2811z00zzblibz00, BgL_oz00_1378, BGl_string2460z00zzblibz00, BINT(((long)22878))); exit( -1 );} BgL_auxz00_3858 = BGl_bstmodezd2ze3stmodez31zzblibz00(BgL_auxz00_3859); } return BGl_stmodezd2ze3bstmodez31zzblibz00(BgL_auxz00_3858);} } } /* stmode? */ BGL_EXPORTED_DEF bool_t BGl_stmodezf3zf3zzblibz00(obj_t BgL_oz00_92) { AN_OBJECT; { /* blib.scm 872 */ { /* blib.scm 873 */ obj_t BgL_symbol2122z00_1225; BgL_symbol2122z00_1225 = BGl_symbol2812z00zzblibz00; { /* blib.scm 873 */ PUSH_TRACE(BgL_symbol2122z00_1225); { /* blib.scm 873 */ bool_t BgL_aux2121z00_1226; if( BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_oz00_92)) { /* blib.scm 874 */ obj_t BgL_arg1996z00_654; { /* blib.scm 874 */ obj_t BgL_list1997z00_655; BgL_list1997z00_655 = MAKE_PAIR(BGl_list2814z00zzblibz00, BNIL); BgL_arg1996z00_654 = BGl_lsetzd2differencezd2zzblibz00(BGl_eqzf3zd2envz21zz__r4_equivalence_6_2z00, BgL_oz00_92, BgL_list1997z00_655); } BgL_aux2121z00_1226 = NULLP(BgL_arg1996z00_654); } else { /* blib.scm 873 */ BgL_aux2121z00_1226 = ((bool_t)0); } POP_TRACE(); return BgL_aux2121z00_1226;} } } } } /* _stmode? */ obj_t BGl__stmodezf3zf3zzblibz00(obj_t BgL_envz00_1379, obj_t BgL_oz00_1380) { AN_OBJECT; { /* blib.scm 872 */ return BBOOL( BGl_stmodezf3zf3zzblibz00(BgL_oz00_1380));} } /* stat-mode */ BGL_EXPORTED_DEF int BGl_statzd2modezd2zzblibz00(struct stat* BgL_oz00_93) { AN_OBJECT; { /* blib.scm 897 */ { /* blib.scm 898 */ obj_t BgL_symbol2124z00_1227; BgL_symbol2124z00_1227 = BGl_symbol2815z00zzblibz00; { /* blib.scm 898 */ PUSH_TRACE(BgL_symbol2124z00_1227); { /* blib.scm 898 */ int BgL_aux2123z00_1228; { /* blib.scm 898 */ int BgL_resultz00_1120; BgL_resultz00_1120 = BgL_oz00_93->st_mode; BgL_aux2123z00_1228 = BgL_resultz00_1120; } POP_TRACE(); return BgL_aux2123z00_1228;} } } } } /* _stat-mode */ obj_t BGl__statzd2modezd2zzblibz00(obj_t BgL_envz00_1384, obj_t BgL_oz00_1385) { AN_OBJECT; { /* blib.scm 897 */ { /* blib.scm 898 */ int BgL_auxz00_3879; { /* blib.scm 898 */ struct stat* BgL_auxz00_3880; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1385)) { /* blib.scm 898 */ BgL_auxz00_3880 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1385) ; } else { /* blib.scm 898 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2817z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1385, BGl_string2460z00zzblibz00, BINT(((long)26045))); exit( -1 );} BgL_auxz00_3879 = BGl_statzd2modezd2zzblibz00(BgL_auxz00_3880); } return BGl_stmodezd2ze3bstmodez31zzblibz00(BgL_auxz00_3879);} } } /* stat-ino */ BGL_EXPORTED_DEF int BGl_statzd2inozd2zzblibz00(struct stat* BgL_oz00_94) { AN_OBJECT; { /* blib.scm 902 */ { /* blib.scm 903 */ obj_t BgL_symbol2126z00_1229; BgL_symbol2126z00_1229 = BGl_symbol2819z00zzblibz00; { /* blib.scm 903 */ PUSH_TRACE(BgL_symbol2126z00_1229); { /* blib.scm 903 */ int BgL_aux2125z00_1230; { /* blib.scm 903 */ int BgL_resultz00_1121; BgL_resultz00_1121 = BgL_oz00_94->st_ino; BgL_aux2125z00_1230 = BgL_resultz00_1121; } POP_TRACE(); return BgL_aux2125z00_1230;} } } } } /* _stat-ino */ obj_t BGl__statzd2inozd2zzblibz00(obj_t BgL_envz00_1386, obj_t BgL_oz00_1387) { AN_OBJECT; { /* blib.scm 902 */ { /* blib.scm 903 */ int BgL_auxz00_3892; { /* blib.scm 903 */ struct stat* BgL_auxz00_3893; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1387)) { /* blib.scm 903 */ BgL_auxz00_3893 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1387) ; } else { /* blib.scm 903 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2821z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1387, BGl_string2460z00zzblibz00, BINT(((long)26144))); exit( -1 );} BgL_auxz00_3892 = BGl_statzd2inozd2zzblibz00(BgL_auxz00_3893); } return BINT(BgL_auxz00_3892);} } } /* stat-dev */ BGL_EXPORTED_DEF dev_t BGl_statzd2devzd2zzblibz00(struct stat* BgL_oz00_95) { AN_OBJECT; { /* blib.scm 907 */ { /* blib.scm 908 */ obj_t BgL_symbol2128z00_1231; BgL_symbol2128z00_1231 = BGl_symbol2823z00zzblibz00; { /* blib.scm 908 */ PUSH_TRACE(BgL_symbol2128z00_1231); { /* blib.scm 908 */ dev_t BgL_aux2127z00_1232; { /* blib.scm 908 */ dev_t BgL_resultz00_1122; BgL_resultz00_1122 = BgL_oz00_95->st_dev; BgL_aux2127z00_1232 = BgL_resultz00_1122; } POP_TRACE(); return BgL_aux2127z00_1232;} } } } } /* _stat-dev */ obj_t BGl__statzd2devzd2zzblibz00(obj_t BgL_envz00_1388, obj_t BgL_oz00_1389) { AN_OBJECT; { /* blib.scm 907 */ { /* blib.scm 908 */ unsigned long BgL_auxz00_3905; { /* blib.scm 908 */ struct stat* BgL_auxz00_3906; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1389)) { /* blib.scm 908 */ BgL_auxz00_3906 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1389) ; } else { /* blib.scm 908 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2825z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1389, BGl_string2460z00zzblibz00, BINT(((long)26241))); exit( -1 );} BgL_auxz00_3905 = BGl_statzd2devzd2zzblibz00(BgL_auxz00_3906); } return BINT(BgL_auxz00_3905);} } } /* stat-rdev */ BGL_EXPORTED_DEF int BGl_statzd2rdevzd2zzblibz00(struct stat* BgL_oz00_96) { AN_OBJECT; { /* blib.scm 912 */ { /* blib.scm 913 */ obj_t BgL_symbol2130z00_1233; BgL_symbol2130z00_1233 = BGl_symbol2827z00zzblibz00; { /* blib.scm 913 */ PUSH_TRACE(BgL_symbol2130z00_1233); { /* blib.scm 913 */ int BgL_aux2129z00_1234; { /* blib.scm 913 */ int BgL_resultz00_1123; BgL_resultz00_1123 = BgL_oz00_96->st_rdev; BgL_aux2129z00_1234 = BgL_resultz00_1123; } POP_TRACE(); return BgL_aux2129z00_1234;} } } } } /* _stat-rdev */ obj_t BGl__statzd2rdevzd2zzblibz00(obj_t BgL_envz00_1390, obj_t BgL_oz00_1391) { AN_OBJECT; { /* blib.scm 912 */ { /* blib.scm 913 */ int BgL_auxz00_3918; { /* blib.scm 913 */ struct stat* BgL_auxz00_3919; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1391)) { /* blib.scm 913 */ BgL_auxz00_3919 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1391) ; } else { /* blib.scm 913 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2829z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1391, BGl_string2460z00zzblibz00, BINT(((long)26339))); exit( -1 );} BgL_auxz00_3918 = BGl_statzd2rdevzd2zzblibz00(BgL_auxz00_3919); } return BINT(BgL_auxz00_3918);} } } /* stat-nlink */ BGL_EXPORTED_DEF int BGl_statzd2nlinkzd2zzblibz00(struct stat* BgL_oz00_97) { AN_OBJECT; { /* blib.scm 917 */ { /* blib.scm 918 */ obj_t BgL_symbol2132z00_1235; BgL_symbol2132z00_1235 = BGl_symbol2831z00zzblibz00; { /* blib.scm 918 */ PUSH_TRACE(BgL_symbol2132z00_1235); { /* blib.scm 918 */ int BgL_aux2131z00_1236; { /* blib.scm 918 */ int BgL_resultz00_1124; BgL_resultz00_1124 = BgL_oz00_97->st_nlink; BgL_aux2131z00_1236 = BgL_resultz00_1124; } POP_TRACE(); return BgL_aux2131z00_1236;} } } } } /* _stat-nlink */ obj_t BGl__statzd2nlinkzd2zzblibz00(obj_t BgL_envz00_1392, obj_t BgL_oz00_1393) { AN_OBJECT; { /* blib.scm 917 */ { /* blib.scm 918 */ int BgL_auxz00_3931; { /* blib.scm 918 */ struct stat* BgL_auxz00_3932; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1393)) { /* blib.scm 918 */ BgL_auxz00_3932 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1393) ; } else { /* blib.scm 918 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2833z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1393, BGl_string2460z00zzblibz00, BINT(((long)26437))); exit( -1 );} BgL_auxz00_3931 = BGl_statzd2nlinkzd2zzblibz00(BgL_auxz00_3932); } return BINT(BgL_auxz00_3931);} } } /* stat-uid */ BGL_EXPORTED_DEF int BGl_statzd2uidzd2zzblibz00(struct stat* BgL_oz00_98) { AN_OBJECT; { /* blib.scm 922 */ { /* blib.scm 923 */ obj_t BgL_symbol2134z00_1237; BgL_symbol2134z00_1237 = BGl_symbol2835z00zzblibz00; { /* blib.scm 923 */ PUSH_TRACE(BgL_symbol2134z00_1237); { /* blib.scm 923 */ int BgL_aux2133z00_1238; { /* blib.scm 923 */ int BgL_resultz00_1125; BgL_resultz00_1125 = BgL_oz00_98->st_uid; BgL_aux2133z00_1238 = BgL_resultz00_1125; } POP_TRACE(); return BgL_aux2133z00_1238;} } } } } /* _stat-uid */ obj_t BGl__statzd2uidzd2zzblibz00(obj_t BgL_envz00_1394, obj_t BgL_oz00_1395) { AN_OBJECT; { /* blib.scm 922 */ { /* blib.scm 923 */ int BgL_auxz00_3944; { /* blib.scm 923 */ struct stat* BgL_auxz00_3945; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1395)) { /* blib.scm 923 */ BgL_auxz00_3945 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1395) ; } else { /* blib.scm 923 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2837z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1395, BGl_string2460z00zzblibz00, BINT(((long)26534))); exit( -1 );} BgL_auxz00_3944 = BGl_statzd2uidzd2zzblibz00(BgL_auxz00_3945); } return BINT(BgL_auxz00_3944);} } } /* stat-gid */ BGL_EXPORTED_DEF int BGl_statzd2gidzd2zzblibz00(struct stat* BgL_oz00_99) { AN_OBJECT; { /* blib.scm 927 */ { /* blib.scm 928 */ obj_t BgL_symbol2136z00_1239; BgL_symbol2136z00_1239 = BGl_symbol2839z00zzblibz00; { /* blib.scm 928 */ PUSH_TRACE(BgL_symbol2136z00_1239); { /* blib.scm 928 */ int BgL_aux2135z00_1240; { /* blib.scm 928 */ int BgL_resultz00_1126; BgL_resultz00_1126 = BgL_oz00_99->st_gid; BgL_aux2135z00_1240 = BgL_resultz00_1126; } POP_TRACE(); return BgL_aux2135z00_1240;} } } } } /* _stat-gid */ obj_t BGl__statzd2gidzd2zzblibz00(obj_t BgL_envz00_1396, obj_t BgL_oz00_1397) { AN_OBJECT; { /* blib.scm 927 */ { /* blib.scm 928 */ int BgL_auxz00_3957; { /* blib.scm 928 */ struct stat* BgL_auxz00_3958; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1397)) { /* blib.scm 928 */ BgL_auxz00_3958 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1397) ; } else { /* blib.scm 928 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2841z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1397, BGl_string2460z00zzblibz00, BINT(((long)26629))); exit( -1 );} BgL_auxz00_3957 = BGl_statzd2gidzd2zzblibz00(BgL_auxz00_3958); } return BINT(BgL_auxz00_3957);} } } /* stat-size */ BGL_EXPORTED_DEF long BGl_statzd2siza7ez75zzblibz00(struct stat* BgL_oz00_100) { AN_OBJECT; { /* blib.scm 932 */ { /* blib.scm 933 */ obj_t BgL_symbol2138z00_1241; BgL_symbol2138z00_1241 = BGl_symbol2843z00zzblibz00; { /* blib.scm 933 */ PUSH_TRACE(BgL_symbol2138z00_1241); { /* blib.scm 933 */ long BgL_aux2137z00_1242; { /* blib.scm 933 */ long BgL_resultz00_1127; BgL_resultz00_1127 = BgL_oz00_100->st_size; BgL_aux2137z00_1242 = BgL_resultz00_1127; } POP_TRACE(); return BgL_aux2137z00_1242;} } } } } /* _stat-size */ obj_t BGl__statzd2siza7ez75zzblibz00(obj_t BgL_envz00_1398, obj_t BgL_oz00_1399) { AN_OBJECT; { /* blib.scm 932 */ { /* blib.scm 933 */ long BgL_auxz00_3970; { /* blib.scm 933 */ struct stat* BgL_auxz00_3971; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1399)) { /* blib.scm 933 */ BgL_auxz00_3971 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1399) ; } else { /* blib.scm 933 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2845z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1399, BGl_string2460z00zzblibz00, BINT(((long)26726))); exit( -1 );} BgL_auxz00_3970 = BGl_statzd2siza7ez75zzblibz00(BgL_auxz00_3971); } return BINT(BgL_auxz00_3970);} } } /* stat-atime */ BGL_EXPORTED_DEF double BGl_statzd2atimezd2zzblibz00(struct stat* BgL_oz00_101) { AN_OBJECT; { /* blib.scm 937 */ { /* blib.scm 938 */ obj_t BgL_symbol2140z00_1243; BgL_symbol2140z00_1243 = BGl_symbol2847z00zzblibz00; { /* blib.scm 938 */ PUSH_TRACE(BgL_symbol2140z00_1243); { /* blib.scm 938 */ double BgL_aux2139z00_1244; { /* blib.scm 938 */ double BgL_resultz00_1128; BgL_resultz00_1128 = BgL_oz00_101->st_atime; BgL_aux2139z00_1244 = BgL_resultz00_1128; } POP_TRACE(); return BgL_aux2139z00_1244;} } } } } /* _stat-atime */ obj_t BGl__statzd2atimezd2zzblibz00(obj_t BgL_envz00_1400, obj_t BgL_oz00_1401) { AN_OBJECT; { /* blib.scm 937 */ { /* blib.scm 938 */ double BgL_auxz00_3983; { /* blib.scm 938 */ struct stat* BgL_auxz00_3984; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1401)) { /* blib.scm 938 */ BgL_auxz00_3984 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1401) ; } else { /* blib.scm 938 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2849z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1401, BGl_string2460z00zzblibz00, BINT(((long)26828))); exit( -1 );} BgL_auxz00_3983 = BGl_statzd2atimezd2zzblibz00(BgL_auxz00_3984); } return DOUBLE_TO_REAL(BgL_auxz00_3983);} } } /* stat-mtime */ BGL_EXPORTED_DEF double BGl_statzd2mtimezd2zzblibz00(struct stat* BgL_oz00_102) { AN_OBJECT; { /* blib.scm 942 */ { /* blib.scm 943 */ obj_t BgL_symbol2142z00_1245; BgL_symbol2142z00_1245 = BGl_symbol2851z00zzblibz00; { /* blib.scm 943 */ PUSH_TRACE(BgL_symbol2142z00_1245); { /* blib.scm 943 */ double BgL_aux2141z00_1246; { /* blib.scm 943 */ double BgL_resultz00_1129; BgL_resultz00_1129 = BgL_oz00_102->st_mtime; BgL_aux2141z00_1246 = BgL_resultz00_1129; } POP_TRACE(); return BgL_aux2141z00_1246;} } } } } /* _stat-mtime */ obj_t BGl__statzd2mtimezd2zzblibz00(obj_t BgL_envz00_1402, obj_t BgL_oz00_1403) { AN_OBJECT; { /* blib.scm 942 */ { /* blib.scm 943 */ double BgL_auxz00_3996; { /* blib.scm 943 */ struct stat* BgL_auxz00_3997; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1403)) { /* blib.scm 943 */ BgL_auxz00_3997 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1403) ; } else { /* blib.scm 943 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2853z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1403, BGl_string2460z00zzblibz00, BINT(((long)26933))); exit( -1 );} BgL_auxz00_3996 = BGl_statzd2mtimezd2zzblibz00(BgL_auxz00_3997); } return DOUBLE_TO_REAL(BgL_auxz00_3996);} } } /* stat-ctime */ BGL_EXPORTED_DEF double BGl_statzd2ctimezd2zzblibz00(struct stat* BgL_oz00_103) { AN_OBJECT; { /* blib.scm 947 */ { /* blib.scm 948 */ obj_t BgL_symbol2144z00_1247; BgL_symbol2144z00_1247 = BGl_symbol2855z00zzblibz00; { /* blib.scm 948 */ PUSH_TRACE(BgL_symbol2144z00_1247); { /* blib.scm 948 */ double BgL_aux2143z00_1248; { /* blib.scm 948 */ double BgL_resultz00_1130; BgL_resultz00_1130 = BgL_oz00_103->st_ctime; BgL_aux2143z00_1248 = BgL_resultz00_1130; } POP_TRACE(); return BgL_aux2143z00_1248;} } } } } /* _stat-ctime */ obj_t BGl__statzd2ctimezd2zzblibz00(obj_t BgL_envz00_1404, obj_t BgL_oz00_1405) { AN_OBJECT; { /* blib.scm 947 */ { /* blib.scm 948 */ double BgL_auxz00_4009; { /* blib.scm 948 */ struct stat* BgL_auxz00_4010; if( BGl_statzf3zf3zzblibz00(BgL_oz00_1405)) { /* blib.scm 948 */ BgL_auxz00_4010 = (struct stat*)FOREIGN_TO_COBJ(BgL_oz00_1405) ; } else { /* blib.scm 948 */ BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2857z00zzblibz00, BGl_string2756z00zzblibz00, BgL_oz00_1405, BGl_string2460z00zzblibz00, BINT(((long)27038))); exit( -1 );} BgL_auxz00_4009 = BGl_statzd2ctimezd2zzblibz00(BgL_auxz00_4010); } return DOUBLE_TO_REAL(BgL_auxz00_4009);} } } /* fd-set? */ BGL_EXPORTED_DEF bool_t BGl_fdzd2setzf3z21zzblibz00(obj_t BgL_oz00_104) { AN_OBJECT; { /* blib.scm 951 */ { /* blib.scm 952 */ obj_t BgL_symbol2146z00_1249; BgL_symbol2146z00_1249 = BGl_symbol2859z00zzblibz00; { /* blib.scm 952 */ PUSH_TRACE(BgL_symbol2146z00_1249); { /* blib.scm 952 */ bool_t BgL_aux2145z00_1250; if( FOREIGNP(BgL_oz00_104)) { /* blib.scm 952 */ obj_t BgL_arg2003z00_1132;obj_t BgL_arg2009z00_1133; BgL_arg2003z00_1132 = FOREIGN_ID(BgL_oz00_104); BgL_arg2009z00_1133 = BGl_symbol2861z00zzblibz00; BgL_aux2145z00_1250 = (BgL_arg2003z00_1132==BgL_arg2009z00_1133); } else { /* blib.scm 952 */ BgL_aux2145z00_1250 = ((bool_t)0); } POP_TRACE(); return BgL_aux2145z00_1250;} } } } } /* _fd-set? */ obj_t BGl__fdzd2setzf3z21zzblibz00(obj_t BgL_envz00_1406, obj_t BgL_oz00_1407) { AN_OBJECT; { /* blib.scm 951 */ return BBOOL( BGl_fdzd2setzf3z21zzblibz00(BgL_oz00_1407));} } /* method-init */ obj_t BGl_methodzd2initzd2zzblibz00() { AN_OBJECT; { /* blib.scm 36 */ { /* blib.scm 36 */ obj_t BgL_symbol2148z00_1251; BgL_symbol2148z00_1251 = BGl_symbol2863z00zzblibz00; { /* blib.scm 36 */ PUSH_TRACE(BgL_symbol2148z00_1251); POP_TRACE(); return BUNSPEC;} } } } #ifdef __cplusplus } #endif