/*===========================================================================*/
/*   (Llib/bigloo.scm)                                                       */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Llib/bigloo.scm -indent -o objs/obj_s/Llib/bigloo.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#include <bigloo.h>
#include <signal.h>

static obj_t BGl_symbol3688z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3687z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_za2modulesza2z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3685z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3684z00zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_symbol3682z00zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t bigloo_class_demangle(obj_t);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__bigloozd2modulezd2mangle2309z00zz__biglooz00(obj_t, obj_t, obj_t);
static obj_t BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_opaquezf3zf3zz__biglooz00(obj_t);
static obj_t BGl_symbol3670z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3669z00zz__biglooz00 = BUNSPEC;
static obj_t BGl__bigloozd2classzd2mangledzf32318zf3zz__biglooz00(obj_t, obj_t);
extern obj_t make_string(int, unsigned char);
static obj_t BGl__bigloozd2mangle2307zd2zz__biglooz00(obj_t, obj_t);
extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__closurezd2arity2302zd2zz__biglooz00(obj_t, obj_t);
extern bool_t bigloo_strncmp(obj_t, obj_t, int);
static obj_t BGl__unspecifiedz00zz__biglooz00(obj_t);
static obj_t BGl__checkzd2versionz122300zc0zz__biglooz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_cnstzf3zf3zz__biglooz00(obj_t);
static obj_t BGl_cnstzd2initzd2zz__biglooz00();
static obj_t BGl_za2releaseza2z00zz__biglooz00 = BUNSPEC;
extern bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl_za2levelza2z00zz__biglooz00 = BUNSPEC;
static obj_t BGl__bigloozd2mangledzf32312z21zz__biglooz00(obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl_list3726z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_bigloozd2demanglezd2atz00zz__biglooz00(long, obj_t, obj_t);
extern long BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
extern obj_t string_append(obj_t, obj_t);
static obj_t BGl__bigloozd2exitzd2applyz00zz__biglooz00(obj_t, obj_t);
static obj_t BGl__bigloozd2needzd2manglingzf32314zf3zz__biglooz00(obj_t, obj_t);
static long BGl_manglezd2atz12zc0zz__biglooz00(obj_t, obj_t, int, long);
static long BGl_getzd28bitszd2integerz00zz__biglooz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__biglooz00();
extern obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, int, obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_registerzd2exitzd2functionz12z12zz__biglooz00(obj_t);
BGL_EXPORTED_DECL obj_t bigloo_mangle(obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t bigloo_exit_apply(obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__bigloozd2classzd2demangle2320z00zz__biglooz00(obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
BGL_EXPORTED_DEF obj_t BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_bigloozd2needzd2manglingzf3zf3zz__biglooz00(obj_t);
BGL_EXPORTED_DECL obj_t bigloo_demangle(obj_t);
extern obj_t string_to_bstring(char *);
static obj_t BGl__registerzd2exitzd2functionz122322z12zz__biglooz00(obj_t, obj_t);
static long BGl_charzd2ze3digitz31zz__biglooz00(unsigned char);
BGL_EXPORTED_DECL bool_t bigloo_mangledp(obj_t);
BGL_EXPORTED_DECL bool_t bigloo_class_mangledp(obj_t);
BGL_EXPORTED_DECL obj_t BGl_unspecifiedz00zz__biglooz00();
extern unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long);
static obj_t BGl_symbol3731z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3730z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3729z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3728z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3727z00zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t bigloo_module_mangle(obj_t, obj_t);
static obj_t BGl_symbol3723z00zz__biglooz00 = BUNSPEC;
static obj_t BGl__bigloozd2demangle2316zd2zz__biglooz00(obj_t, obj_t);
static obj_t BGl_symbol3722z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__biglooz00();
static obj_t BGl_symbol3719z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3718z00zz__biglooz00 = BUNSPEC;
static obj_t BGl__cnstzf3zf3zz__biglooz00(obj_t, obj_t);
static obj_t BGl_symbol3716z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3715z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3714z00zz__biglooz00 = BUNSPEC;
static obj_t BGl__opaquezf3zf3zz__biglooz00(obj_t, obj_t);
static obj_t BGl_symbol3713z00zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_checkzd2versionz12zc0zz__biglooz00(obj_t, char *, obj_t);
static obj_t BGl_symbol3712z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3709z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3698z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3697z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3705z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3704z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3703z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3693z00zz__biglooz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_closurezd2arityzd2zz__biglooz00(obj_t);
static obj_t BGl_symbol3702z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3701z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3700z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3690z00zz__biglooz00 = BUNSPEC;
static obj_t BGl_symbol3689z00zz__biglooz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_cnstzf3zd2envz21zz__biglooz00, BgL_bgl__cnstza7f3za7f3za7za7__biglooza7003743za7, BGl__cnstzf3zf3zz__biglooz00, 0L, 1 );
DEFINE_STRING( BGl_string3725z00zz__biglooz00, BgL_bgl_string3725za700za7za7__biglooza7003744z00, "bigloo-exit-apply:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string3724z00zz__biglooz00, BgL_bgl_string3724za700za7za7__biglooza7003745z00, "pair", 4 );
DEFINE_STRING( BGl_string3721z00zz__biglooz00, BgL_bgl_string3721za700za7za7__biglooza7003746z00, "Wrong procedure arity", 21 );
DEFINE_STRING( BGl_string3720z00zz__biglooz00, BgL_bgl_string3720za700za7za7__biglooza7003747z00, "bigloo-exit-register!", 21 );
DEFINE_STRING( BGl_string3717z00zz__biglooz00, BgL_bgl_string3717za700za7za7__biglooza7003748z00, "_bglt", 5 );
DEFINE_STRING( BGl_string3711z00zz__biglooz00, BgL_bgl_string3711za700za7za7__biglooza7003749z00, "int", 3 );
DEFINE_STRING( BGl_string3710z00zz__biglooz00, BgL_bgl_string3710za700za7za7__biglooza7003750z00, "long", 4 );
DEFINE_STRING( BGl_string3699z00zz__biglooz00, BgL_bgl_string3699za700za7za7__biglooza7003751z00, "BGl_", 4 );
DEFINE_STRING( BGl_string3708z00zz__biglooz00, BgL_bgl_string3708za700za7za7__biglooza7003752z00, "Illegal mangling on", 19 );
DEFINE_STRING( BGl_string3707z00zz__biglooz00, BgL_bgl_string3707za700za7za7__biglooza7003753z00, "Not a Bigloo mangled identifier", 31 );
DEFINE_STRING( BGl_string3706z00zz__biglooz00, BgL_bgl_string3706za700za7za7__biglooza7003754z00, "bigloo-demangle", 15 );
DEFINE_STRING( BGl_string3696z00zz__biglooz00, BgL_bgl_string3696za700za7za7__biglooza7003755z00, "BgL_", 4 );
DEFINE_STRING( BGl_string3695z00zz__biglooz00, BgL_bgl_string3695za700za7za7__biglooza7003756z00, "Can't mangle empty string", 25 );
DEFINE_STRING( BGl_string3694z00zz__biglooz00, BgL_bgl_string3694za700za7za7__biglooza7003757z00, "bigloo-mangle-string", 20 );
DEFINE_STRING( BGl_string3692z00zz__biglooz00, BgL_bgl_string3692za700za7za7__biglooza7003758z00, "string-ref", 10 );
DEFINE_STRING( BGl_string3691z00zz__biglooz00, BgL_bgl_string3691za700za7za7__biglooza7003759z00, "0123456789abcdef", 16 );
DEFINE_STRING( BGl_string3686z00zz__biglooz00, BgL_bgl_string3686za700za7za7__biglooza7003760z00, "procedure", 9 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2needzd2manglingzf3zd2envz21zz__biglooz00, BgL_bgl__biglooza7d2needza7d2manglingza7f32314za7f3za7za7__biglooza7003761za7, BGl__bigloozd2needzd2manglingzf32314zf3zz__biglooz00, 0L, 1 );
DEFINE_STRING( BGl_string3683z00zz__biglooz00, BgL_bgl_string3683za700za7za7__biglooza7003762z00, "string", 6 );
DEFINE_STRING( BGl_string3681z00zz__biglooz00, BgL_bgl_string3681za700za7za7__biglooza7003763z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string3680z00zz__biglooz00, BgL_bgl_string3680za700za7za7__biglooza7003764z00, "and other by: ", 14 );
DEFINE_STRING( BGl_string3679z00zz__biglooz00, BgL_bgl_string3679za700za7za7__biglooza7003765z00, "Some modules have been compiled by: ", 36 );
DEFINE_STRING( BGl_string3678z00zz__biglooz00, BgL_bgl_string3678za700za7za7__biglooza7003766z00, "index out of range", 18 );
DEFINE_STRING( BGl_string3677z00zz__biglooz00, BgL_bgl_string3677za700za7za7__biglooza7003767z00, "string-set!", 11 );
DEFINE_STRING( BGl_string3676z00zz__biglooz00, BgL_bgl_string3676za700za7za7__biglooza7003768z00, " (level 0)", 10 );
DEFINE_STRING( BGl_string3675z00zz__biglooz00, BgL_bgl_string3675za700za7za7__biglooza7003769z00, "uchar", 5 );
DEFINE_STRING( BGl_string3674z00zz__biglooz00, BgL_bgl_string3674za700za7za7__biglooza7003770z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string3673z00zz__biglooz00, BgL_bgl_string3673za700za7za7__biglooza7003771z00, "substring", 9 );
DEFINE_STRING( BGl_string3672z00zz__biglooz00, BgL_bgl_string3672za700za7za7__biglooza7003772z00, "/tmp/bigloo/runtime/./Llib/bigloo.scm", 37 );
DEFINE_STRING( BGl_string3671z00zz__biglooz00, BgL_bgl_string3671za700za7za7__biglooza7003773z00, "bstring", 7 );
extern obj_t BGl_stringzd2envzd2zz__r4_strings_6_7z00;
DEFINE_EXPORT_PROCEDURE( BGl_closurezd2arityzd2envz00zz__biglooz00, BgL_bgl__closureza7d2arity2302za7d2za7za7__biglooza7003774za7, BGl__closurezd2arity2302zd2zz__biglooz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_checkzd2versionz12zd2envz12zz__biglooz00, BgL_bgl__checkza7d2versionza7122300za7c0za7za7__biglooza7003775z00, BGl__checkzd2versionz122300zc0zz__biglooz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2classzd2mangledzf3zd2envz21zz__biglooz00, BgL_bgl__biglooza7d2classza7d2mangledza7f32318za7f3za7za7__biglooza7003776za7, BGl__bigloozd2classzd2mangledzf32318zf3zz__biglooz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2modulezd2manglezd2envzd2zz__biglooz00, BgL_bgl__biglooza7d2moduleza7d2mangle2309za700za7za7__biglooza7003777z00, BGl__bigloozd2modulezd2mangle2309z00zz__biglooz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_unspecifiedzd2envzd2zz__biglooz00, BgL_bgl__unspecifiedza700za7za7__biglooza7003778z00, BGl__unspecifiedz00zz__biglooz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2mangledzf3zd2envzf3zz__biglooz00, BgL_bgl__biglooza7d2mangledza7f32312za721za7za7__biglooza7003779z00, BGl__bigloozd2mangledzf32312z21zz__biglooz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_opaquezf3zd2envz21zz__biglooz00, BgL_bgl__opaqueza7f3za7f3za7za7__biglooza7003780za7, BGl__opaquezf3zf3zz__biglooz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2exitzd2applyzd2envzd2zz__biglooz00, BgL_bgl__biglooza7d2exitza7d2applyza700za7za7__biglooza7003781z00, BGl__bigloozd2exitzd2applyz00zz__biglooz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2demanglezd2envz00zz__biglooz00, BgL_bgl__biglooza7d2demangle2316za7d2za7za7__biglooza7003782za7, BGl__bigloozd2demangle2316zd2zz__biglooz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2manglezd2envz00zz__biglooz00, BgL_bgl__biglooza7d2mangle2307za7d2za7za7__biglooza7003783za7, BGl__bigloozd2mangle2307zd2zz__biglooz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2exitzd2functionz12zd2envzc0zz__biglooz00, BgL_bgl__registerza7d2exitza7d2functionza7122322za712za7za7__biglooza7003784za7, BGl__registerzd2exitzd2functionz122322z12zz__biglooz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2classzd2demanglezd2envzd2zz__biglooz00, BgL_bgl__biglooza7d2classza7d2demangle2320za700za7za7__biglooza7003785z00, BGl__bigloozd2classzd2demangle2320z00zz__biglooz00, 0L, 1 );



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__biglooz00()
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 14 */
BGl_symbol3669z00zz__biglooz00 = 
string_to_symbol("%toplevel@__bigloo"); 
BGl_symbol3670z00zz__biglooz00 = 
string_to_symbol("check-version!"); 
BGl_symbol3682z00zz__biglooz00 = 
string_to_symbol("_check-version!2300"); 
BGl_symbol3684z00zz__biglooz00 = 
string_to_symbol("closure-arity"); 
BGl_symbol3685z00zz__biglooz00 = 
string_to_symbol("_closure-arity2302"); 
BGl_symbol3687z00zz__biglooz00 = 
string_to_symbol("unspecified"); 
BGl_symbol3688z00zz__biglooz00 = 
string_to_symbol("cnst?"); 
BGl_symbol3689z00zz__biglooz00 = 
string_to_symbol("opaque?"); 
BGl_symbol3690z00zz__biglooz00 = 
string_to_symbol("mangle-at!"); 
BGl_symbol3693z00zz__biglooz00 = 
string_to_symbol("bigloo-mangle"); 
BGl_symbol3697z00zz__biglooz00 = 
string_to_symbol("_bigloo-mangle2307"); 
BGl_symbol3698z00zz__biglooz00 = 
string_to_symbol("bigloo-module-mangle"); 
BGl_symbol3700z00zz__biglooz00 = 
string_to_symbol("_bigloo-module-mangle2309"); 
BGl_symbol3701z00zz__biglooz00 = 
string_to_symbol("bigloo-mangled?"); 
BGl_symbol3702z00zz__biglooz00 = 
string_to_symbol("_bigloo-mangled?2312"); 
BGl_symbol3703z00zz__biglooz00 = 
string_to_symbol("bigloo-need-mangling?"); 
BGl_symbol3704z00zz__biglooz00 = 
string_to_symbol("_bigloo-need-mangling?2314"); 
BGl_symbol3705z00zz__biglooz00 = 
string_to_symbol("bigloo-demangle"); 
BGl_symbol3709z00zz__biglooz00 = 
string_to_symbol("bigloo-demangle-at"); 
BGl_symbol3712z00zz__biglooz00 = 
string_to_symbol("get-8bits-integer"); 
BGl_symbol3713z00zz__biglooz00 = 
string_to_symbol("_bigloo-demangle2316"); 
BGl_symbol3714z00zz__biglooz00 = 
string_to_symbol("bigloo-class-mangled?"); 
BGl_symbol3715z00zz__biglooz00 = 
string_to_symbol("_bigloo-class-mangled?2318"); 
BGl_symbol3716z00zz__biglooz00 = 
string_to_symbol("bigloo-class-demangle"); 
BGl_symbol3718z00zz__biglooz00 = 
string_to_symbol("_bigloo-class-demangle2320"); 
BGl_symbol3719z00zz__biglooz00 = 
string_to_symbol("register-exit-function!"); 
BGl_symbol3722z00zz__biglooz00 = 
string_to_symbol("_register-exit-function!2322"); 
BGl_symbol3723z00zz__biglooz00 = 
string_to_symbol("bigloo-exit-apply"); 
BGl_symbol3727z00zz__biglooz00 = 
string_to_symbol("funcall"); 
BGl_symbol3728z00zz__biglooz00 = 
string_to_symbol("fun"); 
BGl_symbol3729z00zz__biglooz00 = 
string_to_symbol("val"); 
{ /* ./Llib/bigloo.scm 567 */
obj_t BgL_auxz00_1921;
{ /* ./Llib/bigloo.scm 567 */
obj_t BgL_auxz00_1922;
{ /* ./Llib/bigloo.scm 567 */
obj_t BgL_auxz00_1923;
BgL_auxz00_1923 = 
MAKE_PAIR(BGl_symbol3729z00zz__biglooz00, BNIL); 
BgL_auxz00_1922 = 
MAKE_PAIR(BGl_symbol3728z00zz__biglooz00, BgL_auxz00_1923); } 
BgL_auxz00_1921 = 
MAKE_PAIR(BGl_symbol3728z00zz__biglooz00, BgL_auxz00_1922); } 
BGl_list3726z00zz__biglooz00 = 
MAKE_PAIR(BGl_symbol3727z00zz__biglooz00, BgL_auxz00_1921); } 
BGl_symbol3730z00zz__biglooz00 = 
string_to_symbol("_"); 
return ( 
BGl_symbol3731z00zz__biglooz00 = 
string_to_symbol("%import@__bigloo"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__biglooz00()
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 14 */
{ /* ./Llib/bigloo.scm 14 */
obj_t BgL_symbol2184z00_1637;
BgL_symbol2184z00_1637 = BGl_symbol3669z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 14 */

PUSH_TRACE(BgL_symbol2184z00_1637); BUNSPEC; 
{ /* ./Llib/bigloo.scm 14 */
obj_t BgL_aux2183z00_1638;
BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00 = BFALSE; 
BGl_za2releaseza2z00zz__biglooz00 = BFALSE; 
BGl_za2levelza2z00zz__biglooz00 = BFALSE; 
BGl_za2modulesza2z00zz__biglooz00 = BNIL; 
BgL_aux2183z00_1638 = ( 
BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = BNIL, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux2183z00_1638;} } } } 
}



/* check-version! */
BGL_EXPORTED_DEF obj_t BGl_checkzd2versionz12zc0zz__biglooz00(obj_t BgL_modulez00_1, char * BgL_releasez00_2, obj_t BgL_levelz00_3)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 295 */
{ /* ./Llib/bigloo.scm 297 */
obj_t BgL_symbol2188z00_1639;
BgL_symbol2188z00_1639 = BGl_symbol3670z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 297 */

PUSH_TRACE(BgL_symbol2188z00_1639); BUNSPEC; 
{ /* ./Llib/bigloo.scm 297 */
obj_t BgL_aux2187z00_1640;
if(
STRINGP(BGl_za2releaseza2z00zz__biglooz00))
{ /* ./Llib/bigloo.scm 301 */
bool_t BgL_test1030z00_356;
{ /* ./Llib/bigloo.scm 301 */
bool_t BgL_test1058z00_373;
{ /* ./Llib/bigloo.scm 301 */
long BgL_minz00_377;
{ /* ./Llib/bigloo.scm 301 */
long BgL_arg1073z00_381;
{ /* ./Llib/bigloo.scm 301 */
int BgL_arg1079z00_383;int BgL_arg1080z00_384;
{ /* ./Llib/bigloo.scm 301 */
obj_t BgL_auxz00_1935;
BgL_auxz00_1935 = 
string_to_bstring(BgL_releasez00_2); 
BgL_arg1079z00_383 = 
STRING_LENGTH(BgL_auxz00_1935); } 
{ /* ./Llib/bigloo.scm 302 */
obj_t BgL_stringz00_734;
{ /* ./Llib/bigloo.scm 302 */
obj_t BgL_aux2329z00_1706;
BgL_aux2329z00_1706 = BGl_za2releaseza2z00zz__biglooz00; 
if(
STRINGP(BgL_aux2329z00_1706))
{ /* ./Llib/bigloo.scm 302 */
BgL_stringz00_734 = BgL_aux2329z00_1706; }  else 
{ /* ./Llib/bigloo.scm 302 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux2329z00_1706, BGl_string3672z00zz__biglooz00, 
BINT(((long)11102))); 
exit( -1 );} } 
BgL_arg1080z00_384 = 
STRING_LENGTH(BgL_stringz00_734); } 
{ /* ./Llib/bigloo.scm 301 */
obj_t BgL_list1082z00_385;
{ /* ./Llib/bigloo.scm 301 */
obj_t BgL_auxz00_1944;
BgL_auxz00_1944 = 
BINT(BgL_arg1080z00_384); 
BgL_list1082z00_385 = 
MAKE_PAIR(BgL_auxz00_1944, BNIL); } 
BgL_arg1073z00_381 = 
BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_arg1079z00_383), BgL_list1082z00_385); } } 
BgL_minz00_377 = 
(BgL_arg1073z00_381-((long)1)); } 
{ /* ./Llib/bigloo.scm 304 */
bool_t BgL_test1063z00_378;
{ /* ./Llib/bigloo.scm 304 */
obj_t BgL_arg1065z00_379;obj_t BgL_arg1066z00_380;
{ /* ./Llib/bigloo.scm 304 */
obj_t BgL_res2138z00_765;
{ /* ./Llib/bigloo.scm 304 */
obj_t BgL_stringz00_737;int BgL_startz00_738;int BgL_endz00_739;
BgL_stringz00_737 = 
string_to_bstring(BgL_releasez00_2); 
BgL_startz00_738 = 
(int)(((long)0)); 
BgL_endz00_739 = 
(int)(BgL_minz00_377); 
{ /* ./Llib/bigloo.scm 304 */
bool_t BgL_test1577z00_740;
{ /* ./Llib/bigloo.scm 304 */
bool_t BgL_testz00_1953;
{ /* ./Llib/bigloo.scm 304 */
long BgL_auxz00_1956;long BgL_auxz00_1954;
BgL_auxz00_1956 = 
(long)(BgL_startz00_738); 
BgL_auxz00_1954 = 
(long)(BgL_endz00_739); 
BgL_testz00_1953 = 
(BgL_auxz00_1954>=BgL_auxz00_1956); } 
if(BgL_testz00_1953)
{ /* ./Llib/bigloo.scm 304 */
bool_t BgL_testz00_1959;
{ /* ./Llib/bigloo.scm 304 */
int BgL_auxz00_1960;
{ /* ./Llib/bigloo.scm 304 */
long BgL_auxz00_1961;
{ /* ./Llib/bigloo.scm 304 */
long BgL_auxz00_1962;
{ /* ./Llib/bigloo.scm 304 */
int BgL_auxz00_1963;
BgL_auxz00_1963 = 
STRING_LENGTH(BgL_stringz00_737); 
BgL_auxz00_1962 = 
(long)(BgL_auxz00_1963); } 
BgL_auxz00_1961 = 
(BgL_auxz00_1962+((long)1)); } 
BgL_auxz00_1960 = 
(int)(BgL_auxz00_1961); } 
BgL_testz00_1959 = 
BOUND_CHECK(BgL_startz00_738, BgL_auxz00_1960); } 
if(BgL_testz00_1959)
{ /* ./Llib/bigloo.scm 304 */
int BgL_auxz00_1969;
{ /* ./Llib/bigloo.scm 304 */
long BgL_auxz00_1970;
{ /* ./Llib/bigloo.scm 304 */
long BgL_auxz00_1971;
{ /* ./Llib/bigloo.scm 304 */
int BgL_auxz00_1972;
BgL_auxz00_1972 = 
STRING_LENGTH(BgL_stringz00_737); 
BgL_auxz00_1971 = 
(long)(BgL_auxz00_1972); } 
BgL_auxz00_1970 = 
(BgL_auxz00_1971+((long)1)); } 
BgL_auxz00_1969 = 
(int)(BgL_auxz00_1970); } 
BgL_test1577z00_740 = 
BOUND_CHECK(BgL_endz00_739, BgL_auxz00_1969); }  else 
{ /* ./Llib/bigloo.scm 304 */
BgL_test1577z00_740 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 304 */
BgL_test1577z00_740 = ((bool_t)0); } } 
if(BgL_test1577z00_740)
{ /* ./Llib/bigloo.scm 304 */
BgL_res2138z00_765 = 
c_substring(BgL_stringz00_737, BgL_startz00_738, BgL_endz00_739); }  else 
{ /* ./Llib/bigloo.scm 304 */
{ /* ./Llib/bigloo.scm 304 */
obj_t BgL_arg1585z00_751;
{ /* ./Llib/bigloo.scm 304 */
obj_t BgL_auxz00_1982;obj_t BgL_auxz00_1980;
BgL_auxz00_1982 = 
BINT(BgL_endz00_739); 
BgL_auxz00_1980 = 
BINT(BgL_startz00_738); 
BgL_arg1585z00_751 = 
MAKE_PAIR(BgL_auxz00_1980, BgL_auxz00_1982); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3673z00zz__biglooz00, BGl_string3674z00zz__biglooz00, BgL_arg1585z00_751, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/bigloo.scm 304 */
obj_t BgL_aux2359z00_1708;
BgL_aux2359z00_1708 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)11162))); 
if(
STRINGP(BgL_aux2359z00_1708))
{ /* ./Llib/bigloo.scm 304 */
BgL_res2138z00_765 = BgL_aux2359z00_1708; }  else 
{ /* ./Llib/bigloo.scm 304 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux2359z00_1708, BGl_string3672z00zz__biglooz00, 
BINT(((long)11162))); 
exit( -1 );} } } } } 
BgL_arg1065z00_379 = BgL_res2138z00_765; } 
{ /* ./Llib/bigloo.scm 305 */
obj_t BgL_res2139z00_794;
{ /* ./Llib/bigloo.scm 305 */
obj_t BgL_stringz00_766;int BgL_startz00_767;int BgL_endz00_768;
{ /* ./Llib/bigloo.scm 305 */
obj_t BgL_aux2369z00_1710;
BgL_aux2369z00_1710 = BGl_za2releaseza2z00zz__biglooz00; 
if(
STRINGP(BgL_aux2369z00_1710))
{ /* ./Llib/bigloo.scm 305 */
BgL_stringz00_766 = BgL_aux2369z00_1710; }  else 
{ /* ./Llib/bigloo.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux2369z00_1710, BGl_string3672z00zz__biglooz00, 
BINT(((long)11196))); 
exit( -1 );} } 
BgL_startz00_767 = 
(int)(((long)0)); 
BgL_endz00_768 = 
(int)(BgL_minz00_377); 
{ /* ./Llib/bigloo.scm 305 */
bool_t BgL_test1577z00_769;
{ /* ./Llib/bigloo.scm 305 */
bool_t BgL_testz00_2000;
{ /* ./Llib/bigloo.scm 305 */
long BgL_auxz00_2003;long BgL_auxz00_2001;
BgL_auxz00_2003 = 
(long)(BgL_startz00_767); 
BgL_auxz00_2001 = 
(long)(BgL_endz00_768); 
BgL_testz00_2000 = 
(BgL_auxz00_2001>=BgL_auxz00_2003); } 
if(BgL_testz00_2000)
{ /* ./Llib/bigloo.scm 305 */
bool_t BgL_testz00_2006;
{ /* ./Llib/bigloo.scm 305 */
int BgL_auxz00_2007;
{ /* ./Llib/bigloo.scm 305 */
long BgL_auxz00_2008;
{ /* ./Llib/bigloo.scm 305 */
long BgL_auxz00_2009;
{ /* ./Llib/bigloo.scm 305 */
int BgL_auxz00_2010;
BgL_auxz00_2010 = 
STRING_LENGTH(BgL_stringz00_766); 
BgL_auxz00_2009 = 
(long)(BgL_auxz00_2010); } 
BgL_auxz00_2008 = 
(BgL_auxz00_2009+((long)1)); } 
BgL_auxz00_2007 = 
(int)(BgL_auxz00_2008); } 
BgL_testz00_2006 = 
BOUND_CHECK(BgL_startz00_767, BgL_auxz00_2007); } 
if(BgL_testz00_2006)
{ /* ./Llib/bigloo.scm 305 */
int BgL_auxz00_2016;
{ /* ./Llib/bigloo.scm 305 */
long BgL_auxz00_2017;
{ /* ./Llib/bigloo.scm 305 */
long BgL_auxz00_2018;
{ /* ./Llib/bigloo.scm 305 */
int BgL_auxz00_2019;
BgL_auxz00_2019 = 
STRING_LENGTH(BgL_stringz00_766); 
BgL_auxz00_2018 = 
(long)(BgL_auxz00_2019); } 
BgL_auxz00_2017 = 
(BgL_auxz00_2018+((long)1)); } 
BgL_auxz00_2016 = 
(int)(BgL_auxz00_2017); } 
BgL_test1577z00_769 = 
BOUND_CHECK(BgL_endz00_768, BgL_auxz00_2016); }  else 
{ /* ./Llib/bigloo.scm 305 */
BgL_test1577z00_769 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 305 */
BgL_test1577z00_769 = ((bool_t)0); } } 
if(BgL_test1577z00_769)
{ /* ./Llib/bigloo.scm 305 */
BgL_res2139z00_794 = 
c_substring(BgL_stringz00_766, BgL_startz00_767, BgL_endz00_768); }  else 
{ /* ./Llib/bigloo.scm 305 */
{ /* ./Llib/bigloo.scm 305 */
obj_t BgL_arg1585z00_780;
{ /* ./Llib/bigloo.scm 305 */
obj_t BgL_auxz00_2029;obj_t BgL_auxz00_2027;
BgL_auxz00_2029 = 
BINT(BgL_endz00_768); 
BgL_auxz00_2027 = 
BINT(BgL_startz00_767); 
BgL_arg1585z00_780 = 
MAKE_PAIR(BgL_auxz00_2027, BgL_auxz00_2029); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3673z00zz__biglooz00, BGl_string3674z00zz__biglooz00, BgL_arg1585z00_780, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/bigloo.scm 305 */
obj_t BgL_aux2396z00_1712;
BgL_aux2396z00_1712 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)11196))); 
if(
STRINGP(BgL_aux2396z00_1712))
{ /* ./Llib/bigloo.scm 305 */
BgL_res2139z00_794 = BgL_aux2396z00_1712; }  else 
{ /* ./Llib/bigloo.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux2396z00_1712, BGl_string3672z00zz__biglooz00, 
BINT(((long)11196))); 
exit( -1 );} } } } } 
BgL_arg1066z00_380 = BgL_res2139z00_794; } 
BgL_test1063z00_378 = 
bigloo_strcmp(BgL_arg1065z00_379, BgL_arg1066z00_380); } 
if(BgL_test1063z00_378)
{ /* ./Llib/bigloo.scm 304 */
BgL_test1058z00_373 = ((bool_t)0); }  else 
{ /* ./Llib/bigloo.scm 304 */
BgL_test1058z00_373 = ((bool_t)1); } } } 
if(BgL_test1058z00_373)
{ /* ./Llib/bigloo.scm 301 */
BgL_test1030z00_356 = ((bool_t)1); }  else 
{ /* ./Llib/bigloo.scm 306 */
bool_t BgL__andtest_1003z00_374;
BgL__andtest_1003z00_374 = 
CHARP(BgL_levelz00_3); 
if(BgL__andtest_1003z00_374)
{ /* ./Llib/bigloo.scm 306 */
if(
CHARP(BGl_za2levelza2z00zz__biglooz00))
{ /* ./Llib/bigloo.scm 306 */
bool_t BgL_test1059z00_376;
{ /* ./Llib/bigloo.scm 306 */
unsigned char BgL_char1z00_799;unsigned char BgL_char2z00_800;
{ /* ./Llib/bigloo.scm 306 */
obj_t BgL_auxz00_2047;
{ /* ./Llib/bigloo.scm 306 */
obj_t BgL_aux2406z00_1714;
BgL_aux2406z00_1714 = BGl_za2levelza2z00zz__biglooz00; 
if(
CHARP(BgL_aux2406z00_1714))
{ /* ./Llib/bigloo.scm 306 */
BgL_auxz00_2047 = BgL_aux2406z00_1714
; }  else 
{ /* ./Llib/bigloo.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2406z00_1714, BGl_string3672z00zz__biglooz00, 
BINT(((long)11285))); 
exit( -1 );} } 
BgL_char1z00_799 = 
(unsigned char)CCHAR(BgL_auxz00_2047); } 
{ /* ./Llib/bigloo.scm 306 */
obj_t BgL_auxz00_2054;
if(BgL__andtest_1003z00_374)
{ /* ./Llib/bigloo.scm 306 */
BgL_auxz00_2054 = BgL_levelz00_3
; }  else 
{ /* ./Llib/bigloo.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_levelz00_3, BGl_string3672z00zz__biglooz00, 
BINT(((long)11291))); 
exit( -1 );} 
BgL_char2z00_800 = 
(unsigned char)CCHAR(BgL_auxz00_2054); } 
BgL_test1059z00_376 = 
(BgL_char1z00_799==BgL_char2z00_800); } 
if(BgL_test1059z00_376)
{ /* ./Llib/bigloo.scm 306 */
BgL_test1030z00_356 = ((bool_t)0); }  else 
{ /* ./Llib/bigloo.scm 306 */
BgL_test1030z00_356 = ((bool_t)1); } }  else 
{ /* ./Llib/bigloo.scm 306 */
BgL_test1030z00_356 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 306 */
BgL_test1030z00_356 = ((bool_t)0); } } } 
if(BgL_test1030z00_356)
{ /* ./Llib/bigloo.scm 301 */
{ /* ./Llib/bigloo.scm 313 */
obj_t BgL_arg1032z00_358;obj_t BgL_arg1033z00_359;obj_t BgL_arg1034z00_360;
{ /* ./Llib/bigloo.scm 313 */
obj_t BgL_arg1041z00_364;
{ /* ./Llib/bigloo.scm 314 */
obj_t BgL_releasez00_801;obj_t BgL_levelz00_802;
BgL_releasez00_801 = BGl_za2releaseza2z00zz__biglooz00; 
BgL_levelz00_802 = BGl_za2levelza2z00zz__biglooz00; 
if(
CHARP(BgL_levelz00_802))
{ /* ./Llib/bigloo.scm 314 */
obj_t BgL_sz00_804;
BgL_sz00_804 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BGl_string3676z00zz__biglooz00); 
{ /* ./Llib/bigloo.scm 314 */
int BgL_kz00_807;unsigned char BgL_charz00_808;
BgL_kz00_807 = 
(int)(((long)8)); 
{ /* ./Llib/bigloo.scm 314 */
obj_t BgL_auxz00_2067;
if(
CHARP(BgL_levelz00_802))
{ /* ./Llib/bigloo.scm 314 */
BgL_auxz00_2067 = BgL_levelz00_802
; }  else 
{ /* ./Llib/bigloo.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_levelz00_802, BGl_string3672z00zz__biglooz00, 
BINT(((long)11557))); 
exit( -1 );} 
BgL_charz00_808 = 
(unsigned char)CCHAR(BgL_auxz00_2067); } 
{ /* ./Llib/bigloo.scm 314 */
bool_t BgL_testz00_2074;
{ /* ./Llib/bigloo.scm 314 */
int BgL_auxz00_2075;
BgL_auxz00_2075 = 
STRING_LENGTH(BgL_sz00_804); 
BgL_testz00_2074 = 
BOUND_CHECK(BgL_kz00_807, BgL_auxz00_2075); } 
if(BgL_testz00_2074)
{ /* ./Llib/bigloo.scm 314 */
STRING_SET(BgL_sz00_804, BgL_kz00_807, BgL_charz00_808); }  else 
{ /* ./Llib/bigloo.scm 314 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_807), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)11557))); } } } 
{ /* ./Llib/bigloo.scm 314 */
obj_t BgL_auxz00_2083;
if(
STRINGP(BgL_releasez00_801))
{ /* ./Llib/bigloo.scm 314 */
BgL_auxz00_2083 = BgL_releasez00_801
; }  else 
{ /* ./Llib/bigloo.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_releasez00_801, BGl_string3672z00zz__biglooz00, 
BINT(((long)11557))); 
exit( -1 );} 
BgL_arg1041z00_364 = 
string_append(BgL_auxz00_2083, BgL_sz00_804); } }  else 
{ /* ./Llib/bigloo.scm 314 */
BgL_arg1041z00_364 = BgL_releasez00_801; } } 
{ /* ./Llib/bigloo.scm 313 */
obj_t BgL_auxz00_2090;
if(
STRINGP(BgL_arg1041z00_364))
{ /* ./Llib/bigloo.scm 313 */
BgL_auxz00_2090 = BgL_arg1041z00_364
; }  else 
{ /* ./Llib/bigloo.scm 313 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_arg1041z00_364, BGl_string3672z00zz__biglooz00, 
BINT(((long)11495))); 
exit( -1 );} 
BgL_arg1032z00_358 = 
string_append(BGl_string3679z00zz__biglooz00, BgL_auxz00_2090); } } 
{ /* ./Llib/bigloo.scm 315 */
obj_t BgL_arg1046z00_366;
if(
CHARP(BgL_levelz00_3))
{ /* ./Llib/bigloo.scm 316 */
obj_t BgL_sz00_818;
BgL_sz00_818 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BGl_string3676z00zz__biglooz00); 
{ /* ./Llib/bigloo.scm 316 */
int BgL_kz00_821;unsigned char BgL_charz00_822;
BgL_kz00_821 = 
(int)(((long)8)); 
{ /* ./Llib/bigloo.scm 316 */
obj_t BgL_auxz00_2101;
if(
CHARP(BgL_levelz00_3))
{ /* ./Llib/bigloo.scm 316 */
BgL_auxz00_2101 = BgL_levelz00_3
; }  else 
{ /* ./Llib/bigloo.scm 316 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_levelz00_3, BGl_string3672z00zz__biglooz00, 
BINT(((long)11638))); 
exit( -1 );} 
BgL_charz00_822 = 
(unsigned char)CCHAR(BgL_auxz00_2101); } 
{ /* ./Llib/bigloo.scm 316 */
bool_t BgL_testz00_2108;
{ /* ./Llib/bigloo.scm 316 */
int BgL_auxz00_2109;
BgL_auxz00_2109 = 
STRING_LENGTH(BgL_sz00_818); 
BgL_testz00_2108 = 
BOUND_CHECK(BgL_kz00_821, BgL_auxz00_2109); } 
if(BgL_testz00_2108)
{ /* ./Llib/bigloo.scm 316 */
STRING_SET(BgL_sz00_818, BgL_kz00_821, BgL_charz00_822); }  else 
{ /* ./Llib/bigloo.scm 316 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_821), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)11638))); } } } 
{ /* ./Llib/bigloo.scm 316 */
obj_t BgL_auxz00_2117;
BgL_auxz00_2117 = 
string_to_bstring(BgL_releasez00_2); 
BgL_arg1046z00_366 = 
string_append(BgL_auxz00_2117, BgL_sz00_818); } }  else 
{ /* ./Llib/bigloo.scm 316 */
BgL_arg1046z00_366 = 
string_to_bstring(BgL_releasez00_2); } 
{ /* ./Llib/bigloo.scm 315 */
obj_t BgL_auxz00_2121;
if(
STRINGP(BgL_arg1046z00_366))
{ /* ./Llib/bigloo.scm 315 */
BgL_auxz00_2121 = BgL_arg1046z00_366
; }  else 
{ /* ./Llib/bigloo.scm 315 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_arg1046z00_366, BGl_string3672z00zz__biglooz00, 
BINT(((long)11598))); 
exit( -1 );} 
BgL_arg1033z00_359 = 
string_append(BGl_string3680z00zz__biglooz00, BgL_auxz00_2121); } } 
BgL_arg1034z00_360 = 
MAKE_PAIR(BgL_modulez00_1, BGl_za2modulesza2z00zz__biglooz00); 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_arg1032z00_358, BgL_arg1033z00_359, BgL_arg1034z00_360, "./Llib/bigloo.scm", ((long)11488)); } 
BgL_aux2187z00_1640 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)11304))); }  else 
{ /* ./Llib/bigloo.scm 301 */
BgL_aux2187z00_1640 = ( 
BGl_za2modulesza2z00zz__biglooz00 = 
MAKE_PAIR(BgL_modulez00_1, BGl_za2modulesza2z00zz__biglooz00), BUNSPEC) ; } }  else 
{ /* ./Llib/bigloo.scm 297 */
{ /* ./Llib/bigloo.scm 298 */
obj_t BgL_list1087z00_386;
BgL_list1087z00_386 = 
MAKE_PAIR(BgL_modulez00_1, BNIL); 
{ /* ./Llib/bigloo.scm 298 */
obj_t BgL_res2140z00_845;
if(((bool_t)1))
{ /* ./Llib/bigloo.scm 298 */
BgL_res2140z00_845 = BgL_list1087z00_386; }  else 
{ /* ./Llib/bigloo.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3670z00zz__biglooz00, BGl_string3681z00zz__biglooz00, BgL_list1087z00_386, BGl_string3672z00zz__biglooz00, 
BINT(((long)10960))); 
exit( -1 );} 
BGl_za2modulesza2z00zz__biglooz00 = BgL_res2140z00_845; } } 
BGl_za2releaseza2z00zz__biglooz00 = 
string_to_bstring(BgL_releasez00_2); 
BgL_aux2187z00_1640 = ( 
BGl_za2levelza2z00zz__biglooz00 = BgL_levelz00_3, BUNSPEC) ; } 
POP_TRACE(); 
return BgL_aux2187z00_1640;} } } } 
}



/* _check-version!2300 */
obj_t BGl__checkzd2versionz122300zc0zz__biglooz00(obj_t BgL_envz00_1671, obj_t BgL_modulez00_1672, obj_t BgL_releasez00_1673, obj_t BgL_levelz00_1674)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 295 */
{ /* ./Llib/bigloo.scm 297 */
char * BgL_auxz00_2140;
{ /* ./Llib/bigloo.scm 297 */
obj_t BgL_auxz00_2141;
if(
STRINGP(BgL_releasez00_1673))
{ /* ./Llib/bigloo.scm 297 */
BgL_auxz00_2141 = BgL_releasez00_1673
; }  else 
{ /* ./Llib/bigloo.scm 297 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3682z00zz__biglooz00, BGl_string3683z00zz__biglooz00, BgL_releasez00_1673, BGl_string3672z00zz__biglooz00, 
BINT(((long)10911))); 
exit( -1 );} 
BgL_auxz00_2140 = 
BSTRING_TO_STRING(BgL_auxz00_2141); } 
return 
BGl_checkzd2versionz12zc0zz__biglooz00(BgL_modulez00_1672, BgL_auxz00_2140, BgL_levelz00_1674);} } 
}



/* closure-arity */
BGL_EXPORTED_DEF int BGl_closurezd2arityzd2zz__biglooz00(obj_t BgL_procz00_4)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 331 */
{ /* ./Llib/bigloo.scm 332 */
obj_t BgL_symbol2192z00_1859;
BgL_symbol2192z00_1859 = BGl_symbol3684z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 332 */

PUSH_TRACE(BgL_symbol2192z00_1859); BUNSPEC; 
{ /* ./Llib/bigloo.scm 332 */
int BgL_aux2191z00_1860;
BgL_aux2191z00_1860 = 
PROCEDURE_ARITY(BgL_procz00_4); 
POP_TRACE(); 
return BgL_aux2191z00_1860;} } } } 
}



/* _closure-arity2302 */
obj_t BGl__closurezd2arity2302zd2zz__biglooz00(obj_t BgL_envz00_1675, obj_t BgL_procz00_1676)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 331 */
{ /* ./Llib/bigloo.scm 332 */
int BgL_auxz00_2152;
{ /* ./Llib/bigloo.scm 332 */
int BgL_res3733z00_1864;
{ /* ./Llib/bigloo.scm 332 */
obj_t BgL_procz00_1861;
if(
PROCEDUREP(BgL_procz00_1676))
{ /* ./Llib/bigloo.scm 332 */
BgL_procz00_1861 = BgL_procz00_1676; }  else 
{ /* ./Llib/bigloo.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3685z00zz__biglooz00, BGl_string3686z00zz__biglooz00, BgL_procz00_1676, BGl_string3672z00zz__biglooz00, 
BINT(((long)12319))); 
exit( -1 );} 
{ /* ./Llib/bigloo.scm 332 */
obj_t BgL_symbol2192z00_1862;
BgL_symbol2192z00_1862 = BGl_symbol3684z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 332 */

PUSH_TRACE(BgL_symbol2192z00_1862); BUNSPEC; 
{ /* ./Llib/bigloo.scm 332 */
int BgL_aux2191z00_1863;
BgL_aux2191z00_1863 = 
PROCEDURE_ARITY(BgL_procz00_1861); 
POP_TRACE(); 
BgL_res3733z00_1864 = BgL_aux2191z00_1863; } } } } 
BgL_auxz00_2152 = BgL_res3733z00_1864; } 
return 
BINT(BgL_auxz00_2152);} } 
}



/* unspecified */
BGL_EXPORTED_DEF obj_t BGl_unspecifiedz00zz__biglooz00()
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 337 */
{ /* ./Llib/bigloo.scm 338 */
obj_t BgL_symbol2196z00_1865;
BgL_symbol2196z00_1865 = BGl_symbol3687z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 338 */

PUSH_TRACE(BgL_symbol2196z00_1865); BUNSPEC; 
{ /* ./Llib/bigloo.scm 338 */
obj_t BgL_aux2195z00_1866;
BgL_aux2195z00_1866 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2195z00_1866;} } } } 
}



/* _unspecified */
obj_t BGl__unspecifiedz00zz__biglooz00(obj_t BgL_envz00_1677)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 337 */
{ /* ./Llib/bigloo.scm 338 */
obj_t BgL_res3734z00_1869;
{ /* ./Llib/bigloo.scm 338 */
obj_t BgL_symbol2196z00_1867;
BgL_symbol2196z00_1867 = BGl_symbol3687z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 338 */

PUSH_TRACE(BgL_symbol2196z00_1867); BUNSPEC; 
{ /* ./Llib/bigloo.scm 338 */
obj_t BgL_aux2195z00_1868;
BgL_aux2195z00_1868 = BUNSPEC; 
POP_TRACE(); 
BgL_res3734z00_1869 = BgL_aux2195z00_1868; } } } 
return BgL_res3734z00_1869;} } 
}



/* cnst? */
BGL_EXPORTED_DEF bool_t BGl_cnstzf3zf3zz__biglooz00(obj_t BgL_objz00_5)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 343 */
{ /* ./Llib/bigloo.scm 344 */
obj_t BgL_symbol2200z00_1870;
BgL_symbol2200z00_1870 = BGl_symbol3688z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 344 */

PUSH_TRACE(BgL_symbol2200z00_1870); BUNSPEC; 
{ /* ./Llib/bigloo.scm 344 */
bool_t BgL_aux2199z00_1871;
BgL_aux2199z00_1871 = 
CNSTP(BgL_objz00_5); 
POP_TRACE(); 
return BgL_aux2199z00_1871;} } } } 
}



/* _cnst? */
obj_t BGl__cnstzf3zf3zz__biglooz00(obj_t BgL_envz00_1678, obj_t BgL_objz00_1679)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 343 */
{ /* ./Llib/bigloo.scm 344 */
bool_t BgL_auxz00_2169;
{ /* ./Llib/bigloo.scm 344 */
bool_t BgL_res3735z00_1875;
{ /* ./Llib/bigloo.scm 344 */
obj_t BgL_symbol2200z00_1873;
BgL_symbol2200z00_1873 = BGl_symbol3688z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 344 */

PUSH_TRACE(BgL_symbol2200z00_1873); BUNSPEC; 
{ /* ./Llib/bigloo.scm 344 */
bool_t BgL_aux2199z00_1874;
BgL_aux2199z00_1874 = 
CNSTP(BgL_objz00_1679); 
POP_TRACE(); 
BgL_res3735z00_1875 = BgL_aux2199z00_1874; } } } 
BgL_auxz00_2169 = BgL_res3735z00_1875; } 
return 
BBOOL(BgL_auxz00_2169);} } 
}



/* opaque? */
BGL_EXPORTED_DEF bool_t BGl_opaquezf3zf3zz__biglooz00(obj_t BgL_objz00_6)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 349 */
{ /* ./Llib/bigloo.scm 350 */
obj_t BgL_symbol2204z00_1876;
BgL_symbol2204z00_1876 = BGl_symbol3689z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 350 */

PUSH_TRACE(BgL_symbol2204z00_1876); BUNSPEC; 
{ /* ./Llib/bigloo.scm 350 */
bool_t BgL_aux2203z00_1877;
BgL_aux2203z00_1877 = 
OPAQUEP(BgL_objz00_6); 
POP_TRACE(); 
return BgL_aux2203z00_1877;} } } } 
}



/* _opaque? */
obj_t BGl__opaquezf3zf3zz__biglooz00(obj_t BgL_envz00_1680, obj_t BgL_objz00_1681)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 349 */
{ /* ./Llib/bigloo.scm 350 */
bool_t BgL_auxz00_2177;
{ /* ./Llib/bigloo.scm 350 */
bool_t BgL_res3736z00_1881;
{ /* ./Llib/bigloo.scm 350 */
obj_t BgL_symbol2204z00_1879;
BgL_symbol2204z00_1879 = BGl_symbol3689z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 350 */

PUSH_TRACE(BgL_symbol2204z00_1879); BUNSPEC; 
{ /* ./Llib/bigloo.scm 350 */
bool_t BgL_aux2203z00_1880;
BgL_aux2203z00_1880 = 
OPAQUEP(BgL_objz00_1681); 
POP_TRACE(); 
BgL_res3736z00_1881 = BgL_aux2203z00_1880; } } } 
BgL_auxz00_2177 = BgL_res3736z00_1881; } 
return 
BBOOL(BgL_auxz00_2177);} } 
}



/* mangle-at! */
long BGl_manglezd2atz12zc0zz__biglooz00(obj_t BgL_newz00_8, obj_t BgL_oldz00_9, int BgL_lenz00_10, long BgL_offsetz00_11)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 362 */
{ /* ./Llib/bigloo.scm 363 */
obj_t BgL_symbol2208z00_1649;
BgL_symbol2208z00_1649 = BGl_symbol3690z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 363 */

PUSH_TRACE(BgL_symbol2208z00_1649); BUNSPEC; 
{ /* ./Llib/bigloo.scm 363 */
long BgL_aux2207z00_1650;
{ 
long BgL_rz00_388;long BgL_wz00_389;long BgL_newzd2lenzd2_390;long BgL_checksumz00_391;
BgL_rz00_388 = ((long)0); 
BgL_wz00_389 = BgL_offsetz00_11; 
BgL_newzd2lenzd2_390 = BgL_offsetz00_11; 
BgL_checksumz00_391 = ((long)0); 
BgL_loopz00_392:
{ /* ./Llib/bigloo.scm 367 */
bool_t BgL_testz00_2183;
{ /* ./Llib/bigloo.scm 367 */
long BgL_auxz00_2184;
BgL_auxz00_2184 = 
(long)(BgL_lenz00_10); 
BgL_testz00_2183 = 
(BgL_rz00_388==BgL_auxz00_2184); } 
if(BgL_testz00_2183)
{ /* ./Llib/bigloo.scm 367 */
{ /* ./Llib/bigloo.scm 369 */
int BgL_kz00_859;
BgL_kz00_859 = 
(int)(BgL_wz00_389); 
{ /* ./Llib/bigloo.scm 369 */
bool_t BgL_testz00_2188;
{ /* ./Llib/bigloo.scm 369 */
int BgL_auxz00_2189;
BgL_auxz00_2189 = 
STRING_LENGTH(BgL_newz00_8); 
BgL_testz00_2188 = 
BOUND_CHECK(BgL_kz00_859, BgL_auxz00_2189); } 
if(BgL_testz00_2188)
{ /* ./Llib/bigloo.scm 369 */
STRING_SET(BgL_newz00_8, BgL_kz00_859, ((unsigned char)'z')); }  else 
{ /* ./Llib/bigloo.scm 369 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_859), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)13856))); } } } 
{ /* ./Llib/bigloo.scm 371 */
long BgL_arg1098z00_394;unsigned char BgL_arg1099z00_395;
BgL_arg1098z00_394 = 
(BgL_wz00_389+((long)1)); 
{ /* ./Llib/bigloo.scm 372 */
long BgL_arg1103z00_396;
BgL_arg1103z00_396 = 
(BgL_checksumz00_391 & ((long)15)); 
{ /* ./Llib/bigloo.scm 372 */
unsigned char BgL_res2142z00_881;
{ /* ./Llib/bigloo.scm 372 */
int BgL_kz00_874;
BgL_kz00_874 = 
(int)(BgL_arg1103z00_396); 
{ /* ./Llib/bigloo.scm 372 */
bool_t BgL_testz00_2200;
{ /* ./Llib/bigloo.scm 372 */
int BgL_auxz00_2201;
BgL_auxz00_2201 = 
STRING_LENGTH(BGl_string3691z00zz__biglooz00); 
BgL_testz00_2200 = 
BOUND_CHECK(BgL_kz00_874, BgL_auxz00_2201); } 
if(BgL_testz00_2200)
{ /* ./Llib/bigloo.scm 372 */
BgL_res2142z00_881 = 
STRING_REF(BGl_string3691z00zz__biglooz00, BgL_kz00_874); }  else 
{ /* ./Llib/bigloo.scm 372 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_874), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 372 */
obj_t BgL_auxz00_2207;
{ /* ./Llib/bigloo.scm 372 */
obj_t BgL_aux2564z00_1735;
BgL_aux2564z00_1735 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)13923))); 
if(
CHARP(BgL_aux2564z00_1735))
{ /* ./Llib/bigloo.scm 372 */
BgL_auxz00_2207 = BgL_aux2564z00_1735
; }  else 
{ /* ./Llib/bigloo.scm 372 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3690z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2564z00_1735, BGl_string3672z00zz__biglooz00, 
BINT(((long)13923))); 
exit( -1 );} } 
BgL_res2142z00_881 = 
(unsigned char)CCHAR(BgL_auxz00_2207); } } } } 
BgL_arg1099z00_395 = BgL_res2142z00_881; } } 
{ /* ./Llib/bigloo.scm 370 */
int BgL_kz00_883;
BgL_kz00_883 = 
(int)(BgL_arg1098z00_394); 
{ /* ./Llib/bigloo.scm 370 */
bool_t BgL_testz00_2217;
{ /* ./Llib/bigloo.scm 370 */
int BgL_auxz00_2218;
BgL_auxz00_2218 = 
STRING_LENGTH(BgL_newz00_8); 
BgL_testz00_2217 = 
BOUND_CHECK(BgL_kz00_883, BgL_auxz00_2218); } 
if(BgL_testz00_2217)
{ /* ./Llib/bigloo.scm 370 */
STRING_SET(BgL_newz00_8, BgL_kz00_883, BgL_arg1099z00_395); }  else 
{ /* ./Llib/bigloo.scm 370 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_883), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)13886))); } } } } 
{ /* ./Llib/bigloo.scm 374 */
long BgL_arg1107z00_397;unsigned char BgL_arg1108z00_398;
BgL_arg1107z00_397 = 
(BgL_wz00_389+((long)2)); 
{ /* ./Llib/bigloo.scm 375 */
long BgL_arg1112z00_399;
{ /* ./Llib/bigloo.scm 375 */
long BgL_auxz00_2227;
{ /* ./Llib/bigloo.scm 375 */
int BgL_auxz00_2228;
BgL_auxz00_2228 = 
(int)(((long)4)); 
BgL_auxz00_2227 = 
(BgL_checksumz00_391 >> BgL_auxz00_2228); } 
BgL_arg1112z00_399 = 
(BgL_auxz00_2227 & ((long)15)); } 
{ /* ./Llib/bigloo.scm 375 */
unsigned char BgL_res2143z00_907;
{ /* ./Llib/bigloo.scm 375 */
int BgL_kz00_900;
BgL_kz00_900 = 
(int)(BgL_arg1112z00_399); 
{ /* ./Llib/bigloo.scm 375 */
bool_t BgL_testz00_2233;
{ /* ./Llib/bigloo.scm 375 */
int BgL_auxz00_2234;
BgL_auxz00_2234 = 
STRING_LENGTH(BGl_string3691z00zz__biglooz00); 
BgL_testz00_2233 = 
BOUND_CHECK(BgL_kz00_900, BgL_auxz00_2234); } 
if(BgL_testz00_2233)
{ /* ./Llib/bigloo.scm 375 */
BgL_res2143z00_907 = 
STRING_REF(BGl_string3691z00zz__biglooz00, BgL_kz00_900); }  else 
{ /* ./Llib/bigloo.scm 375 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_900), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 375 */
obj_t BgL_auxz00_2240;
{ /* ./Llib/bigloo.scm 375 */
obj_t BgL_aux2595z00_1737;
BgL_aux2595z00_1737 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)14003))); 
if(
CHARP(BgL_aux2595z00_1737))
{ /* ./Llib/bigloo.scm 375 */
BgL_auxz00_2240 = BgL_aux2595z00_1737
; }  else 
{ /* ./Llib/bigloo.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3690z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2595z00_1737, BGl_string3672z00zz__biglooz00, 
BINT(((long)14003))); 
exit( -1 );} } 
BgL_res2143z00_907 = 
(unsigned char)CCHAR(BgL_auxz00_2240); } } } } 
BgL_arg1108z00_398 = BgL_res2143z00_907; } } 
{ /* ./Llib/bigloo.scm 373 */
int BgL_kz00_909;
BgL_kz00_909 = 
(int)(BgL_arg1107z00_397); 
{ /* ./Llib/bigloo.scm 373 */
bool_t BgL_testz00_2250;
{ /* ./Llib/bigloo.scm 373 */
int BgL_auxz00_2251;
BgL_auxz00_2251 = 
STRING_LENGTH(BgL_newz00_8); 
BgL_testz00_2250 = 
BOUND_CHECK(BgL_kz00_909, BgL_auxz00_2251); } 
if(BgL_testz00_2250)
{ /* ./Llib/bigloo.scm 373 */
STRING_SET(BgL_newz00_8, BgL_kz00_909, BgL_arg1108z00_398); }  else 
{ /* ./Llib/bigloo.scm 373 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_909), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)13966))); } } } } 
BgL_aux2207z00_1650 = 
(BgL_wz00_389+((long)3)); }  else 
{ /* ./Llib/bigloo.scm 377 */
unsigned char BgL_cz00_402;
{ /* ./Llib/bigloo.scm 377 */
unsigned char BgL_res2144z00_927;
{ /* ./Llib/bigloo.scm 377 */
int BgL_kz00_920;
BgL_kz00_920 = 
(int)(BgL_rz00_388); 
{ /* ./Llib/bigloo.scm 377 */
bool_t BgL_testz00_2261;
{ /* ./Llib/bigloo.scm 377 */
int BgL_auxz00_2262;
BgL_auxz00_2262 = 
STRING_LENGTH(BgL_oldz00_9); 
BgL_testz00_2261 = 
BOUND_CHECK(BgL_kz00_920, BgL_auxz00_2262); } 
if(BgL_testz00_2261)
{ /* ./Llib/bigloo.scm 377 */
BgL_res2144z00_927 = 
STRING_REF(BgL_oldz00_9, BgL_kz00_920); }  else 
{ /* ./Llib/bigloo.scm 377 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_920), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 377 */
obj_t BgL_auxz00_2268;
{ /* ./Llib/bigloo.scm 377 */
obj_t BgL_aux2624z00_1739;
BgL_aux2624z00_1739 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)14081))); 
if(
CHARP(BgL_aux2624z00_1739))
{ /* ./Llib/bigloo.scm 377 */
BgL_auxz00_2268 = BgL_aux2624z00_1739
; }  else 
{ /* ./Llib/bigloo.scm 377 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3690z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2624z00_1739, BGl_string3672z00zz__biglooz00, 
BINT(((long)14081))); 
exit( -1 );} } 
BgL_res2144z00_927 = 
(unsigned char)CCHAR(BgL_auxz00_2268); } } } } 
BgL_cz00_402 = BgL_res2144z00_927; } 
{ /* ./Llib/bigloo.scm 378 */
bool_t BgL_test1121z00_403;
{ /* ./Llib/bigloo.scm 378 */
bool_t BgL_test1173z00_421;
{ /* ./Llib/bigloo.scm 378 */
bool_t BgL_test1177z00_423;
{ /* ./Llib/bigloo.scm 378 */
bool_t BgL_res2145z00_929;
BgL_res2145z00_929 = 
isalpha(BgL_cz00_402); 
BgL_test1177z00_423 = BgL_res2145z00_929; } 
if(BgL_test1177z00_423)
{ /* ./Llib/bigloo.scm 378 */
if(
(BgL_cz00_402==((unsigned char)'z')))
{ /* ./Llib/bigloo.scm 378 */
BgL_test1173z00_421 = ((bool_t)0); }  else 
{ /* ./Llib/bigloo.scm 378 */
BgL_test1173z00_421 = ((bool_t)1); } }  else 
{ /* ./Llib/bigloo.scm 378 */
BgL_test1173z00_421 = ((bool_t)0); } } 
if(BgL_test1173z00_421)
{ /* ./Llib/bigloo.scm 378 */
BgL_test1121z00_403 = ((bool_t)1); }  else 
{ /* ./Llib/bigloo.scm 380 */
bool_t BgL_test1174z00_422;
{ /* ./Llib/bigloo.scm 379 */
bool_t BgL_res2146z00_933;
BgL_res2146z00_933 = 
isdigit(BgL_cz00_402); 
BgL_test1174z00_422 = BgL_res2146z00_933; } 
if(BgL_test1174z00_422)
{ /* ./Llib/bigloo.scm 380 */
BgL_test1121z00_403 = ((bool_t)1); }  else 
{ /* ./Llib/bigloo.scm 380 */
BgL_test1121z00_403 = 
(BgL_cz00_402==((unsigned char)'_')); } } } 
if(BgL_test1121z00_403)
{ /* ./Llib/bigloo.scm 378 */
{ /* ./Llib/bigloo.scm 382 */
int BgL_kz00_937;
BgL_kz00_937 = 
(int)(BgL_wz00_389); 
{ /* ./Llib/bigloo.scm 382 */
bool_t BgL_testz00_2287;
{ /* ./Llib/bigloo.scm 382 */
int BgL_auxz00_2288;
BgL_auxz00_2288 = 
STRING_LENGTH(BgL_newz00_8); 
BgL_testz00_2287 = 
BOUND_CHECK(BgL_kz00_937, BgL_auxz00_2288); } 
if(BgL_testz00_2287)
{ /* ./Llib/bigloo.scm 382 */
STRING_SET(BgL_newz00_8, BgL_kz00_937, BgL_cz00_402); }  else 
{ /* ./Llib/bigloo.scm 382 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_937), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)14229))); } } } 
{ 
long BgL_newzd2lenzd2_2300;long BgL_wz00_2298;long BgL_rz00_2296;
BgL_rz00_2296 = 
(BgL_rz00_388+((long)1)); 
BgL_wz00_2298 = 
(BgL_wz00_389+((long)1)); 
BgL_newzd2lenzd2_2300 = 
(BgL_newzd2lenzd2_390+((long)1)); 
BgL_newzd2lenzd2_390 = BgL_newzd2lenzd2_2300; 
BgL_wz00_389 = BgL_wz00_2298; 
BgL_rz00_388 = BgL_rz00_2296; 
goto BgL_loopz00_392;} }  else 
{ /* ./Llib/bigloo.scm 387 */
long BgL_icz00_407;
BgL_icz00_407 = 
(BgL_cz00_402); 
{ /* ./Llib/bigloo.scm 388 */
int BgL_kz00_953;
BgL_kz00_953 = 
(int)(BgL_wz00_389); 
{ /* ./Llib/bigloo.scm 388 */
bool_t BgL_testz00_2304;
{ /* ./Llib/bigloo.scm 388 */
int BgL_auxz00_2305;
BgL_auxz00_2305 = 
STRING_LENGTH(BgL_newz00_8); 
BgL_testz00_2304 = 
BOUND_CHECK(BgL_kz00_953, BgL_auxz00_2305); } 
if(BgL_testz00_2304)
{ /* ./Llib/bigloo.scm 388 */
STRING_SET(BgL_newz00_8, BgL_kz00_953, ((unsigned char)'z')); }  else 
{ /* ./Llib/bigloo.scm 388 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_953), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)14364))); } } } 
{ /* ./Llib/bigloo.scm 390 */
long BgL_arg1133z00_408;unsigned char BgL_arg1134z00_409;
BgL_arg1133z00_408 = 
(BgL_wz00_389+((long)1)); 
{ /* ./Llib/bigloo.scm 391 */
long BgL_arg1138z00_410;
BgL_arg1138z00_410 = 
(BgL_icz00_407 & ((long)15)); 
{ /* ./Llib/bigloo.scm 391 */
unsigned char BgL_res2147z00_975;
{ /* ./Llib/bigloo.scm 391 */
int BgL_kz00_968;
BgL_kz00_968 = 
(int)(BgL_arg1138z00_410); 
{ /* ./Llib/bigloo.scm 391 */
bool_t BgL_testz00_2316;
{ /* ./Llib/bigloo.scm 391 */
int BgL_auxz00_2317;
BgL_auxz00_2317 = 
STRING_LENGTH(BGl_string3691z00zz__biglooz00); 
BgL_testz00_2316 = 
BOUND_CHECK(BgL_kz00_968, BgL_auxz00_2317); } 
if(BgL_testz00_2316)
{ /* ./Llib/bigloo.scm 391 */
BgL_res2147z00_975 = 
STRING_REF(BGl_string3691z00zz__biglooz00, BgL_kz00_968); }  else 
{ /* ./Llib/bigloo.scm 391 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_968), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 391 */
obj_t BgL_auxz00_2323;
{ /* ./Llib/bigloo.scm 391 */
obj_t BgL_aux2663z00_1741;
BgL_aux2663z00_1741 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)14431))); 
if(
CHARP(BgL_aux2663z00_1741))
{ /* ./Llib/bigloo.scm 391 */
BgL_auxz00_2323 = BgL_aux2663z00_1741
; }  else 
{ /* ./Llib/bigloo.scm 391 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3690z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2663z00_1741, BGl_string3672z00zz__biglooz00, 
BINT(((long)14431))); 
exit( -1 );} } 
BgL_res2147z00_975 = 
(unsigned char)CCHAR(BgL_auxz00_2323); } } } } 
BgL_arg1134z00_409 = BgL_res2147z00_975; } } 
{ /* ./Llib/bigloo.scm 389 */
int BgL_kz00_977;
BgL_kz00_977 = 
(int)(BgL_arg1133z00_408); 
{ /* ./Llib/bigloo.scm 389 */
bool_t BgL_testz00_2333;
{ /* ./Llib/bigloo.scm 389 */
int BgL_auxz00_2334;
BgL_auxz00_2334 = 
STRING_LENGTH(BgL_newz00_8); 
BgL_testz00_2333 = 
BOUND_CHECK(BgL_kz00_977, BgL_auxz00_2334); } 
if(BgL_testz00_2333)
{ /* ./Llib/bigloo.scm 389 */
STRING_SET(BgL_newz00_8, BgL_kz00_977, BgL_arg1134z00_409); }  else 
{ /* ./Llib/bigloo.scm 389 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_977), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)14394))); } } } } 
{ /* ./Llib/bigloo.scm 393 */
long BgL_arg1142z00_411;unsigned char BgL_arg1144z00_412;
BgL_arg1142z00_411 = 
(BgL_wz00_389+((long)2)); 
{ /* ./Llib/bigloo.scm 394 */
long BgL_arg1148z00_413;
{ /* ./Llib/bigloo.scm 394 */
long BgL_auxz00_2343;
{ /* ./Llib/bigloo.scm 394 */
int BgL_auxz00_2344;
BgL_auxz00_2344 = 
(int)(((long)4)); 
BgL_auxz00_2343 = 
(BgL_icz00_407 >> BgL_auxz00_2344); } 
BgL_arg1148z00_413 = 
(BgL_auxz00_2343 & ((long)15)); } 
{ /* ./Llib/bigloo.scm 394 */
unsigned char BgL_res2148z00_1001;
{ /* ./Llib/bigloo.scm 394 */
int BgL_kz00_994;
BgL_kz00_994 = 
(int)(BgL_arg1148z00_413); 
{ /* ./Llib/bigloo.scm 394 */
bool_t BgL_testz00_2349;
{ /* ./Llib/bigloo.scm 394 */
int BgL_auxz00_2350;
BgL_auxz00_2350 = 
STRING_LENGTH(BGl_string3691z00zz__biglooz00); 
BgL_testz00_2349 = 
BOUND_CHECK(BgL_kz00_994, BgL_auxz00_2350); } 
if(BgL_testz00_2349)
{ /* ./Llib/bigloo.scm 394 */
BgL_res2148z00_1001 = 
STRING_REF(BGl_string3691z00zz__biglooz00, BgL_kz00_994); }  else 
{ /* ./Llib/bigloo.scm 394 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_994), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 394 */
obj_t BgL_auxz00_2356;
{ /* ./Llib/bigloo.scm 394 */
obj_t BgL_aux2694z00_1743;
BgL_aux2694z00_1743 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)14505))); 
if(
CHARP(BgL_aux2694z00_1743))
{ /* ./Llib/bigloo.scm 394 */
BgL_auxz00_2356 = BgL_aux2694z00_1743
; }  else 
{ /* ./Llib/bigloo.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3690z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2694z00_1743, BGl_string3672z00zz__biglooz00, 
BINT(((long)14505))); 
exit( -1 );} } 
BgL_res2148z00_1001 = 
(unsigned char)CCHAR(BgL_auxz00_2356); } } } } 
BgL_arg1144z00_412 = BgL_res2148z00_1001; } } 
{ /* ./Llib/bigloo.scm 392 */
int BgL_kz00_1003;
BgL_kz00_1003 = 
(int)(BgL_arg1142z00_411); 
{ /* ./Llib/bigloo.scm 392 */
bool_t BgL_testz00_2366;
{ /* ./Llib/bigloo.scm 392 */
int BgL_auxz00_2367;
BgL_auxz00_2367 = 
STRING_LENGTH(BgL_newz00_8); 
BgL_testz00_2366 = 
BOUND_CHECK(BgL_kz00_1003, BgL_auxz00_2367); } 
if(BgL_testz00_2366)
{ /* ./Llib/bigloo.scm 392 */
STRING_SET(BgL_newz00_8, BgL_kz00_1003, BgL_arg1144z00_412); }  else 
{ /* ./Llib/bigloo.scm 392 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1003), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)14468))); } } } } 
{ 
long BgL_checksumz00_2381;long BgL_newzd2lenzd2_2379;long BgL_wz00_2377;long BgL_rz00_2375;
BgL_rz00_2375 = 
(BgL_rz00_388+((long)1)); 
BgL_wz00_2377 = 
(BgL_wz00_389+((long)3)); 
BgL_newzd2lenzd2_2379 = 
(BgL_newzd2lenzd2_390+((long)3)); 
{ /* ./Llib/bigloo.scm 398 */
long BgL_auxz00_2382;
BgL_auxz00_2382 = 
(BgL_cz00_402); 
BgL_checksumz00_2381 = 
(BgL_checksumz00_391 ^ BgL_auxz00_2382); } 
BgL_checksumz00_391 = BgL_checksumz00_2381; 
BgL_newzd2lenzd2_390 = BgL_newzd2lenzd2_2379; 
BgL_wz00_389 = BgL_wz00_2377; 
BgL_rz00_388 = BgL_rz00_2375; 
goto BgL_loopz00_392;} } } } } } 
POP_TRACE(); 
return BgL_aux2207z00_1650;} } } } 
}



/* bigloo-mangle */
BGL_EXPORTED_DEF obj_t bigloo_mangle(obj_t BgL_stringz00_12)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 403 */
{ /* ./Llib/bigloo.scm 404 */
obj_t BgL_symbol2212z00_1651;
BgL_symbol2212z00_1651 = BGl_symbol3693z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 404 */

PUSH_TRACE(BgL_symbol2212z00_1651); BUNSPEC; 
{ /* ./Llib/bigloo.scm 404 */
obj_t BgL_aux2211z00_1652;
{ /* ./Llib/bigloo.scm 404 */
int BgL_lenz00_425;
BgL_lenz00_425 = 
STRING_LENGTH(BgL_stringz00_12); 
{ /* ./Llib/bigloo.scm 404 */
obj_t BgL_newz00_426;
{ /* ./Llib/bigloo.scm 405 */
long BgL_arg1191z00_429;
{ /* ./Llib/bigloo.scm 405 */
long BgL_auxz00_2388;
{ /* ./Llib/bigloo.scm 405 */
long BgL_auxz00_2389;
BgL_auxz00_2389 = 
(long)(BgL_lenz00_425); 
BgL_auxz00_2388 = 
(BgL_auxz00_2389*((long)3)); } 
BgL_arg1191z00_429 = 
(BgL_auxz00_2388+((long)7)); } 
{ /* ./Llib/bigloo.scm 405 */
int BgL_auxz00_2393;
BgL_auxz00_2393 = 
(int)(BgL_arg1191z00_429); 
BgL_newz00_426 = 
make_string(BgL_auxz00_2393, ((unsigned char)' ')); } } 
{ /* ./Llib/bigloo.scm 405 */

{ /* ./Llib/bigloo.scm 406 */
bool_t BgL_testz00_2396;
{ /* ./Llib/bigloo.scm 406 */
long BgL_auxz00_2397;
BgL_auxz00_2397 = 
(long)(BgL_lenz00_425); 
BgL_testz00_2396 = 
(BgL_auxz00_2397==((long)0)); } 
if(BgL_testz00_2396)
{ /* ./Llib/bigloo.scm 406 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3694z00zz__biglooz00, BGl_string3695z00zz__biglooz00, BgL_stringz00_12, "./Llib/bigloo.scm", ((long)15017)); 
{ /* ./Llib/bigloo.scm 407 */
obj_t BgL_aux2745z00_1749;
BgL_aux2745z00_1749 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)15073))); 
if(
STRINGP(BgL_aux2745z00_1749))
{ /* ./Llib/bigloo.scm 407 */
BgL_aux2211z00_1652 = BgL_aux2745z00_1749; }  else 
{ /* ./Llib/bigloo.scm 407 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3693z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux2745z00_1749, BGl_string3672z00zz__biglooz00, 
BINT(((long)15073))); 
exit( -1 );} } }  else 
{ /* ./Llib/bigloo.scm 408 */
long BgL_stopz00_428;
BgL_stopz00_428 = 
BGl_manglezd2atz12zc0zz__biglooz00(BgL_newz00_426, BgL_stringz00_12, BgL_lenz00_425, ((long)4)); 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string3696z00zz__biglooz00, 
(int)(((long)0)), BgL_newz00_426, 
(int)(((long)0)), 
(int)(((long)4))); 
{ /* ./Llib/bigloo.scm 410 */
obj_t BgL_res2150z00_1065;
{ /* ./Llib/bigloo.scm 410 */
int BgL_startz00_1038;int BgL_endz00_1039;
BgL_startz00_1038 = 
(int)(((long)0)); 
BgL_endz00_1039 = 
(int)(BgL_stopz00_428); 
{ /* ./Llib/bigloo.scm 410 */
bool_t BgL_test1577z00_1040;
{ /* ./Llib/bigloo.scm 410 */
bool_t BgL_testz00_2415;
{ /* ./Llib/bigloo.scm 410 */
long BgL_auxz00_2418;long BgL_auxz00_2416;
BgL_auxz00_2418 = 
(long)(BgL_startz00_1038); 
BgL_auxz00_2416 = 
(long)(BgL_endz00_1039); 
BgL_testz00_2415 = 
(BgL_auxz00_2416>=BgL_auxz00_2418); } 
if(BgL_testz00_2415)
{ /* ./Llib/bigloo.scm 410 */
bool_t BgL_testz00_2421;
{ /* ./Llib/bigloo.scm 410 */
int BgL_auxz00_2422;
{ /* ./Llib/bigloo.scm 410 */
long BgL_auxz00_2423;
{ /* ./Llib/bigloo.scm 410 */
long BgL_auxz00_2424;
{ /* ./Llib/bigloo.scm 410 */
int BgL_auxz00_2425;
BgL_auxz00_2425 = 
STRING_LENGTH(BgL_newz00_426); 
BgL_auxz00_2424 = 
(long)(BgL_auxz00_2425); } 
BgL_auxz00_2423 = 
(BgL_auxz00_2424+((long)1)); } 
BgL_auxz00_2422 = 
(int)(BgL_auxz00_2423); } 
BgL_testz00_2421 = 
BOUND_CHECK(BgL_startz00_1038, BgL_auxz00_2422); } 
if(BgL_testz00_2421)
{ /* ./Llib/bigloo.scm 410 */
int BgL_auxz00_2431;
{ /* ./Llib/bigloo.scm 410 */
long BgL_auxz00_2432;
{ /* ./Llib/bigloo.scm 410 */
long BgL_auxz00_2433;
{ /* ./Llib/bigloo.scm 410 */
int BgL_auxz00_2434;
BgL_auxz00_2434 = 
STRING_LENGTH(BgL_newz00_426); 
BgL_auxz00_2433 = 
(long)(BgL_auxz00_2434); } 
BgL_auxz00_2432 = 
(BgL_auxz00_2433+((long)1)); } 
BgL_auxz00_2431 = 
(int)(BgL_auxz00_2432); } 
BgL_test1577z00_1040 = 
BOUND_CHECK(BgL_endz00_1039, BgL_auxz00_2431); }  else 
{ /* ./Llib/bigloo.scm 410 */
BgL_test1577z00_1040 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 410 */
BgL_test1577z00_1040 = ((bool_t)0); } } 
if(BgL_test1577z00_1040)
{ /* ./Llib/bigloo.scm 410 */
BgL_res2150z00_1065 = 
c_substring(BgL_newz00_426, BgL_startz00_1038, BgL_endz00_1039); }  else 
{ /* ./Llib/bigloo.scm 410 */
{ /* ./Llib/bigloo.scm 410 */
obj_t BgL_arg1585z00_1051;
{ /* ./Llib/bigloo.scm 410 */
obj_t BgL_auxz00_2444;obj_t BgL_auxz00_2442;
BgL_auxz00_2444 = 
BINT(BgL_endz00_1039); 
BgL_auxz00_2442 = 
BINT(BgL_startz00_1038); 
BgL_arg1585z00_1051 = 
MAKE_PAIR(BgL_auxz00_2442, BgL_auxz00_2444); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3673z00zz__biglooz00, BGl_string3674z00zz__biglooz00, BgL_arg1585z00_1051, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/bigloo.scm 410 */
obj_t BgL_aux2776z00_1751;
BgL_aux2776z00_1751 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)15174))); 
if(
STRINGP(BgL_aux2776z00_1751))
{ /* ./Llib/bigloo.scm 410 */
BgL_res2150z00_1065 = BgL_aux2776z00_1751; }  else 
{ /* ./Llib/bigloo.scm 410 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3693z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux2776z00_1751, BGl_string3672z00zz__biglooz00, 
BINT(((long)15174))); 
exit( -1 );} } } } } 
BgL_aux2211z00_1652 = BgL_res2150z00_1065; } } } } } } 
POP_TRACE(); 
return BgL_aux2211z00_1652;} } } } 
}



/* _bigloo-mangle2307 */
obj_t BGl__bigloozd2mangle2307zd2zz__biglooz00(obj_t BgL_envz00_1682, obj_t BgL_stringz00_1683)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 403 */
{ /* ./Llib/bigloo.scm 404 */
obj_t BgL_auxz00_2456;
if(
STRINGP(BgL_stringz00_1683))
{ /* ./Llib/bigloo.scm 404 */
BgL_auxz00_2456 = BgL_stringz00_1683
; }  else 
{ /* ./Llib/bigloo.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3697z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_stringz00_1683, BGl_string3672z00zz__biglooz00, 
BINT(((long)14912))); 
exit( -1 );} 
return 
bigloo_mangle(BgL_auxz00_2456);} } 
}



/* bigloo-module-mangle */
BGL_EXPORTED_DEF obj_t bigloo_module_mangle(obj_t BgL_idz00_13, obj_t BgL_modulez00_14)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 415 */
{ /* ./Llib/bigloo.scm 416 */
obj_t BgL_symbol2216z00_1653;
BgL_symbol2216z00_1653 = BGl_symbol3698z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 416 */

PUSH_TRACE(BgL_symbol2216z00_1653); BUNSPEC; 
{ /* ./Llib/bigloo.scm 416 */
obj_t BgL_aux2215z00_1654;
{ /* ./Llib/bigloo.scm 416 */
long BgL_lenz00_433;
{ /* ./Llib/bigloo.scm 416 */
long BgL_auxz00_2468;long BgL_auxz00_2464;
{ /* ./Llib/bigloo.scm 416 */
int BgL_auxz00_2469;
BgL_auxz00_2469 = 
STRING_LENGTH(BgL_modulez00_14); 
BgL_auxz00_2468 = 
(long)(BgL_auxz00_2469); } 
{ /* ./Llib/bigloo.scm 416 */
int BgL_auxz00_2465;
BgL_auxz00_2465 = 
STRING_LENGTH(BgL_idz00_13); 
BgL_auxz00_2464 = 
(long)(BgL_auxz00_2465); } 
BgL_lenz00_433 = 
(BgL_auxz00_2464+BgL_auxz00_2468); } 
{ /* ./Llib/bigloo.scm 416 */
obj_t BgL_newz00_434;
{ /* ./Llib/bigloo.scm 417 */
long BgL_arg1223z00_443;
{ /* ./Llib/bigloo.scm 417 */
long BgL_auxz00_2473;
BgL_auxz00_2473 = 
(BgL_lenz00_433*((long)3)); 
BgL_arg1223z00_443 = 
(BgL_auxz00_2473+((long)12)); } 
{ /* ./Llib/bigloo.scm 417 */
int BgL_auxz00_2476;
BgL_auxz00_2476 = 
(int)(BgL_arg1223z00_443); 
BgL_newz00_434 = 
make_string(BgL_auxz00_2476, ((unsigned char)' ')); } } 
{ /* ./Llib/bigloo.scm 417 */

if(
(BgL_lenz00_433==((long)0)))
{ /* ./Llib/bigloo.scm 418 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3694z00zz__biglooz00, BGl_string3695z00zz__biglooz00, BGl_stringzd2envzd2zz__r4_strings_6_7z00, "./Llib/bigloo.scm", ((long)15599)); 
{ /* ./Llib/bigloo.scm 419 */
obj_t BgL_aux2827z00_1759;
BgL_aux2827z00_1759 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)15655))); 
if(
STRINGP(BgL_aux2827z00_1759))
{ /* ./Llib/bigloo.scm 419 */
BgL_aux2215z00_1654 = BgL_aux2827z00_1759; }  else 
{ /* ./Llib/bigloo.scm 419 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3698z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux2827z00_1759, BGl_string3672z00zz__biglooz00, 
BINT(((long)15655))); 
exit( -1 );} } }  else 
{ /* ./Llib/bigloo.scm 420 */
long BgL_modzd2startzd2_436;
BgL_modzd2startzd2_436 = 
BGl_manglezd2atz12zc0zz__biglooz00(BgL_newz00_434, BgL_idz00_13, 
STRING_LENGTH(BgL_idz00_13), ((long)4)); 
{ /* ./Llib/bigloo.scm 421 */
int BgL_kz00_1088;
BgL_kz00_1088 = 
(int)(BgL_modzd2startzd2_436); 
{ /* ./Llib/bigloo.scm 421 */
bool_t BgL_testz00_2492;
{ /* ./Llib/bigloo.scm 421 */
int BgL_auxz00_2493;
BgL_auxz00_2493 = 
STRING_LENGTH(BgL_newz00_434); 
BgL_testz00_2492 = 
BOUND_CHECK(BgL_kz00_1088, BgL_auxz00_2493); } 
if(BgL_testz00_2492)
{ /* ./Llib/bigloo.scm 421 */
STRING_SET(BgL_newz00_434, BgL_kz00_1088, ((unsigned char)'z')); }  else 
{ /* ./Llib/bigloo.scm 421 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1088), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)15734))); } } } 
{ /* ./Llib/bigloo.scm 422 */
long BgL_arg1205z00_437;
BgL_arg1205z00_437 = 
(((long)1)+BgL_modzd2startzd2_436); 
{ /* ./Llib/bigloo.scm 422 */
int BgL_kz00_1099;
BgL_kz00_1099 = 
(int)(BgL_arg1205z00_437); 
{ /* ./Llib/bigloo.scm 422 */
bool_t BgL_testz00_2503;
{ /* ./Llib/bigloo.scm 422 */
int BgL_auxz00_2504;
BgL_auxz00_2504 = 
STRING_LENGTH(BgL_newz00_434); 
BgL_testz00_2503 = 
BOUND_CHECK(BgL_kz00_1099, BgL_auxz00_2504); } 
if(BgL_testz00_2503)
{ /* ./Llib/bigloo.scm 422 */
STRING_SET(BgL_newz00_434, BgL_kz00_1099, ((unsigned char)'z')); }  else 
{ /* ./Llib/bigloo.scm 422 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1099), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)15772))); } } } } 
{ /* ./Llib/bigloo.scm 423 */
long BgL_stopz00_438;
BgL_stopz00_438 = 
BGl_manglezd2atz12zc0zz__biglooz00(BgL_newz00_434, BgL_modulez00_14, 
STRING_LENGTH(BgL_modulez00_14), 
(BgL_modzd2startzd2_436+((long)2))); 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BGl_string3699z00zz__biglooz00, 
(int)(((long)0)), BgL_newz00_434, 
(int)(((long)0)), 
(int)(((long)4))); 
{ /* ./Llib/bigloo.scm 427 */
obj_t BgL_res2152z00_1138;
{ /* ./Llib/bigloo.scm 427 */
int BgL_startz00_1111;int BgL_endz00_1112;
BgL_startz00_1111 = 
(int)(((long)0)); 
BgL_endz00_1112 = 
(int)(BgL_stopz00_438); 
{ /* ./Llib/bigloo.scm 427 */
bool_t BgL_test1577z00_1113;
{ /* ./Llib/bigloo.scm 427 */
bool_t BgL_testz00_2521;
{ /* ./Llib/bigloo.scm 427 */
long BgL_auxz00_2524;long BgL_auxz00_2522;
BgL_auxz00_2524 = 
(long)(BgL_startz00_1111); 
BgL_auxz00_2522 = 
(long)(BgL_endz00_1112); 
BgL_testz00_2521 = 
(BgL_auxz00_2522>=BgL_auxz00_2524); } 
if(BgL_testz00_2521)
{ /* ./Llib/bigloo.scm 427 */
bool_t BgL_testz00_2527;
{ /* ./Llib/bigloo.scm 427 */
int BgL_auxz00_2528;
{ /* ./Llib/bigloo.scm 427 */
long BgL_auxz00_2529;
{ /* ./Llib/bigloo.scm 427 */
long BgL_auxz00_2530;
{ /* ./Llib/bigloo.scm 427 */
int BgL_auxz00_2531;
BgL_auxz00_2531 = 
STRING_LENGTH(BgL_newz00_434); 
BgL_auxz00_2530 = 
(long)(BgL_auxz00_2531); } 
BgL_auxz00_2529 = 
(BgL_auxz00_2530+((long)1)); } 
BgL_auxz00_2528 = 
(int)(BgL_auxz00_2529); } 
BgL_testz00_2527 = 
BOUND_CHECK(BgL_startz00_1111, BgL_auxz00_2528); } 
if(BgL_testz00_2527)
{ /* ./Llib/bigloo.scm 427 */
int BgL_auxz00_2537;
{ /* ./Llib/bigloo.scm 427 */
long BgL_auxz00_2538;
{ /* ./Llib/bigloo.scm 427 */
long BgL_auxz00_2539;
{ /* ./Llib/bigloo.scm 427 */
int BgL_auxz00_2540;
BgL_auxz00_2540 = 
STRING_LENGTH(BgL_newz00_434); 
BgL_auxz00_2539 = 
(long)(BgL_auxz00_2540); } 
BgL_auxz00_2538 = 
(BgL_auxz00_2539+((long)1)); } 
BgL_auxz00_2537 = 
(int)(BgL_auxz00_2538); } 
BgL_test1577z00_1113 = 
BOUND_CHECK(BgL_endz00_1112, BgL_auxz00_2537); }  else 
{ /* ./Llib/bigloo.scm 427 */
BgL_test1577z00_1113 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 427 */
BgL_test1577z00_1113 = ((bool_t)0); } } 
if(BgL_test1577z00_1113)
{ /* ./Llib/bigloo.scm 427 */
BgL_res2152z00_1138 = 
c_substring(BgL_newz00_434, BgL_startz00_1111, BgL_endz00_1112); }  else 
{ /* ./Llib/bigloo.scm 427 */
{ /* ./Llib/bigloo.scm 427 */
obj_t BgL_arg1585z00_1124;
{ /* ./Llib/bigloo.scm 427 */
obj_t BgL_auxz00_2550;obj_t BgL_auxz00_2548;
BgL_auxz00_2550 = 
BINT(BgL_endz00_1112); 
BgL_auxz00_2548 = 
BINT(BgL_startz00_1111); 
BgL_arg1585z00_1124 = 
MAKE_PAIR(BgL_auxz00_2548, BgL_auxz00_2550); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3673z00zz__biglooz00, BGl_string3674z00zz__biglooz00, BgL_arg1585z00_1124, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/bigloo.scm 427 */
obj_t BgL_aux2876z00_1761;
BgL_aux2876z00_1761 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)15951))); 
if(
STRINGP(BgL_aux2876z00_1761))
{ /* ./Llib/bigloo.scm 427 */
BgL_res2152z00_1138 = BgL_aux2876z00_1761; }  else 
{ /* ./Llib/bigloo.scm 427 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3698z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux2876z00_1761, BGl_string3672z00zz__biglooz00, 
BINT(((long)15951))); 
exit( -1 );} } } } } 
BgL_aux2215z00_1654 = BgL_res2152z00_1138; } } } } } } 
POP_TRACE(); 
return BgL_aux2215z00_1654;} } } } 
}



/* _bigloo-module-mangle2309 */
obj_t BGl__bigloozd2modulezd2mangle2309z00zz__biglooz00(obj_t BgL_envz00_1684, obj_t BgL_idz00_1685, obj_t BgL_modulez00_1686)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 415 */
{ /* ./Llib/bigloo.scm 416 */
obj_t BgL_auxz00_2568;obj_t BgL_auxz00_2562;
if(
STRINGP(BgL_modulez00_1686))
{ /* ./Llib/bigloo.scm 416 */
BgL_auxz00_2568 = BgL_modulez00_1686
; }  else 
{ /* ./Llib/bigloo.scm 416 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3700z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_modulez00_1686, BGl_string3672z00zz__biglooz00, 
BINT(((long)15468))); 
exit( -1 );} 
if(
STRINGP(BgL_idz00_1685))
{ /* ./Llib/bigloo.scm 416 */
BgL_auxz00_2562 = BgL_idz00_1685
; }  else 
{ /* ./Llib/bigloo.scm 416 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3700z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_idz00_1685, BGl_string3672z00zz__biglooz00, 
BINT(((long)15468))); 
exit( -1 );} 
return 
bigloo_module_mangle(BgL_auxz00_2562, BgL_auxz00_2568);} } 
}



/* bigloo-mangled? */
BGL_EXPORTED_DEF bool_t bigloo_mangledp(obj_t BgL_stringz00_15)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 432 */
{ /* ./Llib/bigloo.scm 433 */
obj_t BgL_symbol2220z00_1655;
BgL_symbol2220z00_1655 = BGl_symbol3701z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 433 */

PUSH_TRACE(BgL_symbol2220z00_1655); BUNSPEC; 
{ /* ./Llib/bigloo.scm 433 */
bool_t BgL_aux2219z00_1656;
{ /* ./Llib/bigloo.scm 433 */
int BgL_lenz00_449;
BgL_lenz00_449 = 
STRING_LENGTH(BgL_stringz00_15); 
{ /* ./Llib/bigloo.scm 434 */
bool_t BgL_testz00_2577;
{ /* ./Llib/bigloo.scm 434 */
long BgL_auxz00_2578;
BgL_auxz00_2578 = 
(long)(BgL_lenz00_449); 
BgL_testz00_2577 = 
(BgL_auxz00_2578>((long)7)); } 
if(BgL_testz00_2577)
{ /* ./Llib/bigloo.scm 435 */
bool_t BgL__andtest_1006z00_451;
{ /* ./Llib/bigloo.scm 435 */
bool_t BgL__ortest_1009z00_466;
{ /* ./Llib/bigloo.scm 435 */
int BgL_auxz00_2581;
BgL_auxz00_2581 = 
(int)(((long)4)); 
BgL__ortest_1009z00_466 = 
bigloo_strncmp(BgL_stringz00_15, BGl_string3696z00zz__biglooz00, BgL_auxz00_2581); } 
if(BgL__ortest_1009z00_466)
{ /* ./Llib/bigloo.scm 435 */
BgL__andtest_1006z00_451 = BgL__ortest_1009z00_466; }  else 
{ /* ./Llib/bigloo.scm 436 */
int BgL_auxz00_2585;
BgL_auxz00_2585 = 
(int)(((long)4)); 
BgL__andtest_1006z00_451 = 
bigloo_strncmp(BgL_stringz00_15, BGl_string3699z00zz__biglooz00, BgL_auxz00_2585); } } 
if(BgL__andtest_1006z00_451)
{ /* ./Llib/bigloo.scm 437 */
bool_t BgL__andtest_1007z00_452;
{ /* ./Llib/bigloo.scm 437 */
unsigned char BgL_arg1273z00_464;
{ /* ./Llib/bigloo.scm 437 */
long BgL_arg1276z00_465;
{ /* ./Llib/bigloo.scm 437 */
long BgL_auxz00_2589;
BgL_auxz00_2589 = 
(long)(BgL_lenz00_449); 
BgL_arg1276z00_465 = 
(BgL_auxz00_2589-((long)3)); } 
{ /* ./Llib/bigloo.scm 437 */
unsigned char BgL_res2153z00_1158;
{ /* ./Llib/bigloo.scm 437 */
int BgL_kz00_1151;
BgL_kz00_1151 = 
(int)(BgL_arg1276z00_465); 
{ /* ./Llib/bigloo.scm 437 */
bool_t BgL_testz00_2593;
{ /* ./Llib/bigloo.scm 437 */
int BgL_auxz00_2594;
BgL_auxz00_2594 = 
STRING_LENGTH(BgL_stringz00_15); 
BgL_testz00_2593 = 
BOUND_CHECK(BgL_kz00_1151, BgL_auxz00_2594); } 
if(BgL_testz00_2593)
{ /* ./Llib/bigloo.scm 437 */
BgL_res2153z00_1158 = 
STRING_REF(BgL_stringz00_15, BgL_kz00_1151); }  else 
{ /* ./Llib/bigloo.scm 437 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1151), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 437 */
obj_t BgL_auxz00_2600;
{ /* ./Llib/bigloo.scm 437 */
obj_t BgL_aux2921z00_1767;
BgL_aux2921z00_1767 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)16386))); 
if(
CHARP(BgL_aux2921z00_1767))
{ /* ./Llib/bigloo.scm 437 */
BgL_auxz00_2600 = BgL_aux2921z00_1767
; }  else 
{ /* ./Llib/bigloo.scm 437 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3701z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2921z00_1767, BGl_string3672z00zz__biglooz00, 
BINT(((long)16386))); 
exit( -1 );} } 
BgL_res2153z00_1158 = 
(unsigned char)CCHAR(BgL_auxz00_2600); } } } } 
BgL_arg1273z00_464 = BgL_res2153z00_1158; } } 
BgL__andtest_1007z00_452 = 
(BgL_arg1273z00_464==((unsigned char)'z')); } 
if(BgL__andtest_1007z00_452)
{ /* ./Llib/bigloo.scm 438 */
bool_t BgL__andtest_1008z00_453;
{ /* ./Llib/bigloo.scm 438 */
bool_t BgL__ortest_1010z00_459;
{ /* ./Llib/bigloo.scm 438 */
unsigned char BgL_arg1265z00_462;
{ /* ./Llib/bigloo.scm 438 */
long BgL_arg1268z00_463;
{ /* ./Llib/bigloo.scm 438 */
long BgL_auxz00_2611;
BgL_auxz00_2611 = 
(long)(BgL_lenz00_449); 
BgL_arg1268z00_463 = 
(BgL_auxz00_2611-((long)2)); } 
{ /* ./Llib/bigloo.scm 438 */
unsigned char BgL_res2154z00_1171;
{ /* ./Llib/bigloo.scm 438 */
int BgL_kz00_1164;
BgL_kz00_1164 = 
(int)(BgL_arg1268z00_463); 
{ /* ./Llib/bigloo.scm 438 */
bool_t BgL_testz00_2615;
{ /* ./Llib/bigloo.scm 438 */
int BgL_auxz00_2616;
BgL_auxz00_2616 = 
STRING_LENGTH(BgL_stringz00_15); 
BgL_testz00_2615 = 
BOUND_CHECK(BgL_kz00_1164, BgL_auxz00_2616); } 
if(BgL_testz00_2615)
{ /* ./Llib/bigloo.scm 438 */
BgL_res2154z00_1171 = 
STRING_REF(BgL_stringz00_15, BgL_kz00_1164); }  else 
{ /* ./Llib/bigloo.scm 438 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1164), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 438 */
obj_t BgL_auxz00_2622;
{ /* ./Llib/bigloo.scm 438 */
obj_t BgL_aux2942z00_1769;
BgL_aux2942z00_1769 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)16449))); 
if(
CHARP(BgL_aux2942z00_1769))
{ /* ./Llib/bigloo.scm 438 */
BgL_auxz00_2622 = BgL_aux2942z00_1769
; }  else 
{ /* ./Llib/bigloo.scm 438 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3701z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2942z00_1769, BGl_string3672z00zz__biglooz00, 
BINT(((long)16449))); 
exit( -1 );} } 
BgL_res2154z00_1171 = 
(unsigned char)CCHAR(BgL_auxz00_2622); } } } } 
BgL_arg1265z00_462 = BgL_res2154z00_1171; } } 
{ /* ./Llib/bigloo.scm 438 */
bool_t BgL_res2155z00_1173;
BgL_res2155z00_1173 = 
isalpha(BgL_arg1265z00_462); 
BgL__ortest_1010z00_459 = BgL_res2155z00_1173; } } 
if(BgL__ortest_1010z00_459)
{ /* ./Llib/bigloo.scm 438 */
BgL__andtest_1008z00_453 = BgL__ortest_1010z00_459; }  else 
{ /* ./Llib/bigloo.scm 439 */
unsigned char BgL_arg1256z00_460;
{ /* ./Llib/bigloo.scm 439 */
long BgL_arg1259z00_461;
{ /* ./Llib/bigloo.scm 439 */
long BgL_auxz00_2633;
BgL_auxz00_2633 = 
(long)(BgL_lenz00_449); 
BgL_arg1259z00_461 = 
(BgL_auxz00_2633-((long)2)); } 
{ /* ./Llib/bigloo.scm 439 */
unsigned char BgL_res2156z00_1184;
{ /* ./Llib/bigloo.scm 439 */
int BgL_kz00_1177;
BgL_kz00_1177 = 
(int)(BgL_arg1259z00_461); 
{ /* ./Llib/bigloo.scm 439 */
bool_t BgL_testz00_2637;
{ /* ./Llib/bigloo.scm 439 */
int BgL_auxz00_2638;
BgL_auxz00_2638 = 
STRING_LENGTH(BgL_stringz00_15); 
BgL_testz00_2637 = 
BOUND_CHECK(BgL_kz00_1177, BgL_auxz00_2638); } 
if(BgL_testz00_2637)
{ /* ./Llib/bigloo.scm 439 */
BgL_res2156z00_1184 = 
STRING_REF(BgL_stringz00_15, BgL_kz00_1177); }  else 
{ /* ./Llib/bigloo.scm 439 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1177), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 439 */
obj_t BgL_auxz00_2644;
{ /* ./Llib/bigloo.scm 439 */
obj_t BgL_aux2963z00_1771;
BgL_aux2963z00_1771 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)16505))); 
if(
CHARP(BgL_aux2963z00_1771))
{ /* ./Llib/bigloo.scm 439 */
BgL_auxz00_2644 = BgL_aux2963z00_1771
; }  else 
{ /* ./Llib/bigloo.scm 439 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3701z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2963z00_1771, BGl_string3672z00zz__biglooz00, 
BINT(((long)16505))); 
exit( -1 );} } 
BgL_res2156z00_1184 = 
(unsigned char)CCHAR(BgL_auxz00_2644); } } } } 
BgL_arg1256z00_460 = BgL_res2156z00_1184; } } 
{ /* ./Llib/bigloo.scm 439 */
bool_t BgL_res2157z00_1186;
BgL_res2157z00_1186 = 
isdigit(BgL_arg1256z00_460); 
BgL__andtest_1008z00_453 = BgL_res2157z00_1186; } } } 
if(BgL__andtest_1008z00_453)
{ /* ./Llib/bigloo.scm 440 */
bool_t BgL__ortest_1011z00_454;
{ /* ./Llib/bigloo.scm 440 */
unsigned char BgL_arg1249z00_457;
{ /* ./Llib/bigloo.scm 440 */
long BgL_arg1252z00_458;
{ /* ./Llib/bigloo.scm 440 */
long BgL_auxz00_2655;
BgL_auxz00_2655 = 
(long)(BgL_lenz00_449); 
BgL_arg1252z00_458 = 
(BgL_auxz00_2655-((long)1)); } 
{ /* ./Llib/bigloo.scm 440 */
unsigned char BgL_res2158z00_1197;
{ /* ./Llib/bigloo.scm 440 */
int BgL_kz00_1190;
BgL_kz00_1190 = 
(int)(BgL_arg1252z00_458); 
{ /* ./Llib/bigloo.scm 440 */
bool_t BgL_testz00_2659;
{ /* ./Llib/bigloo.scm 440 */
int BgL_auxz00_2660;
BgL_auxz00_2660 = 
STRING_LENGTH(BgL_stringz00_15); 
BgL_testz00_2659 = 
BOUND_CHECK(BgL_kz00_1190, BgL_auxz00_2660); } 
if(BgL_testz00_2659)
{ /* ./Llib/bigloo.scm 440 */
BgL_res2158z00_1197 = 
STRING_REF(BgL_stringz00_15, BgL_kz00_1190); }  else 
{ /* ./Llib/bigloo.scm 440 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1190), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 440 */
obj_t BgL_auxz00_2666;
{ /* ./Llib/bigloo.scm 440 */
obj_t BgL_aux2984z00_1773;
BgL_aux2984z00_1773 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)16565))); 
if(
CHARP(BgL_aux2984z00_1773))
{ /* ./Llib/bigloo.scm 440 */
BgL_auxz00_2666 = BgL_aux2984z00_1773
; }  else 
{ /* ./Llib/bigloo.scm 440 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3701z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux2984z00_1773, BGl_string3672z00zz__biglooz00, 
BINT(((long)16565))); 
exit( -1 );} } 
BgL_res2158z00_1197 = 
(unsigned char)CCHAR(BgL_auxz00_2666); } } } } 
BgL_arg1249z00_457 = BgL_res2158z00_1197; } } 
{ /* ./Llib/bigloo.scm 440 */
bool_t BgL_res2159z00_1199;
BgL_res2159z00_1199 = 
isalpha(BgL_arg1249z00_457); 
BgL__ortest_1011z00_454 = BgL_res2159z00_1199; } } 
if(BgL__ortest_1011z00_454)
{ /* ./Llib/bigloo.scm 440 */
BgL_aux2219z00_1656 = BgL__ortest_1011z00_454; }  else 
{ /* ./Llib/bigloo.scm 441 */
unsigned char BgL_arg1240z00_455;
{ /* ./Llib/bigloo.scm 441 */
long BgL_arg1243z00_456;
{ /* ./Llib/bigloo.scm 441 */
long BgL_auxz00_2677;
BgL_auxz00_2677 = 
(long)(BgL_lenz00_449); 
BgL_arg1243z00_456 = 
(BgL_auxz00_2677-((long)1)); } 
{ /* ./Llib/bigloo.scm 441 */
unsigned char BgL_res2160z00_1210;
{ /* ./Llib/bigloo.scm 441 */
int BgL_kz00_1203;
BgL_kz00_1203 = 
(int)(BgL_arg1243z00_456); 
{ /* ./Llib/bigloo.scm 441 */
bool_t BgL_testz00_2681;
{ /* ./Llib/bigloo.scm 441 */
int BgL_auxz00_2682;
BgL_auxz00_2682 = 
STRING_LENGTH(BgL_stringz00_15); 
BgL_testz00_2681 = 
BOUND_CHECK(BgL_kz00_1203, BgL_auxz00_2682); } 
if(BgL_testz00_2681)
{ /* ./Llib/bigloo.scm 441 */
BgL_res2160z00_1210 = 
STRING_REF(BgL_stringz00_15, BgL_kz00_1203); }  else 
{ /* ./Llib/bigloo.scm 441 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1203), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 441 */
obj_t BgL_auxz00_2688;
{ /* ./Llib/bigloo.scm 441 */
obj_t BgL_aux3005z00_1775;
BgL_aux3005z00_1775 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)16621))); 
if(
CHARP(BgL_aux3005z00_1775))
{ /* ./Llib/bigloo.scm 441 */
BgL_auxz00_2688 = BgL_aux3005z00_1775
; }  else 
{ /* ./Llib/bigloo.scm 441 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3701z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3005z00_1775, BGl_string3672z00zz__biglooz00, 
BINT(((long)16621))); 
exit( -1 );} } 
BgL_res2160z00_1210 = 
(unsigned char)CCHAR(BgL_auxz00_2688); } } } } 
BgL_arg1240z00_455 = BgL_res2160z00_1210; } } 
{ /* ./Llib/bigloo.scm 441 */
bool_t BgL_res2161z00_1212;
BgL_res2161z00_1212 = 
isdigit(BgL_arg1240z00_455); 
BgL_aux2219z00_1656 = BgL_res2161z00_1212; } } }  else 
{ /* ./Llib/bigloo.scm 438 */
BgL_aux2219z00_1656 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 437 */
BgL_aux2219z00_1656 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 435 */
BgL_aux2219z00_1656 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 434 */
BgL_aux2219z00_1656 = ((bool_t)0); } } } 
POP_TRACE(); 
return BgL_aux2219z00_1656;} } } } 
}



/* _bigloo-mangled?2312 */
obj_t BGl__bigloozd2mangledzf32312z21zz__biglooz00(obj_t BgL_envz00_1689, obj_t BgL_stringz00_1690)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 432 */
{ /* ./Llib/bigloo.scm 433 */
bool_t BgL_auxz00_2699;
{ /* ./Llib/bigloo.scm 433 */
obj_t BgL_auxz00_2700;
if(
STRINGP(BgL_stringz00_1690))
{ /* ./Llib/bigloo.scm 433 */
BgL_auxz00_2700 = BgL_stringz00_1690
; }  else 
{ /* ./Llib/bigloo.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3702z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_stringz00_1690, BGl_string3672z00zz__biglooz00, 
BINT(((long)16238))); 
exit( -1 );} 
BgL_auxz00_2699 = 
bigloo_mangledp(BgL_auxz00_2700); } 
return 
BBOOL(BgL_auxz00_2699);} } 
}



/* bigloo-need-mangling? */
BGL_EXPORTED_DEF bool_t BGl_bigloozd2needzd2manglingzf3zf3zz__biglooz00(obj_t BgL_stringz00_16)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 446 */
{ /* ./Llib/bigloo.scm 447 */
obj_t BgL_symbol2224z00_1657;
BgL_symbol2224z00_1657 = BGl_symbol3703z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 447 */

PUSH_TRACE(BgL_symbol2224z00_1657); BUNSPEC; 
{ /* ./Llib/bigloo.scm 447 */
bool_t BgL_aux2223z00_1658;
{ /* ./Llib/bigloo.scm 447 */
int BgL_lenz00_467;
BgL_lenz00_467 = 
STRING_LENGTH(BgL_stringz00_16); 
{ /* ./Llib/bigloo.scm 448 */
bool_t BgL_testz00_2710;
{ /* ./Llib/bigloo.scm 448 */
long BgL_auxz00_2711;
BgL_auxz00_2711 = 
(long)(BgL_lenz00_467); 
BgL_testz00_2710 = 
(BgL_auxz00_2711>((long)0)); } 
if(BgL_testz00_2710)
{ /* ./Llib/bigloo.scm 449 */
bool_t BgL__ortest_1013z00_469;
{ /* ./Llib/bigloo.scm 449 */
bool_t BgL_test1297z00_478;
{ /* ./Llib/bigloo.scm 449 */
bool_t BgL_test1298z00_479;
{ /* ./Llib/bigloo.scm 449 */
unsigned char BgL_arg1304z00_481;
{ /* ./Llib/bigloo.scm 449 */
unsigned char BgL_res2162z00_1224;
{ /* ./Llib/bigloo.scm 449 */
int BgL_kz00_1217;
BgL_kz00_1217 = 
(int)(((long)0)); 
if(
BOUND_CHECK(BgL_kz00_1217, BgL_lenz00_467))
{ /* ./Llib/bigloo.scm 449 */
BgL_res2162z00_1224 = 
STRING_REF(BgL_stringz00_16, BgL_kz00_1217); }  else 
{ /* ./Llib/bigloo.scm 449 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1217), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 449 */
obj_t BgL_auxz00_2720;
{ /* ./Llib/bigloo.scm 449 */
obj_t BgL_aux3037z00_1779;
BgL_aux3037z00_1779 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)17017))); 
if(
CHARP(BgL_aux3037z00_1779))
{ /* ./Llib/bigloo.scm 449 */
BgL_auxz00_2720 = BgL_aux3037z00_1779
; }  else 
{ /* ./Llib/bigloo.scm 449 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3703z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3037z00_1779, BGl_string3672z00zz__biglooz00, 
BINT(((long)17017))); 
exit( -1 );} } 
BgL_res2162z00_1224 = 
(unsigned char)CCHAR(BgL_auxz00_2720); } } } 
BgL_arg1304z00_481 = BgL_res2162z00_1224; } 
{ /* ./Llib/bigloo.scm 449 */
bool_t BgL_res2163z00_1226;
BgL_res2163z00_1226 = 
isalpha(BgL_arg1304z00_481); 
BgL_test1298z00_479 = BgL_res2163z00_1226; } } 
if(BgL_test1298z00_479)
{ /* ./Llib/bigloo.scm 449 */
BgL_test1297z00_478 = ((bool_t)1); }  else 
{ /* ./Llib/bigloo.scm 450 */
unsigned char BgL_arg1300z00_480;
{ /* ./Llib/bigloo.scm 450 */
unsigned char BgL_res2164z00_1235;
{ /* ./Llib/bigloo.scm 450 */
int BgL_kz00_1228;
BgL_kz00_1228 = 
(int)(((long)0)); 
{ /* ./Llib/bigloo.scm 450 */
bool_t BgL_testz00_2732;
{ /* ./Llib/bigloo.scm 450 */
int BgL_auxz00_2733;
BgL_auxz00_2733 = 
STRING_LENGTH(BgL_stringz00_16); 
BgL_testz00_2732 = 
BOUND_CHECK(BgL_kz00_1228, BgL_auxz00_2733); } 
if(BgL_testz00_2732)
{ /* ./Llib/bigloo.scm 450 */
BgL_res2164z00_1235 = 
STRING_REF(BgL_stringz00_16, BgL_kz00_1228); }  else 
{ /* ./Llib/bigloo.scm 450 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1228), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 450 */
obj_t BgL_auxz00_2739;
{ /* ./Llib/bigloo.scm 450 */
obj_t BgL_aux3057z00_1781;
BgL_aux3057z00_1781 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)17051))); 
if(
CHARP(BgL_aux3057z00_1781))
{ /* ./Llib/bigloo.scm 450 */
BgL_auxz00_2739 = BgL_aux3057z00_1781
; }  else 
{ /* ./Llib/bigloo.scm 450 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3703z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3057z00_1781, BGl_string3672z00zz__biglooz00, 
BINT(((long)17051))); 
exit( -1 );} } 
BgL_res2164z00_1235 = 
(unsigned char)CCHAR(BgL_auxz00_2739); } } } } 
BgL_arg1300z00_480 = BgL_res2164z00_1235; } 
BgL_test1297z00_478 = 
(BgL_arg1300z00_480==((unsigned char)'_')); } } 
if(BgL_test1297z00_478)
{ /* ./Llib/bigloo.scm 449 */
BgL__ortest_1013z00_469 = ((bool_t)0); }  else 
{ /* ./Llib/bigloo.scm 449 */
BgL__ortest_1013z00_469 = ((bool_t)1); } } 
if(BgL__ortest_1013z00_469)
{ /* ./Llib/bigloo.scm 449 */
BgL_aux2223z00_1658 = BgL__ortest_1013z00_469; }  else 
{ 
long BgL_iz00_470;
BgL_iz00_470 = ((long)1); 
BgL_loopz00_471:
{ /* ./Llib/bigloo.scm 452 */
bool_t BgL_testz00_2751;
{ /* ./Llib/bigloo.scm 452 */
long BgL_auxz00_2752;
BgL_auxz00_2752 = 
(long)(BgL_lenz00_467); 
BgL_testz00_2751 = 
(BgL_iz00_470>=BgL_auxz00_2752); } 
if(BgL_testz00_2751)
{ /* ./Llib/bigloo.scm 452 */
BgL_aux2223z00_1658 = ((bool_t)0); }  else 
{ /* ./Llib/bigloo.scm 454 */
unsigned char BgL_cz00_473;
{ /* ./Llib/bigloo.scm 454 */
unsigned char BgL_res2165z00_1248;
{ /* ./Llib/bigloo.scm 454 */
int BgL_kz00_1241;
BgL_kz00_1241 = 
(int)(BgL_iz00_470); 
{ /* ./Llib/bigloo.scm 454 */
bool_t BgL_testz00_2756;
{ /* ./Llib/bigloo.scm 454 */
int BgL_auxz00_2757;
BgL_auxz00_2757 = 
STRING_LENGTH(BgL_stringz00_16); 
BgL_testz00_2756 = 
BOUND_CHECK(BgL_kz00_1241, BgL_auxz00_2757); } 
if(BgL_testz00_2756)
{ /* ./Llib/bigloo.scm 454 */
BgL_res2165z00_1248 = 
STRING_REF(BgL_stringz00_16, BgL_kz00_1241); }  else 
{ /* ./Llib/bigloo.scm 454 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1241), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 454 */
obj_t BgL_auxz00_2763;
{ /* ./Llib/bigloo.scm 454 */
obj_t BgL_aux3078z00_1783;
BgL_aux3078z00_1783 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)17155))); 
if(
CHARP(BgL_aux3078z00_1783))
{ /* ./Llib/bigloo.scm 454 */
BgL_auxz00_2763 = BgL_aux3078z00_1783
; }  else 
{ /* ./Llib/bigloo.scm 454 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3703z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3078z00_1783, BGl_string3672z00zz__biglooz00, 
BINT(((long)17155))); 
exit( -1 );} } 
BgL_res2165z00_1248 = 
(unsigned char)CCHAR(BgL_auxz00_2763); } } } } 
BgL_cz00_473 = BgL_res2165z00_1248; } 
{ /* ./Llib/bigloo.scm 455 */
bool_t BgL_test1285z00_474;
{ /* ./Llib/bigloo.scm 455 */
bool_t BgL_test1290z00_476;
{ /* ./Llib/bigloo.scm 455 */
bool_t BgL_res2166z00_1250;
BgL_res2166z00_1250 = 
isalpha(BgL_cz00_473); 
BgL_test1290z00_476 = BgL_res2166z00_1250; } 
if(BgL_test1290z00_476)
{ /* ./Llib/bigloo.scm 455 */
BgL_test1285z00_474 = ((bool_t)1); }  else 
{ /* ./Llib/bigloo.scm 457 */
bool_t BgL_test1291z00_477;
{ /* ./Llib/bigloo.scm 456 */
bool_t BgL_res2167z00_1252;
BgL_res2167z00_1252 = 
isdigit(BgL_cz00_473); 
BgL_test1291z00_477 = BgL_res2167z00_1252; } 
if(BgL_test1291z00_477)
{ /* ./Llib/bigloo.scm 457 */
BgL_test1285z00_474 = ((bool_t)1); }  else 
{ /* ./Llib/bigloo.scm 457 */
BgL_test1285z00_474 = 
(BgL_cz00_473==((unsigned char)'_')); } } } 
if(BgL_test1285z00_474)
{ 
long BgL_iz00_2778;
BgL_iz00_2778 = 
(BgL_iz00_470+((long)1)); 
BgL_iz00_470 = BgL_iz00_2778; 
goto BgL_loopz00_471;}  else 
{ /* ./Llib/bigloo.scm 455 */
BgL_aux2223z00_1658 = ((bool_t)1); } } } } } }  else 
{ /* ./Llib/bigloo.scm 448 */
BgL_aux2223z00_1658 = ((bool_t)0); } } } 
POP_TRACE(); 
return BgL_aux2223z00_1658;} } } } 
}



/* _bigloo-need-mangling?2314 */
obj_t BGl__bigloozd2needzd2manglingzf32314zf3zz__biglooz00(obj_t BgL_envz00_1691, obj_t BgL_stringz00_1692)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 446 */
{ /* ./Llib/bigloo.scm 447 */
bool_t BgL_auxz00_2781;
{ /* ./Llib/bigloo.scm 447 */
obj_t BgL_auxz00_2782;
if(
STRINGP(BgL_stringz00_1692))
{ /* ./Llib/bigloo.scm 447 */
BgL_auxz00_2782 = BgL_stringz00_1692
; }  else 
{ /* ./Llib/bigloo.scm 447 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3704z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_stringz00_1692, BGl_string3672z00zz__biglooz00, 
BINT(((long)16923))); 
exit( -1 );} 
BgL_auxz00_2781 = 
BGl_bigloozd2needzd2manglingzf3zf3zz__biglooz00(BgL_auxz00_2782); } 
return 
BBOOL(BgL_auxz00_2781);} } 
}



/* bigloo-demangle */
BGL_EXPORTED_DEF obj_t bigloo_demangle(obj_t BgL_stringz00_17)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 464 */
{ /* ./Llib/bigloo.scm 465 */
obj_t BgL_symbol2228z00_1659;
BgL_symbol2228z00_1659 = BGl_symbol3705z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 465 */

PUSH_TRACE(BgL_symbol2228z00_1659); BUNSPEC; 
{ /* ./Llib/bigloo.scm 465 */
obj_t BgL_aux2227z00_1660;
{ /* ./Llib/bigloo.scm 465 */
int BgL_lenz00_482;
BgL_lenz00_482 = 
STRING_LENGTH(BgL_stringz00_17); 
{ /* ./Llib/bigloo.scm 465 */
long BgL_clenz00_483;
{ /* ./Llib/bigloo.scm 466 */
long BgL_auxz00_2792;
BgL_auxz00_2792 = 
(long)(BgL_lenz00_482); 
BgL_clenz00_483 = 
(BgL_auxz00_2792-((long)3)); } 
{ /* ./Llib/bigloo.scm 466 */

{ 

{ /* ./Llib/bigloo.scm 515 */
bool_t BgL_testz00_2795;
{ /* ./Llib/bigloo.scm 515 */
long BgL_auxz00_2796;
BgL_auxz00_2796 = 
(long)(BgL_lenz00_482); 
BgL_testz00_2795 = 
(BgL_auxz00_2796<((long)8)); } 
if(BgL_testz00_2795)
{ /* ./Llib/bigloo.scm 515 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3706z00zz__biglooz00, BGl_string3707z00zz__biglooz00, BgL_stringz00_17, "./Llib/bigloo.scm", ((long)19221)); 
BgL_aux2227z00_1660 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)19221))); }  else 
{ /* ./Llib/bigloo.scm 517 */
bool_t BgL_testz00_2802;
{ /* ./Llib/bigloo.scm 517 */
int BgL_auxz00_2803;
BgL_auxz00_2803 = 
(int)(((long)4)); 
BgL_testz00_2802 = 
bigloo_strncmp(BgL_stringz00_17, BGl_string3696z00zz__biglooz00, BgL_auxz00_2803); } 
if(BgL_testz00_2802)
{ /* ./Llib/bigloo.scm 517 */
{ /* ./Llib/bigloo.scm 505 */
obj_t BgL_strz00_501;
BgL_strz00_501 = 
BGl_bigloozd2demanglezd2atz00zz__biglooz00(BgL_clenz00_483, BgL_stringz00_17, 
BINT(((long)4))); 
{ /* ./Llib/bigloo.scm 507 */
obj_t BgL_offsetz00_502;
{ /* ./Llib/bigloo.scm 507 */
int BgL_auxz00_2808;
BgL_auxz00_2808 = 
(int)(((long)1)); 
BgL_offsetz00_502 = 
BGL_MVALUES_VAL(BgL_auxz00_2808); } 
{ /* ./Llib/bigloo.scm 507 */
int BgL_auxz00_2811;
BgL_auxz00_2811 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2811); } 
{ /* ./Llib/bigloo.scm 507 */
int BgL_auxz00_2814;
BgL_auxz00_2814 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2814, BUNSPEC); } 
BgL_aux2227z00_1660 = BgL_strz00_501; } } }  else 
{ /* ./Llib/bigloo.scm 519 */
bool_t BgL_testz00_2817;
{ /* ./Llib/bigloo.scm 519 */
int BgL_auxz00_2818;
BgL_auxz00_2818 = 
(int)(((long)4)); 
BgL_testz00_2817 = 
bigloo_strncmp(BgL_stringz00_17, BGl_string3699z00zz__biglooz00, BgL_auxz00_2818); } 
if(BgL_testz00_2817)
{ /* ./Llib/bigloo.scm 519 */
{ /* ./Llib/bigloo.scm 509 */
obj_t BgL_idz00_494;
BgL_idz00_494 = 
BGl_bigloozd2demanglezd2atz00zz__biglooz00(BgL_clenz00_483, BgL_stringz00_17, 
BINT(((long)4))); 
{ /* ./Llib/bigloo.scm 511 */
obj_t BgL_offsetz00_495;
{ /* ./Llib/bigloo.scm 511 */
int BgL_auxz00_2823;
BgL_auxz00_2823 = 
(int)(((long)1)); 
BgL_offsetz00_495 = 
BGL_MVALUES_VAL(BgL_auxz00_2823); } 
{ /* ./Llib/bigloo.scm 511 */
obj_t BgL_modulez00_496;
BgL_modulez00_496 = 
BGl_bigloozd2demanglezd2atz00zz__biglooz00(BgL_clenz00_483, BgL_stringz00_17, BgL_offsetz00_495); 
{ /* ./Llib/bigloo.scm 513 */
obj_t BgL_offsetz00_497;
{ /* ./Llib/bigloo.scm 513 */
int BgL_auxz00_2827;
BgL_auxz00_2827 = 
(int)(((long)1)); 
BgL_offsetz00_497 = 
BGL_MVALUES_VAL(BgL_auxz00_2827); } 
{ /* ./Llib/bigloo.scm 513 */
int BgL_auxz00_2830;
BgL_auxz00_2830 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2830); } 
{ /* ./Llib/bigloo.scm 513 */
int BgL_auxz00_2833;
BgL_auxz00_2833 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2833, BgL_modulez00_496); } 
BgL_aux2227z00_1660 = BgL_idz00_494; } } } } }  else 
{ /* ./Llib/bigloo.scm 519 */
BgL_aux2227z00_1660 = BgL_stringz00_17; } } } } } } } } 
POP_TRACE(); 
return BgL_aux2227z00_1660;} } } } 
}



/* bigloo-demangle-at */
obj_t BGl_bigloozd2demanglezd2atz00zz__biglooz00(long BgL_clenz00_1704, obj_t BgL_stringz00_1703, obj_t BgL_offsetz00_505)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 503 */
{ 

{ /* ./Llib/bigloo.scm 480 */
obj_t BgL_newz00_507;
{ /* ./Llib/bigloo.scm 480 */
int BgL_auxz00_2837;
BgL_auxz00_2837 = 
(int)(BgL_clenz00_1704); 
BgL_newz00_507 = 
make_string(BgL_auxz00_2837, ((unsigned char)' ')); } 
{ 
obj_t BgL_rz00_508;long BgL_wz00_509;long BgL_checksumz00_510;
BgL_rz00_508 = BgL_offsetz00_505; 
BgL_wz00_509 = ((long)0); 
BgL_checksumz00_510 = ((long)0); 
BgL_loopz00_511:
{ /* ./Llib/bigloo.scm 484 */
bool_t BgL_test1333z00_512;
{ /* ./Llib/bigloo.scm 484 */
long BgL_n1z00_1287;
{ /* ./Llib/bigloo.scm 484 */
obj_t BgL_auxz00_2840;
if(
INTEGERP(BgL_rz00_508))
{ /* ./Llib/bigloo.scm 484 */
BgL_auxz00_2840 = BgL_rz00_508
; }  else 
{ /* ./Llib/bigloo.scm 484 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3710z00zz__biglooz00, BgL_rz00_508, BGl_string3672z00zz__biglooz00, 
BINT(((long)18223))); 
exit( -1 );} 
BgL_n1z00_1287 = 
(long)CINT(BgL_auxz00_2840); } 
BgL_test1333z00_512 = 
(BgL_n1z00_1287==BgL_clenz00_1704); } 
if(BgL_test1333z00_512)
{ /* ./Llib/bigloo.scm 486 */
bool_t BgL_testz00_2849;
{ /* ./Llib/bigloo.scm 486 */
long BgL_auxz00_2850;
BgL_auxz00_2850 = 
BGl_getzd28bitszd2integerz00zz__biglooz00(BgL_stringz00_1703, BgL_rz00_508); 
BgL_testz00_2849 = 
(BgL_checksumz00_510==BgL_auxz00_2850); } 
if(BgL_testz00_2849)
{ /* ./Llib/bigloo.scm 487 */
obj_t BgL_val0_1014z00_514;long BgL_val1_1015z00_515;
{ /* ./Llib/bigloo.scm 487 */
obj_t BgL_res2169z00_1319;
{ /* ./Llib/bigloo.scm 487 */
int BgL_startz00_1292;int BgL_endz00_1293;
BgL_startz00_1292 = 
(int)(((long)0)); 
BgL_endz00_1293 = 
(int)(BgL_wz00_509); 
{ /* ./Llib/bigloo.scm 487 */
bool_t BgL_test1577z00_1294;
{ /* ./Llib/bigloo.scm 487 */
bool_t BgL_testz00_2855;
{ /* ./Llib/bigloo.scm 487 */
long BgL_auxz00_2858;long BgL_auxz00_2856;
BgL_auxz00_2858 = 
(long)(BgL_startz00_1292); 
BgL_auxz00_2856 = 
(long)(BgL_endz00_1293); 
BgL_testz00_2855 = 
(BgL_auxz00_2856>=BgL_auxz00_2858); } 
if(BgL_testz00_2855)
{ /* ./Llib/bigloo.scm 487 */
bool_t BgL_testz00_2861;
{ /* ./Llib/bigloo.scm 487 */
int BgL_auxz00_2862;
{ /* ./Llib/bigloo.scm 487 */
long BgL_auxz00_2863;
{ /* ./Llib/bigloo.scm 487 */
long BgL_auxz00_2864;
{ /* ./Llib/bigloo.scm 487 */
int BgL_auxz00_2865;
BgL_auxz00_2865 = 
STRING_LENGTH(BgL_newz00_507); 
BgL_auxz00_2864 = 
(long)(BgL_auxz00_2865); } 
BgL_auxz00_2863 = 
(BgL_auxz00_2864+((long)1)); } 
BgL_auxz00_2862 = 
(int)(BgL_auxz00_2863); } 
BgL_testz00_2861 = 
BOUND_CHECK(BgL_startz00_1292, BgL_auxz00_2862); } 
if(BgL_testz00_2861)
{ /* ./Llib/bigloo.scm 487 */
int BgL_auxz00_2871;
{ /* ./Llib/bigloo.scm 487 */
long BgL_auxz00_2872;
{ /* ./Llib/bigloo.scm 487 */
long BgL_auxz00_2873;
{ /* ./Llib/bigloo.scm 487 */
int BgL_auxz00_2874;
BgL_auxz00_2874 = 
STRING_LENGTH(BgL_newz00_507); 
BgL_auxz00_2873 = 
(long)(BgL_auxz00_2874); } 
BgL_auxz00_2872 = 
(BgL_auxz00_2873+((long)1)); } 
BgL_auxz00_2871 = 
(int)(BgL_auxz00_2872); } 
BgL_test1577z00_1294 = 
BOUND_CHECK(BgL_endz00_1293, BgL_auxz00_2871); }  else 
{ /* ./Llib/bigloo.scm 487 */
BgL_test1577z00_1294 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 487 */
BgL_test1577z00_1294 = ((bool_t)0); } } 
if(BgL_test1577z00_1294)
{ /* ./Llib/bigloo.scm 487 */
BgL_res2169z00_1319 = 
c_substring(BgL_newz00_507, BgL_startz00_1292, BgL_endz00_1293); }  else 
{ /* ./Llib/bigloo.scm 487 */
{ /* ./Llib/bigloo.scm 487 */
obj_t BgL_arg1585z00_1305;
{ /* ./Llib/bigloo.scm 487 */
obj_t BgL_auxz00_2884;obj_t BgL_auxz00_2882;
BgL_auxz00_2884 = 
BINT(BgL_endz00_1293); 
BgL_auxz00_2882 = 
BINT(BgL_startz00_1292); 
BgL_arg1585z00_1305 = 
MAKE_PAIR(BgL_auxz00_2882, BgL_auxz00_2884); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3673z00zz__biglooz00, BGl_string3674z00zz__biglooz00, BgL_arg1585z00_1305, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/bigloo.scm 487 */
obj_t BgL_aux3179z00_1793;
BgL_aux3179z00_1793 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)18338))); 
if(
STRINGP(BgL_aux3179z00_1793))
{ /* ./Llib/bigloo.scm 487 */
BgL_res2169z00_1319 = BgL_aux3179z00_1793; }  else 
{ /* ./Llib/bigloo.scm 487 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux3179z00_1793, BGl_string3672z00zz__biglooz00, 
BINT(((long)18338))); 
exit( -1 );} } } } } 
BgL_val0_1014z00_514 = BgL_res2169z00_1319; } 
{ /* ./Llib/bigloo.scm 487 */
long BgL_za71za7_1320;
{ /* ./Llib/bigloo.scm 487 */
obj_t BgL_auxz00_2895;
if(
INTEGERP(BgL_rz00_508))
{ /* ./Llib/bigloo.scm 487 */
BgL_auxz00_2895 = BgL_rz00_508
; }  else 
{ /* ./Llib/bigloo.scm 487 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3710z00zz__biglooz00, BgL_rz00_508, BGl_string3672z00zz__biglooz00, 
BINT(((long)18358))); 
exit( -1 );} 
BgL_za71za7_1320 = 
(long)CINT(BgL_auxz00_2895); } 
BgL_val1_1015z00_515 = 
(BgL_za71za7_1320+((long)3)); } 
{ /* ./Llib/bigloo.scm 487 */
int BgL_auxz00_2903;
BgL_auxz00_2903 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_2903); } 
{ /* ./Llib/bigloo.scm 487 */
obj_t BgL_auxz00_2908;int BgL_auxz00_2906;
BgL_auxz00_2908 = 
BINT(BgL_val1_1015z00_515); 
BgL_auxz00_2906 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_2906, BgL_auxz00_2908); } 
return BgL_val0_1014z00_514;}  else 
{ /* ./Llib/bigloo.scm 486 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3706z00zz__biglooz00, BGl_string3708z00zz__biglooz00, BgL_stringz00_1703, "./Llib/bigloo.scm", ((long)17647)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)17700)));} }  else 
{ /* ./Llib/bigloo.scm 489 */
unsigned char BgL_cz00_517;
{ /* ./Llib/bigloo.scm 489 */
unsigned char BgL_res2170z00_1333;
{ /* ./Llib/bigloo.scm 489 */
int BgL_kz00_1326;
{ /* ./Llib/bigloo.scm 489 */
obj_t BgL_auxz00_2914;
if(
INTEGERP(BgL_rz00_508))
{ /* ./Llib/bigloo.scm 489 */
BgL_auxz00_2914 = BgL_rz00_508
; }  else 
{ /* ./Llib/bigloo.scm 489 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3711z00zz__biglooz00, BgL_rz00_508, BGl_string3672z00zz__biglooz00, 
BINT(((long)18399))); 
exit( -1 );} 
BgL_kz00_1326 = 
CINT(BgL_auxz00_2914); } 
{ /* ./Llib/bigloo.scm 489 */
bool_t BgL_testz00_2921;
{ /* ./Llib/bigloo.scm 489 */
int BgL_auxz00_2922;
BgL_auxz00_2922 = 
STRING_LENGTH(BgL_stringz00_1703); 
BgL_testz00_2921 = 
BOUND_CHECK(BgL_kz00_1326, BgL_auxz00_2922); } 
if(BgL_testz00_2921)
{ /* ./Llib/bigloo.scm 489 */
BgL_res2170z00_1333 = 
STRING_REF(BgL_stringz00_1703, BgL_kz00_1326); }  else 
{ /* ./Llib/bigloo.scm 489 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1326), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 489 */
obj_t BgL_auxz00_2928;
{ /* ./Llib/bigloo.scm 489 */
obj_t BgL_aux3222z00_1799;
BgL_aux3222z00_1799 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)18399))); 
if(
CHARP(BgL_aux3222z00_1799))
{ /* ./Llib/bigloo.scm 489 */
BgL_auxz00_2928 = BgL_aux3222z00_1799
; }  else 
{ /* ./Llib/bigloo.scm 489 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3222z00_1799, BGl_string3672z00zz__biglooz00, 
BINT(((long)18399))); 
exit( -1 );} } 
BgL_res2170z00_1333 = 
(unsigned char)CCHAR(BgL_auxz00_2928); } } } } 
BgL_cz00_517 = BgL_res2170z00_1333; } 
if(
(BgL_cz00_517==((unsigned char)'z')))
{ /* ./Llib/bigloo.scm 491 */
bool_t BgL_test1345z00_519;
{ /* ./Llib/bigloo.scm 491 */
unsigned char BgL_arg1368z00_529;
{ /* ./Llib/bigloo.scm 491 */
long BgL_arg1371z00_530;
{ /* ./Llib/bigloo.scm 491 */
long BgL_za71za7_1336;
{ /* ./Llib/bigloo.scm 491 */
obj_t BgL_auxz00_2939;
if(
INTEGERP(BgL_rz00_508))
{ /* ./Llib/bigloo.scm 491 */
BgL_auxz00_2939 = BgL_rz00_508
; }  else 
{ /* ./Llib/bigloo.scm 491 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3710z00zz__biglooz00, BgL_rz00_508, BGl_string3672z00zz__biglooz00, 
BINT(((long)18486))); 
exit( -1 );} 
BgL_za71za7_1336 = 
(long)CINT(BgL_auxz00_2939); } 
BgL_arg1371z00_530 = 
(BgL_za71za7_1336+((long)1)); } 
{ /* ./Llib/bigloo.scm 491 */
unsigned char BgL_res2171z00_1346;
{ /* ./Llib/bigloo.scm 491 */
int BgL_kz00_1339;
BgL_kz00_1339 = 
(int)(BgL_arg1371z00_530); 
{ /* ./Llib/bigloo.scm 491 */
bool_t BgL_testz00_2948;
{ /* ./Llib/bigloo.scm 491 */
int BgL_auxz00_2949;
BgL_auxz00_2949 = 
STRING_LENGTH(BgL_stringz00_1703); 
BgL_testz00_2948 = 
BOUND_CHECK(BgL_kz00_1339, BgL_auxz00_2949); } 
if(BgL_testz00_2948)
{ /* ./Llib/bigloo.scm 491 */
BgL_res2171z00_1346 = 
STRING_REF(BgL_stringz00_1703, BgL_kz00_1339); }  else 
{ /* ./Llib/bigloo.scm 491 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1339), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 491 */
obj_t BgL_auxz00_2955;
{ /* ./Llib/bigloo.scm 491 */
obj_t BgL_aux3253z00_1803;
BgL_aux3253z00_1803 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)18467))); 
if(
CHARP(BgL_aux3253z00_1803))
{ /* ./Llib/bigloo.scm 491 */
BgL_auxz00_2955 = BgL_aux3253z00_1803
; }  else 
{ /* ./Llib/bigloo.scm 491 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3253z00_1803, BGl_string3672z00zz__biglooz00, 
BINT(((long)18467))); 
exit( -1 );} } 
BgL_res2171z00_1346 = 
(unsigned char)CCHAR(BgL_auxz00_2955); } } } } 
BgL_arg1368z00_529 = BgL_res2171z00_1346; } } 
BgL_test1345z00_519 = 
(BgL_arg1368z00_529==((unsigned char)'z')); } 
if(BgL_test1345z00_519)
{ /* ./Llib/bigloo.scm 492 */
obj_t BgL_val0_1016z00_520;long BgL_val1_1017z00_521;
{ /* ./Llib/bigloo.scm 492 */
long BgL_arg1352z00_523;
BgL_arg1352z00_523 = 
(BgL_wz00_509-((long)1)); 
{ /* ./Llib/bigloo.scm 492 */
obj_t BgL_res2172z00_1379;
{ /* ./Llib/bigloo.scm 492 */
int BgL_startz00_1352;int BgL_endz00_1353;
BgL_startz00_1352 = 
(int)(((long)0)); 
BgL_endz00_1353 = 
(int)(BgL_arg1352z00_523); 
{ /* ./Llib/bigloo.scm 492 */
bool_t BgL_test1577z00_1354;
{ /* ./Llib/bigloo.scm 492 */
bool_t BgL_testz00_2969;
{ /* ./Llib/bigloo.scm 492 */
long BgL_auxz00_2972;long BgL_auxz00_2970;
BgL_auxz00_2972 = 
(long)(BgL_startz00_1352); 
BgL_auxz00_2970 = 
(long)(BgL_endz00_1353); 
BgL_testz00_2969 = 
(BgL_auxz00_2970>=BgL_auxz00_2972); } 
if(BgL_testz00_2969)
{ /* ./Llib/bigloo.scm 492 */
bool_t BgL_testz00_2975;
{ /* ./Llib/bigloo.scm 492 */
int BgL_auxz00_2976;
{ /* ./Llib/bigloo.scm 492 */
long BgL_auxz00_2977;
{ /* ./Llib/bigloo.scm 492 */
long BgL_auxz00_2978;
{ /* ./Llib/bigloo.scm 492 */
int BgL_auxz00_2979;
BgL_auxz00_2979 = 
STRING_LENGTH(BgL_newz00_507); 
BgL_auxz00_2978 = 
(long)(BgL_auxz00_2979); } 
BgL_auxz00_2977 = 
(BgL_auxz00_2978+((long)1)); } 
BgL_auxz00_2976 = 
(int)(BgL_auxz00_2977); } 
BgL_testz00_2975 = 
BOUND_CHECK(BgL_startz00_1352, BgL_auxz00_2976); } 
if(BgL_testz00_2975)
{ /* ./Llib/bigloo.scm 492 */
int BgL_auxz00_2985;
{ /* ./Llib/bigloo.scm 492 */
long BgL_auxz00_2986;
{ /* ./Llib/bigloo.scm 492 */
long BgL_auxz00_2987;
{ /* ./Llib/bigloo.scm 492 */
int BgL_auxz00_2988;
BgL_auxz00_2988 = 
STRING_LENGTH(BgL_newz00_507); 
BgL_auxz00_2987 = 
(long)(BgL_auxz00_2988); } 
BgL_auxz00_2986 = 
(BgL_auxz00_2987+((long)1)); } 
BgL_auxz00_2985 = 
(int)(BgL_auxz00_2986); } 
BgL_test1577z00_1354 = 
BOUND_CHECK(BgL_endz00_1353, BgL_auxz00_2985); }  else 
{ /* ./Llib/bigloo.scm 492 */
BgL_test1577z00_1354 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 492 */
BgL_test1577z00_1354 = ((bool_t)0); } } 
if(BgL_test1577z00_1354)
{ /* ./Llib/bigloo.scm 492 */
BgL_res2172z00_1379 = 
c_substring(BgL_newz00_507, BgL_startz00_1352, BgL_endz00_1353); }  else 
{ /* ./Llib/bigloo.scm 492 */
{ /* ./Llib/bigloo.scm 492 */
obj_t BgL_arg1585z00_1365;
{ /* ./Llib/bigloo.scm 492 */
obj_t BgL_auxz00_2998;obj_t BgL_auxz00_2996;
BgL_auxz00_2998 = 
BINT(BgL_endz00_1353); 
BgL_auxz00_2996 = 
BINT(BgL_startz00_1352); 
BgL_arg1585z00_1365 = 
MAKE_PAIR(BgL_auxz00_2996, BgL_auxz00_2998); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3673z00zz__biglooz00, BGl_string3674z00zz__biglooz00, BgL_arg1585z00_1365, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/bigloo.scm 492 */
obj_t BgL_aux3281z00_1805;
BgL_aux3281z00_1805 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)18519))); 
if(
STRINGP(BgL_aux3281z00_1805))
{ /* ./Llib/bigloo.scm 492 */
BgL_res2172z00_1379 = BgL_aux3281z00_1805; }  else 
{ /* ./Llib/bigloo.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux3281z00_1805, BGl_string3672z00zz__biglooz00, 
BINT(((long)18519))); 
exit( -1 );} } } } } 
BgL_val0_1016z00_520 = BgL_res2172z00_1379; } } 
{ /* ./Llib/bigloo.scm 492 */
long BgL_za71za7_1380;
{ /* ./Llib/bigloo.scm 492 */
obj_t BgL_auxz00_3009;
if(
INTEGERP(BgL_rz00_508))
{ /* ./Llib/bigloo.scm 492 */
BgL_auxz00_3009 = BgL_rz00_508
; }  else 
{ /* ./Llib/bigloo.scm 492 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3710z00zz__biglooz00, BgL_rz00_508, BGl_string3672z00zz__biglooz00, 
BINT(((long)18547))); 
exit( -1 );} 
BgL_za71za7_1380 = 
(long)CINT(BgL_auxz00_3009); } 
BgL_val1_1017z00_521 = 
(BgL_za71za7_1380+((long)2)); } 
{ /* ./Llib/bigloo.scm 492 */
int BgL_auxz00_3017;
BgL_auxz00_3017 = 
(int)(((long)2)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_3017); } 
{ /* ./Llib/bigloo.scm 492 */
obj_t BgL_auxz00_3022;int BgL_auxz00_3020;
BgL_auxz00_3022 = 
BINT(BgL_val1_1017z00_521); 
BgL_auxz00_3020 = 
(int)(((long)1)); 
BGL_MVALUES_VAL_SET(BgL_auxz00_3020, BgL_auxz00_3022); } 
return BgL_val0_1016z00_520;}  else 
{ /* ./Llib/bigloo.scm 493 */
long BgL_iz00_524;
BgL_iz00_524 = 
BGl_getzd28bitszd2integerz00zz__biglooz00(BgL_stringz00_1703, BgL_rz00_508); 
{ /* ./Llib/bigloo.scm 493 */
unsigned char BgL_ncz00_525;
BgL_ncz00_525 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_iz00_524); 
{ /* ./Llib/bigloo.scm 494 */

{ /* ./Llib/bigloo.scm 495 */
int BgL_kz00_1386;
BgL_kz00_1386 = 
(int)(BgL_wz00_509); 
{ /* ./Llib/bigloo.scm 495 */
bool_t BgL_testz00_3028;
{ /* ./Llib/bigloo.scm 495 */
int BgL_auxz00_3029;
BgL_auxz00_3029 = 
STRING_LENGTH(BgL_newz00_507); 
BgL_testz00_3028 = 
BOUND_CHECK(BgL_kz00_1386, BgL_auxz00_3029); } 
if(BgL_testz00_3028)
{ /* ./Llib/bigloo.scm 495 */
STRING_SET(BgL_newz00_507, BgL_kz00_1386, BgL_ncz00_525); }  else 
{ /* ./Llib/bigloo.scm 495 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1386), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)18638))); } } } 
{ /* ./Llib/bigloo.scm 496 */
long BgL_arg1358z00_526;long BgL_arg1359z00_527;long BgL_arg1360z00_528;
{ /* ./Llib/bigloo.scm 496 */
long BgL_za71za7_1394;
{ /* ./Llib/bigloo.scm 496 */
obj_t BgL_auxz00_3037;
if(
INTEGERP(BgL_rz00_508))
{ /* ./Llib/bigloo.scm 496 */
BgL_auxz00_3037 = BgL_rz00_508
; }  else 
{ /* ./Llib/bigloo.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3710z00zz__biglooz00, BgL_rz00_508, BGl_string3672z00zz__biglooz00, 
BINT(((long)18672))); 
exit( -1 );} 
BgL_za71za7_1394 = 
(long)CINT(BgL_auxz00_3037); } 
BgL_arg1358z00_526 = 
(BgL_za71za7_1394+((long)3)); } 
BgL_arg1359z00_527 = 
(BgL_wz00_509+((long)1)); 
BgL_arg1360z00_528 = 
(BgL_checksumz00_510 ^ BgL_iz00_524); 
{ 
long BgL_checksumz00_3050;long BgL_wz00_3049;obj_t BgL_rz00_3047;
BgL_rz00_3047 = 
BINT(BgL_arg1358z00_526); 
BgL_wz00_3049 = BgL_arg1359z00_527; 
BgL_checksumz00_3050 = BgL_arg1360z00_528; 
BgL_checksumz00_510 = BgL_checksumz00_3050; 
BgL_wz00_509 = BgL_wz00_3049; 
BgL_rz00_508 = BgL_rz00_3047; 
goto BgL_loopz00_511;} } } } } }  else 
{ /* ./Llib/bigloo.scm 490 */
{ /* ./Llib/bigloo.scm 500 */
int BgL_kz00_1401;
BgL_kz00_1401 = 
(int)(BgL_wz00_509); 
{ /* ./Llib/bigloo.scm 500 */
bool_t BgL_testz00_3052;
{ /* ./Llib/bigloo.scm 500 */
int BgL_auxz00_3053;
BgL_auxz00_3053 = 
STRING_LENGTH(BgL_newz00_507); 
BgL_testz00_3052 = 
BOUND_CHECK(BgL_kz00_1401, BgL_auxz00_3053); } 
if(BgL_testz00_3052)
{ /* ./Llib/bigloo.scm 500 */
STRING_SET(BgL_newz00_507, BgL_kz00_1401, BgL_cz00_517); }  else 
{ /* ./Llib/bigloo.scm 500 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3677z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1401), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)18758))); } } } 
{ /* ./Llib/bigloo.scm 501 */
long BgL_arg1376z00_531;long BgL_arg1377z00_532;
{ /* ./Llib/bigloo.scm 501 */
long BgL_za71za7_1409;
{ /* ./Llib/bigloo.scm 501 */
obj_t BgL_auxz00_3061;
if(
INTEGERP(BgL_rz00_508))
{ /* ./Llib/bigloo.scm 501 */
BgL_auxz00_3061 = BgL_rz00_508
; }  else 
{ /* ./Llib/bigloo.scm 501 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3709z00zz__biglooz00, BGl_string3710z00zz__biglooz00, BgL_rz00_508, BGl_string3672z00zz__biglooz00, 
BINT(((long)18794))); 
exit( -1 );} 
BgL_za71za7_1409 = 
(long)CINT(BgL_auxz00_3061); } 
BgL_arg1376z00_531 = 
(BgL_za71za7_1409+((long)1)); } 
BgL_arg1377z00_532 = 
(BgL_wz00_509+((long)1)); 
{ 
long BgL_wz00_3072;obj_t BgL_rz00_3070;
BgL_rz00_3070 = 
BINT(BgL_arg1376z00_531); 
BgL_wz00_3072 = BgL_arg1377z00_532; 
BgL_wz00_509 = BgL_wz00_3072; 
BgL_rz00_508 = BgL_rz00_3070; 
goto BgL_loopz00_511;} } } } } } } } } 
}



/* get-8bits-integer */
long BGl_getzd28bitszd2integerz00zz__biglooz00(obj_t BgL_stringz00_1705, obj_t BgL_rz00_534)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 478 */
{ /* ./Llib/bigloo.scm 474 */
unsigned char BgL_c1z00_536;
{ /* ./Llib/bigloo.scm 474 */
long BgL_arg1398z00_542;
{ /* ./Llib/bigloo.scm 474 */
long BgL_za71za7_1413;
{ /* ./Llib/bigloo.scm 474 */
obj_t BgL_auxz00_3073;
if(
INTEGERP(BgL_rz00_534))
{ /* ./Llib/bigloo.scm 474 */
BgL_auxz00_3073 = BgL_rz00_534
; }  else 
{ /* ./Llib/bigloo.scm 474 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3712z00zz__biglooz00, BGl_string3710z00zz__biglooz00, BgL_rz00_534, BGl_string3672z00zz__biglooz00, 
BINT(((long)17936))); 
exit( -1 );} 
BgL_za71za7_1413 = 
(long)CINT(BgL_auxz00_3073); } 
BgL_arg1398z00_542 = 
(BgL_za71za7_1413+((long)1)); } 
{ /* ./Llib/bigloo.scm 474 */
unsigned char BgL_res2173z00_1423;
{ /* ./Llib/bigloo.scm 474 */
int BgL_kz00_1416;
BgL_kz00_1416 = 
(int)(BgL_arg1398z00_542); 
{ /* ./Llib/bigloo.scm 474 */
bool_t BgL_testz00_3082;
{ /* ./Llib/bigloo.scm 474 */
int BgL_auxz00_3083;
BgL_auxz00_3083 = 
STRING_LENGTH(BgL_stringz00_1705); 
BgL_testz00_3082 = 
BOUND_CHECK(BgL_kz00_1416, BgL_auxz00_3083); } 
if(BgL_testz00_3082)
{ /* ./Llib/bigloo.scm 474 */
BgL_res2173z00_1423 = 
STRING_REF(BgL_stringz00_1705, BgL_kz00_1416); }  else 
{ /* ./Llib/bigloo.scm 474 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1416), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 474 */
obj_t BgL_auxz00_3089;
{ /* ./Llib/bigloo.scm 474 */
obj_t BgL_aux3367z00_1815;
BgL_aux3367z00_1815 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)17917))); 
if(
CHARP(BgL_aux3367z00_1815))
{ /* ./Llib/bigloo.scm 474 */
BgL_auxz00_3089 = BgL_aux3367z00_1815
; }  else 
{ /* ./Llib/bigloo.scm 474 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3712z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3367z00_1815, BGl_string3672z00zz__biglooz00, 
BINT(((long)17917))); 
exit( -1 );} } 
BgL_res2173z00_1423 = 
(unsigned char)CCHAR(BgL_auxz00_3089); } } } } 
BgL_c1z00_536 = BgL_res2173z00_1423; } } 
{ /* ./Llib/bigloo.scm 474 */
unsigned char BgL_c2z00_537;
{ /* ./Llib/bigloo.scm 475 */
long BgL_arg1394z00_541;
{ /* ./Llib/bigloo.scm 475 */
long BgL_za71za7_1424;
{ /* ./Llib/bigloo.scm 475 */
obj_t BgL_auxz00_3098;
if(
INTEGERP(BgL_rz00_534))
{ /* ./Llib/bigloo.scm 475 */
BgL_auxz00_3098 = BgL_rz00_534
; }  else 
{ /* ./Llib/bigloo.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3712z00zz__biglooz00, BGl_string3710z00zz__biglooz00, BgL_rz00_534, BGl_string3672z00zz__biglooz00, 
BINT(((long)17973))); 
exit( -1 );} 
BgL_za71za7_1424 = 
(long)CINT(BgL_auxz00_3098); } 
BgL_arg1394z00_541 = 
(BgL_za71za7_1424+((long)2)); } 
{ /* ./Llib/bigloo.scm 475 */
unsigned char BgL_res2174z00_1434;
{ /* ./Llib/bigloo.scm 475 */
int BgL_kz00_1427;
BgL_kz00_1427 = 
(int)(BgL_arg1394z00_541); 
{ /* ./Llib/bigloo.scm 475 */
bool_t BgL_testz00_3107;
{ /* ./Llib/bigloo.scm 475 */
int BgL_auxz00_3108;
BgL_auxz00_3108 = 
STRING_LENGTH(BgL_stringz00_1705); 
BgL_testz00_3107 = 
BOUND_CHECK(BgL_kz00_1427, BgL_auxz00_3108); } 
if(BgL_testz00_3107)
{ /* ./Llib/bigloo.scm 475 */
BgL_res2174z00_1434 = 
STRING_REF(BgL_stringz00_1705, BgL_kz00_1427); }  else 
{ /* ./Llib/bigloo.scm 475 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1427), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 475 */
obj_t BgL_auxz00_3114;
{ /* ./Llib/bigloo.scm 475 */
obj_t BgL_aux3398z00_1819;
BgL_aux3398z00_1819 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)17954))); 
if(
CHARP(BgL_aux3398z00_1819))
{ /* ./Llib/bigloo.scm 475 */
BgL_auxz00_3114 = BgL_aux3398z00_1819
; }  else 
{ /* ./Llib/bigloo.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3712z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3398z00_1819, BGl_string3672z00zz__biglooz00, 
BINT(((long)17954))); 
exit( -1 );} } 
BgL_res2174z00_1434 = 
(unsigned char)CCHAR(BgL_auxz00_3114); } } } } 
BgL_c2z00_537 = BgL_res2174z00_1434; } } 
{ /* ./Llib/bigloo.scm 475 */
long BgL_i1z00_538;
BgL_i1z00_538 = 
BGl_charzd2ze3digitz31zz__biglooz00(BgL_c1z00_536); 
{ /* ./Llib/bigloo.scm 476 */
long BgL_i2z00_539;
BgL_i2z00_539 = 
BGl_charzd2ze3digitz31zz__biglooz00(BgL_c2z00_537); 
{ /* ./Llib/bigloo.scm 477 */

{ /* ./Llib/bigloo.scm 478 */
long BgL_auxz00_3125;
{ /* ./Llib/bigloo.scm 478 */
int BgL_auxz00_3126;
BgL_auxz00_3126 = 
(int)(((long)4)); 
BgL_auxz00_3125 = 
(BgL_i2z00_539 << BgL_auxz00_3126); } 
return 
(BgL_i1z00_538+BgL_auxz00_3125);} } } } } } } 
}



/* char->digit */
long BGl_charzd2ze3digitz31zz__biglooz00(unsigned char BgL_cz00_543)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 472 */
{ /* ./Llib/bigloo.scm 470 */
bool_t BgL_test1402z00_545;
{ /* ./Llib/bigloo.scm 470 */
bool_t BgL_res2175z00_1440;
BgL_res2175z00_1440 = 
isdigit(BgL_cz00_543); 
BgL_test1402z00_545 = BgL_res2175z00_1440; } 
if(BgL_test1402z00_545)
{ /* ./Llib/bigloo.scm 471 */
long BgL_auxz00_3134;long BgL_auxz00_3132;
BgL_auxz00_3134 = 
(((unsigned char)'0')); 
BgL_auxz00_3132 = 
(BgL_cz00_543); 
return 
(BgL_auxz00_3132-BgL_auxz00_3134);}  else 
{ /* ./Llib/bigloo.scm 472 */
long BgL_auxz00_3137;
{ /* ./Llib/bigloo.scm 472 */
long BgL_auxz00_3140;long BgL_auxz00_3138;
BgL_auxz00_3140 = 
(((unsigned char)'a')); 
BgL_auxz00_3138 = 
(BgL_cz00_543); 
BgL_auxz00_3137 = 
(BgL_auxz00_3138-BgL_auxz00_3140); } 
return 
(((long)10)+BgL_auxz00_3137);} } } 
}



/* _bigloo-demangle2316 */
obj_t BGl__bigloozd2demangle2316zd2zz__biglooz00(obj_t BgL_envz00_1693, obj_t BgL_stringz00_1694)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 464 */
{ /* ./Llib/bigloo.scm 465 */
obj_t BgL_auxz00_3144;
if(
STRINGP(BgL_stringz00_1694))
{ /* ./Llib/bigloo.scm 465 */
BgL_auxz00_3144 = BgL_stringz00_1694
; }  else 
{ /* ./Llib/bigloo.scm 465 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3713z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_stringz00_1694, BGl_string3672z00zz__biglooz00, 
BINT(((long)17566))); 
exit( -1 );} 
return 
bigloo_demangle(BgL_auxz00_3144);} } 
}



/* bigloo-class-mangled? */
BGL_EXPORTED_DEF bool_t bigloo_class_mangledp(obj_t BgL_stringz00_18)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 527 */
{ /* ./Llib/bigloo.scm 528 */
obj_t BgL_symbol2232z00_1661;
BgL_symbol2232z00_1661 = BGl_symbol3714z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 528 */

PUSH_TRACE(BgL_symbol2232z00_1661); BUNSPEC; 
{ /* ./Llib/bigloo.scm 528 */
bool_t BgL_aux2231z00_1662;
{ /* ./Llib/bigloo.scm 528 */
int BgL_lenz00_559;
BgL_lenz00_559 = 
STRING_LENGTH(BgL_stringz00_18); 
{ /* ./Llib/bigloo.scm 529 */
bool_t BgL_testz00_3153;
{ /* ./Llib/bigloo.scm 529 */
long BgL_auxz00_3154;
BgL_auxz00_3154 = 
(long)(BgL_lenz00_559); 
BgL_testz00_3153 = 
(BgL_auxz00_3154>((long)8)); } 
if(BgL_testz00_3153)
{ /* ./Llib/bigloo.scm 530 */
bool_t BgL__andtest_1023z00_561;
{ /* ./Llib/bigloo.scm 530 */
unsigned char BgL_arg1466z00_577;
{ /* ./Llib/bigloo.scm 530 */
long BgL_arg1469z00_578;
{ /* ./Llib/bigloo.scm 530 */
long BgL_auxz00_3157;
BgL_auxz00_3157 = 
(long)(BgL_lenz00_559); 
BgL_arg1469z00_578 = 
(BgL_auxz00_3157-((long)1)); } 
{ /* ./Llib/bigloo.scm 530 */
unsigned char BgL_res2176z00_1467;
{ /* ./Llib/bigloo.scm 530 */
int BgL_kz00_1460;
BgL_kz00_1460 = 
(int)(BgL_arg1469z00_578); 
if(
BOUND_CHECK(BgL_kz00_1460, BgL_lenz00_559))
{ /* ./Llib/bigloo.scm 530 */
BgL_res2176z00_1467 = 
STRING_REF(BgL_stringz00_18, BgL_kz00_1460); }  else 
{ /* ./Llib/bigloo.scm 530 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1460), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 530 */
obj_t BgL_auxz00_3166;
{ /* ./Llib/bigloo.scm 530 */
obj_t BgL_aux3431z00_1823;
BgL_aux3431z00_1823 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)19771))); 
if(
CHARP(BgL_aux3431z00_1823))
{ /* ./Llib/bigloo.scm 530 */
BgL_auxz00_3166 = BgL_aux3431z00_1823
; }  else 
{ /* ./Llib/bigloo.scm 530 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3714z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3431z00_1823, BGl_string3672z00zz__biglooz00, 
BINT(((long)19771))); 
exit( -1 );} } 
BgL_res2176z00_1467 = 
(unsigned char)CCHAR(BgL_auxz00_3166); } } } 
BgL_arg1466z00_577 = BgL_res2176z00_1467; } } 
BgL__andtest_1023z00_561 = 
(BgL_arg1466z00_577==((unsigned char)'t')); } 
if(BgL__andtest_1023z00_561)
{ /* ./Llib/bigloo.scm 531 */
bool_t BgL__andtest_1024z00_562;
{ /* ./Llib/bigloo.scm 531 */
unsigned char BgL_arg1459z00_575;
{ /* ./Llib/bigloo.scm 531 */
long BgL_arg1462z00_576;
{ /* ./Llib/bigloo.scm 531 */
long BgL_auxz00_3177;
BgL_auxz00_3177 = 
(long)(BgL_lenz00_559); 
BgL_arg1462z00_576 = 
(BgL_auxz00_3177-((long)2)); } 
{ /* ./Llib/bigloo.scm 531 */
unsigned char BgL_res2177z00_1480;
{ /* ./Llib/bigloo.scm 531 */
int BgL_kz00_1473;
BgL_kz00_1473 = 
(int)(BgL_arg1462z00_576); 
{ /* ./Llib/bigloo.scm 531 */
bool_t BgL_testz00_3181;
{ /* ./Llib/bigloo.scm 531 */
int BgL_auxz00_3182;
BgL_auxz00_3182 = 
STRING_LENGTH(BgL_stringz00_18); 
BgL_testz00_3181 = 
BOUND_CHECK(BgL_kz00_1473, BgL_auxz00_3182); } 
if(BgL_testz00_3181)
{ /* ./Llib/bigloo.scm 531 */
BgL_res2177z00_1480 = 
STRING_REF(BgL_stringz00_18, BgL_kz00_1473); }  else 
{ /* ./Llib/bigloo.scm 531 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1473), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 531 */
obj_t BgL_auxz00_3188;
{ /* ./Llib/bigloo.scm 531 */
obj_t BgL_aux3452z00_1825;
BgL_aux3452z00_1825 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)19820))); 
if(
CHARP(BgL_aux3452z00_1825))
{ /* ./Llib/bigloo.scm 531 */
BgL_auxz00_3188 = BgL_aux3452z00_1825
; }  else 
{ /* ./Llib/bigloo.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3714z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3452z00_1825, BGl_string3672z00zz__biglooz00, 
BINT(((long)19820))); 
exit( -1 );} } 
BgL_res2177z00_1480 = 
(unsigned char)CCHAR(BgL_auxz00_3188); } } } } 
BgL_arg1459z00_575 = BgL_res2177z00_1480; } } 
BgL__andtest_1024z00_562 = 
(BgL_arg1459z00_575==((unsigned char)'l')); } 
if(BgL__andtest_1024z00_562)
{ /* ./Llib/bigloo.scm 532 */
bool_t BgL__andtest_1025z00_563;
{ /* ./Llib/bigloo.scm 532 */
unsigned char BgL_arg1452z00_573;
{ /* ./Llib/bigloo.scm 532 */
long BgL_arg1455z00_574;
{ /* ./Llib/bigloo.scm 532 */
long BgL_auxz00_3199;
BgL_auxz00_3199 = 
(long)(BgL_lenz00_559); 
BgL_arg1455z00_574 = 
(BgL_auxz00_3199-((long)3)); } 
{ /* ./Llib/bigloo.scm 532 */
unsigned char BgL_res2178z00_1493;
{ /* ./Llib/bigloo.scm 532 */
int BgL_kz00_1486;
BgL_kz00_1486 = 
(int)(BgL_arg1455z00_574); 
{ /* ./Llib/bigloo.scm 532 */
bool_t BgL_testz00_3203;
{ /* ./Llib/bigloo.scm 532 */
int BgL_auxz00_3204;
BgL_auxz00_3204 = 
STRING_LENGTH(BgL_stringz00_18); 
BgL_testz00_3203 = 
BOUND_CHECK(BgL_kz00_1486, BgL_auxz00_3204); } 
if(BgL_testz00_3203)
{ /* ./Llib/bigloo.scm 532 */
BgL_res2178z00_1493 = 
STRING_REF(BgL_stringz00_18, BgL_kz00_1486); }  else 
{ /* ./Llib/bigloo.scm 532 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1486), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 532 */
obj_t BgL_auxz00_3210;
{ /* ./Llib/bigloo.scm 532 */
obj_t BgL_aux3473z00_1827;
BgL_aux3473z00_1827 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)19869))); 
if(
CHARP(BgL_aux3473z00_1827))
{ /* ./Llib/bigloo.scm 532 */
BgL_auxz00_3210 = BgL_aux3473z00_1827
; }  else 
{ /* ./Llib/bigloo.scm 532 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3714z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3473z00_1827, BGl_string3672z00zz__biglooz00, 
BINT(((long)19869))); 
exit( -1 );} } 
BgL_res2178z00_1493 = 
(unsigned char)CCHAR(BgL_auxz00_3210); } } } } 
BgL_arg1452z00_573 = BgL_res2178z00_1493; } } 
BgL__andtest_1025z00_563 = 
(BgL_arg1452z00_573==((unsigned char)'g')); } 
if(BgL__andtest_1025z00_563)
{ /* ./Llib/bigloo.scm 533 */
bool_t BgL__andtest_1026z00_564;
{ /* ./Llib/bigloo.scm 533 */
unsigned char BgL_arg1444z00_571;
{ /* ./Llib/bigloo.scm 533 */
long BgL_arg1448z00_572;
{ /* ./Llib/bigloo.scm 533 */
long BgL_auxz00_3221;
BgL_auxz00_3221 = 
(long)(BgL_lenz00_559); 
BgL_arg1448z00_572 = 
(BgL_auxz00_3221-((long)4)); } 
{ /* ./Llib/bigloo.scm 533 */
unsigned char BgL_res2179z00_1506;
{ /* ./Llib/bigloo.scm 533 */
int BgL_kz00_1499;
BgL_kz00_1499 = 
(int)(BgL_arg1448z00_572); 
{ /* ./Llib/bigloo.scm 533 */
bool_t BgL_testz00_3225;
{ /* ./Llib/bigloo.scm 533 */
int BgL_auxz00_3226;
BgL_auxz00_3226 = 
STRING_LENGTH(BgL_stringz00_18); 
BgL_testz00_3225 = 
BOUND_CHECK(BgL_kz00_1499, BgL_auxz00_3226); } 
if(BgL_testz00_3225)
{ /* ./Llib/bigloo.scm 533 */
BgL_res2179z00_1506 = 
STRING_REF(BgL_stringz00_18, BgL_kz00_1499); }  else 
{ /* ./Llib/bigloo.scm 533 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1499), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 533 */
obj_t BgL_auxz00_3232;
{ /* ./Llib/bigloo.scm 533 */
obj_t BgL_aux3494z00_1829;
BgL_aux3494z00_1829 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)19918))); 
if(
CHARP(BgL_aux3494z00_1829))
{ /* ./Llib/bigloo.scm 533 */
BgL_auxz00_3232 = BgL_aux3494z00_1829
; }  else 
{ /* ./Llib/bigloo.scm 533 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3714z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3494z00_1829, BGl_string3672z00zz__biglooz00, 
BINT(((long)19918))); 
exit( -1 );} } 
BgL_res2179z00_1506 = 
(unsigned char)CCHAR(BgL_auxz00_3232); } } } } 
BgL_arg1444z00_571 = BgL_res2179z00_1506; } } 
BgL__andtest_1026z00_564 = 
(BgL_arg1444z00_571==((unsigned char)'b')); } 
if(BgL__andtest_1026z00_564)
{ /* ./Llib/bigloo.scm 534 */
bool_t BgL__andtest_1027z00_565;
{ /* ./Llib/bigloo.scm 534 */
unsigned char BgL_arg1436z00_569;
{ /* ./Llib/bigloo.scm 534 */
long BgL_arg1439z00_570;
{ /* ./Llib/bigloo.scm 534 */
long BgL_auxz00_3243;
BgL_auxz00_3243 = 
(long)(BgL_lenz00_559); 
BgL_arg1439z00_570 = 
(BgL_auxz00_3243-((long)5)); } 
{ /* ./Llib/bigloo.scm 534 */
unsigned char BgL_res2180z00_1519;
{ /* ./Llib/bigloo.scm 534 */
int BgL_kz00_1512;
BgL_kz00_1512 = 
(int)(BgL_arg1439z00_570); 
{ /* ./Llib/bigloo.scm 534 */
bool_t BgL_testz00_3247;
{ /* ./Llib/bigloo.scm 534 */
int BgL_auxz00_3248;
BgL_auxz00_3248 = 
STRING_LENGTH(BgL_stringz00_18); 
BgL_testz00_3247 = 
BOUND_CHECK(BgL_kz00_1512, BgL_auxz00_3248); } 
if(BgL_testz00_3247)
{ /* ./Llib/bigloo.scm 534 */
BgL_res2180z00_1519 = 
STRING_REF(BgL_stringz00_18, BgL_kz00_1512); }  else 
{ /* ./Llib/bigloo.scm 534 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3692z00zz__biglooz00, BGl_string3678z00zz__biglooz00, 
BINT(BgL_kz00_1512), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Llib/bigloo.scm 534 */
obj_t BgL_auxz00_3254;
{ /* ./Llib/bigloo.scm 534 */
obj_t BgL_aux3515z00_1831;
BgL_aux3515z00_1831 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)19967))); 
if(
CHARP(BgL_aux3515z00_1831))
{ /* ./Llib/bigloo.scm 534 */
BgL_auxz00_3254 = BgL_aux3515z00_1831
; }  else 
{ /* ./Llib/bigloo.scm 534 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3714z00zz__biglooz00, BGl_string3675z00zz__biglooz00, BgL_aux3515z00_1831, BGl_string3672z00zz__biglooz00, 
BINT(((long)19967))); 
exit( -1 );} } 
BgL_res2180z00_1519 = 
(unsigned char)CCHAR(BgL_auxz00_3254); } } } } 
BgL_arg1436z00_569 = BgL_res2180z00_1519; } } 
BgL__andtest_1027z00_565 = 
(BgL_arg1436z00_569==((unsigned char)'_')); } 
if(BgL__andtest_1027z00_565)
{ /* ./Llib/bigloo.scm 535 */
obj_t BgL_arg1428z00_566;
{ /* ./Llib/bigloo.scm 535 */
long BgL_arg1432z00_568;
{ /* ./Llib/bigloo.scm 535 */
long BgL_auxz00_3265;
BgL_auxz00_3265 = 
(long)(BgL_lenz00_559); 
BgL_arg1432z00_568 = 
(BgL_auxz00_3265-((long)5)); } 
{ /* ./Llib/bigloo.scm 535 */
obj_t BgL_res2181z00_1552;
{ /* ./Llib/bigloo.scm 535 */
int BgL_startz00_1525;int BgL_endz00_1526;
BgL_startz00_1525 = 
(int)(((long)0)); 
BgL_endz00_1526 = 
(int)(BgL_arg1432z00_568); 
{ /* ./Llib/bigloo.scm 535 */
bool_t BgL_test1577z00_1527;
{ /* ./Llib/bigloo.scm 535 */
bool_t BgL_testz00_3270;
{ /* ./Llib/bigloo.scm 535 */
long BgL_auxz00_3273;long BgL_auxz00_3271;
BgL_auxz00_3273 = 
(long)(BgL_startz00_1525); 
BgL_auxz00_3271 = 
(long)(BgL_endz00_1526); 
BgL_testz00_3270 = 
(BgL_auxz00_3271>=BgL_auxz00_3273); } 
if(BgL_testz00_3270)
{ /* ./Llib/bigloo.scm 535 */
bool_t BgL_testz00_3276;
{ /* ./Llib/bigloo.scm 535 */
int BgL_auxz00_3277;
{ /* ./Llib/bigloo.scm 535 */
long BgL_auxz00_3278;
{ /* ./Llib/bigloo.scm 535 */
long BgL_auxz00_3279;
{ /* ./Llib/bigloo.scm 535 */
int BgL_auxz00_3280;
BgL_auxz00_3280 = 
STRING_LENGTH(BgL_stringz00_18); 
BgL_auxz00_3279 = 
(long)(BgL_auxz00_3280); } 
BgL_auxz00_3278 = 
(BgL_auxz00_3279+((long)1)); } 
BgL_auxz00_3277 = 
(int)(BgL_auxz00_3278); } 
BgL_testz00_3276 = 
BOUND_CHECK(BgL_startz00_1525, BgL_auxz00_3277); } 
if(BgL_testz00_3276)
{ /* ./Llib/bigloo.scm 535 */
int BgL_auxz00_3286;
{ /* ./Llib/bigloo.scm 535 */
long BgL_auxz00_3287;
{ /* ./Llib/bigloo.scm 535 */
long BgL_auxz00_3288;
{ /* ./Llib/bigloo.scm 535 */
int BgL_auxz00_3289;
BgL_auxz00_3289 = 
STRING_LENGTH(BgL_stringz00_18); 
BgL_auxz00_3288 = 
(long)(BgL_auxz00_3289); } 
BgL_auxz00_3287 = 
(BgL_auxz00_3288+((long)1)); } 
BgL_auxz00_3286 = 
(int)(BgL_auxz00_3287); } 
BgL_test1577z00_1527 = 
BOUND_CHECK(BgL_endz00_1526, BgL_auxz00_3286); }  else 
{ /* ./Llib/bigloo.scm 535 */
BgL_test1577z00_1527 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 535 */
BgL_test1577z00_1527 = ((bool_t)0); } } 
if(BgL_test1577z00_1527)
{ /* ./Llib/bigloo.scm 535 */
BgL_res2181z00_1552 = 
c_substring(BgL_stringz00_18, BgL_startz00_1525, BgL_endz00_1526); }  else 
{ /* ./Llib/bigloo.scm 535 */
{ /* ./Llib/bigloo.scm 535 */
obj_t BgL_arg1585z00_1538;
{ /* ./Llib/bigloo.scm 535 */
obj_t BgL_auxz00_3299;obj_t BgL_auxz00_3297;
BgL_auxz00_3299 = 
BINT(BgL_endz00_1526); 
BgL_auxz00_3297 = 
BINT(BgL_startz00_1525); 
BgL_arg1585z00_1538 = 
MAKE_PAIR(BgL_auxz00_3297, BgL_auxz00_3299); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3673z00zz__biglooz00, BGl_string3674z00zz__biglooz00, BgL_arg1585z00_1538, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/bigloo.scm 535 */
obj_t BgL_aux3544z00_1833;
BgL_aux3544z00_1833 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)20025))); 
if(
STRINGP(BgL_aux3544z00_1833))
{ /* ./Llib/bigloo.scm 535 */
BgL_res2181z00_1552 = BgL_aux3544z00_1833; }  else 
{ /* ./Llib/bigloo.scm 535 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3714z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux3544z00_1833, BGl_string3672z00zz__biglooz00, 
BINT(((long)20025))); 
exit( -1 );} } } } } 
BgL_arg1428z00_566 = BgL_res2181z00_1552; } } 
BgL_aux2231z00_1662 = 
bigloo_mangledp(BgL_arg1428z00_566); }  else 
{ /* ./Llib/bigloo.scm 534 */
BgL_aux2231z00_1662 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 533 */
BgL_aux2231z00_1662 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 532 */
BgL_aux2231z00_1662 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 531 */
BgL_aux2231z00_1662 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 530 */
BgL_aux2231z00_1662 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 529 */
BgL_aux2231z00_1662 = ((bool_t)0); } } } 
POP_TRACE(); 
return BgL_aux2231z00_1662;} } } } 
}



/* _bigloo-class-mangled?2318 */
obj_t BGl__bigloozd2classzd2mangledzf32318zf3zz__biglooz00(obj_t BgL_envz00_1695, obj_t BgL_stringz00_1696)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 527 */
{ /* ./Llib/bigloo.scm 528 */
bool_t BgL_auxz00_3312;
{ /* ./Llib/bigloo.scm 528 */
obj_t BgL_auxz00_3313;
if(
STRINGP(BgL_stringz00_1696))
{ /* ./Llib/bigloo.scm 528 */
BgL_auxz00_3313 = BgL_stringz00_1696
; }  else 
{ /* ./Llib/bigloo.scm 528 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3715z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_stringz00_1696, BGl_string3672z00zz__biglooz00, 
BINT(((long)19700))); 
exit( -1 );} 
BgL_auxz00_3312 = 
bigloo_class_mangledp(BgL_auxz00_3313); } 
return 
BBOOL(BgL_auxz00_3312);} } 
}



/* bigloo-class-demangle */
BGL_EXPORTED_DEF obj_t bigloo_class_demangle(obj_t BgL_stringz00_19)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 540 */
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_symbol2236z00_1663;
BgL_symbol2236z00_1663 = BGl_symbol3716z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 542 */

PUSH_TRACE(BgL_symbol2236z00_1663); BUNSPEC; 
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_aux2235z00_1664;
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_arg1475z00_579;
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_arg1479z00_581;
{ /* ./Llib/bigloo.scm 542 */
long BgL_arg1483z00_583;
{ /* ./Llib/bigloo.scm 542 */
long BgL_auxz00_3322;
{ /* ./Llib/bigloo.scm 542 */
int BgL_auxz00_3323;
BgL_auxz00_3323 = 
STRING_LENGTH(BgL_stringz00_19); 
BgL_auxz00_3322 = 
(long)(BgL_auxz00_3323); } 
BgL_arg1483z00_583 = 
(BgL_auxz00_3322-((long)5)); } 
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_res2182z00_1584;
{ /* ./Llib/bigloo.scm 542 */
int BgL_startz00_1557;int BgL_endz00_1558;
BgL_startz00_1557 = 
(int)(((long)0)); 
BgL_endz00_1558 = 
(int)(BgL_arg1483z00_583); 
{ /* ./Llib/bigloo.scm 542 */
bool_t BgL_test1577z00_1559;
{ /* ./Llib/bigloo.scm 542 */
bool_t BgL_testz00_3329;
{ /* ./Llib/bigloo.scm 542 */
long BgL_auxz00_3332;long BgL_auxz00_3330;
BgL_auxz00_3332 = 
(long)(BgL_startz00_1557); 
BgL_auxz00_3330 = 
(long)(BgL_endz00_1558); 
BgL_testz00_3329 = 
(BgL_auxz00_3330>=BgL_auxz00_3332); } 
if(BgL_testz00_3329)
{ /* ./Llib/bigloo.scm 542 */
bool_t BgL_testz00_3335;
{ /* ./Llib/bigloo.scm 542 */
int BgL_auxz00_3336;
{ /* ./Llib/bigloo.scm 542 */
long BgL_auxz00_3337;
{ /* ./Llib/bigloo.scm 542 */
long BgL_auxz00_3338;
{ /* ./Llib/bigloo.scm 542 */
int BgL_auxz00_3339;
BgL_auxz00_3339 = 
STRING_LENGTH(BgL_stringz00_19); 
BgL_auxz00_3338 = 
(long)(BgL_auxz00_3339); } 
BgL_auxz00_3337 = 
(BgL_auxz00_3338+((long)1)); } 
BgL_auxz00_3336 = 
(int)(BgL_auxz00_3337); } 
BgL_testz00_3335 = 
BOUND_CHECK(BgL_startz00_1557, BgL_auxz00_3336); } 
if(BgL_testz00_3335)
{ /* ./Llib/bigloo.scm 542 */
int BgL_auxz00_3345;
{ /* ./Llib/bigloo.scm 542 */
long BgL_auxz00_3346;
{ /* ./Llib/bigloo.scm 542 */
long BgL_auxz00_3347;
{ /* ./Llib/bigloo.scm 542 */
int BgL_auxz00_3348;
BgL_auxz00_3348 = 
STRING_LENGTH(BgL_stringz00_19); 
BgL_auxz00_3347 = 
(long)(BgL_auxz00_3348); } 
BgL_auxz00_3346 = 
(BgL_auxz00_3347+((long)1)); } 
BgL_auxz00_3345 = 
(int)(BgL_auxz00_3346); } 
BgL_test1577z00_1559 = 
BOUND_CHECK(BgL_endz00_1558, BgL_auxz00_3345); }  else 
{ /* ./Llib/bigloo.scm 542 */
BgL_test1577z00_1559 = ((bool_t)0); } }  else 
{ /* ./Llib/bigloo.scm 542 */
BgL_test1577z00_1559 = ((bool_t)0); } } 
if(BgL_test1577z00_1559)
{ /* ./Llib/bigloo.scm 542 */
BgL_res2182z00_1584 = 
c_substring(BgL_stringz00_19, BgL_startz00_1557, BgL_endz00_1558); }  else 
{ /* ./Llib/bigloo.scm 542 */
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_arg1585z00_1570;
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_auxz00_3358;obj_t BgL_auxz00_3356;
BgL_auxz00_3358 = 
BINT(BgL_endz00_1558); 
BgL_auxz00_3356 = 
BINT(BgL_startz00_1557); 
BgL_arg1585z00_1570 = 
MAKE_PAIR(BgL_auxz00_3356, BgL_auxz00_3358); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3673z00zz__biglooz00, BGl_string3674z00zz__biglooz00, BgL_arg1585z00_1570, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_aux3583z00_1837;
BgL_aux3583z00_1837 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)20367))); 
if(
STRINGP(BgL_aux3583z00_1837))
{ /* ./Llib/bigloo.scm 542 */
BgL_res2182z00_1584 = BgL_aux3583z00_1837; }  else 
{ /* ./Llib/bigloo.scm 542 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3716z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_aux3583z00_1837, BGl_string3672z00zz__biglooz00, 
BINT(((long)20367))); 
exit( -1 );} } } } } 
BgL_arg1479z00_581 = BgL_res2182z00_1584; } } 
BgL_arg1475z00_579 = 
bigloo_demangle(BgL_arg1479z00_581); } 
{ /* ./Llib/bigloo.scm 541 */
obj_t BgL_auxz00_3370;
if(
STRINGP(BgL_arg1475z00_579))
{ /* ./Llib/bigloo.scm 541 */
BgL_auxz00_3370 = BgL_arg1475z00_579
; }  else 
{ /* ./Llib/bigloo.scm 541 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3716z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_arg1475z00_579, BGl_string3672z00zz__biglooz00, 
BINT(((long)20330))); 
exit( -1 );} 
BgL_aux2235z00_1664 = 
string_append(BgL_auxz00_3370, BGl_string3717z00zz__biglooz00); } } 
POP_TRACE(); 
return BgL_aux2235z00_1664;} } } } 
}



/* _bigloo-class-demangle2320 */
obj_t BGl__bigloozd2classzd2demangle2320z00zz__biglooz00(obj_t BgL_envz00_1697, obj_t BgL_stringz00_1698)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 540 */
{ /* ./Llib/bigloo.scm 542 */
obj_t BgL_auxz00_3378;
if(
STRINGP(BgL_stringz00_1698))
{ /* ./Llib/bigloo.scm 542 */
BgL_auxz00_3378 = BgL_stringz00_1698
; }  else 
{ /* ./Llib/bigloo.scm 542 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3718z00zz__biglooz00, BGl_string3671z00zz__biglooz00, BgL_stringz00_1698, BGl_string3672z00zz__biglooz00, 
BINT(((long)20367))); 
exit( -1 );} 
return 
bigloo_class_demangle(BgL_auxz00_3378);} } 
}



/* register-exit-function! */
BGL_EXPORTED_DEF obj_t BGl_registerzd2exitzd2functionz12z12zz__biglooz00(obj_t BgL_funz00_20)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 553 */
{ /* ./Llib/bigloo.scm 554 */
obj_t BgL_symbol2240z00_1665;
BgL_symbol2240z00_1665 = BGl_symbol3719z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 554 */

PUSH_TRACE(BgL_symbol2240z00_1665); BUNSPEC; 
{ /* ./Llib/bigloo.scm 554 */
obj_t BgL_aux2239z00_1666;
{ /* ./Llib/bigloo.scm 554 */
bool_t BgL_testz00_3386;
{ /* ./Llib/bigloo.scm 554 */
int BgL_auxz00_3387;
BgL_auxz00_3387 = 
(int)(((long)1)); 
BgL_testz00_3386 = 
PROCEDURE_CORRECT_ARITYP(BgL_funz00_20, BgL_auxz00_3387); } 
if(BgL_testz00_3386)
{ /* ./Llib/bigloo.scm 554 */
BgL_aux2239z00_1666 = ( 
BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = 
MAKE_PAIR(BgL_funz00_20, BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00), BUNSPEC) ; }  else 
{ /* ./Llib/bigloo.scm 554 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3720z00zz__biglooz00, BGl_string3721z00zz__biglooz00, BgL_funz00_20, "./Llib/bigloo.scm", ((long)21001)); 
BgL_aux2239z00_1666 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3672z00zz__biglooz00, 
BINT(((long)21061))); } } 
POP_TRACE(); 
return BgL_aux2239z00_1666;} } } } 
}



/* _register-exit-function!2322 */
obj_t BGl__registerzd2exitzd2functionz122322z12zz__biglooz00(obj_t BgL_envz00_1699, obj_t BgL_funz00_1700)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 553 */
{ /* ./Llib/bigloo.scm 554 */
obj_t BgL_auxz00_3395;
if(
PROCEDUREP(BgL_funz00_1700))
{ /* ./Llib/bigloo.scm 554 */
BgL_auxz00_3395 = BgL_funz00_1700
; }  else 
{ /* ./Llib/bigloo.scm 554 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3722z00zz__biglooz00, BGl_string3686z00zz__biglooz00, BgL_funz00_1700, BGl_string3672z00zz__biglooz00, 
BINT(((long)20961))); 
exit( -1 );} 
return 
BGl_registerzd2exitzd2functionz12z12zz__biglooz00(BgL_auxz00_3395);} } 
}



/* bigloo-exit-apply */
BGL_EXPORTED_DEF obj_t bigloo_exit_apply(obj_t BgL_valz00_21)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 563 */
{ /* ./Llib/bigloo.scm 564 */
obj_t BgL_symbol2244z00_1667;
BgL_symbol2244z00_1667 = BGl_symbol3723z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 564 */

PUSH_TRACE(BgL_symbol2244z00_1667); BUNSPEC; 
{ /* ./Llib/bigloo.scm 564 */
obj_t BgL_aux2243z00_1668;
if(
PAIRP(BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00))
{ /* ./Llib/bigloo.scm 565 */
obj_t BgL_funz00_588;
{ /* ./Llib/bigloo.scm 565 */
obj_t BgL_pairz00_1589;
{ /* ./Llib/bigloo.scm 565 */
obj_t BgL_aux3632z00_1845;
BgL_aux3632z00_1845 = BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00; 
if(
PAIRP(BgL_aux3632z00_1845))
{ /* ./Llib/bigloo.scm 565 */
BgL_pairz00_1589 = BgL_aux3632z00_1845; }  else 
{ /* ./Llib/bigloo.scm 565 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3723z00zz__biglooz00, BGl_string3724z00zz__biglooz00, BgL_aux3632z00_1845, BGl_string3672z00zz__biglooz00, 
BINT(((long)21489))); 
exit( -1 );} } 
BgL_funz00_588 = 
CAR(BgL_pairz00_1589); } 
{ /* ./Llib/bigloo.scm 566 */
obj_t BgL_pairz00_1590;
{ /* ./Llib/bigloo.scm 566 */
obj_t BgL_aux3642z00_1847;
BgL_aux3642z00_1847 = BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00; 
if(
PAIRP(BgL_aux3642z00_1847))
{ /* ./Llib/bigloo.scm 566 */
BgL_pairz00_1590 = BgL_aux3642z00_1847; }  else 
{ /* ./Llib/bigloo.scm 566 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3723z00zz__biglooz00, BGl_string3724z00zz__biglooz00, BgL_aux3642z00_1847, BGl_string3672z00zz__biglooz00, 
BINT(((long)21554))); 
exit( -1 );} } 
BGl_za2bigloozd2exitzd2functionsza2z00zz__biglooz00 = 
CDR(BgL_pairz00_1590); } 
{ /* ./Llib/bigloo.scm 567 */
obj_t BgL_arg1498z00_589;
{ /* ./Llib/bigloo.scm 567 */
obj_t BgL_funz00_1851;
if(
PROCEDUREP(BgL_funz00_588))
{ /* ./Llib/bigloo.scm 567 */
BgL_funz00_1851 = BgL_funz00_588; }  else 
{ /* ./Llib/bigloo.scm 567 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3723z00zz__biglooz00, BGl_string3686z00zz__biglooz00, BgL_funz00_588, BGl_string3672z00zz__biglooz00, 
BINT(((long)21580))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1851, ((long)1)))
{ /* ./Llib/bigloo.scm 567 */
BgL_arg1498z00_589 = 
PROCEDURE_ENTRY(BgL_funz00_1851)(BgL_funz00_588, BgL_valz00_21, BEOA); }  else 
{ /* ./Llib/bigloo.scm 567 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string3725z00zz__biglooz00, BGl_list3726z00zz__biglooz00, BgL_funz00_1851, BGl_string3672z00zz__biglooz00, 
BINT(((long)21580))); 
FAILURE(BGl_symbol3730z00zz__biglooz00,BGl_symbol3730z00zz__biglooz00,BGl_symbol3730z00zz__biglooz00);} } 
BgL_aux2243z00_1668 = 
bigloo_exit_apply(BgL_arg1498z00_589); } }  else 
{ /* ./Llib/bigloo.scm 564 */
BgL_aux2243z00_1668 = BgL_valz00_21; } 
POP_TRACE(); 
return BgL_aux2243z00_1668;} } } } 
}



/* _bigloo-exit-apply */
obj_t BGl__bigloozd2exitzd2applyz00zz__biglooz00(obj_t BgL_envz00_1701, obj_t BgL_valz00_1702)
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 563 */
return 
bigloo_exit_apply(BgL_valz00_1702);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__biglooz00()
{ AN_OBJECT;
{ /* ./Llib/bigloo.scm 14 */
{ /* ./Llib/bigloo.scm 14 */
obj_t BgL_symbol2248z00_1669;
BgL_symbol2248z00_1669 = BGl_symbol3731z00zz__biglooz00; 
{ /* ./Llib/bigloo.scm 14 */

PUSH_TRACE(BgL_symbol2248z00_1669); BUNSPEC; 
{ /* ./Llib/bigloo.scm 14 */
obj_t BgL_aux2247z00_1670;
BgL_aux2247z00_1670 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__bigloo"); 
POP_TRACE(); 
return BgL_aux2247z00_1670;} } } } 
}

