/*===========================================================================*/
/*   (Jvm/compile.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 Jvm/compile.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_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;

typedef struct BgL_slotz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_srcz00;
   obj_t BgL_classzd2ownerzd2;
   obj_t BgL_typez00;
   bool_t BgL_readzd2onlyzf3z21;
   obj_t BgL_defaultzd2valuezd2;
   obj_t BgL_virtualzd2numzd2;
   obj_t BgL_getterz00;
   obj_t BgL_setterz00;
   obj_t BgL_indexedz00;
   obj_t BgL_userzd2infozd2;
} *BgL_slotz00_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_envz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_declarationsz00;
   obj_t BgL_declaredtypez00;
   obj_t BgL_declaredclassz00;
   obj_t BgL_declaredmodulez00;
   obj_t BgL_currentzd2modulezd2;
   obj_t BgL_declaredfieldsz00;
   obj_t BgL_declaredglobalz00;
   obj_t BgL_libdeclaredz00;
   obj_t BgL_proceduresz00;
   obj_t BgL_clinitzd2codezd2;
   obj_t BgL_currentzd2methodzd2;
   obj_t BgL_vcountz00;
   obj_t BgL_localsz00;
   obj_t BgL_freelocalsz00;
   obj_t BgL_maplocalsz00;
   obj_t BgL_stackz00;
   obj_t BgL_codez00;
} *BgL_envz00_bglt;


BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzjvm_compilez00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_za2srczd2filesza2zd2zzengine_paramz00;
extern obj_t BGl_getzd2classeszd2tozd2bezd2compiledz00zzjvm_externz00();
BGL_IMPORT obj_t BGl_ppz00zz__ppz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_tclasszd2idzd2manglingz00zzjvm_externz00(BgL_tclassz00_bglt);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_compilezd2mainzd2zzjvm_compilez00(obj_t);
extern obj_t BGl_envzd2declarezd2zzjvm_envz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
extern obj_t BGl_compilezd2typezd2zzjvm_envz00(obj_t, BgL_envz00_bglt);
static obj_t BGl_compilezd2formalszd2zzjvm_compilez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_debugzd2declarezd2varzd2fromzd2zzjvm_externz00(BgL_envz00_bglt, BgL_localz00_bglt, obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
extern BgL_nodez00_bglt BGl_compilezd2compresszd2zzjvm_compressz00(BgL_nodez00_bglt);
extern bool_t BGl_widezd2classzf3z21zzobject_classz00(obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_za2jvmzd2purifyza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzjvm_compilez00();
static obj_t BGl_compilezd2dlopenzd2zzjvm_compilez00(obj_t);
extern obj_t BGl_compilezd2typezd2nowideningz00zzjvm_envz00(obj_t, BgL_envz00_bglt);
static obj_t BGl_importedzd2moduleszd2initz00zzjvm_compilez00();
extern obj_t BGl_envzd2setzd2namez12z12zzjvm_envz00(BgL_envz00_bglt, BgL_localz00_bglt, obj_t);
extern obj_t BGl__checkcastz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl_jvm_peepholez00zzjvm_peepholez00(obj_t);
extern obj_t BGl__returnz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzjvm_compilez00(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_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_classz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_slotsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_externz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_instrz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_exprz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_compilerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_initz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_constrz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_closurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_preludez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_peepholez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_compressz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_lispz00(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__ppz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
static obj_t BGl_compilezd2globalfun1zd2zzjvm_compilez00(obj_t, obj_t);
static obj_t BGl_compilezd2modulezd2zzjvm_compilez00(obj_t);
extern obj_t BGl_findzd2globalzd2zzast_envz00(obj_t, obj_t);
BGL_IMPORT obj_t bgl_reverse(obj_t);
extern BgL_envz00_bglt BGl_makezd2envzd2zzjvm_envz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_jvmzd2constructorszd2zzjvm_constrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_compilezd2fieldszd2zzjvm_compilez00(obj_t);
static obj_t BGl__jvmzd2compilezd2zzjvm_compilez00(obj_t, obj_t);
extern bool_t BGl_slotzd2virtualzf3z21zzobject_slotsz00(BgL_slotz00_bglt);
extern obj_t BGl_za2mainza2z00zzmodule_modulez00;
extern obj_t BGl_envzd2declarezd2fieldz00zzjvm_envz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2classzd2zzjvm_compilez00(obj_t);
extern obj_t BGl_jvmzd2funcallerszd2zzjvm_closurez00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_getzd2globalzd2namez00zzjvm_envz00(BgL_envz00_bglt, BgL_globalz00_bglt);
extern obj_t BGl_za2jvmzd2catchza2zd2zzengine_paramz00;
static obj_t BGl_compilez00zzjvm_compilez00(obj_t);
extern obj_t BGl_compilezd2preludezd2zzjvm_preludez00(BgL_nodez00_bglt);
static obj_t BGl_requirezd2initializa7ationz75zzjvm_compilez00 = BUNSPEC;
static obj_t BGl_compilezd2classzd2fieldsz00zzjvm_compilez00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl_getzd2sourcefilezd2zzjvm_externz00();
extern obj_t BGl_compilezd2initzd2zzjvm_initz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzjvm_compilez00();
extern obj_t BGl__labelz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl_compilerzd2bodyzd2zzjvm_compilerz00(BgL_nodez00_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_jvmzd2compilezd2zzjvm_compilez00(obj_t);
static obj_t __cnst[ 44 ] ;


DEFINE_STRING( BGl_string4516z00zzjvm_compilez00, BgL_bgl_string4516za700za7za7jvm_compileza7004544z00, "_ (double long) reg2 reg1 end begin P module-initialization aconst_null iconst_0 internalerror pop bigloo_main invokestatic jthrowable catch to from handler argv listargv sde sourcefile vector constants static field __the_module_name__ module jstring j_procedure return invokespecial aload t fields sinit0 void public method init0 declare class jobject ", 353 );
DEFINE_STRING( BGl_string4515z00zzjvm_compilez00, BgL_bgl_string4515za700za7za7jvm_compileza7004545z00, "is not empty", 12 );
DEFINE_STRING( BGl_string4514z00zzjvm_compilez00, BgL_bgl_string4514za700za7za7jvm_compileza7004546z00, "stack", 5 );
DEFINE_STRING( BGl_string4513z00zzjvm_compilez00, BgL_bgl_string4513za700za7za7jvm_compileza7004547z00, "BGL_DYNAMIC_LOAD_INIT", 21 );
DEFINE_STRING( BGl_string4512z00zzjvm_compilez00, BgL_bgl_string4512za700za7za7jvm_compileza7004548z00, "main", 4 );
DEFINE_STRING( BGl_string4511z00zzjvm_compilez00, BgL_bgl_string4511za700za7za7jvm_compileza7004549z00, "constants", 9 );
DEFINE_STRING( BGl_string4510z00zzjvm_compilez00, BgL_bgl_string4510za700za7za7jvm_compileza7004550z00, "__the_module_name__", 19 );
DEFINE_STRING( BGl_string4509z00zzjvm_compilez00, BgL_bgl_string4509za700za7za7jvm_compileza7004551z00, "<init>", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_jvmzd2compilezd2envz00zzjvm_compilez00, BgL_bgl__jvmza7d2compileza7d2za7za7jvm_compileza7004552za7, BGl__jvmzd2compilezd2zzjvm_compilez00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzjvm_compilez00(long BgL_checksumz00_1771, char * BgL_fromz00_1772)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzjvm_compilez00))
{ 
BGl_requirezd2initializa7ationz75zzjvm_compilez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzjvm_compilez00(); 
BGl_cnstzd2initzd2zzjvm_compilez00(); 
BGl_importedzd2moduleszd2initz00zzjvm_compilez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzjvm_compilez00()
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 1 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zz__ppz00(((long)0), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "jvm_compile"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzjvm_compilez00()
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 1 */
{ /* ./Jvm/compile.scm 1 */
obj_t BgL_cportz00_1763;
BgL_cportz00_1763 = 
open_input_string(BGl_string4516z00zzjvm_compilez00); 
{ 
long BgL_iz00_1764;
BgL_iz00_1764 = ((long)43); 
BgL_loopz00_1765:
{ /* ./Jvm/compile.scm 1 */
bool_t BgL_test4518z00_1766;
BgL_test4518z00_1766 = 
(BgL_iz00_1764==((long)-1)); 
if(BgL_test4518z00_1766)
{ /* ./Jvm/compile.scm 1 */
return BUNSPEC;}  else 
{ /* ./Jvm/compile.scm 1 */
{ /* ./Jvm/compile.scm 1 */
obj_t BgL_arg4520z00_1767;
{ /* ./Jvm/compile.scm 1 */
obj_t BgL_list4523z00_1768;
BgL_list4523z00_1768 = 
MAKE_PAIR(BgL_cportz00_1763, BNIL); 
BgL_arg4520z00_1767 = 
BGl_readz00zz__readerz00(BgL_list4523z00_1768); } 
{ /* ./Jvm/compile.scm 1 */
int BgL_auxz00_1789;
BgL_auxz00_1789 = 
(int)(BgL_iz00_1764); 
CNST_TABLE_SET(BgL_auxz00_1789, BgL_arg4520z00_1767); } } 
{ /* ./Jvm/compile.scm 1 */
int BgL_auxz00_1769;
{ /* ./Jvm/compile.scm 1 */
long BgL_auxz00_1792;
BgL_auxz00_1792 = 
(BgL_iz00_1764-((long)1)); 
BgL_auxz00_1769 = 
(int)(BgL_auxz00_1792); } 
{ 
long BgL_iz00_1795;
BgL_iz00_1795 = 
(long)(BgL_auxz00_1769); 
BgL_iz00_1764 = BgL_iz00_1795; 
goto BgL_loopz00_1765;} } } } } } } 
}



/* jvm-compile */
BGL_EXPORTED_DEF obj_t BGl_jvmzd2compilezd2zzjvm_compilez00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 14 */
return 
BGl_compilez00zzjvm_compilez00(BgL_globalsz00_1);} 
}



/* _jvm-compile */
obj_t BGl__jvmzd2compilezd2zzjvm_compilez00(obj_t BgL_envz00_1761, obj_t BgL_globalsz00_1762)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 14 */
return 
BGl_compilez00zzjvm_compilez00(BgL_globalsz00_1762);} 
}



/* compile */
obj_t BGl_compilez00zzjvm_compilez00(obj_t BgL_globalsz00_2)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 21 */
{ /* ./Jvm/compile.scm 22 */
obj_t BgL_mz00_837;
BgL_mz00_837 = 
BGl_compilezd2modulezd2zzjvm_compilez00(BgL_globalsz00_2); 
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_arg3122z00_838;
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_l3098z00_839;
BgL_l3098z00_839 = 
BGl_getzd2classeszd2tozd2bezd2compiledz00zzjvm_externz00(); 
{ /* ./Jvm/compile.scm 23 */
bool_t BgL_test3124z00_840;
BgL_test3124z00_840 = 
NULLP(BgL_l3098z00_839); 
if(BgL_test3124z00_840)
{ /* ./Jvm/compile.scm 23 */
BgL_arg3122z00_838 = BNIL; }  else 
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_head3100z00_841;
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_arg3145z00_852;
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_arg3149z00_854;
BgL_arg3149z00_854 = 
CAR(BgL_l3098z00_839); 
BgL_arg3145z00_852 = 
BGl_compilezd2classzd2zzjvm_compilez00(BgL_arg3149z00_854); } 
BgL_head3100z00_841 = 
MAKE_PAIR(BgL_arg3145z00_852, BNIL); } 
{ 
obj_t BgL_l3098z00_842;obj_t BgL_tail3101z00_843;
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_arg3126z00_845;
BgL_arg3126z00_845 = 
CDR(BgL_l3098z00_839); 
BgL_l3098z00_842 = BgL_arg3126z00_845; 
BgL_tail3101z00_843 = BgL_head3100z00_841; 
BgL_map3099z00_844:
{ /* ./Jvm/compile.scm 23 */
bool_t BgL_test3129z00_846;
BgL_test3129z00_846 = 
NULLP(BgL_l3098z00_842); 
if(BgL_test3129z00_846)
{ /* ./Jvm/compile.scm 23 */
BgL_arg3122z00_838 = BgL_head3100z00_841; }  else 
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_newtail3102z00_847;
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_arg3136z00_849;
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_arg3140z00_851;
BgL_arg3140z00_851 = 
CAR(BgL_l3098z00_842); 
BgL_arg3136z00_849 = 
BGl_compilezd2classzd2zzjvm_compilez00(BgL_arg3140z00_851); } 
BgL_newtail3102z00_847 = 
MAKE_PAIR(BgL_arg3136z00_849, BNIL); } 
SET_CDR(BgL_tail3101z00_843, BgL_newtail3102z00_847); 
{ /* ./Jvm/compile.scm 23 */
obj_t BgL_arg3132z00_848;
BgL_arg3132z00_848 = 
CDR(BgL_l3098z00_842); 
{ 
obj_t BgL_tail3101z00_1815;obj_t BgL_l3098z00_1814;
BgL_l3098z00_1814 = BgL_arg3132z00_848; 
BgL_tail3101z00_1815 = BgL_newtail3102z00_847; 
BgL_tail3101z00_843 = BgL_tail3101z00_1815; 
BgL_l3098z00_842 = BgL_l3098z00_1814; 
goto BgL_map3099z00_844;} } } } } } } } } 
return 
MAKE_PAIR(BgL_mz00_837, BgL_arg3122z00_838);} } } 
}



/* compile-class */
obj_t BGl_compilezd2classzd2zzjvm_compilez00(obj_t BgL_classz00_3)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 28 */
{ /* ./Jvm/compile.scm 29 */
BgL_envz00_bglt BgL_envz00_855;
BgL_envz00_855 = 
BGl_makezd2envzd2zzjvm_envz00(BNIL, BNIL, BNIL, BNIL, BNIL, BNIL, BNIL, BNIL, BNIL, BNIL, BNIL, 
BINT(((long)0)), BNIL, BNIL, BNIL, BNIL, BNIL); 
{ /* ./Jvm/compile.scm 29 */
obj_t BgL__z00_856;
BgL__z00_856 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_855, 
CNST_TABLE_REF(((long)0))); 
{ /* ./Jvm/compile.scm 30 */
obj_t BgL_mez00_857;
BgL_mez00_857 = 
BGl_compilezd2typezd2nowideningz00zzjvm_envz00(BgL_classz00_3, BgL_envz00_855); 
{ /* ./Jvm/compile.scm 31 */
obj_t BgL_superz00_858;
{ /* ./Jvm/compile.scm 32 */
bool_t BgL_test3309z00_927;
BgL_test3309z00_927 = 
BGl_widezd2classzf3z21zzobject_classz00(BgL_classz00_3); 
if(BgL_test3309z00_927)
{ /* ./Jvm/compile.scm 32 */
BgL_superz00_858 = 
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Jvm/compile.scm 34 */
obj_t BgL_arg3311z00_928;
{ /* ./Jvm/compile.scm 34 */
BgL_tclassz00_bglt BgL_obj2710z00_1671;
BgL_obj2710z00_1671 = 
(BgL_tclassz00_bglt)(BgL_classz00_3); 
{ 
obj_t BgL_auxz00_1826;
{ /* ./Jvm/compile.scm 34 */
BgL_objectz00_bglt BgL_auxz00_1827;
BgL_auxz00_1827 = 
(BgL_objectz00_bglt)(BgL_obj2710z00_1671); 
BgL_auxz00_1826 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1827); } 
BgL_arg3311z00_928 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1826))->BgL_itszd2superzd2); } } 
BgL_superz00_858 = 
BGl_compilezd2typezd2zzjvm_envz00(BgL_arg3311z00_928, BgL_envz00_855); } } 
{ /* ./Jvm/compile.scm 32 */
obj_t BgL_fieldsz00_859;
BgL_fieldsz00_859 = 
BGl_compilezd2classzd2fieldsz00zzjvm_compilez00(BgL_envz00_855, BgL_classz00_3, BgL_mez00_857); 
{ /* ./Jvm/compile.scm 35 */

{ /* ./Jvm/compile.scm 37 */
obj_t BgL_arg3156z00_860;obj_t BgL_arg3157z00_861;
{ /* ./Jvm/compile.scm 37 */
obj_t BgL_arg3160z00_862;obj_t BgL_arg3161z00_863;
BgL_arg3160z00_862 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Jvm/compile.scm 37 */
obj_t BgL_arg3164z00_864;
BgL_arg3164z00_864 = 
BGl_tclasszd2idzd2manglingz00zzjvm_externz00(
(BgL_tclassz00_bglt)(BgL_classz00_3)); 
BgL_arg3161z00_863 = 
MAKE_PAIR(BgL_arg3164z00_864, BNIL); } 
BgL_arg3156z00_860 = 
MAKE_PAIR(BgL_arg3160z00_862, BgL_arg3161z00_863); } 
{ /* ./Jvm/compile.scm 37 */
obj_t BgL_arg3169z00_866;
{ /* ./Jvm/compile.scm 37 */
obj_t BgL_arg3172z00_867;
{ /* ./Jvm/compile.scm 37 */
obj_t BgL_arg3176z00_869;
{ /* ./Jvm/compile.scm 39 */
obj_t BgL_arg3179z00_870;obj_t BgL_arg3180z00_871;
{ /* ./Jvm/compile.scm 39 */
obj_t BgL_arg3183z00_872;obj_t BgL_arg3184z00_873;
BgL_arg3183z00_872 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Jvm/compile.scm 40 */
obj_t BgL_arg3187z00_874;obj_t BgL_arg3188z00_875;
BgL_arg3187z00_874 = 
bgl_reverse(
(((BgL_envz00_bglt)CREF(BgL_envz00_855))->BgL_declarationsz00)); 
{ /* ./Jvm/compile.scm 41 */
obj_t BgL_arg3195z00_877;obj_t BgL_arg3196z00_878;
{ /* ./Jvm/compile.scm 41 */
obj_t BgL_arg3199z00_879;obj_t BgL_arg3201z00_880;
BgL_arg3199z00_879 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Jvm/compile.scm 41 */
obj_t BgL_arg3204z00_881;
{ /* ./Jvm/compile.scm 41 */
obj_t BgL_arg3208z00_883;obj_t BgL_arg3210z00_884;
BgL_arg3208z00_883 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 41 */
obj_t BgL_arg3213z00_885;
{ /* ./Jvm/compile.scm 41 */
obj_t BgL_arg3216z00_886;obj_t BgL_arg3217z00_887;
{ /* ./Jvm/compile.scm 41 */
obj_t BgL_auxz00_1843;
BgL_auxz00_1843 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg3216z00_886 = 
MAKE_PAIR(BgL_auxz00_1843, BNIL); } 
{ /* ./Jvm/compile.scm 41 */
obj_t BgL_arg3221z00_888;obj_t BgL_arg3222z00_889;
BgL_arg3221z00_888 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg3222z00_889 = 
MAKE_PAIR(BGl_string4509z00zzjvm_compilez00, BNIL); 
BgL_arg3217z00_887 = 
MAKE_PAIR(BgL_arg3221z00_888, BgL_arg3222z00_889); } 
BgL_arg3213z00_885 = 
MAKE_PAIR(BgL_arg3216z00_886, BgL_arg3217z00_887); } 
BgL_arg3210z00_884 = 
MAKE_PAIR(BgL_mez00_857, BgL_arg3213z00_885); } 
BgL_arg3204z00_881 = 
MAKE_PAIR(BgL_arg3208z00_883, BgL_arg3210z00_884); } 
BgL_arg3201z00_880 = 
MAKE_PAIR(BgL_arg3204z00_881, BNIL); } 
BgL_arg3195z00_877 = 
MAKE_PAIR(BgL_arg3199z00_879, BgL_arg3201z00_880); } 
{ /* ./Jvm/compile.scm 42 */
obj_t BgL_arg3226z00_890;
{ /* ./Jvm/compile.scm 42 */
obj_t BgL_arg3230z00_892;obj_t BgL_arg3231z00_893;
BgL_arg3230z00_892 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./Jvm/compile.scm 42 */
obj_t BgL_arg3234z00_894;
{ /* ./Jvm/compile.scm 42 */
obj_t BgL_arg3238z00_896;obj_t BgL_arg3239z00_897;
BgL_arg3238z00_896 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 42 */
obj_t BgL_arg3242z00_898;
{ /* ./Jvm/compile.scm 42 */
obj_t BgL_arg3245z00_899;obj_t BgL_arg3246z00_900;
{ /* ./Jvm/compile.scm 42 */
obj_t BgL_auxz00_1856;
BgL_auxz00_1856 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg3245z00_899 = 
MAKE_PAIR(BgL_auxz00_1856, BNIL); } 
{ /* ./Jvm/compile.scm 42 */
obj_t BgL_arg3250z00_901;obj_t BgL_arg3251z00_902;
BgL_arg3250z00_901 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg3251z00_902 = 
MAKE_PAIR(BGl_string4509z00zzjvm_compilez00, BNIL); 
BgL_arg3246z00_900 = 
MAKE_PAIR(BgL_arg3250z00_901, BgL_arg3251z00_902); } 
BgL_arg3242z00_898 = 
MAKE_PAIR(BgL_arg3245z00_899, BgL_arg3246z00_900); } 
BgL_arg3239z00_897 = 
MAKE_PAIR(BgL_superz00_858, BgL_arg3242z00_898); } 
BgL_arg3234z00_894 = 
MAKE_PAIR(BgL_arg3238z00_896, BgL_arg3239z00_897); } 
BgL_arg3231z00_893 = 
MAKE_PAIR(BgL_arg3234z00_894, BNIL); } 
BgL_arg3226z00_890 = 
MAKE_PAIR(BgL_arg3230z00_892, BgL_arg3231z00_893); } 
BgL_arg3196z00_878 = 
MAKE_PAIR(BgL_arg3226z00_890, BNIL); } 
BgL_arg3188z00_875 = 
MAKE_PAIR(BgL_arg3195z00_877, BgL_arg3196z00_878); } 
BgL_arg3184z00_873 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3187z00_874, BgL_arg3188z00_875); } 
BgL_arg3179z00_870 = 
MAKE_PAIR(BgL_arg3183z00_872, BgL_arg3184z00_873); } 
{ /* ./Jvm/compile.scm 43 */
obj_t BgL_arg3255z00_903;obj_t BgL_arg3257z00_904;
{ /* ./Jvm/compile.scm 43 */
obj_t BgL_arg3260z00_905;obj_t BgL_arg3261z00_906;
BgL_arg3260z00_905 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg3261z00_906 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_fieldsz00_859, BNIL); 
BgL_arg3255z00_903 = 
MAKE_PAIR(BgL_arg3260z00_905, BgL_arg3261z00_906); } 
{ /* ./Jvm/compile.scm 44 */
obj_t BgL_arg3265z00_907;
{ /* ./Jvm/compile.scm 44 */
obj_t BgL_arg3269z00_909;obj_t BgL_arg3270z00_910;
BgL_arg3269z00_909 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 44 */
obj_t BgL_arg3273z00_911;obj_t BgL_arg3274z00_912;
BgL_arg3273z00_911 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Jvm/compile.scm 44 */
obj_t BgL_arg3277z00_913;obj_t BgL_arg3278z00_914;
{ /* ./Jvm/compile.scm 44 */
obj_t BgL_auxz00_1876;
BgL_auxz00_1876 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3277z00_913 = 
MAKE_PAIR(BgL_auxz00_1876, BNIL); } 
{ /* ./Jvm/compile.scm 44 */
obj_t BgL_arg3283z00_916;
{ /* ./Jvm/compile.scm 45 */
obj_t BgL_arg3286z00_917;obj_t BgL_arg3287z00_918;
{ /* ./Jvm/compile.scm 45 */
obj_t BgL_arg3290z00_919;obj_t BgL_arg3291z00_920;
BgL_arg3290z00_919 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Jvm/compile.scm 45 */
obj_t BgL_auxz00_1880;
BgL_auxz00_1880 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3291z00_920 = 
MAKE_PAIR(BgL_auxz00_1880, BNIL); } 
BgL_arg3286z00_917 = 
MAKE_PAIR(BgL_arg3290z00_919, BgL_arg3291z00_920); } 
{ /* ./Jvm/compile.scm 46 */
obj_t BgL_arg3295z00_921;obj_t BgL_arg3296z00_922;
{ /* ./Jvm/compile.scm 46 */
obj_t BgL_arg3299z00_923;obj_t BgL_arg3300z00_924;
BgL_arg3299z00_923 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Jvm/compile.scm 46 */
obj_t BgL_auxz00_1885;
BgL_auxz00_1885 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3300z00_924 = 
MAKE_PAIR(BgL_auxz00_1885, BNIL); } 
BgL_arg3295z00_921 = 
MAKE_PAIR(BgL_arg3299z00_923, BgL_arg3300z00_924); } 
{ /* ./Jvm/compile.scm 47 */
obj_t BgL_arg3304z00_925;
{ /* ./Jvm/compile.scm 47 */
obj_t BgL_auxz00_1889;
BgL_auxz00_1889 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg3304z00_925 = 
MAKE_PAIR(BgL_auxz00_1889, BNIL); } 
BgL_arg3296z00_922 = 
MAKE_PAIR(BgL_arg3304z00_925, BNIL); } 
BgL_arg3287z00_918 = 
MAKE_PAIR(BgL_arg3295z00_921, BgL_arg3296z00_922); } 
BgL_arg3283z00_916 = 
MAKE_PAIR(BgL_arg3286z00_917, BgL_arg3287z00_918); } 
BgL_arg3278z00_914 = 
MAKE_PAIR(BNIL, BgL_arg3283z00_916); } 
BgL_arg3274z00_912 = 
MAKE_PAIR(BgL_arg3277z00_913, BgL_arg3278z00_914); } 
BgL_arg3270z00_910 = 
MAKE_PAIR(BgL_arg3273z00_911, BgL_arg3274z00_912); } 
BgL_arg3265z00_907 = 
MAKE_PAIR(BgL_arg3269z00_909, BgL_arg3270z00_910); } 
BgL_arg3257z00_904 = 
MAKE_PAIR(BgL_arg3265z00_907, BNIL); } 
BgL_arg3180z00_871 = 
MAKE_PAIR(BgL_arg3255z00_903, BgL_arg3257z00_904); } 
BgL_arg3176z00_869 = 
MAKE_PAIR(BgL_arg3179z00_870, BgL_arg3180z00_871); } 
BgL_arg3172z00_867 = 
MAKE_PAIR(BNIL, BgL_arg3176z00_869); } 
BgL_arg3169z00_866 = 
MAKE_PAIR(BgL_superz00_858, BgL_arg3172z00_867); } 
BgL_arg3157z00_861 = 
MAKE_PAIR(BgL_mez00_857, BgL_arg3169z00_866); } 
return 
MAKE_PAIR(BgL_arg3156z00_860, BgL_arg3157z00_861);} } } } } } } } 
}



/* compile-class-fields */
obj_t BGl_compilezd2classzd2fieldsz00zzjvm_compilez00(BgL_envz00_bglt BgL_envz00_4, obj_t BgL_classz00_5, obj_t BgL_ownerz00_6)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 50 */
{ /* ./Jvm/compile.scm 51 */
obj_t BgL_rz00_929;
BgL_rz00_929 = BNIL; 
{ 
obj_t BgL_l3104z00_930;
{ /* ./Jvm/compile.scm 60 */
obj_t BgL_arg3319z00_932;
{ /* ./Jvm/compile.scm 60 */
BgL_tclassz00_bglt BgL_obj2713z00_1673;
BgL_obj2713z00_1673 = 
(BgL_tclassz00_bglt)(BgL_classz00_5); 
{ 
obj_t BgL_auxz00_1907;
{ /* ./Jvm/compile.scm 60 */
BgL_objectz00_bglt BgL_auxz00_1908;
BgL_auxz00_1908 = 
(BgL_objectz00_bglt)(BgL_obj2713z00_1673); 
BgL_auxz00_1907 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1908); } 
BgL_arg3319z00_932 = 
(((BgL_tclassz00_bglt)CREF(BgL_auxz00_1907))->BgL_slotsz00); } } 
BgL_l3104z00_930 = BgL_arg3319z00_932; 
BgL_forzd2each3105zd2_931:
{ /* ./Jvm/compile.scm 52 */
bool_t BgL_test3322z00_933;
BgL_test3322z00_933 = 
PAIRP(BgL_l3104z00_930); 
if(BgL_test3322z00_933)
{ /* ./Jvm/compile.scm 52 */
{ /* ./Jvm/compile.scm 53 */
obj_t BgL_slotz00_934;
BgL_slotz00_934 = 
CAR(BgL_l3104z00_930); 
{ /* ./Jvm/compile.scm 53 */
obj_t BgL_typez00_935;
{ /* ./Jvm/compile.scm 53 */
obj_t BgL_arg3336z00_941;
{ /* ./Jvm/compile.scm 53 */
obj_t BgL__ortest_3106z00_1677;
{ /* ./Jvm/compile.scm 53 */
BgL_slotz00_bglt BgL_obj2928z00_1678;
BgL_obj2928z00_1678 = 
(BgL_slotz00_bglt)(BgL_slotz00_934); 
BgL__ortest_3106z00_1677 = 
(((BgL_slotz00_bglt)CREF(BgL_obj2928z00_1678))->BgL_indexedz00); } 
if(
CBOOL(BgL__ortest_3106z00_1677))
{ /* ./Jvm/compile.scm 53 */
BgL_arg3336z00_941 = BgL__ortest_3106z00_1677; }  else 
{ /* ./Jvm/compile.scm 53 */
BgL_slotz00_bglt BgL_obj2916z00_1679;
BgL_obj2916z00_1679 = 
(BgL_slotz00_bglt)(BgL_slotz00_934); 
BgL_arg3336z00_941 = 
(((BgL_slotz00_bglt)CREF(BgL_obj2916z00_1679))->BgL_typez00); } } 
BgL_typez00_935 = 
BGl_compilezd2typezd2zzjvm_envz00(BgL_arg3336z00_941, BgL_envz00_4); } 
{ /* ./Jvm/compile.scm 54 */
bool_t BgL_test3323z00_936;
{ /* ./Jvm/compile.scm 54 */
bool_t BgL_test3329z00_939;
BgL_test3329z00_939 = 
BGl_slotzd2virtualzf3z21zzobject_slotsz00(
(BgL_slotz00_bglt)(BgL_slotz00_934)); 
if(BgL_test3329z00_939)
{ /* ./Jvm/compile.scm 54 */
BgL_test3323z00_936 = ((bool_t)0); }  else 
{ /* ./Jvm/compile.scm 55 */
obj_t BgL_auxz00_1925;
{ /* ./Jvm/compile.scm 55 */
BgL_slotz00_bglt BgL_obj2915z00_1680;
BgL_obj2915z00_1680 = 
(BgL_slotz00_bglt)(BgL_slotz00_934); 
BgL_auxz00_1925 = 
(((BgL_slotz00_bglt)CREF(BgL_obj2915z00_1680))->BgL_classzd2ownerzd2); } 
BgL_test3323z00_936 = 
(BgL_classz00_5==BgL_auxz00_1925); } } 
if(BgL_test3323z00_936)
{ /* ./Jvm/compile.scm 56 */
obj_t BgL_namez00_937;
{ /* ./Jvm/compile.scm 56 */
BgL_slotz00_bglt BgL_obj2913z00_1681;
BgL_obj2913z00_1681 = 
(BgL_slotz00_bglt)(BgL_slotz00_934); 
BgL_namez00_937 = 
(((BgL_slotz00_bglt)CREF(BgL_obj2913z00_1681))->BgL_namez00); } 
{ /* ./Jvm/compile.scm 58 */
obj_t BgL_arg3325z00_938;
BgL_arg3325z00_938 = 
BGl_envzd2declarezd2fieldz00zzjvm_envz00(
(obj_t)(BgL_envz00_4), BgL_namez00_937, BgL_typez00_935, BgL_ownerz00_6); 
BgL_rz00_929 = 
MAKE_PAIR(BgL_arg3325z00_938, BgL_rz00_929); } }  else 
{ /* ./Jvm/compile.scm 54 */BFALSE; } } } } 
{ /* ./Jvm/compile.scm 52 */
obj_t BgL_arg3341z00_942;
BgL_arg3341z00_942 = 
CDR(BgL_l3104z00_930); 
{ 
obj_t BgL_l3104z00_1936;
BgL_l3104z00_1936 = BgL_arg3341z00_942; 
BgL_l3104z00_930 = BgL_l3104z00_1936; 
goto BgL_forzd2each3105zd2_931;} } }  else 
{ /* ./Jvm/compile.scm 52 */((bool_t)1); } } } } 
return BgL_rz00_929;} } 
}



/* compile-module */
obj_t BGl_compilezd2modulezd2zzjvm_compilez00(obj_t BgL_globalsz00_8)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 69 */
{ /* ./Jvm/compile.scm 70 */
obj_t BgL_envz00_944;
BgL_envz00_944 = 
PROCEDURE_ENTRY(BGl_compilezd2initzd2zzjvm_initz00)(BGl_compilezd2initzd2zzjvm_initz00, BgL_globalsz00_8, BEOA); 
{ /* ./Jvm/compile.scm 70 */
obj_t BgL_mez00_945;
{ /* ./Jvm/compile.scm 71 */
BgL_envz00_bglt BgL_obj3002z00_1686;
BgL_obj3002z00_1686 = 
(BgL_envz00_bglt)(BgL_envz00_944); 
BgL_mez00_945 = 
(((BgL_envz00_bglt)CREF(BgL_obj3002z00_1686))->BgL_currentzd2modulezd2); } 
{ /* ./Jvm/compile.scm 71 */
obj_t BgL_superz00_946;
BgL_superz00_946 = 
BGl_jlibzd2declarezd2zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_944), 
CNST_TABLE_REF(((long)13))); 
{ /* ./Jvm/compile.scm 72 */
obj_t BgL_mainz00_947;
BgL_mainz00_947 = 
BGl_compilezd2mainzd2zzjvm_compilez00(BgL_envz00_944); 
{ /* ./Jvm/compile.scm 73 */
obj_t BgL_dlopenz00_948;
BgL_dlopenz00_948 = 
BGl_compilezd2dlopenzd2zzjvm_compilez00(BgL_envz00_944); 
{ /* ./Jvm/compile.scm 74 */
obj_t BgL_funsz00_949;
{ /* ./Jvm/compile.scm 75 */
bool_t BgL_test3520z00_1026;
BgL_test3520z00_1026 = 
NULLP(BgL_globalsz00_8); 
if(BgL_test3520z00_1026)
{ /* ./Jvm/compile.scm 75 */
BgL_funsz00_949 = BNIL; }  else 
{ /* ./Jvm/compile.scm 75 */
obj_t BgL_head3109z00_1027;
BgL_head3109z00_1027 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3107z00_1028;obj_t BgL_tail3110z00_1029;
BgL_l3107z00_1028 = BgL_globalsz00_8; 
BgL_tail3110z00_1029 = BgL_head3109z00_1027; 
BgL_map3108z00_1030:
{ /* ./Jvm/compile.scm 75 */
bool_t BgL_test3522z00_1031;
BgL_test3522z00_1031 = 
NULLP(BgL_l3107z00_1028); 
if(BgL_test3522z00_1031)
{ /* ./Jvm/compile.scm 75 */
BgL_funsz00_949 = 
CDR(BgL_head3109z00_1027); }  else 
{ /* ./Jvm/compile.scm 75 */
obj_t BgL_newtail3111z00_1032;
{ /* ./Jvm/compile.scm 75 */
obj_t BgL_arg3530z00_1034;
{ /* ./Jvm/compile.scm 75 */
obj_t BgL_vz00_1036;
BgL_vz00_1036 = 
CAR(BgL_l3107z00_1028); 
{ /* ./Jvm/compile.scm 75 */
obj_t BgL_mz00_1695;
BgL_mz00_1695 = 
BGl_compilezd2globalfun1zd2zzjvm_compilez00(BgL_vz00_1036, BgL_envz00_944); 
BGl_jvm_peepholez00zzjvm_peepholez00(BgL_mz00_1695); 
BgL_arg3530z00_1034 = BgL_mz00_1695; } } 
BgL_newtail3111z00_1032 = 
MAKE_PAIR(BgL_arg3530z00_1034, BNIL); } 
SET_CDR(BgL_tail3110z00_1029, BgL_newtail3111z00_1032); 
{ /* ./Jvm/compile.scm 75 */
obj_t BgL_arg3526z00_1033;
BgL_arg3526z00_1033 = 
CDR(BgL_l3107z00_1028); 
{ 
obj_t BgL_tail3110z00_1959;obj_t BgL_l3107z00_1958;
BgL_l3107z00_1958 = BgL_arg3526z00_1033; 
BgL_tail3110z00_1959 = BgL_newtail3111z00_1032; 
BgL_tail3110z00_1029 = BgL_tail3110z00_1959; 
BgL_l3107z00_1028 = BgL_l3107z00_1958; 
goto BgL_map3108z00_1030;} } } } } } } 
{ /* ./Jvm/compile.scm 75 */
obj_t BgL_constructorsz00_950;
BgL_constructorsz00_950 = 
BGl_jvmzd2constructorszd2zzjvm_constrz00(
(BgL_envz00_bglt)(BgL_envz00_944), BgL_mez00_945, BgL_superz00_946); 
{ /* ./Jvm/compile.scm 76 */
obj_t BgL_funcallersz00_951;
BgL_funcallersz00_951 = 
BGl_jvmzd2funcallerszd2zzjvm_closurez00(
(BgL_envz00_bglt)(BgL_envz00_944), BgL_mez00_945, BgL_superz00_946); 
{ /* ./Jvm/compile.scm 77 */

BGl_jlibzd2declarezd2zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_944), 
CNST_TABLE_REF(((long)14))); 
{ /* ./Jvm/compile.scm 79 */
obj_t BgL_arg3349z00_952;obj_t BgL_arg3350z00_953;
BgL_arg3349z00_952 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Jvm/compile.scm 79 */
obj_t BgL_arg3354z00_954;
{ /* ./Jvm/compile.scm 79 */
obj_t BgL_arg3357z00_955;
{ /* ./Jvm/compile.scm 79 */
obj_t BgL_arg3362z00_957;
{ /* ./Jvm/compile.scm 80 */
obj_t BgL_arg3365z00_958;obj_t BgL_arg3366z00_959;
{ /* ./Jvm/compile.scm 80 */
obj_t BgL_arg3369z00_960;obj_t BgL_arg3370z00_961;
BgL_arg3369z00_960 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Jvm/compile.scm 81 */
obj_t BgL_arg3373z00_962;obj_t BgL_arg3374z00_963;
{ /* ./Jvm/compile.scm 81 */
obj_t BgL_auxz00_1969;
{ /* ./Jvm/compile.scm 81 */
BgL_envz00_bglt BgL_obj2990z00_1701;
BgL_obj2990z00_1701 = 
(BgL_envz00_bglt)(BgL_envz00_944); 
BgL_auxz00_1969 = 
(((BgL_envz00_bglt)CREF(BgL_obj2990z00_1701))->BgL_declarationsz00); } 
BgL_arg3373z00_962 = 
bgl_reverse(BgL_auxz00_1969); } 
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_arg3381z00_965;obj_t BgL_arg3382z00_966;
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_arg3385z00_967;obj_t BgL_arg3386z00_968;
BgL_arg3385z00_967 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_arg3389z00_969;
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_arg3393z00_971;obj_t BgL_arg3394z00_972;
BgL_arg3393z00_971 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_arg3397z00_973;
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_arg3400z00_974;obj_t BgL_arg3401z00_975;
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_arg3404z00_976;obj_t BgL_arg3405z00_977;
BgL_arg3404z00_976 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_auxz00_1976;
BgL_auxz00_1976 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3405z00_977 = 
MAKE_PAIR(BgL_auxz00_1976, BNIL); } 
BgL_arg3400z00_974 = 
MAKE_PAIR(BgL_arg3404z00_976, BgL_arg3405z00_977); } 
{ /* ./Jvm/compile.scm 82 */
obj_t BgL_arg3409z00_978;obj_t BgL_arg3410z00_979;
BgL_arg3409z00_978 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3410z00_979 = 
MAKE_PAIR(BGl_string4510z00zzjvm_compilez00, BNIL); 
BgL_arg3401z00_975 = 
MAKE_PAIR(BgL_arg3409z00_978, BgL_arg3410z00_979); } 
BgL_arg3397z00_973 = 
MAKE_PAIR(BgL_arg3400z00_974, BgL_arg3401z00_975); } 
BgL_arg3394z00_972 = 
MAKE_PAIR(BgL_mez00_945, BgL_arg3397z00_973); } 
BgL_arg3389z00_969 = 
MAKE_PAIR(BgL_arg3393z00_971, BgL_arg3394z00_972); } 
BgL_arg3386z00_968 = 
MAKE_PAIR(BgL_arg3389z00_969, BNIL); } 
BgL_arg3381z00_965 = 
MAKE_PAIR(BgL_arg3385z00_967, BgL_arg3386z00_968); } 
{ /* ./Jvm/compile.scm 84 */
obj_t BgL_arg3414z00_980;
{ /* ./Jvm/compile.scm 84 */
obj_t BgL_arg3418z00_982;obj_t BgL_arg3419z00_983;
BgL_arg3418z00_982 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Jvm/compile.scm 84 */
obj_t BgL_arg3422z00_984;
{ /* ./Jvm/compile.scm 84 */
obj_t BgL_arg3426z00_986;obj_t BgL_arg3427z00_987;
BgL_arg3426z00_986 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./Jvm/compile.scm 84 */
obj_t BgL_arg3430z00_988;
{ /* ./Jvm/compile.scm 84 */
obj_t BgL_arg3433z00_989;obj_t BgL_arg3434z00_990;
{ /* ./Jvm/compile.scm 84 */
obj_t BgL_arg3437z00_991;obj_t BgL_arg3438z00_992;
BgL_arg3437z00_991 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Jvm/compile.scm 84 */
obj_t BgL_auxz00_1991;
BgL_auxz00_1991 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3438z00_992 = 
MAKE_PAIR(BgL_auxz00_1991, BNIL); } 
BgL_arg3433z00_989 = 
MAKE_PAIR(BgL_arg3437z00_991, BgL_arg3438z00_992); } 
{ /* ./Jvm/compile.scm 85 */
obj_t BgL_arg3442z00_993;obj_t BgL_arg3443z00_994;
{ /* ./Jvm/compile.scm 85 */
obj_t BgL_arg3446z00_995;obj_t BgL_arg3447z00_996;
BgL_arg3446z00_995 = 
CNST_TABLE_REF(((long)20)); 
{ /* ./Jvm/compile.scm 85 */
obj_t BgL_auxz00_1996;
BgL_auxz00_1996 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg3447z00_996 = 
MAKE_PAIR(BgL_auxz00_1996, BNIL); } 
BgL_arg3442z00_993 = 
MAKE_PAIR(BgL_arg3446z00_995, BgL_arg3447z00_996); } 
BgL_arg3443z00_994 = 
MAKE_PAIR(BGl_string4511z00zzjvm_compilez00, BNIL); 
BgL_arg3434z00_990 = 
MAKE_PAIR(BgL_arg3442z00_993, BgL_arg3443z00_994); } 
BgL_arg3430z00_988 = 
MAKE_PAIR(BgL_arg3433z00_989, BgL_arg3434z00_990); } 
BgL_arg3427z00_987 = 
MAKE_PAIR(BgL_mez00_945, BgL_arg3430z00_988); } 
BgL_arg3422z00_984 = 
MAKE_PAIR(BgL_arg3426z00_986, BgL_arg3427z00_987); } 
BgL_arg3419z00_983 = 
MAKE_PAIR(BgL_arg3422z00_984, BNIL); } 
BgL_arg3414z00_980 = 
MAKE_PAIR(BgL_arg3418z00_982, BgL_arg3419z00_983); } 
BgL_arg3382z00_966 = 
MAKE_PAIR(BgL_arg3414z00_980, BNIL); } 
BgL_arg3374z00_963 = 
MAKE_PAIR(BgL_arg3381z00_965, BgL_arg3382z00_966); } 
BgL_arg3370z00_961 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3373z00_962, BgL_arg3374z00_963); } 
BgL_arg3365z00_958 = 
MAKE_PAIR(BgL_arg3369z00_960, BgL_arg3370z00_961); } 
{ /* ./Jvm/compile.scm 86 */
obj_t BgL_arg3452z00_997;obj_t BgL_arg3453z00_998;
{ /* ./Jvm/compile.scm 86 */
obj_t BgL_arg3456z00_999;obj_t BgL_arg3457z00_1000;
BgL_arg3456z00_999 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Jvm/compile.scm 86 */
obj_t BgL_arg3460z00_1001;obj_t BgL_arg3461z00_1002;
BgL_arg3460z00_1001 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Jvm/compile.scm 86 */
obj_t BgL_arg3465z00_1003;obj_t BgL_arg3466z00_1004;
BgL_arg3465z00_1003 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Jvm/compile.scm 86 */
obj_t BgL_arg3469z00_1005;
BgL_arg3469z00_1005 = 
BGl_compilezd2fieldszd2zzjvm_compilez00(BgL_envz00_944); 
BgL_arg3466z00_1004 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3469z00_1005, BNIL); } 
BgL_arg3461z00_1002 = 
MAKE_PAIR(BgL_arg3465z00_1003, BgL_arg3466z00_1004); } 
BgL_arg3457z00_1000 = 
MAKE_PAIR(BgL_arg3460z00_1001, BgL_arg3461z00_1002); } 
BgL_arg3452z00_997 = 
MAKE_PAIR(BgL_arg3456z00_999, BgL_arg3457z00_1000); } 
{ /* ./Jvm/compile.scm 87 */
obj_t BgL_arg3474z00_1007;obj_t BgL_arg3475z00_1008;
{ /* ./Jvm/compile.scm 87 */
obj_t BgL_arg3478z00_1009;obj_t BgL_arg3479z00_1010;
BgL_arg3478z00_1009 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Jvm/compile.scm 87 */
obj_t BgL_arg3482z00_1011;
BgL_arg3482z00_1011 = 
BGl_getzd2sourcefilezd2zzjvm_externz00(); 
BgL_arg3479z00_1010 = 
MAKE_PAIR(BgL_arg3482z00_1011, BNIL); } 
BgL_arg3474z00_1007 = 
MAKE_PAIR(BgL_arg3478z00_1009, BgL_arg3479z00_1010); } 
{ /* ./Jvm/compile.scm 88 */
obj_t BgL_arg3487z00_1013;obj_t BgL_arg3488z00_1014;
{ /* ./Jvm/compile.scm 88 */
obj_t BgL_arg3491z00_1015;obj_t BgL_arg3492z00_1016;
BgL_arg3491z00_1015 = 
CNST_TABLE_REF(((long)22)); 
{ /* ./Jvm/compile.scm 88 */
obj_t BgL_arg3495z00_1017;obj_t BgL_arg3496z00_1018;
BgL_arg3495z00_1017 = 
BGl_getzd2sourcefilezd2zzjvm_externz00(); 
{ /* ./Jvm/compile.scm 88 */
obj_t BgL_arg3500z00_1019;
{ /* ./Jvm/compile.scm 88 */
obj_t BgL_pairz00_1702;
BgL_pairz00_1702 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
BgL_arg3500z00_1019 = 
CAR(BgL_pairz00_1702); } 
BgL_arg3496z00_1018 = 
MAKE_PAIR(BgL_arg3500z00_1019, BNIL); } 
BgL_arg3492z00_1016 = 
MAKE_PAIR(BgL_arg3495z00_1017, BgL_arg3496z00_1018); } 
BgL_arg3487z00_1013 = 
MAKE_PAIR(BgL_arg3491z00_1015, BgL_arg3492z00_1016); } 
BgL_arg3488z00_1014 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_constructorsz00_950, 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_funcallersz00_951, 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_mainz00_947, 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_dlopenz00_948, 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_funsz00_949, BNIL))))); 
BgL_arg3475z00_1008 = 
MAKE_PAIR(BgL_arg3487z00_1013, BgL_arg3488z00_1014); } 
BgL_arg3453z00_998 = 
MAKE_PAIR(BgL_arg3474z00_1007, BgL_arg3475z00_1008); } 
BgL_arg3366z00_959 = 
MAKE_PAIR(BgL_arg3452z00_997, BgL_arg3453z00_998); } 
BgL_arg3362z00_957 = 
MAKE_PAIR(BgL_arg3365z00_958, BgL_arg3366z00_959); } 
BgL_arg3357z00_955 = 
MAKE_PAIR(BNIL, BgL_arg3362z00_957); } 
BgL_arg3354z00_954 = 
MAKE_PAIR(BgL_superz00_946, BgL_arg3357z00_955); } 
BgL_arg3350z00_953 = 
MAKE_PAIR(BgL_mez00_945, BgL_arg3354z00_954); } 
return 
MAKE_PAIR(BgL_arg3349z00_952, BgL_arg3350z00_953);} } } } } } } } } } } 
}



/* compile-main */
obj_t BGl_compilezd2mainzd2zzjvm_compilez00(obj_t BgL_envz00_9)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 95 */
{ /* ./Jvm/compile.scm 96 */
bool_t BgL_test3543z00_1037;
{ /* ./Jvm/compile.scm 96 */
obj_t BgL_obj1240z00_1703;
BgL_obj1240z00_1703 = BGl_za2mainza2z00zzmodule_modulez00; 
BgL_test3543z00_1037 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1703, BGl_globalz00zzast_varz00); } 
if(BgL_test3543z00_1037)
{ /* ./Jvm/compile.scm 97 */
obj_t BgL_namez00_1038;
BgL_namez00_1038 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string4512z00zzjvm_compilez00, BEOA); 
BGl_jlibzd2declarezd2zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_9), 
CNST_TABLE_REF(((long)23))); 
{ /* ./Jvm/compile.scm 100 */
obj_t BgL_arg3546z00_1039;
{ /* ./Jvm/compile.scm 100 */
obj_t BgL_arg3549z00_1040;obj_t BgL_arg3550z00_1041;
BgL_arg3549z00_1040 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 100 */
obj_t BgL_arg3553z00_1042;obj_t BgL_arg3554z00_1043;
{ /* ./Jvm/compile.scm 100 */
BgL_envz00_bglt BgL_obj3002z00_1704;
BgL_obj3002z00_1704 = 
(BgL_envz00_bglt)(BgL_envz00_9); 
BgL_arg3553z00_1042 = 
(((BgL_envz00_bglt)CREF(BgL_obj3002z00_1704))->BgL_currentzd2modulezd2); } 
{ /* ./Jvm/compile.scm 101 */
obj_t BgL_arg3558z00_1044;obj_t BgL_arg3559z00_1045;
{ /* ./Jvm/compile.scm 101 */
obj_t BgL_arg3562z00_1046;obj_t BgL_arg3563z00_1047;
BgL_arg3562z00_1046 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Jvm/compile.scm 101 */
obj_t BgL_auxz00_2053;
BgL_auxz00_2053 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3563z00_1047 = 
MAKE_PAIR(BgL_auxz00_2053, BNIL); } 
BgL_arg3558z00_1044 = 
MAKE_PAIR(BgL_arg3562z00_1046, BgL_arg3563z00_1047); } 
{ /* ./Jvm/compile.scm 100 */
obj_t BgL_arg3567z00_1048;obj_t BgL_arg3568z00_1049;
BgL_arg3567z00_1048 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Jvm/compile.scm 100 */
obj_t BgL_arg3572z00_1051;
{ /* ./Jvm/compile.scm 101 */
obj_t BgL_arg3575z00_1052;
{ /* ./Jvm/compile.scm 101 */
obj_t BgL_arg3579z00_1054;obj_t BgL_arg3580z00_1055;
BgL_arg3579z00_1054 = 
CNST_TABLE_REF(((long)20)); 
{ /* ./Jvm/compile.scm 101 */
obj_t BgL_auxz00_2059;
BgL_auxz00_2059 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3580z00_1055 = 
MAKE_PAIR(BgL_auxz00_2059, BNIL); } 
BgL_arg3575z00_1052 = 
MAKE_PAIR(BgL_arg3579z00_1054, BgL_arg3580z00_1055); } 
BgL_arg3572z00_1051 = 
MAKE_PAIR(BgL_arg3575z00_1052, BNIL); } 
BgL_arg3568z00_1049 = 
MAKE_PAIR(BGl_string4512z00zzjvm_compilez00, BgL_arg3572z00_1051); } 
BgL_arg3559z00_1045 = 
MAKE_PAIR(BgL_arg3567z00_1048, BgL_arg3568z00_1049); } 
BgL_arg3554z00_1043 = 
MAKE_PAIR(BgL_arg3558z00_1044, BgL_arg3559z00_1045); } 
BgL_arg3550z00_1041 = 
MAKE_PAIR(BgL_arg3553z00_1042, BgL_arg3554z00_1043); } 
BgL_arg3546z00_1039 = 
MAKE_PAIR(BgL_arg3549z00_1040, BgL_arg3550z00_1041); } 
BGl_envzd2declarezd2zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_9), BgL_namez00_1038, BgL_arg3546z00_1039); } 
if(
CBOOL(BGl_za2jvmzd2catchza2zd2zzengine_paramz00))
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_arg3585z00_1056;
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_arg3589z00_1058;obj_t BgL_arg3590z00_1059;
BgL_arg3589z00_1058 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_arg3593z00_1060;
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_arg3596z00_1061;obj_t BgL_arg3597z00_1062;
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_auxz00_2074;
BgL_auxz00_2074 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3596z00_1061 = 
MAKE_PAIR(BgL_auxz00_2074, BNIL); } 
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_arg3602z00_1064;
{ /* ./Jvm/compile.scm 104 */
obj_t BgL_arg3605z00_1065;obj_t BgL_arg3606z00_1066;
{ /* ./Jvm/compile.scm 104 */
obj_t BgL_arg3609z00_1067;obj_t BgL_arg3610z00_1068;
BgL_arg3609z00_1067 = 
CNST_TABLE_REF(((long)25)); 
{ /* ./Jvm/compile.scm 104 */
obj_t BgL_arg3613z00_1069;obj_t BgL_arg3614z00_1070;
BgL_arg3613z00_1069 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Jvm/compile.scm 104 */
obj_t BgL_arg3617z00_1071;obj_t BgL_arg3618z00_1072;
BgL_arg3617z00_1071 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Jvm/compile.scm 104 */
obj_t BgL_arg3621z00_1073;obj_t BgL_arg3623z00_1074;
BgL_arg3621z00_1073 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Jvm/compile.scm 104 */
obj_t BgL_arg3626z00_1075;
BgL_arg3626z00_1075 = 
BGl_jlibzd2declarezd2zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_9), 
CNST_TABLE_REF(((long)29))); 
BgL_arg3623z00_1074 = 
MAKE_PAIR(BgL_arg3626z00_1075, BNIL); } 
BgL_arg3618z00_1072 = 
MAKE_PAIR(BgL_arg3621z00_1073, BgL_arg3623z00_1074); } 
BgL_arg3614z00_1070 = 
MAKE_PAIR(BgL_arg3617z00_1071, BgL_arg3618z00_1072); } 
BgL_arg3610z00_1068 = 
MAKE_PAIR(BgL_arg3613z00_1069, BgL_arg3614z00_1070); } 
BgL_arg3605z00_1065 = 
MAKE_PAIR(BgL_arg3609z00_1067, BgL_arg3610z00_1068); } 
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_arg3631z00_1077;obj_t BgL_arg3632z00_1078;
BgL_arg3631z00_1077 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Jvm/compile.scm 106 */
obj_t BgL_arg3635z00_1079;obj_t BgL_arg3636z00_1080;
{ /* ./Jvm/compile.scm 106 */
obj_t BgL_arg3639z00_1081;obj_t BgL_arg3640z00_1082;
BgL_arg3639z00_1081 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Jvm/compile.scm 106 */
obj_t BgL_auxz00_2091;
BgL_auxz00_2091 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3640z00_1082 = 
MAKE_PAIR(BgL_auxz00_2091, BNIL); } 
BgL_arg3635z00_1079 = 
MAKE_PAIR(BgL_arg3639z00_1081, BgL_arg3640z00_1082); } 
{ /* ./Jvm/compile.scm 107 */
obj_t BgL_arg3644z00_1083;obj_t BgL_arg3645z00_1084;
{ /* ./Jvm/compile.scm 107 */
obj_t BgL_arg3648z00_1085;obj_t BgL_arg3650z00_1086;
BgL_arg3648z00_1085 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Jvm/compile.scm 107 */
obj_t BgL_auxz00_2096;
BgL_auxz00_2096 = 
CNST_TABLE_REF(((long)23)); 
BgL_arg3650z00_1086 = 
MAKE_PAIR(BgL_auxz00_2096, BNIL); } 
BgL_arg3644z00_1083 = 
MAKE_PAIR(BgL_arg3648z00_1085, BgL_arg3650z00_1086); } 
{ /* ./Jvm/compile.scm 108 */
obj_t BgL_arg3654z00_1087;obj_t BgL_arg3655z00_1088;
{ /* ./Jvm/compile.scm 108 */
obj_t BgL_arg3658z00_1089;obj_t BgL_arg3659z00_1090;
BgL_arg3658z00_1089 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Jvm/compile.scm 110 */
obj_t BgL_arg3662z00_1091;
{ /* ./Jvm/compile.scm 110 */
obj_t BgL_arg3666z00_1093;
{ /* ./Jvm/compile.scm 110 */
obj_t BgL_list3669z00_1094;
BgL_list3669z00_1094 = 
MAKE_PAIR(BGl_za2moduleza2z00zzmodule_modulez00, BNIL); 
BgL_arg3666z00_1093 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)31)), BgL_list3669z00_1094); } 
BgL_arg3662z00_1091 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_9), 
(BgL_globalz00_bglt)(BgL_arg3666z00_1093)); } 
BgL_arg3659z00_1090 = 
MAKE_PAIR(BgL_arg3662z00_1091, BNIL); } 
BgL_arg3654z00_1087 = 
MAKE_PAIR(BgL_arg3658z00_1089, BgL_arg3659z00_1090); } 
{ /* ./Jvm/compile.scm 111 */
obj_t BgL_arg3672z00_1095;obj_t BgL_arg3673z00_1096;
{ /* ./Jvm/compile.scm 111 */
obj_t BgL_auxz00_2109;
BgL_auxz00_2109 = 
CNST_TABLE_REF(((long)32)); 
BgL_arg3672z00_1095 = 
MAKE_PAIR(BgL_auxz00_2109, BNIL); } 
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_arg3677z00_1097;obj_t BgL_arg3678z00_1098;
BgL_arg3677z00_1097 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Jvm/compile.scm 113 */
obj_t BgL_arg3681z00_1099;obj_t BgL_arg3682z00_1100;
{ /* ./Jvm/compile.scm 113 */
obj_t BgL_auxz00_2113;
BgL_auxz00_2113 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg3681z00_1099 = 
MAKE_PAIR(BgL_auxz00_2113, BNIL); } 
{ /* ./Jvm/compile.scm 103 */
obj_t BgL_arg3686z00_1101;obj_t BgL_arg3687z00_1102;
BgL_arg3686z00_1101 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Jvm/compile.scm 115 */
obj_t BgL_arg3690z00_1103;obj_t BgL_arg3691z00_1104;
{ /* ./Jvm/compile.scm 115 */
obj_t BgL_arg3694z00_1105;obj_t BgL_arg3695z00_1106;
BgL_arg3694z00_1105 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Jvm/compile.scm 115 */
obj_t BgL_arg3698z00_1107;
BgL_arg3698z00_1107 = 
BGl_jlibzd2declarezd2zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_9), 
CNST_TABLE_REF(((long)33))); 
BgL_arg3695z00_1106 = 
MAKE_PAIR(BgL_arg3698z00_1107, BNIL); } 
BgL_arg3690z00_1103 = 
MAKE_PAIR(BgL_arg3694z00_1105, BgL_arg3695z00_1106); } 
{ /* ./Jvm/compile.scm 116 */
obj_t BgL_arg3703z00_1109;
{ /* ./Jvm/compile.scm 116 */
obj_t BgL_auxz00_2123;
BgL_auxz00_2123 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg3703z00_1109 = 
MAKE_PAIR(BgL_auxz00_2123, BNIL); } 
BgL_arg3691z00_1104 = 
MAKE_PAIR(BgL_arg3703z00_1109, BNIL); } 
BgL_arg3687z00_1102 = 
MAKE_PAIR(BgL_arg3690z00_1103, BgL_arg3691z00_1104); } 
BgL_arg3682z00_1100 = 
MAKE_PAIR(BgL_arg3686z00_1101, BgL_arg3687z00_1102); } 
BgL_arg3678z00_1098 = 
MAKE_PAIR(BgL_arg3681z00_1099, BgL_arg3682z00_1100); } 
BgL_arg3673z00_1096 = 
MAKE_PAIR(BgL_arg3677z00_1097, BgL_arg3678z00_1098); } 
BgL_arg3655z00_1088 = 
MAKE_PAIR(BgL_arg3672z00_1095, BgL_arg3673z00_1096); } 
BgL_arg3645z00_1084 = 
MAKE_PAIR(BgL_arg3654z00_1087, BgL_arg3655z00_1088); } 
BgL_arg3636z00_1080 = 
MAKE_PAIR(BgL_arg3644z00_1083, BgL_arg3645z00_1084); } 
BgL_arg3632z00_1078 = 
MAKE_PAIR(BgL_arg3635z00_1079, BgL_arg3636z00_1080); } 
BgL_arg3606z00_1066 = 
MAKE_PAIR(BgL_arg3631z00_1077, BgL_arg3632z00_1078); } 
BgL_arg3602z00_1064 = 
MAKE_PAIR(BgL_arg3605z00_1065, BgL_arg3606z00_1066); } 
BgL_arg3597z00_1062 = 
MAKE_PAIR(BNIL, BgL_arg3602z00_1064); } 
BgL_arg3593z00_1060 = 
MAKE_PAIR(BgL_arg3596z00_1061, BgL_arg3597z00_1062); } 
BgL_arg3590z00_1059 = 
MAKE_PAIR(BgL_namez00_1038, BgL_arg3593z00_1060); } 
BgL_arg3585z00_1056 = 
MAKE_PAIR(BgL_arg3589z00_1058, BgL_arg3590z00_1059); } 
return 
MAKE_PAIR(BgL_arg3585z00_1056, BNIL);}  else 
{ /* ./Jvm/compile.scm 118 */
obj_t BgL_arg3708z00_1111;
{ /* ./Jvm/compile.scm 118 */
obj_t BgL_arg3712z00_1113;obj_t BgL_arg3713z00_1114;
BgL_arg3712z00_1113 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 118 */
obj_t BgL_arg3717z00_1115;
{ /* ./Jvm/compile.scm 118 */
obj_t BgL_arg3720z00_1116;obj_t BgL_arg3721z00_1117;
{ /* ./Jvm/compile.scm 118 */
obj_t BgL_auxz00_2143;
BgL_auxz00_2143 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3720z00_1116 = 
MAKE_PAIR(BgL_auxz00_2143, BNIL); } 
{ /* ./Jvm/compile.scm 118 */
obj_t BgL_arg3726z00_1119;
{ /* ./Jvm/compile.scm 119 */
obj_t BgL_arg3729z00_1120;obj_t BgL_arg3730z00_1121;
{ /* ./Jvm/compile.scm 119 */
obj_t BgL_arg3733z00_1122;obj_t BgL_arg3734z00_1123;
BgL_arg3733z00_1122 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Jvm/compile.scm 119 */
obj_t BgL_auxz00_2147;
BgL_auxz00_2147 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3734z00_1123 = 
MAKE_PAIR(BgL_auxz00_2147, BNIL); } 
BgL_arg3729z00_1120 = 
MAKE_PAIR(BgL_arg3733z00_1122, BgL_arg3734z00_1123); } 
{ /* ./Jvm/compile.scm 120 */
obj_t BgL_arg3738z00_1124;obj_t BgL_arg3739z00_1125;
{ /* ./Jvm/compile.scm 120 */
obj_t BgL_arg3742z00_1126;obj_t BgL_arg3743z00_1127;
BgL_arg3742z00_1126 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Jvm/compile.scm 120 */
obj_t BgL_auxz00_2152;
BgL_auxz00_2152 = 
CNST_TABLE_REF(((long)23)); 
BgL_arg3743z00_1127 = 
MAKE_PAIR(BgL_auxz00_2152, BNIL); } 
BgL_arg3738z00_1124 = 
MAKE_PAIR(BgL_arg3742z00_1126, BgL_arg3743z00_1127); } 
{ /* ./Jvm/compile.scm 121 */
obj_t BgL_arg3747z00_1128;obj_t BgL_arg3748z00_1129;
{ /* ./Jvm/compile.scm 121 */
obj_t BgL_arg3751z00_1130;obj_t BgL_arg3752z00_1131;
BgL_arg3751z00_1130 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Jvm/compile.scm 123 */
obj_t BgL_arg3755z00_1132;
{ /* ./Jvm/compile.scm 123 */
obj_t BgL_arg3759z00_1134;
{ /* ./Jvm/compile.scm 123 */
obj_t BgL_list3762z00_1135;
BgL_list3762z00_1135 = 
MAKE_PAIR(BGl_za2moduleza2z00zzmodule_modulez00, BNIL); 
BgL_arg3759z00_1134 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)31)), BgL_list3762z00_1135); } 
BgL_arg3755z00_1132 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_9), 
(BgL_globalz00_bglt)(BgL_arg3759z00_1134)); } 
BgL_arg3752z00_1131 = 
MAKE_PAIR(BgL_arg3755z00_1132, BNIL); } 
BgL_arg3747z00_1128 = 
MAKE_PAIR(BgL_arg3751z00_1130, BgL_arg3752z00_1131); } 
{ /* ./Jvm/compile.scm 124 */
obj_t BgL_arg3765z00_1136;obj_t BgL_arg3766z00_1137;
{ /* ./Jvm/compile.scm 124 */
obj_t BgL_auxz00_2165;
BgL_auxz00_2165 = 
CNST_TABLE_REF(((long)32)); 
BgL_arg3765z00_1136 = 
MAKE_PAIR(BgL_auxz00_2165, BNIL); } 
{ /* ./Jvm/compile.scm 125 */
obj_t BgL_arg3770z00_1138;
{ /* ./Jvm/compile.scm 125 */
obj_t BgL_auxz00_2168;
BgL_auxz00_2168 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg3770z00_1138 = 
MAKE_PAIR(BgL_auxz00_2168, BNIL); } 
BgL_arg3766z00_1137 = 
MAKE_PAIR(BgL_arg3770z00_1138, BNIL); } 
BgL_arg3748z00_1129 = 
MAKE_PAIR(BgL_arg3765z00_1136, BgL_arg3766z00_1137); } 
BgL_arg3739z00_1125 = 
MAKE_PAIR(BgL_arg3747z00_1128, BgL_arg3748z00_1129); } 
BgL_arg3730z00_1121 = 
MAKE_PAIR(BgL_arg3738z00_1124, BgL_arg3739z00_1125); } 
BgL_arg3726z00_1119 = 
MAKE_PAIR(BgL_arg3729z00_1120, BgL_arg3730z00_1121); } 
BgL_arg3721z00_1117 = 
MAKE_PAIR(BNIL, BgL_arg3726z00_1119); } 
BgL_arg3717z00_1115 = 
MAKE_PAIR(BgL_arg3720z00_1116, BgL_arg3721z00_1117); } 
BgL_arg3713z00_1114 = 
MAKE_PAIR(BgL_namez00_1038, BgL_arg3717z00_1115); } 
BgL_arg3708z00_1111 = 
MAKE_PAIR(BgL_arg3712z00_1113, BgL_arg3713z00_1114); } 
return 
MAKE_PAIR(BgL_arg3708z00_1111, BNIL);} }  else 
{ /* ./Jvm/compile.scm 96 */
return BNIL;} } } 
}



/* compile-dlopen */
obj_t BGl_compilezd2dlopenzd2zzjvm_compilez00(obj_t BgL_envz00_10)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 128 */
{ /* ./Jvm/compile.scm 129 */
obj_t BgL_namez00_1140;
BgL_namez00_1140 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string4513z00zzjvm_compilez00, BEOA); 
{ /* ./Jvm/compile.scm 131 */
obj_t BgL_arg3777z00_1141;
{ /* ./Jvm/compile.scm 131 */
obj_t BgL_arg3780z00_1142;obj_t BgL_arg3781z00_1143;
BgL_arg3780z00_1142 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 131 */
obj_t BgL_arg3784z00_1144;obj_t BgL_arg3785z00_1145;
{ /* ./Jvm/compile.scm 131 */
BgL_envz00_bglt BgL_obj3002z00_1705;
BgL_obj3002z00_1705 = 
(BgL_envz00_bglt)(BgL_envz00_10); 
BgL_arg3784z00_1144 = 
(((BgL_envz00_bglt)CREF(BgL_obj3002z00_1705))->BgL_currentzd2modulezd2); } 
{ /* ./Jvm/compile.scm 132 */
obj_t BgL_arg3789z00_1146;obj_t BgL_arg3791z00_1147;
{ /* ./Jvm/compile.scm 132 */
obj_t BgL_arg3794z00_1148;obj_t BgL_arg3795z00_1149;
BgL_arg3794z00_1148 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Jvm/compile.scm 132 */
obj_t BgL_auxz00_2187;
BgL_auxz00_2187 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3795z00_1149 = 
MAKE_PAIR(BgL_auxz00_2187, BNIL); } 
BgL_arg3789z00_1146 = 
MAKE_PAIR(BgL_arg3794z00_1148, BgL_arg3795z00_1149); } 
{ /* ./Jvm/compile.scm 131 */
obj_t BgL_arg3799z00_1150;obj_t BgL_arg3800z00_1151;
BgL_arg3799z00_1150 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg3800z00_1151 = 
MAKE_PAIR(BGl_string4513z00zzjvm_compilez00, BNIL); 
BgL_arg3791z00_1147 = 
MAKE_PAIR(BgL_arg3799z00_1150, BgL_arg3800z00_1151); } 
BgL_arg3785z00_1145 = 
MAKE_PAIR(BgL_arg3789z00_1146, BgL_arg3791z00_1147); } 
BgL_arg3781z00_1143 = 
MAKE_PAIR(BgL_arg3784z00_1144, BgL_arg3785z00_1145); } 
BgL_arg3777z00_1141 = 
MAKE_PAIR(BgL_arg3780z00_1142, BgL_arg3781z00_1143); } 
BGl_envzd2declarezd2zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_10), BgL_namez00_1140, BgL_arg3777z00_1141); } 
{ /* ./Jvm/compile.scm 133 */
obj_t BgL_arg3804z00_1152;
{ /* ./Jvm/compile.scm 133 */
obj_t BgL_arg3808z00_1154;obj_t BgL_arg3809z00_1155;
BgL_arg3808z00_1154 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 133 */
obj_t BgL_arg3812z00_1156;
{ /* ./Jvm/compile.scm 133 */
obj_t BgL_arg3816z00_1158;
{ /* ./Jvm/compile.scm 133 */
obj_t BgL_arg3820z00_1160;
{ /* ./Jvm/compile.scm 134 */
obj_t BgL_arg3823z00_1161;obj_t BgL_arg3824z00_1162;
{ /* ./Jvm/compile.scm 134 */
obj_t BgL_auxz00_2200;
BgL_auxz00_2200 = 
CNST_TABLE_REF(((long)34)); 
BgL_arg3823z00_1161 = 
MAKE_PAIR(BgL_auxz00_2200, BNIL); } 
{ /* ./Jvm/compile.scm 135 */
obj_t BgL_arg3828z00_1163;obj_t BgL_arg3830z00_1164;
{ /* ./Jvm/compile.scm 135 */
obj_t BgL_auxz00_2203;
BgL_auxz00_2203 = 
CNST_TABLE_REF(((long)35)); 
BgL_arg3828z00_1163 = 
MAKE_PAIR(BgL_auxz00_2203, BNIL); } 
{ /* ./Jvm/compile.scm 136 */
obj_t BgL_arg3834z00_1165;obj_t BgL_arg3835z00_1166;
{ /* ./Jvm/compile.scm 136 */
obj_t BgL_arg3838z00_1167;obj_t BgL_arg3839z00_1168;
BgL_arg3838z00_1167 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Jvm/compile.scm 138 */
obj_t BgL_arg3842z00_1169;
{ /* ./Jvm/compile.scm 138 */
obj_t BgL_arg3846z00_1171;
{ /* ./Jvm/compile.scm 138 */
obj_t BgL_list3849z00_1172;
BgL_list3849z00_1172 = 
MAKE_PAIR(BGl_za2moduleza2z00zzmodule_modulez00, BNIL); 
BgL_arg3846z00_1171 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)36)), BgL_list3849z00_1172); } 
BgL_arg3842z00_1169 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_10), 
(BgL_globalz00_bglt)(BgL_arg3846z00_1171)); } 
BgL_arg3839z00_1168 = 
MAKE_PAIR(BgL_arg3842z00_1169, BNIL); } 
BgL_arg3834z00_1165 = 
MAKE_PAIR(BgL_arg3838z00_1167, BgL_arg3839z00_1168); } 
{ /* ./Jvm/compile.scm 139 */
obj_t BgL_arg3852z00_1173;obj_t BgL_arg3853z00_1174;
{ /* ./Jvm/compile.scm 139 */
obj_t BgL_auxz00_2215;
BgL_auxz00_2215 = 
CNST_TABLE_REF(((long)32)); 
BgL_arg3852z00_1173 = 
MAKE_PAIR(BgL_auxz00_2215, BNIL); } 
{ /* ./Jvm/compile.scm 140 */
obj_t BgL_arg3857z00_1175;
{ /* ./Jvm/compile.scm 140 */
obj_t BgL_auxz00_2218;
BgL_auxz00_2218 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg3857z00_1175 = 
MAKE_PAIR(BgL_auxz00_2218, BNIL); } 
BgL_arg3853z00_1174 = 
MAKE_PAIR(BgL_arg3857z00_1175, BNIL); } 
BgL_arg3835z00_1166 = 
MAKE_PAIR(BgL_arg3852z00_1173, BgL_arg3853z00_1174); } 
BgL_arg3830z00_1164 = 
MAKE_PAIR(BgL_arg3834z00_1165, BgL_arg3835z00_1166); } 
BgL_arg3824z00_1162 = 
MAKE_PAIR(BgL_arg3828z00_1163, BgL_arg3830z00_1164); } 
BgL_arg3820z00_1160 = 
MAKE_PAIR(BgL_arg3823z00_1161, BgL_arg3824z00_1162); } 
BgL_arg3816z00_1158 = 
MAKE_PAIR(BNIL, BgL_arg3820z00_1160); } 
BgL_arg3812z00_1156 = 
MAKE_PAIR(BNIL, BgL_arg3816z00_1158); } 
BgL_arg3809z00_1155 = 
MAKE_PAIR(BgL_namez00_1140, BgL_arg3812z00_1156); } 
BgL_arg3804z00_1152 = 
MAKE_PAIR(BgL_arg3808z00_1154, BgL_arg3809z00_1155); } 
return 
MAKE_PAIR(BgL_arg3804z00_1152, BNIL);} } } 
}



/* compile-fields */
obj_t BGl_compilezd2fieldszd2zzjvm_compilez00(obj_t BgL_envz00_11)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 142 */
{ /* ./Jvm/compile.scm 143 */
obj_t BgL_rz00_1177;obj_t BgL_mez00_1178;
BgL_rz00_1177 = BNIL; 
{ /* ./Jvm/compile.scm 143 */
BgL_envz00_bglt BgL_obj3002z00_1706;
BgL_obj3002z00_1706 = 
(BgL_envz00_bglt)(BgL_envz00_11); 
BgL_mez00_1178 = 
(((BgL_envz00_bglt)CREF(BgL_obj3002z00_1706))->BgL_currentzd2modulezd2); } 
{ 
obj_t BgL_l3112z00_1179;
{ /* ./Jvm/compile.scm 150 */
obj_t BgL_arg3863z00_1181;
{ /* ./Jvm/compile.scm 150 */
BgL_envz00_bglt BgL_obj2990z00_1707;
BgL_obj2990z00_1707 = 
(BgL_envz00_bglt)(BgL_envz00_11); 
BgL_arg3863z00_1181 = 
(((BgL_envz00_bglt)CREF(BgL_obj2990z00_1707))->BgL_declarationsz00); } 
BgL_l3112z00_1179 = BgL_arg3863z00_1181; 
BgL_forzd2each3113zd2_1180:
{ /* ./Jvm/compile.scm 144 */
bool_t BgL_test3866z00_1182;
BgL_test3866z00_1182 = 
PAIRP(BgL_l3112z00_1179); 
if(BgL_test3866z00_1182)
{ /* ./Jvm/compile.scm 144 */
{ /* ./Jvm/compile.scm 146 */
obj_t BgL_slotz00_1183;
BgL_slotz00_1183 = 
CAR(BgL_l3112z00_1179); 
{ /* ./Jvm/compile.scm 146 */
obj_t BgL_valz00_1184;
{ /* ./Jvm/compile.scm 146 */
obj_t BgL_auxz00_2238;
BgL_auxz00_2238 = 
CDR(BgL_slotz00_1183); 
BgL_valz00_1184 = 
CAR(BgL_auxz00_2238); } 
{ /* ./Jvm/compile.scm 147 */
bool_t BgL_test3867z00_1185;
{ /* ./Jvm/compile.scm 147 */
bool_t BgL_testz00_2241;
{ /* ./Jvm/compile.scm 147 */
obj_t BgL_auxz00_2244;obj_t BgL_auxz00_2242;
BgL_auxz00_2244 = 
CNST_TABLE_REF(((long)17)); 
BgL_auxz00_2242 = 
CAR(BgL_valz00_1184); 
BgL_testz00_2241 = 
(BgL_auxz00_2242==BgL_auxz00_2244); } 
if(BgL_testz00_2241)
{ /* ./Jvm/compile.scm 148 */
obj_t BgL_auxz00_2247;
{ /* ./Jvm/compile.scm 148 */
obj_t BgL_auxz00_2248;
BgL_auxz00_2248 = 
CDR(BgL_valz00_1184); 
BgL_auxz00_2247 = 
CAR(BgL_auxz00_2248); } 
BgL_test3867z00_1185 = 
(BgL_auxz00_2247==BgL_mez00_1178); }  else 
{ /* ./Jvm/compile.scm 147 */
BgL_test3867z00_1185 = ((bool_t)0); } } 
if(BgL_test3867z00_1185)
{ /* ./Jvm/compile.scm 149 */
obj_t BgL_arg3869z00_1186;
BgL_arg3869z00_1186 = 
CAR(BgL_slotz00_1183); 
BgL_rz00_1177 = 
MAKE_PAIR(BgL_arg3869z00_1186, BgL_rz00_1177); }  else 
{ /* ./Jvm/compile.scm 147 */BFALSE; } } } } 
{ /* ./Jvm/compile.scm 144 */
obj_t BgL_arg3886z00_1191;
BgL_arg3886z00_1191 = 
CDR(BgL_l3112z00_1179); 
{ 
obj_t BgL_l3112z00_2256;
BgL_l3112z00_2256 = BgL_arg3886z00_1191; 
BgL_l3112z00_1179 = BgL_l3112z00_2256; 
goto BgL_forzd2each3113zd2_1180;} } }  else 
{ /* ./Jvm/compile.scm 144 */((bool_t)1); } } } } 
return BgL_rz00_1177;} } 
}



/* compile-globalfun1 */
obj_t BGl_compilezd2globalfun1zd2zzjvm_compilez00(obj_t BgL_varz00_14, obj_t BgL_envz00_15)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 162 */
{ /* ./Jvm/compile.scm 164 */
BgL_valuez00_bglt BgL_instance3116z00_1194;
{ /* ./Jvm/compile.scm 165 */
BgL_variablez00_bglt BgL_obj1100z00_1722;
BgL_obj1100z00_1722 = 
(BgL_variablez00_bglt)(BgL_varz00_14); 
BgL_instance3116z00_1194 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1722))->BgL_valuez00); } 
{ /* ./Jvm/compile.scm 165 */
BgL_envz00_bglt BgL_obj3023z00_1723;obj_t BgL_val3022z00_1724;
BgL_obj3023z00_1723 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_val3022z00_1724 = BgL_varz00_14; 
((((BgL_envz00_bglt)CREF(BgL_obj3023z00_1723))->BgL_currentzd2methodzd2) = ((obj_t)BgL_val3022z00_1724), BUNSPEC); } 
{ /* ./Jvm/compile.scm 166 */
BgL_envz00_bglt BgL_obj3026z00_1725;obj_t BgL_val3025z00_1726;
BgL_obj3026z00_1725 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_val3025z00_1726 = 
BINT(((long)0)); 
((((BgL_envz00_bglt)CREF(BgL_obj3026z00_1725))->BgL_vcountz00) = ((obj_t)BgL_val3025z00_1726), BUNSPEC); } 
{ /* ./Jvm/compile.scm 167 */
BgL_envz00_bglt BgL_obj3042z00_1727;obj_t BgL_val3041z00_1728;
BgL_obj3042z00_1727 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_val3041z00_1728 = BNIL; 
((((BgL_envz00_bglt)CREF(BgL_obj3042z00_1727))->BgL_codez00) = ((obj_t)BgL_val3041z00_1728), BUNSPEC); } 
{ /* ./Jvm/compile.scm 168 */
BgL_envz00_bglt BgL_obj3029z00_1729;obj_t BgL_val3028z00_1730;
BgL_obj3029z00_1729 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_val3028z00_1730 = BNIL; 
((((BgL_envz00_bglt)CREF(BgL_obj3029z00_1729))->BgL_localsz00) = ((obj_t)BgL_val3028z00_1730), BUNSPEC); } 
{ /* ./Jvm/compile.scm 169 */
BgL_envz00_bglt BgL_obj3032z00_1731;obj_t BgL_val3031z00_1732;
BgL_obj3032z00_1731 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_val3031z00_1732 = BNIL; 
((((BgL_envz00_bglt)CREF(BgL_obj3032z00_1731))->BgL_freelocalsz00) = ((obj_t)BgL_val3031z00_1732), BUNSPEC); } 
{ /* ./Jvm/compile.scm 170 */
BgL_envz00_bglt BgL_obj3036z00_1733;obj_t BgL_val3035z00_1734;
BgL_obj3036z00_1733 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_val3035z00_1734 = BNIL; 
((((BgL_envz00_bglt)CREF(BgL_obj3036z00_1733))->BgL_maplocalsz00) = ((obj_t)BgL_val3035z00_1734), BUNSPEC); } 
{ /* ./Jvm/compile.scm 171 */
BgL_envz00_bglt BgL_obj3039z00_1735;obj_t BgL_val3038z00_1736;
BgL_obj3039z00_1735 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_val3038z00_1736 = BNIL; 
((((BgL_envz00_bglt)CREF(BgL_obj3039z00_1735))->BgL_stackz00) = ((obj_t)BgL_val3038z00_1736), BUNSPEC); } 
{ 
obj_t BgL_l3118z00_1195;
{ /* ./Jvm/compile.scm 172 */
obj_t BgL_arg3901z00_1197;
{ /* ./Jvm/compile.scm 172 */
BgL_sfunz00_bglt BgL_obj1367z00_1737;
BgL_obj1367z00_1737 = 
(BgL_sfunz00_bglt)(BgL_instance3116z00_1194); 
BgL_arg3901z00_1197 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1737))->BgL_argsz00); } 
BgL_l3118z00_1195 = BgL_arg3901z00_1197; 
BgL_forzd2each3119zd2_1196:
{ /* ./Jvm/compile.scm 172 */
bool_t BgL_test3904z00_1198;
BgL_test3904z00_1198 = 
PAIRP(BgL_l3118z00_1195); 
if(BgL_test3904z00_1198)
{ /* ./Jvm/compile.scm 172 */
{ /* ./Jvm/compile.scm 174 */
obj_t BgL_az00_1199;
BgL_az00_1199 = 
CAR(BgL_l3118z00_1195); 
BGl_envzd2setzd2namez12z12zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_15), 
(BgL_localz00_bglt)(BgL_az00_1199), 
CNST_TABLE_REF(((long)37))); 
BGl_debugzd2declarezd2varzd2fromzd2zzjvm_externz00(
(BgL_envz00_bglt)(BgL_envz00_15), 
(BgL_localz00_bglt)(BgL_az00_1199), 
CNST_TABLE_REF(((long)38)), 
CNST_TABLE_REF(((long)39))); } 
{ /* ./Jvm/compile.scm 172 */
obj_t BgL_arg3909z00_1200;
BgL_arg3909z00_1200 = 
CDR(BgL_l3118z00_1195); 
{ 
obj_t BgL_l3118z00_2289;
BgL_l3118z00_2289 = BgL_arg3909z00_1200; 
BgL_l3118z00_1195 = BgL_l3118z00_2289; 
goto BgL_forzd2each3119zd2_1196;} } }  else 
{ /* ./Jvm/compile.scm 172 */((bool_t)1); } } } } 
{ /* ./Jvm/compile.scm 178 */
BgL_nodez00_bglt BgL_arg3914z00_1201;
{ /* ./Jvm/compile.scm 178 */
obj_t BgL_arg3917z00_1202;
{ /* ./Jvm/compile.scm 178 */
BgL_sfunz00_bglt BgL_obj1370z00_1741;
BgL_obj1370z00_1741 = 
(BgL_sfunz00_bglt)(BgL_instance3116z00_1194); 
BgL_arg3917z00_1202 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1741))->BgL_bodyz00); } 
BgL_arg3914z00_1201 = 
BGl_compilezd2compresszd2zzjvm_compressz00(
(BgL_nodez00_bglt)(BgL_arg3917z00_1202)); } 
{ /* ./Jvm/compile.scm 178 */
BgL_sfunz00_bglt BgL_obj1373z00_1742;obj_t BgL_val1371z00_1743;
BgL_obj1373z00_1742 = 
(BgL_sfunz00_bglt)(BgL_instance3116z00_1194); 
BgL_val1371z00_1743 = 
(obj_t)(BgL_arg3914z00_1201); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1742))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1743), BUNSPEC); } } 
{ /* ./Jvm/compile.scm 179 */
obj_t BgL_arg3921z00_1203;
{ /* ./Jvm/compile.scm 179 */
BgL_sfunz00_bglt BgL_obj1370z00_1744;
BgL_obj1370z00_1744 = 
(BgL_sfunz00_bglt)(BgL_instance3116z00_1194); 
BgL_arg3921z00_1203 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1744))->BgL_bodyz00); } 
BGl_compilezd2preludezd2zzjvm_preludez00(
(BgL_nodez00_bglt)(BgL_arg3921z00_1203)); } 
{ /* ./Jvm/compile.scm 180 */
obj_t BgL_arg3925z00_1204;
{ /* ./Jvm/compile.scm 180 */
BgL_sfunz00_bglt BgL_obj1370z00_1745;
BgL_obj1370z00_1745 = 
(BgL_sfunz00_bglt)(BgL_instance3116z00_1194); 
BgL_arg3925z00_1204 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1745))->BgL_bodyz00); } 
BGl_compilerzd2bodyzd2zzjvm_compilerz00(
(BgL_nodez00_bglt)(BgL_arg3925z00_1204), 
(BgL_envz00_bglt)(BgL_envz00_15)); } 
BGl__labelz00zzjvm_instrz00(
(BgL_envz00_bglt)(BgL_envz00_15), 
CNST_TABLE_REF(((long)39))); 
{ /* ./Jvm/compile.scm 182 */
obj_t BgL_rtypez00_1205;
{ /* ./Jvm/compile.scm 182 */
BgL_typez00_bglt BgL_arg3932z00_1206;
{ /* ./Jvm/compile.scm 182 */
BgL_variablez00_bglt BgL_obj1097z00_1746;
BgL_obj1097z00_1746 = 
(BgL_variablez00_bglt)(BgL_varz00_14); 
BgL_arg3932z00_1206 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1746))->BgL_typez00); } 
BgL_rtypez00_1205 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg3932z00_1206), 
(BgL_envz00_bglt)(BgL_envz00_15)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compile.scm 183 */
BGl__checkcastz00zzjvm_instrz00(
(BgL_envz00_bglt)(BgL_envz00_15), BgL_rtypez00_1205); }  else 
{ /* ./Jvm/compile.scm 183 */BFALSE; } 
BGl__returnz00zzjvm_instrz00(
(BgL_envz00_bglt)(BgL_envz00_15), BgL_rtypez00_1205); } 
{ /* ./Jvm/compile.scm 185 */
bool_t BgL_test3935z00_1207;
{ /* ./Jvm/compile.scm 185 */
obj_t BgL_auxz00_2320;
{ /* ./Jvm/compile.scm 185 */
BgL_envz00_bglt BgL_obj3037z00_1747;
BgL_obj3037z00_1747 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_auxz00_2320 = 
(((BgL_envz00_bglt)CREF(BgL_obj3037z00_1747))->BgL_stackz00); } 
BgL_test3935z00_1207 = 
NULLP(BgL_auxz00_2320); } 
if(BgL_test3935z00_1207)
{ /* ./Jvm/compile.scm 185 */((bool_t)0); }  else 
{ /* ./Jvm/compile.scm 185 */
{ /* ./Jvm/compile.scm 187 */
obj_t BgL_arg3937z00_1208;
{ /* ./Jvm/compile.scm 187 */
obj_t BgL_auxz00_2325;
{ /* ./Jvm/compile.scm 187 */
BgL_envz00_bglt BgL_obj3040z00_1749;
BgL_obj3040z00_1749 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_auxz00_2325 = 
(((BgL_envz00_bglt)CREF(BgL_obj3040z00_1749))->BgL_codez00); } 
BgL_arg3937z00_1208 = 
bgl_reverse(BgL_auxz00_2325); } 
BGl_ppz00zz__ppz00(BgL_arg3937z00_1208, BNIL); } 
{ /* ./Jvm/compile.scm 188 */
obj_t BgL_arg3948z00_1213;
{ /* ./Jvm/compile.scm 188 */
BgL_envz00_bglt BgL_obj3037z00_1750;
BgL_obj3037z00_1750 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_arg3948z00_1213 = 
(((BgL_envz00_bglt)CREF(BgL_obj3037z00_1750))->BgL_stackz00); } 
FAILURE(BGl_string4514z00zzjvm_compilez00,BGl_string4515z00zzjvm_compilez00,BgL_arg3948z00_1213);} } } 
{ /* ./Jvm/compile.scm 192 */
obj_t BgL_arg3956z00_1215;obj_t BgL_arg3957z00_1216;
BgL_arg3956z00_1215 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jvm/compile.scm 192 */
obj_t BgL_arg3960z00_1217;obj_t BgL_arg3961z00_1218;
BgL_arg3960z00_1217 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(
(BgL_envz00_bglt)(BgL_envz00_15), 
(BgL_globalz00_bglt)(BgL_varz00_14)); 
{ /* ./Jvm/compile.scm 193 */
obj_t BgL_arg3965z00_1219;obj_t BgL_arg3966z00_1220;
{ /* ./Jvm/compile.scm 193 */
obj_t BgL_arg3969z00_1221;
{ /* ./Jvm/compile.scm 193 */
BgL_sfunz00_bglt BgL_obj1367z00_1754;
BgL_obj1367z00_1754 = 
(BgL_sfunz00_bglt)(BgL_instance3116z00_1194); 
BgL_arg3969z00_1221 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1754))->BgL_argsz00); } 
BgL_arg3965z00_1219 = 
BGl_compilezd2formalszd2zzjvm_compilez00(BgL_arg3969z00_1221, BgL_envz00_15); } 
{ /* ./Jvm/compile.scm 194 */
obj_t BgL_arg3973z00_1222;obj_t BgL_arg3974z00_1223;
{ /* ./Jvm/compile.scm 194 */
obj_t BgL_arg3978z00_1224;obj_t BgL_arg3979z00_1225;
BgL_arg3978z00_1224 = 
CNST_TABLE_REF(((long)40)); 
{ /* ./Jvm/compile.scm 194 */
obj_t BgL_arg3982z00_1226;obj_t BgL_arg3983z00_1227;
BgL_arg3982z00_1226 = 
CNST_TABLE_REF(((long)41)); 
{ /* ./Jvm/compile.scm 194 */
obj_t BgL_arg3986z00_1228;
{ /* ./Jvm/compile.scm 194 */
obj_t BgL_arg3990z00_1230;
{ /* ./Jvm/compile.scm 194 */
BgL_envz00_bglt BgL_obj3027z00_1755;
BgL_obj3027z00_1755 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_arg3990z00_1230 = 
(((BgL_envz00_bglt)CREF(BgL_obj3027z00_1755))->BgL_localsz00); } 
BgL_arg3986z00_1228 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg3990z00_1230); } 
BgL_arg3983z00_1227 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3986z00_1228, BNIL); } 
BgL_arg3979z00_1225 = 
MAKE_PAIR(BgL_arg3982z00_1226, BgL_arg3983z00_1227); } 
BgL_arg3973z00_1222 = 
MAKE_PAIR(BgL_arg3978z00_1224, BgL_arg3979z00_1225); } 
{ /* ./Jvm/compile.scm 195 */
obj_t BgL_arg3994z00_1231;
{ /* ./Jvm/compile.scm 195 */
obj_t BgL_arg3998z00_1233;
{ /* ./Jvm/compile.scm 195 */
BgL_envz00_bglt BgL_obj3040z00_1756;
BgL_obj3040z00_1756 = 
(BgL_envz00_bglt)(BgL_envz00_15); 
BgL_arg3998z00_1233 = 
(((BgL_envz00_bglt)CREF(BgL_obj3040z00_1756))->BgL_codez00); } 
BgL_arg3994z00_1231 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg3998z00_1233); } 
BgL_arg3974z00_1223 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3994z00_1231, BNIL); } 
BgL_arg3966z00_1220 = 
MAKE_PAIR(BgL_arg3973z00_1222, BgL_arg3974z00_1223); } 
BgL_arg3961z00_1218 = 
MAKE_PAIR(BgL_arg3965z00_1219, BgL_arg3966z00_1220); } 
BgL_arg3957z00_1216 = 
MAKE_PAIR(BgL_arg3960z00_1217, BgL_arg3961z00_1218); } 
return 
MAKE_PAIR(BgL_arg3956z00_1215, BgL_arg3957z00_1216);} } } 
}



/* compile-formals */
obj_t BGl_compilezd2formalszd2zzjvm_compilez00(obj_t BgL_lz00_16, obj_t BgL_envz00_17)
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 197 */
{ /* ./Jvm/compile.scm 198 */
bool_t BgL_test4002z00_1234;
BgL_test4002z00_1234 = 
NULLP(BgL_lz00_16); 
if(BgL_test4002z00_1234)
{ /* ./Jvm/compile.scm 198 */
return BgL_lz00_16;}  else 
{ /* ./Jvm/compile.scm 200 */
obj_t BgL_vz00_1235;obj_t BgL_restz00_1236;
BgL_vz00_1235 = 
CAR(BgL_lz00_16); 
{ /* ./Jvm/compile.scm 200 */
obj_t BgL_arg4014z00_1241;
BgL_arg4014z00_1241 = 
CDR(BgL_lz00_16); 
BgL_restz00_1236 = 
BGl_compilezd2formalszd2zzjvm_compilez00(BgL_arg4014z00_1241, BgL_envz00_17); } 
{ /* ./Jvm/compile.scm 201 */
obj_t BgL_typez00_1237;obj_t BgL_namez00_1238;
BgL_typez00_1237 = 
BGl_compilezd2typezd2zzjvm_envz00(BgL_vz00_1235, 
(BgL_envz00_bglt)(BgL_envz00_17)); 
{ /* ./Jvm/compile.scm 201 */
BgL_variablez00_bglt BgL_obj1094z00_1760;
BgL_obj1094z00_1760 = 
(BgL_variablez00_bglt)(BgL_vz00_1235); 
BgL_namez00_1238 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1760))->BgL_namez00); } 
{ /* ./Jvm/compile.scm 202 */
bool_t BgL_test4003z00_1239;
{ /* ./Jvm/compile.scm 202 */
obj_t BgL_auxz00_2365;
BgL_auxz00_2365 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_1237, 
CNST_TABLE_REF(((long)42))); 
BgL_test4003z00_1239 = 
CBOOL(BgL_auxz00_2365); } 
if(BgL_test4003z00_1239)
{ /* ./Jvm/compile.scm 203 */
obj_t BgL_arg4005z00_1240;
{ /* ./Jvm/compile.scm 203 */
obj_t BgL_auxz00_2370;
BgL_auxz00_2370 = 
CNST_TABLE_REF(((long)43)); 
BgL_arg4005z00_1240 = 
MAKE_PAIR(BgL_auxz00_2370, BgL_restz00_1236); } 
return 
MAKE_PAIR(BgL_namez00_1238, BgL_arg4005z00_1240);}  else 
{ /* ./Jvm/compile.scm 202 */
return 
MAKE_PAIR(BgL_namez00_1238, BgL_restz00_1236);} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzjvm_compilez00()
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 1 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzjvm_compilez00()
{ AN_OBJECT;
{ /* ./Jvm/compile.scm 1 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzobject_slotsz00(((long)44183), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_externz00(((long)3672), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_envz00(((long)58889), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_instrz00(((long)18045), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_exprz00(((long)25872), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_compilerz00(((long)61602), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_initz00(((long)47928), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_constrz00(((long)25755), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_closurez00(((long)30313), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_preludez00(((long)44548), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_peepholez00(((long)617), "jvm_compile"); 
BGl_modulezd2initializa7ationz75zzjvm_compressz00(((long)54531), "jvm_compile"); 
return 
BGl_modulezd2initializa7ationz75zzjvm_lispz00(((long)16895), "jvm_compile");} 
}

