/*===========================================================================*/
/*   (Llib/error.scm)                                                        */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/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;
static obj_t BGl_relativeze70ze7zz__errorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2errorzd2handlerz12z12zz__errorz00(obj_t);
static obj_t BGl_z62errorzd2notifyzb0zz__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_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);
static obj_t BGl_z62zc3z04anonymousza31936ze3ze5zz__errorz00(obj_t, 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);
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_z62setzd2errorzd2handlerz12z70zz__errorz00(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__bignumz00(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 long BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
extern obj_t BGl_za2classesza2z00zz__objectz00;
static obj_t BGl_symbol2911z00zz__errorz00 = BUNSPEC;
static obj_t BGl_z62indexzd2outzd2ofzd2bounds2844zb0zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31453ze3ze5zz__errorz00(obj_t, obj_t);
extern obj_t BGl_z62errorz62zz__objectz00;
extern obj_t BGl_z62iozd2sigpipezd2errorz62zz__objectz00;
extern bool_t fexists(char *);
extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
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_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);
static obj_t BGl_z62zc3z04anonymousza32256ze3ze5zz__errorz00(obj_t, obj_t);
extern obj_t unwind_stack_until(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_z62stackzd2overflowzd2errorz62zz__objectz00;
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_z62typezd2error2843zb0zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
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);
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_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t, 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);
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);
static obj_t BGl_symbol2948z00zz__errorz00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31901ze3ze5zz__errorz00(obj_t, obj_t);
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_z62stackzd2overflowzd2erro2841z62zz__errorz00(obj_t);
static obj_t BGl_z62zc3z04anonymousza31456ze3ze5zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62warningzf2czd2locationz42zz__errorz00(obj_t, obj_t, obj_t, obj_t);
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);
extern obj_t BGl_z62iozd2errorzb0zz__objectz00;
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_z62bigloozd2typezd2errorz62zz__errorz00(obj_t, obj_t, 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_symbol2957z00zz__errorz00 = BUNSPEC;
static obj_t BGl_symbol2959z00zz__errorz00 = BUNSPEC;
static obj_t BGl_z62errorzf2sourcez90zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2inheritancesza2z00zz__objectz00;
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_z62error2842z62zz__errorz00(obj_t, obj_t, obj_t, 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_locationzd2linezd2colze70ze7zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62findzd2runtimezd2typez62zz__errorz00(obj_t, obj_t);
static obj_t BGl_z62getzd2errorzd2handlerz62zz__errorz00(obj_t);
extern obj_t BGl_pwdz00zz__osz00(void);
static obj_t BGl_z62warning2845z62zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_printzd2cursorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31797ze3ze5zz__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);
static obj_t BGl_locationzd2atze70z35zz__errorz00(obj_t, obj_t);
static obj_t BGl_zc3z04exitza32254ze3ze70z60zz__errorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_errorzf2sourcezf2zz__errorz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_z62conditionz62zz__objectz00;
static obj_t BGl_z62the_failurez62zz__errorz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2979z00zz__errorz00 = BUNSPEC;
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);
extern obj_t bstring_to_symbol(obj_t);
static obj_t BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2981z00zz__errorz00 = BUNSPEC;
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_symbol2992z00zz__errorz00 = BUNSPEC;
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);
static obj_t BGl_z62zc3z04anonymousza31834ze3ze5zz__errorz00(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 obj_t BGl_zc3z04exitza31682ze3ze70z60zz__errorz00(obj_t, obj_t, obj_t);
static bool_t BGl_exceptionzd2locationzf3z21zz__errorz00(obj_t);
static obj_t BGl_z62zc3z04anonymousza31495ze3ze5zz__errorz00(obj_t, 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);
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);
extern long BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(long, 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;


BGL_DEFINE_STRING(BGl_string3010z00zz__errorz00, BgL_bgl_string3010za700za7za7_3057za7, "class", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_envzd2setzd2errorzd2handlerz12zd2envz12zz__errorz00, BgL_bgl_za762envza7d2setza7d2e3058za7, BGl_z62envzd2setzd2errorzd2handlerz12za2zz__errorz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3011z00zz__errorz00, BgL_bgl_string3011za700za7za7_3059za7, "tvector", 7 );
BGL_DEFINE_STRING(BGl_string3012z00zz__errorz00, BgL_bgl_string3012za700za7za7_3060za7, "struct:", 7 );
BGL_DEFINE_STRING(BGl_string3013z00zz__errorz00, BgL_bgl_string3013za700za7za7_3061za7, "input-port", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_the_failurezd2envzd2zz__errorz00, BgL_bgl_za762the_failureza763062z00, BGl_z62the_failurez62zz__errorz00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string3014z00zz__errorz00, BgL_bgl_string3014za700za7za7_3063za7, "binary-port", 11 );
BGL_DEFINE_STRING(BGl_string3015z00zz__errorz00, BgL_bgl_string3015za700za7za7_3064za7, "cell", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2sourcezd2envz20zz__errorz00, BgL_bgl_za762errorza7f2sourc3065z00, BGl_z62errorzf2sourcez90zz__errorz00, 0L, BUNSPEC, 4);
BGL_DEFINE_STRING(BGl_string3016z00zz__errorz00, BgL_bgl_string3016za700za7za7_3066za7, "foreign:", 8 );
BGL_DEFINE_STRING(BGl_string3017z00zz__errorz00, BgL_bgl_string3017za700za7za7_3067za7, "socket", 6 );
BGL_DEFINE_STRING(BGl_string3018z00zz__errorz00, BgL_bgl_string3018za700za7za7_3068za7, "datagram-socket", 15 );
BGL_DEFINE_STRING(BGl_string3019z00zz__errorz00, BgL_bgl_string3019za700za7za7_3069za7, "process", 7 );
BGL_DEFINE_STRING(BGl_string2920z00zz__errorz00, BgL_bgl_string2920za700za7za7_3070za7, ":", 1 );
BGL_DEFINE_STRING(BGl_string2921z00zz__errorz00, BgL_bgl_string2921za700za7za7_3071za7, ",", 1 );
BGL_DEFINE_STRING(BGl_string2922z00zz__errorz00, BgL_bgl_string2922za700za7za7_3072za7, "Llib/error.scm", 14 );
BGL_DEFINE_STRING(BGl_string2923z00zz__errorz00, BgL_bgl_string2923za700za7za7_3073za7, "when raising error: ", 20 );
BGL_DEFINE_STRING(BGl_string2924z00zz__errorz00, BgL_bgl_string2924za700za7za7_3074za7, "raise", 5 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2918z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3075za7, BGl_z62zc3z04anonymousza31456ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2925z00zz__errorz00, BgL_bgl_string2925za700za7za7_3076za7, "uncaught exception", 18 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_notifyzd2interruptzd2envz00zz__errorz00, BgL_bgl_za762notifyza7d2inte3077z00, BGl_z62notifyzd2interruptzb0zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2926z00zz__errorz00, BgL_bgl_string2926za700za7za7_3078za7, "' must be recompiled (see also -unsafev option).", 48 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_raisezd2envzd2zz__errorz00, BgL_bgl_za762raiseza762za7za7__e3079z00, BGl_z62raisez62zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2927z00zz__errorz00, BgL_bgl_string2927za700za7za7_3080za7, "At least `", 10 );
BGL_DEFINE_STRING(BGl_string2928z00zz__errorz00, BgL_bgl_string2928za700za7za7_3081za7, "'.\n", 3 );
BGL_DEFINE_STRING(BGl_string2929z00zz__errorz00, BgL_bgl_string2929za700za7za7_3082za7, "' is inconsistently initialized by module `", 43 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzd2notifyzf2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7d2notif3083z00, BGl_z62errorzd2notifyzf2locationz42zz__errorz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl__getza7d2traceza7d2s3084z00, opt_generic_entry, BGl__getzd2tracezd2stackz00zz__errorz00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string3020z00zz__errorz00, BgL_bgl_string3020za700za7za7_3085za7, "custom", 6 );
BGL_DEFINE_STRING(BGl_string3021z00zz__errorz00, BgL_bgl_string3021za700za7za7_3086za7, "opaque", 6 );
BGL_DEFINE_STRING(BGl_string3022z00zz__errorz00, BgL_bgl_string3022za700za7za7_3087za7, "_", 1 );
BGL_DEFINE_STRING(BGl_string3023z00zz__errorz00, BgL_bgl_string3023za700za7za7_3088za7, "ucs2string", 10 );
BGL_DEFINE_STRING(BGl_string3024z00zz__errorz00, BgL_bgl_string3024za700za7za7_3089za7, "ucs2", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_currentzd2exceptionzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762currentza7d2exc3090z00, BGl_z62currentzd2exceptionzd2handlerz62zz__errorz00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string3025z00zz__errorz00, BgL_bgl_string3025za700za7za7_3091za7, "elong", 5 );
BGL_DEFINE_STRING(BGl_string3026z00zz__errorz00, BgL_bgl_string3026za700za7za7_3092za7, "llong", 5 );
BGL_DEFINE_STRING(BGl_string3027z00zz__errorz00, BgL_bgl_string3027za700za7za7_3093za7, "mutex", 5 );
BGL_DEFINE_STRING(BGl_string3028z00zz__errorz00, BgL_bgl_string3028za700za7za7_3094za7, "condvar", 7 );
BGL_DEFINE_STRING(BGl_string3029z00zz__errorz00, BgL_bgl_string3029za700za7za7_3095za7, "date", 4 );
BGL_DEFINE_STRING(BGl_string2930z00zz__errorz00, BgL_bgl_string2930za700za7za7_3096za7, "Module `", 8 );
BGL_DEFINE_STRING(BGl_string2931z00zz__errorz00, BgL_bgl_string2931za700za7za7_3097za7, ":Inconsistent module initialization\n", 36 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzd2notifyzd2envz00zz__errorz00, BgL_bgl_za762errorza7d2notif3098z00, BGl_z62errorzd2notifyzb0zz__errorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2sourcezd2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7f2sourc3099z00, BGl_z62errorzf2sourcezd2locationz42zz__errorz00, 0L, BUNSPEC, 4);
BGL_DEFINE_STRING(BGl_string2932z00zz__errorz00, BgL_bgl_string2932za700za7za7_3100za7, "*** ERROR:", 10 );
BGL_DEFINE_STRING(BGl_string2933z00zz__errorz00, BgL_bgl_string2933za700za7za7_3101za7, "&module-init-error", 18 );
BGL_DEFINE_STRING(BGl_string2934z00zz__errorz00, BgL_bgl_string2934za700za7za7_3102za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string2935z00zz__errorz00, BgL_bgl_string2935za700za7za7_3103za7, "&error/c-location", 17 );
BGL_DEFINE_STRING(BGl_string2936z00zz__errorz00, BgL_bgl_string2936za700za7za7_3104za7, "\" provided", 10 );
BGL_DEFINE_STRING(BGl_string2937z00zz__errorz00, BgL_bgl_string2937za700za7za7_3105za7, "\" expected, \"", 13 );
BGL_DEFINE_STRING(BGl_string2938z00zz__errorz00, BgL_bgl_string2938za700za7za7_3106za7, " \"", 2 );
BGL_DEFINE_STRING(BGl_string2939z00zz__errorz00, BgL_bgl_string2939za700za7za7_3107za7, "&bigloo-type-error-msg", 22 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_envzd2getzd2errorzd2handlerzd2envz00zz__errorz00, BgL_bgl_za762envza7d2getza7d2e3108za7, BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2typezd2errorzd2envzd2zz__errorz00, BgL_bgl_za762biglooza7d2type3109z00, BGl_z62bigloozd2typezd2errorz62zz__errorz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_pushzd2errorzd2handlerz12zd2envzc0zz__errorz00, BgL_bgl_za762pushza7d2errorza73110za7, BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string3030z00zz__errorz00, BgL_bgl_string3030za700za7za7_3111za7, "bignum", 6 );
BGL_DEFINE_STRING(BGl_string3031z00zz__errorz00, BgL_bgl_string3031za700za7za7_3112za7, "mmap", 4 );
BGL_DEFINE_STRING(BGl_string3032z00zz__errorz00, BgL_bgl_string3032za700za7za7_3113za7, "regexp", 6 );
BGL_DEFINE_STRING(BGl_string3033z00zz__errorz00, BgL_bgl_string3033za700za7za7_3114za7, "int8", 4 );
BGL_DEFINE_STRING(BGl_string3034z00zz__errorz00, BgL_bgl_string3034za700za7za7_3115za7, "uint8", 5 );
extern obj_t BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00;
BGL_DEFINE_STRING(BGl_string3035z00zz__errorz00, BgL_bgl_string3035za700za7za7_3116za7, "int16", 5 );
BGL_DEFINE_STRING(BGl_string3036z00zz__errorz00, BgL_bgl_string3036za700za7za7_3117za7, "uint16", 6 );
BGL_DEFINE_STRING(BGl_string3037z00zz__errorz00, BgL_bgl_string3037za700za7za7_3118za7, "int32", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_indexzd2outzd2ofzd2boundszd2errorzd2envzd2zz__errorz00, BgL_bgl_za762indexza7d2outza7d3119za7, BGl_z62indexzd2outzd2ofzd2bounds2844zb0zz__errorz00, 0L, BUNSPEC, 6);
BGL_DEFINE_STRING(BGl_string3038z00zz__errorz00, BgL_bgl_string3038za700za7za7_3120za7, "uint32", 6 );
BGL_DEFINE_STRING(BGl_string3039z00zz__errorz00, BgL_bgl_string3039za700za7za7_3121za7, "int64", 5 );
BGL_DEFINE_STRING(BGl_string2940z00zz__errorz00, BgL_bgl_string2940za700za7za7_3122za7, "\077\077?", 3 );
BGL_DEFINE_STRING(BGl_string2941z00zz__errorz00, BgL_bgl_string2941za700za7za7_3123za7, "Type", 4 );
BGL_DEFINE_STRING(BGl_string2942z00zz__errorz00, BgL_bgl_string2942za700za7za7_3124za7, "]", 1 );
BGL_DEFINE_STRING(BGl_string2943z00zz__errorz00, BgL_bgl_string2943za700za7za7_3125za7, " out of range [0..", 18 );
BGL_DEFINE_STRING(BGl_string2944z00zz__errorz00, BgL_bgl_string2944za700za7za7_3126za7, "index ", 6 );
BGL_DEFINE_STRING(BGl_string2945z00zz__errorz00, BgL_bgl_string2945za700za7za7_3127za7, "&index-out-of-bounds2844", 24 );
BGL_DEFINE_STRING(BGl_string2946z00zz__errorz00, BgL_bgl_string2946za700za7za7_3128za7, "&warning/c-location", 19 );
BGL_DEFINE_STRING(BGl_string2947z00zz__errorz00, BgL_bgl_string2947za700za7za7_3129za7, ":\n", 2 );
BGL_DEFINE_STRING(BGl_string2949z00zz__errorz00, BgL_bgl_string2949za700za7za7_3130za7, "%no-error-obj", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_modulezd2initzd2errorzd2envzd2zz__errorz00, BgL_bgl_za762moduleza7d2init3131z00, BGl_z62modulezd2initzd2errorz62zz__errorz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762getza7d2errorza7d3132za7, BGl_z62getzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2czd2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7f2cza7d2l3133za7, BGl_z62errorzf2czd2locationz42zz__errorz00, 0L, BUNSPEC, 5);
BGL_DEFINE_STRING(BGl_string3040z00zz__errorz00, BgL_bgl_string3040za700za7za7_3134za7, "uint64", 6 );
BGL_DEFINE_STRING(BGl_string3041z00zz__errorz00, BgL_bgl_string3041za700za7za7_3135za7, "bcnst", 5 );
BGL_DEFINE_STRING(BGl_string3042z00zz__errorz00, BgL_bgl_string3042za700za7za7_3136za7, "&&try", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2typezd2errorzf2locationzd2envz20zz__errorz00, BgL_bgl_za762biglooza7d2type3137z00, BGl_z62bigloozd2typezd2errorzf2locationz90zz__errorz00, 0L, BUNSPEC, 5);
BGL_DEFINE_STRING(BGl_string3043z00zz__errorz00, BgL_bgl_string3043za700za7za7_3138za7, "&push-error-handler!", 20 );
BGL_DEFINE_STRING(BGl_string3044z00zz__errorz00, BgL_bgl_string3044za700za7za7_3139za7, "&env-set-error-handler!", 23 );
BGL_DEFINE_STRING(BGl_string3045z00zz__errorz00, BgL_bgl_string3045za700za7za7_3140za7, "dynamic-env", 11 );
BGL_DEFINE_STRING(BGl_string3046z00zz__errorz00, BgL_bgl_string3046za700za7za7_3141za7, "&env-get-error-handler", 22 );
BGL_DEFINE_STRING(BGl_string3047z00zz__errorz00, BgL_bgl_string3047za700za7za7_3142za7, "&notify-interrupt", 17 );
BGL_DEFINE_STRING(BGl_string3048z00zz__errorz00, BgL_bgl_string3048za700za7za7_3143za7, "*** INTERRUPT:bigloo:", 21 );
BGL_DEFINE_STRING(BGl_string3049z00zz__errorz00, BgL_bgl_string3049za700za7za7_3144za7, "arithmetic procedure", 20 );
BGL_DEFINE_STRING(BGl_string2950z00zz__errorz00, BgL_bgl_string2950za700za7za7_3145za7, " -- ", 4 );
BGL_DEFINE_STRING(BGl_string2951z00zz__errorz00, BgL_bgl_string2951za700za7za7_3146za7, "\", character ", 13 );
BGL_DEFINE_STRING(BGl_string2952z00zz__errorz00, BgL_bgl_string2952za700za7za7_3147za7, "File \"", 6 );
BGL_DEFINE_STRING(BGl_string2953z00zz__errorz00, BgL_bgl_string2953za700za7za7_3148za7, "...", 3 );
BGL_DEFINE_STRING(BGl_string2954z00zz__errorz00, BgL_bgl_string2954za700za7za7_3149za7, "", 0 );
BGL_DEFINE_STRING(BGl_string2955z00zz__errorz00, BgL_bgl_string2955za700za7za7_3150za7, "stdin", 5 );
BGL_DEFINE_STRING(BGl_string2956z00zz__errorz00, BgL_bgl_string2956za700za7za7_3151za7, "string://", 9 );
BGL_DEFINE_STRING(BGl_string2958z00zz__errorz00, BgL_bgl_string2958za700za7za7_3152za7, "line-col", 8 );
BGL_DEFINE_STRING(BGl_string3050z00zz__errorz00, BgL_bgl_string3050za700za7za7_3153za7, "`floating point' exception", 26 );
BGL_DEFINE_STRING(BGl_string3051z00zz__errorz00, BgL_bgl_string3051za700za7za7_3154za7, "raised", 6 );
BGL_DEFINE_STRING(BGl_string3052z00zz__errorz00, BgL_bgl_string3052za700za7za7_3155za7, "bigloo", 6 );
BGL_DEFINE_STRING(BGl_string3053z00zz__errorz00, BgL_bgl_string3053za700za7za7_3156za7, "`illegal instruction' exception", 31 );
BGL_DEFINE_STRING(BGl_string3054z00zz__errorz00, BgL_bgl_string3054za700za7za7_3157za7, "`bus error' exception", 21 );
BGL_DEFINE_STRING(BGl_string3055z00zz__errorz00, BgL_bgl_string3055za700za7za7_3158za7, "`segmentation violation' exception", 34 );
BGL_DEFINE_STRING(BGl_string3056z00zz__errorz00, BgL_bgl_string3056za700za7za7_3159za7, "__error", 7 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigbusza7d2erro3160z00, BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2960z00zz__errorz00, BgL_bgl_string2960za700za7za7_3161za7, "line", 4 );
BGL_DEFINE_STRING(BGl_string2961z00zz__errorz00, BgL_bgl_string2961za700za7za7_3162za7, "win32", 5 );
BGL_DEFINE_STRING(BGl_string2962z00zz__errorz00, BgL_bgl_string2962za700za7za7_3163za7, "<eof>", 5 );
BGL_DEFINE_STRING(BGl_string2963z00zz__errorz00, BgL_bgl_string2963za700za7za7_3164za7, "*** CONDITION: ", 15 );
BGL_DEFINE_STRING(BGl_string2964z00zz__errorz00, BgL_bgl_string2964za700za7za7_3165za7, "&error-notify/location", 22 );
BGL_DEFINE_STRING(BGl_string2965z00zz__errorz00, BgL_bgl_string2965za700za7za7_3166za7, "*** WARNING: ", 13 );
BGL_DEFINE_STRING(BGl_string2967z00zz__errorz00, BgL_bgl_string2967za700za7za7_3167za7, "[string]", 8 );
BGL_DEFINE_STRING(BGl_string2968z00zz__errorz00, BgL_bgl_string2968za700za7za7_3168za7, "[stdin]", 7 );
BGL_DEFINE_STRING(BGl_string2969z00zz__errorz00, BgL_bgl_string2969za700za7za7_3169za7, "&warning-notify/location", 24 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzd2notifyzf2locationzd2envzf2zz__errorz00, BgL_bgl_za762warningza7d2not3170z00, BGl_z62warningzd2notifyzf2locationz42zz__errorz00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string2971z00zz__errorz00, BgL_bgl_string2971za700za7za7_3171za7, "_display-trace-stack", 20 );
BGL_DEFINE_STRING(BGl_string2972z00zz__errorz00, BgL_bgl_string2972za700za7za7_3172za7, "output-port", 11 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2966z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3173za7, BGl_z62zc3z04anonymousza31901ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2973z00zz__errorz00, BgL_bgl_string2973za700za7za7_3174za7, "\n*** INTERNAL ERROR: corrupted stack -- ~s\n", 43 );
BGL_DEFINE_STRING(BGl_string2974z00zz__errorz00, BgL_bgl_string2974za700za7za7_3175za7, "! ", 2 );
BGL_DEFINE_STRING(BGl_string2975z00zz__errorz00, BgL_bgl_string2975za700za7za7_3176za7, "    ", 4 );
BGL_DEFINE_STRING(BGl_string2976z00zz__errorz00, BgL_bgl_string2976za700za7za7_3177za7, "   ", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_typezd2errorzd2envz00zz__errorz00, BgL_bgl_za762typeza7d2error23178z00, BGl_z62typezd2error2843zb0zz__errorz00, 0L, BUNSPEC, 5);
BGL_DEFINE_STRING(BGl_string2977z00zz__errorz00, BgL_bgl_string2977za700za7za7_3179za7, "  ", 2 );
BGL_DEFINE_STRING(BGl_string2978z00zz__errorz00, BgL_bgl_string2978za700za7za7_3180za7, ". ", 2 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzd2envzd2zz__errorz00, BgL_bgl_za762error2842za762za73181za7, BGl_z62error2842z62zz__errorz00, 0L, BUNSPEC, 3);
DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2970z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3182za7, BGl_z62zc3z04anonymousza31936ze3ze5zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2980z00zz__errorz00, BgL_bgl_string2980za700za7za7_3183za7, "margin", 6 );
BGL_DEFINE_STRING(BGl_string2982z00zz__errorz00, BgL_bgl_string2982za700za7za7_3184za7, "format", 6 );
BGL_DEFINE_STRING(BGl_string2983z00zz__errorz00, BgL_bgl_string2983za700za7za7_3185za7, " ", 1 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_typeofzd2envzd2zz__errorz00, BgL_bgl_za762typeofza762za7za7__3186z00, BGl_z62typeofz62zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2984z00zz__errorz00, BgL_bgl_string2984za700za7za7_3187za7, " (* ", 4 );
BGL_DEFINE_STRING(BGl_string2985z00zz__errorz00, BgL_bgl_string2985za700za7za7_3188za7, ")", 1 );
BGL_DEFINE_STRING(BGl_string2986z00zz__errorz00, BgL_bgl_string2986za700za7za7_3189za7, ".", 1 );
DEFINE_STATIC_BGL_PROCEDURE(BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigsegvza7d2err3190z00, BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2987z00zz__errorz00, BgL_bgl_string2987za700za7za7_3191za7, ", ", 2 );
BGL_DEFINE_STRING(BGl_string2988z00zz__errorz00, BgL_bgl_string2988za700za7za7_3192za7, "@", 1 );
BGL_DEFINE_STRING(BGl_string2989z00zz__errorz00, BgL_bgl_string2989za700za7za7_3193za7, "File ~s, line ~d, character ~d\n", 31 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_z62tryzd2envzb0zz__errorz00, BgL_bgl_za762za762tryza700za7za7__3194za7, BGl_z62z62tryz00zz__errorz00, 0L, BUNSPEC, 2);
DEFINE_STATIC_BGL_PROCEDURE(BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigillza7d2erro3195z00, BGl_z62sigillzd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2990z00zz__errorz00, BgL_bgl_string2990za700za7za7_3196za7, "File ~s, character ~d\n", 22 );
BGL_DEFINE_STRING(BGl_string2991z00zz__errorz00, BgL_bgl_string2991za700za7za7_3197za7, "&display-trace-stack-source", 27 );
BGL_DEFINE_STRING(BGl_string2993z00zz__errorz00, BgL_bgl_string2993za700za7za7_3198za7, "done", 4 );
BGL_DEFINE_STRING(BGl_string2994z00zz__errorz00, BgL_bgl_string2994za700za7za7_3199za7, "^", 1 );
BGL_DEFINE_STRING(BGl_string2995z00zz__errorz00, BgL_bgl_string2995za700za7za7_3200za7, "#", 1 );
BGL_DEFINE_STRING(BGl_string2996z00zz__errorz00, BgL_bgl_string2996za700za7za7_3201za7, ", character ", 12 );
BGL_DEFINE_STRING(BGl_string2997z00zz__errorz00, BgL_bgl_string2997za700za7za7_3202za7, "\", line ", 8 );
BGL_DEFINE_STRING(BGl_string2998z00zz__errorz00, BgL_bgl_string2998za700za7za7_3203za7, "../", 3 );
BGL_DEFINE_STRING(BGl_string2999z00zz__errorz00, BgL_bgl_string2999za700za7za7_3204za7, "/", 1 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_withzd2exceptionzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762withza7d2except3205z00, BGl_z62withzd2exceptionzd2handlerz62zz__errorz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_exitzd2envzd2zz__errorz00, BgL_bgl_za762exitza762za7za7__er3206z00, va_generic_entry, BGl_z62exitz62zz__errorz00, BUNSPEC, -1);
DEFINE_STATIC_BGL_PROCEDURE(BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigfpeza7d2erro3207z00, BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dumpzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl_za762dumpza7d2traceza73208za7, BGl_z62dumpzd2tracezd2stackz62zz__errorz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl__displayza7d2trace3209za7, opt_generic_entry, BGl__displayzd2tracezd2stackz00zz__errorz00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzd2notifyzd2envz00zz__errorz00, BgL_bgl_za762warningza7d2not3210z00, BGl_z62warningzd2notifyzb0zz__errorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2loczd2envz20zz__errorz00, BgL_bgl_za762warningza7f2loc3211z00, va_generic_entry, BGl_z62warningzf2locz90zz__errorz00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzd2envzd2zz__errorz00, BgL_bgl_za762warning2845za763212z00, va_generic_entry, BGl_z62warning2845z62zz__errorz00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2czd2locationzd2envzf2zz__errorz00, BgL_bgl_za762warningza7f2cza7d3213za7, va_generic_entry, BGl_z62warningzf2czd2locationz42zz__errorz00, BUNSPEC, -3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_setzd2errorzd2handlerz12zd2envzc0zz__errorz00, BgL_bgl_za762setza7d2errorza7d3214za7, BGl_z62setzd2errorzd2handlerz12z70zz__errorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_displayzd2tracezd2stackzd2sourcezd2envz00zz__errorz00, BgL_bgl_za762displayza7d2tra3215z00, BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_czd2debuggingzd2showzd2typezd2envz00zz__errorz00, BgL_bgl_za762cza7d2debugging3216z00, BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stackzd2overflowzd2errorzd2envzd2zz__errorz00, BgL_bgl_za762stackza7d2overf3217z00, BGl_z62stackzd2overflowzd2erro2841z62zz__errorz00, 0L, BUNSPEC, 0);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bigloozd2typezd2errorzd2msgzd2envz00zz__errorz00, BgL_bgl_za762biglooza7d2type3218z00, BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2errnozd2envz20zz__errorz00, BgL_bgl_za762errorza7f2errno3219z00, BGl_z62errorzf2errnoz90zz__errorz00, 0L, BUNSPEC, 4);
BGL_DEFINE_STRING(BGl_string2904z00zz__errorz00, BgL_bgl_string2904za700za7za7_3220za7, "/tmp/bigloo/runtime/Llib/error.scm", 34 );
BGL_DEFINE_STRING(BGl_string2905z00zz__errorz00, BgL_bgl_string2905za700za7za7_3221za7, "_get-trace-stack", 16 );
BGL_DEFINE_STRING(BGl_string2906z00zz__errorz00, BgL_bgl_string2906za700za7za7_3222za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string2907z00zz__errorz00, BgL_bgl_string2907za700za7za7_3223za7, "BIGLOOSTACKDEPTH", 16 );
BGL_DEFINE_STRING(BGl_string2908z00zz__errorz00, BgL_bgl_string2908za700za7za7_3224za7, "&error/errno", 12 );
BGL_DEFINE_STRING(BGl_string2909z00zz__errorz00, BgL_bgl_string2909za700za7za7_3225za7, "bint", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_findzd2runtimezd2typezd2envzd2zz__errorz00, BgL_bgl_za762findza7d2runtim3226z00, BGl_z62findzd2runtimezd2typez62zz__errorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string3000z00zz__errorz00, BgL_bgl_string3000za700za7za7_3227za7, "/cygdrive/", 10 );
BGL_DEFINE_STRING(BGl_string3001z00zz__errorz00, BgL_bgl_string3001za700za7za7_3228za7, "real", 4 );
BGL_DEFINE_STRING(BGl_string3002z00zz__errorz00, BgL_bgl_string3002za700za7za7_3229za7, "symbol", 6 );
BGL_DEFINE_STRING(BGl_string3003z00zz__errorz00, BgL_bgl_string3003za700za7za7_3230za7, "keyword", 7 );
BGL_DEFINE_STRING(BGl_string3004z00zz__errorz00, BgL_bgl_string3004za700za7za7_3231za7, "bchar", 5 );
BGL_DEFINE_STRING(BGl_string3005z00zz__errorz00, BgL_bgl_string3005za700za7za7_3232za7, "bbool", 5 );
BGL_DEFINE_STRING(BGl_string3006z00zz__errorz00, BgL_bgl_string3006za700za7za7_3233za7, "bnil", 4 );
BGL_DEFINE_STRING(BGl_string3007z00zz__errorz00, BgL_bgl_string3007za700za7za7_3234za7, "unspecified", 11 );
BGL_DEFINE_STRING(BGl_string3008z00zz__errorz00, BgL_bgl_string3008za700za7za7_3235za7, "epair", 5 );
BGL_DEFINE_STRING(BGl_string3009z00zz__errorz00, BgL_bgl_string3009za700za7za7_3236za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string2910z00zz__errorz00, BgL_bgl_string2910za700za7za7_3237za7, "stack overflow", 14 );
BGL_DEFINE_STRING(BGl_string2912z00zz__errorz00, BgL_bgl_string2912za700za7za7_3238za7, "at", 2 );
BGL_DEFINE_STRING(BGl_string2913z00zz__errorz00, BgL_bgl_string2913za700za7za7_3239za7, "with-exception-handler", 22 );
BGL_DEFINE_STRING(BGl_string2914z00zz__errorz00, BgL_bgl_string2914za700za7za7_3240za7, "Incorrect thunk arity", 21 );
BGL_DEFINE_STRING(BGl_string2915z00zz__errorz00, BgL_bgl_string2915za700za7za7_3241za7, "Incorrect handler arity", 23 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_errorzf2locationzd2envz20zz__errorz00, BgL_bgl_za762errorza7f2locat3242z00, BGl_z62errorzf2locationz90zz__errorz00, 0L, BUNSPEC, 5);
BGL_DEFINE_STRING(BGl_string2916z00zz__errorz00, BgL_bgl_string2916za700za7za7_3243za7, "&with-exception-handler", 23 );
BGL_DEFINE_STRING(BGl_string2917z00zz__errorz00, BgL_bgl_string2917za700za7za7_3244za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string2919z00zz__errorz00, BgL_bgl_string2919za700za7za7_3245za7, "*** INTERNAL ERROR: wrong error handler ", 40 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_warningzf2locationzd2envz20zz__errorz00, BgL_bgl_za762warningza7f2loc3246z00, va_generic_entry, BGl_z62warningzf2locationz90zz__errorz00, BUNSPEC, -3);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_warningzf2locationzd2envz20zz__errorz00, BgL_bgl_za762warningza7f2loc3246z00);
BGL_BIND_STRING(BGl_string2919z00zz__errorz00, BgL_bgl_string2919za700za7za7_3245za7);
BGL_BIND_STRING(BGl_string2917z00zz__errorz00, BgL_bgl_string2917za700za7za7_3244za7);
BGL_BIND_STRING(BGl_string2916z00zz__errorz00, BgL_bgl_string2916za700za7za7_3243za7);
BGL_BIND_PROCEDURE(BGl_errorzf2locationzd2envz20zz__errorz00, BgL_bgl_za762errorza7f2locat3242z00);
BGL_BIND_STRING(BGl_string2915z00zz__errorz00, BgL_bgl_string2915za700za7za7_3241za7);
BGL_BIND_STRING(BGl_string2914z00zz__errorz00, BgL_bgl_string2914za700za7za7_3240za7);
BGL_BIND_STRING(BGl_string2913z00zz__errorz00, BgL_bgl_string2913za700za7za7_3239za7);
BGL_BIND_STRING(BGl_string2912z00zz__errorz00, BgL_bgl_string2912za700za7za7_3238za7);
BGL_BIND_STRING(BGl_string2910z00zz__errorz00, BgL_bgl_string2910za700za7za7_3237za7);
BGL_BIND_STRING(BGl_string3009z00zz__errorz00, BgL_bgl_string3009za700za7za7_3236za7);
BGL_BIND_STRING(BGl_string3008z00zz__errorz00, BgL_bgl_string3008za700za7za7_3235za7);
BGL_BIND_STRING(BGl_string3007z00zz__errorz00, BgL_bgl_string3007za700za7za7_3234za7);
BGL_BIND_STRING(BGl_string3006z00zz__errorz00, BgL_bgl_string3006za700za7za7_3233za7);
BGL_BIND_STRING(BGl_string3005z00zz__errorz00, BgL_bgl_string3005za700za7za7_3232za7);
BGL_BIND_STRING(BGl_string3004z00zz__errorz00, BgL_bgl_string3004za700za7za7_3231za7);
BGL_BIND_STRING(BGl_string3003z00zz__errorz00, BgL_bgl_string3003za700za7za7_3230za7);
BGL_BIND_STRING(BGl_string3002z00zz__errorz00, BgL_bgl_string3002za700za7za7_3229za7);
BGL_BIND_STRING(BGl_string3001z00zz__errorz00, BgL_bgl_string3001za700za7za7_3228za7);
BGL_BIND_STRING(BGl_string3000z00zz__errorz00, BgL_bgl_string3000za700za7za7_3227za7);
BGL_BIND_PROCEDURE(BGl_findzd2runtimezd2typezd2envzd2zz__errorz00, BgL_bgl_za762findza7d2runtim3226z00);
BGL_BIND_STRING(BGl_string2909z00zz__errorz00, BgL_bgl_string2909za700za7za7_3225za7);
BGL_BIND_STRING(BGl_string2908z00zz__errorz00, BgL_bgl_string2908za700za7za7_3224za7);
BGL_BIND_STRING(BGl_string2907z00zz__errorz00, BgL_bgl_string2907za700za7za7_3223za7);
BGL_BIND_STRING(BGl_string2906z00zz__errorz00, BgL_bgl_string2906za700za7za7_3222za7);
BGL_BIND_STRING(BGl_string2905z00zz__errorz00, BgL_bgl_string2905za700za7za7_3221za7);
BGL_BIND_STRING(BGl_string2904z00zz__errorz00, BgL_bgl_string2904za700za7za7_3220za7);
BGL_BIND_PROCEDURE(BGl_errorzf2errnozd2envz20zz__errorz00, BgL_bgl_za762errorza7f2errno3219z00);
BGL_BIND_PROCEDURE(BGl_bigloozd2typezd2errorzd2msgzd2envz00zz__errorz00, BgL_bgl_za762biglooza7d2type3218z00);
BGL_BIND_PROCEDURE(BGl_stackzd2overflowzd2errorzd2envzd2zz__errorz00, BgL_bgl_za762stackza7d2overf3217z00);
BGL_BIND_PROCEDURE(BGl_czd2debuggingzd2showzd2typezd2envz00zz__errorz00, BgL_bgl_za762cza7d2debugging3216z00);
BGL_BIND_PROCEDURE(BGl_displayzd2tracezd2stackzd2sourcezd2envz00zz__errorz00, BgL_bgl_za762displayza7d2tra3215z00);
BGL_BIND_PROCEDURE(BGl_setzd2errorzd2handlerz12zd2envzc0zz__errorz00, BgL_bgl_za762setza7d2errorza7d3214za7);
BGL_BIND_PROCEDURE(BGl_warningzf2czd2locationzd2envzf2zz__errorz00, BgL_bgl_za762warningza7f2cza7d3213za7);
BGL_BIND_PROCEDURE(BGl_warningzd2envzd2zz__errorz00, BgL_bgl_za762warning2845za763212z00);
BGL_BIND_PROCEDURE(BGl_warningzf2loczd2envz20zz__errorz00, BgL_bgl_za762warningza7f2loc3211z00);
BGL_BIND_PROCEDURE(BGl_warningzd2notifyzd2envz00zz__errorz00, BgL_bgl_za762warningza7d2not3210z00);
BGL_BIND_PROCEDURE(BGl_displayzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl__displayza7d2trace3209za7);
BGL_BIND_PROCEDURE(BGl_dumpzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl_za762dumpza7d2traceza73208za7);
BGL_BIND_PROCEDURE(BGl_sigfpezd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigfpeza7d2erro3207z00);
BGL_BIND_PROCEDURE(BGl_exitzd2envzd2zz__errorz00, BgL_bgl_za762exitza762za7za7__er3206z00);
BGL_BIND_PROCEDURE(BGl_withzd2exceptionzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762withza7d2except3205z00);
BGL_BIND_STRING(BGl_string2999z00zz__errorz00, BgL_bgl_string2999za700za7za7_3204za7);
BGL_BIND_STRING(BGl_string2998z00zz__errorz00, BgL_bgl_string2998za700za7za7_3203za7);
BGL_BIND_STRING(BGl_string2997z00zz__errorz00, BgL_bgl_string2997za700za7za7_3202za7);
BGL_BIND_STRING(BGl_string2996z00zz__errorz00, BgL_bgl_string2996za700za7za7_3201za7);
BGL_BIND_STRING(BGl_string2995z00zz__errorz00, BgL_bgl_string2995za700za7za7_3200za7);
BGL_BIND_STRING(BGl_string2994z00zz__errorz00, BgL_bgl_string2994za700za7za7_3199za7);
BGL_BIND_STRING(BGl_string2993z00zz__errorz00, BgL_bgl_string2993za700za7za7_3198za7);
BGL_BIND_STRING(BGl_string2991z00zz__errorz00, BgL_bgl_string2991za700za7za7_3197za7);
BGL_BIND_STRING(BGl_string2990z00zz__errorz00, BgL_bgl_string2990za700za7za7_3196za7);
BGL_BIND_PROCEDURE(BGl_sigillzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigillza7d2erro3195z00);
BGL_BIND_PROCEDURE(BGl_z62tryzd2envzb0zz__errorz00, BgL_bgl_za762za762tryza700za7za7__3194za7);
BGL_BIND_STRING(BGl_string2989z00zz__errorz00, BgL_bgl_string2989za700za7za7_3193za7);
BGL_BIND_STRING(BGl_string2988z00zz__errorz00, BgL_bgl_string2988za700za7za7_3192za7);
BGL_BIND_STRING(BGl_string2987z00zz__errorz00, BgL_bgl_string2987za700za7za7_3191za7);
BGL_BIND_PROCEDURE(BGl_sigsegvzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigsegvza7d2err3190z00);
BGL_BIND_STRING(BGl_string2986z00zz__errorz00, BgL_bgl_string2986za700za7za7_3189za7);
BGL_BIND_STRING(BGl_string2985z00zz__errorz00, BgL_bgl_string2985za700za7za7_3188za7);
BGL_BIND_STRING(BGl_string2984z00zz__errorz00, BgL_bgl_string2984za700za7za7_3187za7);
BGL_BIND_PROCEDURE(BGl_typeofzd2envzd2zz__errorz00, BgL_bgl_za762typeofza762za7za7__3186z00);
BGL_BIND_STRING(BGl_string2983z00zz__errorz00, BgL_bgl_string2983za700za7za7_3185za7);
BGL_BIND_STRING(BGl_string2982z00zz__errorz00, BgL_bgl_string2982za700za7za7_3184za7);
BGL_BIND_STRING(BGl_string2980z00zz__errorz00, BgL_bgl_string2980za700za7za7_3183za7);
BGL_BIND_PROCEDURE(BGl_proc2970z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3182za7);
BGL_BIND_PROCEDURE(BGl_errorzd2envzd2zz__errorz00, BgL_bgl_za762error2842za762za73181za7);
BGL_BIND_STRING(BGl_string2978z00zz__errorz00, BgL_bgl_string2978za700za7za7_3180za7);
BGL_BIND_STRING(BGl_string2977z00zz__errorz00, BgL_bgl_string2977za700za7za7_3179za7);
BGL_BIND_PROCEDURE(BGl_typezd2errorzd2envz00zz__errorz00, BgL_bgl_za762typeza7d2error23178z00);
BGL_BIND_STRING(BGl_string2976z00zz__errorz00, BgL_bgl_string2976za700za7za7_3177za7);
BGL_BIND_STRING(BGl_string2975z00zz__errorz00, BgL_bgl_string2975za700za7za7_3176za7);
BGL_BIND_STRING(BGl_string2974z00zz__errorz00, BgL_bgl_string2974za700za7za7_3175za7);
BGL_BIND_STRING(BGl_string2973z00zz__errorz00, BgL_bgl_string2973za700za7za7_3174za7);
BGL_BIND_PROCEDURE(BGl_proc2966z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3173za7);
BGL_BIND_STRING(BGl_string2972z00zz__errorz00, BgL_bgl_string2972za700za7za7_3172za7);
BGL_BIND_STRING(BGl_string2971z00zz__errorz00, BgL_bgl_string2971za700za7za7_3171za7);
BGL_BIND_PROCEDURE(BGl_warningzd2notifyzf2locationzd2envzf2zz__errorz00, BgL_bgl_za762warningza7d2not3170z00);
BGL_BIND_STRING(BGl_string2969z00zz__errorz00, BgL_bgl_string2969za700za7za7_3169za7);
BGL_BIND_STRING(BGl_string2968z00zz__errorz00, BgL_bgl_string2968za700za7za7_3168za7);
BGL_BIND_STRING(BGl_string2967z00zz__errorz00, BgL_bgl_string2967za700za7za7_3167za7);
BGL_BIND_STRING(BGl_string2965z00zz__errorz00, BgL_bgl_string2965za700za7za7_3166za7);
BGL_BIND_STRING(BGl_string2964z00zz__errorz00, BgL_bgl_string2964za700za7za7_3165za7);
BGL_BIND_STRING(BGl_string2963z00zz__errorz00, BgL_bgl_string2963za700za7za7_3164za7);
BGL_BIND_STRING(BGl_string2962z00zz__errorz00, BgL_bgl_string2962za700za7za7_3163za7);
BGL_BIND_STRING(BGl_string2961z00zz__errorz00, BgL_bgl_string2961za700za7za7_3162za7);
BGL_BIND_STRING(BGl_string2960z00zz__errorz00, BgL_bgl_string2960za700za7za7_3161za7);
BGL_BIND_PROCEDURE(BGl_sigbuszd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762sigbusza7d2erro3160z00);
BGL_BIND_STRING(BGl_string3056z00zz__errorz00, BgL_bgl_string3056za700za7za7_3159za7);
BGL_BIND_STRING(BGl_string3055z00zz__errorz00, BgL_bgl_string3055za700za7za7_3158za7);
BGL_BIND_STRING(BGl_string3054z00zz__errorz00, BgL_bgl_string3054za700za7za7_3157za7);
BGL_BIND_STRING(BGl_string3053z00zz__errorz00, BgL_bgl_string3053za700za7za7_3156za7);
BGL_BIND_STRING(BGl_string3052z00zz__errorz00, BgL_bgl_string3052za700za7za7_3155za7);
BGL_BIND_STRING(BGl_string3051z00zz__errorz00, BgL_bgl_string3051za700za7za7_3154za7);
BGL_BIND_STRING(BGl_string3050z00zz__errorz00, BgL_bgl_string3050za700za7za7_3153za7);
BGL_BIND_STRING(BGl_string2958z00zz__errorz00, BgL_bgl_string2958za700za7za7_3152za7);
BGL_BIND_STRING(BGl_string2956z00zz__errorz00, BgL_bgl_string2956za700za7za7_3151za7);
BGL_BIND_STRING(BGl_string2955z00zz__errorz00, BgL_bgl_string2955za700za7za7_3150za7);
BGL_BIND_STRING(BGl_string2954z00zz__errorz00, BgL_bgl_string2954za700za7za7_3149za7);
BGL_BIND_STRING(BGl_string2953z00zz__errorz00, BgL_bgl_string2953za700za7za7_3148za7);
BGL_BIND_STRING(BGl_string2952z00zz__errorz00, BgL_bgl_string2952za700za7za7_3147za7);
BGL_BIND_STRING(BGl_string2951z00zz__errorz00, BgL_bgl_string2951za700za7za7_3146za7);
BGL_BIND_STRING(BGl_string2950z00zz__errorz00, BgL_bgl_string2950za700za7za7_3145za7);
BGL_BIND_STRING(BGl_string3049z00zz__errorz00, BgL_bgl_string3049za700za7za7_3144za7);
BGL_BIND_STRING(BGl_string3048z00zz__errorz00, BgL_bgl_string3048za700za7za7_3143za7);
BGL_BIND_STRING(BGl_string3047z00zz__errorz00, BgL_bgl_string3047za700za7za7_3142za7);
BGL_BIND_STRING(BGl_string3046z00zz__errorz00, BgL_bgl_string3046za700za7za7_3141za7);
BGL_BIND_STRING(BGl_string3045z00zz__errorz00, BgL_bgl_string3045za700za7za7_3140za7);
BGL_BIND_STRING(BGl_string3044z00zz__errorz00, BgL_bgl_string3044za700za7za7_3139za7);
BGL_BIND_STRING(BGl_string3043z00zz__errorz00, BgL_bgl_string3043za700za7za7_3138za7);
BGL_BIND_PROCEDURE(BGl_bigloozd2typezd2errorzf2locationzd2envz20zz__errorz00, BgL_bgl_za762biglooza7d2type3137z00);
BGL_BIND_STRING(BGl_string3042z00zz__errorz00, BgL_bgl_string3042za700za7za7_3136za7);
BGL_BIND_STRING(BGl_string3041z00zz__errorz00, BgL_bgl_string3041za700za7za7_3135za7);
BGL_BIND_STRING(BGl_string3040z00zz__errorz00, BgL_bgl_string3040za700za7za7_3134za7);
BGL_BIND_PROCEDURE(BGl_errorzf2czd2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7f2cza7d2l3133za7);
BGL_BIND_PROCEDURE(BGl_getzd2errorzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762getza7d2errorza7d3132za7);
BGL_BIND_PROCEDURE(BGl_modulezd2initzd2errorzd2envzd2zz__errorz00, BgL_bgl_za762moduleza7d2init3131z00);
BGL_BIND_STRING(BGl_string2949z00zz__errorz00, BgL_bgl_string2949za700za7za7_3130za7);
BGL_BIND_STRING(BGl_string2947z00zz__errorz00, BgL_bgl_string2947za700za7za7_3129za7);
BGL_BIND_STRING(BGl_string2946z00zz__errorz00, BgL_bgl_string2946za700za7za7_3128za7);
BGL_BIND_STRING(BGl_string2945z00zz__errorz00, BgL_bgl_string2945za700za7za7_3127za7);
BGL_BIND_STRING(BGl_string2944z00zz__errorz00, BgL_bgl_string2944za700za7za7_3126za7);
BGL_BIND_STRING(BGl_string2943z00zz__errorz00, BgL_bgl_string2943za700za7za7_3125za7);
BGL_BIND_STRING(BGl_string2942z00zz__errorz00, BgL_bgl_string2942za700za7za7_3124za7);
BGL_BIND_STRING(BGl_string2941z00zz__errorz00, BgL_bgl_string2941za700za7za7_3123za7);
BGL_BIND_STRING(BGl_string2940z00zz__errorz00, BgL_bgl_string2940za700za7za7_3122za7);
BGL_BIND_STRING(BGl_string3039z00zz__errorz00, BgL_bgl_string3039za700za7za7_3121za7);
BGL_BIND_STRING(BGl_string3038z00zz__errorz00, BgL_bgl_string3038za700za7za7_3120za7);
BGL_BIND_PROCEDURE(BGl_indexzd2outzd2ofzd2boundszd2errorzd2envzd2zz__errorz00, BgL_bgl_za762indexza7d2outza7d3119za7);
BGL_BIND_STRING(BGl_string3037z00zz__errorz00, BgL_bgl_string3037za700za7za7_3118za7);
BGL_BIND_STRING(BGl_string3036z00zz__errorz00, BgL_bgl_string3036za700za7za7_3117za7);
BGL_BIND_STRING(BGl_string3035z00zz__errorz00, BgL_bgl_string3035za700za7za7_3116za7);
BGL_BIND_STRING(BGl_string3034z00zz__errorz00, BgL_bgl_string3034za700za7za7_3115za7);
BGL_BIND_STRING(BGl_string3033z00zz__errorz00, BgL_bgl_string3033za700za7za7_3114za7);
BGL_BIND_STRING(BGl_string3032z00zz__errorz00, BgL_bgl_string3032za700za7za7_3113za7);
BGL_BIND_STRING(BGl_string3031z00zz__errorz00, BgL_bgl_string3031za700za7za7_3112za7);
BGL_BIND_STRING(BGl_string3030z00zz__errorz00, BgL_bgl_string3030za700za7za7_3111za7);
BGL_BIND_PROCEDURE(BGl_pushzd2errorzd2handlerz12zd2envzc0zz__errorz00, BgL_bgl_za762pushza7d2errorza73110za7);
BGL_BIND_PROCEDURE(BGl_bigloozd2typezd2errorzd2envzd2zz__errorz00, BgL_bgl_za762biglooza7d2type3109z00);
BGL_BIND_PROCEDURE(BGl_envzd2getzd2errorzd2handlerzd2envz00zz__errorz00, BgL_bgl_za762envza7d2getza7d2e3108za7);
BGL_BIND_STRING(BGl_string2939z00zz__errorz00, BgL_bgl_string2939za700za7za7_3107za7);
BGL_BIND_STRING(BGl_string2938z00zz__errorz00, BgL_bgl_string2938za700za7za7_3106za7);
BGL_BIND_STRING(BGl_string2937z00zz__errorz00, BgL_bgl_string2937za700za7za7_3105za7);
BGL_BIND_STRING(BGl_string2936z00zz__errorz00, BgL_bgl_string2936za700za7za7_3104za7);
BGL_BIND_STRING(BGl_string2935z00zz__errorz00, BgL_bgl_string2935za700za7za7_3103za7);
BGL_BIND_STRING(BGl_string2934z00zz__errorz00, BgL_bgl_string2934za700za7za7_3102za7);
BGL_BIND_STRING(BGl_string2933z00zz__errorz00, BgL_bgl_string2933za700za7za7_3101za7);
BGL_BIND_STRING(BGl_string2932z00zz__errorz00, BgL_bgl_string2932za700za7za7_3100za7);
BGL_BIND_PROCEDURE(BGl_errorzf2sourcezd2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7f2sourc3099z00);
BGL_BIND_PROCEDURE(BGl_errorzd2notifyzd2envz00zz__errorz00, BgL_bgl_za762errorza7d2notif3098z00);
BGL_BIND_STRING(BGl_string2931z00zz__errorz00, BgL_bgl_string2931za700za7za7_3097za7);
BGL_BIND_STRING(BGl_string2930z00zz__errorz00, BgL_bgl_string2930za700za7za7_3096za7);
BGL_BIND_STRING(BGl_string3029z00zz__errorz00, BgL_bgl_string3029za700za7za7_3095za7);
BGL_BIND_STRING(BGl_string3028z00zz__errorz00, BgL_bgl_string3028za700za7za7_3094za7);
BGL_BIND_STRING(BGl_string3027z00zz__errorz00, BgL_bgl_string3027za700za7za7_3093za7);
BGL_BIND_STRING(BGl_string3026z00zz__errorz00, BgL_bgl_string3026za700za7za7_3092za7);
BGL_BIND_STRING(BGl_string3025z00zz__errorz00, BgL_bgl_string3025za700za7za7_3091za7);
BGL_BIND_PROCEDURE(BGl_currentzd2exceptionzd2handlerzd2envzd2zz__errorz00, BgL_bgl_za762currentza7d2exc3090z00);
BGL_BIND_STRING(BGl_string3024z00zz__errorz00, BgL_bgl_string3024za700za7za7_3089za7);
BGL_BIND_STRING(BGl_string3023z00zz__errorz00, BgL_bgl_string3023za700za7za7_3088za7);
BGL_BIND_STRING(BGl_string3022z00zz__errorz00, BgL_bgl_string3022za700za7za7_3087za7);
BGL_BIND_STRING(BGl_string3021z00zz__errorz00, BgL_bgl_string3021za700za7za7_3086za7);
BGL_BIND_STRING(BGl_string3020z00zz__errorz00, BgL_bgl_string3020za700za7za7_3085za7);
BGL_BIND_PROCEDURE(BGl_getzd2tracezd2stackzd2envzd2zz__errorz00, BgL_bgl__getza7d2traceza7d2s3084z00);
BGL_BIND_PROCEDURE(BGl_errorzd2notifyzf2locationzd2envzf2zz__errorz00, BgL_bgl_za762errorza7d2notif3083z00);
BGL_BIND_STRING(BGl_string2929z00zz__errorz00, BgL_bgl_string2929za700za7za7_3082za7);
BGL_BIND_STRING(BGl_string2928z00zz__errorz00, BgL_bgl_string2928za700za7za7_3081za7);
BGL_BIND_STRING(BGl_string2927z00zz__errorz00, BgL_bgl_string2927za700za7za7_3080za7);
BGL_BIND_PROCEDURE(BGl_raisezd2envzd2zz__errorz00, BgL_bgl_za762raiseza762za7za7__e3079z00);
BGL_BIND_STRING(BGl_string2926z00zz__errorz00, BgL_bgl_string2926za700za7za7_3078za7);
BGL_BIND_PROCEDURE(BGl_notifyzd2interruptzd2envz00zz__errorz00, BgL_bgl_za762notifyza7d2inte3077z00);
BGL_BIND_STRING(BGl_string2925z00zz__errorz00, BgL_bgl_string2925za700za7za7_3076za7);
BGL_BIND_PROCEDURE(BGl_proc2918z00zz__errorz00, BgL_bgl_za762za7c3za704anonymo3075za7);
BGL_BIND_STRING(BGl_string2924z00zz__errorz00, BgL_bgl_string2924za700za7za7_3074za7);
BGL_BIND_STRING(BGl_string2923z00zz__errorz00, BgL_bgl_string2923za700za7za7_3073za7);
BGL_BIND_STRING(BGl_string2922z00zz__errorz00, BgL_bgl_string2922za700za7za7_3072za7);
BGL_BIND_STRING(BGl_string2921z00zz__errorz00, BgL_bgl_string2921za700za7za7_3071za7);
BGL_BIND_STRING(BGl_string2920z00zz__errorz00, BgL_bgl_string2920za700za7za7_3070za7);
BGL_BIND_STRING(BGl_string3019z00zz__errorz00, BgL_bgl_string3019za700za7za7_3069za7);
BGL_BIND_STRING(BGl_string3018z00zz__errorz00, BgL_bgl_string3018za700za7za7_3068za7);
BGL_BIND_STRING(BGl_string3017z00zz__errorz00, BgL_bgl_string3017za700za7za7_3067za7);
BGL_BIND_STRING(BGl_string3016z00zz__errorz00, BgL_bgl_string3016za700za7za7_3066za7);
BGL_BIND_PROCEDURE(BGl_errorzf2sourcezd2envz20zz__errorz00, BgL_bgl_za762errorza7f2sourc3065z00);
BGL_BIND_STRING(BGl_string3015z00zz__errorz00, BgL_bgl_string3015za700za7za7_3064za7);
BGL_BIND_STRING(BGl_string3014z00zz__errorz00, BgL_bgl_string3014za700za7za7_3063za7);
BGL_BIND_PROCEDURE(BGl_the_failurezd2envzd2zz__errorz00, BgL_bgl_za762the_failureza763062z00);
BGL_BIND_STRING(BGl_string3013z00zz__errorz00, BgL_bgl_string3013za700za7za7_3061za7);
BGL_BIND_STRING(BGl_string3012z00zz__errorz00, BgL_bgl_string3012za700za7za7_3060za7);
BGL_BIND_STRING(BGl_string3011z00zz__errorz00, BgL_bgl_string3011za700za7za7_3059za7);
BGL_BIND_PROCEDURE(BGl_envzd2setzd2errorzd2handlerz12zd2envz12zz__errorz00, BgL_bgl_za762envza7d2setza7d2e3058za7);
BGL_BIND_STRING(BGl_string3010z00zz__errorz00, BgL_bgl_string3010za700za7za7_3057za7);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2911z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2948z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2957z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2959z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2979z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2981z00zz__errorz00) );
ADD_ROOT( (void *)(&BGl_symbol2992z00zz__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_5353, char * BgL_fromz00_5354)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__errorz00))
{ 
BGl_requirezd2initializa7ationz75zz__errorz00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
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_symbol2911z00zz__errorz00 = 
bstring_to_symbol(BGl_string2912z00zz__errorz00); 
BGl_symbol2948z00zz__errorz00 = 
bstring_to_symbol(BGl_string2949z00zz__errorz00); 
BGl_symbol2957z00zz__errorz00 = 
bstring_to_symbol(BGl_string2958z00zz__errorz00); 
BGl_symbol2959z00zz__errorz00 = 
bstring_to_symbol(BGl_string2960z00zz__errorz00); 
BGl_symbol2979z00zz__errorz00 = 
bstring_to_symbol(BGl_string2980z00zz__errorz00); 
BGl_symbol2981z00zz__errorz00 = 
bstring_to_symbol(BGl_string2982z00zz__errorz00); 
return ( 
BGl_symbol2992z00zz__errorz00 = 
bstring_to_symbol(BGl_string2993z00zz__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_env1208z00_5, obj_t BgL_opt1207z00_4)
{
{ /* Llib/error.scm 313 */
{ /* Llib/error.scm 313 */

{ /* Llib/error.scm 313 */
 long BgL_aux1210z00_1616;
{ 
 obj_t BgL_auxz00_5376;
if(
VECTORP(BgL_opt1207z00_4))
{ /* Llib/error.scm 313 */
BgL_auxz00_5376 = BgL_opt1207z00_4
; }  else 
{ 
 obj_t BgL_auxz00_5379;
BgL_auxz00_5379 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(12737L), BGl_string2905z00zz__errorz00, BGl_string2906z00zz__errorz00, BgL_opt1207z00_4); 
FAILURE(BgL_auxz00_5379,BFALSE,BFALSE);} 
BgL_aux1210z00_1616 = 
VECTOR_LENGTH(BgL_auxz00_5376); } 
switch( BgL_aux1210z00_1616) { case 0L : 

{ /* Llib/error.scm 313 */

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

{ /* Llib/error.scm 313 */
 obj_t BgL_depthz00_1618;
{ 
 obj_t BgL_auxz00_5385;
if(
VECTORP(BgL_opt1207z00_4))
{ /* Llib/error.scm 313 */
BgL_auxz00_5385 = BgL_opt1207z00_4
; }  else 
{ 
 obj_t BgL_auxz00_5388;
BgL_auxz00_5388 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(12737L), BGl_string2905z00zz__errorz00, BGl_string2906z00zz__errorz00, BgL_opt1207z00_4); 
FAILURE(BgL_auxz00_5388,BFALSE,BFALSE);} 
BgL_depthz00_1618 = 
VECTOR_REF(BgL_auxz00_5385,0L); } 
{ /* Llib/error.scm 313 */

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

}



/* get-trace-stack */
BGL_EXPORTED_DEF obj_t BGl_getzd2tracezd2stackz00zz__errorz00(obj_t BgL_depthz00_3)
{
{ /* Llib/error.scm 313 */
{ /* Llib/error.scm 314 */
 obj_t BgL_dz00_1619;
if(
INTEGERP(BgL_depthz00_3))
{ /* Llib/error.scm 315 */
BgL_dz00_1619 = BgL_depthz00_3; }  else 
{ /* Llib/error.scm 316 */
 obj_t BgL_g1040z00_1621;
BgL_g1040z00_1621 = 
BGl_getenvz00zz__osz00(BGl_string2907z00zz__errorz00); 
if(
CBOOL(BgL_g1040z00_1621))
{ /* Ieee/fixnum.scm 982 */

BgL_dz00_1619 = 
BINT(
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_g1040z00_1621, 10L, 0L)); }  else 
{ /* Llib/error.scm 316 */
{ /* Llib/error.scm 317 */
 int BgL_arg1336z00_1629;
BgL_arg1336z00_1629 = 
BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00(); ((bool_t)1); } 
BgL_dz00_1619 = 
BINT(
BGl_bigloozd2tracezd2stackzd2depthzd2zz__paramz00()); } } 
{ /* Llib/error.scm 319 */
 int BgL_tmpz00_5405;
BgL_tmpz00_5405 = 
CINT(BgL_dz00_1619); 
return 
bgl_get_trace_stack(BgL_tmpz00_5405);} } } 

}



/* 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 324 */
{ /* Llib/error.scm 325 */
 bool_t BgL_test3252z00_5408;
{ /* Llib/error.scm 325 */
 obj_t BgL_classz00_3499;
BgL_classz00_3499 = BGl_z62exceptionz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_procz00_6))
{ /* Llib/error.scm 325 */
 BgL_objectz00_bglt BgL_arg2767z00_3501;
BgL_arg2767z00_3501 = 
(BgL_objectz00_bglt)(BgL_procz00_6); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 325 */
 long BgL_idxz00_3507;
BgL_idxz00_3507 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_3501); 
BgL_test3252z00_5408 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_3507+2L))==BgL_classz00_3499); }  else 
{ /* Llib/error.scm 325 */
 bool_t BgL_res2821z00_3532;
{ /* Llib/error.scm 325 */
 obj_t BgL_oclassz00_3515;
{ /* Llib/error.scm 325 */
 obj_t BgL_arg2777z00_3523; long BgL_arg2778z00_3524;
BgL_arg2777z00_3523 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/error.scm 325 */
 long BgL_arg2779z00_3525;
BgL_arg2779z00_3525 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_3501); 
BgL_arg2778z00_3524 = 
(BgL_arg2779z00_3525-OBJECT_TYPE); } 
BgL_oclassz00_3515 = 
VECTOR_REF(BgL_arg2777z00_3523,BgL_arg2778z00_3524); } 
{ /* Llib/error.scm 325 */
 bool_t BgL__ortest_1196z00_3516;
BgL__ortest_1196z00_3516 = 
(BgL_classz00_3499==BgL_oclassz00_3515); 
if(BgL__ortest_1196z00_3516)
{ /* Llib/error.scm 325 */
BgL_res2821z00_3532 = BgL__ortest_1196z00_3516; }  else 
{ /* Llib/error.scm 325 */
 long BgL_odepthz00_3517;
{ /* Llib/error.scm 325 */
 obj_t BgL_arg2764z00_3518;
BgL_arg2764z00_3518 = 
(BgL_oclassz00_3515); 
BgL_odepthz00_3517 = 
BGL_CLASS_DEPTH(BgL_arg2764z00_3518); } 
if(
(2L<BgL_odepthz00_3517))
{ /* Llib/error.scm 325 */
 obj_t BgL_arg2762z00_3520;
{ /* Llib/error.scm 325 */
 obj_t BgL_arg2763z00_3521;
BgL_arg2763z00_3521 = 
(BgL_oclassz00_3515); 
BgL_arg2762z00_3520 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_3521, 2L); } 
BgL_res2821z00_3532 = 
(BgL_arg2762z00_3520==BgL_classz00_3499); }  else 
{ /* Llib/error.scm 325 */
BgL_res2821z00_3532 = ((bool_t)0); } } } } 
BgL_test3252z00_5408 = BgL_res2821z00_3532; } }  else 
{ /* Llib/error.scm 325 */
BgL_test3252z00_5408 = ((bool_t)0)
; } } 
if(BgL_test3252z00_5408)
{ /* Llib/error.scm 325 */
return 
BGl_raisez00zz__errorz00(BgL_procz00_6);}  else 
{ /* Llib/error.scm 325 */
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_5070, obj_t BgL_procz00_5071, obj_t BgL_msgz00_5072, obj_t BgL_objz00_5073)
{
{ /* Llib/error.scm 324 */
return 
the_failure(BgL_procz00_5071, BgL_msgz00_5072, BgL_objz00_5073);} 

}



/* 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 332 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_ERROR)))
{ /* Llib/error.scm 336 */
 BgL_z62iozd2errorzb0_bglt BgL_arg1339z00_1632;
{ /* Llib/error.scm 336 */
 BgL_z62iozd2errorzb0_bglt BgL_new1043z00_1633;
{ /* Llib/error.scm 336 */
 BgL_z62iozd2errorzb0_bglt BgL_new1042z00_1636;
BgL_new1042z00_1636 = 
((BgL_z62iozd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 336 */
 long BgL_arg1343z00_1637;
BgL_arg1343z00_1637 = 
BGL_CLASS_NUM(BGl_z62iozd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1042z00_1636), BgL_arg1343z00_1637); } 
BgL_new1043z00_1633 = BgL_new1042z00_1636; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1043z00_1633)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1043z00_1633)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5446;
{ /* Llib/error.scm 336 */
 obj_t BgL_arg1341z00_1634;
{ /* Llib/error.scm 336 */
 obj_t BgL_arg1342z00_1635;
{ /* Llib/error.scm 336 */
 obj_t BgL_classz00_3538;
BgL_classz00_3538 = BGl_z62iozd2errorzb0zz__objectz00; 
BgL_arg1342z00_1635 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3538); } 
BgL_arg1341z00_1634 = 
VECTOR_REF(BgL_arg1342z00_1635,2L); } 
BgL_auxz00_5446 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1341z00_1634); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1043z00_1633)))->BgL_stackz00)=((obj_t)BgL_auxz00_5446),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1043z00_1633)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1043z00_1633)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1043z00_1633)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1339z00_1632 = BgL_new1043z00_1633; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1339z00_1632));}  else 
{ /* Llib/error.scm 334 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_PORT_ERROR)))
{ /* Llib/error.scm 339 */
 BgL_z62iozd2portzd2errorz62_bglt BgL_arg1345z00_1639;
{ /* Llib/error.scm 339 */
 BgL_z62iozd2portzd2errorz62_bglt BgL_new1045z00_1640;
{ /* Llib/error.scm 339 */
 BgL_z62iozd2portzd2errorz62_bglt BgL_new1044z00_1643;
BgL_new1044z00_1643 = 
((BgL_z62iozd2portzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2portzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 339 */
 long BgL_arg1349z00_1644;
BgL_arg1349z00_1644 = 
BGL_CLASS_NUM(BGl_z62iozd2portzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1044z00_1643), BgL_arg1349z00_1644); } 
BgL_new1045z00_1640 = BgL_new1044z00_1643; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1045z00_1640)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1045z00_1640)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5472;
{ /* Llib/error.scm 339 */
 obj_t BgL_arg1346z00_1641;
{ /* Llib/error.scm 339 */
 obj_t BgL_arg1347z00_1642;
{ /* Llib/error.scm 339 */
 obj_t BgL_classz00_3545;
BgL_classz00_3545 = BGl_z62iozd2portzd2errorz62zz__objectz00; 
BgL_arg1347z00_1642 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3545); } 
BgL_arg1346z00_1641 = 
VECTOR_REF(BgL_arg1347z00_1642,2L); } 
BgL_auxz00_5472 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1346z00_1641); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1045z00_1640)))->BgL_stackz00)=((obj_t)BgL_auxz00_5472),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1045z00_1640)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1045z00_1640)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1045z00_1640)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1345z00_1639 = BgL_new1045z00_1640; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1345z00_1639));}  else 
{ /* Llib/error.scm 337 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_READ_ERROR)))
{ /* Llib/error.scm 342 */
 BgL_z62iozd2readzd2errorz62_bglt BgL_arg1351z00_1646;
{ /* Llib/error.scm 342 */
 BgL_z62iozd2readzd2errorz62_bglt BgL_new1047z00_1647;
{ /* Llib/error.scm 342 */
 BgL_z62iozd2readzd2errorz62_bglt BgL_new1046z00_1650;
BgL_new1046z00_1650 = 
((BgL_z62iozd2readzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2readzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 342 */
 long BgL_arg1355z00_1651;
BgL_arg1355z00_1651 = 
BGL_CLASS_NUM(BGl_z62iozd2readzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1046z00_1650), BgL_arg1355z00_1651); } 
BgL_new1047z00_1647 = BgL_new1046z00_1650; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1047z00_1647)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1047z00_1647)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5498;
{ /* Llib/error.scm 342 */
 obj_t BgL_arg1352z00_1648;
{ /* Llib/error.scm 342 */
 obj_t BgL_arg1353z00_1649;
{ /* Llib/error.scm 342 */
 obj_t BgL_classz00_3552;
BgL_classz00_3552 = BGl_z62iozd2readzd2errorz62zz__objectz00; 
BgL_arg1353z00_1649 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3552); } 
BgL_arg1352z00_1648 = 
VECTOR_REF(BgL_arg1353z00_1649,2L); } 
BgL_auxz00_5498 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1352z00_1648); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1047z00_1647)))->BgL_stackz00)=((obj_t)BgL_auxz00_5498),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1047z00_1647)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1047z00_1647)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1047z00_1647)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1351z00_1646 = BgL_new1047z00_1647; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1351z00_1646));}  else 
{ /* Llib/error.scm 340 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_WRITE_ERROR)))
{ /* Llib/error.scm 345 */
 BgL_z62iozd2writezd2errorz62_bglt BgL_arg1357z00_1653;
{ /* Llib/error.scm 345 */
 BgL_z62iozd2writezd2errorz62_bglt BgL_new1049z00_1654;
{ /* Llib/error.scm 345 */
 BgL_z62iozd2writezd2errorz62_bglt BgL_new1048z00_1657;
BgL_new1048z00_1657 = 
((BgL_z62iozd2writezd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2writezd2errorz62_bgl) ))); 
{ /* Llib/error.scm 345 */
 long BgL_arg1360z00_1658;
BgL_arg1360z00_1658 = 
BGL_CLASS_NUM(BGl_z62iozd2writezd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1048z00_1657), BgL_arg1360z00_1658); } 
BgL_new1049z00_1654 = BgL_new1048z00_1657; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1049z00_1654)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1049z00_1654)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5524;
{ /* Llib/error.scm 345 */
 obj_t BgL_arg1358z00_1655;
{ /* Llib/error.scm 345 */
 obj_t BgL_arg1359z00_1656;
{ /* Llib/error.scm 345 */
 obj_t BgL_classz00_3559;
BgL_classz00_3559 = BGl_z62iozd2writezd2errorz62zz__objectz00; 
BgL_arg1359z00_1656 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3559); } 
BgL_arg1358z00_1655 = 
VECTOR_REF(BgL_arg1359z00_1656,2L); } 
BgL_auxz00_5524 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1358z00_1655); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1049z00_1654)))->BgL_stackz00)=((obj_t)BgL_auxz00_5524),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1049z00_1654)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1049z00_1654)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1049z00_1654)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1357z00_1653 = BgL_new1049z00_1654; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1357z00_1653));}  else 
{ /* Llib/error.scm 343 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_UNKNOWN_HOST_ERROR)))
{ /* Llib/error.scm 348 */
 BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt BgL_arg1362z00_1660;
{ /* Llib/error.scm 348 */
 BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt BgL_new1051z00_1661;
{ /* Llib/error.scm 348 */
 BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt BgL_new1050z00_1664;
BgL_new1050z00_1664 = 
((BgL_z62iozd2unknownzd2hostzd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2unknownzd2hostzd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 348 */
 long BgL_arg1365z00_1665;
BgL_arg1365z00_1665 = 
BGL_CLASS_NUM(BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1050z00_1664), BgL_arg1365z00_1665); } 
BgL_new1051z00_1661 = BgL_new1050z00_1664; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1051z00_1661)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1051z00_1661)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5550;
{ /* Llib/error.scm 348 */
 obj_t BgL_arg1363z00_1662;
{ /* Llib/error.scm 348 */
 obj_t BgL_arg1364z00_1663;
{ /* Llib/error.scm 348 */
 obj_t BgL_classz00_3566;
BgL_classz00_3566 = BGl_z62iozd2unknownzd2hostzd2errorzb0zz__objectz00; 
BgL_arg1364z00_1663 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3566); } 
BgL_arg1363z00_1662 = 
VECTOR_REF(BgL_arg1364z00_1663,2L); } 
BgL_auxz00_5550 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1363z00_1662); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1051z00_1661)))->BgL_stackz00)=((obj_t)BgL_auxz00_5550),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1051z00_1661)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1051z00_1661)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1051z00_1661)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1362z00_1660 = BgL_new1051z00_1661; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1362z00_1660));}  else 
{ /* Llib/error.scm 346 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_FILE_NOT_FOUND_ERROR)))
{ /* Llib/error.scm 351 */
 BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt BgL_arg1367z00_1667;
{ /* Llib/error.scm 351 */
 BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt BgL_new1053z00_1668;
{ /* Llib/error.scm 351 */
 BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt BgL_new1052z00_1671;
BgL_new1052z00_1671 = 
((BgL_z62iozd2filezd2notzd2foundzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2filezd2notzd2foundzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 351 */
 long BgL_arg1370z00_1672;
BgL_arg1370z00_1672 = 
BGL_CLASS_NUM(BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1052z00_1671), BgL_arg1370z00_1672); } 
BgL_new1053z00_1668 = BgL_new1052z00_1671; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1053z00_1668)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1053z00_1668)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5576;
{ /* Llib/error.scm 351 */
 obj_t BgL_arg1368z00_1669;
{ /* Llib/error.scm 351 */
 obj_t BgL_arg1369z00_1670;
{ /* Llib/error.scm 351 */
 obj_t BgL_classz00_3573;
BgL_classz00_3573 = BGl_z62iozd2filezd2notzd2foundzd2errorz62zz__objectz00; 
BgL_arg1369z00_1670 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3573); } 
BgL_arg1368z00_1669 = 
VECTOR_REF(BgL_arg1369z00_1670,2L); } 
BgL_auxz00_5576 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1368z00_1669); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1053z00_1668)))->BgL_stackz00)=((obj_t)BgL_auxz00_5576),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1053z00_1668)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1053z00_1668)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1053z00_1668)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1367z00_1667 = BgL_new1053z00_1668; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1367z00_1667));}  else 
{ /* Llib/error.scm 349 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_PARSE_ERROR)))
{ /* Llib/error.scm 354 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_arg1372z00_1674;
{ /* Llib/error.scm 354 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_new1055z00_1675;
{ /* Llib/error.scm 354 */
 BgL_z62iozd2parsezd2errorz62_bglt BgL_new1054z00_1678;
BgL_new1054z00_1678 = 
((BgL_z62iozd2parsezd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2parsezd2errorz62_bgl) ))); 
{ /* Llib/error.scm 354 */
 long BgL_arg1376z00_1679;
BgL_arg1376z00_1679 = 
BGL_CLASS_NUM(BGl_z62iozd2parsezd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1054z00_1678), BgL_arg1376z00_1679); } 
BgL_new1055z00_1675 = BgL_new1054z00_1678; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1055z00_1675)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1055z00_1675)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5602;
{ /* Llib/error.scm 354 */
 obj_t BgL_arg1373z00_1676;
{ /* Llib/error.scm 354 */
 obj_t BgL_arg1374z00_1677;
{ /* Llib/error.scm 354 */
 obj_t BgL_classz00_3580;
BgL_classz00_3580 = BGl_z62iozd2parsezd2errorz62zz__objectz00; 
BgL_arg1374z00_1677 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3580); } 
BgL_arg1373z00_1676 = 
VECTOR_REF(BgL_arg1374z00_1677,2L); } 
BgL_auxz00_5602 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1373z00_1676); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1055z00_1675)))->BgL_stackz00)=((obj_t)BgL_auxz00_5602),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1055z00_1675)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1055z00_1675)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1055z00_1675)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1372z00_1674 = BgL_new1055z00_1675; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1372z00_1674));}  else 
{ /* Llib/error.scm 352 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_MALFORMED_URL_ERROR)))
{ /* Llib/error.scm 357 */
 BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt BgL_arg1378z00_1681;
{ /* Llib/error.scm 357 */
 BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt BgL_new1057z00_1682;
{ /* Llib/error.scm 357 */
 BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt BgL_new1056z00_1685;
BgL_new1056z00_1685 = 
((BgL_z62iozd2malformedzd2urlzd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2malformedzd2urlzd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 357 */
 long BgL_arg1381z00_1686;
BgL_arg1381z00_1686 = 
BGL_CLASS_NUM(BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1056z00_1685), BgL_arg1381z00_1686); } 
BgL_new1057z00_1682 = BgL_new1056z00_1685; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1057z00_1682)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1057z00_1682)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5628;
{ /* Llib/error.scm 357 */
 obj_t BgL_arg1379z00_1683;
{ /* Llib/error.scm 357 */
 obj_t BgL_arg1380z00_1684;
{ /* Llib/error.scm 357 */
 obj_t BgL_classz00_3587;
BgL_classz00_3587 = BGl_z62iozd2malformedzd2urlzd2errorzb0zz__objectz00; 
BgL_arg1380z00_1684 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3587); } 
BgL_arg1379z00_1683 = 
VECTOR_REF(BgL_arg1380z00_1684,2L); } 
BgL_auxz00_5628 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1379z00_1683); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1057z00_1682)))->BgL_stackz00)=((obj_t)BgL_auxz00_5628),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1057z00_1682)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1057z00_1682)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1057z00_1682)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1378z00_1681 = BgL_new1057z00_1682; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1378z00_1681));}  else 
{ /* Llib/error.scm 355 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_SIGPIPE_ERROR)))
{ /* Llib/error.scm 360 */
 BgL_z62iozd2sigpipezd2errorz62_bglt BgL_arg1383z00_1688;
{ /* Llib/error.scm 360 */
 BgL_z62iozd2sigpipezd2errorz62_bglt BgL_new1059z00_1689;
{ /* Llib/error.scm 360 */
 BgL_z62iozd2sigpipezd2errorz62_bglt BgL_new1058z00_1692;
BgL_new1058z00_1692 = 
((BgL_z62iozd2sigpipezd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2sigpipezd2errorz62_bgl) ))); 
{ /* Llib/error.scm 360 */
 long BgL_arg1386z00_1693;
BgL_arg1386z00_1693 = 
BGL_CLASS_NUM(BGl_z62iozd2sigpipezd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1058z00_1692), BgL_arg1386z00_1693); } 
BgL_new1059z00_1689 = BgL_new1058z00_1692; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1059z00_1689)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1059z00_1689)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5654;
{ /* Llib/error.scm 360 */
 obj_t BgL_arg1384z00_1690;
{ /* Llib/error.scm 360 */
 obj_t BgL_arg1385z00_1691;
{ /* Llib/error.scm 360 */
 obj_t BgL_classz00_3594;
BgL_classz00_3594 = BGl_z62iozd2sigpipezd2errorz62zz__objectz00; 
BgL_arg1385z00_1691 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3594); } 
BgL_arg1384z00_1690 = 
VECTOR_REF(BgL_arg1385z00_1691,2L); } 
BgL_auxz00_5654 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1384z00_1690); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1059z00_1689)))->BgL_stackz00)=((obj_t)BgL_auxz00_5654),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1059z00_1689)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1059z00_1689)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1059z00_1689)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1383z00_1688 = BgL_new1059z00_1689; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1383z00_1688));}  else 
{ /* Llib/error.scm 358 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_TIMEOUT_ERROR)))
{ /* Llib/error.scm 363 */
 BgL_z62iozd2timeoutzd2errorz62_bglt BgL_arg1388z00_1695;
{ /* Llib/error.scm 363 */
 BgL_z62iozd2timeoutzd2errorz62_bglt BgL_new1062z00_1696;
{ /* Llib/error.scm 363 */
 BgL_z62iozd2timeoutzd2errorz62_bglt BgL_new1060z00_1699;
BgL_new1060z00_1699 = 
((BgL_z62iozd2timeoutzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2timeoutzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 363 */
 long BgL_arg1391z00_1700;
BgL_arg1391z00_1700 = 
BGL_CLASS_NUM(BGl_z62iozd2timeoutzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1060z00_1699), BgL_arg1391z00_1700); } 
BgL_new1062z00_1696 = BgL_new1060z00_1699; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1062z00_1696)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1062z00_1696)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5680;
{ /* Llib/error.scm 363 */
 obj_t BgL_arg1389z00_1697;
{ /* Llib/error.scm 363 */
 obj_t BgL_arg1390z00_1698;
{ /* Llib/error.scm 363 */
 obj_t BgL_classz00_3601;
BgL_classz00_3601 = BGl_z62iozd2timeoutzd2errorz62zz__objectz00; 
BgL_arg1390z00_1698 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3601); } 
BgL_arg1389z00_1697 = 
VECTOR_REF(BgL_arg1390z00_1698,2L); } 
BgL_auxz00_5680 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1389z00_1697); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1062z00_1696)))->BgL_stackz00)=((obj_t)BgL_auxz00_5680),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1062z00_1696)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1062z00_1696)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1062z00_1696)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1388z00_1695 = BgL_new1062z00_1696; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1388z00_1695));}  else 
{ /* Llib/error.scm 361 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_IO_CONNECTION_ERROR)))
{ /* Llib/error.scm 366 */
 BgL_z62iozd2connectionzd2errorz62_bglt BgL_arg1395z00_1702;
{ /* Llib/error.scm 366 */
 BgL_z62iozd2connectionzd2errorz62_bglt BgL_new1064z00_1703;
{ /* Llib/error.scm 366 */
 BgL_z62iozd2connectionzd2errorz62_bglt BgL_new1063z00_1706;
BgL_new1063z00_1706 = 
((BgL_z62iozd2connectionzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62iozd2connectionzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 366 */
 long BgL_arg1398z00_1707;
BgL_arg1398z00_1707 = 
BGL_CLASS_NUM(BGl_z62iozd2connectionzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1063z00_1706), BgL_arg1398z00_1707); } 
BgL_new1064z00_1703 = BgL_new1063z00_1706; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1064z00_1703)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1064z00_1703)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5706;
{ /* Llib/error.scm 366 */
 obj_t BgL_arg1396z00_1704;
{ /* Llib/error.scm 366 */
 obj_t BgL_arg1397z00_1705;
{ /* Llib/error.scm 366 */
 obj_t BgL_classz00_3608;
BgL_classz00_3608 = BGl_z62iozd2connectionzd2errorz62zz__objectz00; 
BgL_arg1397z00_1705 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3608); } 
BgL_arg1396z00_1704 = 
VECTOR_REF(BgL_arg1397z00_1705,2L); } 
BgL_auxz00_5706 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1396z00_1704); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1064z00_1703)))->BgL_stackz00)=((obj_t)BgL_auxz00_5706),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1064z00_1703)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1064z00_1703)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1064z00_1703)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1395z00_1702 = BgL_new1064z00_1703; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1395z00_1702));}  else 
{ /* Llib/error.scm 364 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_PROCESS_EXCEPTION)))
{ /* Llib/error.scm 369 */
 BgL_z62processzd2exceptionzb0_bglt BgL_arg1400z00_1709;
{ /* Llib/error.scm 369 */
 BgL_z62processzd2exceptionzb0_bglt BgL_new1066z00_1710;
{ /* Llib/error.scm 369 */
 BgL_z62processzd2exceptionzb0_bglt BgL_new1065z00_1713;
BgL_new1065z00_1713 = 
((BgL_z62processzd2exceptionzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62processzd2exceptionzb0_bgl) ))); 
{ /* Llib/error.scm 369 */
 long BgL_arg1403z00_1714;
BgL_arg1403z00_1714 = 
BGL_CLASS_NUM(BGl_z62processzd2exceptionzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1065z00_1713), BgL_arg1403z00_1714); } 
BgL_new1066z00_1710 = BgL_new1065z00_1713; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1066z00_1710)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1066z00_1710)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5732;
{ /* Llib/error.scm 369 */
 obj_t BgL_arg1401z00_1711;
{ /* Llib/error.scm 369 */
 obj_t BgL_arg1402z00_1712;
{ /* Llib/error.scm 369 */
 obj_t BgL_classz00_3615;
BgL_classz00_3615 = BGl_z62processzd2exceptionzb0zz__objectz00; 
BgL_arg1402z00_1712 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3615); } 
BgL_arg1401z00_1711 = 
VECTOR_REF(BgL_arg1402z00_1712,2L); } 
BgL_auxz00_5732 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1401z00_1711); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1066z00_1710)))->BgL_stackz00)=((obj_t)BgL_auxz00_5732),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1066z00_1710)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1066z00_1710)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1066z00_1710)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
BgL_arg1400z00_1709 = BgL_new1066z00_1710; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1400z00_1709));}  else 
{ /* Llib/error.scm 367 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_TYPE_ERROR)))
{ /* Llib/error.scm 370 */
return 
BGl_raisez00zz__errorz00(
BGl_typezd2errorzd2zz__errorz00(BFALSE, BFALSE, BgL_procz00_10, BgL_msgz00_11, BgL_objz00_12));}  else 
{ /* Llib/error.scm 370 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_TYPENAME_ERROR)))
{ /* Llib/error.scm 373 */
 BgL_z62typezd2errorzb0_bglt BgL_arg1407z00_1718;
BgL_arg1407z00_1718 = 
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_arg1407z00_1718));}  else 
{ /* Llib/error.scm 372 */
if(
(
(long)(BgL_sysnoz00_9)==
(long)(BGL_INDEX_OUT_OF_BOUND_ERROR)))
{ /* Llib/error.scm 375 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_arg1409z00_1720;
{ /* Llib/error.scm 375 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_new1068z00_1721;
{ /* Llib/error.scm 375 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_new1067z00_1724;
BgL_new1067z00_1724 = 
((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl) ))); 
{ /* Llib/error.scm 375 */
 long BgL_arg1412z00_1725;
BgL_arg1412z00_1725 = 
BGL_CLASS_NUM(BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1067z00_1724), BgL_arg1412z00_1725); } 
BgL_new1068z00_1721 = BgL_new1067z00_1724; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1068z00_1721)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1068z00_1721)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5771;
{ /* Llib/error.scm 375 */
 obj_t BgL_arg1410z00_1722;
{ /* Llib/error.scm 375 */
 obj_t BgL_arg1411z00_1723;
{ /* Llib/error.scm 375 */
 obj_t BgL_classz00_3626;
BgL_classz00_3626 = BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00; 
BgL_arg1411z00_1723 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3626); } 
BgL_arg1410z00_1722 = 
VECTOR_REF(BgL_arg1411z00_1723,2L); } 
BgL_auxz00_5771 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1410z00_1722); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1068z00_1721)))->BgL_stackz00)=((obj_t)BgL_auxz00_5771),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1068z00_1721)))->BgL_procz00)=((obj_t)BgL_procz00_10),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1068z00_1721)))->BgL_msgz00)=((obj_t)BgL_msgz00_11),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1068z00_1721)))->BgL_objz00)=((obj_t)BgL_objz00_12),BUNSPEC); 
((((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)COBJECT(BgL_new1068z00_1721))->BgL_indexz00)=((obj_t)
BINT((-1L))),BUNSPEC); 
BgL_arg1409z00_1720 = BgL_new1068z00_1721; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1409z00_1720));}  else 
{ /* Llib/error.scm 374 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_10, BgL_msgz00_11, BgL_objz00_12);} } } } } } } } } } } } } } } } 

}



/* &error/errno */
obj_t BGl_z62errorzf2errnoz90zz__errorz00(obj_t BgL_envz00_5074, obj_t BgL_sysnoz00_5075, obj_t BgL_procz00_5076, obj_t BgL_msgz00_5077, obj_t BgL_objz00_5078)
{
{ /* Llib/error.scm 332 */
{ /* Llib/error.scm 334 */
 int BgL_auxz00_5788;
{ /* Llib/error.scm 334 */
 obj_t BgL_tmpz00_5789;
if(
INTEGERP(BgL_sysnoz00_5075))
{ /* Llib/error.scm 334 */
BgL_tmpz00_5789 = BgL_sysnoz00_5075
; }  else 
{ 
 obj_t BgL_auxz00_5792;
BgL_auxz00_5792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(13649L), BGl_string2908z00zz__errorz00, BGl_string2909z00zz__errorz00, BgL_sysnoz00_5075); 
FAILURE(BgL_auxz00_5792,BFALSE,BFALSE);} 
BgL_auxz00_5788 = 
CINT(BgL_tmpz00_5789); } 
return 
bgl_system_failure(BgL_auxz00_5788, BgL_procz00_5076, BgL_msgz00_5077, BgL_objz00_5078);} } 

}



/* stack-overflow-error */
BGL_EXPORTED_DEF obj_t bgl_stack_overflow_error(void)
{
{ /* Llib/error.scm 383 */
{ /* Llib/error.scm 384 */
 obj_t BgL_stkz00_1726;
{ /* Llib/error.scm 384 */

{ /* Llib/error.scm 384 */

BgL_stkz00_1726 = 
BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE); } } 
{ 
 obj_t BgL_procz00_1731; obj_t BgL_procz00_1727; obj_t BgL_fnamez00_1728; obj_t BgL_locz00_1729;
if(
PAIRP(BgL_stkz00_1726))
{ /* Llib/error.scm 385 */
 obj_t BgL_carzd2111zd2_1736;
BgL_carzd2111zd2_1736 = 
CAR(
((obj_t)BgL_stkz00_1726)); 
if(
PAIRP(BgL_carzd2111zd2_1736))
{ /* Llib/error.scm 385 */
 obj_t BgL_cdrzd2117zd2_1738;
BgL_cdrzd2117zd2_1738 = 
CDR(BgL_carzd2111zd2_1736); 
if(
PAIRP(BgL_cdrzd2117zd2_1738))
{ /* Llib/error.scm 385 */
 obj_t BgL_carzd2121zd2_1740;
BgL_carzd2121zd2_1740 = 
CAR(BgL_cdrzd2117zd2_1738); 
if(
PAIRP(BgL_carzd2121zd2_1740))
{ /* Llib/error.scm 385 */
 obj_t BgL_cdrzd2126zd2_1742;
BgL_cdrzd2126zd2_1742 = 
CDR(BgL_carzd2121zd2_1740); 
if(
(
CAR(BgL_carzd2121zd2_1740)==BGl_symbol2911z00zz__errorz00))
{ /* Llib/error.scm 385 */
if(
PAIRP(BgL_cdrzd2126zd2_1742))
{ /* Llib/error.scm 385 */
 obj_t BgL_cdrzd2130zd2_1746;
BgL_cdrzd2130zd2_1746 = 
CDR(BgL_cdrzd2126zd2_1742); 
if(
PAIRP(BgL_cdrzd2130zd2_1746))
{ /* Llib/error.scm 385 */
if(
NULLP(
CDR(BgL_cdrzd2130zd2_1746)))
{ /* Llib/error.scm 385 */
if(
NULLP(
CDR(BgL_cdrzd2117zd2_1738)))
{ /* Llib/error.scm 385 */
BgL_procz00_1727 = 
CAR(BgL_carzd2111zd2_1736); 
BgL_fnamez00_1728 = 
CAR(BgL_cdrzd2126zd2_1742); 
BgL_locz00_1729 = 
CAR(BgL_cdrzd2130zd2_1746); 
{ /* Llib/error.scm 388 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_arg1439z00_1766;
{ /* Llib/error.scm 388 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1070z00_1767;
{ /* Llib/error.scm 389 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1069z00_1768;
BgL_new1069z00_1768 = 
((BgL_z62stackzd2overflowzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62stackzd2overflowzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 389 */
 long BgL_arg1442z00_1769;
BgL_arg1442z00_1769 = 
BGL_CLASS_NUM(BGl_z62stackzd2overflowzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1069z00_1768), BgL_arg1442z00_1769); } 
BgL_new1070z00_1767 = BgL_new1069z00_1768; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1070z00_1767)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_1728),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1070z00_1767)))->BgL_locationz00)=((obj_t)BgL_locz00_1729),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1070z00_1767)))->BgL_stackz00)=((obj_t)BgL_stkz00_1726),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1070z00_1767)))->BgL_procz00)=((obj_t)BgL_procz00_1727),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1070z00_1767)))->BgL_msgz00)=((obj_t)BGl_string2910z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1070z00_1767)))->BgL_objz00)=((obj_t)
BGL_CURRENT_DYNAMIC_ENV()),BUNSPEC); 
BgL_arg1439z00_1766 = BgL_new1070z00_1767; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1439z00_1766));} }  else 
{ /* Llib/error.scm 385 */
BgL_procz00_1731 = BgL_carzd2111zd2_1736; 
BgL_tagzd2102zd2_1732:
{ /* Llib/error.scm 397 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_arg1443z00_1770;
{ /* Llib/error.scm 397 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1072z00_1771;
{ /* Llib/error.scm 397 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1071z00_1772;
BgL_new1071z00_1772 = 
((BgL_z62stackzd2overflowzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62stackzd2overflowzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 397 */
 long BgL_arg1444z00_1773;
BgL_arg1444z00_1773 = 
BGL_CLASS_NUM(BGl_z62stackzd2overflowzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1071z00_1772), BgL_arg1444z00_1773); } 
BgL_new1072z00_1771 = BgL_new1071z00_1772; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1072z00_1771)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1072z00_1771)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1072z00_1771)))->BgL_stackz00)=((obj_t)BgL_stkz00_1726),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1072z00_1771)))->BgL_procz00)=((obj_t)BgL_procz00_1731),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1072z00_1771)))->BgL_msgz00)=((obj_t)BGl_string2910z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1072z00_1771)))->BgL_objz00)=((obj_t)
BGL_CURRENT_DYNAMIC_ENV()),BUNSPEC); 
BgL_arg1443z00_1770 = BgL_new1072z00_1771; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1443z00_1770));} } }  else 
{ 
 obj_t BgL_procz00_5867;
BgL_procz00_5867 = BgL_carzd2111zd2_1736; 
BgL_procz00_1731 = BgL_procz00_5867; 
goto BgL_tagzd2102zd2_1732;} }  else 
{ 
 obj_t BgL_procz00_5868;
BgL_procz00_5868 = BgL_carzd2111zd2_1736; 
BgL_procz00_1731 = BgL_procz00_5868; 
goto BgL_tagzd2102zd2_1732;} }  else 
{ 
 obj_t BgL_procz00_5869;
BgL_procz00_5869 = BgL_carzd2111zd2_1736; 
BgL_procz00_1731 = BgL_procz00_5869; 
goto BgL_tagzd2102zd2_1732;} }  else 
{ 
 obj_t BgL_procz00_5870;
BgL_procz00_5870 = BgL_carzd2111zd2_1736; 
BgL_procz00_1731 = BgL_procz00_5870; 
goto BgL_tagzd2102zd2_1732;} }  else 
{ 
 obj_t BgL_procz00_5871;
BgL_procz00_5871 = BgL_carzd2111zd2_1736; 
BgL_procz00_1731 = BgL_procz00_5871; 
goto BgL_tagzd2102zd2_1732;} }  else 
{ 
 obj_t BgL_procz00_5872;
BgL_procz00_5872 = BgL_carzd2111zd2_1736; 
BgL_procz00_1731 = BgL_procz00_5872; 
goto BgL_tagzd2102zd2_1732;} }  else 
{ 
 obj_t BgL_procz00_5873;
BgL_procz00_5873 = BgL_carzd2111zd2_1736; 
BgL_procz00_1731 = BgL_procz00_5873; 
goto BgL_tagzd2102zd2_1732;} }  else 
{ /* Llib/error.scm 385 */
{ /* Llib/error.scm 404 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_arg1445z00_1774;
{ /* Llib/error.scm 404 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1074z00_1775;
{ /* Llib/error.scm 404 */
 BgL_z62stackzd2overflowzd2errorz62_bglt BgL_new1073z00_1776;
BgL_new1073z00_1776 = 
((BgL_z62stackzd2overflowzd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62stackzd2overflowzd2errorz62_bgl) ))); 
{ /* Llib/error.scm 404 */
 long BgL_arg1446z00_1777;
BgL_arg1446z00_1777 = 
BGL_CLASS_NUM(BGl_z62stackzd2overflowzd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1073z00_1776), BgL_arg1446z00_1777); } 
BgL_new1074z00_1775 = BgL_new1073z00_1776; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1074z00_1775)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1074z00_1775)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1074z00_1775)))->BgL_stackz00)=((obj_t)BgL_stkz00_1726),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1074z00_1775)))->BgL_procz00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1074z00_1775)))->BgL_msgz00)=((obj_t)BGl_string2910z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1074z00_1775)))->BgL_objz00)=((obj_t)
BGL_CURRENT_DYNAMIC_ENV()),BUNSPEC); 
BgL_arg1445z00_1774 = BgL_new1074z00_1775; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1445z00_1774));} } } } } 

}



/* &stack-overflow-erro2841 */
obj_t BGl_z62stackzd2overflowzd2erro2841z62zz__errorz00(obj_t BgL_envz00_5079)
{
{ /* Llib/error.scm 383 */
return 
bgl_stack_overflow_error();} 

}



/* exit */
BGL_EXPORTED_DEF obj_t BGl_exitz00zz__errorz00(obj_t BgL_nz00_13)
{
{ /* Llib/error.scm 413 */
{ /* Llib/error.scm 414 */
 obj_t BgL_valz00_1779;
if(
NULLP(BgL_nz00_13))
{ /* Llib/error.scm 415 */
BgL_valz00_1779 = 
BINT(0L); }  else 
{ /* Llib/error.scm 415 */
if(
INTEGERP(
CAR(
((obj_t)BgL_nz00_13))))
{ /* Llib/error.scm 416 */
BgL_valz00_1779 = 
CAR(
((obj_t)BgL_nz00_13)); }  else 
{ /* Llib/error.scm 416 */
BgL_valz00_1779 = 
BINT(0L); } } 
BIGLOO_EXIT(BgL_valz00_1779); 
return BgL_valz00_1779;} } 

}



/* &exit */
obj_t BGl_z62exitz62zz__errorz00(obj_t BgL_envz00_5080, obj_t BgL_nz00_5081)
{
{ /* Llib/error.scm 413 */
return 
BGl_exitz00zz__errorz00(BgL_nz00_5081);} 

}



/* with-exception-handler */
BGL_EXPORTED_DEF obj_t BGl_withzd2exceptionzd2handlerz00zz__errorz00(obj_t BgL_handlerz00_14, obj_t BgL_thunkz00_15)
{
{ /* Llib/error.scm 424 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_handlerz00_14, 
(int)(1L)))
{ /* Llib/error.scm 426 */
 obj_t BgL_oldzd2handlerszd2_1784;
BgL_oldzd2handlerszd2_1784 = 
BGL_ERROR_HANDLER_GET(); 
{ /* Llib/error.scm 429 */
 obj_t BgL_arg1451z00_1785;
{ /* Llib/error.scm 429 */
 obj_t BgL_zc3z04anonymousza31453ze3z87_5082;
BgL_zc3z04anonymousza31453ze3z87_5082 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31453ze3ze5zz__errorz00, 
(int)(1L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_5082, 
(int)(0L), BgL_oldzd2handlerszd2_1784); 
PROCEDURE_SET(BgL_zc3z04anonymousza31453ze3z87_5082, 
(int)(1L), 
((obj_t)BgL_handlerz00_14)); 
BgL_arg1451z00_1785 = 
MAKE_STACK_PAIR(BgL_zc3z04anonymousza31453ze3z87_5082, BUNSPEC); } 
BGL_ERROR_HANDLER_SET(BgL_arg1451z00_1785); BUNSPEC; } 
{ /* Llib/error.scm 432 */
 obj_t BgL_exitd1075z00_1790;
BgL_exitd1075z00_1790 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/error.scm 432 */
 obj_t BgL_tmp1077z00_1791;
{ /* Llib/error.scm 432 */
 obj_t BgL_arg1455z00_1793;
BgL_arg1455z00_1793 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1790); 
BgL_tmp1077z00_1791 = 
MAKE_YOUNG_PAIR(BgL_oldzd2handlerszd2_1784, BgL_arg1455z00_1793); } 
{ /* Llib/error.scm 432 */

BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1790, BgL_tmp1077z00_1791); BUNSPEC; 
{ /* Llib/error.scm 433 */
 obj_t BgL_tmp1076z00_1792;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_15, 
(int)(0L)))
{ /* Llib/error.scm 433 */
BgL_tmp1076z00_1792 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_15); }  else 
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_arg1511z00_3659;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1079z00_3660;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1078z00_3661;
BgL_new1078z00_3661 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 551 */
 long BgL_arg1514z00_3662;
BgL_arg1514z00_3662 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_3661), BgL_arg1514z00_3662); } 
BgL_new1079z00_3660 = BgL_new1078z00_3661; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3660)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3660)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5938;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1512z00_3663;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1513z00_3664;
{ /* Llib/error.scm 551 */
 obj_t BgL_classz00_3668;
BgL_classz00_3668 = BGl_z62errorz62zz__objectz00; 
BgL_arg1513z00_3664 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3668); } 
BgL_arg1512z00_3663 = 
VECTOR_REF(BgL_arg1513z00_3664,2L); } 
BgL_auxz00_5938 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1512z00_3663); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3660)))->BgL_stackz00)=((obj_t)BgL_auxz00_5938),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3660))->BgL_procz00)=((obj_t)BGl_string2913z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3660))->BgL_msgz00)=((obj_t)BGl_string2914z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3660))->BgL_objz00)=((obj_t)BgL_thunkz00_15),BUNSPEC); 
BgL_arg1511z00_3659 = BgL_new1079z00_3660; } 
BgL_tmp1076z00_1792 = 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1511z00_3659)); } 
{ /* Llib/error.scm 432 */
 bool_t BgL_test3286z00_5949;
{ /* Llib/error.scm 432 */
 obj_t BgL_arg2609z00_3671;
BgL_arg2609z00_3671 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1790); 
BgL_test3286z00_5949 = 
PAIRP(BgL_arg2609z00_3671); } 
if(BgL_test3286z00_5949)
{ /* Llib/error.scm 432 */
 obj_t BgL_arg2607z00_3672;
{ /* Llib/error.scm 432 */
 obj_t BgL_arg2608z00_3673;
BgL_arg2608z00_3673 = 
BGL_EXITD_PROTECT(BgL_exitd1075z00_1790); 
BgL_arg2607z00_3672 = 
CDR(
((obj_t)BgL_arg2608z00_3673)); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1075z00_1790, BgL_arg2607z00_3672); BUNSPEC; }  else 
{ /* Llib/error.scm 432 */BFALSE; } } 
BGL_ERROR_HANDLER_SET(BgL_oldzd2handlerszd2_1784); BUNSPEC; 
return BgL_tmp1076z00_1792;} } } } }  else 
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_arg1511z00_3675;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1079z00_3676;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1078z00_3677;
BgL_new1078z00_3677 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 551 */
 long BgL_arg1514z00_3678;
BgL_arg1514z00_3678 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_3677), BgL_arg1514z00_3678); } 
BgL_new1079z00_3676 = BgL_new1078z00_3677; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3676)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3676)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_5965;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1512z00_3679;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1513z00_3680;
{ /* Llib/error.scm 551 */
 obj_t BgL_classz00_3684;
BgL_classz00_3684 = BGl_z62errorz62zz__objectz00; 
BgL_arg1513z00_3680 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3684); } 
BgL_arg1512z00_3679 = 
VECTOR_REF(BgL_arg1513z00_3680,2L); } 
BgL_auxz00_5965 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1512z00_3679); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_3676)))->BgL_stackz00)=((obj_t)BgL_auxz00_5965),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3676))->BgL_procz00)=((obj_t)BGl_string2913z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3676))->BgL_msgz00)=((obj_t)BGl_string2915z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_3676))->BgL_objz00)=((obj_t)BgL_handlerz00_14),BUNSPEC); 
BgL_arg1511z00_3675 = BgL_new1079z00_3676; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1511z00_3675));} } 

}



/* &with-exception-handler */
obj_t BGl_z62withzd2exceptionzd2handlerz62zz__errorz00(obj_t BgL_envz00_5083, obj_t BgL_handlerz00_5084, obj_t BgL_thunkz00_5085)
{
{ /* Llib/error.scm 424 */
{ /* Llib/error.scm 425 */
 obj_t BgL_auxz00_5983; obj_t BgL_auxz00_5976;
if(
PROCEDUREP(BgL_thunkz00_5085))
{ /* Llib/error.scm 425 */
BgL_auxz00_5983 = BgL_thunkz00_5085
; }  else 
{ 
 obj_t BgL_auxz00_5986;
BgL_auxz00_5986 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(17041L), BGl_string2916z00zz__errorz00, BGl_string2917z00zz__errorz00, BgL_thunkz00_5085); 
FAILURE(BgL_auxz00_5986,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_handlerz00_5084))
{ /* Llib/error.scm 425 */
BgL_auxz00_5976 = BgL_handlerz00_5084
; }  else 
{ 
 obj_t BgL_auxz00_5979;
BgL_auxz00_5979 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(17041L), BGl_string2916z00zz__errorz00, BGl_string2917z00zz__errorz00, BgL_handlerz00_5084); 
FAILURE(BgL_auxz00_5979,BFALSE,BFALSE);} 
return 
BGl_withzd2exceptionzd2handlerz00zz__errorz00(BgL_auxz00_5976, BgL_auxz00_5983);} } 

}



/* &<@anonymous:1453> */
obj_t BGl_z62zc3z04anonymousza31453ze3ze5zz__errorz00(obj_t BgL_envz00_5086, obj_t BgL_cz00_5089)
{
{ /* Llib/error.scm 428 */
{ /* Llib/error.scm 429 */
 obj_t BgL_oldzd2handlerszd2_5087; obj_t BgL_handlerz00_5088;
BgL_oldzd2handlerszd2_5087 = 
PROCEDURE_REF(BgL_envz00_5086, 
(int)(0L)); 
BgL_handlerz00_5088 = 
PROCEDURE_REF(BgL_envz00_5086, 
(int)(1L)); 
BGL_ERROR_HANDLER_SET(BgL_oldzd2handlerszd2_5087); BUNSPEC; 
return 
BGL_PROCEDURE_CALL1(BgL_handlerz00_5088, BgL_cz00_5089);} } 

}



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

}



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

}



/* &<@anonymous:1456> */
obj_t BGl_z62zc3z04anonymousza31456ze3ze5zz__errorz00(obj_t BgL_envz00_5092, obj_t BgL_valz00_5093)
{
{ /* Llib/error.scm 443 */
return 
BGl_raisez00zz__errorz00(BgL_valz00_5093);} 

}



/* raise */
BGL_EXPORTED_DEF obj_t BGl_raisez00zz__errorz00(obj_t BgL_valz00_16)
{
{ /* Llib/error.scm 470 */
{ 
 obj_t BgL_handlerz00_1825; obj_t BgL_valz00_1826;
{ /* Llib/error.scm 507 */
 obj_t BgL_handlerz00_1800;
BgL_handlerz00_1800 = 
BGL_ERROR_HANDLER_GET(); 
if(
PAIRP(BgL_handlerz00_1800))
{ /* Llib/error.scm 511 */
 bool_t BgL_test3290z00_6005;
{ /* Llib/error.scm 511 */
 obj_t BgL_tmpz00_6006;
BgL_tmpz00_6006 = 
CDR(BgL_handlerz00_1800); 
BgL_test3290z00_6005 = 
BGL_DYNAMIC_ENVP(BgL_tmpz00_6006); } 
if(BgL_test3290z00_6005)
{ /* Llib/error.scm 477 */
 obj_t BgL_denvz00_3699; obj_t BgL_hz00_3700;
BgL_denvz00_3699 = 
CDR(BgL_handlerz00_1800); 
BgL_hz00_3700 = 
CAR(BgL_handlerz00_1800); 
SET_CDR(BgL_handlerz00_1800, BgL_valz00_16); 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_hz00_3700, BgL_denvz00_3699);}  else 
{ /* Llib/error.scm 513 */
 bool_t BgL_test3291z00_6013;
{ /* Llib/error.scm 513 */
 obj_t BgL_tmpz00_6014;
BgL_tmpz00_6014 = 
CDR(BgL_handlerz00_1800); 
BgL_test3291z00_6013 = 
CELLP(BgL_tmpz00_6014); } 
if(BgL_test3291z00_6013)
{ /* Llib/error.scm 487 */
 obj_t BgL_cellz00_3705; obj_t BgL_hz00_3706;
BgL_cellz00_3705 = 
CDR(BgL_handlerz00_1800); 
BgL_hz00_3706 = 
CAR(BgL_handlerz00_1800); 
CELL_SET(
((obj_t)BgL_cellz00_3705), BgL_valz00_16); 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_hz00_3706, BgL_cellz00_3705);}  else 
{ /* Llib/error.scm 513 */
if(
CBOOL(
CDR(BgL_handlerz00_1800)))
{ /* Llib/error.scm 515 */
if(
(
CDR(BgL_handlerz00_1800)==BUNSPEC))
{ /* Llib/error.scm 519 */
 obj_t BgL_fun1466z00_1809;
BgL_fun1466z00_1809 = 
CAR(BgL_handlerz00_1800); 
return 
BGL_PROCEDURE_CALL1(BgL_fun1466z00_1809, BgL_valz00_16);}  else 
{ /* Llib/error.scm 518 */
BgL_handlerz00_1825 = BgL_handlerz00_1800; 
BgL_valz00_1826 = BgL_valz00_16; 
BgL_zc3z04anonymousza31473ze3z87_1827:
{ /* Llib/error.scm 503 */
 obj_t BgL_arg1474z00_1828;
{ /* Llib/error.scm 503 */
 obj_t BgL_tmpz00_6033;
BgL_tmpz00_6033 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1474z00_1828 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6033); } 
{ /* Llib/error.scm 503 */
 obj_t BgL_list1475z00_1829;
{ /* Llib/error.scm 503 */
 obj_t BgL_arg1476z00_1830;
{ /* Llib/error.scm 503 */
 obj_t BgL_arg1479z00_1831;
{ /* Llib/error.scm 503 */
 obj_t BgL_arg1480z00_1832;
{ /* Llib/error.scm 503 */
 obj_t BgL_arg1481z00_1833;
{ /* Llib/error.scm 503 */
 obj_t BgL_arg1482z00_1834;
BgL_arg1482z00_1834 = 
MAKE_YOUNG_PAIR(BgL_handlerz00_1825, BNIL); 
BgL_arg1481z00_1833 = 
MAKE_YOUNG_PAIR(BGl_string2919z00zz__errorz00, BgL_arg1482z00_1834); } 
BgL_arg1480z00_1832 = 
MAKE_YOUNG_PAIR(BGl_string2920z00zz__errorz00, BgL_arg1481z00_1833); } 
BgL_arg1479z00_1831 = 
MAKE_YOUNG_PAIR(
BINT(503L), BgL_arg1480z00_1832); } 
BgL_arg1476z00_1830 = 
MAKE_YOUNG_PAIR(BGl_string2921z00zz__errorz00, BgL_arg1479z00_1831); } 
BgL_list1475z00_1829 = 
MAKE_YOUNG_PAIR(BGl_string2922z00zz__errorz00, BgL_arg1476z00_1830); } 
BGl_tprintz00zz__r4_output_6_10_3z00(BgL_arg1474z00_1828, BgL_list1475z00_1829); } } 
{ /* Llib/error.scm 504 */
 obj_t BgL_arg1483z00_1835;
{ /* Llib/error.scm 504 */
 obj_t BgL_tmpz00_6044;
BgL_tmpz00_6044 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1483z00_1835 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6044); } 
{ /* Llib/error.scm 504 */
 obj_t BgL_list1484z00_1836;
{ /* Llib/error.scm 504 */
 obj_t BgL_arg1486z00_1837;
{ /* Llib/error.scm 504 */
 obj_t BgL_arg1487z00_1838;
{ /* Llib/error.scm 504 */
 obj_t BgL_arg1488z00_1839;
{ /* Llib/error.scm 504 */
 obj_t BgL_arg1489z00_1840;
{ /* Llib/error.scm 504 */
 obj_t BgL_arg1490z00_1841;
BgL_arg1490z00_1841 = 
MAKE_YOUNG_PAIR(BgL_valz00_1826, BNIL); 
BgL_arg1489z00_1840 = 
MAKE_YOUNG_PAIR(BGl_string2923z00zz__errorz00, BgL_arg1490z00_1841); } 
BgL_arg1488z00_1839 = 
MAKE_YOUNG_PAIR(BGl_string2920z00zz__errorz00, BgL_arg1489z00_1840); } 
BgL_arg1487z00_1838 = 
MAKE_YOUNG_PAIR(
BINT(504L), BgL_arg1488z00_1839); } 
BgL_arg1486z00_1837 = 
MAKE_YOUNG_PAIR(BGl_string2921z00zz__errorz00, BgL_arg1487z00_1838); } 
BgL_list1484z00_1836 = 
MAKE_YOUNG_PAIR(BGl_string2922z00zz__errorz00, BgL_arg1486z00_1837); } 
BGl_tprintz00zz__r4_output_6_10_3z00(BgL_arg1483z00_1835, BgL_list1484z00_1836); } } 
{ /* Llib/error.scm 505 */
 obj_t BgL_list1491z00_1842;
BgL_list1491z00_1842 = 
MAKE_YOUNG_PAIR(
BINT(0L), BNIL); 
BGL_TAIL return 
BGl_exitz00zz__errorz00(BgL_list1491z00_1842);} } }  else 
{ /* Llib/error.scm 515 */
BGl_defaultzd2exceptionzd2handlerz00zz__errorz00(BgL_valz00_16); 
{ /* Llib/error.scm 517 */
 obj_t BgL_res2823z00_3748;
{ /* Llib/error.scm 325 */
 obj_t BgL_classz00_3714;
BgL_classz00_3714 = BGl_z62exceptionz62zz__objectz00; ((bool_t)0); } 
BgL_res2823z00_3748 = 
BGl_errorz00zz__errorz00(BGl_string2924z00zz__errorz00, BGl_string2925z00zz__errorz00, BgL_valz00_16); 
return BgL_res2823z00_3748;} } } } }  else 
{ 
 obj_t BgL_valz00_6061; obj_t BgL_handlerz00_6060;
BgL_handlerz00_6060 = BgL_handlerz00_1800; 
BgL_valz00_6061 = BgL_valz00_16; 
BgL_valz00_1826 = BgL_valz00_6061; 
BgL_handlerz00_1825 = BgL_handlerz00_6060; 
goto BgL_zc3z04anonymousza31473ze3z87_1827;} } } } 

}



/* &raise */
obj_t BGl_z62raisez62zz__errorz00(obj_t BgL_envz00_5094, obj_t BgL_valz00_5095)
{
{ /* Llib/error.scm 470 */
return 
BGl_raisez00zz__errorz00(BgL_valz00_5095);} 

}



/* default-exception-handler */
obj_t BGl_defaultzd2exceptionzd2handlerz00zz__errorz00(obj_t BgL_valz00_17)
{
{ /* Llib/error.scm 528 */
BGl_exceptionzd2notifyzd2zz__objectz00(BgL_valz00_17); 
{ /* Llib/error.scm 530 */
 bool_t BgL_test3294z00_6064;
{ /* Llib/error.scm 530 */
 obj_t BgL_classz00_3749;
BgL_classz00_3749 = BGl_z62warningz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_valz00_17))
{ /* Llib/error.scm 530 */
 BgL_objectz00_bglt BgL_arg2767z00_3751;
BgL_arg2767z00_3751 = 
(BgL_objectz00_bglt)(BgL_valz00_17); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 530 */
 long BgL_idxz00_3757;
BgL_idxz00_3757 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_3751); 
BgL_test3294z00_6064 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_3757+3L))==BgL_classz00_3749); }  else 
{ /* Llib/error.scm 530 */
 bool_t BgL_res2824z00_3782;
{ /* Llib/error.scm 530 */
 obj_t BgL_oclassz00_3765;
{ /* Llib/error.scm 530 */
 obj_t BgL_arg2777z00_3773; long BgL_arg2778z00_3774;
BgL_arg2777z00_3773 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/error.scm 530 */
 long BgL_arg2779z00_3775;
BgL_arg2779z00_3775 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_3751); 
BgL_arg2778z00_3774 = 
(BgL_arg2779z00_3775-OBJECT_TYPE); } 
BgL_oclassz00_3765 = 
VECTOR_REF(BgL_arg2777z00_3773,BgL_arg2778z00_3774); } 
{ /* Llib/error.scm 530 */
 bool_t BgL__ortest_1196z00_3766;
BgL__ortest_1196z00_3766 = 
(BgL_classz00_3749==BgL_oclassz00_3765); 
if(BgL__ortest_1196z00_3766)
{ /* Llib/error.scm 530 */
BgL_res2824z00_3782 = BgL__ortest_1196z00_3766; }  else 
{ /* Llib/error.scm 530 */
 long BgL_odepthz00_3767;
{ /* Llib/error.scm 530 */
 obj_t BgL_arg2764z00_3768;
BgL_arg2764z00_3768 = 
(BgL_oclassz00_3765); 
BgL_odepthz00_3767 = 
BGL_CLASS_DEPTH(BgL_arg2764z00_3768); } 
if(
(3L<BgL_odepthz00_3767))
{ /* Llib/error.scm 530 */
 obj_t BgL_arg2762z00_3770;
{ /* Llib/error.scm 530 */
 obj_t BgL_arg2763z00_3771;
BgL_arg2763z00_3771 = 
(BgL_oclassz00_3765); 
BgL_arg2762z00_3770 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_3771, 3L); } 
BgL_res2824z00_3782 = 
(BgL_arg2762z00_3770==BgL_classz00_3749); }  else 
{ /* Llib/error.scm 530 */
BgL_res2824z00_3782 = ((bool_t)0); } } } } 
BgL_test3294z00_6064 = BgL_res2824z00_3782; } }  else 
{ /* Llib/error.scm 530 */
BgL_test3294z00_6064 = ((bool_t)0)
; } } 
if(BgL_test3294z00_6064)
{ /* Llib/error.scm 530 */BFALSE; }  else 
{ /* Llib/error.scm 531 */
 obj_t BgL_retvalz00_1848;
{ /* Llib/error.scm 531 */
 bool_t BgL_test3299z00_6087;
{ /* Llib/error.scm 531 */
 obj_t BgL_classz00_3783;
BgL_classz00_3783 = BGl_z62errorz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_valz00_17))
{ /* Llib/error.scm 531 */
 BgL_objectz00_bglt BgL_arg2767z00_3785;
BgL_arg2767z00_3785 = 
(BgL_objectz00_bglt)(BgL_valz00_17); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 531 */
 long BgL_idxz00_3791;
BgL_idxz00_3791 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_3785); 
BgL_test3299z00_6087 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_3791+3L))==BgL_classz00_3783); }  else 
{ /* Llib/error.scm 531 */
 bool_t BgL_res2825z00_3816;
{ /* Llib/error.scm 531 */
 obj_t BgL_oclassz00_3799;
{ /* Llib/error.scm 531 */
 obj_t BgL_arg2777z00_3807; long BgL_arg2778z00_3808;
BgL_arg2777z00_3807 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/error.scm 531 */
 long BgL_arg2779z00_3809;
BgL_arg2779z00_3809 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_3785); 
BgL_arg2778z00_3808 = 
(BgL_arg2779z00_3809-OBJECT_TYPE); } 
BgL_oclassz00_3799 = 
VECTOR_REF(BgL_arg2777z00_3807,BgL_arg2778z00_3808); } 
{ /* Llib/error.scm 531 */
 bool_t BgL__ortest_1196z00_3800;
BgL__ortest_1196z00_3800 = 
(BgL_classz00_3783==BgL_oclassz00_3799); 
if(BgL__ortest_1196z00_3800)
{ /* Llib/error.scm 531 */
BgL_res2825z00_3816 = BgL__ortest_1196z00_3800; }  else 
{ /* Llib/error.scm 531 */
 long BgL_odepthz00_3801;
{ /* Llib/error.scm 531 */
 obj_t BgL_arg2764z00_3802;
BgL_arg2764z00_3802 = 
(BgL_oclassz00_3799); 
BgL_odepthz00_3801 = 
BGL_CLASS_DEPTH(BgL_arg2764z00_3802); } 
if(
(3L<BgL_odepthz00_3801))
{ /* Llib/error.scm 531 */
 obj_t BgL_arg2762z00_3804;
{ /* Llib/error.scm 531 */
 obj_t BgL_arg2763z00_3805;
BgL_arg2763z00_3805 = 
(BgL_oclassz00_3799); 
BgL_arg2762z00_3804 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_3805, 3L); } 
BgL_res2825z00_3816 = 
(BgL_arg2762z00_3804==BgL_classz00_3783); }  else 
{ /* Llib/error.scm 531 */
BgL_res2825z00_3816 = ((bool_t)0); } } } } 
BgL_test3299z00_6087 = BgL_res2825z00_3816; } }  else 
{ /* Llib/error.scm 531 */
BgL_test3299z00_6087 = ((bool_t)0)
; } } 
if(BgL_test3299z00_6087)
{ /* Llib/error.scm 531 */
BgL_retvalz00_1848 = 
BINT(1L); }  else 
{ /* Llib/error.scm 531 */
BgL_retvalz00_1848 = 
BINT(2L); } } 
{ /* Llib/error.scm 532 */
 obj_t BgL_zc3z04anonymousza31495ze3z87_5096;
BgL_zc3z04anonymousza31495ze3z87_5096 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31495ze3ze5zz__errorz00, 
(int)(1L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31495ze3z87_5096, 
(int)(0L), BgL_retvalz00_1848); 
unwind_stack_until(BFALSE, BFALSE, BgL_retvalz00_1848, BgL_zc3z04anonymousza31495ze3z87_5096, BFALSE); } } } 
return BUNSPEC;} 

}



/* &<@anonymous:1495> */
obj_t BGl_z62zc3z04anonymousza31495ze3ze5zz__errorz00(obj_t BgL_envz00_5097, obj_t BgL_xz00_5099)
{
{ /* Llib/error.scm 532 */
{ /* Llib/error.scm 532 */
 obj_t BgL_tmpz00_6118;
BgL_tmpz00_6118 = 
PROCEDURE_REF(BgL_envz00_5097, 
(int)(0L)); 
return 
BIGLOO_EXIT(BgL_tmpz00_6118);} } 

}



/* module-init-error */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initzd2errorz00zz__errorz00(char * BgL_currentz00_18, char * BgL_fromz00_19)
{
{ /* Llib/error.scm 538 */
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1497z00_1854;
{ /* Llib/error.scm 539 */
 obj_t BgL_tmpz00_6122;
BgL_tmpz00_6122 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1497z00_1854 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6122); } 
{ /* Llib/error.scm 539 */
 obj_t BgL_list1498z00_1855;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1499z00_1856;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1500z00_1857;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1501z00_1858;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1502z00_1859;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1505z00_1860;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1506z00_1861;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1507z00_1862;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1508z00_1863;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1509z00_1864;
{ /* Llib/error.scm 539 */
 obj_t BgL_arg1510z00_1865;
BgL_arg1510z00_1865 = 
MAKE_YOUNG_PAIR(BGl_string2926z00zz__errorz00, BNIL); 
BgL_arg1509z00_1864 = 
MAKE_YOUNG_PAIR(
string_to_bstring(BgL_fromz00_19), BgL_arg1510z00_1865); } 
BgL_arg1508z00_1863 = 
MAKE_YOUNG_PAIR(BGl_string2927z00zz__errorz00, BgL_arg1509z00_1864); } 
BgL_arg1507z00_1862 = 
MAKE_YOUNG_PAIR(BGl_string2928z00zz__errorz00, BgL_arg1508z00_1863); } 
BgL_arg1506z00_1861 = 
MAKE_YOUNG_PAIR(
string_to_bstring(BgL_fromz00_19), BgL_arg1507z00_1862); } 
BgL_arg1505z00_1860 = 
MAKE_YOUNG_PAIR(BGl_string2929z00zz__errorz00, BgL_arg1506z00_1861); } 
BgL_arg1502z00_1859 = 
MAKE_YOUNG_PAIR(
string_to_bstring(BgL_currentz00_18), BgL_arg1505z00_1860); } 
BgL_arg1501z00_1858 = 
MAKE_YOUNG_PAIR(BGl_string2930z00zz__errorz00, BgL_arg1502z00_1859); } 
BgL_arg1500z00_1857 = 
MAKE_YOUNG_PAIR(BGl_string2931z00zz__errorz00, BgL_arg1501z00_1858); } 
BgL_arg1499z00_1856 = 
MAKE_YOUNG_PAIR(
string_to_bstring(BgL_currentz00_18), BgL_arg1500z00_1857); } 
BgL_list1498z00_1855 = 
MAKE_YOUNG_PAIR(BGl_string2932z00zz__errorz00, BgL_arg1499z00_1856); } 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1497z00_1854, BgL_list1498z00_1855); } } 
{ /* Llib/error.scm 544 */
 obj_t BgL_tmpz00_6141;
BgL_tmpz00_6141 = 
BINT(1L); 
return 
BIGLOO_EXIT(BgL_tmpz00_6141);} } 

}



/* &module-init-error */
obj_t BGl_z62modulezd2initzd2errorz62zz__errorz00(obj_t BgL_envz00_5100, obj_t BgL_currentz00_5101, obj_t BgL_fromz00_5102)
{
{ /* Llib/error.scm 538 */
{ /* Llib/error.scm 543 */
 char * BgL_auxz00_6153; char * BgL_auxz00_6144;
{ /* Llib/error.scm 543 */
 obj_t BgL_tmpz00_6154;
if(
STRINGP(BgL_fromz00_5102))
{ /* Llib/error.scm 543 */
BgL_tmpz00_6154 = BgL_fromz00_5102
; }  else 
{ 
 obj_t BgL_auxz00_6157;
BgL_auxz00_6157 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(22170L), BGl_string2933z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_fromz00_5102); 
FAILURE(BgL_auxz00_6157,BFALSE,BFALSE);} 
BgL_auxz00_6153 = 
BSTRING_TO_STRING(BgL_tmpz00_6154); } 
{ /* Llib/error.scm 543 */
 obj_t BgL_tmpz00_6145;
if(
STRINGP(BgL_currentz00_5101))
{ /* Llib/error.scm 543 */
BgL_tmpz00_6145 = BgL_currentz00_5101
; }  else 
{ 
 obj_t BgL_auxz00_6148;
BgL_auxz00_6148 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(22170L), BGl_string2933z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_currentz00_5101); 
FAILURE(BgL_auxz00_6148,BFALSE,BFALSE);} 
BgL_auxz00_6144 = 
BSTRING_TO_STRING(BgL_tmpz00_6145); } 
return 
BGl_modulezd2initzd2errorz00zz__errorz00(BgL_auxz00_6144, BgL_auxz00_6153);} } 

}



/* 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 549 */
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_arg1511z00_1866;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1079z00_1867;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1078z00_1870;
BgL_new1078z00_1870 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 551 */
 long BgL_arg1514z00_1871;
BgL_arg1514z00_1871 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_1870), BgL_arg1514z00_1871); } 
BgL_new1079z00_1867 = BgL_new1078z00_1870; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_1867)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_1867)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6171;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1512z00_1868;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1513z00_1869;
{ /* Llib/error.scm 551 */
 obj_t BgL_classz00_3821;
BgL_classz00_3821 = BGl_z62errorz62zz__objectz00; 
BgL_arg1513z00_1869 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3821); } 
BgL_arg1512z00_1868 = 
VECTOR_REF(BgL_arg1513z00_1869,2L); } 
BgL_auxz00_6171 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1512z00_1868); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_1867)))->BgL_stackz00)=((obj_t)BgL_auxz00_6171),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_1867))->BgL_procz00)=((obj_t)BgL_procz00_20),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_1867))->BgL_msgz00)=((obj_t)BgL_msgz00_21),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_1867))->BgL_objz00)=((obj_t)BgL_objz00_22),BUNSPEC); 
BgL_arg1511z00_1866 = BgL_new1079z00_1867; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1511z00_1866));} } 

}



/* &error2842 */
obj_t BGl_z62error2842z62zz__errorz00(obj_t BgL_envz00_5103, obj_t BgL_procz00_5104, obj_t BgL_msgz00_5105, obj_t BgL_objz00_5106)
{
{ /* Llib/error.scm 549 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_5104, BgL_msgz00_5105, BgL_objz00_5106);} 

}



/* 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 559 */
{ /* Llib/error.scm 561 */
 BgL_z62errorz62_bglt BgL_arg1515z00_3823;
{ /* Llib/error.scm 561 */
 BgL_z62errorz62_bglt BgL_new1081z00_3824;
{ /* Llib/error.scm 562 */
 BgL_z62errorz62_bglt BgL_new1080z00_3825;
BgL_new1080z00_3825 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 562 */
 long BgL_arg1520z00_3826;
BgL_arg1520z00_3826 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1080z00_3825), BgL_arg1520z00_3826); } 
BgL_new1081z00_3824 = BgL_new1080z00_3825; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3824)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_26),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3824)))->BgL_locationz00)=((obj_t)BgL_locz00_27),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6191;
{ /* Llib/error.scm 563 */
 obj_t BgL_arg1516z00_3827;
{ /* Llib/error.scm 563 */
 obj_t BgL_arg1517z00_3828;
{ /* Llib/error.scm 563 */
 obj_t BgL_classz00_3832;
BgL_classz00_3832 = BGl_z62errorz62zz__objectz00; 
BgL_arg1517z00_3828 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3832); } 
BgL_arg1516z00_3827 = 
VECTOR_REF(BgL_arg1517z00_3828,2L); } 
BgL_auxz00_6191 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1516z00_3827); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3824)))->BgL_stackz00)=((obj_t)BgL_auxz00_6191),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3824))->BgL_procz00)=((obj_t)BgL_procz00_23),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3824))->BgL_msgz00)=((obj_t)BgL_msgz00_24),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3824))->BgL_objz00)=((obj_t)BgL_objz00_25),BUNSPEC); 
BgL_arg1515z00_3823 = BgL_new1081z00_3824; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1515z00_3823));} } 

}



/* &error/location */
obj_t BGl_z62errorzf2locationz90zz__errorz00(obj_t BgL_envz00_5107, obj_t BgL_procz00_5108, obj_t BgL_msgz00_5109, obj_t BgL_objz00_5110, obj_t BgL_fnamez00_5111, obj_t BgL_locz00_5112)
{
{ /* Llib/error.scm 559 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_5108, BgL_msgz00_5109, BgL_objz00_5110, BgL_fnamez00_5111, BgL_locz00_5112);} 

}



/* 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 571 */
if(
PAIRP(BgL_locz00_31))
{ /* Llib/error.scm 572 */
 obj_t BgL_cdrzd2186zd2_1884;
BgL_cdrzd2186zd2_1884 = 
CDR(
((obj_t)BgL_locz00_31)); 
if(
(
CAR(
((obj_t)BgL_locz00_31))==BGl_symbol2911z00zz__errorz00))
{ /* Llib/error.scm 572 */
if(
PAIRP(BgL_cdrzd2186zd2_1884))
{ /* Llib/error.scm 572 */
 obj_t BgL_cdrzd2190zd2_1888;
BgL_cdrzd2190zd2_1888 = 
CDR(BgL_cdrzd2186zd2_1884); 
if(
PAIRP(BgL_cdrzd2190zd2_1888))
{ /* Llib/error.scm 572 */
if(
NULLP(
CDR(BgL_cdrzd2190zd2_1888)))
{ /* Llib/error.scm 572 */
return 
BGl_errorzf2locationzf2zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30, 
CAR(BgL_cdrzd2186zd2_1884), 
CAR(BgL_cdrzd2190zd2_1888));}  else 
{ /* Llib/error.scm 572 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} }  else 
{ /* Llib/error.scm 572 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} }  else 
{ /* Llib/error.scm 572 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} }  else 
{ /* Llib/error.scm 572 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_28, BgL_msgz00_29, BgL_objz00_30);} }  else 
{ /* Llib/error.scm 572 */
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_5113, obj_t BgL_procz00_5114, obj_t BgL_msgz00_5115, obj_t BgL_objz00_5116, obj_t BgL_locz00_5117)
{
{ /* Llib/error.scm 571 */
return 
BGl_errorzf2sourcezd2locationz20zz__errorz00(BgL_procz00_5114, BgL_msgz00_5115, BgL_objz00_5116, BgL_locz00_5117);} 

}



/* 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 581 */
if(
EPAIRP(BgL_sourcez00_35))
{ /* Llib/error.scm 584 */
 obj_t BgL_arg1537z00_3853;
BgL_arg1537z00_3853 = 
CER(
((obj_t)BgL_sourcez00_35)); 
BGL_TAIL return 
BGl_errorzf2sourcezd2locationz20zz__errorz00(BgL_procz00_32, BgL_msgz00_33, BgL_objz00_34, BgL_arg1537z00_3853);}  else 
{ /* Llib/error.scm 582 */
return 
BGl_errorz00zz__errorz00(BgL_procz00_32, BgL_msgz00_33, BgL_objz00_34);} } 

}



/* &error/source */
obj_t BGl_z62errorzf2sourcez90zz__errorz00(obj_t BgL_envz00_5118, obj_t BgL_procz00_5119, obj_t BgL_msgz00_5120, obj_t BgL_objz00_5121, obj_t BgL_sourcez00_5122)
{
{ /* Llib/error.scm 581 */
return 
BGl_errorzf2sourcezf2zz__errorz00(BgL_procz00_5119, BgL_msgz00_5120, BgL_objz00_5121, BgL_sourcez00_5122);} 

}



/* 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 593 */
{ /* Llib/error.scm 561 */
 BgL_z62errorz62_bglt BgL_arg1515z00_3855;
{ /* Llib/error.scm 561 */
 BgL_z62errorz62_bglt BgL_new1081z00_3856;
{ /* Llib/error.scm 562 */
 BgL_z62errorz62_bglt BgL_new1080z00_3857;
BgL_new1080z00_3857 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 562 */
 long BgL_arg1520z00_3858;
BgL_arg1520z00_3858 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1080z00_3857), BgL_arg1520z00_3858); } 
BgL_new1081z00_3856 = BgL_new1080z00_3857; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3856)))->BgL_fnamez00)=((obj_t)
string_to_bstring(BgL_fnamez00_39)),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3856)))->BgL_locationz00)=((obj_t)
BINT(BgL_locz00_40)),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6245;
{ /* Llib/error.scm 563 */
 obj_t BgL_arg1516z00_3859;
{ /* Llib/error.scm 563 */
 obj_t BgL_arg1517z00_3860;
{ /* Llib/error.scm 563 */
 obj_t BgL_classz00_3864;
BgL_classz00_3864 = BGl_z62errorz62zz__objectz00; 
BgL_arg1517z00_3860 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3864); } 
BgL_arg1516z00_3859 = 
VECTOR_REF(BgL_arg1517z00_3860,2L); } 
BgL_auxz00_6245 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1516z00_3859); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1081z00_3856)))->BgL_stackz00)=((obj_t)BgL_auxz00_6245),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3856))->BgL_procz00)=((obj_t)BgL_procz00_36),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3856))->BgL_msgz00)=((obj_t)BgL_messagez00_37),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1081z00_3856))->BgL_objz00)=((obj_t)BgL_objectz00_38),BUNSPEC); 
BgL_arg1515z00_3855 = BgL_new1081z00_3856; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1515z00_3855));} } 

}



/* &error/c-location */
obj_t BGl_z62errorzf2czd2locationz42zz__errorz00(obj_t BgL_envz00_5123, obj_t BgL_procz00_5124, obj_t BgL_messagez00_5125, obj_t BgL_objectz00_5126, obj_t BgL_fnamez00_5127, obj_t BgL_locz00_5128)
{
{ /* Llib/error.scm 593 */
{ /* Llib/error.scm 561 */
 long BgL_auxz00_6265; char * BgL_auxz00_6256;
{ /* Llib/error.scm 561 */
 obj_t BgL_tmpz00_6266;
if(
INTEGERP(BgL_locz00_5128))
{ /* Llib/error.scm 561 */
BgL_tmpz00_6266 = BgL_locz00_5128
; }  else 
{ 
 obj_t BgL_auxz00_6269;
BgL_auxz00_6269 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(22803L), BGl_string2935z00zz__errorz00, BGl_string2909z00zz__errorz00, BgL_locz00_5128); 
FAILURE(BgL_auxz00_6269,BFALSE,BFALSE);} 
BgL_auxz00_6265 = 
(long)CINT(BgL_tmpz00_6266); } 
{ /* Llib/error.scm 561 */
 obj_t BgL_tmpz00_6257;
if(
STRINGP(BgL_fnamez00_5127))
{ /* Llib/error.scm 561 */
BgL_tmpz00_6257 = BgL_fnamez00_5127
; }  else 
{ 
 obj_t BgL_auxz00_6260;
BgL_auxz00_6260 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(22803L), BGl_string2935z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_fnamez00_5127); 
FAILURE(BgL_auxz00_6260,BFALSE,BFALSE);} 
BgL_auxz00_6256 = 
BSTRING_TO_STRING(BgL_tmpz00_6257); } 
return 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procz00_5124, BgL_messagez00_5125, BgL_objectz00_5126, BgL_auxz00_6256, BgL_auxz00_6265);} } 

}



/* 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 599 */
{ /* Llib/error.scm 600 */
 obj_t BgL_list1538z00_3866;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1540z00_3867;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1541z00_3868;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1542z00_3869;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1543z00_3870;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1545z00_3871;
BgL_arg1545z00_3871 = 
MAKE_YOUNG_PAIR(BGl_string2936z00zz__errorz00, BNIL); 
BgL_arg1543z00_3870 = 
MAKE_YOUNG_PAIR(BgL_toz00_43, BgL_arg1545z00_3871); } 
BgL_arg1542z00_3869 = 
MAKE_YOUNG_PAIR(BGl_string2937z00zz__errorz00, BgL_arg1543z00_3870); } 
BgL_arg1541z00_3868 = 
MAKE_YOUNG_PAIR(BgL_fromz00_42, BgL_arg1542z00_3869); } 
BgL_arg1540z00_3867 = 
MAKE_YOUNG_PAIR(BGl_string2938z00zz__errorz00, BgL_arg1541z00_3868); } 
BgL_list1538z00_3866 = 
MAKE_YOUNG_PAIR(BgL_prefixz00_41, BgL_arg1540z00_3867); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1538z00_3866);} } 

}



/* &bigloo-type-error-msg */
obj_t BGl_z62bigloozd2typezd2errorzd2msgzb0zz__errorz00(obj_t BgL_envz00_5129, obj_t BgL_prefixz00_5130, obj_t BgL_fromz00_5131, obj_t BgL_toz00_5132)
{
{ /* Llib/error.scm 599 */
{ /* Llib/error.scm 600 */
 obj_t BgL_auxz00_6296; obj_t BgL_auxz00_6289; obj_t BgL_auxz00_6282;
if(
STRINGP(BgL_toz00_5132))
{ /* Llib/error.scm 600 */
BgL_auxz00_6296 = BgL_toz00_5132
; }  else 
{ 
 obj_t BgL_auxz00_6299;
BgL_auxz00_6299 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(24586L), BGl_string2939z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_toz00_5132); 
FAILURE(BgL_auxz00_6299,BFALSE,BFALSE);} 
if(
STRINGP(BgL_fromz00_5131))
{ /* Llib/error.scm 600 */
BgL_auxz00_6289 = BgL_fromz00_5131
; }  else 
{ 
 obj_t BgL_auxz00_6292;
BgL_auxz00_6292 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(24586L), BGl_string2939z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_fromz00_5131); 
FAILURE(BgL_auxz00_6292,BFALSE,BFALSE);} 
if(
STRINGP(BgL_prefixz00_5130))
{ /* Llib/error.scm 600 */
BgL_auxz00_6282 = BgL_prefixz00_5130
; }  else 
{ 
 obj_t BgL_auxz00_6285;
BgL_auxz00_6285 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(24586L), BGl_string2939z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_prefixz00_5130); 
FAILURE(BgL_auxz00_6285,BFALSE,BFALSE);} 
return 
BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(BgL_auxz00_6282, BgL_auxz00_6289, BgL_auxz00_6296);} } 

}



/* 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 605 */
{ /* Llib/error.scm 606 */
 obj_t BgL_tyz00_1904;
if(
STRINGP(BgL_typez00_45))
{ /* Llib/error.scm 607 */
BgL_tyz00_1904 = BgL_typez00_45; }  else 
{ /* Llib/error.scm 607 */
if(
SYMBOLP(BgL_typez00_45))
{ /* Llib/error.scm 610 */
 obj_t BgL_arg2331z00_3873;
BgL_arg2331z00_3873 = 
SYMBOL_TO_STRING(BgL_typez00_45); 
BgL_tyz00_1904 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2331z00_3873); }  else 
{ /* Llib/error.scm 609 */
BgL_tyz00_1904 = BGl_string2940z00zz__errorz00; } } 
{ /* Llib/error.scm 606 */
 obj_t BgL_msgz00_1905;
{ /* Llib/error.scm 613 */
 obj_t BgL_arg1552z00_1912;
BgL_arg1552z00_1912 = 
bgl_typeof(BgL_objz00_46); 
{ /* Llib/error.scm 600 */
 obj_t BgL_list1538z00_3877;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1540z00_3878;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1541z00_3879;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1542z00_3880;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1543z00_3881;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1545z00_3882;
BgL_arg1545z00_3882 = 
MAKE_YOUNG_PAIR(BGl_string2936z00zz__errorz00, BNIL); 
BgL_arg1543z00_3881 = 
MAKE_YOUNG_PAIR(BgL_arg1552z00_1912, BgL_arg1545z00_3882); } 
BgL_arg1542z00_3880 = 
MAKE_YOUNG_PAIR(BGl_string2937z00zz__errorz00, BgL_arg1543z00_3881); } 
BgL_arg1541z00_3879 = 
MAKE_YOUNG_PAIR(BgL_tyz00_1904, BgL_arg1542z00_3880); } 
BgL_arg1540z00_3878 = 
MAKE_YOUNG_PAIR(BGl_string2938z00zz__errorz00, BgL_arg1541z00_3879); } 
BgL_list1538z00_3877 = 
MAKE_YOUNG_PAIR(BGl_string2941z00zz__errorz00, BgL_arg1540z00_3878); } 
BgL_msgz00_1905 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1538z00_3877); } } 
{ /* Llib/error.scm 613 */

{ /* Llib/error.scm 615 */
 BgL_z62typezd2errorzb0_bglt BgL_arg1546z00_1906;
{ /* Llib/error.scm 615 */
 BgL_z62typezd2errorzb0_bglt BgL_new1083z00_1907;
{ /* Llib/error.scm 615 */
 BgL_z62typezd2errorzb0_bglt BgL_new1082z00_1910;
BgL_new1082z00_1910 = 
((BgL_z62typezd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62typezd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 615 */
 long BgL_arg1551z00_1911;
BgL_arg1551z00_1911 = 
BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1082z00_1910), BgL_arg1551z00_1911); } 
BgL_new1083z00_1907 = BgL_new1082z00_1910; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1083z00_1907)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1083z00_1907)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6326;
{ /* Llib/error.scm 615 */
 obj_t BgL_arg1547z00_1908;
{ /* Llib/error.scm 615 */
 obj_t BgL_arg1549z00_1909;
{ /* Llib/error.scm 615 */
 obj_t BgL_classz00_3886;
BgL_classz00_3886 = BGl_z62typezd2errorzb0zz__objectz00; 
BgL_arg1549z00_1909 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3886); } 
BgL_arg1547z00_1908 = 
VECTOR_REF(BgL_arg1549z00_1909,2L); } 
BgL_auxz00_6326 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1547z00_1908); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1083z00_1907)))->BgL_stackz00)=((obj_t)BgL_auxz00_6326),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1083z00_1907)))->BgL_procz00)=((obj_t)BgL_procz00_44),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1083z00_1907)))->BgL_msgz00)=((obj_t)BgL_msgz00_1905),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1083z00_1907)))->BgL_objz00)=((obj_t)BgL_objz00_46),BUNSPEC); 
((((BgL_z62typezd2errorzb0_bglt)COBJECT(BgL_new1083z00_1907))->BgL_typez00)=((obj_t)BgL_typez00_45),BUNSPEC); 
BgL_arg1546z00_1906 = BgL_new1083z00_1907; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1546z00_1906));} } } } } 

}



/* &bigloo-type-error */
obj_t BGl_z62bigloozd2typezd2errorz62zz__errorz00(obj_t BgL_envz00_5133, obj_t BgL_procz00_5134, obj_t BgL_typez00_5135, obj_t BgL_objz00_5136)
{
{ /* Llib/error.scm 605 */
return 
BGl_bigloozd2typezd2errorz00zz__errorz00(BgL_procz00_5134, BgL_typez00_5135, BgL_objz00_5136);} 

}



/* 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 624 */
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_5137, obj_t BgL_procz00_5138, obj_t BgL_typez00_5139, obj_t BgL_objz00_5140, obj_t BgL_fnamez00_5141, obj_t BgL_locz00_5142)
{
{ /* Llib/error.scm 624 */
return 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BgL_procz00_5138, BgL_typez00_5139, BgL_objz00_5140, BgL_fnamez00_5141, BgL_locz00_5142);} 

}



/* 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 630 */
{ /* Llib/error.scm 631 */
 obj_t BgL_tyz00_1916;
if(
STRINGP(BgL_typez00_55))
{ /* Llib/error.scm 632 */
BgL_tyz00_1916 = BgL_typez00_55; }  else 
{ /* Llib/error.scm 632 */
if(
SYMBOLP(BgL_typez00_55))
{ /* Llib/error.scm 633 */
 obj_t BgL_arg2331z00_3890;
BgL_arg2331z00_3890 = 
SYMBOL_TO_STRING(BgL_typez00_55); 
BgL_tyz00_1916 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2331z00_3890); }  else 
{ /* Llib/error.scm 633 */
BgL_tyz00_1916 = BGl_string2940z00zz__errorz00; } } 
{ /* Llib/error.scm 631 */
 obj_t BgL_msgz00_1917;
{ /* Llib/error.scm 635 */
 obj_t BgL_arg1562z00_1923;
BgL_arg1562z00_1923 = 
bgl_typeof(BgL_objz00_56); 
{ /* Llib/error.scm 600 */
 obj_t BgL_list1538z00_3894;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1540z00_3895;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1541z00_3896;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1542z00_3897;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1543z00_3898;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1545z00_3899;
BgL_arg1545z00_3899 = 
MAKE_YOUNG_PAIR(BGl_string2936z00zz__errorz00, BNIL); 
BgL_arg1543z00_3898 = 
MAKE_YOUNG_PAIR(BgL_arg1562z00_1923, BgL_arg1545z00_3899); } 
BgL_arg1542z00_3897 = 
MAKE_YOUNG_PAIR(BGl_string2937z00zz__errorz00, BgL_arg1543z00_3898); } 
BgL_arg1541z00_3896 = 
MAKE_YOUNG_PAIR(BgL_tyz00_1916, BgL_arg1542z00_3897); } 
BgL_arg1540z00_3895 = 
MAKE_YOUNG_PAIR(BGl_string2938z00zz__errorz00, BgL_arg1541z00_3896); } 
BgL_list1538z00_3894 = 
MAKE_YOUNG_PAIR(BGl_string2941z00zz__errorz00, BgL_arg1540z00_3895); } 
BgL_msgz00_1917 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1538z00_3894); } } 
{ /* Llib/error.scm 635 */

{ /* Llib/error.scm 636 */
 BgL_z62typezd2errorzb0_bglt BgL_new1085z00_1918;
{ /* Llib/error.scm 637 */
 BgL_z62typezd2errorzb0_bglt BgL_new1084z00_1921;
BgL_new1084z00_1921 = 
((BgL_z62typezd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62typezd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 637 */
 long BgL_arg1561z00_1922;
BgL_arg1561z00_1922 = 
BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1084z00_1921), BgL_arg1561z00_1922); } 
BgL_new1085z00_1918 = BgL_new1084z00_1921; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1085z00_1918)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_52),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1085z00_1918)))->BgL_locationz00)=((obj_t)BgL_locz00_53),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6367;
{ /* Llib/error.scm 638 */
 obj_t BgL_arg1558z00_1919;
{ /* Llib/error.scm 638 */
 obj_t BgL_arg1559z00_1920;
{ /* Llib/error.scm 638 */
 obj_t BgL_classz00_3903;
BgL_classz00_3903 = BGl_z62typezd2errorzb0zz__objectz00; 
BgL_arg1559z00_1920 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3903); } 
BgL_arg1558z00_1919 = 
VECTOR_REF(BgL_arg1559z00_1920,2L); } 
BgL_auxz00_6367 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1558z00_1919); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1085z00_1918)))->BgL_stackz00)=((obj_t)BgL_auxz00_6367),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1085z00_1918)))->BgL_procz00)=((obj_t)BgL_procz00_54),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1085z00_1918)))->BgL_msgz00)=((obj_t)BgL_msgz00_1917),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1085z00_1918)))->BgL_objz00)=((obj_t)BgL_objz00_56),BUNSPEC); 
((((BgL_z62typezd2errorzb0_bglt)COBJECT(BgL_new1085z00_1918))->BgL_typez00)=((obj_t)BgL_typez00_55),BUNSPEC); 
return 
((obj_t)BgL_new1085z00_1918);} } } } } 

}



/* &type-error2843 */
obj_t BGl_z62typezd2error2843zb0zz__errorz00(obj_t BgL_envz00_5143, obj_t BgL_fnamez00_5144, obj_t BgL_locz00_5145, obj_t BgL_procz00_5146, obj_t BgL_typez00_5147, obj_t BgL_objz00_5148)
{
{ /* Llib/error.scm 630 */
return 
BGl_typezd2errorzd2zz__errorz00(BgL_fnamez00_5144, BgL_locz00_5145, BgL_procz00_5146, BgL_typez00_5147, BgL_objz00_5148);} 

}



/* 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 647 */
{ /* Llib/error.scm 648 */
 obj_t BgL_tyz00_1926;
if(
STRINGP(BgL_typez00_60))
{ /* Llib/error.scm 649 */
BgL_tyz00_1926 = BgL_typez00_60; }  else 
{ /* Llib/error.scm 649 */
if(
SYMBOLP(BgL_typez00_60))
{ /* Llib/error.scm 650 */
 obj_t BgL_arg2331z00_3906;
BgL_arg2331z00_3906 = 
SYMBOL_TO_STRING(BgL_typez00_60); 
BgL_tyz00_1926 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2331z00_3906); }  else 
{ /* Llib/error.scm 650 */
BgL_tyz00_1926 = BGl_string2940z00zz__errorz00; } } 
{ /* Llib/error.scm 648 */
 obj_t BgL_msgz00_1927;
{ /* Llib/error.scm 600 */
 obj_t BgL_list1538z00_3910;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1540z00_3911;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1541z00_3912;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1542z00_3913;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1543z00_3914;
{ /* Llib/error.scm 600 */
 obj_t BgL_arg1545z00_3915;
BgL_arg1545z00_3915 = 
MAKE_YOUNG_PAIR(BGl_string2936z00zz__errorz00, BNIL); 
BgL_arg1543z00_3914 = 
MAKE_YOUNG_PAIR(
((obj_t)BgL_objz00_61), BgL_arg1545z00_3915); } 
BgL_arg1542z00_3913 = 
MAKE_YOUNG_PAIR(BGl_string2937z00zz__errorz00, BgL_arg1543z00_3914); } 
BgL_arg1541z00_3912 = 
MAKE_YOUNG_PAIR(BgL_tyz00_1926, BgL_arg1542z00_3913); } 
BgL_arg1540z00_3911 = 
MAKE_YOUNG_PAIR(BGl_string2938z00zz__errorz00, BgL_arg1541z00_3912); } 
BgL_list1538z00_3910 = 
MAKE_YOUNG_PAIR(BGl_string2941z00zz__errorz00, BgL_arg1540z00_3911); } 
BgL_msgz00_1927 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1538z00_3910); } 
{ /* Llib/error.scm 652 */

{ /* Llib/error.scm 653 */
 BgL_z62typezd2errorzb0_bglt BgL_new1087z00_1928;
{ /* Llib/error.scm 654 */
 BgL_z62typezd2errorzb0_bglt BgL_new1086z00_1931;
BgL_new1086z00_1931 = 
((BgL_z62typezd2errorzb0_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62typezd2errorzb0_bgl) ))); 
{ /* Llib/error.scm 654 */
 long BgL_arg1569z00_1932;
BgL_arg1569z00_1932 = 
BGL_CLASS_NUM(BGl_z62typezd2errorzb0zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1086z00_1931), BgL_arg1569z00_1932); } 
BgL_new1087z00_1928 = BgL_new1086z00_1931; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1087z00_1928)))->BgL_fnamez00)=((obj_t)
BBOOL(BgL_fnamez00_57)),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1087z00_1928)))->BgL_locationz00)=((obj_t)
BBOOL(BgL_locz00_58)),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6406;
{ /* Llib/error.scm 655 */
 obj_t BgL_arg1565z00_1929;
{ /* Llib/error.scm 655 */
 obj_t BgL_arg1568z00_1930;
{ /* Llib/error.scm 655 */
 obj_t BgL_classz00_3919;
BgL_classz00_3919 = BGl_z62typezd2errorzb0zz__objectz00; 
BgL_arg1568z00_1930 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3919); } 
BgL_arg1565z00_1929 = 
VECTOR_REF(BgL_arg1568z00_1930,2L); } 
BgL_auxz00_6406 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1565z00_1929); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1087z00_1928)))->BgL_stackz00)=((obj_t)BgL_auxz00_6406),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1087z00_1928)))->BgL_procz00)=((obj_t)BgL_procz00_59),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1087z00_1928)))->BgL_msgz00)=((obj_t)BgL_msgz00_1927),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1087z00_1928)))->BgL_objz00)=((obj_t)BUNSPEC),BUNSPEC); 
((((BgL_z62typezd2errorzb0_bglt)COBJECT(BgL_new1087z00_1928))->BgL_typez00)=((obj_t)BgL_typez00_60),BUNSPEC); 
return BgL_new1087z00_1928;} } } } } 

}



/* 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 664 */
{ /* Llib/error.scm 665 */
 obj_t BgL_msgz00_1936;
{ /* Llib/error.scm 670 */
 obj_t BgL_arg1577z00_1942; obj_t BgL_arg1578z00_1943;
{ /* Ieee/fixnum.scm 978 */

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

BgL_arg1578z00_1943 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(
(long)(BgL_lenz00_66)-1L), 10L); } 
{ /* Llib/error.scm 669 */
 obj_t BgL_list1579z00_1944;
{ /* Llib/error.scm 669 */
 obj_t BgL_arg1580z00_1945;
{ /* Llib/error.scm 669 */
 obj_t BgL_arg1581z00_1946;
{ /* Llib/error.scm 669 */
 obj_t BgL_arg1582z00_1947;
{ /* Llib/error.scm 669 */
 obj_t BgL_arg1584z00_1948;
BgL_arg1584z00_1948 = 
MAKE_YOUNG_PAIR(BGl_string2942z00zz__errorz00, BNIL); 
BgL_arg1582z00_1947 = 
MAKE_YOUNG_PAIR(BgL_arg1578z00_1943, BgL_arg1584z00_1948); } 
BgL_arg1581z00_1946 = 
MAKE_YOUNG_PAIR(BGl_string2943z00zz__errorz00, BgL_arg1582z00_1947); } 
BgL_arg1580z00_1945 = 
MAKE_YOUNG_PAIR(BgL_arg1577z00_1942, BgL_arg1581z00_1946); } 
BgL_list1579z00_1944 = 
MAKE_YOUNG_PAIR(BGl_string2944z00zz__errorz00, BgL_arg1580z00_1945); } 
BgL_msgz00_1936 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1579z00_1944); } } 
{ /* Llib/error.scm 669 */

{ /* Llib/error.scm 673 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_new1089z00_1937;
{ /* Llib/error.scm 674 */
 BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt BgL_new1088z00_1940;
BgL_new1088z00_1940 = 
((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bgl) ))); 
{ /* Llib/error.scm 674 */
 long BgL_arg1575z00_1941;
BgL_arg1575z00_1941 = 
BGL_CLASS_NUM(BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1088z00_1940), BgL_arg1575z00_1941); } 
BgL_new1089z00_1937 = BgL_new1088z00_1940; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1089z00_1937)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_62),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1089z00_1937)))->BgL_locationz00)=((obj_t)BgL_locz00_63),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6438;
{ /* Llib/error.scm 675 */
 obj_t BgL_arg1573z00_1938;
{ /* Llib/error.scm 675 */
 obj_t BgL_arg1574z00_1939;
{ /* Llib/error.scm 675 */
 obj_t BgL_classz00_3925;
BgL_classz00_3925 = BGl_z62indexzd2outzd2ofzd2boundszd2errorz62zz__objectz00; 
BgL_arg1574z00_1939 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3925); } 
BgL_arg1573z00_1938 = 
VECTOR_REF(BgL_arg1574z00_1939,2L); } 
BgL_auxz00_6438 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1573z00_1938); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1089z00_1937)))->BgL_stackz00)=((obj_t)BgL_auxz00_6438),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1089z00_1937)))->BgL_procz00)=((obj_t)BgL_procz00_64),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1089z00_1937)))->BgL_msgz00)=((obj_t)BgL_msgz00_1936),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_new1089z00_1937)))->BgL_objz00)=((obj_t)BgL_objz00_65),BUNSPEC); 
((((BgL_z62indexzd2outzd2ofzd2boundszd2errorz62_bglt)COBJECT(BgL_new1089z00_1937))->BgL_indexz00)=((obj_t)
BINT(BgL_lenz00_66)),BUNSPEC); 
return 
((obj_t)BgL_new1089z00_1937);} } } } 

}



/* &index-out-of-bounds2844 */
obj_t BGl_z62indexzd2outzd2ofzd2bounds2844zb0zz__errorz00(obj_t BgL_envz00_5149, obj_t BgL_fnamez00_5150, obj_t BgL_locz00_5151, obj_t BgL_procz00_5152, obj_t BgL_objz00_5153, obj_t BgL_lenz00_5154, obj_t BgL_iz00_5155)
{
{ /* Llib/error.scm 664 */
{ /* Llib/error.scm 665 */
 int BgL_auxz00_6462; int BgL_auxz00_6453;
{ /* Llib/error.scm 665 */
 obj_t BgL_tmpz00_6463;
if(
INTEGERP(BgL_iz00_5155))
{ /* Llib/error.scm 665 */
BgL_tmpz00_6463 = BgL_iz00_5155
; }  else 
{ 
 obj_t BgL_auxz00_6466;
BgL_auxz00_6466 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(26928L), BGl_string2945z00zz__errorz00, BGl_string2909z00zz__errorz00, BgL_iz00_5155); 
FAILURE(BgL_auxz00_6466,BFALSE,BFALSE);} 
BgL_auxz00_6462 = 
CINT(BgL_tmpz00_6463); } 
{ /* Llib/error.scm 665 */
 obj_t BgL_tmpz00_6454;
if(
INTEGERP(BgL_lenz00_5154))
{ /* Llib/error.scm 665 */
BgL_tmpz00_6454 = BgL_lenz00_5154
; }  else 
{ 
 obj_t BgL_auxz00_6457;
BgL_auxz00_6457 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(26928L), BGl_string2945z00zz__errorz00, BGl_string2909z00zz__errorz00, BgL_lenz00_5154); 
FAILURE(BgL_auxz00_6457,BFALSE,BFALSE);} 
BgL_auxz00_6453 = 
CINT(BgL_tmpz00_6454); } 
return 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BgL_fnamez00_5150, BgL_locz00_5151, BgL_procz00_5152, BgL_objz00_5153, BgL_auxz00_6453, BgL_auxz00_6462);} } 

}



/* warning */
BGL_EXPORTED_DEF obj_t BGl_warningz00zz__errorz00(obj_t BgL_argsz00_68)
{
{ /* Llib/error.scm 684 */
{ /* Llib/error.scm 686 */
 BgL_z62warningz62_bglt BgL_arg1592z00_1959;
{ /* Llib/error.scm 686 */
 BgL_z62warningz62_bglt BgL_new1091z00_1960;
{ /* Llib/error.scm 686 */
 BgL_z62warningz62_bglt BgL_new1090z00_1963;
BgL_new1090z00_1963 = 
((BgL_z62warningz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62warningz62_bgl) ))); 
{ /* Llib/error.scm 686 */
 long BgL_arg1596z00_1964;
BgL_arg1596z00_1964 = 
BGL_CLASS_NUM(BGl_z62warningz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1090z00_1963), BgL_arg1596z00_1964); } 
BgL_new1091z00_1960 = BgL_new1090z00_1963; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1091z00_1960)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1091z00_1960)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6480;
{ /* Llib/error.scm 686 */
 obj_t BgL_arg1593z00_1961;
{ /* Llib/error.scm 686 */
 obj_t BgL_arg1595z00_1962;
{ /* Llib/error.scm 686 */
 obj_t BgL_classz00_3930;
BgL_classz00_3930 = BGl_z62warningz62zz__objectz00; 
BgL_arg1595z00_1962 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3930); } 
BgL_arg1593z00_1961 = 
VECTOR_REF(BgL_arg1595z00_1962,2L); } 
BgL_auxz00_6480 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1593z00_1961); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1091z00_1960)))->BgL_stackz00)=((obj_t)BgL_auxz00_6480),BUNSPEC); } 
((((BgL_z62warningz62_bglt)COBJECT(BgL_new1091z00_1960))->BgL_argsz00)=((obj_t)BgL_argsz00_68),BUNSPEC); 
BgL_arg1592z00_1959 = BgL_new1091z00_1960; } 
BGL_TAIL return 
BGl_warningzd2notifyzd2zz__errorz00(
((obj_t)BgL_arg1592z00_1959));} } 

}



/* &warning2845 */
obj_t BGl_z62warning2845z62zz__errorz00(obj_t BgL_envz00_5156, obj_t BgL_argsz00_5157)
{
{ /* Llib/error.scm 684 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_5157);} 

}



/* 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 691 */
{ /* Llib/error.scm 693 */
 BgL_z62warningz62_bglt BgL_arg1597z00_1965;
{ /* Llib/error.scm 693 */
 BgL_z62warningz62_bglt BgL_new1093z00_1966;
{ /* Llib/error.scm 693 */
 BgL_z62warningz62_bglt BgL_new1092z00_1969;
BgL_new1092z00_1969 = 
((BgL_z62warningz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62warningz62_bgl) ))); 
{ /* Llib/error.scm 693 */
 long BgL_arg1600z00_1970;
BgL_arg1600z00_1970 = 
BGL_CLASS_NUM(BGl_z62warningz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1092z00_1969), BgL_arg1600z00_1970); } 
BgL_new1093z00_1966 = BgL_new1092z00_1969; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1093z00_1966)))->BgL_fnamez00)=((obj_t)BgL_fnamez00_69),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1093z00_1966)))->BgL_locationz00)=((obj_t)BgL_locz00_70),BUNSPEC); 
{ 
 obj_t BgL_auxz00_6498;
{ /* Llib/error.scm 693 */
 obj_t BgL_arg1598z00_1967;
{ /* Llib/error.scm 693 */
 obj_t BgL_arg1599z00_1968;
{ /* Llib/error.scm 693 */
 obj_t BgL_classz00_3935;
BgL_classz00_3935 = BGl_z62warningz62zz__objectz00; 
BgL_arg1599z00_1968 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_3935); } 
BgL_arg1598z00_1967 = 
VECTOR_REF(BgL_arg1599z00_1968,2L); } 
BgL_auxz00_6498 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1598z00_1967); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1093z00_1966)))->BgL_stackz00)=((obj_t)BgL_auxz00_6498),BUNSPEC); } 
((((BgL_z62warningz62_bglt)COBJECT(BgL_new1093z00_1966))->BgL_argsz00)=((obj_t)BgL_argsz00_71),BUNSPEC); 
BgL_arg1597z00_1965 = BgL_new1093z00_1966; } 
return 
BGl_warningzd2notifyzd2zz__errorz00(
((obj_t)BgL_arg1597z00_1965));} } 

}



/* &warning/location */
obj_t BGl_z62warningzf2locationz90zz__errorz00(obj_t BgL_envz00_5158, obj_t BgL_fnamez00_5159, obj_t BgL_locz00_5160, obj_t BgL_argsz00_5161)
{
{ /* Llib/error.scm 691 */
return 
BGl_warningzf2locationzf2zz__errorz00(BgL_fnamez00_5159, BgL_locz00_5160, BgL_argsz00_5161);} 

}



/* warning/loc */
BGL_EXPORTED_DEF obj_t BGl_warningzf2loczf2zz__errorz00(obj_t BgL_locz00_72, obj_t BgL_argsz00_73)
{
{ /* Llib/error.scm 698 */
if(
PAIRP(BgL_locz00_72))
{ /* Llib/error.scm 699 */
 obj_t BgL_cdrzd2204zd2_1977;
BgL_cdrzd2204zd2_1977 = 
CDR(
((obj_t)BgL_locz00_72)); 
if(
(
CAR(
((obj_t)BgL_locz00_72))==BGl_symbol2911z00zz__errorz00))
{ /* Llib/error.scm 699 */
if(
PAIRP(BgL_cdrzd2204zd2_1977))
{ /* Llib/error.scm 699 */
 obj_t BgL_cdrzd2208zd2_1981;
BgL_cdrzd2208zd2_1981 = 
CDR(BgL_cdrzd2204zd2_1977); 
if(
PAIRP(BgL_cdrzd2208zd2_1981))
{ /* Llib/error.scm 699 */
if(
NULLP(
CDR(BgL_cdrzd2208zd2_1981)))
{ /* Llib/error.scm 699 */
 obj_t BgL_arg1610z00_1985; obj_t BgL_arg1612z00_1986;
BgL_arg1610z00_1985 = 
CAR(BgL_cdrzd2204zd2_1977); 
BgL_arg1612z00_1986 = 
CAR(BgL_cdrzd2208zd2_1981); 
{ /* Llib/error.scm 701 */
 obj_t BgL_list1615z00_3947;
{ /* Llib/error.scm 701 */
 obj_t BgL_arg1616z00_3948;
BgL_arg1616z00_3948 = 
MAKE_YOUNG_PAIR(BgL_argsz00_73, BNIL); 
BgL_list1615z00_3947 = 
MAKE_YOUNG_PAIR(BgL_arg1612z00_1986, BgL_arg1616z00_3948); } 
return 
BGl_applyz00zz__r4_control_features_6_9z00(BGl_warningzf2locationzd2envz20zz__errorz00, BgL_arg1610z00_1985, BgL_list1615z00_3947);} }  else 
{ /* Llib/error.scm 699 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} }  else 
{ /* Llib/error.scm 699 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} }  else 
{ /* Llib/error.scm 699 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} }  else 
{ /* Llib/error.scm 699 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} }  else 
{ /* Llib/error.scm 699 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_73);} } 

}



/* &warning/loc */
obj_t BGl_z62warningzf2locz90zz__errorz00(obj_t BgL_envz00_5162, obj_t BgL_locz00_5163, obj_t BgL_argsz00_5164)
{
{ /* Llib/error.scm 698 */
return 
BGl_warningzf2loczf2zz__errorz00(BgL_locz00_5163, BgL_argsz00_5164);} 

}



/* 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 712 */
{ /* Llib/error.scm 713 */
 obj_t BgL_list1618z00_3954;
{ /* Llib/error.scm 713 */
 obj_t BgL_arg1619z00_3955;
BgL_arg1619z00_3955 = 
MAKE_YOUNG_PAIR(BgL_argsz00_76, BNIL); 
BgL_list1618z00_3954 = 
MAKE_YOUNG_PAIR(
BINT(BgL_locz00_75), BgL_arg1619z00_3955); } 
return 
BGl_applyz00zz__r4_control_features_6_9z00(BGl_warningzf2locationzd2envz20zz__errorz00, 
string_to_bstring(BgL_fnamez00_74), BgL_list1618z00_3954);} } 

}



/* &warning/c-location */
obj_t BGl_z62warningzf2czd2locationz42zz__errorz00(obj_t BgL_envz00_5165, obj_t BgL_fnamez00_5166, obj_t BgL_locz00_5167, obj_t BgL_argsz00_5168)
{
{ /* Llib/error.scm 712 */
{ /* Llib/error.scm 713 */
 long BgL_auxz00_6549; char * BgL_auxz00_6540;
{ /* Llib/error.scm 713 */
 obj_t BgL_tmpz00_6550;
if(
INTEGERP(BgL_locz00_5167))
{ /* Llib/error.scm 713 */
BgL_tmpz00_6550 = BgL_locz00_5167
; }  else 
{ 
 obj_t BgL_auxz00_6553;
BgL_auxz00_6553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(28915L), BGl_string2946z00zz__errorz00, BGl_string2909z00zz__errorz00, BgL_locz00_5167); 
FAILURE(BgL_auxz00_6553,BFALSE,BFALSE);} 
BgL_auxz00_6549 = 
(long)CINT(BgL_tmpz00_6550); } 
{ /* Llib/error.scm 713 */
 obj_t BgL_tmpz00_6541;
if(
STRINGP(BgL_fnamez00_5166))
{ /* Llib/error.scm 713 */
BgL_tmpz00_6541 = BgL_fnamez00_5166
; }  else 
{ 
 obj_t BgL_auxz00_6544;
BgL_auxz00_6544 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(28915L), BGl_string2946z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_fnamez00_5166); 
FAILURE(BgL_auxz00_6544,BFALSE,BFALSE);} 
BgL_auxz00_6540 = 
BSTRING_TO_STRING(BgL_tmpz00_6541); } 
return 
BGl_warningzf2czd2locationz20zz__errorz00(BgL_auxz00_6540, BgL_auxz00_6549, BgL_argsz00_5168);} } 

}



/* notify-&error */
obj_t BGl_notifyzd2z62errorzb0zz__errorz00(obj_t BgL_errz00_77)
{
{ /* Llib/error.scm 718 */
{ /* Llib/error.scm 719 */
 obj_t BgL_portz00_1994;
{ /* Llib/error.scm 719 */
 obj_t BgL_tmpz00_6559;
BgL_tmpz00_6559 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_1994 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6559); } 
bgl_flush_output_port(BgL_portz00_1994); 
{ /* Llib/error.scm 722 */
 obj_t BgL_list1620z00_1996;
BgL_list1620z00_1996 = 
MAKE_YOUNG_PAIR(BgL_portz00_1994, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2932z00zz__errorz00, BgL_list1620z00_1996); } 
{ /* Llib/error.scm 723 */
 obj_t BgL_arg1621z00_1997;
BgL_arg1621z00_1997 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_77)))->BgL_procz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1621z00_1997, BgL_portz00_1994); } 
{ /* Llib/error.scm 724 */
 obj_t BgL_list1622z00_1998;
BgL_list1622z00_1998 = 
MAKE_YOUNG_PAIR(BgL_portz00_1994, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2947z00zz__errorz00, BgL_list1622z00_1998); } 
{ /* Llib/error.scm 725 */
 obj_t BgL_arg1623z00_1999;
BgL_arg1623z00_1999 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_77)))->BgL_msgz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1623z00_1999, BgL_portz00_1994); } 
if(
(
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_77)))->BgL_objz00)==BGl_symbol2948z00zz__errorz00))
{ /* Llib/error.scm 726 */BFALSE; }  else 
{ /* Llib/error.scm 726 */
{ /* Llib/error.scm 727 */
 obj_t BgL_list1626z00_2002;
BgL_list1626z00_2002 = 
MAKE_YOUNG_PAIR(BgL_portz00_1994, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2950z00zz__errorz00, BgL_list1626z00_2002); } 
{ /* Llib/error.scm 728 */
 obj_t BgL_arg1627z00_2003;
BgL_arg1627z00_2003 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_77)))->BgL_objz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1627z00_2003, BgL_portz00_1994); } } 
{ /* Llib/error.scm 729 */
 obj_t BgL_list1629z00_2005;
BgL_list1629z00_2005 = 
MAKE_YOUNG_PAIR(BgL_portz00_1994, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1629z00_2005); } 
{ /* Llib/error.scm 730 */
 obj_t BgL_arg1630z00_2006;
{ /* Llib/error.scm 730 */
 obj_t BgL__ortest_1095z00_2010;
BgL__ortest_1095z00_2010 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62errorz62_bglt)BgL_errz00_77))))->BgL_stackz00); 
if(
CBOOL(BgL__ortest_1095z00_2010))
{ /* Llib/error.scm 730 */
BgL_arg1630z00_2006 = BgL__ortest_1095z00_2010; }  else 
{ /* Llib/error.scm 730 */

{ /* Llib/error.scm 730 */

BgL_arg1630z00_2006 = 
BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE); } } } 
{ /* Llib/error.scm 278 */

BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg1630z00_2006, BgL_portz00_1994, 
BINT(1L)); } } 
return 
bgl_flush_output_port(BgL_portz00_1994);} } 

}



/* notify-&error/location-no-loc */
obj_t BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00(obj_t BgL_errz00_78)
{
{ /* Llib/error.scm 736 */
{ /* Llib/error.scm 737 */
 obj_t BgL_portz00_2012;
{ /* Llib/error.scm 737 */
 obj_t BgL_tmpz00_6593;
BgL_tmpz00_6593 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2012 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6593); } 
bgl_flush_output_port(BgL_portz00_2012); 
{ /* Llib/error.scm 740 */
 obj_t BgL_list1631z00_2014;
BgL_list1631z00_2014 = 
MAKE_YOUNG_PAIR(BgL_portz00_2012, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1631z00_2014); } 
{ /* Llib/error.scm 741 */
 obj_t BgL_arg1632z00_2015; obj_t BgL_arg1633z00_2016;
BgL_arg1632z00_2015 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62errorz62_bglt)BgL_errz00_78))))->BgL_fnamez00); 
BgL_arg1633z00_2016 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62errorz62_bglt)BgL_errz00_78))))->BgL_locationz00); 
{ /* Llib/error.scm 741 */
 obj_t BgL_list1634z00_2017;
{ /* Llib/error.scm 741 */
 obj_t BgL_arg1635z00_2018;
{ /* Llib/error.scm 741 */
 obj_t BgL_arg1636z00_2019;
{ /* Llib/error.scm 741 */
 obj_t BgL_arg1637z00_2020;
{ /* Llib/error.scm 741 */
 obj_t BgL_arg1639z00_2021;
BgL_arg1639z00_2021 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)':')), BNIL); 
BgL_arg1637z00_2020 = 
MAKE_YOUNG_PAIR(BgL_arg1633z00_2016, BgL_arg1639z00_2021); } 
BgL_arg1636z00_2019 = 
MAKE_YOUNG_PAIR(BGl_string2951z00zz__errorz00, BgL_arg1637z00_2020); } 
BgL_arg1635z00_2018 = 
MAKE_YOUNG_PAIR(BgL_arg1632z00_2015, BgL_arg1636z00_2019); } 
BgL_list1634z00_2017 = 
MAKE_YOUNG_PAIR(BGl_string2952z00zz__errorz00, BgL_arg1635z00_2018); } 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_2012, BgL_list1634z00_2017); } } 
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 747 */
BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00:
{ /* Llib/error.scm 748 */
 long BgL_lenz00_2022;
BgL_lenz00_2022 = 
STRING_LENGTH(
((obj_t)BgL_stringz00_83)); 
if(
(BgL_lenz00_2022>256L))
{ /* Llib/error.scm 750 */
 obj_t BgL_nstringz00_2025;
{ /* Llib/error.scm 751 */
 long BgL_arg1646z00_2031; long BgL_arg1647z00_2032;
{ /* Llib/error.scm 751 */
 long BgL_arg1649z00_2033;
BgL_arg1649z00_2033 = 
(
(long)CINT(BgL_colz00_84)-60L); 
{ /* Llib/error.scm 751 */
 obj_t BgL_list1650z00_2034;
BgL_list1650z00_2034 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1649z00_2033), BNIL); 
BgL_arg1646z00_2031 = 
BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(0L, BgL_list1650z00_2034); } } 
BgL_arg1647z00_2032 = 
BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(
(
(long)CINT(BgL_colz00_84)+10L), BNIL); 
BgL_nstringz00_2025 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_83, BgL_arg1646z00_2031, BgL_arg1647z00_2032); } 
{ /* Llib/error.scm 751 */

{ /* Llib/error.scm 753 */
 obj_t BgL_arg1641z00_2026; long BgL_arg1642z00_2027;
{ /* Llib/error.scm 753 */
 obj_t BgL_list1643z00_2028;
{ /* Llib/error.scm 753 */
 obj_t BgL_arg1644z00_2029;
{ /* Llib/error.scm 753 */
 obj_t BgL_arg1645z00_2030;
BgL_arg1645z00_2030 = 
MAKE_YOUNG_PAIR(BGl_string2953z00zz__errorz00, BNIL); 
BgL_arg1644z00_2029 = 
MAKE_YOUNG_PAIR(BgL_nstringz00_2025, BgL_arg1645z00_2030); } 
BgL_list1643z00_2028 = 
MAKE_YOUNG_PAIR(BGl_string2953z00zz__errorz00, BgL_arg1644z00_2029); } 
BgL_arg1641z00_2026 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1643z00_2028); } 
BgL_arg1642z00_2027 = 
(60L+3L); 
{ 
 obj_t BgL_colz00_6632; obj_t BgL_stringz00_6631;
BgL_stringz00_6631 = BgL_arg1641z00_2026; 
BgL_colz00_6632 = 
BINT(BgL_arg1642z00_2027); 
BgL_colz00_84 = BgL_colz00_6632; 
BgL_stringz00_83 = BgL_stringz00_6631; 
goto BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00;} } } }  else 
{ /* Llib/error.scm 756 */
 obj_t BgL_portz00_2038;
{ /* Llib/error.scm 756 */
 obj_t BgL_tmpz00_6634;
BgL_tmpz00_6634 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2038 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_6634); } 
bgl_flush_output_port(BgL_portz00_2038); 
{ /* Llib/error.scm 759 */
 obj_t BgL_list1653z00_2039;
BgL_list1653z00_2039 = 
MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1653z00_2039); } 
{ /* Llib/error.scm 760 */
 obj_t BgL_spacezd2stringzd2_2040;
if(
(
(long)CINT(BgL_colz00_84)>0L))
{ /* Llib/error.scm 760 */
BgL_spacezd2stringzd2_2040 = 
make_string(
(long)CINT(BgL_colz00_84), ((unsigned char)' ')); }  else 
{ /* Llib/error.scm 760 */
BgL_spacezd2stringzd2_2040 = BGl_string2954z00zz__errorz00; } 
{ /* Llib/error.scm 760 */
 long BgL_lz00_2041;
BgL_lz00_2041 = 
STRING_LENGTH(
((obj_t)BgL_stringz00_83)); 
{ /* Llib/error.scm 761 */
 obj_t BgL_nzd2colzd2_2042;
if(
(
(long)CINT(BgL_colz00_84)>=BgL_lz00_2041))
{ /* Llib/error.scm 762 */
BgL_nzd2colzd2_2042 = 
BINT(BgL_lz00_2041); }  else 
{ /* Llib/error.scm 762 */
BgL_nzd2colzd2_2042 = BgL_colz00_84; } 
{ /* Llib/error.scm 762 */

BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2colzd2_2042, BgL_stringz00_83, BgL_spacezd2stringzd2_2040); 
BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_80, BgL_linez00_81, BgL_locz00_82, BgL_stringz00_83, BgL_spacezd2stringzd2_2040); 
{ /* Llib/error.scm 768 */
 obj_t BgL_list1654z00_2043;
BgL_list1654z00_2043 = 
MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2932z00zz__errorz00, BgL_list1654z00_2043); } 
{ /* Llib/error.scm 769 */
 obj_t BgL_arg1655z00_2044;
BgL_arg1655z00_2044 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_79)))->BgL_procz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1655z00_2044, BgL_portz00_2038); } 
{ /* Llib/error.scm 770 */
 obj_t BgL_list1656z00_2045;
BgL_list1656z00_2045 = 
MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1656z00_2045); } 
{ /* Llib/error.scm 771 */
 obj_t BgL_arg1658z00_2046;
BgL_arg1658z00_2046 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_79)))->BgL_msgz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1658z00_2046, BgL_portz00_2038); } 
if(
(
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_79)))->BgL_objz00)==BGl_symbol2948z00zz__errorz00))
{ /* Llib/error.scm 772 */BFALSE; }  else 
{ /* Llib/error.scm 772 */
{ /* Llib/error.scm 773 */
 obj_t BgL_list1661z00_2049;
BgL_list1661z00_2049 = 
MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2950z00zz__errorz00, BgL_list1661z00_2049); } 
{ /* Llib/error.scm 774 */
 obj_t BgL_arg1662z00_2050;
BgL_arg1662z00_2050 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_errz00_79)))->BgL_objz00); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1662z00_2050, BgL_portz00_2038); } } 
{ /* Llib/error.scm 775 */
 obj_t BgL_list1665z00_2052;
BgL_list1665z00_2052 = 
MAKE_YOUNG_PAIR(BgL_portz00_2038, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1665z00_2052); } 
{ /* Llib/error.scm 776 */
 obj_t BgL_arg1666z00_2053;
{ /* Llib/error.scm 776 */
 obj_t BgL__ortest_1098z00_2057;
BgL__ortest_1098z00_2057 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62errorz62_bglt)BgL_errz00_79))))->BgL_stackz00); 
if(
CBOOL(BgL__ortest_1098z00_2057))
{ /* Llib/error.scm 776 */
BgL_arg1666z00_2053 = BgL__ortest_1098z00_2057; }  else 
{ /* Llib/error.scm 776 */

{ /* Llib/error.scm 776 */

BgL_arg1666z00_2053 = 
BGl_getzd2tracezd2stackz00zz__errorz00(BFALSE); } } } 
{ /* Llib/error.scm 278 */

BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg1666z00_2053, BgL_portz00_2038, 
BINT(1L)); } } 
return 
bgl_flush_output_port(BgL_portz00_2038);} } } } } } } 

}



/* 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 783 */
{ /* Llib/error.scm 784 */
 bool_t BgL_test3339z00_6683;
if(
STRINGP(BgL_fnamez00_86))
{ /* Llib/error.scm 784 */
if(
INTEGERP(BgL_locz00_87))
{ /* Llib/error.scm 784 */
BgL_test3339z00_6683 = ((bool_t)0)
; }  else 
{ /* Llib/error.scm 784 */
BgL_test3339z00_6683 = ((bool_t)1)
; } }  else 
{ /* Llib/error.scm 784 */
BgL_test3339z00_6683 = ((bool_t)1)
; } 
if(BgL_test3339z00_6683)
{ /* Llib/error.scm 784 */
return 
BGl_notifyzd2z62errorzb0zz__errorz00(BgL_errz00_85);}  else 
{ /* Llib/error.scm 786 */
 obj_t BgL_filez00_2064;
{ /* Llib/error.scm 787 */
 obj_t BgL_arg1672z00_2068;
{ /* Llib/error.scm 787 */
 obj_t BgL_list1673z00_2069;
{ /* Llib/error.scm 787 */
 obj_t BgL_arg1674z00_2070;
{ /* Llib/error.scm 787 */
 obj_t BgL_arg1675z00_2071;
BgL_arg1675z00_2071 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
BgL_arg1674z00_2070 = 
MAKE_YOUNG_PAIR(BgL_locz00_87, BgL_arg1675z00_2071); } 
BgL_list1673z00_2069 = 
MAKE_YOUNG_PAIR(BgL_fnamez00_86, BgL_arg1674z00_2070); } 
BgL_arg1672z00_2068 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_symbol2911z00zz__errorz00, BgL_list1673z00_2069); } 
BgL_filez00_2064 = 
BGl_locationzd2linezd2numz00zz__errorz00(BgL_arg1672z00_2068); } 
{ /* Llib/error.scm 787 */
 obj_t BgL_lnumz00_2065; obj_t BgL_lpointz00_2066; obj_t BgL_lstringz00_2067;
{ /* Llib/error.scm 788 */
 obj_t BgL_tmpz00_3977;
{ /* Llib/error.scm 788 */
 int BgL_tmpz00_6694;
BgL_tmpz00_6694 = 
(int)(1L); 
BgL_tmpz00_3977 = 
BGL_MVALUES_VAL(BgL_tmpz00_6694); } 
{ /* Llib/error.scm 788 */
 int BgL_tmpz00_6697;
BgL_tmpz00_6697 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6697, BUNSPEC); } 
BgL_lnumz00_2065 = BgL_tmpz00_3977; } 
{ /* Llib/error.scm 788 */
 obj_t BgL_tmpz00_3978;
{ /* Llib/error.scm 788 */
 int BgL_tmpz00_6700;
BgL_tmpz00_6700 = 
(int)(2L); 
BgL_tmpz00_3978 = 
BGL_MVALUES_VAL(BgL_tmpz00_6700); } 
{ /* Llib/error.scm 788 */
 int BgL_tmpz00_6703;
BgL_tmpz00_6703 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6703, BUNSPEC); } 
BgL_lpointz00_2066 = BgL_tmpz00_3978; } 
{ /* Llib/error.scm 788 */
 obj_t BgL_tmpz00_3979;
{ /* Llib/error.scm 788 */
 int BgL_tmpz00_6706;
BgL_tmpz00_6706 = 
(int)(3L); 
BgL_tmpz00_3979 = 
BGL_MVALUES_VAL(BgL_tmpz00_6706); } 
{ /* Llib/error.scm 788 */
 int BgL_tmpz00_6709;
BgL_tmpz00_6709 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_6709, BUNSPEC); } 
BgL_lstringz00_2067 = BgL_tmpz00_3979; } 
if(
CBOOL(BgL_lnumz00_2065))
{ /* Llib/error.scm 788 */
return 
BGl_notifyzd2z62errorzf2locationzd2locz90zz__errorz00(BgL_errz00_85, BgL_fnamez00_86, BgL_lnumz00_2065, BgL_locz00_87, BgL_lstringz00_2067, BgL_lpointz00_2066);}  else 
{ /* Llib/error.scm 788 */
return 
BGl_notifyzd2z62errorzf2locationzd2nozd2locz42zz__errorz00(BgL_errz00_85);} } } } } 

}



/* open-for-error */
obj_t BGl_openzd2forzd2errorz00zz__errorz00(obj_t BgL_fnamez00_88)
{
{ /* Llib/error.scm 795 */
if(
fexists(
BSTRING_TO_STRING(BgL_fnamez00_88)))
{ /* Llib/error.scm 797 */
if(
bgl_directoryp(
BSTRING_TO_STRING(BgL_fnamez00_88)))
{ /* Llib/error.scm 798 */
return BFALSE;}  else 
{ /* Llib/error.scm 799 */
 obj_t BgL_env1107z00_2077;
BgL_env1107z00_2077 = 
BGL_CURRENT_DYNAMIC_ENV(); 
{ /* Llib/error.scm 799 */
 obj_t BgL_cell1102z00_2078;
BgL_cell1102z00_2078 = 
MAKE_STACK_CELL(BUNSPEC); 
{ /* Llib/error.scm 799 */
 obj_t BgL_val1106z00_2079;
BgL_val1106z00_2079 = 
BGl_zc3z04exitza31682ze3ze70z60zz__errorz00(BgL_fnamez00_88, BgL_cell1102z00_2078, BgL_env1107z00_2077); 
if(
(BgL_val1106z00_2079==BgL_cell1102z00_2078))
{ /* Llib/error.scm 799 */
{ /* Llib/error.scm 799 */
 int BgL_tmpz00_6727;
BgL_tmpz00_6727 = 
(int)(0L); 
BGL_SIGSETMASK(BgL_tmpz00_6727); } 
{ /* Llib/error.scm 799 */
 obj_t BgL_arg1681z00_2081;
BgL_arg1681z00_2081 = 
CELL_REF(
((obj_t)BgL_val1106z00_2079)); 
return BFALSE;} }  else 
{ /* Llib/error.scm 799 */
return BgL_val1106z00_2079;} } } } }  else 
{ /* Llib/error.scm 802 */
 bool_t BgL_test3346z00_6732;
{ /* Llib/error.scm 802 */
 long BgL_l1z00_3990;
BgL_l1z00_3990 = 
STRING_LENGTH(
((obj_t)BgL_fnamez00_88)); 
if(
(BgL_l1z00_3990==5L))
{ /* Llib/error.scm 802 */
 int BgL_arg2324z00_3993;
{ /* Llib/error.scm 802 */
 char * BgL_auxz00_6740; char * BgL_tmpz00_6737;
BgL_auxz00_6740 = 
BSTRING_TO_STRING(BGl_string2955z00zz__errorz00); 
BgL_tmpz00_6737 = 
BSTRING_TO_STRING(
((obj_t)BgL_fnamez00_88)); 
BgL_arg2324z00_3993 = 
memcmp(BgL_tmpz00_6737, BgL_auxz00_6740, BgL_l1z00_3990); } 
BgL_test3346z00_6732 = 
(
(long)(BgL_arg2324z00_3993)==0L); }  else 
{ /* Llib/error.scm 802 */
BgL_test3346z00_6732 = ((bool_t)0)
; } } 
if(BgL_test3346z00_6732)
{ /* Llib/error.scm 803 */
 obj_t BgL_arg1690z00_2099;
{ /* Llib/error.scm 803 */
 obj_t BgL_arg1691z00_2103;
{ /* Llib/error.scm 803 */
 obj_t BgL_tmpz00_6745;
BgL_tmpz00_6745 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1691z00_2103 = 
BGL_ENV_CURRENT_INPUT_PORT(BgL_tmpz00_6745); } 
BgL_arg1690z00_2099 = 
BGL_INPUT_PORT_BUFFER(BgL_arg1691z00_2103); } 
{ /* Ieee/port.scm 469 */
 long BgL_endz00_2102;
BgL_endz00_2102 = 
STRING_LENGTH(BgL_arg1690z00_2099); 
{ /* Ieee/port.scm 469 */

return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_arg1690z00_2099, 
BINT(0L), 
BINT(BgL_endz00_2102));} } }  else 
{ /* Llib/error.scm 804 */
 bool_t BgL_test3348z00_6753;
{ /* Llib/error.scm 804 */

BgL_test3348z00_6753 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BGl_string2956z00zz__errorz00, BgL_fnamez00_88, BFALSE, BFALSE, BFALSE, BFALSE); } 
if(BgL_test3348z00_6753)
{ /* Llib/error.scm 805 */
 obj_t BgL_arg1697z00_2111;
{ /* Ieee/string.scm 194 */
 long BgL_endz00_2117;
BgL_endz00_2117 = 
STRING_LENGTH(
((obj_t)BgL_fnamez00_88)); 
{ /* Ieee/string.scm 194 */

BgL_arg1697z00_2111 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_fnamez00_88, 9L, BgL_endz00_2117); } } 
{ /* Ieee/port.scm 469 */
 long BgL_endz00_2114;
BgL_endz00_2114 = 
STRING_LENGTH(BgL_arg1697z00_2111); 
{ /* Ieee/port.scm 469 */

return 
BGl_openzd2inputzd2stringz00zz__r4_ports_6_10_1z00(BgL_arg1697z00_2111, 
BINT(0L), 
BINT(BgL_endz00_2114));} } }  else 
{ /* Llib/error.scm 804 */
return BFALSE;} } } } 

}



/* <@exit:1682>~0 */
obj_t BGl_zc3z04exitza31682ze3ze70z60zz__errorz00(obj_t BgL_fnamez00_5238, obj_t BgL_cell1102z00_5237, obj_t BgL_env1107z00_5236)
{
{ /* Llib/error.scm 799 */
jmp_buf_t jmpbuf; 
 void * BgL_an_exit1111z00_2083;
if (SET_EXIT(BgL_an_exit1111z00_2083)) { 
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_2083 = 
(void *)jmpbuf; 
PUSH_ENV_EXIT(BgL_env1107z00_5236, BgL_an_exit1111z00_2083, 1L); 
{ /* Llib/error.scm 799 */
 obj_t BgL_escape1103z00_2084;
BgL_escape1103z00_2084 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1107z00_5236); 
{ /* Llib/error.scm 799 */
 obj_t BgL_res1114z00_2085;
{ /* Llib/error.scm 799 */
 obj_t BgL_ohs1099z00_2086;
BgL_ohs1099z00_2086 = 
BGL_ENV_ERROR_HANDLER_GET(BgL_env1107z00_5236); 
{ /* Llib/error.scm 799 */
 obj_t BgL_hds1100z00_2087;
BgL_hds1100z00_2087 = 
MAKE_STACK_PAIR(BgL_escape1103z00_2084, BgL_cell1102z00_5237); 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1107z00_5236, BgL_hds1100z00_2087); BUNSPEC; 
{ /* Llib/error.scm 799 */
 obj_t BgL_exitd1108z00_2088;
BgL_exitd1108z00_2088 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1107z00_5236); 
{ /* Llib/error.scm 799 */
 obj_t BgL_tmp1110z00_2089;
{ /* Llib/error.scm 799 */
 obj_t BgL_arg1687z00_2094;
BgL_arg1687z00_2094 = 
BGL_EXITD_PROTECT(BgL_exitd1108z00_2088); 
BgL_tmp1110z00_2089 = 
MAKE_YOUNG_PAIR(BgL_ohs1099z00_2086, BgL_arg1687z00_2094); } 
{ /* Llib/error.scm 799 */

BGL_EXITD_PROTECT_SET(BgL_exitd1108z00_2088, BgL_tmp1110z00_2089); BUNSPEC; 
{ /* Llib/error.scm 801 */
 obj_t BgL_tmp1109z00_2090;
{ /* Ieee/port.scm 466 */

BgL_tmp1109z00_2090 = 
BGl_openzd2inputzd2filez00zz__r4_ports_6_10_1z00(BgL_fnamez00_5238, BTRUE, 
BINT(5000000L)); } 
{ /* Llib/error.scm 799 */
 bool_t BgL_test3349z00_6775;
{ /* Llib/error.scm 799 */
 obj_t BgL_arg2609z00_3983;
BgL_arg2609z00_3983 = 
BGL_EXITD_PROTECT(BgL_exitd1108z00_2088); 
BgL_test3349z00_6775 = 
PAIRP(BgL_arg2609z00_3983); } 
if(BgL_test3349z00_6775)
{ /* Llib/error.scm 799 */
 obj_t BgL_arg2607z00_3984;
{ /* Llib/error.scm 799 */
 obj_t BgL_arg2608z00_3985;
BgL_arg2608z00_3985 = 
BGL_EXITD_PROTECT(BgL_exitd1108z00_2088); 
BgL_arg2607z00_3984 = 
CDR(
((obj_t)BgL_arg2608z00_3985)); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1108z00_2088, BgL_arg2607z00_3984); BUNSPEC; }  else 
{ /* Llib/error.scm 799 */BFALSE; } } 
BGL_ENV_ERROR_HANDLER_SET(BgL_env1107z00_5236, BgL_ohs1099z00_2086); BUNSPEC; 
BgL_res1114z00_2085 = BgL_tmp1109z00_2090; } } } } } } 
POP_ENV_EXIT(BgL_env1107z00_5236); 
return BgL_res1114z00_2085;} } 
}} 

}



/* filename-for-error */
obj_t BGl_filenamezd2forzd2errorz00zz__errorz00(obj_t BgL_filez00_89, long BgL_sza7za7_90)
{
{ /* Llib/error.scm 812 */
if(
(BgL_sza7za7_90<0L))
{ /* Llib/error.scm 814 */
return BGl_string2953z00zz__errorz00;}  else 
{ /* Llib/error.scm 814 */
if(
fexists(
BSTRING_TO_STRING(BgL_filez00_89)))
{ /* Llib/error.scm 816 */
return 
BGl_relativezd2filezd2namez00zz__errorz00(BgL_filez00_89);}  else 
{ /* Llib/error.scm 818 */
 bool_t BgL_test3352z00_6790;
{ /* Llib/error.scm 818 */

BgL_test3352z00_6790 = 
BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(BGl_string2956z00zz__errorz00, BgL_filez00_89, BFALSE, BFALSE, BFALSE, BFALSE); } 
if(BgL_test3352z00_6790)
{ /* Llib/error.scm 818 */
if(
(
STRING_LENGTH(
((obj_t)BgL_filez00_89))<=
(9L+BgL_sza7za7_90)))
{ /* Ieee/string.scm 194 */
 long BgL_endz00_2143;
BgL_endz00_2143 = 
STRING_LENGTH(
((obj_t)BgL_filez00_89)); 
{ /* Ieee/string.scm 194 */

return 
BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89, 9L, BgL_endz00_2143);} }  else 
{ /* Llib/error.scm 821 */
 obj_t BgL_arg1705z00_2144;
BgL_arg1705z00_2144 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89, 9L, 
(BgL_sza7za7_90+6L)); 
{ /* Llib/error.scm 821 */
 obj_t BgL_list1706z00_2145;
{ /* Llib/error.scm 821 */
 obj_t BgL_arg1707z00_2146;
BgL_arg1707z00_2146 = 
MAKE_YOUNG_PAIR(BGl_string2953z00zz__errorz00, BNIL); 
BgL_list1706z00_2145 = 
MAKE_YOUNG_PAIR(BgL_arg1705z00_2144, BgL_arg1707z00_2146); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1706z00_2145);} } }  else 
{ /* Llib/error.scm 818 */
if(
(
STRING_LENGTH(
((obj_t)BgL_filez00_89))<=BgL_sza7za7_90))
{ /* Llib/error.scm 822 */
return BgL_filez00_89;}  else 
{ /* Llib/error.scm 822 */
if(
(BgL_sza7za7_90<4L))
{ /* Llib/error.scm 824 */
return BGl_string2953z00zz__errorz00;}  else 
{ /* Llib/error.scm 827 */
 obj_t BgL_arg1714z00_2153;
BgL_arg1714z00_2153 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_filez00_89, 0L, 
(BgL_sza7za7_90-3L)); 
{ /* Llib/error.scm 827 */
 obj_t BgL_list1715z00_2154;
{ /* Llib/error.scm 827 */
 obj_t BgL_arg1716z00_2155;
BgL_arg1716z00_2155 = 
MAKE_YOUNG_PAIR(BGl_string2953z00zz__errorz00, BNIL); 
BgL_list1715z00_2154 = 
MAKE_YOUNG_PAIR(BgL_arg1714z00_2153, BgL_arg1716z00_2155); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1715z00_2154);} } } } } } } 

}



/* location-line-num */
obj_t BGl_locationzd2linezd2numz00zz__errorz00(obj_t BgL_locz00_93)
{
{ /* Llib/error.scm 832 */
{ 

if(
PAIRP(BgL_locz00_93))
{ /* Llib/error.scm 886 */
 obj_t BgL_cdrzd2226zd2_2180;
BgL_cdrzd2226zd2_2180 = 
CDR(
((obj_t)BgL_locz00_93)); 
if(
(
CAR(
((obj_t)BgL_locz00_93))==BGl_symbol2911z00zz__errorz00))
{ /* Llib/error.scm 886 */
if(
PAIRP(BgL_cdrzd2226zd2_2180))
{ /* Llib/error.scm 886 */
 obj_t BgL_cdrzd2230zd2_2184;
BgL_cdrzd2230zd2_2184 = 
CDR(BgL_cdrzd2226zd2_2180); 
if(
PAIRP(BgL_cdrzd2230zd2_2184))
{ /* Llib/error.scm 886 */
if(
NULLP(
CDR(BgL_cdrzd2230zd2_2184)))
{ /* Llib/error.scm 886 */
return 
BGl_locationzd2atze70z35zz__errorz00(
CAR(BgL_cdrzd2226zd2_2180), 
CAR(BgL_cdrzd2230zd2_2184));}  else 
{ /* Llib/error.scm 886 */
BgL_tagzd2217zd2_2177:
{ /* Llib/error.scm 897 */
 obj_t BgL_list1758z00_2219;
{ /* Llib/error.scm 897 */
 obj_t BgL_arg1759z00_2220;
{ /* Llib/error.scm 897 */
 obj_t BgL_arg1760z00_2221;
{ /* Llib/error.scm 897 */
 obj_t BgL_arg1761z00_2222;
BgL_arg1761z00_2222 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_arg1760z00_2221 = 
MAKE_YOUNG_PAIR(BFALSE, BgL_arg1761z00_2222); } 
BgL_arg1759z00_2220 = 
MAKE_YOUNG_PAIR(BFALSE, BgL_arg1760z00_2221); } 
BgL_list1758z00_2219 = 
MAKE_YOUNG_PAIR(BFALSE, BgL_arg1759z00_2220); } 
BGL_TAIL return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1758z00_2219);} } }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
if(
(
CAR(
((obj_t)BgL_locz00_93))==BGl_symbol2957z00zz__errorz00))
{ /* Llib/error.scm 886 */
if(
PAIRP(BgL_cdrzd2226zd2_2180))
{ /* Llib/error.scm 886 */
 obj_t BgL_cdrzd2282zd2_2195;
BgL_cdrzd2282zd2_2195 = 
CDR(BgL_cdrzd2226zd2_2180); 
if(
PAIRP(BgL_cdrzd2282zd2_2195))
{ /* Llib/error.scm 886 */
 obj_t BgL_cdrzd2287zd2_2197;
BgL_cdrzd2287zd2_2197 = 
CDR(BgL_cdrzd2282zd2_2195); 
if(
PAIRP(BgL_cdrzd2287zd2_2197))
{ /* Llib/error.scm 886 */
if(
NULLP(
CDR(BgL_cdrzd2287zd2_2197)))
{ /* Llib/error.scm 886 */
return 
BGl_locationzd2linezd2colze70ze7zz__errorz00(
CAR(BgL_cdrzd2226zd2_2180), 
CAR(BgL_cdrzd2282zd2_2195), 
CAR(BgL_cdrzd2287zd2_2197));}  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
 obj_t BgL_cdrzd2314zd2_2205;
BgL_cdrzd2314zd2_2205 = 
CDR(
((obj_t)BgL_locz00_93)); 
if(
(
CAR(
((obj_t)BgL_locz00_93))==BGl_symbol2959z00zz__errorz00))
{ /* Llib/error.scm 886 */
if(
PAIRP(BgL_cdrzd2314zd2_2205))
{ /* Llib/error.scm 886 */
 obj_t BgL_cdrzd2318zd2_2209;
BgL_cdrzd2318zd2_2209 = 
CDR(BgL_cdrzd2314zd2_2205); 
if(
PAIRP(BgL_cdrzd2318zd2_2209))
{ /* Llib/error.scm 886 */
if(
NULLP(
CDR(BgL_cdrzd2318zd2_2209)))
{ /* Llib/error.scm 886 */
return 
BGl_locationzd2linezd2colze70ze7zz__errorz00(
CAR(BgL_cdrzd2314zd2_2205), 
CAR(BgL_cdrzd2318zd2_2209), 
BINT(0L));}  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} } } }  else 
{ /* Llib/error.scm 886 */
goto BgL_tagzd2217zd2_2177;} } } 

}



/* location-at~0 */
obj_t BGl_locationzd2atze70z35zz__errorz00(obj_t BgL_filez00_2231, obj_t BgL_pointz00_2232)
{
{ /* Llib/error.scm 862 */
{ /* Llib/error.scm 841 */
 bool_t BgL_test3370z00_6877;
if(
STRINGP(BgL_filez00_2231))
{ /* Llib/error.scm 841 */
BgL_test3370z00_6877 = 
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_pointz00_2232)
; }  else 
{ /* Llib/error.scm 841 */
BgL_test3370z00_6877 = ((bool_t)0)
; } 
if(BgL_test3370z00_6877)
{ /* Llib/error.scm 842 */
 obj_t BgL_fnamez00_2236;
{ /* Llib/error.scm 842 */
 bool_t BgL_test3372z00_6881;
{ /* Llib/error.scm 842 */
 obj_t BgL_string1z00_4021;
BgL_string1z00_4021 = 
string_to_bstring(OS_CLASS); 
{ /* Llib/error.scm 842 */
 long BgL_l1z00_4023;
BgL_l1z00_4023 = 
STRING_LENGTH(BgL_string1z00_4021); 
if(
(BgL_l1z00_4023==5L))
{ /* Llib/error.scm 842 */
 int BgL_arg2324z00_4026;
{ /* Llib/error.scm 842 */
 char * BgL_auxz00_6888; char * BgL_tmpz00_6886;
BgL_auxz00_6888 = 
BSTRING_TO_STRING(BGl_string2961z00zz__errorz00); 
BgL_tmpz00_6886 = 
BSTRING_TO_STRING(BgL_string1z00_4021); 
BgL_arg2324z00_4026 = 
memcmp(BgL_tmpz00_6886, BgL_auxz00_6888, BgL_l1z00_4023); } 
BgL_test3372z00_6881 = 
(
(long)(BgL_arg2324z00_4026)==0L); }  else 
{ /* Llib/error.scm 842 */
BgL_test3372z00_6881 = ((bool_t)0)
; } } } 
if(BgL_test3372z00_6881)
{ /* Llib/error.scm 842 */
BgL_fnamez00_2236 = 
BGl_stringzd2replacezd2zz__r4_strings_6_7z00(
BGl_uncygdrivez00zz__errorz00(BgL_filez00_2231), 
(char)(((unsigned char)'/')), 
(char)(((unsigned char)'\\'))); }  else 
{ /* Llib/error.scm 842 */
BgL_fnamez00_2236 = BgL_filez00_2231; } } 
{ /* Llib/error.scm 842 */
 obj_t BgL_portz00_2237;
BgL_portz00_2237 = 
BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_2236); 
{ /* Llib/error.scm 845 */

if(
INPUT_PORTP(BgL_portz00_2237))
{ /* Llib/error.scm 847 */
 obj_t BgL_exitd1117z00_2239;
BgL_exitd1117z00_2239 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/error.scm 861 */
 obj_t BgL_zc3z04anonymousza31797ze3z87_5170;
BgL_zc3z04anonymousza31797ze3z87_5170 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31797ze3ze5zz__errorz00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31797ze3z87_5170, 
(int)(0L), BgL_portz00_2237); 
{ /* Llib/error.scm 847 */
 obj_t BgL_arg2610z00_4033;
{ /* Llib/error.scm 847 */
 obj_t BgL_arg2611z00_4034;
BgL_arg2611z00_4034 = 
BGL_EXITD_PROTECT(BgL_exitd1117z00_2239); 
BgL_arg2610z00_4033 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31797ze3z87_5170, BgL_arg2611z00_4034); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1117z00_2239, BgL_arg2610z00_4033); BUNSPEC; } 
{ /* Llib/error.scm 851 */
 obj_t BgL_tmp1119z00_2241;
{ 
 obj_t BgL_ostringz00_2243; long BgL_lnumz00_2244; long BgL_oposz00_2245;
BgL_ostringz00_2243 = BFALSE; 
BgL_lnumz00_2244 = 1L; 
BgL_oposz00_2245 = 0L; 
BgL_zc3z04anonymousza31772ze3z87_2246:
{ /* Llib/error.scm 851 */
 obj_t BgL_lstringz00_2247;
BgL_lstringz00_2247 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_portz00_2237); 
if(
EOF_OBJECTP(BgL_lstringz00_2247))
{ /* Llib/error.scm 853 */
 obj_t BgL_arg1775z00_2249; long BgL_arg1776z00_2250; obj_t BgL_arg1777z00_2251;
BgL_arg1775z00_2249 = 
BGl_relativeze70ze7zz__errorz00(BgL_fnamez00_2236); 
BgL_arg1776z00_2250 = 
(1L+
(
(long)CINT(BgL_pointz00_2232)-BgL_oposz00_2245)); 
if(
STRINGP(BgL_ostringz00_2243))
{ /* Llib/error.scm 855 */
 obj_t BgL_list1785z00_2258;
{ /* Llib/error.scm 855 */
 obj_t BgL_arg1786z00_2259;
BgL_arg1786z00_2259 = 
MAKE_YOUNG_PAIR(BGl_string2962z00zz__errorz00, BNIL); 
BgL_list1785z00_2258 = 
MAKE_YOUNG_PAIR(BgL_ostringz00_2243, BgL_arg1786z00_2259); } 
BgL_arg1777z00_2251 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1785z00_2258); }  else 
{ /* Llib/error.scm 854 */
BgL_arg1777z00_2251 = BGl_string2962z00zz__errorz00; } 
{ /* Llib/error.scm 853 */
 obj_t BgL_list1778z00_2252;
{ /* Llib/error.scm 853 */
 obj_t BgL_arg1779z00_2253;
{ /* Llib/error.scm 853 */
 obj_t BgL_arg1781z00_2254;
{ /* Llib/error.scm 853 */
 obj_t BgL_arg1782z00_2255;
BgL_arg1782z00_2255 = 
MAKE_YOUNG_PAIR(BgL_arg1777z00_2251, BNIL); 
BgL_arg1781z00_2254 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1776z00_2250), BgL_arg1782z00_2255); } 
BgL_arg1779z00_2253 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lnumz00_2244), BgL_arg1781z00_2254); } 
BgL_list1778z00_2252 = 
MAKE_YOUNG_PAIR(BgL_arg1775z00_2249, BgL_arg1779z00_2253); } 
BgL_tmp1119z00_2241 = 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1778z00_2252); } }  else 
{ /* Llib/error.scm 857 */
 bool_t BgL_test3377z00_6928;
{ /* Llib/error.scm 857 */
 long BgL_arg1796z00_2270;
{ /* Llib/error.scm 857 */
 obj_t BgL_tmpz00_6929;
BgL_tmpz00_6929 = 
((obj_t)BgL_portz00_2237); 
BgL_arg1796z00_2270 = 
INPUT_PORT_FILEPOS(BgL_tmpz00_6929); } 
BgL_test3377z00_6928 = 
(BgL_arg1796z00_2270>
(long)CINT(BgL_pointz00_2232)); } 
if(BgL_test3377z00_6928)
{ /* Llib/error.scm 858 */
 obj_t BgL_arg1789z00_2262; long BgL_arg1790z00_2263;
BgL_arg1789z00_2262 = 
BGl_relativeze70ze7zz__errorz00(BgL_filez00_2231); 
BgL_arg1790z00_2263 = 
(
(long)CINT(BgL_pointz00_2232)-BgL_oposz00_2245); 
{ /* Llib/error.scm 858 */
 obj_t BgL_list1791z00_2264;
{ /* Llib/error.scm 858 */
 obj_t BgL_arg1792z00_2265;
{ /* Llib/error.scm 858 */
 obj_t BgL_arg1793z00_2266;
{ /* Llib/error.scm 858 */
 obj_t BgL_arg1794z00_2267;
BgL_arg1794z00_2267 = 
MAKE_YOUNG_PAIR(BgL_lstringz00_2247, BNIL); 
BgL_arg1793z00_2266 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1790z00_2263), BgL_arg1794z00_2267); } 
BgL_arg1792z00_2265 = 
MAKE_YOUNG_PAIR(
BINT(BgL_lnumz00_2244), BgL_arg1793z00_2266); } 
BgL_list1791z00_2264 = 
MAKE_YOUNG_PAIR(BgL_arg1789z00_2262, BgL_arg1792z00_2265); } 
BgL_tmp1119z00_2241 = 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1791z00_2264); } }  else 
{ /* Llib/error.scm 859 */
 long BgL_oposz00_2268;
{ /* Llib/error.scm 859 */
 obj_t BgL_tmpz00_6944;
BgL_tmpz00_6944 = 
((obj_t)BgL_portz00_2237); 
BgL_oposz00_2268 = 
INPUT_PORT_FILEPOS(BgL_tmpz00_6944); } 
{ 
 long BgL_oposz00_6950; long BgL_lnumz00_6948; obj_t BgL_ostringz00_6947;
BgL_ostringz00_6947 = BgL_lstringz00_2247; 
BgL_lnumz00_6948 = 
(BgL_lnumz00_2244+1L); 
BgL_oposz00_6950 = BgL_oposz00_2268; 
BgL_oposz00_2245 = BgL_oposz00_6950; 
BgL_lnumz00_2244 = BgL_lnumz00_6948; 
BgL_ostringz00_2243 = BgL_ostringz00_6947; 
goto BgL_zc3z04anonymousza31772ze3z87_2246;} } } } } 
{ /* Llib/error.scm 847 */
 bool_t BgL_test3378z00_6951;
{ /* Llib/error.scm 847 */
 obj_t BgL_arg2609z00_4046;
BgL_arg2609z00_4046 = 
BGL_EXITD_PROTECT(BgL_exitd1117z00_2239); 
BgL_test3378z00_6951 = 
PAIRP(BgL_arg2609z00_4046); } 
if(BgL_test3378z00_6951)
{ /* Llib/error.scm 847 */
 obj_t BgL_arg2607z00_4047;
{ /* Llib/error.scm 847 */
 obj_t BgL_arg2608z00_4048;
BgL_arg2608z00_4048 = 
BGL_EXITD_PROTECT(BgL_exitd1117z00_2239); 
BgL_arg2607z00_4047 = 
CDR(
((obj_t)BgL_arg2608z00_4048)); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1117z00_2239, BgL_arg2607z00_4047); BUNSPEC; }  else 
{ /* Llib/error.scm 847 */BFALSE; } } 
bgl_close_input_port(BgL_portz00_2237); 
return BgL_tmp1119z00_2241;} } }  else 
{ /* Llib/error.scm 862 */
 obj_t BgL_arg1798z00_2274;
BgL_arg1798z00_2274 = 
BGl_relativeze70ze7zz__errorz00(BgL_filez00_2231); 
{ /* Llib/error.scm 862 */
 obj_t BgL_list1799z00_2275;
{ /* Llib/error.scm 862 */
 obj_t BgL_arg1800z00_2276;
{ /* Llib/error.scm 862 */
 obj_t BgL_arg1801z00_2277;
{ /* Llib/error.scm 862 */
 obj_t BgL_arg1803z00_2278;
BgL_arg1803z00_2278 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_arg1801z00_2277 = 
MAKE_YOUNG_PAIR(BgL_pointz00_2232, BgL_arg1803z00_2278); } 
BgL_arg1800z00_2276 = 
MAKE_YOUNG_PAIR(BFALSE, BgL_arg1801z00_2277); } 
BgL_list1799z00_2275 = 
MAKE_YOUNG_PAIR(BgL_arg1798z00_2274, BgL_arg1800z00_2276); } 
return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1799z00_2275);} } } } }  else 
{ /* Llib/error.scm 841 */
return BFALSE;} } } 

}



/* relative~0 */
obj_t BGl_relativeze70ze7zz__errorz00(obj_t BgL_filez00_2223)
{
{ /* Llib/error.scm 838 */
{ /* Llib/error.scm 835 */
 obj_t BgL_relz00_2225;
BgL_relz00_2225 = 
BGl_relativezd2filezd2namez00zz__errorz00(BgL_filez00_2223); 
if(
(
STRING_LENGTH(
((obj_t)BgL_relz00_2225))<
STRING_LENGTH(
((obj_t)BgL_filez00_2223))))
{ /* Llib/error.scm 836 */
return BgL_relz00_2225;}  else 
{ /* Llib/error.scm 836 */
return BgL_filez00_2223;} } } 

}



/* location-line-col~0 */
obj_t BGl_locationzd2linezd2colze70ze7zz__errorz00(obj_t BgL_filez00_2284, obj_t BgL_linez00_2285, obj_t BgL_colz00_2286)
{
{ /* Llib/error.scm 884 */
{ /* Llib/error.scm 865 */
 bool_t BgL_test3380z00_6972;
if(
(
(long)CINT(BgL_linez00_2285)>=0L))
{ /* Llib/error.scm 865 */
BgL_test3380z00_6972 = 
(
(long)CINT(BgL_colz00_2286)>=0L)
; }  else 
{ /* Llib/error.scm 865 */
BgL_test3380z00_6972 = ((bool_t)0)
; } 
if(BgL_test3380z00_6972)
{ /* Llib/error.scm 866 */
 obj_t BgL_fnamez00_2290;
{ /* Llib/error.scm 866 */
 bool_t BgL_test3382z00_6978;
{ /* Llib/error.scm 866 */
 obj_t BgL_string1z00_4053;
BgL_string1z00_4053 = 
string_to_bstring(OS_CLASS); 
{ /* Llib/error.scm 866 */
 long BgL_l1z00_4055;
BgL_l1z00_4055 = 
STRING_LENGTH(BgL_string1z00_4053); 
if(
(BgL_l1z00_4055==5L))
{ /* Llib/error.scm 866 */
 int BgL_arg2324z00_4058;
{ /* Llib/error.scm 866 */
 char * BgL_auxz00_6985; char * BgL_tmpz00_6983;
BgL_auxz00_6985 = 
BSTRING_TO_STRING(BGl_string2961z00zz__errorz00); 
BgL_tmpz00_6983 = 
BSTRING_TO_STRING(BgL_string1z00_4053); 
BgL_arg2324z00_4058 = 
memcmp(BgL_tmpz00_6983, BgL_auxz00_6985, BgL_l1z00_4055); } 
BgL_test3382z00_6978 = 
(
(long)(BgL_arg2324z00_4058)==0L); }  else 
{ /* Llib/error.scm 866 */
BgL_test3382z00_6978 = ((bool_t)0)
; } } } 
if(BgL_test3382z00_6978)
{ /* Llib/error.scm 866 */
BgL_fnamez00_2290 = 
BGl_stringzd2replacezd2zz__r4_strings_6_7z00(
BGl_uncygdrivez00zz__errorz00(BgL_filez00_2284), 
(char)(((unsigned char)'/')), 
(char)(((unsigned char)'\\'))); }  else 
{ /* Llib/error.scm 866 */
BgL_fnamez00_2290 = BgL_filez00_2284; } } 
{ /* Llib/error.scm 866 */
 obj_t BgL_portz00_2291;
BgL_portz00_2291 = 
BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_2290); 
{ /* Llib/error.scm 869 */

if(
INPUT_PORTP(BgL_portz00_2291))
{ /* Llib/error.scm 871 */
 obj_t BgL_exitd1121z00_2293;
BgL_exitd1121z00_2293 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Llib/error.scm 882 */
 obj_t BgL_zc3z04anonymousza31834ze3z87_5169;
BgL_zc3z04anonymousza31834ze3z87_5169 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31834ze3ze5zz__errorz00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31834ze3z87_5169, 
(int)(0L), BgL_portz00_2291); 
{ /* Llib/error.scm 871 */
 obj_t BgL_arg2610z00_4065;
{ /* Llib/error.scm 871 */
 obj_t BgL_arg2611z00_4066;
BgL_arg2611z00_4066 = 
BGL_EXITD_PROTECT(BgL_exitd1121z00_2293); 
BgL_arg2610z00_4065 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31834ze3z87_5169, BgL_arg2611z00_4066); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1121z00_2293, BgL_arg2610z00_4065); BUNSPEC; } 
{ /* Llib/error.scm 874 */
 obj_t BgL_tmp1123z00_2295;
{ 
 obj_t BgL_ostringz00_2297; obj_t BgL_lnumz00_2298;
BgL_ostringz00_2297 = BFALSE; 
BgL_lnumz00_2298 = BgL_linez00_2285; 
BgL_zc3z04anonymousza31813ze3z87_2299:
{ /* Llib/error.scm 874 */
 obj_t BgL_lstringz00_2300;
BgL_lstringz00_2300 = 
BGl_readzd2linezd2zz__r4_input_6_10_2z00(BgL_portz00_2291); 
if(
EOF_OBJECTP(BgL_lstringz00_2300))
{ /* Llib/error.scm 876 */
 obj_t BgL_arg1815z00_2302; long BgL_arg1816z00_2303; obj_t BgL_arg1817z00_2304;
BgL_arg1815z00_2302 = 
BGl_relativeze70ze7zz__errorz00(BgL_filez00_2284); 
BgL_arg1816z00_2303 = 
(
(long)CINT(BgL_colz00_2286)+1L); 
{ /* Llib/error.scm 877 */
 obj_t BgL_list1822z00_2309;
{ /* Llib/error.scm 877 */
 obj_t BgL_arg1824z00_2310;
BgL_arg1824z00_2310 = 
MAKE_YOUNG_PAIR(BGl_string2962z00zz__errorz00, BNIL); 
BgL_list1822z00_2309 = 
MAKE_YOUNG_PAIR(BgL_ostringz00_2297, BgL_arg1824z00_2310); } 
BgL_arg1817z00_2304 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1822z00_2309); } 
{ /* Llib/error.scm 876 */
 obj_t BgL_list1818z00_2305;
{ /* Llib/error.scm 876 */
 obj_t BgL_arg1819z00_2306;
{ /* Llib/error.scm 876 */
 obj_t BgL_arg1820z00_2307;
{ /* Llib/error.scm 876 */
 obj_t BgL_arg1821z00_2308;
BgL_arg1821z00_2308 = 
MAKE_YOUNG_PAIR(BgL_arg1817z00_2304, BNIL); 
BgL_arg1820z00_2307 = 
MAKE_YOUNG_PAIR(
BINT(BgL_arg1816z00_2303), BgL_arg1821z00_2308); } 
BgL_arg1819z00_2306 = 
MAKE_YOUNG_PAIR(BgL_linez00_2285, BgL_arg1820z00_2307); } 
BgL_list1818z00_2305 = 
MAKE_YOUNG_PAIR(BgL_arg1815z00_2302, BgL_arg1819z00_2306); } 
BgL_tmp1123z00_2295 = 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1818z00_2305); } }  else 
{ /* Llib/error.scm 875 */
if(
(
(long)CINT(BgL_lnumz00_2298)==0L))
{ /* Llib/error.scm 879 */
 obj_t BgL_arg1827z00_2312;
BgL_arg1827z00_2312 = 
BGl_relativeze70ze7zz__errorz00(BgL_filez00_2284); 
{ /* Llib/error.scm 879 */
 obj_t BgL_list1828z00_2313;
{ /* Llib/error.scm 879 */
 obj_t BgL_arg1829z00_2314;
{ /* Llib/error.scm 879 */
 obj_t BgL_arg1830z00_2315;
{ /* Llib/error.scm 879 */
 obj_t BgL_arg1832z00_2316;
BgL_arg1832z00_2316 = 
MAKE_YOUNG_PAIR(BgL_lstringz00_2300, BNIL); 
BgL_arg1830z00_2315 = 
MAKE_YOUNG_PAIR(BgL_colz00_2286, BgL_arg1832z00_2316); } 
BgL_arg1829z00_2314 = 
MAKE_YOUNG_PAIR(BgL_linez00_2285, BgL_arg1830z00_2315); } 
BgL_list1828z00_2313 = 
MAKE_YOUNG_PAIR(BgL_arg1827z00_2312, BgL_arg1829z00_2314); } 
BgL_tmp1123z00_2295 = 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1828z00_2313); } }  else 
{ /* Llib/error.scm 880 */
 long BgL_oposz00_2317;
{ /* Llib/error.scm 880 */
 obj_t BgL_tmpz00_7030;
BgL_tmpz00_7030 = 
((obj_t)BgL_portz00_2291); 
BgL_oposz00_2317 = 
INPUT_PORT_FILEPOS(BgL_tmpz00_7030); } 
{ /* Llib/error.scm 881 */
 long BgL_arg1833z00_2318;
BgL_arg1833z00_2318 = 
(
(long)CINT(BgL_lnumz00_2298)-1L); 
{ 
 obj_t BgL_lnumz00_7036; obj_t BgL_ostringz00_7035;
BgL_ostringz00_7035 = BgL_lstringz00_2300; 
BgL_lnumz00_7036 = 
BINT(BgL_arg1833z00_2318); 
BgL_lnumz00_2298 = BgL_lnumz00_7036; 
BgL_ostringz00_2297 = BgL_ostringz00_7035; 
goto BgL_zc3z04anonymousza31813ze3z87_2299;} } } } } } 
{ /* Llib/error.scm 871 */
 bool_t BgL_test3387z00_7038;
{ /* Llib/error.scm 871 */
 obj_t BgL_arg2609z00_4072;
BgL_arg2609z00_4072 = 
BGL_EXITD_PROTECT(BgL_exitd1121z00_2293); 
BgL_test3387z00_7038 = 
PAIRP(BgL_arg2609z00_4072); } 
if(BgL_test3387z00_7038)
{ /* Llib/error.scm 871 */
 obj_t BgL_arg2607z00_4073;
{ /* Llib/error.scm 871 */
 obj_t BgL_arg2608z00_4074;
BgL_arg2608z00_4074 = 
BGL_EXITD_PROTECT(BgL_exitd1121z00_2293); 
BgL_arg2607z00_4073 = 
CDR(
((obj_t)BgL_arg2608z00_4074)); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1121z00_2293, BgL_arg2607z00_4073); BUNSPEC; }  else 
{ /* Llib/error.scm 871 */BFALSE; } } 
bgl_close_input_port(BgL_portz00_2291); 
return BgL_tmp1123z00_2295;} } }  else 
{ /* Llib/error.scm 883 */
 obj_t BgL_arg1835z00_2322;
BgL_arg1835z00_2322 = 
BGl_relativeze70ze7zz__errorz00(BgL_filez00_2284); 
{ /* Llib/error.scm 883 */
 obj_t BgL_list1836z00_2323;
{ /* Llib/error.scm 883 */
 obj_t BgL_arg1837z00_2324;
{ /* Llib/error.scm 883 */
 obj_t BgL_arg1839z00_2325;
{ /* Llib/error.scm 883 */
 obj_t BgL_arg1840z00_2326;
BgL_arg1840z00_2326 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_arg1839z00_2325 = 
MAKE_YOUNG_PAIR(BgL_colz00_2286, BgL_arg1840z00_2326); } 
BgL_arg1837z00_2324 = 
MAKE_YOUNG_PAIR(BgL_linez00_2285, BgL_arg1839z00_2325); } 
BgL_list1836z00_2323 = 
MAKE_YOUNG_PAIR(BgL_arg1835z00_2322, BgL_arg1837z00_2324); } 
return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1836z00_2323);} } } } }  else 
{ /* Llib/error.scm 884 */
 obj_t BgL_arg1847z00_2331;
BgL_arg1847z00_2331 = 
BGl_relativeze70ze7zz__errorz00(BgL_filez00_2284); 
{ /* Llib/error.scm 884 */
 obj_t BgL_list1848z00_2332;
{ /* Llib/error.scm 884 */
 obj_t BgL_arg1849z00_2333;
{ /* Llib/error.scm 884 */
 obj_t BgL_arg1851z00_2334;
{ /* Llib/error.scm 884 */
 obj_t BgL_arg1852z00_2335;
BgL_arg1852z00_2335 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_arg1851z00_2334 = 
MAKE_YOUNG_PAIR(BgL_colz00_2286, BgL_arg1852z00_2335); } 
BgL_arg1849z00_2333 = 
MAKE_YOUNG_PAIR(BgL_linez00_2285, BgL_arg1851z00_2334); } 
BgL_list1848z00_2332 = 
MAKE_YOUNG_PAIR(BgL_arg1847z00_2331, BgL_arg1849z00_2333); } 
return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_list1848z00_2332);} } } } 

}



/* &<@anonymous:1834> */
obj_t BGl_z62zc3z04anonymousza31834ze3ze5zz__errorz00(obj_t BgL_envz00_5171)
{
{ /* Llib/error.scm 871 */
{ /* Llib/error.scm 882 */
 obj_t BgL_portz00_5172;
BgL_portz00_5172 = 
PROCEDURE_REF(BgL_envz00_5171, 
(int)(0L)); 
return 
bgl_close_input_port(
((obj_t)BgL_portz00_5172));} } 

}



/* &<@anonymous:1797> */
obj_t BGl_z62zc3z04anonymousza31797ze3ze5zz__errorz00(obj_t BgL_envz00_5173)
{
{ /* Llib/error.scm 847 */
{ /* Llib/error.scm 861 */
 obj_t BgL_portz00_5174;
BgL_portz00_5174 = 
PROCEDURE_REF(BgL_envz00_5173, 
(int)(0L)); 
return 
bgl_close_input_port(
((obj_t)BgL_portz00_5174));} } 

}



/* exception-location? */
bool_t BGl_exceptionzd2locationzf3z21zz__errorz00(obj_t BgL_ez00_94)
{
{ /* Llib/error.scm 902 */
{ /* Llib/error.scm 904 */
 bool_t BgL_test3388z00_7066;
{ /* Llib/error.scm 904 */
 obj_t BgL_tmpz00_7067;
BgL_tmpz00_7067 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_ez00_94)))->BgL_fnamez00); 
BgL_test3388z00_7066 = 
STRINGP(BgL_tmpz00_7067); } 
if(BgL_test3388z00_7066)
{ /* Llib/error.scm 904 */
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 904 */
return ((bool_t)0);} } } 

}



/* error-notify */
BGL_EXPORTED_DEF obj_t BGl_errorzd2notifyzd2zz__errorz00(obj_t BgL_ez00_95)
{
{ /* Llib/error.scm 909 */
{ /* Llib/error.scm 911 */
 bool_t BgL_test3389z00_7074;
{ /* Llib/error.scm 911 */
 obj_t BgL_classz00_4100;
BgL_classz00_4100 = BGl_z62errorz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_ez00_95))
{ /* Llib/error.scm 911 */
 BgL_objectz00_bglt BgL_arg2767z00_4102;
BgL_arg2767z00_4102 = 
(BgL_objectz00_bglt)(BgL_ez00_95); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 911 */
 long BgL_idxz00_4108;
BgL_idxz00_4108 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_4102); 
BgL_test3389z00_7074 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_4108+3L))==BgL_classz00_4100); }  else 
{ /* Llib/error.scm 911 */
 bool_t BgL_res2826z00_4133;
{ /* Llib/error.scm 911 */
 obj_t BgL_oclassz00_4116;
{ /* Llib/error.scm 911 */
 obj_t BgL_arg2777z00_4124; long BgL_arg2778z00_4125;
BgL_arg2777z00_4124 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/error.scm 911 */
 long BgL_arg2779z00_4126;
BgL_arg2779z00_4126 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_4102); 
BgL_arg2778z00_4125 = 
(BgL_arg2779z00_4126-OBJECT_TYPE); } 
BgL_oclassz00_4116 = 
VECTOR_REF(BgL_arg2777z00_4124,BgL_arg2778z00_4125); } 
{ /* Llib/error.scm 911 */
 bool_t BgL__ortest_1196z00_4117;
BgL__ortest_1196z00_4117 = 
(BgL_classz00_4100==BgL_oclassz00_4116); 
if(BgL__ortest_1196z00_4117)
{ /* Llib/error.scm 911 */
BgL_res2826z00_4133 = BgL__ortest_1196z00_4117; }  else 
{ /* Llib/error.scm 911 */
 long BgL_odepthz00_4118;
{ /* Llib/error.scm 911 */
 obj_t BgL_arg2764z00_4119;
BgL_arg2764z00_4119 = 
(BgL_oclassz00_4116); 
BgL_odepthz00_4118 = 
BGL_CLASS_DEPTH(BgL_arg2764z00_4119); } 
if(
(3L<BgL_odepthz00_4118))
{ /* Llib/error.scm 911 */
 obj_t BgL_arg2762z00_4121;
{ /* Llib/error.scm 911 */
 obj_t BgL_arg2763z00_4122;
BgL_arg2763z00_4122 = 
(BgL_oclassz00_4116); 
BgL_arg2762z00_4121 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_4122, 3L); } 
BgL_res2826z00_4133 = 
(BgL_arg2762z00_4121==BgL_classz00_4100); }  else 
{ /* Llib/error.scm 911 */
BgL_res2826z00_4133 = ((bool_t)0); } } } } 
BgL_test3389z00_7074 = BgL_res2826z00_4133; } }  else 
{ /* Llib/error.scm 911 */
BgL_test3389z00_7074 = ((bool_t)0)
; } } 
if(BgL_test3389z00_7074)
{ /* Llib/error.scm 911 */
if(
BGl_exceptionzd2locationzf3z21zz__errorz00(BgL_ez00_95))
{ /* Llib/error.scm 914 */
 obj_t BgL_arg1857z00_2347; obj_t BgL_arg1858z00_2348;
BgL_arg1857z00_2347 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_ez00_95)))->BgL_fnamez00); 
BgL_arg1858z00_2348 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_ez00_95)))->BgL_locationz00); 
return 
BGl_notifyzd2z62errorzf2locz42zz__errorz00(BgL_ez00_95, BgL_arg1857z00_2347, BgL_arg1858z00_2348);}  else 
{ /* Llib/error.scm 912 */
BGL_TAIL return 
BGl_notifyzd2z62errorzb0zz__errorz00(BgL_ez00_95);} }  else 
{ /* Llib/error.scm 916 */
 bool_t BgL_test3395z00_7105;
{ /* Llib/error.scm 916 */
 obj_t BgL_classz00_4134;
BgL_classz00_4134 = BGl_z62conditionz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_ez00_95))
{ /* Llib/error.scm 916 */
 BgL_objectz00_bglt BgL_arg2767z00_4136;
BgL_arg2767z00_4136 = 
(BgL_objectz00_bglt)(BgL_ez00_95); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 916 */
 long BgL_idxz00_4142;
BgL_idxz00_4142 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_4136); 
BgL_test3395z00_7105 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_4142+1L))==BgL_classz00_4134); }  else 
{ /* Llib/error.scm 916 */
 bool_t BgL_res2827z00_4167;
{ /* Llib/error.scm 916 */
 obj_t BgL_oclassz00_4150;
{ /* Llib/error.scm 916 */
 obj_t BgL_arg2777z00_4158; long BgL_arg2778z00_4159;
BgL_arg2777z00_4158 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/error.scm 916 */
 long BgL_arg2779z00_4160;
BgL_arg2779z00_4160 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_4136); 
BgL_arg2778z00_4159 = 
(BgL_arg2779z00_4160-OBJECT_TYPE); } 
BgL_oclassz00_4150 = 
VECTOR_REF(BgL_arg2777z00_4158,BgL_arg2778z00_4159); } 
{ /* Llib/error.scm 916 */
 bool_t BgL__ortest_1196z00_4151;
BgL__ortest_1196z00_4151 = 
(BgL_classz00_4134==BgL_oclassz00_4150); 
if(BgL__ortest_1196z00_4151)
{ /* Llib/error.scm 916 */
BgL_res2827z00_4167 = BgL__ortest_1196z00_4151; }  else 
{ /* Llib/error.scm 916 */
 long BgL_odepthz00_4152;
{ /* Llib/error.scm 916 */
 obj_t BgL_arg2764z00_4153;
BgL_arg2764z00_4153 = 
(BgL_oclassz00_4150); 
BgL_odepthz00_4152 = 
BGL_CLASS_DEPTH(BgL_arg2764z00_4153); } 
if(
(1L<BgL_odepthz00_4152))
{ /* Llib/error.scm 916 */
 obj_t BgL_arg2762z00_4155;
{ /* Llib/error.scm 916 */
 obj_t BgL_arg2763z00_4156;
BgL_arg2763z00_4156 = 
(BgL_oclassz00_4150); 
BgL_arg2762z00_4155 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_4156, 1L); } 
BgL_res2827z00_4167 = 
(BgL_arg2762z00_4155==BgL_classz00_4134); }  else 
{ /* Llib/error.scm 916 */
BgL_res2827z00_4167 = ((bool_t)0); } } } } 
BgL_test3395z00_7105 = BgL_res2827z00_4167; } }  else 
{ /* Llib/error.scm 916 */
BgL_test3395z00_7105 = ((bool_t)0)
; } } 
if(BgL_test3395z00_7105)
{ /* Llib/error.scm 917 */
 obj_t BgL_arg1860z00_2350;
{ /* Llib/error.scm 917 */
 obj_t BgL_tmpz00_7128;
BgL_tmpz00_7128 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1860z00_2350 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7128); } 
{ /* Llib/error.scm 917 */
 obj_t BgL_list1861z00_2351;
{ /* Llib/error.scm 917 */
 obj_t BgL_arg1862z00_2352;
BgL_arg1862z00_2352 = 
MAKE_YOUNG_PAIR(BgL_ez00_95, BNIL); 
BgL_list1861z00_2351 = 
MAKE_YOUNG_PAIR(BGl_string2963z00zz__errorz00, BgL_arg1862z00_2352); } 
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg1860z00_2350, BgL_list1861z00_2351);} }  else 
{ /* Llib/error.scm 916 */
return BFALSE;} } } } 

}



/* &error-notify */
obj_t BGl_z62errorzd2notifyzb0zz__errorz00(obj_t BgL_envz00_5175, obj_t BgL_ez00_5176)
{
{ /* Llib/error.scm 909 */
return 
BGl_errorzd2notifyzd2zz__errorz00(BgL_ez00_5176);} 

}



/* 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 922 */
{ /* Llib/error.scm 923 */
 bool_t BgL_test3400z00_7135;
{ /* Llib/error.scm 923 */
 obj_t BgL_classz00_4170;
BgL_classz00_4170 = BGl_z62errorz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_ez00_96))
{ /* Llib/error.scm 923 */
 BgL_objectz00_bglt BgL_arg2767z00_4172;
BgL_arg2767z00_4172 = 
(BgL_objectz00_bglt)(BgL_ez00_96); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 923 */
 long BgL_idxz00_4178;
BgL_idxz00_4178 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_4172); 
BgL_test3400z00_7135 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_4178+3L))==BgL_classz00_4170); }  else 
{ /* Llib/error.scm 923 */
 bool_t BgL_res2828z00_4203;
{ /* Llib/error.scm 923 */
 obj_t BgL_oclassz00_4186;
{ /* Llib/error.scm 923 */
 obj_t BgL_arg2777z00_4194; long BgL_arg2778z00_4195;
BgL_arg2777z00_4194 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/error.scm 923 */
 long BgL_arg2779z00_4196;
BgL_arg2779z00_4196 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_4172); 
BgL_arg2778z00_4195 = 
(BgL_arg2779z00_4196-OBJECT_TYPE); } 
BgL_oclassz00_4186 = 
VECTOR_REF(BgL_arg2777z00_4194,BgL_arg2778z00_4195); } 
{ /* Llib/error.scm 923 */
 bool_t BgL__ortest_1196z00_4187;
BgL__ortest_1196z00_4187 = 
(BgL_classz00_4170==BgL_oclassz00_4186); 
if(BgL__ortest_1196z00_4187)
{ /* Llib/error.scm 923 */
BgL_res2828z00_4203 = BgL__ortest_1196z00_4187; }  else 
{ /* Llib/error.scm 923 */
 long BgL_odepthz00_4188;
{ /* Llib/error.scm 923 */
 obj_t BgL_arg2764z00_4189;
BgL_arg2764z00_4189 = 
(BgL_oclassz00_4186); 
BgL_odepthz00_4188 = 
BGL_CLASS_DEPTH(BgL_arg2764z00_4189); } 
if(
(3L<BgL_odepthz00_4188))
{ /* Llib/error.scm 923 */
 obj_t BgL_arg2762z00_4191;
{ /* Llib/error.scm 923 */
 obj_t BgL_arg2763z00_4192;
BgL_arg2763z00_4192 = 
(BgL_oclassz00_4186); 
BgL_arg2762z00_4191 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_4192, 3L); } 
BgL_res2828z00_4203 = 
(BgL_arg2762z00_4191==BgL_classz00_4170); }  else 
{ /* Llib/error.scm 923 */
BgL_res2828z00_4203 = ((bool_t)0); } } } } 
BgL_test3400z00_7135 = BgL_res2828z00_4203; } }  else 
{ /* Llib/error.scm 923 */
BgL_test3400z00_7135 = ((bool_t)0)
; } } 
if(BgL_test3400z00_7135)
{ /* Llib/error.scm 923 */
return 
BGl_notifyzd2z62errorzf2locz42zz__errorz00(BgL_ez00_96, BgL_fnamez00_97, 
BINT(BgL_locationz00_98));}  else 
{ /* Llib/error.scm 923 */
return BFALSE;} } } 

}



/* &error-notify/location */
obj_t BGl_z62errorzd2notifyzf2locationz42zz__errorz00(obj_t BgL_envz00_5177, obj_t BgL_ez00_5178, obj_t BgL_fnamez00_5179, obj_t BgL_locationz00_5180)
{
{ /* Llib/error.scm 922 */
{ /* Llib/error.scm 923 */
 int BgL_auxz00_7167; obj_t BgL_auxz00_7160;
{ /* Llib/error.scm 923 */
 obj_t BgL_tmpz00_7168;
if(
INTEGERP(BgL_locationz00_5180))
{ /* Llib/error.scm 923 */
BgL_tmpz00_7168 = BgL_locationz00_5180
; }  else 
{ 
 obj_t BgL_auxz00_7171;
BgL_auxz00_7171 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(37058L), BGl_string2964z00zz__errorz00, BGl_string2909z00zz__errorz00, BgL_locationz00_5180); 
FAILURE(BgL_auxz00_7171,BFALSE,BFALSE);} 
BgL_auxz00_7167 = 
CINT(BgL_tmpz00_7168); } 
if(
STRINGP(BgL_fnamez00_5179))
{ /* Llib/error.scm 923 */
BgL_auxz00_7160 = BgL_fnamez00_5179
; }  else 
{ 
 obj_t BgL_auxz00_7163;
BgL_auxz00_7163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(37058L), BGl_string2964z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_fnamez00_5179); 
FAILURE(BgL_auxz00_7163,BFALSE,BFALSE);} 
return 
BGl_errorzd2notifyzf2locationz20zz__errorz00(BgL_ez00_5178, BgL_auxz00_7160, BgL_auxz00_7167);} } 

}



/* warning-notify */
BGL_EXPORTED_DEF obj_t BGl_warningzd2notifyzd2zz__errorz00(obj_t BgL_ez00_99)
{
{ /* Llib/error.scm 929 */
{ 
 obj_t BgL_ez00_2376;
{ /* Llib/error.scm 943 */
 bool_t BgL_test3407z00_7177;
{ /* Llib/error.scm 943 */
 int BgL_arg1885z00_2375;
BgL_arg1885z00_2375 = 
BGl_bigloozd2warningzd2zz__paramz00(); 
BgL_test3407z00_7177 = 
(
(long)(BgL_arg1885z00_2375)>0L); } 
if(BgL_test3407z00_7177)
{ /* Llib/error.scm 943 */
if(
BGl_exceptionzd2locationzf3z21zz__errorz00(BgL_ez00_99))
{ /* Llib/error.scm 947 */
 bool_t BgL_test3409z00_7183;
{ /* Llib/error.scm 947 */
 obj_t BgL_arg1881z00_2367;
BgL_arg1881z00_2367 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_fnamez00); 
{ /* Llib/error.scm 947 */
 long BgL_l1z00_4219;
BgL_l1z00_4219 = 
STRING_LENGTH(
((obj_t)BgL_arg1881z00_2367)); 
if(
(BgL_l1z00_4219==8L))
{ /* Llib/error.scm 947 */
 int BgL_arg2324z00_4222;
{ /* Llib/error.scm 947 */
 char * BgL_auxz00_7194; char * BgL_tmpz00_7191;
BgL_auxz00_7194 = 
BSTRING_TO_STRING(BGl_string2967z00zz__errorz00); 
BgL_tmpz00_7191 = 
BSTRING_TO_STRING(
((obj_t)BgL_arg1881z00_2367)); 
BgL_arg2324z00_4222 = 
memcmp(BgL_tmpz00_7191, BgL_auxz00_7194, BgL_l1z00_4219); } 
BgL_test3409z00_7183 = 
(
(long)(BgL_arg2324z00_4222)==0L); }  else 
{ /* Llib/error.scm 947 */
BgL_test3409z00_7183 = ((bool_t)0)
; } } } 
if(BgL_test3409z00_7183)
{ /* Llib/error.scm 947 */
BgL_ez00_2376 = BgL_ez00_99; 
BgL_zc3z04anonymousza31886ze3z87_2377:
{ /* Llib/error.scm 931 */
 obj_t BgL_arg1887z00_2378;
{ /* Llib/error.scm 931 */
 obj_t BgL_tmpz00_7199;
BgL_tmpz00_7199 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1887z00_2378 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_7199); } 
bgl_flush_output_port(BgL_arg1887z00_2378); } 
{ /* Llib/error.scm 932 */
 obj_t BgL_arg1888z00_2379;
{ /* Llib/error.scm 932 */
 obj_t BgL_tmpz00_7203;
BgL_tmpz00_7203 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1888z00_2379 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7203); } 
{ /* Llib/error.scm 932 */
 obj_t BgL_list1889z00_2380;
BgL_list1889z00_2380 = 
MAKE_YOUNG_PAIR(BgL_arg1888z00_2379, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2965z00zz__errorz00, BgL_list1889z00_2380); } } 
if(
NULLP(
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_2376)))->BgL_argsz00)))
{ /* Llib/error.scm 934 */BFALSE; }  else 
{ /* Llib/error.scm 934 */
{ /* Llib/error.scm 936 */
 obj_t BgL_arg1892z00_2384; obj_t BgL_arg1893z00_2385;
{ /* Llib/error.scm 936 */
 obj_t BgL_pairz00_4207;
BgL_pairz00_4207 = 
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_2376)))->BgL_argsz00); 
BgL_arg1892z00_2384 = 
CAR(BgL_pairz00_4207); } 
{ /* Llib/error.scm 936 */
 obj_t BgL_tmpz00_7215;
BgL_tmpz00_7215 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1893z00_2385 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7215); } 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1892z00_2384, BgL_arg1893z00_2385); } 
{ /* Llib/error.scm 937 */
 obj_t BgL_arg1896z00_2387;
{ /* Llib/error.scm 937 */
 obj_t BgL_tmpz00_7219;
BgL_tmpz00_7219 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1896z00_2387 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7219); } 
{ /* Llib/error.scm 937 */
 obj_t BgL_list1897z00_2388;
BgL_list1897z00_2388 = 
MAKE_YOUNG_PAIR(BgL_arg1896z00_2387, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1897z00_2388); } } 
{ /* Llib/error.scm 938 */
 obj_t BgL_arg1899z00_2390;
{ /* Llib/error.scm 940 */
 obj_t BgL_pairz00_4210;
BgL_pairz00_4210 = 
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_2376)))->BgL_argsz00); 
BgL_arg1899z00_2390 = 
CDR(BgL_pairz00_4210); } 
{ /* Llib/error.scm 938 */
 obj_t BgL_list1900z00_2391;
BgL_list1900z00_2391 = 
MAKE_YOUNG_PAIR(BgL_arg1899z00_2390, BNIL); 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BGl_proc2966z00zz__errorz00, BgL_list1900z00_2391); } } } 
{ /* Llib/error.scm 941 */
 obj_t BgL_arg1907z00_2398;
{ /* Llib/error.scm 941 */
 obj_t BgL_tmpz00_7229;
BgL_tmpz00_7229 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1907z00_2398 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7229); } 
{ /* Llib/error.scm 941 */
 obj_t BgL_list1908z00_2399;
BgL_list1908z00_2399 = 
MAKE_YOUNG_PAIR(BgL_arg1907z00_2398, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1908z00_2399); } } 
{ /* Llib/error.scm 942 */
 obj_t BgL_arg1911z00_2400;
{ /* Llib/error.scm 942 */
 obj_t BgL_tmpz00_7234;
BgL_tmpz00_7234 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1911z00_2400 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7234); } 
bgl_flush_output_port(BgL_arg1911z00_2400); } }  else 
{ /* Llib/error.scm 949 */
 bool_t BgL_test3412z00_7238;
{ /* Llib/error.scm 949 */
 obj_t BgL_arg1879z00_2366;
BgL_arg1879z00_2366 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_fnamez00); 
{ /* Llib/error.scm 949 */
 long BgL_l1z00_4230;
BgL_l1z00_4230 = 
STRING_LENGTH(
((obj_t)BgL_arg1879z00_2366)); 
if(
(BgL_l1z00_4230==7L))
{ /* Llib/error.scm 949 */
 int BgL_arg2324z00_4233;
{ /* Llib/error.scm 949 */
 char * BgL_auxz00_7249; char * BgL_tmpz00_7246;
BgL_auxz00_7249 = 
BSTRING_TO_STRING(BGl_string2968z00zz__errorz00); 
BgL_tmpz00_7246 = 
BSTRING_TO_STRING(
((obj_t)BgL_arg1879z00_2366)); 
BgL_arg2324z00_4233 = 
memcmp(BgL_tmpz00_7246, BgL_auxz00_7249, BgL_l1z00_4230); } 
BgL_test3412z00_7238 = 
(
(long)(BgL_arg2324z00_4233)==0L); }  else 
{ /* Llib/error.scm 949 */
BgL_test3412z00_7238 = ((bool_t)0)
; } } } 
if(BgL_test3412z00_7238)
{ 
 obj_t BgL_ez00_7254;
BgL_ez00_7254 = BgL_ez00_99; 
BgL_ez00_2376 = BgL_ez00_7254; 
goto BgL_zc3z04anonymousza31886ze3z87_2377;}  else 
{ /* Llib/error.scm 952 */
 obj_t BgL_arg1873z00_2363; obj_t BgL_arg1876z00_2364; obj_t BgL_arg1878z00_2365;
BgL_arg1873z00_2363 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_fnamez00); 
BgL_arg1876z00_2364 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_locationz00); 
BgL_arg1878z00_2365 = 
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_99)))->BgL_argsz00); 
BGl_warningzf2locationzd2filez20zz__errorz00(BgL_arg1873z00_2363, BgL_arg1876z00_2364, BgL_arg1878z00_2365); } } }  else 
{ 
 obj_t BgL_ez00_7264;
BgL_ez00_7264 = BgL_ez00_99; 
BgL_ez00_2376 = BgL_ez00_7264; 
goto BgL_zc3z04anonymousza31886ze3z87_2377;} 
if(
CBOOL(
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_stackz00)))
{ /* Llib/error.scm 957 */
 obj_t BgL_arg1883z00_2370; obj_t BgL_arg1884z00_2371;
BgL_arg1883z00_2370 = 
(((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)
((BgL_z62warningz62_bglt)BgL_ez00_99))))->BgL_stackz00); 
{ /* Llib/error.scm 957 */
 obj_t BgL_tmpz00_7273;
BgL_tmpz00_7273 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1884z00_2371 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7273); } 
{ /* Llib/error.scm 278 */

BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_arg1883z00_2370, BgL_arg1884z00_2371, 
BINT(1L)); } }  else 
{ /* Llib/error.scm 956 */BFALSE; } }  else 
{ /* Llib/error.scm 943 */BFALSE; } } 
return BFALSE;} } 

}



/* &warning-notify */
obj_t BGl_z62warningzd2notifyzb0zz__errorz00(obj_t BgL_envz00_5182, obj_t BgL_ez00_5183)
{
{ /* Llib/error.scm 929 */
return 
BGl_warningzd2notifyzd2zz__errorz00(BgL_ez00_5183);} 

}



/* &<@anonymous:1901> */
obj_t BGl_z62zc3z04anonymousza31901ze3ze5zz__errorz00(obj_t BgL_envz00_5184, obj_t BgL_az00_5185)
{
{ /* Llib/error.scm 938 */
{ /* Llib/error.scm 939 */
 obj_t BgL_arg1903z00_5304;
{ /* Llib/error.scm 939 */
 obj_t BgL_tmpz00_7279;
BgL_tmpz00_7279 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1903z00_5304 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7279); } 
return 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_5185, BgL_arg1903z00_5304);} } 

}



/* 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 963 */
{ /* Llib/error.scm 964 */
 bool_t BgL_test3415z00_7283;
{ /* Llib/error.scm 964 */
 int BgL_arg1917z00_4241;
BgL_arg1917z00_4241 = 
BGl_bigloozd2warningzd2zz__paramz00(); 
BgL_test3415z00_7283 = 
(
(long)(BgL_arg1917z00_4241)>0L); } 
if(BgL_test3415z00_7283)
{ /* Llib/error.scm 966 */
 obj_t BgL_arg1916z00_4243;
BgL_arg1916z00_4243 = 
(((BgL_z62warningz62_bglt)COBJECT(
((BgL_z62warningz62_bglt)BgL_ez00_100)))->BgL_argsz00); 
return 
BGl_warningzf2locationzd2filez20zz__errorz00(BgL_fnamez00_101, 
BINT(BgL_locationz00_102), BgL_arg1916z00_4243);}  else 
{ /* Llib/error.scm 964 */
return BFALSE;} } } 

}



/* &warning-notify/location */
obj_t BGl_z62warningzd2notifyzf2locationz42zz__errorz00(obj_t BgL_envz00_5186, obj_t BgL_ez00_5187, obj_t BgL_fnamez00_5188, obj_t BgL_locationz00_5189)
{
{ /* Llib/error.scm 963 */
{ /* Llib/error.scm 964 */
 int BgL_auxz00_7298; obj_t BgL_auxz00_7291;
{ /* Llib/error.scm 964 */
 obj_t BgL_tmpz00_7299;
if(
INTEGERP(BgL_locationz00_5189))
{ /* Llib/error.scm 964 */
BgL_tmpz00_7299 = BgL_locationz00_5189
; }  else 
{ 
 obj_t BgL_auxz00_7302;
BgL_auxz00_7302 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(38571L), BGl_string2969z00zz__errorz00, BGl_string2909z00zz__errorz00, BgL_locationz00_5189); 
FAILURE(BgL_auxz00_7302,BFALSE,BFALSE);} 
BgL_auxz00_7298 = 
CINT(BgL_tmpz00_7299); } 
if(
STRINGP(BgL_fnamez00_5188))
{ /* Llib/error.scm 964 */
BgL_auxz00_7291 = BgL_fnamez00_5188
; }  else 
{ 
 obj_t BgL_auxz00_7294;
BgL_auxz00_7294 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(38571L), BGl_string2969z00zz__errorz00, BGl_string2934z00zz__errorz00, BgL_fnamez00_5188); 
FAILURE(BgL_auxz00_7294,BFALSE,BFALSE);} 
return 
BGl_warningzd2notifyzf2locationz20zz__errorz00(BgL_ez00_5187, BgL_auxz00_7291, BgL_auxz00_7298);} } 

}



/* 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 971 */
{ /* Llib/error.scm 973 */
 obj_t BgL_portz00_2407;
BgL_portz00_2407 = 
BGl_openzd2forzd2errorz00zz__errorz00(BgL_fnamez00_103); 
if(
INPUT_PORTP(BgL_portz00_2407))
{ /* Llib/error.scm 979 */
 obj_t BgL_filez00_2409;
{ /* Llib/error.scm 980 */
 obj_t BgL_arg1920z00_2414;
{ /* Llib/error.scm 980 */
 obj_t BgL_list1921z00_2415;
{ /* Llib/error.scm 980 */
 obj_t BgL_arg1922z00_2416;
{ /* Llib/error.scm 980 */
 obj_t BgL_arg1923z00_2417;
BgL_arg1923z00_2417 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
BgL_arg1922z00_2416 = 
MAKE_YOUNG_PAIR(BgL_locz00_104, BgL_arg1923z00_2417); } 
BgL_list1921z00_2415 = 
MAKE_YOUNG_PAIR(BgL_fnamez00_103, BgL_arg1922z00_2416); } 
BgL_arg1920z00_2414 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BGl_symbol2911z00zz__errorz00, BgL_list1921z00_2415); } 
BgL_filez00_2409 = 
BGl_locationzd2linezd2numz00zz__errorz00(BgL_arg1920z00_2414); } 
{ /* Llib/error.scm 980 */
 obj_t BgL_lnumz00_2410; obj_t BgL_lpointz00_2411; obj_t BgL_lstringz00_2412;
{ /* Llib/error.scm 981 */
 obj_t BgL_tmpz00_4245;
{ /* Llib/error.scm 981 */
 int BgL_tmpz00_7316;
BgL_tmpz00_7316 = 
(int)(1L); 
BgL_tmpz00_4245 = 
BGL_MVALUES_VAL(BgL_tmpz00_7316); } 
{ /* Llib/error.scm 981 */
 int BgL_tmpz00_7319;
BgL_tmpz00_7319 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7319, BUNSPEC); } 
BgL_lnumz00_2410 = BgL_tmpz00_4245; } 
{ /* Llib/error.scm 981 */
 obj_t BgL_tmpz00_4246;
{ /* Llib/error.scm 981 */
 int BgL_tmpz00_7322;
BgL_tmpz00_7322 = 
(int)(2L); 
BgL_tmpz00_4246 = 
BGL_MVALUES_VAL(BgL_tmpz00_7322); } 
{ /* Llib/error.scm 981 */
 int BgL_tmpz00_7325;
BgL_tmpz00_7325 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7325, BUNSPEC); } 
BgL_lpointz00_2411 = BgL_tmpz00_4246; } 
{ /* Llib/error.scm 981 */
 obj_t BgL_tmpz00_4247;
{ /* Llib/error.scm 981 */
 int BgL_tmpz00_7328;
BgL_tmpz00_7328 = 
(int)(3L); 
BgL_tmpz00_4247 = 
BGL_MVALUES_VAL(BgL_tmpz00_7328); } 
{ /* Llib/error.scm 981 */
 int BgL_tmpz00_7331;
BgL_tmpz00_7331 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7331, BUNSPEC); } 
BgL_lstringz00_2412 = BgL_tmpz00_4247; } 
if(
CBOOL(BgL_lnumz00_2410))
{ /* Llib/error.scm 981 */
return 
BGl_dozd2warnzf2locationz20zz__errorz00(BgL_fnamez00_103, BgL_lnumz00_2410, BgL_locz00_104, BgL_lstringz00_2412, BgL_lpointz00_2411, BgL_argsz00_105);}  else 
{ /* Llib/error.scm 981 */
return 
BGl_warningz00zz__errorz00(BgL_argsz00_105);} } }  else 
{ /* Llib/error.scm 974 */
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 988 */
{ /* Llib/error.scm 989 */
 obj_t BgL_arg1925z00_2419;
{ /* Llib/error.scm 989 */
 obj_t BgL_tmpz00_7339;
BgL_tmpz00_7339 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1925z00_2419 = 
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_7339); } 
bgl_flush_output_port(BgL_arg1925z00_2419); } 
{ /* Llib/error.scm 990 */
 obj_t BgL_arg1926z00_2420;
{ /* Llib/error.scm 990 */
 obj_t BgL_tmpz00_7343;
BgL_tmpz00_7343 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1926z00_2420 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7343); } 
{ /* Llib/error.scm 990 */
 obj_t BgL_list1927z00_2421;
BgL_list1927z00_2421 = 
MAKE_YOUNG_PAIR(BgL_arg1926z00_2420, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1927z00_2421); } } 
{ /* Llib/error.scm 991 */
 obj_t BgL_spacezd2stringzd2_2422;
if(
(
(long)CINT(BgL_markerz00_110)>0L))
{ /* Llib/error.scm 991 */
BgL_spacezd2stringzd2_2422 = 
make_string(
(long)CINT(BgL_markerz00_110), ((unsigned char)' ')); }  else 
{ /* Llib/error.scm 991 */
BgL_spacezd2stringzd2_2422 = BGl_string2954z00zz__errorz00; } 
{ /* Llib/error.scm 991 */
 long BgL_lz00_2423;
BgL_lz00_2423 = 
STRING_LENGTH(
((obj_t)BgL_stringz00_109)); 
{ /* Llib/error.scm 994 */
 obj_t BgL_nzd2markerzd2_2424;
if(
(
(long)CINT(BgL_markerz00_110)>=BgL_lz00_2423))
{ /* Llib/error.scm 995 */
BgL_nzd2markerzd2_2424 = 
BINT(BgL_lz00_2423); }  else 
{ /* Llib/error.scm 995 */
BgL_nzd2markerzd2_2424 = BgL_markerz00_110; } 
{ /* Llib/error.scm 995 */

BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_nzd2markerzd2_2424, BgL_stringz00_109, BgL_spacezd2stringzd2_2422); 
BGl_printzd2cursorzd2zz__errorz00(BgL_fnamez00_106, BgL_linez00_107, BgL_charz00_108, BgL_stringz00_109, BgL_spacezd2stringzd2_2422); 
{ /* Llib/error.scm 1001 */
 obj_t BgL_arg1928z00_2425;
{ /* Llib/error.scm 1001 */
 obj_t BgL_tmpz00_7361;
BgL_tmpz00_7361 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1928z00_2425 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7361); } 
{ /* Llib/error.scm 1001 */
 obj_t BgL_list1929z00_2426;
BgL_list1929z00_2426 = 
MAKE_YOUNG_PAIR(BgL_arg1928z00_2425, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2965z00zz__errorz00, BgL_list1929z00_2426); } } 
if(
NULLP(BgL_argsz00_111))
{ /* Llib/error.scm 1002 */BFALSE; }  else 
{ /* Llib/error.scm 1003 */
 obj_t BgL_portz00_2428;
{ /* Llib/error.scm 1003 */
 obj_t BgL_tmpz00_7368;
BgL_tmpz00_7368 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2428 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7368); } 
{ /* Llib/error.scm 1004 */
 obj_t BgL_arg1931z00_2429;
BgL_arg1931z00_2429 = 
CAR(
((obj_t)BgL_argsz00_111)); 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_arg1931z00_2429, BgL_portz00_2428); } 
{ /* Llib/error.scm 1005 */
 obj_t BgL_list1932z00_2430;
BgL_list1932z00_2430 = 
MAKE_YOUNG_PAIR(BgL_portz00_2428, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1932z00_2430); } 
{ /* Llib/error.scm 1006 */
 obj_t BgL_arg1934z00_2432;
BgL_arg1934z00_2432 = 
CDR(
((obj_t)BgL_argsz00_111)); 
{ /* Llib/error.scm 1006 */
 obj_t BgL_list1935z00_2433;
BgL_list1935z00_2433 = 
MAKE_YOUNG_PAIR(BgL_arg1934z00_2432, BNIL); 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BGl_proc2970z00zz__errorz00, BgL_list1935z00_2433); } } } 
{ /* Llib/error.scm 1009 */
 obj_t BgL_arg1938z00_2438;
{ /* Llib/error.scm 1009 */
 obj_t BgL_tmpz00_7380;
BgL_tmpz00_7380 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1938z00_2438 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7380); } 
{ /* Llib/error.scm 1009 */
 obj_t BgL_list1939z00_2439;
BgL_list1939z00_2439 = 
MAKE_YOUNG_PAIR(BgL_arg1938z00_2438, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list1939z00_2439); } } 
{ /* Llib/error.scm 1010 */
 obj_t BgL_arg1940z00_2440;
{ /* Llib/error.scm 1010 */
 obj_t BgL_tmpz00_7385;
BgL_tmpz00_7385 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1940z00_2440 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7385); } 
return 
bgl_flush_output_port(BgL_arg1940z00_2440);} } } } } } 

}



/* &<@anonymous:1936> */
obj_t BGl_z62zc3z04anonymousza31936ze3ze5zz__errorz00(obj_t BgL_envz00_5191, obj_t BgL_az00_5192)
{
{ /* Llib/error.scm 1006 */
{ /* Llib/error.scm 1007 */
 obj_t BgL_arg1937z00_5305;
{ /* Llib/error.scm 1007 */
 obj_t BgL_tmpz00_7389;
BgL_tmpz00_7389 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1937z00_5305 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7389); } 
return 
BGl_displayzd2circlezd2zz__pp_circlez00(BgL_az00_5192, BgL_arg1937z00_5305);} } 

}



/* _display-trace-stack */
obj_t BGl__displayzd2tracezd2stackz00zz__errorz00(obj_t BgL_env1216z00_117, obj_t BgL_opt1215z00_116)
{
{ /* Llib/error.scm 1023 */
{ /* Llib/error.scm 1023 */
 obj_t BgL_g1217z00_2445; obj_t BgL_g1218z00_2446;
{ 
 obj_t BgL_auxz00_7393;
if(
VECTORP(BgL_opt1215z00_116))
{ /* Llib/error.scm 1023 */
BgL_auxz00_7393 = BgL_opt1215z00_116
; }  else 
{ 
 obj_t BgL_auxz00_7396;
BgL_auxz00_7396 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(41207L), BGl_string2971z00zz__errorz00, BGl_string2906z00zz__errorz00, BgL_opt1215z00_116); 
FAILURE(BgL_auxz00_7396,BFALSE,BFALSE);} 
BgL_g1217z00_2445 = 
VECTOR_REF(BgL_auxz00_7393,0L); } 
{ 
 obj_t BgL_auxz00_7401;
if(
VECTORP(BgL_opt1215z00_116))
{ /* Llib/error.scm 1023 */
BgL_auxz00_7401 = BgL_opt1215z00_116
; }  else 
{ 
 obj_t BgL_auxz00_7404;
BgL_auxz00_7404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(41207L), BGl_string2971z00zz__errorz00, BGl_string2906z00zz__errorz00, BgL_opt1215z00_116); 
FAILURE(BgL_auxz00_7404,BFALSE,BFALSE);} 
BgL_g1218z00_2446 = 
VECTOR_REF(BgL_auxz00_7401,1L); } 
{ /* Llib/error.scm 1023 */
 long BgL_aux1220z00_2448;
{ 
 obj_t BgL_auxz00_7409;
if(
VECTORP(BgL_opt1215z00_116))
{ /* Llib/error.scm 1023 */
BgL_auxz00_7409 = BgL_opt1215z00_116
; }  else 
{ 
 obj_t BgL_auxz00_7412;
BgL_auxz00_7412 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(41207L), BGl_string2971z00zz__errorz00, BGl_string2906z00zz__errorz00, BgL_opt1215z00_116); 
FAILURE(BgL_auxz00_7412,BFALSE,BFALSE);} 
BgL_aux1220z00_2448 = 
VECTOR_LENGTH(BgL_auxz00_7409); } 
switch( BgL_aux1220z00_2448) { case 2L : 

{ /* Llib/error.scm 1023 */

{ /* Llib/error.scm 1023 */
 obj_t BgL_auxz00_7417;
if(
OUTPUT_PORTP(BgL_g1218z00_2446))
{ /* Llib/error.scm 1023 */
BgL_auxz00_7417 = BgL_g1218z00_2446
; }  else 
{ 
 obj_t BgL_auxz00_7420;
BgL_auxz00_7420 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(41207L), BGl_string2971z00zz__errorz00, BGl_string2972z00zz__errorz00, BgL_g1218z00_2446); 
FAILURE(BgL_auxz00_7420,BFALSE,BFALSE);} 
return 
BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_g1217z00_2445, BgL_auxz00_7417, 
BINT(1L));} } break;case 3L : 

{ /* Llib/error.scm 1023 */
 obj_t BgL_offsetz00_2450;
{ 
 obj_t BgL_auxz00_7426;
if(
VECTORP(BgL_opt1215z00_116))
{ /* Llib/error.scm 1023 */
BgL_auxz00_7426 = BgL_opt1215z00_116
; }  else 
{ 
 obj_t BgL_auxz00_7429;
BgL_auxz00_7429 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(41207L), BGl_string2971z00zz__errorz00, BGl_string2906z00zz__errorz00, BgL_opt1215z00_116); 
FAILURE(BgL_auxz00_7429,BFALSE,BFALSE);} 
BgL_offsetz00_2450 = 
VECTOR_REF(BgL_auxz00_7426,2L); } 
{ /* Llib/error.scm 1023 */

{ /* Llib/error.scm 1023 */
 obj_t BgL_auxz00_7434;
if(
OUTPUT_PORTP(BgL_g1218z00_2446))
{ /* Llib/error.scm 1023 */
BgL_auxz00_7434 = BgL_g1218z00_2446
; }  else 
{ 
 obj_t BgL_auxz00_7437;
BgL_auxz00_7437 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(41207L), BGl_string2971z00zz__errorz00, BGl_string2972z00zz__errorz00, BgL_g1218z00_2446); 
FAILURE(BgL_auxz00_7437,BFALSE,BFALSE);} 
return 
BGl_displayzd2tracezd2stackz00zz__errorz00(BgL_g1217z00_2445, BgL_auxz00_7434, BgL_offsetz00_2450);} } } 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 1023 */
if(
PAIRP(BgL_stackz00_113))
{ /* Llib/error.scm 1107 */
 obj_t BgL_g1134z00_2454; obj_t BgL_g1135z00_2455;
BgL_g1134z00_2454 = 
CDR(BgL_stackz00_113); 
BgL_g1135z00_2455 = 
CAR(BgL_stackz00_113); 
{ 
 obj_t BgL_iz00_2457; obj_t BgL_stkz00_2458; obj_t BgL_hdsz00_2459; long BgL_hdnz00_2460;
BgL_iz00_2457 = BgL_offsetz00_115; 
BgL_stkz00_2458 = BgL_g1134z00_2454; 
BgL_hdsz00_2459 = BgL_g1135z00_2455; 
BgL_hdnz00_2460 = 1L; 
BgL_zc3z04anonymousza31945ze3z87_2461:
if(
NULLP(BgL_stkz00_2458))
{ /* Llib/error.scm 1112 */
BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(BgL_portz00_114, BgL_hdsz00_2459, BgL_iz00_2457, BgL_hdnz00_2460); 
return 
bgl_flush_output_port(BgL_portz00_114);}  else 
{ /* Llib/error.scm 1112 */
if(
PAIRP(BgL_stkz00_2458))
{ /* Llib/error.scm 1115 */
if(
(
CAR(BgL_stkz00_2458)==BgL_hdsz00_2459))
{ /* Llib/error.scm 1120 */
 long BgL_arg1950z00_2466; obj_t BgL_arg1953z00_2467; long BgL_arg1954z00_2468;
BgL_arg1950z00_2466 = 
(
(long)CINT(BgL_iz00_2457)+1L); 
BgL_arg1953z00_2467 = 
CDR(BgL_stkz00_2458); 
BgL_arg1954z00_2468 = 
(BgL_hdnz00_2460+1L); 
{ 
 long BgL_hdnz00_7463; obj_t BgL_stkz00_7462; obj_t BgL_iz00_7460;
BgL_iz00_7460 = 
BINT(BgL_arg1950z00_2466); 
BgL_stkz00_7462 = BgL_arg1953z00_2467; 
BgL_hdnz00_7463 = BgL_arg1954z00_2468; 
BgL_hdnz00_2460 = BgL_hdnz00_7463; 
BgL_stkz00_2458 = BgL_stkz00_7462; 
BgL_iz00_2457 = BgL_iz00_7460; 
goto BgL_zc3z04anonymousza31945ze3z87_2461;} }  else 
{ 
 long BgL_hdnz00_7470; obj_t BgL_hdsz00_7468; obj_t BgL_stkz00_7466; obj_t BgL_iz00_7464;
BgL_iz00_7464 = 
BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(BgL_portz00_114, BgL_hdsz00_2459, BgL_iz00_2457, BgL_hdnz00_2460); 
BgL_stkz00_7466 = 
CDR(BgL_stkz00_2458); 
BgL_hdsz00_7468 = 
CAR(BgL_stkz00_2458); 
BgL_hdnz00_7470 = 1L; 
BgL_hdnz00_2460 = BgL_hdnz00_7470; 
BgL_hdsz00_2459 = BgL_hdsz00_7468; 
BgL_stkz00_2458 = BgL_stkz00_7466; 
BgL_iz00_2457 = BgL_iz00_7464; 
goto BgL_zc3z04anonymousza31945ze3z87_2461;} }  else 
{ /* Llib/error.scm 1115 */
{ /* Llib/error.scm 1116 */
 obj_t BgL_arg1959z00_2473;
{ /* Llib/error.scm 1116 */
 obj_t BgL_tmpz00_7471;
BgL_tmpz00_7471 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg1959z00_2473 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7471); } 
{ /* Llib/error.scm 1116 */
 obj_t BgL_list1960z00_2474;
BgL_list1960z00_2474 = 
MAKE_YOUNG_PAIR(BgL_stackz00_113, BNIL); 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_arg1959z00_2473, BGl_string2973z00zz__errorz00, BgL_list1960z00_2474); } } 
return 
bgl_flush_output_port(BgL_portz00_114);} } } }  else 
{ /* Llib/error.scm 1106 */
return BFALSE;} } 

}



/* display-trace-stack-frame~0 */
obj_t BGl_displayzd2tracezd2stackzd2frameze70z35zz__errorz00(obj_t BgL_portz00_5235, obj_t BgL_framez00_2482, obj_t BgL_levelz00_2483, long BgL_numz00_2484)
{
{ /* Llib/error.scm 1104 */
{ 
 obj_t BgL_namez00_2486; obj_t BgL_locz00_2487; obj_t BgL_restz00_2488; obj_t BgL_namez00_2490;
if(
PAIRP(BgL_framez00_2482))
{ /* Llib/error.scm 1104 */
 obj_t BgL_cdrzd2347zd2_2496;
BgL_cdrzd2347zd2_2496 = 
CDR(
((obj_t)BgL_framez00_2482)); 
if(
PAIRP(BgL_cdrzd2347zd2_2496))
{ /* Llib/error.scm 1104 */
 obj_t BgL_cdrzd2352zd2_2498;
BgL_cdrzd2352zd2_2498 = 
CDR(BgL_cdrzd2347zd2_2496); 
{ /* Llib/error.scm 1104 */
 bool_t BgL_test3435z00_7484;
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_cdrzd2352zd2_2498))
{ /* Llib/error.scm 1018 */
 obj_t BgL_list1943z00_4302;
BgL_list1943z00_4302 = 
MAKE_YOUNG_PAIR(BgL_cdrzd2352zd2_2498, BNIL); 
BgL_test3435z00_7484 = 
CBOOL(
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_list1943z00_4302)); }  else 
{ /* Llib/error.scm 1018 */
BgL_test3435z00_7484 = ((bool_t)0)
; } 
if(BgL_test3435z00_7484)
{ /* Llib/error.scm 1104 */
 obj_t BgL_arg1968z00_2500; obj_t BgL_arg1969z00_2501;
BgL_arg1968z00_2500 = 
CAR(
((obj_t)BgL_framez00_2482)); 
BgL_arg1969z00_2501 = 
CAR(BgL_cdrzd2347zd2_2496); 
{ /* Llib/error.scm 1104 */
 long BgL_tmpz00_7493;
BgL_namez00_2486 = BgL_arg1968z00_2500; 
BgL_locz00_2487 = BgL_arg1969z00_2501; 
BgL_restz00_2488 = BgL_cdrzd2352zd2_2498; 
{ /* Llib/error.scm 1037 */
 obj_t BgL_namez00_2509;
if(
SYMBOLP(BgL_namez00_2486))
{ /* Llib/error.scm 1037 */
 obj_t BgL_arg2331z00_4268;
BgL_arg2331z00_4268 = 
SYMBOL_TO_STRING(BgL_namez00_2486); 
BgL_namez00_2509 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2331z00_4268); }  else 
{ /* Llib/error.scm 1037 */
BgL_namez00_2509 = BgL_namez00_2486; } 
{ /* Llib/error.scm 1037 */
 obj_t BgL_marginz00_2510;
BgL_marginz00_2510 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BGl_symbol2979z00zz__errorz00, BgL_restz00_2488); 
{ /* Llib/error.scm 1038 */
 obj_t BgL_fmtz00_2511;
BgL_fmtz00_2511 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BGl_symbol2981z00zz__errorz00, BgL_restz00_2488); 
{ /* Llib/error.scm 1039 */
 obj_t BgL_nmz00_2512;
{ /* Llib/error.scm 1040 */
 bool_t BgL_test3438z00_7500;
if(
PAIRP(BgL_fmtz00_2511))
{ /* Llib/error.scm 1040 */
 obj_t BgL_tmpz00_7503;
BgL_tmpz00_7503 = 
CDR(BgL_fmtz00_2511); 
BgL_test3438z00_7500 = 
STRINGP(BgL_tmpz00_7503); }  else 
{ /* Llib/error.scm 1040 */
BgL_test3438z00_7500 = ((bool_t)0)
; } 
if(BgL_test3438z00_7500)
{ /* Llib/error.scm 1041 */
 obj_t BgL_arg2020z00_2565;
BgL_arg2020z00_2565 = 
CDR(BgL_fmtz00_2511); 
{ /* Llib/error.scm 1041 */
 obj_t BgL_list2021z00_2566;
BgL_list2021z00_2566 = 
MAKE_YOUNG_PAIR(BgL_namez00_2509, BNIL); 
BgL_nmz00_2512 = 
BGl_formatz00zz__r4_output_6_10_3z00(BgL_arg2020z00_2565, BgL_list2021z00_2566); } }  else 
{ /* Llib/error.scm 1040 */
BgL_nmz00_2512 = BgL_namez00_2509; } } 
{ /* Llib/error.scm 1040 */

{ /* Llib/error.scm 1044 */
 bool_t BgL_test3440z00_7509;
if(
PAIRP(BgL_marginz00_2510))
{ /* Llib/error.scm 1044 */
 obj_t BgL_tmpz00_7512;
BgL_tmpz00_7512 = 
CDR(BgL_marginz00_2510); 
BgL_test3440z00_7509 = 
CHARP(BgL_tmpz00_7512); }  else 
{ /* Llib/error.scm 1044 */
BgL_test3440z00_7509 = ((bool_t)0)
; } 
if(BgL_test3440z00_7509)
{ /* Llib/error.scm 1045 */
 obj_t BgL_arg1982z00_2516;
BgL_arg1982z00_2516 = 
CDR(BgL_marginz00_2510); 
{ /* Llib/error.scm 1045 */
 obj_t BgL_list1983z00_2517;
BgL_list1983z00_2517 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_arg1982z00_2516, BgL_list1983z00_2517); } }  else 
{ /* Llib/error.scm 1046 */
 obj_t BgL_list1984z00_2518;
BgL_list1984z00_2518 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2983z00zz__errorz00, BgL_list1984z00_2518); } } 
if(
(
(long)CINT(BgL_levelz00_2483)<10L))
{ /* Llib/error.scm 1048 */
 obj_t BgL_list1987z00_2522;
BgL_list1987z00_2522 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2976z00zz__errorz00, BgL_list1987z00_2522); }  else 
{ /* Llib/error.scm 1048 */
if(
(
(long)CINT(BgL_levelz00_2483)<100L))
{ /* Llib/error.scm 1049 */
 obj_t BgL_list1989z00_2524;
BgL_list1989z00_2524 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2977z00zz__errorz00, BgL_list1989z00_2524); }  else 
{ /* Llib/error.scm 1049 */
if(
(
(long)CINT(BgL_levelz00_2483)<1000L))
{ /* Llib/error.scm 1050 */
 obj_t BgL_list1991z00_2526;
BgL_list1991z00_2526 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2983z00zz__errorz00, BgL_list1991z00_2526); }  else 
{ /* Llib/error.scm 1050 */BFALSE; } } } 
{ /* Llib/error.scm 1052 */
 obj_t BgL_list1992z00_2527;
BgL_list1992z00_2527 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_levelz00_2483, BgL_list1992z00_2527); } 
{ /* Llib/error.scm 1053 */
 obj_t BgL_list1993z00_2528;
BgL_list1993z00_2528 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2978z00zz__errorz00, BgL_list1993z00_2528); } 
{ /* Llib/error.scm 1055 */
 obj_t BgL_iz00_2529;
{ /* Ieee/string.scm 223 */

BgL_iz00_2529 = 
BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_namez00_2509, 
BCHAR(((unsigned char)'@')), 
BINT(0L)); } 
{ /* Llib/error.scm 1056 */
 bool_t BgL_test3445z00_7542;
if(
CBOOL(BgL_iz00_2529))
{ /* Llib/error.scm 1056 */
if(
(
(long)CINT(BgL_iz00_2529)>0L))
{ /* Llib/error.scm 1056 */
BgL_test3445z00_7542 = 
CBOOL(BgL_locz00_2487)
; }  else 
{ /* Llib/error.scm 1056 */
BgL_test3445z00_7542 = ((bool_t)0)
; } }  else 
{ /* Llib/error.scm 1056 */
BgL_test3445z00_7542 = ((bool_t)0)
; } 
if(BgL_test3445z00_7542)
{ /* Llib/error.scm 1057 */
 obj_t BgL_arg1996z00_2532;
BgL_arg1996z00_2532 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_namez00_2509, 0L, 
(long)CINT(BgL_iz00_2529)); 
{ /* Llib/error.scm 1057 */
 obj_t BgL_list1997z00_2533;
BgL_list1997z00_2533 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_arg1996z00_2532, BgL_list1997z00_2533); } }  else 
{ /* Llib/error.scm 1058 */
 obj_t BgL_list1998z00_2534;
BgL_list1998z00_2534 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_namez00_2509, BgL_list1998z00_2534); } } } 
if(
(BgL_numz00_2484>1L))
{ /* Llib/error.scm 1060 */
{ /* Llib/error.scm 1061 */
 obj_t BgL_list2002z00_2540;
BgL_list2002z00_2540 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2984z00zz__errorz00, BgL_list2002z00_2540); } 
{ /* Llib/error.scm 1062 */
 obj_t BgL_list2003z00_2541;
BgL_list2003z00_2541 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(
BINT(BgL_numz00_2484), BgL_list2003z00_2541); } 
{ /* Llib/error.scm 1063 */
 obj_t BgL_list2004z00_2542;
BgL_list2004z00_2542 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2985z00zz__errorz00, BgL_list2004z00_2542); } }  else 
{ /* Llib/error.scm 1060 */
if(
CBOOL(BgL_locz00_2487))
{ /* Llib/error.scm 1065 */
 obj_t BgL_filez00_2543;
BgL_filez00_2543 = 
BGl_locationzd2linezd2numz00zz__errorz00(BgL_locz00_2487); 
{ /* Llib/error.scm 1066 */
 obj_t BgL_lnumz00_2544; obj_t BgL_lpointz00_2545; obj_t BgL_lstringz00_2546;
{ /* Llib/error.scm 1070 */
 obj_t BgL_tmpz00_4278;
{ /* Llib/error.scm 1070 */
 int BgL_tmpz00_7567;
BgL_tmpz00_7567 = 
(int)(1L); 
BgL_tmpz00_4278 = 
BGL_MVALUES_VAL(BgL_tmpz00_7567); } 
{ /* Llib/error.scm 1070 */
 int BgL_tmpz00_7570;
BgL_tmpz00_7570 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7570, BUNSPEC); } 
BgL_lnumz00_2544 = BgL_tmpz00_4278; } 
{ /* Llib/error.scm 1070 */
 obj_t BgL_tmpz00_4279;
{ /* Llib/error.scm 1070 */
 int BgL_tmpz00_7573;
BgL_tmpz00_7573 = 
(int)(2L); 
BgL_tmpz00_4279 = 
BGL_MVALUES_VAL(BgL_tmpz00_7573); } 
{ /* Llib/error.scm 1070 */
 int BgL_tmpz00_7576;
BgL_tmpz00_7576 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7576, BUNSPEC); } 
BgL_lpointz00_2545 = BgL_tmpz00_4279; } 
{ /* Llib/error.scm 1070 */
 obj_t BgL_tmpz00_4280;
{ /* Llib/error.scm 1070 */
 int BgL_tmpz00_7579;
BgL_tmpz00_7579 = 
(int)(3L); 
BgL_tmpz00_4280 = 
BGL_MVALUES_VAL(BgL_tmpz00_7579); } 
{ /* Llib/error.scm 1070 */
 int BgL_tmpz00_7582;
BgL_tmpz00_7582 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7582, BUNSPEC); } 
BgL_lstringz00_2546 = BgL_tmpz00_4280; } 
{ /* Llib/error.scm 1068 */
 bool_t BgL_test3450z00_7585;
if(
STRINGP(BgL_filez00_2543))
{ /* Llib/error.scm 1068 */
 bool_t BgL_test3452z00_7588;
{ /* Llib/error.scm 1068 */
 long BgL_l1z00_4283;
BgL_l1z00_4283 = 
STRING_LENGTH(BgL_filez00_2543); 
if(
(BgL_l1z00_4283==1L))
{ /* Llib/error.scm 1068 */
 int BgL_arg2324z00_4286;
{ /* Llib/error.scm 1068 */
 char * BgL_auxz00_7594; char * BgL_tmpz00_7592;
BgL_auxz00_7594 = 
BSTRING_TO_STRING(BGl_string2986z00zz__errorz00); 
BgL_tmpz00_7592 = 
BSTRING_TO_STRING(BgL_filez00_2543); 
BgL_arg2324z00_4286 = 
memcmp(BgL_tmpz00_7592, BgL_auxz00_7594, BgL_l1z00_4283); } 
BgL_test3452z00_7588 = 
(
(long)(BgL_arg2324z00_4286)==0L); }  else 
{ /* Llib/error.scm 1068 */
BgL_test3452z00_7588 = ((bool_t)0)
; } } 
if(BgL_test3452z00_7588)
{ /* Llib/error.scm 1068 */
BgL_test3450z00_7585 = ((bool_t)0)
; }  else 
{ /* Llib/error.scm 1068 */
BgL_test3450z00_7585 = ((bool_t)1)
; } }  else 
{ /* Llib/error.scm 1068 */
BgL_test3450z00_7585 = ((bool_t)0)
; } 
if(BgL_test3450z00_7585)
{ /* Llib/error.scm 1068 */
{ /* Llib/error.scm 1069 */
 obj_t BgL_list2008z00_2550;
BgL_list2008z00_2550 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2987z00zz__errorz00, BgL_list2008z00_2550); } 
{ /* Llib/error.scm 1070 */
 obj_t BgL_list2009z00_2551;
BgL_list2009z00_2551 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_filez00_2543, BgL_list2009z00_2551); } }  else 
{ /* Llib/error.scm 1068 */BFALSE; } } 
{ /* Llib/error.scm 1073 */
 bool_t BgL_test3454z00_7603;
if(
INTEGERP(BgL_lpointz00_2545))
{ /* Llib/error.scm 1073 */
BgL_test3454z00_7603 = 
(
(long)CINT(BgL_lpointz00_2545)==0L)
; }  else 
{ /* Llib/error.scm 1073 */
BgL_test3454z00_7603 = ((bool_t)0)
; } 
if(BgL_test3454z00_7603)
{ /* Llib/error.scm 1073 */BUNSPEC; }  else 
{ /* Llib/error.scm 1073 */
if(
CBOOL(BgL_lnumz00_2544))
{ /* Llib/error.scm 1075 */
{ /* Llib/error.scm 1076 */
 obj_t BgL_list2012z00_2556;
BgL_list2012z00_2556 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2920z00zz__errorz00, BgL_list2012z00_2556); } 
{ /* Llib/error.scm 1077 */
 obj_t BgL_list2013z00_2557;
BgL_list2013z00_2557 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_lnumz00_2544, BgL_list2013z00_2557); } }  else 
{ /* Llib/error.scm 1075 */
if(
CBOOL(BgL_lpointz00_2545))
{ /* Llib/error.scm 1078 */
{ /* Llib/error.scm 1079 */
 obj_t BgL_list2014z00_2558;
BgL_list2014z00_2558 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2988z00zz__errorz00, BgL_list2014z00_2558); } 
{ /* Llib/error.scm 1080 */
 obj_t BgL_list2015z00_2559;
BgL_list2015z00_2559 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_lpointz00_2545, BgL_list2015z00_2559); } }  else 
{ /* Llib/error.scm 1078 */BFALSE; } } } } } }  else 
{ /* Llib/error.scm 1064 */BFALSE; } } 
{ /* Llib/error.scm 1081 */
 obj_t BgL_list2016z00_2561;
BgL_list2016z00_2561 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2016z00_2561); } } } } } } 
BgL_tmpz00_7493 = 
(
(long)CINT(BgL_levelz00_2483)+1L); 
return 
BINT(BgL_tmpz00_7493);} }  else 
{ /* Llib/error.scm 1104 */
 long BgL_tmpz00_7625;
BgL_tagzd2338zd2_2493:
{ /* Llib/error.scm 1101 */
 obj_t BgL_list2039z00_2586;
BgL_list2039z00_2586 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2974z00zz__errorz00, BgL_list2039z00_2586); } 
{ /* Llib/error.scm 1102 */
 obj_t BgL_list2040z00_2587;
BgL_list2040z00_2587 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_framez00_2482, BgL_list2040z00_2587); } 
{ /* Llib/error.scm 1103 */
 obj_t BgL_list2041z00_2588;
BgL_list2041z00_2588 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2041z00_2588); } 
BgL_tmpz00_7625 = 
(
(long)CINT(BgL_levelz00_2483)+1L); 
return 
BINT(BgL_tmpz00_7625);} } }  else 
{ /* Llib/error.scm 1104 */
if(
NULLP(BgL_cdrzd2347zd2_2496))
{ /* Llib/error.scm 1104 */
 obj_t BgL_arg1975z00_2505;
BgL_arg1975z00_2505 = 
CAR(
((obj_t)BgL_framez00_2482)); 
{ /* Llib/error.scm 1104 */
 long BgL_tmpz00_7639;
BgL_namez00_2490 = BgL_arg1975z00_2505; 
if(
(
(long)CINT(BgL_levelz00_2483)<10L))
{ /* Llib/error.scm 1085 */
 obj_t BgL_list2025z00_2571;
BgL_list2025z00_2571 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2975z00zz__errorz00, BgL_list2025z00_2571); }  else 
{ /* Llib/error.scm 1085 */
if(
(
(long)CINT(BgL_levelz00_2483)<100L))
{ /* Llib/error.scm 1086 */
 obj_t BgL_list2027z00_2573;
BgL_list2027z00_2573 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2976z00zz__errorz00, BgL_list2027z00_2573); }  else 
{ /* Llib/error.scm 1086 */
if(
(
(long)CINT(BgL_levelz00_2483)<1000L))
{ /* Llib/error.scm 1087 */
 obj_t BgL_list2029z00_2575;
BgL_list2029z00_2575 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BGl_string2977z00zz__errorz00, BgL_list2029z00_2575); }  else 
{ /* Llib/error.scm 1087 */BFALSE; } } } 
{ /* Llib/error.scm 1089 */
 obj_t BgL_list2030z00_2576;
BgL_list2030z00_2576 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_levelz00_2483, BgL_list2030z00_2576); } 
{ /* Llib/error.scm 1090 */
 obj_t BgL_arg2031z00_2577;
{ /* Llib/error.scm 1090 */
 bool_t BgL_test3462z00_7657;
if(
SYMBOLP(BgL_namez00_2490))
{ /* Llib/error.scm 1090 */
BgL_test3462z00_7657 = ((bool_t)1)
; }  else 
{ /* Llib/error.scm 1090 */
BgL_test3462z00_7657 = 
STRINGP(BgL_namez00_2490)
; } 
if(BgL_test3462z00_7657)
{ /* Llib/error.scm 1090 */
BgL_arg2031z00_2577 = BGl_string2978z00zz__errorz00; }  else 
{ /* Llib/error.scm 1090 */
BgL_arg2031z00_2577 = BGl_string2974z00zz__errorz00; } } 
{ /* Llib/error.scm 1090 */
 obj_t BgL_list2032z00_2578;
BgL_list2032z00_2578 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_arg2031z00_2577, BgL_list2032z00_2578); } } 
{ /* Llib/error.scm 1091 */
 obj_t BgL_list2035z00_2582;
BgL_list2035z00_2582 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_namez00_2490, BgL_list2035z00_2582); } 
{ /* Llib/error.scm 1092 */
 obj_t BgL_list2036z00_2583;
BgL_list2036z00_2583 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2036z00_2583); } 
BgL_tmpz00_7639 = 
(
(long)CINT(BgL_levelz00_2483)+1L); 
return 
BINT(BgL_tmpz00_7639);} }  else 
{ /* Llib/error.scm 1104 */
 long BgL_tmpz00_7670;
goto BgL_tagzd2338zd2_2493;
return 
BINT(BgL_tmpz00_7670);} } }  else 
{ /* Llib/error.scm 1104 */
if(
STRINGP(BgL_framez00_2482))
{ /* Llib/error.scm 1104 */
{ /* Llib/error.scm 1096 */
 obj_t BgL_list2037z00_2584;
BgL_list2037z00_2584 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_framez00_2482, BgL_list2037z00_2584); } 
{ /* Llib/error.scm 1097 */
 obj_t BgL_list2038z00_2585;
BgL_list2038z00_2585 = 
MAKE_YOUNG_PAIR(BgL_portz00_5235, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2038z00_2585); } 
return BgL_levelz00_2483;}  else 
{ /* Llib/error.scm 1104 */
 long BgL_tmpz00_7678;
goto BgL_tagzd2338zd2_2493;
return 
BINT(BgL_tmpz00_7678);} } } } 

}



/* 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 1131 */
{ 
 obj_t BgL_stackz00_2593;
BgL_stackz00_2593 = BgL_stackz00_118; 
BgL_zc3z04anonymousza32042ze3z87_2594:
if(
PAIRP(BgL_stackz00_2593))
{ 
 obj_t BgL_namez00_2596; obj_t BgL_locz00_2597; obj_t BgL_restz00_2598;
{ /* Llib/error.scm 1144 */
 obj_t BgL_ezd2371zd2_2601;
BgL_ezd2371zd2_2601 = 
CAR(BgL_stackz00_2593); 
if(
PAIRP(BgL_ezd2371zd2_2601))
{ /* Llib/error.scm 1144 */
 obj_t BgL_cdrzd2379zd2_2603;
BgL_cdrzd2379zd2_2603 = 
CDR(BgL_ezd2371zd2_2601); 
if(
PAIRP(BgL_cdrzd2379zd2_2603))
{ /* Llib/error.scm 1144 */
 obj_t BgL_cdrzd2384zd2_2605;
BgL_cdrzd2384zd2_2605 = 
CDR(BgL_cdrzd2379zd2_2603); 
{ /* Llib/error.scm 1144 */
 bool_t BgL_test3468z00_7689;
if(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_cdrzd2384zd2_2605))
{ /* Llib/error.scm 1018 */
 obj_t BgL_list1943z00_4350;
BgL_list1943z00_4350 = 
MAKE_YOUNG_PAIR(BgL_cdrzd2384zd2_2605, BNIL); 
BgL_test3468z00_7689 = 
CBOOL(
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_list1943z00_4350)); }  else 
{ /* Llib/error.scm 1018 */
BgL_test3468z00_7689 = ((bool_t)0)
; } 
if(BgL_test3468z00_7689)
{ /* Llib/error.scm 1144 */
BgL_namez00_2596 = 
CAR(BgL_ezd2371zd2_2601); 
BgL_locz00_2597 = 
CAR(BgL_cdrzd2379zd2_2603); 
BgL_restz00_2598 = BgL_cdrzd2384zd2_2605; 
{ /* Llib/error.scm 1147 */
 obj_t BgL_filez00_2609;
BgL_filez00_2609 = 
BGl_locationzd2linezd2numz00zz__errorz00(BgL_locz00_2597); 
{ /* Llib/error.scm 1148 */
 obj_t BgL_lnumz00_2610; obj_t BgL_lpointz00_2611; obj_t BgL_lstringz00_2612;
{ /* Llib/error.scm 1150 */
 obj_t BgL_tmpz00_4328;
{ /* Llib/error.scm 1150 */
 int BgL_tmpz00_7696;
BgL_tmpz00_7696 = 
(int)(1L); 
BgL_tmpz00_4328 = 
BGL_MVALUES_VAL(BgL_tmpz00_7696); } 
{ /* Llib/error.scm 1150 */
 int BgL_tmpz00_7699;
BgL_tmpz00_7699 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7699, BUNSPEC); } 
BgL_lnumz00_2610 = BgL_tmpz00_4328; } 
{ /* Llib/error.scm 1150 */
 obj_t BgL_tmpz00_4329;
{ /* Llib/error.scm 1150 */
 int BgL_tmpz00_7702;
BgL_tmpz00_7702 = 
(int)(2L); 
BgL_tmpz00_4329 = 
BGL_MVALUES_VAL(BgL_tmpz00_7702); } 
{ /* Llib/error.scm 1150 */
 int BgL_tmpz00_7705;
BgL_tmpz00_7705 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7705, BUNSPEC); } 
BgL_lpointz00_2611 = BgL_tmpz00_4329; } 
{ /* Llib/error.scm 1150 */
 obj_t BgL_tmpz00_4330;
{ /* Llib/error.scm 1150 */
 int BgL_tmpz00_7708;
BgL_tmpz00_7708 = 
(int)(3L); 
BgL_tmpz00_4330 = 
BGL_MVALUES_VAL(BgL_tmpz00_7708); } 
{ /* Llib/error.scm 1150 */
 int BgL_tmpz00_7711;
BgL_tmpz00_7711 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_7711, BUNSPEC); } 
BgL_lstringz00_2612 = BgL_tmpz00_4330; } 
{ /* Llib/error.scm 1150 */
 bool_t BgL_test3470z00_7714;
if(
STRINGP(BgL_filez00_2609))
{ /* Llib/error.scm 1150 */
BgL_test3470z00_7714 = 
STRINGP(BgL_lstringz00_2612)
; }  else 
{ /* Llib/error.scm 1150 */
BgL_test3470z00_7714 = ((bool_t)0)
; } 
if(BgL_test3470z00_7714)
{ /* Llib/error.scm 1134 */
 obj_t BgL_tabsz00_4331;
if(
(
(long)CINT(BgL_lpointz00_2611)>0L))
{ /* Llib/error.scm 1134 */
BgL_tabsz00_4331 = 
make_string(
(long)CINT(BgL_lpointz00_2611), ((unsigned char)' ')); }  else 
{ /* Llib/error.scm 1134 */
BgL_tabsz00_4331 = BGl_string2954z00zz__errorz00; } 
{ /* Llib/error.scm 1134 */
 long BgL_lz00_4333;
BgL_lz00_4333 = 
STRING_LENGTH(BgL_lstringz00_2612); 
{ /* Llib/error.scm 1135 */
 obj_t BgL_ncolz00_4334;
if(
(
(long)CINT(BgL_lpointz00_2611)>=BgL_lz00_4333))
{ /* Llib/error.scm 1136 */
BgL_ncolz00_4334 = 
BINT(BgL_lz00_4333); }  else 
{ /* Llib/error.scm 1136 */
BgL_ncolz00_4334 = BgL_lpointz00_2611; } 
{ /* Llib/error.scm 1136 */

BGl_fixzd2tabulationz12zc0zz__errorz00(BgL_ncolz00_4334, BgL_lstringz00_2612, BgL_tabsz00_4331); 
return 
BGl_printzd2cursorzd2zz__errorz00(BgL_filez00_2609, BgL_lnumz00_2610, BgL_lpointz00_2611, BgL_lstringz00_2612, BgL_tabsz00_4331);} } } }  else 
{ /* Llib/error.scm 1152 */
 bool_t BgL_test3474z00_7730;
if(
STRINGP(BgL_filez00_2609))
{ /* Llib/error.scm 1152 */
BgL_test3474z00_7730 = 
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_lpointz00_2611)
; }  else 
{ /* Llib/error.scm 1152 */
BgL_test3474z00_7730 = ((bool_t)0)
; } 
if(BgL_test3474z00_7730)
{ /* Llib/error.scm 1152 */
if(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_lnumz00_2610))
{ /* Llib/error.scm 1154 */
 obj_t BgL_arg2054z00_2618; obj_t BgL_arg2055z00_2619;
{ /* Llib/error.scm 1154 */
 obj_t BgL_tmpz00_7736;
BgL_tmpz00_7736 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2054z00_2618 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7736); } 
{ /* Llib/error.scm 1156 */

BgL_arg2055z00_2619 = 
BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_filez00_2609, 255L); } 
{ /* Llib/error.scm 1154 */
 obj_t BgL_list2056z00_2620;
{ /* Llib/error.scm 1154 */
 obj_t BgL_arg2058z00_2621;
{ /* Llib/error.scm 1154 */
 obj_t BgL_arg2059z00_2622;
BgL_arg2059z00_2622 = 
MAKE_YOUNG_PAIR(BgL_lpointz00_2611, BNIL); 
BgL_arg2058z00_2621 = 
MAKE_YOUNG_PAIR(BgL_lnumz00_2610, BgL_arg2059z00_2622); } 
BgL_list2056z00_2620 = 
MAKE_YOUNG_PAIR(BgL_arg2055z00_2619, BgL_arg2058z00_2621); } 
return 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_arg2054z00_2618, BGl_string2989z00zz__errorz00, BgL_list2056z00_2620);} }  else 
{ /* Llib/error.scm 1159 */
 obj_t BgL_arg2060z00_2625; obj_t BgL_arg2061z00_2626;
{ /* Llib/error.scm 1159 */
 obj_t BgL_tmpz00_7744;
BgL_tmpz00_7744 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2060z00_2625 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7744); } 
{ /* Llib/error.scm 1161 */

BgL_arg2061z00_2626 = 
BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_filez00_2609, 255L); } 
{ /* Llib/error.scm 1159 */
 obj_t BgL_list2062z00_2627;
{ /* Llib/error.scm 1159 */
 obj_t BgL_arg2063z00_2628;
BgL_arg2063z00_2628 = 
MAKE_YOUNG_PAIR(BgL_lpointz00_2611, BNIL); 
BgL_list2062z00_2627 = 
MAKE_YOUNG_PAIR(BgL_arg2061z00_2626, BgL_arg2063z00_2628); } 
return 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_arg2060z00_2625, BGl_string2990z00zz__errorz00, BgL_list2062z00_2627);} } }  else 
{ /* Llib/error.scm 1164 */
 obj_t BgL_arg2064z00_2631;
BgL_arg2064z00_2631 = 
CDR(
((obj_t)BgL_stackz00_2593)); 
{ 
 obj_t BgL_stackz00_7753;
BgL_stackz00_7753 = BgL_arg2064z00_2631; 
BgL_stackz00_2593 = BgL_stackz00_7753; 
goto BgL_zc3z04anonymousza32042ze3z87_2594;} } } } } } }  else 
{ 
 obj_t BgL_stackz00_7756;
BgL_stackz00_7756 = 
CDR(BgL_stackz00_2593); 
BgL_stackz00_2593 = BgL_stackz00_7756; 
goto BgL_zc3z04anonymousza32042ze3z87_2594;} } }  else 
{ 
 obj_t BgL_stackz00_7758;
BgL_stackz00_7758 = 
CDR(BgL_stackz00_2593); 
BgL_stackz00_2593 = BgL_stackz00_7758; 
goto BgL_zc3z04anonymousza32042ze3z87_2594;} }  else 
{ 
 obj_t BgL_stackz00_7760;
BgL_stackz00_7760 = 
CDR(BgL_stackz00_2593); 
BgL_stackz00_2593 = BgL_stackz00_7760; 
goto BgL_zc3z04anonymousza32042ze3z87_2594;} } }  else 
{ /* Llib/error.scm 1143 */
return BFALSE;} } } 

}



/* &display-trace-stack-source */
obj_t BGl_z62displayzd2tracezd2stackzd2sourcezb0zz__errorz00(obj_t BgL_envz00_5195, obj_t BgL_stackz00_5196, obj_t BgL_portz00_5197)
{
{ /* Llib/error.scm 1131 */
{ /* Llib/error.scm 1143 */
 obj_t BgL_auxz00_7762;
if(
OUTPUT_PORTP(BgL_portz00_5197))
{ /* Llib/error.scm 1143 */
BgL_auxz00_7762 = BgL_portz00_5197
; }  else 
{ 
 obj_t BgL_auxz00_7765;
BgL_auxz00_7765 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(44802L), BGl_string2991z00zz__errorz00, BGl_string2972z00zz__errorz00, BgL_portz00_5197); 
FAILURE(BgL_auxz00_7765,BFALSE,BFALSE);} 
return 
BGl_displayzd2tracezd2stackzd2sourcezd2zz__errorz00(BgL_stackz00_5196, BgL_auxz00_7762);} } 

}



/* dump-trace-stack */
BGL_EXPORTED_DEF obj_t BGl_dumpzd2tracezd2stackz00zz__errorz00(obj_t BgL_portz00_120, obj_t BgL_depthz00_121)
{
{ /* Llib/error.scm 1171 */
{ /* Llib/error.scm 1172 */
 obj_t BgL_arg2069z00_4359;
BgL_arg2069z00_4359 = 
BGl_getzd2tracezd2stackz00zz__errorz00(BgL_depthz00_121); 
{ /* Llib/error.scm 278 */

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

}



/* &dump-trace-stack */
obj_t BGl_z62dumpzd2tracezd2stackz62zz__errorz00(obj_t BgL_envz00_5198, obj_t BgL_portz00_5199, obj_t BgL_depthz00_5200)
{
{ /* Llib/error.scm 1171 */
return 
BGl_dumpzd2tracezd2stackz00zz__errorz00(BgL_portz00_5199, BgL_depthz00_5200);} 

}



/* 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 1177 */
{ /* Llib/error.scm 1178 */
 long BgL_g1136z00_2651;
BgL_g1136z00_2651 = 
(
(long)CINT(BgL_markerz00_122)-1L); 
{ 
 long BgL_readz00_2653;
BgL_readz00_2653 = BgL_g1136z00_2651; 
BgL_zc3z04anonymousza32070ze3z87_2654:
if(
(BgL_readz00_2653==(-1L)))
{ /* Llib/error.scm 1180 */
return BGl_symbol2992z00zz__errorz00;}  else 
{ /* Llib/error.scm 1180 */
if(
(
STRING_REF(
((obj_t)BgL_srcz00_123), BgL_readz00_2653)==((unsigned char)9)))
{ /* Llib/error.scm 1182 */
STRING_SET(BgL_dstz00_124, BgL_readz00_2653, ((unsigned char)9)); 
{ 
 long BgL_readz00_7783;
BgL_readz00_7783 = 
(BgL_readz00_2653-1L); 
BgL_readz00_2653 = BgL_readz00_7783; 
goto BgL_zc3z04anonymousza32070ze3z87_2654;} }  else 
{ 
 long BgL_readz00_7785;
BgL_readz00_7785 = 
(BgL_readz00_2653-1L); 
BgL_readz00_2653 = BgL_readz00_7785; 
goto BgL_zc3z04anonymousza32070ze3z87_2654;} } } } } 

}



/* 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 1191 */
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2077z00_2662; obj_t BgL_arg2078z00_2663;
{ /* Llib/error.scm 1192 */
 obj_t BgL_tmpz00_7787;
BgL_tmpz00_7787 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2077z00_2662 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_7787); } 
{ /* Llib/error.scm 1193 */

BgL_arg2078z00_2663 = 
BGl_filenamezd2forzd2errorz00zz__errorz00(BgL_fnamez00_125, 255L); } 
{ /* Llib/error.scm 1192 */
 obj_t BgL_list2079z00_2664;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2080z00_2665;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2081z00_2666;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2082z00_2667;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2083z00_2668;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2084z00_2669;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2085z00_2670;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2086z00_2671;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2087z00_2672;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2088z00_2673;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2089z00_2674;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2090z00_2675;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2091z00_2676;
{ /* Llib/error.scm 1192 */
 obj_t BgL_arg2092z00_2677;
BgL_arg2092z00_2677 = 
MAKE_YOUNG_PAIR(BGl_string2994z00zz__errorz00, BNIL); 
BgL_arg2091z00_2676 = 
MAKE_YOUNG_PAIR(BgL_spacezd2stringzd2_129, BgL_arg2092z00_2677); } 
BgL_arg2090z00_2675 = 
MAKE_YOUNG_PAIR(BGl_string2995z00zz__errorz00, BgL_arg2091z00_2676); } 
BgL_arg2089z00_2674 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)10)), BgL_arg2090z00_2675); } 
BgL_arg2088z00_2673 = 
MAKE_YOUNG_PAIR(BgL_stringz00_128, BgL_arg2089z00_2674); } 
BgL_arg2087z00_2672 = 
MAKE_YOUNG_PAIR(BGl_string2995z00zz__errorz00, BgL_arg2088z00_2673); } 
BgL_arg2086z00_2671 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)10)), BgL_arg2087z00_2672); } 
BgL_arg2085z00_2670 = 
MAKE_YOUNG_PAIR(BGl_string2920z00zz__errorz00, BgL_arg2086z00_2671); } 
BgL_arg2084z00_2669 = 
MAKE_YOUNG_PAIR(BgL_charz00_127, BgL_arg2085z00_2670); } 
BgL_arg2083z00_2668 = 
MAKE_YOUNG_PAIR(BGl_string2996z00zz__errorz00, BgL_arg2084z00_2669); } 
BgL_arg2082z00_2667 = 
MAKE_YOUNG_PAIR(BgL_linez00_126, BgL_arg2083z00_2668); } 
BgL_arg2081z00_2666 = 
MAKE_YOUNG_PAIR(BGl_string2997z00zz__errorz00, BgL_arg2082z00_2667); } 
BgL_arg2080z00_2665 = 
MAKE_YOUNG_PAIR(BgL_arg2078z00_2663, BgL_arg2081z00_2666); } 
BgL_list2079z00_2664 = 
MAKE_YOUNG_PAIR(BGl_string2952z00zz__errorz00, BgL_arg2080z00_2665); } 
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg2077z00_2662, BgL_list2079z00_2664);} } } 

}



/* relative-file-name */
obj_t BGl_relativezd2filezd2namez00zz__errorz00(obj_t BgL_fnamez00_130)
{
{ /* Llib/error.scm 1206 */
{ /* Llib/error.scm 1207 */
 obj_t BgL_pwdz00_2680; obj_t BgL_dnamez00_2681;
BgL_pwdz00_2680 = 
BGl_pwdz00zz__osz00(); 
BgL_dnamez00_2681 = 
BGl_dirnamez00zz__osz00(BgL_fnamez00_130); 
{ /* Llib/error.scm 1209 */
 bool_t BgL_test3480z00_7810;
if(
STRINGP(BgL_pwdz00_2680))
{ /* Llib/error.scm 1210 */
 bool_t BgL_test3482z00_7813;
{ /* Llib/error.scm 1210 */
 long BgL_l1z00_4377;
BgL_l1z00_4377 = 
STRING_LENGTH(BgL_dnamez00_2681); 
if(
(BgL_l1z00_4377==1L))
{ /* Llib/error.scm 1210 */
 int BgL_arg2324z00_4380;
{ /* Llib/error.scm 1210 */
 char * BgL_auxz00_7819; char * BgL_tmpz00_7817;
BgL_auxz00_7819 = 
BSTRING_TO_STRING(BGl_string2986z00zz__errorz00); 
BgL_tmpz00_7817 = 
BSTRING_TO_STRING(BgL_dnamez00_2681); 
BgL_arg2324z00_4380 = 
memcmp(BgL_tmpz00_7817, BgL_auxz00_7819, BgL_l1z00_4377); } 
BgL_test3482z00_7813 = 
(
(long)(BgL_arg2324z00_4380)==0L); }  else 
{ /* Llib/error.scm 1210 */
BgL_test3482z00_7813 = ((bool_t)0)
; } } 
if(BgL_test3482z00_7813)
{ /* Llib/error.scm 1210 */
BgL_test3480z00_7810 = ((bool_t)1)
; }  else 
{ /* Llib/error.scm 1210 */
if(
(
STRING_REF(
((obj_t)BgL_fnamez00_130), 0L)==((unsigned char)'/')))
{ /* Llib/error.scm 1211 */
BgL_test3480z00_7810 = ((bool_t)0)
; }  else 
{ /* Llib/error.scm 1211 */
BgL_test3480z00_7810 = ((bool_t)1)
; } } }  else 
{ /* Llib/error.scm 1209 */
BgL_test3480z00_7810 = ((bool_t)1)
; } 
if(BgL_test3480z00_7810)
{ /* Llib/error.scm 1209 */
return BgL_fnamez00_130;}  else 
{ /* Llib/error.scm 1214 */
 obj_t BgL_originalzd2cmpzd2pathz00_2688;
BgL_originalzd2cmpzd2pathz00_2688 = 
BGl_dirnamezd2ze3listz31zz__errorz00(BgL_dnamez00_2681); 
{ /* Llib/error.scm 1215 */
 obj_t BgL_g1137z00_2689;
BgL_g1137z00_2689 = 
BGl_dirnamezd2ze3listz31zz__errorz00(BgL_pwdz00_2680); 
{ 
 obj_t BgL_cmpzd2pathzd2_2691; obj_t BgL_curzd2pathzd2_2692;
BgL_cmpzd2pathzd2_2691 = BgL_originalzd2cmpzd2pathz00_2688; 
BgL_curzd2pathzd2_2692 = BgL_g1137z00_2689; 
BgL_zc3z04anonymousza32099ze3z87_2693:
if(
NULLP(BgL_cmpzd2pathzd2_2691))
{ /* Llib/error.scm 1218 */
if(
NULLP(BgL_curzd2pathzd2_2692))
{ /* Llib/error.scm 1219 */
return 
BGl_basenamez00zz__osz00(BgL_fnamez00_130);}  else 
{ /* Llib/error.scm 1222 */
 long BgL_g1138z00_2696; obj_t BgL_g1139z00_2697;
BgL_g1138z00_2696 = 
bgl_list_length(BgL_curzd2pathzd2_2692); 
BgL_g1139z00_2697 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_130); 
{ 
 long BgL_lenz00_2699; obj_t BgL_resz00_2700;
BgL_lenz00_2699 = BgL_g1138z00_2696; 
BgL_resz00_2700 = BgL_g1139z00_2697; 
BgL_zc3z04anonymousza32102ze3z87_2701:
if(
(BgL_lenz00_2699==0L))
{ /* Llib/error.scm 1224 */
return BgL_resz00_2700;}  else 
{ /* Llib/error.scm 1226 */
 long BgL_arg2104z00_2703; obj_t BgL_arg2105z00_2704;
BgL_arg2104z00_2703 = 
(BgL_lenz00_2699-1L); 
{ /* Llib/error.scm 1226 */
 obj_t BgL_list2106z00_2705;
{ /* Llib/error.scm 1226 */
 obj_t BgL_arg2107z00_2706;
BgL_arg2107z00_2706 = 
MAKE_YOUNG_PAIR(BgL_resz00_2700, BNIL); 
BgL_list2106z00_2705 = 
MAKE_YOUNG_PAIR(BGl_string2998z00zz__errorz00, BgL_arg2107z00_2706); } 
BgL_arg2105z00_2704 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2106z00_2705); } 
{ 
 obj_t BgL_resz00_7844; long BgL_lenz00_7843;
BgL_lenz00_7843 = BgL_arg2104z00_2703; 
BgL_resz00_7844 = BgL_arg2105z00_2704; 
BgL_resz00_2700 = BgL_resz00_7844; 
BgL_lenz00_2699 = BgL_lenz00_7843; 
goto BgL_zc3z04anonymousza32102ze3z87_2701;} } } } }  else 
{ /* Llib/error.scm 1218 */
if(
NULLP(BgL_curzd2pathzd2_2692))
{ /* Llib/error.scm 1228 */
 obj_t BgL_g1140z00_2709; obj_t BgL_g1141z00_2710;
BgL_g1140z00_2709 = 
bgl_reverse_bang(BgL_cmpzd2pathzd2_2691); 
BgL_g1141z00_2710 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_130); 
{ 
 obj_t BgL_pathz00_2712; obj_t BgL_resz00_2713;
BgL_pathz00_2712 = BgL_g1140z00_2709; 
BgL_resz00_2713 = BgL_g1141z00_2710; 
BgL_zc3z04anonymousza32109ze3z87_2714:
if(
NULLP(BgL_pathz00_2712))
{ /* Llib/error.scm 1230 */
return BgL_resz00_2713;}  else 
{ /* Llib/error.scm 1232 */
 obj_t BgL_arg2111z00_2716; obj_t BgL_arg2112z00_2717;
BgL_arg2111z00_2716 = 
CDR(
((obj_t)BgL_pathz00_2712)); 
{ /* Llib/error.scm 1233 */
 obj_t BgL_arg2113z00_2718;
BgL_arg2113z00_2718 = 
CAR(
((obj_t)BgL_pathz00_2712)); 
{ /* Llib/error.scm 1233 */
 obj_t BgL_list2114z00_2719;
{ /* Llib/error.scm 1233 */
 obj_t BgL_arg2115z00_2720;
{ /* Llib/error.scm 1233 */
 obj_t BgL_arg2116z00_2721;
BgL_arg2116z00_2721 = 
MAKE_YOUNG_PAIR(BgL_resz00_2713, BNIL); 
BgL_arg2115z00_2720 = 
MAKE_YOUNG_PAIR(BGl_string2999z00zz__errorz00, BgL_arg2116z00_2721); } 
BgL_list2114z00_2719 = 
MAKE_YOUNG_PAIR(BgL_arg2113z00_2718, BgL_arg2115z00_2720); } 
BgL_arg2112z00_2717 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2114z00_2719); } } 
{ 
 obj_t BgL_resz00_7860; obj_t BgL_pathz00_7859;
BgL_pathz00_7859 = BgL_arg2111z00_2716; 
BgL_resz00_7860 = BgL_arg2112z00_2717; 
BgL_resz00_2713 = BgL_resz00_7860; 
BgL_pathz00_2712 = BgL_pathz00_7859; 
goto BgL_zc3z04anonymousza32109ze3z87_2714;} } } }  else 
{ /* Llib/error.scm 1234 */
 bool_t BgL_test3490z00_7861;
{ /* Llib/error.scm 1234 */
 obj_t BgL_arg2139z00_2756; obj_t BgL_arg2141z00_2757;
BgL_arg2139z00_2756 = 
CAR(
((obj_t)BgL_curzd2pathzd2_2692)); 
BgL_arg2141z00_2757 = 
CAR(
((obj_t)BgL_cmpzd2pathzd2_2691)); 
{ /* Llib/error.scm 1234 */
 long BgL_l1z00_4397;
BgL_l1z00_4397 = 
STRING_LENGTH(
((obj_t)BgL_arg2139z00_2756)); 
if(
(BgL_l1z00_4397==
STRING_LENGTH(
((obj_t)BgL_arg2141z00_2757))))
{ /* Llib/error.scm 1234 */
 int BgL_arg2324z00_4400;
{ /* Llib/error.scm 1234 */
 char * BgL_auxz00_7875; char * BgL_tmpz00_7872;
BgL_auxz00_7875 = 
BSTRING_TO_STRING(
((obj_t)BgL_arg2141z00_2757)); 
BgL_tmpz00_7872 = 
BSTRING_TO_STRING(
((obj_t)BgL_arg2139z00_2756)); 
BgL_arg2324z00_4400 = 
memcmp(BgL_tmpz00_7872, BgL_auxz00_7875, BgL_l1z00_4397); } 
BgL_test3490z00_7861 = 
(
(long)(BgL_arg2324z00_4400)==0L); }  else 
{ /* Llib/error.scm 1234 */
BgL_test3490z00_7861 = ((bool_t)0)
; } } } 
if(BgL_test3490z00_7861)
{ /* Llib/error.scm 1235 */
 obj_t BgL_arg2120z00_2726; obj_t BgL_arg2121z00_2727;
BgL_arg2120z00_2726 = 
CDR(
((obj_t)BgL_cmpzd2pathzd2_2691)); 
BgL_arg2121z00_2727 = 
CDR(
((obj_t)BgL_curzd2pathzd2_2692)); 
{ 
 obj_t BgL_curzd2pathzd2_7886; obj_t BgL_cmpzd2pathzd2_7885;
BgL_cmpzd2pathzd2_7885 = BgL_arg2120z00_2726; 
BgL_curzd2pathzd2_7886 = BgL_arg2121z00_2727; 
BgL_curzd2pathzd2_2692 = BgL_curzd2pathzd2_7886; 
BgL_cmpzd2pathzd2_2691 = BgL_cmpzd2pathzd2_7885; 
goto BgL_zc3z04anonymousza32099ze3z87_2693;} }  else 
{ /* Llib/error.scm 1237 */
 obj_t BgL_g1142z00_2728; obj_t BgL_g1143z00_2729;
BgL_g1142z00_2728 = 
bgl_reverse(BgL_cmpzd2pathzd2_2691); 
BgL_g1143z00_2729 = 
BGl_basenamez00zz__osz00(BgL_fnamez00_130); 
{ 
 obj_t BgL_pathz00_2731; obj_t BgL_resz00_2732;
BgL_pathz00_2731 = BgL_g1142z00_2728; 
BgL_resz00_2732 = BgL_g1143z00_2729; 
BgL_zc3z04anonymousza32122ze3z87_2733:
if(
NULLP(BgL_pathz00_2731))
{ /* Llib/error.scm 1239 */
if(
(BgL_cmpzd2pathzd2_2691==BgL_originalzd2cmpzd2pathz00_2688))
{ /* Llib/error.scm 1241 */
 obj_t BgL_list2125z00_2736;
{ /* Llib/error.scm 1241 */
 obj_t BgL_arg2126z00_2737;
BgL_arg2126z00_2737 = 
MAKE_YOUNG_PAIR(BgL_resz00_2732, BNIL); 
BgL_list2125z00_2736 = 
MAKE_YOUNG_PAIR(BGl_string2999z00zz__errorz00, BgL_arg2126z00_2737); } 
BGL_TAIL return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2125z00_2736);}  else 
{ /* Llib/error.scm 1242 */
 long BgL_g1144z00_2738;
BgL_g1144z00_2738 = 
bgl_list_length(BgL_curzd2pathzd2_2692); 
{ 
 long BgL_lenz00_2740; obj_t BgL_resz00_2741;
BgL_lenz00_2740 = BgL_g1144z00_2738; 
BgL_resz00_2741 = BgL_resz00_2732; 
BgL_zc3z04anonymousza32127ze3z87_2742:
if(
(BgL_lenz00_2740==0L))
{ /* Llib/error.scm 1244 */
return BgL_resz00_2741;}  else 
{ /* Llib/error.scm 1246 */
 long BgL_arg2129z00_2744; obj_t BgL_arg2130z00_2745;
BgL_arg2129z00_2744 = 
(BgL_lenz00_2740-1L); 
{ /* Llib/error.scm 1247 */
 obj_t BgL_list2131z00_2746;
{ /* Llib/error.scm 1247 */
 obj_t BgL_arg2132z00_2747;
BgL_arg2132z00_2747 = 
MAKE_YOUNG_PAIR(BgL_resz00_2741, BNIL); 
BgL_list2131z00_2746 = 
MAKE_YOUNG_PAIR(BGl_string2998z00zz__errorz00, BgL_arg2132z00_2747); } 
BgL_arg2130z00_2745 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2131z00_2746); } 
{ 
 obj_t BgL_resz00_7904; long BgL_lenz00_7903;
BgL_lenz00_7903 = BgL_arg2129z00_2744; 
BgL_resz00_7904 = BgL_arg2130z00_2745; 
BgL_resz00_2741 = BgL_resz00_7904; 
BgL_lenz00_2740 = BgL_lenz00_7903; 
goto BgL_zc3z04anonymousza32127ze3z87_2742;} } } } }  else 
{ /* Llib/error.scm 1248 */
 obj_t BgL_arg2133z00_2749; obj_t BgL_arg2134z00_2750;
BgL_arg2133z00_2749 = 
CDR(
((obj_t)BgL_pathz00_2731)); 
{ /* Llib/error.scm 1249 */
 obj_t BgL_arg2135z00_2751;
BgL_arg2135z00_2751 = 
CAR(
((obj_t)BgL_pathz00_2731)); 
{ /* Llib/error.scm 1249 */
 obj_t BgL_list2136z00_2752;
{ /* Llib/error.scm 1249 */
 obj_t BgL_arg2137z00_2753;
{ /* Llib/error.scm 1249 */
 obj_t BgL_arg2138z00_2754;
BgL_arg2138z00_2754 = 
MAKE_YOUNG_PAIR(BgL_resz00_2732, BNIL); 
BgL_arg2137z00_2753 = 
MAKE_YOUNG_PAIR(BGl_string2999z00zz__errorz00, BgL_arg2138z00_2754); } 
BgL_list2136z00_2752 = 
MAKE_YOUNG_PAIR(BgL_arg2135z00_2751, BgL_arg2137z00_2753); } 
BgL_arg2134z00_2750 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2136z00_2752); } } 
{ 
 obj_t BgL_resz00_7914; obj_t BgL_pathz00_7913;
BgL_pathz00_7913 = BgL_arg2133z00_2749; 
BgL_resz00_7914 = BgL_arg2134z00_2750; 
BgL_resz00_2732 = BgL_resz00_7914; 
BgL_pathz00_2731 = BgL_pathz00_7913; 
goto BgL_zc3z04anonymousza32122ze3z87_2733;} } } } } } } } } } } } 

}



/* uncygdrive */
obj_t BGl_uncygdrivez00zz__errorz00(obj_t BgL_strz00_131)
{
{ /* Llib/error.scm 1257 */
if(
bigloo_strncmp(BGl_string3000z00zz__errorz00, BgL_strz00_131, 10L))
{ /* Llib/error.scm 1259 */
 bool_t BgL_test3496z00_7917;
if(
(
STRING_LENGTH(BgL_strz00_131)>12L))
{ /* Llib/error.scm 1260 */
 bool_t BgL_test3498z00_7921;
{ /* Llib/error.scm 1260 */
 unsigned char BgL_tmpz00_7922;
BgL_tmpz00_7922 = 
STRING_REF(BgL_strz00_131, 10L); 
BgL_test3498z00_7921 = 
isalpha(BgL_tmpz00_7922); } 
if(BgL_test3498z00_7921)
{ /* Llib/error.scm 1260 */
BgL_test3496z00_7917 = 
(
STRING_REF(BgL_strz00_131, 11L)==((unsigned char)'/'))
; }  else 
{ /* Llib/error.scm 1260 */
BgL_test3496z00_7917 = ((bool_t)0)
; } }  else 
{ /* Llib/error.scm 1259 */
BgL_test3496z00_7917 = ((bool_t)0)
; } 
if(BgL_test3496z00_7917)
{ /* Llib/error.scm 1262 */
 obj_t BgL_arg2152z00_2772; obj_t BgL_arg2153z00_2773;
{ /* Llib/error.scm 1262 */
 unsigned char BgL_arg2156z00_2776;
BgL_arg2156z00_2776 = 
STRING_REF(BgL_strz00_131, 10L); 
{ /* Llib/error.scm 1262 */
 obj_t BgL_list2157z00_2777;
{ /* Llib/error.scm 1262 */
 obj_t BgL_arg2158z00_2778;
{ /* Llib/error.scm 1262 */
 obj_t BgL_arg2159z00_2779;
BgL_arg2159z00_2779 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)'/')), BNIL); 
BgL_arg2158z00_2778 = 
MAKE_YOUNG_PAIR(
BCHAR(((unsigned char)':')), BgL_arg2159z00_2779); } 
BgL_list2157z00_2777 = 
MAKE_YOUNG_PAIR(
BCHAR(BgL_arg2156z00_2776), BgL_arg2158z00_2778); } 
BgL_arg2152z00_2772 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_list2157z00_2777); } } 
BgL_arg2153z00_2773 = 
BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_131, 12L, 
STRING_LENGTH(BgL_strz00_131)); 
{ /* Llib/error.scm 1262 */
 obj_t BgL_list2154z00_2774;
{ /* Llib/error.scm 1262 */
 obj_t BgL_arg2155z00_2775;
BgL_arg2155z00_2775 = 
MAKE_YOUNG_PAIR(BgL_arg2153z00_2773, BNIL); 
BgL_list2154z00_2774 = 
MAKE_YOUNG_PAIR(BgL_arg2152z00_2772, BgL_arg2155z00_2775); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2154z00_2774);} }  else 
{ /* Llib/error.scm 1259 */
return BgL_strz00_131;} }  else 
{ /* Llib/error.scm 1258 */
return BgL_strz00_131;} } 

}



/* dirname->list */
obj_t BGl_dirnamezd2ze3listz31zz__errorz00(obj_t BgL_pathz00_132)
{
{ /* Llib/error.scm 1270 */
{ /* Llib/error.scm 1271 */
 long BgL_lenz00_2786; long BgL_initz00_2787;
{ /* Llib/error.scm 1271 */
 long BgL_lenz00_2809;
BgL_lenz00_2809 = 
STRING_LENGTH(
((obj_t)BgL_pathz00_132)); 
if(
(
STRING_REF(
((obj_t)BgL_pathz00_132), 
(BgL_lenz00_2809-1L))==
(unsigned char)(FILE_SEPARATOR)))
{ /* Llib/error.scm 1272 */
BgL_lenz00_2786 = 
(BgL_lenz00_2809-1L); }  else 
{ /* Llib/error.scm 1272 */
BgL_lenz00_2786 = BgL_lenz00_2809; } } 
if(
(
STRING_REF(
((obj_t)BgL_pathz00_132), 0L)==
(unsigned char)(FILE_SEPARATOR)))
{ /* Llib/error.scm 1275 */
BgL_initz00_2787 = 1L; }  else 
{ /* Llib/error.scm 1275 */
BgL_initz00_2787 = 0L; } 
{ /* Llib/error.scm 1276 */
 bool_t BgL_test3501z00_7954;
{ /* Llib/error.scm 1276 */
 long BgL_l1z00_4435;
BgL_l1z00_4435 = 
STRING_LENGTH(
((obj_t)BgL_pathz00_132)); 
if(
(BgL_l1z00_4435==1L))
{ /* Llib/error.scm 1276 */
 int BgL_arg2324z00_4438;
{ /* Llib/error.scm 1276 */
 char * BgL_auxz00_7962; char * BgL_tmpz00_7959;
BgL_auxz00_7962 = 
BSTRING_TO_STRING(BGl_string2999z00zz__errorz00); 
BgL_tmpz00_7959 = 
BSTRING_TO_STRING(
((obj_t)BgL_pathz00_132)); 
BgL_arg2324z00_4438 = 
memcmp(BgL_tmpz00_7959, BgL_auxz00_7962, BgL_l1z00_4435); } 
BgL_test3501z00_7954 = 
(
(long)(BgL_arg2324z00_4438)==0L); }  else 
{ /* Llib/error.scm 1276 */
BgL_test3501z00_7954 = ((bool_t)0)
; } } 
if(BgL_test3501z00_7954)
{ /* Llib/error.scm 1276 */
return BNIL;}  else 
{ 
 long BgL_readz00_2791; long BgL_prevz00_2792; obj_t BgL_listz00_2793;
BgL_readz00_2791 = BgL_initz00_2787; 
BgL_prevz00_2792 = BgL_initz00_2787; 
BgL_listz00_2793 = BNIL; 
BgL_zc3z04anonymousza32165ze3z87_2794:
if(
(BgL_readz00_2791==BgL_lenz00_2786))
{ /* Llib/error.scm 1283 */
 obj_t BgL_arg2167z00_2796;
BgL_arg2167z00_2796 = 
MAKE_YOUNG_PAIR(
BGl_substringz00zz__r4_strings_6_7z00(BgL_pathz00_132, BgL_prevz00_2792, BgL_readz00_2791), BgL_listz00_2793); 
return 
bgl_reverse_bang(BgL_arg2167z00_2796);}  else 
{ /* Llib/error.scm 1282 */
if(
(
STRING_REF(
((obj_t)BgL_pathz00_132), BgL_readz00_2791)==
(unsigned char)(FILE_SEPARATOR)))
{ /* Llib/error.scm 1285 */
 long BgL_arg2172z00_2801; long BgL_arg2173z00_2802; obj_t BgL_arg2174z00_2803;
BgL_arg2172z00_2801 = 
(BgL_readz00_2791+1L); 
BgL_arg2173z00_2802 = 
(BgL_readz00_2791+1L); 
BgL_arg2174z00_2803 = 
MAKE_YOUNG_PAIR(
BGl_substringz00zz__r4_strings_6_7z00(BgL_pathz00_132, BgL_prevz00_2792, BgL_readz00_2791), BgL_listz00_2793); 
{ 
 obj_t BgL_listz00_7983; long BgL_prevz00_7982; long BgL_readz00_7981;
BgL_readz00_7981 = BgL_arg2172z00_2801; 
BgL_prevz00_7982 = BgL_arg2173z00_2802; 
BgL_listz00_7983 = BgL_arg2174z00_2803; 
BgL_listz00_2793 = BgL_listz00_7983; 
BgL_prevz00_2792 = BgL_prevz00_7982; 
BgL_readz00_2791 = BgL_readz00_7981; 
goto BgL_zc3z04anonymousza32165ze3z87_2794;} }  else 
{ 
 long BgL_readz00_7984;
BgL_readz00_7984 = 
(BgL_readz00_2791+1L); 
BgL_readz00_2791 = BgL_readz00_7984; 
goto BgL_zc3z04anonymousza32165ze3z87_2794;} } } } } } 

}



/* typeof */
BGL_EXPORTED_DEF obj_t bgl_typeof(obj_t BgL_objz00_133)
{
{ /* Llib/error.scm 1297 */
if(
INTEGERP(BgL_objz00_133))
{ /* Llib/error.scm 1299 */
return BGl_string2909z00zz__errorz00;}  else 
{ /* Llib/error.scm 1299 */
if(
REALP(BgL_objz00_133))
{ /* Llib/error.scm 1301 */
return BGl_string3001z00zz__errorz00;}  else 
{ /* Llib/error.scm 1301 */
if(
STRINGP(BgL_objz00_133))
{ /* Llib/error.scm 1303 */
return BGl_string2934z00zz__errorz00;}  else 
{ /* Llib/error.scm 1303 */
if(
SYMBOLP(BgL_objz00_133))
{ /* Llib/error.scm 1305 */
return BGl_string3002z00zz__errorz00;}  else 
{ /* Llib/error.scm 1305 */
if(
KEYWORDP(BgL_objz00_133))
{ /* Llib/error.scm 1307 */
return BGl_string3003z00zz__errorz00;}  else 
{ /* Llib/error.scm 1307 */
if(
CHARP(BgL_objz00_133))
{ /* Llib/error.scm 1309 */
return BGl_string3004z00zz__errorz00;}  else 
{ /* Llib/error.scm 1309 */
if(
BOOLEANP(BgL_objz00_133))
{ /* Llib/error.scm 1311 */
return BGl_string3005z00zz__errorz00;}  else 
{ /* Llib/error.scm 1311 */
if(
NULLP(BgL_objz00_133))
{ /* Llib/error.scm 1313 */
return BGl_string3006z00zz__errorz00;}  else 
{ /* Llib/error.scm 1313 */
if(
(BgL_objz00_133==BUNSPEC))
{ /* Llib/error.scm 1315 */
return BGl_string3007z00zz__errorz00;}  else 
{ /* Llib/error.scm 1315 */
if(
EPAIRP(BgL_objz00_133))
{ /* Llib/error.scm 1317 */
return BGl_string3008z00zz__errorz00;}  else 
{ /* Llib/error.scm 1317 */
if(
PAIRP(BgL_objz00_133))
{ /* Llib/error.scm 1319 */
return BGl_string3009z00zz__errorz00;}  else 
{ /* Llib/error.scm 1319 */
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_133))
{ /* Llib/error.scm 1321 */
return BGl_string3010z00zz__errorz00;}  else 
{ /* Llib/error.scm 1321 */
if(
VECTORP(BgL_objz00_133))
{ /* Llib/error.scm 1323 */
return BGl_string2906z00zz__errorz00;}  else 
{ /* Llib/error.scm 1323 */
if(
TVECTORP(BgL_objz00_133))
{ /* Llib/error.scm 1325 */
return BGl_string3011z00zz__errorz00;}  else 
{ /* Llib/error.scm 1325 */
if(
STRUCTP(BgL_objz00_133))
{ /* Llib/error.scm 1328 */
 obj_t BgL_arg2207z00_2837;
{ /* Llib/error.scm 1328 */
 obj_t BgL_arg2210z00_2840;
BgL_arg2210z00_2840 = 
STRUCT_KEY(BgL_objz00_133); 
{ /* Llib/error.scm 1328 */
 obj_t BgL_arg2331z00_4456;
BgL_arg2331z00_4456 = 
SYMBOL_TO_STRING(BgL_arg2210z00_2840); 
BgL_arg2207z00_2837 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2331z00_4456); } } 
{ /* Llib/error.scm 1328 */
 obj_t BgL_list2208z00_2838;
{ /* Llib/error.scm 1328 */
 obj_t BgL_arg2209z00_2839;
BgL_arg2209z00_2839 = 
MAKE_YOUNG_PAIR(BgL_arg2207z00_2837, BNIL); 
BgL_list2208z00_2838 = 
MAKE_YOUNG_PAIR(BGl_string3012z00zz__errorz00, BgL_arg2209z00_2839); } 
BGL_TAIL return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2208z00_2838);} }  else 
{ /* Llib/error.scm 1327 */
if(
PROCEDUREP(BgL_objz00_133))
{ /* Llib/error.scm 1329 */
return BGl_string2917z00zz__errorz00;}  else 
{ /* Llib/error.scm 1329 */
if(
INPUT_PORTP(BgL_objz00_133))
{ /* Llib/error.scm 1331 */
return BGl_string3013z00zz__errorz00;}  else 
{ /* Llib/error.scm 1331 */
if(
OUTPUT_PORTP(BgL_objz00_133))
{ /* Llib/error.scm 1333 */
return BGl_string2972z00zz__errorz00;}  else 
{ /* Llib/error.scm 1333 */
if(
BINARY_PORTP(BgL_objz00_133))
{ /* Llib/error.scm 1335 */
return BGl_string3014z00zz__errorz00;}  else 
{ /* Llib/error.scm 1335 */
if(
CELLP(BgL_objz00_133))
{ /* Llib/error.scm 1337 */
return BGl_string3015z00zz__errorz00;}  else 
{ /* Llib/error.scm 1337 */
if(
FOREIGNP(BgL_objz00_133))
{ /* Llib/error.scm 1340 */
 obj_t BgL_arg2217z00_2847;
{ /* Llib/error.scm 1340 */
 obj_t BgL_arg2220z00_2850;
BgL_arg2220z00_2850 = 
FOREIGN_ID(BgL_objz00_133); 
{ /* Llib/error.scm 1340 */
 obj_t BgL_arg2331z00_4458;
BgL_arg2331z00_4458 = 
SYMBOL_TO_STRING(BgL_arg2220z00_2850); 
BgL_arg2217z00_2847 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2331z00_4458); } } 
{ /* Llib/error.scm 1340 */
 obj_t BgL_list2218z00_2848;
{ /* Llib/error.scm 1340 */
 obj_t BgL_arg2219z00_2849;
BgL_arg2219z00_2849 = 
MAKE_YOUNG_PAIR(BgL_arg2217z00_2847, BNIL); 
BgL_list2218z00_2848 = 
MAKE_YOUNG_PAIR(BGl_string3016z00zz__errorz00, BgL_arg2219z00_2849); } 
BGL_TAIL return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2218z00_2848);} }  else 
{ /* Llib/error.scm 1339 */
if(
SOCKETP(BgL_objz00_133))
{ /* Llib/error.scm 1341 */
return BGl_string3017z00zz__errorz00;}  else 
{ /* Llib/error.scm 1341 */
if(
BGL_DATAGRAM_SOCKETP(BgL_objz00_133))
{ /* Llib/error.scm 1343 */
return BGl_string3018z00zz__errorz00;}  else 
{ /* Llib/error.scm 1343 */
if(
PROCESSP(BgL_objz00_133))
{ /* Llib/error.scm 1345 */
return BGl_string3019z00zz__errorz00;}  else 
{ /* Llib/error.scm 1345 */
if(
CUSTOMP(BgL_objz00_133))
{ /* Llib/error.scm 1347 */
return BGl_string3020z00zz__errorz00;}  else 
{ /* Llib/error.scm 1347 */
if(
OPAQUEP(BgL_objz00_133))
{ /* Llib/error.scm 1349 */
return BGl_string3021z00zz__errorz00;}  else 
{ /* Llib/error.scm 1349 */
if(
BGL_OBJECTP(BgL_objz00_133))
{ /* Llib/error.scm 1352 */
 obj_t BgL_classz00_2857;
{ /* Llib/error.scm 1352 */
 obj_t BgL_arg2777z00_4460; long BgL_arg2778z00_4461;
BgL_arg2777z00_4460 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/error.scm 1352 */
 long BgL_arg2779z00_4462;
BgL_arg2779z00_4462 = 
BGL_OBJECT_CLASS_NUM(
((BgL_objectz00_bglt)BgL_objz00_133)); 
BgL_arg2778z00_4461 = 
(BgL_arg2779z00_4462-OBJECT_TYPE); } 
BgL_classz00_2857 = 
VECTOR_REF(BgL_arg2777z00_4460,BgL_arg2778z00_4461); } 
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_2857))
{ /* Llib/error.scm 1357 */
 obj_t BgL_symz00_2859;
BgL_symz00_2859 = 
BGl_classzd2namezd2zz__objectz00(BgL_classz00_2857); 
{ /* Llib/error.scm 1359 */
 obj_t BgL_arg2331z00_4469;
BgL_arg2331z00_4469 = 
SYMBOL_TO_STRING(BgL_symz00_2859); 
return 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2331z00_4469);} }  else 
{ /* Llib/error.scm 1356 */
return BGl_string3022z00zz__errorz00;} }  else 
{ /* Llib/error.scm 1351 */
if(
UCS2_STRINGP(BgL_objz00_133))
{ /* Llib/error.scm 1362 */
return BGl_string3023z00zz__errorz00;}  else 
{ /* Llib/error.scm 1362 */
if(
UCS2P(BgL_objz00_133))
{ /* Llib/error.scm 1364 */
return BGl_string3024z00zz__errorz00;}  else 
{ /* Llib/error.scm 1364 */
if(
ELONGP(BgL_objz00_133))
{ /* Llib/error.scm 1366 */
return BGl_string3025z00zz__errorz00;}  else 
{ /* Llib/error.scm 1366 */
if(
LLONGP(BgL_objz00_133))
{ /* Llib/error.scm 1368 */
return BGl_string3026z00zz__errorz00;}  else 
{ /* Llib/error.scm 1368 */
if(
BGL_MUTEXP(BgL_objz00_133))
{ /* Llib/error.scm 1370 */
return BGl_string3027z00zz__errorz00;}  else 
{ /* Llib/error.scm 1370 */
if(
BGL_CONDVARP(BgL_objz00_133))
{ /* Llib/error.scm 1372 */
return BGl_string3028z00zz__errorz00;}  else 
{ /* Llib/error.scm 1372 */
if(
BGL_DATEP(BgL_objz00_133))
{ /* Llib/error.scm 1374 */
return BGl_string3029z00zz__errorz00;}  else 
{ /* Llib/error.scm 1374 */
if(
BGL_HVECTORP(BgL_objz00_133))
{ /* Llib/error.scm 1377 */
 obj_t BgL_tagz00_2869;
BgL_tagz00_2869 = 
BGl_homogeneouszd2vectorzd2infoz00zz__srfi4z00(BgL_objz00_133); 
{ /* Llib/error.scm 1378 */
 obj_t BgL__z00_2870; obj_t BgL__z00_2871; obj_t BgL__z00_2872;
{ /* Llib/error.scm 1379 */
 obj_t BgL_tmpz00_4470;
{ /* Llib/error.scm 1379 */
 int BgL_tmpz00_8079;
BgL_tmpz00_8079 = 
(int)(1L); 
BgL_tmpz00_4470 = 
BGL_MVALUES_VAL(BgL_tmpz00_8079); } 
{ /* Llib/error.scm 1379 */
 int BgL_tmpz00_8082;
BgL_tmpz00_8082 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_8082, BUNSPEC); } 
BgL__z00_2870 = BgL_tmpz00_4470; } 
{ /* Llib/error.scm 1379 */
 obj_t BgL_tmpz00_4471;
{ /* Llib/error.scm 1379 */
 int BgL_tmpz00_8085;
BgL_tmpz00_8085 = 
(int)(2L); 
BgL_tmpz00_4471 = 
BGL_MVALUES_VAL(BgL_tmpz00_8085); } 
{ /* Llib/error.scm 1379 */
 int BgL_tmpz00_8088;
BgL_tmpz00_8088 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_8088, BUNSPEC); } 
BgL__z00_2871 = BgL_tmpz00_4471; } 
{ /* Llib/error.scm 1379 */
 obj_t BgL_tmpz00_4472;
{ /* Llib/error.scm 1379 */
 int BgL_tmpz00_8091;
BgL_tmpz00_8091 = 
(int)(3L); 
BgL_tmpz00_4472 = 
BGL_MVALUES_VAL(BgL_tmpz00_8091); } 
{ /* Llib/error.scm 1379 */
 int BgL_tmpz00_8094;
BgL_tmpz00_8094 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_8094, BUNSPEC); } 
BgL__z00_2872 = BgL_tmpz00_4472; } 
{ /* Llib/error.scm 1379 */
 obj_t BgL_arg2237z00_2873;
{ /* Llib/error.scm 1379 */
 obj_t BgL_arg2331z00_4474;
BgL_arg2331z00_4474 = 
SYMBOL_TO_STRING(
((obj_t)BgL_tagz00_2869)); 
BgL_arg2237z00_2873 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2331z00_4474); } 
{ /* Llib/error.scm 1379 */
 obj_t BgL_list2238z00_2874;
{ /* Llib/error.scm 1379 */
 obj_t BgL_arg2239z00_2875;
BgL_arg2239z00_2875 = 
MAKE_YOUNG_PAIR(BGl_string2906z00zz__errorz00, BNIL); 
BgL_list2238z00_2874 = 
MAKE_YOUNG_PAIR(BgL_arg2237z00_2873, BgL_arg2239z00_2875); } 
BGL_TAIL return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2238z00_2874);} } } }  else 
{ /* Llib/error.scm 1376 */
if(
BIGNUMP(BgL_objz00_133))
{ /* Llib/error.scm 1380 */
return BGl_string3030z00zz__errorz00;}  else 
{ /* Llib/error.scm 1380 */
if(
BGL_MMAPP(BgL_objz00_133))
{ /* Llib/error.scm 1382 */
return BGl_string3031z00zz__errorz00;}  else 
{ /* Llib/error.scm 1382 */
if(
BGL_REGEXPP(BgL_objz00_133))
{ /* Llib/error.scm 1384 */
return BGl_string3032z00zz__errorz00;}  else 
{ /* Llib/error.scm 1384 */
if(
BGL_INT8P(BgL_objz00_133))
{ /* Llib/error.scm 1386 */
return BGl_string3033z00zz__errorz00;}  else 
{ /* Llib/error.scm 1386 */
if(
BGL_UINT8P(BgL_objz00_133))
{ /* Llib/error.scm 1388 */
return BGl_string3034z00zz__errorz00;}  else 
{ /* Llib/error.scm 1388 */
if(
BGL_INT16P(BgL_objz00_133))
{ /* Llib/error.scm 1390 */
return BGl_string3035z00zz__errorz00;}  else 
{ /* Llib/error.scm 1390 */
if(
BGL_UINT16P(BgL_objz00_133))
{ /* Llib/error.scm 1392 */
return BGl_string3036z00zz__errorz00;}  else 
{ /* Llib/error.scm 1392 */
if(
BGL_INT32P(BgL_objz00_133))
{ /* Llib/error.scm 1394 */
return BGl_string3037z00zz__errorz00;}  else 
{ /* Llib/error.scm 1394 */
if(
BGL_UINT32P(BgL_objz00_133))
{ /* Llib/error.scm 1396 */
return BGl_string3038z00zz__errorz00;}  else 
{ /* Llib/error.scm 1396 */
if(
BGL_INT64P(BgL_objz00_133))
{ /* Llib/error.scm 1398 */
return BGl_string3039z00zz__errorz00;}  else 
{ /* Llib/error.scm 1398 */
if(
BGL_UINT64P(BgL_objz00_133))
{ /* Llib/error.scm 1400 */
return BGl_string3040z00zz__errorz00;}  else 
{ /* Llib/error.scm 1400 */
if(
CNSTP(BgL_objz00_133))
{ /* Llib/error.scm 1402 */
return BGl_string3041z00zz__errorz00;}  else 
{ /* Llib/error.scm 1402 */
return 
string_to_bstring(
FOREIGN_TYPE_NAME(BgL_objz00_133));} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } 

}



/* &typeof */
obj_t BGl_z62typeofz62zz__errorz00(obj_t BgL_envz00_5201, obj_t BgL_objz00_5202)
{
{ /* Llib/error.scm 1297 */
return 
bgl_typeof(BgL_objz00_5202);} 

}



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

}



/* &find-runtime-type */
obj_t BGl_z62findzd2runtimezd2typez62zz__errorz00(obj_t BgL_envz00_5203, obj_t BgL_oz00_5204)
{
{ /* Llib/error.scm 1410 */
return 
bgl_find_runtime_type(BgL_oz00_5204);} 

}



/* c-debugging-show-type */
BGL_EXPORTED_DEF char * bgl_show_type(obj_t BgL_objz00_135)
{
{ /* Llib/error.scm 1418 */
{ /* Llib/error.scm 1419 */
 obj_t BgL_tz00_4475;
BgL_tz00_4475 = 
bgl_typeof(BgL_objz00_135); 
{ /* Llib/error.scm 1420 */
 obj_t BgL_arg2252z00_4476;
{ /* Llib/error.scm 1420 */
 obj_t BgL_tmpz00_8133;
BgL_tmpz00_8133 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_arg2252z00_4476 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8133); } 
{ /* Llib/error.scm 1420 */
 obj_t BgL_list2253z00_4477;
BgL_list2253z00_4477 = 
MAKE_YOUNG_PAIR(BgL_tz00_4475, BNIL); 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_arg2252z00_4476, BgL_list2253z00_4477); } } 
return 
BSTRING_TO_STRING(BgL_tz00_4475);} } 

}



/* &c-debugging-show-type */
obj_t BGl_z62czd2debuggingzd2showzd2typezb0zz__errorz00(obj_t BgL_envz00_5205, obj_t BgL_objz00_5206)
{
{ /* Llib/error.scm 1418 */
return 
string_to_bstring(
bgl_show_type(BgL_objz00_5206));} 

}



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

}



/* <@exit:2254>~0 */
obj_t BGl_zc3z04exitza32254ze3ze70z60zz__errorz00(obj_t BgL_thunkz00_5234, obj_t BgL_handlerz00_5233)
{
{ /* Llib/error.scm 1427 */
jmp_buf_t jmpbuf; 
 void * BgL_an_exit1147z00_2892;
if (SET_EXIT(BgL_an_exit1147z00_2892)) { 
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_2892 = 
(void *)jmpbuf; 
{ /* Llib/error.scm 1427 */
 obj_t BgL_env1151z00_2893;
BgL_env1151z00_2893 = 
BGL_CURRENT_DYNAMIC_ENV(); 
PUSH_ENV_EXIT(BgL_env1151z00_2893, BgL_an_exit1147z00_2892, 1L); 
{ /* Llib/error.scm 1427 */
 obj_t BgL_an_exitd1148z00_2894;
BgL_an_exitd1148z00_2894 = 
BGL_ENV_EXITD_TOP_AS_OBJ(BgL_env1151z00_2893); 
{ /* Llib/error.scm 1427 */
 obj_t BgL_escz00_5207;
BgL_escz00_5207 = 
MAKE_FX_PROCEDURE(BGl_z62escz62zz__errorz00, 
(int)(1L), 
(int)(1L)); 
PROCEDURE_SET(BgL_escz00_5207, 
(int)(0L), BgL_an_exitd1148z00_2894); 
{ /* Llib/error.scm 1427 */
 obj_t BgL_res1150z00_2897;
{ /* Llib/error.scm 1430 */
 obj_t BgL_zc3z04anonymousza32256ze3z87_5208;
BgL_zc3z04anonymousza32256ze3z87_5208 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza32256ze3ze5zz__errorz00, 
(int)(1L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza32256ze3z87_5208, 
(int)(0L), BgL_an_exitd1148z00_2894); 
PROCEDURE_SET(BgL_zc3z04anonymousza32256ze3z87_5208, 
(int)(1L), BgL_handlerz00_5233); 
PROCEDURE_SET(BgL_zc3z04anonymousza32256ze3z87_5208, 
(int)(2L), BgL_escz00_5207); 
BgL_res1150z00_2897 = 
BGl_withzd2exceptionzd2handlerz00zz__errorz00(BgL_zc3z04anonymousza32256ze3z87_5208, BgL_thunkz00_5234); } 
POP_ENV_EXIT(BgL_env1151z00_2893); 
return BgL_res1150z00_2897;} } } } 
}} 

}



/* &&try */
obj_t BGl_z62z62tryz00zz__errorz00(obj_t BgL_envz00_5209, obj_t BgL_thunkz00_5210, obj_t BgL_handlerz00_5211)
{
{ /* Llib/error.scm 1426 */
{ /* Llib/error.scm 1427 */
 obj_t BgL_auxz00_8170; obj_t BgL_auxz00_8163;
if(
PROCEDUREP(BgL_handlerz00_5211))
{ /* Llib/error.scm 1427 */
BgL_auxz00_8170 = BgL_handlerz00_5211
; }  else 
{ 
 obj_t BgL_auxz00_8173;
BgL_auxz00_8173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(54101L), BGl_string3042z00zz__errorz00, BGl_string2917z00zz__errorz00, BgL_handlerz00_5211); 
FAILURE(BgL_auxz00_8173,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_thunkz00_5210))
{ /* Llib/error.scm 1427 */
BgL_auxz00_8163 = BgL_thunkz00_5210
; }  else 
{ 
 obj_t BgL_auxz00_8166;
BgL_auxz00_8166 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(54101L), BGl_string3042z00zz__errorz00, BGl_string2917z00zz__errorz00, BgL_thunkz00_5210); 
FAILURE(BgL_auxz00_8166,BFALSE,BFALSE);} 
return 
BGl_z62tryz62zz__errorz00(BgL_auxz00_8163, BgL_auxz00_8170);} } 

}



/* &<@anonymous:2256> */
obj_t BGl_z62zc3z04anonymousza32256ze3ze5zz__errorz00(obj_t BgL_envz00_5212, obj_t BgL_ez00_5216)
{
{ /* Llib/error.scm 1429 */
{ /* Llib/error.scm 1430 */
 obj_t BgL_handlerz00_5214; obj_t BgL_escz00_5215;
BgL_handlerz00_5214 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_5212, 
(int)(1L))); 
BgL_escz00_5215 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_5212, 
(int)(2L))); 
{ /* Llib/error.scm 1430 */
 bool_t BgL_test3555z00_8184;
{ /* Llib/error.scm 1430 */
 obj_t BgL_classz00_5306;
BgL_classz00_5306 = BGl_z62errorz62zz__objectz00; 
if(
BGL_OBJECTP(BgL_ez00_5216))
{ /* Llib/error.scm 1430 */
 BgL_objectz00_bglt BgL_arg2767z00_5307;
BgL_arg2767z00_5307 = 
(BgL_objectz00_bglt)(BgL_ez00_5216); 
if(
BGL_CONDEXPAND_ISA_ARCH64())
{ /* Llib/error.scm 1430 */
 long BgL_idxz00_5308;
BgL_idxz00_5308 = 
BGL_OBJECT_INHERITANCE_NUM(BgL_arg2767z00_5307); 
BgL_test3555z00_8184 = 
(
VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
(BgL_idxz00_5308+3L))==BgL_classz00_5306); }  else 
{ /* Llib/error.scm 1430 */
 bool_t BgL_res2830z00_5311;
{ /* Llib/error.scm 1430 */
 obj_t BgL_oclassz00_5312;
{ /* Llib/error.scm 1430 */
 obj_t BgL_arg2777z00_5313; long BgL_arg2778z00_5314;
BgL_arg2777z00_5313 = 
(BGl_za2classesza2z00zz__objectz00); 
{ /* Llib/error.scm 1430 */
 long BgL_arg2779z00_5315;
BgL_arg2779z00_5315 = 
BGL_OBJECT_CLASS_NUM(BgL_arg2767z00_5307); 
BgL_arg2778z00_5314 = 
(BgL_arg2779z00_5315-OBJECT_TYPE); } 
BgL_oclassz00_5312 = 
VECTOR_REF(BgL_arg2777z00_5313,BgL_arg2778z00_5314); } 
{ /* Llib/error.scm 1430 */
 bool_t BgL__ortest_1196z00_5316;
BgL__ortest_1196z00_5316 = 
(BgL_classz00_5306==BgL_oclassz00_5312); 
if(BgL__ortest_1196z00_5316)
{ /* Llib/error.scm 1430 */
BgL_res2830z00_5311 = BgL__ortest_1196z00_5316; }  else 
{ /* Llib/error.scm 1430 */
 long BgL_odepthz00_5317;
{ /* Llib/error.scm 1430 */
 obj_t BgL_arg2764z00_5318;
BgL_arg2764z00_5318 = 
(BgL_oclassz00_5312); 
BgL_odepthz00_5317 = 
BGL_CLASS_DEPTH(BgL_arg2764z00_5318); } 
if(
(3L<BgL_odepthz00_5317))
{ /* Llib/error.scm 1430 */
 obj_t BgL_arg2762z00_5319;
{ /* Llib/error.scm 1430 */
 obj_t BgL_arg2763z00_5320;
BgL_arg2763z00_5320 = 
(BgL_oclassz00_5312); 
BgL_arg2762z00_5319 = 
BGL_CLASS_ANCESTORS_REF(BgL_arg2763z00_5320, 3L); } 
BgL_res2830z00_5311 = 
(BgL_arg2762z00_5319==BgL_classz00_5306); }  else 
{ /* Llib/error.scm 1430 */
BgL_res2830z00_5311 = ((bool_t)0); } } } } 
BgL_test3555z00_8184 = BgL_res2830z00_5311; } }  else 
{ /* Llib/error.scm 1430 */
BgL_test3555z00_8184 = ((bool_t)0)
; } } 
if(BgL_test3555z00_8184)
{ /* Llib/error.scm 1430 */
{ /* Llib/error.scm 1432 */
 obj_t BgL_arg2258z00_5321; obj_t BgL_arg2259z00_5322; obj_t BgL_arg2260z00_5323;
BgL_arg2258z00_5321 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_ez00_5216)))->BgL_procz00); 
BgL_arg2259z00_5322 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_ez00_5216)))->BgL_msgz00); 
BgL_arg2260z00_5323 = 
(((BgL_z62errorz62_bglt)COBJECT(
((BgL_z62errorz62_bglt)BgL_ez00_5216)))->BgL_objz00); 
BGL_PROCEDURE_CALL4(BgL_handlerz00_5214, BgL_escz00_5215, BgL_arg2258z00_5321, BgL_arg2259z00_5322, BgL_arg2260z00_5323); } 
{ /* Llib/error.scm 1433 */
 obj_t BgL_list2261z00_5324;
BgL_list2261z00_5324 = 
MAKE_YOUNG_PAIR(
BINT(4L), BNIL); 
return 
BGl_exitz00zz__errorz00(BgL_list2261z00_5324);} }  else 
{ /* Llib/error.scm 1430 */
return 
BGl_raisez00zz__errorz00(BgL_ez00_5216);} } } } 

}



/* &esc */
obj_t BGl_z62escz62zz__errorz00(obj_t BgL_envz00_5217, obj_t BgL_val1149z00_5219)
{
{ /* Llib/error.scm 1427 */
return 
unwind_stack_until(
PROCEDURE_REF(BgL_envz00_5217, 
(int)(0L)), BFALSE, BgL_val1149z00_5219, 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 1440 */
BGL_ERROR_HANDLER_PUSH(BgL_hdlz00_138, BgL_exitz00_139); 
return BUNSPEC;} 

}



/* &push-error-handler! */
obj_t BGl_z62pushzd2errorzd2handlerz12z70zz__errorz00(obj_t BgL_envz00_5220, obj_t BgL_hdlz00_5221, obj_t BgL_exitz00_5222)
{
{ /* Llib/error.scm 1440 */
{ /* Llib/error.scm 1440 */
 obj_t BgL_auxz00_8228;
if(
PROCEDUREP(BgL_hdlz00_5221))
{ /* Llib/error.scm 1440 */
BgL_auxz00_8228 = BgL_hdlz00_5221
; }  else 
{ 
 obj_t BgL_auxz00_8231;
BgL_auxz00_8231 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(54522L), BGl_string3043z00zz__errorz00, BGl_string2917z00zz__errorz00, BgL_hdlz00_5221); 
FAILURE(BgL_auxz00_8231,BFALSE,BFALSE);} 
return 
BGl_pushzd2errorzd2handlerz12z12zz__errorz00(BgL_auxz00_8228, BgL_exitz00_5222);} } 

}



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

}



/* &set-error-handler! */
obj_t BGl_z62setzd2errorzd2handlerz12z70zz__errorz00(obj_t BgL_envz00_5223, obj_t BgL_ehdlz00_5224)
{
{ /* Llib/error.scm 1446 */
return 
BGl_setzd2errorzd2handlerz12z12zz__errorz00(BgL_ehdlz00_5224);} 

}



/* 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 1452 */
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_5225, obj_t BgL_envz00_5226, obj_t BgL_ehdlz00_5227)
{
{ /* Llib/error.scm 1452 */
{ /* Llib/error.scm 1452 */
 obj_t BgL_auxz00_8239;
if(
BGL_DYNAMIC_ENVP(BgL_envz00_5226))
{ /* Llib/error.scm 1452 */
BgL_auxz00_8239 = BgL_envz00_5226
; }  else 
{ 
 obj_t BgL_auxz00_8242;
BgL_auxz00_8242 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(55122L), BGl_string3044z00zz__errorz00, BGl_string3045z00zz__errorz00, BgL_envz00_5226); 
FAILURE(BgL_auxz00_8242,BFALSE,BFALSE);} 
return 
BGl_envzd2setzd2errorzd2handlerz12zc0zz__errorz00(BgL_auxz00_8239, BgL_ehdlz00_5227);} } 

}



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

}



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

}



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

}



/* &env-get-error-handler */
obj_t BGl_z62envzd2getzd2errorzd2handlerzb0zz__errorz00(obj_t BgL_envz00_5229, obj_t BgL_envz00_5230)
{
{ /* Llib/error.scm 1464 */
{ /* Llib/error.scm 1465 */
 obj_t BgL_auxz00_8250;
if(
BGL_DYNAMIC_ENVP(BgL_envz00_5230))
{ /* Llib/error.scm 1465 */
BgL_auxz00_8250 = BgL_envz00_5230
; }  else 
{ 
 obj_t BgL_auxz00_8253;
BgL_auxz00_8253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(55762L), BGl_string3046z00zz__errorz00, BGl_string3045z00zz__errorz00, BgL_envz00_5230); 
FAILURE(BgL_auxz00_8253,BFALSE,BFALSE);} 
return 
BGl_envzd2getzd2errorzd2handlerzd2zz__errorz00(BgL_auxz00_8250);} } 

}



/* notify-interrupt */
BGL_EXPORTED_DEF obj_t BGl_notifyzd2interruptzd2zz__errorz00(int BgL_sigz00_144)
{
{ /* Llib/error.scm 1470 */
{ /* Llib/error.scm 1471 */
 obj_t BgL_notifyz00_4513;
BgL_notifyz00_4513 = 
BGL_INTERRUPT_NOTIFIER_GET(); 
if(
PROCEDUREP(BgL_notifyz00_4513))
{ /* Llib/error.scm 1472 */
return 
BGL_PROCEDURE_CALL1(BgL_notifyz00_4513, 
BINT(BgL_sigz00_144));}  else 
{ /* Llib/error.scm 1472 */
BGL_TAIL return 
BGl_defaultzd2interruptzd2notifierz00zz__errorz00(BgL_sigz00_144);} } } 

}



/* &notify-interrupt */
obj_t BGl_z62notifyzd2interruptzb0zz__errorz00(obj_t BgL_envz00_5231, obj_t BgL_sigz00_5232)
{
{ /* Llib/error.scm 1470 */
{ /* Llib/error.scm 1471 */
 int BgL_auxz00_8267;
{ /* Llib/error.scm 1471 */
 obj_t BgL_tmpz00_8268;
if(
INTEGERP(BgL_sigz00_5232))
{ /* Llib/error.scm 1471 */
BgL_tmpz00_8268 = BgL_sigz00_5232
; }  else 
{ 
 obj_t BgL_auxz00_8271;
BgL_auxz00_8271 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2904z00zz__errorz00, 
BINT(56049L), BGl_string3047z00zz__errorz00, BGl_string2909z00zz__errorz00, BgL_sigz00_5232); 
FAILURE(BgL_auxz00_8271,BFALSE,BFALSE);} 
BgL_auxz00_8267 = 
CINT(BgL_tmpz00_8268); } 
return 
BGl_notifyzd2interruptzd2zz__errorz00(BgL_auxz00_8267);} } 

}



/* default-interrupt-notifier */
obj_t BGl_defaultzd2interruptzd2notifierz00zz__errorz00(int BgL_sigz00_145)
{
{ /* Llib/error.scm 1480 */
{ /* Llib/error.scm 1481 */
 obj_t BgL_portz00_2910;
{ /* Llib/error.scm 1481 */
 obj_t BgL_tmpz00_8277;
BgL_tmpz00_8277 = 
BGL_CURRENT_DYNAMIC_ENV(); 
BgL_portz00_2910 = 
BGL_ENV_CURRENT_ERROR_PORT(BgL_tmpz00_8277); } 
{ /* Llib/error.scm 1482 */
 obj_t BgL_list2263z00_2911;
BgL_list2263z00_2911 = 
MAKE_YOUNG_PAIR(BgL_portz00_2910, BNIL); 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_list2263z00_2911); } 
{ /* Llib/error.scm 1483 */
 obj_t BgL_list2264z00_2912;
BgL_list2264z00_2912 = 
MAKE_YOUNG_PAIR(BGl_string3048z00zz__errorz00, BNIL); 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_2910, BgL_list2264z00_2912); } 
return 
bgl_flush_output_port(BgL_portz00_2910);} } 

}



/* &sigfpe-error-handler */
obj_t BGl_z62sigfpezd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5062, obj_t BgL_nz00_5063)
{
{ /* Llib/error.scm 1489 */
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_arg1511z00_5325;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1079z00_5326;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1078z00_5327;
BgL_new1078z00_5327 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 551 */
 long BgL_arg1514z00_5328;
BgL_arg1514z00_5328 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_5327), BgL_arg1514z00_5328); } 
BgL_new1079z00_5326 = BgL_new1078z00_5327; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5326)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5326)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8293;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1512z00_5329;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1513z00_5330;
{ /* Llib/error.scm 551 */
 obj_t BgL_classz00_5331;
BgL_classz00_5331 = BGl_z62errorz62zz__objectz00; 
BgL_arg1513z00_5330 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5331); } 
BgL_arg1512z00_5329 = 
VECTOR_REF(BgL_arg1513z00_5330,2L); } 
BgL_auxz00_8293 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1512z00_5329); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5326)))->BgL_stackz00)=((obj_t)BgL_auxz00_8293),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5326))->BgL_procz00)=((obj_t)BGl_string3049z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5326))->BgL_msgz00)=((obj_t)BGl_string3050z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5326))->BgL_objz00)=((obj_t)BGl_string3051z00zz__errorz00),BUNSPEC); 
BgL_arg1511z00_5325 = BgL_new1079z00_5326; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1511z00_5325));} } 

}



/* &sigill-error-handler */
obj_t BGl_z62sigillzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5064, obj_t BgL_nz00_5065)
{
{ /* Llib/error.scm 1495 */
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_arg1511z00_5332;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1079z00_5333;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1078z00_5334;
BgL_new1078z00_5334 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 551 */
 long BgL_arg1514z00_5335;
BgL_arg1514z00_5335 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_5334), BgL_arg1514z00_5335); } 
BgL_new1079z00_5333 = BgL_new1078z00_5334; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5333)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5333)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8312;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1512z00_5336;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1513z00_5337;
{ /* Llib/error.scm 551 */
 obj_t BgL_classz00_5338;
BgL_classz00_5338 = BGl_z62errorz62zz__objectz00; 
BgL_arg1513z00_5337 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5338); } 
BgL_arg1512z00_5336 = 
VECTOR_REF(BgL_arg1513z00_5337,2L); } 
BgL_auxz00_8312 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1512z00_5336); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5333)))->BgL_stackz00)=((obj_t)BgL_auxz00_8312),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5333))->BgL_procz00)=((obj_t)BGl_string3052z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5333))->BgL_msgz00)=((obj_t)BGl_string3053z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5333))->BgL_objz00)=((obj_t)BGl_string3051z00zz__errorz00),BUNSPEC); 
BgL_arg1511z00_5332 = BgL_new1079z00_5333; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1511z00_5332));} } 

}



/* &sigbus-error-handler */
obj_t BGl_z62sigbuszd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5066, obj_t BgL_nz00_5067)
{
{ /* Llib/error.scm 1501 */
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_arg1511z00_5339;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1079z00_5340;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1078z00_5341;
BgL_new1078z00_5341 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 551 */
 long BgL_arg1514z00_5342;
BgL_arg1514z00_5342 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_5341), BgL_arg1514z00_5342); } 
BgL_new1079z00_5340 = BgL_new1078z00_5341; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5340)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5340)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8331;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1512z00_5343;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1513z00_5344;
{ /* Llib/error.scm 551 */
 obj_t BgL_classz00_5345;
BgL_classz00_5345 = BGl_z62errorz62zz__objectz00; 
BgL_arg1513z00_5344 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5345); } 
BgL_arg1512z00_5343 = 
VECTOR_REF(BgL_arg1513z00_5344,2L); } 
BgL_auxz00_8331 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1512z00_5343); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5340)))->BgL_stackz00)=((obj_t)BgL_auxz00_8331),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5340))->BgL_procz00)=((obj_t)BGl_string3052z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5340))->BgL_msgz00)=((obj_t)BGl_string3054z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5340))->BgL_objz00)=((obj_t)BGl_string3051z00zz__errorz00),BUNSPEC); 
BgL_arg1511z00_5339 = BgL_new1079z00_5340; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1511z00_5339));} } 

}



/* &sigsegv-error-handler */
obj_t BGl_z62sigsegvzd2errorzd2handlerz62zz__errorz00(obj_t BgL_envz00_5068, obj_t BgL_nz00_5069)
{
{ /* Llib/error.scm 1507 */
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_arg1511z00_5346;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1079z00_5347;
{ /* Llib/error.scm 551 */
 BgL_z62errorz62_bglt BgL_new1078z00_5348;
BgL_new1078z00_5348 = 
((BgL_z62errorz62_bglt)BOBJECT( GC_MALLOC( sizeof(struct BgL_z62errorz62_bgl) ))); 
{ /* Llib/error.scm 551 */
 long BgL_arg1514z00_5349;
BgL_arg1514z00_5349 = 
BGL_CLASS_NUM(BGl_z62errorz62zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(
((BgL_objectz00_bglt)BgL_new1078z00_5348), BgL_arg1514z00_5349); } 
BgL_new1079z00_5347 = BgL_new1078z00_5348; } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5347)))->BgL_fnamez00)=((obj_t)BFALSE),BUNSPEC); 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5347)))->BgL_locationz00)=((obj_t)BFALSE),BUNSPEC); 
{ 
 obj_t BgL_auxz00_8350;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1512z00_5350;
{ /* Llib/error.scm 551 */
 obj_t BgL_arg1513z00_5351;
{ /* Llib/error.scm 551 */
 obj_t BgL_classz00_5352;
BgL_classz00_5352 = BGl_z62errorz62zz__objectz00; 
BgL_arg1513z00_5351 = 
BGL_CLASS_ALL_FIELDS(BgL_classz00_5352); } 
BgL_arg1512z00_5350 = 
VECTOR_REF(BgL_arg1513z00_5351,2L); } 
BgL_auxz00_8350 = 
BGl_classzd2fieldzd2defaultzd2valuezd2zz__objectz00(BgL_arg1512z00_5350); } 
((((BgL_z62exceptionz62_bglt)COBJECT(
((BgL_z62exceptionz62_bglt)BgL_new1079z00_5347)))->BgL_stackz00)=((obj_t)BgL_auxz00_8350),BUNSPEC); } 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5347))->BgL_procz00)=((obj_t)BGl_string3052z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5347))->BgL_msgz00)=((obj_t)BGl_string3055z00zz__errorz00),BUNSPEC); 
((((BgL_z62errorz62_bglt)COBJECT(BgL_new1079z00_5347))->BgL_objz00)=((obj_t)BGl_string3051z00zz__errorz00),BUNSPEC); 
BgL_arg1511z00_5346 = BgL_new1079z00_5347; } 
return 
BGl_raisez00zz__errorz00(
((obj_t)BgL_arg1511z00_5346));} } 

}



/* 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_string3056z00zz__errorz00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string3056z00zz__errorz00)); 
return 
BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L, 
BSTRING_TO_STRING(BGl_string3056z00zz__errorz00));} 

}

#ifdef __cplusplus
}
#endif
