/*===========================================================================*/
/*   (Bdb/emit.scm)                                                          */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Bdb/emit.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;

typedef struct BgL_valuez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_valuez00_bglt;

typedef struct BgL_variablez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
} *BgL_variablez00_bglt;

typedef struct BgL_globalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   obj_t BgL_modulez00;
   obj_t BgL_importz00;
   bool_t BgL_evaluablezf3zf3;
   bool_t BgL_libraryzf3zf3;
   bool_t BgL_userzf3zf3;
   obj_t BgL_pragmaz00;
   obj_t BgL_srcz00;
   obj_t BgL_jvmzd2typezd2namez00;
} *BgL_globalz00_bglt;

typedef struct BgL_localz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   bool_t BgL_userzf3zf3;
   long BgL_keyz00;
} *BgL_localz00_bglt;

typedef struct BgL_funz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
} *BgL_funz00_bglt;

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

typedef struct BgL_cfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_argszd2typezd2;
   bool_t BgL_macrozf3zf3;
   bool_t BgL_infixzf3zf3;
   obj_t BgL_methodz00;
} *BgL_cfunz00_bglt;

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

typedef struct BgL_sexitz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_handlerz00;
   bool_t BgL_detachedzf3zf3;
} *BgL_sexitz00_bglt;

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;

typedef struct BgL_nodez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_nodez00_bglt;

typedef struct BgL_nodezf2effectzf2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
} *BgL_nodezf2effectzf2_bglt;

typedef struct BgL_atomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_atomz00_bglt;

typedef struct BgL_varz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varz00_bglt;

typedef struct BgL_closurez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_closurez00_bglt;

typedef struct BgL_kwotez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_kwotez00_bglt;

typedef struct BgL_sequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *BgL_sequencez00_bglt;

typedef struct BgL_appz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_appz00_bglt;

typedef struct BgL_appzd2lyzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_appzd2lyzd2_bglt;

typedef struct BgL_funcallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_funcallz00_bglt;

typedef struct BgL_externz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_externz00_bglt;

typedef struct BgL_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_bglt;

typedef struct BgL_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_getfieldz00_bglt;

typedef struct BgL_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_setfieldz00_bglt;

typedef struct BgL_newz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_newz00_bglt;

typedef struct BgL_vallocz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_vallocz00_bglt;

typedef struct BgL_vrefz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vrefz00_bglt;

typedef struct BgL_vsetz12z12_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vsetz12z12_bglt;

typedef struct BgL_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_bglt;

typedef struct BgL_castz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_castz00_bglt;

typedef struct BgL_setqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_setqz00_bglt;

typedef struct BgL_conditionalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   struct BgL_nodez00_bgl * BgL_truez00;
   struct BgL_nodez00_bgl * BgL_falsez00;
} *BgL_conditionalz00_bglt;

typedef struct BgL_failz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_procz00;
   struct BgL_nodez00_bgl * BgL_msgz00;
   struct BgL_nodez00_bgl * BgL_objz00;
} *BgL_failz00_bglt;

typedef struct BgL_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_bglt;

typedef struct BgL_letzd2funzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_localsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_letzd2funzd2_bglt;

typedef struct BgL_letzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_bindingsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
   bool_t BgL_removablezf3zf3;
} *BgL_letzd2varzd2_bglt;

typedef struct BgL_setzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_setzd2exzd2itz00_bglt;

typedef struct BgL_jumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_exitz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_jumpzd2exzd2itz00_bglt;

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_makezd2boxzd2_bglt;

typedef struct BgL_boxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *BgL_boxzd2refzd2_bglt;

typedef struct BgL_boxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_boxzd2setz12zc0_bglt;

typedef struct BgL_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;

typedef struct BgL_tclassz00_bgl {
   obj_t BgL_itszd2superzd2;
   obj_t BgL_slotsz00;
   struct BgL_globalz00_bgl * BgL_holderz00;
   obj_t BgL_wideningz00;
   long BgL_depthz00;
   bool_t BgL_finalzf3zf3;
   obj_t BgL_constructorz00;
   obj_t BgL_virtualzd2slotszd2numberz00;
   bool_t BgL_abstractzf3zf3;
   obj_t BgL_widezd2typezd2;
} *BgL_tclassz00_bglt;

typedef struct BgL_jclassz00_bgl {
   obj_t BgL_itszd2superzd2;
   obj_t BgL_slotsz00;
   obj_t BgL_packagez00;
} *BgL_jclassz00_bglt;

typedef struct BgL_wclassz00_bgl {
   obj_t BgL_itszd2classzd2;
} *BgL_wclassz00_bglt;


extern obj_t BGl_za2charza2z00zztype_cachez00;
static obj_t BGl_methodzd2initzd2zzbdb_emitz00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_za2srczd2filesza2zd2zzengine_paramz00;
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_bdbz12zd2fail3020zc0zzbdb_emitz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_bdbz12zd2extern3012zc0zzbdb_emitz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl__bdbz12zd2default3007zc0zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_svarz00zzast_varz00;
extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
static obj_t BGl_bdbz12zd2boxzd2setz123034z00zzbdb_emitz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza33197ze3z83zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
BGL_IMPORT obj_t bigloo_module_mangle(obj_t, obj_t);
static obj_t BGl_bdbz12zd2app3040zc0zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
static obj_t BGl_bdbza2z12zb0zzbdb_emitz00(obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_enterzd2functionzd2zztools_errorz00(obj_t);
static obj_t BGl_bdbz12zd2setzd2exzd2it3028zc0zzbdb_emitz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzbdb_emitz00();
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
extern obj_t BGl_leavezd2functionzd2zztools_errorz00();
extern obj_t BGl_za2modulezd2clauseza2zd2zzmodule_modulez00;
static obj_t BGl_bdbzd2emitzd2localzd2infoz12zc0zzbdb_emitz00(obj_t);
static obj_t BGl_bdbz12zd2makezd2box3032z12zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_unitzd2initializa7erzd2idza7zzast_unitz00(obj_t);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzbdb_emitz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_bdbz12zd2cast3014zc0zzbdb_emitz00(obj_t, obj_t);
static obj_t BGl_bdbz12zd2funcall3038zc0zzbdb_emitz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_bdbz12zd2conditional3018zc0zzbdb_emitz00(obj_t, obj_t);
static obj_t BGl_bdbzd2globalzd2svarz12z12zzbdb_emitz00(obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static bool_t BGl_bdbzd2localzd2variablezf3zf3zzbdb_emitz00(obj_t);
extern obj_t BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(obj_t);
static obj_t BGl_toplevelzd2initzd2zzbdb_emitz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzbdb_emitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_unitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_includez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_configurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_classz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_c_prototypez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
static obj_t BGl_bdbz12zd2letzd2fun3024z12zzbdb_emitz00(obj_t, obj_t);
static obj_t BGl_bdbz12zd2select3022zc0zzbdb_emitz00(obj_t, obj_t);
static obj_t BGl_bdbz12z12zzbdb_emitz00(BgL_nodez00_bglt);
extern obj_t BGl_za2longza2z00zztype_cachez00;
static obj_t BGl_bdbz12zd2letzd2var3026z12zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_za2intza2z00zztype_cachez00;
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_bdbzd2globalzd2sfunz12z12zzbdb_emitz00(obj_t);
extern obj_t BGl_za2boolza2z00zztype_cachez00;
static obj_t BGl_za2czd2portza2zd2zzbdb_emitz00 = BUNSPEC;
static obj_t BGl_bdbz12zd2setq3016zc0zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_getzd2toplevelzd2unitz00zzmodule_includez00();
extern obj_t BGl_forzd2eachzd2globalz12z12zzast_envz00(obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_bdbz12zd2sequence3010zc0zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_bdbzd2sfunz12zc0zzbdb_emitz00(BgL_valuez00_bglt);
static obj_t BGl__emitzd2bdbzd2info4042z00zzbdb_emitz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
extern obj_t BGl_za2stringza2z00zztype_cachez00;
static obj_t BGl_bdbz12zd2jumpzd2exzd2it3030zc0zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
static obj_t BGl__bdbz124044z12zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_emitzd2bdbzd2classzd2typeszd2zzobject_classz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzbdb_emitz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_emitzd2bdbzd2infoz00zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_za2realza2z00zztype_cachez00;
static obj_t BGl_libraryzd2moduleszd2initz00zzbdb_emitz00();
static obj_t BGl_bdbz12zd2appzd2ly3036z12zzbdb_emitz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 6 ] ;


DEFINE_STATIC_PROCEDURE( BGl_bdbz12zd2default3007zd2envz12zzbdb_emitz00, BgL_bgl__bdbza712za7d2default3007za7c0za7za7bdb_emitza7004532z00, BGl__bdbz12zd2default3007zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_bgl__bdbza7124044za712za7za7bdb_emitza7004533za7, BGl__bdbz124044z12zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4476z00zzbdb_emitz00, BgL_bgl_za7c3anonymousza7a33197za7e3za783za7za7bdb_emitza7004534za7, BGl_zc3anonymousza33197ze3z83zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4486z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2sequence3010za7c0za7za7bdb_emitza7004535z00, BGl_bdbz12zd2sequence3010zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4487z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2extern3012za7c0za7za7bdb_emitza7004536z00, BGl_bdbz12zd2extern3012zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4488z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2cast3014za7c0za7za7bdb_emitza7004537z00, BGl_bdbz12zd2cast3014zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4500z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2funcall3038za7c0za7za7bdb_emitza7004538z00, BGl_bdbz12zd2funcall3038zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4490z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2conditional3018za7c0za7za7bdb_emitza7004539z00, BGl_bdbz12zd2conditional3018zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4489z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2setq3016za7c0za7za7bdb_emitza7004540z00, BGl_bdbz12zd2setq3016zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4501z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2app3040za7c0za7za7bdb_emitza7004541z00, BGl_bdbz12zd2app3040zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4491z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2fail3020za7c0za7za7bdb_emitza7004542z00, BGl_bdbz12zd2fail3020zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4492z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2select3022za7c0za7za7bdb_emitza7004543z00, BGl_bdbz12zd2select3022zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4493z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2letza7d2fun3024za712za7za7bdb_emitza7004544za7, BGl_bdbz12zd2letzd2fun3024z12zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4494z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2letza7d2var3026za712za7za7bdb_emitza7004545za7, BGl_bdbz12zd2letzd2var3026z12zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4495z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2setza7d2exza7d2it3028za7c0za7za7bdb_emitza7004546z00, BGl_bdbz12zd2setzd2exzd2it3028zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4496z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2jumpza7d2exza7d2it3030za7c0za7za7bdb_emitza7004547z00, BGl_bdbz12zd2jumpzd2exzd2it3030zc0zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4497z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2makeza7d2box3032za712za7za7bdb_emitza7004548za7, BGl_bdbz12zd2makezd2box3032z12zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4498z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2boxza7d2setza7123034za700za7za7bdb_emitza7004549z00, BGl_bdbz12zd2boxzd2setz123034z00zzbdb_emitz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4499z00zzbdb_emitz00, BgL_bgl_bdbza712za7d2appza7d2ly3036za712za7za7bdb_emitza7004550za7, BGl_bdbz12zd2appzd2ly3036z12zzbdb_emitz00, 0L, 1 );
DEFINE_STRING( BGl_string4502z00zzbdb_emitz00, BgL_bgl_string4502za700za7za7bdb_emitza7004551z00, "done bigloo @ TOPLEVEL-INIT export location ", 44 );
DEFINE_STRING( BGl_string4485z00zzbdb_emitz00, BgL_bgl_string4485za700za7za7bdb_emitza7004552z00, "     {\"", 7 );
DEFINE_STRING( BGl_string4484z00zzbdb_emitz00, BgL_bgl_string4484za700za7za7bdb_emitza7004553z00, "     {0, 0},", 12 );
DEFINE_STRING( BGl_string4483z00zzbdb_emitz00, BgL_bgl_string4483za700za7za7bdb_emitza7004554z00, "\"},", 3 );
DEFINE_STRING( BGl_string4482z00zzbdb_emitz00, BgL_bgl_string4482za700za7za7bdb_emitza7004555z00, ", \"", 3 );
DEFINE_STRING( BGl_string4481z00zzbdb_emitz00, BgL_bgl_string4481za700za7za7bdb_emitza7004556z00, "   {", 4 );
DEFINE_STRING( BGl_string4480z00zzbdb_emitz00, BgL_bgl_string4480za700za7za7bdb_emitza7004557z00, "\", 0},", 6 );
DEFINE_STRING( BGl_string4479z00zzbdb_emitz00, BgL_bgl_string4479za700za7za7bdb_emitza7004558z00, "\", (char *)", 11 );
DEFINE_STRING( BGl_string4478z00zzbdb_emitz00, BgL_bgl_string4478za700za7za7bdb_emitza7004559z00, "   0};\n", 7 );
DEFINE_STRING( BGl_string4477z00zzbdb_emitz00, BgL_bgl_string4477za700za7za7bdb_emitza7004560z00, "   {0, 0},", 10 );
DEFINE_STRING( BGl_string4475z00zzbdb_emitz00, BgL_bgl_string4475za700za7za7bdb_emitza7004561z00, "   /* Global variables */", 25 );
DEFINE_STRING( BGl_string4474z00zzbdb_emitz00, BgL_bgl_string4474za700za7za7bdb_emitza7004562z00, "   /* Global functions */", 25 );
DEFINE_STRING( BGl_string4473z00zzbdb_emitz00, BgL_bgl_string4473za700za7za7bdb_emitza7004563z00, " },", 3 );
DEFINE_STRING( BGl_string4472z00zzbdb_emitz00, BgL_bgl_string4472za700za7za7bdb_emitza7004564z00, "0", 1 );
DEFINE_STRING( BGl_string4471z00zzbdb_emitz00, BgL_bgl_string4471za700za7za7bdb_emitza7004565z00, "   { 0, (char *)", 16 );
DEFINE_STRING( BGl_string4470z00zzbdb_emitz00, BgL_bgl_string4470za700za7za7bdb_emitza7004566z00, "\", 0 },", 7 );
DEFINE_STRING( BGl_string4469z00zzbdb_emitz00, BgL_bgl_string4469za700za7za7bdb_emitza7004567z00, "\" },", 4 );
DEFINE_STRING( BGl_string4468z00zzbdb_emitz00, BgL_bgl_string4468za700za7za7bdb_emitza7004568z00, "\", \"", 4 );
DEFINE_STRING( BGl_string4467z00zzbdb_emitz00, BgL_bgl_string4467za700za7za7bdb_emitza7004569z00, "   {\"", 5 );
DEFINE_STRING( BGl_string4466z00zzbdb_emitz00, BgL_bgl_string4466za700za7za7bdb_emitza7004570z00, "   /* Module and source file identification */", 46 );
DEFINE_STRING( BGl_string4465z00zzbdb_emitz00, BgL_bgl_string4465za700za7za7bdb_emitza7004571z00, "},", 2 );
DEFINE_STRING( BGl_string4464z00zzbdb_emitz00, BgL_bgl_string4464za700za7za7bdb_emitza7004572z00, ", (char *)", 10 );
DEFINE_STRING( BGl_string4463z00zzbdb_emitz00, BgL_bgl_string4463za700za7za7bdb_emitza7004573z00, "   {(char *)", 12 );
DEFINE_STRING( BGl_string4462z00zzbdb_emitz00, BgL_bgl_string4462za700za7za7bdb_emitza7004574z00, "   /* Magic number to ensure comp/dbg compatibility */", 54 );
DEFINE_STRING( BGl_string4461z00zzbdb_emitz00, BgL_bgl_string4461za700za7za7bdb_emitza7004575z00, "[] = { ", 7 );
DEFINE_STRING( BGl_string4460z00zzbdb_emitz00, BgL_bgl_string4460za700za7za7bdb_emitza7004576z00, "__bdb_info", 10 );
DEFINE_STRING( BGl_string4459z00zzbdb_emitz00, BgL_bgl_string4459za700za7za7bdb_emitza7004577z00, "} ", 2 );
DEFINE_STRING( BGl_string4458z00zzbdb_emitz00, BgL_bgl_string4458za700za7za7bdb_emitza7004578z00, "   char *sname, *cname;\n", 24 );
DEFINE_STRING( BGl_string4457z00zzbdb_emitz00, BgL_bgl_string4457za700za7za7bdb_emitza7004579z00, "static struct bdb_fun_info {\n", 29 );
DEFINE_STRING( BGl_string4456z00zzbdb_emitz00, BgL_bgl_string4456za700za7za7bdb_emitza7004580z00, "/* bdb association table */", 27 );
DEFINE_EXPORT_PROCEDURE( BGl_emitzd2bdbzd2infozd2envzd2zzbdb_emitz00, BgL_bgl__emitza7d2bdbza7d2info4042za700za7za7bdb_emitza7004581z00, BGl__emitzd2bdbzd2info4042z00zzbdb_emitz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzbdb_emitz00(long BgL_checksumz00_2324, char * BgL_fromz00_2325)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzbdb_emitz00))
{ 
BGl_requirezd2initializa7ationz75zzbdb_emitz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzbdb_emitz00(); 
BGl_cnstzd2initzd2zzbdb_emitz00(); 
BGl_importedzd2moduleszd2initz00zzbdb_emitz00(); 
BGl_methodzd2initzd2zzbdb_emitz00(); 
BGl_toplevelzd2initzd2zzbdb_emitz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzbdb_emitz00()
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)0), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "bdb_emit"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzbdb_emitz00()
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 15 */
{ /* ./Bdb/emit.scm 15 */
obj_t BgL_cportz00_2315;
BgL_cportz00_2315 = 
open_input_string(BGl_string4502z00zzbdb_emitz00); 
{ 
long BgL_iz00_2316;
BgL_iz00_2316 = ((long)5); 
BgL_loopz00_2317:
{ /* ./Bdb/emit.scm 15 */
bool_t BgL_test4504z00_2318;
BgL_test4504z00_2318 = 
(BgL_iz00_2316==((long)-1)); 
if(BgL_test4504z00_2318)
{ /* ./Bdb/emit.scm 15 */
return BUNSPEC;}  else 
{ /* ./Bdb/emit.scm 15 */
{ /* ./Bdb/emit.scm 15 */
obj_t BgL_arg4506z00_2319;
{ /* ./Bdb/emit.scm 15 */
obj_t BgL_list4509z00_2320;
BgL_list4509z00_2320 = 
MAKE_PAIR(BgL_cportz00_2315, BNIL); 
BgL_arg4506z00_2319 = 
BGl_readz00zz__readerz00(BgL_list4509z00_2320); } 
{ /* ./Bdb/emit.scm 15 */
int BgL_auxz00_2344;
BgL_auxz00_2344 = 
(int)(BgL_iz00_2316); 
CNST_TABLE_SET(BgL_auxz00_2344, BgL_arg4506z00_2319); } } 
{ /* ./Bdb/emit.scm 15 */
int BgL_auxz00_2321;
{ /* ./Bdb/emit.scm 15 */
long BgL_auxz00_2347;
BgL_auxz00_2347 = 
(BgL_iz00_2316-((long)1)); 
BgL_auxz00_2321 = 
(int)(BgL_auxz00_2347); } 
{ 
long BgL_iz00_2350;
BgL_iz00_2350 = 
(long)(BgL_auxz00_2321); 
BgL_iz00_2316 = BgL_iz00_2350; 
goto BgL_loopz00_2317;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzbdb_emitz00()
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 15 */
BGl_za2czd2portza2zd2zzbdb_emitz00 = BUNSPEC; 
return BUNSPEC;} 
}



/* emit-bdb-info */
BGL_EXPORTED_DEF obj_t BGl_emitzd2bdbzd2infoz00zzbdb_emitz00(obj_t BgL_globalsz00_33, obj_t BgL_portz00_34)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 40 */
BGl_za2czd2portza2zd2zzbdb_emitz00 = BgL_portz00_34; 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
display_string(BGl_string4456z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
display_string(BGl_string4457z00zzbdb_emitz00, BgL_portz00_34); 
display_string(BGl_string4458z00zzbdb_emitz00, BgL_portz00_34); 
display_string(BGl_string4459z00zzbdb_emitz00, BgL_portz00_34); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_string4460z00zzbdb_emitz00, BgL_portz00_34); 
display_string(BGl_string4461z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
display_string(BGl_string4462z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
display_string(BGl_string4463z00zzbdb_emitz00, BgL_portz00_34); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
BINT(BDB_LIBRARY_MAGIC_NUMBER), BgL_portz00_34); 
display_string(BGl_string4464z00zzbdb_emitz00, BgL_portz00_34); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
BINT(BDB_LIBRARY_MAGIC_NUMBER), BgL_portz00_34); 
display_string(BGl_string4465z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
display_string(BGl_string4466z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
display_string(BGl_string4467z00zzbdb_emitz00, BgL_portz00_34); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2moduleza2z00zzmodule_modulez00, BgL_portz00_34); 
display_string(BGl_string4468z00zzbdb_emitz00, BgL_portz00_34); 
{ /* ./Bdb/emit.scm 63 */
obj_t BgL_arg3135z00_803;
{ /* ./Bdb/emit.scm 63 */
obj_t BgL_arg3138z00_804;obj_t BgL_arg3139z00_805;
{ /* ./Bdb/emit.scm 63 */
obj_t BgL_arg3142z00_806;
{ /* ./Bdb/emit.scm 63 */
obj_t BgL_arg3145z00_807;
{ /* ./Bdb/emit.scm 63 */
obj_t BgL_arg3148z00_808;
BgL_arg3148z00_808 = 
BGl_getzd2toplevelzd2unitz00zzmodule_includez00(); 
{ /* ./Bdb/emit.scm 63 */
int BgL_auxz00_2378;
BgL_auxz00_2378 = 
(int)(((long)0)); 
BgL_arg3145z00_807 = 
STRUCT_REF(BgL_arg3148z00_808, BgL_auxz00_2378); } } 
BgL_arg3142z00_806 = 
BGl_unitzd2initializa7erzd2idza7zzast_unitz00(BgL_arg3145z00_807); } 
BgL_arg3138z00_804 = 
SYMBOL_TO_STRING(BgL_arg3142z00_806); } 
{ /* ./Bdb/emit.scm 64 */
obj_t BgL_symbolz00_1479;
BgL_symbolz00_1479 = BGl_za2moduleza2z00zzmodule_modulez00; 
BgL_arg3139z00_805 = 
SYMBOL_TO_STRING(BgL_symbolz00_1479); } 
BgL_arg3135z00_803 = 
bigloo_module_mangle(BgL_arg3138z00_804, BgL_arg3139z00_805); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3135z00_803, BgL_portz00_34); } 
display_string(BGl_string4469z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
{ 
obj_t BgL_l2939z00_809;
BgL_l2939z00_809 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
BgL_forzd2each2940zd2_810:
{ /* ./Bdb/emit.scm 66 */
bool_t BgL_test3155z00_811;
BgL_test3155z00_811 = 
PAIRP(BgL_l2939z00_809); 
if(BgL_test3155z00_811)
{ /* ./Bdb/emit.scm 66 */
{ /* ./Bdb/emit.scm 67 */
obj_t BgL_srcz00_812;
BgL_srcz00_812 = 
CAR(BgL_l2939z00_809); 
display_string(BGl_string4467z00zzbdb_emitz00, BgL_portz00_34); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_srcz00_812, BgL_portz00_34); 
display_string(BGl_string4470z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); } 
{ /* ./Bdb/emit.scm 66 */
obj_t BgL_arg3162z00_814;
BgL_arg3162z00_814 = 
CDR(BgL_l2939z00_809); 
{ 
obj_t BgL_l2939z00_2396;
BgL_l2939z00_2396 = BgL_arg3162z00_814; 
BgL_l2939z00_809 = BgL_l2939z00_2396; 
goto BgL_forzd2each2940zd2_810;} } }  else 
{ /* ./Bdb/emit.scm 66 */((bool_t)1); } } } 
display_string(BGl_string4471z00zzbdb_emitz00, BgL_portz00_34); 
{ /* ./Bdb/emit.scm 71 */
obj_t BgL_arg3168z00_816;
{ /* ./Bdb/emit.scm 71 */
obj_t BgL_locz00_817;
BgL_locz00_817 = 
BGl_findzd2locationzd2zztools_locationz00(BGl_za2modulezd2clauseza2zd2zzmodule_modulez00); 
{ /* ./Bdb/emit.scm 72 */
bool_t BgL_testz00_2399;
if(
STRUCTP(BgL_locz00_817))
{ /* ./Bdb/emit.scm 72 */
obj_t BgL_auxz00_2404;obj_t BgL_auxz00_2402;
BgL_auxz00_2404 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_2402 = 
STRUCT_KEY(BgL_locz00_817); 
BgL_testz00_2399 = 
(BgL_auxz00_2402==BgL_auxz00_2404); }  else 
{ /* ./Bdb/emit.scm 72 */
BgL_testz00_2399 = ((bool_t)0)
; } 
if(BgL_testz00_2399)
{ /* ./Bdb/emit.scm 73 */
int BgL_auxz00_2407;
BgL_auxz00_2407 = 
(int)(((long)2)); 
BgL_arg3168z00_816 = 
STRUCT_REF(BgL_locz00_817, BgL_auxz00_2407); }  else 
{ /* ./Bdb/emit.scm 72 */
BgL_arg3168z00_816 = BGl_string4472z00zzbdb_emitz00; } } } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3168z00_816, BgL_portz00_34); } 
display_string(BGl_string4473z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
display_string(BGl_string4474z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
{ 
obj_t BgL_l2944z00_820;
BgL_l2944z00_820 = BgL_globalsz00_33; 
BgL_forzd2each2945zd2_821:
{ /* ./Bdb/emit.scm 78 */
bool_t BgL_test3179z00_822;
BgL_test3179z00_822 = 
PAIRP(BgL_l2944z00_820); 
if(BgL_test3179z00_822)
{ /* ./Bdb/emit.scm 78 */
{ /* ./Bdb/emit.scm 79 */
obj_t BgL_globalz00_823;
BgL_globalz00_823 = 
CAR(BgL_l2944z00_820); 
{ /* ./Bdb/emit.scm 79 */
obj_t BgL_arg3181z00_824;
{ /* ./Bdb/emit.scm 79 */
BgL_variablez00_bglt BgL_obj1093z00_1499;
BgL_obj1093z00_1499 = 
(BgL_variablez00_bglt)(BgL_globalz00_823); 
BgL_arg3181z00_824 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1499))->BgL_idz00); } 
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3181z00_824); } 
BGl_bdbzd2globalzd2sfunz12z12zzbdb_emitz00(BgL_globalz00_823); 
BGl_leavezd2functionzd2zztools_errorz00(); } 
{ /* ./Bdb/emit.scm 78 */
obj_t BgL_arg3188z00_825;
BgL_arg3188z00_825 = 
CDR(BgL_l2944z00_820); 
{ 
obj_t BgL_l2944z00_2424;
BgL_l2944z00_2424 = BgL_arg3188z00_825; 
BgL_l2944z00_820 = BgL_l2944z00_2424; 
goto BgL_forzd2each2945zd2_821;} } }  else 
{ /* ./Bdb/emit.scm 78 */((bool_t)1); } } } 
display_string(BGl_string4475z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
BGl_forzd2eachzd2globalz12z12zzast_envz00(BGl_proc4476z00zzbdb_emitz00); 
display_string(BGl_string4477z00zzbdb_emitz00, BgL_portz00_34); 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34); 
BGl_emitzd2bdbzd2classzd2typeszd2zzobject_classz00(BgL_portz00_34); 
display_string(BGl_string4478z00zzbdb_emitz00, BgL_portz00_34); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_34);} 
}



/* _emit-bdb-info4042 */
obj_t BGl__emitzd2bdbzd2info4042z00zzbdb_emitz00(obj_t BgL_envz00_2256, obj_t BgL_globalsz00_2257, obj_t BgL_portz00_2258)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 40 */
return 
BGl_emitzd2bdbzd2infoz00zzbdb_emitz00(BgL_globalsz00_2257, BgL_portz00_2258);} 
}



/* <anonymous:3197> */
obj_t BGl_zc3anonymousza33197ze3z83zzbdb_emitz00(obj_t BgL_envz00_2259, obj_t BgL_globalz00_2260)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 85 */
{ 
obj_t BgL_globalz00_828;
BgL_globalz00_828 = BgL_globalz00_2260; 
{ /* ./Bdb/emit.scm 86 */
bool_t BgL_test3198z00_830;
{ /* ./Bdb/emit.scm 86 */
bool_t BgL_test3200z00_831;
{ /* ./Bdb/emit.scm 86 */
bool_t BgL_test3205z00_833;
{ /* ./Bdb/emit.scm 86 */
bool_t BgL_test3211z00_836;
{ /* ./Bdb/emit.scm 86 */
obj_t BgL_arg3218z00_839;
{ /* ./Bdb/emit.scm 86 */
BgL_globalz00_bglt BgL_obj1165z00_1502;
BgL_obj1165z00_1502 = 
(BgL_globalz00_bglt)(BgL_globalz00_828); 
BgL_arg3218z00_839 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1165z00_1502))->BgL_modulez00); } 
BgL_test3211z00_836 = 
(BgL_arg3218z00_839==BGl_za2moduleza2z00zzmodule_modulez00); } 
if(BgL_test3211z00_836)
{ /* ./Bdb/emit.scm 87 */
obj_t BgL_auxz00_2441;obj_t BgL_auxz00_2438;
BgL_auxz00_2441 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Bdb/emit.scm 87 */
BgL_globalz00_bglt BgL_obj1168z00_1503;
BgL_obj1168z00_1503 = 
(BgL_globalz00_bglt)(BgL_globalz00_828); 
BgL_auxz00_2438 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1168z00_1503))->BgL_importz00); } 
BgL_test3205z00_833 = 
(BgL_auxz00_2438==BgL_auxz00_2441); }  else 
{ /* ./Bdb/emit.scm 86 */
BgL_test3205z00_833 = ((bool_t)0); } } 
if(BgL_test3205z00_833)
{ /* ./Bdb/emit.scm 86 */
BgL_test3200z00_831 = ((bool_t)1); }  else 
{ /* ./Bdb/emit.scm 88 */
long BgL_auxz00_2445;
{ /* ./Bdb/emit.scm 88 */
BgL_variablez00_bglt BgL_obj1112z00_1504;
BgL_obj1112z00_1504 = 
(BgL_variablez00_bglt)(BgL_globalz00_828); 
BgL_auxz00_2445 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1112z00_1504))->BgL_occurrencez00); } 
BgL_test3200z00_831 = 
(BgL_auxz00_2445>((long)0)); } } 
if(BgL_test3200z00_831)
{ /* ./Bdb/emit.scm 89 */
BgL_valuez00_bglt BgL_arg3202z00_832;
{ /* ./Bdb/emit.scm 89 */
BgL_variablez00_bglt BgL_obj1100z00_1507;
BgL_obj1100z00_1507 = 
(BgL_variablez00_bglt)(BgL_globalz00_828); 
BgL_arg3202z00_832 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1507))->BgL_valuez00); } 
{ /* ./Bdb/emit.scm 89 */
obj_t BgL_obj1499z00_1508;
BgL_obj1499z00_1508 = 
(obj_t)(BgL_arg3202z00_832); 
BgL_test3198z00_830 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1499z00_1508, BGl_svarz00zzast_varz00); } }  else 
{ /* ./Bdb/emit.scm 86 */
BgL_test3198z00_830 = ((bool_t)0); } } 
if(BgL_test3198z00_830)
{ /* ./Bdb/emit.scm 86 */
return 
BGl_bdbzd2globalzd2svarz12z12zzbdb_emitz00(BgL_globalz00_828);}  else 
{ /* ./Bdb/emit.scm 86 */
return BFALSE;} } } } 
}



/* bdb-global-sfun! */
obj_t BGl_bdbzd2globalzd2sfunz12z12zzbdb_emitz00(obj_t BgL_globalz00_35)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 99 */
{ /* ./Bdb/emit.scm 100 */
BgL_valuez00_bglt BgL_sfunz00_843;
{ /* ./Bdb/emit.scm 100 */
BgL_variablez00_bglt BgL_obj1100z00_1511;
BgL_obj1100z00_1511 = 
(BgL_variablez00_bglt)(BgL_globalz00_35); 
BgL_sfunz00_843 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1511))->BgL_valuez00); } 
{ /* ./Bdb/emit.scm 100 */
obj_t BgL_sfunzd2loczd2_844;
{ /* ./Bdb/emit.scm 101 */
BgL_sfunz00_bglt BgL_obj1380z00_1512;
BgL_obj1380z00_1512 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_843); 
BgL_sfunzd2loczd2_844 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1380z00_1512))->BgL_locz00); } 
{ /* ./Bdb/emit.scm 101 */
obj_t BgL_cloz00_845;
{ /* ./Bdb/emit.scm 102 */
BgL_funz00_bglt BgL_obj1314z00_1513;
BgL_obj1314z00_1513 = 
(BgL_funz00_bglt)(BgL_sfunz00_843); 
BgL_cloz00_845 = 
(((BgL_funz00_bglt)CREF(BgL_obj1314z00_1513))->BgL_thezd2closurezd2); } 
{ /* ./Bdb/emit.scm 102 */

{ /* ./Bdb/emit.scm 103 */
bool_t BgL_test3226z00_846;
{ /* ./Bdb/emit.scm 103 */
bool_t BgL_testz00_2462;
if(
STRUCTP(BgL_sfunzd2loczd2_844))
{ /* ./Bdb/emit.scm 103 */
obj_t BgL_auxz00_2467;obj_t BgL_auxz00_2465;
BgL_auxz00_2467 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_2465 = 
STRUCT_KEY(BgL_sfunzd2loczd2_844); 
BgL_testz00_2462 = 
(BgL_auxz00_2465==BgL_auxz00_2467); }  else 
{ /* ./Bdb/emit.scm 103 */
BgL_testz00_2462 = ((bool_t)0)
; } 
if(BgL_testz00_2462)
{ /* ./Bdb/emit.scm 104 */
BgL_globalz00_bglt BgL_obj1177z00_1521;
BgL_obj1177z00_1521 = 
(BgL_globalz00_bglt)(BgL_globalz00_35); 
BgL_test3226z00_846 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1177z00_1521))->BgL_userzf3zf3); }  else 
{ /* ./Bdb/emit.scm 103 */
BgL_test3226z00_846 = ((bool_t)0); } } 
if(BgL_test3226z00_846)
{ /* ./Bdb/emit.scm 103 */
BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(BgL_globalz00_35); 
{ /* ./Bdb/emit.scm 107 */
obj_t BgL_fnamez00_847;obj_t BgL_lnumz00_848;obj_t BgL_idz00_849;obj_t BgL_valzd2namezd2_850;obj_t BgL_bpzd2namezd2_851;
{ /* ./Bdb/emit.scm 107 */
int BgL_auxz00_2474;
BgL_auxz00_2474 = 
(int)(((long)0)); 
BgL_fnamez00_847 = 
STRUCT_REF(BgL_sfunzd2loczd2_844, BgL_auxz00_2474); } 
{ /* ./Bdb/emit.scm 108 */
int BgL_auxz00_2477;
BgL_auxz00_2477 = 
(int)(((long)2)); 
BgL_lnumz00_848 = 
STRUCT_REF(BgL_sfunzd2loczd2_844, BgL_auxz00_2477); } 
{ /* ./Bdb/emit.scm 109 */
obj_t BgL_idz00_858;
{ /* ./Bdb/emit.scm 109 */
BgL_variablez00_bglt BgL_obj1093z00_1528;
BgL_obj1093z00_1528 = 
(BgL_variablez00_bglt)(BgL_globalz00_35); 
BgL_idz00_858 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1528))->BgL_idz00); } 
{ /* ./Bdb/emit.scm 110 */
bool_t BgL_test3257z00_859;
{ /* ./Bdb/emit.scm 110 */
obj_t BgL_auxz00_2482;
BgL_auxz00_2482 = 
CNST_TABLE_REF(((long)2)); 
BgL_test3257z00_859 = 
(BgL_idz00_858==BgL_auxz00_2482); } 
if(BgL_test3257z00_859)
{ /* ./Bdb/emit.scm 111 */
obj_t BgL_arg3259z00_860;obj_t BgL_arg3260z00_861;
BgL_arg3259z00_860 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Bdb/emit.scm 111 */
BgL_globalz00_bglt BgL_obj1165z00_1529;
BgL_obj1165z00_1529 = 
(BgL_globalz00_bglt)(BgL_globalz00_35); 
BgL_arg3260z00_861 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1165z00_1529))->BgL_modulez00); } 
{ /* ./Bdb/emit.scm 111 */
obj_t BgL_list3262z00_862;
{ /* ./Bdb/emit.scm 111 */
obj_t BgL_arg3264z00_863;
BgL_arg3264z00_863 = 
MAKE_PAIR(BgL_arg3260z00_861, BNIL); 
BgL_list3262z00_862 = 
MAKE_PAIR(BgL_arg3259z00_860, BgL_arg3264z00_863); } 
BgL_idz00_849 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3262z00_862); } }  else 
{ /* ./Bdb/emit.scm 110 */
BgL_idz00_849 = BgL_idz00_858; } } } 
{ /* ./Bdb/emit.scm 113 */
bool_t BgL_test3270z00_864;
BgL_test3270z00_864 = 
BGl_iszd2azf3z21zz__objectz00(BgL_cloz00_845, BGl_globalz00zzast_varz00); 
if(BgL_test3270z00_864)
{ /* ./Bdb/emit.scm 114 */
BgL_variablez00_bglt BgL_obj1094z00_1531;
BgL_obj1094z00_1531 = 
(BgL_variablez00_bglt)(BgL_cloz00_845); 
BgL_valzd2namezd2_850 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1531))->BgL_namez00); }  else 
{ /* ./Bdb/emit.scm 113 */
BgL_valzd2namezd2_850 = 
BINT(((long)0)); } } 
{ /* ./Bdb/emit.scm 116 */
BgL_variablez00_bglt BgL_obj1094z00_1532;
BgL_obj1094z00_1532 = 
(BgL_variablez00_bglt)(BgL_globalz00_35); 
BgL_bpzd2namezd2_851 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1532))->BgL_namez00); } 
{ /* ./Bdb/emit.scm 117 */
obj_t BgL_port2949z00_852;
BgL_port2949z00_852 = BGl_za2czd2portza2zd2zzbdb_emitz00; 
display_string(BGl_string4467z00zzbdb_emitz00, BgL_port2949z00_852); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_fnamez00_847, BgL_port2949z00_852); 
display_string(BGl_string4479z00zzbdb_emitz00, BgL_port2949z00_852); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_lnumz00_848, BgL_port2949z00_852); 
display_string(BGl_string4473z00zzbdb_emitz00, BgL_port2949z00_852); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2949z00_852); } 
{ /* ./Bdb/emit.scm 118 */
obj_t BgL_port2950z00_853;
BgL_port2950z00_853 = BGl_za2czd2portza2zd2zzbdb_emitz00; 
display_string(BGl_string4467z00zzbdb_emitz00, BgL_port2950z00_853); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_idz00_849, BgL_port2950z00_853); 
display_string(BGl_string4480z00zzbdb_emitz00, BgL_port2950z00_853); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2950z00_853); } 
{ /* ./Bdb/emit.scm 119 */
bool_t BgL_test3238z00_854;
if(
INTEGERP(BgL_valzd2namezd2_850))
{ /* ./Bdb/emit.scm 119 */
BgL_test3238z00_854 = ((bool_t)1); }  else 
{ /* ./Bdb/emit.scm 119 */
BgL_test3238z00_854 = 
REALP(BgL_valzd2namezd2_850); } 
if(BgL_test3238z00_854)
{ /* ./Bdb/emit.scm 121 */
obj_t BgL_port2952z00_855;
BgL_port2952z00_855 = BGl_za2czd2portza2zd2zzbdb_emitz00; 
display_string(BGl_string4481z00zzbdb_emitz00, BgL_port2952z00_855); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_valzd2namezd2_850, BgL_port2952z00_855); 
display_string(BGl_string4482z00zzbdb_emitz00, BgL_port2952z00_855); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_bpzd2namezd2_851, BgL_port2952z00_855); 
display_string(BGl_string4483z00zzbdb_emitz00, BgL_port2952z00_855); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2952z00_855); }  else 
{ /* ./Bdb/emit.scm 120 */
obj_t BgL_port2951z00_856;
BgL_port2951z00_856 = BGl_za2czd2portza2zd2zzbdb_emitz00; 
display_string(BGl_string4467z00zzbdb_emitz00, BgL_port2951z00_856); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_valzd2namezd2_850, BgL_port2951z00_856); 
display_string(BGl_string4468z00zzbdb_emitz00, BgL_port2951z00_856); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_bpzd2namezd2_851, BgL_port2951z00_856); 
display_string(BGl_string4483z00zzbdb_emitz00, BgL_port2951z00_856); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2951z00_856); } } 
BGl_bdbzd2sfunz12zc0zzbdb_emitz00(BgL_sfunz00_843); 
{ /* ./Bdb/emit.scm 123 */
obj_t BgL_port2953z00_857;
BgL_port2953z00_857 = BGl_za2czd2portza2zd2zzbdb_emitz00; 
display_string(BGl_string4484z00zzbdb_emitz00, BgL_port2953z00_857); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2953z00_857);} } }  else 
{ /* ./Bdb/emit.scm 103 */
return BFALSE;} } } } } } } 
}



/* bdb-global-svar! */
obj_t BGl_bdbzd2globalzd2svarz12z12zzbdb_emitz00(obj_t BgL_globalz00_36)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 128 */
{ /* ./Bdb/emit.scm 129 */
BgL_valuez00_bglt BgL_svarz00_866;
{ /* ./Bdb/emit.scm 129 */
BgL_variablez00_bglt BgL_obj1100z00_1543;
BgL_obj1100z00_1543 = 
(BgL_variablez00_bglt)(BgL_globalz00_36); 
BgL_svarz00_866 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1543))->BgL_valuez00); } 
{ /* ./Bdb/emit.scm 129 */
obj_t BgL_svarzd2loczd2_867;
{ /* ./Bdb/emit.scm 130 */
BgL_svarz00_bglt BgL_obj1490z00_1544;
BgL_obj1490z00_1544 = 
(BgL_svarz00_bglt)(BgL_svarz00_866); 
BgL_svarzd2loczd2_867 = 
(((BgL_svarz00_bglt)CREF(BgL_obj1490z00_1544))->BgL_locz00); } 
{ /* ./Bdb/emit.scm 130 */

{ /* ./Bdb/emit.scm 131 */
bool_t BgL_test3280z00_868;
if(
STRUCTP(BgL_svarzd2loczd2_867))
{ /* ./Bdb/emit.scm 131 */
obj_t BgL_auxz00_2536;obj_t BgL_auxz00_2534;
BgL_auxz00_2536 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_2534 = 
STRUCT_KEY(BgL_svarzd2loczd2_867); 
BgL_test3280z00_868 = 
(BgL_auxz00_2534==BgL_auxz00_2536); }  else 
{ /* ./Bdb/emit.scm 131 */
BgL_test3280z00_868 = ((bool_t)0); } 
if(BgL_test3280z00_868)
{ /* ./Bdb/emit.scm 131 */
BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(BgL_globalz00_36); 
{ /* ./Bdb/emit.scm 134 */
obj_t BgL_fnamez00_869;obj_t BgL_lnumz00_870;obj_t BgL_idz00_871;obj_t BgL_namez00_872;
{ /* ./Bdb/emit.scm 134 */
int BgL_auxz00_2541;
BgL_auxz00_2541 = 
(int)(((long)0)); 
BgL_fnamez00_869 = 
STRUCT_REF(BgL_svarzd2loczd2_867, BgL_auxz00_2541); } 
{ /* ./Bdb/emit.scm 135 */
int BgL_auxz00_2544;
BgL_auxz00_2544 = 
(int)(((long)2)); 
BgL_lnumz00_870 = 
STRUCT_REF(BgL_svarzd2loczd2_867, BgL_auxz00_2544); } 
{ /* ./Bdb/emit.scm 136 */
BgL_variablez00_bglt BgL_obj1093z00_1558;
BgL_obj1093z00_1558 = 
(BgL_variablez00_bglt)(BgL_globalz00_36); 
BgL_idz00_871 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1558))->BgL_idz00); } 
{ /* ./Bdb/emit.scm 137 */
BgL_variablez00_bglt BgL_obj1094z00_1559;
BgL_obj1094z00_1559 = 
(BgL_variablez00_bglt)(BgL_globalz00_36); 
BgL_namez00_872 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1559))->BgL_namez00); } 
{ /* ./Bdb/emit.scm 138 */
obj_t BgL_port2954z00_873;
BgL_port2954z00_873 = BGl_za2czd2portza2zd2zzbdb_emitz00; 
display_string(BGl_string4467z00zzbdb_emitz00, BgL_port2954z00_873); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_fnamez00_869, BgL_port2954z00_873); 
display_string(BGl_string4479z00zzbdb_emitz00, BgL_port2954z00_873); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_lnumz00_870, BgL_port2954z00_873); 
display_string(BGl_string4473z00zzbdb_emitz00, BgL_port2954z00_873); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2954z00_873); } 
{ /* ./Bdb/emit.scm 139 */
obj_t BgL_port2955z00_874;
BgL_port2955z00_874 = BGl_za2czd2portza2zd2zzbdb_emitz00; 
display_string(BGl_string4467z00zzbdb_emitz00, BgL_port2955z00_874); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_idz00_871, BgL_port2955z00_874); 
display_string(BGl_string4468z00zzbdb_emitz00, BgL_port2955z00_874); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_namez00_872, BgL_port2955z00_874); 
display_string(BGl_string4483z00zzbdb_emitz00, BgL_port2955z00_874); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2955z00_874);} } }  else 
{ /* ./Bdb/emit.scm 131 */
return BFALSE;} } } } } } 
}



/* bdb-sfun! */
obj_t BGl_bdbzd2sfunz12zc0zzbdb_emitz00(BgL_valuez00_bglt BgL_sfunz00_37)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 144 */
{ 
obj_t BgL_l2958z00_876;
{ /* ./Bdb/emit.scm 146 */
obj_t BgL_arg3302z00_878;
{ /* ./Bdb/emit.scm 146 */
BgL_sfunz00_bglt BgL_obj1367z00_1562;
BgL_obj1367z00_1562 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_37); 
BgL_arg3302z00_878 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1562))->BgL_argsz00); } 
BgL_l2958z00_876 = BgL_arg3302z00_878; 
BgL_forzd2each2959zd2_877:
{ /* ./Bdb/emit.scm 146 */
bool_t BgL_test3305z00_879;
BgL_test3305z00_879 = 
PAIRP(BgL_l2958z00_876); 
if(BgL_test3305z00_879)
{ /* ./Bdb/emit.scm 146 */
{ /* ./Bdb/emit.scm 146 */
obj_t BgL_arg3307z00_880;
BgL_arg3307z00_880 = 
CAR(BgL_l2958z00_876); 
BGl_bdbzd2emitzd2localzd2infoz12zc0zzbdb_emitz00(BgL_arg3307z00_880); } 
{ /* ./Bdb/emit.scm 146 */
obj_t BgL_arg3311z00_881;
BgL_arg3311z00_881 = 
CDR(BgL_l2958z00_876); 
{ 
obj_t BgL_l2958z00_2570;
BgL_l2958z00_2570 = BgL_arg3311z00_881; 
BgL_l2958z00_876 = BgL_l2958z00_2570; 
goto BgL_forzd2each2959zd2_877;} } }  else 
{ /* ./Bdb/emit.scm 146 */((bool_t)1); } } } } 
{ /* ./Bdb/emit.scm 147 */
obj_t BgL_arg3316z00_882;
{ /* ./Bdb/emit.scm 147 */
BgL_sfunz00_bglt BgL_obj1370z00_1566;
BgL_obj1370z00_1566 = 
(BgL_sfunz00_bglt)(BgL_sfunz00_37); 
BgL_arg3316z00_882 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1566))->BgL_bodyz00); } 
{ /* ./Bdb/emit.scm 147 */
BgL_nodez00_bglt BgL_nodez00_1567;
BgL_nodez00_1567 = 
(BgL_nodez00_bglt)(BgL_arg3316z00_882); 
{ /* ./Bdb/emit.scm 147 */
obj_t BgL_method3008z00_1568;
{ /* ./Bdb/emit.scm 147 */
BgL_objectz00_bglt BgL_objz00_1569;
BgL_objz00_1569 = 
(BgL_objectz00_bglt)(BgL_nodez00_1567); 
{ /* ./Bdb/emit.scm 147 */
long BgL_objzd2classzd2numz00_1570;
BgL_objzd2classzd2numz00_1570 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1569); 
{ /* ./Bdb/emit.scm 147 */
obj_t BgL_arg2017z00_1571;
{ /* ./Bdb/emit.scm 147 */
int BgL_auxz00_2576;
BgL_auxz00_2576 = 
(int)(((long)1)); 
BgL_arg2017z00_1571 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2576); } 
{ /* ./Bdb/emit.scm 147 */
int BgL_offsetz00_1574;
BgL_offsetz00_1574 = 
(int)(BgL_objzd2classzd2numz00_1570); 
{ /* ./Bdb/emit.scm 147 */
long BgL_offsetz00_1575;
{ /* ./Bdb/emit.scm 147 */
long BgL_auxz00_2580;
BgL_auxz00_2580 = 
(long)(BgL_offsetz00_1574); 
BgL_offsetz00_1575 = 
(BgL_auxz00_2580-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 147 */
long BgL_modz00_1576;
{ /* ./Bdb/emit.scm 147 */
int BgL_arg2028z00_1577;
BgL_arg2028z00_1577 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 147 */
long BgL_n2z00_1585;
BgL_n2z00_1585 = 
(long)(BgL_arg2028z00_1577); 
BgL_modz00_1576 = 
(BgL_offsetz00_1575/BgL_n2z00_1585); } } 
{ /* ./Bdb/emit.scm 147 */
long BgL_restz00_1578;
{ /* ./Bdb/emit.scm 147 */
int BgL_arg2024z00_1579;
BgL_arg2024z00_1579 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 147 */
long BgL_n2z00_1588;
BgL_n2z00_1588 = 
(long)(BgL_arg2024z00_1579); 
BgL_restz00_1578 = 
(BgL_offsetz00_1575%BgL_n2z00_1588); } } 
{ /* ./Bdb/emit.scm 147 */

{ /* ./Bdb/emit.scm 147 */
obj_t BgL_bucketz00_1580;
{ /* ./Bdb/emit.scm 147 */
int BgL_kz00_1590;
BgL_kz00_1590 = 
(int)(BgL_modz00_1576); 
BgL_bucketz00_1580 = 
VECTOR_REF(BgL_arg2017z00_1571,BgL_kz00_1590); } 
{ /* ./Bdb/emit.scm 147 */
int BgL_kz00_1592;
BgL_kz00_1592 = 
(int)(BgL_restz00_1578); 
BgL_method3008z00_1568 = 
VECTOR_REF(BgL_bucketz00_1580,BgL_kz00_1592); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_1568)(BgL_method3008z00_1568, 
(obj_t)(BgL_nodez00_1567), BEOA);} } } } 
}



/* bdb-local-variable? */
bool_t BGl_bdbzd2localzd2variablezf3zf3zzbdb_emitz00(obj_t BgL_localz00_38)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 159 */
{ 
obj_t BgL_localz00_885;
{ /* ./Bdb/emit.scm 173 */
bool_t BgL_testz00_2596;
{ /* ./Bdb/emit.scm 173 */
BgL_localz00_bglt BgL_obj1263z00_1593;
BgL_obj1263z00_1593 = 
(BgL_localz00_bglt)(BgL_localz00_38); 
BgL_testz00_2596 = 
(((BgL_localz00_bglt)CREF(BgL_obj1263z00_1593))->BgL_userzf3zf3); } 
if(BgL_testz00_2596)
{ /* ./Bdb/emit.scm 173 */
BgL_localz00_885 = BgL_localz00_38; 
{ /* ./Bdb/emit.scm 163 */
BgL_typez00_bglt BgL_tz00_887;
{ /* ./Bdb/emit.scm 163 */
BgL_variablez00_bglt BgL_obj1097z00_1594;
BgL_obj1097z00_1594 = 
(BgL_variablez00_bglt)(BgL_localz00_885); 
BgL_tz00_887 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1594))->BgL_typez00); } 
{ /* ./Bdb/emit.scm 164 */
bool_t BgL__ortest_2960z00_888;
{ /* ./Bdb/emit.scm 164 */
obj_t BgL_auxz00_2603;obj_t BgL_auxz00_2601;
BgL_auxz00_2603 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_2601 = 
(((BgL_typez00_bglt)CREF(BgL_tz00_887))->BgL_classz00); 
BgL__ortest_2960z00_888 = 
(BgL_auxz00_2601==BgL_auxz00_2603); } 
if(BgL__ortest_2960z00_888)
{ /* ./Bdb/emit.scm 164 */
return BgL__ortest_2960z00_888;}  else 
{ /* ./Bdb/emit.scm 165 */
bool_t BgL__ortest_2961z00_889;
{ /* ./Bdb/emit.scm 165 */
obj_t BgL_auxz00_2607;
BgL_auxz00_2607 = 
(obj_t)(BgL_tz00_887); 
BgL__ortest_2961z00_889 = 
(BgL_auxz00_2607==BGl_za2intza2z00zztype_cachez00); } 
if(BgL__ortest_2961z00_889)
{ /* ./Bdb/emit.scm 165 */
return BgL__ortest_2961z00_889;}  else 
{ /* ./Bdb/emit.scm 166 */
bool_t BgL__ortest_2962z00_890;
{ /* ./Bdb/emit.scm 166 */
obj_t BgL_auxz00_2611;
BgL_auxz00_2611 = 
(obj_t)(BgL_tz00_887); 
BgL__ortest_2962z00_890 = 
(BgL_auxz00_2611==BGl_za2longza2z00zztype_cachez00); } 
if(BgL__ortest_2962z00_890)
{ /* ./Bdb/emit.scm 166 */
return BgL__ortest_2962z00_890;}  else 
{ /* ./Bdb/emit.scm 167 */
bool_t BgL__ortest_2963z00_891;
{ /* ./Bdb/emit.scm 167 */
obj_t BgL_auxz00_2615;
BgL_auxz00_2615 = 
(obj_t)(BgL_tz00_887); 
BgL__ortest_2963z00_891 = 
(BgL_auxz00_2615==BGl_za2boolza2z00zztype_cachez00); } 
if(BgL__ortest_2963z00_891)
{ /* ./Bdb/emit.scm 167 */
return BgL__ortest_2963z00_891;}  else 
{ /* ./Bdb/emit.scm 168 */
bool_t BgL__ortest_2964z00_892;
{ /* ./Bdb/emit.scm 168 */
obj_t BgL_auxz00_2619;
BgL_auxz00_2619 = 
(obj_t)(BgL_tz00_887); 
BgL__ortest_2964z00_892 = 
(BgL_auxz00_2619==BGl_za2realza2z00zztype_cachez00); } 
if(BgL__ortest_2964z00_892)
{ /* ./Bdb/emit.scm 168 */
return BgL__ortest_2964z00_892;}  else 
{ /* ./Bdb/emit.scm 169 */
bool_t BgL__ortest_2965z00_893;
{ /* ./Bdb/emit.scm 169 */
obj_t BgL_auxz00_2623;
BgL_auxz00_2623 = 
(obj_t)(BgL_tz00_887); 
BgL__ortest_2965z00_893 = 
(BgL_auxz00_2623==BGl_za2charza2z00zztype_cachez00); } 
if(BgL__ortest_2965z00_893)
{ /* ./Bdb/emit.scm 169 */
return BgL__ortest_2965z00_893;}  else 
{ /* ./Bdb/emit.scm 170 */
obj_t BgL_auxz00_2627;
BgL_auxz00_2627 = 
(obj_t)(BgL_tz00_887); 
return 
(BgL_auxz00_2627==BGl_za2stringza2z00zztype_cachez00);} } } } } } } } }  else 
{ /* ./Bdb/emit.scm 173 */
return ((bool_t)0);} } } } 
}



/* bdb-emit-local-info! */
obj_t BGl_bdbzd2emitzd2localzd2infoz12zc0zzbdb_emitz00(obj_t BgL_localz00_39)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 178 */
{ /* ./Bdb/emit.scm 179 */
bool_t BgL_test3334z00_897;
BgL_test3334z00_897 = 
BGl_bdbzd2localzd2variablezf3zf3zzbdb_emitz00(BgL_localz00_39); 
if(BgL_test3334z00_897)
{ /* ./Bdb/emit.scm 179 */
BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(BgL_localz00_39); 
{ /* ./Bdb/emit.scm 182 */
obj_t BgL_idz00_898;obj_t BgL_namez00_899;
{ /* ./Bdb/emit.scm 182 */
BgL_variablez00_bglt BgL_obj1093z00_1596;
BgL_obj1093z00_1596 = 
(BgL_variablez00_bglt)(BgL_localz00_39); 
BgL_idz00_898 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_1596))->BgL_idz00); } 
{ /* ./Bdb/emit.scm 183 */
BgL_variablez00_bglt BgL_obj1094z00_1597;
BgL_obj1094z00_1597 = 
(BgL_variablez00_bglt)(BgL_localz00_39); 
BgL_namez00_899 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1597))->BgL_namez00); } 
{ /* ./Bdb/emit.scm 184 */
obj_t BgL_port2967z00_900;
BgL_port2967z00_900 = BGl_za2czd2portza2zd2zzbdb_emitz00; 
display_string(BGl_string4485z00zzbdb_emitz00, BgL_port2967z00_900); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_idz00_898, BgL_port2967z00_900); 
display_string(BGl_string4468z00zzbdb_emitz00, BgL_port2967z00_900); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_namez00_899, BgL_port2967z00_900); 
display_string(BGl_string4483z00zzbdb_emitz00, BgL_port2967z00_900); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port2967z00_900);} } }  else 
{ /* ./Bdb/emit.scm 179 */
return BFALSE;} } } 
}



/* bdb*! */
obj_t BGl_bdbza2z12zb0zzbdb_emitz00(obj_t BgL_nodesz00_57)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 316 */
{ 
obj_t BgL_hookz00_901;
BgL_hookz00_901 = BgL_nodesz00_57; 
BgL_loopz00_902:
{ /* ./Bdb/emit.scm 318 */
bool_t BgL_test3346z00_903;
BgL_test3346z00_903 = 
NULLP(BgL_hookz00_901); 
if(BgL_test3346z00_903)
{ /* ./Bdb/emit.scm 318 */
return 
CNST_TABLE_REF(((long)5));}  else 
{ /* ./Bdb/emit.scm 318 */
{ /* ./Bdb/emit.scm 321 */
obj_t BgL_arg3348z00_904;
BgL_arg3348z00_904 = 
CAR(BgL_hookz00_901); 
{ /* ./Bdb/emit.scm 321 */
BgL_nodez00_bglt BgL_nodez00_1601;
BgL_nodez00_1601 = 
(BgL_nodez00_bglt)(BgL_arg3348z00_904); 
{ /* ./Bdb/emit.scm 321 */
obj_t BgL_method3008z00_1602;
{ /* ./Bdb/emit.scm 321 */
BgL_objectz00_bglt BgL_objz00_1603;
BgL_objz00_1603 = 
(BgL_objectz00_bglt)(BgL_nodez00_1601); 
{ /* ./Bdb/emit.scm 321 */
long BgL_objzd2classzd2numz00_1604;
BgL_objzd2classzd2numz00_1604 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1603); 
{ /* ./Bdb/emit.scm 321 */
obj_t BgL_arg2017z00_1605;
{ /* ./Bdb/emit.scm 321 */
int BgL_auxz00_2650;
BgL_auxz00_2650 = 
(int)(((long)1)); 
BgL_arg2017z00_1605 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2650); } 
{ /* ./Bdb/emit.scm 321 */
int BgL_offsetz00_1608;
BgL_offsetz00_1608 = 
(int)(BgL_objzd2classzd2numz00_1604); 
{ /* ./Bdb/emit.scm 321 */
long BgL_offsetz00_1609;
{ /* ./Bdb/emit.scm 321 */
long BgL_auxz00_2654;
BgL_auxz00_2654 = 
(long)(BgL_offsetz00_1608); 
BgL_offsetz00_1609 = 
(BgL_auxz00_2654-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 321 */
long BgL_modz00_1610;
{ /* ./Bdb/emit.scm 321 */
int BgL_arg2028z00_1611;
BgL_arg2028z00_1611 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 321 */
long BgL_n2z00_1619;
BgL_n2z00_1619 = 
(long)(BgL_arg2028z00_1611); 
BgL_modz00_1610 = 
(BgL_offsetz00_1609/BgL_n2z00_1619); } } 
{ /* ./Bdb/emit.scm 321 */
long BgL_restz00_1612;
{ /* ./Bdb/emit.scm 321 */
int BgL_arg2024z00_1613;
BgL_arg2024z00_1613 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 321 */
long BgL_n2z00_1622;
BgL_n2z00_1622 = 
(long)(BgL_arg2024z00_1613); 
BgL_restz00_1612 = 
(BgL_offsetz00_1609%BgL_n2z00_1622); } } 
{ /* ./Bdb/emit.scm 321 */

{ /* ./Bdb/emit.scm 321 */
obj_t BgL_bucketz00_1614;
{ /* ./Bdb/emit.scm 321 */
int BgL_kz00_1624;
BgL_kz00_1624 = 
(int)(BgL_modz00_1610); 
BgL_bucketz00_1614 = 
VECTOR_REF(BgL_arg2017z00_1605,BgL_kz00_1624); } 
{ /* ./Bdb/emit.scm 321 */
int BgL_kz00_1626;
BgL_kz00_1626 = 
(int)(BgL_restz00_1612); 
BgL_method3008z00_1602 = 
VECTOR_REF(BgL_bucketz00_1614,BgL_kz00_1626); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_1602)(BgL_method3008z00_1602, 
(obj_t)(BgL_nodez00_1601), BEOA); } } } 
{ /* ./Bdb/emit.scm 322 */
obj_t BgL_arg3352z00_905;
BgL_arg3352z00_905 = 
CDR(BgL_hookz00_901); 
{ 
obj_t BgL_hookz00_2671;
BgL_hookz00_2671 = BgL_arg3352z00_905; 
BgL_hookz00_901 = BgL_hookz00_2671; 
goto BgL_loopz00_902;} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzbdb_emitz00()
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_bdbz12zd2default3007zd2envz12zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_sequencez00zzast_nodez00, BGl_proc4486z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_externz00zzast_nodez00, BGl_proc4487z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_castz00zzast_nodez00, BGl_proc4488z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_setqz00zzast_nodez00, BGl_proc4489z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_conditionalz00zzast_nodez00, BGl_proc4490z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_failz00zzast_nodez00, BGl_proc4491z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_selectz00zzast_nodez00, BGl_proc4492z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4493z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4494z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4495z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4496z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4497z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4498z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4499z00zzbdb_emitz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_funcallz00zzast_nodez00, BGl_proc4500z00zzbdb_emitz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_bdbz12zd2envzc0zzbdb_emitz00, BGl_appz00zzast_nodez00, BGl_proc4501z00zzbdb_emitz00);} 
}



/* bdb!-app3040 */
obj_t BGl_bdbz12zd2app3040zc0zzbdb_emitz00(obj_t BgL_envz00_2279, obj_t BgL_nodez00_2280)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 327 */
{ 
BgL_appz00_bglt BgL_nodez00_1425;
BgL_nodez00_1425 = 
(BgL_appz00_bglt)(BgL_nodez00_2280); 
{ /* ./Bdb/emit.scm 328 */
obj_t BgL_arg3958z00_2228;
BgL_arg3958z00_2228 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1425))->BgL_argsz00); 
return 
BGl_bdbza2z12zb0zzbdb_emitz00(BgL_arg3958z00_2228);} } } 
}



/* bdb!-funcall3038 */
obj_t BGl_bdbz12zd2funcall3038zc0zzbdb_emitz00(obj_t BgL_envz00_2281, obj_t BgL_nodez00_2282)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 308 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1417;
BgL_nodez00_1417 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2282); 
{ /* ./Bdb/emit.scm 310 */
BgL_nodez00_bglt BgL_arg3943z00_1421;
BgL_arg3943z00_1421 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1417))->BgL_funz00); 
{ /* ./Bdb/emit.scm 310 */
obj_t BgL_method3008z00_2201;
{ /* ./Bdb/emit.scm 310 */
BgL_objectz00_bglt BgL_objz00_2202;
BgL_objz00_2202 = 
(BgL_objectz00_bglt)(BgL_arg3943z00_1421); 
{ /* ./Bdb/emit.scm 310 */
long BgL_objzd2classzd2numz00_2203;
BgL_objzd2classzd2numz00_2203 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2202); 
{ /* ./Bdb/emit.scm 310 */
obj_t BgL_arg2017z00_2204;
{ /* ./Bdb/emit.scm 310 */
int BgL_auxz00_2695;
BgL_auxz00_2695 = 
(int)(((long)1)); 
BgL_arg2017z00_2204 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2695); } 
{ /* ./Bdb/emit.scm 310 */
int BgL_offsetz00_2207;
BgL_offsetz00_2207 = 
(int)(BgL_objzd2classzd2numz00_2203); 
{ /* ./Bdb/emit.scm 310 */
long BgL_offsetz00_2208;
{ /* ./Bdb/emit.scm 310 */
long BgL_auxz00_2699;
BgL_auxz00_2699 = 
(long)(BgL_offsetz00_2207); 
BgL_offsetz00_2208 = 
(BgL_auxz00_2699-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 310 */
long BgL_modz00_2209;
{ /* ./Bdb/emit.scm 310 */
int BgL_arg2028z00_2210;
BgL_arg2028z00_2210 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 310 */
long BgL_n2z00_2218;
BgL_n2z00_2218 = 
(long)(BgL_arg2028z00_2210); 
BgL_modz00_2209 = 
(BgL_offsetz00_2208/BgL_n2z00_2218); } } 
{ /* ./Bdb/emit.scm 310 */
long BgL_restz00_2211;
{ /* ./Bdb/emit.scm 310 */
int BgL_arg2024z00_2212;
BgL_arg2024z00_2212 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 310 */
long BgL_n2z00_2221;
BgL_n2z00_2221 = 
(long)(BgL_arg2024z00_2212); 
BgL_restz00_2211 = 
(BgL_offsetz00_2208%BgL_n2z00_2221); } } 
{ /* ./Bdb/emit.scm 310 */

{ /* ./Bdb/emit.scm 310 */
obj_t BgL_bucketz00_2213;
{ /* ./Bdb/emit.scm 310 */
int BgL_kz00_2223;
BgL_kz00_2223 = 
(int)(BgL_modz00_2209); 
BgL_bucketz00_2213 = 
VECTOR_REF(BgL_arg2017z00_2204,BgL_kz00_2223); } 
{ /* ./Bdb/emit.scm 310 */
int BgL_kz00_2225;
BgL_kz00_2225 = 
(int)(BgL_restz00_2211); 
BgL_method3008z00_2201 = 
VECTOR_REF(BgL_bucketz00_2213,BgL_kz00_2225); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_2201)(BgL_method3008z00_2201, 
(obj_t)(BgL_arg3943z00_1421), BEOA); } } 
{ /* ./Bdb/emit.scm 311 */
obj_t BgL_arg3948z00_1422;
BgL_arg3948z00_1422 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1417))->BgL_argsz00); 
return 
BGl_bdbza2z12zb0zzbdb_emitz00(BgL_arg3948z00_1422);} } } 
}



/* bdb!-app-ly3036 */
obj_t BGl_bdbz12zd2appzd2ly3036z12zzbdb_emitz00(obj_t BgL_envz00_2283, obj_t BgL_nodez00_2284)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 300 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1409;
BgL_nodez00_1409 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2284); 
{ /* ./Bdb/emit.scm 302 */
BgL_nodez00_bglt BgL_arg3929z00_1413;
BgL_arg3929z00_1413 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1409))->BgL_funz00); 
{ /* ./Bdb/emit.scm 302 */
obj_t BgL_method3008z00_2147;
{ /* ./Bdb/emit.scm 302 */
BgL_objectz00_bglt BgL_objz00_2148;
BgL_objz00_2148 = 
(BgL_objectz00_bglt)(BgL_arg3929z00_1413); 
{ /* ./Bdb/emit.scm 302 */
long BgL_objzd2classzd2numz00_2149;
BgL_objzd2classzd2numz00_2149 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2148); 
{ /* ./Bdb/emit.scm 302 */
obj_t BgL_arg2017z00_2150;
{ /* ./Bdb/emit.scm 302 */
int BgL_auxz00_2721;
BgL_auxz00_2721 = 
(int)(((long)1)); 
BgL_arg2017z00_2150 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2721); } 
{ /* ./Bdb/emit.scm 302 */
int BgL_offsetz00_2153;
BgL_offsetz00_2153 = 
(int)(BgL_objzd2classzd2numz00_2149); 
{ /* ./Bdb/emit.scm 302 */
long BgL_offsetz00_2154;
{ /* ./Bdb/emit.scm 302 */
long BgL_auxz00_2725;
BgL_auxz00_2725 = 
(long)(BgL_offsetz00_2153); 
BgL_offsetz00_2154 = 
(BgL_auxz00_2725-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 302 */
long BgL_modz00_2155;
{ /* ./Bdb/emit.scm 302 */
int BgL_arg2028z00_2156;
BgL_arg2028z00_2156 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 302 */
long BgL_n2z00_2164;
BgL_n2z00_2164 = 
(long)(BgL_arg2028z00_2156); 
BgL_modz00_2155 = 
(BgL_offsetz00_2154/BgL_n2z00_2164); } } 
{ /* ./Bdb/emit.scm 302 */
long BgL_restz00_2157;
{ /* ./Bdb/emit.scm 302 */
int BgL_arg2024z00_2158;
BgL_arg2024z00_2158 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 302 */
long BgL_n2z00_2167;
BgL_n2z00_2167 = 
(long)(BgL_arg2024z00_2158); 
BgL_restz00_2157 = 
(BgL_offsetz00_2154%BgL_n2z00_2167); } } 
{ /* ./Bdb/emit.scm 302 */

{ /* ./Bdb/emit.scm 302 */
obj_t BgL_bucketz00_2159;
{ /* ./Bdb/emit.scm 302 */
int BgL_kz00_2169;
BgL_kz00_2169 = 
(int)(BgL_modz00_2155); 
BgL_bucketz00_2159 = 
VECTOR_REF(BgL_arg2017z00_2150,BgL_kz00_2169); } 
{ /* ./Bdb/emit.scm 302 */
int BgL_kz00_2171;
BgL_kz00_2171 = 
(int)(BgL_restz00_2157); 
BgL_method3008z00_2147 = 
VECTOR_REF(BgL_bucketz00_2159,BgL_kz00_2171); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_2147)(BgL_method3008z00_2147, 
(obj_t)(BgL_arg3929z00_1413), BEOA); } } 
{ /* ./Bdb/emit.scm 303 */
BgL_nodez00_bglt BgL_arg3933z00_1414;
BgL_arg3933z00_1414 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1409))->BgL_argz00); 
{ /* ./Bdb/emit.scm 303 */
obj_t BgL_method3008z00_2174;
{ /* ./Bdb/emit.scm 303 */
BgL_objectz00_bglt BgL_objz00_2175;
BgL_objz00_2175 = 
(BgL_objectz00_bglt)(BgL_arg3933z00_1414); 
{ /* ./Bdb/emit.scm 303 */
long BgL_objzd2classzd2numz00_2176;
BgL_objzd2classzd2numz00_2176 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2175); 
{ /* ./Bdb/emit.scm 303 */
obj_t BgL_arg2017z00_2177;
{ /* ./Bdb/emit.scm 303 */
int BgL_auxz00_2744;
BgL_auxz00_2744 = 
(int)(((long)1)); 
BgL_arg2017z00_2177 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2744); } 
{ /* ./Bdb/emit.scm 303 */
int BgL_offsetz00_2180;
BgL_offsetz00_2180 = 
(int)(BgL_objzd2classzd2numz00_2176); 
{ /* ./Bdb/emit.scm 303 */
long BgL_offsetz00_2181;
{ /* ./Bdb/emit.scm 303 */
long BgL_auxz00_2748;
BgL_auxz00_2748 = 
(long)(BgL_offsetz00_2180); 
BgL_offsetz00_2181 = 
(BgL_auxz00_2748-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 303 */
long BgL_modz00_2182;
{ /* ./Bdb/emit.scm 303 */
int BgL_arg2028z00_2183;
BgL_arg2028z00_2183 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 303 */
long BgL_n2z00_2191;
BgL_n2z00_2191 = 
(long)(BgL_arg2028z00_2183); 
BgL_modz00_2182 = 
(BgL_offsetz00_2181/BgL_n2z00_2191); } } 
{ /* ./Bdb/emit.scm 303 */
long BgL_restz00_2184;
{ /* ./Bdb/emit.scm 303 */
int BgL_arg2024z00_2185;
BgL_arg2024z00_2185 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 303 */
long BgL_n2z00_2194;
BgL_n2z00_2194 = 
(long)(BgL_arg2024z00_2185); 
BgL_restz00_2184 = 
(BgL_offsetz00_2181%BgL_n2z00_2194); } } 
{ /* ./Bdb/emit.scm 303 */

{ /* ./Bdb/emit.scm 303 */
obj_t BgL_bucketz00_2186;
{ /* ./Bdb/emit.scm 303 */
int BgL_kz00_2196;
BgL_kz00_2196 = 
(int)(BgL_modz00_2182); 
BgL_bucketz00_2186 = 
VECTOR_REF(BgL_arg2017z00_2177,BgL_kz00_2196); } 
{ /* ./Bdb/emit.scm 303 */
int BgL_kz00_2198;
BgL_kz00_2198 = 
(int)(BgL_restz00_2184); 
BgL_method3008z00_2174 = 
VECTOR_REF(BgL_bucketz00_2186,BgL_kz00_2198); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_2174)(BgL_method3008z00_2174, 
(obj_t)(BgL_arg3933z00_1414), BEOA);} } } } 
}



/* bdb!-box-set!3034 */
obj_t BGl_bdbz12zd2boxzd2setz123034z00zzbdb_emitz00(obj_t BgL_envz00_2285, obj_t BgL_nodez00_2286)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 293 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1402;
BgL_nodez00_1402 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2286); 
{ /* ./Bdb/emit.scm 294 */
BgL_nodez00_bglt BgL_arg3919z00_2117;
BgL_arg3919z00_2117 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1402))->BgL_valuez00); 
{ /* ./Bdb/emit.scm 294 */
obj_t BgL_method3008z00_2120;
{ /* ./Bdb/emit.scm 294 */
BgL_objectz00_bglt BgL_objz00_2121;
BgL_objz00_2121 = 
(BgL_objectz00_bglt)(BgL_arg3919z00_2117); 
{ /* ./Bdb/emit.scm 294 */
long BgL_objzd2classzd2numz00_2122;
BgL_objzd2classzd2numz00_2122 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2121); 
{ /* ./Bdb/emit.scm 294 */
obj_t BgL_arg2017z00_2123;
{ /* ./Bdb/emit.scm 294 */
int BgL_auxz00_2768;
BgL_auxz00_2768 = 
(int)(((long)1)); 
BgL_arg2017z00_2123 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2768); } 
{ /* ./Bdb/emit.scm 294 */
int BgL_offsetz00_2126;
BgL_offsetz00_2126 = 
(int)(BgL_objzd2classzd2numz00_2122); 
{ /* ./Bdb/emit.scm 294 */
long BgL_offsetz00_2127;
{ /* ./Bdb/emit.scm 294 */
long BgL_auxz00_2772;
BgL_auxz00_2772 = 
(long)(BgL_offsetz00_2126); 
BgL_offsetz00_2127 = 
(BgL_auxz00_2772-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 294 */
long BgL_modz00_2128;
{ /* ./Bdb/emit.scm 294 */
int BgL_arg2028z00_2129;
BgL_arg2028z00_2129 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 294 */
long BgL_n2z00_2137;
BgL_n2z00_2137 = 
(long)(BgL_arg2028z00_2129); 
BgL_modz00_2128 = 
(BgL_offsetz00_2127/BgL_n2z00_2137); } } 
{ /* ./Bdb/emit.scm 294 */
long BgL_restz00_2130;
{ /* ./Bdb/emit.scm 294 */
int BgL_arg2024z00_2131;
BgL_arg2024z00_2131 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 294 */
long BgL_n2z00_2140;
BgL_n2z00_2140 = 
(long)(BgL_arg2024z00_2131); 
BgL_restz00_2130 = 
(BgL_offsetz00_2127%BgL_n2z00_2140); } } 
{ /* ./Bdb/emit.scm 294 */

{ /* ./Bdb/emit.scm 294 */
obj_t BgL_bucketz00_2132;
{ /* ./Bdb/emit.scm 294 */
int BgL_kz00_2142;
BgL_kz00_2142 = 
(int)(BgL_modz00_2128); 
BgL_bucketz00_2132 = 
VECTOR_REF(BgL_arg2017z00_2123,BgL_kz00_2142); } 
{ /* ./Bdb/emit.scm 294 */
int BgL_kz00_2144;
BgL_kz00_2144 = 
(int)(BgL_restz00_2130); 
BgL_method3008z00_2120 = 
VECTOR_REF(BgL_bucketz00_2132,BgL_kz00_2144); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_2120)(BgL_method3008z00_2120, 
(obj_t)(BgL_arg3919z00_2117), BEOA);} } } } 
}



/* bdb!-make-box3032 */
obj_t BGl_bdbz12zd2makezd2box3032z12zzbdb_emitz00(obj_t BgL_envz00_2287, obj_t BgL_nodez00_2288)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 286 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1395;
BgL_nodez00_1395 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2288); 
{ /* ./Bdb/emit.scm 287 */
BgL_nodez00_bglt BgL_arg3909z00_2088;
BgL_arg3909z00_2088 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1395))->BgL_valuez00); 
{ /* ./Bdb/emit.scm 287 */
obj_t BgL_method3008z00_2091;
{ /* ./Bdb/emit.scm 287 */
BgL_objectz00_bglt BgL_objz00_2092;
BgL_objz00_2092 = 
(BgL_objectz00_bglt)(BgL_arg3909z00_2088); 
{ /* ./Bdb/emit.scm 287 */
long BgL_objzd2classzd2numz00_2093;
BgL_objzd2classzd2numz00_2093 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2092); 
{ /* ./Bdb/emit.scm 287 */
obj_t BgL_arg2017z00_2094;
{ /* ./Bdb/emit.scm 287 */
int BgL_auxz00_2792;
BgL_auxz00_2792 = 
(int)(((long)1)); 
BgL_arg2017z00_2094 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2792); } 
{ /* ./Bdb/emit.scm 287 */
int BgL_offsetz00_2097;
BgL_offsetz00_2097 = 
(int)(BgL_objzd2classzd2numz00_2093); 
{ /* ./Bdb/emit.scm 287 */
long BgL_offsetz00_2098;
{ /* ./Bdb/emit.scm 287 */
long BgL_auxz00_2796;
BgL_auxz00_2796 = 
(long)(BgL_offsetz00_2097); 
BgL_offsetz00_2098 = 
(BgL_auxz00_2796-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 287 */
long BgL_modz00_2099;
{ /* ./Bdb/emit.scm 287 */
int BgL_arg2028z00_2100;
BgL_arg2028z00_2100 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 287 */
long BgL_n2z00_2108;
BgL_n2z00_2108 = 
(long)(BgL_arg2028z00_2100); 
BgL_modz00_2099 = 
(BgL_offsetz00_2098/BgL_n2z00_2108); } } 
{ /* ./Bdb/emit.scm 287 */
long BgL_restz00_2101;
{ /* ./Bdb/emit.scm 287 */
int BgL_arg2024z00_2102;
BgL_arg2024z00_2102 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 287 */
long BgL_n2z00_2111;
BgL_n2z00_2111 = 
(long)(BgL_arg2024z00_2102); 
BgL_restz00_2101 = 
(BgL_offsetz00_2098%BgL_n2z00_2111); } } 
{ /* ./Bdb/emit.scm 287 */

{ /* ./Bdb/emit.scm 287 */
obj_t BgL_bucketz00_2103;
{ /* ./Bdb/emit.scm 287 */
int BgL_kz00_2113;
BgL_kz00_2113 = 
(int)(BgL_modz00_2099); 
BgL_bucketz00_2103 = 
VECTOR_REF(BgL_arg2017z00_2094,BgL_kz00_2113); } 
{ /* ./Bdb/emit.scm 287 */
int BgL_kz00_2115;
BgL_kz00_2115 = 
(int)(BgL_restz00_2101); 
BgL_method3008z00_2091 = 
VECTOR_REF(BgL_bucketz00_2103,BgL_kz00_2115); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_2091)(BgL_method3008z00_2091, 
(obj_t)(BgL_arg3909z00_2088), BEOA);} } } } 
}



/* bdb!-jump-ex-it3030 */
obj_t BGl_bdbz12zd2jumpzd2exzd2it3030zc0zzbdb_emitz00(obj_t BgL_envz00_2289, obj_t BgL_nodez00_2290)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 278 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1387;
BgL_nodez00_1387 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2290); 
{ /* ./Bdb/emit.scm 280 */
BgL_nodez00_bglt BgL_arg3895z00_1391;
BgL_arg3895z00_1391 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1387))->BgL_exitz00); 
{ /* ./Bdb/emit.scm 280 */
obj_t BgL_method3008z00_2035;
{ /* ./Bdb/emit.scm 280 */
BgL_objectz00_bglt BgL_objz00_2036;
BgL_objz00_2036 = 
(BgL_objectz00_bglt)(BgL_arg3895z00_1391); 
{ /* ./Bdb/emit.scm 280 */
long BgL_objzd2classzd2numz00_2037;
BgL_objzd2classzd2numz00_2037 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2036); 
{ /* ./Bdb/emit.scm 280 */
obj_t BgL_arg2017z00_2038;
{ /* ./Bdb/emit.scm 280 */
int BgL_auxz00_2816;
BgL_auxz00_2816 = 
(int)(((long)1)); 
BgL_arg2017z00_2038 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2816); } 
{ /* ./Bdb/emit.scm 280 */
int BgL_offsetz00_2041;
BgL_offsetz00_2041 = 
(int)(BgL_objzd2classzd2numz00_2037); 
{ /* ./Bdb/emit.scm 280 */
long BgL_offsetz00_2042;
{ /* ./Bdb/emit.scm 280 */
long BgL_auxz00_2820;
BgL_auxz00_2820 = 
(long)(BgL_offsetz00_2041); 
BgL_offsetz00_2042 = 
(BgL_auxz00_2820-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 280 */
long BgL_modz00_2043;
{ /* ./Bdb/emit.scm 280 */
int BgL_arg2028z00_2044;
BgL_arg2028z00_2044 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 280 */
long BgL_n2z00_2052;
BgL_n2z00_2052 = 
(long)(BgL_arg2028z00_2044); 
BgL_modz00_2043 = 
(BgL_offsetz00_2042/BgL_n2z00_2052); } } 
{ /* ./Bdb/emit.scm 280 */
long BgL_restz00_2045;
{ /* ./Bdb/emit.scm 280 */
int BgL_arg2024z00_2046;
BgL_arg2024z00_2046 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 280 */
long BgL_n2z00_2055;
BgL_n2z00_2055 = 
(long)(BgL_arg2024z00_2046); 
BgL_restz00_2045 = 
(BgL_offsetz00_2042%BgL_n2z00_2055); } } 
{ /* ./Bdb/emit.scm 280 */

{ /* ./Bdb/emit.scm 280 */
obj_t BgL_bucketz00_2047;
{ /* ./Bdb/emit.scm 280 */
int BgL_kz00_2057;
BgL_kz00_2057 = 
(int)(BgL_modz00_2043); 
BgL_bucketz00_2047 = 
VECTOR_REF(BgL_arg2017z00_2038,BgL_kz00_2057); } 
{ /* ./Bdb/emit.scm 280 */
int BgL_kz00_2059;
BgL_kz00_2059 = 
(int)(BgL_restz00_2045); 
BgL_method3008z00_2035 = 
VECTOR_REF(BgL_bucketz00_2047,BgL_kz00_2059); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_2035)(BgL_method3008z00_2035, 
(obj_t)(BgL_arg3895z00_1391), BEOA); } } 
{ /* ./Bdb/emit.scm 281 */
BgL_nodez00_bglt BgL_arg3899z00_1392;
BgL_arg3899z00_1392 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1387))->BgL_valuez00); 
{ /* ./Bdb/emit.scm 281 */
obj_t BgL_method3008z00_2062;
{ /* ./Bdb/emit.scm 281 */
BgL_objectz00_bglt BgL_objz00_2063;
BgL_objz00_2063 = 
(BgL_objectz00_bglt)(BgL_arg3899z00_1392); 
{ /* ./Bdb/emit.scm 281 */
long BgL_objzd2classzd2numz00_2064;
BgL_objzd2classzd2numz00_2064 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2063); 
{ /* ./Bdb/emit.scm 281 */
obj_t BgL_arg2017z00_2065;
{ /* ./Bdb/emit.scm 281 */
int BgL_auxz00_2839;
BgL_auxz00_2839 = 
(int)(((long)1)); 
BgL_arg2017z00_2065 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2839); } 
{ /* ./Bdb/emit.scm 281 */
int BgL_offsetz00_2068;
BgL_offsetz00_2068 = 
(int)(BgL_objzd2classzd2numz00_2064); 
{ /* ./Bdb/emit.scm 281 */
long BgL_offsetz00_2069;
{ /* ./Bdb/emit.scm 281 */
long BgL_auxz00_2843;
BgL_auxz00_2843 = 
(long)(BgL_offsetz00_2068); 
BgL_offsetz00_2069 = 
(BgL_auxz00_2843-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 281 */
long BgL_modz00_2070;
{ /* ./Bdb/emit.scm 281 */
int BgL_arg2028z00_2071;
BgL_arg2028z00_2071 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 281 */
long BgL_n2z00_2079;
BgL_n2z00_2079 = 
(long)(BgL_arg2028z00_2071); 
BgL_modz00_2070 = 
(BgL_offsetz00_2069/BgL_n2z00_2079); } } 
{ /* ./Bdb/emit.scm 281 */
long BgL_restz00_2072;
{ /* ./Bdb/emit.scm 281 */
int BgL_arg2024z00_2073;
BgL_arg2024z00_2073 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 281 */
long BgL_n2z00_2082;
BgL_n2z00_2082 = 
(long)(BgL_arg2024z00_2073); 
BgL_restz00_2072 = 
(BgL_offsetz00_2069%BgL_n2z00_2082); } } 
{ /* ./Bdb/emit.scm 281 */

{ /* ./Bdb/emit.scm 281 */
obj_t BgL_bucketz00_2074;
{ /* ./Bdb/emit.scm 281 */
int BgL_kz00_2084;
BgL_kz00_2084 = 
(int)(BgL_modz00_2070); 
BgL_bucketz00_2074 = 
VECTOR_REF(BgL_arg2017z00_2065,BgL_kz00_2084); } 
{ /* ./Bdb/emit.scm 281 */
int BgL_kz00_2086;
BgL_kz00_2086 = 
(int)(BgL_restz00_2072); 
BgL_method3008z00_2062 = 
VECTOR_REF(BgL_bucketz00_2074,BgL_kz00_2086); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_2062)(BgL_method3008z00_2062, 
(obj_t)(BgL_arg3899z00_1392), BEOA);} } } } 
}



/* bdb!-set-ex-it3028 */
obj_t BGl_bdbz12zd2setzd2exzd2it3028zc0zzbdb_emitz00(obj_t BgL_envz00_2291, obj_t BgL_nodez00_2292)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 271 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1380;
BgL_nodez00_1380 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2292); 
{ /* ./Bdb/emit.scm 272 */
BgL_nodez00_bglt BgL_arg3885z00_2005;
BgL_arg3885z00_2005 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1380))->BgL_bodyz00); 
{ /* ./Bdb/emit.scm 272 */
obj_t BgL_method3008z00_2008;
{ /* ./Bdb/emit.scm 272 */
BgL_objectz00_bglt BgL_objz00_2009;
BgL_objz00_2009 = 
(BgL_objectz00_bglt)(BgL_arg3885z00_2005); 
{ /* ./Bdb/emit.scm 272 */
long BgL_objzd2classzd2numz00_2010;
BgL_objzd2classzd2numz00_2010 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2009); 
{ /* ./Bdb/emit.scm 272 */
obj_t BgL_arg2017z00_2011;
{ /* ./Bdb/emit.scm 272 */
int BgL_auxz00_2863;
BgL_auxz00_2863 = 
(int)(((long)1)); 
BgL_arg2017z00_2011 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2863); } 
{ /* ./Bdb/emit.scm 272 */
int BgL_offsetz00_2014;
BgL_offsetz00_2014 = 
(int)(BgL_objzd2classzd2numz00_2010); 
{ /* ./Bdb/emit.scm 272 */
long BgL_offsetz00_2015;
{ /* ./Bdb/emit.scm 272 */
long BgL_auxz00_2867;
BgL_auxz00_2867 = 
(long)(BgL_offsetz00_2014); 
BgL_offsetz00_2015 = 
(BgL_auxz00_2867-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 272 */
long BgL_modz00_2016;
{ /* ./Bdb/emit.scm 272 */
int BgL_arg2028z00_2017;
BgL_arg2028z00_2017 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 272 */
long BgL_n2z00_2025;
BgL_n2z00_2025 = 
(long)(BgL_arg2028z00_2017); 
BgL_modz00_2016 = 
(BgL_offsetz00_2015/BgL_n2z00_2025); } } 
{ /* ./Bdb/emit.scm 272 */
long BgL_restz00_2018;
{ /* ./Bdb/emit.scm 272 */
int BgL_arg2024z00_2019;
BgL_arg2024z00_2019 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 272 */
long BgL_n2z00_2028;
BgL_n2z00_2028 = 
(long)(BgL_arg2024z00_2019); 
BgL_restz00_2018 = 
(BgL_offsetz00_2015%BgL_n2z00_2028); } } 
{ /* ./Bdb/emit.scm 272 */

{ /* ./Bdb/emit.scm 272 */
obj_t BgL_bucketz00_2020;
{ /* ./Bdb/emit.scm 272 */
int BgL_kz00_2030;
BgL_kz00_2030 = 
(int)(BgL_modz00_2016); 
BgL_bucketz00_2020 = 
VECTOR_REF(BgL_arg2017z00_2011,BgL_kz00_2030); } 
{ /* ./Bdb/emit.scm 272 */
int BgL_kz00_2032;
BgL_kz00_2032 = 
(int)(BgL_restz00_2018); 
BgL_method3008z00_2008 = 
VECTOR_REF(BgL_bucketz00_2020,BgL_kz00_2032); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_2008)(BgL_method3008z00_2008, 
(obj_t)(BgL_arg3885z00_2005), BEOA);} } } } 
}



/* bdb!-let-var3026 */
obj_t BGl_bdbz12zd2letzd2var3026z12zzbdb_emitz00(obj_t BgL_envz00_2293, obj_t BgL_nodez00_2294)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 259 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1364;
BgL_nodez00_1364 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2294); 
{ 
obj_t BgL_l2990z00_1368;
{ /* ./Bdb/emit.scm 261 */
obj_t BgL_arg3855z00_1370;
BgL_arg3855z00_1370 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1364))->BgL_bindingsz00); 
BgL_l2990z00_1368 = BgL_arg3855z00_1370; 
BgL_forzd2each2991zd2_1369:
{ /* ./Bdb/emit.scm 261 */
bool_t BgL_test3858z00_1371;
BgL_test3858z00_1371 = 
PAIRP(BgL_l2990z00_1368); 
if(BgL_test3858z00_1371)
{ /* ./Bdb/emit.scm 261 */
{ /* ./Bdb/emit.scm 262 */
obj_t BgL_bindingz00_1372;
BgL_bindingz00_1372 = 
CAR(BgL_l2990z00_1368); 
{ /* ./Bdb/emit.scm 263 */
obj_t BgL_arg3860z00_1374;
BgL_arg3860z00_1374 = 
CDR(BgL_bindingz00_1372); 
{ /* ./Bdb/emit.scm 263 */
BgL_nodez00_bglt BgL_nodez00_1949;
BgL_nodez00_1949 = 
(BgL_nodez00_bglt)(BgL_arg3860z00_1374); 
{ /* ./Bdb/emit.scm 263 */
obj_t BgL_method3008z00_1950;
{ /* ./Bdb/emit.scm 263 */
BgL_objectz00_bglt BgL_objz00_1951;
BgL_objz00_1951 = 
(BgL_objectz00_bglt)(BgL_nodez00_1949); 
{ /* ./Bdb/emit.scm 263 */
long BgL_objzd2classzd2numz00_1952;
BgL_objzd2classzd2numz00_1952 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1951); 
{ /* ./Bdb/emit.scm 263 */
obj_t BgL_arg2017z00_1953;
{ /* ./Bdb/emit.scm 263 */
int BgL_auxz00_2892;
BgL_auxz00_2892 = 
(int)(((long)1)); 
BgL_arg2017z00_1953 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2892); } 
{ /* ./Bdb/emit.scm 263 */
int BgL_offsetz00_1956;
BgL_offsetz00_1956 = 
(int)(BgL_objzd2classzd2numz00_1952); 
{ /* ./Bdb/emit.scm 263 */
long BgL_offsetz00_1957;
{ /* ./Bdb/emit.scm 263 */
long BgL_auxz00_2896;
BgL_auxz00_2896 = 
(long)(BgL_offsetz00_1956); 
BgL_offsetz00_1957 = 
(BgL_auxz00_2896-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 263 */
long BgL_modz00_1958;
{ /* ./Bdb/emit.scm 263 */
int BgL_arg2028z00_1959;
BgL_arg2028z00_1959 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 263 */
long BgL_n2z00_1967;
BgL_n2z00_1967 = 
(long)(BgL_arg2028z00_1959); 
BgL_modz00_1958 = 
(BgL_offsetz00_1957/BgL_n2z00_1967); } } 
{ /* ./Bdb/emit.scm 263 */
long BgL_restz00_1960;
{ /* ./Bdb/emit.scm 263 */
int BgL_arg2024z00_1961;
BgL_arg2024z00_1961 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 263 */
long BgL_n2z00_1970;
BgL_n2z00_1970 = 
(long)(BgL_arg2024z00_1961); 
BgL_restz00_1960 = 
(BgL_offsetz00_1957%BgL_n2z00_1970); } } 
{ /* ./Bdb/emit.scm 263 */

{ /* ./Bdb/emit.scm 263 */
obj_t BgL_bucketz00_1962;
{ /* ./Bdb/emit.scm 263 */
int BgL_kz00_1972;
BgL_kz00_1972 = 
(int)(BgL_modz00_1958); 
BgL_bucketz00_1962 = 
VECTOR_REF(BgL_arg2017z00_1953,BgL_kz00_1972); } 
{ /* ./Bdb/emit.scm 263 */
int BgL_kz00_1974;
BgL_kz00_1974 = 
(int)(BgL_restz00_1960); 
BgL_method3008z00_1950 = 
VECTOR_REF(BgL_bucketz00_1962,BgL_kz00_1974); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_1950)(BgL_method3008z00_1950, 
(obj_t)(BgL_nodez00_1949), BEOA); } } } 
{ /* ./Bdb/emit.scm 264 */
obj_t BgL_arg3864z00_1375;
BgL_arg3864z00_1375 = 
CAR(BgL_bindingz00_1372); 
BGl_bdbzd2emitzd2localzd2infoz12zc0zzbdb_emitz00(BgL_arg3864z00_1375); } } 
{ /* ./Bdb/emit.scm 261 */
obj_t BgL_arg3870z00_1376;
BgL_arg3870z00_1376 = 
CDR(BgL_l2990z00_1368); 
{ 
obj_t BgL_l2990z00_2915;
BgL_l2990z00_2915 = BgL_arg3870z00_1376; 
BgL_l2990z00_1368 = BgL_l2990z00_2915; 
goto BgL_forzd2each2991zd2_1369;} } }  else 
{ /* ./Bdb/emit.scm 261 */((bool_t)1); } } } } 
{ /* ./Bdb/emit.scm 266 */
BgL_nodez00_bglt BgL_arg3875z00_1377;
BgL_arg3875z00_1377 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1364))->BgL_bodyz00); 
{ /* ./Bdb/emit.scm 266 */
obj_t BgL_method3008z00_1979;
{ /* ./Bdb/emit.scm 266 */
BgL_objectz00_bglt BgL_objz00_1980;
BgL_objz00_1980 = 
(BgL_objectz00_bglt)(BgL_arg3875z00_1377); 
{ /* ./Bdb/emit.scm 266 */
long BgL_objzd2classzd2numz00_1981;
BgL_objzd2classzd2numz00_1981 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1980); 
{ /* ./Bdb/emit.scm 266 */
obj_t BgL_arg2017z00_1982;
{ /* ./Bdb/emit.scm 266 */
int BgL_auxz00_2919;
BgL_auxz00_2919 = 
(int)(((long)1)); 
BgL_arg2017z00_1982 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2919); } 
{ /* ./Bdb/emit.scm 266 */
int BgL_offsetz00_1985;
BgL_offsetz00_1985 = 
(int)(BgL_objzd2classzd2numz00_1981); 
{ /* ./Bdb/emit.scm 266 */
long BgL_offsetz00_1986;
{ /* ./Bdb/emit.scm 266 */
long BgL_auxz00_2923;
BgL_auxz00_2923 = 
(long)(BgL_offsetz00_1985); 
BgL_offsetz00_1986 = 
(BgL_auxz00_2923-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 266 */
long BgL_modz00_1987;
{ /* ./Bdb/emit.scm 266 */
int BgL_arg2028z00_1988;
BgL_arg2028z00_1988 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 266 */
long BgL_n2z00_1996;
BgL_n2z00_1996 = 
(long)(BgL_arg2028z00_1988); 
BgL_modz00_1987 = 
(BgL_offsetz00_1986/BgL_n2z00_1996); } } 
{ /* ./Bdb/emit.scm 266 */
long BgL_restz00_1989;
{ /* ./Bdb/emit.scm 266 */
int BgL_arg2024z00_1990;
BgL_arg2024z00_1990 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 266 */
long BgL_n2z00_1999;
BgL_n2z00_1999 = 
(long)(BgL_arg2024z00_1990); 
BgL_restz00_1989 = 
(BgL_offsetz00_1986%BgL_n2z00_1999); } } 
{ /* ./Bdb/emit.scm 266 */

{ /* ./Bdb/emit.scm 266 */
obj_t BgL_bucketz00_1991;
{ /* ./Bdb/emit.scm 266 */
int BgL_kz00_2001;
BgL_kz00_2001 = 
(int)(BgL_modz00_1987); 
BgL_bucketz00_1991 = 
VECTOR_REF(BgL_arg2017z00_1982,BgL_kz00_2001); } 
{ /* ./Bdb/emit.scm 266 */
int BgL_kz00_2003;
BgL_kz00_2003 = 
(int)(BgL_restz00_1989); 
BgL_method3008z00_1979 = 
VECTOR_REF(BgL_bucketz00_1991,BgL_kz00_2003); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_1979)(BgL_method3008z00_1979, 
(obj_t)(BgL_arg3875z00_1377), BEOA);} } } } 
}



/* bdb!-let-fun3024 */
obj_t BGl_bdbz12zd2letzd2fun3024z12zzbdb_emitz00(obj_t BgL_envz00_2295, obj_t BgL_nodez00_2296)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 249 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1350;
BgL_nodez00_1350 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2296); 
{ 
obj_t BgL_l2986z00_1354;
{ /* ./Bdb/emit.scm 251 */
obj_t BgL_arg3830z00_1356;
BgL_arg3830z00_1356 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1350))->BgL_localsz00); 
BgL_l2986z00_1354 = BgL_arg3830z00_1356; 
BgL_forzd2each2987zd2_1355:
{ /* ./Bdb/emit.scm 251 */
bool_t BgL_test3833z00_1357;
BgL_test3833z00_1357 = 
PAIRP(BgL_l2986z00_1354); 
if(BgL_test3833z00_1357)
{ /* ./Bdb/emit.scm 251 */
{ /* ./Bdb/emit.scm 252 */
obj_t BgL_localz00_1358;
BgL_localz00_1358 = 
CAR(BgL_l2986z00_1354); 
{ /* ./Bdb/emit.scm 252 */
BgL_valuez00_bglt BgL_arg3835z00_1359;
{ /* ./Bdb/emit.scm 252 */
BgL_variablez00_bglt BgL_obj1100z00_1915;
BgL_obj1100z00_1915 = 
(BgL_variablez00_bglt)(BgL_localz00_1358); 
BgL_arg3835z00_1359 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1915))->BgL_valuez00); } 
BGl_bdbzd2sfunz12zc0zzbdb_emitz00(BgL_arg3835z00_1359); } } 
{ /* ./Bdb/emit.scm 251 */
obj_t BgL_arg3840z00_1360;
BgL_arg3840z00_1360 = 
CDR(BgL_l2986z00_1354); 
{ 
obj_t BgL_l2986z00_2948;
BgL_l2986z00_2948 = BgL_arg3840z00_1360; 
BgL_l2986z00_1354 = BgL_l2986z00_2948; 
goto BgL_forzd2each2987zd2_1355;} } }  else 
{ /* ./Bdb/emit.scm 251 */((bool_t)1); } } } } 
{ /* ./Bdb/emit.scm 254 */
BgL_nodez00_bglt BgL_arg3845z00_1361;
BgL_arg3845z00_1361 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1350))->BgL_bodyz00); 
{ /* ./Bdb/emit.scm 254 */
obj_t BgL_method3008z00_1919;
{ /* ./Bdb/emit.scm 254 */
BgL_objectz00_bglt BgL_objz00_1920;
BgL_objz00_1920 = 
(BgL_objectz00_bglt)(BgL_arg3845z00_1361); 
{ /* ./Bdb/emit.scm 254 */
long BgL_objzd2classzd2numz00_1921;
BgL_objzd2classzd2numz00_1921 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1920); 
{ /* ./Bdb/emit.scm 254 */
obj_t BgL_arg2017z00_1922;
{ /* ./Bdb/emit.scm 254 */
int BgL_auxz00_2952;
BgL_auxz00_2952 = 
(int)(((long)1)); 
BgL_arg2017z00_1922 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2952); } 
{ /* ./Bdb/emit.scm 254 */
int BgL_offsetz00_1925;
BgL_offsetz00_1925 = 
(int)(BgL_objzd2classzd2numz00_1921); 
{ /* ./Bdb/emit.scm 254 */
long BgL_offsetz00_1926;
{ /* ./Bdb/emit.scm 254 */
long BgL_auxz00_2956;
BgL_auxz00_2956 = 
(long)(BgL_offsetz00_1925); 
BgL_offsetz00_1926 = 
(BgL_auxz00_2956-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 254 */
long BgL_modz00_1927;
{ /* ./Bdb/emit.scm 254 */
int BgL_arg2028z00_1928;
BgL_arg2028z00_1928 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 254 */
long BgL_n2z00_1936;
BgL_n2z00_1936 = 
(long)(BgL_arg2028z00_1928); 
BgL_modz00_1927 = 
(BgL_offsetz00_1926/BgL_n2z00_1936); } } 
{ /* ./Bdb/emit.scm 254 */
long BgL_restz00_1929;
{ /* ./Bdb/emit.scm 254 */
int BgL_arg2024z00_1930;
BgL_arg2024z00_1930 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 254 */
long BgL_n2z00_1939;
BgL_n2z00_1939 = 
(long)(BgL_arg2024z00_1930); 
BgL_restz00_1929 = 
(BgL_offsetz00_1926%BgL_n2z00_1939); } } 
{ /* ./Bdb/emit.scm 254 */

{ /* ./Bdb/emit.scm 254 */
obj_t BgL_bucketz00_1931;
{ /* ./Bdb/emit.scm 254 */
int BgL_kz00_1941;
BgL_kz00_1941 = 
(int)(BgL_modz00_1927); 
BgL_bucketz00_1931 = 
VECTOR_REF(BgL_arg2017z00_1922,BgL_kz00_1941); } 
{ /* ./Bdb/emit.scm 254 */
int BgL_kz00_1943;
BgL_kz00_1943 = 
(int)(BgL_restz00_1929); 
BgL_method3008z00_1919 = 
VECTOR_REF(BgL_bucketz00_1931,BgL_kz00_1943); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_1919)(BgL_method3008z00_1919, 
(obj_t)(BgL_arg3845z00_1361), BEOA);} } } } 
}



/* bdb!-select3022 */
obj_t BGl_bdbz12zd2select3022zc0zzbdb_emitz00(obj_t BgL_envz00_2297, obj_t BgL_nodez00_2298)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 241 */
{ 
BgL_selectz00_bglt BgL_nodez00_1336;
{ /* ./Bdb/emit.scm 242 */
bool_t BgL_auxz00_2973;
BgL_nodez00_1336 = 
(BgL_selectz00_bglt)(BgL_nodez00_2298); 
{ /* ./Bdb/emit.scm 243 */
BgL_nodez00_bglt BgL_arg3805z00_1340;
BgL_arg3805z00_1340 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1336))->BgL_testz00); 
{ /* ./Bdb/emit.scm 243 */
obj_t BgL_method3008z00_1856;
{ /* ./Bdb/emit.scm 243 */
BgL_objectz00_bglt BgL_objz00_1857;
BgL_objz00_1857 = 
(BgL_objectz00_bglt)(BgL_arg3805z00_1340); 
{ /* ./Bdb/emit.scm 243 */
long BgL_objzd2classzd2numz00_1858;
BgL_objzd2classzd2numz00_1858 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1857); 
{ /* ./Bdb/emit.scm 243 */
obj_t BgL_arg2017z00_1859;
{ /* ./Bdb/emit.scm 243 */
int BgL_auxz00_2977;
BgL_auxz00_2977 = 
(int)(((long)1)); 
BgL_arg2017z00_1859 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_2977); } 
{ /* ./Bdb/emit.scm 243 */
int BgL_offsetz00_1862;
BgL_offsetz00_1862 = 
(int)(BgL_objzd2classzd2numz00_1858); 
{ /* ./Bdb/emit.scm 243 */
long BgL_offsetz00_1863;
{ /* ./Bdb/emit.scm 243 */
long BgL_auxz00_2981;
BgL_auxz00_2981 = 
(long)(BgL_offsetz00_1862); 
BgL_offsetz00_1863 = 
(BgL_auxz00_2981-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 243 */
long BgL_modz00_1864;
{ /* ./Bdb/emit.scm 243 */
int BgL_arg2028z00_1865;
BgL_arg2028z00_1865 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 243 */
long BgL_n2z00_1873;
BgL_n2z00_1873 = 
(long)(BgL_arg2028z00_1865); 
BgL_modz00_1864 = 
(BgL_offsetz00_1863/BgL_n2z00_1873); } } 
{ /* ./Bdb/emit.scm 243 */
long BgL_restz00_1866;
{ /* ./Bdb/emit.scm 243 */
int BgL_arg2024z00_1867;
BgL_arg2024z00_1867 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 243 */
long BgL_n2z00_1876;
BgL_n2z00_1876 = 
(long)(BgL_arg2024z00_1867); 
BgL_restz00_1866 = 
(BgL_offsetz00_1863%BgL_n2z00_1876); } } 
{ /* ./Bdb/emit.scm 243 */

{ /* ./Bdb/emit.scm 243 */
obj_t BgL_bucketz00_1868;
{ /* ./Bdb/emit.scm 243 */
int BgL_kz00_1878;
BgL_kz00_1878 = 
(int)(BgL_modz00_1864); 
BgL_bucketz00_1868 = 
VECTOR_REF(BgL_arg2017z00_1859,BgL_kz00_1878); } 
{ /* ./Bdb/emit.scm 243 */
int BgL_kz00_1880;
BgL_kz00_1880 = 
(int)(BgL_restz00_1866); 
BgL_method3008z00_1856 = 
VECTOR_REF(BgL_bucketz00_1868,BgL_kz00_1880); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_1856)(BgL_method3008z00_1856, 
(obj_t)(BgL_arg3805z00_1340), BEOA); } } 
{ 
obj_t BgL_l2982z00_1341;
{ /* ./Bdb/emit.scm 244 */
obj_t BgL_arg3809z00_1343;
BgL_arg3809z00_1343 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1336))->BgL_clausesz00); 
BgL_l2982z00_1341 = BgL_arg3809z00_1343; 
BgL_forzd2each2983zd2_1342:
{ /* ./Bdb/emit.scm 244 */
bool_t BgL_test3812z00_1344;
BgL_test3812z00_1344 = 
PAIRP(BgL_l2982z00_1341); 
if(BgL_test3812z00_1344)
{ /* ./Bdb/emit.scm 244 */
{ /* ./Bdb/emit.scm 244 */
obj_t BgL_clausez00_1345;
BgL_clausez00_1345 = 
CAR(BgL_l2982z00_1341); 
{ /* ./Bdb/emit.scm 244 */
obj_t BgL_arg3814z00_1346;
BgL_arg3814z00_1346 = 
CDR(BgL_clausez00_1345); 
{ /* ./Bdb/emit.scm 244 */
BgL_nodez00_bglt BgL_nodez00_1885;
BgL_nodez00_1885 = 
(BgL_nodez00_bglt)(BgL_arg3814z00_1346); 
{ /* ./Bdb/emit.scm 244 */
obj_t BgL_method3008z00_1886;
{ /* ./Bdb/emit.scm 244 */
BgL_objectz00_bglt BgL_objz00_1887;
BgL_objz00_1887 = 
(BgL_objectz00_bglt)(BgL_nodez00_1885); 
{ /* ./Bdb/emit.scm 244 */
long BgL_objzd2classzd2numz00_1888;
BgL_objzd2classzd2numz00_1888 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1887); 
{ /* ./Bdb/emit.scm 244 */
obj_t BgL_arg2017z00_1889;
{ /* ./Bdb/emit.scm 244 */
int BgL_auxz00_3005;
BgL_auxz00_3005 = 
(int)(((long)1)); 
BgL_arg2017z00_1889 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3005); } 
{ /* ./Bdb/emit.scm 244 */
int BgL_offsetz00_1892;
BgL_offsetz00_1892 = 
(int)(BgL_objzd2classzd2numz00_1888); 
{ /* ./Bdb/emit.scm 244 */
long BgL_offsetz00_1893;
{ /* ./Bdb/emit.scm 244 */
long BgL_auxz00_3009;
BgL_auxz00_3009 = 
(long)(BgL_offsetz00_1892); 
BgL_offsetz00_1893 = 
(BgL_auxz00_3009-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 244 */
long BgL_modz00_1894;
{ /* ./Bdb/emit.scm 244 */
int BgL_arg2028z00_1895;
BgL_arg2028z00_1895 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 244 */
long BgL_n2z00_1903;
BgL_n2z00_1903 = 
(long)(BgL_arg2028z00_1895); 
BgL_modz00_1894 = 
(BgL_offsetz00_1893/BgL_n2z00_1903); } } 
{ /* ./Bdb/emit.scm 244 */
long BgL_restz00_1896;
{ /* ./Bdb/emit.scm 244 */
int BgL_arg2024z00_1897;
BgL_arg2024z00_1897 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 244 */
long BgL_n2z00_1906;
BgL_n2z00_1906 = 
(long)(BgL_arg2024z00_1897); 
BgL_restz00_1896 = 
(BgL_offsetz00_1893%BgL_n2z00_1906); } } 
{ /* ./Bdb/emit.scm 244 */

{ /* ./Bdb/emit.scm 244 */
obj_t BgL_bucketz00_1898;
{ /* ./Bdb/emit.scm 244 */
int BgL_kz00_1908;
BgL_kz00_1908 = 
(int)(BgL_modz00_1894); 
BgL_bucketz00_1898 = 
VECTOR_REF(BgL_arg2017z00_1889,BgL_kz00_1908); } 
{ /* ./Bdb/emit.scm 244 */
int BgL_kz00_1910;
BgL_kz00_1910 = 
(int)(BgL_restz00_1896); 
BgL_method3008z00_1886 = 
VECTOR_REF(BgL_bucketz00_1898,BgL_kz00_1910); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_1886)(BgL_method3008z00_1886, 
(obj_t)(BgL_nodez00_1885), BEOA); } } } } 
{ /* ./Bdb/emit.scm 244 */
obj_t BgL_arg3819z00_1347;
BgL_arg3819z00_1347 = 
CDR(BgL_l2982z00_1341); 
{ 
obj_t BgL_l2982z00_3026;
BgL_l2982z00_3026 = BgL_arg3819z00_1347; 
BgL_l2982z00_1341 = BgL_l2982z00_3026; 
goto BgL_forzd2each2983zd2_1342;} } }  else 
{ /* ./Bdb/emit.scm 244 */
BgL_auxz00_2973 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_2973);} } } 
}



/* bdb!-fail3020 */
obj_t BGl_bdbz12zd2fail3020zc0zzbdb_emitz00(obj_t BgL_envz00_2299, obj_t BgL_nodez00_2300)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 232 */
{ 
BgL_failz00_bglt BgL_nodez00_1327;
BgL_nodez00_1327 = 
(BgL_failz00_bglt)(BgL_nodez00_2300); 
{ /* ./Bdb/emit.scm 234 */
BgL_nodez00_bglt BgL_arg3787z00_1331;
BgL_arg3787z00_1331 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1327))->BgL_procz00); 
{ /* ./Bdb/emit.scm 234 */
obj_t BgL_method3008z00_1775;
{ /* ./Bdb/emit.scm 234 */
BgL_objectz00_bglt BgL_objz00_1776;
BgL_objz00_1776 = 
(BgL_objectz00_bglt)(BgL_arg3787z00_1331); 
{ /* ./Bdb/emit.scm 234 */
long BgL_objzd2classzd2numz00_1777;
BgL_objzd2classzd2numz00_1777 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1776); 
{ /* ./Bdb/emit.scm 234 */
obj_t BgL_arg2017z00_1778;
{ /* ./Bdb/emit.scm 234 */
int BgL_auxz00_3032;
BgL_auxz00_3032 = 
(int)(((long)1)); 
BgL_arg2017z00_1778 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3032); } 
{ /* ./Bdb/emit.scm 234 */
int BgL_offsetz00_1781;
BgL_offsetz00_1781 = 
(int)(BgL_objzd2classzd2numz00_1777); 
{ /* ./Bdb/emit.scm 234 */
long BgL_offsetz00_1782;
{ /* ./Bdb/emit.scm 234 */
long BgL_auxz00_3036;
BgL_auxz00_3036 = 
(long)(BgL_offsetz00_1781); 
BgL_offsetz00_1782 = 
(BgL_auxz00_3036-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 234 */
long BgL_modz00_1783;
{ /* ./Bdb/emit.scm 234 */
int BgL_arg2028z00_1784;
BgL_arg2028z00_1784 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 234 */
long BgL_n2z00_1792;
BgL_n2z00_1792 = 
(long)(BgL_arg2028z00_1784); 
BgL_modz00_1783 = 
(BgL_offsetz00_1782/BgL_n2z00_1792); } } 
{ /* ./Bdb/emit.scm 234 */
long BgL_restz00_1785;
{ /* ./Bdb/emit.scm 234 */
int BgL_arg2024z00_1786;
BgL_arg2024z00_1786 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 234 */
long BgL_n2z00_1795;
BgL_n2z00_1795 = 
(long)(BgL_arg2024z00_1786); 
BgL_restz00_1785 = 
(BgL_offsetz00_1782%BgL_n2z00_1795); } } 
{ /* ./Bdb/emit.scm 234 */

{ /* ./Bdb/emit.scm 234 */
obj_t BgL_bucketz00_1787;
{ /* ./Bdb/emit.scm 234 */
int BgL_kz00_1797;
BgL_kz00_1797 = 
(int)(BgL_modz00_1783); 
BgL_bucketz00_1787 = 
VECTOR_REF(BgL_arg2017z00_1778,BgL_kz00_1797); } 
{ /* ./Bdb/emit.scm 234 */
int BgL_kz00_1799;
BgL_kz00_1799 = 
(int)(BgL_restz00_1785); 
BgL_method3008z00_1775 = 
VECTOR_REF(BgL_bucketz00_1787,BgL_kz00_1799); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_1775)(BgL_method3008z00_1775, 
(obj_t)(BgL_arg3787z00_1331), BEOA); } } 
{ /* ./Bdb/emit.scm 235 */
BgL_nodez00_bglt BgL_arg3791z00_1332;
BgL_arg3791z00_1332 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1327))->BgL_msgz00); 
{ /* ./Bdb/emit.scm 235 */
obj_t BgL_method3008z00_1802;
{ /* ./Bdb/emit.scm 235 */
BgL_objectz00_bglt BgL_objz00_1803;
BgL_objz00_1803 = 
(BgL_objectz00_bglt)(BgL_arg3791z00_1332); 
{ /* ./Bdb/emit.scm 235 */
long BgL_objzd2classzd2numz00_1804;
BgL_objzd2classzd2numz00_1804 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1803); 
{ /* ./Bdb/emit.scm 235 */
obj_t BgL_arg2017z00_1805;
{ /* ./Bdb/emit.scm 235 */
int BgL_auxz00_3055;
BgL_auxz00_3055 = 
(int)(((long)1)); 
BgL_arg2017z00_1805 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3055); } 
{ /* ./Bdb/emit.scm 235 */
int BgL_offsetz00_1808;
BgL_offsetz00_1808 = 
(int)(BgL_objzd2classzd2numz00_1804); 
{ /* ./Bdb/emit.scm 235 */
long BgL_offsetz00_1809;
{ /* ./Bdb/emit.scm 235 */
long BgL_auxz00_3059;
BgL_auxz00_3059 = 
(long)(BgL_offsetz00_1808); 
BgL_offsetz00_1809 = 
(BgL_auxz00_3059-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 235 */
long BgL_modz00_1810;
{ /* ./Bdb/emit.scm 235 */
int BgL_arg2028z00_1811;
BgL_arg2028z00_1811 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 235 */
long BgL_n2z00_1819;
BgL_n2z00_1819 = 
(long)(BgL_arg2028z00_1811); 
BgL_modz00_1810 = 
(BgL_offsetz00_1809/BgL_n2z00_1819); } } 
{ /* ./Bdb/emit.scm 235 */
long BgL_restz00_1812;
{ /* ./Bdb/emit.scm 235 */
int BgL_arg2024z00_1813;
BgL_arg2024z00_1813 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 235 */
long BgL_n2z00_1822;
BgL_n2z00_1822 = 
(long)(BgL_arg2024z00_1813); 
BgL_restz00_1812 = 
(BgL_offsetz00_1809%BgL_n2z00_1822); } } 
{ /* ./Bdb/emit.scm 235 */

{ /* ./Bdb/emit.scm 235 */
obj_t BgL_bucketz00_1814;
{ /* ./Bdb/emit.scm 235 */
int BgL_kz00_1824;
BgL_kz00_1824 = 
(int)(BgL_modz00_1810); 
BgL_bucketz00_1814 = 
VECTOR_REF(BgL_arg2017z00_1805,BgL_kz00_1824); } 
{ /* ./Bdb/emit.scm 235 */
int BgL_kz00_1826;
BgL_kz00_1826 = 
(int)(BgL_restz00_1812); 
BgL_method3008z00_1802 = 
VECTOR_REF(BgL_bucketz00_1814,BgL_kz00_1826); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_1802)(BgL_method3008z00_1802, 
(obj_t)(BgL_arg3791z00_1332), BEOA); } } 
{ /* ./Bdb/emit.scm 236 */
BgL_nodez00_bglt BgL_arg3795z00_1333;
BgL_arg3795z00_1333 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1327))->BgL_objz00); 
{ /* ./Bdb/emit.scm 236 */
obj_t BgL_method3008z00_1829;
{ /* ./Bdb/emit.scm 236 */
BgL_objectz00_bglt BgL_objz00_1830;
BgL_objz00_1830 = 
(BgL_objectz00_bglt)(BgL_arg3795z00_1333); 
{ /* ./Bdb/emit.scm 236 */
long BgL_objzd2classzd2numz00_1831;
BgL_objzd2classzd2numz00_1831 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1830); 
{ /* ./Bdb/emit.scm 236 */
obj_t BgL_arg2017z00_1832;
{ /* ./Bdb/emit.scm 236 */
int BgL_auxz00_3078;
BgL_auxz00_3078 = 
(int)(((long)1)); 
BgL_arg2017z00_1832 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3078); } 
{ /* ./Bdb/emit.scm 236 */
int BgL_offsetz00_1835;
BgL_offsetz00_1835 = 
(int)(BgL_objzd2classzd2numz00_1831); 
{ /* ./Bdb/emit.scm 236 */
long BgL_offsetz00_1836;
{ /* ./Bdb/emit.scm 236 */
long BgL_auxz00_3082;
BgL_auxz00_3082 = 
(long)(BgL_offsetz00_1835); 
BgL_offsetz00_1836 = 
(BgL_auxz00_3082-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 236 */
long BgL_modz00_1837;
{ /* ./Bdb/emit.scm 236 */
int BgL_arg2028z00_1838;
BgL_arg2028z00_1838 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 236 */
long BgL_n2z00_1846;
BgL_n2z00_1846 = 
(long)(BgL_arg2028z00_1838); 
BgL_modz00_1837 = 
(BgL_offsetz00_1836/BgL_n2z00_1846); } } 
{ /* ./Bdb/emit.scm 236 */
long BgL_restz00_1839;
{ /* ./Bdb/emit.scm 236 */
int BgL_arg2024z00_1840;
BgL_arg2024z00_1840 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 236 */
long BgL_n2z00_1849;
BgL_n2z00_1849 = 
(long)(BgL_arg2024z00_1840); 
BgL_restz00_1839 = 
(BgL_offsetz00_1836%BgL_n2z00_1849); } } 
{ /* ./Bdb/emit.scm 236 */

{ /* ./Bdb/emit.scm 236 */
obj_t BgL_bucketz00_1841;
{ /* ./Bdb/emit.scm 236 */
int BgL_kz00_1851;
BgL_kz00_1851 = 
(int)(BgL_modz00_1837); 
BgL_bucketz00_1841 = 
VECTOR_REF(BgL_arg2017z00_1832,BgL_kz00_1851); } 
{ /* ./Bdb/emit.scm 236 */
int BgL_kz00_1853;
BgL_kz00_1853 = 
(int)(BgL_restz00_1839); 
BgL_method3008z00_1829 = 
VECTOR_REF(BgL_bucketz00_1841,BgL_kz00_1853); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_1829)(BgL_method3008z00_1829, 
(obj_t)(BgL_arg3795z00_1333), BEOA);} } } } 
}



/* bdb!-conditional3018 */
obj_t BGl_bdbz12zd2conditional3018zc0zzbdb_emitz00(obj_t BgL_envz00_2301, obj_t BgL_nodez00_2302)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 223 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1318;
BgL_nodez00_1318 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2302); 
{ /* ./Bdb/emit.scm 225 */
BgL_nodez00_bglt BgL_arg3768z00_1322;
BgL_arg3768z00_1322 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1318))->BgL_testz00); 
{ /* ./Bdb/emit.scm 225 */
obj_t BgL_method3008z00_1694;
{ /* ./Bdb/emit.scm 225 */
BgL_objectz00_bglt BgL_objz00_1695;
BgL_objz00_1695 = 
(BgL_objectz00_bglt)(BgL_arg3768z00_1322); 
{ /* ./Bdb/emit.scm 225 */
long BgL_objzd2classzd2numz00_1696;
BgL_objzd2classzd2numz00_1696 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1695); 
{ /* ./Bdb/emit.scm 225 */
obj_t BgL_arg2017z00_1697;
{ /* ./Bdb/emit.scm 225 */
int BgL_auxz00_3102;
BgL_auxz00_3102 = 
(int)(((long)1)); 
BgL_arg2017z00_1697 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3102); } 
{ /* ./Bdb/emit.scm 225 */
int BgL_offsetz00_1700;
BgL_offsetz00_1700 = 
(int)(BgL_objzd2classzd2numz00_1696); 
{ /* ./Bdb/emit.scm 225 */
long BgL_offsetz00_1701;
{ /* ./Bdb/emit.scm 225 */
long BgL_auxz00_3106;
BgL_auxz00_3106 = 
(long)(BgL_offsetz00_1700); 
BgL_offsetz00_1701 = 
(BgL_auxz00_3106-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 225 */
long BgL_modz00_1702;
{ /* ./Bdb/emit.scm 225 */
int BgL_arg2028z00_1703;
BgL_arg2028z00_1703 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 225 */
long BgL_n2z00_1711;
BgL_n2z00_1711 = 
(long)(BgL_arg2028z00_1703); 
BgL_modz00_1702 = 
(BgL_offsetz00_1701/BgL_n2z00_1711); } } 
{ /* ./Bdb/emit.scm 225 */
long BgL_restz00_1704;
{ /* ./Bdb/emit.scm 225 */
int BgL_arg2024z00_1705;
BgL_arg2024z00_1705 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 225 */
long BgL_n2z00_1714;
BgL_n2z00_1714 = 
(long)(BgL_arg2024z00_1705); 
BgL_restz00_1704 = 
(BgL_offsetz00_1701%BgL_n2z00_1714); } } 
{ /* ./Bdb/emit.scm 225 */

{ /* ./Bdb/emit.scm 225 */
obj_t BgL_bucketz00_1706;
{ /* ./Bdb/emit.scm 225 */
int BgL_kz00_1716;
BgL_kz00_1716 = 
(int)(BgL_modz00_1702); 
BgL_bucketz00_1706 = 
VECTOR_REF(BgL_arg2017z00_1697,BgL_kz00_1716); } 
{ /* ./Bdb/emit.scm 225 */
int BgL_kz00_1718;
BgL_kz00_1718 = 
(int)(BgL_restz00_1704); 
BgL_method3008z00_1694 = 
VECTOR_REF(BgL_bucketz00_1706,BgL_kz00_1718); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_1694)(BgL_method3008z00_1694, 
(obj_t)(BgL_arg3768z00_1322), BEOA); } } 
{ /* ./Bdb/emit.scm 226 */
BgL_nodez00_bglt BgL_arg3773z00_1323;
BgL_arg3773z00_1323 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1318))->BgL_truez00); 
{ /* ./Bdb/emit.scm 226 */
obj_t BgL_method3008z00_1721;
{ /* ./Bdb/emit.scm 226 */
BgL_objectz00_bglt BgL_objz00_1722;
BgL_objz00_1722 = 
(BgL_objectz00_bglt)(BgL_arg3773z00_1323); 
{ /* ./Bdb/emit.scm 226 */
long BgL_objzd2classzd2numz00_1723;
BgL_objzd2classzd2numz00_1723 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1722); 
{ /* ./Bdb/emit.scm 226 */
obj_t BgL_arg2017z00_1724;
{ /* ./Bdb/emit.scm 226 */
int BgL_auxz00_3125;
BgL_auxz00_3125 = 
(int)(((long)1)); 
BgL_arg2017z00_1724 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3125); } 
{ /* ./Bdb/emit.scm 226 */
int BgL_offsetz00_1727;
BgL_offsetz00_1727 = 
(int)(BgL_objzd2classzd2numz00_1723); 
{ /* ./Bdb/emit.scm 226 */
long BgL_offsetz00_1728;
{ /* ./Bdb/emit.scm 226 */
long BgL_auxz00_3129;
BgL_auxz00_3129 = 
(long)(BgL_offsetz00_1727); 
BgL_offsetz00_1728 = 
(BgL_auxz00_3129-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 226 */
long BgL_modz00_1729;
{ /* ./Bdb/emit.scm 226 */
int BgL_arg2028z00_1730;
BgL_arg2028z00_1730 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 226 */
long BgL_n2z00_1738;
BgL_n2z00_1738 = 
(long)(BgL_arg2028z00_1730); 
BgL_modz00_1729 = 
(BgL_offsetz00_1728/BgL_n2z00_1738); } } 
{ /* ./Bdb/emit.scm 226 */
long BgL_restz00_1731;
{ /* ./Bdb/emit.scm 226 */
int BgL_arg2024z00_1732;
BgL_arg2024z00_1732 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 226 */
long BgL_n2z00_1741;
BgL_n2z00_1741 = 
(long)(BgL_arg2024z00_1732); 
BgL_restz00_1731 = 
(BgL_offsetz00_1728%BgL_n2z00_1741); } } 
{ /* ./Bdb/emit.scm 226 */

{ /* ./Bdb/emit.scm 226 */
obj_t BgL_bucketz00_1733;
{ /* ./Bdb/emit.scm 226 */
int BgL_kz00_1743;
BgL_kz00_1743 = 
(int)(BgL_modz00_1729); 
BgL_bucketz00_1733 = 
VECTOR_REF(BgL_arg2017z00_1724,BgL_kz00_1743); } 
{ /* ./Bdb/emit.scm 226 */
int BgL_kz00_1745;
BgL_kz00_1745 = 
(int)(BgL_restz00_1731); 
BgL_method3008z00_1721 = 
VECTOR_REF(BgL_bucketz00_1733,BgL_kz00_1745); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3008z00_1721)(BgL_method3008z00_1721, 
(obj_t)(BgL_arg3773z00_1323), BEOA); } } 
{ /* ./Bdb/emit.scm 227 */
BgL_nodez00_bglt BgL_arg3777z00_1324;
BgL_arg3777z00_1324 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1318))->BgL_falsez00); 
{ /* ./Bdb/emit.scm 227 */
obj_t BgL_method3008z00_1748;
{ /* ./Bdb/emit.scm 227 */
BgL_objectz00_bglt BgL_objz00_1749;
BgL_objz00_1749 = 
(BgL_objectz00_bglt)(BgL_arg3777z00_1324); 
{ /* ./Bdb/emit.scm 227 */
long BgL_objzd2classzd2numz00_1750;
BgL_objzd2classzd2numz00_1750 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1749); 
{ /* ./Bdb/emit.scm 227 */
obj_t BgL_arg2017z00_1751;
{ /* ./Bdb/emit.scm 227 */
int BgL_auxz00_3148;
BgL_auxz00_3148 = 
(int)(((long)1)); 
BgL_arg2017z00_1751 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3148); } 
{ /* ./Bdb/emit.scm 227 */
int BgL_offsetz00_1754;
BgL_offsetz00_1754 = 
(int)(BgL_objzd2classzd2numz00_1750); 
{ /* ./Bdb/emit.scm 227 */
long BgL_offsetz00_1755;
{ /* ./Bdb/emit.scm 227 */
long BgL_auxz00_3152;
BgL_auxz00_3152 = 
(long)(BgL_offsetz00_1754); 
BgL_offsetz00_1755 = 
(BgL_auxz00_3152-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 227 */
long BgL_modz00_1756;
{ /* ./Bdb/emit.scm 227 */
int BgL_arg2028z00_1757;
BgL_arg2028z00_1757 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 227 */
long BgL_n2z00_1765;
BgL_n2z00_1765 = 
(long)(BgL_arg2028z00_1757); 
BgL_modz00_1756 = 
(BgL_offsetz00_1755/BgL_n2z00_1765); } } 
{ /* ./Bdb/emit.scm 227 */
long BgL_restz00_1758;
{ /* ./Bdb/emit.scm 227 */
int BgL_arg2024z00_1759;
BgL_arg2024z00_1759 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 227 */
long BgL_n2z00_1768;
BgL_n2z00_1768 = 
(long)(BgL_arg2024z00_1759); 
BgL_restz00_1758 = 
(BgL_offsetz00_1755%BgL_n2z00_1768); } } 
{ /* ./Bdb/emit.scm 227 */

{ /* ./Bdb/emit.scm 227 */
obj_t BgL_bucketz00_1760;
{ /* ./Bdb/emit.scm 227 */
int BgL_kz00_1770;
BgL_kz00_1770 = 
(int)(BgL_modz00_1756); 
BgL_bucketz00_1760 = 
VECTOR_REF(BgL_arg2017z00_1751,BgL_kz00_1770); } 
{ /* ./Bdb/emit.scm 227 */
int BgL_kz00_1772;
BgL_kz00_1772 = 
(int)(BgL_restz00_1758); 
BgL_method3008z00_1748 = 
VECTOR_REF(BgL_bucketz00_1760,BgL_kz00_1772); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_1748)(BgL_method3008z00_1748, 
(obj_t)(BgL_arg3777z00_1324), BEOA);} } } } 
}



/* bdb!-setq3016 */
obj_t BGl_bdbz12zd2setq3016zc0zzbdb_emitz00(obj_t BgL_envz00_2303, obj_t BgL_nodez00_2304)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 216 */
{ 
BgL_setqz00_bglt BgL_nodez00_1311;
BgL_nodez00_1311 = 
(BgL_setqz00_bglt)(BgL_nodez00_2304); 
{ /* ./Bdb/emit.scm 217 */
BgL_nodez00_bglt BgL_arg3758z00_1664;
BgL_arg3758z00_1664 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1311))->BgL_valuez00); 
{ /* ./Bdb/emit.scm 217 */
obj_t BgL_method3008z00_1667;
{ /* ./Bdb/emit.scm 217 */
BgL_objectz00_bglt BgL_objz00_1668;
BgL_objz00_1668 = 
(BgL_objectz00_bglt)(BgL_arg3758z00_1664); 
{ /* ./Bdb/emit.scm 217 */
long BgL_objzd2classzd2numz00_1669;
BgL_objzd2classzd2numz00_1669 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1668); 
{ /* ./Bdb/emit.scm 217 */
obj_t BgL_arg2017z00_1670;
{ /* ./Bdb/emit.scm 217 */
int BgL_auxz00_3172;
BgL_auxz00_3172 = 
(int)(((long)1)); 
BgL_arg2017z00_1670 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3172); } 
{ /* ./Bdb/emit.scm 217 */
int BgL_offsetz00_1673;
BgL_offsetz00_1673 = 
(int)(BgL_objzd2classzd2numz00_1669); 
{ /* ./Bdb/emit.scm 217 */
long BgL_offsetz00_1674;
{ /* ./Bdb/emit.scm 217 */
long BgL_auxz00_3176;
BgL_auxz00_3176 = 
(long)(BgL_offsetz00_1673); 
BgL_offsetz00_1674 = 
(BgL_auxz00_3176-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 217 */
long BgL_modz00_1675;
{ /* ./Bdb/emit.scm 217 */
int BgL_arg2028z00_1676;
BgL_arg2028z00_1676 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 217 */
long BgL_n2z00_1684;
BgL_n2z00_1684 = 
(long)(BgL_arg2028z00_1676); 
BgL_modz00_1675 = 
(BgL_offsetz00_1674/BgL_n2z00_1684); } } 
{ /* ./Bdb/emit.scm 217 */
long BgL_restz00_1677;
{ /* ./Bdb/emit.scm 217 */
int BgL_arg2024z00_1678;
BgL_arg2024z00_1678 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 217 */
long BgL_n2z00_1687;
BgL_n2z00_1687 = 
(long)(BgL_arg2024z00_1678); 
BgL_restz00_1677 = 
(BgL_offsetz00_1674%BgL_n2z00_1687); } } 
{ /* ./Bdb/emit.scm 217 */

{ /* ./Bdb/emit.scm 217 */
obj_t BgL_bucketz00_1679;
{ /* ./Bdb/emit.scm 217 */
int BgL_kz00_1689;
BgL_kz00_1689 = 
(int)(BgL_modz00_1675); 
BgL_bucketz00_1679 = 
VECTOR_REF(BgL_arg2017z00_1670,BgL_kz00_1689); } 
{ /* ./Bdb/emit.scm 217 */
int BgL_kz00_1691;
BgL_kz00_1691 = 
(int)(BgL_restz00_1677); 
BgL_method3008z00_1667 = 
VECTOR_REF(BgL_bucketz00_1679,BgL_kz00_1691); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_1667)(BgL_method3008z00_1667, 
(obj_t)(BgL_arg3758z00_1664), BEOA);} } } } 
}



/* bdb!-cast3014 */
obj_t BGl_bdbz12zd2cast3014zc0zzbdb_emitz00(obj_t BgL_envz00_2305, obj_t BgL_nodez00_2306)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 209 */
{ 
BgL_castz00_bglt BgL_nodez00_1304;
BgL_nodez00_1304 = 
(BgL_castz00_bglt)(BgL_nodez00_2306); 
{ /* ./Bdb/emit.scm 210 */
BgL_nodez00_bglt BgL_arg3748z00_1635;
BgL_arg3748z00_1635 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1304))->BgL_argz00); 
{ /* ./Bdb/emit.scm 210 */
obj_t BgL_method3008z00_1638;
{ /* ./Bdb/emit.scm 210 */
BgL_objectz00_bglt BgL_objz00_1639;
BgL_objz00_1639 = 
(BgL_objectz00_bglt)(BgL_arg3748z00_1635); 
{ /* ./Bdb/emit.scm 210 */
long BgL_objzd2classzd2numz00_1640;
BgL_objzd2classzd2numz00_1640 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1639); 
{ /* ./Bdb/emit.scm 210 */
obj_t BgL_arg2017z00_1641;
{ /* ./Bdb/emit.scm 210 */
int BgL_auxz00_3196;
BgL_auxz00_3196 = 
(int)(((long)1)); 
BgL_arg2017z00_1641 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3196); } 
{ /* ./Bdb/emit.scm 210 */
int BgL_offsetz00_1644;
BgL_offsetz00_1644 = 
(int)(BgL_objzd2classzd2numz00_1640); 
{ /* ./Bdb/emit.scm 210 */
long BgL_offsetz00_1645;
{ /* ./Bdb/emit.scm 210 */
long BgL_auxz00_3200;
BgL_auxz00_3200 = 
(long)(BgL_offsetz00_1644); 
BgL_offsetz00_1645 = 
(BgL_auxz00_3200-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 210 */
long BgL_modz00_1646;
{ /* ./Bdb/emit.scm 210 */
int BgL_arg2028z00_1647;
BgL_arg2028z00_1647 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 210 */
long BgL_n2z00_1655;
BgL_n2z00_1655 = 
(long)(BgL_arg2028z00_1647); 
BgL_modz00_1646 = 
(BgL_offsetz00_1645/BgL_n2z00_1655); } } 
{ /* ./Bdb/emit.scm 210 */
long BgL_restz00_1648;
{ /* ./Bdb/emit.scm 210 */
int BgL_arg2024z00_1649;
BgL_arg2024z00_1649 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 210 */
long BgL_n2z00_1658;
BgL_n2z00_1658 = 
(long)(BgL_arg2024z00_1649); 
BgL_restz00_1648 = 
(BgL_offsetz00_1645%BgL_n2z00_1658); } } 
{ /* ./Bdb/emit.scm 210 */

{ /* ./Bdb/emit.scm 210 */
obj_t BgL_bucketz00_1650;
{ /* ./Bdb/emit.scm 210 */
int BgL_kz00_1660;
BgL_kz00_1660 = 
(int)(BgL_modz00_1646); 
BgL_bucketz00_1650 = 
VECTOR_REF(BgL_arg2017z00_1641,BgL_kz00_1660); } 
{ /* ./Bdb/emit.scm 210 */
int BgL_kz00_1662;
BgL_kz00_1662 = 
(int)(BgL_restz00_1648); 
BgL_method3008z00_1638 = 
VECTOR_REF(BgL_bucketz00_1650,BgL_kz00_1662); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_1638)(BgL_method3008z00_1638, 
(obj_t)(BgL_arg3748z00_1635), BEOA);} } } } 
}



/* bdb!-extern3012 */
obj_t BGl_bdbz12zd2extern3012zc0zzbdb_emitz00(obj_t BgL_envz00_2307, obj_t BgL_nodez00_2308)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 202 */
{ 
BgL_externz00_bglt BgL_nodez00_1297;
BgL_nodez00_1297 = 
(BgL_externz00_bglt)(BgL_nodez00_2308); 
{ /* ./Bdb/emit.scm 203 */
obj_t BgL_arg3738z00_1632;
BgL_arg3738z00_1632 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1297))->BgL_exprza2za2); 
return 
BGl_bdbza2z12zb0zzbdb_emitz00(BgL_arg3738z00_1632);} } } 
}



/* bdb!-sequence3010 */
obj_t BGl_bdbz12zd2sequence3010zc0zzbdb_emitz00(obj_t BgL_envz00_2309, obj_t BgL_nodez00_2310)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 195 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1290;
BgL_nodez00_1290 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2310); 
{ /* ./Bdb/emit.scm 196 */
obj_t BgL_arg3728z00_1629;
BgL_arg3728z00_1629 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1290))->BgL_nodesz00); 
return 
BGl_bdbza2z12zb0zzbdb_emitz00(BgL_arg3728z00_1629);} } } 
}



/* bdb! */
obj_t BGl_bdbz12z12zzbdb_emitz00(BgL_nodez00_bglt BgL_nodez00_40)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 189 */
{ /* ./Bdb/emit.scm 189 */
obj_t BgL_method3008z00_2230;
{ /* ./Bdb/emit.scm 189 */
BgL_objectz00_bglt BgL_objz00_2231;
BgL_objz00_2231 = 
(BgL_objectz00_bglt)(BgL_nodez00_40); 
{ /* ./Bdb/emit.scm 189 */
long BgL_objzd2classzd2numz00_2232;
BgL_objzd2classzd2numz00_2232 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2231); 
{ /* ./Bdb/emit.scm 189 */
obj_t BgL_arg2017z00_2233;
{ /* ./Bdb/emit.scm 189 */
int BgL_auxz00_3225;
BgL_auxz00_3225 = 
(int)(((long)1)); 
BgL_arg2017z00_2233 = 
PROCEDURE_REF(BGl_bdbz12zd2envzc0zzbdb_emitz00, BgL_auxz00_3225); } 
{ /* ./Bdb/emit.scm 189 */
int BgL_offsetz00_2236;
BgL_offsetz00_2236 = 
(int)(BgL_objzd2classzd2numz00_2232); 
{ /* ./Bdb/emit.scm 189 */
long BgL_offsetz00_2237;
{ /* ./Bdb/emit.scm 189 */
long BgL_auxz00_3229;
BgL_auxz00_3229 = 
(long)(BgL_offsetz00_2236); 
BgL_offsetz00_2237 = 
(BgL_auxz00_3229-OBJECT_TYPE); } 
{ /* ./Bdb/emit.scm 189 */
long BgL_modz00_2238;
{ /* ./Bdb/emit.scm 189 */
int BgL_arg2028z00_2239;
BgL_arg2028z00_2239 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 189 */
long BgL_n2z00_2247;
BgL_n2z00_2247 = 
(long)(BgL_arg2028z00_2239); 
BgL_modz00_2238 = 
(BgL_offsetz00_2237/BgL_n2z00_2247); } } 
{ /* ./Bdb/emit.scm 189 */
long BgL_restz00_2240;
{ /* ./Bdb/emit.scm 189 */
int BgL_arg2024z00_2241;
BgL_arg2024z00_2241 = 
(int)(((long)8)); 
{ /* ./Bdb/emit.scm 189 */
long BgL_n2z00_2250;
BgL_n2z00_2250 = 
(long)(BgL_arg2024z00_2241); 
BgL_restz00_2240 = 
(BgL_offsetz00_2237%BgL_n2z00_2250); } } 
{ /* ./Bdb/emit.scm 189 */

{ /* ./Bdb/emit.scm 189 */
obj_t BgL_bucketz00_2242;
{ /* ./Bdb/emit.scm 189 */
int BgL_kz00_2252;
BgL_kz00_2252 = 
(int)(BgL_modz00_2238); 
BgL_bucketz00_2242 = 
VECTOR_REF(BgL_arg2017z00_2233,BgL_kz00_2252); } 
{ /* ./Bdb/emit.scm 189 */
int BgL_kz00_2254;
BgL_kz00_2254 = 
(int)(BgL_restz00_2240); 
BgL_method3008z00_2230 = 
VECTOR_REF(BgL_bucketz00_2242,BgL_kz00_2254); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3008z00_2230)(BgL_method3008z00_2230, 
(obj_t)(BgL_nodez00_40), BEOA);} } 
}



/* _bdb!4044 */
obj_t BGl__bdbz124044z12zzbdb_emitz00(obj_t BgL_envz00_2261, obj_t BgL_nodez00_2262)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 189 */
return 
BGl_bdbz12z12zzbdb_emitz00(
(BgL_nodez00_bglt)(BgL_nodez00_2262));} 
}



/* _bdb!-default3007 */
obj_t BGl__bdbz12zd2default3007zc0zzbdb_emitz00(obj_t BgL_envz00_2311, obj_t BgL_nodez00_2312)
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzbdb_emitz00()
{ AN_OBJECT;
{ /* ./Bdb/emit.scm 15 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zztype_envz00(((long)25186), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzast_unitz00(((long)47192), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzmodule_includez00(((long)1783), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzengine_configurez00(((long)37635), "bdb_emit"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "bdb_emit"); 
return 
BGl_modulezd2initializa7ationz75zzbackend_c_prototypez00(((long)34740), "bdb_emit");} 
}

