/*===========================================================================*/
/*   (Llib/bigloo.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/bigloo.scm -indent -o objs/obj_s/Llib/bigloo.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___BIGLOO_TYPE_DEFINITIONS
#define BGL___BIGLOO_TYPE_DEFINITIONS
#endif // BGL___BIGLOO_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
static obj_t BGl_z62bigloozd2classzd2demanglez62zz__biglooz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_cnstzf3zf3zz__biglooz00(obj_t);
static obj_t BGl_z62bigloozd2classzd2mangledzf3z91zz__biglooz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_opaquezf3zf3zz__biglooz00(obj_t);
extern obj_t bstring_to_keyword(obj_t);
static obj_t BGl_z62opaquezf3z91zz__biglooz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__biglooz00 = BUNSPEC;
extern obj_t bgl_remq_bang(obj_t, obj_t);
static obj_t BGl_symbol2023z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_z62bigloozd2modulezd2demanglez62zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62unregisterzd2exitzd2functionz12z70zz__biglooz00(obj_t, obj_t);
static obj_t BGl_za2levelza2z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_z62timez62zz__biglooz00(obj_t, obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__configurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static long BGl_getzd28bitszd2integerze70ze7zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62bigloozd2needzd2manglingzf3z91zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62cellzf3z91zz__biglooz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bigloo_demangle(obj_t);
static long BGl_charzd2ze3digitze70zd6zz__biglooz00(unsigned char);
static obj_t BGl_z62bigloozd2demanglezb0zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62bigloozd2modulezd2manglez62zz__biglooz00(obj_t, obj_t, obj_t);
static obj_t BGl_keyword2088z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_z62bigloozd2exitzd2applyz62zz__biglooz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t bigloo_mangledp(obj_t);
static obj_t BGl_z62bigloozd2mangledzf3z43zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62bigloozd2exitzd2mutexz62zz__biglooz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_gczd2finaliza7ez75zz__biglooz00(void);
static obj_t BGl_z62nullzd2orzd2unspecifiedzf3z91zz__biglooz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_procedurezd2attrzd2setz12z12zz__biglooz00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__biglooz00(void);
static obj_t BGl_za2exitzd2mutexza2zd2zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_timez00zz__biglooz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_checkzd2versionz12zc0zz__biglooz00(obj_t, char *, obj_t);
static obj_t BGl_bigloozd2demanglezd2atze70ze7zz__biglooz00(obj_t, long, obj_t);
static obj_t BGl_z62cnstzf3z91zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62cellzd2setz12za2zz__biglooz00(obj_t, obj_t, obj_t);
static obj_t BGl__gcz00zz__biglooz00(obj_t, obj_t);
extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_unspecifiedz00zz__biglooz00(void);
BGL_EXPORTED_DECL obj_t bigloo_module_mangle(obj_t, obj_t);
extern unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long);
static obj_t BGl_cnstzd2initzd2zz__biglooz00(void);
static obj_t BGl_genericzd2initzd2zz__biglooz00(void);
extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_unregisterzd2exitzd2functionz12z12zz__biglooz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_nullzd2orzd2unspecifiedzf3zf3zz__biglooz00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__biglooz00(void);
static obj_t BGl_gczd2rootszd2initz00zz__biglooz00(void);
static obj_t BGl_z62bmemzd2resetz12za2zz__biglooz00(obj_t);
static obj_t BGl_objectzd2initzd2zz__biglooz00(void);
BGL_EXPORTED_DECL obj_t BGl_opaquezd2nilzd2zz__biglooz00(void);
BGL_EXPORTED_DECL obj_t bigloo_mangle(obj_t);
static obj_t BGl_symbol2070z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol2072z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol2074z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol2076z00zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cellzd2refzd2zz__biglooz00(obj_t);
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bigloo_exit_apply(obj_t);
BGL_EXPORTED_DECL int BGl_procedurezd2lengthzd2zz__biglooz00(obj_t);
BGL_EXPORTED_DECL obj_t bigloo_module_demangle(obj_t);
static obj_t BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = BUNSPEC;
extern obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2082z00zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t bgl_exit_mutex(void);
extern void bgl_gc_verbose_set(bool_t);
static obj_t BGl_za2releaseza2z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_z62procedurezd2attrzb0zz__biglooz00(obj_t, obj_t);
extern obj_t bgl_bmem_reset(void);
BGL_EXPORTED_DECL obj_t BGl_cellzd2setz12zc0zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62opaquezd2nilzb0zz__biglooz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_gczd2verbosezd2setz12z12zz__biglooz00(bool_t);
static obj_t BGl_list2069z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_z62gczd2verbosezd2setz12z70zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62makezd2cellzb0zz__biglooz00(obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL obj_t BGl_registerzd2exitzd2functionz12z12zz__biglooz00(obj_t);
static obj_t BGl_methodzd2initzd2zz__biglooz00(void);
static obj_t BGl_z62bigloozd2manglezb0zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62registerzd2exitzd2functionz12z70zz__biglooz00(obj_t, obj_t);
static obj_t BGl_list2087z00zz__biglooz00 = BUNSPEC;
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
BGL_EXPORTED_DECL obj_t bigloo_class_demangle(obj_t);
static obj_t BGl_z62gczd2finaliza7ez17zz__biglooz00(obj_t);
static obj_t BGl_z62procedurezd2attrzd2setz12z70zz__biglooz00(obj_t, obj_t, obj_t);
static long BGl_manglezd2atz12zc0zz__biglooz00(obj_t, obj_t, long, long);
BGL_EXPORTED_DECL bool_t bigloo_class_mangledp(obj_t);
extern obj_t make_string(long, unsigned char);
BGL_EXPORTED_DECL obj_t BGl_makezd2cellzd2zz__biglooz00(obj_t);
static obj_t BGl_za2modulesza2z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_z62cellzd2refzb0zz__biglooz00(obj_t, obj_t);
static obj_t BGl_z62unspecifiedz62zz__biglooz00(obj_t);
static obj_t BGl_z62procedurezd2lengthzb0zz__biglooz00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_procedurezd2arityzd2zz__biglooz00(obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl_z62procedurezd2arityzb0zz__biglooz00(obj_t, obj_t);
extern obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, long, obj_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_procedurezd2attrzd2zz__biglooz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_bmemzd2resetz12zc0zz__biglooz00(void);
static obj_t BGl_z62checkzd2versionz12za2zz__biglooz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_bigloozd2needzd2manglingzf3zf3zz__biglooz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cellzf3zf3zz__biglooz00(obj_t);
extern bool_t bigloo_strncmp(obj_t, obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_gcz00zz__biglooz00(obj_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


BGL_DEFINE_STRING(BGl_string2040z00zz__biglooz00, BgL_bgl_string2040za700za7za7_2092za7, "Can't mangle empty string", 25 );
BGL_DEFINE_STRING(BGl_string2041z00zz__biglooz00, BgL_bgl_string2041za700za7za7_2093za7, "bigloo-mangle", 13 );
BGL_DEFINE_STRING(BGl_string2042z00zz__biglooz00, BgL_bgl_string2042za700za7za7_2094za7, "BgL_", 4 );
BGL_DEFINE_STRING(BGl_string2043z00zz__biglooz00, BgL_bgl_string2043za700za7za7_2095za7, "&bigloo-mangle", 14 );
BGL_DEFINE_STRING(BGl_string2044z00zz__biglooz00, BgL_bgl_string2044za700za7za7_2096za7, "bigloo-module-mangle", 20 );
BGL_DEFINE_STRING(BGl_string2045z00zz__biglooz00, BgL_bgl_string2045za700za7za7_2097za7, "BGl_", 4 );
BGL_DEFINE_STRING(BGl_string2046z00zz__biglooz00, BgL_bgl_string2046za700za7za7_2098za7, "&bigloo-module-mangle", 21 );
BGL_DEFINE_STRING(BGl_string2047z00zz__biglooz00, BgL_bgl_string2047za700za7za7_2099za7, "&bigloo-mangled?", 16 );
BGL_DEFINE_STRING(BGl_string2048z00zz__biglooz00, BgL_bgl_string2048za700za7za7_2100za7, "&bigloo-need-mangling?", 22 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_unspecifiedzd2envzd2zz__biglooz00, BgL_bgl_za762unspecifiedza762101z00, BGl_z62unspecifiedz62zz__biglooz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2049z00zz__biglooz00, BgL_bgl_string2049za700za7za7_2102za7, "get-8bits-integer~0", 19 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_unregisterzd2exitzd2functionz12zd2envzc0zz__biglooz00, BgL_bgl_za762unregisterza7d22103z00, BGl_z62unregisterzd2exitzd2functionz12z70zz__biglooz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2050z00zz__biglooz00, BgL_bgl_string2050za700za7za7_2104za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string2051z00zz__biglooz00, BgL_bgl_string2051za700za7za7_2105za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string2052z00zz__biglooz00, BgL_bgl_string2052za700za7za7_2106za7, "bigloo-demangle", 15 );
BGL_DEFINE_STRING(BGl_string2053z00zz__biglooz00, BgL_bgl_string2053za700za7za7_2107za7, "Illegal mangling on", 19 );
BGL_DEFINE_STRING(BGl_string2054z00zz__biglooz00, BgL_bgl_string2054za700za7za7_2108za7, "&bigloo-demangle", 16 );
BGL_DEFINE_STRING(BGl_string2055z00zz__biglooz00, BgL_bgl_string2055za700za7za7_2109za7, "bigloo-module-demangle", 22 );
BGL_DEFINE_STRING(BGl_string2056z00zz__biglooz00, BgL_bgl_string2056za700za7za7_2110za7, "@", 1 );
BGL_DEFINE_STRING(BGl_string2057z00zz__biglooz00, BgL_bgl_string2057za700za7za7_2111za7, "&bigloo-module-demangle", 23 );
BGL_DEFINE_STRING(BGl_string2058z00zz__biglooz00, BgL_bgl_string2058za700za7za7_2112za7, "&bigloo-class-mangled?", 22 );
BGL_DEFINE_STRING(BGl_string2059z00zz__biglooz00, BgL_bgl_string2059za700za7za7_2113za7, "bigloo-class-demangle", 21 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_procedurezd2attrzd2envz00zz__biglooz00, BgL_bgl_za762procedureza7d2a2114z00, BGl_z62procedurezd2attrzb0zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_opaquezd2nilzd2envz00zz__biglooz00, BgL_bgl_za762opaqueza7d2nilza72115za7, BGl_z62opaquezd2nilzb0zz__biglooz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2060z00zz__biglooz00, BgL_bgl_string2060za700za7za7_2116za7, "_bglt", 5 );
BGL_DEFINE_STRING(BGl_string2061z00zz__biglooz00, BgL_bgl_string2061za700za7za7_2117za7, "&bigloo-class-demangle", 22 );
BGL_DEFINE_STRING(BGl_string2062z00zz__biglooz00, BgL_bgl_string2062za700za7za7_2118za7, "bigloo-exit-register!", 21 );
BGL_DEFINE_STRING(BGl_string2063z00zz__biglooz00, BgL_bgl_string2063za700za7za7_2119za7, "Wrong procedure arity", 21 );
BGL_DEFINE_STRING(BGl_string2064z00zz__biglooz00, BgL_bgl_string2064za700za7za7_2120za7, "&register-exit-function!", 24 );
BGL_DEFINE_STRING(BGl_string2065z00zz__biglooz00, BgL_bgl_string2065za700za7za7_2121za7, "unregister-exit-function!", 25 );
BGL_DEFINE_STRING(BGl_string2066z00zz__biglooz00, BgL_bgl_string2066za700za7za7_2122za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string2067z00zz__biglooz00, BgL_bgl_string2067za700za7za7_2123za7, "&unregister-exit-function!", 26 );
BGL_DEFINE_STRING(BGl_string2068z00zz__biglooz00, BgL_bgl_string2068za700za7za7_2124za7, "loop:Wrong number of arguments", 30 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2mangledzf3zd2envzf3zz__biglooz00, BgL_bgl_za762biglooza7d2mang2125z00, BGl_z62bigloozd2mangledzf3z43zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2exitzd2mutexzd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2exit2126z00, BGl_z62bigloozd2exitzd2mutexz62zz__biglooz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string2071z00zz__biglooz00, BgL_bgl_string2071za700za7za7_2127za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string2073z00zz__biglooz00, BgL_bgl_string2073za700za7za7_2128za7, "fun", 3 );
BGL_DEFINE_STRING(BGl_string2075z00zz__biglooz00, BgL_bgl_string2075za700za7za7_2129za7, "val", 3 );
BGL_DEFINE_STRING(BGl_string2077z00zz__biglooz00, BgL_bgl_string2077za700za7za7_2130za7, "time", 4 );
BGL_DEFINE_STRING(BGl_string2078z00zz__biglooz00, BgL_bgl_string2078za700za7za7_2131za7, "&time", 5 );
BGL_DEFINE_STRING(BGl_string2079z00zz__biglooz00, BgL_bgl_string2079za700za7za7_2132za7, "_gc", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_gczd2verbosezd2setz12zd2envzc0zz__biglooz00, BgL_bgl_za762gcza7d2verboseza72133za7, BGl_z62gczd2verbosezd2setz12z70zz__biglooz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2080z00zz__biglooz00, BgL_bgl_string2080za700za7za7_2134za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string2081z00zz__biglooz00, BgL_bgl_string2081za700za7za7_2135za7, "search1112", 10 );
BGL_DEFINE_STRING(BGl_string2083z00zz__biglooz00, BgL_bgl_string2083za700za7za7_2136za7, "gc", 2 );
BGL_DEFINE_STRING(BGl_string2084z00zz__biglooz00, BgL_bgl_string2084za700za7za7_2137za7, "wrong number of arguments: [0..1] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string2085z00zz__biglooz00, BgL_bgl_string2085za700za7za7_2138za7, "check1113", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2modulezd2manglezd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2modu2139z00, BGl_z62bigloozd2modulezd2manglez62zz__biglooz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2086z00zz__biglooz00, BgL_bgl_string2086za700za7za7_2140za7, "vector-ref", 10 );
BGL_DEFINE_STRING(BGl_string2089z00zz__biglooz00, BgL_bgl_string2089za700za7za7_2141za7, "finalize", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_nullzd2orzd2unspecifiedzf3zd2envz21zz__biglooz00, BgL_bgl_za762nullza7d2orza7d2u2142za7, BGl_z62nullzd2orzd2unspecifiedzf3z91zz__biglooz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2090z00zz__biglooz00, BgL_bgl_string2090za700za7za7_2143za7, "Illegal keyword argument", 24 );
BGL_DEFINE_STRING(BGl_string2091z00zz__biglooz00, BgL_bgl_string2091za700za7za7_2144za7, "__bigloo", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bmemzd2resetz12zd2envz12zz__biglooz00, BgL_bgl_za762bmemza7d2resetza72145za7, BGl_z62bmemzd2resetz12za2zz__biglooz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2needzd2manglingzf3zd2envz21zz__biglooz00, BgL_bgl_za762biglooza7d2need2146z00, BGl_z62bigloozd2needzd2manglingzf3z91zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_gczd2envzd2zz__biglooz00, BgL_bgl__gcza700za7za7__bigloo2147za7, opt_generic_entry, BGl__gcz00zz__biglooz00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_procedurezd2lengthzd2envz00zz__biglooz00, BgL_bgl_za762procedureza7d2l2148z00, BGl_z62procedurezd2lengthzb0zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_gczd2finaliza7ezd2envza7zz__biglooz00, BgL_bgl_za762gcza7d2finaliza7a2149za7, BGl_z62gczd2finaliza7ez17zz__biglooz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2classzd2mangledzf3zd2envz21zz__biglooz00, BgL_bgl_za762biglooza7d2clas2150z00, BGl_z62bigloozd2classzd2mangledzf3z91zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_opaquezf3zd2envz21zz__biglooz00, BgL_bgl_za762opaqueza7f3za791za72151z00, BGl_z62opaquezf3z91zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2cellzd2envz00zz__biglooz00, BgL_bgl_za762makeza7d2cellza7b2152za7, BGl_z62makezd2cellzb0zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_procedurezd2arityzd2envz00zz__biglooz00, BgL_bgl_za762procedureza7d2a2153z00, BGl_z62procedurezd2arityzb0zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2manglezd2envz00zz__biglooz00, BgL_bgl_za762biglooza7d2mang2154z00, BGl_z62bigloozd2manglezb0zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cellzf3zd2envz21zz__biglooz00, BgL_bgl_za762cellza7f3za791za7za7_2155za7, BGl_z62cellzf3z91zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_registerzd2exitzd2functionz12zd2envzc0zz__biglooz00, BgL_bgl_za762registerza7d2ex2156z00, BGl_z62registerzd2exitzd2functionz12z70zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2demanglezd2envz00zz__biglooz00, BgL_bgl_za762biglooza7d2dema2157z00, BGl_z62bigloozd2demanglezb0zz__biglooz00, 0L, BUNSPEC, 1);
extern obj_t BGl_stringzd2envzd2zz__r4_strings_6_7z00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2modulezd2demanglezd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2modu2158z00, BGl_z62bigloozd2modulezd2demanglez62zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_checkzd2versionz12zd2envz12zz__biglooz00, BgL_bgl_za762checkza7d2versi2159z00, BGl_z62checkzd2versionz12za2zz__biglooz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cnstzf3zd2envz21zz__biglooz00, BgL_bgl_za762cnstza7f3za791za7za7_2160za7, BGl_z62cnstzf3z91zz__biglooz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2024z00zz__biglooz00, BgL_bgl_string2024za700za7za7_2161za7, "bigloo-exit", 11 );
BGL_DEFINE_STRING(BGl_string2025z00zz__biglooz00, BgL_bgl_string2025za700za7za7_2162za7, " (level 0)", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cellzd2refzd2envz00zz__biglooz00, BgL_bgl_za762cellza7d2refza7b02163za7, BGl_z62cellzd2refzb0zz__biglooz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2026z00zz__biglooz00, BgL_bgl_string2026za700za7za7_2164za7, "/tmp/bigloo/runtime/Llib/bigloo.scm", 35 );
BGL_DEFINE_STRING(BGl_string2027z00zz__biglooz00, BgL_bgl_string2027za700za7za7_2165za7, "string-set!", 11 );
BGL_DEFINE_STRING(BGl_string2028z00zz__biglooz00, BgL_bgl_string2028za700za7za7_2166za7, "Some modules have been compiled by: ", 36 );
BGL_DEFINE_STRING(BGl_string2029z00zz__biglooz00, BgL_bgl_string2029za700za7za7_2167za7, "and other by: ", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2exitzd2applyzd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2exit2168z00, BGl_z62bigloozd2exitzd2applyz62zz__biglooz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2030z00zz__biglooz00, BgL_bgl_string2030za700za7za7_2169za7, "&check-version!", 15 );
BGL_DEFINE_STRING(BGl_string2031z00zz__biglooz00, BgL_bgl_string2031za700za7za7_2170za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string2032z00zz__biglooz00, BgL_bgl_string2032za700za7za7_2171za7, "&procedure-arity", 16 );
BGL_DEFINE_STRING(BGl_string2033z00zz__biglooz00, BgL_bgl_string2033za700za7za7_2172za7, "procedure", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2classzd2demanglezd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2clas2173z00, BGl_z62bigloozd2classzd2demanglez62zz__biglooz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2034z00zz__biglooz00, BgL_bgl_string2034za700za7za7_2174za7, "&procedure-length", 17 );
BGL_DEFINE_STRING(BGl_string2035z00zz__biglooz00, BgL_bgl_string2035za700za7za7_2175za7, "&procedure-attr", 15 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_procedurezd2attrzd2setz12zd2envzc0zz__biglooz00, BgL_bgl_za762procedureza7d2a2176z00, BGl_z62procedurezd2attrzd2setz12z70zz__biglooz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2036z00zz__biglooz00, BgL_bgl_string2036za700za7za7_2177za7, "&procedure-attr-set!", 20 );
BGL_DEFINE_STRING(BGl_string2037z00zz__biglooz00, BgL_bgl_string2037za700za7za7_2178za7, "0123456789abcdef", 16 );
BGL_DEFINE_STRING(BGl_string2038z00zz__biglooz00, BgL_bgl_string2038za700za7za7_2179za7, "string-ref", 10 );
BGL_DEFINE_STRING(BGl_string2039z00zz__biglooz00, BgL_bgl_string2039za700za7za7_2180za7, "bigloo-mangle-string", 20 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_timezd2envzd2zz__biglooz00, BgL_bgl_za762timeza762za7za7__bi2181z00, BGl_z62timez62zz__biglooz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cellzd2setz12zd2envz12zz__biglooz00, BgL_bgl_za762cellza7d2setza7122182za7, BGl_z62cellzd2setz12za2zz__biglooz00, 0L, BUNSPEC, 2);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_cellzd2setz12zd2envz12zz__biglooz00, BgL_bgl_za762cellza7d2setza7122182za7);
BGL_BIND_PROCEDURE(BGl_timezd2envzd2zz__biglooz00, BgL_bgl_za762timeza762za7za7__bi2181z00);
BGL_BIND_STRING(BGl_string2039z00zz__biglooz00, BgL_bgl_string2039za700za7za7_2180za7);
BGL_BIND_STRING(BGl_string2038z00zz__biglooz00, BgL_bgl_string2038za700za7za7_2179za7);
BGL_BIND_STRING(BGl_string2037z00zz__biglooz00, BgL_bgl_string2037za700za7za7_2178za7);
BGL_BIND_STRING(BGl_string2036z00zz__biglooz00, BgL_bgl_string2036za700za7za7_2177za7);
BGL_BIND_PROCEDURE(BGl_procedurezd2attrzd2setz12zd2envzc0zz__biglooz00, BgL_bgl_za762procedureza7d2a2176z00);
BGL_BIND_STRING(BGl_string2035z00zz__biglooz00, BgL_bgl_string2035za700za7za7_2175za7);
BGL_BIND_STRING(BGl_string2034z00zz__biglooz00, BgL_bgl_string2034za700za7za7_2174za7);
BGL_BIND_PROCEDURE(BGl_bigloozd2classzd2demanglezd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2clas2173z00);
BGL_BIND_STRING(BGl_string2033z00zz__biglooz00, BgL_bgl_string2033za700za7za7_2172za7);
BGL_BIND_STRING(BGl_string2032z00zz__biglooz00, BgL_bgl_string2032za700za7za7_2171za7);
BGL_BIND_STRING(BGl_string2031z00zz__biglooz00, BgL_bgl_string2031za700za7za7_2170za7);
BGL_BIND_STRING(BGl_string2030z00zz__biglooz00, BgL_bgl_string2030za700za7za7_2169za7);
BGL_BIND_PROCEDURE(BGl_bigloozd2exitzd2applyzd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2exit2168z00);
BGL_BIND_STRING(BGl_string2029z00zz__biglooz00, BgL_bgl_string2029za700za7za7_2167za7);
BGL_BIND_STRING(BGl_string2028z00zz__biglooz00, BgL_bgl_string2028za700za7za7_2166za7);
BGL_BIND_STRING(BGl_string2027z00zz__biglooz00, BgL_bgl_string2027za700za7za7_2165za7);
BGL_BIND_STRING(BGl_string2026z00zz__biglooz00, BgL_bgl_string2026za700za7za7_2164za7);
BGL_BIND_PROCEDURE(BGl_cellzd2refzd2envz00zz__biglooz00, BgL_bgl_za762cellza7d2refza7b02163za7);
BGL_BIND_STRING(BGl_string2025z00zz__biglooz00, BgL_bgl_string2025za700za7za7_2162za7);
BGL_BIND_STRING(BGl_string2024z00zz__biglooz00, BgL_bgl_string2024za700za7za7_2161za7);
BGL_BIND_PROCEDURE(BGl_cnstzf3zd2envz21zz__biglooz00, BgL_bgl_za762cnstza7f3za791za7za7_2160za7);
BGL_BIND_PROCEDURE(BGl_checkzd2versionz12zd2envz12zz__biglooz00, BgL_bgl_za762checkza7d2versi2159z00);
BGL_BIND_PROCEDURE(BGl_bigloozd2modulezd2demanglezd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2modu2158z00);
BGL_BIND_PROCEDURE(BGl_bigloozd2demanglezd2envz00zz__biglooz00, BgL_bgl_za762biglooza7d2dema2157z00);
BGL_BIND_PROCEDURE(BGl_registerzd2exitzd2functionz12zd2envzc0zz__biglooz00, BgL_bgl_za762registerza7d2ex2156z00);
BGL_BIND_PROCEDURE(BGl_cellzf3zd2envz21zz__biglooz00, BgL_bgl_za762cellza7f3za791za7za7_2155za7);
BGL_BIND_PROCEDURE(BGl_bigloozd2manglezd2envz00zz__biglooz00, BgL_bgl_za762biglooza7d2mang2154z00);
BGL_BIND_PROCEDURE(BGl_procedurezd2arityzd2envz00zz__biglooz00, BgL_bgl_za762procedureza7d2a2153z00);
BGL_BIND_PROCEDURE(BGl_makezd2cellzd2envz00zz__biglooz00, BgL_bgl_za762makeza7d2cellza7b2152za7);
BGL_BIND_PROCEDURE(BGl_opaquezf3zd2envz21zz__biglooz00, BgL_bgl_za762opaqueza7f3za791za72151z00);
BGL_BIND_PROCEDURE(BGl_bigloozd2classzd2mangledzf3zd2envz21zz__biglooz00, BgL_bgl_za762biglooza7d2clas2150z00);
BGL_BIND_PROCEDURE(BGl_gczd2finaliza7ezd2envza7zz__biglooz00, BgL_bgl_za762gcza7d2finaliza7a2149za7);
BGL_BIND_PROCEDURE(BGl_procedurezd2lengthzd2envz00zz__biglooz00, BgL_bgl_za762procedureza7d2l2148z00);
BGL_BIND_PROCEDURE(BGl_gczd2envzd2zz__biglooz00, BgL_bgl__gcza700za7za7__bigloo2147za7);
BGL_BIND_PROCEDURE(BGl_bigloozd2needzd2manglingzf3zd2envz21zz__biglooz00, BgL_bgl_za762biglooza7d2need2146z00);
BGL_BIND_PROCEDURE(BGl_bmemzd2resetz12zd2envz12zz__biglooz00, BgL_bgl_za762bmemza7d2resetza72145za7);
BGL_BIND_STRING(BGl_string2091z00zz__biglooz00, BgL_bgl_string2091za700za7za7_2144za7);
BGL_BIND_STRING(BGl_string2090z00zz__biglooz00, BgL_bgl_string2090za700za7za7_2143za7);
BGL_BIND_PROCEDURE(BGl_nullzd2orzd2unspecifiedzf3zd2envz21zz__biglooz00, BgL_bgl_za762nullza7d2orza7d2u2142za7);
BGL_BIND_STRING(BGl_string2089z00zz__biglooz00, BgL_bgl_string2089za700za7za7_2141za7);
BGL_BIND_STRING(BGl_string2086z00zz__biglooz00, BgL_bgl_string2086za700za7za7_2140za7);
BGL_BIND_PROCEDURE(BGl_bigloozd2modulezd2manglezd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2modu2139z00);
BGL_BIND_STRING(BGl_string2085z00zz__biglooz00, BgL_bgl_string2085za700za7za7_2138za7);
BGL_BIND_STRING(BGl_string2084z00zz__biglooz00, BgL_bgl_string2084za700za7za7_2137za7);
BGL_BIND_STRING(BGl_string2083z00zz__biglooz00, BgL_bgl_string2083za700za7za7_2136za7);
BGL_BIND_STRING(BGl_string2081z00zz__biglooz00, BgL_bgl_string2081za700za7za7_2135za7);
BGL_BIND_STRING(BGl_string2080z00zz__biglooz00, BgL_bgl_string2080za700za7za7_2134za7);
BGL_BIND_PROCEDURE(BGl_gczd2verbosezd2setz12zd2envzc0zz__biglooz00, BgL_bgl_za762gcza7d2verboseza72133za7);
BGL_BIND_STRING(BGl_string2079z00zz__biglooz00, BgL_bgl_string2079za700za7za7_2132za7);
BGL_BIND_STRING(BGl_string2078z00zz__biglooz00, BgL_bgl_string2078za700za7za7_2131za7);
BGL_BIND_STRING(BGl_string2077z00zz__biglooz00, BgL_bgl_string2077za700za7za7_2130za7);
BGL_BIND_STRING(BGl_string2075z00zz__biglooz00, BgL_bgl_string2075za700za7za7_2129za7);
BGL_BIND_STRING(BGl_string2073z00zz__biglooz00, BgL_bgl_string2073za700za7za7_2128za7);
BGL_BIND_STRING(BGl_string2071z00zz__biglooz00, BgL_bgl_string2071za700za7za7_2127za7);
BGL_BIND_PROCEDURE(BGl_bigloozd2exitzd2mutexzd2envzd2zz__biglooz00, BgL_bgl_za762biglooza7d2exit2126z00);
BGL_BIND_PROCEDURE(BGl_bigloozd2mangledzf3zd2envzf3zz__biglooz00, BgL_bgl_za762biglooza7d2mang2125z00);
BGL_BIND_STRING(BGl_string2068z00zz__biglooz00, BgL_bgl_string2068za700za7za7_2124za7);
BGL_BIND_STRING(BGl_string2067z00zz__biglooz00, BgL_bgl_string2067za700za7za7_2123za7);
BGL_BIND_STRING(BGl_string2066z00zz__biglooz00, BgL_bgl_string2066za700za7za7_2122za7);
BGL_BIND_STRING(BGl_string2065z00zz__biglooz00, BgL_bgl_string2065za700za7za7_2121za7);
BGL_BIND_STRING(BGl_string2064z00zz__biglooz00, BgL_bgl_string2064za700za7za7_2120za7);
BGL_BIND_STRING(BGl_string2063z00zz__biglooz00, BgL_bgl_string2063za700za7za7_2119za7);
BGL_BIND_STRING(BGl_string2062z00zz__biglooz00, BgL_bgl_string2062za700za7za7_2118za7);
BGL_BIND_STRING(BGl_string2061z00zz__biglooz00, BgL_bgl_string2061za700za7za7_2117za7);
BGL_BIND_STRING(BGl_string2060z00zz__biglooz00, BgL_bgl_string2060za700za7za7_2116za7);
BGL_BIND_PROCEDURE(BGl_opaquezd2nilzd2envz00zz__biglooz00, BgL_bgl_za762opaqueza7d2nilza72115za7);
BGL_BIND_PROCEDURE(BGl_procedurezd2attrzd2envz00zz__biglooz00, BgL_bgl_za762procedureza7d2a2114z00);
BGL_BIND_STRING(BGl_string2059z00zz__biglooz00, BgL_bgl_string2059za700za7za7_2113za7);
BGL_BIND_STRING(BGl_string2058z00zz__biglooz00, BgL_bgl_string2058za700za7za7_2112za7);
BGL_BIND_STRING(BGl_string2057z00zz__biglooz00, BgL_bgl_string2057za700za7za7_2111za7);
BGL_BIND_STRING(BGl_string2056z00zz__biglooz00, BgL_bgl_string2056za700za7za7_2110za7);
BGL_BIND_STRING(BGl_string2055z00zz__biglooz00, BgL_bgl_string2055za700za7za7_2109za7);
BGL_BIND_STRING(BGl_string2054z00zz__biglooz00, BgL_bgl_string2054za700za7za7_2108za7);
BGL_BIND_STRING(BGl_string2053z00zz__biglooz00, BgL_bgl_string2053za700za7za7_2107za7);
BGL_BIND_STRING(BGl_string2052z00zz__biglooz00, BgL_bgl_string2052za700za7za7_2106za7);
BGL_BIND_STRING(BGl_string2051z00zz__biglooz00, BgL_bgl_string2051za700za7za7_2105za7);
BGL_BIND_STRING(BGl_string2050z00zz__biglooz00, BgL_bgl_string2050za700za7za7_2104za7);
BGL_BIND_PROCEDURE(BGl_unregisterzd2exitzd2functionz12zd2envzc0zz__biglooz00, BgL_bgl_za762unregisterza7d22103z00);
BGL_BIND_STRING(BGl_string2049z00zz__biglooz00, BgL_bgl_string2049za700za7za7_2102za7);
BGL_BIND_PROCEDURE(BGl_unspecifiedzd2envzd2zz__biglooz00, BgL_bgl_za762unspecifiedza762101z00);
BGL_BIND_STRING(BGl_string2048z00zz__biglooz00, BgL_bgl_string2048za700za7za7_2100za7);
BGL_BIND_STRING(BGl_string2047z00zz__biglooz00, BgL_bgl_string2047za700za7za7_2099za7);
BGL_BIND_STRING(BGl_string2046z00zz__biglooz00, BgL_bgl_string2046za700za7za7_2098za7);
BGL_BIND_STRING(BGl_string2045z00zz__biglooz00, BgL_bgl_string2045za700za7za7_2097za7);
BGL_BIND_STRING(BGl_string2044z00zz__biglooz00, BgL_bgl_string2044za700za7za7_2096za7);
BGL_BIND_STRING(BGl_string2043z00zz__biglooz00, BgL_bgl_string2043za700za7za7_2095za7);
BGL_BIND_STRING(BGl_string2042z00zz__biglooz00, BgL_bgl_string2042za700za7za7_2094za7);
BGL_BIND_STRING(BGl_string2041z00zz__biglooz00, BgL_bgl_string2041za700za7za7_2093za7);
BGL_BIND_STRING(BGl_string2040z00zz__biglooz00, BgL_bgl_string2040za700za7za7_2092za7);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_symbol2023z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_za2levelza2z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_keyword2088z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_za2exitzd2mutexza2zd2zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_symbol2070z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_symbol2072z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_symbol2074z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_symbol2076z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_symbol2082z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_za2releaseza2z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_list2069z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_list2087z00zz__biglooz00) );
ADD_ROOT( (void *)(&BGl_za2modulesza2z00zz__biglooz00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long BgL_checksumz00_2597, char * BgL_fromz00_2598)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__biglooz00))
{ 
BGl_requirezd2initializa7ationz75zz__biglooz00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__biglooz00(); 
BGl_cnstzd2initzd2zz__biglooz00(); 
BGl_importedzd2moduleszd2initz00zz__biglooz00(); 
return 
BGl_toplevelzd2initzd2zz__biglooz00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 14 */
BGl_symbol2023z00zz__biglooz00 = 
bstring_to_symbol(BGl_string2024z00zz__biglooz00); 
BGl_symbol2070z00zz__biglooz00 = 
bstring_to_symbol(BGl_string2071z00zz__biglooz00); 
BGl_symbol2072z00zz__biglooz00 = 
bstring_to_symbol(BGl_string2073z00zz__biglooz00); 
BGl_symbol2074z00zz__biglooz00 = 
bstring_to_symbol(BGl_string2075z00zz__biglooz00); 
BGl_list2069z00zz__biglooz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2070z00zz__biglooz00, 
MAKE_YOUNG_PAIR(BGl_symbol2072z00zz__biglooz00, 
MAKE_YOUNG_PAIR(BGl_symbol2072z00zz__biglooz00, 
MAKE_YOUNG_PAIR(BGl_symbol2074z00zz__biglooz00, BNIL)))); 
BGl_symbol2076z00zz__biglooz00 = 
bstring_to_symbol(BGl_string2077z00zz__biglooz00); 
BGl_symbol2082z00zz__biglooz00 = 
bstring_to_symbol(BGl_string2083z00zz__biglooz00); 
BGl_keyword2088z00zz__biglooz00 = 
bstring_to_keyword(BGl_string2089z00zz__biglooz00); 
return ( 
BGl_list2087z00zz__biglooz00 = 
MAKE_YOUNG_PAIR(BGl_keyword2088z00zz__biglooz00, BNIL), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 14 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 14 */
BGl_za2releaseza2z00zz__biglooz00 = BFALSE; 
BGl_za2levelza2z00zz__biglooz00 = BFALSE; 
BGl_za2modulesza2z00zz__biglooz00 = BNIL; 
BGl_za2exitzd2mutexza2zd2zz__biglooz00 = 
bgl_make_mutex(BGl_symbol2023z00zz__biglooz00); 
return ( 
BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = BNIL, BUNSPEC) ;} 

}



/* check-version! */
BGL_EXPORTED_DEF obj_t BGl_checkzd2versionz12zc0zz__biglooz00(obj_t BgL_modulez00_3, char * BgL_releasez00_4, obj_t BgL_levelz00_5)
{
{ /* Llib/bigloo.scm 353 */
if(
STRINGP(BGl_za2releaseza2z00zz__biglooz00))
{ /* Llib/bigloo.scm 359 */
 bool_t BgL_test2185z00_2623;
{ /* Llib/bigloo.scm 359 */
 bool_t BgL_test2186z00_2624;
{ /* Llib/bigloo.scm 359 */
 long BgL_minz00_1149;
{ /* Llib/bigloo.scm 359 */
 long BgL_arg1219z00_1152;
{ /* Llib/bigloo.scm 359 */
 long BgL_az00_1153; long BgL_bz00_1154;
BgL_az00_1153 = 
STRING_LENGTH(
string_to_bstring(BgL_releasez00_4)); 
BgL_bz00_1154 = 
STRING_LENGTH(BGl_za2releaseza2z00zz__biglooz00); 
if(
(BgL_az00_1153<BgL_bz00_1154))
{ /* Llib/bigloo.scm 360 */
BgL_arg1219z00_1152 = BgL_az00_1153; }  else 
{ /* Llib/bigloo.scm 360 */
BgL_arg1219z00_1152 = BgL_bz00_1154; } } 
BgL_minz00_1149 = 
(BgL_arg1219z00_1152-1L); } 
{ /* Llib/bigloo.scm 362 */
 obj_t BgL_arg1216z00_1150; obj_t BgL_arg1217z00_1151;
BgL_arg1216z00_1150 = 
BGl_substringz00zz__r4_strings_6_7z00(
string_to_bstring(BgL_releasez00_4), 0L, BgL_minz00_1149); 
BgL_arg1217z00_1151 = 
BGl_substringz00zz__r4_strings_6_7z00(BGl_za2releaseza2z00zz__biglooz00, 0L, BgL_minz00_1149); 
{ /* Llib/bigloo.scm 362 */
 long BgL_l1z00_1838;
BgL_l1z00_1838 = 
STRING_LENGTH(BgL_arg1216z00_1150); 
if(
(BgL_l1z00_1838==
STRING_LENGTH(BgL_arg1217z00_1151)))
{ /* Llib/bigloo.scm 362 */
 int BgL_arg1470z00_1841;
{ /* Llib/bigloo.scm 362 */
 char * BgL_auxz00_2640; char * BgL_tmpz00_2638;
BgL_auxz00_2640 = 
BSTRING_TO_STRING(BgL_arg1217z00_1151); 
BgL_tmpz00_2638 = 
BSTRING_TO_STRING(BgL_arg1216z00_1150); 
BgL_arg1470z00_1841 = 
memcmp(BgL_tmpz00_2638, BgL_auxz00_2640, BgL_l1z00_1838); } 
BgL_test2186z00_2624 = 
(
(long)(BgL_arg1470z00_1841)==0L); }  else 
{ /* Llib/bigloo.scm 362 */
BgL_test2186z00_2624 = ((bool_t)0)
; } } } } 
if(BgL_test2186z00_2624)
{ /* Llib/bigloo.scm 359 */
if(
CHARP(BgL_levelz00_5))
{ /* Llib/bigloo.scm 364 */
if(
CHARP(BGl_za2levelza2z00zz__biglooz00))
{ /* Llib/bigloo.scm 364 */
if(
(
CCHAR(BGl_za2levelza2z00zz__biglooz00)==
CCHAR(BgL_levelz00_5)))
{ /* Llib/bigloo.scm 364 */
BgL_test2185z00_2623 = ((bool_t)0)
; }  else 
{ /* Llib/bigloo.scm 364 */
BgL_test2185z00_2623 = ((bool_t)1)
; } }  else 
{ /* Llib/bigloo.scm 364 */
BgL_test2185z00_2623 = ((bool_t)0)
; } }  else 
{ /* Llib/bigloo.scm 364 */
BgL_test2185z00_2623 = ((bool_t)0)
; } }  else 
{ /* Llib/bigloo.scm 359 */
BgL_test2185z00_2623 = ((bool_t)1)
; } } 
if(BgL_test2185z00_2623)
{ /* Llib/bigloo.scm 372 */
 obj_t BgL_arg1206z00_1134; obj_t BgL_arg1207z00_1135; obj_t BgL_arg1208z00_1136;
{ /* Llib/bigloo.scm 372 */
 obj_t BgL_arg1211z00_1137;
{ /* Llib/bigloo.scm 372 */
 obj_t BgL_releasez00_1854; obj_t BgL_levelz00_1855;
BgL_releasez00_1854 = BGl_za2releaseza2z00zz__biglooz00; 
BgL_levelz00_1855 = BGl_za2levelza2z00zz__biglooz00; 
if(
CHARP(BgL_levelz00_1855))
{ /* Llib/bigloo.scm 367 */
 obj_t BgL_sz00_1857;
BgL_sz00_1857 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BGl_string2025z00zz__biglooz00); 
{ /* Llib/bigloo.scm 368 */
 unsigned char BgL_charz00_1859;
BgL_charz00_1859 = 
CCHAR(BgL_levelz00_1855); 
{ /* Llib/bigloo.scm 368 */
 long BgL_l1805z00_2369;
BgL_l1805z00_2369 = 
STRING_LENGTH(BgL_sz00_1857); 
if(
BOUND_CHECK(8L, BgL_l1805z00_2369))
{ /* Llib/bigloo.scm 368 */
STRING_SET(BgL_sz00_1857, 8L, BgL_charz00_1859); }  else 
{ 
 obj_t BgL_auxz00_2661;
BgL_auxz00_2661 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(13633L), BGl_string2027z00zz__biglooz00, BgL_sz00_1857, 
(int)(BgL_l1805z00_2369), 
(int)(8L)); 
FAILURE(BgL_auxz00_2661,BFALSE,BFALSE);} } } 
BgL_arg1211z00_1137 = 
string_append(BgL_releasez00_1854, BgL_sz00_1857); }  else 
{ /* Llib/bigloo.scm 366 */
BgL_arg1211z00_1137 = BgL_releasez00_1854; } } 
BgL_arg1206z00_1134 = 
string_append(BGl_string2028z00zz__biglooz00, BgL_arg1211z00_1137); } 
{ /* Llib/bigloo.scm 374 */
 obj_t BgL_arg1213z00_1138;
if(
CHARP(BgL_levelz00_5))
{ /* Llib/bigloo.scm 367 */
 obj_t BgL_sz00_1861;
BgL_sz00_1861 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BGl_string2025z00zz__biglooz00); 
{ /* Llib/bigloo.scm 368 */
 unsigned char BgL_charz00_1863;
BgL_charz00_1863 = 
CCHAR(BgL_levelz00_5); 
{ /* Llib/bigloo.scm 368 */
 long BgL_l1809z00_2373;
BgL_l1809z00_2373 = 
STRING_LENGTH(BgL_sz00_1861); 
if(
BOUND_CHECK(8L, BgL_l1809z00_2373))
{ /* Llib/bigloo.scm 368 */
STRING_SET(BgL_sz00_1861, 8L, BgL_charz00_1863); }  else 
{ 
 obj_t BgL_auxz00_2677;
BgL_auxz00_2677 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(13633L), BGl_string2027z00zz__biglooz00, BgL_sz00_1861, 
(int)(BgL_l1809z00_2373), 
(int)(8L)); 
FAILURE(BgL_auxz00_2677,BFALSE,BFALSE);} } } 
BgL_arg1213z00_1138 = 
string_append(
string_to_bstring(BgL_releasez00_4), BgL_sz00_1861); }  else 
{ /* Llib/bigloo.scm 366 */
BgL_arg1213z00_1138 = 
string_to_bstring(BgL_releasez00_4); } 
BgL_arg1207z00_1135 = 
string_append(BGl_string2029z00zz__biglooz00, BgL_arg1213z00_1138); } 
BgL_arg1208z00_1136 = 
MAKE_YOUNG_PAIR(BgL_modulez00_3, BGl_za2modulesza2z00zz__biglooz00); 
return 
BGl_errorz00zz__errorz00(BgL_arg1206z00_1134, BgL_arg1207z00_1135, BgL_arg1208z00_1136);}  else 
{ /* Llib/bigloo.scm 359 */
return ( 
BGl_za2modulesza2z00zz__biglooz00 = 
MAKE_YOUNG_PAIR(BgL_modulez00_3, BGl_za2modulesza2z00zz__biglooz00), BUNSPEC) ;} }  else 
{ /* Llib/bigloo.scm 355 */
{ /* Llib/bigloo.scm 356 */
 obj_t BgL_list1220z00_1156;
BgL_list1220z00_1156 = 
MAKE_YOUNG_PAIR(BgL_modulez00_3, BNIL); 
BGl_za2modulesza2z00zz__biglooz00 = BgL_list1220z00_1156; } 
BGl_za2releaseza2z00zz__biglooz00 = 
string_to_bstring(BgL_releasez00_4); 
return ( 
BGl_za2levelza2z00zz__biglooz00 = BgL_levelz00_5, BUNSPEC) ;} } 

}



/* &check-version! */
obj_t BGl_z62checkzd2versionz12za2zz__biglooz00(obj_t BgL_envz00_2302, obj_t BgL_modulez00_2303, obj_t BgL_releasez00_2304, obj_t BgL_levelz00_2305)
{
{ /* Llib/bigloo.scm 353 */
{ /* Llib/bigloo.scm 355 */
 char * BgL_auxz00_2692;
{ /* Llib/bigloo.scm 355 */
 obj_t BgL_tmpz00_2693;
if(
STRINGP(BgL_releasez00_2304))
{ /* Llib/bigloo.scm 355 */
BgL_tmpz00_2693 = BgL_releasez00_2304
; }  else 
{ 
 obj_t BgL_auxz00_2696;
BgL_auxz00_2696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(13115L), BGl_string2030z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_releasez00_2304); 
FAILURE(BgL_auxz00_2696,BFALSE,BFALSE);} 
BgL_auxz00_2692 = 
BSTRING_TO_STRING(BgL_tmpz00_2693); } 
return 
BGl_checkzd2versionz12zc0zz__biglooz00(BgL_modulez00_2303, BgL_auxz00_2692, BgL_levelz00_2305);} } 

}



/* procedure-arity */
BGL_EXPORTED_DEF int BGl_procedurezd2arityzd2zz__biglooz00(obj_t BgL_procz00_6)
{
{ /* Llib/bigloo.scm 389 */
return 
PROCEDURE_ARITY(BgL_procz00_6);} 

}



/* &procedure-arity */
obj_t BGl_z62procedurezd2arityzb0zz__biglooz00(obj_t BgL_envz00_2306, obj_t BgL_procz00_2307)
{
{ /* Llib/bigloo.scm 389 */
{ /* Llib/bigloo.scm 390 */
 int BgL_tmpz00_2703;
{ /* Llib/bigloo.scm 390 */
 obj_t BgL_auxz00_2704;
if(
PROCEDUREP(BgL_procz00_2307))
{ /* Llib/bigloo.scm 390 */
BgL_auxz00_2704 = BgL_procz00_2307
; }  else 
{ 
 obj_t BgL_auxz00_2707;
BgL_auxz00_2707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(14532L), BGl_string2032z00zz__biglooz00, BGl_string2033z00zz__biglooz00, BgL_procz00_2307); 
FAILURE(BgL_auxz00_2707,BFALSE,BFALSE);} 
BgL_tmpz00_2703 = 
BGl_procedurezd2arityzd2zz__biglooz00(BgL_auxz00_2704); } 
return 
BINT(BgL_tmpz00_2703);} } 

}



/* procedure-length */
BGL_EXPORTED_DEF int BGl_procedurezd2lengthzd2zz__biglooz00(obj_t BgL_procz00_7)
{
{ /* Llib/bigloo.scm 395 */
return 
PROCEDURE_LENGTH(BgL_procz00_7);} 

}



/* &procedure-length */
obj_t BGl_z62procedurezd2lengthzb0zz__biglooz00(obj_t BgL_envz00_2308, obj_t BgL_procz00_2309)
{
{ /* Llib/bigloo.scm 395 */
{ /* Llib/bigloo.scm 396 */
 int BgL_tmpz00_2714;
{ /* Llib/bigloo.scm 396 */
 obj_t BgL_auxz00_2715;
if(
PROCEDUREP(BgL_procz00_2309))
{ /* Llib/bigloo.scm 396 */
BgL_auxz00_2715 = BgL_procz00_2309
; }  else 
{ 
 obj_t BgL_auxz00_2718;
BgL_auxz00_2718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(14822L), BGl_string2034z00zz__biglooz00, BGl_string2033z00zz__biglooz00, BgL_procz00_2309); 
FAILURE(BgL_auxz00_2718,BFALSE,BFALSE);} 
BgL_tmpz00_2714 = 
BGl_procedurezd2lengthzd2zz__biglooz00(BgL_auxz00_2715); } 
return 
BINT(BgL_tmpz00_2714);} } 

}



/* procedure-attr */
BGL_EXPORTED_DEF obj_t BGl_procedurezd2attrzd2zz__biglooz00(obj_t BgL_procz00_8)
{
{ /* Llib/bigloo.scm 401 */
return 
PROCEDURE_ATTR(BgL_procz00_8);} 

}



/* &procedure-attr */
obj_t BGl_z62procedurezd2attrzb0zz__biglooz00(obj_t BgL_envz00_2310, obj_t BgL_procz00_2311)
{
{ /* Llib/bigloo.scm 401 */
{ /* Llib/bigloo.scm 402 */
 obj_t BgL_auxz00_2725;
if(
PROCEDUREP(BgL_procz00_2311))
{ /* Llib/bigloo.scm 402 */
BgL_auxz00_2725 = BgL_procz00_2311
; }  else 
{ 
 obj_t BgL_auxz00_2728;
BgL_auxz00_2728 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(15111L), BGl_string2035z00zz__biglooz00, BGl_string2033z00zz__biglooz00, BgL_procz00_2311); 
FAILURE(BgL_auxz00_2728,BFALSE,BFALSE);} 
return 
BGl_procedurezd2attrzd2zz__biglooz00(BgL_auxz00_2725);} } 

}



/* procedure-attr-set! */
BGL_EXPORTED_DEF obj_t BGl_procedurezd2attrzd2setz12z12zz__biglooz00(obj_t BgL_procz00_9, obj_t BgL_objz00_10)
{
{ /* Llib/bigloo.scm 407 */
PROCEDURE_ATTR_SET(BgL_procz00_9, BgL_objz00_10); 
return BgL_objz00_10;} 

}



/* &procedure-attr-set! */
obj_t BGl_z62procedurezd2attrzd2setz12z70zz__biglooz00(obj_t BgL_envz00_2312, obj_t BgL_procz00_2313, obj_t BgL_objz00_2314)
{
{ /* Llib/bigloo.scm 407 */
{ /* Llib/bigloo.scm 408 */
 obj_t BgL_auxz00_2734;
if(
PROCEDUREP(BgL_procz00_2313))
{ /* Llib/bigloo.scm 408 */
BgL_auxz00_2734 = BgL_procz00_2313
; }  else 
{ 
 obj_t BgL_auxz00_2737;
BgL_auxz00_2737 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(15437L), BGl_string2036z00zz__biglooz00, BGl_string2033z00zz__biglooz00, BgL_procz00_2313); 
FAILURE(BgL_auxz00_2737,BFALSE,BFALSE);} 
return 
BGl_procedurezd2attrzd2setz12z12zz__biglooz00(BgL_auxz00_2734, BgL_objz00_2314);} } 

}



/* unspecified */
BGL_EXPORTED_DEF obj_t BGl_unspecifiedz00zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 414 */
return BUNSPEC;} 

}



/* &unspecified */
obj_t BGl_z62unspecifiedz62zz__biglooz00(obj_t BgL_envz00_2315)
{
{ /* Llib/bigloo.scm 414 */
return 
BGl_unspecifiedz00zz__biglooz00();} 

}



/* null-or-unspecified? */
BGL_EXPORTED_DEF bool_t BGl_nullzd2orzd2unspecifiedzf3zf3zz__biglooz00(obj_t BgL_objz00_11)
{
{ /* Llib/bigloo.scm 420 */
return 
BGL_NULL_OR_UNSPECIFIEDP(BgL_objz00_11);} 

}



/* &null-or-unspecified? */
obj_t BGl_z62nullzd2orzd2unspecifiedzf3z91zz__biglooz00(obj_t BgL_envz00_2316, obj_t BgL_objz00_2317)
{
{ /* Llib/bigloo.scm 420 */
return 
BBOOL(
BGl_nullzd2orzd2unspecifiedzf3zf3zz__biglooz00(BgL_objz00_2317));} 

}



/* cnst? */
BGL_EXPORTED_DEF bool_t BGl_cnstzf3zf3zz__biglooz00(obj_t BgL_objz00_12)
{
{ /* Llib/bigloo.scm 432 */
return 
CNSTP(BgL_objz00_12);} 

}



/* &cnst? */
obj_t BGl_z62cnstzf3z91zz__biglooz00(obj_t BgL_envz00_2318, obj_t BgL_objz00_2319)
{
{ /* Llib/bigloo.scm 432 */
return 
BBOOL(
BGl_cnstzf3zf3zz__biglooz00(BgL_objz00_2319));} 

}



/* opaque? */
BGL_EXPORTED_DEF bool_t BGl_opaquezf3zf3zz__biglooz00(obj_t BgL_objz00_13)
{
{ /* Llib/bigloo.scm 438 */
return 
OPAQUEP(BgL_objz00_13);} 

}



/* &opaque? */
obj_t BGl_z62opaquezf3z91zz__biglooz00(obj_t BgL_envz00_2320, obj_t BgL_objz00_2321)
{
{ /* Llib/bigloo.scm 438 */
return 
BBOOL(
BGl_opaquezf3zf3zz__biglooz00(BgL_objz00_2321));} 

}



/* opaque-nil */
BGL_EXPORTED_DEF obj_t BGl_opaquezd2nilzd2zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 444 */
return 
BGL_OPAQUE_NIL();} 

}



/* &opaque-nil */
obj_t BGl_z62opaquezd2nilzb0zz__biglooz00(obj_t BgL_envz00_2322)
{
{ /* Llib/bigloo.scm 444 */
return 
BGl_opaquezd2nilzd2zz__biglooz00();} 

}



/* mangle-at! */
long BGl_manglezd2atz12zc0zz__biglooz00(obj_t BgL_newz00_15, obj_t BgL_oldz00_16, long BgL_lenz00_17, long BgL_offsetz00_18)
{
{ /* Llib/bigloo.scm 457 */
{ 
 long BgL_rz00_1159; long BgL_wz00_1160; long BgL_newzd2lenzd2_1161; long BgL_checksumz00_1162;
BgL_rz00_1159 = 0L; 
BgL_wz00_1160 = BgL_offsetz00_18; 
BgL_newzd2lenzd2_1161 = BgL_offsetz00_18; 
BgL_checksumz00_1162 = 0L; 
BgL_zc3z04anonymousza31221ze3z87_1163:
if(
(BgL_rz00_1159==BgL_lenz00_17))
{ /* Llib/bigloo.scm 462 */
{ /* Llib/bigloo.scm 464 */
 long BgL_l1813z00_2377;
BgL_l1813z00_2377 = 
STRING_LENGTH(BgL_newz00_15); 
if(
BOUND_CHECK(BgL_wz00_1160, BgL_l1813z00_2377))
{ /* Llib/bigloo.scm 464 */
STRING_SET(BgL_newz00_15, BgL_wz00_1160, ((unsigned char)'z')); }  else 
{ 
 obj_t BgL_auxz00_2760;
BgL_auxz00_2760 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(17739L), BGl_string2027z00zz__biglooz00, BgL_newz00_15, 
(int)(BgL_l1813z00_2377), 
(int)(BgL_wz00_1160)); 
FAILURE(BgL_auxz00_2760,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 466 */
 long BgL_arg1224z00_1165; unsigned char BgL_arg1225z00_1166;
BgL_arg1224z00_1165 = 
(BgL_wz00_1160+1L); 
{ /* Llib/bigloo.scm 451 */
 long BgL_i1816z00_2380;
BgL_i1816z00_2380 = 
(BgL_checksumz00_1162 & 15L); 
if(
BOUND_CHECK(BgL_i1816z00_2380, 16L))
{ /* Llib/bigloo.scm 452 */
BgL_arg1225z00_1166 = 
STRING_REF(BGl_string2037z00zz__biglooz00, BgL_i1816z00_2380); }  else 
{ 
 obj_t BgL_auxz00_2771;
BgL_auxz00_2771 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(17331L), BGl_string2038z00zz__biglooz00, BGl_string2037z00zz__biglooz00, 
(int)(16L), 
(int)(BgL_i1816z00_2380)); 
FAILURE(BgL_auxz00_2771,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 465 */
 long BgL_l1821z00_2385;
BgL_l1821z00_2385 = 
STRING_LENGTH(BgL_newz00_15); 
if(
BOUND_CHECK(BgL_arg1224z00_1165, BgL_l1821z00_2385))
{ /* Llib/bigloo.scm 465 */
STRING_SET(BgL_newz00_15, BgL_arg1224z00_1165, BgL_arg1225z00_1166); }  else 
{ 
 obj_t BgL_auxz00_2781;
BgL_auxz00_2781 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(17769L), BGl_string2027z00zz__biglooz00, BgL_newz00_15, 
(int)(BgL_l1821z00_2385), 
(int)(BgL_arg1224z00_1165)); 
FAILURE(BgL_auxz00_2781,BFALSE,BFALSE);} } } 
{ /* Llib/bigloo.scm 469 */
 long BgL_arg1230z00_1168; unsigned char BgL_arg1231z00_1169;
BgL_arg1230z00_1168 = 
(BgL_wz00_1160+2L); 
{ /* Llib/bigloo.scm 451 */
 long BgL_i1824z00_2388;
BgL_i1824z00_2388 = 
(
(BgL_checksumz00_1162 >> 
(int)(4L)) & 15L); 
if(
BOUND_CHECK(BgL_i1824z00_2388, 16L))
{ /* Llib/bigloo.scm 452 */
BgL_arg1231z00_1169 = 
STRING_REF(BGl_string2037z00zz__biglooz00, BgL_i1824z00_2388); }  else 
{ 
 obj_t BgL_auxz00_2794;
BgL_auxz00_2794 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(17331L), BGl_string2038z00zz__biglooz00, BGl_string2037z00zz__biglooz00, 
(int)(16L), 
(int)(BgL_i1824z00_2388)); 
FAILURE(BgL_auxz00_2794,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 468 */
 long BgL_l1829z00_2393;
BgL_l1829z00_2393 = 
STRING_LENGTH(BgL_newz00_15); 
if(
BOUND_CHECK(BgL_arg1230z00_1168, BgL_l1829z00_2393))
{ /* Llib/bigloo.scm 468 */
STRING_SET(BgL_newz00_15, BgL_arg1230z00_1168, BgL_arg1231z00_1169); }  else 
{ 
 obj_t BgL_auxz00_2804;
BgL_auxz00_2804 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(17849L), BGl_string2027z00zz__biglooz00, BgL_newz00_15, 
(int)(BgL_l1829z00_2393), 
(int)(BgL_arg1230z00_1168)); 
FAILURE(BgL_auxz00_2804,BFALSE,BFALSE);} } } 
return 
(BgL_wz00_1160+3L);}  else 
{ /* Llib/bigloo.scm 472 */
 unsigned char BgL_cz00_1172;
{ /* Llib/bigloo.scm 472 */
 long BgL_l1833z00_2397;
BgL_l1833z00_2397 = 
STRING_LENGTH(BgL_oldz00_16); 
if(
BOUND_CHECK(BgL_rz00_1159, BgL_l1833z00_2397))
{ /* Llib/bigloo.scm 472 */
BgL_cz00_1172 = 
STRING_REF(BgL_oldz00_16, BgL_rz00_1159); }  else 
{ 
 obj_t BgL_auxz00_2815;
BgL_auxz00_2815 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(17964L), BGl_string2038z00zz__biglooz00, BgL_oldz00_16, 
(int)(BgL_l1833z00_2397), 
(int)(BgL_rz00_1159)); 
FAILURE(BgL_auxz00_2815,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 473 */
 bool_t BgL_test2208z00_2821;
{ /* Llib/bigloo.scm 473 */
 bool_t BgL_test2209z00_2822;
if(
isalpha(BgL_cz00_1172))
{ /* Llib/bigloo.scm 473 */
if(
(BgL_cz00_1172==((unsigned char)'z')))
{ /* Llib/bigloo.scm 473 */
BgL_test2209z00_2822 = ((bool_t)0)
; }  else 
{ /* Llib/bigloo.scm 473 */
BgL_test2209z00_2822 = ((bool_t)1)
; } }  else 
{ /* Llib/bigloo.scm 473 */
BgL_test2209z00_2822 = ((bool_t)0)
; } 
if(BgL_test2209z00_2822)
{ /* Llib/bigloo.scm 473 */
BgL_test2208z00_2821 = ((bool_t)1)
; }  else 
{ /* Llib/bigloo.scm 473 */
if(
isdigit(BgL_cz00_1172))
{ /* Llib/bigloo.scm 474 */
BgL_test2208z00_2821 = ((bool_t)1)
; }  else 
{ /* Llib/bigloo.scm 474 */
BgL_test2208z00_2821 = 
(BgL_cz00_1172==((unsigned char)'_'))
; } } } 
if(BgL_test2208z00_2821)
{ /* Llib/bigloo.scm 473 */
{ /* Llib/bigloo.scm 477 */
 long BgL_l1837z00_2401;
BgL_l1837z00_2401 = 
STRING_LENGTH(BgL_newz00_15); 
if(
BOUND_CHECK(BgL_wz00_1160, BgL_l1837z00_2401))
{ /* Llib/bigloo.scm 477 */
STRING_SET(BgL_newz00_15, BgL_wz00_1160, BgL_cz00_1172); }  else 
{ 
 obj_t BgL_auxz00_2834;
BgL_auxz00_2834 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(18112L), BGl_string2027z00zz__biglooz00, BgL_newz00_15, 
(int)(BgL_l1837z00_2401), 
(int)(BgL_wz00_1160)); 
FAILURE(BgL_auxz00_2834,BFALSE,BFALSE);} } 
{ 
 long BgL_newzd2lenzd2_2844; long BgL_wz00_2842; long BgL_rz00_2840;
BgL_rz00_2840 = 
(BgL_rz00_1159+1L); 
BgL_wz00_2842 = 
(BgL_wz00_1160+1L); 
BgL_newzd2lenzd2_2844 = 
(BgL_newzd2lenzd2_1161+1L); 
BgL_newzd2lenzd2_1161 = BgL_newzd2lenzd2_2844; 
BgL_wz00_1160 = BgL_wz00_2842; 
BgL_rz00_1159 = BgL_rz00_2840; 
goto BgL_zc3z04anonymousza31221ze3z87_1163;} }  else 
{ /* Llib/bigloo.scm 482 */
 long BgL_icz00_1183;
BgL_icz00_1183 = 
(BgL_cz00_1172); 
{ /* Llib/bigloo.scm 483 */
 long BgL_l1841z00_2405;
BgL_l1841z00_2405 = 
STRING_LENGTH(BgL_newz00_15); 
if(
BOUND_CHECK(BgL_wz00_1160, BgL_l1841z00_2405))
{ /* Llib/bigloo.scm 483 */
STRING_SET(BgL_newz00_15, BgL_wz00_1160, ((unsigned char)'z')); }  else 
{ 
 obj_t BgL_auxz00_2851;
BgL_auxz00_2851 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(18247L), BGl_string2027z00zz__biglooz00, BgL_newz00_15, 
(int)(BgL_l1841z00_2405), 
(int)(BgL_wz00_1160)); 
FAILURE(BgL_auxz00_2851,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 485 */
 long BgL_arg1249z00_1184; unsigned char BgL_arg1252z00_1185;
BgL_arg1249z00_1184 = 
(BgL_wz00_1160+1L); 
{ /* Llib/bigloo.scm 451 */
 long BgL_i1844z00_2408;
BgL_i1844z00_2408 = 
(BgL_icz00_1183 & 15L); 
if(
BOUND_CHECK(BgL_i1844z00_2408, 16L))
{ /* Llib/bigloo.scm 452 */
BgL_arg1252z00_1185 = 
STRING_REF(BGl_string2037z00zz__biglooz00, BgL_i1844z00_2408); }  else 
{ 
 obj_t BgL_auxz00_2862;
BgL_auxz00_2862 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(17331L), BGl_string2038z00zz__biglooz00, BGl_string2037z00zz__biglooz00, 
(int)(16L), 
(int)(BgL_i1844z00_2408)); 
FAILURE(BgL_auxz00_2862,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 484 */
 long BgL_l1849z00_2413;
BgL_l1849z00_2413 = 
STRING_LENGTH(BgL_newz00_15); 
if(
BOUND_CHECK(BgL_arg1249z00_1184, BgL_l1849z00_2413))
{ /* Llib/bigloo.scm 484 */
STRING_SET(BgL_newz00_15, BgL_arg1249z00_1184, BgL_arg1252z00_1185); }  else 
{ 
 obj_t BgL_auxz00_2872;
BgL_auxz00_2872 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(18277L), BGl_string2027z00zz__biglooz00, BgL_newz00_15, 
(int)(BgL_l1849z00_2413), 
(int)(BgL_arg1249z00_1184)); 
FAILURE(BgL_auxz00_2872,BFALSE,BFALSE);} } } 
{ /* Llib/bigloo.scm 488 */
 long BgL_arg1254z00_1187; unsigned char BgL_arg1258z00_1188;
BgL_arg1254z00_1187 = 
(BgL_wz00_1160+2L); 
{ /* Llib/bigloo.scm 451 */
 long BgL_i1852z00_2416;
BgL_i1852z00_2416 = 
(
(BgL_icz00_1183 >> 
(int)(4L)) & 15L); 
if(
BOUND_CHECK(BgL_i1852z00_2416, 16L))
{ /* Llib/bigloo.scm 452 */
BgL_arg1258z00_1188 = 
STRING_REF(BGl_string2037z00zz__biglooz00, BgL_i1852z00_2416); }  else 
{ 
 obj_t BgL_auxz00_2885;
BgL_auxz00_2885 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(17331L), BGl_string2038z00zz__biglooz00, BGl_string2037z00zz__biglooz00, 
(int)(16L), 
(int)(BgL_i1852z00_2416)); 
FAILURE(BgL_auxz00_2885,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 487 */
 long BgL_l1857z00_2421;
BgL_l1857z00_2421 = 
STRING_LENGTH(BgL_newz00_15); 
if(
BOUND_CHECK(BgL_arg1254z00_1187, BgL_l1857z00_2421))
{ /* Llib/bigloo.scm 487 */
STRING_SET(BgL_newz00_15, BgL_arg1254z00_1187, BgL_arg1258z00_1188); }  else 
{ 
 obj_t BgL_auxz00_2895;
BgL_auxz00_2895 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(18351L), BGl_string2027z00zz__biglooz00, BgL_newz00_15, 
(int)(BgL_l1857z00_2421), 
(int)(BgL_arg1254z00_1187)); 
FAILURE(BgL_auxz00_2895,BFALSE,BFALSE);} } } 
{ 
 long BgL_checksumz00_2907; long BgL_newzd2lenzd2_2905; long BgL_wz00_2903; long BgL_rz00_2901;
BgL_rz00_2901 = 
(BgL_rz00_1159+1L); 
BgL_wz00_2903 = 
(BgL_wz00_1160+3L); 
BgL_newzd2lenzd2_2905 = 
(BgL_newzd2lenzd2_1161+3L); 
BgL_checksumz00_2907 = 
(BgL_checksumz00_1162 ^ 
(BgL_cz00_1172)); 
BgL_checksumz00_1162 = BgL_checksumz00_2907; 
BgL_newzd2lenzd2_1161 = BgL_newzd2lenzd2_2905; 
BgL_wz00_1160 = BgL_wz00_2903; 
BgL_rz00_1159 = BgL_rz00_2901; 
goto BgL_zc3z04anonymousza31221ze3z87_1163;} } } } } } 

}



/* bigloo-mangle */
BGL_EXPORTED_DEF obj_t bigloo_mangle(obj_t BgL_stringz00_19)
{
{ /* Llib/bigloo.scm 498 */
{ /* Llib/bigloo.scm 499 */
 long BgL_lenz00_1201;
BgL_lenz00_1201 = 
STRING_LENGTH(BgL_stringz00_19); 
{ /* Llib/bigloo.scm 499 */
 obj_t BgL_newz00_1202;
{ /* Llib/bigloo.scm 500 */
 long BgL_arg1269z00_1205;
BgL_arg1269z00_1205 = 
(
(BgL_lenz00_1201*3L)+7L); 
{ /* Ieee/string.scm 172 */

BgL_newz00_1202 = 
make_string(BgL_arg1269z00_1205, ((unsigned char)' ')); } } 
{ /* Llib/bigloo.scm 500 */

if(
(BgL_lenz00_1201==0L))
{ /* Llib/bigloo.scm 502 */
 obj_t BgL_aux1961z00_2526;
BgL_aux1961z00_2526 = 
BGl_errorz00zz__errorz00(BGl_string2039z00zz__biglooz00, BGl_string2040z00zz__biglooz00, BgL_stringz00_19); 
if(
STRINGP(BgL_aux1961z00_2526))
{ /* Llib/bigloo.scm 502 */
return BgL_aux1961z00_2526;}  else 
{ 
 obj_t BgL_auxz00_2919;
BgL_auxz00_2919 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(18900L), BGl_string2041z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_aux1961z00_2526); 
FAILURE(BgL_auxz00_2919,BFALSE,BFALSE);} }  else 
{ /* Llib/bigloo.scm 503 */
 long BgL_stopz00_1204;
BgL_stopz00_1204 = 
BGl_manglezd2atz12zc0zz__biglooz00(BgL_newz00_1202, BgL_stringz00_19, BgL_lenz00_1201, 4L); 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string2042z00zz__biglooz00, 0L, BgL_newz00_1202, 0L, 4L); 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_newz00_1202, 0L, BgL_stopz00_1204);} } } } } 

}



/* &bigloo-mangle */
obj_t BGl_z62bigloozd2manglezb0zz__biglooz00(obj_t BgL_envz00_2323, obj_t BgL_stringz00_2324)
{
{ /* Llib/bigloo.scm 498 */
{ /* Llib/bigloo.scm 499 */
 obj_t BgL_auxz00_2926;
if(
STRINGP(BgL_stringz00_2324))
{ /* Llib/bigloo.scm 499 */
BgL_auxz00_2926 = BgL_stringz00_2324
; }  else 
{ 
 obj_t BgL_auxz00_2929;
BgL_auxz00_2929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(18795L), BGl_string2043z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_stringz00_2324); 
FAILURE(BgL_auxz00_2929,BFALSE,BFALSE);} 
return 
bigloo_mangle(BgL_auxz00_2926);} } 

}



/* bigloo-module-mangle */
BGL_EXPORTED_DEF obj_t bigloo_module_mangle(obj_t BgL_idz00_20, obj_t BgL_modulez00_21)
{
{ /* Llib/bigloo.scm 510 */
{ /* Llib/bigloo.scm 511 */
 long BgL_lenz00_1209;
BgL_lenz00_1209 = 
(
STRING_LENGTH(BgL_idz00_20)+
STRING_LENGTH(BgL_modulez00_21)); 
{ /* Llib/bigloo.scm 511 */
 obj_t BgL_newz00_1210;
{ /* Llib/bigloo.scm 512 */
 long BgL_arg1280z00_1218;
BgL_arg1280z00_1218 = 
(
(BgL_lenz00_1209*3L)+12L); 
{ /* Ieee/string.scm 172 */

BgL_newz00_1210 = 
make_string(BgL_arg1280z00_1218, ((unsigned char)' ')); } } 
{ /* Llib/bigloo.scm 512 */

if(
(BgL_lenz00_1209==0L))
{ /* Llib/bigloo.scm 514 */
 obj_t BgL_aux1965z00_2530;
BgL_aux1965z00_2530 = 
BGl_errorz00zz__errorz00(BGl_string2039z00zz__biglooz00, BGl_string2040z00zz__biglooz00, BGl_stringzd2envzd2zz__r4_strings_6_7z00); 
if(
STRINGP(BgL_aux1965z00_2530))
{ /* Llib/bigloo.scm 514 */
return BgL_aux1965z00_2530;}  else 
{ 
 obj_t BgL_auxz00_2945;
BgL_auxz00_2945 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(19482L), BGl_string2044z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_aux1965z00_2530); 
FAILURE(BgL_auxz00_2945,BFALSE,BFALSE);} }  else 
{ /* Llib/bigloo.scm 515 */
 long BgL_modzd2startzd2_1212;
BgL_modzd2startzd2_1212 = 
BGl_manglezd2atz12zc0zz__biglooz00(BgL_newz00_1210, BgL_idz00_20, 
STRING_LENGTH(BgL_idz00_20), 4L); 
{ /* Llib/bigloo.scm 516 */
 long BgL_l1861z00_2425;
BgL_l1861z00_2425 = 
STRING_LENGTH(BgL_newz00_1210); 
if(
BOUND_CHECK(BgL_modzd2startzd2_1212, BgL_l1861z00_2425))
{ /* Llib/bigloo.scm 516 */
STRING_SET(BgL_newz00_1210, BgL_modzd2startzd2_1212, ((unsigned char)'z')); }  else 
{ 
 obj_t BgL_auxz00_2955;
BgL_auxz00_2955 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(19617L), BGl_string2027z00zz__biglooz00, BgL_newz00_1210, 
(int)(BgL_l1861z00_2425), 
(int)(BgL_modzd2startzd2_1212)); 
FAILURE(BgL_auxz00_2955,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 517 */
 long BgL_arg1274z00_1213;
BgL_arg1274z00_1213 = 
(1L+BgL_modzd2startzd2_1212); 
{ /* Llib/bigloo.scm 517 */
 long BgL_l1865z00_2429;
BgL_l1865z00_2429 = 
STRING_LENGTH(BgL_newz00_1210); 
if(
BOUND_CHECK(BgL_arg1274z00_1213, BgL_l1865z00_2429))
{ /* Llib/bigloo.scm 517 */
STRING_SET(BgL_newz00_1210, BgL_arg1274z00_1213, ((unsigned char)'z')); }  else 
{ 
 obj_t BgL_auxz00_2966;
BgL_auxz00_2966 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(19655L), BGl_string2027z00zz__biglooz00, BgL_newz00_1210, 
(int)(BgL_l1865z00_2429), 
(int)(BgL_arg1274z00_1213)); 
FAILURE(BgL_auxz00_2966,BFALSE,BFALSE);} } } 
{ /* Llib/bigloo.scm 518 */
 long BgL_stopz00_1214;
BgL_stopz00_1214 = 
BGl_manglezd2atz12zc0zz__biglooz00(BgL_newz00_1210, BgL_modulez00_21, 
STRING_LENGTH(BgL_modulez00_21), 
(BgL_modzd2startzd2_1212+2L)); 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string2045z00zz__biglooz00, 0L, BgL_newz00_1210, 0L, 4L); 
return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_newz00_1210, 0L, BgL_stopz00_1214);} } } } } } 

}



/* &bigloo-module-mangle */
obj_t BGl_z62bigloozd2modulezd2manglez62zz__biglooz00(obj_t BgL_envz00_2325, obj_t BgL_idz00_2326, obj_t BgL_modulez00_2327)
{
{ /* Llib/bigloo.scm 510 */
{ /* Llib/bigloo.scm 511 */
 obj_t BgL_auxz00_2984; obj_t BgL_auxz00_2977;
if(
STRINGP(BgL_modulez00_2327))
{ /* Llib/bigloo.scm 511 */
BgL_auxz00_2984 = BgL_modulez00_2327
; }  else 
{ 
 obj_t BgL_auxz00_2987;
BgL_auxz00_2987 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(19351L), BGl_string2046z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_modulez00_2327); 
FAILURE(BgL_auxz00_2987,BFALSE,BFALSE);} 
if(
STRINGP(BgL_idz00_2326))
{ /* Llib/bigloo.scm 511 */
BgL_auxz00_2977 = BgL_idz00_2326
; }  else 
{ 
 obj_t BgL_auxz00_2980;
BgL_auxz00_2980 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(19351L), BGl_string2046z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_idz00_2326); 
FAILURE(BgL_auxz00_2980,BFALSE,BFALSE);} 
return 
bigloo_module_mangle(BgL_auxz00_2977, BgL_auxz00_2984);} } 

}



/* bigloo-mangled? */
BGL_EXPORTED_DEF bool_t bigloo_mangledp(obj_t BgL_stringz00_22)
{
{ /* Llib/bigloo.scm 527 */
{ /* Llib/bigloo.scm 528 */
 long BgL_lenz00_1224;
BgL_lenz00_1224 = 
STRING_LENGTH(BgL_stringz00_22); 
if(
(BgL_lenz00_1224>7L))
{ /* Llib/bigloo.scm 530 */
 bool_t BgL_test2229z00_2995;
{ /* Llib/bigloo.scm 530 */
 bool_t BgL__ortest_1045z00_1241;
BgL__ortest_1045z00_1241 = 
bigloo_strncmp(BgL_stringz00_22, BGl_string2042z00zz__biglooz00, 4L); 
if(BgL__ortest_1045z00_1241)
{ /* Llib/bigloo.scm 530 */
BgL_test2229z00_2995 = BgL__ortest_1045z00_1241
; }  else 
{ /* Llib/bigloo.scm 530 */
BgL_test2229z00_2995 = 
bigloo_strncmp(BgL_stringz00_22, BGl_string2045z00zz__biglooz00, 4L)
; } } 
if(BgL_test2229z00_2995)
{ /* Llib/bigloo.scm 532 */
 bool_t BgL_test2231z00_2999;
{ /* Llib/bigloo.scm 532 */
 unsigned char BgL_tmpz00_3000;
{ /* Llib/bigloo.scm 532 */
 long BgL_i1868z00_2432;
BgL_i1868z00_2432 = 
(BgL_lenz00_1224-3L); 
if(
BOUND_CHECK(BgL_i1868z00_2432, BgL_lenz00_1224))
{ /* Llib/bigloo.scm 532 */
BgL_tmpz00_3000 = 
STRING_REF(BgL_stringz00_22, BgL_i1868z00_2432)
; }  else 
{ 
 obj_t BgL_auxz00_3005;
BgL_auxz00_3005 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20269L), BGl_string2038z00zz__biglooz00, BgL_stringz00_22, 
(int)(BgL_lenz00_1224), 
(int)(BgL_i1868z00_2432)); 
FAILURE(BgL_auxz00_3005,BFALSE,BFALSE);} } 
BgL_test2231z00_2999 = 
(BgL_tmpz00_3000==((unsigned char)'z')); } 
if(BgL_test2231z00_2999)
{ /* Llib/bigloo.scm 533 */
 bool_t BgL_test2233z00_3012;
{ /* Llib/bigloo.scm 533 */
 bool_t BgL__ortest_1046z00_1234;
{ /* Llib/bigloo.scm 533 */
 unsigned char BgL_arg1296z00_1237;
{ /* Llib/bigloo.scm 533 */
 long BgL_i1872z00_2436;
BgL_i1872z00_2436 = 
(BgL_lenz00_1224-2L); 
{ /* Llib/bigloo.scm 533 */
 long BgL_l1873z00_2437;
BgL_l1873z00_2437 = 
STRING_LENGTH(BgL_stringz00_22); 
if(
BOUND_CHECK(BgL_i1872z00_2436, BgL_l1873z00_2437))
{ /* Llib/bigloo.scm 533 */
BgL_arg1296z00_1237 = 
STRING_REF(BgL_stringz00_22, BgL_i1872z00_2436); }  else 
{ 
 obj_t BgL_auxz00_3018;
BgL_auxz00_3018 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20332L), BGl_string2038z00zz__biglooz00, BgL_stringz00_22, 
(int)(BgL_l1873z00_2437), 
(int)(BgL_i1872z00_2436)); 
FAILURE(BgL_auxz00_3018,BFALSE,BFALSE);} } } 
BgL__ortest_1046z00_1234 = 
isalpha(BgL_arg1296z00_1237); } 
if(BgL__ortest_1046z00_1234)
{ /* Llib/bigloo.scm 533 */
BgL_test2233z00_3012 = BgL__ortest_1046z00_1234
; }  else 
{ /* Llib/bigloo.scm 534 */
 unsigned char BgL_arg1293z00_1235;
{ /* Llib/bigloo.scm 534 */
 long BgL_i1876z00_2440;
BgL_i1876z00_2440 = 
(BgL_lenz00_1224-2L); 
{ /* Llib/bigloo.scm 534 */
 long BgL_l1877z00_2441;
BgL_l1877z00_2441 = 
STRING_LENGTH(BgL_stringz00_22); 
if(
BOUND_CHECK(BgL_i1876z00_2440, BgL_l1877z00_2441))
{ /* Llib/bigloo.scm 534 */
BgL_arg1293z00_1235 = 
STRING_REF(BgL_stringz00_22, BgL_i1876z00_2440); }  else 
{ 
 obj_t BgL_auxz00_3031;
BgL_auxz00_3031 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20388L), BGl_string2038z00zz__biglooz00, BgL_stringz00_22, 
(int)(BgL_l1877z00_2441), 
(int)(BgL_i1876z00_2440)); 
FAILURE(BgL_auxz00_3031,BFALSE,BFALSE);} } } 
BgL_test2233z00_3012 = 
isdigit(BgL_arg1293z00_1235); } } 
if(BgL_test2233z00_3012)
{ /* Llib/bigloo.scm 535 */
 bool_t BgL__ortest_1047z00_1229;
{ /* Llib/bigloo.scm 535 */
 unsigned char BgL_arg1291z00_1232;
{ /* Llib/bigloo.scm 535 */
 long BgL_i1880z00_2444;
BgL_i1880z00_2444 = 
(BgL_lenz00_1224-1L); 
{ /* Llib/bigloo.scm 535 */
 long BgL_l1881z00_2445;
BgL_l1881z00_2445 = 
STRING_LENGTH(BgL_stringz00_22); 
if(
BOUND_CHECK(BgL_i1880z00_2444, BgL_l1881z00_2445))
{ /* Llib/bigloo.scm 535 */
BgL_arg1291z00_1232 = 
STRING_REF(BgL_stringz00_22, BgL_i1880z00_2444); }  else 
{ 
 obj_t BgL_auxz00_3043;
BgL_auxz00_3043 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20448L), BGl_string2038z00zz__biglooz00, BgL_stringz00_22, 
(int)(BgL_l1881z00_2445), 
(int)(BgL_i1880z00_2444)); 
FAILURE(BgL_auxz00_3043,BFALSE,BFALSE);} } } 
BgL__ortest_1047z00_1229 = 
isalpha(BgL_arg1291z00_1232); } 
if(BgL__ortest_1047z00_1229)
{ /* Llib/bigloo.scm 535 */
return BgL__ortest_1047z00_1229;}  else 
{ /* Llib/bigloo.scm 536 */
 unsigned char BgL_arg1285z00_1230;
{ /* Llib/bigloo.scm 536 */
 long BgL_i1884z00_2448;
BgL_i1884z00_2448 = 
(BgL_lenz00_1224-1L); 
{ /* Llib/bigloo.scm 536 */
 long BgL_l1885z00_2449;
BgL_l1885z00_2449 = 
STRING_LENGTH(BgL_stringz00_22); 
if(
BOUND_CHECK(BgL_i1884z00_2448, BgL_l1885z00_2449))
{ /* Llib/bigloo.scm 536 */
BgL_arg1285z00_1230 = 
STRING_REF(BgL_stringz00_22, BgL_i1884z00_2448); }  else 
{ 
 obj_t BgL_auxz00_3056;
BgL_auxz00_3056 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20504L), BGl_string2038z00zz__biglooz00, BgL_stringz00_22, 
(int)(BgL_l1885z00_2449), 
(int)(BgL_i1884z00_2448)); 
FAILURE(BgL_auxz00_3056,BFALSE,BFALSE);} } } 
return 
isdigit(BgL_arg1285z00_1230);} }  else 
{ /* Llib/bigloo.scm 533 */
return ((bool_t)0);} }  else 
{ /* Llib/bigloo.scm 532 */
return ((bool_t)0);} }  else 
{ /* Llib/bigloo.scm 530 */
return ((bool_t)0);} }  else 
{ /* Llib/bigloo.scm 529 */
return ((bool_t)0);} } } 

}



/* &bigloo-mangled? */
obj_t BGl_z62bigloozd2mangledzf3z43zz__biglooz00(obj_t BgL_envz00_2330, obj_t BgL_stringz00_2331)
{
{ /* Llib/bigloo.scm 527 */
{ /* Llib/bigloo.scm 528 */
 bool_t BgL_tmpz00_3063;
{ /* Llib/bigloo.scm 528 */
 obj_t BgL_auxz00_3064;
if(
STRINGP(BgL_stringz00_2331))
{ /* Llib/bigloo.scm 528 */
BgL_auxz00_3064 = BgL_stringz00_2331
; }  else 
{ 
 obj_t BgL_auxz00_3067;
BgL_auxz00_3067 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20121L), BGl_string2047z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_stringz00_2331); 
FAILURE(BgL_auxz00_3067,BFALSE,BFALSE);} 
BgL_tmpz00_3063 = 
bigloo_mangledp(BgL_auxz00_3064); } 
return 
BBOOL(BgL_tmpz00_3063);} } 

}



/* bigloo-need-mangling? */
BGL_EXPORTED_DEF bool_t BGl_bigloozd2needzd2manglingzf3zf3zz__biglooz00(obj_t BgL_stringz00_23)
{
{ /* Llib/bigloo.scm 541 */
{ /* Llib/bigloo.scm 542 */
 long BgL_lenz00_1242;
BgL_lenz00_1242 = 
STRING_LENGTH(BgL_stringz00_23); 
if(
(BgL_lenz00_1242>0L))
{ /* Llib/bigloo.scm 544 */
 bool_t BgL__ortest_1049z00_1244;
{ /* Llib/bigloo.scm 544 */
 bool_t BgL_test2242z00_3076;
{ /* Llib/bigloo.scm 544 */
 bool_t BgL_test2243z00_3077;
{ /* Llib/bigloo.scm 544 */
 unsigned char BgL_arg1336z00_1264;
if(
BOUND_CHECK(0L, BgL_lenz00_1242))
{ /* Llib/bigloo.scm 544 */
BgL_arg1336z00_1264 = 
STRING_REF(BgL_stringz00_23, 0L); }  else 
{ 
 obj_t BgL_auxz00_3081;
BgL_auxz00_3081 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20900L), BGl_string2038z00zz__biglooz00, BgL_stringz00_23, 
(int)(BgL_lenz00_1242), 
(int)(0L)); 
FAILURE(BgL_auxz00_3081,BFALSE,BFALSE);} 
BgL_test2243z00_3077 = 
isalpha(BgL_arg1336z00_1264); } 
if(BgL_test2243z00_3077)
{ /* Llib/bigloo.scm 544 */
BgL_test2242z00_3076 = ((bool_t)1)
; }  else 
{ /* Llib/bigloo.scm 545 */
 unsigned char BgL_tmpz00_3088;
{ /* Llib/bigloo.scm 545 */
 long BgL_l1893z00_2457;
BgL_l1893z00_2457 = 
STRING_LENGTH(BgL_stringz00_23); 
if(
BOUND_CHECK(0L, BgL_l1893z00_2457))
{ /* Llib/bigloo.scm 545 */
BgL_tmpz00_3088 = 
STRING_REF(BgL_stringz00_23, 0L)
; }  else 
{ 
 obj_t BgL_auxz00_3093;
BgL_auxz00_3093 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20934L), BGl_string2038z00zz__biglooz00, BgL_stringz00_23, 
(int)(BgL_l1893z00_2457), 
(int)(0L)); 
FAILURE(BgL_auxz00_3093,BFALSE,BFALSE);} } 
BgL_test2242z00_3076 = 
(BgL_tmpz00_3088==((unsigned char)'_')); } } 
if(BgL_test2242z00_3076)
{ /* Llib/bigloo.scm 544 */
BgL__ortest_1049z00_1244 = ((bool_t)0); }  else 
{ /* Llib/bigloo.scm 544 */
BgL__ortest_1049z00_1244 = ((bool_t)1); } } 
if(BgL__ortest_1049z00_1244)
{ /* Llib/bigloo.scm 544 */
return BgL__ortest_1049z00_1244;}  else 
{ 
 long BgL_iz00_1246;
BgL_iz00_1246 = 1L; 
BgL_zc3z04anonymousza31323ze3z87_1247:
if(
(BgL_iz00_1246>=BgL_lenz00_1242))
{ /* Llib/bigloo.scm 547 */
return ((bool_t)0);}  else 
{ /* Llib/bigloo.scm 549 */
 unsigned char BgL_cz00_1249;
{ /* Llib/bigloo.scm 549 */
 long BgL_l1897z00_2461;
BgL_l1897z00_2461 = 
STRING_LENGTH(BgL_stringz00_23); 
if(
BOUND_CHECK(BgL_iz00_1246, BgL_l1897z00_2461))
{ /* Llib/bigloo.scm 549 */
BgL_cz00_1249 = 
STRING_REF(BgL_stringz00_23, BgL_iz00_1246); }  else 
{ 
 obj_t BgL_auxz00_3107;
BgL_auxz00_3107 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(21038L), BGl_string2038z00zz__biglooz00, BgL_stringz00_23, 
(int)(BgL_l1897z00_2461), 
(int)(BgL_iz00_1246)); 
FAILURE(BgL_auxz00_3107,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 550 */
 bool_t BgL_test2249z00_3113;
if(
isalpha(BgL_cz00_1249))
{ /* Llib/bigloo.scm 550 */
BgL_test2249z00_3113 = ((bool_t)1)
; }  else 
{ /* Llib/bigloo.scm 550 */
if(
isdigit(BgL_cz00_1249))
{ /* Llib/bigloo.scm 551 */
BgL_test2249z00_3113 = ((bool_t)1)
; }  else 
{ /* Llib/bigloo.scm 551 */
BgL_test2249z00_3113 = 
(BgL_cz00_1249==((unsigned char)'_'))
; } } 
if(BgL_test2249z00_3113)
{ 
 long BgL_iz00_3119;
BgL_iz00_3119 = 
(BgL_iz00_1246+1L); 
BgL_iz00_1246 = BgL_iz00_3119; 
goto BgL_zc3z04anonymousza31323ze3z87_1247;}  else 
{ /* Llib/bigloo.scm 550 */
return ((bool_t)1);} } } } }  else 
{ /* Llib/bigloo.scm 543 */
return ((bool_t)0);} } } 

}



/* &bigloo-need-mangling? */
obj_t BGl_z62bigloozd2needzd2manglingzf3z91zz__biglooz00(obj_t BgL_envz00_2332, obj_t BgL_stringz00_2333)
{
{ /* Llib/bigloo.scm 541 */
{ /* Llib/bigloo.scm 542 */
 bool_t BgL_tmpz00_3121;
{ /* Llib/bigloo.scm 542 */
 obj_t BgL_auxz00_3122;
if(
STRINGP(BgL_stringz00_2333))
{ /* Llib/bigloo.scm 542 */
BgL_auxz00_3122 = BgL_stringz00_2333
; }  else 
{ 
 obj_t BgL_auxz00_3125;
BgL_auxz00_3125 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(20806L), BGl_string2048z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_stringz00_2333); 
FAILURE(BgL_auxz00_3125,BFALSE,BFALSE);} 
BgL_tmpz00_3121 = 
BGl_bigloozd2needzd2manglingzf3zf3zz__biglooz00(BgL_auxz00_3122); } 
return 
BBOOL(BgL_tmpz00_3121);} } 

}



/* bigloo-demangle */
BGL_EXPORTED_DEF obj_t bigloo_demangle(obj_t BgL_stringz00_24)
{
{ /* Llib/bigloo.scm 559 */
{ /* Llib/bigloo.scm 560 */
 long BgL_lenz00_1265;
BgL_lenz00_1265 = 
STRING_LENGTH(BgL_stringz00_24); 
{ /* Llib/bigloo.scm 560 */
 long BgL_clenz00_1266;
BgL_clenz00_1266 = 
(BgL_lenz00_1265-3L); 
{ /* Llib/bigloo.scm 561 */

{ 

if(
(BgL_lenz00_1265<8L))
{ /* Llib/bigloo.scm 610 */
return BgL_stringz00_24;}  else 
{ /* Llib/bigloo.scm 610 */
if(
bigloo_strncmp(BgL_stringz00_24, BGl_string2042z00zz__biglooz00, 4L))
{ /* Llib/bigloo.scm 612 */
{ /* Llib/bigloo.scm 600 */
 obj_t BgL_strz00_1327;
BgL_strz00_1327 = 
BGl_bigloozd2demanglezd2atze70ze7zz__biglooz00(BgL_stringz00_24, BgL_clenz00_1266, 
BINT(4L)); 
{ /* Llib/bigloo.scm 601 */
 obj_t BgL_offsetz00_1328;
{ /* Llib/bigloo.scm 602 */
 obj_t BgL_tmpz00_2044;
{ /* Llib/bigloo.scm 602 */
 int BgL_tmpz00_3139;
BgL_tmpz00_3139 = 
(int)(1L); 
BgL_tmpz00_2044 = 
BGL_MVALUES_VAL(BgL_tmpz00_3139); } 
{ /* Llib/bigloo.scm 602 */
 int BgL_tmpz00_3142;
BgL_tmpz00_3142 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3142, BUNSPEC); } 
BgL_offsetz00_1328 = BgL_tmpz00_2044; } 
{ /* Llib/bigloo.scm 602 */
 int BgL_tmpz00_3145;
BgL_tmpz00_3145 = 
(int)(2L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3145); } 
{ /* Llib/bigloo.scm 602 */
 int BgL_tmpz00_3148;
BgL_tmpz00_3148 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3148, BUNSPEC); } 
return BgL_strz00_1327;} } }  else 
{ /* Llib/bigloo.scm 612 */
if(
bigloo_strncmp(BgL_stringz00_24, BGl_string2045z00zz__biglooz00, 4L))
{ /* Llib/bigloo.scm 614 */
{ /* Llib/bigloo.scm 604 */
 obj_t BgL_idz00_1332;
BgL_idz00_1332 = 
BGl_bigloozd2demanglezd2atze70ze7zz__biglooz00(BgL_stringz00_24, BgL_clenz00_1266, 
BINT(4L)); 
{ /* Llib/bigloo.scm 605 */
 obj_t BgL_offsetz00_1333;
{ /* Llib/bigloo.scm 606 */
 obj_t BgL_tmpz00_2045;
{ /* Llib/bigloo.scm 606 */
 int BgL_tmpz00_3155;
BgL_tmpz00_3155 = 
(int)(1L); 
BgL_tmpz00_2045 = 
BGL_MVALUES_VAL(BgL_tmpz00_3155); } 
{ /* Llib/bigloo.scm 606 */
 int BgL_tmpz00_3158;
BgL_tmpz00_3158 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3158, BUNSPEC); } 
BgL_offsetz00_1333 = BgL_tmpz00_2045; } 
{ /* Llib/bigloo.scm 606 */
 obj_t BgL_modulez00_1334;
BgL_modulez00_1334 = 
BGl_bigloozd2demanglezd2atze70ze7zz__biglooz00(BgL_stringz00_24, BgL_clenz00_1266, BgL_offsetz00_1333); 
{ /* Llib/bigloo.scm 607 */
 obj_t BgL_offsetz00_1335;
{ /* Llib/bigloo.scm 608 */
 obj_t BgL_tmpz00_2046;
{ /* Llib/bigloo.scm 608 */
 int BgL_tmpz00_3162;
BgL_tmpz00_3162 = 
(int)(1L); 
BgL_tmpz00_2046 = 
BGL_MVALUES_VAL(BgL_tmpz00_3162); } 
{ /* Llib/bigloo.scm 608 */
 int BgL_tmpz00_3165;
BgL_tmpz00_3165 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3165, BUNSPEC); } 
BgL_offsetz00_1335 = BgL_tmpz00_2046; } 
{ /* Llib/bigloo.scm 608 */
 int BgL_tmpz00_3168;
BgL_tmpz00_3168 = 
(int)(2L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3168); } 
{ /* Llib/bigloo.scm 608 */
 int BgL_tmpz00_3171;
BgL_tmpz00_3171 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3171, BgL_modulez00_1334); } 
return BgL_idz00_1332;} } } } }  else 
{ /* Llib/bigloo.scm 614 */
return BgL_stringz00_24;} } } } } } } } 

}



/* char->digit~0 */
long BGl_charzd2ze3digitze70zd6zz__biglooz00(unsigned char BgL_cz00_1277)
{
{ /* Llib/bigloo.scm 567 */
if(
isdigit(BgL_cz00_1277))
{ /* Llib/bigloo.scm 565 */
return 
(
(BgL_cz00_1277)-48L);}  else 
{ /* Llib/bigloo.scm 565 */
return 
(10L+
(
(BgL_cz00_1277)-97L));} } 

}



/* get-8bits-integer~0 */
long BGl_getzd28bitszd2integerze70ze7zz__biglooz00(obj_t BgL_stringz00_2364, obj_t BgL_rz00_1283)
{
{ /* Llib/bigloo.scm 573 */
{ /* Llib/bigloo.scm 572 */

{ /* Llib/bigloo.scm 573 */
 long BgL_auxz00_3203; long BgL_tmpz00_3181;
{ /* Llib/bigloo.scm 573 */
 long BgL_tmpz00_3204;
{ /* Llib/bigloo.scm 572 */
 unsigned char BgL_auxz00_3205;
{ /* Llib/bigloo.scm 570 */
 long BgL_i1904z00_2468;
{ /* Llib/bigloo.scm 570 */
 long BgL_za71za7_2009;
{ /* Llib/bigloo.scm 570 */
 obj_t BgL_tmpz00_3206;
if(
INTEGERP(BgL_rz00_1283))
{ /* Llib/bigloo.scm 570 */
BgL_tmpz00_3206 = BgL_rz00_1283
; }  else 
{ 
 obj_t BgL_auxz00_3209;
BgL_auxz00_3209 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(21861L), BGl_string2049z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1283); 
FAILURE(BgL_auxz00_3209,BFALSE,BFALSE);} 
BgL_za71za7_2009 = 
(long)CINT(BgL_tmpz00_3206); } 
BgL_i1904z00_2468 = 
(BgL_za71za7_2009+2L); } 
{ /* Llib/bigloo.scm 570 */
 long BgL_l1905z00_2469;
BgL_l1905z00_2469 = 
STRING_LENGTH(BgL_stringz00_2364); 
if(
BOUND_CHECK(BgL_i1904z00_2468, BgL_l1905z00_2469))
{ /* Llib/bigloo.scm 570 */
BgL_auxz00_3205 = 
STRING_REF(BgL_stringz00_2364, BgL_i1904z00_2468)
; }  else 
{ 
 obj_t BgL_auxz00_3219;
BgL_auxz00_3219 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(21837L), BGl_string2038z00zz__biglooz00, BgL_stringz00_2364, 
(int)(BgL_l1905z00_2469), 
(int)(BgL_i1904z00_2468)); 
FAILURE(BgL_auxz00_3219,BFALSE,BFALSE);} } } 
BgL_tmpz00_3204 = 
BGl_charzd2ze3digitze70zd6zz__biglooz00(BgL_auxz00_3205); } 
BgL_auxz00_3203 = 
(BgL_tmpz00_3204 << 
(int)(4L)); } 
{ /* Llib/bigloo.scm 571 */
 unsigned char BgL_auxz00_3182;
{ /* Llib/bigloo.scm 569 */
 long BgL_i1900z00_2464;
{ /* Llib/bigloo.scm 569 */
 long BgL_za71za7_2006;
{ /* Llib/bigloo.scm 569 */
 obj_t BgL_tmpz00_3183;
if(
INTEGERP(BgL_rz00_1283))
{ /* Llib/bigloo.scm 569 */
BgL_tmpz00_3183 = BgL_rz00_1283
; }  else 
{ 
 obj_t BgL_auxz00_3186;
BgL_auxz00_3186 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(21824L), BGl_string2049z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1283); 
FAILURE(BgL_auxz00_3186,BFALSE,BFALSE);} 
BgL_za71za7_2006 = 
(long)CINT(BgL_tmpz00_3183); } 
BgL_i1900z00_2464 = 
(BgL_za71za7_2006+1L); } 
{ /* Llib/bigloo.scm 569 */
 long BgL_l1901z00_2465;
BgL_l1901z00_2465 = 
STRING_LENGTH(BgL_stringz00_2364); 
if(
BOUND_CHECK(BgL_i1900z00_2464, BgL_l1901z00_2465))
{ /* Llib/bigloo.scm 569 */
BgL_auxz00_3182 = 
STRING_REF(BgL_stringz00_2364, BgL_i1900z00_2464)
; }  else 
{ 
 obj_t BgL_auxz00_3196;
BgL_auxz00_3196 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(21800L), BGl_string2038z00zz__biglooz00, BgL_stringz00_2364, 
(int)(BgL_l1901z00_2465), 
(int)(BgL_i1900z00_2464)); 
FAILURE(BgL_auxz00_3196,BFALSE,BFALSE);} } } 
BgL_tmpz00_3181 = 
BGl_charzd2ze3digitze70zd6zz__biglooz00(BgL_auxz00_3182); } 
return 
(BgL_tmpz00_3181+BgL_auxz00_3203);} } } 

}



/* bigloo-demangle-at~0 */
obj_t BGl_bigloozd2demanglezd2atze70ze7zz__biglooz00(obj_t BgL_stringz00_2366, long BgL_clenz00_2365, obj_t BgL_offsetz00_1292)
{
{ /* Llib/bigloo.scm 598 */
{ /* Llib/bigloo.scm 575 */
 obj_t BgL_newz00_1294;
{ /* Ieee/string.scm 172 */

BgL_newz00_1294 = 
make_string(BgL_clenz00_2365, ((unsigned char)' ')); } 
{ 
 obj_t BgL_rz00_1296; long BgL_wz00_1297; long BgL_checksumz00_1298;
BgL_rz00_1296 = BgL_offsetz00_1292; 
BgL_wz00_1297 = 0L; 
BgL_checksumz00_1298 = 0L; 
BgL_zc3z04anonymousza31354ze3z87_1299:
{ /* Llib/bigloo.scm 579 */
 bool_t BgL_test2261z00_3230;
{ /* Llib/bigloo.scm 579 */
 long BgL_n1z00_2016;
{ /* Llib/bigloo.scm 579 */
 obj_t BgL_tmpz00_3231;
if(
INTEGERP(BgL_rz00_1296))
{ /* Llib/bigloo.scm 579 */
BgL_tmpz00_3231 = BgL_rz00_1296
; }  else 
{ 
 obj_t BgL_auxz00_3234;
BgL_auxz00_3234 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22106L), BGl_string2051z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1296); 
FAILURE(BgL_auxz00_3234,BFALSE,BFALSE);} 
BgL_n1z00_2016 = 
(long)CINT(BgL_tmpz00_3231); } 
BgL_test2261z00_3230 = 
(BgL_n1z00_2016==BgL_clenz00_2365); } 
if(BgL_test2261z00_3230)
{ /* Llib/bigloo.scm 579 */
if(
(BgL_checksumz00_1298==
BGl_getzd28bitszd2integerze70ze7zz__biglooz00(BgL_stringz00_2366, BgL_rz00_1296)))
{ /* Llib/bigloo.scm 582 */
 obj_t BgL_val0_1087z00_1303; long BgL_val1_1088z00_1304;
BgL_val0_1087z00_1303 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_newz00_1294, 0L, BgL_wz00_1297); 
{ /* Llib/bigloo.scm 582 */
 long BgL_za71za7_2020;
{ /* Llib/bigloo.scm 582 */
 obj_t BgL_tmpz00_3244;
if(
INTEGERP(BgL_rz00_1296))
{ /* Llib/bigloo.scm 582 */
BgL_tmpz00_3244 = BgL_rz00_1296
; }  else 
{ 
 obj_t BgL_auxz00_3247;
BgL_auxz00_3247 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22246L), BGl_string2051z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1296); 
FAILURE(BgL_auxz00_3247,BFALSE,BFALSE);} 
BgL_za71za7_2020 = 
(long)CINT(BgL_tmpz00_3244); } 
BgL_val1_1088z00_1304 = 
(BgL_za71za7_2020+3L); } 
{ /* Llib/bigloo.scm 582 */
 int BgL_tmpz00_3253;
BgL_tmpz00_3253 = 
(int)(2L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3253); } 
{ /* Llib/bigloo.scm 582 */
 obj_t BgL_auxz00_3258; int BgL_tmpz00_3256;
BgL_auxz00_3258 = 
BINT(BgL_val1_1088z00_1304); 
BgL_tmpz00_3256 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3256, BgL_auxz00_3258); } 
return BgL_val0_1087z00_1303;}  else 
{ /* Llib/bigloo.scm 581 */
return 
BGl_errorz00zz__errorz00(BGl_string2052z00zz__biglooz00, BGl_string2053z00zz__biglooz00, BgL_stringz00_2366);} }  else 
{ /* Llib/bigloo.scm 584 */
 unsigned char BgL_cz00_1306;
{ /* Llib/bigloo.scm 584 */
 long BgL_kz00_2022;
{ /* Llib/bigloo.scm 584 */
 obj_t BgL_tmpz00_3262;
if(
INTEGERP(BgL_rz00_1296))
{ /* Llib/bigloo.scm 584 */
BgL_tmpz00_3262 = BgL_rz00_1296
; }  else 
{ 
 obj_t BgL_auxz00_3265;
BgL_auxz00_3265 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22302L), BGl_string2051z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1296); 
FAILURE(BgL_auxz00_3265,BFALSE,BFALSE);} 
BgL_kz00_2022 = 
(long)CINT(BgL_tmpz00_3262); } 
{ /* Llib/bigloo.scm 584 */
 long BgL_l1909z00_2473;
BgL_l1909z00_2473 = 
STRING_LENGTH(BgL_stringz00_2366); 
if(
BOUND_CHECK(BgL_kz00_2022, BgL_l1909z00_2473))
{ /* Llib/bigloo.scm 584 */
BgL_cz00_1306 = 
STRING_REF(BgL_stringz00_2366, BgL_kz00_2022); }  else 
{ 
 obj_t BgL_auxz00_3274;
BgL_auxz00_3274 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22283L), BGl_string2038z00zz__biglooz00, BgL_stringz00_2366, 
(int)(BgL_l1909z00_2473), 
(int)(BgL_kz00_2022)); 
FAILURE(BgL_auxz00_3274,BFALSE,BFALSE);} } } 
if(
(BgL_cz00_1306==((unsigned char)'z')))
{ /* Llib/bigloo.scm 586 */
 bool_t BgL_test2268z00_3282;
{ /* Llib/bigloo.scm 586 */
 unsigned char BgL_tmpz00_3283;
{ /* Llib/bigloo.scm 586 */
 long BgL_i1912z00_2476;
{ /* Llib/bigloo.scm 586 */
 long BgL_za71za7_2025;
{ /* Llib/bigloo.scm 586 */
 obj_t BgL_tmpz00_3284;
if(
INTEGERP(BgL_rz00_1296))
{ /* Llib/bigloo.scm 586 */
BgL_tmpz00_3284 = BgL_rz00_1296
; }  else 
{ 
 obj_t BgL_auxz00_3287;
BgL_auxz00_3287 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22375L), BGl_string2051z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1296); 
FAILURE(BgL_auxz00_3287,BFALSE,BFALSE);} 
BgL_za71za7_2025 = 
(long)CINT(BgL_tmpz00_3284); } 
BgL_i1912z00_2476 = 
(BgL_za71za7_2025+1L); } 
{ /* Llib/bigloo.scm 586 */
 long BgL_l1913z00_2477;
BgL_l1913z00_2477 = 
STRING_LENGTH(BgL_stringz00_2366); 
if(
BOUND_CHECK(BgL_i1912z00_2476, BgL_l1913z00_2477))
{ /* Llib/bigloo.scm 586 */
BgL_tmpz00_3283 = 
STRING_REF(BgL_stringz00_2366, BgL_i1912z00_2476)
; }  else 
{ 
 obj_t BgL_auxz00_3297;
BgL_auxz00_3297 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22351L), BGl_string2038z00zz__biglooz00, BgL_stringz00_2366, 
(int)(BgL_l1913z00_2477), 
(int)(BgL_i1912z00_2476)); 
FAILURE(BgL_auxz00_3297,BFALSE,BFALSE);} } } 
BgL_test2268z00_3282 = 
(BgL_tmpz00_3283==((unsigned char)'z')); } 
if(BgL_test2268z00_3282)
{ /* Llib/bigloo.scm 587 */
 obj_t BgL_val0_1089z00_1311; long BgL_val1_1090z00_1312;
BgL_val0_1089z00_1311 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_newz00_1294, 0L, 
(BgL_wz00_1297-1L)); 
{ /* Llib/bigloo.scm 587 */
 long BgL_za71za7_2031;
{ /* Llib/bigloo.scm 587 */
 obj_t BgL_tmpz00_3306;
if(
INTEGERP(BgL_rz00_1296))
{ /* Llib/bigloo.scm 587 */
BgL_tmpz00_3306 = BgL_rz00_1296
; }  else 
{ 
 obj_t BgL_auxz00_3309;
BgL_auxz00_3309 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22436L), BGl_string2051z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1296); 
FAILURE(BgL_auxz00_3309,BFALSE,BFALSE);} 
BgL_za71za7_2031 = 
(long)CINT(BgL_tmpz00_3306); } 
BgL_val1_1090z00_1312 = 
(BgL_za71za7_2031+2L); } 
{ /* Llib/bigloo.scm 587 */
 int BgL_tmpz00_3315;
BgL_tmpz00_3315 = 
(int)(2L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3315); } 
{ /* Llib/bigloo.scm 587 */
 obj_t BgL_auxz00_3320; int BgL_tmpz00_3318;
BgL_auxz00_3320 = 
BINT(BgL_val1_1090z00_1312); 
BgL_tmpz00_3318 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3318, BgL_auxz00_3320); } 
return BgL_val0_1089z00_1311;}  else 
{ /* Llib/bigloo.scm 588 */
 long BgL_iz00_1314;
BgL_iz00_1314 = 
BGl_getzd28bitszd2integerze70ze7zz__biglooz00(BgL_stringz00_2366, BgL_rz00_1296); 
{ /* Llib/bigloo.scm 588 */
 unsigned char BgL_ncz00_1315;
BgL_ncz00_1315 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_iz00_1314); 
{ /* Llib/bigloo.scm 589 */

{ /* Llib/bigloo.scm 590 */
 long BgL_l1917z00_2481;
BgL_l1917z00_2481 = 
STRING_LENGTH(BgL_newz00_1294); 
if(
BOUND_CHECK(BgL_wz00_1297, BgL_l1917z00_2481))
{ /* Llib/bigloo.scm 590 */
STRING_SET(BgL_newz00_1294, BgL_wz00_1297, BgL_ncz00_1315); }  else 
{ 
 obj_t BgL_auxz00_3329;
BgL_auxz00_3329 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22522L), BGl_string2027z00zz__biglooz00, BgL_newz00_1294, 
(int)(BgL_l1917z00_2481), 
(int)(BgL_wz00_1297)); 
FAILURE(BgL_auxz00_3329,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 591 */
 long BgL_arg1364z00_1316; long BgL_arg1365z00_1317; long BgL_arg1366z00_1318;
{ /* Llib/bigloo.scm 591 */
 long BgL_za71za7_2035;
{ /* Llib/bigloo.scm 591 */
 obj_t BgL_tmpz00_3335;
if(
INTEGERP(BgL_rz00_1296))
{ /* Llib/bigloo.scm 591 */
BgL_tmpz00_3335 = BgL_rz00_1296
; }  else 
{ 
 obj_t BgL_auxz00_3338;
BgL_auxz00_3338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22561L), BGl_string2051z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1296); 
FAILURE(BgL_auxz00_3338,BFALSE,BFALSE);} 
BgL_za71za7_2035 = 
(long)CINT(BgL_tmpz00_3335); } 
BgL_arg1364z00_1316 = 
(BgL_za71za7_2035+3L); } 
BgL_arg1365z00_1317 = 
(BgL_wz00_1297+1L); 
BgL_arg1366z00_1318 = 
(BgL_checksumz00_1298 ^ BgL_iz00_1314); 
{ 
 long BgL_checksumz00_3349; long BgL_wz00_3348; obj_t BgL_rz00_3346;
BgL_rz00_3346 = 
BINT(BgL_arg1364z00_1316); 
BgL_wz00_3348 = BgL_arg1365z00_1317; 
BgL_checksumz00_3349 = BgL_arg1366z00_1318; 
BgL_checksumz00_1298 = BgL_checksumz00_3349; 
BgL_wz00_1297 = BgL_wz00_3348; 
BgL_rz00_1296 = BgL_rz00_3346; 
goto BgL_zc3z04anonymousza31354ze3z87_1299;} } } } } }  else 
{ /* Llib/bigloo.scm 585 */
{ /* Llib/bigloo.scm 595 */
 long BgL_l1921z00_2485;
BgL_l1921z00_2485 = 
STRING_LENGTH(BgL_newz00_1294); 
if(
BOUND_CHECK(BgL_wz00_1297, BgL_l1921z00_2485))
{ /* Llib/bigloo.scm 595 */
STRING_SET(BgL_newz00_1294, BgL_wz00_1297, BgL_cz00_1306); }  else 
{ 
 obj_t BgL_auxz00_3354;
BgL_auxz00_3354 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22642L), BGl_string2027z00zz__biglooz00, BgL_newz00_1294, 
(int)(BgL_l1921z00_2485), 
(int)(BgL_wz00_1297)); 
FAILURE(BgL_auxz00_3354,BFALSE,BFALSE);} } 
{ /* Llib/bigloo.scm 596 */
 long BgL_arg1369z00_1321; long BgL_arg1370z00_1322;
{ /* Llib/bigloo.scm 596 */
 long BgL_za71za7_2042;
{ /* Llib/bigloo.scm 596 */
 obj_t BgL_tmpz00_3360;
if(
INTEGERP(BgL_rz00_1296))
{ /* Llib/bigloo.scm 596 */
BgL_tmpz00_3360 = BgL_rz00_1296
; }  else 
{ 
 obj_t BgL_auxz00_3363;
BgL_auxz00_3363 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(22683L), BGl_string2051z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_rz00_1296); 
FAILURE(BgL_auxz00_3363,BFALSE,BFALSE);} 
BgL_za71za7_2042 = 
(long)CINT(BgL_tmpz00_3360); } 
BgL_arg1369z00_1321 = 
(BgL_za71za7_2042+1L); } 
BgL_arg1370z00_1322 = 
(BgL_wz00_1297+1L); 
{ 
 long BgL_wz00_3372; obj_t BgL_rz00_3370;
BgL_rz00_3370 = 
BINT(BgL_arg1369z00_1321); 
BgL_wz00_3372 = BgL_arg1370z00_1322; 
BgL_wz00_1297 = BgL_wz00_3372; 
BgL_rz00_1296 = BgL_rz00_3370; 
goto BgL_zc3z04anonymousza31354ze3z87_1299;} } } } } } } } 

}



/* &bigloo-demangle */
obj_t BGl_z62bigloozd2demanglezb0zz__biglooz00(obj_t BgL_envz00_2334, obj_t BgL_stringz00_2335)
{
{ /* Llib/bigloo.scm 559 */
{ /* Llib/bigloo.scm 560 */
 obj_t BgL_auxz00_3373;
if(
STRINGP(BgL_stringz00_2335))
{ /* Llib/bigloo.scm 560 */
BgL_auxz00_3373 = BgL_stringz00_2335
; }  else 
{ 
 obj_t BgL_auxz00_3376;
BgL_auxz00_3376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(21449L), BGl_string2054z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_stringz00_2335); 
FAILURE(BgL_auxz00_3376,BFALSE,BFALSE);} 
return 
bigloo_demangle(BgL_auxz00_3373);} } 

}



/* bigloo-module-demangle */
BGL_EXPORTED_DEF obj_t bigloo_module_demangle(obj_t BgL_stringz00_25)
{
{ /* Llib/bigloo.scm 622 */
{ /* Llib/bigloo.scm 623 */
 obj_t BgL_idz00_1344;
BgL_idz00_1344 = 
bigloo_demangle(BgL_stringz00_25); 
{ /* Llib/bigloo.scm 624 */
 obj_t BgL_modulez00_1345;
{ /* Llib/bigloo.scm 625 */
 obj_t BgL_tmpz00_2052;
{ /* Llib/bigloo.scm 625 */
 int BgL_tmpz00_3382;
BgL_tmpz00_3382 = 
(int)(1L); 
BgL_tmpz00_2052 = 
BGL_MVALUES_VAL(BgL_tmpz00_3382); } 
{ /* Llib/bigloo.scm 625 */
 int BgL_tmpz00_3385;
BgL_tmpz00_3385 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_3385, BUNSPEC); } 
BgL_modulez00_1345 = BgL_tmpz00_2052; } 
if(
STRINGP(BgL_modulez00_1345))
{ /* Llib/bigloo.scm 626 */
 obj_t BgL_tmpz00_3390;
if(
STRINGP(BgL_idz00_1344))
{ /* Llib/bigloo.scm 626 */
BgL_tmpz00_3390 = BgL_idz00_1344
; }  else 
{ 
 obj_t BgL_auxz00_3393;
BgL_auxz00_3393 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(23619L), BGl_string2055z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_idz00_1344); 
FAILURE(BgL_auxz00_3393,BFALSE,BFALSE);} 
return 
string_append_3(BgL_tmpz00_3390, BGl_string2056z00zz__biglooz00, BgL_modulez00_1345);}  else 
{ /* Llib/bigloo.scm 625 */
if(
STRINGP(BgL_idz00_1344))
{ /* Llib/bigloo.scm 627 */
return BgL_idz00_1344;}  else 
{ 
 obj_t BgL_auxz00_3400;
BgL_auxz00_3400 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(23652L), BGl_string2055z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_idz00_1344); 
FAILURE(BgL_auxz00_3400,BFALSE,BFALSE);} } } } } 

}



/* &bigloo-module-demangle */
obj_t BGl_z62bigloozd2modulezd2demanglez62zz__biglooz00(obj_t BgL_envz00_2336, obj_t BgL_stringz00_2337)
{
{ /* Llib/bigloo.scm 622 */
{ /* Llib/bigloo.scm 623 */
 obj_t BgL_auxz00_3404;
if(
STRINGP(BgL_stringz00_2337))
{ /* Llib/bigloo.scm 623 */
BgL_auxz00_3404 = BgL_stringz00_2337
; }  else 
{ 
 obj_t BgL_auxz00_3407;
BgL_auxz00_3407 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(23525L), BGl_string2057z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_stringz00_2337); 
FAILURE(BgL_auxz00_3407,BFALSE,BFALSE);} 
return 
bigloo_module_demangle(BgL_auxz00_3404);} } 

}



/* bigloo-class-mangled? */
BGL_EXPORTED_DEF bool_t bigloo_class_mangledp(obj_t BgL_stringz00_26)
{
{ /* Llib/bigloo.scm 632 */
{ /* Llib/bigloo.scm 633 */
 long BgL_lenz00_1347;
BgL_lenz00_1347 = 
STRING_LENGTH(BgL_stringz00_26); 
if(
(BgL_lenz00_1347>8L))
{ /* Llib/bigloo.scm 635 */
 bool_t BgL_test2282z00_3415;
{ /* Llib/bigloo.scm 635 */
 unsigned char BgL_tmpz00_3416;
{ /* Llib/bigloo.scm 635 */
 long BgL_i1924z00_2488;
BgL_i1924z00_2488 = 
(BgL_lenz00_1347-1L); 
if(
BOUND_CHECK(BgL_i1924z00_2488, BgL_lenz00_1347))
{ /* Llib/bigloo.scm 635 */
BgL_tmpz00_3416 = 
STRING_REF(BgL_stringz00_26, BgL_i1924z00_2488)
; }  else 
{ 
 obj_t BgL_auxz00_3421;
BgL_auxz00_3421 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(23994L), BGl_string2038z00zz__biglooz00, BgL_stringz00_26, 
(int)(BgL_lenz00_1347), 
(int)(BgL_i1924z00_2488)); 
FAILURE(BgL_auxz00_3421,BFALSE,BFALSE);} } 
BgL_test2282z00_3415 = 
(BgL_tmpz00_3416==((unsigned char)'t')); } 
if(BgL_test2282z00_3415)
{ /* Llib/bigloo.scm 636 */
 bool_t BgL_test2284z00_3428;
{ /* Llib/bigloo.scm 636 */
 unsigned char BgL_tmpz00_3429;
{ /* Llib/bigloo.scm 636 */
 long BgL_i1928z00_2492;
BgL_i1928z00_2492 = 
(BgL_lenz00_1347-2L); 
{ /* Llib/bigloo.scm 636 */
 long BgL_l1929z00_2493;
BgL_l1929z00_2493 = 
STRING_LENGTH(BgL_stringz00_26); 
if(
BOUND_CHECK(BgL_i1928z00_2492, BgL_l1929z00_2493))
{ /* Llib/bigloo.scm 636 */
BgL_tmpz00_3429 = 
STRING_REF(BgL_stringz00_26, BgL_i1928z00_2492)
; }  else 
{ 
 obj_t BgL_auxz00_3435;
BgL_auxz00_3435 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(24043L), BGl_string2038z00zz__biglooz00, BgL_stringz00_26, 
(int)(BgL_l1929z00_2493), 
(int)(BgL_i1928z00_2492)); 
FAILURE(BgL_auxz00_3435,BFALSE,BFALSE);} } } 
BgL_test2284z00_3428 = 
(BgL_tmpz00_3429==((unsigned char)'l')); } 
if(BgL_test2284z00_3428)
{ /* Llib/bigloo.scm 637 */
 bool_t BgL_test2286z00_3442;
{ /* Llib/bigloo.scm 637 */
 unsigned char BgL_tmpz00_3443;
{ /* Llib/bigloo.scm 637 */
 long BgL_i1932z00_2496;
BgL_i1932z00_2496 = 
(BgL_lenz00_1347-3L); 
{ /* Llib/bigloo.scm 637 */
 long BgL_l1933z00_2497;
BgL_l1933z00_2497 = 
STRING_LENGTH(BgL_stringz00_26); 
if(
BOUND_CHECK(BgL_i1932z00_2496, BgL_l1933z00_2497))
{ /* Llib/bigloo.scm 637 */
BgL_tmpz00_3443 = 
STRING_REF(BgL_stringz00_26, BgL_i1932z00_2496)
; }  else 
{ 
 obj_t BgL_auxz00_3449;
BgL_auxz00_3449 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(24092L), BGl_string2038z00zz__biglooz00, BgL_stringz00_26, 
(int)(BgL_l1933z00_2497), 
(int)(BgL_i1932z00_2496)); 
FAILURE(BgL_auxz00_3449,BFALSE,BFALSE);} } } 
BgL_test2286z00_3442 = 
(BgL_tmpz00_3443==((unsigned char)'g')); } 
if(BgL_test2286z00_3442)
{ /* Llib/bigloo.scm 638 */
 bool_t BgL_test2288z00_3456;
{ /* Llib/bigloo.scm 638 */
 unsigned char BgL_tmpz00_3457;
{ /* Llib/bigloo.scm 638 */
 long BgL_i1936z00_2500;
BgL_i1936z00_2500 = 
(BgL_lenz00_1347-4L); 
{ /* Llib/bigloo.scm 638 */
 long BgL_l1937z00_2501;
BgL_l1937z00_2501 = 
STRING_LENGTH(BgL_stringz00_26); 
if(
BOUND_CHECK(BgL_i1936z00_2500, BgL_l1937z00_2501))
{ /* Llib/bigloo.scm 638 */
BgL_tmpz00_3457 = 
STRING_REF(BgL_stringz00_26, BgL_i1936z00_2500)
; }  else 
{ 
 obj_t BgL_auxz00_3463;
BgL_auxz00_3463 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(24141L), BGl_string2038z00zz__biglooz00, BgL_stringz00_26, 
(int)(BgL_l1937z00_2501), 
(int)(BgL_i1936z00_2500)); 
FAILURE(BgL_auxz00_3463,BFALSE,BFALSE);} } } 
BgL_test2288z00_3456 = 
(BgL_tmpz00_3457==((unsigned char)'b')); } 
if(BgL_test2288z00_3456)
{ /* Llib/bigloo.scm 639 */
 bool_t BgL_test2290z00_3470;
{ /* Llib/bigloo.scm 639 */
 unsigned char BgL_tmpz00_3471;
{ /* Llib/bigloo.scm 639 */
 long BgL_i1940z00_2504;
BgL_i1940z00_2504 = 
(BgL_lenz00_1347-5L); 
{ /* Llib/bigloo.scm 639 */
 long BgL_l1941z00_2505;
BgL_l1941z00_2505 = 
STRING_LENGTH(BgL_stringz00_26); 
if(
BOUND_CHECK(BgL_i1940z00_2504, BgL_l1941z00_2505))
{ /* Llib/bigloo.scm 639 */
BgL_tmpz00_3471 = 
STRING_REF(BgL_stringz00_26, BgL_i1940z00_2504)
; }  else 
{ 
 obj_t BgL_auxz00_3477;
BgL_auxz00_3477 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(24190L), BGl_string2038z00zz__biglooz00, BgL_stringz00_26, 
(int)(BgL_l1941z00_2505), 
(int)(BgL_i1940z00_2504)); 
FAILURE(BgL_auxz00_3477,BFALSE,BFALSE);} } } 
BgL_test2290z00_3470 = 
(BgL_tmpz00_3471==((unsigned char)'_')); } 
if(BgL_test2290z00_3470)
{ /* Llib/bigloo.scm 639 */
BGL_TAIL return 
bigloo_mangledp(
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_26, 0L, 
(BgL_lenz00_1347-5L)));}  else 
{ /* Llib/bigloo.scm 639 */
return ((bool_t)0);} }  else 
{ /* Llib/bigloo.scm 638 */
return ((bool_t)0);} }  else 
{ /* Llib/bigloo.scm 637 */
return ((bool_t)0);} }  else 
{ /* Llib/bigloo.scm 636 */
return ((bool_t)0);} }  else 
{ /* Llib/bigloo.scm 635 */
return ((bool_t)0);} }  else 
{ /* Llib/bigloo.scm 634 */
return ((bool_t)0);} } } 

}



/* &bigloo-class-mangled? */
obj_t BGl_z62bigloozd2classzd2mangledzf3z91zz__biglooz00(obj_t BgL_envz00_2338, obj_t BgL_stringz00_2339)
{
{ /* Llib/bigloo.scm 632 */
{ /* Llib/bigloo.scm 633 */
 bool_t BgL_tmpz00_3487;
{ /* Llib/bigloo.scm 633 */
 obj_t BgL_auxz00_3488;
if(
STRINGP(BgL_stringz00_2339))
{ /* Llib/bigloo.scm 633 */
BgL_auxz00_3488 = BgL_stringz00_2339
; }  else 
{ 
 obj_t BgL_auxz00_3491;
BgL_auxz00_3491 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(23923L), BGl_string2058z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_stringz00_2339); 
FAILURE(BgL_auxz00_3491,BFALSE,BFALSE);} 
BgL_tmpz00_3487 = 
bigloo_class_mangledp(BgL_auxz00_3488); } 
return 
BBOOL(BgL_tmpz00_3487);} } 

}



/* bigloo-class-demangle */
BGL_EXPORTED_DEF obj_t bigloo_class_demangle(obj_t BgL_stringz00_27)
{
{ /* Llib/bigloo.scm 645 */
{ /* Llib/bigloo.scm 647 */
 obj_t BgL_arg1387z00_1366;
BgL_arg1387z00_1366 = 
bigloo_demangle(
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_27, 0L, 
(
STRING_LENGTH(BgL_stringz00_27)-5L))); 
{ /* Llib/bigloo.scm 646 */
 obj_t BgL_tmpz00_3501;
if(
STRINGP(BgL_arg1387z00_1366))
{ /* Llib/bigloo.scm 646 */
BgL_tmpz00_3501 = BgL_arg1387z00_1366
; }  else 
{ 
 obj_t BgL_auxz00_3504;
BgL_auxz00_3504 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(24553L), BGl_string2059z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_arg1387z00_1366); 
FAILURE(BgL_auxz00_3504,BFALSE,BFALSE);} 
return 
string_append(BgL_tmpz00_3501, BGl_string2060z00zz__biglooz00);} } } 

}



/* &bigloo-class-demangle */
obj_t BGl_z62bigloozd2classzd2demanglez62zz__biglooz00(obj_t BgL_envz00_2340, obj_t BgL_stringz00_2341)
{
{ /* Llib/bigloo.scm 645 */
{ /* Llib/bigloo.scm 647 */
 obj_t BgL_auxz00_3509;
if(
STRINGP(BgL_stringz00_2341))
{ /* Llib/bigloo.scm 647 */
BgL_auxz00_3509 = BgL_stringz00_2341
; }  else 
{ 
 obj_t BgL_auxz00_3512;
BgL_auxz00_3512 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(24615L), BGl_string2061z00zz__biglooz00, BGl_string2031z00zz__biglooz00, BgL_stringz00_2341); 
FAILURE(BgL_auxz00_3512,BFALSE,BFALSE);} 
return 
bigloo_class_demangle(BgL_auxz00_3509);} } 

}



/* bigloo-exit-mutex */
BGL_EXPORTED_DEF obj_t bgl_exit_mutex(void)
{
{ /* Llib/bigloo.scm 658 */
return BGl_za2exitzd2mutexza2zd2zz__biglooz00;} 

}



/* &bigloo-exit-mutex */
obj_t BGl_z62bigloozd2exitzd2mutexz62zz__biglooz00(obj_t BgL_envz00_2342)
{
{ /* Llib/bigloo.scm 658 */
return 
bgl_exit_mutex();} 

}



/* register-exit-function! */
BGL_EXPORTED_DEF obj_t BGl_registerzd2exitzd2functionz12z12zz__biglooz00(obj_t BgL_funz00_28)
{
{ /* Llib/bigloo.scm 669 */
{ /* Llib/bigloo.scm 670 */
 obj_t BgL_mutex1391z00_1370;
BgL_mutex1391z00_1370 = BGl_za2exitzd2mutexza2zd2zz__biglooz00; 
{ /* Llib/bigloo.scm 670 */
 obj_t BgL_top2296z00_3519;
BgL_top2296z00_3519 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BgL_mutex1391z00_1370); 
BGL_EXITD_PUSH_PROTECT(BgL_top2296z00_3519, BgL_mutex1391z00_1370); BUNSPEC; 
{ /* Llib/bigloo.scm 670 */
 obj_t BgL_tmp2295z00_3518;
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_28, 
(int)(1L)))
{ /* Llib/bigloo.scm 671 */
BgL_tmp2295z00_3518 = ( 
BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = 
MAKE_YOUNG_PAIR(BgL_funz00_28, BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00), BUNSPEC) ; }  else 
{ /* Llib/bigloo.scm 671 */
BgL_tmp2295z00_3518 = 
BGl_errorz00zz__errorz00(BGl_string2062z00zz__biglooz00, BGl_string2063z00zz__biglooz00, BgL_funz00_28); } 
BGL_EXITD_POP_PROTECT(BgL_top2296z00_3519); BUNSPEC; 
BGL_MUTEX_UNLOCK(BgL_mutex1391z00_1370); 
return BgL_tmp2295z00_3518;} } } } 

}



/* &register-exit-function! */
obj_t BGl_z62registerzd2exitzd2functionz12z70zz__biglooz00(obj_t BgL_envz00_2343, obj_t BgL_funz00_2344)
{
{ /* Llib/bigloo.scm 669 */
{ /* Llib/bigloo.scm 670 */
 obj_t BgL_auxz00_3530;
if(
PROCEDUREP(BgL_funz00_2344))
{ /* Llib/bigloo.scm 670 */
BgL_auxz00_3530 = BgL_funz00_2344
; }  else 
{ 
 obj_t BgL_auxz00_3533;
BgL_auxz00_3533 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(25720L), BGl_string2064z00zz__biglooz00, BGl_string2033z00zz__biglooz00, BgL_funz00_2344); 
FAILURE(BgL_auxz00_3533,BFALSE,BFALSE);} 
return 
BGl_registerzd2exitzd2functionz12z12zz__biglooz00(BgL_auxz00_3530);} } 

}



/* unregister-exit-function! */
BGL_EXPORTED_DEF obj_t BGl_unregisterzd2exitzd2functionz12z12zz__biglooz00(obj_t BgL_funz00_29)
{
{ /* Llib/bigloo.scm 680 */
{ /* Llib/bigloo.scm 681 */
 obj_t BgL_mutex1392z00_2083;
BgL_mutex1392z00_2083 = BGl_za2exitzd2mutexza2zd2zz__biglooz00; 
{ /* Llib/bigloo.scm 681 */
 obj_t BgL_top2300z00_3539;
BgL_top2300z00_3539 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BgL_mutex1392z00_2083); 
BGL_EXITD_PUSH_PROTECT(BgL_top2300z00_3539, BgL_mutex1392z00_2083); BUNSPEC; 
{ /* Llib/bigloo.scm 681 */
 obj_t BgL_tmp2299z00_3538;
{ /* Llib/bigloo.scm 682 */
 obj_t BgL_auxz00_3543;
{ /* Llib/bigloo.scm 682 */
 obj_t BgL_aux2000z00_2565;
BgL_aux2000z00_2565 = BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00; 
{ /* Llib/bigloo.scm 682 */
 bool_t BgL_test2301z00_3544;
if(
PAIRP(BgL_aux2000z00_2565))
{ /* Llib/bigloo.scm 682 */
BgL_test2301z00_3544 = ((bool_t)1)
; }  else 
{ /* Llib/bigloo.scm 682 */
BgL_test2301z00_3544 = 
NULLP(BgL_aux2000z00_2565)
; } 
if(BgL_test2301z00_3544)
{ /* Llib/bigloo.scm 682 */
BgL_auxz00_3543 = BgL_aux2000z00_2565
; }  else 
{ 
 obj_t BgL_auxz00_3548;
BgL_auxz00_3548 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(26285L), BGl_string2065z00zz__biglooz00, BGl_string2066z00zz__biglooz00, BgL_aux2000z00_2565); 
FAILURE(BgL_auxz00_3548,BFALSE,BFALSE);} } } 
BgL_tmp2299z00_3538 = ( 
BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = 
bgl_remq_bang(BgL_funz00_29, BgL_auxz00_3543), BUNSPEC) ; } 
BGL_EXITD_POP_PROTECT(BgL_top2300z00_3539); BUNSPEC; 
BGL_MUTEX_UNLOCK(BgL_mutex1392z00_2083); 
return BgL_tmp2299z00_3538;} } } } 

}



/* &unregister-exit-function! */
obj_t BGl_z62unregisterzd2exitzd2functionz12z70zz__biglooz00(obj_t BgL_envz00_2345, obj_t BgL_funz00_2346)
{
{ /* Llib/bigloo.scm 680 */
{ /* Llib/bigloo.scm 681 */
 obj_t BgL_auxz00_3555;
if(
PROCEDUREP(BgL_funz00_2346))
{ /* Llib/bigloo.scm 681 */
BgL_auxz00_3555 = BgL_funz00_2346
; }  else 
{ 
 obj_t BgL_auxz00_3558;
BgL_auxz00_3558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(26205L), BGl_string2067z00zz__biglooz00, BGl_string2033z00zz__biglooz00, BgL_funz00_2346); 
FAILURE(BgL_auxz00_3558,BFALSE,BFALSE);} 
return 
BGl_unregisterzd2exitzd2functionz12z12zz__biglooz00(BgL_auxz00_3555);} } 

}



/* bigloo-exit-apply */
BGL_EXPORTED_DEF obj_t bigloo_exit_apply(obj_t BgL_valz00_30)
{
{ /* Llib/bigloo.scm 687 */
{ /* Llib/bigloo.scm 688 */
 obj_t BgL_mutz00_1372;
if(
BGL_MUTEXP(BGl_za2exitzd2mutexza2zd2zz__biglooz00))
{ /* Llib/bigloo.scm 688 */
BgL_mutz00_1372 = BGl_za2exitzd2mutexza2zd2zz__biglooz00; }  else 
{ /* Llib/bigloo.scm 688 */
BgL_mutz00_1372 = 
bgl_make_mutex(BGl_symbol2023z00zz__biglooz00); } 
{ /* Llib/bigloo.scm 691 */
 obj_t BgL_top2306z00_3567;
BgL_top2306z00_3567 = 
BGL_EXITD_TOP_AS_OBJ(); 
BGL_MUTEX_LOCK(BgL_mutz00_1372); 
BGL_EXITD_PUSH_PROTECT(BgL_top2306z00_3567, BgL_mutz00_1372); BUNSPEC; 
{ /* Llib/bigloo.scm 691 */
 obj_t BgL_tmp2305z00_3566;
{ 
 obj_t BgL_valz00_1374;
BgL_valz00_1374 = BgL_valz00_30; 
BgL_zc3z04anonymousza31393ze3z87_1375:
{ /* Llib/bigloo.scm 693 */
 obj_t BgL_valz00_1376;
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_valz00_1374))
{ /* Llib/bigloo.scm 693 */
BgL_valz00_1376 = BgL_valz00_1374; }  else 
{ /* Llib/bigloo.scm 693 */
BgL_valz00_1376 = 
BINT(0L); } 
if(
PAIRP(BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00))
{ /* Llib/bigloo.scm 697 */
 obj_t BgL_funz00_1378;
BgL_funz00_1378 = 
CAR(BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00); 
BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = 
CDR(BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00); 
{ /* Llib/bigloo.scm 700 */
 obj_t BgL_nvalz00_1379;
{ /* Llib/bigloo.scm 700 */
 obj_t BgL_funz00_2571;
if(
PROCEDUREP(BgL_funz00_1378))
{ /* Llib/bigloo.scm 700 */
BgL_funz00_2571 = BgL_funz00_1378; }  else 
{ 
 obj_t BgL_auxz00_3580;
BgL_auxz00_3580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(26960L), BGl_string2051z00zz__biglooz00, BGl_string2033z00zz__biglooz00, BgL_funz00_1378); 
FAILURE(BgL_auxz00_3580,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2571, 1))
{ /* Llib/bigloo.scm 700 */
BgL_nvalz00_1379 = 
(VA_PROCEDUREP( BgL_funz00_2571 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_2571))(BgL_funz00_1378, BgL_valz00_1376, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_2571))(BgL_funz00_1378, BgL_valz00_1376) ); }  else 
{ /* Llib/bigloo.scm 700 */
FAILURE(BGl_string2068z00zz__biglooz00,BGl_list2069z00zz__biglooz00,BgL_funz00_2571);} } 
{ /* Llib/bigloo.scm 701 */
 obj_t BgL_arg1395z00_1380;
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_nvalz00_1379))
{ /* Llib/bigloo.scm 701 */
BgL_arg1395z00_1380 = BgL_nvalz00_1379; }  else 
{ /* Llib/bigloo.scm 701 */
BgL_arg1395z00_1380 = BgL_valz00_1376; } 
{ 
 obj_t BgL_valz00_3593;
BgL_valz00_3593 = BgL_arg1395z00_1380; 
BgL_valz00_1374 = BgL_valz00_3593; 
goto BgL_zc3z04anonymousza31393ze3z87_1375;} } } }  else 
{ /* Llib/bigloo.scm 696 */
BgL_tmp2305z00_3566 = BgL_valz00_1376; } } } 
BGL_EXITD_POP_PROTECT(BgL_top2306z00_3567); BUNSPEC; 
BGL_MUTEX_UNLOCK(BgL_mutz00_1372); 
return BgL_tmp2305z00_3566;} } } } 

}



/* &bigloo-exit-apply */
obj_t BGl_z62bigloozd2exitzd2applyz62zz__biglooz00(obj_t BgL_envz00_2347, obj_t BgL_valz00_2348)
{
{ /* Llib/bigloo.scm 687 */
return 
bigloo_exit_apply(BgL_valz00_2348);} 

}



/* time */
BGL_EXPORTED_DEF obj_t BGl_timez00zz__biglooz00(obj_t BgL_procz00_31)
{
{ /* Llib/bigloo.scm 707 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_31, 
(int)(0L)))
{ /* Llib/bigloo.scm 708 */
return 
bgl_time(BgL_procz00_31);}  else 
{ /* Llib/bigloo.scm 708 */
return 
BGl_errorz00zz__errorz00(BGl_symbol2076z00zz__biglooz00, BGl_string2063z00zz__biglooz00, BgL_procz00_31);} } 

}



/* &time */
obj_t BGl_z62timez62zz__biglooz00(obj_t BgL_envz00_2349, obj_t BgL_procz00_2350)
{
{ /* Llib/bigloo.scm 707 */
{ /* Llib/bigloo.scm 708 */
 obj_t BgL_auxz00_3602;
if(
PROCEDUREP(BgL_procz00_2350))
{ /* Llib/bigloo.scm 708 */
BgL_auxz00_3602 = BgL_procz00_2350
; }  else 
{ 
 obj_t BgL_auxz00_3605;
BgL_auxz00_3605 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(27276L), BGl_string2078z00zz__biglooz00, BGl_string2033z00zz__biglooz00, BgL_procz00_2350); 
FAILURE(BgL_auxz00_3605,BFALSE,BFALSE);} 
return 
BGl_timez00zz__biglooz00(BgL_auxz00_3602);} } 

}



/* bmem-reset! */
BGL_EXPORTED_DEF obj_t BGl_bmemzd2resetz12zc0zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 723 */
BGL_TAIL return 
bgl_bmem_reset();} 

}



/* &bmem-reset! */
obj_t BGl_z62bmemzd2resetz12za2zz__biglooz00(obj_t BgL_envz00_2351)
{
{ /* Llib/bigloo.scm 723 */
return 
BGl_bmemzd2resetz12zc0zz__biglooz00();} 

}



/* gc-verbose-set! */
BGL_EXPORTED_DEF obj_t BGl_gczd2verbosezd2setz12z12zz__biglooz00(bool_t BgL_boolz00_32)
{
{ /* Llib/bigloo.scm 731 */
bgl_gc_verbose_set(BgL_boolz00_32); 
return BUNSPEC;} 

}



/* &gc-verbose-set! */
obj_t BGl_z62gczd2verbosezd2setz12z70zz__biglooz00(obj_t BgL_envz00_2352, obj_t BgL_boolz00_2353)
{
{ /* Llib/bigloo.scm 731 */
return 
BGl_gczd2verbosezd2setz12z12zz__biglooz00(
CBOOL(BgL_boolz00_2353));} 

}



/* _gc */
obj_t BGl__gcz00zz__biglooz00(obj_t BgL_env1110z00_35, obj_t BgL_opt1109z00_34)
{
{ /* Llib/bigloo.scm 739 */
{ /* Llib/bigloo.scm 739 */
 long BgL_l1111z00_1387;
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_vectorz00_2088;
if(
VECTORP(BgL_opt1109z00_34))
{ /* Llib/bigloo.scm 739 */
BgL_vectorz00_2088 = BgL_opt1109z00_34; }  else 
{ 
 obj_t BgL_auxz00_3617;
BgL_auxz00_3617 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2079z00zz__biglooz00, BGl_string2080z00zz__biglooz00, BgL_opt1109z00_34); 
FAILURE(BgL_auxz00_3617,BFALSE,BFALSE);} 
BgL_l1111z00_1387 = 
VECTOR_LENGTH(BgL_vectorz00_2088); } 
{ 
 obj_t BgL_k1z00_1388; long BgL_iz00_1389;
{ /* Llib/bigloo.scm 739 */

{ /* Llib/bigloo.scm 739 */
 obj_t BgL_finaliza7eza7_1391;
BgL_finaliza7eza7_1391 = BTRUE; 
{ /* Llib/bigloo.scm 739 */

{ 
 long BgL_iz00_1392;
BgL_iz00_1392 = 0L; 
BgL_check1113z00_1393:
if(
(BgL_iz00_1392==BgL_l1111z00_1387))
{ /* Llib/bigloo.scm 739 */BNIL; }  else 
{ /* Llib/bigloo.scm 739 */
 bool_t BgL_test2316z00_3624;
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_arg1407z00_1399;
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_vectorz00_2098;
if(
VECTORP(BgL_opt1109z00_34))
{ /* Llib/bigloo.scm 739 */
BgL_vectorz00_2098 = BgL_opt1109z00_34; }  else 
{ 
 obj_t BgL_auxz00_3627;
BgL_auxz00_3627 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2085z00zz__biglooz00, BGl_string2080z00zz__biglooz00, BgL_opt1109z00_34); 
FAILURE(BgL_auxz00_3627,BFALSE,BFALSE);} 
{ /* Llib/bigloo.scm 739 */
 bool_t BgL_test2318z00_3631;
{ /* Llib/bigloo.scm 739 */
 long BgL_tmpz00_3632;
BgL_tmpz00_3632 = 
VECTOR_LENGTH(BgL_vectorz00_2098); 
BgL_test2318z00_3631 = 
BOUND_CHECK(BgL_iz00_1392, BgL_tmpz00_3632); } 
if(BgL_test2318z00_3631)
{ /* Llib/bigloo.scm 739 */
BgL_arg1407z00_1399 = 
VECTOR_REF(BgL_vectorz00_2098,BgL_iz00_1392); }  else 
{ 
 obj_t BgL_auxz00_3636;
BgL_auxz00_3636 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2086z00zz__biglooz00, BgL_vectorz00_2098, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_2098)), 
(int)(BgL_iz00_1392)); 
FAILURE(BgL_auxz00_3636,BFALSE,BFALSE);} } } 
BgL_test2316z00_3624 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1407z00_1399, BGl_list2087z00zz__biglooz00)); } 
if(BgL_test2316z00_3624)
{ 
 long BgL_iz00_3645;
BgL_iz00_3645 = 
(BgL_iz00_1392+2L); 
BgL_iz00_1392 = BgL_iz00_3645; 
goto BgL_check1113z00_1393;}  else 
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_arg1405z00_1398;
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_vectorz00_2101;
if(
VECTORP(BgL_opt1109z00_34))
{ /* Llib/bigloo.scm 739 */
BgL_vectorz00_2101 = BgL_opt1109z00_34; }  else 
{ 
 obj_t BgL_auxz00_3649;
BgL_auxz00_3649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2085z00zz__biglooz00, BGl_string2080z00zz__biglooz00, BgL_opt1109z00_34); 
FAILURE(BgL_auxz00_3649,BFALSE,BFALSE);} 
{ /* Llib/bigloo.scm 739 */
 bool_t BgL_test2320z00_3653;
{ /* Llib/bigloo.scm 739 */
 long BgL_tmpz00_3654;
BgL_tmpz00_3654 = 
VECTOR_LENGTH(BgL_vectorz00_2101); 
BgL_test2320z00_3653 = 
BOUND_CHECK(BgL_iz00_1392, BgL_tmpz00_3654); } 
if(BgL_test2320z00_3653)
{ /* Llib/bigloo.scm 739 */
BgL_arg1405z00_1398 = 
VECTOR_REF(BgL_vectorz00_2101,BgL_iz00_1392); }  else 
{ 
 obj_t BgL_auxz00_3658;
BgL_auxz00_3658 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2086z00zz__biglooz00, BgL_vectorz00_2101, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_2101)), 
(int)(BgL_iz00_1392)); 
FAILURE(BgL_auxz00_3658,BFALSE,BFALSE);} } } 
BGl_errorz00zz__errorz00(BGl_symbol2082z00zz__biglooz00, BGl_string2090z00zz__biglooz00, BgL_arg1405z00_1398); } } } 
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_index1115z00_1400;
BgL_k1z00_1388 = BGl_keyword2088z00zz__biglooz00; 
BgL_iz00_1389 = 0L; 
BgL_search1112z00_1390:
if(
(BgL_iz00_1389==BgL_l1111z00_1387))
{ /* Llib/bigloo.scm 739 */
BgL_index1115z00_1400 = 
BINT((-1L)); }  else 
{ /* Llib/bigloo.scm 739 */
if(
(BgL_iz00_1389==
(BgL_l1111z00_1387-1L)))
{ /* Llib/bigloo.scm 739 */
 long BgL_arg1412z00_1406;
{ 
 obj_t BgL_auxz00_3672;
if(
VECTORP(BgL_opt1109z00_34))
{ /* Llib/bigloo.scm 739 */
BgL_auxz00_3672 = BgL_opt1109z00_34
; }  else 
{ 
 obj_t BgL_auxz00_3675;
BgL_auxz00_3675 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2081z00zz__biglooz00, BGl_string2080z00zz__biglooz00, BgL_opt1109z00_34); 
FAILURE(BgL_auxz00_3675,BFALSE,BFALSE);} 
BgL_arg1412z00_1406 = 
VECTOR_LENGTH(BgL_auxz00_3672); } 
BgL_index1115z00_1400 = 
BGl_errorz00zz__errorz00(BGl_symbol2082z00zz__biglooz00, BGl_string2084z00zz__biglooz00, 
BINT(BgL_arg1412z00_1406)); }  else 
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_vz00_1407;
{ 
 obj_t BgL_auxz00_3682;
if(
VECTORP(BgL_opt1109z00_34))
{ /* Llib/bigloo.scm 739 */
BgL_auxz00_3682 = BgL_opt1109z00_34
; }  else 
{ 
 obj_t BgL_auxz00_3685;
BgL_auxz00_3685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2081z00zz__biglooz00, BGl_string2080z00zz__biglooz00, BgL_opt1109z00_34); 
FAILURE(BgL_auxz00_3685,BFALSE,BFALSE);} 
BgL_vz00_1407 = 
VECTOR_REF(BgL_auxz00_3682,BgL_iz00_1389); } 
if(
(BgL_vz00_1407==BgL_k1z00_1388))
{ /* Llib/bigloo.scm 739 */
BgL_index1115z00_1400 = 
BINT(
(BgL_iz00_1389+1L)); }  else 
{ 
 long BgL_iz00_3694;
BgL_iz00_3694 = 
(BgL_iz00_1389+2L); 
BgL_iz00_1389 = BgL_iz00_3694; 
goto BgL_search1112z00_1390;} } } 
{ /* Llib/bigloo.scm 739 */
 bool_t BgL_test2326z00_3696;
{ /* Llib/bigloo.scm 739 */
 long BgL_n1z00_2103;
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_tmpz00_3697;
if(
INTEGERP(BgL_index1115z00_1400))
{ /* Llib/bigloo.scm 739 */
BgL_tmpz00_3697 = BgL_index1115z00_1400
; }  else 
{ 
 obj_t BgL_auxz00_3700;
BgL_auxz00_3700 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2079z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_index1115z00_1400); 
FAILURE(BgL_auxz00_3700,BFALSE,BFALSE);} 
BgL_n1z00_2103 = 
(long)CINT(BgL_tmpz00_3697); } 
BgL_test2326z00_3696 = 
(BgL_n1z00_2103>=0L); } 
if(BgL_test2326z00_3696)
{ 
 long BgL_auxz00_3713; obj_t BgL_auxz00_3706;
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_tmpz00_3714;
if(
INTEGERP(BgL_index1115z00_1400))
{ /* Llib/bigloo.scm 739 */
BgL_tmpz00_3714 = BgL_index1115z00_1400
; }  else 
{ 
 obj_t BgL_auxz00_3717;
BgL_auxz00_3717 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2079z00zz__biglooz00, BGl_string2050z00zz__biglooz00, BgL_index1115z00_1400); 
FAILURE(BgL_auxz00_3717,BFALSE,BFALSE);} 
BgL_auxz00_3713 = 
(long)CINT(BgL_tmpz00_3714); } 
if(
VECTORP(BgL_opt1109z00_34))
{ /* Llib/bigloo.scm 739 */
BgL_auxz00_3706 = BgL_opt1109z00_34
; }  else 
{ 
 obj_t BgL_auxz00_3709;
BgL_auxz00_3709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2026z00zz__biglooz00, 
BINT(28626L), BGl_string2079z00zz__biglooz00, BGl_string2080z00zz__biglooz00, BgL_opt1109z00_34); 
FAILURE(BgL_auxz00_3709,BFALSE,BFALSE);} 
BgL_finaliza7eza7_1391 = 
VECTOR_REF(BgL_auxz00_3706,BgL_auxz00_3713); }  else 
{ /* Llib/bigloo.scm 739 */BFALSE; } } } 
{ /* Llib/bigloo.scm 739 */
 obj_t BgL_finaliza7eza7_1402;
BgL_finaliza7eza7_1402 = BgL_finaliza7eza7_1391; 
GC_COLLECT(); BUNSPEC; 
if(
CBOOL(BgL_finaliza7eza7_1402))
{ /* Llib/bigloo.scm 741 */
GC_invoke_finalizers(); 
return BUNSPEC;}  else 
{ /* Llib/bigloo.scm 741 */
return BFALSE;} } } } } } } } 

}



/* gc */
BGL_EXPORTED_DEF obj_t BGl_gcz00zz__biglooz00(obj_t BgL_finaliza7eza7_33)
{
{ /* Llib/bigloo.scm 739 */
GC_COLLECT(); BUNSPEC; 
if(
CBOOL(BgL_finaliza7eza7_33))
{ /* Llib/bigloo.scm 741 */
GC_invoke_finalizers(); 
return BUNSPEC;}  else 
{ /* Llib/bigloo.scm 741 */
return BFALSE;} } 

}



/* gc-finalize */
BGL_EXPORTED_DEF obj_t BGl_gczd2finaliza7ez75zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 747 */
GC_invoke_finalizers(); 
return BUNSPEC;} 

}



/* &gc-finalize */
obj_t BGl_z62gczd2finaliza7ez17zz__biglooz00(obj_t BgL_envz00_2354)
{
{ /* Llib/bigloo.scm 747 */
return 
BGl_gczd2finaliza7ez75zz__biglooz00();} 

}



/* make-cell */
BGL_EXPORTED_DEF obj_t BGl_makezd2cellzd2zz__biglooz00(obj_t BgL_valz00_36)
{
{ /* Llib/bigloo.scm 755 */
return 
MAKE_YOUNG_CELL(BgL_valz00_36);} 

}



/* &make-cell */
obj_t BGl_z62makezd2cellzb0zz__biglooz00(obj_t BgL_envz00_2355, obj_t BgL_valz00_2356)
{
{ /* Llib/bigloo.scm 755 */
return 
BGl_makezd2cellzd2zz__biglooz00(BgL_valz00_2356);} 

}



/* cell? */
BGL_EXPORTED_DEF obj_t BGl_cellzf3zf3zz__biglooz00(obj_t BgL_objz00_37)
{
{ /* Llib/bigloo.scm 761 */
return 
BBOOL(
CELLP(BgL_objz00_37));} 

}



/* &cell? */
obj_t BGl_z62cellzf3z91zz__biglooz00(obj_t BgL_envz00_2357, obj_t BgL_objz00_2358)
{
{ /* Llib/bigloo.scm 761 */
return 
BGl_cellzf3zf3zz__biglooz00(BgL_objz00_2358);} 

}



/* cell-ref */
BGL_EXPORTED_DEF obj_t BGl_cellzd2refzd2zz__biglooz00(obj_t BgL_cellz00_38)
{
{ /* Llib/bigloo.scm 767 */
return 
CELL_REF(BgL_cellz00_38);} 

}



/* &cell-ref */
obj_t BGl_z62cellzd2refzb0zz__biglooz00(obj_t BgL_envz00_2359, obj_t BgL_cellz00_2360)
{
{ /* Llib/bigloo.scm 767 */
return 
BGl_cellzd2refzd2zz__biglooz00(BgL_cellz00_2360);} 

}



/* cell-set! */
BGL_EXPORTED_DEF obj_t BGl_cellzd2setz12zc0zz__biglooz00(obj_t BgL_cellz00_39, obj_t BgL_valz00_40)
{
{ /* Llib/bigloo.scm 773 */
return 
CELL_SET(BgL_cellz00_39, BgL_valz00_40);} 

}



/* &cell-set! */
obj_t BGl_z62cellzd2setz12za2zz__biglooz00(obj_t BgL_envz00_2361, obj_t BgL_cellz00_2362, obj_t BgL_valz00_2363)
{
{ /* Llib/bigloo.scm 773 */
return 
BGl_cellzd2setz12zc0zz__biglooz00(BgL_cellz00_2362, BgL_valz00_2363);} 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 14 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 14 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 14 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__biglooz00(void)
{
{ /* Llib/bigloo.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string2091z00zz__biglooz00)); 
BGl_modulezd2initializa7ationz75zz__configurez00(35034923L, 
BSTRING_TO_STRING(BGl_string2091z00zz__biglooz00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string2091z00zz__biglooz00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string2091z00zz__biglooz00)); 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string2091z00zz__biglooz00)); 
return 
BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L, 
BSTRING_TO_STRING(BGl_string2091z00zz__biglooz00));} 

}

#ifdef __cplusplus
}
#endif
