/*===========================================================================*/
/*   (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 -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Llib/error.scm -indent -o objs/obj_s/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_1985, char * BgL_fromz00_1986)
{ 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_1998;
BgL_auxz00_1998 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_envzd2valuezd2_606, BNIL); 
BGl_za2tracezd2stackzd2depthza2z00zz__errorz00 = 
BINT(BgL_auxz00_1998); }  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_2009;
{ /* ./Llib/error.scm 151 */
obj_t BgL_auxz00_2010;
BgL_auxz00_2010 = 
CAR(BgL_nz00_1); 
BgL_testz00_2009 = 
INTEGERP(BgL_auxz00_2010); } 
if(BgL_testz00_2009)
{ /* ./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_1880, obj_t BgL_nz00_1881)
{ AN_OBJECT;
{ /* ./Llib/error.scm 147 */
return 
BGl_exitz00zz__errorz00(BgL_nz00_1881);} 
}



/* 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_1882, obj_t BgL_handlerz00_1883, obj_t BgL_escapez00_1884)
{ AN_OBJECT;
{ /* ./Llib/error.scm 170 */
return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_handlerz00_1883, BgL_escapez00_1884);} 
}



/* 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_2025;
BgL_auxz00_2025 = 
CDR(BgL_errorzd2handlerzd2_619); 
SET_ERROR_HANDLER(BgL_auxz00_2025); } 
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_2029;
BgL_auxz00_2029 = 
BINT(((long)1)); 
return 
BIGLOO_EXIT(BgL_auxz00_2029);} } } } 
}



/* _remove-error-handler! */
obj_t BGl__removezd2errorzd2handlerz12z12zz__errorz00(obj_t BgL_envz00_1885)
{ 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_2036;
BgL_auxz00_2036 = 
CAR(BgL_hdlz00_622); 
BgL_handlerz00_624 = 
CAR(BgL_auxz00_2036); } 
{ /* ./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_2042;
BgL_auxz00_2042 = 
(long)(BgL_arg1064z00_627); 
BgL_test1059z00_625 = 
(BgL_auxz00_2042==((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_2047;
BgL_auxz00_2047 = 
BINT(((long)1)); 
return 
BIGLOO_EXIT(BgL_auxz00_2047);} } } }  else 
{ /* ./Llib/error.scm 194 */
return BGl_defaultzd2errorzd2handlerzd2envzd2zz__errorz00;} } } 
}



/* _current-error-handler */
obj_t BGl__currentzd2errorzd2handlerz00zz__errorz00(obj_t BgL_envz00_1886)
{ 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_1891, obj_t BgL_procz00_1892, obj_t BgL_messagez00_1893, obj_t BgL_objectz00_1894)
{ AN_OBJECT;
{ /* ./Llib/error.scm 206 */
FAILURE(BgL_procz00_1892,BgL_messagez00_1893,BgL_objectz00_1894);} 
}



/* 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_1896, obj_t BgL_argsz00_1897)
{ AN_OBJECT;
{ /* ./Llib/error.scm 212 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_1897);} 
}



/* <anonymous:1116> */
obj_t BGl_zc3anonymousza31116ze3z83zz__errorz00(obj_t BgL_envz00_1898, obj_t BgL_az00_1899)
{ AN_OBJECT;
{ /* ./Llib/error.scm 222 */
{ 
obj_t BgL_az00_645;
BgL_az00_645 = BgL_az00_1899; 
{ /* ./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_1900, obj_t BgL_fnamez00_1901, obj_t BgL_locationz00_1902, obj_t BgL_argsz00_1903)
{ AN_OBJECT;
{ /* ./Llib/error.scm 231 */
return 
BGl_warningzf2locationzf2zz__errorz00(BgL_fnamez00_1901, BgL_locationz00_1902, BgL_argsz00_1903);} 
}



/* 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_2094;
BgL_auxz00_2094 = 
BINT(BgL_locationz00_12); 
BgL_arg1144z00_1279 = 
MAKE_PAIR(BgL_auxz00_2094, BgL_argsz00_13); } 
{ /* ./Llib/error.scm 249 */
obj_t BgL_auxz00_2097;
BgL_auxz00_2097 = 
string_to_bstring(BgL_fnamez00_11); 
BgL_runner1149z00_1278 = 
MAKE_PAIR(BgL_auxz00_2097, 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_1904, obj_t BgL_fnamez00_1905, obj_t BgL_locationz00_1906, obj_t BgL_argsz00_1907)
{ AN_OBJECT;
{ /* ./Llib/error.scm 248 */
return 
BGl_warningzf2czd2locationz20zz__errorz00(
BSTRING_TO_STRING(BgL_fnamez00_1905), 
(long)CINT(BgL_locationz00_1906), BgL_argsz00_1907);} 
}



/* 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_2120;
BgL_auxz00_2120 = 
CAR(BgL_errorzd2handlerzd2_661); 
BgL_handlerz00_663 = 
CAR(BgL_auxz00_2120); } 
{ /* ./Llib/error.scm 260 */
obj_t BgL_auxz00_2123;
BgL_auxz00_2123 = 
CAR(BgL_errorzd2handlerzd2_661); 
BgL_escapez00_664 = 
CDR(BgL_auxz00_2123); } 
{ /* ./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_2129;
BgL_auxz00_2129 = 
(long)(BgL_arg1161z00_667); 
BgL_test1156z00_665 = 
(BgL_auxz00_2129==((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_1908, obj_t BgL_procz00_1909, obj_t BgL_messagez00_1910, obj_t BgL_objectz00_1911)
{ AN_OBJECT;
{ /* ./Llib/error.scm 254 */
return 
the_failure(BgL_procz00_1909, BgL_messagez00_1910, BgL_objectz00_1911);} 
}



/* 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_1912, obj_t BgL_procz00_1913, obj_t BgL_messagez00_1914, obj_t BgL_objectz00_1915)
{ AN_OBJECT;
{ /* ./Llib/error.scm 268 */
return 
the_c_failure(
BSTRING_TO_STRING(BgL_procz00_1913), 
BSTRING_TO_STRING(BgL_messagez00_1914), BgL_objectz00_1915);} 
}



/* 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_2148;
BgL_auxz00_2148 = 
(long)CINT(BGl_za2debugza2z00zz__errorz00); 
BgL_test1182z00_672 = 
(BgL_auxz00_2148>((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_2152;
BgL_auxz00_2152 = 
BGl_getenvz00zz__osz00("BIGLOOSTACKDEPTH"); 
BgL_test1180z00_671 = 
STRINGP(BgL_auxz00_2152); } } 
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_2160;
BgL_auxz00_2160 = 
CINT(BgL_depthz00_1320); 
return 
dump_trace_stack(BgL_arg1034z00_1322, BgL_auxz00_2160);} } }  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_1916, obj_t BgL_sigz00_1917)
{ AN_OBJECT;
{ /* ./Llib/error.scm 282 */
return 
BGl_notifyzd2interruptzd2zz__errorz00(
CINT(BgL_sigz00_1917));} 
}



/* 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_677;
BgL_portz00_677 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 298 */
obj_t BgL_list1196z00_678;
BgL_list1196z00_678 = 
MAKE_PAIR(BgL_portz00_677, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1196z00_678); } 
{ /* ./Llib/error.scm 299 */
obj_t BgL_list1199z00_679;
BgL_list1199z00_679 = 
MAKE_PAIR(BGl_string3230z00zz__errorz00, BNIL); 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_677, BgL_list1199z00_679); } 
return 
FLUSH_OUTPUT_PORT(BgL_portz00_677);} } 
}



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



/* 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_1920, obj_t BgL_procz00_1921, obj_t BgL_mesz00_1922, obj_t BgL_objz00_1923)
{ AN_OBJECT;
{ /* ./Llib/error.scm 305 */
return 
BGl_notifyzd2errorzd2zz__errorz00(BgL_procz00_1921, BgL_mesz00_1922, BgL_objz00_1923);} 
}



/* 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_1331;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1240z00_1332;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1244z00_1334;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1249z00_1335;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1254z00_1337;
{ /* ./Llib/error.scm 325 */
obj_t BgL_arg1258z00_1338;
BgL_arg1258z00_1338 = 
MAKE_PAIR(BGl_string3234z00zz__errorz00, BNIL); 
BgL_arg1254z00_1337 = 
MAKE_PAIR(BgL_toz00_27, BgL_arg1258z00_1338); } 
BgL_arg1249z00_1335 = 
MAKE_PAIR(BGl_string3235z00zz__errorz00, BgL_arg1254z00_1337); } 
BgL_arg1244z00_1334 = 
MAKE_PAIR(BgL_fromz00_26, BgL_arg1249z00_1335); } 
BgL_arg1240z00_1332 = 
MAKE_PAIR(BGl_string3236z00zz__errorz00, BgL_arg1244z00_1334); } 
BgL_list1238z00_1331 = 
MAKE_PAIR(BgL_prefixz00_25, BgL_arg1240z00_1332); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1238z00_1331);} } 
}



/* _bigloo-type-error-msg */
obj_t BGl__bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t BgL_envz00_1924, obj_t BgL_prefixz00_1925, obj_t BgL_fromz00_1926, obj_t BgL_toz00_1927)
{ AN_OBJECT;
{ /* ./Llib/error.scm 324 */
return 
BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(BgL_prefixz00_1925, BgL_fromz00_1926, BgL_toz00_1927);} 
}



/* 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_1887, obj_t BgL_procz00_1888, obj_t BgL_mesz00_1889, obj_t BgL_objz00_1890)
{ AN_OBJECT;
{ /* ./Llib/error.scm 335 */
{ /* ./Llib/error.scm 336 */
long BgL_auxz00_2212;
BgL_auxz00_2212 = 
BGl_defaultzd2errorzd2handlerz00zz__errorz00(BgL_procz00_1888, BgL_mesz00_1889, BgL_objz00_1890); 
return 
BINT(BgL_auxz00_2212);} } 
}



/* 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_1872, obj_t BgL_nz00_1873)
{ AN_OBJECT;
{ /* ./Llib/error.scm 348 */
return 
BGl_sigfpezd2errorzd2handlerz00zz__errorz00(BgL_nz00_1873);} 
}



/* 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_1874, obj_t BgL_nz00_1875)
{ AN_OBJECT;
{ /* ./Llib/error.scm 354 */
return 
BGl_sigillzd2errorzd2handlerz00zz__errorz00(BgL_nz00_1875);} 
}



/* 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_1876, obj_t BgL_nz00_1877)
{ AN_OBJECT;
{ /* ./Llib/error.scm 360 */
return 
BGl_sigbuszd2errorzd2handlerz00zz__errorz00(BgL_nz00_1877);} 
}



/* 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_1878, obj_t BgL_nz00_1879)
{ AN_OBJECT;
{ /* ./Llib/error.scm 366 */
return 
BGl_sigsegvzd2errorzd2handlerz00zz__errorz00(BgL_nz00_1879);} 
}



/* 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_1928, obj_t BgL_procz00_1929, obj_t BgL_messagez00_1930, obj_t BgL_objectz00_1931, obj_t BgL_fnamez00_1932, obj_t BgL_locationz00_1933)
{ AN_OBJECT;
{ /* ./Llib/error.scm 384 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_1929, BgL_messagez00_1930, BgL_objectz00_1931, BgL_fnamez00_1932, BgL_locationz00_1933);} 
}



/* 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_1934, obj_t BgL_procz00_1935, obj_t BgL_messagez00_1936, obj_t BgL_objectz00_1937, obj_t BgL_fnamez00_1938, obj_t BgL_locationz00_1939)
{ AN_OBJECT;
{ /* ./Llib/error.scm 407 */
return 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procz00_1935, BgL_messagez00_1936, BgL_objectz00_1937, 
BSTRING_TO_STRING(BgL_fnamez00_1938), 
(long)CINT(BgL_locationz00_1939));} 
}



/* 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_1940, obj_t BgL_procz00_1941, obj_t BgL_messagez00_1942, obj_t BgL_objectz00_1943, obj_t BgL_fnamez00_1944, obj_t BgL_locationz00_1945)
{ AN_OBJECT;
{ /* ./Llib/error.scm 418 */
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BgL_procz00_1941, BgL_messagez00_1942, BgL_objectz00_1943, BgL_fnamez00_1944, BgL_locationz00_1945);} 
}



/* 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_2252;
{ /* ./Llib/error.scm 430 */
int BgL_auxz00_2253;
BgL_auxz00_2253 = 
(int)(((long)10)); 
BgL_testz00_2252 = 
bigloo_strncmp(BGl_string3244z00zz__errorz00, BgL_strz00_51, BgL_auxz00_2253); } 
if(BgL_testz00_2252)
{ /* ./Llib/error.scm 431 */
bool_t BgL_test1290z00_706;
{ /* ./Llib/error.scm 431 */
bool_t BgL_testz00_2256;
{ /* ./Llib/error.scm 431 */
long BgL_auxz00_2257;
{ /* ./Llib/error.scm 431 */
int BgL_auxz00_2258;
BgL_auxz00_2258 = 
STRING_LENGTH(BgL_strz00_51); 
BgL_auxz00_2257 = 
(long)(BgL_auxz00_2258); } 
BgL_testz00_2256 = 
(BgL_auxz00_2257>((long)12)); } 
if(BgL_testz00_2256)
{ /* ./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_1399;
{ /* ./Llib/error.scm 432 */
int BgL_kz00_1392;
BgL_kz00_1392 = 
(int)(((long)10)); 
{ /* ./Llib/error.scm 432 */
bool_t BgL_testz00_2263;
{ /* ./Llib/error.scm 432 */
int BgL_auxz00_2264;
BgL_auxz00_2264 = 
STRING_LENGTH(BgL_strz00_51); 
BgL_testz00_2263 = 
BOUND_CHECK(BgL_kz00_1392, BgL_auxz00_2264); } 
if(BgL_testz00_2263)
{ /* ./Llib/error.scm 432 */
BgL_res2873z00_1399 = 
STRING_REF(BgL_strz00_51, BgL_kz00_1392); }  else 
{ /* ./Llib/error.scm 432 */
obj_t BgL_objectz00_1398;
BgL_objectz00_1398 = 
BINT(BgL_kz00_1392); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1398);} } } 
BgL_arg1324z00_720 = BgL_res2873z00_1399; } 
{ /* ./Llib/error.scm 432 */
bool_t BgL_res2874z00_1401;
BgL_res2874z00_1401 = 
isalpha(BgL_arg1324z00_720); 
BgL_test1318z00_718 = BgL_res2874z00_1401; } } 
if(BgL_test1318z00_718)
{ /* ./Llib/error.scm 433 */
unsigned char BgL_arg1320z00_719;
{ /* ./Llib/error.scm 433 */
unsigned char BgL_res2875z00_1410;
{ /* ./Llib/error.scm 433 */
int BgL_kz00_1403;
BgL_kz00_1403 = 
(int)(((long)11)); 
{ /* ./Llib/error.scm 433 */
bool_t BgL_testz00_2273;
{ /* ./Llib/error.scm 433 */
int BgL_auxz00_2274;
BgL_auxz00_2274 = 
STRING_LENGTH(BgL_strz00_51); 
BgL_testz00_2273 = 
BOUND_CHECK(BgL_kz00_1403, BgL_auxz00_2274); } 
if(BgL_testz00_2273)
{ /* ./Llib/error.scm 433 */
BgL_res2875z00_1410 = 
STRING_REF(BgL_strz00_51, BgL_kz00_1403); }  else 
{ /* ./Llib/error.scm 433 */
obj_t BgL_objectz00_1409;
BgL_objectz00_1409 = 
BINT(BgL_kz00_1403); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1409);} } } 
BgL_arg1320z00_719 = BgL_res2875z00_1410; } 
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_1421;
{ /* ./Llib/error.scm 434 */
int BgL_kz00_1414;
BgL_kz00_1414 = 
(int)(((long)10)); 
{ /* ./Llib/error.scm 434 */
bool_t BgL_testz00_2283;
{ /* ./Llib/error.scm 434 */
int BgL_auxz00_2284;
BgL_auxz00_2284 = 
STRING_LENGTH(BgL_strz00_51); 
BgL_testz00_2283 = 
BOUND_CHECK(BgL_kz00_1414, BgL_auxz00_2284); } 
if(BgL_testz00_2283)
{ /* ./Llib/error.scm 434 */
BgL_res2876z00_1421 = 
STRING_REF(BgL_strz00_51, BgL_kz00_1414); }  else 
{ /* ./Llib/error.scm 434 */
obj_t BgL_objectz00_1420;
BgL_objectz00_1420 = 
BINT(BgL_kz00_1414); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1420);} } } 
BgL_arg1301z00_711 = BgL_res2876z00_1421; } 
{ /* ./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_2290;
BgL_auxz00_2290 = 
BCHAR(((unsigned char)'/')); 
BgL_arg1308z00_714 = 
MAKE_PAIR(BgL_auxz00_2290, BNIL); } 
{ /* ./Llib/error.scm 434 */
obj_t BgL_auxz00_2293;
BgL_auxz00_2293 = 
BCHAR(((unsigned char)':')); 
BgL_arg1305z00_713 = 
MAKE_PAIR(BgL_auxz00_2293, BgL_arg1308z00_714); } } 
{ /* ./Llib/error.scm 434 */
obj_t BgL_auxz00_2296;
BgL_auxz00_2296 = 
BCHAR(BgL_arg1301z00_711); 
BgL_list1303z00_712 = 
MAKE_PAIR(BgL_auxz00_2296, 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_1452;
{ /* ./Llib/error.scm 435 */
int BgL_startz00_1425;
BgL_startz00_1425 = 
(int)(((long)12)); 
{ /* ./Llib/error.scm 435 */
bool_t BgL_test2045z00_1427;
{ /* ./Llib/error.scm 435 */
bool_t BgL_testz00_2302;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2305;long BgL_auxz00_2303;
BgL_auxz00_2305 = 
(long)(BgL_startz00_1425); 
BgL_auxz00_2303 = 
(long)(BgL_arg1314z00_716); 
BgL_testz00_2302 = 
(BgL_auxz00_2303>=BgL_auxz00_2305); } 
if(BgL_testz00_2302)
{ /* ./Llib/error.scm 435 */
bool_t BgL_testz00_2308;
{ /* ./Llib/error.scm 435 */
int BgL_auxz00_2309;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2310;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2311;
BgL_auxz00_2311 = 
(long)(BgL_arg1314z00_716); 
BgL_auxz00_2310 = 
(BgL_auxz00_2311+((long)1)); } 
BgL_auxz00_2309 = 
(int)(BgL_auxz00_2310); } 
BgL_testz00_2308 = 
BOUND_CHECK(BgL_startz00_1425, BgL_auxz00_2309); } 
if(BgL_testz00_2308)
{ /* ./Llib/error.scm 435 */
int BgL_auxz00_2316;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2317;
{ /* ./Llib/error.scm 435 */
long BgL_auxz00_2318;
BgL_auxz00_2318 = 
(long)(BgL_arg1314z00_716); 
BgL_auxz00_2317 = 
(BgL_auxz00_2318+((long)1)); } 
BgL_auxz00_2316 = 
(int)(BgL_auxz00_2317); } 
BgL_test2045z00_1427 = 
BOUND_CHECK(BgL_arg1314z00_716, BgL_auxz00_2316); }  else 
{ /* ./Llib/error.scm 435 */
BgL_test2045z00_1427 = ((bool_t)0); } }  else 
{ /* ./Llib/error.scm 435 */
BgL_test2045z00_1427 = ((bool_t)0); } } 
if(BgL_test2045z00_1427)
{ /* ./Llib/error.scm 435 */
BgL_res2877z00_1452 = 
c_substring(BgL_strz00_51, BgL_startz00_1425, BgL_arg1314z00_716); }  else 
{ /* ./Llib/error.scm 435 */
obj_t BgL_arg2050z00_1438;
{ /* ./Llib/error.scm 435 */
obj_t BgL_auxz00_2327;obj_t BgL_auxz00_2325;
BgL_auxz00_2327 = 
BINT(BgL_arg1314z00_716); 
BgL_auxz00_2325 = 
BINT(BgL_startz00_1425); 
BgL_arg2050z00_1438 = 
MAKE_PAIR(BgL_auxz00_2325, BgL_auxz00_2327); } 
FAILURE(BGl_string3247z00zz__errorz00,BGl_string3248z00zz__errorz00,BgL_arg2050z00_1438);} } } 
BgL_arg1293z00_708 = BgL_res2877z00_1452; } } 
{ /* ./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_2334;
{ /* ./Llib/error.scm 444 */
obj_t BgL_auxz00_2335;
BgL_auxz00_2335 = 
BGl_oszd2classzd2zz__osz00(); 
BgL_testz00_2334 = 
bigloo_strcmp(BgL_auxz00_2335, BGl_string3249z00zz__errorz00); } 
if(BgL_testz00_2334)
{ /* ./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_2340;
{ /* ./Llib/error.scm 449 */
long BgL_auxz00_2341;
BgL_auxz00_2341 = 
(long)(BgL_filezd2namezd2lengthz00_724); 
BgL_testz00_2340 = 
(BgL_iz00_725<BgL_auxz00_2341); } 
if(BgL_testz00_2340)
{ /* ./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_1466;
{ /* ./Llib/error.scm 451 */
obj_t BgL_stringz00_1458;int BgL_kz00_1459;
BgL_stringz00_1458 = BgL_filezd2namezd2_52; 
BgL_kz00_1459 = 
(int)(BgL_iz00_725); 
{ /* ./Llib/error.scm 451 */
bool_t BgL_testz00_2345;
{ /* ./Llib/error.scm 451 */
int BgL_auxz00_2346;
BgL_auxz00_2346 = 
STRING_LENGTH(BgL_stringz00_1458); 
BgL_testz00_2345 = 
BOUND_CHECK(BgL_kz00_1459, BgL_auxz00_2346); } 
if(BgL_testz00_2345)
{ /* ./Llib/error.scm 451 */
BgL_res2878z00_1466 = 
STRING_REF(BgL_stringz00_1458, BgL_kz00_1459); }  else 
{ /* ./Llib/error.scm 451 */
obj_t BgL_objectz00_1465;
BgL_objectz00_1465 = 
BINT(BgL_kz00_1459); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1465);} } } 
BgL_arg1340z00_729 = BgL_res2878z00_1466; } 
{ /* ./Llib/error.scm 451 */
obj_t BgL_auxz00_2354;obj_t BgL_auxz00_2352;
BgL_auxz00_2354 = 
BCHAR(((unsigned char)'/')); 
BgL_auxz00_2352 = 
BCHAR(BgL_arg1340z00_729); 
BgL_test1337z00_728 = 
(BgL_auxz00_2352==BgL_auxz00_2354); } } 
if(BgL_test1337z00_728)
{ /* ./Llib/error.scm 452 */
obj_t BgL_stringz00_1469;int BgL_kz00_1470;
BgL_stringz00_1469 = BgL_filezd2namezd2_52; 
BgL_kz00_1470 = 
(int)(BgL_iz00_725); 
{ /* ./Llib/error.scm 452 */
bool_t BgL_testz00_2359;
{ /* ./Llib/error.scm 452 */
int BgL_auxz00_2360;
BgL_auxz00_2360 = 
STRING_LENGTH(BgL_stringz00_1469); 
BgL_testz00_2359 = 
BOUND_CHECK(BgL_kz00_1470, BgL_auxz00_2360); } 
if(BgL_testz00_2359)
{ /* ./Llib/error.scm 452 */
STRING_SET(BgL_stringz00_1469, BgL_kz00_1470, ((unsigned char)'\\')); }  else 
{ /* ./Llib/error.scm 452 */
obj_t BgL_objectz00_1477;
BgL_objectz00_1477 = 
BINT(BgL_kz00_1470); 
FAILURE(BGl_string3250z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1477);} } }  else 
{ /* ./Llib/error.scm 451 */BFALSE; } } 
{ 
long BgL_iz00_2366;
BgL_iz00_2366 = 
(BgL_iz00_725+((long)1)); 
BgL_iz00_725 = BgL_iz00_2366; 
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_2379;long BgL_auxz00_2377;
BgL_auxz00_2379 = 
(long)CINT(BgL_locationz00_53); 
BgL_auxz00_2377 = 
(long)(BgL_arg1388z00_754); 
BgL_test1370z00_748 = 
(BgL_auxz00_2377>=BgL_auxz00_2379); } } 
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_2386;long BgL_auxz00_2384;
BgL_auxz00_2386 = 
(long)CINT(BgL_oldzd2poszd2_737); 
BgL_auxz00_2384 = 
(long)CINT(BgL_locationz00_53); 
BgL_arg1374z00_749 = 
(BgL_auxz00_2384-BgL_auxz00_2386); } 
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_2396;long BgL_linezd2numzd2_2395;obj_t BgL_linezd2stringzd2_2394;
BgL_linezd2stringzd2_2394 = BgL_arg1378z00_751; 
BgL_linezd2numzd2_2395 = BgL_arg1380z00_752; 
BgL_oldzd2poszd2_2396 = 
BINT(BgL_oldzd2poszd2_750); 
BgL_oldzd2poszd2_737 = BgL_oldzd2poszd2_2396; 
BgL_linezd2numzd2_736 = BgL_linezd2numzd2_2395; 
BgL_linezd2stringzd2_735 = BgL_linezd2stringzd2_2394; 
goto BgL_loopz00_738;} } } } } } }  else 
{ /* ./Llib/error.scm 455 */
return BFALSE;} } } 
}



/* _error/location-file */
obj_t BGl__errorzf2locationzd2filez20zz__errorz00(obj_t BgL_envz00_1947, obj_t BgL_filezd2namezd2_1948, obj_t BgL_locationz00_1949)
{ AN_OBJECT;
{ /* ./Llib/error.scm 442 */
return 
BGl_errorzf2locationzd2filez20zz__errorz00(BgL_filezd2namezd2_1948, BgL_locationz00_1949);} 
}



/* <anonymous:1368> */
obj_t BGl_zc3anonymousza31368ze3z83zz__errorz00(obj_t BgL_envz00_1950, obj_t BgL_procz00_1951, obj_t BgL_msgz00_1952, obj_t BgL_objz00_1953)
{ 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_1951; 
BgL_msgz00_745 = BgL_msgz00_1952; 
BgL_objz00_746 = BgL_objz00_1953; 
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_1954;
{ 
int BgL_auxz00_2403;int BgL_auxz00_2401;
BgL_auxz00_2403 = 
(int)(((long)5)); 
BgL_auxz00_2401 = 
(int)(((long)3)); 
BgL_zc3anonymousza31395ze3z83_1954 = 
make_fx_procedure(BGl_zc3anonymousza31395ze3z83zz__errorz00, BgL_auxz00_2401, BgL_auxz00_2403); } 
{ /* ./Llib/error.scm 487 */
obj_t BgL_auxz00_2408;int BgL_auxz00_2406;
BgL_auxz00_2408 = 
BINT(BgL_markerz00_58); 
BgL_auxz00_2406 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_1954, BgL_auxz00_2406, BgL_auxz00_2408); } 
{ /* ./Llib/error.scm 487 */
int BgL_auxz00_2411;
BgL_auxz00_2411 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_1954, BgL_auxz00_2411, BgL_stringz00_57); } 
{ /* ./Llib/error.scm 487 */
int BgL_auxz00_2414;
BgL_auxz00_2414 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_1954, BgL_auxz00_2414, BgL_fnamez00_54); } 
{ /* ./Llib/error.scm 487 */
obj_t BgL_auxz00_2419;int BgL_auxz00_2417;
BgL_auxz00_2419 = 
BINT(BgL_linez00_55); 
BgL_auxz00_2417 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_1954, BgL_auxz00_2417, BgL_auxz00_2419); } 
{ /* ./Llib/error.scm 487 */
int BgL_auxz00_2422;
BgL_auxz00_2422 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza31395ze3z83_1954, BgL_auxz00_2422, BgL_charz00_56); } 
return BgL_zc3anonymousza31395ze3z83_1954;} } 
}



/* <anonymous:1395> */
obj_t BGl_zc3anonymousza31395ze3z83zz__errorz00(obj_t BgL_envz00_1955, obj_t BgL_procz00_1961, obj_t BgL_msgz00_1962, obj_t BgL_objz00_1963)
{ AN_OBJECT;
{ /* ./Llib/error.scm 487 */
{ /* ./Llib/error.scm 489 */
obj_t BgL_markerz00_1956;obj_t BgL_stringz00_1957;obj_t BgL_fnamez00_1958;obj_t BgL_linez00_1959;obj_t BgL_charz00_1960;
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2425;
BgL_auxz00_2425 = 
(int)(((long)0)); 
BgL_markerz00_1956 = 
PROCEDURE_REF(BgL_envz00_1955, BgL_auxz00_2425); } 
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2428;
BgL_auxz00_2428 = 
(int)(((long)1)); 
BgL_stringz00_1957 = 
PROCEDURE_REF(BgL_envz00_1955, BgL_auxz00_2428); } 
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2431;
BgL_auxz00_2431 = 
(int)(((long)2)); 
BgL_fnamez00_1958 = 
PROCEDURE_REF(BgL_envz00_1955, BgL_auxz00_2431); } 
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2434;
BgL_auxz00_2434 = 
(int)(((long)3)); 
BgL_linez00_1959 = 
PROCEDURE_REF(BgL_envz00_1955, BgL_auxz00_2434); } 
{ /* ./Llib/error.scm 489 */
int BgL_auxz00_2437;
BgL_auxz00_2437 = 
(int)(((long)4)); 
BgL_charz00_1960 = 
PROCEDURE_REF(BgL_envz00_1955, BgL_auxz00_2437); } 
{ 
obj_t BgL_procz00_756;obj_t BgL_msgz00_757;obj_t BgL_objz00_758;
BgL_procz00_756 = BgL_procz00_1961; 
BgL_msgz00_757 = BgL_msgz00_1962; 
BgL_objz00_758 = BgL_objz00_1963; 
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_2444;
{ /* ./Llib/error.scm 494 */
long BgL_auxz00_2445;
BgL_auxz00_2445 = 
(long)CINT(BgL_markerz00_1956); 
BgL_testz00_2444 = 
(BgL_auxz00_2445>((long)0)); } 
if(BgL_testz00_2444)
{ /* ./Llib/error.scm 495 */
long BgL_arg1439z00_777;
{ /* ./Llib/error.scm 495 */
long BgL_auxz00_2448;
BgL_auxz00_2448 = 
(long)CINT(BgL_markerz00_1956); 
BgL_arg1439z00_777 = 
(BgL_auxz00_2448-((long)1)); } 
{ /* ./Llib/error.scm 495 */
obj_t BgL_list1441z00_778;
{ /* ./Llib/error.scm 495 */
obj_t BgL_auxz00_2451;
BgL_auxz00_2451 = 
BCHAR(((unsigned char)' ')); 
BgL_list1441z00_778 = 
MAKE_PAIR(BgL_auxz00_2451, BNIL); } 
{ /* ./Llib/error.scm 495 */
obj_t BgL_res2879z00_1503;
{ /* ./Llib/error.scm 495 */
int BgL_kz00_1497;
BgL_kz00_1497 = 
(int)(BgL_arg1439z00_777); 
{ /* ./Llib/error.scm 495 */
obj_t BgL_arg2111z00_1500;
BgL_arg2111z00_1500 = 
CAR(BgL_list1441z00_778); 
{ /* ./Llib/error.scm 495 */
unsigned char BgL_auxz00_2456;
BgL_auxz00_2456 = 
(unsigned char)CCHAR(BgL_arg2111z00_1500); 
BgL_res2879z00_1503 = 
make_string(BgL_kz00_1497, BgL_auxz00_2456); } } } 
BgL_spacezd2stringzd2_762 = BgL_res2879z00_1503; } } }  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_1957); 
{ /* ./Llib/error.scm 497 */
obj_t BgL_nzd2markerzd2_764;
{ /* ./Llib/error.scm 498 */
bool_t BgL_testz00_2460;
{ /* ./Llib/error.scm 498 */
long BgL_auxz00_2463;long BgL_auxz00_2461;
BgL_auxz00_2463 = 
(long)(BgL_lz00_763); 
BgL_auxz00_2461 = 
(long)CINT(BgL_markerz00_1956); 
BgL_testz00_2460 = 
(BgL_auxz00_2461>=BgL_auxz00_2463); } 
if(BgL_testz00_2460)
{ /* ./Llib/error.scm 499 */
bool_t BgL_testz00_2466;
{ /* ./Llib/error.scm 499 */
long BgL_auxz00_2467;
BgL_auxz00_2467 = 
(long)(BgL_lz00_763); 
BgL_testz00_2466 = 
(BgL_auxz00_2467==((long)0)); } 
if(BgL_testz00_2466)
{ /* ./Llib/error.scm 499 */
BgL_nzd2markerzd2_764 = 
BINT(((long)0)); }  else 
{ /* ./Llib/error.scm 501 */
long BgL_auxz00_2471;
{ /* ./Llib/error.scm 501 */
long BgL_auxz00_2472;
BgL_auxz00_2472 = 
(long)(BgL_lz00_763); 
BgL_auxz00_2471 = 
(BgL_auxz00_2472-((long)1)); } 
BgL_nzd2markerzd2_764 = 
BINT(BgL_auxz00_2471); } }  else 
{ /* ./Llib/error.scm 498 */
BgL_nzd2markerzd2_764 = BgL_markerz00_1956; } } 
{ /* ./Llib/error.scm 498 */

BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2markerzd2_764, BgL_stringz00_1957, BgL_spacezd2stringzd2_762); 
BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_1958, BgL_linez00_1959, BgL_charz00_1960, BgL_stringz00_1957, 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_2509;long BgL_auxz00_2507;
BgL_auxz00_2509 = 
(long)CINT(BgL_locationz00_60); 
BgL_auxz00_2507 = 
(long)(BgL_arg1474z00_797); 
BgL_test1458z00_791 = 
(BgL_auxz00_2507>=BgL_auxz00_2509); } } 
if(BgL_test1458z00_791)
{ /* ./Llib/error.scm 539 */
close_input_port(BgL_portz00_779); 
{ /* ./Llib/error.scm 542 */
long BgL_auxz00_2514;
{ /* ./Llib/error.scm 546 */
long BgL_auxz00_2517;long BgL_auxz00_2515;
BgL_auxz00_2517 = 
(long)CINT(BgL_oldzd2poszd2_783); 
BgL_auxz00_2515 = 
(long)CINT(BgL_locationz00_60); 
BgL_auxz00_2514 = 
(BgL_auxz00_2515-BgL_auxz00_2517); } 
return 
BGl_dozd2warnzf2locationz20zz__errorz00(BgL_filezd2namezd2_59, BgL_linezd2numzd2_782, BgL_locationz00_60, BgL_linezd2stringzd2_781, BgL_auxz00_2514, 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_2527;long BgL_linezd2numzd2_2526;obj_t BgL_linezd2stringzd2_2525;
BgL_linezd2stringzd2_2525 = BgL_arg1465z00_794; 
BgL_linezd2numzd2_2526 = BgL_arg1466z00_795; 
BgL_oldzd2poszd2_2527 = 
BINT(BgL_oldzd2poszd2_793); 
BgL_oldzd2poszd2_783 = BgL_oldzd2poszd2_2527; 
BgL_linezd2numzd2_782 = BgL_linezd2numzd2_2526; 
BgL_linezd2stringzd2_781 = BgL_linezd2stringzd2_2525; 
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_2540;
BgL_auxz00_2540 = 
BCHAR(((unsigned char)' ')); 
BgL_list1542z00_827 = 
MAKE_PAIR(BgL_auxz00_2540, BNIL); } 
{ /* ./Llib/error.scm 561 */
obj_t BgL_res2880z00_1535;
{ /* ./Llib/error.scm 561 */
int BgL_kz00_1529;
BgL_kz00_1529 = 
(int)(BgL_arg1540z00_826); 
{ /* ./Llib/error.scm 561 */
obj_t BgL_arg2111z00_1532;
BgL_arg2111z00_1532 = 
CAR(BgL_list1542z00_827); 
{ /* ./Llib/error.scm 561 */
unsigned char BgL_auxz00_2545;
BgL_auxz00_2545 = 
(unsigned char)CCHAR(BgL_arg2111z00_1532); 
BgL_res2880z00_1535 = 
make_string(BgL_kz00_1529, BgL_auxz00_2545); } } } 
BgL_spacezd2stringzd2_804 = BgL_res2880z00_1535; } } }  else 
{ /* ./Llib/error.scm 560 */
BgL_spacezd2stringzd2_804 = BGl_string3252z00zz__errorz00; } 
{ /* ./Llib/error.scm 563 */
bool_t BgL_testz00_2548;
{ /* ./Llib/error.scm 563 */
long BgL_auxz00_2549;
{ /* ./Llib/error.scm 563 */
int BgL_auxz00_2550;
BgL_auxz00_2550 = 
STRING_LENGTH(BgL_stringz00_65); 
BgL_auxz00_2549 = 
(long)(BgL_auxz00_2550); } 
BgL_testz00_2548 = 
(BgL_markerz00_66>=BgL_auxz00_2549); } 
if(BgL_testz00_2548)
{ /* ./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_1965, obj_t BgL_az00_1966)
{ AN_OBJECT;
{ /* ./Llib/error.scm 576 */
{ 
obj_t BgL_az00_817;
BgL_az00_817 = BgL_az00_1966; 
{ /* ./Llib/error.scm 577 */
obj_t BgL_arg1519z00_1544;
BgL_arg1519z00_1544 = 
BGL_CURRENT_ERROR_PORT(); 
{ /* ./Llib/error.scm 577 */
obj_t BgL_list1521z00_1545;
BgL_list1521z00_1545 = 
MAKE_PAIR(BgL_arg1519z00_1544, BNIL); 
return 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_817, BgL_list1521z00_1545);} } } } 
}



/* 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_2605;
BgL_auxz00_2605 = 
(long)CINT(BgL_markerz00_68); 
BgL_readz00_830 = 
(BgL_auxz00_2605-((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_1559;
{ /* ./Llib/error.scm 590 */
int BgL_kz00_1552;
BgL_kz00_1552 = 
(int)(BgL_readz00_830); 
{ /* ./Llib/error.scm 590 */
bool_t BgL_testz00_2584;
{ /* ./Llib/error.scm 590 */
int BgL_auxz00_2585;
BgL_auxz00_2585 = 
STRING_LENGTH(BgL_srcz00_69); 
BgL_testz00_2584 = 
BOUND_CHECK(BgL_kz00_1552, BgL_auxz00_2585); } 
if(BgL_testz00_2584)
{ /* ./Llib/error.scm 590 */
BgL_res2881z00_1559 = 
STRING_REF(BgL_srcz00_69, BgL_kz00_1552); }  else 
{ /* ./Llib/error.scm 590 */
obj_t BgL_objectz00_1558;
BgL_objectz00_1558 = 
BINT(BgL_kz00_1552); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1558);} } } 
BgL_arg1568z00_837 = BgL_res2881z00_1559; } 
BgL_test1557z00_834 = 
(BgL_arg1568z00_837==((unsigned char)'\t')); } 
if(BgL_test1557z00_834)
{ /* ./Llib/error.scm 590 */
{ /* ./Llib/error.scm 591 */
int BgL_kz00_1563;
BgL_kz00_1563 = 
(int)(BgL_readz00_830); 
{ /* ./Llib/error.scm 591 */
bool_t BgL_testz00_2594;
{ /* ./Llib/error.scm 591 */
int BgL_auxz00_2595;
BgL_auxz00_2595 = 
STRING_LENGTH(BgL_dstz00_70); 
BgL_testz00_2594 = 
BOUND_CHECK(BgL_kz00_1563, BgL_auxz00_2595); } 
if(BgL_testz00_2594)
{ /* ./Llib/error.scm 591 */
STRING_SET(BgL_dstz00_70, BgL_kz00_1563, ((unsigned char)'\t')); }  else 
{ /* ./Llib/error.scm 591 */
obj_t BgL_objectz00_1570;
BgL_objectz00_1570 = 
BINT(BgL_kz00_1563); 
FAILURE(BGl_string3250z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1570);} } } 
{ 
long BgL_readz00_2601;
BgL_readz00_2601 = 
(BgL_readz00_830-((long)1)); 
BgL_readz00_830 = BgL_readz00_2601; 
goto BgL_loopz00_831;} }  else 
{ /* ./Llib/error.scm 590 */
{ 
long BgL_readz00_2603;
BgL_readz00_2603 = 
(BgL_readz00_830-((long)1)); 
BgL_readz00_830 = BgL_readz00_2603; 
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_2613;
BgL_auxz00_2613 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1614z00_857 = 
MAKE_PAIR(BgL_auxz00_2613, 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_2618;
BgL_auxz00_2618 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1605z00_854 = 
MAKE_PAIR(BgL_auxz00_2618, 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_1586;
{ /* ./Llib/error.scm 619 */
int BgL_kz00_1579;
BgL_kz00_1579 = 
(int)(((long)0)); 
{ /* ./Llib/error.scm 619 */
bool_t BgL_testz00_2636;
{ /* ./Llib/error.scm 619 */
int BgL_auxz00_2637;
BgL_auxz00_2637 = 
STRING_LENGTH(BgL_fnamez00_76); 
BgL_testz00_2636 = 
BOUND_CHECK(BgL_kz00_1579, BgL_auxz00_2637); } 
if(BgL_testz00_2636)
{ /* ./Llib/error.scm 619 */
BgL_res2882z00_1586 = 
STRING_REF(BgL_fnamez00_76, BgL_kz00_1579); }  else 
{ /* ./Llib/error.scm 619 */
obj_t BgL_objectz00_1585;
BgL_objectz00_1585 = 
BINT(BgL_kz00_1579); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1585);} } } 
BgL_arg1757z00_931 = BgL_res2882z00_1586; } 
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 
{ 
long BgL_lenz00_871;obj_t BgL_resz00_872;
BgL_lenz00_871 = 
bgl_list_length(BgL_curzd2pathzd2_866); 
BgL_resz00_872 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_76); 
BgL_loopz00_873:
if(
(BgL_lenz00_871==((long)0)))
{ /* ./Llib/error.scm 632 */
return BgL_resz00_872;}  else 
{ /* ./Llib/error.scm 634 */
long BgL_arg1644z00_877;obj_t BgL_arg1645z00_878;
BgL_arg1644z00_877 = 
(BgL_lenz00_871-((long)1)); 
{ /* ./Llib/error.scm 634 */
obj_t BgL_list1649z00_879;
{ /* ./Llib/error.scm 634 */
obj_t BgL_arg1652z00_881;
BgL_arg1652z00_881 = 
MAKE_PAIR(BgL_resz00_872, BNIL); 
BgL_list1649z00_879 = 
MAKE_PAIR(BGl_string3265z00zz__errorz00, BgL_arg1652z00_881); } 
BgL_arg1645z00_878 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1649z00_879); } 
{ 
obj_t BgL_resz00_2659;long BgL_lenz00_2658;
BgL_lenz00_2658 = BgL_arg1644z00_877; 
BgL_resz00_2659 = BgL_arg1645z00_878; 
BgL_resz00_872 = BgL_resz00_2659; 
BgL_lenz00_871 = BgL_lenz00_2658; 
goto BgL_loopz00_873;} } } }  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_2673;obj_t BgL_pathz00_2672;
BgL_pathz00_2672 = BgL_arg1666z00_889; 
BgL_resz00_2673 = BgL_arg1667z00_890; 
BgL_resz00_884 = BgL_resz00_2673; 
BgL_pathz00_883 = BgL_pathz00_2672; 
goto BgL_loopz00_885;} } } }  else 
{ /* ./Llib/error.scm 642 */
bool_t BgL_testz00_2676;
{ /* ./Llib/error.scm 642 */
obj_t BgL_auxz00_2679;obj_t BgL_auxz00_2677;
BgL_auxz00_2679 = 
CAR(BgL_cmpzd2pathzd2_865); 
BgL_auxz00_2677 = 
CAR(BgL_curzd2pathzd2_866); 
BgL_testz00_2676 = 
bigloo_strcmp(BgL_auxz00_2677, BgL_auxz00_2679); } 
if(BgL_testz00_2676)
{ /* ./Llib/error.scm 642 */
{ 
obj_t BgL_curzd2pathzd2_2684;obj_t BgL_cmpzd2pathzd2_2682;
BgL_cmpzd2pathzd2_2682 = 
CDR(BgL_cmpzd2pathzd2_865); 
BgL_curzd2pathzd2_2684 = 
CDR(BgL_curzd2pathzd2_866); 
BgL_curzd2pathzd2_866 = BgL_curzd2pathzd2_2684; 
BgL_cmpzd2pathzd2_865 = BgL_cmpzd2pathzd2_2682; 
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 
{ 
long BgL_lenz00_909;obj_t BgL_resz00_910;
BgL_lenz00_909 = 
bgl_list_length(BgL_curzd2pathzd2_866); 
BgL_resz00_910 = BgL_resz00_900; 
BgL_loopz00_911:
if(
(BgL_lenz00_909==((long)0)))
{ /* ./Llib/error.scm 652 */
return BgL_resz00_910;}  else 
{ /* ./Llib/error.scm 654 */
long BgL_arg1712z00_914;obj_t BgL_arg1713z00_915;
BgL_arg1712z00_914 = 
(BgL_lenz00_909-((long)1)); 
{ /* ./Llib/error.scm 655 */
obj_t BgL_list1717z00_916;
{ /* ./Llib/error.scm 655 */
obj_t BgL_arg1720z00_918;
BgL_arg1720z00_918 = 
MAKE_PAIR(BgL_resz00_910, BNIL); 
BgL_list1717z00_916 = 
MAKE_PAIR(BGl_string3265z00zz__errorz00, BgL_arg1720z00_918); } 
BgL_arg1713z00_915 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1717z00_916); } 
{ 
obj_t BgL_resz00_2700;long BgL_lenz00_2699;
BgL_lenz00_2699 = BgL_arg1712z00_914; 
BgL_resz00_2700 = BgL_arg1713z00_915; 
BgL_resz00_910 = BgL_resz00_2700; 
BgL_lenz00_909 = BgL_lenz00_2699; 
goto BgL_loopz00_911;} } } }  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_2709;obj_t BgL_pathz00_2708;
BgL_pathz00_2708 = BgL_arg1726z00_919; 
BgL_resz00_2709 = BgL_arg1727z00_920; 
BgL_resz00_900 = BgL_resz00_2709; 
BgL_pathz00_899 = BgL_pathz00_2708; 
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_2714;
BgL_auxz00_2714 = 
(long)(BgL_lenz00_949); 
BgL_arg1802z00_952 = 
(BgL_auxz00_2714-((long)1)); } 
{ /* ./Llib/error.scm 664 */
unsigned char BgL_res2883z00_1625;
{ /* ./Llib/error.scm 664 */
int BgL_kz00_1618;
BgL_kz00_1618 = 
(int)(BgL_arg1802z00_952); 
if(
BOUND_CHECK(BgL_kz00_1618, BgL_lenz00_949))
{ /* ./Llib/error.scm 664 */
BgL_res2883z00_1625 = 
STRING_REF(BgL_pathz00_77, BgL_kz00_1618); }  else 
{ /* ./Llib/error.scm 664 */
obj_t BgL_objectz00_1624;
BgL_objectz00_1624 = 
BINT(BgL_kz00_1618); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1624);} } 
BgL_arg1799z00_951 = BgL_res2883z00_1625; } } 
BgL_test1796z00_950 = 
(BgL_arg1799z00_951==((unsigned char)'/')); } 
if(BgL_test1796z00_950)
{ /* ./Llib/error.scm 665 */
long BgL_auxz00_2725;
{ /* ./Llib/error.scm 665 */
long BgL_auxz00_2726;
BgL_auxz00_2726 = 
(long)(BgL_lenz00_949); 
BgL_auxz00_2725 = 
(BgL_auxz00_2726-((long)1)); } 
BgL_lenz00_932 = 
BINT(BgL_auxz00_2725); }  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_1638;
{ /* ./Llib/error.scm 667 */
int BgL_kz00_1631;
BgL_kz00_1631 = 
(int)(((long)0)); 
{ /* ./Llib/error.scm 667 */
bool_t BgL_testz00_2732;
{ /* ./Llib/error.scm 667 */
int BgL_auxz00_2733;
BgL_auxz00_2733 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_testz00_2732 = 
BOUND_CHECK(BgL_kz00_1631, BgL_auxz00_2733); } 
if(BgL_testz00_2732)
{ /* ./Llib/error.scm 667 */
BgL_res2884z00_1638 = 
STRING_REF(BgL_pathz00_77, BgL_kz00_1631); }  else 
{ /* ./Llib/error.scm 667 */
obj_t BgL_objectz00_1637;
BgL_objectz00_1637 = 
BINT(BgL_kz00_1631); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1637);} } } 
BgL_arg1809z00_954 = BgL_res2884z00_1638; } 
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_2743;
{ /* ./Llib/error.scm 674 */
long BgL_auxz00_2744;
BgL_auxz00_2744 = 
(long)CINT(BgL_lenz00_932); 
BgL_testz00_2743 = 
(BgL_readz00_935==BgL_auxz00_2744); } 
if(BgL_testz00_2743)
{ /* ./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_1673;
{ /* ./Llib/error.scm 675 */
int BgL_startz00_1646;int BgL_endz00_1647;
BgL_startz00_1646 = 
(int)(BgL_prevz00_936); 
BgL_endz00_1647 = 
(int)(BgL_readz00_935); 
{ /* ./Llib/error.scm 675 */
bool_t BgL_test2045z00_1648;
{ /* ./Llib/error.scm 675 */
bool_t BgL_testz00_2749;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2752;long BgL_auxz00_2750;
BgL_auxz00_2752 = 
(long)(BgL_startz00_1646); 
BgL_auxz00_2750 = 
(long)(BgL_endz00_1647); 
BgL_testz00_2749 = 
(BgL_auxz00_2750>=BgL_auxz00_2752); } 
if(BgL_testz00_2749)
{ /* ./Llib/error.scm 675 */
bool_t BgL_testz00_2755;
{ /* ./Llib/error.scm 675 */
int BgL_auxz00_2756;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2757;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2758;
{ /* ./Llib/error.scm 675 */
int BgL_auxz00_2759;
BgL_auxz00_2759 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_auxz00_2758 = 
(long)(BgL_auxz00_2759); } 
BgL_auxz00_2757 = 
(BgL_auxz00_2758+((long)1)); } 
BgL_auxz00_2756 = 
(int)(BgL_auxz00_2757); } 
BgL_testz00_2755 = 
BOUND_CHECK(BgL_startz00_1646, BgL_auxz00_2756); } 
if(BgL_testz00_2755)
{ /* ./Llib/error.scm 675 */
int BgL_auxz00_2765;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2766;
{ /* ./Llib/error.scm 675 */
long BgL_auxz00_2767;
{ /* ./Llib/error.scm 675 */
int BgL_auxz00_2768;
BgL_auxz00_2768 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_auxz00_2767 = 
(long)(BgL_auxz00_2768); } 
BgL_auxz00_2766 = 
(BgL_auxz00_2767+((long)1)); } 
BgL_auxz00_2765 = 
(int)(BgL_auxz00_2766); } 
BgL_test2045z00_1648 = 
BOUND_CHECK(BgL_endz00_1647, BgL_auxz00_2765); }  else 
{ /* ./Llib/error.scm 675 */
BgL_test2045z00_1648 = ((bool_t)0); } }  else 
{ /* ./Llib/error.scm 675 */
BgL_test2045z00_1648 = ((bool_t)0); } } 
if(BgL_test2045z00_1648)
{ /* ./Llib/error.scm 675 */
BgL_res2885z00_1673 = 
c_substring(BgL_pathz00_77, BgL_startz00_1646, BgL_endz00_1647); }  else 
{ /* ./Llib/error.scm 675 */
obj_t BgL_arg2050z00_1659;
{ /* ./Llib/error.scm 675 */
obj_t BgL_auxz00_2778;obj_t BgL_auxz00_2776;
BgL_auxz00_2778 = 
BINT(BgL_endz00_1647); 
BgL_auxz00_2776 = 
BINT(BgL_startz00_1646); 
BgL_arg2050z00_1659 = 
MAKE_PAIR(BgL_auxz00_2776, BgL_auxz00_2778); } 
FAILURE(BGl_string3247z00zz__errorz00,BGl_string3248z00zz__errorz00,BgL_arg2050z00_1659);} } } 
BgL_arg1771z00_941 = BgL_res2885z00_1673; } 
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_1684;
{ /* ./Llib/error.scm 676 */
int BgL_kz00_1677;
BgL_kz00_1677 = 
(int)(BgL_readz00_935); 
{ /* ./Llib/error.scm 676 */
bool_t BgL_testz00_2785;
{ /* ./Llib/error.scm 676 */
int BgL_auxz00_2786;
BgL_auxz00_2786 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_testz00_2785 = 
BOUND_CHECK(BgL_kz00_1677, BgL_auxz00_2786); } 
if(BgL_testz00_2785)
{ /* ./Llib/error.scm 676 */
BgL_res2886z00_1684 = 
STRING_REF(BgL_pathz00_77, BgL_kz00_1677); }  else 
{ /* ./Llib/error.scm 676 */
obj_t BgL_objectz00_1683;
BgL_objectz00_1683 = 
BINT(BgL_kz00_1677); 
FAILURE(BGl_string3245z00zz__errorz00,BGl_string3246z00zz__errorz00,BgL_objectz00_1683);} } } 
BgL_arg1791z00_948 = BgL_res2886z00_1684; } 
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_1719;
{ /* ./Llib/error.scm 679 */
int BgL_startz00_1692;int BgL_endz00_1693;
BgL_startz00_1692 = 
(int)(BgL_prevz00_936); 
BgL_endz00_1693 = 
(int)(BgL_readz00_935); 
{ /* ./Llib/error.scm 679 */
bool_t BgL_test2045z00_1694;
{ /* ./Llib/error.scm 679 */
bool_t BgL_testz00_2798;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2801;long BgL_auxz00_2799;
BgL_auxz00_2801 = 
(long)(BgL_startz00_1692); 
BgL_auxz00_2799 = 
(long)(BgL_endz00_1693); 
BgL_testz00_2798 = 
(BgL_auxz00_2799>=BgL_auxz00_2801); } 
if(BgL_testz00_2798)
{ /* ./Llib/error.scm 679 */
bool_t BgL_testz00_2804;
{ /* ./Llib/error.scm 679 */
int BgL_auxz00_2805;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2806;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2807;
{ /* ./Llib/error.scm 679 */
int BgL_auxz00_2808;
BgL_auxz00_2808 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_auxz00_2807 = 
(long)(BgL_auxz00_2808); } 
BgL_auxz00_2806 = 
(BgL_auxz00_2807+((long)1)); } 
BgL_auxz00_2805 = 
(int)(BgL_auxz00_2806); } 
BgL_testz00_2804 = 
BOUND_CHECK(BgL_startz00_1692, BgL_auxz00_2805); } 
if(BgL_testz00_2804)
{ /* ./Llib/error.scm 679 */
int BgL_auxz00_2814;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2815;
{ /* ./Llib/error.scm 679 */
long BgL_auxz00_2816;
{ /* ./Llib/error.scm 679 */
int BgL_auxz00_2817;
BgL_auxz00_2817 = 
STRING_LENGTH(BgL_pathz00_77); 
BgL_auxz00_2816 = 
(long)(BgL_auxz00_2817); } 
BgL_auxz00_2815 = 
(BgL_auxz00_2816+((long)1)); } 
BgL_auxz00_2814 = 
(int)(BgL_auxz00_2815); } 
BgL_test2045z00_1694 = 
BOUND_CHECK(BgL_endz00_1693, BgL_auxz00_2814); }  else 
{ /* ./Llib/error.scm 679 */
BgL_test2045z00_1694 = ((bool_t)0); } }  else 
{ /* ./Llib/error.scm 679 */
BgL_test2045z00_1694 = ((bool_t)0); } } 
if(BgL_test2045z00_1694)
{ /* ./Llib/error.scm 679 */
BgL_res2887z00_1719 = 
c_substring(BgL_pathz00_77, BgL_startz00_1692, BgL_endz00_1693); }  else 
{ /* ./Llib/error.scm 679 */
obj_t BgL_arg2050z00_1705;
{ /* ./Llib/error.scm 679 */
obj_t BgL_auxz00_2827;obj_t BgL_auxz00_2825;
BgL_auxz00_2827 = 
BINT(BgL_endz00_1693); 
BgL_auxz00_2825 = 
BINT(BgL_startz00_1692); 
BgL_arg2050z00_1705 = 
MAKE_PAIR(BgL_auxz00_2825, BgL_auxz00_2827); } 
FAILURE(BGl_string3247z00zz__errorz00,BGl_string3248z00zz__errorz00,BgL_arg2050z00_1705);} } } 
BgL_arg1783z00_946 = BgL_res2887z00_1719; } 
BgL_arg1778z00_945 = 
MAKE_PAIR(BgL_arg1783z00_946, BgL_listz00_937); } 
{ 
obj_t BgL_listz00_2834;long BgL_prevz00_2833;long BgL_readz00_2832;
BgL_readz00_2832 = BgL_arg1776z00_943; 
BgL_prevz00_2833 = BgL_arg1777z00_944; 
BgL_listz00_2834 = BgL_arg1778z00_945; 
BgL_listz00_937 = BgL_listz00_2834; 
BgL_prevz00_936 = BgL_prevz00_2833; 
BgL_readz00_935 = BgL_readz00_2832; 
goto BgL_loopz00_938;} } }  else 
{ /* ./Llib/error.scm 676 */
{ 
long BgL_readz00_2835;
BgL_readz00_2835 = 
(BgL_readz00_935+((long)1)); 
BgL_readz00_935 = BgL_readz00_2835; 
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_1749;
BgL_objectz00_1749 = 
(BgL_objectz00_bglt)(BgL_objz00_78); 
{ /* ./Llib/error.scm 742 */
long BgL_arg2824z00_1750;
{ /* ./Llib/error.scm 742 */
long BgL_arg2827z00_1751;
BgL_arg2827z00_1751 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1749); 
BgL_arg2824z00_1750 = 
(BgL_arg2827z00_1751-OBJECT_TYPE); } 
{ 
int BgL_auxz00_2897;
BgL_auxz00_2897 = 
(int)(BgL_arg2824z00_1750); 
BgL_classz00_986 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_2897); } } } 
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_986))
{ /* ./Llib/error.scm 749 */
obj_t BgL_auxz00_2902;
BgL_auxz00_2902 = 
BGl_classzd2namezd2zz__objectz00(BgL_classz00_986); 
return 
SYMBOL_TO_STRING(BgL_auxz00_2902);}  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_2913;
BgL_auxz00_2913 = 
FOREIGN_TYPE_NAME(BgL_objz00_78); 
return 
string_to_bstring(BgL_auxz00_2913);} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 
}



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



/* 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_2920;
BgL_auxz00_2920 = 
string_to_bstring(BgL_fromz00_80); 
BgL_arg1925z00_1007 = 
MAKE_PAIR(BgL_auxz00_2920, BgL_arg1928z00_1008); } } 
BgL_arg1922z00_1006 = 
MAKE_PAIR(BGl_string3299z00zz__errorz00, BgL_arg1925z00_1007); } 
{ /* ./Llib/error.scm 767 */
obj_t BgL_auxz00_2924;
BgL_auxz00_2924 = 
string_to_bstring(BgL_currentz00_79); 
BgL_arg1919z00_1005 = 
MAKE_PAIR(BgL_auxz00_2924, 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_2929;
BgL_auxz00_2929 = 
string_to_bstring(BgL_currentz00_79); 
BgL_arg1908z00_1002 = 
MAKE_PAIR(BgL_auxz00_2929, 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_2934;
BgL_auxz00_2934 = 
BINT(((long)-1)); 
return 
BIGLOO_EXIT(BgL_auxz00_2934);} } 
}



/* _module-init-error */
obj_t BGl__modulezd2initzd2errorz00zz__errorz00(obj_t BgL_envz00_1969, obj_t BgL_currentz00_1970, obj_t BgL_fromz00_1971)
{ AN_OBJECT;
{ /* ./Llib/error.scm 766 */
return 
BGl_modulezd2initzd2errorz00zz__errorz00(
BSTRING_TO_STRING(BgL_currentz00_1970), 
BSTRING_TO_STRING(BgL_fromz00_1971));} 
}



/* 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_1763;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1943z00_1765;
BgL_arg1943z00_1765 = 
BGl_findzd2runtimezd2typez00zz__errorz00(BgL_objz00_83); 
{ /* ./Llib/error.scm 778 */
obj_t BgL_res2888z00_1777;
{ /* ./Llib/error.scm 778 */
obj_t BgL_list1238z00_1769;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1240z00_1770;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1244z00_1772;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1249z00_1773;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1254z00_1775;
{ /* ./Llib/error.scm 778 */
obj_t BgL_arg1258z00_1776;
BgL_arg1258z00_1776 = 
MAKE_PAIR(BGl_string3234z00zz__errorz00, BNIL); 
BgL_arg1254z00_1775 = 
MAKE_PAIR(BgL_arg1943z00_1765, BgL_arg1258z00_1776); } 
BgL_arg1249z00_1773 = 
MAKE_PAIR(BGl_string3235z00zz__errorz00, BgL_arg1254z00_1775); } 
BgL_arg1244z00_1772 = 
MAKE_PAIR(BgL_typez00_82, BgL_arg1249z00_1773); } 
BgL_arg1240z00_1770 = 
MAKE_PAIR(BGl_string3236z00zz__errorz00, BgL_arg1244z00_1772); } 
BgL_list1238z00_1769 = 
MAKE_PAIR(BGl_string3303z00zz__errorz00, BgL_arg1240z00_1770); } 
BgL_res2888z00_1777 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1238z00_1769); } 
BgL_arg1938z00_1763 = BgL_res2888z00_1777; } } 
FAILURE(BgL_procz00_81,BgL_arg1938z00_1763,BgL_objz00_83);} } 
}



/* _bigloo-type-error */
obj_t BGl__bigloozd2typezd2errorz00zz__errorz00(obj_t BgL_envz00_1972, obj_t BgL_procz00_1973, obj_t BgL_typez00_1974, obj_t BgL_objz00_1975)
{ AN_OBJECT;
{ /* ./Llib/error.scm 776 */
return 
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procz00_1973, BgL_typez00_1974, BgL_objz00_1975);} 
}



/* 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_1781;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1952z00_1783;
BgL_arg1952z00_1783 = 
BGl_findzd2runtimezd2typez00zz__errorz00(BgL_objz00_86); 
{ /* ./Llib/error.scm 786 */
obj_t BgL_res2889z00_1795;
{ /* ./Llib/error.scm 786 */
obj_t BgL_list1238z00_1787;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1240z00_1788;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1244z00_1790;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1249z00_1791;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1254z00_1793;
{ /* ./Llib/error.scm 786 */
obj_t BgL_arg1258z00_1794;
BgL_arg1258z00_1794 = 
MAKE_PAIR(BGl_string3234z00zz__errorz00, BNIL); 
BgL_arg1254z00_1793 = 
MAKE_PAIR(BgL_arg1952z00_1783, BgL_arg1258z00_1794); } 
BgL_arg1249z00_1791 = 
MAKE_PAIR(BGl_string3235z00zz__errorz00, BgL_arg1254z00_1793); } 
BgL_arg1244z00_1790 = 
MAKE_PAIR(BgL_typez00_85, BgL_arg1249z00_1791); } 
BgL_arg1240z00_1788 = 
MAKE_PAIR(BGl_string3236z00zz__errorz00, BgL_arg1244z00_1790); } 
BgL_list1238z00_1787 = 
MAKE_PAIR(BGl_string3303z00zz__errorz00, BgL_arg1240z00_1788); } 
BgL_res2889z00_1795 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1238z00_1787); } 
BgL_arg1948z00_1781 = BgL_res2889z00_1795; } } 
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_84, BgL_arg1948z00_1781, BgL_objz00_86, BgL_fnamez00_87, BgL_locationz00_88);} } 
}



/* _bigloo-type-error/location */
obj_t BGl__bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t BgL_envz00_1976, obj_t BgL_procz00_1977, obj_t BgL_typez00_1978, obj_t BgL_objz00_1979, obj_t BgL_fnamez00_1980, obj_t BgL_locationz00_1981)
{ AN_OBJECT;
{ /* ./Llib/error.scm 784 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BgL_procz00_1977, BgL_typez00_1978, BgL_objz00_1979, BgL_fnamez00_1980, BgL_locationz00_1981);} 
}



/* 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");} 
}

