/*===========================================================================*/
/*   (Llib/error.scm)                                                        */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/error.scm -indent -o objs/obj_s/Llib/error.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

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

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___ERROR_TYPE_DEFINITIONS
#define BGL___ERROR_TYPE_DEFINITIONS

/* object type definitions */
typedef struct BgL_z62exceptionz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
} *BgL_z62exceptionz62_bglt;

typedef struct BgL_z62errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62errorz62_bglt;

typedef struct BgL_z62typezd2errorzb0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
   obj_t BgL_typez00;
} *BgL_z62typezd2errorzb0_bglt;

typedef struct BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
   obj_t BgL_indexz00;
} *BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt;

typedef struct BgL_z62iozd2errorzb0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2errorzb0_bglt;

typedef struct BgL_z62iozd2portzd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2portzd2errorz62_bglt;

typedef struct BgL_z62iozd2readzd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2readzd2errorz62_bglt;

typedef struct BgL_z62iozd2writezd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2writezd2errorz62_bglt;

typedef struct BgL_z62iozd2filezd2notzd2foundzd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt;

typedef struct BgL_z62iozd2parsezd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2parsezd2errorz62_bglt;

typedef struct BgL_z62iozd2unknownzd2hostzd2errorzb0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt;

typedef struct BgL_z62iozd2malformedzd2urlzd2errorzb0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt;

typedef struct BgL_z62iozd2sigpipezd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2sigpipezd2errorz62_bglt;

typedef struct BgL_z62iozd2timeoutzd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2timeoutzd2errorz62_bglt;

typedef struct BgL_z62iozd2connectionzd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62iozd2connectionzd2errorz62_bglt;

typedef struct BgL_z62processzd2exceptionzb0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62processzd2exceptionzb0_bglt;

typedef struct BgL_z62stackzd2overflowzd2errorz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_procz00;
   obj_t BgL_msgz00;
   obj_t BgL_objz00;
} *BgL_z62stackzd2overflowzd2errorz62_bglt;

typedef struct BgL_z62warningz62_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_fnamez00;
   obj_t BgL_locationz00;
   obj_t BgL_stackz00;
   obj_t BgL_argsz00;
} *BgL_z62warningz62_bglt;


#endif // BGL___ERROR_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

static obj_t BGl_z62exitz62zz__errorz00(obj_t, obj_t);
extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
extern obj_t BGl_z62processzd2exceptionzb0zz__objectz00;
BGL_EXPORTED_DECL obj_t BGl_setzd2errorzd2handlerz12z12zz__errorz00(obj_t);
static obj_t BGl_z62errorzd2notifyzb0zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31498ze3ze5zz__errorz00(obj_t, obj_t);
extern int BGl_bigloozd2warningzd2zz__paramz00(void);
extern obj_t BGl_stringzd2replacezd2zz__r4_strings_6_7z00(obj_t, unsigned char, unsigned char);
static obj_t BGl_symbol2811z00zz__errorz00 = BUNSPEC;
static obj_t BGl_fixzd2tabulationz12zc0zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t the_failure(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__errorz00 = BUNSPEC;
extern obj_t BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayzd2tracezd2stackzd2sourcezd2zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_raisez00zz__errorz00(obj_t);
extern obj_t BGl_exceptionzd2notifyzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzd2notifyzf2locationz20zz__errorz00(obj_t, obj_t, int);
extern obj_t BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00;
BGL_EXPORTED_DECL obj_t BGl_exitz00zz__errorz00(obj_t);
extern obj_t BGl_applyz00zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62errorzf2czd2locationz42zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00;
static obj_t BGl_z62z62tryz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31460ze3ze5zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzd2notifyzd2zz__errorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzf2sourcezd2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza32238ze3ze5zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62indexzd2outzd2ofzd2bounds2758zb0zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62setzd2errorzd2handlerz12z70zz__errorz00(obj_t, obj_t);
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_z62errorzf2locationz90zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(long, char *);
extern obj_t BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_system_failure(int, obj_t, obj_t, obj_t);
extern obj_t BGl_za2classesza2z00zz__objectz00;
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
extern obj_t BGl_z62errorz62zz__objectz00;
extern obj_t BGl_z62iozd2sigpipezd2errorz62zz__objectz00;
extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
extern bool_t fexists(char *);
BGL_EXPORTED_DECL obj_t BGl_warningz00zz__errorz00(obj_t);
static obj_t BGl_relativezd2filezd2namez00zz__errorz00(obj_t);
static obj_t BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
extern obj_t BGl_z62warningz62zz__objectz00;
static obj_t BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_z62tryz62zz__errorz00(obj_t, obj_t);
extern obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2848z00zz__errorz00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__errorz00(void);
extern obj_t BGl_z62iozd2writezd2errorz62zz__objectz00;
BGL_EXPORTED_DECL obj_t BGl_warningzf2czd2locationz20zz__errorz00(char *, long, obj_t);
extern obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, long);
extern obj_t unwind_stack_until(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62typezd2error2757zb0zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_z62stackzd2overflowzd2errorz62zz__objectz00;
static obj_t BGl_z62zc3z04anonymousza31882ze3ze5zz__errorz00(obj_t, obj_t);
extern obj_t BGl_z62typezd2errorzb0zz__objectz00;
static obj_t BGl_uncygdrivez00zz__errorz00(obj_t);
extern obj_t BGl_tprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_z62warningzd2notifyzb0zz__errorz00(obj_t, obj_t);
extern obj_t BGl_z62iozd2portzd2errorz62zz__objectz00;
extern obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_getenvz00zz__osz00(obj_t);
static obj_t BGl_locationzd2linezd2numz00zz__errorz00(obj_t);
static obj_t BGl_filenamezd2forzd2errorz00zz__errorz00(obj_t, long);
extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_symbol2859z00zz__errorz00 = BUNSPEC;
extern obj_t BGl_readzd2linezd2zz__r4_input_6_10_2z00(obj_t);
extern obj_t BGl_z62iozd2connectionzd2errorz62zz__objectz00;
BGL_EXPORTED_DECL obj_t BGl_notifyzd2interruptzd2zz__errorz00(int);
static obj_t BGl_z62stackzd2overflowzd2erro2755z62zz__errorz00(obj_t);
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__errorz00(void);
static obj_t BGl_z62raisez62zz__errorz00(obj_t, obj_t);
extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t bgl_reverse(obj_t);
static obj_t BGl_z62typeofz62zz__errorz00(obj_t, obj_t);
extern obj_t BGl_z62iozd2parsezd2errorz62zz__objectz00;
static obj_t BGl_z62errorzd2notifyzf2locationz42zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_genericzd2initzd2zz__errorz00(void);
extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2tracezd2stackz00zz__errorz00(obj_t);
static obj_t BGl_z62escz62zz__errorz00(obj_t, obj_t);
extern long bgl_list_length(obj_t);
BGL_EXPORTED_DECL obj_t BGl_warningzd2notifyzf2locationz20zz__errorz00(obj_t, obj_t, int);
static obj_t BGl_symbol2861z00zz__errorz00 = BUNSPEC;
extern obj_t BGl_z62iozd2timeoutzd2errorz62zz__objectz00;
static obj_t BGl_z62warningzd2notifyzf2locationz42zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__errorz00(void);
static obj_t BGl_defaultzd2interruptzd2notifierz00zz__errorz00(int);
BGL_EXPORTED_DECL obj_t bgl_stack_overflow_error(void);
static obj_t BGl_gczd2rootszd2initz00zz__errorz00(void);
static obj_t BGl_z62currentzd2exceptionzd2handlerz62zz__errorz00(obj_t);
static obj_t BGl_z62warningzf2czd2locationz42zz__errorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
BGL_EXPORTED_DECL obj_t BGl_dumpzd2tracezd2stackz00zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayzd2tracezd2stackz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62errorzf2sourcezd2locationz42zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2initzd2zz__errorz00(void);
static obj_t BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00(obj_t, obj_t);
extern obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
extern obj_t BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_pushzd2errorzd2handlerz12z12zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62error2756z62zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62bigloozd2typezd2errorz62zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3z04exitza32236ze3ze70z60zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62warningzf2locz90zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62withzd2exceptionzd2handlerz62zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31821ze3ze5zz__errorz00(obj_t);
static obj_t BGl_symbol2879z00zz__errorz00 = BUNSPEC;
static obj_t BGl_z62errorzf2sourcez90zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
static obj_t BGl_z62warning2759z62zz__errorz00(obj_t, obj_t);
extern obj_t BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00;
static obj_t BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00(obj_t, obj_t);
extern obj_t BGl_displayzd2circlezd2zz__pp_circlez00(obj_t, obj_t);
extern obj_t BGl_z62exceptionz62zz__objectz00;
static obj_t BGl_openzd2forzd2errorz00zz__errorz00(obj_t);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t bgl_reverse_bang(obj_t);
static obj_t BGl_dozd2warnzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_dirnamez00zz__osz00(obj_t);
static obj_t BGl_z62modulezd2initzd2errorz62zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62findzd2runtimezd2typez62zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62getzd2errorzd2handlerz62zz__errorz00(obj_t);
static obj_t BGl_symbol2881z00zz__errorz00 = BUNSPEC;
extern obj_t BGl_pwdz00zz__osz00(void);
BGL_EXPORTED_DECL obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31458ze3ze5zz__errorz00(obj_t, obj_t);
static obj_t BGl_printzd2cursorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31789ze3ze5zz__errorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(obj_t);
extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
static obj_t BGl_dirnamezd2ze3listz31zz__errorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzf2sourcezf2zz__errorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
static obj_t BGl_symbol2892z00zz__errorz00 = BUNSPEC;
extern obj_t BGl_z62conditionz62zz__objectz00;
static obj_t BGl_z62the_failurez62zz__errorz00(obj_t, obj_t, obj_t, obj_t);
extern bool_t bgl_directoryp(char *);
extern obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL char * bgl_show_type(obj_t);
static obj_t BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(obj_t, obj_t, obj_t, long);
extern obj_t BGl_basenamez00zz__osz00(obj_t);
static obj_t BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_currentzd2exceptionzd2handlerz00zz__errorz00(void);
static obj_t BGl_warningzf2locationzd2filez20zz__errorz00(obj_t, obj_t, obj_t);
static BgL_z62typezd2errorzb0_bglt BGl_typenamezd2errorzd2zz__errorz00(bool_t, bool_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_warningzd2notifyzd2zz__errorz00(obj_t);
static obj_t BGl_methodzd2initzd2zz__errorz00(void);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_notifyzd2z62errorzf2locz42zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62errorzf2errnoz90zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3z04exitza31690ze3ze70z60zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00(obj_t);
static obj_t BGl__displayzd2tracezd2stackz00zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_typeof(obj_t);
static obj_t BGl_z62notifyzd2interruptzb0zz__errorz00(obj_t, obj_t);
extern int BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00(void);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char *, char *);
BGL_EXPORTED_DECL obj_t bgl_find_runtime_type(obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2errorzd2handlerz00zz__errorz00(void);
BGL_EXPORTED_DECL obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
BGL_EXPORTED_DECL obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern bool_t BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_z62dumpzd2tracezd2stackz62zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_withzd2exceptionzd2handlerz00zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_envzd2setzd2errorzd2handlerz12zc0zz__errorz00(obj_t, obj_t);
extern obj_t make_string(long, unsigned char);
extern obj_t bgl_close_input_port(obj_t);
static bool_t BGl_exceptionzd2locationzf3z21zz__errorz00(obj_t);
static obj_t BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00(obj_t, obj_t);
extern obj_t BGl_forzd2eachzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_z62sigillzd2errorzd2handlerz62zz__errorz00(obj_t, obj_t);
static obj_t BGl_defaultzd2exceptionzd2handlerz00zz__errorz00(obj_t);
static obj_t BGl_z62bigloozd2typezd2errorzf2locationz90zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, long, long);
extern obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31917ze3ze5zz__errorz00(obj_t, obj_t);
extern obj_t BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00;
static obj_t BGl__getzd2tracezd2stackz00zz__errorz00(obj_t, obj_t);
extern obj_t BGl_signalz00zz__osz00(int, obj_t);
extern obj_t BGl_z62iozd2readzd2errorz62zz__objectz00;
extern bool_t bigloo_strncmp(obj_t, obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_warningzf2loczf2zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62warningzf2locationz90zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_valuesz00zz__r5_control_features_6_4z00(obj_t);
extern obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl_notifyzd2z62errorzb0zz__errorz00(obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE( BGl_envzd2setzd2errorzd2handlerz12zd2envz12zz__errorz00, BgL_bgl_za762envza7d2setza7d2e2958za7, BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_the_failurezd2envzd2zz__errorz00, BgL_bgl_za762the_failureza762959z00, BGl_z62the_failurez62zz__errorz00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_errorzf2sourcezd2envz20zz__errorz00, BgL_bgl_za762errorza7f2sourc2960z00, BGl_z62errorzf2sourcez90zz__errorz00, 0L, BUNSPEC, 4 );
DEFINE_STRING( BGl_string2920z00zz__errorz00, BgL_bgl_string2920za700za7za7_2961za7, "process", 7 );
DEFINE_STRING( BGl_string2921z00zz__errorz00, BgL_bgl_string2921za700za7za7_2962za7, "custom", 6 );
DEFINE_STRING( BGl_string2840z00zz__errorz00, BgL_bgl_string2840za700za7za7_2963za7, "\077\077?", 3 );
DEFINE_STRING( BGl_string2922z00zz__errorz00, BgL_bgl_string2922za700za7za7_2964za7, "opaque", 6 );
DEFINE_STRING( BGl_string2841z00zz__errorz00, BgL_bgl_string2841za700za7za7_2965za7, "Type", 4 );
DEFINE_STRING( BGl_string2923z00zz__errorz00, BgL_bgl_string2923za700za7za7_2966za7, "_", 1 );
DEFINE_STRING( BGl_string2842z00zz__errorz00, BgL_bgl_string2842za700za7za7_2967za7, "]", 1 );
DEFINE_STRING( BGl_string2924z00zz__errorz00, BgL_bgl_string2924za700za7za7_2968za7, "ucs2string", 10 );
DEFINE_STRING( BGl_string2843z00zz__errorz00, BgL_bgl_string2843za700za7za7_2969za7, " out of range [0..", 18 );
DEFINE_STRING( BGl_string2925z00zz__errorz00, BgL_bgl_string2925za700za7za7_2970za7, "ucs2", 4 );
DEFINE_STRING( BGl_string2844z00zz__errorz00, BgL_bgl_string2844za700za7za7_2971za7, "index ", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_notifyzd2interruptzd2envz00zz__errorz00, BgL_bgl_za762notifyza7d2inte2972z00, BGl_z62notifyzd2interruptzb0zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2926z00zz__errorz00, BgL_bgl_string2926za700za7za7_2973za7, "elong", 5 );
DEFINE_STRING( BGl_string2845z00zz__errorz00, BgL_bgl_string2845za700za7za7_2974za7, "&index-out-of-bounds2758", 24 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_raisezd2envzd2zz__errorz00, BgL_bgl_za762raiseza762za7za7__e2975z00, BGl_z62raisez62zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2927z00zz__errorz00, BgL_bgl_string2927za700za7za7_2976za7, "llong", 5 );
DEFINE_STRING( BGl_string2846z00zz__errorz00, BgL_bgl_string2846za700za7za7_2977za7, "&warning/c-location", 19 );
DEFINE_STRING( BGl_string2928z00zz__errorz00, BgL_bgl_string2928za700za7za7_2978za7, "mutex", 5 );
DEFINE_STRING( BGl_string2847z00zz__errorz00, BgL_bgl_string2847za700za7za7_2979za7, ":\n", 2 );
DEFINE_STRING( BGl_string2929z00zz__errorz00, BgL_bgl_string2929za700za7za7_2980za7, "condvar", 7 );
DEFINE_STRING( BGl_string2849z00zz__errorz00, BgL_bgl_string2849za700za7za7_2981za7, "%no-error-obj", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_errorzd2notifyzf2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7d2notif2982z00, BGl_z62errorzd2notifyzf2locationz42zz__errorz00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_getzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl__getza7d2traceza7d2s2983z00, opt_generic_entry, BGl__getzd2tracezd2stackz00zz__errorz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_currentzd2exceptionzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762currentza7d2exc2984z00, BGl_z62currentzd2exceptionzd2handlerz62zz__errorz00, 0L, BUNSPEC, 0 );
DEFINE_STRING( BGl_string2930z00zz__errorz00, BgL_bgl_string2930za700za7za7_2985za7, "date", 4 );
DEFINE_STRING( BGl_string2931z00zz__errorz00, BgL_bgl_string2931za700za7za7_2986za7, "bignum", 6 );
DEFINE_STRING( BGl_string2850z00zz__errorz00, BgL_bgl_string2850za700za7za7_2987za7, " -- ", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_errorzd2notifyzd2envz00zz__errorz00, BgL_bgl_za762errorza7d2notif2988z00, BGl_z62errorzd2notifyzb0zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_errorzf2sourcezd2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7f2sourc2989z00, BGl_z62errorzf2sourcezd2locationz42zz__errorz00, 0L, BUNSPEC, 4 );
DEFINE_STRING( BGl_string2932z00zz__errorz00, BgL_bgl_string2932za700za7za7_2990za7, "mmap", 4 );
DEFINE_STRING( BGl_string2851z00zz__errorz00, BgL_bgl_string2851za700za7za7_2991za7, "\", character ", 13 );
DEFINE_STRING( BGl_string2933z00zz__errorz00, BgL_bgl_string2933za700za7za7_2992za7, "regexp", 6 );
DEFINE_STRING( BGl_string2852z00zz__errorz00, BgL_bgl_string2852za700za7za7_2993za7, "File \"", 6 );
DEFINE_STRING( BGl_string2934z00zz__errorz00, BgL_bgl_string2934za700za7za7_2994za7, "int8", 4 );
DEFINE_STRING( BGl_string2853z00zz__errorz00, BgL_bgl_string2853za700za7za7_2995za7, "...", 3 );
DEFINE_STRING( BGl_string2935z00zz__errorz00, BgL_bgl_string2935za700za7za7_2996za7, "uint8", 5 );
DEFINE_STRING( BGl_string2854z00zz__errorz00, BgL_bgl_string2854za700za7za7_2997za7, "", 0 );
DEFINE_STRING( BGl_string2936z00zz__errorz00, BgL_bgl_string2936za700za7za7_2998za7, "int16", 5 );
DEFINE_STRING( BGl_string2855z00zz__errorz00, BgL_bgl_string2855za700za7za7_2999za7, "stdin", 5 );
DEFINE_STRING( BGl_string2937z00zz__errorz00, BgL_bgl_string2937za700za7za7_3000za7, "uint16", 6 );
DEFINE_STRING( BGl_string2856z00zz__errorz00, BgL_bgl_string2856za700za7za7_3001za7, "string://", 9 );
DEFINE_STRING( BGl_string2938z00zz__errorz00, BgL_bgl_string2938za700za7za7_3002za7, "int32", 5 );
DEFINE_STRING( BGl_string2857z00zz__errorz00, BgL_bgl_string2857za700za7za7_3003za7, "win32", 5 );
DEFINE_STRING( BGl_string2939z00zz__errorz00, BgL_bgl_string2939za700za7za7_3004za7, "uint32", 6 );
DEFINE_STRING( BGl_string2858z00zz__errorz00, BgL_bgl_string2858za700za7za7_3005za7, "<eof>", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_envzd2getzd2errorzd2handlerzd2envz00zz__errorz00, BgL_bgl_za762envza7d2getza7d2e3006za7, BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bigloozd2typezd2errorzd2envzd2zz__errorz00, BgL_bgl_za762biglooza7d2type3007z00, BGl_z62bigloozd2typezd2errorz62zz__errorz00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_pushzd2errorzd2handlerz12zd2envzc0zz__errorz00, BgL_bgl_za762pushza7d2errorza73008za7, BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00, 0L, BUNSPEC, 2 );
extern obj_t BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00;
DEFINE_EXPORT_BGL_PROCEDURE( BGl_indexzd2outzd2ofzd2boundszd2errorzd2envzd2zz__errorz00, BgL_bgl_za762indexza7d2outza7d3009za7, BGl_z62indexzd2outzd2ofzd2bounds2758zb0zz__errorz00, 0L, BUNSPEC, 6 );
DEFINE_STRING( BGl_string2940z00zz__errorz00, BgL_bgl_string2940za700za7za7_3010za7, "int64", 5 );
DEFINE_STRING( BGl_string2941z00zz__errorz00, BgL_bgl_string2941za700za7za7_3011za7, "uint64", 6 );
DEFINE_STRING( BGl_string2860z00zz__errorz00, BgL_bgl_string2860za700za7za7_3012za7, "line-col", 8 );
DEFINE_STRING( BGl_string2942z00zz__errorz00, BgL_bgl_string2942za700za7za7_3013za7, "bcnst", 5 );
DEFINE_STRING( BGl_string2943z00zz__errorz00, BgL_bgl_string2943za700za7za7_3014za7, "&&try", 5 );
DEFINE_STRING( BGl_string2862z00zz__errorz00, BgL_bgl_string2862za700za7za7_3015za7, "line", 4 );
DEFINE_STRING( BGl_string2944z00zz__errorz00, BgL_bgl_string2944za700za7za7_3016za7, "&push-error-handler!", 20 );
DEFINE_STRING( BGl_string2863z00zz__errorz00, BgL_bgl_string2863za700za7za7_3017za7, "*** CONDITION: ", 15 );
DEFINE_STRING( BGl_string2945z00zz__errorz00, BgL_bgl_string2945za700za7za7_3018za7, "&env-set-error-handler!", 23 );
DEFINE_STRING( BGl_string2864z00zz__errorz00, BgL_bgl_string2864za700za7za7_3019za7, "&error-notify/location", 22 );
DEFINE_STRING( BGl_string2946z00zz__errorz00, BgL_bgl_string2946za700za7za7_3020za7, "dynamic-env", 11 );
DEFINE_STRING( BGl_string2865z00zz__errorz00, BgL_bgl_string2865za700za7za7_3021za7, "*** WARNING: ", 13 );
DEFINE_STRING( BGl_string2947z00zz__errorz00, BgL_bgl_string2947za700za7za7_3022za7, "&env-get-error-handler", 22 );
DEFINE_STRING( BGl_string2948z00zz__errorz00, BgL_bgl_string2948za700za7za7_3023za7, "&notify-interrupt", 17 );
DEFINE_STRING( BGl_string2867z00zz__errorz00, BgL_bgl_string2867za700za7za7_3024za7, "[string]", 8 );
DEFINE_STRING( BGl_string2949z00zz__errorz00, BgL_bgl_string2949za700za7za7_3025za7, "*** INTERRUPT:bigloo:", 21 );
DEFINE_STRING( BGl_string2868z00zz__errorz00, BgL_bgl_string2868za700za7za7_3026za7, "[stdin]", 7 );
DEFINE_STRING( BGl_string2869z00zz__errorz00, BgL_bgl_string2869za700za7za7_3027za7, "&warning-notify/location", 24 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulezd2initzd2errorzd2envzd2zz__errorz00, BgL_bgl_za762moduleza7d2init3028z00, BGl_z62modulezd2initzd2errorz62zz__errorz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_getzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762getza7d2errorza7d3029za7, BGl_z62getzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_errorzf2czd2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7f2cza7d2l3030za7, BGl_z62errorzf2czd2locationz42zz__errorz00, 0L, BUNSPEC, 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bigloozd2typezd2errorzf2locationzd2envz20zz__errorz00, BgL_bgl_za762biglooza7d2type3031z00, BGl_z62bigloozd2typezd2errorzf2locationz90zz__errorz00, 0L, BUNSPEC, 5 );
DEFINE_STRING( BGl_string2950z00zz__errorz00, BgL_bgl_string2950za700za7za7_3032za7, "arithmetic procedure", 20 );
DEFINE_STRING( BGl_string2951z00zz__errorz00, BgL_bgl_string2951za700za7za7_3033za7, "`floating point' exception", 26 );
DEFINE_STRING( BGl_string2952z00zz__errorz00, BgL_bgl_string2952za700za7za7_3034za7, "raised", 6 );
DEFINE_STRING( BGl_string2871z00zz__errorz00, BgL_bgl_string2871za700za7za7_3035za7, "_display-trace-stack", 20 );
DEFINE_STRING( BGl_string2953z00zz__errorz00, BgL_bgl_string2953za700za7za7_3036za7, "bigloo", 6 );
DEFINE_STRING( BGl_string2872z00zz__errorz00, BgL_bgl_string2872za700za7za7_3037za7, "output-port", 11 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_proc2866z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3038za7, BGl_z62zc3z04anonymousza31882ze3ze5zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2954z00zz__errorz00, BgL_bgl_string2954za700za7za7_3039za7, "`illegal instruction' exception", 31 );
DEFINE_STRING( BGl_string2873z00zz__errorz00, BgL_bgl_string2873za700za7za7_3040za7, "\n*** INTERNAL ERROR: corrupted stack -- ~s\n", 43 );
DEFINE_STRING( BGl_string2955z00zz__errorz00, BgL_bgl_string2955za700za7za7_3041za7, "`bus error' exception", 21 );
DEFINE_STRING( BGl_string2874z00zz__errorz00, BgL_bgl_string2874za700za7za7_3042za7, "! ", 2 );
DEFINE_STRING( BGl_string2956z00zz__errorz00, BgL_bgl_string2956za700za7za7_3043za7, "`segmentation violation' exception", 34 );
DEFINE_STRING( BGl_string2875z00zz__errorz00, BgL_bgl_string2875za700za7za7_3044za7, "    ", 4 );
DEFINE_STRING( BGl_string2957z00zz__errorz00, BgL_bgl_string2957za700za7za7_3045za7, "__error", 7 );
DEFINE_STRING( BGl_string2876z00zz__errorz00, BgL_bgl_string2876za700za7za7_3046za7, "   ", 3 );
DEFINE_STRING( BGl_string2877z00zz__errorz00, BgL_bgl_string2877za700za7za7_3047za7, "  ", 2 );
DEFINE_STRING( BGl_string2878z00zz__errorz00, BgL_bgl_string2878za700za7za7_3048za7, ". ", 2 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_proc2870z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3049za7, BGl_z62zc3z04anonymousza31917ze3ze5zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigbusza7d2erro3050z00, BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2880z00zz__errorz00, BgL_bgl_string2880za700za7za7_3051za7, "margin", 6 );
DEFINE_STRING( BGl_string2882z00zz__errorz00, BgL_bgl_string2882za700za7za7_3052za7, "format", 6 );
DEFINE_STRING( BGl_string2883z00zz__errorz00, BgL_bgl_string2883za700za7za7_3053za7, " ", 1 );
DEFINE_STRING( BGl_string2884z00zz__errorz00, BgL_bgl_string2884za700za7za7_3054za7, " (* ", 4 );
DEFINE_STRING( BGl_string2885z00zz__errorz00, BgL_bgl_string2885za700za7za7_3055za7, ")", 1 );
DEFINE_STRING( BGl_string2886z00zz__errorz00, BgL_bgl_string2886za700za7za7_3056za7, ".", 1 );
DEFINE_STRING( BGl_string2887z00zz__errorz00, BgL_bgl_string2887za700za7za7_3057za7, ", ", 2 );
DEFINE_STRING( BGl_string2888z00zz__errorz00, BgL_bgl_string2888za700za7za7_3058za7, "@", 1 );
DEFINE_STRING( BGl_string2889z00zz__errorz00, BgL_bgl_string2889za700za7za7_3059za7, "File ~s, line ~d, character ~d\n", 31 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_warningzd2notifyzf2locationzd2envzf2zz__errorz00, BgL_bgl_za762warningza7d2not3060z00, BGl_z62warningzd2notifyzf2locationz42zz__errorz00, 0L, BUNSPEC, 3 );
DEFINE_STRING( BGl_string2890z00zz__errorz00, BgL_bgl_string2890za700za7za7_3061za7, "File ~s, character ~d\n", 22 );
DEFINE_STRING( BGl_string2891z00zz__errorz00, BgL_bgl_string2891za700za7za7_3062za7, "&display-trace-stack-source", 27 );
DEFINE_STRING( BGl_string2893z00zz__errorz00, BgL_bgl_string2893za700za7za7_3063za7, "done", 4 );
DEFINE_STRING( BGl_string2894z00zz__errorz00, BgL_bgl_string2894za700za7za7_3064za7, "^", 1 );
DEFINE_STRING( BGl_string2895z00zz__errorz00, BgL_bgl_string2895za700za7za7_3065za7, "#", 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_typezd2errorzd2envz00zz__errorz00, BgL_bgl_za762typeza7d2error23066z00, BGl_z62typezd2error2757zb0zz__errorz00, 0L, BUNSPEC, 5 );
DEFINE_STRING( BGl_string2896z00zz__errorz00, BgL_bgl_string2896za700za7za7_3067za7, ", character ", 12 );
DEFINE_STRING( BGl_string2897z00zz__errorz00, BgL_bgl_string2897za700za7za7_3068za7, "\", line ", 8 );
DEFINE_STRING( BGl_string2898z00zz__errorz00, BgL_bgl_string2898za700za7za7_3069za7, "../", 3 );
DEFINE_STRING( BGl_string2899z00zz__errorz00, BgL_bgl_string2899za700za7za7_3070za7, "/", 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_errorzd2envzd2zz__errorz00, BgL_bgl_za762error2756za762za73071za7, BGl_z62error2756z62zz__errorz00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_typeofzd2envzd2zz__errorz00, BgL_bgl_za762typeofza762za7za7__3072z00, BGl_z62typeofz62zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigsegvza7d2err3073z00, BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_z62tryzd2envzb0zz__errorz00, BgL_bgl_za762za762tryza700za7za7__3074za7, BGl_z62z62tryz00zz__errorz00, 0L, BUNSPEC, 2 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigillza7d2erro3075z00, BGl_z62sigillzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_withzd2exceptionzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762withza7d2except3076z00, BGl_z62withzd2exceptionzd2handlerz62zz__errorz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_exitzd2envzd2zz__errorz00, BgL_bgl_za762exitza762za7za7__er3077z00, va_generic_entry, BGl_z62exitz62zz__errorz00, BUNSPEC, -1 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigfpeza7d2erro3078z00, BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_dumpzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl_za762dumpza7d2traceza73079za7, BGl_z62dumpzd2tracezd2stackz62zz__errorz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_displayzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl__displayza7d2trace3080za7, opt_generic_entry, BGl__displayzd2tracezd2stackz00zz__errorz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_warningzd2notifyzd2envz00zz__errorz00, BgL_bgl_za762warningza7d2not3081z00, BGl_z62warningzd2notifyzb0zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_warningzf2loczd2envz20zz__errorz00, BgL_bgl_za762warningza7f2loc3082z00, va_generic_entry, BGl_z62warningzf2locz90zz__errorz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_warningzd2envzd2zz__errorz00, BgL_bgl_za762warning2759za763083z00, va_generic_entry, BGl_z62warning2759z62zz__errorz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_warningzf2czd2locationzd2envzf2zz__errorz00, BgL_bgl_za762warningza7f2cza7d3084za7, va_generic_entry, BGl_z62warningzf2czd2locationz42zz__errorz00, BUNSPEC, -3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_setzd2errorzd2handlerz12zd2envzc0zz__errorz00, BgL_bgl_za762setza7d2errorza7d3085za7, BGl_z62setzd2errorzd2handlerz12z70zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2806z00zz__errorz00, BgL_bgl_string2806za700za7za7_3086za7, "BIGLOOSTACKDEPTH", 16 );
DEFINE_STRING( BGl_string2807z00zz__errorz00, BgL_bgl_string2807za700za7za7_3087za7, "/tmp/bigloo/runtime/Llib/error.scm", 34 );
DEFINE_STRING( BGl_string2808z00zz__errorz00, BgL_bgl_string2808za700za7za7_3088za7, "&error/errno", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_displayzd2tracezd2stackzd2sourcezd2envz00zz__errorz00, BgL_bgl_za762displayza7d2tra3089z00, BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string2809z00zz__errorz00, BgL_bgl_string2809za700za7za7_3090za7, "bint", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_czd2debuggingzd2showzd2typezd2envz00zz__errorz00, BgL_bgl_za762cza7d2debugging3091z00, BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2810z00zz__errorz00, BgL_bgl_string2810za700za7za7_3092za7, "stack overflow", 14 );
DEFINE_STRING( BGl_string2812z00zz__errorz00, BgL_bgl_string2812za700za7za7_3093za7, "at", 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stackzd2overflowzd2errorzd2envzd2zz__errorz00, BgL_bgl_za762stackza7d2overf3094z00, BGl_z62stackzd2overflowzd2erro2755z62zz__errorz00, 0L, BUNSPEC, 0 );
DEFINE_STRING( BGl_string2813z00zz__errorz00, BgL_bgl_string2813za700za7za7_3095za7, "with-exception-handler", 22 );
DEFINE_STRING( BGl_string2814z00zz__errorz00, BgL_bgl_string2814za700za7za7_3096za7, "Incorrect thunk arity", 21 );
DEFINE_STRING( BGl_string2815z00zz__errorz00, BgL_bgl_string2815za700za7za7_3097za7, "Incorrect handler arity", 23 );
DEFINE_STRING( BGl_string2816z00zz__errorz00, BgL_bgl_string2816za700za7za7_3098za7, "&with-exception-handler", 23 );
DEFINE_STRING( BGl_string2817z00zz__errorz00, BgL_bgl_string2817za700za7za7_3099za7, "procedure", 9 );
DEFINE_STRING( BGl_string2819z00zz__errorz00, BgL_bgl_string2819za700za7za7_3100za7, "*** INTERNAL ERROR: wrong error handler ", 40 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bigloozd2typezd2errorzd2msgzd2envz00zz__errorz00, BgL_bgl_za762biglooza7d2type3101z00, BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_errorzf2errnozd2envz20zz__errorz00, BgL_bgl_za762errorza7f2errno3102z00, BGl_z62errorzf2errnoz90zz__errorz00, 0L, BUNSPEC, 4 );
DEFINE_STRING( BGl_string2900z00zz__errorz00, BgL_bgl_string2900za700za7za7_3103za7, "/cygdrive/", 10 );
DEFINE_STRING( BGl_string2901z00zz__errorz00, BgL_bgl_string2901za700za7za7_3104za7, "real", 4 );
DEFINE_STRING( BGl_string2820z00zz__errorz00, BgL_bgl_string2820za700za7za7_3105za7, ":", 1 );
DEFINE_STRING( BGl_string2902z00zz__errorz00, BgL_bgl_string2902za700za7za7_3106za7, "symbol", 6 );
DEFINE_STRING( BGl_string2821z00zz__errorz00, BgL_bgl_string2821za700za7za7_3107za7, ",", 1 );
DEFINE_STRING( BGl_string2903z00zz__errorz00, BgL_bgl_string2903za700za7za7_3108za7, "keyword", 7 );
DEFINE_STRING( BGl_string2822z00zz__errorz00, BgL_bgl_string2822za700za7za7_3109za7, "Llib/error.scm", 14 );
DEFINE_STRING( BGl_string2904z00zz__errorz00, BgL_bgl_string2904za700za7za7_3110za7, "bchar", 5 );
DEFINE_STRING( BGl_string2823z00zz__errorz00, BgL_bgl_string2823za700za7za7_3111za7, "when raising error: ", 20 );
DEFINE_STRING( BGl_string2905z00zz__errorz00, BgL_bgl_string2905za700za7za7_3112za7, "bbool", 5 );
DEFINE_STRING( BGl_string2824z00zz__errorz00, BgL_bgl_string2824za700za7za7_3113za7, "raise", 5 );
DEFINE_STATIC_BGL_PROCEDURE( BGl_proc2818z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3114za7, BGl_z62zc3z04anonymousza31460ze3ze5zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2906z00zz__errorz00, BgL_bgl_string2906za700za7za7_3115za7, "bnil", 4 );
DEFINE_STRING( BGl_string2825z00zz__errorz00, BgL_bgl_string2825za700za7za7_3116za7, "uncaught exception", 18 );
DEFINE_STRING( BGl_string2907z00zz__errorz00, BgL_bgl_string2907za700za7za7_3117za7, "unspecified", 11 );
DEFINE_STRING( BGl_string2826z00zz__errorz00, BgL_bgl_string2826za700za7za7_3118za7, "' must be recompiled (see also -unsafev option).", 48 );
DEFINE_STRING( BGl_string2908z00zz__errorz00, BgL_bgl_string2908za700za7za7_3119za7, "epair", 5 );
DEFINE_STRING( BGl_string2827z00zz__errorz00, BgL_bgl_string2827za700za7za7_3120za7, "At least `", 10 );
DEFINE_STRING( BGl_string2909z00zz__errorz00, BgL_bgl_string2909za700za7za7_3121za7, "pair", 4 );
DEFINE_STRING( BGl_string2828z00zz__errorz00, BgL_bgl_string2828za700za7za7_3122za7, "'.\n", 3 );
DEFINE_STRING( BGl_string2829z00zz__errorz00, BgL_bgl_string2829za700za7za7_3123za7, "' is inconsistently initialized by module `", 43 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_findzd2runtimezd2typezd2envzd2zz__errorz00, BgL_bgl_za762findza7d2runtim3124z00, BGl_z62findzd2runtimezd2typez62zz__errorz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string2910z00zz__errorz00, BgL_bgl_string2910za700za7za7_3125za7, "class", 5 );
DEFINE_STRING( BGl_string2911z00zz__errorz00, BgL_bgl_string2911za700za7za7_3126za7, "vector", 6 );
DEFINE_STRING( BGl_string2830z00zz__errorz00, BgL_bgl_string2830za700za7za7_3127za7, "Module `", 8 );
DEFINE_STRING( BGl_string2912z00zz__errorz00, BgL_bgl_string2912za700za7za7_3128za7, "tvector", 7 );
DEFINE_STRING( BGl_string2831z00zz__errorz00, BgL_bgl_string2831za700za7za7_3129za7, ":Inconsistent module initialization\n", 36 );
DEFINE_STRING( BGl_string2913z00zz__errorz00, BgL_bgl_string2913za700za7za7_3130za7, "struct:", 7 );
DEFINE_STRING( BGl_string2832z00zz__errorz00, BgL_bgl_string2832za700za7za7_3131za7, "*** ERROR:", 10 );
DEFINE_STRING( BGl_string2914z00zz__errorz00, BgL_bgl_string2914za700za7za7_3132za7, "input-port", 10 );
DEFINE_STRING( BGl_string2833z00zz__errorz00, BgL_bgl_string2833za700za7za7_3133za7, "&module-init-error", 18 );
DEFINE_STRING( BGl_string2915z00zz__errorz00, BgL_bgl_string2915za700za7za7_3134za7, "binary-port", 11 );
DEFINE_STRING( BGl_string2834z00zz__errorz00, BgL_bgl_string2834za700za7za7_3135za7, "bstring", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_errorzf2locationzd2envz20zz__errorz00, BgL_bgl_za762errorza7f2locat3136z00, BGl_z62errorzf2locationz90zz__errorz00, 0L, BUNSPEC, 5 );
DEFINE_STRING( BGl_string2916z00zz__errorz00, BgL_bgl_string2916za700za7za7_3137za7, "cell", 4 );
DEFINE_STRING( BGl_string2835z00zz__errorz00, BgL_bgl_string2835za700za7za7_3138za7, "&error/c-location", 17 );
DEFINE_STRING( BGl_string2917z00zz__errorz00, BgL_bgl_string2917za700za7za7_3139za7, "foreign:", 8 );
DEFINE_STRING( BGl_string2836z00zz__errorz00, BgL_bgl_string2836za700za7za7_3140za7, "\" provided", 10 );
DEFINE_STRING( BGl_string2918z00zz__errorz00, BgL_bgl_string2918za700za7za7_3141za7, "socket", 6 );
DEFINE_STRING( BGl_string2837z00zz__errorz00, BgL_bgl_string2837za700za7za7_3142za7, "\" expected, \"", 13 );
DEFINE_STRING( BGl_string2919z00zz__errorz00, BgL_bgl_string2919za700za7za7_3143za7, "datagram-socket", 15 );
DEFINE_STRING( BGl_string2838z00zz__errorz00, BgL_bgl_string2838za700za7za7_3144za7, " \"", 2 );
DEFINE_STRING( BGl_string2839z00zz__errorz00, BgL_bgl_string2839za700za7za7_3145za7, "&bigloo-type-error-msg", 22 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_warningzf2locationzd2envz20zz__errorz00, BgL_bgl_za762warningza7f2loc3146z00, va_generic_entry, BGl_z62warningzf2locationz90zz__errorz00, BUNSPEC, -3 );

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol2811z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2848z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2859z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2861z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2879z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2881z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2892z00zz__errorz00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



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

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__errorz00(void)
{
{ /* Llib/error.scm 18 */
BGl_symbol2811z00zz__errorz00 = 
bstring_to_symbol(BGl_string2812z00zz__errorz00); 
BGl_symbol2848z00zz__errorz00 = 
bstring_to_symbol(BGl_string2849z00zz__errorz00); 
BGl_symbol2859z00zz__errorz00 = 
bstring_to_symbol(BGl_string2860z00zz__errorz00); 
BGl_symbol2861z00zz__errorz00 = 
bstring_to_symbol(BGl_string2862z00zz__errorz00); 
BGl_symbol2879z00zz__errorz00 = 
bstring_to_symbol(BGl_string2880z00zz__errorz00); 
BGl_symbol2881z00zz__errorz00 = 
bstring_to_symbol(BGl_string2882z00zz__errorz00); 
return ( 
BGl_symbol2892z00zz__errorz00 = 
bstring_to_symbol(BGl_string2893z00zz__errorz00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__errorz00(void)
{
{ /* Llib/error.scm 18 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__errorz00(void)
{
{ /* Llib/error.scm 18 */
BGl_signalz00zz__osz00(SIGFPE, BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00); 
BGl_signalz00zz__osz00(SIGTRAP, 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);} 

}



/* _get-trace-stack */
obj_t BGl__getzd2tracezd2stackz00zz__errorz00(obj_t BgL_env1210z00_5, obj_t BgL_opt1209z00_4)
{
{ /* Llib/error.scm 308 */
{ /* Llib/error.scm 308 */

switch( 
VECTOR_LENGTH(BgL_opt1209z00_4)) { case 0L : 

{ /* Llib/error.scm 308 */

return 
BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE);} break;case 1L : 

{ /* Llib/error.scm 308 */
 obj_t BgL_depthz00_1620;
BgL_depthz00_1620 = 
VECTOR_REF(BgL_opt1209z00_4,0L); 
{ /* Llib/error.scm 308 */

return 
BGl_getzd2tracezd2stackz00zz__errorz00(BgL_depthz00_1620);} } break;
default: 
return BUNSPEC;} } } 

}



/* get-trace-stack */
BGL_EXPORTED_DEF obj_t BGl_getzd2tracezd2stackz00zz__errorz00(obj_t BgL_depthz00_3)
{
{ /* Llib/error.scm 308 */
{ /* Llib/error.scm 309 */
 obj_t BgL_dz00_1621;
if(
INTEGERP(BgL_depthz00_3))
{ /* Llib/error.scm 310 */
BgL_dz00_1621 = BgL_depthz00_3; }  else 
{ /* Llib/error.scm 311 */
 obj_t BgL_g1040z00_1623;
BgL_g1040z00_1623 = 
BGl_getenvz00zz__osz00(BGl_string2806z00zz__errorz00); 
if(
CBOOL(BgL_g1040z00_1623))
{ /* Ieee/fixnum.scm 1004 */

BgL_dz00_1621 = 
BINT(
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_g1040z00_1623, 10L, 0L)); }  else 
{ /* Llib/error.scm 311 */
{ /* Llib/error.scm 312 */
 int BgL_arg1341z00_1631;
BgL_arg1341z00_1631 = 
BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00(); ((bool_t)1); } 
BgL_dz00_1621 = 
BINT(
BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00()); } } 
{ /* Llib/error.scm 314 */
 int BgL_tmpz00_5320;
BgL_tmpz00_5320 = 
CINT(BgL_dz00_1621); 
return 
bgl_get_trace_stack(BgL_tmpz00_5320);} } } 

}



/* the_failure */
BGL_EXPORTED_DEF obj_t the_failure(obj_t BgL_procz00_6, obj_t BgL_msgz00_7, obj_t BgL_objz00_8)
{
{ /* Llib/error.scm 319 */
{ /* Llib/error.scm 320 */
 bool_t BgL_test3150z00_5323;
{ /* Llib/error.scm 320 */
 obj_t BgL_classz00_3475;
BgL_classz00_3475 = BGl_z62exceptionz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_procz00_6))
{ /* Llib/error.scm 320 */
 BgL_objectz00_bglt BgL_arg2707z00_3477;
BgL_arg2707z00_3477 = 
(BgL_objectz00_bglt)(BgL_procz00_6); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 320 */
 long BgL_idxz00_3483;
BgL_idxz00_3483 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2707z00_3477); 
BgL_test3150z00_5323 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_3483+2L))==BgL_classz00_3475); }  else 
{ /* Llib/error.scm 320 */
 bool_t BgL_res2735z00_3505;
{ /* Llib/error.scm 320 */
 obj_t BgL_oclassz00_3491;
{ /* Llib/error.scm 320 */
 long BgL_arg2715z00_3497;
{ /* Llib/error.scm 320 */
 long BgL_arg2716z00_3498;
BgL_arg2716z00_3498 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2707z00_3477); 
BgL_arg2715z00_3497 = 
(BgL_arg2716z00_3498-OBJECT_TYPE); } 
BgL_oclassz00_3491 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_arg2715z00_3497); } 
{ /* Llib/error.scm 320 */
 bool_t BgL__ortest_1198z00_3492;
BgL__ortest_1198z00_3492 = 
(BgL_classz00_3475==BgL_oclassz00_3491); 
if(BgL__ortest_1198z00_3492)
{ /* Llib/error.scm 320 */
BgL_res2735z00_3505 = BgL__ortest_1198z00_3492; }  else 
{ /* Llib/error.scm 320 */
 long BgL_odepthz00_3493;
BgL_odepthz00_3493 = 
BGL_CLASS_DEPTH(BgL_oclassz00_3491); 
if(
(2L<BgL_odepthz00_3493))
{ /* Llib/error.scm 320 */
 obj_t BgL_arg2704z00_3495;
BgL_arg2704z00_3495 = 
BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3491, 2L); 
BgL_res2735z00_3505 = 
(BgL_arg2704z00_3495==BgL_classz00_3475); }  else 
{ /* Llib/error.scm 320 */
BgL_res2735z00_3505 = ((bool_t)0); } } } } 
BgL_test3150z00_5323 = BgL_res2735z00_3505; } }  else 
{ /* Llib/error.scm 320 */
BgL_test3150z00_5323 = ((bool_t)0)
; } } 
if(BgL_test3150z00_5323)
{ /* Llib/error.scm 320 */
return 
BGl_raisez00zz__errorz00(BgL_procz00_6);}  else 
{ /* Llib/error.scm 320 */
BGL_TAIL return 
BGl_errorz00zz__errorz00(BgL_procz00_6, BgL_msgz00_7, BgL_objz00_8);} } } 

}



/* &the_failure */
obj_t BGl_z62the_failurez62zz__errorz00(obj_t BgL_envz00_5022, obj_t BgL_procz00_5023, obj_t BgL_msgz00_5024, obj_t BgL_objz00_5025)
{
{ /* Llib/error.scm 319 */
return 
the_failure(BgL_procz00_5023, BgL_msgz00_5024, BgL_objz00_5025);} 

}



/* error/errno */
BGL_EXPORTED_DEF obj_t bgl_system_failure(int BgL_sysnoz00_9, obj_t BgL_procz00_10, obj_t BgL_msgz00_11, obj_t BgL_objz00_12)
{
{ /* Llib/error.scm 327 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_ERROR)))
{ /* Llib/error.scm 331 */
 BgL_z62iozd2errorzb0_bglt BgL_arg1344z00_1634;
{ /* Llib/error.scm 331 */
 BgL_z62iozd2errorzb0_bglt BgL_new1043z00_1635;
{ /* Llib/error.scm 331 */
 BgL_z62iozd2errorzb0_bglt BgL_new1042z00_1638;
BgL_new1042z00_1638 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 331 */
 long BgL_arg1347z00_1639;
BgL_arg1347z00_1639 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1042z00_1638), BgL_arg1347z00_1639); } 
BgL_new1043z00_1635 = BgL_new1042z00_1638; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1043z00_1635)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1043z00_1635)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5358;
{ /* Llib/error.scm 331 */
 obj_t BgL_arg1345z00_1636;
{ /* Llib/error.scm 331 */
 obj_t BgL_arg1346z00_1637;
{ /* Llib/error.scm 331 */
 obj_t BgL_classz00_3511;
BgL_classz00_3511 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg1346z00_1637 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3511); } 
BgL_arg1345z00_1636 = 
VECTOR_REF(BgL_arg1346z00_1637,2L); } 
BgL_auxz00_5358 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1345z00_1636); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1043z00_1635)))->BgL_stackz00)=((obj_t)BgL_auxz00_5358),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1043z00_1635)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1043z00_1635)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1043z00_1635)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1344z00_1634 = BgL_new1043z00_1635; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1344z00_1634));}  else 
{ /* Llib/error.scm 329 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_PORT_ERROR)))
{ /* Llib/error.scm 334 */
 BgL_z62iozd2portzd2errorz62_bglt BgL_arg1349z00_1641;
{ /* Llib/error.scm 334 */
 BgL_z62iozd2portzd2errorz62_bglt BgL_new1045z00_1642;
{ /* Llib/error.scm 334 */
 BgL_z62iozd2portzd2errorz62_bglt BgL_new1044z00_1645;
BgL_new1044z00_1645 = 
((BgL_z62iozd2portzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2portzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 334 */
 long BgL_arg1354z00_1646;
BgL_arg1354z00_1646 = 
BGL_CLASS_NUM(BGl_z62iozd2portzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1044z00_1645), BgL_arg1354z00_1646); } 
BgL_new1045z00_1642 = BgL_new1044z00_1645; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1045z00_1642)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1045z00_1642)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5384;
{ /* Llib/error.scm 334 */
 obj_t BgL_arg1352z00_1643;
{ /* Llib/error.scm 334 */
 obj_t BgL_arg1353z00_1644;
{ /* Llib/error.scm 334 */
 obj_t BgL_classz00_3518;
BgL_classz00_3518 = BGl_z62iozd2portzd2errorz62zz__objectz00; 
BgL_arg1353z00_1644 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3518); } 
BgL_arg1352z00_1643 = 
VECTOR_REF(BgL_arg1353z00_1644,2L); } 
BgL_auxz00_5384 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1352z00_1643); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1045z00_1642)))->BgL_stackz00)=((obj_t)BgL_auxz00_5384),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1045z00_1642)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1045z00_1642)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1045z00_1642)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1349z00_1641 = BgL_new1045z00_1642; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1349z00_1641));}  else 
{ /* Llib/error.scm 332 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_READ_ERROR)))
{ /* Llib/error.scm 337 */
 BgL_z62iozd2readzd2errorz62_bglt BgL_arg1356z00_1648;
{ /* Llib/error.scm 337 */
 BgL_z62iozd2readzd2errorz62_bglt BgL_new1047z00_1649;
{ /* Llib/error.scm 337 */
 BgL_z62iozd2readzd2errorz62_bglt BgL_new1046z00_1652;
BgL_new1046z00_1652 = 
((BgL_z62iozd2readzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2readzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 337 */
 long BgL_arg1359z00_1653;
BgL_arg1359z00_1653 = 
BGL_CLASS_NUM(BGl_z62iozd2readzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1046z00_1652), BgL_arg1359z00_1653); } 
BgL_new1047z00_1649 = BgL_new1046z00_1652; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1047z00_1649)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1047z00_1649)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5410;
{ /* Llib/error.scm 337 */
 obj_t BgL_arg1357z00_1650;
{ /* Llib/error.scm 337 */
 obj_t BgL_arg1358z00_1651;
{ /* Llib/error.scm 337 */
 obj_t BgL_classz00_3525;
BgL_classz00_3525 = BGl_z62iozd2readzd2errorz62zz__objectz00; 
BgL_arg1358z00_1651 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3525); } 
BgL_arg1357z00_1650 = 
VECTOR_REF(BgL_arg1358z00_1651,2L); } 
BgL_auxz00_5410 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1357z00_1650); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1047z00_1649)))->BgL_stackz00)=((obj_t)BgL_auxz00_5410),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1047z00_1649)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1047z00_1649)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1047z00_1649)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1356z00_1648 = BgL_new1047z00_1649; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1356z00_1648));}  else 
{ /* Llib/error.scm 335 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_WRITE_ERROR)))
{ /* Llib/error.scm 340 */
 BgL_z62iozd2writezd2errorz62_bglt BgL_arg1361z00_1655;
{ /* Llib/error.scm 340 */
 BgL_z62iozd2writezd2errorz62_bglt BgL_new1049z00_1656;
{ /* Llib/error.scm 340 */
 BgL_z62iozd2writezd2errorz62_bglt BgL_new1048z00_1659;
BgL_new1048z00_1659 = 
((BgL_z62iozd2writezd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2writezd2errorz62_bgl) ))); 
{ /* Llib/error.scm 340 */
 long BgL_arg1364z00_1660;
BgL_arg1364z00_1660 = 
BGL_CLASS_NUM(BGl_z62iozd2writezd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1048z00_1659), BgL_arg1364z00_1660); } 
BgL_new1049z00_1656 = BgL_new1048z00_1659; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1049z00_1656)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1049z00_1656)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5436;
{ /* Llib/error.scm 340 */
 obj_t BgL_arg1362z00_1657;
{ /* Llib/error.scm 340 */
 obj_t BgL_arg1363z00_1658;
{ /* Llib/error.scm 340 */
 obj_t BgL_classz00_3532;
BgL_classz00_3532 = BGl_z62iozd2writezd2errorz62zz__objectz00; 
BgL_arg1363z00_1658 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3532); } 
BgL_arg1362z00_1657 = 
VECTOR_REF(BgL_arg1363z00_1658,2L); } 
BgL_auxz00_5436 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1362z00_1657); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1049z00_1656)))->BgL_stackz00)=((obj_t)BgL_auxz00_5436),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1049z00_1656)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1049z00_1656)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1049z00_1656)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1361z00_1655 = BgL_new1049z00_1656; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1361z00_1655));}  else 
{ /* Llib/error.scm 338 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_UNKNOWN_HOST_ERROR)))
{ /* Llib/error.scm 343 */
 BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt BgL_arg1366z00_1662;
{ /* Llib/error.scm 343 */
 BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt BgL_new1051z00_1663;
{ /* Llib/error.scm 343 */
 BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt BgL_new1050z00_1666;
BgL_new1050z00_1666 = 
((BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2unknownzd2hostzd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 343 */
 long BgL_arg1369z00_1667;
BgL_arg1369z00_1667 = 
BGL_CLASS_NUM(BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1050z00_1666), BgL_arg1369z00_1667); } 
BgL_new1051z00_1663 = BgL_new1050z00_1666; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1051z00_1663)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1051z00_1663)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5462;
{ /* Llib/error.scm 343 */
 obj_t BgL_arg1367z00_1664;
{ /* Llib/error.scm 343 */
 obj_t BgL_arg1368z00_1665;
{ /* Llib/error.scm 343 */
 obj_t BgL_classz00_3539;
BgL_classz00_3539 = BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00; 
BgL_arg1368z00_1665 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3539); } 
BgL_arg1367z00_1664 = 
VECTOR_REF(BgL_arg1368z00_1665,2L); } 
BgL_auxz00_5462 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1367z00_1664); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1051z00_1663)))->BgL_stackz00)=((obj_t)BgL_auxz00_5462),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1051z00_1663)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1051z00_1663)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1051z00_1663)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1366z00_1662 = BgL_new1051z00_1663; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1366z00_1662));}  else 
{ /* Llib/error.scm 341 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_FILE_NOT_FOUND_ERROR)))
{ /* Llib/error.scm 346 */
 BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt BgL_arg1371z00_1669;
{ /* Llib/error.scm 346 */
 BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt BgL_new1053z00_1670;
{ /* Llib/error.scm 346 */
 BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt BgL_new1052z00_1673;
BgL_new1052z00_1673 = 
((BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2filezd2notzd2foundzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 346 */
 long BgL_arg1374z00_1674;
BgL_arg1374z00_1674 = 
BGL_CLASS_NUM(BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1052z00_1673), BgL_arg1374z00_1674); } 
BgL_new1053z00_1670 = BgL_new1052z00_1673; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1053z00_1670)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1053z00_1670)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5488;
{ /* Llib/error.scm 346 */
 obj_t BgL_arg1372z00_1671;
{ /* Llib/error.scm 346 */
 obj_t BgL_arg1373z00_1672;
{ /* Llib/error.scm 346 */
 obj_t BgL_classz00_3546;
BgL_classz00_3546 = BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00; 
BgL_arg1373z00_1672 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3546); } 
BgL_arg1372z00_1671 = 
VECTOR_REF(BgL_arg1373z00_1672,2L); } 
BgL_auxz00_5488 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1372z00_1671); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1053z00_1670)))->BgL_stackz00)=((obj_t)BgL_auxz00_5488),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1053z00_1670)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1053z00_1670)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1053z00_1670)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1371z00_1669 = BgL_new1053z00_1670; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1371z00_1669));}  else 
{ /* Llib/error.scm 344 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_PARSE_ERROR)))
{ /* Llib/error.scm 349 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_arg1376z00_1676;
{ /* Llib/error.scm 349 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_new1055z00_1677;
{ /* Llib/error.scm 349 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_new1054z00_1680;
BgL_new1054z00_1680 = 
((BgL_z62iozd2parsezd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2parsezd2errorz62_bgl) ))); 
{ /* Llib/error.scm 349 */
 long BgL_arg1382z00_1681;
BgL_arg1382z00_1681 = 
BGL_CLASS_NUM(BGl_z62iozd2parsezd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1054z00_1680), BgL_arg1382z00_1681); } 
BgL_new1055z00_1677 = BgL_new1054z00_1680; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1055z00_1677)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1055z00_1677)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5514;
{ /* Llib/error.scm 349 */
 obj_t BgL_arg1377z00_1678;
{ /* Llib/error.scm 349 */
 obj_t BgL_arg1379z00_1679;
{ /* Llib/error.scm 349 */
 obj_t BgL_classz00_3553;
BgL_classz00_3553 = BGl_z62iozd2parsezd2errorz62zz__objectz00; 
BgL_arg1379z00_1679 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3553); } 
BgL_arg1377z00_1678 = 
VECTOR_REF(BgL_arg1379z00_1679,2L); } 
BgL_auxz00_5514 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1377z00_1678); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1055z00_1677)))->BgL_stackz00)=((obj_t)BgL_auxz00_5514),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1055z00_1677)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1055z00_1677)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1055z00_1677)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1376z00_1676 = BgL_new1055z00_1677; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1376z00_1676));}  else 
{ /* Llib/error.scm 347 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_MALFORMED_URL_ERROR)))
{ /* Llib/error.scm 352 */
 BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt BgL_arg1384z00_1683;
{ /* Llib/error.scm 352 */
 BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt BgL_new1057z00_1684;
{ /* Llib/error.scm 352 */
 BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt BgL_new1056z00_1687;
BgL_new1056z00_1687 = 
((BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2malformedzd2urlzd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 352 */
 long BgL_arg1387z00_1688;
BgL_arg1387z00_1688 = 
BGL_CLASS_NUM(BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1056z00_1687), BgL_arg1387z00_1688); } 
BgL_new1057z00_1684 = BgL_new1056z00_1687; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1057z00_1684)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1057z00_1684)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5540;
{ /* Llib/error.scm 352 */
 obj_t BgL_arg1385z00_1685;
{ /* Llib/error.scm 352 */
 obj_t BgL_arg1386z00_1686;
{ /* Llib/error.scm 352 */
 obj_t BgL_classz00_3560;
BgL_classz00_3560 = BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00; 
BgL_arg1386z00_1686 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3560); } 
BgL_arg1385z00_1685 = 
VECTOR_REF(BgL_arg1386z00_1686,2L); } 
BgL_auxz00_5540 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1385z00_1685); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1057z00_1684)))->BgL_stackz00)=((obj_t)BgL_auxz00_5540),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1057z00_1684)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1057z00_1684)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1057z00_1684)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1384z00_1683 = BgL_new1057z00_1684; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1384z00_1683));}  else 
{ /* Llib/error.scm 350 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_SIGPIPE_ERROR)))
{ /* Llib/error.scm 355 */
 BgL_z62iozd2sigpipezd2errorz62_bglt BgL_arg1389z00_1690;
{ /* Llib/error.scm 355 */
 BgL_z62iozd2sigpipezd2errorz62_bglt BgL_new1059z00_1691;
{ /* Llib/error.scm 355 */
 BgL_z62iozd2sigpipezd2errorz62_bglt BgL_new1058z00_1694;
BgL_new1058z00_1694 = 
((BgL_z62iozd2sigpipezd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2sigpipezd2errorz62_bgl) ))); 
{ /* Llib/error.scm 355 */
 long BgL_arg1392z00_1695;
BgL_arg1392z00_1695 = 
BGL_CLASS_NUM(BGl_z62iozd2sigpipezd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1058z00_1694), BgL_arg1392z00_1695); } 
BgL_new1059z00_1691 = BgL_new1058z00_1694; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1059z00_1691)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1059z00_1691)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5566;
{ /* Llib/error.scm 355 */
 obj_t BgL_arg1390z00_1692;
{ /* Llib/error.scm 355 */
 obj_t BgL_arg1391z00_1693;
{ /* Llib/error.scm 355 */
 obj_t BgL_classz00_3567;
BgL_classz00_3567 = BGl_z62iozd2sigpipezd2errorz62zz__objectz00; 
BgL_arg1391z00_1693 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3567); } 
BgL_arg1390z00_1692 = 
VECTOR_REF(BgL_arg1391z00_1693,2L); } 
BgL_auxz00_5566 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1390z00_1692); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1059z00_1691)))->BgL_stackz00)=((obj_t)BgL_auxz00_5566),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1059z00_1691)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1059z00_1691)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1059z00_1691)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1389z00_1690 = BgL_new1059z00_1691; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1389z00_1690));}  else 
{ /* Llib/error.scm 353 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_TIMEOUT_ERROR)))
{ /* Llib/error.scm 358 */
 BgL_z62iozd2timeoutzd2errorz62_bglt BgL_arg1394z00_1697;
{ /* Llib/error.scm 358 */
 BgL_z62iozd2timeoutzd2errorz62_bglt BgL_new1062z00_1698;
{ /* Llib/error.scm 358 */
 BgL_z62iozd2timeoutzd2errorz62_bglt BgL_new1060z00_1701;
BgL_new1060z00_1701 = 
((BgL_z62iozd2timeoutzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2timeoutzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 358 */
 long BgL_arg1397z00_1702;
BgL_arg1397z00_1702 = 
BGL_CLASS_NUM(BGl_z62iozd2timeoutzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1060z00_1701), BgL_arg1397z00_1702); } 
BgL_new1062z00_1698 = BgL_new1060z00_1701; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1062z00_1698)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1062z00_1698)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5592;
{ /* Llib/error.scm 358 */
 obj_t BgL_arg1395z00_1699;
{ /* Llib/error.scm 358 */
 obj_t BgL_arg1396z00_1700;
{ /* Llib/error.scm 358 */
 obj_t BgL_classz00_3574;
BgL_classz00_3574 = BGl_z62iozd2timeoutzd2errorz62zz__objectz00; 
BgL_arg1396z00_1700 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3574); } 
BgL_arg1395z00_1699 = 
VECTOR_REF(BgL_arg1396z00_1700,2L); } 
BgL_auxz00_5592 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1395z00_1699); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1062z00_1698)))->BgL_stackz00)=((obj_t)BgL_auxz00_5592),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1062z00_1698)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1062z00_1698)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1062z00_1698)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1394z00_1697 = BgL_new1062z00_1698; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1394z00_1697));}  else 
{ /* Llib/error.scm 356 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_CONNECTION_ERROR)))
{ /* Llib/error.scm 361 */
 BgL_z62iozd2connectionzd2errorz62_bglt BgL_arg1399z00_1704;
{ /* Llib/error.scm 361 */
 BgL_z62iozd2connectionzd2errorz62_bglt BgL_new1064z00_1705;
{ /* Llib/error.scm 361 */
 BgL_z62iozd2connectionzd2errorz62_bglt BgL_new1063z00_1708;
BgL_new1063z00_1708 = 
((BgL_z62iozd2connectionzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2connectionzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 361 */
 long BgL_arg1402z00_1709;
BgL_arg1402z00_1709 = 
BGL_CLASS_NUM(BGl_z62iozd2connectionzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1063z00_1708), BgL_arg1402z00_1709); } 
BgL_new1064z00_1705 = BgL_new1063z00_1708; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1064z00_1705)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1064z00_1705)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5618;
{ /* Llib/error.scm 361 */
 obj_t BgL_arg1400z00_1706;
{ /* Llib/error.scm 361 */
 obj_t BgL_arg1401z00_1707;
{ /* Llib/error.scm 361 */
 obj_t BgL_classz00_3581;
BgL_classz00_3581 = BGl_z62iozd2connectionzd2errorz62zz__objectz00; 
BgL_arg1401z00_1707 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3581); } 
BgL_arg1400z00_1706 = 
VECTOR_REF(BgL_arg1401z00_1707,2L); } 
BgL_auxz00_5618 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1400z00_1706); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1064z00_1705)))->BgL_stackz00)=((obj_t)BgL_auxz00_5618),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1064z00_1705)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1064z00_1705)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1064z00_1705)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1399z00_1704 = BgL_new1064z00_1705; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1399z00_1704));}  else 
{ /* Llib/error.scm 359 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_PROCESS_EXCEPTION)))
{ /* Llib/error.scm 364 */
 BgL_z62processzd2exceptionzb0_bglt BgL_arg1405z00_1711;
{ /* Llib/error.scm 364 */
 BgL_z62processzd2exceptionzb0_bglt BgL_new1066z00_1712;
{ /* Llib/error.scm 364 */
 BgL_z62processzd2exceptionzb0_bglt BgL_new1065z00_1715;
BgL_new1065z00_1715 = 
((BgL_z62processzd2exceptionzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62processzd2exceptionzb0_bgl) ))); 
{ /* Llib/error.scm 364 */
 long BgL_arg1408z00_1716;
BgL_arg1408z00_1716 = 
BGL_CLASS_NUM(BGl_z62processzd2exceptionzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1065z00_1715), BgL_arg1408z00_1716); } 
BgL_new1066z00_1712 = BgL_new1065z00_1715; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1066z00_1712)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1066z00_1712)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5644;
{ /* Llib/error.scm 364 */
 obj_t BgL_arg1406z00_1713;
{ /* Llib/error.scm 364 */
 obj_t BgL_arg1407z00_1714;
{ /* Llib/error.scm 364 */
 obj_t BgL_classz00_3588;
BgL_classz00_3588 = BGl_z62processzd2exceptionzb0zz__objectz00; 
BgL_arg1407z00_1714 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3588); } 
BgL_arg1406z00_1713 = 
VECTOR_REF(BgL_arg1407z00_1714,2L); } 
BgL_auxz00_5644 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1406z00_1713); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1066z00_1712)))->BgL_stackz00)=((obj_t)BgL_auxz00_5644),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1066z00_1712)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1066z00_1712)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1066z00_1712)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1405z00_1711 = BgL_new1066z00_1712; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1405z00_1711));}  else 
{ /* Llib/error.scm 362 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_TYPE_ERROR)))
{ /* Llib/error.scm 365 */
return 
BGl_raisez00zz__errorz00(
BGl_typezd2errorzd2zz__errorz00(BFALSE, BFALSE, BgL_procz00_10, BgL_msgz00_11, BgL_objz00_12));}  else 
{ /* Llib/error.scm 365 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_TYPENAME_ERROR)))
{ /* Llib/error.scm 368 */
 BgL_z62typezd2errorzb0_bglt BgL_arg1412z00_1720;
BgL_arg1412z00_1720 = 
BGl_typenamezd2errorzd2zz__errorz00(((bool_t)0), ((bool_t)0), BgL_procz00_10, BgL_msgz00_11, BgL_objz00_12); 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1412z00_1720));}  else 
{ /* Llib/error.scm 367 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_INDEX_OUT_OF_BOUND_ERROR)))
{ /* Llib/error.scm 370 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_arg1414z00_1722;
{ /* Llib/error.scm 370 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_new1068z00_1723;
{ /* Llib/error.scm 370 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_new1067z00_1726;
BgL_new1067z00_1726 = 
((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl) ))); 
{ /* Llib/error.scm 370 */
 long BgL_arg1417z00_1727;
BgL_arg1417z00_1727 = 
BGL_CLASS_NUM(BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1067z00_1726), BgL_arg1417z00_1727); } 
BgL_new1068z00_1723 = BgL_new1067z00_1726; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1068z00_1723)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1068z00_1723)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5683;
{ /* Llib/error.scm 370 */
 obj_t BgL_arg1415z00_1724;
{ /* Llib/error.scm 370 */
 obj_t BgL_arg1416z00_1725;
{ /* Llib/error.scm 370 */
 obj_t BgL_classz00_3599;
BgL_classz00_3599 = BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00; 
BgL_arg1416z00_1725 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3599); } 
BgL_arg1415z00_1724 = 
VECTOR_REF(BgL_arg1416z00_1725,2L); } 
BgL_auxz00_5683 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1415z00_1724); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1068z00_1723)))->BgL_stackz00)=((obj_t)BgL_auxz00_5683),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1068z00_1723)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1068z00_1723)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1068z00_1723)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
((((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)COBJECT(BgL_new1068z00_1723))->BgL_indexz00)=((obj_t)
BINT(-1L)),BUNSPEC); 
BgL_arg1414z00_1722 = BgL_new1068z00_1723; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1414z00_1722));}  else 
{ /* Llib/error.scm 369 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_10, BgL_msgz00_11, BgL_objz00_12);} } } } } } } } } } } } } } } } 

}



/* &error/errno */
obj_t BGl_z62errorzf2errnoz90zz__errorz00(obj_t BgL_envz00_5026, obj_t BgL_sysnoz00_5027, obj_t BgL_procz00_5028, obj_t BgL_msgz00_5029, obj_t BgL_objz00_5030)
{
{ /* Llib/error.scm 327 */
{ /* Llib/error.scm 329 */
 int BgL_auxz00_5700;
{ /* Llib/error.scm 329 */
 obj_t BgL_tmpz00_5701;
if(
INTEGERP(BgL_sysnoz00_5027))
{ /* Llib/error.scm 329 */
BgL_tmpz00_5701 = BgL_sysnoz00_5027
; }  else 
{ 
 obj_t BgL_auxz00_5704;
BgL_auxz00_5704 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(13566L), BGl_string2808z00zz__errorz00, BGl_string2809z00zz__errorz00, BgL_sysnoz00_5027); 
FAILURE(BgL_auxz00_5704,BFALSE,BFALSE);} 
BgL_auxz00_5700 = 
CINT(BgL_tmpz00_5701); } 
return 
bgl_system_failure(BgL_auxz00_5700, BgL_procz00_5028, BgL_msgz00_5029, BgL_objz00_5030);} } 

}



/* stack-overflow-error */
BGL_EXPORTED_DEF obj_t bgl_stack_overflow_error(void)
{
{ /* Llib/error.scm 378 */
{ /* Llib/error.scm 379 */
 obj_t BgL_stkz00_1728;
{ /* Llib/error.scm 379 */

{ /* Llib/error.scm 379 */

BgL_stkz00_1728 = 
BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE); } } 
{ 
 obj_t BgL_procz00_1733; obj_t BgL_procz00_1729; obj_t BgL_fnamez00_1730; obj_t BgL_locz00_1731;
if(
PAIRP(BgL_stkz00_1728))
{ /* Llib/error.scm 380 */
 obj_t BgL_carzd2111zd2_1738;
BgL_carzd2111zd2_1738 = 
CAR(
((obj_t)BgL_stkz00_1728)); 
if(
PAIRP(BgL_carzd2111zd2_1738))
{ /* Llib/error.scm 380 */
 obj_t BgL_cdrzd2117zd2_1740;
BgL_cdrzd2117zd2_1740 = 
CDR(BgL_carzd2111zd2_1738); 
if(
PAIRP(BgL_cdrzd2117zd2_1740))
{ /* Llib/error.scm 380 */
 obj_t BgL_carzd2121zd2_1742;
BgL_carzd2121zd2_1742 = 
CAR(BgL_cdrzd2117zd2_1740); 
if(
PAIRP(BgL_carzd2121zd2_1742))
{ /* Llib/error.scm 380 */
 obj_t BgL_cdrzd2126zd2_1744;
BgL_cdrzd2126zd2_1744 = 
CDR(BgL_carzd2121zd2_1742); 
if(
(
CAR(BgL_carzd2121zd2_1742)==BGl_symbol2811z00zz__errorz00))
{ /* Llib/error.scm 380 */
if(
PAIRP(BgL_cdrzd2126zd2_1744))
{ /* Llib/error.scm 380 */
 obj_t BgL_cdrzd2130zd2_1748;
BgL_cdrzd2130zd2_1748 = 
CDR(BgL_cdrzd2126zd2_1744); 
if(
PAIRP(BgL_cdrzd2130zd2_1748))
{ /* Llib/error.scm 380 */
if(
NULLP(
CDR(BgL_cdrzd2130zd2_1748)))
{ /* Llib/error.scm 380 */
if(
NULLP(
CDR(BgL_cdrzd2117zd2_1740)))
{ /* Llib/error.scm 380 */
BgL_procz00_1729 = 
CAR(BgL_carzd2111zd2_1738); 
BgL_fnamez00_1730 = 
CAR(BgL_cdrzd2126zd2_1744); 
BgL_locz00_1731 = 
CAR(BgL_cdrzd2130zd2_1748); 
{ /* Llib/error.scm 383 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_arg1446z00_1768;
{ /* Llib/error.scm 383 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1070z00_1769;
{ /* Llib/error.scm 384 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1069z00_1770;
BgL_new1069z00_1770 = 
((BgL_z62stackzd2overflowzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62stackzd2overflowzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 384 */
 long BgL_arg1447z00_1771;
BgL_arg1447z00_1771 = 
BGL_CLASS_NUM(BGl_z62stackzd2overflowzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1069z00_1770), BgL_arg1447z00_1771); } 
BgL_new1070z00_1769 = BgL_new1069z00_1770; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1070z00_1769)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_1730),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1070z00_1769)))->BgL_locationz00)=((obj_t)BgL_locz00_1731),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1070z00_1769)))->BgL_stackz00)=((obj_t)BgL_stkz00_1728),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1070z00_1769)))->BgL_procz00)=((obj_t)BgL_procz00_1729),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1070z00_1769)))->BgL_msgz00)=((obj_t)BGl_string2810z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1070z00_1769)))->BgL_objz00)=((obj_t)
BGL_CURRENT_DYNAMIC_ENV()),BUNSPEC); 
BgL_arg1446z00_1768 = BgL_new1070z00_1769; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1446z00_1768));} }  else 
{ /* Llib/error.scm 380 */
BgL_procz00_1733 = BgL_carzd2111zd2_1738; 
BgL_tagzd2102zd2_1734:
{ /* Llib/error.scm 392 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_arg1448z00_1772;
{ /* Llib/error.scm 392 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1072z00_1773;
{ /* Llib/error.scm 392 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1071z00_1774;
BgL_new1071z00_1774 = 
((BgL_z62stackzd2overflowzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62stackzd2overflowzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 392 */
 long BgL_arg1449z00_1775;
BgL_arg1449z00_1775 = 
BGL_CLASS_NUM(BGl_z62stackzd2overflowzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1071z00_1774), BgL_arg1449z00_1775); } 
BgL_new1072z00_1773 = BgL_new1071z00_1774; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1072z00_1773)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1072z00_1773)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1072z00_1773)))->BgL_stackz00)=((obj_t)BgL_stkz00_1728),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1072z00_1773)))->BgL_procz00)=((obj_t)BgL_procz00_1733),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1072z00_1773)))->BgL_msgz00)=((obj_t)BGl_string2810z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1072z00_1773)))->BgL_objz00)=((obj_t)
BGL_CURRENT_DYNAMIC_ENV()),BUNSPEC); 
BgL_arg1448z00_1772 = BgL_new1072z00_1773; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1448z00_1772));} } }  else 
{ 
 obj_t BgL_procz00_5779;
BgL_procz00_5779 = BgL_carzd2111zd2_1738; 
BgL_procz00_1733 = BgL_procz00_5779; 
goto BgL_tagzd2102zd2_1734;} }  else 
{ 
 obj_t BgL_procz00_5780;
BgL_procz00_5780 = BgL_carzd2111zd2_1738; 
BgL_procz00_1733 = BgL_procz00_5780; 
goto BgL_tagzd2102zd2_1734;} }  else 
{ 
 obj_t BgL_procz00_5781;
BgL_procz00_5781 = BgL_carzd2111zd2_1738; 
BgL_procz00_1733 = BgL_procz00_5781; 
goto BgL_tagzd2102zd2_1734;} }  else 
{ 
 obj_t BgL_procz00_5782;
BgL_procz00_5782 = BgL_carzd2111zd2_1738; 
BgL_procz00_1733 = BgL_procz00_5782; 
goto BgL_tagzd2102zd2_1734;} }  else 
{ 
 obj_t BgL_procz00_5783;
BgL_procz00_5783 = BgL_carzd2111zd2_1738; 
BgL_procz00_1733 = BgL_procz00_5783; 
goto BgL_tagzd2102zd2_1734;} }  else 
{ 
 obj_t BgL_procz00_5784;
BgL_procz00_5784 = BgL_carzd2111zd2_1738; 
BgL_procz00_1733 = BgL_procz00_5784; 
goto BgL_tagzd2102zd2_1734;} }  else 
{ 
 obj_t BgL_procz00_5785;
BgL_procz00_5785 = BgL_carzd2111zd2_1738; 
BgL_procz00_1733 = BgL_procz00_5785; 
goto BgL_tagzd2102zd2_1734;} }  else 
{ /* Llib/error.scm 380 */
{ /* Llib/error.scm 399 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_arg1450z00_1776;
{ /* Llib/error.scm 399 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1074z00_1777;
{ /* Llib/error.scm 399 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1073z00_1778;
BgL_new1073z00_1778 = 
((BgL_z62stackzd2overflowzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62stackzd2overflowzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 399 */
 long BgL_arg1451z00_1779;
BgL_arg1451z00_1779 = 
BGL_CLASS_NUM(BGl_z62stackzd2overflowzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1073z00_1778), BgL_arg1451z00_1779); } 
BgL_new1074z00_1777 = BgL_new1073z00_1778; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1074z00_1777)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1074z00_1777)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1074z00_1777)))->BgL_stackz00)=((obj_t)BgL_stkz00_1728),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1074z00_1777)))->BgL_procz00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1074z00_1777)))->BgL_msgz00)=((obj_t)BGl_string2810z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1074z00_1777)))->BgL_objz00)=((obj_t)
BGL_CURRENT_DYNAMIC_ENV()),BUNSPEC); 
BgL_arg1450z00_1776 = BgL_new1074z00_1777; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1450z00_1776));} } } } } 

}



/* &stack-overflow-erro2755 */
obj_t BGl_z62stackzd2overflowzd2erro2755z62zz__errorz00(obj_t BgL_envz00_5031)
{
{ /* Llib/error.scm 378 */
return 
bgl_stack_overflow_error();} 

}



/* exit */
BGL_EXPORTED_DEF obj_t BGl_exitz00zz__errorz00(obj_t BgL_nz00_13)
{
{ /* Llib/error.scm 408 */
{ /* Llib/error.scm 409 */
 obj_t BgL_valz00_1781;
if(
NULLP(BgL_nz00_13))
{ /* Llib/error.scm 410 */
BgL_valz00_1781 = 
BINT(0L); }  else 
{ /* Llib/error.scm 410 */
if(
INTEGERP(
CAR(
((obj_t)BgL_nz00_13))))
{ /* Llib/error.scm 411 */
BgL_valz00_1781 = 
CAR(
((obj_t)BgL_nz00_13)); }  else 
{ /* Llib/error.scm 411 */
BgL_valz00_1781 = 
BINT(0L); } } 
BIGLOO_EXIT(BgL_valz00_1781); 
return BgL_valz00_1781;} } 

}



/* &exit */
obj_t BGl_z62exitz62zz__errorz00(obj_t BgL_envz00_5032, obj_t BgL_nz00_5033)
{
{ /* Llib/error.scm 408 */
return 
BGl_exitz00zz__errorz00(BgL_nz00_5033);} 

}



/* with-exception-handler */
BGL_EXPORTED_DEF obj_t BGl_withzd2exceptionzd2handlerz00zz__errorz00(obj_t BgL_handlerz00_14, obj_t BgL_thunkz00_15)
{
{ /* Llib/error.scm 419 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_handlerz00_14, 
(int)(1L)))
{ /* Llib/error.scm 421 */
 obj_t BgL_oldzd2handlerszd2_1786;
BgL_oldzd2handlerszd2_1786 = 
BGL_ERROR_HANDLER_GET(); 
{ /* Llib/error.scm 424 */
 obj_t BgL_arg1456z00_1787;
{ /* Llib/error.scm 424 */
 obj_t BgL_zc3z04anonymousza31458ze3z87_5034;
BgL_zc3z04anonymousza31458ze3z87_5034 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31458ze3ze5zz__errorz00, 
(int)(1L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_5034, 
(int)(0L), BgL_oldzd2handlerszd2_1786); 
PROCEDURE_SET(BgL_zc3z04anonymousza31458ze3z87_5034, 
(int)(1L), 
((obj_t)BgL_handlerz00_14)); 
BgL_arg1456z00_1787 = 
MAKE_STACK_PAIR(BgL_zc3z04anonymousza31458ze3z87_5034, BUNSPEC); } 
BGL_ERROR_HANDLER_SET(BgL_arg1456z00_1787); BUNSPEC; } 
{ /* Llib/error.scm 427 */
 obj_t BgL_exitd1075z00_1792;
BgL_exitd1075z00_1792 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/error.scm 427 */
 obj_t BgL_tmp1077z00_1793;
{ /* Llib/error.scm 427 */
 obj_t BgL_arg1459z00_1795;
BgL_arg1459z00_1795 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1792); 
BgL_tmp1077z00_1793 = 
MAKE_YOUNG_PAIR(BgL_oldzd2handlerszd2_1786, BgL_arg1459z00_1795); } 
{ /* Llib/error.scm 427 */

BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1792, BgL_tmp1077z00_1793); BUNSPEC; 
{ /* Llib/error.scm 428 */
 obj_t BgL_tmp1076z00_1794;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_15, 
(int)(0L)))
{ /* Llib/error.scm 428 */
BgL_tmp1076z00_1794 = 
(VA_PROCEDUREP( BgL_thunkz00_15 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_thunkz00_15))(BgL_thunkz00_15, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_thunkz00_15))(BgL_thunkz00_15) ); }  else 
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_arg1516z00_3632;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1079z00_3633;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1078z00_3634;
BgL_new1078z00_3634 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 546 */
 long BgL_arg1520z00_3635;
BgL_arg1520z00_3635 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_3634), BgL_arg1520z00_3635); } 
BgL_new1079z00_3633 = BgL_new1078z00_3634; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3633)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3633)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5850;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1518z00_3636;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1519z00_3637;
{ /* Llib/error.scm 546 */
 obj_t BgL_classz00_3641;
BgL_classz00_3641 = BGl_z62errorz62zz__objectz00; 
BgL_arg1519z00_3637 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3641); } 
BgL_arg1518z00_3636 = 
VECTOR_REF(BgL_arg1519z00_3637,2L); } 
BgL_auxz00_5850 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1518z00_3636); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3633)))->BgL_stackz00)=((obj_t)BgL_auxz00_5850),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3633))->BgL_procz00)=((obj_t)BGl_string2813z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3633))->BgL_msgz00)=((obj_t)BGl_string2814z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3633))->BgL_objz00)=((obj_t)BgL_thunkz00_15),BUNSPEC); 
BgL_arg1516z00_3632 = BgL_new1079z00_3633; } 
BgL_tmp1076z00_1794 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1516z00_3632)); } 
{ /* Llib/error.scm 427 */
 bool_t BgL_test3184z00_5861;
{ /* Llib/error.scm 427 */
 obj_t BgL_arg2590z00_3644;
BgL_arg2590z00_3644 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1792); 
BgL_test3184z00_5861 = 
PAIRP(BgL_arg2590z00_3644); } 
if(BgL_test3184z00_5861)
{ /* Llib/error.scm 427 */
 obj_t BgL_arg2588z00_3645;
{ /* Llib/error.scm 427 */
 obj_t BgL_arg2589z00_3646;
BgL_arg2589z00_3646 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1792); 
BgL_arg2588z00_3645 = 
CDR(
((obj_t)BgL_arg2589z00_3646)); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1792, BgL_arg2588z00_3645); BUNSPEC; }  else 
{ /* Llib/error.scm 427 */BFALSE; } } 
BGL_ERROR_HANDLER_SET(BgL_oldzd2handlerszd2_1786); BUNSPEC; 
return BgL_tmp1076z00_1794;} } } } }  else 
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_arg1516z00_3648;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1079z00_3649;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1078z00_3650;
BgL_new1078z00_3650 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 546 */
 long BgL_arg1520z00_3651;
BgL_arg1520z00_3651 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_3650), BgL_arg1520z00_3651); } 
BgL_new1079z00_3649 = BgL_new1078z00_3650; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3649)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3649)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5877;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1518z00_3652;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1519z00_3653;
{ /* Llib/error.scm 546 */
 obj_t BgL_classz00_3657;
BgL_classz00_3657 = BGl_z62errorz62zz__objectz00; 
BgL_arg1519z00_3653 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3657); } 
BgL_arg1518z00_3652 = 
VECTOR_REF(BgL_arg1519z00_3653,2L); } 
BgL_auxz00_5877 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1518z00_3652); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3649)))->BgL_stackz00)=((obj_t)BgL_auxz00_5877),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3649))->BgL_procz00)=((obj_t)BGl_string2813z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3649))->BgL_msgz00)=((obj_t)BGl_string2815z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3649))->BgL_objz00)=((obj_t)BgL_handlerz00_14),BUNSPEC); 
BgL_arg1516z00_3648 = BgL_new1079z00_3649; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1516z00_3648));} } 

}



/* &with-exception-handler */
obj_t BGl_z62withzd2exceptionzd2handlerz62zz__errorz00(obj_t BgL_envz00_5035, obj_t BgL_handlerz00_5036, obj_t BgL_thunkz00_5037)
{
{ /* Llib/error.scm 419 */
{ /* Llib/error.scm 420 */
 obj_t BgL_auxz00_5895; obj_t BgL_auxz00_5888;
if(
PROCEDUREP(BgL_thunkz00_5037))
{ /* Llib/error.scm 420 */
BgL_auxz00_5895 = BgL_thunkz00_5037
; }  else 
{ 
 obj_t BgL_auxz00_5898;
BgL_auxz00_5898 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(16958L), BGl_string2816z00zz__errorz00, BGl_string2817z00zz__errorz00, BgL_thunkz00_5037); 
FAILURE(BgL_auxz00_5898,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_handlerz00_5036))
{ /* Llib/error.scm 420 */
BgL_auxz00_5888 = BgL_handlerz00_5036
; }  else 
{ 
 obj_t BgL_auxz00_5891;
BgL_auxz00_5891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(16958L), BGl_string2816z00zz__errorz00, BGl_string2817z00zz__errorz00, BgL_handlerz00_5036); 
FAILURE(BgL_auxz00_5891,BFALSE,BFALSE);} 
return 
BGl_withzd2exceptionzd2handlerz00zz__errorz00(BgL_auxz00_5888, BgL_auxz00_5895);} } 

}



/* &<@anonymous:1458> */
obj_t BGl_z62zc3z04anonymousza31458ze3ze5zz__errorz00(obj_t BgL_envz00_5038, obj_t BgL_cz00_5041)
{
{ /* Llib/error.scm 423 */
{ /* Llib/error.scm 424 */
 obj_t BgL_oldzd2handlerszd2_5039; obj_t BgL_handlerz00_5040;
BgL_oldzd2handlerszd2_5039 = 
PROCEDURE_REF(BgL_envz00_5038, 
(int)(0L)); 
BgL_handlerz00_5040 = 
PROCEDURE_REF(BgL_envz00_5038, 
(int)(1L)); 
BGL_ERROR_HANDLER_SET(BgL_oldzd2handlerszd2_5039); BUNSPEC; 
return 
(VA_PROCEDUREP( BgL_handlerz00_5040 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_handlerz00_5040))(BgL_handlerz00_5040, BgL_cz00_5041, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_handlerz00_5040))(BgL_handlerz00_5040, BgL_cz00_5041) );} } 

}



/* current-exception-handler */
BGL_EXPORTED_DEF obj_t BGl_currentzd2exceptionzd2handlerz00zz__errorz00(void)
{
{ /* Llib/error.scm 437 */
return BGl_proc2818z00zz__errorz00;} 

}



/* &current-exception-handler */
obj_t BGl_z62currentzd2exceptionzd2handlerz62zz__errorz00(obj_t BgL_envz00_5043)
{
{ /* Llib/error.scm 437 */
return 
BGl_currentzd2exceptionzd2handlerz00zz__errorz00();} 

}



/* &<@anonymous:1460> */
obj_t BGl_z62zc3z04anonymousza31460ze3ze5zz__errorz00(obj_t BgL_envz00_5044, obj_t BgL_valz00_5045)
{
{ /* Llib/error.scm 438 */
return 
BGl_raisez00zz__errorz00(BgL_valz00_5045);} 

}



/* raise */
BGL_EXPORTED_DEF obj_t BGl_raisez00zz__errorz00(obj_t BgL_valz00_16)
{
{ /* Llib/error.scm 465 */
{ 
 obj_t BgL_handlerz00_1827; obj_t BgL_valz00_1828;
{ /* Llib/error.scm 502 */
 obj_t BgL_handlerz00_1802;
BgL_handlerz00_1802 = 
BGL_ERROR_HANDLER_GET(); 
if(
PAIRP(BgL_handlerz00_1802))
{ /* Llib/error.scm 506 */
 bool_t BgL_test3188z00_5917;
{ /* Llib/error.scm 506 */
 obj_t BgL_tmpz00_5918;
BgL_tmpz00_5918 = 
CDR(BgL_handlerz00_1802); 
BgL_test3188z00_5917 = 
BGL_DYNAMIC_ENVP(BgL_tmpz00_5918); } 
if(BgL_test3188z00_5917)
{ /* Llib/error.scm 472 */
 obj_t BgL_denvz00_3672; obj_t BgL_hz00_3673;
BgL_denvz00_3672 = 
CDR(BgL_handlerz00_1802); 
BgL_hz00_3673 = 
CAR(BgL_handlerz00_1802); 
SET_CDR(BgL_handlerz00_1802, BgL_valz00_16); 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_hz00_3673, BgL_denvz00_3672);}  else 
{ /* Llib/error.scm 508 */
 bool_t BgL_test3189z00_5925;
{ /* Llib/error.scm 508 */
 obj_t BgL_tmpz00_5926;
BgL_tmpz00_5926 = 
CDR(BgL_handlerz00_1802); 
BgL_test3189z00_5925 = 
CELLP(BgL_tmpz00_5926); } 
if(BgL_test3189z00_5925)
{ /* Llib/error.scm 482 */
 obj_t BgL_cellz00_3678; obj_t BgL_hz00_3679;
BgL_cellz00_3678 = 
CDR(BgL_handlerz00_1802); 
BgL_hz00_3679 = 
CAR(BgL_handlerz00_1802); 
CELL_SET(
((obj_t)BgL_cellz00_3678), BgL_valz00_16); 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_hz00_3679, BgL_cellz00_3678);}  else 
{ /* Llib/error.scm 508 */
if(
CBOOL(
CDR(BgL_handlerz00_1802)))
{ /* Llib/error.scm 510 */
if(
(
CDR(BgL_handlerz00_1802)==BUNSPEC))
{ /* Llib/error.scm 514 */
 obj_t BgL_fun1470z00_1811;
BgL_fun1470z00_1811 = 
CAR(BgL_handlerz00_1802); 
return 
(VA_PROCEDUREP( BgL_fun1470z00_1811 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_fun1470z00_1811))(BgL_fun1470z00_1811, BgL_valz00_16, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_fun1470z00_1811))(BgL_fun1470z00_1811, BgL_valz00_16) );}  else 
{ /* Llib/error.scm 513 */
BgL_handlerz00_1827 = BgL_handlerz00_1802; 
BgL_valz00_1828 = BgL_valz00_16; 
BgL_zc3z04anonymousza31477ze3z87_1829:
{ /* Llib/error.scm 498 */
 obj_t BgL_arg1478z00_1830;
{ /* Llib/error.scm 498 */
 obj_t BgL_tmpz00_5945;
BgL_tmpz00_5945 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1478z00_1830 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_5945); } 
{ /* Llib/error.scm 498 */
 obj_t BgL_list1479z00_1831;
{ /* Llib/error.scm 498 */
 obj_t BgL_arg1480z00_1832;
{ /* Llib/error.scm 498 */
 obj_t BgL_arg1481z00_1833;
{ /* Llib/error.scm 498 */
 obj_t BgL_arg1482z00_1834;
{ /* Llib/error.scm 498 */
 obj_t BgL_arg1483z00_1835;
{ /* Llib/error.scm 498 */
 obj_t BgL_arg1485z00_1836;
BgL_arg1485z00_1836 = 
MAKE_YOUNG_PAIR(BgL_handlerz00_1827, BNIL); 
BgL_arg1483z00_1835 = 
MAKE_YOUNG_PAIR(BGl_string2819z00zz__errorz00, BgL_arg1485z00_1836); } 
BgL_arg1482z00_1834 = 
MAKE_YOUNG_PAIR(BGl_string2820z00zz__errorz00, BgL_arg1483z00_1835); } 
BgL_arg1481z00_1833 = 
MAKE_YOUNG_PAIR(
BINT(498L), BgL_arg1482z00_1834); } 
BgL_arg1480z00_1832 = 
MAKE_YOUNG_PAIR(BGl_string2821z00zz__errorz00, BgL_arg1481z00_1833); } 
BgL_list1479z00_1831 = 
MAKE_YOUNG_PAIR(BGl_string2822z00zz__errorz00, BgL_arg1480z00_1832); } 
BGl_tprintz00zz__r4_output_6_10_3z00(BgL_arg1478z00_1830, BgL_list1479z00_1831); } } 
{ /* Llib/error.scm 499 */
 obj_t BgL_arg1487z00_1837;
{ /* Llib/error.scm 499 */
 obj_t BgL_tmpz00_5956;
BgL_tmpz00_5956 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1487z00_1837 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_5956); } 
{ /* Llib/error.scm 499 */
 obj_t BgL_list1488z00_1838;
{ /* Llib/error.scm 499 */
 obj_t BgL_arg1489z00_1839;
{ /* Llib/error.scm 499 */
 obj_t BgL_arg1491z00_1840;
{ /* Llib/error.scm 499 */
 obj_t BgL_arg1492z00_1841;
{ /* Llib/error.scm 499 */
 obj_t BgL_arg1493z00_1842;
{ /* Llib/error.scm 499 */
 obj_t BgL_arg1494z00_1843;
BgL_arg1494z00_1843 = 
MAKE_YOUNG_PAIR(BgL_valz00_1828, BNIL); 
BgL_arg1493z00_1842 = 
MAKE_YOUNG_PAIR(BGl_string2823z00zz__errorz00, BgL_arg1494z00_1843); } 
BgL_arg1492z00_1841 = 
MAKE_YOUNG_PAIR(BGl_string2820z00zz__errorz00, BgL_arg1493z00_1842); } 
BgL_arg1491z00_1840 = 
MAKE_YOUNG_PAIR(
BINT(499L), BgL_arg1492z00_1841); } 
BgL_arg1489z00_1839 = 
MAKE_YOUNG_PAIR(BGl_string2821z00zz__errorz00, BgL_arg1491z00_1840); } 
BgL_list1488z00_1838 = 
MAKE_YOUNG_PAIR(BGl_string2822z00zz__errorz00, BgL_arg1489z00_1839); } 
BGl_tprintz00zz__r4_output_6_10_3z00(BgL_arg1487z00_1837, BgL_list1488z00_1838); } } 
{ /* Llib/error.scm 500 */
 obj_t BgL_list1495z00_1844;
BgL_list1495z00_1844 = 
MAKE_YOUNG_PAIR(
BINT(0L), BNIL); 
BGL_TAIL return 
BGl_exitz00zz__errorz00(BgL_list1495z00_1844);} } }  else 
{ /* Llib/error.scm 510 */
BGl_defaultzd2exceptionzd2handlerz00zz__errorz00(BgL_valz00_16); 
{ /* Llib/error.scm 512 */
 obj_t BgL_res2737z00_3718;
{ /* Llib/error.scm 320 */
 obj_t BgL_classz00_3687;
BgL_classz00_3687 = BGl_z62exceptionz62zz__objectz00; ((bool_t)0); } 
BgL_res2737z00_3718 = 
BGl_errorz00zz__errorz00(BGl_string2824z00zz__errorz00, BGl_string2825z00zz__errorz00, BgL_valz00_16); 
return BgL_res2737z00_3718;} } } } }  else 
{ 
 obj_t BgL_valz00_5973; obj_t BgL_handlerz00_5972;
BgL_handlerz00_5972 = BgL_handlerz00_1802; 
BgL_valz00_5973 = BgL_valz00_16; 
BgL_valz00_1828 = BgL_valz00_5973; 
BgL_handlerz00_1827 = BgL_handlerz00_5972; 
goto BgL_zc3z04anonymousza31477ze3z87_1829;} } } } 

}



/* &raise */
obj_t BGl_z62raisez62zz__errorz00(obj_t BgL_envz00_5046, obj_t BgL_valz00_5047)
{
{ /* Llib/error.scm 465 */
return 
BGl_raisez00zz__errorz00(BgL_valz00_5047);} 

}



/* default-exception-handler */
obj_t BGl_defaultzd2exceptionzd2handlerz00zz__errorz00(obj_t BgL_valz00_17)
{
{ /* Llib/error.scm 523 */
BGl_exceptionzd2notifyzd2zz__objectz00(BgL_valz00_17); 
{ /* Llib/error.scm 525 */
 bool_t BgL_test3192z00_5976;
{ /* Llib/error.scm 525 */
 obj_t BgL_classz00_3719;
BgL_classz00_3719 = BGl_z62warningz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_valz00_17))
{ /* Llib/error.scm 525 */
 BgL_objectz00_bglt BgL_arg2707z00_3721;
BgL_arg2707z00_3721 = 
(BgL_objectz00_bglt)(BgL_valz00_17); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 525 */
 long BgL_idxz00_3727;
BgL_idxz00_3727 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2707z00_3721); 
BgL_test3192z00_5976 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_3727+3L))==BgL_classz00_3719); }  else 
{ /* Llib/error.scm 525 */
 bool_t BgL_res2738z00_3749;
{ /* Llib/error.scm 525 */
 obj_t BgL_oclassz00_3735;
{ /* Llib/error.scm 525 */
 long BgL_arg2715z00_3741;
{ /* Llib/error.scm 525 */
 long BgL_arg2716z00_3742;
BgL_arg2716z00_3742 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2707z00_3721); 
BgL_arg2715z00_3741 = 
(BgL_arg2716z00_3742-OBJECT_TYPE); } 
BgL_oclassz00_3735 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_arg2715z00_3741); } 
{ /* Llib/error.scm 525 */
 bool_t BgL__ortest_1198z00_3736;
BgL__ortest_1198z00_3736 = 
(BgL_classz00_3719==BgL_oclassz00_3735); 
if(BgL__ortest_1198z00_3736)
{ /* Llib/error.scm 525 */
BgL_res2738z00_3749 = BgL__ortest_1198z00_3736; }  else 
{ /* Llib/error.scm 525 */
 long BgL_odepthz00_3737;
BgL_odepthz00_3737 = 
BGL_CLASS_DEPTH(BgL_oclassz00_3735); 
if(
(3L<BgL_odepthz00_3737))
{ /* Llib/error.scm 525 */
 obj_t BgL_arg2704z00_3739;
BgL_arg2704z00_3739 = 
BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3735, 3L); 
BgL_res2738z00_3749 = 
(BgL_arg2704z00_3739==BgL_classz00_3719); }  else 
{ /* Llib/error.scm 525 */
BgL_res2738z00_3749 = ((bool_t)0); } } } } 
BgL_test3192z00_5976 = BgL_res2738z00_3749; } }  else 
{ /* Llib/error.scm 525 */
BgL_test3192z00_5976 = ((bool_t)0)
; } } 
if(BgL_test3192z00_5976)
{ /* Llib/error.scm 525 */BFALSE; }  else 
{ /* Llib/error.scm 526 */
 long BgL_retvalz00_1850;
{ /* Llib/error.scm 526 */
 bool_t BgL_test3197z00_5996;
{ /* Llib/error.scm 526 */
 obj_t BgL_classz00_3750;
BgL_classz00_3750 = BGl_z62errorz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_valz00_17))
{ /* Llib/error.scm 526 */
 BgL_objectz00_bglt BgL_arg2707z00_3752;
BgL_arg2707z00_3752 = 
(BgL_objectz00_bglt)(BgL_valz00_17); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 526 */
 long BgL_idxz00_3758;
BgL_idxz00_3758 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2707z00_3752); 
BgL_test3197z00_5996 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_3758+3L))==BgL_classz00_3750); }  else 
{ /* Llib/error.scm 526 */
 bool_t BgL_res2739z00_3780;
{ /* Llib/error.scm 526 */
 obj_t BgL_oclassz00_3766;
{ /* Llib/error.scm 526 */
 long BgL_arg2715z00_3772;
{ /* Llib/error.scm 526 */
 long BgL_arg2716z00_3773;
BgL_arg2716z00_3773 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2707z00_3752); 
BgL_arg2715z00_3772 = 
(BgL_arg2716z00_3773-OBJECT_TYPE); } 
BgL_oclassz00_3766 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_arg2715z00_3772); } 
{ /* Llib/error.scm 526 */
 bool_t BgL__ortest_1198z00_3767;
BgL__ortest_1198z00_3767 = 
(BgL_classz00_3750==BgL_oclassz00_3766); 
if(BgL__ortest_1198z00_3767)
{ /* Llib/error.scm 526 */
BgL_res2739z00_3780 = BgL__ortest_1198z00_3767; }  else 
{ /* Llib/error.scm 526 */
 long BgL_odepthz00_3768;
BgL_odepthz00_3768 = 
BGL_CLASS_DEPTH(BgL_oclassz00_3766); 
if(
(3L<BgL_odepthz00_3768))
{ /* Llib/error.scm 526 */
 obj_t BgL_arg2704z00_3770;
BgL_arg2704z00_3770 = 
BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_3766, 3L); 
BgL_res2739z00_3780 = 
(BgL_arg2704z00_3770==BgL_classz00_3750); }  else 
{ /* Llib/error.scm 526 */
BgL_res2739z00_3780 = ((bool_t)0); } } } } 
BgL_test3197z00_5996 = BgL_res2739z00_3780; } }  else 
{ /* Llib/error.scm 526 */
BgL_test3197z00_5996 = ((bool_t)0)
; } } 
if(BgL_test3197z00_5996)
{ /* Llib/error.scm 526 */
BgL_retvalz00_1850 = 1L; }  else 
{ /* Llib/error.scm 526 */
BgL_retvalz00_1850 = 2L; } } 
{ /* Llib/error.scm 527 */
 obj_t BgL_zc3z04anonymousza31498ze3z87_5048;
BgL_zc3z04anonymousza31498ze3z87_5048 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31498ze3ze5zz__errorz00, 
(int)(1L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31498ze3z87_5048, 
(int)(0L), 
BINT(BgL_retvalz00_1850)); 
unwind_stack_until(BFALSE, BFALSE, 
BINT(BgL_retvalz00_1850), BgL_zc3z04anonymousza31498ze3z87_5048, BFALSE); } } } 
return BUNSPEC;} 

}



/* &<@anonymous:1498> */
obj_t BGl_z62zc3z04anonymousza31498ze3ze5zz__errorz00(obj_t BgL_envz00_5049, obj_t BgL_xz00_5051)
{
{ /* Llib/error.scm 527 */
{ /* Llib/error.scm 527 */
 long BgL_retvalz00_5050;
BgL_retvalz00_5050 = 
(long)CINT(
PROCEDURE_REF(BgL_envz00_5049, 
(int)(0L))); 
{ /* Llib/error.scm 527 */
 obj_t BgL_tmpz00_6027;
BgL_tmpz00_6027 = 
BINT(BgL_retvalz00_5050); 
return 
BIGLOO_EXIT(BgL_tmpz00_6027);} } } 

}



/* module-init-error */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char * BgL_currentz00_18, char * BgL_fromz00_19)
{
{ /* Llib/error.scm 533 */
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1500z00_1856;
{ /* Llib/error.scm 534 */
 obj_t BgL_tmpz00_6030;
BgL_tmpz00_6030 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1500z00_1856 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6030); } 
{ /* Llib/error.scm 534 */
 obj_t BgL_list1501z00_1857;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1502z00_1858;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1503z00_1859;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1504z00_1860;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1505z00_1861;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1506z00_1862;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1507z00_1863;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1508z00_1864;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1509z00_1865;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1512z00_1866;
{ /* Llib/error.scm 534 */
 obj_t BgL_arg1515z00_1867;
BgL_arg1515z00_1867 = 
MAKE_YOUNG_PAIR(BGl_string2826z00zz__errorz00, BNIL); 
BgL_arg1512z00_1866 = 
MAKE_YOUNG_PAIR(
string_to_bstring(BgL_fromz00_19), BgL_arg1515z00_1867); } 
BgL_arg1509z00_1865 = 
MAKE_YOUNG_PAIR(BGl_string2827z00zz__errorz00, BgL_arg1512z00_1866); } 
BgL_arg1508z00_1864 = 
MAKE_YOUNG_PAIR(BGl_string2828z00zz__errorz00, BgL_arg1509z00_1865); } 
BgL_arg1507z00_1863 = 
MAKE_YOUNG_PAIR(
string_to_bstring(BgL_fromz00_19), BgL_arg1508z00_1864); } 
BgL_arg1506z00_1862 = 
MAKE_YOUNG_PAIR(BGl_string2829z00zz__errorz00, BgL_arg1507z00_1863); } 
BgL_arg1505z00_1861 = 
MAKE_YOUNG_PAIR(
string_to_bstring(BgL_currentz00_18), BgL_arg1506z00_1862); } 
BgL_arg1504z00_1860 = 
MAKE_YOUNG_PAIR(BGl_string2830z00zz__errorz00, BgL_arg1505z00_1861); } 
BgL_arg1503z00_1859 = 
MAKE_YOUNG_PAIR(BGl_string2831z00zz__errorz00, BgL_arg1504z00_1860); } 
BgL_arg1502z00_1858 = 
MAKE_YOUNG_PAIR(
string_to_bstring(BgL_currentz00_18), BgL_arg1503z00_1859); } 
BgL_list1501z00_1857 = 
MAKE_YOUNG_PAIR(BGl_string2832z00zz__errorz00, BgL_arg1502z00_1858); } 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1500z00_1856, BgL_list1501z00_1857); } } 
{ /* Llib/error.scm 539 */
 obj_t BgL_tmpz00_6049;
BgL_tmpz00_6049 = 
BINT(1L); 
return 
BIGLOO_EXIT(BgL_tmpz00_6049);} } 

}



/* &module-init-error */
obj_t BGl_z62modulezd2initzd2errorz62zz__errorz00(obj_t BgL_envz00_5052, obj_t BgL_currentz00_5053, obj_t BgL_fromz00_5054)
{
{ /* Llib/error.scm 533 */
{ /* Llib/error.scm 538 */
 char * BgL_auxz00_6061; char * BgL_auxz00_6052;
{ /* Llib/error.scm 538 */
 obj_t BgL_tmpz00_6062;
if(
STRINGP(BgL_fromz00_5054))
{ /* Llib/error.scm 538 */
BgL_tmpz00_6062 = BgL_fromz00_5054
; }  else 
{ 
 obj_t BgL_auxz00_6065;
BgL_auxz00_6065 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(22084L), BGl_string2833z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_fromz00_5054); 
FAILURE(BgL_auxz00_6065,BFALSE,BFALSE);} 
BgL_auxz00_6061 = 
BSTRING_TO_STRING(BgL_tmpz00_6062); } 
{ /* Llib/error.scm 538 */
 obj_t BgL_tmpz00_6053;
if(
STRINGP(BgL_currentz00_5053))
{ /* Llib/error.scm 538 */
BgL_tmpz00_6053 = BgL_currentz00_5053
; }  else 
{ 
 obj_t BgL_auxz00_6056;
BgL_auxz00_6056 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(22084L), BGl_string2833z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_currentz00_5053); 
FAILURE(BgL_auxz00_6056,BFALSE,BFALSE);} 
BgL_auxz00_6052 = 
BSTRING_TO_STRING(BgL_tmpz00_6053); } 
return 
BGl_modulezd2initzd2errorz00zz__errorz00(BgL_auxz00_6052, BgL_auxz00_6061);} } 

}



/* error */
BGL_EXPORTED_DEF obj_t BGl_errorz00zz__errorz00(obj_t BgL_procz00_20, obj_t BgL_msgz00_21, obj_t BgL_objz00_22)
{
{ /* Llib/error.scm 544 */
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_arg1516z00_1868;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1079z00_1869;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1078z00_1872;
BgL_new1078z00_1872 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 546 */
 long BgL_arg1520z00_1873;
BgL_arg1520z00_1873 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_1872), BgL_arg1520z00_1873); } 
BgL_new1079z00_1869 = BgL_new1078z00_1872; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_1869)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_1869)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6079;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1518z00_1870;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1519z00_1871;
{ /* Llib/error.scm 546 */
 obj_t BgL_classz00_3785;
BgL_classz00_3785 = BGl_z62errorz62zz__objectz00; 
BgL_arg1519z00_1871 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3785); } 
BgL_arg1518z00_1870 = 
VECTOR_REF(BgL_arg1519z00_1871,2L); } 
BgL_auxz00_6079 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1518z00_1870); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_1869)))->BgL_stackz00)=((obj_t)BgL_auxz00_6079),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_1869))->BgL_procz00)=((obj_t)BgL_procz00_20),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_1869))->BgL_msgz00)=((obj_t)BgL_msgz00_21),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_1869))->BgL_objz00)=((obj_t)BgL_objz00_22),BUNSPEC); 
BgL_arg1516z00_1868 = BgL_new1079z00_1869; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1516z00_1868));} } 

}



/* &error2756 */
obj_t BGl_z62error2756z62zz__errorz00(obj_t BgL_envz00_5055, obj_t BgL_procz00_5056, obj_t BgL_msgz00_5057, obj_t BgL_objz00_5058)
{
{ /* Llib/error.scm 544 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_5056, BgL_msgz00_5057, BgL_objz00_5058);} 

}



/* error/location */
BGL_EXPORTED_DEF obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t BgL_procz00_23, obj_t BgL_msgz00_24, obj_t BgL_objz00_25, obj_t BgL_fnamez00_26, obj_t BgL_locz00_27)
{
{ /* Llib/error.scm 554 */
{ /* Llib/error.scm 556 */
 BgL_z62errorz62_bglt BgL_arg1521z00_3787;
{ /* Llib/error.scm 556 */
 BgL_z62errorz62_bglt BgL_new1081z00_3788;
{ /* Llib/error.scm 557 */
 BgL_z62errorz62_bglt BgL_new1080z00_3789;
BgL_new1080z00_3789 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 557 */
 long BgL_arg1524z00_3790;
BgL_arg1524z00_3790 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1080z00_3789), BgL_arg1524z00_3790); } 
BgL_new1081z00_3788 = BgL_new1080z00_3789; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3788)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_26),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3788)))->BgL_locationz00)=((obj_t)BgL_locz00_27),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6099;
{ /* Llib/error.scm 558 */
 obj_t BgL_arg1522z00_3791;
{ /* Llib/error.scm 558 */
 obj_t BgL_arg1523z00_3792;
{ /* Llib/error.scm 558 */
 obj_t BgL_classz00_3796;
BgL_classz00_3796 = BGl_z62errorz62zz__objectz00; 
BgL_arg1523z00_3792 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3796); } 
BgL_arg1522z00_3791 = 
VECTOR_REF(BgL_arg1523z00_3792,2L); } 
BgL_auxz00_6099 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1522z00_3791); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3788)))->BgL_stackz00)=((obj_t)BgL_auxz00_6099),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3788))->BgL_procz00)=((obj_t)BgL_procz00_23),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3788))->BgL_msgz00)=((obj_t)BgL_msgz00_24),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3788))->BgL_objz00)=((obj_t)BgL_objz00_25),BUNSPEC); 
BgL_arg1521z00_3787 = BgL_new1081z00_3788; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1521z00_3787));} } 

}



/* &error/location */
obj_t BGl_z62errorzf2locationz90zz__errorz00(obj_t BgL_envz00_5059, obj_t BgL_procz00_5060, obj_t BgL_msgz00_5061, obj_t BgL_objz00_5062, obj_t BgL_fnamez00_5063, obj_t BgL_locz00_5064)
{
{ /* Llib/error.scm 554 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_5060, BgL_msgz00_5061, BgL_objz00_5062, BgL_fnamez00_5063, BgL_locz00_5064);} 

}



/* error/source-location */
BGL_EXPORTED_DEF obj_t BGl_errorzf2sourcezd2locationz20zz__errorz00(obj_t BgL_procz00_28, obj_t BgL_msgz00_29, obj_t BgL_objz00_30, obj_t BgL_locz00_31)
{
{ /* Llib/error.scm 566 */
if(
PAIRP(BgL_locz00_31))
{ /* Llib/error.scm 567 */
 obj_t BgL_cdrzd2186zd2_1886;
BgL_cdrzd2186zd2_1886 = 
CDR(
((obj_t)BgL_locz00_31)); 
if(
(
CAR(
((obj_t)BgL_locz00_31))==BGl_symbol2811z00zz__errorz00))
{ /* Llib/error.scm 567 */
if(
PAIRP(BgL_cdrzd2186zd2_1886))
{ /* Llib/error.scm 567 */
 obj_t BgL_cdrzd2190zd2_1890;
BgL_cdrzd2190zd2_1890 = 
CDR(BgL_cdrzd2186zd2_1886); 
if(
PAIRP(BgL_cdrzd2190zd2_1890))
{ /* Llib/error.scm 567 */
if(
NULLP(
CDR(BgL_cdrzd2190zd2_1890)))
{ /* Llib/error.scm 567 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30, 
CAR(BgL_cdrzd2186zd2_1886), 
CAR(BgL_cdrzd2190zd2_1890));}  else 
{ /* Llib/error.scm 567 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} }  else 
{ /* Llib/error.scm 567 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} }  else 
{ /* Llib/error.scm 567 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} }  else 
{ /* Llib/error.scm 567 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} }  else 
{ /* Llib/error.scm 567 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} } 

}



/* &error/source-location */
obj_t BGl_z62errorzf2sourcezd2locationz42zz__errorz00(obj_t BgL_envz00_5065, obj_t BgL_procz00_5066, obj_t BgL_msgz00_5067, obj_t BgL_objz00_5068, obj_t BgL_locz00_5069)
{
{ /* Llib/error.scm 566 */
return 
BGl_errorzf2sourcezd2locationz20zz__errorz00(BgL_procz00_5066, BgL_msgz00_5067, BgL_objz00_5068, BgL_locz00_5069);} 

}



/* error/source */
BGL_EXPORTED_DEF obj_t BGl_errorzf2sourcezf2zz__errorz00(obj_t BgL_procz00_32, obj_t BgL_msgz00_33, obj_t BgL_objz00_34, obj_t BgL_sourcez00_35)
{
{ /* Llib/error.scm 576 */
if(
EPAIRP(BgL_sourcez00_35))
{ /* Llib/error.scm 579 */
 obj_t BgL_arg1544z00_3817;
BgL_arg1544z00_3817 = 
CER(
((obj_t)BgL_sourcez00_35)); 
BGL_TAIL return 
BGl_errorzf2sourcezd2locationz20zz__errorz00(BgL_procz00_32, BgL_msgz00_33, BgL_objz00_34, BgL_arg1544z00_3817);}  else 
{ /* Llib/error.scm 577 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_32, BgL_msgz00_33, BgL_objz00_34);} } 

}



/* &error/source */
obj_t BGl_z62errorzf2sourcez90zz__errorz00(obj_t BgL_envz00_5070, obj_t BgL_procz00_5071, obj_t BgL_msgz00_5072, obj_t BgL_objz00_5073, obj_t BgL_sourcez00_5074)
{
{ /* Llib/error.scm 576 */
return 
BGl_errorzf2sourcezf2zz__errorz00(BgL_procz00_5071, BgL_msgz00_5072, BgL_objz00_5073, BgL_sourcez00_5074);} 

}



/* error/c-location */
BGL_EXPORTED_DEF obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t BgL_procz00_36, obj_t BgL_messagez00_37, obj_t BgL_objectz00_38, char * BgL_fnamez00_39, long BgL_locz00_40)
{
{ /* Llib/error.scm 588 */
{ /* Llib/error.scm 556 */
 BgL_z62errorz62_bglt BgL_arg1521z00_3819;
{ /* Llib/error.scm 556 */
 BgL_z62errorz62_bglt BgL_new1081z00_3820;
{ /* Llib/error.scm 557 */
 BgL_z62errorz62_bglt BgL_new1080z00_3821;
BgL_new1080z00_3821 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 557 */
 long BgL_arg1524z00_3822;
BgL_arg1524z00_3822 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1080z00_3821), BgL_arg1524z00_3822); } 
BgL_new1081z00_3820 = BgL_new1080z00_3821; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3820)))->BgL_fnamez00)=((obj_t)
string_to_bstring(BgL_fnamez00_39)),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3820)))->BgL_locationz00)=((obj_t)
BINT(BgL_locz00_40)),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6153;
{ /* Llib/error.scm 558 */
 obj_t BgL_arg1522z00_3823;
{ /* Llib/error.scm 558 */
 obj_t BgL_arg1523z00_3824;
{ /* Llib/error.scm 558 */
 obj_t BgL_classz00_3828;
BgL_classz00_3828 = BGl_z62errorz62zz__objectz00; 
BgL_arg1523z00_3824 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3828); } 
BgL_arg1522z00_3823 = 
VECTOR_REF(BgL_arg1523z00_3824,2L); } 
BgL_auxz00_6153 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1522z00_3823); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3820)))->BgL_stackz00)=((obj_t)BgL_auxz00_6153),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3820))->BgL_procz00)=((obj_t)BgL_procz00_36),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3820))->BgL_msgz00)=((obj_t)BgL_messagez00_37),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3820))->BgL_objz00)=((obj_t)BgL_objectz00_38),BUNSPEC); 
BgL_arg1521z00_3819 = BgL_new1081z00_3820; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1521z00_3819));} } 

}



/* &error/c-location */
obj_t BGl_z62errorzf2czd2locationz42zz__errorz00(obj_t BgL_envz00_5075, obj_t BgL_procz00_5076, obj_t BgL_messagez00_5077, obj_t BgL_objectz00_5078, obj_t BgL_fnamez00_5079, obj_t BgL_locz00_5080)
{
{ /* Llib/error.scm 588 */
{ /* Llib/error.scm 556 */
 long BgL_auxz00_6173; char * BgL_auxz00_6164;
{ /* Llib/error.scm 556 */
 obj_t BgL_tmpz00_6174;
if(
INTEGERP(BgL_locz00_5080))
{ /* Llib/error.scm 556 */
BgL_tmpz00_6174 = BgL_locz00_5080
; }  else 
{ 
 obj_t BgL_auxz00_6177;
BgL_auxz00_6177 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(22717L), BGl_string2835z00zz__errorz00, BGl_string2809z00zz__errorz00, BgL_locz00_5080); 
FAILURE(BgL_auxz00_6177,BFALSE,BFALSE);} 
BgL_auxz00_6173 = 
(long)CINT(BgL_tmpz00_6174); } 
{ /* Llib/error.scm 556 */
 obj_t BgL_tmpz00_6165;
if(
STRINGP(BgL_fnamez00_5079))
{ /* Llib/error.scm 556 */
BgL_tmpz00_6165 = BgL_fnamez00_5079
; }  else 
{ 
 obj_t BgL_auxz00_6168;
BgL_auxz00_6168 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(22717L), BGl_string2835z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_fnamez00_5079); 
FAILURE(BgL_auxz00_6168,BFALSE,BFALSE);} 
BgL_auxz00_6164 = 
BSTRING_TO_STRING(BgL_tmpz00_6165); } 
return 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procz00_5076, BgL_messagez00_5077, BgL_objectz00_5078, BgL_auxz00_6164, BgL_auxz00_6173);} } 

}



/* bigloo-type-error-msg */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t BgL_prefixz00_41, obj_t BgL_fromz00_42, obj_t BgL_toz00_43)
{
{ /* Llib/error.scm 594 */
{ /* Llib/error.scm 595 */
 obj_t BgL_list1545z00_3830;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1546z00_3831;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1547z00_3832;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1548z00_3833;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1550z00_3834;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1552z00_3835;
BgL_arg1552z00_3835 = 
MAKE_YOUNG_PAIR(BGl_string2836z00zz__errorz00, BNIL); 
BgL_arg1550z00_3834 = 
MAKE_YOUNG_PAIR(BgL_toz00_43, BgL_arg1552z00_3835); } 
BgL_arg1548z00_3833 = 
MAKE_YOUNG_PAIR(BGl_string2837z00zz__errorz00, BgL_arg1550z00_3834); } 
BgL_arg1547z00_3832 = 
MAKE_YOUNG_PAIR(BgL_fromz00_42, BgL_arg1548z00_3833); } 
BgL_arg1546z00_3831 = 
MAKE_YOUNG_PAIR(BGl_string2838z00zz__errorz00, BgL_arg1547z00_3832); } 
BgL_list1545z00_3830 = 
MAKE_YOUNG_PAIR(BgL_prefixz00_41, BgL_arg1546z00_3831); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1545z00_3830);} } 

}



/* &bigloo-type-error-msg */
obj_t BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00(obj_t BgL_envz00_5081, obj_t BgL_prefixz00_5082, obj_t BgL_fromz00_5083, obj_t BgL_toz00_5084)
{
{ /* Llib/error.scm 594 */
{ /* Llib/error.scm 595 */
 obj_t BgL_auxz00_6204; obj_t BgL_auxz00_6197; obj_t BgL_auxz00_6190;
if(
STRINGP(BgL_toz00_5084))
{ /* Llib/error.scm 595 */
BgL_auxz00_6204 = BgL_toz00_5084
; }  else 
{ 
 obj_t BgL_auxz00_6207;
BgL_auxz00_6207 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(24500L), BGl_string2839z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_toz00_5084); 
FAILURE(BgL_auxz00_6207,BFALSE,BFALSE);} 
if(
STRINGP(BgL_fromz00_5083))
{ /* Llib/error.scm 595 */
BgL_auxz00_6197 = BgL_fromz00_5083
; }  else 
{ 
 obj_t BgL_auxz00_6200;
BgL_auxz00_6200 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(24500L), BGl_string2839z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_fromz00_5083); 
FAILURE(BgL_auxz00_6200,BFALSE,BFALSE);} 
if(
STRINGP(BgL_prefixz00_5082))
{ /* Llib/error.scm 595 */
BgL_auxz00_6190 = BgL_prefixz00_5082
; }  else 
{ 
 obj_t BgL_auxz00_6193;
BgL_auxz00_6193 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(24500L), BGl_string2839z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_prefixz00_5082); 
FAILURE(BgL_auxz00_6193,BFALSE,BFALSE);} 
return 
BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(BgL_auxz00_6190, BgL_auxz00_6197, BgL_auxz00_6204);} } 

}



/* bigloo-type-error */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t BgL_procz00_44, obj_t BgL_typez00_45, obj_t BgL_objz00_46)
{
{ /* Llib/error.scm 600 */
{ /* Llib/error.scm 601 */
 obj_t BgL_tyz00_1906;
if(
STRINGP(BgL_typez00_45))
{ /* Llib/error.scm 602 */
BgL_tyz00_1906 = BgL_typez00_45; }  else 
{ /* Llib/error.scm 602 */
if(
SYMBOLP(BgL_typez00_45))
{ /* Llib/error.scm 605 */
 obj_t BgL_arg2309z00_3837;
BgL_arg2309z00_3837 = 
SYMBOL_TO_STRING(BgL_typez00_45); 
BgL_tyz00_1906 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2309z00_3837); }  else 
{ /* Llib/error.scm 604 */
BgL_tyz00_1906 = BGl_string2840z00zz__errorz00; } } 
{ /* Llib/error.scm 601 */
 obj_t BgL_msgz00_1907;
{ /* Llib/error.scm 608 */
 obj_t BgL_arg1557z00_1914;
BgL_arg1557z00_1914 = 
bgl_typeof(BgL_objz00_46); 
{ /* Llib/error.scm 595 */
 obj_t BgL_list1545z00_3841;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1546z00_3842;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1547z00_3843;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1548z00_3844;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1550z00_3845;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1552z00_3846;
BgL_arg1552z00_3846 = 
MAKE_YOUNG_PAIR(BGl_string2836z00zz__errorz00, BNIL); 
BgL_arg1550z00_3845 = 
MAKE_YOUNG_PAIR(BgL_arg1557z00_1914, BgL_arg1552z00_3846); } 
BgL_arg1548z00_3844 = 
MAKE_YOUNG_PAIR(BGl_string2837z00zz__errorz00, BgL_arg1550z00_3845); } 
BgL_arg1547z00_3843 = 
MAKE_YOUNG_PAIR(BgL_tyz00_1906, BgL_arg1548z00_3844); } 
BgL_arg1546z00_3842 = 
MAKE_YOUNG_PAIR(BGl_string2838z00zz__errorz00, BgL_arg1547z00_3843); } 
BgL_list1545z00_3841 = 
MAKE_YOUNG_PAIR(BGl_string2841z00zz__errorz00, BgL_arg1546z00_3842); } 
BgL_msgz00_1907 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1545z00_3841); } } 
{ /* Llib/error.scm 608 */

{ /* Llib/error.scm 610 */
 BgL_z62typezd2errorzb0_bglt BgL_arg1553z00_1908;
{ /* Llib/error.scm 610 */
 BgL_z62typezd2errorzb0_bglt BgL_new1083z00_1909;
{ /* Llib/error.scm 610 */
 BgL_z62typezd2errorzb0_bglt BgL_new1082z00_1912;
BgL_new1082z00_1912 = 
((BgL_z62typezd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62typezd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 610 */
 long BgL_arg1556z00_1913;
BgL_arg1556z00_1913 = 
BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1082z00_1912), BgL_arg1556z00_1913); } 
BgL_new1083z00_1909 = BgL_new1082z00_1912; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1083z00_1909)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1083z00_1909)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6234;
{ /* Llib/error.scm 610 */
 obj_t BgL_arg1554z00_1910;
{ /* Llib/error.scm 610 */
 obj_t BgL_arg1555z00_1911;
{ /* Llib/error.scm 610 */
 obj_t BgL_classz00_3850;
BgL_classz00_3850 = BGl_z62typezd2errorzb0zz__objectz00; 
BgL_arg1555z00_1911 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3850); } 
BgL_arg1554z00_1910 = 
VECTOR_REF(BgL_arg1555z00_1911,2L); } 
BgL_auxz00_6234 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1554z00_1910); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1083z00_1909)))->BgL_stackz00)=((obj_t)BgL_auxz00_6234),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1083z00_1909)))->BgL_procz00)=((obj_t)BgL_procz00_44),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1083z00_1909)))->BgL_msgz00)=((obj_t)BgL_msgz00_1907),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1083z00_1909)))->BgL_objz00)=((obj_t)BgL_objz00_46),BUNSPEC); 
((((BgL_z62typezd2errorzb0_bglt)COBJECT(BgL_new1083z00_1909))->BgL_typez00)=((obj_t)BgL_typez00_45),BUNSPEC); 
BgL_arg1553z00_1908 = BgL_new1083z00_1909; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1553z00_1908));} } } } } 

}



/* &bigloo-type-error */
obj_t BGl_z62bigloozd2typezd2errorz62zz__errorz00(obj_t BgL_envz00_5085, obj_t BgL_procz00_5086, obj_t BgL_typez00_5087, obj_t BgL_objz00_5088)
{
{ /* Llib/error.scm 600 */
return 
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procz00_5086, BgL_typez00_5087, BgL_objz00_5088);} 

}



/* bigloo-type-error/location */
BGL_EXPORTED_DEF obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t BgL_procz00_47, obj_t BgL_typez00_48, obj_t BgL_objz00_49, obj_t BgL_fnamez00_50, obj_t BgL_locz00_51)
{
{ /* Llib/error.scm 619 */
return 
BGl_raisez00zz__errorz00(
BGl_typezd2errorzd2zz__errorz00(BgL_fnamez00_50, BgL_locz00_51, BgL_procz00_47, BgL_typez00_48, BgL_objz00_49));} 

}



/* &bigloo-type-error/location */
obj_t BGl_z62bigloozd2typezd2errorzf2locationz90zz__errorz00(obj_t BgL_envz00_5089, obj_t BgL_procz00_5090, obj_t BgL_typez00_5091, obj_t BgL_objz00_5092, obj_t BgL_fnamez00_5093, obj_t BgL_locz00_5094)
{
{ /* Llib/error.scm 619 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BgL_procz00_5090, BgL_typez00_5091, BgL_objz00_5092, BgL_fnamez00_5093, BgL_locz00_5094);} 

}



/* type-error */
BGL_EXPORTED_DEF obj_t BGl_typezd2errorzd2zz__errorz00(obj_t BgL_fnamez00_52, obj_t BgL_locz00_53, obj_t BgL_procz00_54, obj_t BgL_typez00_55, obj_t BgL_objz00_56)
{
{ /* Llib/error.scm 625 */
{ /* Llib/error.scm 626 */
 obj_t BgL_tyz00_1918;
if(
STRINGP(BgL_typez00_55))
{ /* Llib/error.scm 627 */
BgL_tyz00_1918 = BgL_typez00_55; }  else 
{ /* Llib/error.scm 627 */
if(
SYMBOLP(BgL_typez00_55))
{ /* Llib/error.scm 628 */
 obj_t BgL_arg2309z00_3854;
BgL_arg2309z00_3854 = 
SYMBOL_TO_STRING(BgL_typez00_55); 
BgL_tyz00_1918 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2309z00_3854); }  else 
{ /* Llib/error.scm 628 */
BgL_tyz00_1918 = BGl_string2840z00zz__errorz00; } } 
{ /* Llib/error.scm 626 */
 obj_t BgL_msgz00_1919;
{ /* Llib/error.scm 630 */
 obj_t BgL_arg1567z00_1925;
BgL_arg1567z00_1925 = 
bgl_typeof(BgL_objz00_56); 
{ /* Llib/error.scm 595 */
 obj_t BgL_list1545z00_3858;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1546z00_3859;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1547z00_3860;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1548z00_3861;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1550z00_3862;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1552z00_3863;
BgL_arg1552z00_3863 = 
MAKE_YOUNG_PAIR(BGl_string2836z00zz__errorz00, BNIL); 
BgL_arg1550z00_3862 = 
MAKE_YOUNG_PAIR(BgL_arg1567z00_1925, BgL_arg1552z00_3863); } 
BgL_arg1548z00_3861 = 
MAKE_YOUNG_PAIR(BGl_string2837z00zz__errorz00, BgL_arg1550z00_3862); } 
BgL_arg1547z00_3860 = 
MAKE_YOUNG_PAIR(BgL_tyz00_1918, BgL_arg1548z00_3861); } 
BgL_arg1546z00_3859 = 
MAKE_YOUNG_PAIR(BGl_string2838z00zz__errorz00, BgL_arg1547z00_3860); } 
BgL_list1545z00_3858 = 
MAKE_YOUNG_PAIR(BGl_string2841z00zz__errorz00, BgL_arg1546z00_3859); } 
BgL_msgz00_1919 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1545z00_3858); } } 
{ /* Llib/error.scm 630 */

{ /* Llib/error.scm 631 */
 BgL_z62typezd2errorzb0_bglt BgL_new1085z00_1920;
{ /* Llib/error.scm 632 */
 BgL_z62typezd2errorzb0_bglt BgL_new1084z00_1923;
BgL_new1084z00_1923 = 
((BgL_z62typezd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62typezd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 632 */
 long BgL_arg1565z00_1924;
BgL_arg1565z00_1924 = 
BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1084z00_1923), BgL_arg1565z00_1924); } 
BgL_new1085z00_1920 = BgL_new1084z00_1923; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1085z00_1920)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_52),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1085z00_1920)))->BgL_locationz00)=((obj_t)BgL_locz00_53),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6275;
{ /* Llib/error.scm 633 */
 obj_t BgL_arg1563z00_1921;
{ /* Llib/error.scm 633 */
 obj_t BgL_arg1564z00_1922;
{ /* Llib/error.scm 633 */
 obj_t BgL_classz00_3867;
BgL_classz00_3867 = BGl_z62typezd2errorzb0zz__objectz00; 
BgL_arg1564z00_1922 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3867); } 
BgL_arg1563z00_1921 = 
VECTOR_REF(BgL_arg1564z00_1922,2L); } 
BgL_auxz00_6275 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1563z00_1921); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1085z00_1920)))->BgL_stackz00)=((obj_t)BgL_auxz00_6275),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1085z00_1920)))->BgL_procz00)=((obj_t)BgL_procz00_54),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1085z00_1920)))->BgL_msgz00)=((obj_t)BgL_msgz00_1919),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1085z00_1920)))->BgL_objz00)=((obj_t)BgL_objz00_56),BUNSPEC); 
((((BgL_z62typezd2errorzb0_bglt)COBJECT(BgL_new1085z00_1920))->BgL_typez00)=((obj_t)BgL_typez00_55),BUNSPEC); 
return 
((obj_t)BgL_new1085z00_1920);} } } } } 

}



/* &type-error2757 */
obj_t BGl_z62typezd2error2757zb0zz__errorz00(obj_t BgL_envz00_5095, obj_t BgL_fnamez00_5096, obj_t BgL_locz00_5097, obj_t BgL_procz00_5098, obj_t BgL_typez00_5099, obj_t BgL_objz00_5100)
{
{ /* Llib/error.scm 625 */
return 
BGl_typezd2errorzd2zz__errorz00(BgL_fnamez00_5096, BgL_locz00_5097, BgL_procz00_5098, BgL_typez00_5099, BgL_objz00_5100);} 

}



/* typename-error */
BgL_z62typezd2errorzb0_bglt BGl_typenamezd2errorzd2zz__errorz00(bool_t BgL_fnamez00_57, bool_t BgL_locz00_58, obj_t BgL_procz00_59, obj_t BgL_typez00_60, obj_t BgL_objz00_61)
{
{ /* Llib/error.scm 642 */
{ /* Llib/error.scm 643 */
 obj_t BgL_tyz00_1928;
if(
STRINGP(BgL_typez00_60))
{ /* Llib/error.scm 644 */
BgL_tyz00_1928 = BgL_typez00_60; }  else 
{ /* Llib/error.scm 644 */
if(
SYMBOLP(BgL_typez00_60))
{ /* Llib/error.scm 645 */
 obj_t BgL_arg2309z00_3870;
BgL_arg2309z00_3870 = 
SYMBOL_TO_STRING(BgL_typez00_60); 
BgL_tyz00_1928 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2309z00_3870); }  else 
{ /* Llib/error.scm 645 */
BgL_tyz00_1928 = BGl_string2840z00zz__errorz00; } } 
{ /* Llib/error.scm 643 */
 obj_t BgL_msgz00_1929;
{ /* Llib/error.scm 595 */
 obj_t BgL_list1545z00_3874;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1546z00_3875;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1547z00_3876;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1548z00_3877;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1550z00_3878;
{ /* Llib/error.scm 595 */
 obj_t BgL_arg1552z00_3879;
BgL_arg1552z00_3879 = 
MAKE_YOUNG_PAIR(BGl_string2836z00zz__errorz00, BNIL); 
BgL_arg1550z00_3878 = 
MAKE_YOUNG_PAIR(
((obj_t)BgL_objz00_61), BgL_arg1552z00_3879); } 
BgL_arg1548z00_3877 = 
MAKE_YOUNG_PAIR(BGl_string2837z00zz__errorz00, BgL_arg1550z00_3878); } 
BgL_arg1547z00_3876 = 
MAKE_YOUNG_PAIR(BgL_tyz00_1928, BgL_arg1548z00_3877); } 
BgL_arg1546z00_3875 = 
MAKE_YOUNG_PAIR(BGl_string2838z00zz__errorz00, BgL_arg1547z00_3876); } 
BgL_list1545z00_3874 = 
MAKE_YOUNG_PAIR(BGl_string2841z00zz__errorz00, BgL_arg1546z00_3875); } 
BgL_msgz00_1929 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1545z00_3874); } 
{ /* Llib/error.scm 647 */

{ /* Llib/error.scm 648 */
 BgL_z62typezd2errorzb0_bglt BgL_new1087z00_1930;
{ /* Llib/error.scm 649 */
 BgL_z62typezd2errorzb0_bglt BgL_new1086z00_1933;
BgL_new1086z00_1933 = 
((BgL_z62typezd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62typezd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 649 */
 long BgL_arg1577z00_1934;
BgL_arg1577z00_1934 = 
BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1086z00_1933), BgL_arg1577z00_1934); } 
BgL_new1087z00_1930 = BgL_new1086z00_1933; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1087z00_1930)))->BgL_fnamez00)=((obj_t)
BBOOL(BgL_fnamez00_57)),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1087z00_1930)))->BgL_locationz00)=((obj_t)
BBOOL(BgL_locz00_58)),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6314;
{ /* Llib/error.scm 650 */
 obj_t BgL_arg1575z00_1931;
{ /* Llib/error.scm 650 */
 obj_t BgL_arg1576z00_1932;
{ /* Llib/error.scm 650 */
 obj_t BgL_classz00_3883;
BgL_classz00_3883 = BGl_z62typezd2errorzb0zz__objectz00; 
BgL_arg1576z00_1932 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3883); } 
BgL_arg1575z00_1931 = 
VECTOR_REF(BgL_arg1576z00_1932,2L); } 
BgL_auxz00_6314 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1575z00_1931); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1087z00_1930)))->BgL_stackz00)=((obj_t)BgL_auxz00_6314),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1087z00_1930)))->BgL_procz00)=((obj_t)BgL_procz00_59),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1087z00_1930)))->BgL_msgz00)=((obj_t)BgL_msgz00_1929),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1087z00_1930)))->BgL_objz00)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_z62typezd2errorzb0_bglt)COBJECT(BgL_new1087z00_1930))->BgL_typez00)=((obj_t)BgL_typez00_60),BUNSPEC); 
return BgL_new1087z00_1930;} } } } } 

}



/* index-out-of-bounds-error */
BGL_EXPORTED_DEF obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t BgL_fnamez00_62, obj_t BgL_locz00_63, obj_t BgL_procz00_64, obj_t BgL_objz00_65, int BgL_lenz00_66, int BgL_iz00_67)
{
{ /* Llib/error.scm 659 */
{ /* Llib/error.scm 660 */
 obj_t BgL_msgz00_1938;
{ /* Llib/error.scm 665 */
 obj_t BgL_arg1584z00_1944; obj_t BgL_arg1586z00_1945;
{ /* Ieee/fixnum.scm 1000 */

BgL_arg1584z00_1944 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_iz00_67), 10L); } 
{ /* Ieee/fixnum.scm 1000 */

BgL_arg1586z00_1945 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(BgL_lenz00_66)-1L), 10L); } 
{ /* Llib/error.scm 664 */
 obj_t BgL_list1587z00_1946;
{ /* Llib/error.scm 664 */
 obj_t BgL_arg1589z00_1947;
{ /* Llib/error.scm 664 */
 obj_t BgL_arg1590z00_1948;
{ /* Llib/error.scm 664 */
 obj_t BgL_arg1591z00_1949;
{ /* Llib/error.scm 664 */
 obj_t BgL_arg1592z00_1950;
BgL_arg1592z00_1950 = 
MAKE_YOUNG_PAIR(BGl_string2842z00zz__errorz00, BNIL); 
BgL_arg1591z00_1949 = 
MAKE_YOUNG_PAIR(BgL_arg1586z00_1945, BgL_arg1592z00_1950); } 
BgL_arg1590z00_1948 = 
MAKE_YOUNG_PAIR(BGl_string2843z00zz__errorz00, BgL_arg1591z00_1949); } 
BgL_arg1589z00_1947 = 
MAKE_YOUNG_PAIR(BgL_arg1584z00_1944, BgL_arg1590z00_1948); } 
BgL_list1587z00_1946 = 
MAKE_YOUNG_PAIR(BGl_string2844z00zz__errorz00, BgL_arg1589z00_1947); } 
BgL_msgz00_1938 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1587z00_1946); } } 
{ /* Llib/error.scm 664 */

{ /* Llib/error.scm 668 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_new1089z00_1939;
{ /* Llib/error.scm 669 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_new1088z00_1942;
BgL_new1088z00_1942 = 
((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl) ))); 
{ /* Llib/error.scm 669 */
 long BgL_arg1583z00_1943;
BgL_arg1583z00_1943 = 
BGL_CLASS_NUM(BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1088z00_1942), BgL_arg1583z00_1943); } 
BgL_new1089z00_1939 = BgL_new1088z00_1942; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1089z00_1939)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_62),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1089z00_1939)))->BgL_locationz00)=((obj_t)BgL_locz00_63),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6346;
{ /* Llib/error.scm 670 */
 obj_t BgL_arg1581z00_1940;
{ /* Llib/error.scm 670 */
 obj_t BgL_arg1582z00_1941;
{ /* Llib/error.scm 670 */
 obj_t BgL_classz00_3889;
BgL_classz00_3889 = BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00; 
BgL_arg1582z00_1941 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3889); } 
BgL_arg1581z00_1940 = 
VECTOR_REF(BgL_arg1582z00_1941,2L); } 
BgL_auxz00_6346 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1581z00_1940); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1089z00_1939)))->BgL_stackz00)=((obj_t)BgL_auxz00_6346),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1089z00_1939)))->BgL_procz00)=((obj_t)BgL_procz00_64),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1089z00_1939)))->BgL_msgz00)=((obj_t)BgL_msgz00_1938),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1089z00_1939)))->BgL_objz00)=((obj_t)BgL_objz00_65),BUNSPEC); 
((((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)COBJECT(BgL_new1089z00_1939))->BgL_indexz00)=((obj_t)
BINT(BgL_lenz00_66)),BUNSPEC); 
return 
((obj_t)BgL_new1089z00_1939);} } } } 

}



/* &index-out-of-bounds2758 */
obj_t BGl_z62indexzd2outzd2ofzd2bounds2758zb0zz__errorz00(obj_t BgL_envz00_5101, obj_t BgL_fnamez00_5102, obj_t BgL_locz00_5103, obj_t BgL_procz00_5104, obj_t BgL_objz00_5105, obj_t BgL_lenz00_5106, obj_t BgL_iz00_5107)
{
{ /* Llib/error.scm 659 */
{ /* Llib/error.scm 660 */
 int BgL_auxz00_6370; int BgL_auxz00_6361;
{ /* Llib/error.scm 660 */
 obj_t BgL_tmpz00_6371;
if(
INTEGERP(BgL_iz00_5107))
{ /* Llib/error.scm 660 */
BgL_tmpz00_6371 = BgL_iz00_5107
; }  else 
{ 
 obj_t BgL_auxz00_6374;
BgL_auxz00_6374 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(26842L), BGl_string2845z00zz__errorz00, BGl_string2809z00zz__errorz00, BgL_iz00_5107); 
FAILURE(BgL_auxz00_6374,BFALSE,BFALSE);} 
BgL_auxz00_6370 = 
CINT(BgL_tmpz00_6371); } 
{ /* Llib/error.scm 660 */
 obj_t BgL_tmpz00_6362;
if(
INTEGERP(BgL_lenz00_5106))
{ /* Llib/error.scm 660 */
BgL_tmpz00_6362 = BgL_lenz00_5106
; }  else 
{ 
 obj_t BgL_auxz00_6365;
BgL_auxz00_6365 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(26842L), BGl_string2845z00zz__errorz00, BGl_string2809z00zz__errorz00, BgL_lenz00_5106); 
FAILURE(BgL_auxz00_6365,BFALSE,BFALSE);} 
BgL_auxz00_6361 = 
CINT(BgL_tmpz00_6362); } 
return 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BgL_fnamez00_5102, BgL_locz00_5103, BgL_procz00_5104, BgL_objz00_5105, BgL_auxz00_6361, BgL_auxz00_6370);} } 

}



/* warning */
BGL_EXPORTED_DEF obj_t BGl_warningz00zz__errorz00(obj_t BgL_argsz00_68)
{
{ /* Llib/error.scm 679 */
{ /* Llib/error.scm 681 */
 BgL_z62warningz62_bglt BgL_arg1598z00_1961;
{ /* Llib/error.scm 681 */
 BgL_z62warningz62_bglt BgL_new1091z00_1962;
{ /* Llib/error.scm 681 */
 BgL_z62warningz62_bglt BgL_new1090z00_1965;
BgL_new1090z00_1965 = 
((BgL_z62warningz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62warningz62_bgl) ))); 
{ /* Llib/error.scm 681 */
 long BgL_arg1603z00_1966;
BgL_arg1603z00_1966 = 
BGL_CLASS_NUM(BGl_z62warningz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1090z00_1965), BgL_arg1603z00_1966); } 
BgL_new1091z00_1962 = BgL_new1090z00_1965; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1091z00_1962)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1091z00_1962)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6388;
{ /* Llib/error.scm 681 */
 obj_t BgL_arg1600z00_1963;
{ /* Llib/error.scm 681 */
 obj_t BgL_arg1602z00_1964;
{ /* Llib/error.scm 681 */
 obj_t BgL_classz00_3894;
BgL_classz00_3894 = BGl_z62warningz62zz__objectz00; 
BgL_arg1602z00_1964 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3894); } 
BgL_arg1600z00_1963 = 
VECTOR_REF(BgL_arg1602z00_1964,2L); } 
BgL_auxz00_6388 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1600z00_1963); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1091z00_1962)))->BgL_stackz00)=((obj_t)BgL_auxz00_6388),BUNSPEC); } 
((((BgL_z62warningz62_bglt)COBJECT(BgL_new1091z00_1962))->BgL_argsz00)=((obj_t)BgL_argsz00_68),BUNSPEC); 
BgL_arg1598z00_1961 = BgL_new1091z00_1962; } 
BGL_TAIL return 
BGl_warningzd2notifyzd2zz__errorz00(
((obj_t)BgL_arg1598z00_1961));} } 

}



/* &warning2759 */
obj_t BGl_z62warning2759z62zz__errorz00(obj_t BgL_envz00_5108, obj_t BgL_argsz00_5109)
{
{ /* Llib/error.scm 679 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_5109);} 

}



/* warning/location */
BGL_EXPORTED_DEF obj_t BGl_warningzf2locationzf2zz__errorz00(obj_t BgL_fnamez00_69, obj_t BgL_locz00_70, obj_t BgL_argsz00_71)
{
{ /* Llib/error.scm 686 */
{ /* Llib/error.scm 688 */
 BgL_z62warningz62_bglt BgL_arg1604z00_1967;
{ /* Llib/error.scm 688 */
 BgL_z62warningz62_bglt BgL_new1093z00_1968;
{ /* Llib/error.scm 688 */
 BgL_z62warningz62_bglt BgL_new1092z00_1971;
BgL_new1092z00_1971 = 
((BgL_z62warningz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62warningz62_bgl) ))); 
{ /* Llib/error.scm 688 */
 long BgL_arg1607z00_1972;
BgL_arg1607z00_1972 = 
BGL_CLASS_NUM(BGl_z62warningz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1092z00_1971), BgL_arg1607z00_1972); } 
BgL_new1093z00_1968 = BgL_new1092z00_1971; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1093z00_1968)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_69),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1093z00_1968)))->BgL_locationz00)=((obj_t)BgL_locz00_70),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6406;
{ /* Llib/error.scm 688 */
 obj_t BgL_arg1605z00_1969;
{ /* Llib/error.scm 688 */
 obj_t BgL_arg1606z00_1970;
{ /* Llib/error.scm 688 */
 obj_t BgL_classz00_3899;
BgL_classz00_3899 = BGl_z62warningz62zz__objectz00; 
BgL_arg1606z00_1970 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3899); } 
BgL_arg1605z00_1969 = 
VECTOR_REF(BgL_arg1606z00_1970,2L); } 
BgL_auxz00_6406 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1605z00_1969); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1093z00_1968)))->BgL_stackz00)=((obj_t)BgL_auxz00_6406),BUNSPEC); } 
((((BgL_z62warningz62_bglt)COBJECT(BgL_new1093z00_1968))->BgL_argsz00)=((obj_t)BgL_argsz00_71),BUNSPEC); 
BgL_arg1604z00_1967 = BgL_new1093z00_1968; } 
return 
BGl_warningzd2notifyzd2zz__errorz00(
((obj_t)BgL_arg1604z00_1967));} } 

}



/* &warning/location */
obj_t BGl_z62warningzf2locationz90zz__errorz00(obj_t BgL_envz00_5110, obj_t BgL_fnamez00_5111, obj_t BgL_locz00_5112, obj_t BgL_argsz00_5113)
{
{ /* Llib/error.scm 686 */
return 
BGl_warningzf2locationzf2zz__errorz00(BgL_fnamez00_5111, BgL_locz00_5112, BgL_argsz00_5113);} 

}



/* warning/loc */
BGL_EXPORTED_DEF obj_t BGl_warningzf2loczf2zz__errorz00(obj_t BgL_locz00_72, obj_t BgL_argsz00_73)
{
{ /* Llib/error.scm 693 */
if(
PAIRP(BgL_locz00_72))
{ /* Llib/error.scm 694 */
 obj_t BgL_cdrzd2204zd2_1979;
BgL_cdrzd2204zd2_1979 = 
CDR(
((obj_t)BgL_locz00_72)); 
if(
(
CAR(
((obj_t)BgL_locz00_72))==BGl_symbol2811z00zz__errorz00))
{ /* Llib/error.scm 694 */
if(
PAIRP(BgL_cdrzd2204zd2_1979))
{ /* Llib/error.scm 694 */
 obj_t BgL_cdrzd2208zd2_1983;
BgL_cdrzd2208zd2_1983 = 
CDR(BgL_cdrzd2204zd2_1979); 
if(
PAIRP(BgL_cdrzd2208zd2_1983))
{ /* Llib/error.scm 694 */
if(
NULLP(
CDR(BgL_cdrzd2208zd2_1983)))
{ /* Llib/error.scm 694 */
 obj_t BgL_arg1615z00_1987; obj_t BgL_arg1616z00_1988;
BgL_arg1615z00_1987 = 
CAR(BgL_cdrzd2204zd2_1979); 
BgL_arg1616z00_1988 = 
CAR(BgL_cdrzd2208zd2_1983); 
{ /* Llib/error.scm 696 */
 obj_t BgL_list1619z00_3911;
{ /* Llib/error.scm 696 */
 obj_t BgL_arg1620z00_3912;
BgL_arg1620z00_3912 = 
MAKE_YOUNG_PAIR(BgL_argsz00_73, BNIL); 
BgL_list1619z00_3911 = 
MAKE_YOUNG_PAIR(BgL_arg1616z00_1988, BgL_arg1620z00_3912); } 
return 
BGl_applyz00zz__r4_control_features_6_9z00(BGl_warningzf2locationzd2envz20zz__errorz00, BgL_arg1615z00_1987, BgL_list1619z00_3911);} }  else 
{ /* Llib/error.scm 694 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} }  else 
{ /* Llib/error.scm 694 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} }  else 
{ /* Llib/error.scm 694 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} }  else 
{ /* Llib/error.scm 694 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} }  else 
{ /* Llib/error.scm 694 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} } 

}



/* &warning/loc */
obj_t BGl_z62warningzf2locz90zz__errorz00(obj_t BgL_envz00_5114, obj_t BgL_locz00_5115, obj_t BgL_argsz00_5116)
{
{ /* Llib/error.scm 693 */
return 
BGl_warningzf2loczf2zz__errorz00(BgL_locz00_5115, BgL_argsz00_5116);} 

}



/* warning/c-location */
BGL_EXPORTED_DEF obj_t BGl_warningzf2czd2locationz20zz__errorz00(char * BgL_fnamez00_74, long BgL_locz00_75, obj_t BgL_argsz00_76)
{
{ /* Llib/error.scm 707 */
{ /* Llib/error.scm 708 */
 obj_t BgL_list1622z00_3918;
{ /* Llib/error.scm 708 */
 obj_t BgL_arg1623z00_3919;
BgL_arg1623z00_3919 = 
MAKE_YOUNG_PAIR(BgL_argsz00_76, BNIL); 
BgL_list1622z00_3918 = 
MAKE_YOUNG_PAIR(
BINT(BgL_locz00_75), BgL_arg1623z00_3919); } 
return 
BGl_applyz00zz__r4_control_features_6_9z00(BGl_warningzf2locationzd2envz20zz__errorz00, 
string_to_bstring(BgL_fnamez00_74), BgL_list1622z00_3918);} } 

}



/* &warning/c-location */
obj_t BGl_z62warningzf2czd2locationz42zz__errorz00(obj_t BgL_envz00_5117, obj_t BgL_fnamez00_5118, obj_t BgL_locz00_5119, obj_t BgL_argsz00_5120)
{
{ /* Llib/error.scm 707 */
{ /* Llib/error.scm 708 */
 long BgL_auxz00_6457; char * BgL_auxz00_6448;
{ /* Llib/error.scm 708 */
 obj_t BgL_tmpz00_6458;
if(
INTEGERP(BgL_locz00_5119))
{ /* Llib/error.scm 708 */
BgL_tmpz00_6458 = BgL_locz00_5119
; }  else 
{ 
 obj_t BgL_auxz00_6461;
BgL_auxz00_6461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(28829L), BGl_string2846z00zz__errorz00, BGl_string2809z00zz__errorz00, BgL_locz00_5119); 
FAILURE(BgL_auxz00_6461,BFALSE,BFALSE);} 
BgL_auxz00_6457 = 
(long)CINT(BgL_tmpz00_6458); } 
{ /* Llib/error.scm 708 */
 obj_t BgL_tmpz00_6449;
if(
STRINGP(BgL_fnamez00_5118))
{ /* Llib/error.scm 708 */
BgL_tmpz00_6449 = BgL_fnamez00_5118
; }  else 
{ 
 obj_t BgL_auxz00_6452;
BgL_auxz00_6452 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(28829L), BGl_string2846z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_fnamez00_5118); 
FAILURE(BgL_auxz00_6452,BFALSE,BFALSE);} 
BgL_auxz00_6448 = 
BSTRING_TO_STRING(BgL_tmpz00_6449); } 
return 
BGl_warningzf2czd2locationz20zz__errorz00(BgL_auxz00_6448, BgL_auxz00_6457, BgL_argsz00_5120);} } 

}



/* notify-&error */
obj_t BGl_notifyzd2z62errorzb0zz__errorz00(obj_t BgL_errz00_77)
{
{ /* Llib/error.scm 713 */
{ /* Llib/error.scm 714 */
 obj_t BgL_portz00_1996;
{ /* Llib/error.scm 714 */
 obj_t BgL_tmpz00_6467;
BgL_tmpz00_6467 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1996 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6467); } 
bgl_flush_output_port(BgL_portz00_1996); 
{ /* Llib/error.scm 717 */
 obj_t BgL_list1624z00_1998;
BgL_list1624z00_1998 = 
MAKE_YOUNG_PAIR(BgL_portz00_1996, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2832z00zz__errorz00, BgL_list1624z00_1998); } 
{ /* Llib/error.scm 718 */
 obj_t BgL_arg1625z00_1999;
BgL_arg1625z00_1999 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_77)))->BgL_procz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1625z00_1999, BgL_portz00_1996); } 
{ /* Llib/error.scm 719 */
 obj_t BgL_list1626z00_2000;
BgL_list1626z00_2000 = 
MAKE_YOUNG_PAIR(BgL_portz00_1996, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2847z00zz__errorz00, BgL_list1626z00_2000); } 
{ /* Llib/error.scm 720 */
 obj_t BgL_arg1627z00_2001;
BgL_arg1627z00_2001 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_77)))->BgL_msgz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1627z00_2001, BgL_portz00_1996); } 
if(
(
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_77)))->BgL_objz00)==BGl_symbol2848z00zz__errorz00))
{ /* Llib/error.scm 721 */BFALSE; }  else 
{ /* Llib/error.scm 721 */
{ /* Llib/error.scm 722 */
 obj_t BgL_list1630z00_2004;
BgL_list1630z00_2004 = 
MAKE_YOUNG_PAIR(BgL_portz00_1996, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2850z00zz__errorz00, BgL_list1630z00_2004); } 
{ /* Llib/error.scm 723 */
 obj_t BgL_arg1632z00_2005;
BgL_arg1632z00_2005 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_77)))->BgL_objz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1632z00_2005, BgL_portz00_1996); } } 
{ /* Llib/error.scm 724 */
 obj_t BgL_list1634z00_2007;
BgL_list1634z00_2007 = 
MAKE_YOUNG_PAIR(BgL_portz00_1996, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1634z00_2007); } 
{ /* Llib/error.scm 725 */
 obj_t BgL_arg1635z00_2008;
{ /* Llib/error.scm 725 */
 obj_t BgL__ortest_1095z00_2012;
BgL__ortest_1095z00_2012 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62errorz62_bglt)BgL_errz00_77))))->BgL_stackz00); 
if(
CBOOL(BgL__ortest_1095z00_2012))
{ /* Llib/error.scm 725 */
BgL_arg1635z00_2008 = BgL__ortest_1095z00_2012; }  else 
{ /* Llib/error.scm 725 */

{ /* Llib/error.scm 725 */

BgL_arg1635z00_2008 = 
BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE); } } } 
{ /* Llib/error.scm 273 */

BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg1635z00_2008, BgL_portz00_1996, 
BINT(1L)); } } 
return 
bgl_flush_output_port(BgL_portz00_1996);} } 

}



/* notify-&error/location-no-loc */
obj_t BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00(obj_t BgL_errz00_78)
{
{ /* Llib/error.scm 731 */
{ /* Llib/error.scm 732 */
 obj_t BgL_portz00_2014;
{ /* Llib/error.scm 732 */
 obj_t BgL_tmpz00_6501;
BgL_tmpz00_6501 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2014 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6501); } 
bgl_flush_output_port(BgL_portz00_2014); 
{ /* Llib/error.scm 735 */
 obj_t BgL_list1636z00_2016;
BgL_list1636z00_2016 = 
MAKE_YOUNG_PAIR(BgL_portz00_2014, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1636z00_2016); } 
{ /* Llib/error.scm 736 */
 obj_t BgL_arg1637z00_2017; obj_t BgL_arg1638z00_2018;
BgL_arg1637z00_2017 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62errorz62_bglt)BgL_errz00_78))))->BgL_fnamez00); 
BgL_arg1638z00_2018 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62errorz62_bglt)BgL_errz00_78))))->BgL_locationz00); 
{ /* Llib/error.scm 736 */
 obj_t BgL_list1639z00_2019;
{ /* Llib/error.scm 736 */
 obj_t BgL_arg1640z00_2020;
{ /* Llib/error.scm 736 */
 obj_t BgL_arg1642z00_2021;
{ /* Llib/error.scm 736 */
 obj_t BgL_arg1643z00_2022;
{ /* Llib/error.scm 736 */
 obj_t BgL_arg1644z00_2023;
BgL_arg1644z00_2023 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)':')), BNIL); 
BgL_arg1643z00_2022 = 
MAKE_YOUNG_PAIR(BgL_arg1638z00_2018, BgL_arg1644z00_2023); } 
BgL_arg1642z00_2021 = 
MAKE_YOUNG_PAIR(BGl_string2851z00zz__errorz00, BgL_arg1643z00_2022); } 
BgL_arg1640z00_2020 = 
MAKE_YOUNG_PAIR(BgL_arg1637z00_2017, BgL_arg1642z00_2021); } 
BgL_list1639z00_2019 = 
MAKE_YOUNG_PAIR(BGl_string2852z00zz__errorz00, BgL_arg1640z00_2020); } 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_2014, BgL_list1639z00_2019); } } 
BGL_TAIL return 
BGl_notifyzd2z62errorzb0zz__errorz00(BgL_errz00_78);} } 

}



/* notify-&error/location-loc */
obj_t BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00(obj_t BgL_errz00_79, obj_t BgL_fnamez00_80, obj_t BgL_linez00_81, obj_t BgL_locz00_82, obj_t BgL_stringz00_83, obj_t BgL_colz00_84)
{
{ /* Llib/error.scm 742 */
BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00:
{ /* Llib/error.scm 743 */
 long BgL_lenz00_2024;
BgL_lenz00_2024 = 
STRING_LENGTH(
((obj_t)BgL_stringz00_83)); 
if(
(BgL_lenz00_2024>256L))
{ /* Llib/error.scm 745 */
 obj_t BgL_nstringz00_2027;
BgL_nstringz00_2027 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_83, 
(
(long)CINT(BgL_colz00_84)-60L), 
(
(long)CINT(BgL_colz00_84)+10L)); 
{ /* Llib/error.scm 746 */

{ /* Llib/error.scm 748 */
 obj_t BgL_arg1649z00_2028; long BgL_arg1651z00_2029;
{ /* Llib/error.scm 748 */
 obj_t BgL_list1652z00_2030;
{ /* Llib/error.scm 748 */
 obj_t BgL_arg1654z00_2031;
{ /* Llib/error.scm 748 */
 obj_t BgL_arg1655z00_2032;
BgL_arg1655z00_2032 = 
MAKE_YOUNG_PAIR(BGl_string2853z00zz__errorz00, BNIL); 
BgL_arg1654z00_2031 = 
MAKE_YOUNG_PAIR(BgL_nstringz00_2027, BgL_arg1655z00_2032); } 
BgL_list1652z00_2030 = 
MAKE_YOUNG_PAIR(BGl_string2853z00zz__errorz00, BgL_arg1654z00_2031); } 
BgL_arg1649z00_2028 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1652z00_2030); } 
BgL_arg1651z00_2029 = 
(60L+3L); 
{ 
 obj_t BgL_colz00_6536; obj_t BgL_stringz00_6535;
BgL_stringz00_6535 = BgL_arg1649z00_2028; 
BgL_colz00_6536 = 
BINT(BgL_arg1651z00_2029); 
BgL_colz00_84 = BgL_colz00_6536; 
BgL_stringz00_83 = BgL_stringz00_6535; 
goto BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00;} } } }  else 
{ /* Llib/error.scm 751 */
 obj_t BgL_portz00_2036;
{ /* Llib/error.scm 751 */
 obj_t BgL_tmpz00_6538;
BgL_tmpz00_6538 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2036 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6538); } 
bgl_flush_output_port(BgL_portz00_2036); 
{ /* Llib/error.scm 754 */
 obj_t BgL_list1659z00_2037;
BgL_list1659z00_2037 = 
MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1659z00_2037); } 
{ /* Llib/error.scm 755 */
 obj_t BgL_spacezd2stringzd2_2038;
if(
(
(long)CINT(BgL_colz00_84)>0L))
{ /* Llib/error.scm 755 */
BgL_spacezd2stringzd2_2038 = 
make_string(
(long)CINT(BgL_colz00_84), ((unsigned char)' ')); }  else 
{ /* Llib/error.scm 755 */
BgL_spacezd2stringzd2_2038 = BGl_string2854z00zz__errorz00; } 
{ /* Llib/error.scm 755 */
 long BgL_lz00_2039;
BgL_lz00_2039 = 
STRING_LENGTH(
((obj_t)BgL_stringz00_83)); 
{ /* Llib/error.scm 756 */
 obj_t BgL_nzd2colzd2_2040;
if(
(
(long)CINT(BgL_colz00_84)>=BgL_lz00_2039))
{ /* Llib/error.scm 757 */
BgL_nzd2colzd2_2040 = 
BINT(BgL_lz00_2039); }  else 
{ /* Llib/error.scm 757 */
BgL_nzd2colzd2_2040 = BgL_colz00_84; } 
{ /* Llib/error.scm 757 */

BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2colzd2_2040, BgL_stringz00_83, BgL_spacezd2stringzd2_2038); 
BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_80, BgL_linez00_81, BgL_locz00_82, BgL_stringz00_83, BgL_spacezd2stringzd2_2038); 
{ /* Llib/error.scm 763 */
 obj_t BgL_list1660z00_2041;
BgL_list1660z00_2041 = 
MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2832z00zz__errorz00, BgL_list1660z00_2041); } 
{ /* Llib/error.scm 764 */
 obj_t BgL_arg1661z00_2042;
BgL_arg1661z00_2042 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_79)))->BgL_procz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1661z00_2042, BgL_portz00_2036); } 
{ /* Llib/error.scm 765 */
 obj_t BgL_list1662z00_2043;
BgL_list1662z00_2043 = 
MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1662z00_2043); } 
{ /* Llib/error.scm 766 */
 obj_t BgL_arg1663z00_2044;
BgL_arg1663z00_2044 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_79)))->BgL_msgz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1663z00_2044, BgL_portz00_2036); } 
if(
(
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_79)))->BgL_objz00)==BGl_symbol2848z00zz__errorz00))
{ /* Llib/error.scm 767 */BFALSE; }  else 
{ /* Llib/error.scm 767 */
{ /* Llib/error.scm 768 */
 obj_t BgL_list1670z00_2047;
BgL_list1670z00_2047 = 
MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2850z00zz__errorz00, BgL_list1670z00_2047); } 
{ /* Llib/error.scm 769 */
 obj_t BgL_arg1671z00_2048;
BgL_arg1671z00_2048 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_79)))->BgL_objz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1671z00_2048, BgL_portz00_2036); } } 
{ /* Llib/error.scm 770 */
 obj_t BgL_list1673z00_2050;
BgL_list1673z00_2050 = 
MAKE_YOUNG_PAIR(BgL_portz00_2036, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1673z00_2050); } 
{ /* Llib/error.scm 771 */
 obj_t BgL_arg1675z00_2051;
{ /* Llib/error.scm 771 */
 obj_t BgL__ortest_1098z00_2055;
BgL__ortest_1098z00_2055 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62errorz62_bglt)BgL_errz00_79))))->BgL_stackz00); 
if(
CBOOL(BgL__ortest_1098z00_2055))
{ /* Llib/error.scm 771 */
BgL_arg1675z00_2051 = BgL__ortest_1098z00_2055; }  else 
{ /* Llib/error.scm 771 */

{ /* Llib/error.scm 771 */

BgL_arg1675z00_2051 = 
BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE); } } } 
{ /* Llib/error.scm 273 */

BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg1675z00_2051, BgL_portz00_2036, 
BINT(1L)); } } 
return 
bgl_flush_output_port(BgL_portz00_2036);} } } } } } } 

}



/* notify-&error/loc */
obj_t BGl_notifyzd2z62errorzf2locz42zz__errorz00(obj_t BgL_errz00_85, obj_t BgL_fnamez00_86, obj_t BgL_locz00_87)
{
{ /* Llib/error.scm 778 */
{ /* Llib/error.scm 779 */
 bool_t BgL_test3237z00_6587;
if(
STRINGP(BgL_fnamez00_86))
{ /* Llib/error.scm 779 */
if(
INTEGERP(BgL_locz00_87))
{ /* Llib/error.scm 779 */
BgL_test3237z00_6587 = ((bool_t)0)
; }  else 
{ /* Llib/error.scm 779 */
BgL_test3237z00_6587 = ((bool_t)1)
; } }  else 
{ /* Llib/error.scm 779 */
BgL_test3237z00_6587 = ((bool_t)1)
; } 
if(BgL_test3237z00_6587)
{ /* Llib/error.scm 779 */
return 
BGl_notifyzd2z62errorzb0zz__errorz00(BgL_errz00_85);}  else 
{ /* Llib/error.scm 781 */
 obj_t BgL_filez00_2062;
{ /* Llib/error.scm 782 */
 obj_t BgL_arg1681z00_2066;
{ /* Llib/error.scm 782 */
 obj_t BgL_list1682z00_2067;
{ /* Llib/error.scm 782 */
 obj_t BgL_arg1684z00_2068;
{ /* Llib/error.scm 782 */
 obj_t BgL_arg1685z00_2069;
BgL_arg1685z00_2069 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
BgL_arg1684z00_2068 = 
MAKE_YOUNG_PAIR(BgL_locz00_87, BgL_arg1685z00_2069); } 
BgL_list1682z00_2067 = 
MAKE_YOUNG_PAIR(BgL_fnamez00_86, BgL_arg1684z00_2068); } 
BgL_arg1681z00_2066 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_symbol2811z00zz__errorz00, BgL_list1682z00_2067); } 
BgL_filez00_2062 = 
BGl_locationzd2linezd2numz00zz__errorz00(BgL_arg1681z00_2066); } 
{ /* Llib/error.scm 782 */
 obj_t BgL_lnumz00_2063; obj_t BgL_lpointz00_2064; obj_t BgL_lstringz00_2065;
{ /* Llib/error.scm 783 */
 obj_t BgL_tmpz00_3941;
{ /* Llib/error.scm 783 */
 int BgL_tmpz00_6598;
BgL_tmpz00_6598 = 
(int)(1L); 
BgL_tmpz00_3941 = 
BGL_MVALUES_VAL(BgL_tmpz00_6598); } 
{ /* Llib/error.scm 783 */
 int BgL_tmpz00_6601;
BgL_tmpz00_6601 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6601, BUNSPEC); } 
BgL_lnumz00_2063 = BgL_tmpz00_3941; } 
{ /* Llib/error.scm 783 */
 obj_t BgL_tmpz00_3942;
{ /* Llib/error.scm 783 */
 int BgL_tmpz00_6604;
BgL_tmpz00_6604 = 
(int)(2L); 
BgL_tmpz00_3942 = 
BGL_MVALUES_VAL(BgL_tmpz00_6604); } 
{ /* Llib/error.scm 783 */
 int BgL_tmpz00_6607;
BgL_tmpz00_6607 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6607, BUNSPEC); } 
BgL_lpointz00_2064 = BgL_tmpz00_3942; } 
{ /* Llib/error.scm 783 */
 obj_t BgL_tmpz00_3943;
{ /* Llib/error.scm 783 */
 int BgL_tmpz00_6610;
BgL_tmpz00_6610 = 
(int)(3L); 
BgL_tmpz00_3943 = 
BGL_MVALUES_VAL(BgL_tmpz00_6610); } 
{ /* Llib/error.scm 783 */
 int BgL_tmpz00_6613;
BgL_tmpz00_6613 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6613, BUNSPEC); } 
BgL_lstringz00_2065 = BgL_tmpz00_3943; } 
if(
CBOOL(BgL_lnumz00_2063))
{ /* Llib/error.scm 783 */
return 
BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00(BgL_errz00_85, BgL_fnamez00_86, BgL_lnumz00_2063, BgL_locz00_87, BgL_lstringz00_2065, BgL_lpointz00_2064);}  else 
{ /* Llib/error.scm 783 */
return 
BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00(BgL_errz00_85);} } } } } 

}



/* open-for-error */
obj_t BGl_openzd2forzd2errorz00zz__errorz00(obj_t BgL_fnamez00_88)
{
{ /* Llib/error.scm 790 */
if(
fexists(
BSTRING_TO_STRING(BgL_fnamez00_88)))
{ /* Llib/error.scm 792 */
if(
bgl_directoryp(
BSTRING_TO_STRING(BgL_fnamez00_88)))
{ /* Llib/error.scm 793 */
return BFALSE;}  else 
{ /* Llib/error.scm 794 */
 obj_t BgL_env1107z00_2075;
BgL_env1107z00_2075 = 
BGL_CURRENT_DYNAMIC_ENV(); 
{ /* Llib/error.scm 794 */
 obj_t BgL_cell1102z00_2076;
BgL_cell1102z00_2076 = 
MAKE_STACK_CELL(BUNSPEC); 
{ /* Llib/error.scm 794 */
 obj_t BgL_val1106z00_2077;
BgL_val1106z00_2077 = 
BGl_zc3z04exitza31690ze3ze70z60zz__errorz00(BgL_fnamez00_88, BgL_cell1102z00_2076, BgL_env1107z00_2075); 
if(
(BgL_val1106z00_2077==BgL_cell1102z00_2076))
{ /* Llib/error.scm 794 */
{ /* Llib/error.scm 794 */
 int BgL_tmpz00_6631;
BgL_tmpz00_6631 = 
(int)(0L); 
BGL_SIGSETMASK(BgL_tmpz00_6631); } 
{ /* Llib/error.scm 794 */
 obj_t BgL_arg1689z00_2079;
BgL_arg1689z00_2079 = 
CELL_REF(
((obj_t)BgL_val1106z00_2077)); 
return BFALSE;} }  else 
{ /* Llib/error.scm 794 */
return BgL_val1106z00_2077;} } } } }  else 
{ /* Llib/error.scm 797 */
 bool_t BgL_test3244z00_6636;
{ /* Llib/error.scm 797 */
 long BgL_l1z00_3954;
BgL_l1z00_3954 = 
STRING_LENGTH(
((obj_t)BgL_fnamez00_88)); 
if(
(BgL_l1z00_3954==5L))
{ /* Llib/error.scm 797 */
 int BgL_arg2302z00_3957;
{ /* Llib/error.scm 797 */
 char * BgL_auxz00_6644; char * BgL_tmpz00_6641;
BgL_auxz00_6644 = 
BSTRING_TO_STRING(BGl_string2855z00zz__errorz00); 
BgL_tmpz00_6641 = 
BSTRING_TO_STRING(
((obj_t)BgL_fnamez00_88)); 
BgL_arg2302z00_3957 = 
memcmp(BgL_tmpz00_6641, BgL_auxz00_6644, BgL_l1z00_3954); } 
BgL_test3244z00_6636 = 
(
(long)(BgL_arg2302z00_3957)==0L); }  else 
{ /* Llib/error.scm 797 */
BgL_test3244z00_6636 = ((bool_t)0)
; } } 
if(BgL_test3244z00_6636)
{ /* Llib/error.scm 798 */
 obj_t BgL_arg1696z00_2097;
{ /* Llib/error.scm 798 */
 obj_t BgL_arg1698z00_2101;
{ /* Llib/error.scm 798 */
 obj_t BgL_tmpz00_6649;
BgL_tmpz00_6649 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1698z00_2101 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_6649); } 
BgL_arg1696z00_2097 = 
BGL_INPUT_PORT_BUFFER(BgL_arg1698z00_2101); } 
{ /* Ieee/port.scm 463 */
 long BgL_endz00_2100;
BgL_endz00_2100 = 
STRING_LENGTH(BgL_arg1696z00_2097); 
{ /* Ieee/port.scm 463 */

return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_arg1696z00_2097, 
BINT(0L), 
BINT(BgL_endz00_2100));} } }  else 
{ /* Llib/error.scm 799 */
 bool_t BgL_test3246z00_6657;
{ /* Llib/error.scm 799 */

BgL_test3246z00_6657 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BGl_string2856z00zz__errorz00, BgL_fnamez00_88, BFALSE, BFALSE, BFALSE, BFALSE); } 
if(BgL_test3246z00_6657)
{ /* Llib/error.scm 800 */
 obj_t BgL_arg1703z00_2109;
{ /* Ieee/string.scm 190 */
 long BgL_endz00_2115;
BgL_endz00_2115 = 
STRING_LENGTH(
((obj_t)BgL_fnamez00_88)); 
{ /* Ieee/string.scm 190 */

BgL_arg1703z00_2109 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_fnamez00_88, 9L, BgL_endz00_2115); } } 
{ /* Ieee/port.scm 463 */
 long BgL_endz00_2112;
BgL_endz00_2112 = 
STRING_LENGTH(BgL_arg1703z00_2109); 
{ /* Ieee/port.scm 463 */

return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_arg1703z00_2109, 
BINT(0L), 
BINT(BgL_endz00_2112));} } }  else 
{ /* Llib/error.scm 799 */
return BFALSE;} } } } 

}



/* <@exit:1690>~0 */
obj_t BGl_zc3z04exitza31690ze3ze70z60zz__errorz00(obj_t BgL_fnamez00_5190, obj_t BgL_cell1102z00_5189, obj_t BgL_env1107z00_5188)
{
{ /* Llib/error.scm 794 */
jmp_buf_t jmpbuf; 
 void * BgL_an_exit1111z00_2081;
if( SET_EXIT(BgL_an_exit1111z00_2081 ) ) { 
return 
BGL_EXIT_VALUE();
} else {
#if( SIGSETJMP_SAVESIGS == 0 )
  // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
  // bgl_restore_signal_handlers();
#endif

BgL_an_exit1111z00_2081 = 
(void *)jmpbuf; 
PUSH_ENV_EXIT(BgL_env1107z00_5188, BgL_an_exit1111z00_2081, 1L); 
{ /* Llib/error.scm 794 */
 obj_t BgL_escape1103z00_2082;
BgL_escape1103z00_2082 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1107z00_5188); 
{ /* Llib/error.scm 794 */
 obj_t BgL_res1114z00_2083;
{ /* Llib/error.scm 794 */
 obj_t BgL_ohs1099z00_2084;
BgL_ohs1099z00_2084 = 
BGL_ENV_ERROR_HANDLER_GET(BgL_env1107z00_5188); 
{ /* Llib/error.scm 794 */
 obj_t BgL_hds1100z00_2085;
BgL_hds1100z00_2085 = 
MAKE_STACK_PAIR(BgL_escape1103z00_2082, BgL_cell1102z00_5189); 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1107z00_5188, BgL_hds1100z00_2085); BUNSPEC; 
{ /* Llib/error.scm 794 */
 obj_t BgL_exitd1108z00_2086;
BgL_exitd1108z00_2086 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1107z00_5188); 
{ /* Llib/error.scm 794 */
 obj_t BgL_tmp1110z00_2087;
{ /* Llib/error.scm 794 */
 obj_t BgL_arg1693z00_2092;
BgL_arg1693z00_2092 = 
BGL_EXITD_PROTECT(BgL_exitd1108z00_2086); 
BgL_tmp1110z00_2087 = 
MAKE_YOUNG_PAIR(BgL_ohs1099z00_2084, BgL_arg1693z00_2092); } 
{ /* Llib/error.scm 794 */

BGL_EXITD_PROTECT_SET(BgL_exitd1108z00_2086, BgL_tmp1110z00_2087); BUNSPEC; 
{ /* Llib/error.scm 796 */
 obj_t BgL_tmp1109z00_2088;
{ /* Ieee/port.scm 460 */

BgL_tmp1109z00_2088 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_fnamez00_5190, BTRUE, 
BINT(5000000L)); } 
{ /* Llib/error.scm 794 */
 bool_t BgL_test3247z00_6679;
{ /* Llib/error.scm 794 */
 obj_t BgL_arg2590z00_3947;
BgL_arg2590z00_3947 = 
BGL_EXITD_PROTECT(BgL_exitd1108z00_2086); 
BgL_test3247z00_6679 = 
PAIRP(BgL_arg2590z00_3947); } 
if(BgL_test3247z00_6679)
{ /* Llib/error.scm 794 */
 obj_t BgL_arg2588z00_3948;
{ /* Llib/error.scm 794 */
 obj_t BgL_arg2589z00_3949;
BgL_arg2589z00_3949 = 
BGL_EXITD_PROTECT(BgL_exitd1108z00_2086); 
BgL_arg2588z00_3948 = 
CDR(
((obj_t)BgL_arg2589z00_3949)); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1108z00_2086, BgL_arg2588z00_3948); BUNSPEC; }  else 
{ /* Llib/error.scm 794 */BFALSE; } } 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1107z00_5188, BgL_ohs1099z00_2084); BUNSPEC; 
BgL_res1114z00_2083 = BgL_tmp1109z00_2088; } } } } } } 
POP_ENV_EXIT(BgL_env1107z00_5188); 
return BgL_res1114z00_2083;} } 
}} 

}



/* filename-for-error */
obj_t BGl_filenamezd2forzd2errorz00zz__errorz00(obj_t BgL_filez00_89, long BgL_sza7za7_90)
{
{ /* Llib/error.scm 807 */
if(
(BgL_sza7za7_90<0L))
{ /* Llib/error.scm 809 */
return BGl_string2853z00zz__errorz00;}  else 
{ /* Llib/error.scm 809 */
if(
fexists(
BSTRING_TO_STRING(BgL_filez00_89)))
{ /* Llib/error.scm 811 */
return 
BGl_relativezd2filezd2namez00zz__errorz00(BgL_filez00_89);}  else 
{ /* Llib/error.scm 813 */
 bool_t BgL_test3250z00_6694;
{ /* Llib/error.scm 813 */

BgL_test3250z00_6694 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BGl_string2856z00zz__errorz00, BgL_filez00_89, BFALSE, BFALSE, BFALSE, BFALSE); } 
if(BgL_test3250z00_6694)
{ /* Llib/error.scm 813 */
if(
(
STRING_LENGTH(
((obj_t)BgL_filez00_89))<=
(9L+BgL_sza7za7_90)))
{ /* Ieee/string.scm 190 */
 long BgL_endz00_2141;
BgL_endz00_2141 = 
STRING_LENGTH(
((obj_t)BgL_filez00_89)); 
{ /* Ieee/string.scm 190 */

return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89, 9L, BgL_endz00_2141);} }  else 
{ /* Llib/error.scm 816 */
 obj_t BgL_arg1712z00_2142;
BgL_arg1712z00_2142 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89, 9L, 
(BgL_sza7za7_90+6L)); 
{ /* Llib/error.scm 816 */
 obj_t BgL_list1713z00_2143;
{ /* Llib/error.scm 816 */
 obj_t BgL_arg1714z00_2144;
BgL_arg1714z00_2144 = 
MAKE_YOUNG_PAIR(BGl_string2853z00zz__errorz00, BNIL); 
BgL_list1713z00_2143 = 
MAKE_YOUNG_PAIR(BgL_arg1712z00_2142, BgL_arg1714z00_2144); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1713z00_2143);} } }  else 
{ /* Llib/error.scm 813 */
if(
(
STRING_LENGTH(
((obj_t)BgL_filez00_89))<=BgL_sza7za7_90))
{ /* Llib/error.scm 817 */
return BgL_filez00_89;}  else 
{ /* Llib/error.scm 817 */
if(
(BgL_sza7za7_90<4L))
{ /* Llib/error.scm 819 */
return BGl_string2853z00zz__errorz00;}  else 
{ /* Llib/error.scm 822 */
 obj_t BgL_arg1721z00_2151;
BgL_arg1721z00_2151 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89, 0L, 
(BgL_sza7za7_90-3L)); 
{ /* Llib/error.scm 822 */
 obj_t BgL_list1722z00_2152;
{ /* Llib/error.scm 822 */
 obj_t BgL_arg1723z00_2153;
BgL_arg1723z00_2153 = 
MAKE_YOUNG_PAIR(BGl_string2853z00zz__errorz00, BNIL); 
BgL_list1722z00_2152 = 
MAKE_YOUNG_PAIR(BgL_arg1721z00_2151, BgL_arg1723z00_2153); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1722z00_2152);} } } } } } } 

}



/* location-line-num */
obj_t BGl_locationzd2linezd2numz00zz__errorz00(obj_t BgL_locz00_93)
{
{ /* Llib/error.scm 827 */
{ 
 obj_t BgL_filez00_2270; obj_t BgL_linez00_2271; obj_t BgL_colz00_2272; obj_t BgL_filez00_2220; obj_t BgL_pointz00_2221;
{ 

if(
PAIRP(BgL_locz00_93))
{ /* Llib/error.scm 875 */
 obj_t BgL_cdrzd2226zd2_2177;
BgL_cdrzd2226zd2_2177 = 
CDR(
((obj_t)BgL_locz00_93)); 
if(
(
CAR(
((obj_t)BgL_locz00_93))==BGl_symbol2811z00zz__errorz00))
{ /* Llib/error.scm 875 */
if(
PAIRP(BgL_cdrzd2226zd2_2177))
{ /* Llib/error.scm 875 */
 obj_t BgL_cdrzd2230zd2_2181;
BgL_cdrzd2230zd2_2181 = 
CDR(BgL_cdrzd2226zd2_2177); 
if(
PAIRP(BgL_cdrzd2230zd2_2181))
{ /* Llib/error.scm 875 */
if(
NULLP(
CDR(BgL_cdrzd2230zd2_2181)))
{ /* Llib/error.scm 875 */
BgL_filez00_2220 = 
CAR(BgL_cdrzd2226zd2_2177); 
BgL_pointz00_2221 = 
CAR(BgL_cdrzd2230zd2_2181); 
{ /* Llib/error.scm 830 */
 bool_t BgL_test3259z00_6736;
if(
STRINGP(BgL_filez00_2220))
{ /* Llib/error.scm 830 */
BgL_test3259z00_6736 = 
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_pointz00_2221)
; }  else 
{ /* Llib/error.scm 830 */
BgL_test3259z00_6736 = ((bool_t)0)
; } 
if(BgL_test3259z00_6736)
{ /* Llib/error.scm 831 */
 obj_t BgL_fnamez00_2225;
{ /* Llib/error.scm 831 */
 bool_t BgL_test3261z00_6740;
{ /* Llib/error.scm 831 */
 obj_t BgL_string1z00_3981;
BgL_string1z00_3981 = 
string_to_bstring(OS_CLASS); 
{ /* Llib/error.scm 831 */
 long BgL_l1z00_3983;
BgL_l1z00_3983 = 
STRING_LENGTH(BgL_string1z00_3981); 
if(
(BgL_l1z00_3983==5L))
{ /* Llib/error.scm 831 */
 int BgL_arg2302z00_3986;
{ /* Llib/error.scm 831 */
 char * BgL_auxz00_6747; char * BgL_tmpz00_6745;
BgL_auxz00_6747 = 
BSTRING_TO_STRING(BGl_string2857z00zz__errorz00); 
BgL_tmpz00_6745 = 
BSTRING_TO_STRING(BgL_string1z00_3981); 
BgL_arg2302z00_3986 = 
memcmp(BgL_tmpz00_6745, BgL_auxz00_6747, BgL_l1z00_3983); } 
BgL_test3261z00_6740 = 
(
(long)(BgL_arg2302z00_3986)==0L); }  else 
{ /* Llib/error.scm 831 */
BgL_test3261z00_6740 = ((bool_t)0)
; } } } 
if(BgL_test3261z00_6740)
{ /* Llib/error.scm 831 */
BgL_fnamez00_2225 = 
BGl_stringzd2replacezd2zz__r4_strings_6_7z00(
BGl_uncygdrivez00zz__errorz00(BgL_filez00_2220), 
(char)(((unsigned char)'/')), 
(char)(((unsigned char)'\\'))); }  else 
{ /* Llib/error.scm 831 */
BgL_fnamez00_2225 = BgL_filez00_2220; } } 
{ /* Llib/error.scm 831 */
 obj_t BgL_portz00_2226;
BgL_portz00_2226 = 
BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_2225); 
{ /* Llib/error.scm 834 */

if(
INPUT_PORTP(BgL_portz00_2226))
{ /* Llib/error.scm 836 */
 obj_t BgL_exitd1117z00_2228;
BgL_exitd1117z00_2228 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/error.scm 850 */
 obj_t BgL_zc3z04anonymousza31789ze3z87_5122;
BgL_zc3z04anonymousza31789ze3z87_5122 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31789ze3ze5zz__errorz00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31789ze3z87_5122, 
(int)(0L), BgL_portz00_2226); 
{ /* Llib/error.scm 836 */
 obj_t BgL_arg2591z00_3993;
{ /* Llib/error.scm 836 */
 obj_t BgL_arg2593z00_3994;
BgL_arg2593z00_3994 = 
BGL_EXITD_PROTECT(BgL_exitd1117z00_2228); 
BgL_arg2591z00_3993 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31789ze3z87_5122, BgL_arg2593z00_3994); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1117z00_2228, BgL_arg2591z00_3993); BUNSPEC; } 
{ /* Llib/error.scm 840 */
 obj_t BgL_tmp1119z00_2230;
{ 
 obj_t BgL_ostringz00_2232; long BgL_lnumz00_2233; long BgL_oposz00_2234;
BgL_ostringz00_2232 = BFALSE; 
BgL_lnumz00_2233 = 1L; 
BgL_oposz00_2234 = 0L; 
BgL_zc3z04anonymousza31767ze3z87_2235:
{ /* Llib/error.scm 840 */
 obj_t BgL_lstringz00_2236;
BgL_lstringz00_2236 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_portz00_2226); 
if(
EOF_OBJECTP(BgL_lstringz00_2236))
{ /* Llib/error.scm 842 */
 long BgL_arg1769z00_2238; obj_t BgL_arg1770z00_2239;
BgL_arg1769z00_2238 = 
(1L+
(
(long)CINT(BgL_pointz00_2221)-BgL_oposz00_2234)); 
if(
STRINGP(BgL_ostringz00_2232))
{ /* Llib/error.scm 844 */
 obj_t BgL_list1778z00_2246;
{ /* Llib/error.scm 844 */
 obj_t BgL_arg1779z00_2247;
BgL_arg1779z00_2247 = 
MAKE_YOUNG_PAIR(BGl_string2858z00zz__errorz00, BNIL); 
BgL_list1778z00_2246 = 
MAKE_YOUNG_PAIR(BgL_ostringz00_2232, BgL_arg1779z00_2247); } 
BgL_arg1770z00_2239 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1778z00_2246); }  else 
{ /* Llib/error.scm 843 */
BgL_arg1770z00_2239 = BGl_string2858z00zz__errorz00; } 
{ /* Llib/error.scm 842 */
 obj_t BgL_list1771z00_2240;
{ /* Llib/error.scm 842 */
 obj_t BgL_arg1773z00_2241;
{ /* Llib/error.scm 842 */
 obj_t BgL_arg1774z00_2242;
{ /* Llib/error.scm 842 */
 obj_t BgL_arg1775z00_2243;
BgL_arg1775z00_2243 = 
MAKE_YOUNG_PAIR(BgL_arg1770z00_2239, BNIL); 
BgL_arg1774z00_2242 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1769z00_2238), BgL_arg1775z00_2243); } 
BgL_arg1773z00_2241 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lnumz00_2233), BgL_arg1774z00_2242); } 
BgL_list1771z00_2240 = 
MAKE_YOUNG_PAIR(BgL_fnamez00_2225, BgL_arg1773z00_2241); } 
BgL_tmp1119z00_2230 = 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1771z00_2240); } }  else 
{ /* Llib/error.scm 846 */
 bool_t BgL_test3266z00_6786;
{ /* Llib/error.scm 846 */
 long BgL_arg1788z00_2257;
{ /* Llib/error.scm 846 */
 obj_t BgL_tmpz00_6787;
BgL_tmpz00_6787 = 
((obj_t)BgL_portz00_2226); 
BgL_arg1788z00_2257 = 
INPUT_PORT_FILEPOS(BgL_tmpz00_6787); } 
BgL_test3266z00_6786 = 
(BgL_arg1788z00_2257>
(long)CINT(BgL_pointz00_2221)); } 
if(BgL_test3266z00_6786)
{ /* Llib/error.scm 847 */
 long BgL_arg1782z00_2250;
BgL_arg1782z00_2250 = 
(
(long)CINT(BgL_pointz00_2221)-BgL_oposz00_2234); 
{ /* Llib/error.scm 847 */
 obj_t BgL_list1783z00_2251;
{ /* Llib/error.scm 847 */
 obj_t BgL_arg1784z00_2252;
{ /* Llib/error.scm 847 */
 obj_t BgL_arg1785z00_2253;
{ /* Llib/error.scm 847 */
 obj_t BgL_arg1786z00_2254;
BgL_arg1786z00_2254 = 
MAKE_YOUNG_PAIR(BgL_lstringz00_2236, BNIL); 
BgL_arg1785z00_2253 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1782z00_2250), BgL_arg1786z00_2254); } 
BgL_arg1784z00_2252 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lnumz00_2233), BgL_arg1785z00_2253); } 
BgL_list1783z00_2251 = 
MAKE_YOUNG_PAIR(BgL_filez00_2220, BgL_arg1784z00_2252); } 
BgL_tmp1119z00_2230 = 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1783z00_2251); } }  else 
{ /* Llib/error.scm 848 */
 long BgL_oposz00_2255;
{ /* Llib/error.scm 848 */
 obj_t BgL_tmpz00_6801;
BgL_tmpz00_6801 = 
((obj_t)BgL_portz00_2226); 
BgL_oposz00_2255 = 
INPUT_PORT_FILEPOS(BgL_tmpz00_6801); } 
{ 
 long BgL_oposz00_6807; long BgL_lnumz00_6805; obj_t BgL_ostringz00_6804;
BgL_ostringz00_6804 = BgL_lstringz00_2236; 
BgL_lnumz00_6805 = 
(BgL_lnumz00_2233+1L); 
BgL_oposz00_6807 = BgL_oposz00_2255; 
BgL_oposz00_2234 = BgL_oposz00_6807; 
BgL_lnumz00_2233 = BgL_lnumz00_6805; 
BgL_ostringz00_2232 = BgL_ostringz00_6804; 
goto BgL_zc3z04anonymousza31767ze3z87_2235;} } } } } 
{ /* Llib/error.scm 836 */
 bool_t BgL_test3267z00_6808;
{ /* Llib/error.scm 836 */
 obj_t BgL_arg2590z00_4006;
BgL_arg2590z00_4006 = 
BGL_EXITD_PROTECT(BgL_exitd1117z00_2228); 
BgL_test3267z00_6808 = 
PAIRP(BgL_arg2590z00_4006); } 
if(BgL_test3267z00_6808)
{ /* Llib/error.scm 836 */
 obj_t BgL_arg2588z00_4007;
{ /* Llib/error.scm 836 */
 obj_t BgL_arg2589z00_4008;
BgL_arg2589z00_4008 = 
BGL_EXITD_PROTECT(BgL_exitd1117z00_2228); 
BgL_arg2588z00_4007 = 
CDR(
((obj_t)BgL_arg2589z00_4008)); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1117z00_2228, BgL_arg2588z00_4007); BUNSPEC; }  else 
{ /* Llib/error.scm 836 */BFALSE; } } 
bgl_close_input_port(BgL_portz00_2226); 
return BgL_tmp1119z00_2230;} } }  else 
{ /* Llib/error.scm 851 */
 obj_t BgL_list1790z00_2261;
{ /* Llib/error.scm 851 */
 obj_t BgL_arg1791z00_2262;
{ /* Llib/error.scm 851 */
 obj_t BgL_arg1792z00_2263;
{ /* Llib/error.scm 851 */
 obj_t BgL_arg1793z00_2264;
BgL_arg1793z00_2264 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_arg1792z00_2263 = 
MAKE_YOUNG_PAIR(BgL_pointz00_2221, BgL_arg1793z00_2264); } 
BgL_arg1791z00_2262 = 
MAKE_YOUNG_PAIR(BFALSE, BgL_arg1792z00_2263); } 
BgL_list1790z00_2261 = 
MAKE_YOUNG_PAIR(BgL_filez00_2220, BgL_arg1791z00_2262); } 
BGL_TAIL return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1790z00_2261);} } } }  else 
{ /* Llib/error.scm 830 */
return BFALSE;} } }  else 
{ /* Llib/error.scm 875 */
BgL_tagzd2217zd2_2174:
{ /* Llib/error.scm 886 */
 obj_t BgL_list1759z00_2216;
{ /* Llib/error.scm 886 */
 obj_t BgL_arg1760z00_2217;
{ /* Llib/error.scm 886 */
 obj_t BgL_arg1761z00_2218;
{ /* Llib/error.scm 886 */
 obj_t BgL_arg1762z00_2219;
BgL_arg1762z00_2219 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_arg1761z00_2218 = 
MAKE_YOUNG_PAIR(BFALSE, BgL_arg1762z00_2219); } 
BgL_arg1760z00_2217 = 
MAKE_YOUNG_PAIR(BFALSE, BgL_arg1761z00_2218); } 
BgL_list1759z00_2216 = 
MAKE_YOUNG_PAIR(BFALSE, BgL_arg1760z00_2217); } 
BGL_TAIL return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1759z00_2216);} } }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
if(
(
CAR(
((obj_t)BgL_locz00_93))==BGl_symbol2859z00zz__errorz00))
{ /* Llib/error.scm 875 */
if(
PAIRP(BgL_cdrzd2226zd2_2177))
{ /* Llib/error.scm 875 */
 obj_t BgL_cdrzd2282zd2_2192;
BgL_cdrzd2282zd2_2192 = 
CDR(BgL_cdrzd2226zd2_2177); 
if(
PAIRP(BgL_cdrzd2282zd2_2192))
{ /* Llib/error.scm 875 */
 obj_t BgL_cdrzd2287zd2_2194;
BgL_cdrzd2287zd2_2194 = 
CDR(BgL_cdrzd2282zd2_2192); 
if(
PAIRP(BgL_cdrzd2287zd2_2194))
{ /* Llib/error.scm 875 */
if(
NULLP(
CDR(BgL_cdrzd2287zd2_2194)))
{ /* Llib/error.scm 875 */
BgL_filez00_2270 = 
CAR(BgL_cdrzd2226zd2_2177); 
BgL_linez00_2271 = 
CAR(BgL_cdrzd2282zd2_2192); 
BgL_colz00_2272 = 
CAR(BgL_cdrzd2287zd2_2194); 
BgL_zc3z04anonymousza31798ze3z87_2273:
{ /* Llib/error.scm 854 */
 bool_t BgL_test3273z00_6843;
if(
(
(long)CINT(BgL_linez00_2271)>=0L))
{ /* Llib/error.scm 854 */
BgL_test3273z00_6843 = 
(
(long)CINT(BgL_colz00_2272)>=0L)
; }  else 
{ /* Llib/error.scm 854 */
BgL_test3273z00_6843 = ((bool_t)0)
; } 
if(BgL_test3273z00_6843)
{ /* Llib/error.scm 855 */
 obj_t BgL_fnamez00_2276;
{ /* Llib/error.scm 855 */
 bool_t BgL_test3275z00_6849;
{ /* Llib/error.scm 855 */
 obj_t BgL_string1z00_4013;
BgL_string1z00_4013 = 
string_to_bstring(OS_CLASS); 
{ /* Llib/error.scm 855 */
 long BgL_l1z00_4015;
BgL_l1z00_4015 = 
STRING_LENGTH(BgL_string1z00_4013); 
if(
(BgL_l1z00_4015==5L))
{ /* Llib/error.scm 855 */
 int BgL_arg2302z00_4018;
{ /* Llib/error.scm 855 */
 char * BgL_auxz00_6856; char * BgL_tmpz00_6854;
BgL_auxz00_6856 = 
BSTRING_TO_STRING(BGl_string2857z00zz__errorz00); 
BgL_tmpz00_6854 = 
BSTRING_TO_STRING(BgL_string1z00_4013); 
BgL_arg2302z00_4018 = 
memcmp(BgL_tmpz00_6854, BgL_auxz00_6856, BgL_l1z00_4015); } 
BgL_test3275z00_6849 = 
(
(long)(BgL_arg2302z00_4018)==0L); }  else 
{ /* Llib/error.scm 855 */
BgL_test3275z00_6849 = ((bool_t)0)
; } } } 
if(BgL_test3275z00_6849)
{ /* Llib/error.scm 855 */
BgL_fnamez00_2276 = 
BGl_stringzd2replacezd2zz__r4_strings_6_7z00(
BGl_uncygdrivez00zz__errorz00(BgL_filez00_2270), 
(char)(((unsigned char)'/')), 
(char)(((unsigned char)'\\'))); }  else 
{ /* Llib/error.scm 855 */
BgL_fnamez00_2276 = BgL_filez00_2270; } } 
{ /* Llib/error.scm 855 */
 obj_t BgL_portz00_2277;
BgL_portz00_2277 = 
BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_2276); 
{ /* Llib/error.scm 858 */

if(
INPUT_PORTP(BgL_portz00_2277))
{ /* Llib/error.scm 860 */
 obj_t BgL_exitd1121z00_2279;
BgL_exitd1121z00_2279 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/error.scm 871 */
 obj_t BgL_zc3z04anonymousza31821ze3z87_5121;
BgL_zc3z04anonymousza31821ze3z87_5121 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31821ze3ze5zz__errorz00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31821ze3z87_5121, 
(int)(0L), BgL_portz00_2277); 
{ /* Llib/error.scm 860 */
 obj_t BgL_arg2591z00_4025;
{ /* Llib/error.scm 860 */
 obj_t BgL_arg2593z00_4026;
BgL_arg2593z00_4026 = 
BGL_EXITD_PROTECT(BgL_exitd1121z00_2279); 
BgL_arg2591z00_4025 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31821ze3z87_5121, BgL_arg2593z00_4026); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1121z00_2279, BgL_arg2591z00_4025); BUNSPEC; } 
{ /* Llib/error.scm 863 */
 obj_t BgL_tmp1123z00_2281;
{ 
 obj_t BgL_ostringz00_2283; obj_t BgL_lnumz00_2284;
BgL_ostringz00_2283 = BFALSE; 
BgL_lnumz00_2284 = BgL_linez00_2271; 
BgL_zc3z04anonymousza31802ze3z87_2285:
{ /* Llib/error.scm 863 */
 obj_t BgL_lstringz00_2286;
BgL_lstringz00_2286 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_portz00_2277); 
if(
EOF_OBJECTP(BgL_lstringz00_2286))
{ /* Llib/error.scm 865 */
 long BgL_arg1804z00_2288; obj_t BgL_arg1805z00_2289;
BgL_arg1804z00_2288 = 
(
(long)CINT(BgL_colz00_2272)+1L); 
{ /* Llib/error.scm 866 */
 obj_t BgL_list1810z00_2294;
{ /* Llib/error.scm 866 */
 obj_t BgL_arg1812z00_2295;
BgL_arg1812z00_2295 = 
MAKE_YOUNG_PAIR(BGl_string2858z00zz__errorz00, BNIL); 
BgL_list1810z00_2294 = 
MAKE_YOUNG_PAIR(BgL_ostringz00_2283, BgL_arg1812z00_2295); } 
BgL_arg1805z00_2289 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1810z00_2294); } 
{ /* Llib/error.scm 865 */
 obj_t BgL_list1806z00_2290;
{ /* Llib/error.scm 865 */
 obj_t BgL_arg1807z00_2291;
{ /* Llib/error.scm 865 */
 obj_t BgL_arg1808z00_2292;
{ /* Llib/error.scm 865 */
 obj_t BgL_arg1809z00_2293;
BgL_arg1809z00_2293 = 
MAKE_YOUNG_PAIR(BgL_arg1805z00_2289, BNIL); 
BgL_arg1808z00_2292 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1804z00_2288), BgL_arg1809z00_2293); } 
BgL_arg1807z00_2291 = 
MAKE_YOUNG_PAIR(BgL_linez00_2271, BgL_arg1808z00_2292); } 
BgL_list1806z00_2290 = 
MAKE_YOUNG_PAIR(BgL_filez00_2270, BgL_arg1807z00_2291); } 
BgL_tmp1123z00_2281 = 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1806z00_2290); } }  else 
{ /* Llib/error.scm 864 */
if(
(
(long)CINT(BgL_lnumz00_2284)==0L))
{ /* Llib/error.scm 868 */
 obj_t BgL_list1814z00_2297;
{ /* Llib/error.scm 868 */
 obj_t BgL_arg1816z00_2298;
{ /* Llib/error.scm 868 */
 obj_t BgL_arg1817z00_2299;
{ /* Llib/error.scm 868 */
 obj_t BgL_arg1819z00_2300;
BgL_arg1819z00_2300 = 
MAKE_YOUNG_PAIR(BgL_lstringz00_2286, BNIL); 
BgL_arg1817z00_2299 = 
MAKE_YOUNG_PAIR(BgL_colz00_2272, BgL_arg1819z00_2300); } 
BgL_arg1816z00_2298 = 
MAKE_YOUNG_PAIR(BgL_linez00_2271, BgL_arg1817z00_2299); } 
BgL_list1814z00_2297 = 
MAKE_YOUNG_PAIR(BgL_filez00_2270, BgL_arg1816z00_2298); } 
BgL_tmp1123z00_2281 = 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1814z00_2297); }  else 
{ /* Llib/error.scm 869 */
 long BgL_oposz00_2301;
{ /* Llib/error.scm 869 */
 obj_t BgL_tmpz00_6899;
BgL_tmpz00_6899 = 
((obj_t)BgL_portz00_2277); 
BgL_oposz00_2301 = 
INPUT_PORT_FILEPOS(BgL_tmpz00_6899); } 
{ /* Llib/error.scm 870 */
 long BgL_arg1820z00_2302;
BgL_arg1820z00_2302 = 
(
(long)CINT(BgL_lnumz00_2284)-1L); 
{ 
 obj_t BgL_lnumz00_6905; obj_t BgL_ostringz00_6904;
BgL_ostringz00_6904 = BgL_lstringz00_2286; 
BgL_lnumz00_6905 = 
BINT(BgL_arg1820z00_2302); 
BgL_lnumz00_2284 = BgL_lnumz00_6905; 
BgL_ostringz00_2283 = BgL_ostringz00_6904; 
goto BgL_zc3z04anonymousza31802ze3z87_2285;} } } } } } 
{ /* Llib/error.scm 860 */
 bool_t BgL_test3280z00_6907;
{ /* Llib/error.scm 860 */
 obj_t BgL_arg2590z00_4032;
BgL_arg2590z00_4032 = 
BGL_EXITD_PROTECT(BgL_exitd1121z00_2279); 
BgL_test3280z00_6907 = 
PAIRP(BgL_arg2590z00_4032); } 
if(BgL_test3280z00_6907)
{ /* Llib/error.scm 860 */
 obj_t BgL_arg2588z00_4033;
{ /* Llib/error.scm 860 */
 obj_t BgL_arg2589z00_4034;
BgL_arg2589z00_4034 = 
BGL_EXITD_PROTECT(BgL_exitd1121z00_2279); 
BgL_arg2588z00_4033 = 
CDR(
((obj_t)BgL_arg2589z00_4034)); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1121z00_2279, BgL_arg2588z00_4033); BUNSPEC; }  else 
{ /* Llib/error.scm 860 */BFALSE; } } 
bgl_close_input_port(BgL_portz00_2277); 
return BgL_tmp1123z00_2281;} } }  else 
{ /* Llib/error.scm 872 */
 obj_t BgL_list1822z00_2306;
{ /* Llib/error.scm 872 */
 obj_t BgL_arg1823z00_2307;
{ /* Llib/error.scm 872 */
 obj_t BgL_arg1824z00_2308;
{ /* Llib/error.scm 872 */
 obj_t BgL_arg1825z00_2309;
BgL_arg1825z00_2309 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_arg1824z00_2308 = 
MAKE_YOUNG_PAIR(BgL_colz00_2272, BgL_arg1825z00_2309); } 
BgL_arg1823z00_2307 = 
MAKE_YOUNG_PAIR(BgL_linez00_2271, BgL_arg1824z00_2308); } 
BgL_list1822z00_2306 = 
MAKE_YOUNG_PAIR(BgL_filez00_2270, BgL_arg1823z00_2307); } 
BGL_TAIL return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1822z00_2306);} } } }  else 
{ /* Llib/error.scm 873 */
 obj_t BgL_list1830z00_2314;
{ /* Llib/error.scm 873 */
 obj_t BgL_arg1831z00_2315;
{ /* Llib/error.scm 873 */
 obj_t BgL_arg1832z00_2316;
{ /* Llib/error.scm 873 */
 obj_t BgL_arg1833z00_2317;
BgL_arg1833z00_2317 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_arg1832z00_2316 = 
MAKE_YOUNG_PAIR(BgL_colz00_2272, BgL_arg1833z00_2317); } 
BgL_arg1831z00_2315 = 
MAKE_YOUNG_PAIR(BgL_linez00_2271, BgL_arg1832z00_2316); } 
BgL_list1830z00_2314 = 
MAKE_YOUNG_PAIR(BgL_filez00_2270, BgL_arg1831z00_2315); } 
BGL_TAIL return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1830z00_2314);} } }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
 obj_t BgL_cdrzd2314zd2_2202;
BgL_cdrzd2314zd2_2202 = 
CDR(
((obj_t)BgL_locz00_93)); 
if(
(
CAR(
((obj_t)BgL_locz00_93))==BGl_symbol2861z00zz__errorz00))
{ /* Llib/error.scm 875 */
if(
PAIRP(BgL_cdrzd2314zd2_2202))
{ /* Llib/error.scm 875 */
 obj_t BgL_cdrzd2318zd2_2206;
BgL_cdrzd2318zd2_2206 = 
CDR(BgL_cdrzd2314zd2_2202); 
if(
PAIRP(BgL_cdrzd2318zd2_2206))
{ /* Llib/error.scm 875 */
if(
NULLP(
CDR(BgL_cdrzd2318zd2_2206)))
{ 
 obj_t BgL_colz00_6946; obj_t BgL_linez00_6944; obj_t BgL_filez00_6942;
BgL_filez00_6942 = 
CAR(BgL_cdrzd2314zd2_2202); 
BgL_linez00_6944 = 
CAR(BgL_cdrzd2318zd2_2206); 
BgL_colz00_6946 = 
BINT(0L); 
BgL_colz00_2272 = BgL_colz00_6946; 
BgL_linez00_2271 = BgL_linez00_6944; 
BgL_filez00_2270 = BgL_filez00_6942; 
goto BgL_zc3z04anonymousza31798ze3z87_2273;}  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} } } }  else 
{ /* Llib/error.scm 875 */
goto BgL_tagzd2217zd2_2174;} } } } 

}



/* &<@anonymous:1821> */
obj_t BGl_z62zc3z04anonymousza31821ze3ze5zz__errorz00(obj_t BgL_envz00_5123)
{
{ /* Llib/error.scm 860 */
{ /* Llib/error.scm 871 */
 obj_t BgL_portz00_5124;
BgL_portz00_5124 = 
PROCEDURE_REF(BgL_envz00_5123, 
(int)(0L)); 
return 
bgl_close_input_port(
((obj_t)BgL_portz00_5124));} } 

}



/* &<@anonymous:1789> */
obj_t BGl_z62zc3z04anonymousza31789ze3ze5zz__errorz00(obj_t BgL_envz00_5125)
{
{ /* Llib/error.scm 836 */
{ /* Llib/error.scm 850 */
 obj_t BgL_portz00_5126;
BgL_portz00_5126 = 
PROCEDURE_REF(BgL_envz00_5125, 
(int)(0L)); 
return 
bgl_close_input_port(
((obj_t)BgL_portz00_5126));} } 

}



/* exception-location? */
bool_t BGl_exceptionzd2locationzf3z21zz__errorz00(obj_t BgL_ez00_94)
{
{ /* Llib/error.scm 891 */
{ /* Llib/error.scm 893 */
 bool_t BgL_test3285z00_6956;
{ /* Llib/error.scm 893 */
 obj_t BgL_tmpz00_6957;
BgL_tmpz00_6957 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_ez00_94)))->BgL_fnamez00); 
BgL_test3285z00_6956 = 
STRINGP(BgL_tmpz00_6957); } 
if(BgL_test3285z00_6956)
{ /* Llib/error.scm 893 */
BGL_TAIL return 
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_ez00_94)))->BgL_locationz00));}  else 
{ /* Llib/error.scm 893 */
return ((bool_t)0);} } } 

}



/* error-notify */
BGL_EXPORTED_DEF obj_t BGl_errorzd2notifyzd2zz__errorz00(obj_t BgL_ez00_95)
{
{ /* Llib/error.scm 898 */
{ /* Llib/error.scm 900 */
 bool_t BgL_test3286z00_6964;
{ /* Llib/error.scm 900 */
 obj_t BgL_classz00_4060;
BgL_classz00_4060 = BGl_z62errorz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_ez00_95))
{ /* Llib/error.scm 900 */
 BgL_objectz00_bglt BgL_arg2707z00_4062;
BgL_arg2707z00_4062 = 
(BgL_objectz00_bglt)(BgL_ez00_95); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 900 */
 long BgL_idxz00_4068;
BgL_idxz00_4068 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2707z00_4062); 
BgL_test3286z00_6964 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_4068+3L))==BgL_classz00_4060); }  else 
{ /* Llib/error.scm 900 */
 bool_t BgL_res2740z00_4090;
{ /* Llib/error.scm 900 */
 obj_t BgL_oclassz00_4076;
{ /* Llib/error.scm 900 */
 long BgL_arg2715z00_4082;
{ /* Llib/error.scm 900 */
 long BgL_arg2716z00_4083;
BgL_arg2716z00_4083 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2707z00_4062); 
BgL_arg2715z00_4082 = 
(BgL_arg2716z00_4083-OBJECT_TYPE); } 
BgL_oclassz00_4076 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_arg2715z00_4082); } 
{ /* Llib/error.scm 900 */
 bool_t BgL__ortest_1198z00_4077;
BgL__ortest_1198z00_4077 = 
(BgL_classz00_4060==BgL_oclassz00_4076); 
if(BgL__ortest_1198z00_4077)
{ /* Llib/error.scm 900 */
BgL_res2740z00_4090 = BgL__ortest_1198z00_4077; }  else 
{ /* Llib/error.scm 900 */
 long BgL_odepthz00_4078;
BgL_odepthz00_4078 = 
BGL_CLASS_DEPTH(BgL_oclassz00_4076); 
if(
(3L<BgL_odepthz00_4078))
{ /* Llib/error.scm 900 */
 obj_t BgL_arg2704z00_4080;
BgL_arg2704z00_4080 = 
BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4076, 3L); 
BgL_res2740z00_4090 = 
(BgL_arg2704z00_4080==BgL_classz00_4060); }  else 
{ /* Llib/error.scm 900 */
BgL_res2740z00_4090 = ((bool_t)0); } } } } 
BgL_test3286z00_6964 = BgL_res2740z00_4090; } }  else 
{ /* Llib/error.scm 900 */
BgL_test3286z00_6964 = ((bool_t)0)
; } } 
if(BgL_test3286z00_6964)
{ /* Llib/error.scm 900 */
if(
BGl_exceptionzd2locationzf3z21zz__errorz00(BgL_ez00_95))
{ /* Llib/error.scm 903 */
 obj_t BgL_arg1838z00_2328; obj_t BgL_arg1839z00_2329;
BgL_arg1838z00_2328 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_ez00_95)))->BgL_fnamez00); 
BgL_arg1839z00_2329 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_ez00_95)))->BgL_locationz00); 
return 
BGl_notifyzd2z62errorzf2locz42zz__errorz00(BgL_ez00_95, BgL_arg1838z00_2328, BgL_arg1839z00_2329);}  else 
{ /* Llib/error.scm 901 */
BGL_TAIL return 
BGl_notifyzd2z62errorzb0zz__errorz00(BgL_ez00_95);} }  else 
{ /* Llib/error.scm 905 */
 bool_t BgL_test3292z00_6992;
{ /* Llib/error.scm 905 */
 obj_t BgL_classz00_4091;
BgL_classz00_4091 = BGl_z62conditionz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_ez00_95))
{ /* Llib/error.scm 905 */
 BgL_objectz00_bglt BgL_arg2707z00_4093;
BgL_arg2707z00_4093 = 
(BgL_objectz00_bglt)(BgL_ez00_95); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 905 */
 long BgL_idxz00_4099;
BgL_idxz00_4099 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2707z00_4093); 
BgL_test3292z00_6992 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_4099+1L))==BgL_classz00_4091); }  else 
{ /* Llib/error.scm 905 */
 bool_t BgL_res2741z00_4121;
{ /* Llib/error.scm 905 */
 obj_t BgL_oclassz00_4107;
{ /* Llib/error.scm 905 */
 long BgL_arg2715z00_4113;
{ /* Llib/error.scm 905 */
 long BgL_arg2716z00_4114;
BgL_arg2716z00_4114 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2707z00_4093); 
BgL_arg2715z00_4113 = 
(BgL_arg2716z00_4114-OBJECT_TYPE); } 
BgL_oclassz00_4107 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_arg2715z00_4113); } 
{ /* Llib/error.scm 905 */
 bool_t BgL__ortest_1198z00_4108;
BgL__ortest_1198z00_4108 = 
(BgL_classz00_4091==BgL_oclassz00_4107); 
if(BgL__ortest_1198z00_4108)
{ /* Llib/error.scm 905 */
BgL_res2741z00_4121 = BgL__ortest_1198z00_4108; }  else 
{ /* Llib/error.scm 905 */
 long BgL_odepthz00_4109;
BgL_odepthz00_4109 = 
BGL_CLASS_DEPTH(BgL_oclassz00_4107); 
if(
(1L<BgL_odepthz00_4109))
{ /* Llib/error.scm 905 */
 obj_t BgL_arg2704z00_4111;
BgL_arg2704z00_4111 = 
BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4107, 1L); 
BgL_res2741z00_4121 = 
(BgL_arg2704z00_4111==BgL_classz00_4091); }  else 
{ /* Llib/error.scm 905 */
BgL_res2741z00_4121 = ((bool_t)0); } } } } 
BgL_test3292z00_6992 = BgL_res2741z00_4121; } }  else 
{ /* Llib/error.scm 905 */
BgL_test3292z00_6992 = ((bool_t)0)
; } } 
if(BgL_test3292z00_6992)
{ /* Llib/error.scm 906 */
 obj_t BgL_arg1841z00_2331;
{ /* Llib/error.scm 906 */
 obj_t BgL_tmpz00_7012;
BgL_tmpz00_7012 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1841z00_2331 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7012); } 
{ /* Llib/error.scm 906 */
 obj_t BgL_list1842z00_2332;
{ /* Llib/error.scm 906 */
 obj_t BgL_arg1843z00_2333;
BgL_arg1843z00_2333 = 
MAKE_YOUNG_PAIR(BgL_ez00_95, BNIL); 
BgL_list1842z00_2332 = 
MAKE_YOUNG_PAIR(BGl_string2863z00zz__errorz00, BgL_arg1843z00_2333); } 
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1841z00_2331, BgL_list1842z00_2332);} }  else 
{ /* Llib/error.scm 905 */
return BFALSE;} } } } 

}



/* &error-notify */
obj_t BGl_z62errorzd2notifyzb0zz__errorz00(obj_t BgL_envz00_5127, obj_t BgL_ez00_5128)
{
{ /* Llib/error.scm 898 */
return 
BGl_errorzd2notifyzd2zz__errorz00(BgL_ez00_5128);} 

}



/* error-notify/location */
BGL_EXPORTED_DEF obj_t BGl_errorzd2notifyzf2locationz20zz__errorz00(obj_t BgL_ez00_96, obj_t BgL_fnamez00_97, int BgL_locationz00_98)
{
{ /* Llib/error.scm 911 */
{ /* Llib/error.scm 912 */
 bool_t BgL_test3297z00_7019;
{ /* Llib/error.scm 912 */
 obj_t BgL_classz00_4124;
BgL_classz00_4124 = BGl_z62errorz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_ez00_96))
{ /* Llib/error.scm 912 */
 BgL_objectz00_bglt BgL_arg2707z00_4126;
BgL_arg2707z00_4126 = 
(BgL_objectz00_bglt)(BgL_ez00_96); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 912 */
 long BgL_idxz00_4132;
BgL_idxz00_4132 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2707z00_4126); 
BgL_test3297z00_7019 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_4132+3L))==BgL_classz00_4124); }  else 
{ /* Llib/error.scm 912 */
 bool_t BgL_res2742z00_4154;
{ /* Llib/error.scm 912 */
 obj_t BgL_oclassz00_4140;
{ /* Llib/error.scm 912 */
 long BgL_arg2715z00_4146;
{ /* Llib/error.scm 912 */
 long BgL_arg2716z00_4147;
BgL_arg2716z00_4147 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2707z00_4126); 
BgL_arg2715z00_4146 = 
(BgL_arg2716z00_4147-OBJECT_TYPE); } 
BgL_oclassz00_4140 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_arg2715z00_4146); } 
{ /* Llib/error.scm 912 */
 bool_t BgL__ortest_1198z00_4141;
BgL__ortest_1198z00_4141 = 
(BgL_classz00_4124==BgL_oclassz00_4140); 
if(BgL__ortest_1198z00_4141)
{ /* Llib/error.scm 912 */
BgL_res2742z00_4154 = BgL__ortest_1198z00_4141; }  else 
{ /* Llib/error.scm 912 */
 long BgL_odepthz00_4142;
BgL_odepthz00_4142 = 
BGL_CLASS_DEPTH(BgL_oclassz00_4140); 
if(
(3L<BgL_odepthz00_4142))
{ /* Llib/error.scm 912 */
 obj_t BgL_arg2704z00_4144;
BgL_arg2704z00_4144 = 
BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4140, 3L); 
BgL_res2742z00_4154 = 
(BgL_arg2704z00_4144==BgL_classz00_4124); }  else 
{ /* Llib/error.scm 912 */
BgL_res2742z00_4154 = ((bool_t)0); } } } } 
BgL_test3297z00_7019 = BgL_res2742z00_4154; } }  else 
{ /* Llib/error.scm 912 */
BgL_test3297z00_7019 = ((bool_t)0)
; } } 
if(BgL_test3297z00_7019)
{ /* Llib/error.scm 912 */
return 
BGl_notifyzd2z62errorzf2locz42zz__errorz00(BgL_ez00_96, BgL_fnamez00_97, 
BINT(BgL_locationz00_98));}  else 
{ /* Llib/error.scm 912 */
return BFALSE;} } } 

}



/* &error-notify/location */
obj_t BGl_z62errorzd2notifyzf2locationz42zz__errorz00(obj_t BgL_envz00_5129, obj_t BgL_ez00_5130, obj_t BgL_fnamez00_5131, obj_t BgL_locationz00_5132)
{
{ /* Llib/error.scm 911 */
{ /* Llib/error.scm 912 */
 int BgL_auxz00_7048; obj_t BgL_auxz00_7041;
{ /* Llib/error.scm 912 */
 obj_t BgL_tmpz00_7049;
if(
INTEGERP(BgL_locationz00_5132))
{ /* Llib/error.scm 912 */
BgL_tmpz00_7049 = BgL_locationz00_5132
; }  else 
{ 
 obj_t BgL_auxz00_7052;
BgL_auxz00_7052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(36725L), BGl_string2864z00zz__errorz00, BGl_string2809z00zz__errorz00, BgL_locationz00_5132); 
FAILURE(BgL_auxz00_7052,BFALSE,BFALSE);} 
BgL_auxz00_7048 = 
CINT(BgL_tmpz00_7049); } 
if(
STRINGP(BgL_fnamez00_5131))
{ /* Llib/error.scm 912 */
BgL_auxz00_7041 = BgL_fnamez00_5131
; }  else 
{ 
 obj_t BgL_auxz00_7044;
BgL_auxz00_7044 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(36725L), BGl_string2864z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_fnamez00_5131); 
FAILURE(BgL_auxz00_7044,BFALSE,BFALSE);} 
return 
BGl_errorzd2notifyzf2locationz20zz__errorz00(BgL_ez00_5130, BgL_auxz00_7041, BgL_auxz00_7048);} } 

}



/* warning-notify */
BGL_EXPORTED_DEF obj_t BGl_warningzd2notifyzd2zz__errorz00(obj_t BgL_ez00_99)
{
{ /* Llib/error.scm 918 */
{ 
 obj_t BgL_ez00_2357;
{ /* Llib/error.scm 932 */
 bool_t BgL_test3304z00_7058;
{ /* Llib/error.scm 932 */
 int BgL_arg1864z00_2356;
BgL_arg1864z00_2356 = 
BGl_bigloozd2warningzd2zz__paramz00(); 
BgL_test3304z00_7058 = 
(
(long)(BgL_arg1864z00_2356)>0L); } 
if(BgL_test3304z00_7058)
{ /* Llib/error.scm 932 */
if(
BGl_exceptionzd2locationzf3z21zz__errorz00(BgL_ez00_99))
{ /* Llib/error.scm 936 */
 bool_t BgL_test3306z00_7064;
{ /* Llib/error.scm 936 */
 obj_t BgL_arg1856z00_2348;
BgL_arg1856z00_2348 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_fnamez00); 
{ /* Llib/error.scm 936 */
 long BgL_l1z00_4170;
BgL_l1z00_4170 = 
STRING_LENGTH(
((obj_t)BgL_arg1856z00_2348)); 
if(
(BgL_l1z00_4170==8L))
{ /* Llib/error.scm 936 */
 int BgL_arg2302z00_4173;
{ /* Llib/error.scm 936 */
 char * BgL_auxz00_7075; char * BgL_tmpz00_7072;
BgL_auxz00_7075 = 
BSTRING_TO_STRING(BGl_string2867z00zz__errorz00); 
BgL_tmpz00_7072 = 
BSTRING_TO_STRING(
((obj_t)BgL_arg1856z00_2348)); 
BgL_arg2302z00_4173 = 
memcmp(BgL_tmpz00_7072, BgL_auxz00_7075, BgL_l1z00_4170); } 
BgL_test3306z00_7064 = 
(
(long)(BgL_arg2302z00_4173)==0L); }  else 
{ /* Llib/error.scm 936 */
BgL_test3306z00_7064 = ((bool_t)0)
; } } } 
if(BgL_test3306z00_7064)
{ /* Llib/error.scm 936 */
BgL_ez00_2357 = BgL_ez00_99; 
BgL_zc3z04anonymousza31865ze3z87_2358:
{ /* Llib/error.scm 920 */
 obj_t BgL_arg1866z00_2359;
{ /* Llib/error.scm 920 */
 obj_t BgL_tmpz00_7080;
BgL_tmpz00_7080 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1866z00_2359 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_7080); } 
bgl_flush_output_port(BgL_arg1866z00_2359); } 
{ /* Llib/error.scm 921 */
 obj_t BgL_arg1867z00_2360;
{ /* Llib/error.scm 921 */
 obj_t BgL_tmpz00_7084;
BgL_tmpz00_7084 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1867z00_2360 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7084); } 
{ /* Llib/error.scm 921 */
 obj_t BgL_list1868z00_2361;
BgL_list1868z00_2361 = 
MAKE_YOUNG_PAIR(BgL_arg1867z00_2360, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2865z00zz__errorz00, BgL_list1868z00_2361); } } 
if(
NULLP(
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_2357)))->BgL_argsz00)))
{ /* Llib/error.scm 923 */BFALSE; }  else 
{ /* Llib/error.scm 923 */
{ /* Llib/error.scm 925 */
 obj_t BgL_arg1872z00_2365; obj_t BgL_arg1873z00_2366;
{ /* Llib/error.scm 925 */
 obj_t BgL_pairz00_4158;
BgL_pairz00_4158 = 
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_2357)))->BgL_argsz00); 
BgL_arg1872z00_2365 = 
CAR(BgL_pairz00_4158); } 
{ /* Llib/error.scm 925 */
 obj_t BgL_tmpz00_7096;
BgL_tmpz00_7096 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1873z00_2366 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7096); } 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1872z00_2365, BgL_arg1873z00_2366); } 
{ /* Llib/error.scm 926 */
 obj_t BgL_arg1876z00_2368;
{ /* Llib/error.scm 926 */
 obj_t BgL_tmpz00_7100;
BgL_tmpz00_7100 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1876z00_2368 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7100); } 
{ /* Llib/error.scm 926 */
 obj_t BgL_list1877z00_2369;
BgL_list1877z00_2369 = 
MAKE_YOUNG_PAIR(BgL_arg1876z00_2368, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1877z00_2369); } } 
{ /* Llib/error.scm 927 */
 obj_t BgL_arg1880z00_2371;
{ /* Llib/error.scm 929 */
 obj_t BgL_pairz00_4161;
BgL_pairz00_4161 = 
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_2357)))->BgL_argsz00); 
BgL_arg1880z00_2371 = 
CDR(BgL_pairz00_4161); } 
{ /* Llib/error.scm 927 */
 obj_t BgL_list1881z00_2372;
BgL_list1881z00_2372 = 
MAKE_YOUNG_PAIR(BgL_arg1880z00_2371, BNIL); 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BGl_proc2866z00zz__errorz00, BgL_list1881z00_2372); } } } 
{ /* Llib/error.scm 930 */
 obj_t BgL_arg1886z00_2379;
{ /* Llib/error.scm 930 */
 obj_t BgL_tmpz00_7110;
BgL_tmpz00_7110 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1886z00_2379 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7110); } 
{ /* Llib/error.scm 930 */
 obj_t BgL_list1887z00_2380;
BgL_list1887z00_2380 = 
MAKE_YOUNG_PAIR(BgL_arg1886z00_2379, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1887z00_2380); } } 
{ /* Llib/error.scm 931 */
 obj_t BgL_arg1888z00_2381;
{ /* Llib/error.scm 931 */
 obj_t BgL_tmpz00_7115;
BgL_tmpz00_7115 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1888z00_2381 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7115); } 
bgl_flush_output_port(BgL_arg1888z00_2381); } }  else 
{ /* Llib/error.scm 938 */
 bool_t BgL_test3309z00_7119;
{ /* Llib/error.scm 938 */
 obj_t BgL_arg1855z00_2347;
BgL_arg1855z00_2347 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_fnamez00); 
{ /* Llib/error.scm 938 */
 long BgL_l1z00_4181;
BgL_l1z00_4181 = 
STRING_LENGTH(
((obj_t)BgL_arg1855z00_2347)); 
if(
(BgL_l1z00_4181==7L))
{ /* Llib/error.scm 938 */
 int BgL_arg2302z00_4184;
{ /* Llib/error.scm 938 */
 char * BgL_auxz00_7130; char * BgL_tmpz00_7127;
BgL_auxz00_7130 = 
BSTRING_TO_STRING(BGl_string2868z00zz__errorz00); 
BgL_tmpz00_7127 = 
BSTRING_TO_STRING(
((obj_t)BgL_arg1855z00_2347)); 
BgL_arg2302z00_4184 = 
memcmp(BgL_tmpz00_7127, BgL_auxz00_7130, BgL_l1z00_4181); } 
BgL_test3309z00_7119 = 
(
(long)(BgL_arg2302z00_4184)==0L); }  else 
{ /* Llib/error.scm 938 */
BgL_test3309z00_7119 = ((bool_t)0)
; } } } 
if(BgL_test3309z00_7119)
{ 
 obj_t BgL_ez00_7135;
BgL_ez00_7135 = BgL_ez00_99; 
BgL_ez00_2357 = BgL_ez00_7135; 
goto BgL_zc3z04anonymousza31865ze3z87_2358;}  else 
{ /* Llib/error.scm 941 */
 obj_t BgL_arg1852z00_2344; obj_t BgL_arg1853z00_2345; obj_t BgL_arg1854z00_2346;
BgL_arg1852z00_2344 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_fnamez00); 
BgL_arg1853z00_2345 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_locationz00); 
BgL_arg1854z00_2346 = 
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_99)))->BgL_argsz00); 
BGl_warningzf2locationzd2filez20zz__errorz00(BgL_arg1852z00_2344, BgL_arg1853z00_2345, BgL_arg1854z00_2346); } } }  else 
{ 
 obj_t BgL_ez00_7145;
BgL_ez00_7145 = BgL_ez00_99; 
BgL_ez00_2357 = BgL_ez00_7145; 
goto BgL_zc3z04anonymousza31865ze3z87_2358;} 
if(
CBOOL(
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_stackz00)))
{ /* Llib/error.scm 946 */
 obj_t BgL_arg1860z00_2351; obj_t BgL_arg1861z00_2352;
BgL_arg1860z00_2351 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_stackz00); 
{ /* Llib/error.scm 946 */
 obj_t BgL_tmpz00_7154;
BgL_tmpz00_7154 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1861z00_2352 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7154); } 
{ /* Llib/error.scm 273 */

BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg1860z00_2351, BgL_arg1861z00_2352, 
BINT(1L)); } }  else 
{ /* Llib/error.scm 945 */BFALSE; } }  else 
{ /* Llib/error.scm 932 */BFALSE; } } 
return BFALSE;} } 

}



/* &warning-notify */
obj_t BGl_z62warningzd2notifyzb0zz__errorz00(obj_t BgL_envz00_5134, obj_t BgL_ez00_5135)
{
{ /* Llib/error.scm 918 */
return 
BGl_warningzd2notifyzd2zz__errorz00(BgL_ez00_5135);} 

}



/* &<@anonymous:1882> */
obj_t BGl_z62zc3z04anonymousza31882ze3ze5zz__errorz00(obj_t BgL_envz00_5136, obj_t BgL_az00_5137)
{
{ /* Llib/error.scm 927 */
{ /* Llib/error.scm 928 */
 obj_t BgL_arg1883z00_5237;
{ /* Llib/error.scm 928 */
 obj_t BgL_tmpz00_7160;
BgL_tmpz00_7160 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1883z00_5237 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7160); } 
return 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_5137, BgL_arg1883z00_5237);} } 

}



/* warning-notify/location */
BGL_EXPORTED_DEF obj_t BGl_warningzd2notifyzf2locationz20zz__errorz00(obj_t BgL_ez00_100, obj_t BgL_fnamez00_101, int BgL_locationz00_102)
{
{ /* Llib/error.scm 952 */
{ /* Llib/error.scm 953 */
 bool_t BgL_test3312z00_7164;
{ /* Llib/error.scm 953 */
 int BgL_arg1893z00_4192;
BgL_arg1893z00_4192 = 
BGl_bigloozd2warningzd2zz__paramz00(); 
BgL_test3312z00_7164 = 
(
(long)(BgL_arg1893z00_4192)>0L); } 
if(BgL_test3312z00_7164)
{ /* Llib/error.scm 955 */
 obj_t BgL_arg1892z00_4194;
BgL_arg1892z00_4194 = 
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_100)))->BgL_argsz00); 
return 
BGl_warningzf2locationzd2filez20zz__errorz00(BgL_fnamez00_101, 
BINT(BgL_locationz00_102), BgL_arg1892z00_4194);}  else 
{ /* Llib/error.scm 953 */
return BFALSE;} } } 

}



/* &warning-notify/location */
obj_t BGl_z62warningzd2notifyzf2locationz42zz__errorz00(obj_t BgL_envz00_5138, obj_t BgL_ez00_5139, obj_t BgL_fnamez00_5140, obj_t BgL_locationz00_5141)
{
{ /* Llib/error.scm 952 */
{ /* Llib/error.scm 953 */
 int BgL_auxz00_7179; obj_t BgL_auxz00_7172;
{ /* Llib/error.scm 953 */
 obj_t BgL_tmpz00_7180;
if(
INTEGERP(BgL_locationz00_5141))
{ /* Llib/error.scm 953 */
BgL_tmpz00_7180 = BgL_locationz00_5141
; }  else 
{ 
 obj_t BgL_auxz00_7183;
BgL_auxz00_7183 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(38238L), BGl_string2869z00zz__errorz00, BGl_string2809z00zz__errorz00, BgL_locationz00_5141); 
FAILURE(BgL_auxz00_7183,BFALSE,BFALSE);} 
BgL_auxz00_7179 = 
CINT(BgL_tmpz00_7180); } 
if(
STRINGP(BgL_fnamez00_5140))
{ /* Llib/error.scm 953 */
BgL_auxz00_7172 = BgL_fnamez00_5140
; }  else 
{ 
 obj_t BgL_auxz00_7175;
BgL_auxz00_7175 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(38238L), BGl_string2869z00zz__errorz00, BGl_string2834z00zz__errorz00, BgL_fnamez00_5140); 
FAILURE(BgL_auxz00_7175,BFALSE,BFALSE);} 
return 
BGl_warningzd2notifyzf2locationz20zz__errorz00(BgL_ez00_5139, BgL_auxz00_7172, BgL_auxz00_7179);} } 

}



/* warning/location-file */
obj_t BGl_warningzf2locationzd2filez20zz__errorz00(obj_t BgL_fnamez00_103, obj_t BgL_locz00_104, obj_t BgL_argsz00_105)
{
{ /* Llib/error.scm 960 */
{ /* Llib/error.scm 962 */
 obj_t BgL_portz00_2388;
BgL_portz00_2388 = 
BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_103); 
if(
INPUT_PORTP(BgL_portz00_2388))
{ /* Llib/error.scm 968 */
 obj_t BgL_filez00_2390;
{ /* Llib/error.scm 969 */
 obj_t BgL_arg1896z00_2395;
{ /* Llib/error.scm 969 */
 obj_t BgL_list1897z00_2396;
{ /* Llib/error.scm 969 */
 obj_t BgL_arg1898z00_2397;
{ /* Llib/error.scm 969 */
 obj_t BgL_arg1899z00_2398;
BgL_arg1899z00_2398 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
BgL_arg1898z00_2397 = 
MAKE_YOUNG_PAIR(BgL_locz00_104, BgL_arg1899z00_2398); } 
BgL_list1897z00_2396 = 
MAKE_YOUNG_PAIR(BgL_fnamez00_103, BgL_arg1898z00_2397); } 
BgL_arg1896z00_2395 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_symbol2811z00zz__errorz00, BgL_list1897z00_2396); } 
BgL_filez00_2390 = 
BGl_locationzd2linezd2numz00zz__errorz00(BgL_arg1896z00_2395); } 
{ /* Llib/error.scm 969 */
 obj_t BgL_lnumz00_2391; obj_t BgL_lpointz00_2392; obj_t BgL_lstringz00_2393;
{ /* Llib/error.scm 970 */
 obj_t BgL_tmpz00_4196;
{ /* Llib/error.scm 970 */
 int BgL_tmpz00_7197;
BgL_tmpz00_7197 = 
(int)(1L); 
BgL_tmpz00_4196 = 
BGL_MVALUES_VAL(BgL_tmpz00_7197); } 
{ /* Llib/error.scm 970 */
 int BgL_tmpz00_7200;
BgL_tmpz00_7200 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7200, BUNSPEC); } 
BgL_lnumz00_2391 = BgL_tmpz00_4196; } 
{ /* Llib/error.scm 970 */
 obj_t BgL_tmpz00_4197;
{ /* Llib/error.scm 970 */
 int BgL_tmpz00_7203;
BgL_tmpz00_7203 = 
(int)(2L); 
BgL_tmpz00_4197 = 
BGL_MVALUES_VAL(BgL_tmpz00_7203); } 
{ /* Llib/error.scm 970 */
 int BgL_tmpz00_7206;
BgL_tmpz00_7206 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7206, BUNSPEC); } 
BgL_lpointz00_2392 = BgL_tmpz00_4197; } 
{ /* Llib/error.scm 970 */
 obj_t BgL_tmpz00_4198;
{ /* Llib/error.scm 970 */
 int BgL_tmpz00_7209;
BgL_tmpz00_7209 = 
(int)(3L); 
BgL_tmpz00_4198 = 
BGL_MVALUES_VAL(BgL_tmpz00_7209); } 
{ /* Llib/error.scm 970 */
 int BgL_tmpz00_7212;
BgL_tmpz00_7212 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7212, BUNSPEC); } 
BgL_lstringz00_2393 = BgL_tmpz00_4198; } 
if(
CBOOL(BgL_lnumz00_2391))
{ /* Llib/error.scm 970 */
return 
BGl_dozd2warnzf2locationz20zz__errorz00(BgL_fnamez00_103, BgL_lnumz00_2391, BgL_locz00_104, BgL_lstringz00_2393, BgL_lpointz00_2392, BgL_argsz00_105);}  else 
{ /* Llib/error.scm 970 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_105);} } }  else 
{ /* Llib/error.scm 963 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_105);} } } 

}



/* do-warn/location */
obj_t BGl_dozd2warnzf2locationz20zz__errorz00(obj_t BgL_fnamez00_106, obj_t BgL_linez00_107, obj_t BgL_charz00_108, obj_t BgL_stringz00_109, obj_t BgL_markerz00_110, obj_t BgL_argsz00_111)
{
{ /* Llib/error.scm 977 */
{ /* Llib/error.scm 978 */
 obj_t BgL_arg1901z00_2400;
{ /* Llib/error.scm 978 */
 obj_t BgL_tmpz00_7220;
BgL_tmpz00_7220 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1901z00_2400 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_7220); } 
bgl_flush_output_port(BgL_arg1901z00_2400); } 
{ /* Llib/error.scm 979 */
 obj_t BgL_arg1905z00_2401;
{ /* Llib/error.scm 979 */
 obj_t BgL_tmpz00_7224;
BgL_tmpz00_7224 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1905z00_2401 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7224); } 
{ /* Llib/error.scm 979 */
 obj_t BgL_list1906z00_2402;
BgL_list1906z00_2402 = 
MAKE_YOUNG_PAIR(BgL_arg1905z00_2401, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1906z00_2402); } } 
{ /* Llib/error.scm 980 */
 obj_t BgL_spacezd2stringzd2_2403;
if(
(
(long)CINT(BgL_markerz00_110)>0L))
{ /* Llib/error.scm 980 */
BgL_spacezd2stringzd2_2403 = 
make_string(
(long)CINT(BgL_markerz00_110), ((unsigned char)' ')); }  else 
{ /* Llib/error.scm 980 */
BgL_spacezd2stringzd2_2403 = BGl_string2854z00zz__errorz00; } 
{ /* Llib/error.scm 980 */
 long BgL_lz00_2404;
BgL_lz00_2404 = 
STRING_LENGTH(
((obj_t)BgL_stringz00_109)); 
{ /* Llib/error.scm 983 */
 obj_t BgL_nzd2markerzd2_2405;
if(
(
(long)CINT(BgL_markerz00_110)>=BgL_lz00_2404))
{ /* Llib/error.scm 984 */
BgL_nzd2markerzd2_2405 = 
BINT(BgL_lz00_2404); }  else 
{ /* Llib/error.scm 984 */
BgL_nzd2markerzd2_2405 = BgL_markerz00_110; } 
{ /* Llib/error.scm 984 */

BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2markerzd2_2405, BgL_stringz00_109, BgL_spacezd2stringzd2_2403); 
BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_106, BgL_linez00_107, BgL_charz00_108, BgL_stringz00_109, BgL_spacezd2stringzd2_2403); 
{ /* Llib/error.scm 990 */
 obj_t BgL_arg1908z00_2406;
{ /* Llib/error.scm 990 */
 obj_t BgL_tmpz00_7242;
BgL_tmpz00_7242 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1908z00_2406 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7242); } 
{ /* Llib/error.scm 990 */
 obj_t BgL_list1909z00_2407;
BgL_list1909z00_2407 = 
MAKE_YOUNG_PAIR(BgL_arg1908z00_2406, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2865z00zz__errorz00, BgL_list1909z00_2407); } } 
if(
NULLP(BgL_argsz00_111))
{ /* Llib/error.scm 991 */BFALSE; }  else 
{ /* Llib/error.scm 992 */
 obj_t BgL_portz00_2409;
{ /* Llib/error.scm 992 */
 obj_t BgL_tmpz00_7249;
BgL_tmpz00_7249 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2409 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7249); } 
{ /* Llib/error.scm 993 */
 obj_t BgL_arg1911z00_2410;
BgL_arg1911z00_2410 = 
CAR(
((obj_t)BgL_argsz00_111)); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1911z00_2410, BgL_portz00_2409); } 
{ /* Llib/error.scm 994 */
 obj_t BgL_list1912z00_2411;
BgL_list1912z00_2411 = 
MAKE_YOUNG_PAIR(BgL_portz00_2409, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1912z00_2411); } 
{ /* Llib/error.scm 995 */
 obj_t BgL_arg1915z00_2413;
BgL_arg1915z00_2413 = 
CDR(
((obj_t)BgL_argsz00_111)); 
{ /* Llib/error.scm 995 */
 obj_t BgL_list1916z00_2414;
BgL_list1916z00_2414 = 
MAKE_YOUNG_PAIR(BgL_arg1915z00_2413, BNIL); 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BGl_proc2870z00zz__errorz00, BgL_list1916z00_2414); } } } 
{ /* Llib/error.scm 998 */
 obj_t BgL_arg1920z00_2419;
{ /* Llib/error.scm 998 */
 obj_t BgL_tmpz00_7261;
BgL_tmpz00_7261 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1920z00_2419 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7261); } 
{ /* Llib/error.scm 998 */
 obj_t BgL_list1921z00_2420;
BgL_list1921z00_2420 = 
MAKE_YOUNG_PAIR(BgL_arg1920z00_2419, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1921z00_2420); } } 
{ /* Llib/error.scm 999 */
 obj_t BgL_arg1922z00_2421;
{ /* Llib/error.scm 999 */
 obj_t BgL_tmpz00_7266;
BgL_tmpz00_7266 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1922z00_2421 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7266); } 
return 
bgl_flush_output_port(BgL_arg1922z00_2421);} } } } } } 

}



/* &<@anonymous:1917> */
obj_t BGl_z62zc3z04anonymousza31917ze3ze5zz__errorz00(obj_t BgL_envz00_5143, obj_t BgL_az00_5144)
{
{ /* Llib/error.scm 995 */
{ /* Llib/error.scm 996 */
 obj_t BgL_arg1918z00_5238;
{ /* Llib/error.scm 996 */
 obj_t BgL_tmpz00_7270;
BgL_tmpz00_7270 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1918z00_5238 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7270); } 
return 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_5144, BgL_arg1918z00_5238);} } 

}



/* _display-trace-stack */
obj_t BGl__displayzd2tracezd2stackz00zz__errorz00(obj_t BgL_env1218z00_117, obj_t BgL_opt1217z00_116)
{
{ /* Llib/error.scm 1012 */
{ /* Llib/error.scm 1012 */
 obj_t BgL_g1219z00_2426; obj_t BgL_g1220z00_2427;
BgL_g1219z00_2426 = 
VECTOR_REF(BgL_opt1217z00_116,0L); 
BgL_g1220z00_2427 = 
VECTOR_REF(BgL_opt1217z00_116,1L); 
switch( 
VECTOR_LENGTH(BgL_opt1217z00_116)) { case 2L : 

{ /* Llib/error.scm 1012 */

{ /* Llib/error.scm 1012 */
 obj_t BgL_auxz00_7276;
if(
OUTPUT_PORTP(BgL_g1220z00_2427))
{ /* Llib/error.scm 1012 */
BgL_auxz00_7276 = BgL_g1220z00_2427
; }  else 
{ 
 obj_t BgL_auxz00_7279;
BgL_auxz00_7279 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(40874L), BGl_string2871z00zz__errorz00, BGl_string2872z00zz__errorz00, BgL_g1220z00_2427); 
FAILURE(BgL_auxz00_7279,BFALSE,BFALSE);} 
return 
BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_g1219z00_2426, BgL_auxz00_7276, 
BINT(1L));} } break;case 3L : 

{ /* Llib/error.scm 1012 */
 obj_t BgL_offsetz00_2431;
BgL_offsetz00_2431 = 
VECTOR_REF(BgL_opt1217z00_116,2L); 
{ /* Llib/error.scm 1012 */

{ /* Llib/error.scm 1012 */
 obj_t BgL_auxz00_7286;
if(
OUTPUT_PORTP(BgL_g1220z00_2427))
{ /* Llib/error.scm 1012 */
BgL_auxz00_7286 = BgL_g1220z00_2427
; }  else 
{ 
 obj_t BgL_auxz00_7289;
BgL_auxz00_7289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(40874L), BGl_string2871z00zz__errorz00, BGl_string2872z00zz__errorz00, BgL_g1220z00_2427); 
FAILURE(BgL_auxz00_7289,BFALSE,BFALSE);} 
return 
BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_g1219z00_2426, BgL_auxz00_7286, BgL_offsetz00_2431);} } } break;
default: 
return BUNSPEC;} } } 

}



/* display-trace-stack */
BGL_EXPORTED_DEF obj_t BGl_displayzd2tracezd2stackz00zz__errorz00(obj_t BgL_stackz00_113, obj_t BgL_portz00_114, obj_t BgL_offsetz00_115)
{
{ /* Llib/error.scm 1012 */
if(
PAIRP(BgL_stackz00_113))
{ /* Llib/error.scm 1096 */
 obj_t BgL_g1134z00_2435; obj_t BgL_g1135z00_2436;
BgL_g1134z00_2435 = 
CDR(BgL_stackz00_113); 
BgL_g1135z00_2436 = 
CAR(BgL_stackz00_113); 
{ 
 obj_t BgL_iz00_2438; obj_t BgL_stkz00_2439; obj_t BgL_hdsz00_2440; long BgL_hdnz00_2441;
BgL_iz00_2438 = BgL_offsetz00_115; 
BgL_stkz00_2439 = BgL_g1134z00_2435; 
BgL_hdsz00_2440 = BgL_g1135z00_2436; 
BgL_hdnz00_2441 = 1L; 
BgL_zc3z04anonymousza31927ze3z87_2442:
if(
NULLP(BgL_stkz00_2439))
{ /* Llib/error.scm 1101 */
BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(BgL_portz00_114, BgL_hdsz00_2440, BgL_iz00_2438, BgL_hdnz00_2441); 
return 
bgl_flush_output_port(BgL_portz00_114);}  else 
{ /* Llib/error.scm 1101 */
if(
PAIRP(BgL_stkz00_2439))
{ /* Llib/error.scm 1104 */
if(
(
CAR(BgL_stkz00_2439)==BgL_hdsz00_2440))
{ /* Llib/error.scm 1109 */
 long BgL_arg1933z00_2447; obj_t BgL_arg1934z00_2448; long BgL_arg1935z00_2449;
BgL_arg1933z00_2447 = 
(
(long)CINT(BgL_iz00_2438)+1L); 
BgL_arg1934z00_2448 = 
CDR(BgL_stkz00_2439); 
BgL_arg1935z00_2449 = 
(BgL_hdnz00_2441+1L); 
{ 
 long BgL_hdnz00_7316; obj_t BgL_stkz00_7315; obj_t BgL_iz00_7313;
BgL_iz00_7313 = 
BINT(BgL_arg1933z00_2447); 
BgL_stkz00_7315 = BgL_arg1934z00_2448; 
BgL_hdnz00_7316 = BgL_arg1935z00_2449; 
BgL_hdnz00_2441 = BgL_hdnz00_7316; 
BgL_stkz00_2439 = BgL_stkz00_7315; 
BgL_iz00_2438 = BgL_iz00_7313; 
goto BgL_zc3z04anonymousza31927ze3z87_2442;} }  else 
{ 
 long BgL_hdnz00_7323; obj_t BgL_hdsz00_7321; obj_t BgL_stkz00_7319; obj_t BgL_iz00_7317;
BgL_iz00_7317 = 
BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(BgL_portz00_114, BgL_hdsz00_2440, BgL_iz00_2438, BgL_hdnz00_2441); 
BgL_stkz00_7319 = 
CDR(BgL_stkz00_2439); 
BgL_hdsz00_7321 = 
CAR(BgL_stkz00_2439); 
BgL_hdnz00_7323 = 1L; 
BgL_hdnz00_2441 = BgL_hdnz00_7323; 
BgL_hdsz00_2440 = BgL_hdsz00_7321; 
BgL_stkz00_2439 = BgL_stkz00_7319; 
BgL_iz00_2438 = BgL_iz00_7317; 
goto BgL_zc3z04anonymousza31927ze3z87_2442;} }  else 
{ /* Llib/error.scm 1104 */
{ /* Llib/error.scm 1105 */
 obj_t BgL_arg1939z00_2454;
{ /* Llib/error.scm 1105 */
 obj_t BgL_tmpz00_7324;
BgL_tmpz00_7324 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1939z00_2454 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7324); } 
{ /* Llib/error.scm 1105 */
 obj_t BgL_list1940z00_2455;
BgL_list1940z00_2455 = 
MAKE_YOUNG_PAIR(BgL_stackz00_113, BNIL); 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_arg1939z00_2454, BGl_string2873z00zz__errorz00, BgL_list1940z00_2455); } } 
return 
bgl_flush_output_port(BgL_portz00_114);} } } }  else 
{ /* Llib/error.scm 1095 */
return BFALSE;} } 

}



/* display-trace-stack-frame~0 */
obj_t BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(obj_t BgL_portz00_5187, obj_t BgL_framez00_2463, obj_t BgL_levelz00_2464, long BgL_numz00_2465)
{
{ /* Llib/error.scm 1093 */
{ 
 obj_t BgL_namez00_2467; obj_t BgL_locz00_2468; obj_t BgL_restz00_2469; obj_t BgL_namez00_2471;
if(
PAIRP(BgL_framez00_2463))
{ /* Llib/error.scm 1093 */
 obj_t BgL_cdrzd2347zd2_2477;
BgL_cdrzd2347zd2_2477 = 
CDR(
((obj_t)BgL_framez00_2463)); 
if(
PAIRP(BgL_cdrzd2347zd2_2477))
{ /* Llib/error.scm 1093 */
 obj_t BgL_cdrzd2352zd2_2479;
BgL_cdrzd2352zd2_2479 = 
CDR(BgL_cdrzd2347zd2_2477); 
{ /* Llib/error.scm 1093 */
 bool_t BgL_test3328z00_7337;
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_cdrzd2352zd2_2479))
{ /* Llib/error.scm 1007 */
 obj_t BgL_list1925z00_4250;
BgL_list1925z00_4250 = 
MAKE_YOUNG_PAIR(BgL_cdrzd2352zd2_2479, BNIL); 
BgL_test3328z00_7337 = 
CBOOL(
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_list1925z00_4250)); }  else 
{ /* Llib/error.scm 1007 */
BgL_test3328z00_7337 = ((bool_t)0)
; } 
if(BgL_test3328z00_7337)
{ /* Llib/error.scm 1093 */
 obj_t BgL_arg1948z00_2481; obj_t BgL_arg1949z00_2482;
BgL_arg1948z00_2481 = 
CAR(
((obj_t)BgL_framez00_2463)); 
BgL_arg1949z00_2482 = 
CAR(BgL_cdrzd2347zd2_2477); 
{ /* Llib/error.scm 1093 */
 long BgL_tmpz00_7346;
BgL_namez00_2467 = BgL_arg1948z00_2481; 
BgL_locz00_2468 = BgL_arg1949z00_2482; 
BgL_restz00_2469 = BgL_cdrzd2352zd2_2479; 
{ /* Llib/error.scm 1026 */
 obj_t BgL_marginz00_2490;
BgL_marginz00_2490 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BGl_symbol2879z00zz__errorz00, BgL_restz00_2469); 
{ /* Llib/error.scm 1026 */
 obj_t BgL_fmtz00_2491;
BgL_fmtz00_2491 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BGl_symbol2881z00zz__errorz00, BgL_restz00_2469); 
{ /* Llib/error.scm 1027 */
 obj_t BgL_nmz00_2492;
{ /* Llib/error.scm 1028 */
 bool_t BgL_test3330z00_7349;
if(
PAIRP(BgL_fmtz00_2491))
{ /* Llib/error.scm 1028 */
 obj_t BgL_tmpz00_7352;
BgL_tmpz00_7352 = 
CDR(BgL_fmtz00_2491); 
BgL_test3330z00_7349 = 
STRINGP(BgL_tmpz00_7352); }  else 
{ /* Llib/error.scm 1028 */
BgL_test3330z00_7349 = ((bool_t)0)
; } 
if(BgL_test3330z00_7349)
{ /* Llib/error.scm 1029 */
 obj_t BgL_arg1996z00_2539;
BgL_arg1996z00_2539 = 
CDR(BgL_fmtz00_2491); 
{ /* Llib/error.scm 1029 */
 obj_t BgL_list1997z00_2540;
BgL_list1997z00_2540 = 
MAKE_YOUNG_PAIR(BgL_namez00_2467, BNIL); 
BgL_nmz00_2492 = 
BGl_formatz00zz__r4_output_6_10_3z00(BgL_arg1996z00_2539, BgL_list1997z00_2540); } }  else 
{ /* Llib/error.scm 1028 */
BgL_nmz00_2492 = BgL_namez00_2467; } } 
{ /* Llib/error.scm 1028 */

{ /* Llib/error.scm 1032 */
 bool_t BgL_test3332z00_7358;
if(
PAIRP(BgL_marginz00_2490))
{ /* Llib/error.scm 1032 */
 obj_t BgL_tmpz00_7361;
BgL_tmpz00_7361 = 
CDR(BgL_marginz00_2490); 
BgL_test3332z00_7358 = 
CHARP(BgL_tmpz00_7361); }  else 
{ /* Llib/error.scm 1032 */
BgL_test3332z00_7358 = ((bool_t)0)
; } 
if(BgL_test3332z00_7358)
{ /* Llib/error.scm 1033 */
 obj_t BgL_arg1960z00_2496;
BgL_arg1960z00_2496 = 
CDR(BgL_marginz00_2490); 
{ /* Llib/error.scm 1033 */
 obj_t BgL_list1961z00_2497;
BgL_list1961z00_2497 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_arg1960z00_2496, BgL_list1961z00_2497); } }  else 
{ /* Llib/error.scm 1034 */
 obj_t BgL_list1962z00_2498;
BgL_list1962z00_2498 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2883z00zz__errorz00, BgL_list1962z00_2498); } } 
if(
(
(long)CINT(BgL_levelz00_2464)<10L))
{ /* Llib/error.scm 1036 */
 obj_t BgL_list1965z00_2502;
BgL_list1965z00_2502 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2876z00zz__errorz00, BgL_list1965z00_2502); }  else 
{ /* Llib/error.scm 1036 */
if(
(
(long)CINT(BgL_levelz00_2464)<100L))
{ /* Llib/error.scm 1037 */
 obj_t BgL_list1967z00_2504;
BgL_list1967z00_2504 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2877z00zz__errorz00, BgL_list1967z00_2504); }  else 
{ /* Llib/error.scm 1037 */
if(
(
(long)CINT(BgL_levelz00_2464)<1000L))
{ /* Llib/error.scm 1038 */
 obj_t BgL_list1969z00_2506;
BgL_list1969z00_2506 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2883z00zz__errorz00, BgL_list1969z00_2506); }  else 
{ /* Llib/error.scm 1038 */BFALSE; } } } 
{ /* Llib/error.scm 1040 */
 obj_t BgL_list1970z00_2507;
BgL_list1970z00_2507 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_levelz00_2464, BgL_list1970z00_2507); } 
{ /* Llib/error.scm 1041 */
 obj_t BgL_list1971z00_2508;
BgL_list1971z00_2508 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2878z00zz__errorz00, BgL_list1971z00_2508); } 
{ /* Llib/error.scm 1043 */
 obj_t BgL_list1972z00_2509;
BgL_list1972z00_2509 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_namez00_2467, BgL_list1972z00_2509); } 
if(
(BgL_numz00_2465>1L))
{ /* Llib/error.scm 1045 */
{ /* Llib/error.scm 1046 */
 obj_t BgL_list1974z00_2511;
BgL_list1974z00_2511 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2884z00zz__errorz00, BgL_list1974z00_2511); } 
{ /* Llib/error.scm 1047 */
 obj_t BgL_list1975z00_2512;
BgL_list1975z00_2512 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(
BINT(BgL_numz00_2465), BgL_list1975z00_2512); } 
{ /* Llib/error.scm 1048 */
 obj_t BgL_list1976z00_2513;
BgL_list1976z00_2513 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2885z00zz__errorz00, BgL_list1976z00_2513); } }  else 
{ /* Llib/error.scm 1045 */
if(
CBOOL(BgL_locz00_2468))
{ /* Llib/error.scm 1050 */
 obj_t BgL_filez00_2514;
BgL_filez00_2514 = 
BGl_locationzd2linezd2numz00zz__errorz00(BgL_locz00_2468); 
{ /* Llib/error.scm 1051 */
 obj_t BgL_lnumz00_2515; obj_t BgL_lpointz00_2516; obj_t BgL_lstringz00_2517;
{ /* Llib/error.scm 1059 */
 obj_t BgL_tmpz00_4230;
{ /* Llib/error.scm 1059 */
 int BgL_tmpz00_7402;
BgL_tmpz00_7402 = 
(int)(1L); 
BgL_tmpz00_4230 = 
BGL_MVALUES_VAL(BgL_tmpz00_7402); } 
{ /* Llib/error.scm 1059 */
 int BgL_tmpz00_7405;
BgL_tmpz00_7405 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7405, BUNSPEC); } 
BgL_lnumz00_2515 = BgL_tmpz00_4230; } 
{ /* Llib/error.scm 1059 */
 obj_t BgL_tmpz00_4231;
{ /* Llib/error.scm 1059 */
 int BgL_tmpz00_7408;
BgL_tmpz00_7408 = 
(int)(2L); 
BgL_tmpz00_4231 = 
BGL_MVALUES_VAL(BgL_tmpz00_7408); } 
{ /* Llib/error.scm 1059 */
 int BgL_tmpz00_7411;
BgL_tmpz00_7411 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7411, BUNSPEC); } 
BgL_lpointz00_2516 = BgL_tmpz00_4231; } 
{ /* Llib/error.scm 1059 */
 obj_t BgL_tmpz00_4232;
{ /* Llib/error.scm 1059 */
 int BgL_tmpz00_7414;
BgL_tmpz00_7414 = 
(int)(3L); 
BgL_tmpz00_4232 = 
BGL_MVALUES_VAL(BgL_tmpz00_7414); } 
{ /* Llib/error.scm 1059 */
 int BgL_tmpz00_7417;
BgL_tmpz00_7417 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7417, BUNSPEC); } 
BgL_lstringz00_2517 = BgL_tmpz00_4232; } 
{ /* Llib/error.scm 1053 */
 bool_t BgL_test3339z00_7420;
if(
CBOOL(BgL_filez00_2514))
{ /* Llib/error.scm 1053 */
if(
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_filez00_2514, BGl_string2886z00zz__errorz00))
{ /* Llib/error.scm 1053 */
BgL_test3339z00_7420 = ((bool_t)0)
; }  else 
{ /* Llib/error.scm 1053 */
BgL_test3339z00_7420 = ((bool_t)1)
; } }  else 
{ /* Llib/error.scm 1053 */
BgL_test3339z00_7420 = ((bool_t)0)
; } 
if(BgL_test3339z00_7420)
{ /* Llib/error.scm 1053 */
{ /* Llib/error.scm 1054 */
 obj_t BgL_list1979z00_2520;
BgL_list1979z00_2520 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2887z00zz__errorz00, BgL_list1979z00_2520); } 
{ /* Llib/error.scm 1056 */
 obj_t BgL_arg1980z00_2521;
{ /* Llib/error.scm 1056 */
 long BgL_arg1982z00_2523;
if(
STRINGP(BgL_nmz00_2492))
{ /* Llib/error.scm 1056 */
BgL_arg1982z00_2523 = 
(
(80L-4L)-
STRING_LENGTH(BgL_nmz00_2492)); }  else 
{ /* Llib/error.scm 1056 */
BgL_arg1982z00_2523 = 60L; } 
if(
(BgL_numz00_2465==1L))
{ /* Llib/error.scm 1016 */
BgL_arg1980z00_2521 = 
BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_filez00_2514, BgL_arg1982z00_2523); }  else 
{ /* Llib/error.scm 1016 */
if(
fexists(
BSTRING_TO_STRING(BgL_filez00_2514)))
{ /* Llib/error.scm 1018 */
BgL_arg1980z00_2521 = BgL_filez00_2514; }  else 
{ /* Llib/error.scm 1018 */
BgL_arg1980z00_2521 = BGl_string2854z00zz__errorz00; } } } 
{ /* Llib/error.scm 1055 */
 obj_t BgL_list1981z00_2522;
BgL_list1981z00_2522 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_arg1980z00_2521, BgL_list1981z00_2522); } } }  else 
{ /* Llib/error.scm 1053 */BFALSE; } } 
{ /* Llib/error.scm 1062 */
 bool_t BgL_test3345z00_7440;
if(
INTEGERP(BgL_lpointz00_2516))
{ /* Llib/error.scm 1062 */
BgL_test3345z00_7440 = 
(
(long)CINT(BgL_lpointz00_2516)==0L)
; }  else 
{ /* Llib/error.scm 1062 */
BgL_test3345z00_7440 = ((bool_t)0)
; } 
if(BgL_test3345z00_7440)
{ /* Llib/error.scm 1062 */BUNSPEC; }  else 
{ /* Llib/error.scm 1062 */
if(
CBOOL(BgL_lnumz00_2515))
{ /* Llib/error.scm 1064 */
{ /* Llib/error.scm 1065 */
 obj_t BgL_list1988z00_2530;
BgL_list1988z00_2530 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2820z00zz__errorz00, BgL_list1988z00_2530); } 
{ /* Llib/error.scm 1066 */
 obj_t BgL_list1989z00_2531;
BgL_list1989z00_2531 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_lnumz00_2515, BgL_list1989z00_2531); } }  else 
{ /* Llib/error.scm 1064 */
if(
CBOOL(BgL_lpointz00_2516))
{ /* Llib/error.scm 1067 */
{ /* Llib/error.scm 1068 */
 obj_t BgL_list1990z00_2532;
BgL_list1990z00_2532 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2888z00zz__errorz00, BgL_list1990z00_2532); } 
{ /* Llib/error.scm 1069 */
 obj_t BgL_list1991z00_2533;
BgL_list1991z00_2533 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_lpointz00_2516, BgL_list1991z00_2533); } }  else 
{ /* Llib/error.scm 1067 */BFALSE; } } } } } }  else 
{ /* Llib/error.scm 1049 */BFALSE; } } 
{ /* Llib/error.scm 1070 */
 obj_t BgL_list1992z00_2535;
BgL_list1992z00_2535 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1992z00_2535); } } } } } 
BgL_tmpz00_7346 = 
(
(long)CINT(BgL_levelz00_2464)+1L); 
return 
BINT(BgL_tmpz00_7346);} }  else 
{ /* Llib/error.scm 1093 */
 long BgL_tmpz00_7462;
BgL_tagzd2338zd2_2474:
{ /* Llib/error.scm 1090 */
 obj_t BgL_list2014z00_2559;
BgL_list2014z00_2559 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2874z00zz__errorz00, BgL_list2014z00_2559); } 
{ /* Llib/error.scm 1091 */
 obj_t BgL_list2015z00_2560;
BgL_list2015z00_2560 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_framez00_2463, BgL_list2015z00_2560); } 
{ /* Llib/error.scm 1092 */
 obj_t BgL_list2016z00_2561;
BgL_list2016z00_2561 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2016z00_2561); } 
BgL_tmpz00_7462 = 
(
(long)CINT(BgL_levelz00_2464)+1L); 
return 
BINT(BgL_tmpz00_7462);} } }  else 
{ /* Llib/error.scm 1093 */
if(
NULLP(BgL_cdrzd2347zd2_2477))
{ /* Llib/error.scm 1093 */
 obj_t BgL_arg1953z00_2486;
BgL_arg1953z00_2486 = 
CAR(
((obj_t)BgL_framez00_2463)); 
{ /* Llib/error.scm 1093 */
 long BgL_tmpz00_7476;
BgL_namez00_2471 = BgL_arg1953z00_2486; 
if(
(
(long)CINT(BgL_levelz00_2464)<10L))
{ /* Llib/error.scm 1074 */
 obj_t BgL_list2000z00_2544;
BgL_list2000z00_2544 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2875z00zz__errorz00, BgL_list2000z00_2544); }  else 
{ /* Llib/error.scm 1074 */
if(
(
(long)CINT(BgL_levelz00_2464)<100L))
{ /* Llib/error.scm 1075 */
 obj_t BgL_list2002z00_2546;
BgL_list2002z00_2546 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2876z00zz__errorz00, BgL_list2002z00_2546); }  else 
{ /* Llib/error.scm 1075 */
if(
(
(long)CINT(BgL_levelz00_2464)<1000L))
{ /* Llib/error.scm 1076 */
 obj_t BgL_list2004z00_2548;
BgL_list2004z00_2548 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2877z00zz__errorz00, BgL_list2004z00_2548); }  else 
{ /* Llib/error.scm 1076 */BFALSE; } } } 
{ /* Llib/error.scm 1078 */
 obj_t BgL_list2005z00_2549;
BgL_list2005z00_2549 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_levelz00_2464, BgL_list2005z00_2549); } 
{ /* Llib/error.scm 1079 */
 obj_t BgL_arg2006z00_2550;
{ /* Llib/error.scm 1079 */
 bool_t BgL_test3353z00_7494;
if(
SYMBOLP(BgL_namez00_2471))
{ /* Llib/error.scm 1079 */
BgL_test3353z00_7494 = ((bool_t)1)
; }  else 
{ /* Llib/error.scm 1079 */
BgL_test3353z00_7494 = 
STRINGP(BgL_namez00_2471)
; } 
if(BgL_test3353z00_7494)
{ /* Llib/error.scm 1079 */
BgL_arg2006z00_2550 = BGl_string2878z00zz__errorz00; }  else 
{ /* Llib/error.scm 1079 */
BgL_arg2006z00_2550 = BGl_string2874z00zz__errorz00; } } 
{ /* Llib/error.scm 1079 */
 obj_t BgL_list2007z00_2551;
BgL_list2007z00_2551 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_arg2006z00_2550, BgL_list2007z00_2551); } } 
{ /* Llib/error.scm 1080 */
 obj_t BgL_list2010z00_2555;
BgL_list2010z00_2555 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_namez00_2471, BgL_list2010z00_2555); } 
{ /* Llib/error.scm 1081 */
 obj_t BgL_list2011z00_2556;
BgL_list2011z00_2556 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2011z00_2556); } 
BgL_tmpz00_7476 = 
(
(long)CINT(BgL_levelz00_2464)+1L); 
return 
BINT(BgL_tmpz00_7476);} }  else 
{ /* Llib/error.scm 1093 */
 long BgL_tmpz00_7507;
goto BgL_tagzd2338zd2_2474;
return 
BINT(BgL_tmpz00_7507);} } }  else 
{ /* Llib/error.scm 1093 */
if(
STRINGP(BgL_framez00_2463))
{ /* Llib/error.scm 1093 */
{ /* Llib/error.scm 1085 */
 obj_t BgL_list2012z00_2557;
BgL_list2012z00_2557 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_framez00_2463, BgL_list2012z00_2557); } 
{ /* Llib/error.scm 1086 */
 obj_t BgL_list2013z00_2558;
BgL_list2013z00_2558 = 
MAKE_YOUNG_PAIR(BgL_portz00_5187, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2013z00_2558); } 
return BgL_levelz00_2464;}  else 
{ /* Llib/error.scm 1093 */
 long BgL_tmpz00_7515;
goto BgL_tagzd2338zd2_2474;
return 
BINT(BgL_tmpz00_7515);} } } } 

}



/* display-trace-stack-source */
BGL_EXPORTED_DEF obj_t BGl_displayzd2tracezd2stackzd2sourcezd2zz__errorz00(obj_t BgL_stackz00_118, obj_t BgL_portz00_119)
{
{ /* Llib/error.scm 1120 */
{ 
 obj_t BgL_stackz00_2566;
BgL_stackz00_2566 = BgL_stackz00_118; 
BgL_zc3z04anonymousza32017ze3z87_2567:
if(
PAIRP(BgL_stackz00_2566))
{ 
 obj_t BgL_namez00_2569; obj_t BgL_locz00_2570; obj_t BgL_restz00_2571;
{ /* Llib/error.scm 1133 */
 obj_t BgL_ezd2371zd2_2574;
BgL_ezd2371zd2_2574 = 
CAR(BgL_stackz00_2566); 
if(
PAIRP(BgL_ezd2371zd2_2574))
{ /* Llib/error.scm 1133 */
 obj_t BgL_cdrzd2379zd2_2576;
BgL_cdrzd2379zd2_2576 = 
CDR(BgL_ezd2371zd2_2574); 
if(
PAIRP(BgL_cdrzd2379zd2_2576))
{ /* Llib/error.scm 1133 */
 obj_t BgL_cdrzd2384zd2_2578;
BgL_cdrzd2384zd2_2578 = 
CDR(BgL_cdrzd2379zd2_2576); 
{ /* Llib/error.scm 1133 */
 bool_t BgL_test3359z00_7526;
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_cdrzd2384zd2_2578))
{ /* Llib/error.scm 1007 */
 obj_t BgL_list1925z00_4298;
BgL_list1925z00_4298 = 
MAKE_YOUNG_PAIR(BgL_cdrzd2384zd2_2578, BNIL); 
BgL_test3359z00_7526 = 
CBOOL(
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_list1925z00_4298)); }  else 
{ /* Llib/error.scm 1007 */
BgL_test3359z00_7526 = ((bool_t)0)
; } 
if(BgL_test3359z00_7526)
{ /* Llib/error.scm 1133 */
BgL_namez00_2569 = 
CAR(BgL_ezd2371zd2_2574); 
BgL_locz00_2570 = 
CAR(BgL_cdrzd2379zd2_2576); 
BgL_restz00_2571 = BgL_cdrzd2384zd2_2578; 
{ /* Llib/error.scm 1136 */
 obj_t BgL_filez00_2582;
BgL_filez00_2582 = 
BGl_locationzd2linezd2numz00zz__errorz00(BgL_locz00_2570); 
{ /* Llib/error.scm 1137 */
 obj_t BgL_lnumz00_2583; obj_t BgL_lpointz00_2584; obj_t BgL_lstringz00_2585;
{ /* Llib/error.scm 1139 */
 obj_t BgL_tmpz00_4276;
{ /* Llib/error.scm 1139 */
 int BgL_tmpz00_7533;
BgL_tmpz00_7533 = 
(int)(1L); 
BgL_tmpz00_4276 = 
BGL_MVALUES_VAL(BgL_tmpz00_7533); } 
{ /* Llib/error.scm 1139 */
 int BgL_tmpz00_7536;
BgL_tmpz00_7536 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7536, BUNSPEC); } 
BgL_lnumz00_2583 = BgL_tmpz00_4276; } 
{ /* Llib/error.scm 1139 */
 obj_t BgL_tmpz00_4277;
{ /* Llib/error.scm 1139 */
 int BgL_tmpz00_7539;
BgL_tmpz00_7539 = 
(int)(2L); 
BgL_tmpz00_4277 = 
BGL_MVALUES_VAL(BgL_tmpz00_7539); } 
{ /* Llib/error.scm 1139 */
 int BgL_tmpz00_7542;
BgL_tmpz00_7542 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7542, BUNSPEC); } 
BgL_lpointz00_2584 = BgL_tmpz00_4277; } 
{ /* Llib/error.scm 1139 */
 obj_t BgL_tmpz00_4278;
{ /* Llib/error.scm 1139 */
 int BgL_tmpz00_7545;
BgL_tmpz00_7545 = 
(int)(3L); 
BgL_tmpz00_4278 = 
BGL_MVALUES_VAL(BgL_tmpz00_7545); } 
{ /* Llib/error.scm 1139 */
 int BgL_tmpz00_7548;
BgL_tmpz00_7548 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7548, BUNSPEC); } 
BgL_lstringz00_2585 = BgL_tmpz00_4278; } 
{ /* Llib/error.scm 1139 */
 bool_t BgL_test3361z00_7551;
if(
STRINGP(BgL_filez00_2582))
{ /* Llib/error.scm 1139 */
BgL_test3361z00_7551 = 
STRINGP(BgL_lstringz00_2585)
; }  else 
{ /* Llib/error.scm 1139 */
BgL_test3361z00_7551 = ((bool_t)0)
; } 
if(BgL_test3361z00_7551)
{ /* Llib/error.scm 1123 */
 obj_t BgL_tabsz00_4279;
if(
(
(long)CINT(BgL_lpointz00_2584)>0L))
{ /* Llib/error.scm 1123 */
BgL_tabsz00_4279 = 
make_string(
(long)CINT(BgL_lpointz00_2584), ((unsigned char)' ')); }  else 
{ /* Llib/error.scm 1123 */
BgL_tabsz00_4279 = BGl_string2854z00zz__errorz00; } 
{ /* Llib/error.scm 1123 */
 long BgL_lz00_4281;
BgL_lz00_4281 = 
STRING_LENGTH(BgL_lstringz00_2585); 
{ /* Llib/error.scm 1124 */
 obj_t BgL_ncolz00_4282;
if(
(
(long)CINT(BgL_lpointz00_2584)>=BgL_lz00_4281))
{ /* Llib/error.scm 1125 */
BgL_ncolz00_4282 = 
BINT(BgL_lz00_4281); }  else 
{ /* Llib/error.scm 1125 */
BgL_ncolz00_4282 = BgL_lpointz00_2584; } 
{ /* Llib/error.scm 1125 */

BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_ncolz00_4282, BgL_lstringz00_2585, BgL_tabsz00_4279); 
return 
BGl_printzd2cursorzd2zz__errorz00(BgL_filez00_2582, BgL_lnumz00_2583, BgL_lpointz00_2584, BgL_lstringz00_2585, BgL_tabsz00_4279);} } } }  else 
{ /* Llib/error.scm 1141 */
 bool_t BgL_test3365z00_7567;
if(
STRINGP(BgL_filez00_2582))
{ /* Llib/error.scm 1141 */
BgL_test3365z00_7567 = 
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_lpointz00_2584)
; }  else 
{ /* Llib/error.scm 1141 */
BgL_test3365z00_7567 = ((bool_t)0)
; } 
if(BgL_test3365z00_7567)
{ /* Llib/error.scm 1141 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_lnumz00_2583))
{ /* Llib/error.scm 1143 */
 obj_t BgL_arg2031z00_2591; obj_t BgL_arg2032z00_2592;
{ /* Llib/error.scm 1143 */
 obj_t BgL_tmpz00_7573;
BgL_tmpz00_7573 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2031z00_2591 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7573); } 
{ /* Llib/error.scm 1145 */

BgL_arg2032z00_2592 = 
BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_filez00_2582, 255L); } 
{ /* Llib/error.scm 1143 */
 obj_t BgL_list2033z00_2593;
{ /* Llib/error.scm 1143 */
 obj_t BgL_arg2034z00_2594;
{ /* Llib/error.scm 1143 */
 obj_t BgL_arg2036z00_2595;
BgL_arg2036z00_2595 = 
MAKE_YOUNG_PAIR(BgL_lpointz00_2584, BNIL); 
BgL_arg2034z00_2594 = 
MAKE_YOUNG_PAIR(BgL_lnumz00_2583, BgL_arg2036z00_2595); } 
BgL_list2033z00_2593 = 
MAKE_YOUNG_PAIR(BgL_arg2032z00_2592, BgL_arg2034z00_2594); } 
return 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_arg2031z00_2591, BGl_string2889z00zz__errorz00, BgL_list2033z00_2593);} }  else 
{ /* Llib/error.scm 1148 */
 obj_t BgL_arg2037z00_2598; obj_t BgL_arg2038z00_2599;
{ /* Llib/error.scm 1148 */
 obj_t BgL_tmpz00_7581;
BgL_tmpz00_7581 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2037z00_2598 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7581); } 
{ /* Llib/error.scm 1150 */

BgL_arg2038z00_2599 = 
BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_filez00_2582, 255L); } 
{ /* Llib/error.scm 1148 */
 obj_t BgL_list2039z00_2600;
{ /* Llib/error.scm 1148 */
 obj_t BgL_arg2040z00_2601;
BgL_arg2040z00_2601 = 
MAKE_YOUNG_PAIR(BgL_lpointz00_2584, BNIL); 
BgL_list2039z00_2600 = 
MAKE_YOUNG_PAIR(BgL_arg2038z00_2599, BgL_arg2040z00_2601); } 
return 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_arg2037z00_2598, BGl_string2890z00zz__errorz00, BgL_list2039z00_2600);} } }  else 
{ /* Llib/error.scm 1153 */
 obj_t BgL_arg2041z00_2604;
BgL_arg2041z00_2604 = 
CDR(
((obj_t)BgL_stackz00_2566)); 
{ 
 obj_t BgL_stackz00_7590;
BgL_stackz00_7590 = BgL_arg2041z00_2604; 
BgL_stackz00_2566 = BgL_stackz00_7590; 
goto BgL_zc3z04anonymousza32017ze3z87_2567;} } } } } } }  else 
{ 
 obj_t BgL_stackz00_7593;
BgL_stackz00_7593 = 
CDR(BgL_stackz00_2566); 
BgL_stackz00_2566 = BgL_stackz00_7593; 
goto BgL_zc3z04anonymousza32017ze3z87_2567;} } }  else 
{ 
 obj_t BgL_stackz00_7595;
BgL_stackz00_7595 = 
CDR(BgL_stackz00_2566); 
BgL_stackz00_2566 = BgL_stackz00_7595; 
goto BgL_zc3z04anonymousza32017ze3z87_2567;} }  else 
{ 
 obj_t BgL_stackz00_7597;
BgL_stackz00_7597 = 
CDR(BgL_stackz00_2566); 
BgL_stackz00_2566 = BgL_stackz00_7597; 
goto BgL_zc3z04anonymousza32017ze3z87_2567;} } }  else 
{ /* Llib/error.scm 1132 */
return BFALSE;} } } 

}



/* &display-trace-stack-source */
obj_t BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00(obj_t BgL_envz00_5147, obj_t BgL_stackz00_5148, obj_t BgL_portz00_5149)
{
{ /* Llib/error.scm 1120 */
{ /* Llib/error.scm 1132 */
 obj_t BgL_auxz00_7599;
if(
OUTPUT_PORTP(BgL_portz00_5149))
{ /* Llib/error.scm 1132 */
BgL_auxz00_7599 = BgL_portz00_5149
; }  else 
{ 
 obj_t BgL_auxz00_7602;
BgL_auxz00_7602 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(44396L), BGl_string2891z00zz__errorz00, BGl_string2872z00zz__errorz00, BgL_portz00_5149); 
FAILURE(BgL_auxz00_7602,BFALSE,BFALSE);} 
return 
BGl_displayzd2tracezd2stackzd2sourcezd2zz__errorz00(BgL_stackz00_5148, BgL_auxz00_7599);} } 

}



/* dump-trace-stack */
BGL_EXPORTED_DEF obj_t BGl_dumpzd2tracezd2stackz00zz__errorz00(obj_t BgL_portz00_120, obj_t BgL_depthz00_121)
{
{ /* Llib/error.scm 1160 */
{ /* Llib/error.scm 1161 */
 obj_t BgL_arg2046z00_4307;
BgL_arg2046z00_4307 = 
BGl_getzd2tracezd2stackz00zz__errorz00(BgL_depthz00_121); 
{ /* Llib/error.scm 273 */

return 
BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg2046z00_4307, BgL_portz00_120, 
BINT(1L));} } } 

}



/* &dump-trace-stack */
obj_t BGl_z62dumpzd2tracezd2stackz62zz__errorz00(obj_t BgL_envz00_5150, obj_t BgL_portz00_5151, obj_t BgL_depthz00_5152)
{
{ /* Llib/error.scm 1160 */
return 
BGl_dumpzd2tracezd2stackz00zz__errorz00(BgL_portz00_5151, BgL_depthz00_5152);} 

}



/* fix-tabulation! */
obj_t BGl_fixzd2tabulationz12zc0zz__errorz00(obj_t BgL_markerz00_122, obj_t BgL_srcz00_123, obj_t BgL_dstz00_124)
{
{ /* Llib/error.scm 1166 */
{ /* Llib/error.scm 1167 */
 long BgL_g1136z00_2624;
BgL_g1136z00_2624 = 
(
(long)CINT(BgL_markerz00_122)-1L); 
{ 
 long BgL_readz00_2626;
BgL_readz00_2626 = BgL_g1136z00_2624; 
BgL_zc3z04anonymousza32047ze3z87_2627:
if(
(BgL_readz00_2626==-1L))
{ /* Llib/error.scm 1169 */
return BGl_symbol2892z00zz__errorz00;}  else 
{ /* Llib/error.scm 1169 */
if(
(
STRING_REF(
((obj_t)BgL_srcz00_123), BgL_readz00_2626)==((unsigned char)9)))
{ /* Llib/error.scm 1171 */
STRING_SET(BgL_dstz00_124, BgL_readz00_2626, ((unsigned char)9)); 
{ 
 long BgL_readz00_7620;
BgL_readz00_7620 = 
(BgL_readz00_2626-1L); 
BgL_readz00_2626 = BgL_readz00_7620; 
goto BgL_zc3z04anonymousza32047ze3z87_2627;} }  else 
{ 
 long BgL_readz00_7622;
BgL_readz00_7622 = 
(BgL_readz00_2626-1L); 
BgL_readz00_2626 = BgL_readz00_7622; 
goto BgL_zc3z04anonymousza32047ze3z87_2627;} } } } } 

}



/* print-cursor */
obj_t BGl_printzd2cursorzd2zz__errorz00(obj_t BgL_fnamez00_125, obj_t BgL_linez00_126, obj_t BgL_charz00_127, obj_t BgL_stringz00_128, obj_t BgL_spacezd2stringzd2_129)
{
{ /* Llib/error.scm 1180 */
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2055z00_2635; obj_t BgL_arg2056z00_2636;
{ /* Llib/error.scm 1181 */
 obj_t BgL_tmpz00_7624;
BgL_tmpz00_7624 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2055z00_2635 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7624); } 
{ /* Llib/error.scm 1182 */

BgL_arg2056z00_2636 = 
BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_fnamez00_125, 255L); } 
{ /* Llib/error.scm 1181 */
 obj_t BgL_list2057z00_2637;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2058z00_2638;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2059z00_2639;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2060z00_2640;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2061z00_2641;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2062z00_2642;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2063z00_2643;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2066z00_2644;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2067z00_2645;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2069z00_2646;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2070z00_2647;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2071z00_2648;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2072z00_2649;
{ /* Llib/error.scm 1181 */
 obj_t BgL_arg2073z00_2650;
BgL_arg2073z00_2650 = 
MAKE_YOUNG_PAIR(BGl_string2894z00zz__errorz00, BNIL); 
BgL_arg2072z00_2649 = 
MAKE_YOUNG_PAIR(BgL_spacezd2stringzd2_129, BgL_arg2073z00_2650); } 
BgL_arg2071z00_2648 = 
MAKE_YOUNG_PAIR(BGl_string2895z00zz__errorz00, BgL_arg2072z00_2649); } 
BgL_arg2070z00_2647 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)10)), BgL_arg2071z00_2648); } 
BgL_arg2069z00_2646 = 
MAKE_YOUNG_PAIR(BgL_stringz00_128, BgL_arg2070z00_2647); } 
BgL_arg2067z00_2645 = 
MAKE_YOUNG_PAIR(BGl_string2895z00zz__errorz00, BgL_arg2069z00_2646); } 
BgL_arg2066z00_2644 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)10)), BgL_arg2067z00_2645); } 
BgL_arg2063z00_2643 = 
MAKE_YOUNG_PAIR(BGl_string2820z00zz__errorz00, BgL_arg2066z00_2644); } 
BgL_arg2062z00_2642 = 
MAKE_YOUNG_PAIR(BgL_charz00_127, BgL_arg2063z00_2643); } 
BgL_arg2061z00_2641 = 
MAKE_YOUNG_PAIR(BGl_string2896z00zz__errorz00, BgL_arg2062z00_2642); } 
BgL_arg2060z00_2640 = 
MAKE_YOUNG_PAIR(BgL_linez00_126, BgL_arg2061z00_2641); } 
BgL_arg2059z00_2639 = 
MAKE_YOUNG_PAIR(BGl_string2897z00zz__errorz00, BgL_arg2060z00_2640); } 
BgL_arg2058z00_2638 = 
MAKE_YOUNG_PAIR(BgL_arg2056z00_2636, BgL_arg2059z00_2639); } 
BgL_list2057z00_2637 = 
MAKE_YOUNG_PAIR(BGl_string2852z00zz__errorz00, BgL_arg2058z00_2638); } 
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg2055z00_2635, BgL_list2057z00_2637);} } } 

}



/* relative-file-name */
obj_t BGl_relativezd2filezd2namez00zz__errorz00(obj_t BgL_fnamez00_130)
{
{ /* Llib/error.scm 1195 */
{ /* Llib/error.scm 1196 */
 obj_t BgL_pwdz00_2653; obj_t BgL_dnamez00_2654;
BgL_pwdz00_2653 = 
BGl_pwdz00zz__osz00(); 
BgL_dnamez00_2654 = 
BGl_dirnamez00zz__osz00(BgL_fnamez00_130); 
{ /* Llib/error.scm 1198 */
 bool_t BgL_test3371z00_7647;
if(
STRINGP(BgL_pwdz00_2653))
{ /* Llib/error.scm 1199 */
 bool_t BgL_test3373z00_7650;
{ /* Llib/error.scm 1199 */
 long BgL_l1z00_4325;
BgL_l1z00_4325 = 
STRING_LENGTH(BgL_dnamez00_2654); 
if(
(BgL_l1z00_4325==1L))
{ /* Llib/error.scm 1199 */
 int BgL_arg2302z00_4328;
{ /* Llib/error.scm 1199 */
 char * BgL_auxz00_7656; char * BgL_tmpz00_7654;
BgL_auxz00_7656 = 
BSTRING_TO_STRING(BGl_string2886z00zz__errorz00); 
BgL_tmpz00_7654 = 
BSTRING_TO_STRING(BgL_dnamez00_2654); 
BgL_arg2302z00_4328 = 
memcmp(BgL_tmpz00_7654, BgL_auxz00_7656, BgL_l1z00_4325); } 
BgL_test3373z00_7650 = 
(
(long)(BgL_arg2302z00_4328)==0L); }  else 
{ /* Llib/error.scm 1199 */
BgL_test3373z00_7650 = ((bool_t)0)
; } } 
if(BgL_test3373z00_7650)
{ /* Llib/error.scm 1199 */
BgL_test3371z00_7647 = ((bool_t)1)
; }  else 
{ /* Llib/error.scm 1199 */
if(
(
STRING_REF(
((obj_t)BgL_fnamez00_130), 0L)==((unsigned char)'/')))
{ /* Llib/error.scm 1200 */
BgL_test3371z00_7647 = ((bool_t)0)
; }  else 
{ /* Llib/error.scm 1200 */
BgL_test3371z00_7647 = ((bool_t)1)
; } } }  else 
{ /* Llib/error.scm 1198 */
BgL_test3371z00_7647 = ((bool_t)1)
; } 
if(BgL_test3371z00_7647)
{ /* Llib/error.scm 1198 */
return BgL_fnamez00_130;}  else 
{ /* Llib/error.scm 1203 */
 obj_t BgL_originalzd2cmpzd2pathz00_2661;
BgL_originalzd2cmpzd2pathz00_2661 = 
BGl_dirnamezd2ze3listz31zz__errorz00(BgL_dnamez00_2654); 
{ /* Llib/error.scm 1204 */
 obj_t BgL_g1137z00_2662;
BgL_g1137z00_2662 = 
BGl_dirnamezd2ze3listz31zz__errorz00(BgL_pwdz00_2653); 
{ 
 obj_t BgL_cmpzd2pathzd2_2664; obj_t BgL_curzd2pathzd2_2665;
BgL_cmpzd2pathzd2_2664 = BgL_originalzd2cmpzd2pathz00_2661; 
BgL_curzd2pathzd2_2665 = BgL_g1137z00_2662; 
BgL_zc3z04anonymousza32080ze3z87_2666:
if(
NULLP(BgL_cmpzd2pathzd2_2664))
{ /* Llib/error.scm 1207 */
if(
NULLP(BgL_curzd2pathzd2_2665))
{ /* Llib/error.scm 1208 */
return 
BGl_basenamez00zz__osz00(BgL_fnamez00_130);}  else 
{ /* Llib/error.scm 1211 */
 long BgL_g1138z00_2669; obj_t BgL_g1139z00_2670;
BgL_g1138z00_2669 = 
bgl_list_length(BgL_curzd2pathzd2_2665); 
BgL_g1139z00_2670 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_130); 
{ 
 long BgL_lenz00_2672; obj_t BgL_resz00_2673;
BgL_lenz00_2672 = BgL_g1138z00_2669; 
BgL_resz00_2673 = BgL_g1139z00_2670; 
BgL_zc3z04anonymousza32083ze3z87_2674:
if(
(BgL_lenz00_2672==0L))
{ /* Llib/error.scm 1213 */
return BgL_resz00_2673;}  else 
{ /* Llib/error.scm 1215 */
 long BgL_arg2085z00_2676; obj_t BgL_arg2086z00_2677;
BgL_arg2085z00_2676 = 
(BgL_lenz00_2672-1L); 
{ /* Llib/error.scm 1215 */
 obj_t BgL_list2087z00_2678;
{ /* Llib/error.scm 1215 */
 obj_t BgL_arg2088z00_2679;
BgL_arg2088z00_2679 = 
MAKE_YOUNG_PAIR(BgL_resz00_2673, BNIL); 
BgL_list2087z00_2678 = 
MAKE_YOUNG_PAIR(BGl_string2898z00zz__errorz00, BgL_arg2088z00_2679); } 
BgL_arg2086z00_2677 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2087z00_2678); } 
{ 
 obj_t BgL_resz00_7681; long BgL_lenz00_7680;
BgL_lenz00_7680 = BgL_arg2085z00_2676; 
BgL_resz00_7681 = BgL_arg2086z00_2677; 
BgL_resz00_2673 = BgL_resz00_7681; 
BgL_lenz00_2672 = BgL_lenz00_7680; 
goto BgL_zc3z04anonymousza32083ze3z87_2674;} } } } }  else 
{ /* Llib/error.scm 1207 */
if(
NULLP(BgL_curzd2pathzd2_2665))
{ /* Llib/error.scm 1217 */
 obj_t BgL_g1140z00_2682; obj_t BgL_g1141z00_2683;
BgL_g1140z00_2682 = 
bgl_reverse_bang(BgL_cmpzd2pathzd2_2664); 
BgL_g1141z00_2683 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_130); 
{ 
 obj_t BgL_pathz00_2685; obj_t BgL_resz00_2686;
BgL_pathz00_2685 = BgL_g1140z00_2682; 
BgL_resz00_2686 = BgL_g1141z00_2683; 
BgL_zc3z04anonymousza32090ze3z87_2687:
if(
NULLP(BgL_pathz00_2685))
{ /* Llib/error.scm 1219 */
return BgL_resz00_2686;}  else 
{ /* Llib/error.scm 1221 */
 obj_t BgL_arg2093z00_2689; obj_t BgL_arg2094z00_2690;
BgL_arg2093z00_2689 = 
CDR(
((obj_t)BgL_pathz00_2685)); 
{ /* Llib/error.scm 1222 */
 obj_t BgL_arg2095z00_2691;
BgL_arg2095z00_2691 = 
CAR(
((obj_t)BgL_pathz00_2685)); 
{ /* Llib/error.scm 1222 */
 obj_t BgL_list2096z00_2692;
{ /* Llib/error.scm 1222 */
 obj_t BgL_arg2097z00_2693;
{ /* Llib/error.scm 1222 */
 obj_t BgL_arg2098z00_2694;
BgL_arg2098z00_2694 = 
MAKE_YOUNG_PAIR(BgL_resz00_2686, BNIL); 
BgL_arg2097z00_2693 = 
MAKE_YOUNG_PAIR(BGl_string2899z00zz__errorz00, BgL_arg2098z00_2694); } 
BgL_list2096z00_2692 = 
MAKE_YOUNG_PAIR(BgL_arg2095z00_2691, BgL_arg2097z00_2693); } 
BgL_arg2094z00_2690 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2096z00_2692); } } 
{ 
 obj_t BgL_resz00_7697; obj_t BgL_pathz00_7696;
BgL_pathz00_7696 = BgL_arg2093z00_2689; 
BgL_resz00_7697 = BgL_arg2094z00_2690; 
BgL_resz00_2686 = BgL_resz00_7697; 
BgL_pathz00_2685 = BgL_pathz00_7696; 
goto BgL_zc3z04anonymousza32090ze3z87_2687;} } } }  else 
{ /* Llib/error.scm 1223 */
 bool_t BgL_test3381z00_7698;
{ /* Llib/error.scm 1223 */
 obj_t BgL_arg2122z00_2729; obj_t BgL_arg2123z00_2730;
BgL_arg2122z00_2729 = 
CAR(
((obj_t)BgL_curzd2pathzd2_2665)); 
BgL_arg2123z00_2730 = 
CAR(
((obj_t)BgL_cmpzd2pathzd2_2664)); 
{ /* Llib/error.scm 1223 */
 long BgL_l1z00_4345;
BgL_l1z00_4345 = 
STRING_LENGTH(
((obj_t)BgL_arg2122z00_2729)); 
if(
(BgL_l1z00_4345==
STRING_LENGTH(
((obj_t)BgL_arg2123z00_2730))))
{ /* Llib/error.scm 1223 */
 int BgL_arg2302z00_4348;
{ /* Llib/error.scm 1223 */
 char * BgL_auxz00_7712; char * BgL_tmpz00_7709;
BgL_auxz00_7712 = 
BSTRING_TO_STRING(
((obj_t)BgL_arg2123z00_2730)); 
BgL_tmpz00_7709 = 
BSTRING_TO_STRING(
((obj_t)BgL_arg2122z00_2729)); 
BgL_arg2302z00_4348 = 
memcmp(BgL_tmpz00_7709, BgL_auxz00_7712, BgL_l1z00_4345); } 
BgL_test3381z00_7698 = 
(
(long)(BgL_arg2302z00_4348)==0L); }  else 
{ /* Llib/error.scm 1223 */
BgL_test3381z00_7698 = ((bool_t)0)
; } } } 
if(BgL_test3381z00_7698)
{ /* Llib/error.scm 1224 */
 obj_t BgL_arg2102z00_2699; obj_t BgL_arg2103z00_2700;
BgL_arg2102z00_2699 = 
CDR(
((obj_t)BgL_cmpzd2pathzd2_2664)); 
BgL_arg2103z00_2700 = 
CDR(
((obj_t)BgL_curzd2pathzd2_2665)); 
{ 
 obj_t BgL_curzd2pathzd2_7723; obj_t BgL_cmpzd2pathzd2_7722;
BgL_cmpzd2pathzd2_7722 = BgL_arg2102z00_2699; 
BgL_curzd2pathzd2_7723 = BgL_arg2103z00_2700; 
BgL_curzd2pathzd2_2665 = BgL_curzd2pathzd2_7723; 
BgL_cmpzd2pathzd2_2664 = BgL_cmpzd2pathzd2_7722; 
goto BgL_zc3z04anonymousza32080ze3z87_2666;} }  else 
{ /* Llib/error.scm 1226 */
 obj_t BgL_g1142z00_2701; obj_t BgL_g1143z00_2702;
BgL_g1142z00_2701 = 
bgl_reverse(BgL_cmpzd2pathzd2_2664); 
BgL_g1143z00_2702 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_130); 
{ 
 obj_t BgL_pathz00_2704; obj_t BgL_resz00_2705;
BgL_pathz00_2704 = BgL_g1142z00_2701; 
BgL_resz00_2705 = BgL_g1143z00_2702; 
BgL_zc3z04anonymousza32104ze3z87_2706:
if(
NULLP(BgL_pathz00_2704))
{ /* Llib/error.scm 1228 */
if(
(BgL_cmpzd2pathzd2_2664==BgL_originalzd2cmpzd2pathz00_2661))
{ /* Llib/error.scm 1230 */
 obj_t BgL_list2107z00_2709;
{ /* Llib/error.scm 1230 */
 obj_t BgL_arg2108z00_2710;
BgL_arg2108z00_2710 = 
MAKE_YOUNG_PAIR(BgL_resz00_2705, BNIL); 
BgL_list2107z00_2709 = 
MAKE_YOUNG_PAIR(BGl_string2899z00zz__errorz00, BgL_arg2108z00_2710); } 
BGL_TAIL return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2107z00_2709);}  else 
{ /* Llib/error.scm 1231 */
 long BgL_g1144z00_2711;
BgL_g1144z00_2711 = 
bgl_list_length(BgL_curzd2pathzd2_2665); 
{ 
 long BgL_lenz00_2713; obj_t BgL_resz00_2714;
BgL_lenz00_2713 = BgL_g1144z00_2711; 
BgL_resz00_2714 = BgL_resz00_2705; 
BgL_zc3z04anonymousza32109ze3z87_2715:
if(
(BgL_lenz00_2713==0L))
{ /* Llib/error.scm 1233 */
return BgL_resz00_2714;}  else 
{ /* Llib/error.scm 1235 */
 long BgL_arg2111z00_2717; obj_t BgL_arg2112z00_2718;
BgL_arg2111z00_2717 = 
(BgL_lenz00_2713-1L); 
{ /* Llib/error.scm 1236 */
 obj_t BgL_list2113z00_2719;
{ /* Llib/error.scm 1236 */
 obj_t BgL_arg2114z00_2720;
BgL_arg2114z00_2720 = 
MAKE_YOUNG_PAIR(BgL_resz00_2714, BNIL); 
BgL_list2113z00_2719 = 
MAKE_YOUNG_PAIR(BGl_string2898z00zz__errorz00, BgL_arg2114z00_2720); } 
BgL_arg2112z00_2718 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2113z00_2719); } 
{ 
 obj_t BgL_resz00_7741; long BgL_lenz00_7740;
BgL_lenz00_7740 = BgL_arg2111z00_2717; 
BgL_resz00_7741 = BgL_arg2112z00_2718; 
BgL_resz00_2714 = BgL_resz00_7741; 
BgL_lenz00_2713 = BgL_lenz00_7740; 
goto BgL_zc3z04anonymousza32109ze3z87_2715;} } } } }  else 
{ /* Llib/error.scm 1237 */
 obj_t BgL_arg2115z00_2722; obj_t BgL_arg2116z00_2723;
BgL_arg2115z00_2722 = 
CDR(
((obj_t)BgL_pathz00_2704)); 
{ /* Llib/error.scm 1238 */
 obj_t BgL_arg2117z00_2724;
BgL_arg2117z00_2724 = 
CAR(
((obj_t)BgL_pathz00_2704)); 
{ /* Llib/error.scm 1238 */
 obj_t BgL_list2118z00_2725;
{ /* Llib/error.scm 1238 */
 obj_t BgL_arg2119z00_2726;
{ /* Llib/error.scm 1238 */
 obj_t BgL_arg2120z00_2727;
BgL_arg2120z00_2727 = 
MAKE_YOUNG_PAIR(BgL_resz00_2705, BNIL); 
BgL_arg2119z00_2726 = 
MAKE_YOUNG_PAIR(BGl_string2899z00zz__errorz00, BgL_arg2120z00_2727); } 
BgL_list2118z00_2725 = 
MAKE_YOUNG_PAIR(BgL_arg2117z00_2724, BgL_arg2119z00_2726); } 
BgL_arg2116z00_2723 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2118z00_2725); } } 
{ 
 obj_t BgL_resz00_7751; obj_t BgL_pathz00_7750;
BgL_pathz00_7750 = BgL_arg2115z00_2722; 
BgL_resz00_7751 = BgL_arg2116z00_2723; 
BgL_resz00_2705 = BgL_resz00_7751; 
BgL_pathz00_2704 = BgL_pathz00_7750; 
goto BgL_zc3z04anonymousza32104ze3z87_2706;} } } } } } } } } } } } 

}



/* uncygdrive */
obj_t BGl_uncygdrivez00zz__errorz00(obj_t BgL_strz00_131)
{
{ /* Llib/error.scm 1246 */
if(
bigloo_strncmp(BGl_string2900z00zz__errorz00, BgL_strz00_131, 10L))
{ /* Llib/error.scm 1248 */
 bool_t BgL_test3387z00_7754;
if(
(
STRING_LENGTH(BgL_strz00_131)>12L))
{ /* Llib/error.scm 1249 */
 bool_t BgL_test3389z00_7758;
{ /* Llib/error.scm 1249 */
 unsigned char BgL_tmpz00_7759;
BgL_tmpz00_7759 = 
STRING_REF(BgL_strz00_131, 10L); 
BgL_test3389z00_7758 = 
isalpha(BgL_tmpz00_7759); } 
if(BgL_test3389z00_7758)
{ /* Llib/error.scm 1249 */
BgL_test3387z00_7754 = 
(
STRING_REF(BgL_strz00_131, 11L)==((unsigned char)'/'))
; }  else 
{ /* Llib/error.scm 1249 */
BgL_test3387z00_7754 = ((bool_t)0)
; } }  else 
{ /* Llib/error.scm 1248 */
BgL_test3387z00_7754 = ((bool_t)0)
; } 
if(BgL_test3387z00_7754)
{ /* Llib/error.scm 1251 */
 obj_t BgL_arg2134z00_2745; obj_t BgL_arg2135z00_2746;
{ /* Llib/error.scm 1251 */
 unsigned char BgL_arg2138z00_2749;
BgL_arg2138z00_2749 = 
STRING_REF(BgL_strz00_131, 10L); 
{ /* Llib/error.scm 1251 */
 obj_t BgL_list2139z00_2750;
{ /* Llib/error.scm 1251 */
 obj_t BgL_arg2140z00_2751;
{ /* Llib/error.scm 1251 */
 obj_t BgL_arg2141z00_2752;
BgL_arg2141z00_2752 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)'/')), BNIL); 
BgL_arg2140z00_2751 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)':')), BgL_arg2141z00_2752); } 
BgL_list2139z00_2750 = 
MAKE_YOUNG_PAIR(
BCHAR(BgL_arg2138z00_2749), BgL_arg2140z00_2751); } 
BgL_arg2134z00_2745 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list2139z00_2750); } } 
BgL_arg2135z00_2746 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_131, 12L, 
STRING_LENGTH(BgL_strz00_131)); 
{ /* Llib/error.scm 1251 */
 obj_t BgL_list2136z00_2747;
{ /* Llib/error.scm 1251 */
 obj_t BgL_arg2137z00_2748;
BgL_arg2137z00_2748 = 
MAKE_YOUNG_PAIR(BgL_arg2135z00_2746, BNIL); 
BgL_list2136z00_2747 = 
MAKE_YOUNG_PAIR(BgL_arg2134z00_2745, BgL_arg2137z00_2748); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2136z00_2747);} }  else 
{ /* Llib/error.scm 1248 */
return BgL_strz00_131;} }  else 
{ /* Llib/error.scm 1247 */
return BgL_strz00_131;} } 

}



/* dirname->list */
obj_t BGl_dirnamezd2ze3listz31zz__errorz00(obj_t BgL_pathz00_132)
{
{ /* Llib/error.scm 1259 */
{ /* Llib/error.scm 1260 */
 long BgL_lenz00_2759; long BgL_initz00_2760;
{ /* Llib/error.scm 1260 */
 long BgL_lenz00_2782;
BgL_lenz00_2782 = 
STRING_LENGTH(
((obj_t)BgL_pathz00_132)); 
if(
(
STRING_REF(
((obj_t)BgL_pathz00_132), 
(BgL_lenz00_2782-1L))==
(unsigned char)(FILE_SEPARATOR)))
{ /* Llib/error.scm 1261 */
BgL_lenz00_2759 = 
(BgL_lenz00_2782-1L); }  else 
{ /* Llib/error.scm 1261 */
BgL_lenz00_2759 = BgL_lenz00_2782; } } 
if(
(
STRING_REF(
((obj_t)BgL_pathz00_132), 0L)==
(unsigned char)(FILE_SEPARATOR)))
{ /* Llib/error.scm 1264 */
BgL_initz00_2760 = 1L; }  else 
{ /* Llib/error.scm 1264 */
BgL_initz00_2760 = 0L; } 
{ /* Llib/error.scm 1265 */
 bool_t BgL_test3392z00_7791;
{ /* Llib/error.scm 1265 */
 long BgL_l1z00_4383;
BgL_l1z00_4383 = 
STRING_LENGTH(
((obj_t)BgL_pathz00_132)); 
if(
(BgL_l1z00_4383==1L))
{ /* Llib/error.scm 1265 */
 int BgL_arg2302z00_4386;
{ /* Llib/error.scm 1265 */
 char * BgL_auxz00_7799; char * BgL_tmpz00_7796;
BgL_auxz00_7799 = 
BSTRING_TO_STRING(BGl_string2899z00zz__errorz00); 
BgL_tmpz00_7796 = 
BSTRING_TO_STRING(
((obj_t)BgL_pathz00_132)); 
BgL_arg2302z00_4386 = 
memcmp(BgL_tmpz00_7796, BgL_auxz00_7799, BgL_l1z00_4383); } 
BgL_test3392z00_7791 = 
(
(long)(BgL_arg2302z00_4386)==0L); }  else 
{ /* Llib/error.scm 1265 */
BgL_test3392z00_7791 = ((bool_t)0)
; } } 
if(BgL_test3392z00_7791)
{ /* Llib/error.scm 1265 */
return BNIL;}  else 
{ 
 long BgL_readz00_2764; long BgL_prevz00_2765; obj_t BgL_listz00_2766;
BgL_readz00_2764 = BgL_initz00_2760; 
BgL_prevz00_2765 = BgL_initz00_2760; 
BgL_listz00_2766 = BNIL; 
BgL_zc3z04anonymousza32147ze3z87_2767:
if(
(BgL_readz00_2764==BgL_lenz00_2759))
{ /* Llib/error.scm 1272 */
 obj_t BgL_arg2149z00_2769;
BgL_arg2149z00_2769 = 
MAKE_YOUNG_PAIR(
BGl_substringz00zz__r4_strings_6_7z00(BgL_pathz00_132, BgL_prevz00_2765, BgL_readz00_2764), BgL_listz00_2766); 
return 
bgl_reverse_bang(BgL_arg2149z00_2769);}  else 
{ /* Llib/error.scm 1271 */
if(
(
STRING_REF(
((obj_t)BgL_pathz00_132), BgL_readz00_2764)==
(unsigned char)(FILE_SEPARATOR)))
{ /* Llib/error.scm 1274 */
 long BgL_arg2154z00_2774; long BgL_arg2155z00_2775; obj_t BgL_arg2156z00_2776;
BgL_arg2154z00_2774 = 
(BgL_readz00_2764+1L); 
BgL_arg2155z00_2775 = 
(BgL_readz00_2764+1L); 
BgL_arg2156z00_2776 = 
MAKE_YOUNG_PAIR(
BGl_substringz00zz__r4_strings_6_7z00(BgL_pathz00_132, BgL_prevz00_2765, BgL_readz00_2764), BgL_listz00_2766); 
{ 
 obj_t BgL_listz00_7820; long BgL_prevz00_7819; long BgL_readz00_7818;
BgL_readz00_7818 = BgL_arg2154z00_2774; 
BgL_prevz00_7819 = BgL_arg2155z00_2775; 
BgL_listz00_7820 = BgL_arg2156z00_2776; 
BgL_listz00_2766 = BgL_listz00_7820; 
BgL_prevz00_2765 = BgL_prevz00_7819; 
BgL_readz00_2764 = BgL_readz00_7818; 
goto BgL_zc3z04anonymousza32147ze3z87_2767;} }  else 
{ 
 long BgL_readz00_7821;
BgL_readz00_7821 = 
(BgL_readz00_2764+1L); 
BgL_readz00_2764 = BgL_readz00_7821; 
goto BgL_zc3z04anonymousza32147ze3z87_2767;} } } } } } 

}



/* typeof */
BGL_EXPORTED_DEF obj_t bgl_typeof(obj_t BgL_objz00_133)
{
{ /* Llib/error.scm 1286 */
if(
INTEGERP(BgL_objz00_133))
{ /* Llib/error.scm 1288 */
return BGl_string2809z00zz__errorz00;}  else 
{ /* Llib/error.scm 1288 */
if(
REALP(BgL_objz00_133))
{ /* Llib/error.scm 1290 */
return BGl_string2901z00zz__errorz00;}  else 
{ /* Llib/error.scm 1290 */
if(
STRINGP(BgL_objz00_133))
{ /* Llib/error.scm 1292 */
return BGl_string2834z00zz__errorz00;}  else 
{ /* Llib/error.scm 1292 */
if(
SYMBOLP(BgL_objz00_133))
{ /* Llib/error.scm 1294 */
return BGl_string2902z00zz__errorz00;}  else 
{ /* Llib/error.scm 1294 */
if(
KEYWORDP(BgL_objz00_133))
{ /* Llib/error.scm 1296 */
return BGl_string2903z00zz__errorz00;}  else 
{ /* Llib/error.scm 1296 */
if(
CHARP(BgL_objz00_133))
{ /* Llib/error.scm 1298 */
return BGl_string2904z00zz__errorz00;}  else 
{ /* Llib/error.scm 1298 */
if(
BOOLEANP(BgL_objz00_133))
{ /* Llib/error.scm 1300 */
return BGl_string2905z00zz__errorz00;}  else 
{ /* Llib/error.scm 1300 */
if(
NULLP(BgL_objz00_133))
{ /* Llib/error.scm 1302 */
return BGl_string2906z00zz__errorz00;}  else 
{ /* Llib/error.scm 1302 */
if(
(BgL_objz00_133==BUNSPEC))
{ /* Llib/error.scm 1304 */
return BGl_string2907z00zz__errorz00;}  else 
{ /* Llib/error.scm 1304 */
if(
EPAIRP(BgL_objz00_133))
{ /* Llib/error.scm 1306 */
return BGl_string2908z00zz__errorz00;}  else 
{ /* Llib/error.scm 1306 */
if(
PAIRP(BgL_objz00_133))
{ /* Llib/error.scm 1308 */
return BGl_string2909z00zz__errorz00;}  else 
{ /* Llib/error.scm 1308 */
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_133))
{ /* Llib/error.scm 1310 */
return BGl_string2910z00zz__errorz00;}  else 
{ /* Llib/error.scm 1310 */
if(
VECTORP(BgL_objz00_133))
{ /* Llib/error.scm 1312 */
return BGl_string2911z00zz__errorz00;}  else 
{ /* Llib/error.scm 1312 */
if(
TVECTORP(BgL_objz00_133))
{ /* Llib/error.scm 1314 */
return BGl_string2912z00zz__errorz00;}  else 
{ /* Llib/error.scm 1314 */
if(
STRUCTP(BgL_objz00_133))
{ /* Llib/error.scm 1317 */
 obj_t BgL_arg2188z00_2810;
BgL_arg2188z00_2810 = 
SYMBOL_TO_STRING(
STRUCT_KEY(BgL_objz00_133)); 
{ /* Llib/error.scm 1317 */
 obj_t BgL_list2189z00_2811;
{ /* Llib/error.scm 1317 */
 obj_t BgL_arg2190z00_2812;
BgL_arg2190z00_2812 = 
MAKE_YOUNG_PAIR(BgL_arg2188z00_2810, BNIL); 
BgL_list2189z00_2811 = 
MAKE_YOUNG_PAIR(BGl_string2913z00zz__errorz00, BgL_arg2190z00_2812); } 
BGL_TAIL return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2189z00_2811);} }  else 
{ /* Llib/error.scm 1316 */
if(
PROCEDUREP(BgL_objz00_133))
{ /* Llib/error.scm 1318 */
return BGl_string2817z00zz__errorz00;}  else 
{ /* Llib/error.scm 1318 */
if(
INPUT_PORTP(BgL_objz00_133))
{ /* Llib/error.scm 1320 */
return BGl_string2914z00zz__errorz00;}  else 
{ /* Llib/error.scm 1320 */
if(
OUTPUT_PORTP(BgL_objz00_133))
{ /* Llib/error.scm 1322 */
return BGl_string2872z00zz__errorz00;}  else 
{ /* Llib/error.scm 1322 */
if(
BINARY_PORTP(BgL_objz00_133))
{ /* Llib/error.scm 1324 */
return BGl_string2915z00zz__errorz00;}  else 
{ /* Llib/error.scm 1324 */
if(
CELLP(BgL_objz00_133))
{ /* Llib/error.scm 1326 */
return BGl_string2916z00zz__errorz00;}  else 
{ /* Llib/error.scm 1326 */
if(
FOREIGNP(BgL_objz00_133))
{ /* Llib/error.scm 1329 */
 obj_t BgL_arg2198z00_2820;
{ /* Llib/error.scm 1329 */
 obj_t BgL_arg2202z00_2823;
BgL_arg2202z00_2823 = 
FOREIGN_ID(BgL_objz00_133); 
{ /* Llib/error.scm 1329 */
 obj_t BgL_arg2309z00_4405;
BgL_arg2309z00_4405 = 
SYMBOL_TO_STRING(BgL_arg2202z00_2823); 
BgL_arg2198z00_2820 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2309z00_4405); } } 
{ /* Llib/error.scm 1329 */
 obj_t BgL_list2199z00_2821;
{ /* Llib/error.scm 1329 */
 obj_t BgL_arg2201z00_2822;
BgL_arg2201z00_2822 = 
MAKE_YOUNG_PAIR(BgL_arg2198z00_2820, BNIL); 
BgL_list2199z00_2821 = 
MAKE_YOUNG_PAIR(BGl_string2917z00zz__errorz00, BgL_arg2201z00_2822); } 
BGL_TAIL return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2199z00_2821);} }  else 
{ /* Llib/error.scm 1328 */
if(
SOCKETP(BgL_objz00_133))
{ /* Llib/error.scm 1330 */
return BGl_string2918z00zz__errorz00;}  else 
{ /* Llib/error.scm 1330 */
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_133))
{ /* Llib/error.scm 1332 */
return BGl_string2919z00zz__errorz00;}  else 
{ /* Llib/error.scm 1332 */
if(
PROCESSP(BgL_objz00_133))
{ /* Llib/error.scm 1334 */
return BGl_string2920z00zz__errorz00;}  else 
{ /* Llib/error.scm 1334 */
if(
CUSTOMP(BgL_objz00_133))
{ /* Llib/error.scm 1336 */
return BGl_string2921z00zz__errorz00;}  else 
{ /* Llib/error.scm 1336 */
if(
OPAQUEP(BgL_objz00_133))
{ /* Llib/error.scm 1338 */
return BGl_string2922z00zz__errorz00;}  else 
{ /* Llib/error.scm 1338 */
if(
BGL_OBJECTP(BgL_objz00_133))
{ /* Llib/error.scm 1341 */
 obj_t BgL_classz00_2830;
{ /* Llib/error.scm 1341 */
 long BgL_arg2715z00_4407;
{ /* Llib/error.scm 1341 */
 long BgL_arg2716z00_4408;
BgL_arg2716z00_4408 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_objz00_133)); 
BgL_arg2715z00_4407 = 
(BgL_arg2716z00_4408-OBJECT_TYPE); } 
BgL_classz00_2830 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_arg2715z00_4407); } 
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_2830))
{ /* Llib/error.scm 1346 */
 obj_t BgL_symz00_2832;
BgL_symz00_2832 = 
BGl_classzd2namezd2zz__objectz00(BgL_classz00_2830); 
{ /* Llib/error.scm 1348 */
 obj_t BgL_arg2309z00_4415;
BgL_arg2309z00_4415 = 
SYMBOL_TO_STRING(BgL_symz00_2832); 
return 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2309z00_4415);} }  else 
{ /* Llib/error.scm 1345 */
return BGl_string2923z00zz__errorz00;} }  else 
{ /* Llib/error.scm 1340 */
if(
UCS2_STRINGP(BgL_objz00_133))
{ /* Llib/error.scm 1351 */
return BGl_string2924z00zz__errorz00;}  else 
{ /* Llib/error.scm 1351 */
if(
UCS2P(BgL_objz00_133))
{ /* Llib/error.scm 1353 */
return BGl_string2925z00zz__errorz00;}  else 
{ /* Llib/error.scm 1353 */
if(
ELONGP(BgL_objz00_133))
{ /* Llib/error.scm 1355 */
return BGl_string2926z00zz__errorz00;}  else 
{ /* Llib/error.scm 1355 */
if(
LLONGP(BgL_objz00_133))
{ /* Llib/error.scm 1357 */
return BGl_string2927z00zz__errorz00;}  else 
{ /* Llib/error.scm 1357 */
if(
BGL_MUTEXP(BgL_objz00_133))
{ /* Llib/error.scm 1359 */
return BGl_string2928z00zz__errorz00;}  else 
{ /* Llib/error.scm 1359 */
if(
BGL_CONDVARP(BgL_objz00_133))
{ /* Llib/error.scm 1361 */
return BGl_string2929z00zz__errorz00;}  else 
{ /* Llib/error.scm 1361 */
if(
BGL_DATEP(BgL_objz00_133))
{ /* Llib/error.scm 1363 */
return BGl_string2930z00zz__errorz00;}  else 
{ /* Llib/error.scm 1363 */
if(
BGL_HVECTORP(BgL_objz00_133))
{ /* Llib/error.scm 1366 */
 obj_t BgL_tagz00_2842;
BgL_tagz00_2842 = 
BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_objz00_133); 
{ /* Llib/error.scm 1367 */
 obj_t BgL__z00_2843; obj_t BgL__z00_2844; obj_t BgL__z00_2845;
{ /* Llib/error.scm 1368 */
 obj_t BgL_tmpz00_4416;
{ /* Llib/error.scm 1368 */
 int BgL_tmpz00_7914;
BgL_tmpz00_7914 = 
(int)(1L); 
BgL_tmpz00_4416 = 
BGL_MVALUES_VAL(BgL_tmpz00_7914); } 
{ /* Llib/error.scm 1368 */
 int BgL_tmpz00_7917;
BgL_tmpz00_7917 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7917, BUNSPEC); } 
BgL__z00_2843 = BgL_tmpz00_4416; } 
{ /* Llib/error.scm 1368 */
 obj_t BgL_tmpz00_4417;
{ /* Llib/error.scm 1368 */
 int BgL_tmpz00_7920;
BgL_tmpz00_7920 = 
(int)(2L); 
BgL_tmpz00_4417 = 
BGL_MVALUES_VAL(BgL_tmpz00_7920); } 
{ /* Llib/error.scm 1368 */
 int BgL_tmpz00_7923;
BgL_tmpz00_7923 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7923, BUNSPEC); } 
BgL__z00_2844 = BgL_tmpz00_4417; } 
{ /* Llib/error.scm 1368 */
 obj_t BgL_tmpz00_4418;
{ /* Llib/error.scm 1368 */
 int BgL_tmpz00_7926;
BgL_tmpz00_7926 = 
(int)(3L); 
BgL_tmpz00_4418 = 
BGL_MVALUES_VAL(BgL_tmpz00_7926); } 
{ /* Llib/error.scm 1368 */
 int BgL_tmpz00_7929;
BgL_tmpz00_7929 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7929, BUNSPEC); } 
BgL__z00_2845 = BgL_tmpz00_4418; } 
{ /* Llib/error.scm 1368 */
 obj_t BgL_arg2219z00_2846;
{ /* Llib/error.scm 1368 */
 obj_t BgL_arg2309z00_4420;
BgL_arg2309z00_4420 = 
SYMBOL_TO_STRING(
((obj_t)BgL_tagz00_2842)); 
BgL_arg2219z00_2846 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2309z00_4420); } 
{ /* Llib/error.scm 1368 */
 obj_t BgL_list2220z00_2847;
{ /* Llib/error.scm 1368 */
 obj_t BgL_arg2221z00_2848;
BgL_arg2221z00_2848 = 
MAKE_YOUNG_PAIR(BGl_string2911z00zz__errorz00, BNIL); 
BgL_list2220z00_2847 = 
MAKE_YOUNG_PAIR(BgL_arg2219z00_2846, BgL_arg2221z00_2848); } 
BGL_TAIL return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2220z00_2847);} } } }  else 
{ /* Llib/error.scm 1365 */
if(
BIGNUMP(BgL_objz00_133))
{ /* Llib/error.scm 1369 */
return BGl_string2931z00zz__errorz00;}  else 
{ /* Llib/error.scm 1369 */
if(
BGL_MMAPP(BgL_objz00_133))
{ /* Llib/error.scm 1371 */
return BGl_string2932z00zz__errorz00;}  else 
{ /* Llib/error.scm 1371 */
if(
BGL_REGEXPP(BgL_objz00_133))
{ /* Llib/error.scm 1373 */
return BGl_string2933z00zz__errorz00;}  else 
{ /* Llib/error.scm 1373 */
if(
BGL_INT8P(BgL_objz00_133))
{ /* Llib/error.scm 1375 */
return BGl_string2934z00zz__errorz00;}  else 
{ /* Llib/error.scm 1375 */
if(
BGL_UINT8P(BgL_objz00_133))
{ /* Llib/error.scm 1377 */
return BGl_string2935z00zz__errorz00;}  else 
{ /* Llib/error.scm 1377 */
if(
BGL_INT16P(BgL_objz00_133))
{ /* Llib/error.scm 1379 */
return BGl_string2936z00zz__errorz00;}  else 
{ /* Llib/error.scm 1379 */
if(
BGL_UINT16P(BgL_objz00_133))
{ /* Llib/error.scm 1381 */
return BGl_string2937z00zz__errorz00;}  else 
{ /* Llib/error.scm 1381 */
if(
BGL_INT32P(BgL_objz00_133))
{ /* Llib/error.scm 1383 */
return BGl_string2938z00zz__errorz00;}  else 
{ /* Llib/error.scm 1383 */
if(
BGL_UINT32P(BgL_objz00_133))
{ /* Llib/error.scm 1385 */
return BGl_string2939z00zz__errorz00;}  else 
{ /* Llib/error.scm 1385 */
if(
BGL_INT64P(BgL_objz00_133))
{ /* Llib/error.scm 1387 */
return BGl_string2940z00zz__errorz00;}  else 
{ /* Llib/error.scm 1387 */
if(
BGL_UINT64P(BgL_objz00_133))
{ /* Llib/error.scm 1389 */
return BGl_string2941z00zz__errorz00;}  else 
{ /* Llib/error.scm 1389 */
if(
CNSTP(BgL_objz00_133))
{ /* Llib/error.scm 1391 */
return BGl_string2942z00zz__errorz00;}  else 
{ /* Llib/error.scm 1391 */
return 
string_to_bstring(
FOREIGN_TYPE_NAME(BgL_objz00_133));} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 

}



/* &typeof */
obj_t BGl_z62typeofz62zz__errorz00(obj_t BgL_envz00_5153, obj_t BgL_objz00_5154)
{
{ /* Llib/error.scm 1286 */
return 
bgl_typeof(BgL_objz00_5154);} 

}



/* find-runtime-type */
BGL_EXPORTED_DEF obj_t bgl_find_runtime_type(obj_t BgL_oz00_134)
{
{ /* Llib/error.scm 1399 */
BGL_TAIL return 
bgl_typeof(BgL_oz00_134);} 

}



/* &find-runtime-type */
obj_t BGl_z62findzd2runtimezd2typez62zz__errorz00(obj_t BgL_envz00_5155, obj_t BgL_oz00_5156)
{
{ /* Llib/error.scm 1399 */
return 
bgl_find_runtime_type(BgL_oz00_5156);} 

}



/* c-debugging-show-type */
BGL_EXPORTED_DEF char * bgl_show_type(obj_t BgL_objz00_135)
{
{ /* Llib/error.scm 1407 */
{ /* Llib/error.scm 1408 */
 obj_t BgL_tz00_4421;
BgL_tz00_4421 = 
bgl_typeof(BgL_objz00_135); 
{ /* Llib/error.scm 1409 */
 obj_t BgL_arg2234z00_4422;
{ /* Llib/error.scm 1409 */
 obj_t BgL_tmpz00_7968;
BgL_tmpz00_7968 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2234z00_4422 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7968); } 
{ /* Llib/error.scm 1409 */
 obj_t BgL_list2235z00_4423;
BgL_list2235z00_4423 = 
MAKE_YOUNG_PAIR(BgL_tz00_4421, BNIL); 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg2234z00_4422, BgL_list2235z00_4423); } } 
return 
BSTRING_TO_STRING(BgL_tz00_4421);} } 

}



/* &c-debugging-show-type */
obj_t BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00(obj_t BgL_envz00_5157, obj_t BgL_objz00_5158)
{
{ /* Llib/error.scm 1407 */
return 
string_to_bstring(
bgl_show_type(BgL_objz00_5158));} 

}



/* &try */
BGL_EXPORTED_DEF obj_t BGl_z62tryz62zz__errorz00(obj_t BgL_thunkz00_136, obj_t BgL_handlerz00_137)
{
{ /* Llib/error.scm 1415 */
BGL_TAIL return 
BGl_zc3z04exitza32236ze3ze70z60zz__errorz00(BgL_thunkz00_136, BgL_handlerz00_137);} 

}



/* <@exit:2236>~0 */
obj_t BGl_zc3z04exitza32236ze3ze70z60zz__errorz00(obj_t BgL_thunkz00_5186, obj_t BgL_handlerz00_5185)
{
{ /* Llib/error.scm 1416 */
jmp_buf_t jmpbuf; 
 void * BgL_an_exit1147z00_2865;
if( SET_EXIT(BgL_an_exit1147z00_2865 ) ) { 
return 
BGL_EXIT_VALUE();
} else {
#if( SIGSETJMP_SAVESIGS == 0 )
  // MS: CARE 5 jan 2021: see runtime/Clib/csystem.c
  // bgl_restore_signal_handlers();
#endif

BgL_an_exit1147z00_2865 = 
(void *)jmpbuf; 
{ /* Llib/error.scm 1416 */
 obj_t BgL_env1151z00_2866;
BgL_env1151z00_2866 = 
BGL_CURRENT_DYNAMIC_ENV(); 
PUSH_ENV_EXIT(BgL_env1151z00_2866, BgL_an_exit1147z00_2865, 1L); 
{ /* Llib/error.scm 1416 */
 obj_t BgL_an_exitd1148z00_2867;
BgL_an_exitd1148z00_2867 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1151z00_2866); 
{ /* Llib/error.scm 1416 */
 obj_t BgL_escz00_5159;
BgL_escz00_5159 = 
MAKE_FX_PROCEDURE(BGl_z62escz62zz__errorz00, 
(int)(1L), 
(int)(1L)); 
PROCEDURE_SET(BgL_escz00_5159, 
(int)(0L), BgL_an_exitd1148z00_2867); 
{ /* Llib/error.scm 1416 */
 obj_t BgL_res1150z00_2870;
{ /* Llib/error.scm 1419 */
 obj_t BgL_zc3z04anonymousza32238ze3z87_5160;
BgL_zc3z04anonymousza32238ze3z87_5160 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32238ze3ze5zz__errorz00, 
(int)(1L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32238ze3z87_5160, 
(int)(0L), BgL_an_exitd1148z00_2867); 
PROCEDURE_SET(BgL_zc3z04anonymousza32238ze3z87_5160, 
(int)(1L), BgL_handlerz00_5185); 
PROCEDURE_SET(BgL_zc3z04anonymousza32238ze3z87_5160, 
(int)(2L), BgL_escz00_5159); 
BgL_res1150z00_2870 = 
BGl_withzd2exceptionzd2handlerz00zz__errorz00(BgL_zc3z04anonymousza32238ze3z87_5160, BgL_thunkz00_5186); } 
POP_ENV_EXIT(BgL_env1151z00_2866); 
return BgL_res1150z00_2870;} } } } 
}} 

}



/* &&try */
obj_t BGl_z62z62tryz00zz__errorz00(obj_t BgL_envz00_5161, obj_t BgL_thunkz00_5162, obj_t BgL_handlerz00_5163)
{
{ /* Llib/error.scm 1415 */
{ /* Llib/error.scm 1416 */
 obj_t BgL_auxz00_8005; obj_t BgL_auxz00_7998;
if(
PROCEDUREP(BgL_handlerz00_5163))
{ /* Llib/error.scm 1416 */
BgL_auxz00_8005 = BgL_handlerz00_5163
; }  else 
{ 
 obj_t BgL_auxz00_8008;
BgL_auxz00_8008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(53696L), BGl_string2943z00zz__errorz00, BGl_string2817z00zz__errorz00, BgL_handlerz00_5163); 
FAILURE(BgL_auxz00_8008,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_thunkz00_5162))
{ /* Llib/error.scm 1416 */
BgL_auxz00_7998 = BgL_thunkz00_5162
; }  else 
{ 
 obj_t BgL_auxz00_8001;
BgL_auxz00_8001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(53696L), BGl_string2943z00zz__errorz00, BGl_string2817z00zz__errorz00, BgL_thunkz00_5162); 
FAILURE(BgL_auxz00_8001,BFALSE,BFALSE);} 
return 
BGl_z62tryz62zz__errorz00(BgL_auxz00_7998, BgL_auxz00_8005);} } 

}



/* &<@anonymous:2238> */
obj_t BGl_z62zc3z04anonymousza32238ze3ze5zz__errorz00(obj_t BgL_envz00_5164, obj_t BgL_ez00_5168)
{
{ /* Llib/error.scm 1418 */
{ /* Llib/error.scm 1419 */
 obj_t BgL_handlerz00_5166; obj_t BgL_escz00_5167;
BgL_handlerz00_5166 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_5164, 
(int)(1L))); 
BgL_escz00_5167 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_5164, 
(int)(2L))); 
{ /* Llib/error.scm 1419 */
 bool_t BgL_test3446z00_8019;
{ /* Llib/error.scm 1419 */
 obj_t BgL_classz00_5239;
BgL_classz00_5239 = BGl_z62errorz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_ez00_5168))
{ /* Llib/error.scm 1419 */
 BgL_objectz00_bglt BgL_arg2707z00_5240;
BgL_arg2707z00_5240 = 
(BgL_objectz00_bglt)(BgL_ez00_5168); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 1419 */
 long BgL_idxz00_5241;
BgL_idxz00_5241 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2707z00_5240); 
BgL_test3446z00_8019 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_5241+3L))==BgL_classz00_5239); }  else 
{ /* Llib/error.scm 1419 */
 bool_t BgL_res2744z00_5244;
{ /* Llib/error.scm 1419 */
 obj_t BgL_oclassz00_5245;
{ /* Llib/error.scm 1419 */
 long BgL_arg2715z00_5246;
{ /* Llib/error.scm 1419 */
 long BgL_arg2716z00_5247;
BgL_arg2716z00_5247 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2707z00_5240); 
BgL_arg2715z00_5246 = 
(BgL_arg2716z00_5247-OBJECT_TYPE); } 
BgL_oclassz00_5245 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_arg2715z00_5246); } 
{ /* Llib/error.scm 1419 */
 bool_t BgL__ortest_1198z00_5248;
BgL__ortest_1198z00_5248 = 
(BgL_classz00_5239==BgL_oclassz00_5245); 
if(BgL__ortest_1198z00_5248)
{ /* Llib/error.scm 1419 */
BgL_res2744z00_5244 = BgL__ortest_1198z00_5248; }  else 
{ /* Llib/error.scm 1419 */
 long BgL_odepthz00_5249;
BgL_odepthz00_5249 = 
BGL_CLASS_DEPTH(BgL_oclassz00_5245); 
if(
(3L<BgL_odepthz00_5249))
{ /* Llib/error.scm 1419 */
 obj_t BgL_arg2704z00_5250;
BgL_arg2704z00_5250 = 
BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_5245, 3L); 
BgL_res2744z00_5244 = 
(BgL_arg2704z00_5250==BgL_classz00_5239); }  else 
{ /* Llib/error.scm 1419 */
BgL_res2744z00_5244 = ((bool_t)0); } } } } 
BgL_test3446z00_8019 = BgL_res2744z00_5244; } }  else 
{ /* Llib/error.scm 1419 */
BgL_test3446z00_8019 = ((bool_t)0)
; } } 
if(BgL_test3446z00_8019)
{ /* Llib/error.scm 1419 */
{ /* Llib/error.scm 1421 */
 obj_t BgL_arg2240z00_5251; obj_t BgL_arg2241z00_5252; obj_t BgL_arg2242z00_5253;
BgL_arg2240z00_5251 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_ez00_5168)))->BgL_procz00); 
BgL_arg2241z00_5252 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_ez00_5168)))->BgL_msgz00); 
BgL_arg2242z00_5253 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_ez00_5168)))->BgL_objz00); 
(VA_PROCEDUREP( BgL_handlerz00_5166 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_handlerz00_5166))(BgL_handlerz00_5166, BgL_escz00_5167, BgL_arg2240z00_5251, BgL_arg2241z00_5252, BgL_arg2242z00_5253, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_handlerz00_5166))(BgL_handlerz00_5166, BgL_escz00_5167, BgL_arg2240z00_5251, BgL_arg2241z00_5252, BgL_arg2242z00_5253) ); } 
{ /* Llib/error.scm 1422 */
 obj_t BgL_list2243z00_5254;
BgL_list2243z00_5254 = 
MAKE_YOUNG_PAIR(
BINT(4L), BNIL); 
return 
BGl_exitz00zz__errorz00(BgL_list2243z00_5254);} }  else 
{ /* Llib/error.scm 1419 */
return 
BGl_raisez00zz__errorz00(BgL_ez00_5168);} } } } 

}



/* &esc */
obj_t BGl_z62escz62zz__errorz00(obj_t BgL_envz00_5169, obj_t BgL_val1149z00_5171)
{
{ /* Llib/error.scm 1416 */
return 
unwind_stack_until(
PROCEDURE_REF(BgL_envz00_5169, 
(int)(0L)), BFALSE, BgL_val1149z00_5171, BFALSE, BFALSE);} 

}



/* push-error-handler! */
BGL_EXPORTED_DEF obj_t BGl_pushzd2errorzd2handlerz12z12zz__errorz00(obj_t BgL_hdlz00_138, obj_t BgL_exitz00_139)
{
{ /* Llib/error.scm 1429 */
BGL_ERROR_HANDLER_PUSH(BgL_hdlz00_138, BgL_exitz00_139); 
return BUNSPEC;} 

}



/* &push-error-handler! */
obj_t BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00(obj_t BgL_envz00_5172, obj_t BgL_hdlz00_5173, obj_t BgL_exitz00_5174)
{
{ /* Llib/error.scm 1429 */
{ /* Llib/error.scm 1429 */
 obj_t BgL_auxz00_8060;
if(
PROCEDUREP(BgL_hdlz00_5173))
{ /* Llib/error.scm 1429 */
BgL_auxz00_8060 = BgL_hdlz00_5173
; }  else 
{ 
 obj_t BgL_auxz00_8063;
BgL_auxz00_8063 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(54117L), BGl_string2944z00zz__errorz00, BGl_string2817z00zz__errorz00, BgL_hdlz00_5173); 
FAILURE(BgL_auxz00_8063,BFALSE,BFALSE);} 
return 
BGl_pushzd2errorzd2handlerz12z12zz__errorz00(BgL_auxz00_8060, BgL_exitz00_5174);} } 

}



/* set-error-handler! */
BGL_EXPORTED_DEF obj_t BGl_setzd2errorzd2handlerz12z12zz__errorz00(obj_t BgL_ehdlz00_140)
{
{ /* Llib/error.scm 1435 */
BGL_ERROR_HANDLER_SET(BgL_ehdlz00_140); 
return BUNSPEC;} 

}



/* &set-error-handler! */
obj_t BGl_z62setzd2errorzd2handlerz12z70zz__errorz00(obj_t BgL_envz00_5175, obj_t BgL_ehdlz00_5176)
{
{ /* Llib/error.scm 1435 */
return 
BGl_setzd2errorzd2handlerz12z12zz__errorz00(BgL_ehdlz00_5176);} 

}



/* env-set-error-handler! */
BGL_EXPORTED_DEF obj_t BGl_envzd2setzd2errorzd2handlerz12zc0zz__errorz00(obj_t BgL_envz00_141, obj_t BgL_ehdlz00_142)
{
{ /* Llib/error.scm 1441 */
BGL_ENV_ERROR_HANDLER_SET(BgL_envz00_141, BgL_ehdlz00_142); 
return BUNSPEC;} 

}



/* &env-set-error-handler! */
obj_t BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00(obj_t BgL_envz00_5177, obj_t BgL_envz00_5178, obj_t BgL_ehdlz00_5179)
{
{ /* Llib/error.scm 1441 */
{ /* Llib/error.scm 1441 */
 obj_t BgL_auxz00_8071;
if(
BGL_DYNAMIC_ENVP(BgL_envz00_5178))
{ /* Llib/error.scm 1441 */
BgL_auxz00_8071 = BgL_envz00_5178
; }  else 
{ 
 obj_t BgL_auxz00_8074;
BgL_auxz00_8074 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(54717L), BGl_string2945z00zz__errorz00, BGl_string2946z00zz__errorz00, BgL_envz00_5178); 
FAILURE(BgL_auxz00_8074,BFALSE,BFALSE);} 
return 
BGl_envzd2setzd2errorzd2handlerz12zc0zz__errorz00(BgL_auxz00_8071, BgL_ehdlz00_5179);} } 

}



/* get-error-handler */
BGL_EXPORTED_DEF obj_t BGl_getzd2errorzd2handlerz00zz__errorz00(void)
{
{ /* Llib/error.scm 1447 */
return 
BGL_ERROR_HANDLER_GET();} 

}



/* &get-error-handler */
obj_t BGl_z62getzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5180)
{
{ /* Llib/error.scm 1447 */
return 
BGl_getzd2errorzd2handlerz00zz__errorz00();} 

}



/* env-get-error-handler */
BGL_EXPORTED_DEF obj_t BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(obj_t BgL_envz00_143)
{
{ /* Llib/error.scm 1453 */
return 
BGL_ENV_ERROR_HANDLER_GET(BgL_envz00_143);} 

}



/* &env-get-error-handler */
obj_t BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00(obj_t BgL_envz00_5181, obj_t BgL_envz00_5182)
{
{ /* Llib/error.scm 1453 */
{ /* Llib/error.scm 1454 */
 obj_t BgL_auxz00_8082;
if(
BGL_DYNAMIC_ENVP(BgL_envz00_5182))
{ /* Llib/error.scm 1454 */
BgL_auxz00_8082 = BgL_envz00_5182
; }  else 
{ 
 obj_t BgL_auxz00_8085;
BgL_auxz00_8085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(55357L), BGl_string2947z00zz__errorz00, BGl_string2946z00zz__errorz00, BgL_envz00_5182); 
FAILURE(BgL_auxz00_8085,BFALSE,BFALSE);} 
return 
BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(BgL_auxz00_8082);} } 

}



/* notify-interrupt */
BGL_EXPORTED_DEF obj_t BGl_notifyzd2interruptzd2zz__errorz00(int BgL_sigz00_144)
{
{ /* Llib/error.scm 1459 */
{ /* Llib/error.scm 1460 */
 obj_t BgL_notifyz00_4456;
BgL_notifyz00_4456 = 
BGL_INTERRUPT_NOTIFIER_GET(); 
if(
PROCEDUREP(BgL_notifyz00_4456))
{ /* Llib/error.scm 1461 */
return 
(VA_PROCEDUREP( BgL_notifyz00_4456 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_notifyz00_4456))(BgL_notifyz00_4456, 
BINT(BgL_sigz00_144), BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_notifyz00_4456))(BgL_notifyz00_4456, 
BINT(BgL_sigz00_144)) );}  else 
{ /* Llib/error.scm 1461 */
BGL_TAIL return 
BGl_defaultzd2interruptzd2notifierz00zz__errorz00(BgL_sigz00_144);} } } 

}



/* &notify-interrupt */
obj_t BGl_z62notifyzd2interruptzb0zz__errorz00(obj_t BgL_envz00_5183, obj_t BgL_sigz00_5184)
{
{ /* Llib/error.scm 1459 */
{ /* Llib/error.scm 1460 */
 int BgL_auxz00_8099;
{ /* Llib/error.scm 1460 */
 obj_t BgL_tmpz00_8100;
if(
INTEGERP(BgL_sigz00_5184))
{ /* Llib/error.scm 1460 */
BgL_tmpz00_8100 = BgL_sigz00_5184
; }  else 
{ 
 obj_t BgL_auxz00_8103;
BgL_auxz00_8103 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2807z00zz__errorz00, 
BINT(55644L), BGl_string2948z00zz__errorz00, BGl_string2809z00zz__errorz00, BgL_sigz00_5184); 
FAILURE(BgL_auxz00_8103,BFALSE,BFALSE);} 
BgL_auxz00_8099 = 
CINT(BgL_tmpz00_8100); } 
return 
BGl_notifyzd2interruptzd2zz__errorz00(BgL_auxz00_8099);} } 

}



/* default-interrupt-notifier */
obj_t BGl_defaultzd2interruptzd2notifierz00zz__errorz00(int BgL_sigz00_145)
{
{ /* Llib/error.scm 1469 */
{ /* Llib/error.scm 1470 */
 obj_t BgL_portz00_2883;
{ /* Llib/error.scm 1470 */
 obj_t BgL_tmpz00_8109;
BgL_tmpz00_8109 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2883 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8109); } 
{ /* Llib/error.scm 1471 */
 obj_t BgL_list2245z00_2884;
BgL_list2245z00_2884 = 
MAKE_YOUNG_PAIR(BgL_portz00_2883, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2245z00_2884); } 
{ /* Llib/error.scm 1472 */
 obj_t BgL_list2246z00_2885;
BgL_list2246z00_2885 = 
MAKE_YOUNG_PAIR(BGl_string2949z00zz__errorz00, BNIL); 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_2883, BgL_list2246z00_2885); } 
return 
bgl_flush_output_port(BgL_portz00_2883);} } 

}



/* &sigfpe-error-handler */
obj_t BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5014, obj_t BgL_nz00_5015)
{
{ /* Llib/error.scm 1478 */
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_arg1516z00_5255;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1079z00_5256;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1078z00_5257;
BgL_new1078z00_5257 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 546 */
 long BgL_arg1520z00_5258;
BgL_arg1520z00_5258 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_5257), BgL_arg1520z00_5258); } 
BgL_new1079z00_5256 = BgL_new1078z00_5257; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5256)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5256)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8125;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1518z00_5259;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1519z00_5260;
{ /* Llib/error.scm 546 */
 obj_t BgL_classz00_5261;
BgL_classz00_5261 = BGl_z62errorz62zz__objectz00; 
BgL_arg1519z00_5260 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5261); } 
BgL_arg1518z00_5259 = 
VECTOR_REF(BgL_arg1519z00_5260,2L); } 
BgL_auxz00_8125 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1518z00_5259); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5256)))->BgL_stackz00)=((obj_t)BgL_auxz00_8125),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5256))->BgL_procz00)=((obj_t)BGl_string2950z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5256))->BgL_msgz00)=((obj_t)BGl_string2951z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5256))->BgL_objz00)=((obj_t)BGl_string2952z00zz__errorz00),BUNSPEC); 
BgL_arg1516z00_5255 = BgL_new1079z00_5256; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1516z00_5255));} } 

}



/* &sigill-error-handler */
obj_t BGl_z62sigillzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5016, obj_t BgL_nz00_5017)
{
{ /* Llib/error.scm 1484 */
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_arg1516z00_5262;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1079z00_5263;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1078z00_5264;
BgL_new1078z00_5264 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 546 */
 long BgL_arg1520z00_5265;
BgL_arg1520z00_5265 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_5264), BgL_arg1520z00_5265); } 
BgL_new1079z00_5263 = BgL_new1078z00_5264; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5263)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5263)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8144;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1518z00_5266;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1519z00_5267;
{ /* Llib/error.scm 546 */
 obj_t BgL_classz00_5268;
BgL_classz00_5268 = BGl_z62errorz62zz__objectz00; 
BgL_arg1519z00_5267 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5268); } 
BgL_arg1518z00_5266 = 
VECTOR_REF(BgL_arg1519z00_5267,2L); } 
BgL_auxz00_8144 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1518z00_5266); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5263)))->BgL_stackz00)=((obj_t)BgL_auxz00_8144),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5263))->BgL_procz00)=((obj_t)BGl_string2953z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5263))->BgL_msgz00)=((obj_t)BGl_string2954z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5263))->BgL_objz00)=((obj_t)BGl_string2952z00zz__errorz00),BUNSPEC); 
BgL_arg1516z00_5262 = BgL_new1079z00_5263; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1516z00_5262));} } 

}



/* &sigbus-error-handler */
obj_t BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5018, obj_t BgL_nz00_5019)
{
{ /* Llib/error.scm 1490 */
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_arg1516z00_5269;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1079z00_5270;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1078z00_5271;
BgL_new1078z00_5271 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 546 */
 long BgL_arg1520z00_5272;
BgL_arg1520z00_5272 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_5271), BgL_arg1520z00_5272); } 
BgL_new1079z00_5270 = BgL_new1078z00_5271; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5270)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5270)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8163;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1518z00_5273;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1519z00_5274;
{ /* Llib/error.scm 546 */
 obj_t BgL_classz00_5275;
BgL_classz00_5275 = BGl_z62errorz62zz__objectz00; 
BgL_arg1519z00_5274 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5275); } 
BgL_arg1518z00_5273 = 
VECTOR_REF(BgL_arg1519z00_5274,2L); } 
BgL_auxz00_8163 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1518z00_5273); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5270)))->BgL_stackz00)=((obj_t)BgL_auxz00_8163),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5270))->BgL_procz00)=((obj_t)BGl_string2953z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5270))->BgL_msgz00)=((obj_t)BGl_string2955z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5270))->BgL_objz00)=((obj_t)BGl_string2952z00zz__errorz00),BUNSPEC); 
BgL_arg1516z00_5269 = BgL_new1079z00_5270; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1516z00_5269));} } 

}



/* &sigsegv-error-handler */
obj_t BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5020, obj_t BgL_nz00_5021)
{
{ /* Llib/error.scm 1496 */
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_arg1516z00_5276;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1079z00_5277;
{ /* Llib/error.scm 546 */
 BgL_z62errorz62_bglt BgL_new1078z00_5278;
BgL_new1078z00_5278 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 546 */
 long BgL_arg1520z00_5279;
BgL_arg1520z00_5279 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_5278), BgL_arg1520z00_5279); } 
BgL_new1079z00_5277 = BgL_new1078z00_5278; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5277)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5277)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8182;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1518z00_5280;
{ /* Llib/error.scm 546 */
 obj_t BgL_arg1519z00_5281;
{ /* Llib/error.scm 546 */
 obj_t BgL_classz00_5282;
BgL_classz00_5282 = BGl_z62errorz62zz__objectz00; 
BgL_arg1519z00_5281 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5282); } 
BgL_arg1518z00_5280 = 
VECTOR_REF(BgL_arg1519z00_5281,2L); } 
BgL_auxz00_8182 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1518z00_5280); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5277)))->BgL_stackz00)=((obj_t)BgL_auxz00_8182),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5277))->BgL_procz00)=((obj_t)BGl_string2953z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5277))->BgL_msgz00)=((obj_t)BGl_string2956z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5277))->BgL_objz00)=((obj_t)BGl_string2952z00zz__errorz00),BUNSPEC); 
BgL_arg1516z00_5276 = BgL_new1079z00_5277; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1516z00_5276));} } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__errorz00(void)
{
{ /* Llib/error.scm 18 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__errorz00(void)
{
{ /* Llib/error.scm 18 */
return BUNSPEC;} 

}



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

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__errorz00(void)
{
{ /* Llib/error.scm 18 */
BGl_modulezd2initializa7ationz75zz__r4_input_6_10_2z00(323064722L, 
BSTRING_TO_STRING(BGl_string2957z00zz__errorz00)); 
return 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string2957z00zz__errorz00));} 

}

#ifdef __cplusplus
}
#endif
