/*===========================================================================*/
/*   (Llib/error.scm)                                                        */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Llib/error.scm -indent -o objs/obj_u/Llib/error.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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


/* Object type definitions */

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_pwdz00zz__osz00();
static obj_t BGl__the_c_failurez00zz__errorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t dump_trace_stack(obj_t, int);
BGL_EXPORTED_DECL obj_t the_failure(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__defaultzd2errorzd2handlerz00zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__sigillzd2errorzd2handlerz00zz__errorz00(obj_t, obj_t);
static obj_t BGl__warningzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__notifyzd2interruptzd2zz__errorz00(obj_t, obj_t);
extern obj_t make_string(int, unsigned char);
static obj_t BGl_methodzd2initzd2zz__errorz00();
extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_printzd2cursorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__findzd2runtimezd2typez00zz__errorz00(obj_t, obj_t);
static obj_t BGl__modulezd2initzd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
extern bool_t bigloo_strncmp(obj_t, obj_t, int);
extern long bgl_list_length(obj_t);
extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
static obj_t BGl__bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
static obj_t BGl_makezd2locationzd2notifierz00zz__errorz00(obj_t, long, obj_t, obj_t, long);
static obj_t BGl_warningzf2locationzd2filez20zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_pathzd2ze3listz31zz__errorz00(obj_t);
static obj_t BGl_fixzd2tabulationz12zc0zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl__errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__currentzd2errorzd2handlerz00zz__errorz00(obj_t);
extern obj_t bgl_reverse(obj_t);
static obj_t BGl_zc3anonymousza31368ze3z83zz__errorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_warningzf2czd2locationz20zz__errorz00(char *, long, obj_t);
static obj_t BGl__errorzf2locationzd2filez20zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl__defaultzd2interruptzd2notifierz00zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzf2locationzd2filez20zz__errorz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31517ze3z83zz__errorz00(obj_t, obj_t);
extern obj_t BGl_oszd2classzd2zz__osz00();
static obj_t BGl__sigsegvzd2errorzd2handlerz00zz__errorz00(obj_t, obj_t);
extern obj_t BGl_forzd2eachzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl__exitz00zz__errorz00(obj_t, obj_t);
extern obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
static obj_t BGl__errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2errorzd2handlerz00zz__errorz00();
BGL_EXPORTED_DECL obj_t BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_defaultzd2interruptzd2notifierz00zz__errorz00(obj_t);
extern obj_t string_to_bstring(char *);
static obj_t BGl__notifyzd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__the_failurez00zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__removezd2errorzd2handlerz12z12zz__errorz00(obj_t);
static obj_t BGl_notifyzd2dumpzd2tracezd2stackzd2zz__errorz00();
extern obj_t BGl_za2classesza2z00zz__objectz00;
static obj_t BGl_sigbuszd2errorzd2handlerz00zz__errorz00(obj_t);
extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl__bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_signalz00zz__osz00(int, obj_t);
static obj_t BGl__sigfpezd2errorzd2handlerz00zz__errorz00(obj_t, obj_t);
static obj_t BGl_nicezd2fnamezd2zz__errorz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2errorzd2notifierza2zd2zz__errorz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char *, char *);
static obj_t BGl_zc3anonymousza31116ze3z83zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2tracezd2stackzd2depthza2z00zz__errorz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_removezd2errorzd2handlerz12z12zz__errorz00();
extern long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t);
extern obj_t BGl_getenvz00zz__osz00(char *);
static obj_t BGl_sigfpezd2errorzd2handlerz00zz__errorz00(obj_t);
static obj_t BGl_zc3anonymousza31395ze3z83zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_dozd2warnzf2locationz20zz__errorz00(obj_t, long, obj_t, obj_t, long, obj_t);
static obj_t BGl__bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__errorz00();
extern obj_t BGl_basenamez00zz__osz00(obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
extern long BGl_getzd2writezd2lengthz00zz__r4_output_6_10_3z00();
BGL_EXPORTED_DEF obj_t BGl_za2interruptzd2notifierza2zd2zz__errorz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_findzd2runtimezd2typez00zz__errorz00(obj_t);
extern obj_t BGl_dirnamez00zz__osz00(obj_t);
extern obj_t close_input_port(obj_t);
extern obj_t c_substring(obj_t, int, int);
static obj_t BGl__sigbuszd2errorzd2handlerz00zz__errorz00(obj_t, obj_t);
static obj_t BGl_symbol3257z00zz__errorz00 = BUNSPEC;
static obj_t BGl__warningz00zz__errorz00(obj_t, obj_t);
static obj_t BGl__addzd2errorzd2handlerz12z12zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__errorz00();
BGL_EXPORTED_DECL obj_t the_c_failure(char *, char *, obj_t);
BGL_EXPORTED_DECL obj_t BGl_warningz00zz__errorz00(obj_t);
static obj_t BGl__warningzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__errorz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl_uncygdrivez00zz__errorz00(obj_t);
static obj_t BGl__debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_exitz00zz__errorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2warningza2z00zz__errorz00 = BUNSPEC;
static long BGl_defaultzd2errorzd2handlerz00zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_notifyzd2errorzd2zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_sigsegvzd2errorzd2handlerz00zz__errorz00(obj_t);
extern obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_notifyzd2interruptzd2zz__errorz00(int);
static obj_t BGl__errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_sigillzd2errorzd2handlerz00zz__errorz00(obj_t);
extern obj_t BGl_readerzd2resetz12zc0zz__readerz00();
BGL_EXPORTED_DECL obj_t BGl_addzd2errorzd2handlerz12z12zz__errorz00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__errorz00();
extern obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2debugza2z00zz__errorz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_currentzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl__currentza7d2errorza7d2handlerza700za7za7__errorza7003311z00, BGl__currentzd2errorzd2handlerz00zz__errorz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_errorzf2locationzd2envz20zz__errorz00, BgL_bgl__errorza7f2locationza7f2za7za7__errorza7003312za7, BGl__errorzf2locationzf2zz__errorz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_notifyzd2errorzd2envz00zz__errorz00, BgL_bgl__notifyza7d2errorza7d2za7za7__errorza7003313za7, BGl__notifyzd2errorzd2zz__errorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_the_c_failurezd2envzd2zz__errorz00, BgL_bgl__the_c_failureza700za7za7__errorza7003314z00, BGl__the_c_failurez00zz__errorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2typezd2errorzf2locationzd2envz20zz__errorz00, BgL_bgl__biglooza7d2typeza7d2errorza7f2locationza7f2za7za7__errorza7003315za7, BGl__bigloozd2typezd2errorzf2locationzf2zz__errorz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2runtimezd2typezd2envzd2zz__errorz00, BgL_bgl__findza7d2runtimeza7d2typeza700za7za7__errorza7003316z00, BGl__findzd2runtimezd2typez00zz__errorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_exitzd2envzd2zz__errorz00, BgL_bgl__exitza700za7za7__errorza7003317z00, va_generic_entry, BGl__exitz00zz__errorz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_notifyzd2interruptzd2envz00zz__errorz00, BgL_bgl__notifyza7d2interruptza7d2za7za7__errorza7003318za7, BGl__notifyzd2interruptzd2zz__errorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_defaultzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl__defaultza7d2errorza7d2handlerza700za7za7__errorza7003319z00, BGl__defaultzd2errorzd2handlerz00zz__errorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_the_failurezd2envzd2zz__errorz00, BgL_bgl__the_failureza700za7za7__errorza7003320z00, BGl__the_failurez00zz__errorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2typezd2errorzd2msgzd2envz00zz__errorz00, BgL_bgl__biglooza7d2typeza7d2errorza7d2msgza7d2za7za7__errorza7003321za7, BGl__bigloozd2typezd2errorzd2msgzd2zz__errorz00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_defaultzd2interruptzd2notifierzd2envzd2zz__errorz00, BgL_bgl__defaultza7d2interruptza7d2notifierza700za7za7__errorza7003322z00, BGl__defaultzd2interruptzd2notifierz00zz__errorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_modulezd2initzd2errorzd2envzd2zz__errorz00, BgL_bgl__moduleza7d2initza7d2errorza700za7za7__errorza7003323z00, BGl__modulezd2initzd2errorz00zz__errorz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl__sigsegvza7d2errorza7d2handlerza700za7za7__errorza7003324z00, BGl__sigsegvzd2errorzd2handlerz00zz__errorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl__sigillza7d2errorza7d2handlerza700za7za7__errorza7003325z00, BGl__sigillzd2errorzd2handlerz00zz__errorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_removezd2errorzd2handlerz12zd2envzc0zz__errorz00, BgL_bgl__removeza7d2errorza7d2handlerza712za712za7za7__errorza7003326za7, BGl__removezd2errorzd2handlerz12z12zz__errorz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_errorzd2envzd2zz__errorz00, BgL_bgl__errorza700za7za7__errorza7003327z00, BGl__errorz00zz__errorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_warningzd2envzd2zz__errorz00, BgL_bgl__warningza700za7za7__errorza7003328z00, va_generic_entry, BGl__warningz00zz__errorz00, -1 );
DEFINE_STRING( BGl_string3299z00zz__errorz00, BgL_bgl_string3299za700za7za7__errorza7003329z00, "' is inconsistently initialized by module `", 43 );
DEFINE_STRING( BGl_string3298z00zz__errorz00, BgL_bgl_string3298za700za7za7__errorza7003330z00, "'.\n", 3 );
DEFINE_STRING( BGl_string3297z00zz__errorz00, BgL_bgl_string3297za700za7za7__errorza7003331z00, "At least of the two modules must be recompiled (see also -unsafev option).", 74 );
DEFINE_STRING( BGl_string3296z00zz__errorz00, BgL_bgl_string3296za700za7za7__errorza7003332z00, "llong", 5 );
DEFINE_STRING( BGl_string3295z00zz__errorz00, BgL_bgl_string3295za700za7za7__errorza7003333z00, "elong", 5 );
DEFINE_STRING( BGl_string3294z00zz__errorz00, BgL_bgl_string3294za700za7za7__errorza7003334z00, "ucs2", 4 );
DEFINE_STRING( BGl_string3303z00zz__errorz00, BgL_bgl_string3303za700za7za7__errorza7003335z00, "Type", 4 );
DEFINE_STRING( BGl_string3293z00zz__errorz00, BgL_bgl_string3293za700za7za7__errorza7003336z00, "ucs2string", 10 );
DEFINE_STRING( BGl_string3302z00zz__errorz00, BgL_bgl_string3302za700za7za7__errorza7003337z00, "*** ERROR:", 10 );
DEFINE_STRING( BGl_string3292z00zz__errorz00, BgL_bgl_string3292za700za7za7__errorza7003338z00, "_", 1 );
DEFINE_STRING( BGl_string3301z00zz__errorz00, BgL_bgl_string3301za700za7za7__errorza7003339z00, ":Inconsistent module initialization\n", 36 );
DEFINE_STRING( BGl_string3291z00zz__errorz00, BgL_bgl_string3291za700za7za7__errorza7003340z00, "opaque", 6 );
DEFINE_STRING( BGl_string3300z00zz__errorz00, BgL_bgl_string3300za700za7za7__errorza7003341z00, "Module `", 8 );
DEFINE_STRING( BGl_string3290z00zz__errorz00, BgL_bgl_string3290za700za7za7__errorza7003342z00, "custom", 6 );
DEFINE_STRING( BGl_string3289z00zz__errorz00, BgL_bgl_string3289za700za7za7__errorza7003343z00, "process", 7 );
DEFINE_STRING( BGl_string3288z00zz__errorz00, BgL_bgl_string3288za700za7za7__errorza7003344z00, "socket", 6 );
DEFINE_STRING( BGl_string3287z00zz__errorz00, BgL_bgl_string3287za700za7za7__errorza7003345z00, "bcnst", 5 );
DEFINE_STRING( BGl_string3286z00zz__errorz00, BgL_bgl_string3286za700za7za7__errorza7003346z00, "foreign:", 8 );
DEFINE_STRING( BGl_string3285z00zz__errorz00, BgL_bgl_string3285za700za7za7__errorza7003347z00, "cell", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_errorzf2locationzd2filezd2envzf2zz__errorz00, BgL_bgl__errorza7f2locationza7d2fileza720za7za7__errorza7003348z00, BGl__errorzf2locationzd2filez20zz__errorz00, 0L, 2 );
DEFINE_STRING( BGl_string3284z00zz__errorz00, BgL_bgl_string3284za700za7za7__errorza7003349z00, "binary-port", 11 );
DEFINE_STRING( BGl_string3283z00zz__errorz00, BgL_bgl_string3283za700za7za7__errorza7003350z00, "output-port", 11 );
DEFINE_STRING( BGl_string3282z00zz__errorz00, BgL_bgl_string3282za700za7za7__errorza7003351z00, "input-port", 10 );
DEFINE_STRING( BGl_string3281z00zz__errorz00, BgL_bgl_string3281za700za7za7__errorza7003352z00, "procedure", 9 );
DEFINE_STRING( BGl_string3280z00zz__errorz00, BgL_bgl_string3280za700za7za7__errorza7003353z00, "struct", 6 );
DEFINE_STRING( BGl_string3279z00zz__errorz00, BgL_bgl_string3279za700za7za7__errorza7003354z00, "tvector", 7 );
DEFINE_STRING( BGl_string3278z00zz__errorz00, BgL_bgl_string3278za700za7za7__errorza7003355z00, "vector", 6 );
DEFINE_STRING( BGl_string3277z00zz__errorz00, BgL_bgl_string3277za700za7za7__errorza7003356z00, "class", 5 );
DEFINE_STRING( BGl_string3276z00zz__errorz00, BgL_bgl_string3276za700za7za7__errorza7003357z00, "pair", 4 );
DEFINE_STRING( BGl_string3275z00zz__errorz00, BgL_bgl_string3275za700za7za7__errorza7003358z00, "epair", 5 );
DEFINE_STRING( BGl_string3274z00zz__errorz00, BgL_bgl_string3274za700za7za7__errorza7003359z00, "bnil", 4 );
DEFINE_STRING( BGl_string3273z00zz__errorz00, BgL_bgl_string3273za700za7za7__errorza7003360z00, "bbool", 5 );
DEFINE_STRING( BGl_string3272z00zz__errorz00, BgL_bgl_string3272za700za7za7__errorza7003361z00, "bchar", 5 );
DEFINE_STRING( BGl_string3271z00zz__errorz00, BgL_bgl_string3271za700za7za7__errorza7003362z00, "keyword", 7 );
DEFINE_STRING( BGl_string3270z00zz__errorz00, BgL_bgl_string3270za700za7za7__errorza7003363z00, "symbol", 6 );
DEFINE_STRING( BGl_string3269z00zz__errorz00, BgL_bgl_string3269za700za7za7__errorza7003364z00, "bstring", 7 );
DEFINE_STRING( BGl_string3268z00zz__errorz00, BgL_bgl_string3268za700za7za7__errorza7003365z00, "real", 4 );
DEFINE_STRING( BGl_string3267z00zz__errorz00, BgL_bgl_string3267za700za7za7__errorza7003366z00, "bint", 4 );
DEFINE_STRING( BGl_string3266z00zz__errorz00, BgL_bgl_string3266za700za7za7__errorza7003367z00, "/", 1 );
DEFINE_STRING( BGl_string3265z00zz__errorz00, BgL_bgl_string3265za700za7za7__errorza7003368z00, "../", 3 );
DEFINE_STRING( BGl_string3264z00zz__errorz00, BgL_bgl_string3264za700za7za7__errorza7003369z00, ".", 1 );
DEFINE_STRING( BGl_string3263z00zz__errorz00, BgL_bgl_string3263za700za7za7__errorza7003370z00, "File \"", 6 );
DEFINE_STRING( BGl_string3262z00zz__errorz00, BgL_bgl_string3262za700za7za7__errorza7003371z00, "\", line ", 8 );
DEFINE_STRING( BGl_string3261z00zz__errorz00, BgL_bgl_string3261za700za7za7__errorza7003372z00, ", character ", 12 );
DEFINE_STRING( BGl_string3260z00zz__errorz00, BgL_bgl_string3260za700za7za7__errorza7003373z00, ":", 1 );
DEFINE_STRING( BGl_string3259z00zz__errorz00, BgL_bgl_string3259za700za7za7__errorza7003374z00, "#", 1 );
DEFINE_STRING( BGl_string3258z00zz__errorz00, BgL_bgl_string3258za700za7za7__errorza7003375z00, "^", 1 );
DEFINE_STRING( BGl_string3255z00zz__errorz00, BgL_bgl_string3255za700za7za7__errorza7003376z00, "# *** WARNING:bigloo:", 21 );
DEFINE_STRING( BGl_string3254z00zz__errorz00, BgL_bgl_string3254za700za7za7__errorza7003377z00, "# ", 2 );
DEFINE_STRING( BGl_string3253z00zz__errorz00, BgL_bgl_string3253za700za7za7__errorza7003378z00, "# *** ERROR:bigloo:", 19 );
DEFINE_STRING( BGl_string3252z00zz__errorz00, BgL_bgl_string3252za700za7za7__errorza7003379z00, "", 0 );
DEFINE_STRING( BGl_string3250z00zz__errorz00, BgL_bgl_string3250za700za7za7__errorza7003380z00, "string-set!", 11 );
DEFINE_STRING( BGl_string3249z00zz__errorz00, BgL_bgl_string3249za700za7za7__errorza7003381z00, "win32", 5 );
DEFINE_STRING( BGl_string3248z00zz__errorz00, BgL_bgl_string3248za700za7za7__errorza7003382z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string3247z00zz__errorz00, BgL_bgl_string3247za700za7za7__errorza7003383z00, "substring", 9 );
DEFINE_STRING( BGl_string3246z00zz__errorz00, BgL_bgl_string3246za700za7za7__errorza7003384z00, "index out of range", 18 );
DEFINE_STRING( BGl_string3245z00zz__errorz00, BgL_bgl_string3245za700za7za7__errorza7003385z00, "string-ref", 10 );
DEFINE_STRING( BGl_string3244z00zz__errorz00, BgL_bgl_string3244za700za7za7__errorza7003386z00, "/cygdrive/", 10 );
DEFINE_STRING( BGl_string3243z00zz__errorz00, BgL_bgl_string3243za700za7za7__errorza7003387z00, "`segmentation violation' exception", 34 );
DEFINE_STRING( BGl_string3242z00zz__errorz00, BgL_bgl_string3242za700za7za7__errorza7003388z00, "`bus error' exception", 21 );
DEFINE_EXPORT_PROCEDURE( BGl_warningzf2czd2locationzd2envzf2zz__errorz00, BgL_bgl__warningza7f2cza7d2locationza720za7za7__errorza7003389z00, va_generic_entry, BGl__warningzf2czd2locationz20zz__errorz00, -3 );
DEFINE_STRING( BGl_string3241z00zz__errorz00, BgL_bgl_string3241za700za7za7__errorza7003390z00, "`illegal instruction' exception", 31 );
DEFINE_STRING( BGl_string3240z00zz__errorz00, BgL_bgl_string3240za700za7za7__errorza7003391z00, "bigloo", 6 );
DEFINE_STRING( BGl_string3239z00zz__errorz00, BgL_bgl_string3239za700za7za7__errorza7003392z00, "reached", 7 );
DEFINE_STRING( BGl_string3238z00zz__errorz00, BgL_bgl_string3238za700za7za7__errorza7003393z00, "`floating point' exception", 26 );
DEFINE_STRING( BGl_string3237z00zz__errorz00, BgL_bgl_string3237za700za7za7__errorza7003394z00, "arithmetic procedure", 20 );
DEFINE_STRING( BGl_string3236z00zz__errorz00, BgL_bgl_string3236za700za7za7__errorza7003395z00, " `", 2 );
DEFINE_STRING( BGl_string3235z00zz__errorz00, BgL_bgl_string3235za700za7za7__errorza7003396z00, "' expected, `", 13 );
DEFINE_STRING( BGl_string3234z00zz__errorz00, BgL_bgl_string3234za700za7za7__errorza7003397z00, "' provided", 10 );
DEFINE_STRING( BGl_string3233z00zz__errorz00, BgL_bgl_string3233za700za7za7__errorza7003398z00, " -- ", 4 );
DEFINE_STRING( BGl_string3232z00zz__errorz00, BgL_bgl_string3232za700za7za7__errorza7003399z00, ":\n", 2 );
DEFINE_STRING( BGl_string3231z00zz__errorz00, BgL_bgl_string3231za700za7za7__errorza7003400z00, "*** ERROR:bigloo:", 17 );
DEFINE_STRING( BGl_string3230z00zz__errorz00, BgL_bgl_string3230za700za7za7__errorza7003401z00, "*** INTERRUPT:bigloo:", 21 );
DEFINE_STRING( BGl_string3229z00zz__errorz00, BgL_bgl_string3229za700za7za7__errorza7003402z00, "[stdin]", 7 );
DEFINE_STRING( BGl_string3228z00zz__errorz00, BgL_bgl_string3228za700za7za7__errorza7003403z00, "[string]", 8 );
DEFINE_STRING( BGl_string3226z00zz__errorz00, BgL_bgl_string3226za700za7za7__errorza7003404z00, "*** WARNING:bigloo:", 19 );
DEFINE_STRING( BGl_string3225z00zz__errorz00, BgL_bgl_string3225za700za7za7__errorza7003405z00, "Not an error handler", 20 );
DEFINE_STRING( BGl_string3224z00zz__errorz00, BgL_bgl_string3224za700za7za7__errorza7003406z00, "error", 5 );
DEFINE_STRING( BGl_string3223z00zz__errorz00, BgL_bgl_string3223za700za7za7__errorza7003407z00, "error handler stack empty", 25 );
DEFINE_STRING( BGl_string3222z00zz__errorz00, BgL_bgl_string3222za700za7za7__errorza7003408z00, "Can't remove handler", 20 );
DEFINE_STRING( BGl_string3221z00zz__errorz00, BgL_bgl_string3221za700za7za7__errorza7003409z00, "remove-error-handler! (this is an internal error)", 49 );
DEFINE_STATIC_PROCEDURE( BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl__sigfpeza7d2errorza7d2handlerza700za7za7__errorza7003410z00, BGl__sigfpezd2errorzd2handlerz00zz__errorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_debugzd2errorzf2locationzd2envzf2zz__errorz00, BgL_bgl__debugza7d2errorza7f2locationza720za7za7__errorza7003411z00, BGl__debugzd2errorzf2locationz20zz__errorz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_addzd2errorzd2handlerz12zd2envzc0zz__errorz00, BgL_bgl__addza7d2errorza7d2handlerza712za712za7za7__errorza7003412za7, BGl__addzd2errorzd2handlerz12z12zz__errorz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3227z00zz__errorz00, BgL_bgl_za7c3anonymousza7a31116za7e3za783za7za7__errorza7003413za7, BGl_zc3anonymousza31116ze3z83zz__errorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_warningzf2locationzd2envz20zz__errorz00, BgL_bgl__warningza7f2locationza7f2za7za7__errorza7003414za7, va_generic_entry, BGl__warningzf2locationzf2zz__errorz00, -3 );
DEFINE_STATIC_PROCEDURE( BGl_proc3251z00zz__errorz00, BgL_bgl_za7c3anonymousza7a31368za7e3za783za7za7__errorza7003415za7, BGl_zc3anonymousza31368ze3z83zz__errorz00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc3256z00zz__errorz00, BgL_bgl_za7c3anonymousza7a31517za7e3za783za7za7__errorza7003416za7, BGl_zc3anonymousza31517ze3z83zz__errorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl__sigbusza7d2errorza7d2handlerza700za7za7__errorza7003417z00, BGl__sigbuszd2errorzd2handlerz00zz__errorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2typezd2errorzd2envzd2zz__errorz00, BgL_bgl__biglooza7d2typeza7d2errorza700za7za7__errorza7003418z00, BGl__bigloozd2typezd2errorz00zz__errorz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_errorzf2czd2locationzd2envzf2zz__errorz00, BgL_bgl__errorza7f2cza7d2locationza720za7za7__errorza7003419z00, BGl__errorzf2czd2locationz20zz__errorz00, 0L, 5 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long BgL_checksumz00_2062, char * BgL_fromz00_2063)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__errorz00))
{ 
BGl_requirezd2initializa7ationz75zz__errorz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__errorz00(); 
BGl_importedzd2moduleszd2initz00zz__errorz00(); 
BGl_toplevelzd2initzd2zz__errorz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__errorz00()
{ AN_OBJECT;
{ /* ./Llib/error.scm 18 */
return ( 
BGl_symbol3257z00zz__errorz00 = 
string_to_symbol("done"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__errorz00()
{ AN_OBJECT;
{ /* ./Llib/error.scm 18 */
BGl_za2debugza2z00zz__errorz00 = 
BINT(((long)0)); 
BGl_za2warningza2z00zz__errorz00 = BTRUE; 
{ /* ./Llib/error.scm 139 */
obj_t BgL_envzd2valuezd2_606;
BgL_envzd2valuezd2_606 = 
BGl_getenvz00zz__osz00("BIGLOOSTACKDEPTH"); 
if(
STRINGP(BgL_envzd2valuezd2_606))
{ /* ./Llib/error.scm 141 */
long BgL_auxz00_2075;
BgL_auxz00_2075 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_envzd2valuezd2_606, BNIL); 
BGl_za2tracezd2stackzd2depthza2z00zz__errorz00 = 
BINT(BgL_auxz00_2075); }  else 
{ /* ./Llib/error.scm 140 */
BGl_za2tracezd2stackzd2depthza2z00zz__errorz00 = 
BINT(((long)10)); } } 
BGl_za2interruptzd2notifierza2zd2zz__errorz00 = BUNSPEC; 
BGl_za2errorzd2notifierza2zd2zz__errorz00 = BUNSPEC; 
BGl_signalz00zz__osz00(SIGFPE, BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00); 
BGl_signalz00zz__osz00(SIGILL, BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00); 
BGl_signalz00zz__osz00(SIGBUS, BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00); 
return 
BGl_signalz00zz__osz00(SIGSEGV, BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00);} 
}



/* exit */
BGL_EXPORTED_DEF obj_t BGl_exitz00zz__errorz00(obj_t BgL_nz00_1)
{ AN_OBJECT;
{ /* ./Llib/error.scm 147 */
{ /* ./Llib/error.scm 148 */
obj_t BgL_valz00_609;
if(
NULLP(BgL_nz00_1))
{ /* ./Llib/error.scm 149 */
BgL_valz00_609 = 
BINT(((long)0)); }  else 
{ /* ./Llib/error.scm 151 */
bool_t BgL_testz00_2086;
{ /* ./Llib/error.scm 151 */
obj_t BgL_auxz00_2087;
BgL_auxz00_2087 = 
CAR(BgL_nz00_1); 
BgL_testz00_2086 = 
INTEGERP(BgL_auxz00_2087); } 
if(BgL_testz00_2086)
{ /* ./Llib/error.scm 151 */
BgL_valz00_609 = 
CAR(BgL_nz00_1); }  else 
{ /* ./Llib/error.scm 151 */
BgL_valz00_609 = 
BINT(((long)0)); } } 
BIGLOO_EXIT(BgL_valz00_609); 
return BgL_valz00_609;} } 
}



/* _exit */
obj_t BGl__exitz00zz__errorz00(obj_t BgL_envz00_1957, obj_t BgL_nz00_1958)
{ AN_OBJECT;
{ /* ./Llib/error.scm 147 */
return 
BGl_exitz00zz__errorz00(BgL_nz00_1958);} 
}



/* add-error-handler! */
BGL_EXPORTED_DEF obj_t BGl_addzd2errorzd2handlerz12z12zz__errorz00(obj_t BgL_handlerz00_2, obj_t BgL_escapez00_3)
{ AN_OBJECT;
{ /* ./Llib/error.scm 170 */
{ /* ./Llib/error.scm 171 */
obj_t BgL_arg1041z00_1244;
{ /* ./Llib/error.scm 171 */
obj_t BgL_arg1044z00_1245;obj_t BgL_arg1045z00_1246;
BgL_arg1044z00_1245 = 
MAKE_PAIR(BgL_handlerz00_2, BgL_escapez00_3); 
BgL_arg1045z00_1246 = 
GET_ERROR_HANDLER(); 
BgL_arg1041z00_1244 = 
MAKE_PAIR(BgL_arg1044z00_1245, BgL_arg1045z00_1246); } 
SET_ERROR_HANDLER(BgL_arg1041z00_1244); } 
return BUNSPEC;} 
}



/* _add-error-handler! */
obj_t BGl__addzd2errorzd2handlerz12z12zz__errorz00(obj_t BgL_envz00_1959, obj_t BgL_handlerz00_1960, obj_t BgL_escapez00_1961)
{ AN_OBJECT;
{ /* ./Llib/error.scm 170 */
return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_handlerz00_1960, BgL_escapez00_1961);} 
}



/* remove-error-handler! */
BGL_EXPORTED_DEF obj_t BGl_removezd2errorzd2handlerz12z12zz__errorz00()
{ AN_OBJECT;
{ /* ./Llib/error.scm 177 */
{ /* ./Llib/error.scm 178 */
obj_t BgL_errorzd2handlerzd2_619;
BgL_errorzd2handlerzd2_619 = 
GET_ERROR_HANDLER(); 
if(
PAIRP(BgL_errorzd2handlerzd2_619))
{ /* ./Llib/error.scm 179 */
{ /* ./Llib/error.scm 181 */
obj_t BgL_auxz00_2102;
BgL_auxz00_2102 = 
CDR(BgL_errorzd2handlerzd2_619); 
SET_ERROR_HANDLER(BgL_auxz00_2102); } 
return BgL_errorzd2handlerzd2_619;}  else 
{ /* ./Llib/error.scm 179 */
BGl_notifyzd2errorzd2zz__errorz00(BGl_string3221z00zz__errorz00, BGl_string3222z00zz__errorz00, BGl_string3223z00zz__errorz00); 
{ /* ./Llib/error.scm 187 */
obj_t BgL_auxz00_2106;
BgL_auxz00_2106 = 
BINT(((long)1)); 
return 
BIGLOO_EXIT(BgL_auxz00_2106);} } } } 
}



/* _remove-error-handler! */
obj_t BGl__removezd2errorzd2handlerz12z12zz__errorz00(obj_t BgL_envz00_1962)
{ AN_OBJECT;
{ /* ./Llib/error.scm 177 */
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();} 
}



/* current-error-handler */
BGL_EXPORTED_DEF obj_t BGl_currentzd2errorzd2handlerz00zz__errorz00()
{ AN_OBJECT;
{ /* ./Llib/error.scm 192 */
{ /* ./Llib/error.scm 193 */
obj_t BgL_hdlz00_622;
BgL_hdlz00_622 = 
GET_ERROR_HANDLER(); 
if(
PAIRP(BgL_hdlz00_622))
{ /* ./Llib/error.scm 196 */
obj_t BgL_handlerz00_624;
{ /* ./Llib/error.scm 196 */
obj_t BgL_auxz00_2113;
BgL_auxz00_2113 = 
CAR(BgL_hdlz00_622); 
BgL_handlerz00_624 = 
CAR(BgL_auxz00_2113); } 
{ /* ./Llib/error.scm 197 */
bool_t BgL_test1059z00_625;
if(
PROCEDUREP(BgL_handlerz00_624))
{ /* ./Llib/error.scm 197 */
int BgL_arg1064z00_627;
BgL_arg1064z00_627 = 
PROCEDURE_ARITY(BgL_handlerz00_624); 
{ /* ./Llib/error.scm 197 */
long BgL_auxz00_2119;
BgL_auxz00_2119 = 
(long)(BgL_arg1064z00_627); 
BgL_test1059z00_625 = 
(BgL_auxz00_2119==((long)4)); } }  else 
{ /* ./Llib/error.scm 197 */
BgL_test1059z00_625 = ((bool_t)0); } 
if(BgL_test1059z00_625)
{ /* ./Llib/error.scm 197 */
return BgL_handlerz00_624;}  else 
{ /* ./Llib/error.scm 197 */
BGl_notifyzd2errorzd2zz__errorz00(BGl_string3224z00zz__errorz00, BGl_string3225z00zz__errorz00, BgL_handlerz00_624); ((long)-1); 
{ /* ./Llib/error.scm 201 */
obj_t BgL_auxz00_2124;
BgL_auxz00_2124 = 
BINT(((long)1)); 
return 
BIGLOO_EXIT(BgL_auxz00_2124);} } } }  else 
{ /* ./Llib/error.scm 194 */
return BGl_defaultzd2errorzd2handlerzd2envzd2zz__errorz00;} } } 
}



/* _current-error-handler */
obj_t BGl__currentzd2errorzd2handlerz00zz__errorz00(obj_t BgL_envz00_1963)
{ AN_OBJECT;
{ /* ./Llib/error.scm 192 */
return 
BGl_currentzd2errorzd2handlerz00zz__errorz00();} 
}



/* error */
BGL_EXPORTED_DEF obj_t BGl_errorz00zz__errorz00(obj_t BgL_procz00_4, obj_t BgL_messagez00_5, obj_t BgL_objectz00_6)
{ AN_OBJECT;
{ /* ./Llib/error.scm 206 */
FAILURE(BgL_procz00_4,BgL_messagez00_5,BgL_objectz00_6);} 
}



/* _error */
obj_t BGl__errorz00zz__errorz00(obj_t BgL_envz00_1968, obj_t BgL_procz00_1969, obj_t BgL_messagez00_1970, obj_t BgL_objectz00_1971)
{ AN_OBJECT;
{ /* ./Llib/error.scm 206 */
FAILURE(BgL_procz00_1969,BgL_messagez00_1970,BgL_objectz00_1971);} 
}



/* warning */
BGL_EXPORTED_DEF obj_t BGl_warningz00zz__errorz00(obj_t BgL_argsz00_7)
{ AN_OBJECT;
{ /* ./Llib/error.scm 212 */
if(
CBOOL(BGl_za2warningza2z00zz__errorz00))
{ /* ./Llib/error.scm 213 */
{ /* ./Llib/error.scm 215 */
obj_t BgL_arg1079z00_630;
BgL_arg1079z00_630 = 
BGL_CURRENT_OUTPUT_PORT(); 
FLUSH_OUTPUT_PORT(BgL_arg1079z00_630); } 
{ /* ./Llib/error.scm 216 */
obj_t BgL_arg1083z00_631;
BgL_arg1083z00_631 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 216 */
obj_t BgL_list1085z00_632;
BgL_list1085z00_632 = 
MAKE_PAIR(BgL_arg1083z00_631, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1085z00_632); } } 
{ /* ./Llib/error.scm 217 */
obj_t BgL_arg1090z00_634;
BgL_arg1090z00_634 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 217 */
obj_t BgL_list1092z00_635;
BgL_list1092z00_635 = 
MAKE_PAIR(BgL_arg1090z00_634, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string3226z00zz__errorz00, BgL_list1092z00_635); } } 
if(
NULLP(BgL_argsz00_7))
{ /* ./Llib/error.scm 218 */BFALSE; }  else 
{ /* ./Llib/error.scm 218 */
{ /* ./Llib/error.scm 220 */
obj_t BgL_arg1097z00_637;obj_t BgL_arg1098z00_638;
BgL_arg1097z00_637 = 
CAR(BgL_argsz00_7); 
BgL_arg1098z00_638 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 220 */
obj_t BgL_list1100z00_639;
BgL_list1100z00_639 = 
MAKE_PAIR(BgL_arg1098z00_638, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1097z00_637, BgL_list1100z00_639); } } 
{ /* ./Llib/error.scm 221 */
obj_t BgL_arg1105z00_640;
BgL_arg1105z00_640 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 221 */
obj_t BgL_list1107z00_641;
BgL_list1107z00_641 = 
MAKE_PAIR(BgL_arg1105z00_640, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1107z00_641); } } 
{ /* ./Llib/error.scm 222 */
obj_t BgL_arg1112z00_643;
BgL_arg1112z00_643 = 
CDR(BgL_argsz00_7); 
{ /* ./Llib/error.scm 222 */
obj_t BgL_list1114z00_644;
BgL_list1114z00_644 = 
MAKE_PAIR(BgL_arg1112z00_643, BNIL); 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BGl_proc3227z00zz__errorz00, BgL_list1114z00_644); } } } 
{ /* ./Llib/error.scm 225 */
obj_t BgL_arg1126z00_650;
BgL_arg1126z00_650 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 225 */
obj_t BgL_list1128z00_651;
BgL_list1128z00_651 = 
MAKE_PAIR(BgL_arg1126z00_650, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1128z00_651); } } 
{ /* ./Llib/error.scm 226 */
obj_t BgL_arg1132z00_652;
BgL_arg1132z00_652 = 
BGL_CURRENT_ERROR_PORT(); 
return 
FLUSH_OUTPUT_PORT(BgL_arg1132z00_652);} }  else 
{ /* ./Llib/error.scm 213 */
return BFALSE;} } 
}



/* _warning */
obj_t BGl__warningz00zz__errorz00(obj_t BgL_envz00_1973, obj_t BgL_argsz00_1974)
{ AN_OBJECT;
{ /* ./Llib/error.scm 212 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_1974);} 
}



/* <anonymous:1116> */
obj_t BGl_zc3anonymousza31116ze3z83zz__errorz00(obj_t BgL_envz00_1975, obj_t BgL_az00_1976)
{ AN_OBJECT;
{ /* ./Llib/error.scm 222 */
{ 
obj_t BgL_az00_645;
BgL_az00_645 = BgL_az00_1976; 
{ /* ./Llib/error.scm 223 */
obj_t BgL_arg1118z00_1267;
BgL_arg1118z00_1267 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 223 */
obj_t BgL_list1120z00_1268;
BgL_list1120z00_1268 = 
MAKE_PAIR(BgL_arg1118z00_1267, BNIL); 
return 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_645, BgL_list1120z00_1268);} } } } 
}



/* warning/location */
BGL_EXPORTED_DEF obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t BgL_fnamez00_8, obj_t BgL_locationz00_9, obj_t BgL_argsz00_10)
{ AN_OBJECT;
{ /* ./Llib/error.scm 231 */
if(
CBOOL(BGl_za2warningza2z00zz__errorz00))
{ /* ./Llib/error.scm 232 */
if(
bigloo_strcmp(BgL_fnamez00_8, BGl_string3228z00zz__errorz00))
{ /* ./Llib/error.scm 233 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_10);}  else 
{ /* ./Llib/error.scm 233 */
if(
bigloo_strcmp(BgL_fnamez00_8, BGl_string3229z00zz__errorz00))
{ /* ./Llib/error.scm 233 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_10);}  else 
{ /* ./Llib/error.scm 233 */
return 
BGl_warningzf2locationzd2filez20zz__errorz00(BgL_fnamez00_8, BgL_locationz00_9, BgL_argsz00_10);} } }  else 
{ /* ./Llib/error.scm 232 */
return BFALSE;} } 
}



/* _warning/location */
obj_t BGl__warningzf2locationzf2zz__errorz00(obj_t BgL_envz00_1977, obj_t BgL_fnamez00_1978, obj_t BgL_locationz00_1979, obj_t BgL_argsz00_1980)
{ AN_OBJECT;
{ /* ./Llib/error.scm 231 */
return 
BGl_warningzf2locationzf2zz__errorz00(BgL_fnamez00_1978, BgL_locationz00_1979, BgL_argsz00_1980);} 
}



/* warning/c-location */
BGL_EXPORTED_DEF obj_t BGl_warningzf2czd2locationz20zz__errorz00(char * BgL_fnamez00_11, long BgL_locationz00_12, obj_t BgL_argsz00_13)
{ AN_OBJECT;
{ /* ./Llib/error.scm 248 */
{ /* ./Llib/error.scm 249 */
obj_t BgL_runner1149z00_1278;
{ /* ./Llib/error.scm 249 */
obj_t BgL_arg1144z00_1279;
{ /* ./Llib/error.scm 249 */
obj_t BgL_auxz00_2171;
BgL_auxz00_2171 = 
BINT(BgL_locationz00_12); 
BgL_arg1144z00_1279 = 
MAKE_PAIR(BgL_auxz00_2171, BgL_argsz00_13); } 
{ /* ./Llib/error.scm 249 */
obj_t BgL_auxz00_2174;
BgL_auxz00_2174 = 
string_to_bstring(BgL_fnamez00_11); 
BgL_runner1149z00_1278 = 
MAKE_PAIR(BgL_auxz00_2174, BgL_arg1144z00_1279); } } 
{ /* ./Llib/error.scm 249 */
obj_t BgL_aux1147z00_1280;
BgL_aux1147z00_1280 = 
CAR(BgL_runner1149z00_1278); 
BgL_runner1149z00_1278 = 
CDR(BgL_runner1149z00_1278); 
{ /* ./Llib/error.scm 249 */
obj_t BgL_aux1148z00_1281;
BgL_aux1148z00_1281 = 
CAR(BgL_runner1149z00_1278); 
BgL_runner1149z00_1278 = 
CDR(BgL_runner1149z00_1278); 
{ /* ./Llib/error.scm 249 */
obj_t BgL_argsz00_1292;
BgL_argsz00_1292 = BgL_runner1149z00_1278; 
if(
CBOOL(BGl_za2warningza2z00zz__errorz00))
{ /* ./Llib/error.scm 249 */
if(
bigloo_strcmp(BgL_aux1147z00_1280, BGl_string3228z00zz__errorz00))
{ /* ./Llib/error.scm 249 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_1292);}  else 
{ /* ./Llib/error.scm 249 */
if(
bigloo_strcmp(BgL_aux1147z00_1280, BGl_string3229z00zz__errorz00))
{ /* ./Llib/error.scm 249 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_1292);}  else 
{ /* ./Llib/error.scm 249 */
return 
BGl_warningzf2locationzd2filez20zz__errorz00(BgL_aux1147z00_1280, BgL_aux1148z00_1281, BgL_argsz00_1292);} } }  else 
{ /* ./Llib/error.scm 249 */
return BFALSE;} } } } } } 
}



/* _warning/c-location */
obj_t BGl__warningzf2czd2locationz20zz__errorz00(obj_t BgL_envz00_1981, obj_t BgL_fnamez00_1982, obj_t BgL_locationz00_1983, obj_t BgL_argsz00_1984)
{ AN_OBJECT;
{ /* ./Llib/error.scm 248 */
return 
BGl_warningzf2czd2locationz20zz__errorz00(
BSTRING_TO_STRING(BgL_fnamez00_1982), 
(long)CINT(BgL_locationz00_1983), BgL_argsz00_1984);} 
}



/* the_failure */
BGL_EXPORTED_DEF obj_t the_failure(obj_t BgL_procz00_14, obj_t BgL_messagez00_15, obj_t BgL_objectz00_16)
{ AN_OBJECT;
{ /* ./Llib/error.scm 254 */
BGl_readerzd2resetz12zc0zz__readerz00(); 
{ /* ./Llib/error.scm 256 */
obj_t BgL_errorzd2handlerzd2_661;
BgL_errorzd2handlerzd2_661 = 
GET_ERROR_HANDLER(); 
if(
PAIRP(BgL_errorzd2handlerzd2_661))
{ /* ./Llib/error.scm 259 */
obj_t BgL_handlerz00_663;obj_t BgL_escapez00_664;
{ /* ./Llib/error.scm 259 */
obj_t BgL_auxz00_2197;
BgL_auxz00_2197 = 
CAR(BgL_errorzd2handlerzd2_661); 
BgL_handlerz00_663 = 
CAR(BgL_auxz00_2197); } 
{ /* ./Llib/error.scm 260 */
obj_t BgL_auxz00_2200;
BgL_auxz00_2200 = 
CAR(BgL_errorzd2handlerzd2_661); 
BgL_escapez00_664 = 
CDR(BgL_auxz00_2200); } 
{ /* ./Llib/error.scm 261 */
bool_t BgL_test1156z00_665;
if(
PROCEDUREP(BgL_handlerz00_663))
{ /* ./Llib/error.scm 261 */
int BgL_arg1161z00_667;
BgL_arg1161z00_667 = 
PROCEDURE_ARITY(BgL_handlerz00_663); 
{ /* ./Llib/error.scm 261 */
long BgL_auxz00_2206;
BgL_auxz00_2206 = 
(long)(BgL_arg1161z00_667); 
BgL_test1156z00_665 = 
(BgL_auxz00_2206==((long)4)); } }  else 
{ /* ./Llib/error.scm 261 */
BgL_test1156z00_665 = ((bool_t)0); } 
if(BgL_test1156z00_665)
{ /* ./Llib/error.scm 261 */
return 
PROCEDURE_ENTRY(BgL_handlerz00_663)(BgL_handlerz00_663, BgL_escapez00_664, BgL_procz00_14, BgL_messagez00_15, BgL_objectz00_16, BEOA);}  else 
{ /* ./Llib/error.scm 261 */
BGl_notifyzd2errorzd2zz__errorz00(BGl_string3224z00zz__errorz00, BGl_string3225z00zz__errorz00, BgL_handlerz00_663); 
return 
BINT(((long)-1));} } }  else 
{ /* ./Llib/error.scm 257 */
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_14, BgL_messagez00_15, BgL_objectz00_16); 
return 
BINT(((long)-1));} } } 
}



/* _the_failure */
obj_t BGl__the_failurez00zz__errorz00(obj_t BgL_envz00_1985, obj_t BgL_procz00_1986, obj_t BgL_messagez00_1987, obj_t BgL_objectz00_1988)
{ AN_OBJECT;
{ /* ./Llib/error.scm 254 */
return 
the_failure(BgL_procz00_1986, BgL_messagez00_1987, BgL_objectz00_1988);} 
}



/* the_c_failure */
BGL_EXPORTED_DEF obj_t the_c_failure(char * BgL_procz00_17, char * BgL_messagez00_18, obj_t BgL_objectz00_19)
{ AN_OBJECT;
{ /* ./Llib/error.scm 268 */
return 
the_failure(
string_to_bstring(BgL_procz00_17), 
string_to_bstring(BgL_messagez00_18), BgL_objectz00_19);} 
}



/* _the_c_failure */
obj_t BGl__the_c_failurez00zz__errorz00(obj_t BgL_envz00_1989, obj_t BgL_procz00_1990, obj_t BgL_messagez00_1991, obj_t BgL_objectz00_1992)
{ AN_OBJECT;
{ /* ./Llib/error.scm 268 */
return 
the_c_failure(
BSTRING_TO_STRING(BgL_procz00_1990), 
BSTRING_TO_STRING(BgL_messagez00_1991), BgL_objectz00_1992);} 
}



/* notify-dump-trace-stack */
obj_t BGl_notifyzd2dumpzd2tracezd2stackzd2zz__errorz00()
{ AN_OBJECT;
{ /* ./Llib/error.scm 274 */
{ /* ./Llib/error.scm 275 */
bool_t BgL_test1180z00_671;
{ /* ./Llib/error.scm 275 */
bool_t BgL_test1182z00_672;
if(
INTEGERP(BGl_za2debugza2z00zz__errorz00))
{ /* ./Llib/error.scm 275 */
long BgL_auxz00_2225;
BgL_auxz00_2225 = 
(long)CINT(BGl_za2debugza2z00zz__errorz00); 
BgL_test1182z00_672 = 
(BgL_auxz00_2225>((long)0)); }  else 
{ /* ./Llib/error.scm 275 */
BgL_test1182z00_672 = ((bool_t)0); } 
if(BgL_test1182z00_672)
{ /* ./Llib/error.scm 275 */
BgL_test1180z00_671 = ((bool_t)1); }  else 
{ /* ./Llib/error.scm 276 */
obj_t BgL_auxz00_2229;
BgL_auxz00_2229 = 
BGl_getenvz00zz__osz00("BIGLOOSTACKDEPTH"); 
BgL_test1180z00_671 = 
STRINGP(BgL_auxz00_2229); } } 
if(BgL_test1180z00_671)
{ /* ./Llib/error.scm 277 */
obj_t BgL_depthz00_1320;
if(
INTEGERP(BGl_za2tracezd2stackzd2depthza2z00zz__errorz00))
{ /* ./Llib/error.scm 277 */
BgL_depthz00_1320 = BGl_za2tracezd2stackzd2depthza2z00zz__errorz00; }  else 
{ /* ./Llib/error.scm 277 */
BgL_depthz00_1320 = 
BINT(((long)10)); } 
{ /* ./Llib/error.scm 277 */
obj_t BgL_arg1034z00_1322;
BgL_arg1034z00_1322 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 277 */
int BgL_auxz00_2237;
BgL_auxz00_2237 = 
CINT(BgL_depthz00_1320); 
return 
dump_trace_stack(BgL_arg1034z00_1322, BgL_auxz00_2237);} } }  else 
{ /* ./Llib/error.scm 275 */
return BFALSE;} } } 
}



/* notify-interrupt */
BGL_EXPORTED_DEF obj_t BGl_notifyzd2interruptzd2zz__errorz00(int BgL_sigz00_20)
{ AN_OBJECT;
{ /* ./Llib/error.scm 282 */
{ /* ./Llib/error.scm 283 */
obj_t BgL_fun1193z00_1324;
if(
PROCEDUREP(BGl_za2interruptzd2notifierza2zd2zz__errorz00))
{ /* ./Llib/error.scm 283 */
BgL_fun1193z00_1324 = BGl_za2interruptzd2notifierza2zd2zz__errorz00; }  else 
{ /* ./Llib/error.scm 283 */
BgL_fun1193z00_1324 = BGl_defaultzd2interruptzd2notifierzd2envzd2zz__errorz00; } 
return 
PROCEDURE_ENTRY(BgL_fun1193z00_1324)(BgL_fun1193z00_1324, 
BINT(BgL_sigz00_20), BEOA);} } 
}



/* _notify-interrupt */
obj_t BGl__notifyzd2interruptzd2zz__errorz00(obj_t BgL_envz00_1993, obj_t BgL_sigz00_1994)
{ AN_OBJECT;
{ /* ./Llib/error.scm 282 */
return 
BGl_notifyzd2interruptzd2zz__errorz00(
CINT(BgL_sigz00_1994));} 
}



/* default-interrupt-notifier */
obj_t BGl_defaultzd2interruptzd2notifierz00zz__errorz00(obj_t BgL_sigz00_21)
{ AN_OBJECT;
{ /* ./Llib/error.scm 296 */
{ /* ./Llib/error.scm 297 */
obj_t BgL_portz00_1327;
BgL_portz00_1327 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 297 */
obj_t BgL_list1196z00_1328;
BgL_list1196z00_1328 = 
MAKE_PAIR(BgL_portz00_1327, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1196z00_1328); } 
{ /* ./Llib/error.scm 297 */
obj_t BgL_list1199z00_1329;
BgL_list1199z00_1329 = 
MAKE_PAIR(BGl_string3230z00zz__errorz00, BNIL); 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_1327, BgL_list1199z00_1329); } 
return 
FLUSH_OUTPUT_PORT(BgL_portz00_1327);} } 
}



/* _default-interrupt-notifier */
obj_t BGl__defaultzd2interruptzd2notifierz00zz__errorz00(obj_t BgL_envz00_1995, obj_t BgL_sigz00_1996)
{ AN_OBJECT;
{ /* ./Llib/error.scm 296 */
return 
BGl_defaultzd2interruptzd2notifierz00zz__errorz00(BgL_sigz00_1996);} 
}



/* notify-error */
BGL_EXPORTED_DEF obj_t BGl_notifyzd2errorzd2zz__errorz00(obj_t BgL_procz00_22, obj_t BgL_mesz00_23, obj_t BgL_objz00_24)
{ AN_OBJECT;
{ /* ./Llib/error.scm 305 */
if(
PROCEDUREP(BGl_za2errorzd2notifierza2zd2zz__errorz00))
{ /* ./Llib/error.scm 306 */
return 
PROCEDURE_ENTRY(BGl_za2errorzd2notifierza2zd2zz__errorz00)(BGl_za2errorzd2notifierza2zd2zz__errorz00, BgL_procz00_22, BgL_mesz00_23, BgL_objz00_24, BEOA);}  else 
{ /* ./Llib/error.scm 308 */
obj_t BgL_portz00_681;
BgL_portz00_681 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 309 */
obj_t BgL_arg1206z00_682;
BgL_arg1206z00_682 = 
BGL_CURRENT_OUTPUT_PORT(); 
FLUSH_OUTPUT_PORT(BgL_arg1206z00_682); } 
{ /* ./Llib/error.scm 310 */
obj_t BgL_list1210z00_683;
BgL_list1210z00_683 = 
MAKE_PAIR(BgL_portz00_681, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1210z00_683); } 
{ /* ./Llib/error.scm 311 */
obj_t BgL_list1213z00_684;
BgL_list1213z00_684 = 
MAKE_PAIR(BgL_portz00_681, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string3231z00zz__errorz00, BgL_list1213z00_684); } 
{ /* ./Llib/error.scm 312 */
obj_t BgL_list1216z00_685;
BgL_list1216z00_685 = 
MAKE_PAIR(BgL_portz00_681, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_procz00_22, BgL_list1216z00_685); } 
{ /* ./Llib/error.scm 313 */
obj_t BgL_list1219z00_686;
BgL_list1219z00_686 = 
MAKE_PAIR(BgL_portz00_681, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string3232z00zz__errorz00, BgL_list1219z00_686); } 
{ /* ./Llib/error.scm 314 */
obj_t BgL_list1222z00_687;
BgL_list1222z00_687 = 
MAKE_PAIR(BgL_portz00_681, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_mesz00_23, BgL_list1222z00_687); } 
{ /* ./Llib/error.scm 315 */
obj_t BgL_list1225z00_688;
BgL_list1225z00_688 = 
MAKE_PAIR(BgL_portz00_681, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string3233z00zz__errorz00, BgL_list1225z00_688); } 
{ /* ./Llib/error.scm 316 */
obj_t BgL_list1228z00_689;
BgL_list1228z00_689 = 
MAKE_PAIR(BgL_portz00_681, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_objz00_24, BgL_list1228z00_689); } 
{ /* ./Llib/error.scm 317 */
obj_t BgL_list1231z00_690;
BgL_list1231z00_690 = 
MAKE_PAIR(BgL_portz00_681, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1231z00_690); } 
BGl_notifyzd2dumpzd2tracezd2stackzd2zz__errorz00(); 
return 
FLUSH_OUTPUT_PORT(BgL_portz00_681);} } 
}



/* _notify-error */
obj_t BGl__notifyzd2errorzd2zz__errorz00(obj_t BgL_envz00_1997, obj_t BgL_procz00_1998, obj_t BgL_mesz00_1999, obj_t BgL_objz00_2000)
{ AN_OBJECT;
{ /* ./Llib/error.scm 305 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_1998, BgL_mesz00_1999, BgL_objz00_2000);} 
}



/* bigloo-type-error-msg */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t BgL_prefixz00_25, obj_t BgL_fromz00_26, obj_t BgL_toz00_27)
{ AN_OBJECT;
{ /* ./Llib/error.scm 324 */
{ /* ./Llib/error.scm 325 */
obj_t BgL_list1238z00_1334;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1240z00_1335;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1244z00_1337;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1249z00_1338;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1254z00_1340;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1258z00_1341;
BgL_arg1258z00_1341 = 
MAKE_PAIR(BGl_string3234z00zz__errorz00, BNIL); 
BgL_arg1254z00_1340 = 
MAKE_PAIR(BgL_toz00_27, BgL_arg1258z00_1341); } 
BgL_arg1249z00_1338 = 
MAKE_PAIR(BGl_string3235z00zz__errorz00, BgL_arg1254z00_1340); } 
BgL_arg1244z00_1337 = 
MAKE_PAIR(BgL_fromz00_26, BgL_arg1249z00_1338); } 
BgL_arg1240z00_1335 = 
MAKE_PAIR(BGl_string3236z00zz__errorz00, BgL_arg1244z00_1337); } 
BgL_list1238z00_1334 = 
MAKE_PAIR(BgL_prefixz00_25, BgL_arg1240z00_1335); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1238z00_1334);} } 
}



/* _bigloo-type-error-msg */
obj_t BGl__bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t BgL_envz00_2001, obj_t BgL_prefixz00_2002, obj_t BgL_fromz00_2003, obj_t BgL_toz00_2004)
{ AN_OBJECT;
{ /* ./Llib/error.scm 324 */
return 
BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(BgL_prefixz00_2002, BgL_fromz00_2003, BgL_toz00_2004);} 
}



/* default-error-handler */
long BGl_defaultzd2errorzd2handlerz00zz__errorz00(obj_t BgL_procz00_28, obj_t BgL_mesz00_29, obj_t BgL_objz00_30)
{ AN_OBJECT;
{ /* ./Llib/error.scm 335 */
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_28, BgL_mesz00_29, BgL_objz00_30); 
return ((long)-1);} 
}



/* _default-error-handler */
obj_t BGl__defaultzd2errorzd2handlerz00zz__errorz00(obj_t BgL_envz00_1964, obj_t BgL_procz00_1965, obj_t BgL_mesz00_1966, obj_t BgL_objz00_1967)
{ AN_OBJECT;
{ /* ./Llib/error.scm 335 */
{ /* ./Llib/error.scm 336 */
long BgL_auxz00_2289;
BgL_auxz00_2289 = 
BGl_defaultzd2errorzd2handlerz00zz__errorz00(BgL_procz00_1965, BgL_mesz00_1966, BgL_objz00_1967); 
return 
BINT(BgL_auxz00_2289);} } 
}



/* sigfpe-error-handler */
obj_t BGl_sigfpezd2errorzd2handlerz00zz__errorz00(obj_t BgL_nz00_32)
{ AN_OBJECT;
{ /* ./Llib/error.scm 348 */
FAILURE(BGl_string3237z00zz__errorz00,BGl_string3238z00zz__errorz00,BGl_string3239z00zz__errorz00);} 
}



/* _sigfpe-error-handler */
obj_t BGl__sigfpezd2errorzd2handlerz00zz__errorz00(obj_t BgL_envz00_1949, obj_t BgL_nz00_1950)
{ AN_OBJECT;
{ /* ./Llib/error.scm 348 */
return 
BGl_sigfpezd2errorzd2handlerz00zz__errorz00(BgL_nz00_1950);} 
}



/* sigill-error-handler */
obj_t BGl_sigillzd2errorzd2handlerz00zz__errorz00(obj_t BgL_nz00_33)
{ AN_OBJECT;
{ /* ./Llib/error.scm 354 */
FAILURE(BGl_string3240z00zz__errorz00,BGl_string3241z00zz__errorz00,BGl_string3239z00zz__errorz00);} 
}



/* _sigill-error-handler */
obj_t BGl__sigillzd2errorzd2handlerz00zz__errorz00(obj_t BgL_envz00_1951, obj_t BgL_nz00_1952)
{ AN_OBJECT;
{ /* ./Llib/error.scm 354 */
return 
BGl_sigillzd2errorzd2handlerz00zz__errorz00(BgL_nz00_1952);} 
}



/* sigbus-error-handler */
obj_t BGl_sigbuszd2errorzd2handlerz00zz__errorz00(obj_t BgL_nz00_34)
{ AN_OBJECT;
{ /* ./Llib/error.scm 360 */
FAILURE(BGl_string3240z00zz__errorz00,BGl_string3242z00zz__errorz00,BGl_string3239z00zz__errorz00);} 
}



/* _sigbus-error-handler */
obj_t BGl__sigbuszd2errorzd2handlerz00zz__errorz00(obj_t BgL_envz00_1953, obj_t BgL_nz00_1954)
{ AN_OBJECT;
{ /* ./Llib/error.scm 360 */
return 
BGl_sigbuszd2errorzd2handlerz00zz__errorz00(BgL_nz00_1954);} 
}



/* sigsegv-error-handler */
obj_t BGl_sigsegvzd2errorzd2handlerz00zz__errorz00(obj_t BgL_nz00_35)
{ AN_OBJECT;
{ /* ./Llib/error.scm 366 */
FAILURE(BGl_string3240z00zz__errorz00,BGl_string3243z00zz__errorz00,BGl_string3239z00zz__errorz00);} 
}



/* _sigsegv-error-handler */
obj_t BGl__sigsegvzd2errorzd2handlerz00zz__errorz00(obj_t BgL_envz00_1955, obj_t BgL_nz00_1956)
{ AN_OBJECT;
{ /* ./Llib/error.scm 366 */
return 
BGl_sigsegvzd2errorzd2handlerz00zz__errorz00(BgL_nz00_1956);} 
}



/* error/location */
BGL_EXPORTED_DEF obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t BgL_procz00_36, obj_t BgL_messagez00_37, obj_t BgL_objectz00_38, obj_t BgL_fnamez00_39, obj_t BgL_locationz00_40)
{ AN_OBJECT;
{ /* ./Llib/error.scm 384 */
if(
STRINGP(BgL_fnamez00_39))
{ /* ./Llib/error.scm 386 */
if(
INTEGERP(BgL_locationz00_40))
{ /* ./Llib/error.scm 388 */
if(
bigloo_strcmp(BgL_fnamez00_39, BGl_string3228z00zz__errorz00))
{ /* ./Llib/error.scm 390 */
FAILURE(BgL_procz00_36,BgL_messagez00_37,BgL_objectz00_38);}  else 
{ /* ./Llib/error.scm 390 */
if(
bigloo_strcmp(BgL_fnamez00_39, BGl_string3229z00zz__errorz00))
{ /* ./Llib/error.scm 392 */
FAILURE(BgL_procz00_36,BgL_messagez00_37,BgL_objectz00_38);}  else 
{ /* ./Llib/error.scm 392 */
if(
bigloo_strcmp(BgL_fnamez00_39, BGl_string3228z00zz__errorz00))
{ /* ./Llib/error.scm 394 */
FAILURE(BgL_procz00_36,BgL_messagez00_37,BgL_objectz00_38);}  else 
{ /* ./Llib/error.scm 394 */
BGl_za2errorzd2notifierza2zd2zz__errorz00 = 
BGl_errorzf2locationzd2filez20zz__errorz00(BgL_fnamez00_39, BgL_locationz00_40); 
FAILURE(BgL_procz00_36,BgL_messagez00_37,BgL_objectz00_38);} } } }  else 
{ /* ./Llib/error.scm 388 */
FAILURE(BgL_procz00_36,BgL_messagez00_37,BgL_objectz00_38);} }  else 
{ /* ./Llib/error.scm 386 */
FAILURE(BgL_procz00_36,BgL_messagez00_37,BgL_objectz00_38);} } 
}



/* _error/location */
obj_t BGl__errorzf2locationzf2zz__errorz00(obj_t BgL_envz00_2005, obj_t BgL_procz00_2006, obj_t BgL_messagez00_2007, obj_t BgL_objectz00_2008, obj_t BgL_fnamez00_2009, obj_t BgL_locationz00_2010)
{ AN_OBJECT;
{ /* ./Llib/error.scm 384 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_2006, BgL_messagez00_2007, BgL_objectz00_2008, BgL_fnamez00_2009, BgL_locationz00_2010);} 
}



/* error/c-location */
BGL_EXPORTED_DEF obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t BgL_procz00_41, obj_t BgL_messagez00_42, obj_t BgL_objectz00_43, char * BgL_fnamez00_44, long BgL_locationz00_45)
{ AN_OBJECT;
{ /* ./Llib/error.scm 407 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_41, BgL_messagez00_42, BgL_objectz00_43, 
string_to_bstring(BgL_fnamez00_44), 
BINT(BgL_locationz00_45));} 
}



/* _error/c-location */
obj_t BGl__errorzf2czd2locationz20zz__errorz00(obj_t BgL_envz00_2011, obj_t BgL_procz00_2012, obj_t BgL_messagez00_2013, obj_t BgL_objectz00_2014, obj_t BgL_fnamez00_2015, obj_t BgL_locationz00_2016)
{ AN_OBJECT;
{ /* ./Llib/error.scm 407 */
return 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procz00_2012, BgL_messagez00_2013, BgL_objectz00_2014, 
BSTRING_TO_STRING(BgL_fnamez00_2015), 
(long)CINT(BgL_locationz00_2016));} 
}



/* debug-error/location */
BGL_EXPORTED_DEF obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t BgL_procz00_46, obj_t BgL_messagez00_47, obj_t BgL_objectz00_48, obj_t BgL_fnamez00_49, obj_t BgL_locationz00_50)
{ AN_OBJECT;
{ /* ./Llib/error.scm 418 */
if(
PROCEDUREP(BGl_za2errorzd2notifierza2zd2zz__errorz00))
{ /* ./Llib/error.scm 419 */
FAILURE(BgL_procz00_46,BgL_messagez00_47,BgL_objectz00_48);}  else 
{ /* ./Llib/error.scm 419 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_46, BgL_messagez00_47, BgL_objectz00_48, BgL_fnamez00_49, BgL_locationz00_50);} } 
}



/* _debug-error/location */
obj_t BGl__debugzd2errorzf2locationz20zz__errorz00(obj_t BgL_envz00_2017, obj_t BgL_procz00_2018, obj_t BgL_messagez00_2019, obj_t BgL_objectz00_2020, obj_t BgL_fnamez00_2021, obj_t BgL_locationz00_2022)
{ AN_OBJECT;
{ /* ./Llib/error.scm 418 */
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BgL_procz00_2018, BgL_messagez00_2019, BgL_objectz00_2020, BgL_fnamez00_2021, BgL_locationz00_2022);} 
}



/* uncygdrive */
obj_t BGl_uncygdrivez00zz__errorz00(obj_t BgL_strz00_51)
{ AN_OBJECT;
{ /* ./Llib/error.scm 429 */
{ /* ./Llib/error.scm 430 */
bool_t BgL_testz00_2329;
{ /* ./Llib/error.scm 430 */
int BgL_auxz00_2330;
BgL_auxz00_2330 = 
(int)(((long)10)); 
BgL_testz00_2329 = 
bigloo_strncmp(BGl_string3244z00zz__errorz00, BgL_strz00_51, BgL_auxz00_2330); } 
if(BgL_testz00_2329)
{ /* ./Llib/error.scm 431 */
bool_t BgL_test1290z00_706;
{ /* ./Llib/error.scm 431 */
bool_t BgL_testz00_2333;
{ /* ./Llib/error.scm 431 */
long BgL_auxz00_2334;
{ /* ./Llib/error.scm 431 */
int BgL_auxz00_2335;
BgL_auxz00_2335 = 
STRING_LENGTH(BgL_strz00_51); 
BgL_auxz00_2334 = 
(long)(BgL_auxz00_2335); } 
BgL_testz00_2333 = 
(BgL_auxz00_2334>((long)12)); } 
if(BgL_testz00_2333)
{ /* ./Llib/error.scm 432 */
bool_t BgL_test1318z00_718;
{ /* ./Llib/error.scm 432 */
unsigned char BgL_arg1324z00_720;
{ /* ./Llib/error.scm 432 */
unsigned char BgL_res2873z00_1402;
{ /* ./Llib/error.scm 432 */
int BgL_kz00_1395;
BgL_kz00_1395 = 
(int)(((long)10)); 
{ /* ./Llib/error.scm 432 */
bool_t BgL_testz00_2340;
{ /* ./Llib/error.scm 432 */
int BgL_auxz00_2341;
BgL_auxz00_2341 = 
STRING_LENGTH(BgL_strz00_51); 
BgL_testz00_2340 = 
BOUND_CHECK(BgL_kz00_1395, BgL_auxz00_2341); } 
if(BgL_testz00_2340)
{ /* ./Llib/error.scm 432 */
BgL_res2873z00_1402 = 
STRING_REF(BgL_strz00_51, BgL_kz00_1395); }  else 
{ /* ./Llib/error.scm 432 */
obj_t BgL_objectz00_1401;
BgL_objectz00_1401 = 
BINT(BgL_kz00_1395); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1401);} } } 
BgL_arg1324z00_720 = BgL_res2873z00_1402; } 
{ /* ./Llib/error.scm 432 */
bool_t BgL_res2874z00_1404;
BgL_res2874z00_1404 = 
isalpha(BgL_arg1324z00_720); 
BgL_test1318z00_718 = BgL_res2874z00_1404; } } 
if(BgL_test1318z00_718)
{ /* ./Llib/error.scm 433 */
unsigned char BgL_arg1320z00_719;
{ /* ./Llib/error.scm 433 */
unsigned char BgL_res2875z00_1413;
{ /* ./Llib/error.scm 433 */
int BgL_kz00_1406;
BgL_kz00_1406 = 
(int)(((long)11)); 
{ /* ./Llib/error.scm 433 */
bool_t BgL_testz00_2350;
{ /* ./Llib/error.scm 433 */
int BgL_auxz00_2351;
BgL_auxz00_2351 = 
STRING_LENGTH(BgL_strz00_51); 
BgL_testz00_2350 = 
BOUND_CHECK(BgL_kz00_1406, BgL_auxz00_2351); } 
if(BgL_testz00_2350)
{ /* ./Llib/error.scm 433 */
BgL_res2875z00_1413 = 
STRING_REF(BgL_strz00_51, BgL_kz00_1406); }  else 
{ /* ./Llib/error.scm 433 */
obj_t BgL_objectz00_1412;
BgL_objectz00_1412 = 
BINT(BgL_kz00_1406); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1412);} } } 
BgL_arg1320z00_719 = BgL_res2875z00_1413; } 
BgL_test1290z00_706 = 
(BgL_arg1320z00_719==((unsigned char)'/')); }  else 
{ /* ./Llib/error.scm 432 */
BgL_test1290z00_706 = ((bool_t)0); } }  else 
{ /* ./Llib/error.scm 431 */
BgL_test1290z00_706 = ((bool_t)0); } } 
if(BgL_test1290z00_706)
{ /* ./Llib/error.scm 434 */
obj_t BgL_arg1292z00_707;obj_t BgL_arg1293z00_708;
{ /* ./Llib/error.scm 434 */
unsigned char BgL_arg1301z00_711;
{ /* ./Llib/error.scm 434 */
unsigned char BgL_res2876z00_1424;
{ /* ./Llib/error.scm 434 */
int BgL_kz00_1417;
BgL_kz00_1417 = 
(int)(((long)10)); 
{ /* ./Llib/error.scm 434 */
bool_t BgL_testz00_2360;
{ /* ./Llib/error.scm 434 */
int BgL_auxz00_2361;
BgL_auxz00_2361 = 
STRING_LENGTH(BgL_strz00_51); 
BgL_testz00_2360 = 
BOUND_CHECK(BgL_kz00_1417, BgL_auxz00_2361); } 
if(BgL_testz00_2360)
{ /* ./Llib/error.scm 434 */
BgL_res2876z00_1424 = 
STRING_REF(BgL_strz00_51, BgL_kz00_1417); }  else 
{ /* ./Llib/error.scm 434 */
obj_t BgL_objectz00_1423;
BgL_objectz00_1423 = 
BINT(BgL_kz00_1417); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1423);} } } 
BgL_arg1301z00_711 = BgL_res2876z00_1424; } 
{ /* ./Llib/error.scm 434 */
obj_t BgL_list1303z00_712;
{ /* ./Llib/error.scm 434 */
obj_t BgL_arg1305z00_713;
{ /* ./Llib/error.scm 434 */
obj_t BgL_arg1308z00_714;
{ /* ./Llib/error.scm 434 */
obj_t BgL_auxz00_2367;
BgL_auxz00_2367 = 
BCHAR(((unsigned char)'/')); 
BgL_arg1308z00_714 = 
MAKE_PAIR(BgL_auxz00_2367, BNIL); } 
{ /* ./Llib/error.scm 434 */
obj_t BgL_auxz00_2370;
BgL_auxz00_2370 = 
BCHAR(((unsigned char)':')); 
BgL_arg1305z00_713 = 
MAKE_PAIR(BgL_auxz00_2370, BgL_arg1308z00_714); } } 
{ /* ./Llib/error.scm 434 */
obj_t BgL_auxz00_2373;
BgL_auxz00_2373 = 
BCHAR(BgL_arg1301z00_711); 
BgL_list1303z00_712 = 
MAKE_PAIR(BgL_auxz00_2373, BgL_arg1305z00_713); } } 
BgL_arg1292z00_707 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list1303z00_712); } } 
{ /* ./Llib/error.scm 435 */
int BgL_arg1314z00_716;
BgL_arg1314z00_716 = 
STRING_LENGTH(BgL_strz00_51); 
{ /* ./Llib/error.scm 435 */
obj_t BgL_res2877z00_1455;
{ /* ./Llib/error.scm 435 */
int BgL_startz00_1428;
BgL_startz00_1428 = 
(int)(((long)12)); 
{ /* ./Llib/error.scm 435 */
bool_t BgL_test2045z00_1430;
{ /* ./Llib/error.scm 435 */
bool_t BgL_testz00_2379;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2382;long BgL_auxz00_2380;
BgL_auxz00_2382 = 
(long)(BgL_startz00_1428); 
BgL_auxz00_2380 = 
(long)(BgL_arg1314z00_716); 
BgL_testz00_2379 = 
(BgL_auxz00_2380>=BgL_auxz00_2382); } 
if(BgL_testz00_2379)
{ /* ./Llib/error.scm 435 */
bool_t BgL_testz00_2385;
{ /* ./Llib/error.scm 435 */
int BgL_auxz00_2386;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2387;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2388;
BgL_auxz00_2388 = 
(long)(BgL_arg1314z00_716); 
BgL_auxz00_2387 = 
(BgL_auxz00_2388+((long)1)); } 
BgL_auxz00_2386 = 
(int)(BgL_auxz00_2387); } 
BgL_testz00_2385 = 
BOUND_CHECK(BgL_startz00_1428, BgL_auxz00_2386); } 
if(BgL_testz00_2385)
{ /* ./Llib/error.scm 435 */
int BgL_auxz00_2393;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2394;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2395;
BgL_auxz00_2395 = 
(long)(BgL_arg1314z00_716); 
BgL_auxz00_2394 = 
(BgL_auxz00_2395+((long)1)); } 
BgL_auxz00_2393 = 
(int)(BgL_auxz00_2394); } 
BgL_test2045z00_1430 = 
BOUND_CHECK(BgL_arg1314z00_716, BgL_auxz00_2393); }  else 
{ /* ./Llib/error.scm 435 */
BgL_test2045z00_1430 = ((bool_t)0); } }  else 
{ /* ./Llib/error.scm 435 */
BgL_test2045z00_1430 = ((bool_t)0); } } 
if(BgL_test2045z00_1430)
{ /* ./Llib/error.scm 435 */
BgL_res2877z00_1455 = 
c_substring(BgL_strz00_51, BgL_startz00_1428, BgL_arg1314z00_716); }  else 
{ /* ./Llib/error.scm 435 */
obj_t BgL_arg2050z00_1441;
{ /* ./Llib/error.scm 435 */
obj_t BgL_auxz00_2404;obj_t BgL_auxz00_2402;
BgL_auxz00_2404 = 
BINT(BgL_arg1314z00_716); 
BgL_auxz00_2402 = 
BINT(BgL_startz00_1428); 
BgL_arg2050z00_1441 = 
MAKE_PAIR(BgL_auxz00_2402, BgL_auxz00_2404); } 
FAILURE(BGl_string3247z00zz__errorz00,BGl_string3248z00zz__errorz00,BgL_arg2050z00_1441);} } } 
BgL_arg1293z00_708 = BgL_res2877z00_1455; } } 
{ /* ./Llib/error.scm 434 */
obj_t BgL_list1295z00_709;
{ /* ./Llib/error.scm 434 */
obj_t BgL_arg1297z00_710;
BgL_arg1297z00_710 = 
MAKE_PAIR(BgL_arg1293z00_708, BNIL); 
BgL_list1295z00_709 = 
MAKE_PAIR(BgL_arg1292z00_707, BgL_arg1297z00_710); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1295z00_709);} }  else 
{ /* ./Llib/error.scm 431 */
return BgL_strz00_51;} }  else 
{ /* ./Llib/error.scm 430 */
return BgL_strz00_51;} } } 
}



/* error/location-file */
BGL_EXPORTED_DEF obj_t BGl_errorzf2locationzd2filez20zz__errorz00(obj_t BgL_filezd2namezd2_52, obj_t BgL_locationz00_53)
{ AN_OBJECT;
{ /* ./Llib/error.scm 442 */
{ /* ./Llib/error.scm 444 */
bool_t BgL_testz00_2411;
{ /* ./Llib/error.scm 444 */
obj_t BgL_auxz00_2412;
BgL_auxz00_2412 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_testz00_2411 = 
bigloo_strcmp(BgL_auxz00_2412, BGl_string3249z00zz__errorz00); } 
if(BgL_testz00_2411)
{ /* ./Llib/error.scm 444 */
BgL_filezd2namezd2_52 = 
BGl_uncygdrivez00zz__errorz00(BgL_filezd2namezd2_52); 
{ /* ./Llib/error.scm 447 */
int BgL_filezd2namezd2lengthz00_724;
BgL_filezd2namezd2lengthz00_724 = 
STRING_LENGTH(BgL_filezd2namezd2_52); 
{ 
long BgL_iz00_725;
BgL_iz00_725 = ((long)0); 
BgL_loopz00_726:
{ /* ./Llib/error.scm 449 */
bool_t BgL_testz00_2417;
{ /* ./Llib/error.scm 449 */
long BgL_auxz00_2418;
BgL_auxz00_2418 = 
(long)(BgL_filezd2namezd2lengthz00_724); 
BgL_testz00_2417 = 
(BgL_iz00_725<BgL_auxz00_2418); } 
if(BgL_testz00_2417)
{ /* ./Llib/error.scm 449 */
{ /* ./Llib/error.scm 451 */
bool_t BgL_test1337z00_728;
{ /* ./Llib/error.scm 451 */
unsigned char BgL_arg1340z00_729;
{ /* ./Llib/error.scm 451 */
unsigned char BgL_res2878z00_1469;
{ /* ./Llib/error.scm 451 */
obj_t BgL_stringz00_1461;int BgL_kz00_1462;
BgL_stringz00_1461 = BgL_filezd2namezd2_52; 
BgL_kz00_1462 = 
(int)(BgL_iz00_725); 
{ /* ./Llib/error.scm 451 */
bool_t BgL_testz00_2422;
{ /* ./Llib/error.scm 451 */
int BgL_auxz00_2423;
BgL_auxz00_2423 = 
STRING_LENGTH(BgL_stringz00_1461); 
BgL_testz00_2422 = 
BOUND_CHECK(BgL_kz00_1462, BgL_auxz00_2423); } 
if(BgL_testz00_2422)
{ /* ./Llib/error.scm 451 */
BgL_res2878z00_1469 = 
STRING_REF(BgL_stringz00_1461, BgL_kz00_1462); }  else 
{ /* ./Llib/error.scm 451 */
obj_t BgL_objectz00_1468;
BgL_objectz00_1468 = 
BINT(BgL_kz00_1462); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1468);} } } 
BgL_arg1340z00_729 = BgL_res2878z00_1469; } 
{ /* ./Llib/error.scm 451 */
obj_t BgL_auxz00_2431;obj_t BgL_auxz00_2429;
BgL_auxz00_2431 = 
BCHAR(((unsigned char)'/')); 
BgL_auxz00_2429 = 
BCHAR(BgL_arg1340z00_729); 
BgL_test1337z00_728 = 
(BgL_auxz00_2429==BgL_auxz00_2431); } } 
if(BgL_test1337z00_728)
{ /* ./Llib/error.scm 452 */
obj_t BgL_stringz00_1472;int BgL_kz00_1473;
BgL_stringz00_1472 = BgL_filezd2namezd2_52; 
BgL_kz00_1473 = 
(int)(BgL_iz00_725); 
{ /* ./Llib/error.scm 452 */
bool_t BgL_testz00_2436;
{ /* ./Llib/error.scm 452 */
int BgL_auxz00_2437;
BgL_auxz00_2437 = 
STRING_LENGTH(BgL_stringz00_1472); 
BgL_testz00_2436 = 
BOUND_CHECK(BgL_kz00_1473, BgL_auxz00_2437); } 
if(BgL_testz00_2436)
{ /* ./Llib/error.scm 452 */
STRING_SET(BgL_stringz00_1472, BgL_kz00_1473, ((unsigned char)'\\')); }  else 
{ /* ./Llib/error.scm 452 */
obj_t BgL_objectz00_1480;
BgL_objectz00_1480 = 
BINT(BgL_kz00_1473); 
FAILURE(BGl_string3250z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1480);} } }  else 
{ /* ./Llib/error.scm 451 */BFALSE; } } 
{ 
long BgL_iz00_2443;
BgL_iz00_2443 = 
(BgL_iz00_725+((long)1)); 
BgL_iz00_725 = BgL_iz00_2443; 
goto BgL_loopz00_726;} }  else 
{ /* ./Llib/error.scm 449 */((bool_t)0); } } } } }  else 
{ /* ./Llib/error.scm 444 */((bool_t)0); } } 
{ /* ./Llib/error.scm 454 */
obj_t BgL_portz00_733;
BgL_portz00_733 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_filezd2namezd2_52, BNIL); 
if(
INPUT_PORTP(BgL_portz00_733))
{ 
obj_t BgL_linezd2stringzd2_735;long BgL_linezd2numzd2_736;obj_t BgL_oldzd2poszd2_737;
{ /* ./Llib/error.scm 460 */
obj_t BgL_arg1359z00_739;
{ /* ./Llib/error.scm 460 */
obj_t BgL_list1364z00_742;
BgL_list1364z00_742 = 
MAKE_PAIR(BgL_portz00_733, BNIL); 
BgL_arg1359z00_739 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_list1364z00_742); } 
BgL_linezd2stringzd2_735 = BgL_arg1359z00_739; 
BgL_linezd2numzd2_736 = ((long)1); 
BgL_oldzd2poszd2_737 = 
BINT(((long)0)); 
BgL_loopz00_738:
{ /* ./Llib/error.scm 463 */
bool_t BgL_test1366z00_743;
BgL_test1366z00_743 = 
EOF_OBJECTP(BgL_linezd2stringzd2_735); 
if(BgL_test1366z00_743)
{ /* ./Llib/error.scm 463 */
close_input_port(BgL_portz00_733); 
return BGl_proc3251z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 470 */
bool_t BgL_test1370z00_748;
{ /* ./Llib/error.scm 470 */
int BgL_arg1388z00_754;
BgL_arg1388z00_754 = 
INPUT_PORT_FILEPOS(BgL_portz00_733); 
{ /* ./Llib/error.scm 470 */
long BgL_auxz00_2456;long BgL_auxz00_2454;
BgL_auxz00_2456 = 
(long)CINT(BgL_locationz00_53); 
BgL_auxz00_2454 = 
(long)(BgL_arg1388z00_754); 
BgL_test1370z00_748 = 
(BgL_auxz00_2454>=BgL_auxz00_2456); } } 
if(BgL_test1370z00_748)
{ /* ./Llib/error.scm 470 */
close_input_port(BgL_portz00_733); 
{ /* ./Llib/error.scm 477 */
long BgL_arg1374z00_749;
{ /* ./Llib/error.scm 477 */
long BgL_auxz00_2463;long BgL_auxz00_2461;
BgL_auxz00_2463 = 
(long)CINT(BgL_oldzd2poszd2_737); 
BgL_auxz00_2461 = 
(long)CINT(BgL_locationz00_53); 
BgL_arg1374z00_749 = 
(BgL_auxz00_2461-BgL_auxz00_2463); } 
return 
BGl_makezd2locationzd2notifierz00zz__errorz00(BgL_filezd2namezd2_52, BgL_linezd2numzd2_736, BgL_locationz00_53, BgL_linezd2stringzd2_735, BgL_arg1374z00_749);} }  else 
{ /* ./Llib/error.scm 478 */
int BgL_oldzd2poszd2_750;
BgL_oldzd2poszd2_750 = 
INPUT_PORT_FILEPOS(BgL_portz00_733); 
{ /* ./Llib/error.scm 479 */
obj_t BgL_arg1378z00_751;long BgL_arg1380z00_752;
{ /* ./Llib/error.scm 479 */
obj_t BgL_list1383z00_753;
BgL_list1383z00_753 = 
MAKE_PAIR(BgL_portz00_733, BNIL); 
BgL_arg1378z00_751 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_list1383z00_753); } 
BgL_arg1380z00_752 = 
(BgL_linezd2numzd2_736+((long)1)); 
{ 
obj_t BgL_oldzd2poszd2_2473;long BgL_linezd2numzd2_2472;obj_t BgL_linezd2stringzd2_2471;
BgL_linezd2stringzd2_2471 = BgL_arg1378z00_751; 
BgL_linezd2numzd2_2472 = BgL_arg1380z00_752; 
BgL_oldzd2poszd2_2473 = 
BINT(BgL_oldzd2poszd2_750); 
BgL_oldzd2poszd2_737 = BgL_oldzd2poszd2_2473; 
BgL_linezd2numzd2_736 = BgL_linezd2numzd2_2472; 
BgL_linezd2stringzd2_735 = BgL_linezd2stringzd2_2471; 
goto BgL_loopz00_738;} } } } } } }  else 
{ /* ./Llib/error.scm 455 */
return BFALSE;} } } 
}



/* _error/location-file */
obj_t BGl__errorzf2locationzd2filez20zz__errorz00(obj_t BgL_envz00_2024, obj_t BgL_filezd2namezd2_2025, obj_t BgL_locationz00_2026)
{ AN_OBJECT;
{ /* ./Llib/error.scm 442 */
return 
BGl_errorzf2locationzd2filez20zz__errorz00(BgL_filezd2namezd2_2025, BgL_locationz00_2026);} 
}



/* <anonymous:1368> */
obj_t BGl_zc3anonymousza31368ze3z83zz__errorz00(obj_t BgL_envz00_2027, obj_t BgL_procz00_2028, obj_t BgL_msgz00_2029, obj_t BgL_objz00_2030)
{ AN_OBJECT;
{ /* ./Llib/error.scm 467 */
{ 
obj_t BgL_procz00_744;obj_t BgL_msgz00_745;obj_t BgL_objz00_746;
BgL_procz00_744 = BgL_procz00_2028; 
BgL_msgz00_745 = BgL_msgz00_2029; 
BgL_objz00_746 = BgL_objz00_2030; 
BGl_za2errorzd2notifierza2zd2zz__errorz00 = BFALSE; 
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_744, BgL_msgz00_745, BgL_objz00_746);} } 
}



/* make-location-notifier */
obj_t BGl_makezd2locationzd2notifierz00zz__errorz00(obj_t BgL_fnamez00_54, long BgL_linez00_55, obj_t BgL_charz00_56, obj_t BgL_stringz00_57, long BgL_markerz00_58)
{ AN_OBJECT;
{ /* ./Llib/error.scm 486 */
{ /* ./Llib/error.scm 487 */
obj_t BgL_zc3anonymousza31395ze3z83_2031;
{ 
int BgL_auxz00_2480;int BgL_auxz00_2478;
BgL_auxz00_2480 = 
(int)(((long)5)); 
BgL_auxz00_2478 = 
(int)(((long)3)); 
BgL_zc3anonymousza31395ze3z83_2031 = 
make_fx_procedure(BGl_zc3anonymousza31395ze3z83zz__errorz00, BgL_auxz00_2478, BgL_auxz00_2480); } 
{ /* ./Llib/error.scm 487 */
obj_t BgL_auxz00_2485;int BgL_auxz00_2483;
BgL_auxz00_2485 = 
BINT(BgL_markerz00_58); 
BgL_auxz00_2483 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_2031, BgL_auxz00_2483, BgL_auxz00_2485); } 
{ /* ./Llib/error.scm 487 */
int BgL_auxz00_2488;
BgL_auxz00_2488 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_2031, BgL_auxz00_2488, BgL_stringz00_57); } 
{ /* ./Llib/error.scm 487 */
int BgL_auxz00_2491;
BgL_auxz00_2491 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_2031, BgL_auxz00_2491, BgL_fnamez00_54); } 
{ /* ./Llib/error.scm 487 */
obj_t BgL_auxz00_2496;int BgL_auxz00_2494;
BgL_auxz00_2496 = 
BINT(BgL_linez00_55); 
BgL_auxz00_2494 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_2031, BgL_auxz00_2494, BgL_auxz00_2496); } 
{ /* ./Llib/error.scm 487 */
int BgL_auxz00_2499;
BgL_auxz00_2499 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_2031, BgL_auxz00_2499, BgL_charz00_56); } 
return BgL_zc3anonymousza31395ze3z83_2031;} } 
}



/* <anonymous:1395> */
obj_t BGl_zc3anonymousza31395ze3z83zz__errorz00(obj_t BgL_envz00_2032, obj_t BgL_procz00_2038, obj_t BgL_msgz00_2039, obj_t BgL_objz00_2040)
{ AN_OBJECT;
{ /* ./Llib/error.scm 487 */
{ /* ./Llib/error.scm 489 */
obj_t BgL_markerz00_2033;obj_t BgL_stringz00_2034;obj_t BgL_fnamez00_2035;obj_t BgL_linez00_2036;obj_t BgL_charz00_2037;
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2502;
BgL_auxz00_2502 = 
(int)(((long)0)); 
BgL_markerz00_2033 = 
PROCEDURE_REF(BgL_envz00_2032, BgL_auxz00_2502); } 
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2505;
BgL_auxz00_2505 = 
(int)(((long)1)); 
BgL_stringz00_2034 = 
PROCEDURE_REF(BgL_envz00_2032, BgL_auxz00_2505); } 
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2508;
BgL_auxz00_2508 = 
(int)(((long)2)); 
BgL_fnamez00_2035 = 
PROCEDURE_REF(BgL_envz00_2032, BgL_auxz00_2508); } 
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2511;
BgL_auxz00_2511 = 
(int)(((long)3)); 
BgL_linez00_2036 = 
PROCEDURE_REF(BgL_envz00_2032, BgL_auxz00_2511); } 
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2514;
BgL_auxz00_2514 = 
(int)(((long)4)); 
BgL_charz00_2037 = 
PROCEDURE_REF(BgL_envz00_2032, BgL_auxz00_2514); } 
{ 
obj_t BgL_procz00_756;obj_t BgL_msgz00_757;obj_t BgL_objz00_758;
BgL_procz00_756 = BgL_procz00_2038; 
BgL_msgz00_757 = BgL_msgz00_2039; 
BgL_objz00_758 = BgL_objz00_2040; 
BGl_za2errorzd2notifierza2zd2zz__errorz00 = BFALSE; 
{ /* ./Llib/error.scm 490 */
obj_t BgL_portz00_760;
BgL_portz00_760 = 
BGL_CURRENT_ERROR_PORT(); 
FLUSH_OUTPUT_PORT(BgL_portz00_760); 
{ /* ./Llib/error.scm 493 */
obj_t BgL_list1398z00_761;
BgL_list1398z00_761 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1398z00_761); } 
{ /* ./Llib/error.scm 494 */
obj_t BgL_spacezd2stringzd2_762;
{ /* ./Llib/error.scm 494 */
bool_t BgL_testz00_2521;
{ /* ./Llib/error.scm 494 */
long BgL_auxz00_2522;
BgL_auxz00_2522 = 
(long)CINT(BgL_markerz00_2033); 
BgL_testz00_2521 = 
(BgL_auxz00_2522>((long)0)); } 
if(BgL_testz00_2521)
{ /* ./Llib/error.scm 495 */
long BgL_arg1439z00_777;
{ /* ./Llib/error.scm 495 */
long BgL_auxz00_2525;
BgL_auxz00_2525 = 
(long)CINT(BgL_markerz00_2033); 
BgL_arg1439z00_777 = 
(BgL_auxz00_2525-((long)1)); } 
{ /* ./Llib/error.scm 495 */
obj_t BgL_list1441z00_778;
{ /* ./Llib/error.scm 495 */
obj_t BgL_auxz00_2528;
BgL_auxz00_2528 = 
BCHAR(((unsigned char)' ')); 
BgL_list1441z00_778 = 
MAKE_PAIR(BgL_auxz00_2528, BNIL); } 
{ /* ./Llib/error.scm 495 */
obj_t BgL_res2879z00_1506;
{ /* ./Llib/error.scm 495 */
int BgL_kz00_1500;
BgL_kz00_1500 = 
(int)(BgL_arg1439z00_777); 
{ /* ./Llib/error.scm 495 */
obj_t BgL_arg2111z00_1503;
BgL_arg2111z00_1503 = 
CAR(BgL_list1441z00_778); 
{ /* ./Llib/error.scm 495 */
unsigned char BgL_auxz00_2533;
BgL_auxz00_2533 = 
(unsigned char)CCHAR(BgL_arg2111z00_1503); 
BgL_res2879z00_1506 = 
make_string(BgL_kz00_1500, BgL_auxz00_2533); } } } 
BgL_spacezd2stringzd2_762 = BgL_res2879z00_1506; } } }  else 
{ /* ./Llib/error.scm 494 */
BgL_spacezd2stringzd2_762 = BGl_string3252z00zz__errorz00; } } 
{ /* ./Llib/error.scm 494 */
int BgL_lz00_763;
BgL_lz00_763 = 
STRING_LENGTH(BgL_stringz00_2034); 
{ /* ./Llib/error.scm 497 */
obj_t BgL_nzd2markerzd2_764;
{ /* ./Llib/error.scm 498 */
bool_t BgL_testz00_2537;
{ /* ./Llib/error.scm 498 */
long BgL_auxz00_2540;long BgL_auxz00_2538;
BgL_auxz00_2540 = 
(long)(BgL_lz00_763); 
BgL_auxz00_2538 = 
(long)CINT(BgL_markerz00_2033); 
BgL_testz00_2537 = 
(BgL_auxz00_2538>=BgL_auxz00_2540); } 
if(BgL_testz00_2537)
{ /* ./Llib/error.scm 499 */
bool_t BgL_testz00_2543;
{ /* ./Llib/error.scm 499 */
long BgL_auxz00_2544;
BgL_auxz00_2544 = 
(long)(BgL_lz00_763); 
BgL_testz00_2543 = 
(BgL_auxz00_2544==((long)0)); } 
if(BgL_testz00_2543)
{ /* ./Llib/error.scm 499 */
BgL_nzd2markerzd2_764 = 
BINT(((long)0)); }  else 
{ /* ./Llib/error.scm 501 */
long BgL_auxz00_2548;
{ /* ./Llib/error.scm 501 */
long BgL_auxz00_2549;
BgL_auxz00_2549 = 
(long)(BgL_lz00_763); 
BgL_auxz00_2548 = 
(BgL_auxz00_2549-((long)1)); } 
BgL_nzd2markerzd2_764 = 
BINT(BgL_auxz00_2548); } }  else 
{ /* ./Llib/error.scm 498 */
BgL_nzd2markerzd2_764 = BgL_markerz00_2033; } } 
{ /* ./Llib/error.scm 498 */

BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2markerzd2_764, BgL_stringz00_2034, BgL_spacezd2stringzd2_762); 
BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_2035, BgL_linez00_2036, BgL_charz00_2037, BgL_stringz00_2034, BgL_spacezd2stringzd2_762); 
{ /* ./Llib/error.scm 508 */
obj_t BgL_list1403z00_765;
BgL_list1403z00_765 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string3253z00zz__errorz00, BgL_list1403z00_765); } 
{ /* ./Llib/error.scm 509 */
obj_t BgL_list1406z00_766;
BgL_list1406z00_766 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_procz00_756, BgL_list1406z00_766); } 
{ /* ./Llib/error.scm 510 */
obj_t BgL_list1409z00_767;
BgL_list1409z00_767 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1409z00_767); } 
{ /* ./Llib/error.scm 511 */
obj_t BgL_list1412z00_768;
BgL_list1412z00_768 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string3254z00zz__errorz00, BgL_list1412z00_768); } 
{ /* ./Llib/error.scm 512 */
obj_t BgL_list1415z00_769;
BgL_list1415z00_769 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_msgz00_757, BgL_list1415z00_769); } 
{ /* ./Llib/error.scm 513 */
obj_t BgL_list1418z00_770;
BgL_list1418z00_770 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string3233z00zz__errorz00, BgL_list1418z00_770); } 
{ /* ./Llib/error.scm 514 */
obj_t BgL_list1421z00_771;
BgL_list1421z00_771 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_objz00_758, BgL_list1421z00_771); } 
{ /* ./Llib/error.scm 515 */
obj_t BgL_list1424z00_772;
BgL_list1424z00_772 = 
MAKE_PAIR(BgL_portz00_760, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1424z00_772); } 
BGl_notifyzd2dumpzd2tracezd2stackzd2zz__errorz00(); 
{ /* ./Llib/error.scm 518 */
obj_t BgL_arg1428z00_773;
BgL_arg1428z00_773 = 
BGL_CURRENT_ERROR_PORT(); 
return 
FLUSH_OUTPUT_PORT(BgL_arg1428z00_773);} } } } } } } } } 
}



/* warning/location-file */
obj_t BGl_warningzf2locationzd2filez20zz__errorz00(obj_t BgL_filezd2namezd2_59, obj_t BgL_locationz00_60, obj_t BgL_argsz00_61)
{ AN_OBJECT;
{ /* ./Llib/error.scm 523 */
{ /* ./Llib/error.scm 525 */
obj_t BgL_portz00_779;
BgL_portz00_779 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_filezd2namezd2_59, BNIL); 
if(
INPUT_PORTP(BgL_portz00_779))
{ 
obj_t BgL_linezd2stringzd2_781;long BgL_linezd2numzd2_782;obj_t BgL_oldzd2poszd2_783;
{ /* ./Llib/error.scm 531 */
obj_t BgL_arg1448z00_785;
{ /* ./Llib/error.scm 531 */
obj_t BgL_list1453z00_788;
BgL_list1453z00_788 = 
MAKE_PAIR(BgL_portz00_779, BNIL); 
BgL_arg1448z00_785 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_list1453z00_788); } 
BgL_linezd2stringzd2_781 = BgL_arg1448z00_785; 
BgL_linezd2numzd2_782 = ((long)1); 
BgL_oldzd2poszd2_783 = 
BINT(((long)0)); 
BgL_loopz00_784:
{ /* ./Llib/error.scm 534 */
bool_t BgL_test1455z00_789;
BgL_test1455z00_789 = 
EOF_OBJECTP(BgL_linezd2stringzd2_781); 
if(BgL_test1455z00_789)
{ /* ./Llib/error.scm 534 */
close_input_port(BgL_portz00_779); 
return 
BGl_warningz00zz__errorz00(BgL_argsz00_61);}  else 
{ /* ./Llib/error.scm 539 */
bool_t BgL_test1458z00_791;
{ /* ./Llib/error.scm 539 */
int BgL_arg1474z00_797;
BgL_arg1474z00_797 = 
INPUT_PORT_FILEPOS(BgL_portz00_779); 
{ /* ./Llib/error.scm 539 */
long BgL_auxz00_2586;long BgL_auxz00_2584;
BgL_auxz00_2586 = 
(long)CINT(BgL_locationz00_60); 
BgL_auxz00_2584 = 
(long)(BgL_arg1474z00_797); 
BgL_test1458z00_791 = 
(BgL_auxz00_2584>=BgL_auxz00_2586); } } 
if(BgL_test1458z00_791)
{ /* ./Llib/error.scm 539 */
close_input_port(BgL_portz00_779); 
{ /* ./Llib/error.scm 542 */
long BgL_auxz00_2591;
{ /* ./Llib/error.scm 546 */
long BgL_auxz00_2594;long BgL_auxz00_2592;
BgL_auxz00_2594 = 
(long)CINT(BgL_oldzd2poszd2_783); 
BgL_auxz00_2592 = 
(long)CINT(BgL_locationz00_60); 
BgL_auxz00_2591 = 
(BgL_auxz00_2592-BgL_auxz00_2594); } 
return 
BGl_dozd2warnzf2locationz20zz__errorz00(BgL_filezd2namezd2_59, BgL_linezd2numzd2_782, BgL_locationz00_60, BgL_linezd2stringzd2_781, BgL_auxz00_2591, BgL_argsz00_61);} }  else 
{ /* ./Llib/error.scm 548 */
int BgL_oldzd2poszd2_793;
BgL_oldzd2poszd2_793 = 
INPUT_PORT_FILEPOS(BgL_portz00_779); 
{ /* ./Llib/error.scm 549 */
obj_t BgL_arg1465z00_794;long BgL_arg1466z00_795;
{ /* ./Llib/error.scm 549 */
obj_t BgL_list1469z00_796;
BgL_list1469z00_796 = 
MAKE_PAIR(BgL_portz00_779, BNIL); 
BgL_arg1465z00_794 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_list1469z00_796); } 
BgL_arg1466z00_795 = 
(BgL_linezd2numzd2_782+((long)1)); 
{ 
obj_t BgL_oldzd2poszd2_2604;long BgL_linezd2numzd2_2603;obj_t BgL_linezd2stringzd2_2602;
BgL_linezd2stringzd2_2602 = BgL_arg1465z00_794; 
BgL_linezd2numzd2_2603 = BgL_arg1466z00_795; 
BgL_oldzd2poszd2_2604 = 
BINT(BgL_oldzd2poszd2_793); 
BgL_oldzd2poszd2_783 = BgL_oldzd2poszd2_2604; 
BgL_linezd2numzd2_782 = BgL_linezd2numzd2_2603; 
BgL_linezd2stringzd2_781 = BgL_linezd2stringzd2_2602; 
goto BgL_loopz00_784;} } } } } } }  else 
{ /* ./Llib/error.scm 526 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_61);} } } 
}



/* do-warn/location */
obj_t BGl_dozd2warnzf2locationz20zz__errorz00(obj_t BgL_fnamez00_62, long BgL_linez00_63, obj_t BgL_charz00_64, obj_t BgL_stringz00_65, long BgL_markerz00_66, obj_t BgL_argsz00_67)
{ AN_OBJECT;
{ /* ./Llib/error.scm 556 */
{ /* ./Llib/error.scm 557 */
obj_t BgL_arg1483z00_800;
BgL_arg1483z00_800 = 
BGL_CURRENT_OUTPUT_PORT(); 
FLUSH_OUTPUT_PORT(BgL_arg1483z00_800); } 
{ /* ./Llib/error.scm 558 */
obj_t BgL_arg1487z00_801;
BgL_arg1487z00_801 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 558 */
obj_t BgL_list1489z00_802;
BgL_list1489z00_802 = 
MAKE_PAIR(BgL_arg1487z00_801, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1489z00_802); } } 
{ /* ./Llib/error.scm 559 */
long BgL_oldzd2lengthzd2_803;obj_t BgL_spacezd2stringzd2_804;long BgL_nzd2markerzd2_805;
BgL_oldzd2lengthzd2_803 = 
BGl_getzd2writezd2lengthz00zz__r4_output_6_10_3z00(); 
if(
(BgL_markerz00_66>((long)0)))
{ /* ./Llib/error.scm 561 */
long BgL_arg1540z00_826;
BgL_arg1540z00_826 = 
(BgL_markerz00_66-((long)1)); 
{ /* ./Llib/error.scm 561 */
obj_t BgL_list1542z00_827;
{ /* ./Llib/error.scm 561 */
obj_t BgL_auxz00_2617;
BgL_auxz00_2617 = 
BCHAR(((unsigned char)' ')); 
BgL_list1542z00_827 = 
MAKE_PAIR(BgL_auxz00_2617, BNIL); } 
{ /* ./Llib/error.scm 561 */
obj_t BgL_res2880z00_1538;
{ /* ./Llib/error.scm 561 */
int BgL_kz00_1532;
BgL_kz00_1532 = 
(int)(BgL_arg1540z00_826); 
{ /* ./Llib/error.scm 561 */
obj_t BgL_arg2111z00_1535;
BgL_arg2111z00_1535 = 
CAR(BgL_list1542z00_827); 
{ /* ./Llib/error.scm 561 */
unsigned char BgL_auxz00_2622;
BgL_auxz00_2622 = 
(unsigned char)CCHAR(BgL_arg2111z00_1535); 
BgL_res2880z00_1538 = 
make_string(BgL_kz00_1532, BgL_auxz00_2622); } } } 
BgL_spacezd2stringzd2_804 = BgL_res2880z00_1538; } } }  else 
{ /* ./Llib/error.scm 560 */
BgL_spacezd2stringzd2_804 = BGl_string3252z00zz__errorz00; } 
{ /* ./Llib/error.scm 563 */
bool_t BgL_testz00_2625;
{ /* ./Llib/error.scm 563 */
long BgL_auxz00_2626;
{ /* ./Llib/error.scm 563 */
int BgL_auxz00_2627;
BgL_auxz00_2627 = 
STRING_LENGTH(BgL_stringz00_65); 
BgL_auxz00_2626 = 
(long)(BgL_auxz00_2627); } 
BgL_testz00_2625 = 
(BgL_markerz00_66>=BgL_auxz00_2626); } 
if(BgL_testz00_2625)
{ /* ./Llib/error.scm 563 */
BgL_nzd2markerzd2_805 = 
(BgL_markerz00_66-((long)1)); }  else 
{ /* ./Llib/error.scm 563 */
BgL_nzd2markerzd2_805 = BgL_markerz00_66; } } 
BGl_fixzd2tabulationz12zc0zz__errorz00(
BINT(BgL_nzd2markerzd2_805), BgL_stringz00_65, BgL_spacezd2stringzd2_804); 
BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_62, 
BINT(BgL_linez00_63), BgL_charz00_64, BgL_stringz00_65, BgL_spacezd2stringzd2_804); 
{ /* ./Llib/error.scm 571 */
obj_t BgL_arg1496z00_807;
BgL_arg1496z00_807 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 571 */
obj_t BgL_list1498z00_808;
BgL_list1498z00_808 = 
MAKE_PAIR(BgL_arg1496z00_807, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string3255z00zz__errorz00, BgL_list1498z00_808); } } 
if(
NULLP(BgL_argsz00_67))
{ /* ./Llib/error.scm 572 */BFALSE; }  else 
{ /* ./Llib/error.scm 573 */
obj_t BgL_portz00_810;
BgL_portz00_810 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 574 */
obj_t BgL_arg1503z00_811;
BgL_arg1503z00_811 = 
CAR(BgL_argsz00_67); 
{ /* ./Llib/error.scm 574 */
obj_t BgL_list1505z00_812;
BgL_list1505z00_812 = 
MAKE_PAIR(BgL_portz00_810, BNIL); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1503z00_811, BgL_list1505z00_812); } } 
{ /* ./Llib/error.scm 575 */
obj_t BgL_list1509z00_813;
BgL_list1509z00_813 = 
MAKE_PAIR(BgL_portz00_810, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1509z00_813); } 
{ /* ./Llib/error.scm 576 */
obj_t BgL_arg1513z00_815;
BgL_arg1513z00_815 = 
CDR(BgL_argsz00_67); 
{ /* ./Llib/error.scm 576 */
obj_t BgL_list1515z00_816;
BgL_list1515z00_816 = 
MAKE_PAIR(BgL_arg1513z00_815, BNIL); 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BGl_proc3256z00zz__errorz00, BgL_list1515z00_816); } } } 
{ /* ./Llib/error.scm 579 */
obj_t BgL_arg1528z00_822;
BgL_arg1528z00_822 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 579 */
obj_t BgL_list1530z00_823;
BgL_list1530z00_823 = 
MAKE_PAIR(BgL_arg1528z00_822, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1530z00_823); } } 
{ /* ./Llib/error.scm 580 */
obj_t BgL_arg1534z00_824;
BgL_arg1534z00_824 = 
BGL_CURRENT_ERROR_PORT(); 
return 
FLUSH_OUTPUT_PORT(BgL_arg1534z00_824);} } } 
}



/* <anonymous:1517> */
obj_t BGl_zc3anonymousza31517ze3z83zz__errorz00(obj_t BgL_envz00_2042, obj_t BgL_az00_2043)
{ AN_OBJECT;
{ /* ./Llib/error.scm 576 */
{ 
obj_t BgL_az00_817;
BgL_az00_817 = BgL_az00_2043; 
{ /* ./Llib/error.scm 577 */
obj_t BgL_arg1519z00_1547;
BgL_arg1519z00_1547 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 577 */
obj_t BgL_list1521z00_1548;
BgL_list1521z00_1548 = 
MAKE_PAIR(BgL_arg1519z00_1547, BNIL); 
return 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_817, BgL_list1521z00_1548);} } } } 
}



/* fix-tabulation! */
obj_t BGl_fixzd2tabulationz12zc0zz__errorz00(obj_t BgL_markerz00_68, obj_t BgL_srcz00_69, obj_t BgL_dstz00_70)
{ AN_OBJECT;
{ /* ./Llib/error.scm 585 */
{ 
long BgL_readz00_830;
{ /* ./Llib/error.scm 586 */
long BgL_auxz00_2682;
BgL_auxz00_2682 = 
(long)CINT(BgL_markerz00_68); 
BgL_readz00_830 = 
(BgL_auxz00_2682-((long)1)); } 
BgL_loopz00_831:
if(
(BgL_readz00_830==((long)-1)))
{ /* ./Llib/error.scm 588 */
return BGl_symbol3257z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 590 */
bool_t BgL_test1557z00_834;
{ /* ./Llib/error.scm 590 */
unsigned char BgL_arg1568z00_837;
{ /* ./Llib/error.scm 590 */
unsigned char BgL_res2881z00_1562;
{ /* ./Llib/error.scm 590 */
int BgL_kz00_1555;
BgL_kz00_1555 = 
(int)(BgL_readz00_830); 
{ /* ./Llib/error.scm 590 */
bool_t BgL_testz00_2661;
{ /* ./Llib/error.scm 590 */
int BgL_auxz00_2662;
BgL_auxz00_2662 = 
STRING_LENGTH(BgL_srcz00_69); 
BgL_testz00_2661 = 
BOUND_CHECK(BgL_kz00_1555, BgL_auxz00_2662); } 
if(BgL_testz00_2661)
{ /* ./Llib/error.scm 590 */
BgL_res2881z00_1562 = 
STRING_REF(BgL_srcz00_69, BgL_kz00_1555); }  else 
{ /* ./Llib/error.scm 590 */
obj_t BgL_objectz00_1561;
BgL_objectz00_1561 = 
BINT(BgL_kz00_1555); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1561);} } } 
BgL_arg1568z00_837 = BgL_res2881z00_1562; } 
BgL_test1557z00_834 = 
(BgL_arg1568z00_837==((unsigned char)'\t')); } 
if(BgL_test1557z00_834)
{ /* ./Llib/error.scm 590 */
{ /* ./Llib/error.scm 591 */
int BgL_kz00_1566;
BgL_kz00_1566 = 
(int)(BgL_readz00_830); 
{ /* ./Llib/error.scm 591 */
bool_t BgL_testz00_2671;
{ /* ./Llib/error.scm 591 */
int BgL_auxz00_2672;
BgL_auxz00_2672 = 
STRING_LENGTH(BgL_dstz00_70); 
BgL_testz00_2671 = 
BOUND_CHECK(BgL_kz00_1566, BgL_auxz00_2672); } 
if(BgL_testz00_2671)
{ /* ./Llib/error.scm 591 */
STRING_SET(BgL_dstz00_70, BgL_kz00_1566, ((unsigned char)'\t')); }  else 
{ /* ./Llib/error.scm 591 */
obj_t BgL_objectz00_1573;
BgL_objectz00_1573 = 
BINT(BgL_kz00_1566); 
FAILURE(BGl_string3250z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1573);} } } 
{ 
long BgL_readz00_2678;
BgL_readz00_2678 = 
(BgL_readz00_830-((long)1)); 
BgL_readz00_830 = BgL_readz00_2678; 
goto BgL_loopz00_831;} }  else 
{ /* ./Llib/error.scm 590 */
{ 
long BgL_readz00_2680;
BgL_readz00_2680 = 
(BgL_readz00_830-((long)1)); 
BgL_readz00_830 = BgL_readz00_2680; 
goto BgL_loopz00_831;} } } } } 
}



/* print-cursor */
obj_t BGl_printzd2cursorzd2zz__errorz00(obj_t BgL_fnamez00_71, obj_t BgL_linez00_72, obj_t BgL_charz00_73, obj_t BgL_stringz00_74, obj_t BgL_spacezd2stringzd2_75)
{ AN_OBJECT;
{ /* ./Llib/error.scm 599 */
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1573z00_838;obj_t BgL_arg1575z00_840;
BgL_arg1573z00_838 = 
BGL_CURRENT_ERROR_PORT(); 
BgL_arg1575z00_840 = 
BGl_nicezd2fnamezd2zz__errorz00(BgL_fnamez00_71); 
{ /* ./Llib/error.scm 600 */
obj_t BgL_list1584z00_847;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1586z00_848;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1589z00_849;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1593z00_850;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1596z00_851;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1599z00_852;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1602z00_853;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1605z00_854;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1608z00_855;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1611z00_856;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1614z00_857;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1617z00_858;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1620z00_859;
{ /* ./Llib/error.scm 600 */
obj_t BgL_arg1623z00_860;
BgL_arg1623z00_860 = 
MAKE_PAIR(BGl_string3258z00zz__errorz00, BNIL); 
BgL_arg1620z00_859 = 
MAKE_PAIR(BgL_spacezd2stringzd2_75, BgL_arg1623z00_860); } 
BgL_arg1617z00_858 = 
MAKE_PAIR(BGl_string3259z00zz__errorz00, BgL_arg1620z00_859); } 
{ /* ./Llib/error.scm 600 */
obj_t BgL_auxz00_2690;
BgL_auxz00_2690 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1614z00_857 = 
MAKE_PAIR(BgL_auxz00_2690, BgL_arg1617z00_858); } } 
BgL_arg1611z00_856 = 
MAKE_PAIR(BgL_stringz00_74, BgL_arg1614z00_857); } 
BgL_arg1608z00_855 = 
MAKE_PAIR(BGl_string3259z00zz__errorz00, BgL_arg1611z00_856); } 
{ /* ./Llib/error.scm 600 */
obj_t BgL_auxz00_2695;
BgL_auxz00_2695 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1605z00_854 = 
MAKE_PAIR(BgL_auxz00_2695, BgL_arg1608z00_855); } } 
BgL_arg1602z00_853 = 
MAKE_PAIR(BGl_string3260z00zz__errorz00, BgL_arg1605z00_854); } 
BgL_arg1599z00_852 = 
MAKE_PAIR(BgL_charz00_73, BgL_arg1602z00_853); } 
BgL_arg1596z00_851 = 
MAKE_PAIR(BGl_string3261z00zz__errorz00, BgL_arg1599z00_852); } 
BgL_arg1593z00_850 = 
MAKE_PAIR(BgL_linez00_72, BgL_arg1596z00_851); } 
BgL_arg1589z00_849 = 
MAKE_PAIR(BGl_string3262z00zz__errorz00, BgL_arg1593z00_850); } 
BgL_arg1586z00_848 = 
MAKE_PAIR(BgL_arg1575z00_840, BgL_arg1589z00_849); } 
BgL_list1584z00_847 = 
MAKE_PAIR(BGl_string3263z00zz__errorz00, BgL_arg1586z00_848); } 
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1573z00_838, BgL_list1584z00_847);} } } 
}



/* nice-fname */
obj_t BGl_nicezd2fnamezd2zz__errorz00(obj_t BgL_fnamez00_76)
{ AN_OBJECT;
{ /* ./Llib/error.scm 614 */
{ /* ./Llib/error.scm 615 */
obj_t BgL_pwdz00_861;obj_t BgL_dnamez00_862;
BgL_pwdz00_861 = 
BGl_pwdz00zz__osz00(); 
BgL_dnamez00_862 = 
BGl_dirnamez00zz__osz00(BgL_fnamez00_76); 
{ /* ./Llib/error.scm 617 */
bool_t BgL_test1628z00_863;
if(
STRINGP(BgL_pwdz00_861))
{ /* ./Llib/error.scm 617 */
if(
bigloo_strcmp(BgL_dnamez00_862, BGl_string3264z00zz__errorz00))
{ /* ./Llib/error.scm 619 */
BgL_test1628z00_863 = ((bool_t)1); }  else 
{ /* ./Llib/error.scm 619 */
bool_t BgL_test1755z00_930;
{ /* ./Llib/error.scm 619 */
unsigned char BgL_arg1757z00_931;
{ /* ./Llib/error.scm 619 */
unsigned char BgL_res2882z00_1589;
{ /* ./Llib/error.scm 619 */
int BgL_kz00_1582;
BgL_kz00_1582 = 
(int)(((long)0)); 
{ /* ./Llib/error.scm 619 */
bool_t BgL_testz00_2713;
{ /* ./Llib/error.scm 619 */
int BgL_auxz00_2714;
BgL_auxz00_2714 = 
STRING_LENGTH(BgL_fnamez00_76); 
BgL_testz00_2713 = 
BOUND_CHECK(BgL_kz00_1582, BgL_auxz00_2714); } 
if(BgL_testz00_2713)
{ /* ./Llib/error.scm 619 */
BgL_res2882z00_1589 = 
STRING_REF(BgL_fnamez00_76, BgL_kz00_1582); }  else 
{ /* ./Llib/error.scm 619 */
obj_t BgL_objectz00_1588;
BgL_objectz00_1588 = 
BINT(BgL_kz00_1582); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1588);} } } 
BgL_arg1757z00_931 = BgL_res2882z00_1589; } 
BgL_test1755z00_930 = 
(BgL_arg1757z00_931==((unsigned char)'/')); } 
if(BgL_test1755z00_930)
{ /* ./Llib/error.scm 619 */
BgL_test1628z00_863 = ((bool_t)0); }  else 
{ /* ./Llib/error.scm 619 */
BgL_test1628z00_863 = ((bool_t)1); } } }  else 
{ /* ./Llib/error.scm 617 */
BgL_test1628z00_863 = ((bool_t)1); } 
if(BgL_test1628z00_863)
{ /* ./Llib/error.scm 617 */
return BgL_fnamez00_76;}  else 
{ /* ./Llib/error.scm 622 */
obj_t BgL_originalzd2cmpzd2pathz00_864;
BgL_originalzd2cmpzd2pathz00_864 = 
BGl_pathzd2ze3listz31zz__errorz00(BgL_dnamez00_862); 
{ 
obj_t BgL_cmpzd2pathzd2_865;obj_t BgL_curzd2pathzd2_866;
BgL_cmpzd2pathzd2_865 = BgL_originalzd2cmpzd2pathz00_864; 
BgL_curzd2pathzd2_866 = 
BGl_pathzd2ze3listz31zz__errorz00(BgL_pwdz00_861); 
BgL_loopz00_867:
if(
NULLP(BgL_cmpzd2pathzd2_865))
{ /* ./Llib/error.scm 626 */
if(
NULLP(BgL_curzd2pathzd2_866))
{ /* ./Llib/error.scm 627 */
return 
BGl_basenamez00zz__osz00(BgL_fnamez00_76);}  else 
{ /* ./Llib/error.scm 630 */
long BgL_arg1637z00_874;obj_t BgL_arg1638z00_875;
BgL_arg1637z00_874 = 
bgl_list_length(BgL_curzd2pathzd2_866); 
BgL_arg1638z00_875 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_76); 
{ 
long BgL_lenz00_1595;obj_t BgL_resz00_1596;
BgL_lenz00_1595 = BgL_arg1637z00_874; 
BgL_resz00_1596 = BgL_arg1638z00_875; 
BgL_loopz00_1594:
if(
(BgL_lenz00_1595==((long)0)))
{ /* ./Llib/error.scm 630 */
return BgL_resz00_1596;}  else 
{ /* ./Llib/error.scm 630 */
long BgL_arg1644z00_1604;obj_t BgL_arg1645z00_1605;
BgL_arg1644z00_1604 = 
(BgL_lenz00_1595-((long)1)); 
{ /* ./Llib/error.scm 630 */
obj_t BgL_list1649z00_1606;
{ /* ./Llib/error.scm 630 */
obj_t BgL_arg1652z00_1608;
BgL_arg1652z00_1608 = 
MAKE_PAIR(BgL_resz00_1596, BNIL); 
BgL_list1649z00_1606 = 
MAKE_PAIR(BGl_string3265z00zz__errorz00, BgL_arg1652z00_1608); } 
BgL_arg1645z00_1605 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1649z00_1606); } 
{ 
obj_t BgL_resz00_2738;long BgL_lenz00_2737;
BgL_lenz00_2737 = BgL_arg1644z00_1604; 
BgL_resz00_2738 = BgL_arg1645z00_1605; 
BgL_resz00_1596 = BgL_resz00_2738; 
BgL_lenz00_1595 = BgL_lenz00_2737; 
goto BgL_loopz00_1594;} } } } }  else 
{ /* ./Llib/error.scm 626 */
if(
NULLP(BgL_curzd2pathzd2_866))
{ /* ./Llib/error.scm 635 */
{ 
obj_t BgL_pathz00_883;obj_t BgL_resz00_884;
BgL_pathz00_883 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_cmpzd2pathzd2_865); 
BgL_resz00_884 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_76); 
BgL_loopz00_885:
if(
NULLP(BgL_pathz00_883))
{ /* ./Llib/error.scm 638 */
return BgL_resz00_884;}  else 
{ /* ./Llib/error.scm 640 */
obj_t BgL_arg1666z00_889;obj_t BgL_arg1667z00_890;
BgL_arg1666z00_889 = 
CDR(BgL_pathz00_883); 
{ /* ./Llib/error.scm 641 */
obj_t BgL_arg1671z00_891;
BgL_arg1671z00_891 = 
CAR(BgL_pathz00_883); 
{ /* ./Llib/error.scm 641 */
obj_t BgL_list1674z00_893;
{ /* ./Llib/error.scm 641 */
obj_t BgL_arg1676z00_894;
{ /* ./Llib/error.scm 641 */
obj_t BgL_arg1679z00_895;
BgL_arg1679z00_895 = 
MAKE_PAIR(BgL_resz00_884, BNIL); 
BgL_arg1676z00_894 = 
MAKE_PAIR(BGl_string3266z00zz__errorz00, BgL_arg1679z00_895); } 
BgL_list1674z00_893 = 
MAKE_PAIR(BgL_arg1671z00_891, BgL_arg1676z00_894); } 
BgL_arg1667z00_890 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1674z00_893); } } 
{ 
obj_t BgL_resz00_2750;obj_t BgL_pathz00_2749;
BgL_pathz00_2749 = BgL_arg1666z00_889; 
BgL_resz00_2750 = BgL_arg1667z00_890; 
BgL_resz00_884 = BgL_resz00_2750; 
BgL_pathz00_883 = BgL_pathz00_2749; 
goto BgL_loopz00_885;} } } }  else 
{ /* ./Llib/error.scm 642 */
bool_t BgL_testz00_2753;
{ /* ./Llib/error.scm 642 */
obj_t BgL_auxz00_2756;obj_t BgL_auxz00_2754;
BgL_auxz00_2756 = 
CAR(BgL_cmpzd2pathzd2_865); 
BgL_auxz00_2754 = 
CAR(BgL_curzd2pathzd2_866); 
BgL_testz00_2753 = 
bigloo_strcmp(BgL_auxz00_2754, BgL_auxz00_2756); } 
if(BgL_testz00_2753)
{ /* ./Llib/error.scm 642 */
{ 
obj_t BgL_curzd2pathzd2_2761;obj_t BgL_cmpzd2pathzd2_2759;
BgL_cmpzd2pathzd2_2759 = 
CDR(BgL_cmpzd2pathzd2_865); 
BgL_curzd2pathzd2_2761 = 
CDR(BgL_curzd2pathzd2_866); 
BgL_curzd2pathzd2_866 = BgL_curzd2pathzd2_2761; 
BgL_cmpzd2pathzd2_865 = BgL_cmpzd2pathzd2_2759; 
goto BgL_loopz00_867;} }  else 
{ /* ./Llib/error.scm 642 */
{ 
obj_t BgL_pathz00_899;obj_t BgL_resz00_900;
BgL_pathz00_899 = 
bgl_reverse(BgL_cmpzd2pathzd2_865); 
BgL_resz00_900 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_76); 
BgL_loopz00_901:
if(
NULLP(BgL_pathz00_899))
{ /* ./Llib/error.scm 647 */
if(
(BgL_cmpzd2pathzd2_865==BgL_originalzd2cmpzd2pathz00_864))
{ /* ./Llib/error.scm 649 */
obj_t BgL_list1700z00_906;
{ /* ./Llib/error.scm 649 */
obj_t BgL_arg1703z00_908;
BgL_arg1703z00_908 = 
MAKE_PAIR(BgL_resz00_900, BNIL); 
BgL_list1700z00_906 = 
MAKE_PAIR(BGl_string3266z00zz__errorz00, BgL_arg1703z00_908); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1700z00_906);}  else 
{ /* ./Llib/error.scm 650 */
long BgL_arg1707z00_912;
BgL_arg1707z00_912 = 
bgl_list_length(BgL_curzd2pathzd2_866); 
{ 
long BgL_lenz00_1649;obj_t BgL_resz00_1650;
BgL_lenz00_1649 = BgL_arg1707z00_912; 
BgL_resz00_1650 = BgL_resz00_900; 
BgL_loopz00_1648:
if(
(BgL_lenz00_1649==((long)0)))
{ /* ./Llib/error.scm 650 */
return BgL_resz00_1650;}  else 
{ /* ./Llib/error.scm 650 */
long BgL_arg1712z00_1658;obj_t BgL_arg1713z00_1659;
BgL_arg1712z00_1658 = 
(BgL_lenz00_1649-((long)1)); 
{ /* ./Llib/error.scm 650 */
obj_t BgL_list1717z00_1660;
{ /* ./Llib/error.scm 650 */
obj_t BgL_arg1720z00_1662;
BgL_arg1720z00_1662 = 
MAKE_PAIR(BgL_resz00_1650, BNIL); 
BgL_list1717z00_1660 = 
MAKE_PAIR(BGl_string3265z00zz__errorz00, BgL_arg1720z00_1662); } 
BgL_arg1713z00_1659 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1717z00_1660); } 
{ 
obj_t BgL_resz00_2778;long BgL_lenz00_2777;
BgL_lenz00_2777 = BgL_arg1712z00_1658; 
BgL_resz00_2778 = BgL_arg1713z00_1659; 
BgL_resz00_1650 = BgL_resz00_2778; 
BgL_lenz00_1649 = BgL_lenz00_2777; 
goto BgL_loopz00_1648;} } } } }  else 
{ /* ./Llib/error.scm 656 */
obj_t BgL_arg1726z00_919;obj_t BgL_arg1727z00_920;
BgL_arg1726z00_919 = 
CDR(BgL_pathz00_899); 
{ /* ./Llib/error.scm 657 */
obj_t BgL_arg1731z00_921;
BgL_arg1731z00_921 = 
CAR(BgL_pathz00_899); 
{ /* ./Llib/error.scm 657 */
obj_t BgL_list1734z00_923;
{ /* ./Llib/error.scm 657 */
obj_t BgL_arg1736z00_924;
{ /* ./Llib/error.scm 657 */
obj_t BgL_arg1739z00_925;
BgL_arg1739z00_925 = 
MAKE_PAIR(BgL_resz00_900, BNIL); 
BgL_arg1736z00_924 = 
MAKE_PAIR(BGl_string3266z00zz__errorz00, BgL_arg1739z00_925); } 
BgL_list1734z00_923 = 
MAKE_PAIR(BgL_arg1731z00_921, BgL_arg1736z00_924); } 
BgL_arg1727z00_920 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1734z00_923); } } 
{ 
obj_t BgL_resz00_2786;obj_t BgL_pathz00_2785;
BgL_pathz00_2785 = BgL_arg1726z00_919; 
BgL_resz00_2786 = BgL_arg1727z00_920; 
BgL_resz00_900 = BgL_resz00_2786; 
BgL_pathz00_899 = BgL_pathz00_2785; 
goto BgL_loopz00_901;} } } } } } } } } } } 
}



/* path->list */
obj_t BGl_pathzd2ze3listz31zz__errorz00(obj_t BgL_pathz00_77)
{ AN_OBJECT;
{ /* ./Llib/error.scm 662 */
{ /* ./Llib/error.scm 663 */
obj_t BgL_lenz00_932;long BgL_initz00_933;
{ /* ./Llib/error.scm 663 */
int BgL_lenz00_949;
BgL_lenz00_949 = 
STRING_LENGTH(BgL_pathz00_77); 
{ /* ./Llib/error.scm 664 */
bool_t BgL_test1796z00_950;
{ /* ./Llib/error.scm 664 */
unsigned char BgL_arg1799z00_951;
{ /* ./Llib/error.scm 664 */
long BgL_arg1802z00_952;
{ /* ./Llib/error.scm 664 */
long BgL_auxz00_2791;
BgL_auxz00_2791 = 
(long)(BgL_lenz00_949); 
BgL_arg1802z00_952 = 
(BgL_auxz00_2791-((long)1)); } 
{ /* ./Llib/error.scm 664 */
unsigned char BgL_res2883z00_1702;
{ /* ./Llib/error.scm 664 */
int BgL_kz00_1695;
BgL_kz00_1695 = 
(int)(BgL_arg1802z00_952); 
if(
BOUND_CHECK(BgL_kz00_1695, BgL_lenz00_949))
{ /* ./Llib/error.scm 664 */
BgL_res2883z00_1702 = 
STRING_REF(BgL_pathz00_77, BgL_kz00_1695); }  else 
{ /* ./Llib/error.scm 664 */
obj_t BgL_objectz00_1701;
BgL_objectz00_1701 = 
BINT(BgL_kz00_1695); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1701);} } 
BgL_arg1799z00_951 = BgL_res2883z00_1702; } } 
BgL_test1796z00_950 = 
(BgL_arg1799z00_951==((unsigned char)'/')); } 
if(BgL_test1796z00_950)
{ /* ./Llib/error.scm 665 */
long BgL_auxz00_2802;
{ /* ./Llib/error.scm 665 */
long BgL_auxz00_2803;
BgL_auxz00_2803 = 
(long)(BgL_lenz00_949); 
BgL_auxz00_2802 = 
(BgL_auxz00_2803-((long)1)); } 
BgL_lenz00_932 = 
BINT(BgL_auxz00_2802); }  else 
{ /* ./Llib/error.scm 664 */
BgL_lenz00_932 = 
BINT(BgL_lenz00_949); } } } 
{ /* ./Llib/error.scm 667 */
bool_t BgL_test1807z00_953;
{ /* ./Llib/error.scm 667 */
unsigned char BgL_arg1809z00_954;
{ /* ./Llib/error.scm 667 */
unsigned char BgL_res2884z00_1715;
{ /* ./Llib/error.scm 667 */
int BgL_kz00_1708;
BgL_kz00_1708 = 
(int)(((long)0)); 
{ /* ./Llib/error.scm 667 */
bool_t BgL_testz00_2809;
{ /* ./Llib/error.scm 667 */
int BgL_auxz00_2810;
BgL_auxz00_2810 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_testz00_2809 = 
BOUND_CHECK(BgL_kz00_1708, BgL_auxz00_2810); } 
if(BgL_testz00_2809)
{ /* ./Llib/error.scm 667 */
BgL_res2884z00_1715 = 
STRING_REF(BgL_pathz00_77, BgL_kz00_1708); }  else 
{ /* ./Llib/error.scm 667 */
obj_t BgL_objectz00_1714;
BgL_objectz00_1714 = 
BINT(BgL_kz00_1708); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1714);} } } 
BgL_arg1809z00_954 = BgL_res2884z00_1715; } 
BgL_test1807z00_953 = 
(BgL_arg1809z00_954==((unsigned char)'/')); } 
if(BgL_test1807z00_953)
{ /* ./Llib/error.scm 667 */
BgL_initz00_933 = ((long)1); }  else 
{ /* ./Llib/error.scm 667 */
BgL_initz00_933 = ((long)0); } } 
if(
bigloo_strcmp(BgL_pathz00_77, BGl_string3266z00zz__errorz00))
{ /* ./Llib/error.scm 668 */
return BNIL;}  else 
{ 
long BgL_readz00_935;long BgL_prevz00_936;obj_t BgL_listz00_937;
BgL_readz00_935 = BgL_initz00_933; 
BgL_prevz00_936 = BgL_initz00_933; 
BgL_listz00_937 = BNIL; 
BgL_loopz00_938:
{ /* ./Llib/error.scm 674 */
bool_t BgL_testz00_2820;
{ /* ./Llib/error.scm 674 */
long BgL_auxz00_2821;
BgL_auxz00_2821 = 
(long)CINT(BgL_lenz00_932); 
BgL_testz00_2820 = 
(BgL_readz00_935==BgL_auxz00_2821); } 
if(BgL_testz00_2820)
{ /* ./Llib/error.scm 674 */
{ /* ./Llib/error.scm 675 */
obj_t BgL_arg1768z00_940;
{ /* ./Llib/error.scm 675 */
obj_t BgL_arg1771z00_941;
{ /* ./Llib/error.scm 675 */
obj_t BgL_res2885z00_1750;
{ /* ./Llib/error.scm 675 */
int BgL_startz00_1723;int BgL_endz00_1724;
BgL_startz00_1723 = 
(int)(BgL_prevz00_936); 
BgL_endz00_1724 = 
(int)(BgL_readz00_935); 
{ /* ./Llib/error.scm 675 */
bool_t BgL_test2045z00_1725;
{ /* ./Llib/error.scm 675 */
bool_t BgL_testz00_2826;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2829;long BgL_auxz00_2827;
BgL_auxz00_2829 = 
(long)(BgL_startz00_1723); 
BgL_auxz00_2827 = 
(long)(BgL_endz00_1724); 
BgL_testz00_2826 = 
(BgL_auxz00_2827>=BgL_auxz00_2829); } 
if(BgL_testz00_2826)
{ /* ./Llib/error.scm 675 */
bool_t BgL_testz00_2832;
{ /* ./Llib/error.scm 675 */
int BgL_auxz00_2833;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2834;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2835;
{ /* ./Llib/error.scm 675 */
int BgL_auxz00_2836;
BgL_auxz00_2836 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_auxz00_2835 = 
(long)(BgL_auxz00_2836); } 
BgL_auxz00_2834 = 
(BgL_auxz00_2835+((long)1)); } 
BgL_auxz00_2833 = 
(int)(BgL_auxz00_2834); } 
BgL_testz00_2832 = 
BOUND_CHECK(BgL_startz00_1723, BgL_auxz00_2833); } 
if(BgL_testz00_2832)
{ /* ./Llib/error.scm 675 */
int BgL_auxz00_2842;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2843;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2844;
{ /* ./Llib/error.scm 675 */
int BgL_auxz00_2845;
BgL_auxz00_2845 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_auxz00_2844 = 
(long)(BgL_auxz00_2845); } 
BgL_auxz00_2843 = 
(BgL_auxz00_2844+((long)1)); } 
BgL_auxz00_2842 = 
(int)(BgL_auxz00_2843); } 
BgL_test2045z00_1725 = 
BOUND_CHECK(BgL_endz00_1724, BgL_auxz00_2842); }  else 
{ /* ./Llib/error.scm 675 */
BgL_test2045z00_1725 = ((bool_t)0); } }  else 
{ /* ./Llib/error.scm 675 */
BgL_test2045z00_1725 = ((bool_t)0); } } 
if(BgL_test2045z00_1725)
{ /* ./Llib/error.scm 675 */
BgL_res2885z00_1750 = 
c_substring(BgL_pathz00_77, BgL_startz00_1723, BgL_endz00_1724); }  else 
{ /* ./Llib/error.scm 675 */
obj_t BgL_arg2050z00_1736;
{ /* ./Llib/error.scm 675 */
obj_t BgL_auxz00_2855;obj_t BgL_auxz00_2853;
BgL_auxz00_2855 = 
BINT(BgL_endz00_1724); 
BgL_auxz00_2853 = 
BINT(BgL_startz00_1723); 
BgL_arg2050z00_1736 = 
MAKE_PAIR(BgL_auxz00_2853, BgL_auxz00_2855); } 
FAILURE(BGl_string3247z00zz__errorz00,BGl_string3248z00zz__errorz00,BgL_arg2050z00_1736);} } } 
BgL_arg1771z00_941 = BgL_res2885z00_1750; } 
BgL_arg1768z00_940 = 
MAKE_PAIR(BgL_arg1771z00_941, BgL_listz00_937); } 
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg1768z00_940);} }  else 
{ /* ./Llib/error.scm 676 */
bool_t BgL_test1774z00_942;
{ /* ./Llib/error.scm 676 */
unsigned char BgL_arg1791z00_948;
{ /* ./Llib/error.scm 676 */
unsigned char BgL_res2886z00_1761;
{ /* ./Llib/error.scm 676 */
int BgL_kz00_1754;
BgL_kz00_1754 = 
(int)(BgL_readz00_935); 
{ /* ./Llib/error.scm 676 */
bool_t BgL_testz00_2862;
{ /* ./Llib/error.scm 676 */
int BgL_auxz00_2863;
BgL_auxz00_2863 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_testz00_2862 = 
BOUND_CHECK(BgL_kz00_1754, BgL_auxz00_2863); } 
if(BgL_testz00_2862)
{ /* ./Llib/error.scm 676 */
BgL_res2886z00_1761 = 
STRING_REF(BgL_pathz00_77, BgL_kz00_1754); }  else 
{ /* ./Llib/error.scm 676 */
obj_t BgL_objectz00_1760;
BgL_objectz00_1760 = 
BINT(BgL_kz00_1754); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1760);} } } 
BgL_arg1791z00_948 = BgL_res2886z00_1761; } 
BgL_test1774z00_942 = 
(BgL_arg1791z00_948==((unsigned char)'/')); } 
if(BgL_test1774z00_942)
{ /* ./Llib/error.scm 676 */
{ /* ./Llib/error.scm 677 */
long BgL_arg1776z00_943;long BgL_arg1777z00_944;obj_t BgL_arg1778z00_945;
BgL_arg1776z00_943 = 
(BgL_readz00_935+((long)1)); 
BgL_arg1777z00_944 = 
(BgL_readz00_935+((long)1)); 
{ /* ./Llib/error.scm 679 */
obj_t BgL_arg1783z00_946;
{ /* ./Llib/error.scm 679 */
obj_t BgL_res2887z00_1796;
{ /* ./Llib/error.scm 679 */
int BgL_startz00_1769;int BgL_endz00_1770;
BgL_startz00_1769 = 
(int)(BgL_prevz00_936); 
BgL_endz00_1770 = 
(int)(BgL_readz00_935); 
{ /* ./Llib/error.scm 679 */
bool_t BgL_test2045z00_1771;
{ /* ./Llib/error.scm 679 */
bool_t BgL_testz00_2875;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2878;long BgL_auxz00_2876;
BgL_auxz00_2878 = 
(long)(BgL_startz00_1769); 
BgL_auxz00_2876 = 
(long)(BgL_endz00_1770); 
BgL_testz00_2875 = 
(BgL_auxz00_2876>=BgL_auxz00_2878); } 
if(BgL_testz00_2875)
{ /* ./Llib/error.scm 679 */
bool_t BgL_testz00_2881;
{ /* ./Llib/error.scm 679 */
int BgL_auxz00_2882;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2883;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2884;
{ /* ./Llib/error.scm 679 */
int BgL_auxz00_2885;
BgL_auxz00_2885 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_auxz00_2884 = 
(long)(BgL_auxz00_2885); } 
BgL_auxz00_2883 = 
(BgL_auxz00_2884+((long)1)); } 
BgL_auxz00_2882 = 
(int)(BgL_auxz00_2883); } 
BgL_testz00_2881 = 
BOUND_CHECK(BgL_startz00_1769, BgL_auxz00_2882); } 
if(BgL_testz00_2881)
{ /* ./Llib/error.scm 679 */
int BgL_auxz00_2891;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2892;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2893;
{ /* ./Llib/error.scm 679 */
int BgL_auxz00_2894;
BgL_auxz00_2894 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_auxz00_2893 = 
(long)(BgL_auxz00_2894); } 
BgL_auxz00_2892 = 
(BgL_auxz00_2893+((long)1)); } 
BgL_auxz00_2891 = 
(int)(BgL_auxz00_2892); } 
BgL_test2045z00_1771 = 
BOUND_CHECK(BgL_endz00_1770, BgL_auxz00_2891); }  else 
{ /* ./Llib/error.scm 679 */
BgL_test2045z00_1771 = ((bool_t)0); } }  else 
{ /* ./Llib/error.scm 679 */
BgL_test2045z00_1771 = ((bool_t)0); } } 
if(BgL_test2045z00_1771)
{ /* ./Llib/error.scm 679 */
BgL_res2887z00_1796 = 
c_substring(BgL_pathz00_77, BgL_startz00_1769, BgL_endz00_1770); }  else 
{ /* ./Llib/error.scm 679 */
obj_t BgL_arg2050z00_1782;
{ /* ./Llib/error.scm 679 */
obj_t BgL_auxz00_2904;obj_t BgL_auxz00_2902;
BgL_auxz00_2904 = 
BINT(BgL_endz00_1770); 
BgL_auxz00_2902 = 
BINT(BgL_startz00_1769); 
BgL_arg2050z00_1782 = 
MAKE_PAIR(BgL_auxz00_2902, BgL_auxz00_2904); } 
FAILURE(BGl_string3247z00zz__errorz00,BGl_string3248z00zz__errorz00,BgL_arg2050z00_1782);} } } 
BgL_arg1783z00_946 = BgL_res2887z00_1796; } 
BgL_arg1778z00_945 = 
MAKE_PAIR(BgL_arg1783z00_946, BgL_listz00_937); } 
{ 
obj_t BgL_listz00_2911;long BgL_prevz00_2910;long BgL_readz00_2909;
BgL_readz00_2909 = BgL_arg1776z00_943; 
BgL_prevz00_2910 = BgL_arg1777z00_944; 
BgL_listz00_2911 = BgL_arg1778z00_945; 
BgL_listz00_937 = BgL_listz00_2911; 
BgL_prevz00_936 = BgL_prevz00_2910; 
BgL_readz00_935 = BgL_readz00_2909; 
goto BgL_loopz00_938;} } }  else 
{ /* ./Llib/error.scm 676 */
{ 
long BgL_readz00_2912;
BgL_readz00_2912 = 
(BgL_readz00_935+((long)1)); 
BgL_readz00_935 = BgL_readz00_2912; 
goto BgL_loopz00_938;} } } } } } } 
}



/* find-runtime-type */
BGL_EXPORTED_DEF obj_t BGl_findzd2runtimezd2typez00zz__errorz00(obj_t BgL_objz00_78)
{ AN_OBJECT;
{ /* ./Llib/error.scm 689 */
if(
INTEGERP(BgL_objz00_78))
{ /* ./Llib/error.scm 691 */
return BGl_string3267z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 691 */
if(
REALP(BgL_objz00_78))
{ /* ./Llib/error.scm 693 */
return BGl_string3268z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 693 */
if(
STRINGP(BgL_objz00_78))
{ /* ./Llib/error.scm 695 */
return BGl_string3269z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 695 */
if(
SYMBOLP(BgL_objz00_78))
{ /* ./Llib/error.scm 697 */
return BGl_string3270z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 697 */
if(
KEYWORDP(BgL_objz00_78))
{ /* ./Llib/error.scm 699 */
return BGl_string3271z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 699 */
if(
CHARP(BgL_objz00_78))
{ /* ./Llib/error.scm 701 */
return BGl_string3272z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 701 */
if(
BOOLEANP(BgL_objz00_78))
{ /* ./Llib/error.scm 703 */
return BGl_string3273z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 703 */
if(
NULLP(BgL_objz00_78))
{ /* ./Llib/error.scm 705 */
return BGl_string3274z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 707 */
bool_t BgL_test1820z00_963;
BgL_test1820z00_963 = 
EXTENDED_PAIRP(BgL_objz00_78); 
if(BgL_test1820z00_963)
{ /* ./Llib/error.scm 707 */
return BGl_string3275z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 707 */
if(
PAIRP(BgL_objz00_78))
{ /* ./Llib/error.scm 709 */
return BGl_string3276z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 709 */
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_78))
{ /* ./Llib/error.scm 711 */
return BGl_string3277z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 711 */
if(
VECTORP(BgL_objz00_78))
{ /* ./Llib/error.scm 713 */
return BGl_string3278z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 713 */
if(
TVECTORP(BgL_objz00_78))
{ /* ./Llib/error.scm 715 */
return BGl_string3279z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 715 */
if(
STRUCTP(BgL_objz00_78))
{ /* ./Llib/error.scm 717 */
return BGl_string3280z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 717 */
if(
PROCEDUREP(BgL_objz00_78))
{ /* ./Llib/error.scm 719 */
return BGl_string3281z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 719 */
if(
INPUT_PORTP(BgL_objz00_78))
{ /* ./Llib/error.scm 721 */
return BGl_string3282z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 721 */
if(
OUTPUT_PORTP(BgL_objz00_78))
{ /* ./Llib/error.scm 723 */
return BGl_string3283z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 723 */
if(
BINARY_PORTP(BgL_objz00_78))
{ /* ./Llib/error.scm 725 */
return BGl_string3284z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 725 */
if(
CELLP(BgL_objz00_78))
{ /* ./Llib/error.scm 727 */
return BGl_string3285z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 727 */
if(
FOREIGNP(BgL_objz00_78))
{ /* ./Llib/error.scm 729 */
{ /* ./Llib/error.scm 730 */
obj_t BgL_arg1837z00_976;
{ /* ./Llib/error.scm 730 */
obj_t BgL_arg1845z00_979;
BgL_arg1845z00_979 = 
FOREIGN_ID(BgL_objz00_78); 
BgL_arg1837z00_976 = 
SYMBOL_TO_STRING(BgL_arg1845z00_979); } 
{ /* ./Llib/error.scm 730 */
obj_t BgL_list1839z00_977;
{ /* ./Llib/error.scm 730 */
obj_t BgL_arg1841z00_978;
BgL_arg1841z00_978 = 
MAKE_PAIR(BgL_arg1837z00_976, BNIL); 
BgL_list1839z00_977 = 
MAKE_PAIR(BGl_string3286z00zz__errorz00, BgL_arg1841z00_978); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1839z00_977);} } }  else 
{ /* ./Llib/error.scm 729 */
if(
CNSTP(BgL_objz00_78))
{ /* ./Llib/error.scm 731 */
return BGl_string3287z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 731 */
if(
SOCKETP(BgL_objz00_78))
{ /* ./Llib/error.scm 733 */
return BGl_string3288z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 733 */
if(
PROCESSP(BgL_objz00_78))
{ /* ./Llib/error.scm 735 */
return BGl_string3289z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 735 */
if(
CUSTOMP(BgL_objz00_78))
{ /* ./Llib/error.scm 737 */
return BGl_string3290z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 737 */
if(
OPAQUEP(BgL_objz00_78))
{ /* ./Llib/error.scm 739 */
return BGl_string3291z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 741 */
bool_t BgL_test1853z00_985;
BgL_test1853z00_985 = 
BGL_OBJECTP(BgL_objz00_78); 
if(BgL_test1853z00_985)
{ /* ./Llib/error.scm 741 */
{ /* ./Llib/error.scm 742 */
obj_t BgL_classz00_986;
{ /* ./Llib/error.scm 742 */
BgL_objectz00_bglt BgL_objectz00_1826;
BgL_objectz00_1826 = 
(BgL_objectz00_bglt)(BgL_objz00_78); 
{ /* ./Llib/error.scm 742 */
long BgL_arg2824z00_1827;
{ /* ./Llib/error.scm 742 */
long BgL_arg2827z00_1828;
BgL_arg2827z00_1828 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1826); 
BgL_arg2824z00_1827 = 
(BgL_arg2827z00_1828-OBJECT_TYPE); } 
{ 
int BgL_auxz00_2974;
BgL_auxz00_2974 = 
(int)(BgL_arg2824z00_1827); 
BgL_classz00_986 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_2974); } } } 
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_986))
{ /* ./Llib/error.scm 749 */
obj_t BgL_auxz00_2979;
BgL_auxz00_2979 = 
BGl_classzd2namezd2zz__objectz00(BgL_classz00_986); 
return 
SYMBOL_TO_STRING(BgL_auxz00_2979);}  else 
{ /* ./Llib/error.scm 746 */
return BGl_string3292z00zz__errorz00;} } }  else 
{ /* ./Llib/error.scm 741 */
if(
UCS2_STRINGP(BgL_objz00_78))
{ /* ./Llib/error.scm 752 */
return BGl_string3293z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 752 */
if(
UCS2P(BgL_objz00_78))
{ /* ./Llib/error.scm 754 */
return BGl_string3294z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 754 */
if(
ELONGP(BgL_objz00_78))
{ /* ./Llib/error.scm 756 */
return BGl_string3295z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 756 */
if(
LLONGP(BgL_objz00_78))
{ /* ./Llib/error.scm 758 */
return BGl_string3296z00zz__errorz00;}  else 
{ /* ./Llib/error.scm 758 */
{ /* ./Llib/error.scm 761 */
char * BgL_auxz00_2990;
BgL_auxz00_2990 = 
FOREIGN_TYPE_NAME(BgL_objz00_78); 
return 
string_to_bstring(BgL_auxz00_2990);} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 
}



/* _find-runtime-type */
obj_t BGl__findzd2runtimezd2typez00zz__errorz00(obj_t BgL_envz00_2044, obj_t BgL_objz00_2045)
{ AN_OBJECT;
{ /* ./Llib/error.scm 689 */
return 
BGl_findzd2runtimezd2typez00zz__errorz00(BgL_objz00_2045);} 
}



/* module-init-error */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char * BgL_currentz00_79, char * BgL_fromz00_80)
{ AN_OBJECT;
{ /* ./Llib/error.scm 766 */
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1897z00_994;
BgL_arg1897z00_994 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 767 */
obj_t BgL_list1906z00_1001;
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1908z00_1002;
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1911z00_1003;
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1915z00_1004;
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1919z00_1005;
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1922z00_1006;
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1925z00_1007;
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1928z00_1008;
{ /* ./Llib/error.scm 767 */
obj_t BgL_arg1931z00_1009;
BgL_arg1931z00_1009 = 
MAKE_PAIR(BGl_string3297z00zz__errorz00, BNIL); 
BgL_arg1928z00_1008 = 
MAKE_PAIR(BGl_string3298z00zz__errorz00, BgL_arg1931z00_1009); } 
{ /* ./Llib/error.scm 767 */
obj_t BgL_auxz00_2997;
BgL_auxz00_2997 = 
string_to_bstring(BgL_fromz00_80); 
BgL_arg1925z00_1007 = 
MAKE_PAIR(BgL_auxz00_2997, BgL_arg1928z00_1008); } } 
BgL_arg1922z00_1006 = 
MAKE_PAIR(BGl_string3299z00zz__errorz00, BgL_arg1925z00_1007); } 
{ /* ./Llib/error.scm 767 */
obj_t BgL_auxz00_3001;
BgL_auxz00_3001 = 
string_to_bstring(BgL_currentz00_79); 
BgL_arg1919z00_1005 = 
MAKE_PAIR(BgL_auxz00_3001, BgL_arg1922z00_1006); } } 
BgL_arg1915z00_1004 = 
MAKE_PAIR(BGl_string3300z00zz__errorz00, BgL_arg1919z00_1005); } 
BgL_arg1911z00_1003 = 
MAKE_PAIR(BGl_string3301z00zz__errorz00, BgL_arg1915z00_1004); } 
{ /* ./Llib/error.scm 767 */
obj_t BgL_auxz00_3006;
BgL_auxz00_3006 = 
string_to_bstring(BgL_currentz00_79); 
BgL_arg1908z00_1002 = 
MAKE_PAIR(BgL_auxz00_3006, BgL_arg1911z00_1003); } } 
BgL_list1906z00_1001 = 
MAKE_PAIR(BGl_string3302z00zz__errorz00, BgL_arg1908z00_1002); } 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1897z00_994, BgL_list1906z00_1001); } } 
{ /* ./Llib/error.scm 771 */
obj_t BgL_auxz00_3011;
BgL_auxz00_3011 = 
BINT(((long)-1)); 
return 
BIGLOO_EXIT(BgL_auxz00_3011);} } 
}



/* _module-init-error */
obj_t BGl__modulezd2initzd2errorz00zz__errorz00(obj_t BgL_envz00_2046, obj_t BgL_currentz00_2047, obj_t BgL_fromz00_2048)
{ AN_OBJECT;
{ /* ./Llib/error.scm 766 */
return 
BGl_modulezd2initzd2errorz00zz__errorz00(
BSTRING_TO_STRING(BgL_currentz00_2047), 
BSTRING_TO_STRING(BgL_fromz00_2048));} 
}



/* bigloo-type-error */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t BgL_procz00_81, obj_t BgL_typez00_82, obj_t BgL_objz00_83)
{ AN_OBJECT;
{ /* ./Llib/error.scm 776 */
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1938z00_1840;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1943z00_1842;
BgL_arg1943z00_1842 = 
BGl_findzd2runtimezd2typez00zz__errorz00(BgL_objz00_83); 
{ /* ./Llib/error.scm 778 */
obj_t BgL_res2888z00_1854;
{ /* ./Llib/error.scm 778 */
obj_t BgL_list1238z00_1846;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1240z00_1847;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1244z00_1849;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1249z00_1850;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1254z00_1852;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1258z00_1853;
BgL_arg1258z00_1853 = 
MAKE_PAIR(BGl_string3234z00zz__errorz00, BNIL); 
BgL_arg1254z00_1852 = 
MAKE_PAIR(BgL_arg1943z00_1842, BgL_arg1258z00_1853); } 
BgL_arg1249z00_1850 = 
MAKE_PAIR(BGl_string3235z00zz__errorz00, BgL_arg1254z00_1852); } 
BgL_arg1244z00_1849 = 
MAKE_PAIR(BgL_typez00_82, BgL_arg1249z00_1850); } 
BgL_arg1240z00_1847 = 
MAKE_PAIR(BGl_string3236z00zz__errorz00, BgL_arg1244z00_1849); } 
BgL_list1238z00_1846 = 
MAKE_PAIR(BGl_string3303z00zz__errorz00, BgL_arg1240z00_1847); } 
BgL_res2888z00_1854 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1238z00_1846); } 
BgL_arg1938z00_1840 = BgL_res2888z00_1854; } } 
FAILURE(BgL_procz00_81,BgL_arg1938z00_1840,BgL_objz00_83);} } 
}



/* _bigloo-type-error */
obj_t BGl__bigloozd2typezd2errorz00zz__errorz00(obj_t BgL_envz00_2049, obj_t BgL_procz00_2050, obj_t BgL_typez00_2051, obj_t BgL_objz00_2052)
{ AN_OBJECT;
{ /* ./Llib/error.scm 776 */
return 
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procz00_2050, BgL_typez00_2051, BgL_objz00_2052);} 
}



/* bigloo-type-error/location */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t BgL_procz00_84, obj_t BgL_typez00_85, obj_t BgL_objz00_86, obj_t BgL_fnamez00_87, obj_t BgL_locationz00_88)
{ AN_OBJECT;
{ /* ./Llib/error.scm 784 */
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1948z00_1858;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1952z00_1860;
BgL_arg1952z00_1860 = 
BGl_findzd2runtimezd2typez00zz__errorz00(BgL_objz00_86); 
{ /* ./Llib/error.scm 786 */
obj_t BgL_res2889z00_1872;
{ /* ./Llib/error.scm 786 */
obj_t BgL_list1238z00_1864;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1240z00_1865;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1244z00_1867;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1249z00_1868;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1254z00_1870;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1258z00_1871;
BgL_arg1258z00_1871 = 
MAKE_PAIR(BGl_string3234z00zz__errorz00, BNIL); 
BgL_arg1254z00_1870 = 
MAKE_PAIR(BgL_arg1952z00_1860, BgL_arg1258z00_1871); } 
BgL_arg1249z00_1868 = 
MAKE_PAIR(BGl_string3235z00zz__errorz00, BgL_arg1254z00_1870); } 
BgL_arg1244z00_1867 = 
MAKE_PAIR(BgL_typez00_85, BgL_arg1249z00_1868); } 
BgL_arg1240z00_1865 = 
MAKE_PAIR(BGl_string3236z00zz__errorz00, BgL_arg1244z00_1867); } 
BgL_list1238z00_1864 = 
MAKE_PAIR(BGl_string3303z00zz__errorz00, BgL_arg1240z00_1865); } 
BgL_res2889z00_1872 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1238z00_1864); } 
BgL_arg1948z00_1858 = BgL_res2889z00_1872; } } 
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_84, BgL_arg1948z00_1858, BgL_objz00_86, BgL_fnamez00_87, BgL_locationz00_88);} } 
}



/* _bigloo-type-error/location */
obj_t BGl__bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t BgL_envz00_2053, obj_t BgL_procz00_2054, obj_t BgL_typez00_2055, obj_t BgL_objz00_2056, obj_t BgL_fnamez00_2057, obj_t BgL_locationz00_2058)
{ AN_OBJECT;
{ /* ./Llib/error.scm 784 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BgL_procz00_2054, BgL_typez00_2055, BgL_objz00_2056, BgL_fnamez00_2057, BgL_locationz00_2058);} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zz__errorz00()
{ AN_OBJECT;
{ /* ./Llib/error.scm 18 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__errorz00()
{ AN_OBJECT;
{ /* ./Llib/error.scm 18 */
return 
BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(((long)50132), "__error");} 
}

