/*===========================================================================*/
/*   (Jvm/compiler.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/compiler.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_jarrayz00_bgl {
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_jarrayz00_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;


static obj_t BGl_check_type_vectorz00zzjvm_compilerz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2ifzd2zzjvm_compilerz00(BgL_conditionalz00_bglt, BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2boxzd2refz00zzjvm_compilerz00(BgL_boxzd2refzd2_bglt, BgL_envz00_bglt);
static obj_t BGl_methodzd2initzd2zzjvm_compilerz00();
BGL_EXPORTED_DECL obj_t BGl_compilerzd2boxzd2setz12z12zzjvm_compilerz00(BgL_boxzd2setz12zc0_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2funcallzd2zzjvm_compilerz00(BgL_funcallz00_bglt, BgL_envz00_bglt);
extern obj_t BGl_specialzd2inlinezd2callzf3zf3zzjvm_inlinez00;
static obj_t BGl__compilerzd2apply5421zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_setzd2typezd2zzjvm_compilerz00(obj_t, obj_t);
extern obj_t BGl_nodez00zzast_nodez00;
extern obj_t BGl_sfunz00zzast_varz00;
static obj_t BGl_howzd2tozd2callz00zzjvm_compilerz00(BgL_envz00_bglt, BgL_variablez00_bglt, obj_t);
extern obj_t BGl__newarrayz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl__instanceofz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2boxzd2ref5453z00zzjvm_compilerz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
extern obj_t BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl_selectzd2intzd2zzjvm_compilerz00(BgL_envz00_bglt, obj_t, obj_t, obj_t, BgL_selectz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2labelszd2zzjvm_compilerz00(BgL_letzd2funzd2_bglt, BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2getfieldzd2zzjvm_compilerz00(BgL_getfieldz00_bglt, BgL_envz00_bglt);
extern obj_t BGl_compilezd2tailzd2zzjvm_tailz00(BgL_nodez00_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2pragmazd2zzjvm_compilerz00(BgL_pragmaz00_bglt, BgL_envz00_bglt);
extern obj_t BGl__arraylengthz00zzjvm_instrz00(BgL_envz00_bglt);
static obj_t BGl__compilerzd2boxzd2setz125455z12zzjvm_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2makezd2boxz00zzjvm_compilerz00(BgL_makezd2boxzd2_bglt, BgL_envz00_bglt);
BGL_IMPORT bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl__compilerzd2labels5417zd2zzjvm_compilerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2if5413zd2zzjvm_compilerz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_compilezd2typezd2zzjvm_envz00(obj_t, BgL_envz00_bglt);
extern obj_t BGl_getzd2linezd2numberz00zzjvm_externz00(BgL_nodez00_bglt);
extern obj_t BGl_envzd2alloczd2localz00zzjvm_envz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2app5419zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2vset5437zd2zzjvm_compilerz00(obj_t, 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;
BGL_EXPORTED_DECL obj_t BGl_compilerzd2failzd2zzjvm_compilerz00(BgL_failz00_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2atomzd2zzjvm_compilerz00(obj_t, BgL_envz00_bglt);
extern BgL_typez00_bglt BGl_typeofz00zztype_typeofz00(BgL_nodez00_bglt);
static obj_t BGl__compilerzd2body5401zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2select5415zd2zzjvm_compilerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_specialzd2callzf3z21zzjvm_compilerz00(BgL_variablez00_bglt, obj_t, BgL_envz00_bglt);
extern obj_t BGl_envzd2declarezd2localz00zzjvm_envz00(BgL_envz00_bglt, BgL_localz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2castzd2zzjvm_compilerz00(BgL_castz00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl__putfieldz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__compilerzd2pragma5425zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2cast5443zd2zzjvm_compilerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2procedurezd2entryz00zzjvm_compilerz00(BgL_globalz00_bglt, long, BgL_envz00_bglt);
extern obj_t BGl__aloadz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl_varz00zzast_nodez00;
extern obj_t BGl_za2jvmzd2purifyza2zd2zzengine_paramz00;
extern obj_t BGl__loadz00zzjvm_instrz00(BgL_envz00_bglt, BgL_localz00_bglt);
static obj_t BGl_cnstzd2initzd2zzjvm_compilerz00();
static obj_t BGl__compilerzd2vlength5439zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2let5407zd2zzjvm_compilerz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl__newz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t display_fixnum(obj_t, obj_t);
static obj_t BGl_typezd2argszd2zzjvm_compilerz00(BgL_variablez00_bglt, BgL_envz00_bglt);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_debugzd2forzd2declarezd2varzf3z21zzjvm_externz00(BgL_envz00_bglt);
extern obj_t BGl_compilezd2typezd2nowideningz00zzjvm_envz00(obj_t, BgL_envz00_bglt);
extern obj_t BGl_envzd2newzd2getsetz00zzjvm_envz00(BgL_envz00_bglt, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzjvm_compilerz00();
static obj_t BGl__compilerzd2makezd2box5451z00zzjvm_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl_createzd2stringzd2zzjvm_instrz00(obj_t, obj_t);
extern obj_t BGl__store_namez00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_envzd2newzd2procedurez00zzjvm_envz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_envzd2setzd2namez12z12zzjvm_envz00(BgL_envz00_bglt, BgL_localz00_bglt, obj_t);
extern obj_t BGl_compilezd2effectzd2zzjvm_effectz00(BgL_nodez00_bglt, BgL_envz00_bglt);
extern obj_t BGl__astorez00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2vsetzd2zzjvm_compilerz00(BgL_vsetz12z12_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2selectzd2zzjvm_compilerz00(BgL_selectz00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl__checkcastz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl__load_namez00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2valloczd2zzjvm_compilerz00(BgL_vallocz00_bglt, BgL_envz00_bglt);
extern obj_t BGl__switchz00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_variablez00zzast_varz00;
static obj_t BGl__compilerzd2valloc5433zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
extern obj_t BGl__storez00zzjvm_instrz00(BgL_envz00_bglt, BgL_localz00_bglt);
static obj_t BGl_toplevelzd2initzd2zzjvm_compilerz00();
extern obj_t BGl_jclassz00zzobject_classz00;
static obj_t BGl__compilerzd2vref5435zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzjvm_compilerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(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_modulezd2initializa7ationz75zzforeign_jtypez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_lispz00(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_inlinez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_tailz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_exprz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_predicatez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(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_equivalence_6_2z00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl__athrowz00zzjvm_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2appzd2zzjvm_compilerz00(BgL_appz00_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2vrefzd2zzjvm_compilerz00(BgL_vrefz00_bglt, BgL_envz00_bglt);
static obj_t BGl__compilerzd2setq5409zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2longislongza2z00zzjvm_envz00;
extern obj_t BGl__putstaticz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2setexit5445zd2zzjvm_compilerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2jumpzd2exit5447z00zzjvm_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2vlengthzd2zzjvm_compilerz00(BgL_vlengthz00_bglt, BgL_envz00_bglt);
BGL_IMPORT long bgl_list_length(obj_t);
static obj_t BGl__compilerzd2funcall5423zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2setqzd2zzjvm_compilerz00(BgL_setqz00_bglt, BgL_envz00_bglt);
static obj_t BGl__compilerzd2new5431zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__getstatic2z00zzjvm_instrz00(BgL_envz00_bglt, BgL_globalz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2newzd2zzjvm_compilerz00(BgL_newz00_bglt, BgL_envz00_bglt);
BGL_IMPORT obj_t bgl_reverse(obj_t);
static obj_t BGl__compilerzd2getfield5427zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2applyzd2zzjvm_compilerz00(BgL_appzd2lyzd2_bglt, BgL_envz00_bglt);
extern obj_t BGl_inlinezd2callzf3z21zzjvm_inlinez00;
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl_getzd2typezd2zzjvm_compilerz00(obj_t);
extern obj_t BGl__invokespecial_initz00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_envzd2freezd2localz00zzjvm_envz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2jumpzd2exitz00zzjvm_compilerz00(BgL_jumpzd2exzd2itz00_bglt, BgL_envz00_bglt);
extern obj_t BGl__dupz00zzjvm_instrz00(BgL_envz00_bglt);
extern obj_t BGl_cfunz00zzast_varz00;
static obj_t BGl__compilerzd2setfield5429zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__getfieldz00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2setfieldzd2zzjvm_compilerz00(BgL_setfieldz00_bglt, BgL_envz00_bglt);
static obj_t BGl__compilerzd2var5405zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl_envzd2declarezd2fieldz00zzjvm_envz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2atom5403zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__l2iz00zzjvm_instrz00(BgL_envz00_bglt);
static obj_t BGl_check_typez00zzjvm_compilerz00(BgL_envz00_bglt, obj_t, obj_t);
static obj_t BGl__compilerzd2sequence5411zd2zzjvm_compilerz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl__getstaticz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2letzd2zzjvm_compilerz00(BgL_letzd2varzd2_bglt, BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
extern obj_t BGl__pushz00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2sequencezd2zzjvm_compilerz00(BgL_sequencez00_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2labelzd2callz00zzjvm_compilerz00(BgL_variablez00_bglt, obj_t, BgL_envz00_bglt);
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t BGl_getzd2globalzd2namez00zzjvm_envz00(BgL_envz00_bglt, BgL_globalz00_bglt);
extern obj_t BGl_compilezd2predicatezd2zzjvm_predicatez00(BgL_nodez00_bglt, obj_t, obj_t, BgL_envz00_bglt);
static obj_t BGl_za2labels2savedza2z00zzjvm_compilerz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_compilerzd2isazd2zzjvm_compilerz00(BgL_isaz00_bglt, BgL_envz00_bglt);
BGL_IMPORT obj_t BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2setexitzd2zzjvm_compilerz00(BgL_setzd2exzd2itz00_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzjvm_compilerz00 = BUNSPEC;
static obj_t BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_debugzd2declarezd2varz00zzjvm_externz00(BgL_envz00_bglt, BgL_localz00_bglt, obj_t);
extern obj_t BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl__gotoz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl_envzd2declarezd2newzd2localzd2zzjvm_envz00(BgL_envz00_bglt, BgL_localz00_bglt);
extern obj_t BGl_compilezd2exprzd2zzjvm_exprz00(BgL_nodez00_bglt, BgL_envz00_bglt);
extern obj_t BGl_envzd2declarezd2initz00zzjvm_envz00(obj_t, obj_t);
static obj_t BGl_za2labdoneza2z00zzjvm_compilerz00 = BUNSPEC;
extern obj_t BGl__linez00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl_za2lab2labelsza2z00zzjvm_compilerz00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzjvm_compilerz00();
extern obj_t BGl__labelz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2fail5449zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2isa5441zd2zzjvm_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__invokeinterfacez00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2varzd2zzjvm_compilerz00(BgL_varz00_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2bodyzd2zzjvm_compilerz00(BgL_nodez00_bglt, BgL_envz00_bglt);
extern obj_t BGl__handlerz00zzjvm_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t, obj_t);
static obj_t __cnst[ 81 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2varzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2var5405za7d2za7za7jvm_compilerza7005941za7, BGl__compilerzd2var5405zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2sequencezd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2sequence5411za7d2za7za7jvm_compilerza7005942za7, BGl__compilerzd2sequence5411zd2zzjvm_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2setfieldzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2setfield5429za7d2za7za7jvm_compilerza7005943za7, BGl__compilerzd2setfield5429zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2setexitzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2setexit5445za7d2za7za7jvm_compilerza7005944za7, BGl__compilerzd2setexit5445zd2zzjvm_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2funcallzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2funcall5423za7d2za7za7jvm_compilerza7005945za7, BGl__compilerzd2funcall5423zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2castzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2cast5443za7d2za7za7jvm_compilerza7005946za7, BGl__compilerzd2cast5443zd2zzjvm_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2bodyzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2body5401za7d2za7za7jvm_compilerza7005947za7, BGl__compilerzd2body5401zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2valloczd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2valloc5433za7d2za7za7jvm_compilerza7005948za7, BGl__compilerzd2valloc5433zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2jumpzd2exitzd2envzd2zzjvm_compilerz00, BgL_bgl__compilerza7d2jumpza7d2exit5447za700za7za7jvm_compilerza7005949z00, BGl__compilerzd2jumpzd2exit5447z00zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2vsetzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2vset5437za7d2za7za7jvm_compilerza7005950za7, BGl__compilerzd2vset5437zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2isazd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2isa5441za7d2za7za7jvm_compilerza7005951za7, BGl__compilerzd2isa5441zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2vlengthzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2vlength5439za7d2za7za7jvm_compilerza7005952za7, BGl__compilerzd2vlength5439zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2boxzd2refzd2envzd2zzjvm_compilerz00, BgL_bgl__compilerza7d2boxza7d2ref5453za700za7za7jvm_compilerza7005953z00, BGl__compilerzd2boxzd2ref5453z00zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2makezd2boxzd2envzd2zzjvm_compilerz00, BgL_bgl__compilerza7d2makeza7d2box5451za700za7za7jvm_compilerza7005954z00, BGl__compilerzd2makezd2box5451z00zzjvm_compilerz00, 0L, 2 );
DEFINE_STRING( BGl_string5910z00zzjvm_compilerz00, BgL_bgl_string5910za700za7za7jvm_compilerza7005955z00, "j_cell ccar init_cell cell fail jumpexit debug_handler j_exit j_bexception setexit ptr_alg (ad ad ad ad ad) funcall4 (ad ad ad ad) funcall3 (ad ad ad) funcall2 funcall1 funcall0 cons (ad ad) apply j_procedure __evmeaning_address cnst-table-set! constants cnst-table-ref make-l-procedure procenv jobject procarity procindex init0 make-va-procedure make-fx-procedure native final abstract static done reg1 from_body entry_labels long else unknown \077\077? make_llong (jobject t_bllong) ad (ad) make_elong string (jobject t_belong) bucs2_value void (ad char) init_bucs2 j_bucs2 (jobject bucs2) unspecified (jobject t_unspecified) key (jobject t_key) rest (jobject t_rest) optional (jobject t_optional) eof (jobject t_eof) byte int boolean nil (jobject t_nil) (boolean int long float double) ok (node-type-set! e ty) (tprint up \" wrong type \" (list tdown (quote ->) tup)) vector begin ", 876 );
DEFINE_STRING( BGl_string5909z00zzjvm_compilerz00, BgL_bgl_string5909za700za7za7jvm_compilerza7005956z00, "HD", 2 );
DEFINE_STRING( BGl_string5899z00zzjvm_compilerz00, BgL_bgl_string5899za700za7za7jvm_compilerza7005957z00, "F", 1 );
DEFINE_STRING( BGl_string5908z00zzjvm_compilerz00, BgL_bgl_string5908za700za7za7jvm_compilerza7005958z00, "HE", 2 );
DEFINE_STRING( BGl_string5898z00zzjvm_compilerz00, BgL_bgl_string5898za700za7za7jvm_compilerza7005959z00, "bad item", 8 );
DEFINE_STRING( BGl_string5907z00zzjvm_compilerz00, BgL_bgl_string5907za700za7za7jvm_compilerza7005960z00, "HB", 2 );
DEFINE_STRING( BGl_string5897z00zzjvm_compilerz00, BgL_bgl_string5897za700za7za7jvm_compilerza7005961z00, "not yet", 7 );
DEFINE_STRING( BGl_string5906z00zzjvm_compilerz00, BgL_bgl_string5906za700za7za7jvm_compilerza7005962z00, "ya pas en jvm", 13 );
DEFINE_STRING( BGl_string5896z00zzjvm_compilerz00, BgL_bgl_string5896za700za7za7jvm_compilerza7005963z00, "select", 6 );
DEFINE_STRING( BGl_string5905z00zzjvm_compilerz00, BgL_bgl_string5905za700za7za7jvm_compilerza7005964z00, "pragma", 6 );
DEFINE_STRING( BGl_string5895z00zzjvm_compilerz00, BgL_bgl_string5895za700za7za7jvm_compilerza7005965z00, "L", 1 );
DEFINE_STRING( BGl_string5904z00zzjvm_compilerz00, BgL_bgl_string5904za700za7za7jvm_compilerza7005966z00, "PTR_ALIGNMENT", 13 );
DEFINE_STRING( BGl_string5894z00zzjvm_compilerz00, BgL_bgl_string5894za700za7za7jvm_compilerza7005967z00, "T", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2ifzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2if5413za7d2za7za7jvm_compilerza7005968za7, BGl__compilerzd2if5413zd2zzjvm_compilerz00, 0L, 3 );
DEFINE_STRING( BGl_string5903z00zzjvm_compilerz00, BgL_bgl_string5903za700za7za7jvm_compilerza7005969z00, "not a variable", 14 );
DEFINE_STRING( BGl_string5893z00zzjvm_compilerz00, BgL_bgl_string5893za700za7za7jvm_compilerza7005970z00, "bad atom value", 14 );
DEFINE_STRING( BGl_string5902z00zzjvm_compilerz00, BgL_bgl_string5902za700za7za7jvm_compilerza7005971z00, "not a global", 12 );
DEFINE_STRING( BGl_string5892z00zzjvm_compilerz00, BgL_bgl_string5892za700za7za7jvm_compilerza7005972z00, "compile", 7 );
DEFINE_STRING( BGl_string5901z00zzjvm_compilerz00, BgL_bgl_string5901za700za7za7jvm_compilerza7005973z00, "Jvm/EVMEANING_ADDRESS", 21 );
DEFINE_STRING( BGl_string5891z00zzjvm_compilerz00, BgL_bgl_string5891za700za7za7jvm_compilerza7005974z00, "set-type", 8 );
DEFINE_STRING( BGl_string5900z00zzjvm_compilerz00, BgL_bgl_string5900za700za7za7jvm_compilerza7005975z00, "<init>", 6 );
DEFINE_STRING( BGl_string5890z00zzjvm_compilerz00, BgL_bgl_string5890za700za7za7jvm_compilerza7005976z00, "unknown node", 12 );
DEFINE_STRING( BGl_string5889z00zzjvm_compilerz00, BgL_bgl_string5889za700za7za7jvm_compilerza7005977z00, "type", 4 );
DEFINE_STRING( BGl_string5888z00zzjvm_compilerz00, BgL_bgl_string5888za700za7za7jvm_compilerza7005978z00, " must be ", 9 );
DEFINE_STRING( BGl_string5887z00zzjvm_compilerz00, BgL_bgl_string5887za700za7za7jvm_compilerza7005979z00, " must in ", 9 );
DEFINE_STRING( BGl_string5886z00zzjvm_compilerz00, BgL_bgl_string5886za700za7za7jvm_compilerza7005980z00, " bad type ", 10 );
DEFINE_STRING( BGl_string5885z00zzjvm_compilerz00, BgL_bgl_string5885za700za7za7jvm_compilerza7005981z00, ":", 1 );
DEFINE_STRING( BGl_string5884z00zzjvm_compilerz00, BgL_bgl_string5884za700za7za7jvm_compilerza7005982z00, ",", 1 );
DEFINE_STRING( BGl_string5883z00zzjvm_compilerz00, BgL_bgl_string5883za700za7za7jvm_compilerza7005983z00, "./Jvm/compiler.scm", 18 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2selectzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2select5415za7d2za7za7jvm_compilerza7005984za7, BGl__compilerzd2select5415zd2zzjvm_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2failzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2fail5449za7d2za7za7jvm_compilerza7005985za7, BGl__compilerzd2fail5449zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2appzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2app5419za7d2za7za7jvm_compilerza7005986za7, BGl__compilerzd2app5419zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2pragmazd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2pragma5425za7d2za7za7jvm_compilerza7005987za7, BGl__compilerzd2pragma5425zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2getfieldzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2getfield5427za7d2za7za7jvm_compilerza7005988za7, BGl__compilerzd2getfield5427zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2letzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2let5407za7d2za7za7jvm_compilerza7005989za7, BGl__compilerzd2let5407zd2zzjvm_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2atomzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2atom5403za7d2za7za7jvm_compilerza7005990za7, BGl__compilerzd2atom5403zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2newzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2new5431za7d2za7za7jvm_compilerza7005991za7, BGl__compilerzd2new5431zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2setqzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2setq5409za7d2za7za7jvm_compilerza7005992za7, BGl__compilerzd2setq5409zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2applyzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2apply5421za7d2za7za7jvm_compilerza7005993za7, BGl__compilerzd2apply5421zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2labelszd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2labels5417za7d2za7za7jvm_compilerza7005994za7, BGl__compilerzd2labels5417zd2zzjvm_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2vrefzd2envz00zzjvm_compilerz00, BgL_bgl__compilerza7d2vref5435za7d2za7za7jvm_compilerza7005995za7, BGl__compilerzd2vref5435zd2zzjvm_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2boxzd2setz12zd2envzc0zzjvm_compilerz00, BgL_bgl__compilerza7d2boxza7d2setza7125455za712za7za7jvm_compilerza7005996za7, BGl__compilerzd2boxzd2setz125455z12zzjvm_compilerz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzjvm_compilerz00(long BgL_checksumz00_2609, char * BgL_fromz00_2610)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzjvm_compilerz00))
{ 
BGl_requirezd2initializa7ationz75zzjvm_compilerz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzjvm_compilerz00(); 
BGl_cnstzd2initzd2zzjvm_compilerz00(); 
BGl_importedzd2moduleszd2initz00zzjvm_compilerz00(); 
BGl_toplevelzd2initzd2zzjvm_compilerz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzjvm_compilerz00()
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 8 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)0), "jvm_compiler"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzjvm_compilerz00()
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 8 */
{ /* ./Jvm/compiler.scm 8 */
obj_t BgL_cportz00_2596;
BgL_cportz00_2596 = 
open_input_string(BGl_string5910z00zzjvm_compilerz00); 
{ 
long BgL_iz00_2597;
BgL_iz00_2597 = ((long)80); 
BgL_loopz00_2598:
{ /* ./Jvm/compiler.scm 8 */
bool_t BgL_test5912z00_2599;
BgL_test5912z00_2599 = 
(BgL_iz00_2597==((long)-1)); 
if(BgL_test5912z00_2599)
{ /* ./Jvm/compiler.scm 8 */
return BUNSPEC;}  else 
{ /* ./Jvm/compiler.scm 8 */
{ /* ./Jvm/compiler.scm 8 */
obj_t BgL_arg5914z00_2600;
{ /* ./Jvm/compiler.scm 8 */
obj_t BgL_list5917z00_2601;
BgL_list5917z00_2601 = 
MAKE_PAIR(BgL_cportz00_2596, BNIL); 
BgL_arg5914z00_2600 = 
BGl_readz00zz__readerz00(BgL_list5917z00_2601); } 
{ /* ./Jvm/compiler.scm 8 */
int BgL_auxz00_2630;
BgL_auxz00_2630 = 
(int)(BgL_iz00_2597); 
CNST_TABLE_SET(BgL_auxz00_2630, BgL_arg5914z00_2600); } } 
{ /* ./Jvm/compiler.scm 8 */
int BgL_auxz00_2602;
{ /* ./Jvm/compiler.scm 8 */
long BgL_auxz00_2633;
BgL_auxz00_2633 = 
(BgL_iz00_2597-((long)1)); 
BgL_auxz00_2602 = 
(int)(BgL_auxz00_2633); } 
{ 
long BgL_iz00_2636;
BgL_iz00_2636 = 
(long)(BgL_auxz00_2602); 
BgL_iz00_2597 = BgL_iz00_2636; 
goto BgL_loopz00_2598;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzjvm_compilerz00()
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 8 */
BGl_za2labdoneza2z00zzjvm_compilerz00 = BNIL; 
BGl_za2lab2labelsza2z00zzjvm_compilerz00 = BNIL; 
return ( 
BGl_za2labels2savedza2z00zzjvm_compilerz00 = BNIL, BUNSPEC) ;} 
}



/* compiler-body */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2bodyzd2zzjvm_compilerz00(BgL_nodez00_bglt BgL_ez00_1, BgL_envz00_bglt BgL_envz00_2)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 45 */
BGl_za2labdoneza2z00zzjvm_compilerz00 = BNIL; 
BGl_za2lab2labelsza2z00zzjvm_compilerz00 = BNIL; 
BGl_za2labels2savedza2z00zzjvm_compilerz00 = BNIL; 
BGl__labelz00zzjvm_instrz00(BgL_envz00_2, 
CNST_TABLE_REF(((long)0))); 
return 
BGl_compilezd2tailzd2zzjvm_tailz00(BgL_ez00_1, BgL_envz00_2);} 
}



/* _compiler-body5401 */
obj_t BGl__compilerzd2body5401zd2zzjvm_compilerz00(obj_t BgL_envz00_2505, obj_t BgL_ez00_2506, obj_t BgL_envz00_2507)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 45 */
return 
BGl_compilerzd2bodyzd2zzjvm_compilerz00(
(BgL_nodez00_bglt)(BgL_ez00_2506), 
(BgL_envz00_bglt)(BgL_envz00_2507));} 
}



/* check_type */
obj_t BGl_check_typez00zzjvm_compilerz00(BgL_envz00_bglt BgL_envz00_5, obj_t BgL_ez00_6, obj_t BgL_tyz00_7)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 61 */
{ /* ./Jvm/compiler.scm 62 */
obj_t BgL_rtyz00_885;
{ /* ./Jvm/compiler.scm 62 */
BgL_typez00_bglt BgL_arg3265z00_893;
BgL_arg3265z00_893 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_6)); 
BgL_rtyz00_885 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg3265z00_893), BgL_envz00_5); } 
{ /* ./Jvm/compiler.scm 63 */
bool_t BgL_test3230z00_886;
BgL_test3230z00_886 = 
PAIRP(BgL_tyz00_7); 
if(BgL_test3230z00_886)
{ /* ./Jvm/compiler.scm 64 */
bool_t BgL_test3231z00_887;
{ /* ./Jvm/compiler.scm 64 */
obj_t BgL_auxz00_2650;
BgL_auxz00_2650 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_rtyz00_885, BgL_tyz00_7); 
BgL_test3231z00_887 = 
CBOOL(BgL_auxz00_2650); } 
if(BgL_test3231z00_887)
{ /* ./Jvm/compiler.scm 64 */
return BFALSE;}  else 
{ /* ./Jvm/compiler.scm 65 */
obj_t BgL_port3083z00_888;
BgL_port3083z00_888 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5883z00zzjvm_compilerz00, BgL_port3083z00_888); 
display_string(BGl_string5884z00zzjvm_compilerz00, BgL_port3083z00_888); 
{ /* ./Jvm/compiler.scm 65 */
obj_t BgL_auxz00_2657;
BgL_auxz00_2657 = 
BINT(((long)65)); 
display_fixnum(BgL_auxz00_2657, BgL_port3083z00_888); } 
display_string(BGl_string5885z00zzjvm_compilerz00, BgL_port3083z00_888); 
{ /* ./Jvm/compiler.scm 65 */
obj_t BgL_arg3237z00_889;
BgL_arg3237z00_889 = 
BGl_shapez00zztools_shapez00(BgL_ez00_6); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3237z00_889, BgL_port3083z00_888); } 
display_string(BGl_string5886z00zzjvm_compilerz00, BgL_port3083z00_888); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_rtyz00_885, BgL_port3083z00_888); 
display_string(BGl_string5887z00zzjvm_compilerz00, BgL_port3083z00_888); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_tyz00_7, BgL_port3083z00_888); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3083z00_888);} }  else 
{ /* ./Jvm/compiler.scm 66 */
bool_t BgL_test3247z00_890;
BgL_test3247z00_890 = 
(BgL_rtyz00_885==BgL_tyz00_7); 
if(BgL_test3247z00_890)
{ /* ./Jvm/compiler.scm 66 */
return BFALSE;}  else 
{ /* ./Jvm/compiler.scm 67 */
obj_t BgL_port3084z00_891;
BgL_port3084z00_891 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5883z00zzjvm_compilerz00, BgL_port3084z00_891); 
display_string(BGl_string5884z00zzjvm_compilerz00, BgL_port3084z00_891); 
{ /* ./Jvm/compiler.scm 67 */
obj_t BgL_auxz00_2673;
BgL_auxz00_2673 = 
BINT(((long)67)); 
display_fixnum(BgL_auxz00_2673, BgL_port3084z00_891); } 
display_string(BGl_string5885z00zzjvm_compilerz00, BgL_port3084z00_891); 
{ /* ./Jvm/compiler.scm 67 */
obj_t BgL_arg3253z00_892;
BgL_arg3253z00_892 = 
BGl_shapez00zztools_shapez00(BgL_ez00_6); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3253z00_892, BgL_port3084z00_891); } 
display_string(BGl_string5886z00zzjvm_compilerz00, BgL_port3084z00_891); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_rtyz00_885, BgL_port3084z00_891); 
display_string(BGl_string5888z00zzjvm_compilerz00, BgL_port3084z00_891); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_tyz00_7, BgL_port3084z00_891); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3084z00_891);} } } } } 
}



/* check_type_vector */
obj_t BGl_check_type_vectorz00zzjvm_compilerz00(BgL_envz00_bglt BgL_envz00_8, obj_t BgL_ez00_9, obj_t BgL_tyz00_10)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 69 */
{ /* ./Jvm/compiler.scm 70 */
obj_t BgL_rtyz00_894;
{ /* ./Jvm/compiler.scm 70 */
BgL_typez00_bglt BgL_arg3316z00_909;
BgL_arg3316z00_909 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_9)); 
BgL_rtyz00_894 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg3316z00_909), BgL_envz00_8); } 
{ /* ./Jvm/compiler.scm 71 */
bool_t BgL_test3268z00_895;
if(
PAIRP(BgL_rtyz00_894))
{ /* ./Jvm/compiler.scm 71 */
obj_t BgL_auxz00_2692;obj_t BgL_auxz00_2690;
BgL_auxz00_2692 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2690 = 
CAR(BgL_rtyz00_894); 
BgL_test3268z00_895 = 
(BgL_auxz00_2690==BgL_auxz00_2692); }  else 
{ /* ./Jvm/compiler.scm 71 */
BgL_test3268z00_895 = ((bool_t)0); } 
if(BgL_test3268z00_895)
{ /* ./Jvm/compiler.scm 71 */BFALSE; }  else 
{ /* ./Jvm/compiler.scm 72 */
obj_t BgL_port3085z00_896;
BgL_port3085z00_896 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5883z00zzjvm_compilerz00, BgL_port3085z00_896); 
display_string(BGl_string5884z00zzjvm_compilerz00, BgL_port3085z00_896); 
{ /* ./Jvm/compiler.scm 72 */
obj_t BgL_auxz00_2699;
BgL_auxz00_2699 = 
BINT(((long)72)); 
display_fixnum(BgL_auxz00_2699, BgL_port3085z00_896); } 
display_string(BGl_string5885z00zzjvm_compilerz00, BgL_port3085z00_896); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_ez00_9, BgL_port3085z00_896); 
display_string(BGl_string5886z00zzjvm_compilerz00, BgL_port3085z00_896); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_rtyz00_894, BgL_port3085z00_896); 
display_string(BGl_string5888z00zzjvm_compilerz00, BgL_port3085z00_896); 
{ /* ./Jvm/compiler.scm 72 */
obj_t BgL_arg3278z00_897;
{ /* ./Jvm/compiler.scm 72 */
obj_t BgL_arg3281z00_898;obj_t BgL_arg3282z00_899;
BgL_arg3281z00_898 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg3282z00_899 = 
MAKE_PAIR(BgL_tyz00_10, BNIL); 
BgL_arg3278z00_897 = 
MAKE_PAIR(BgL_arg3281z00_898, BgL_arg3282z00_899); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3278z00_897, BgL_port3085z00_896); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3085z00_896); } } 
{ /* ./Jvm/compiler.scm 73 */
obj_t BgL_etyz00_903;
{ /* ./Jvm/compiler.scm 73 */
obj_t BgL_auxz00_2712;
BgL_auxz00_2712 = 
CDR(BgL_rtyz00_894); 
BgL_etyz00_903 = 
CAR(BgL_auxz00_2712); } 
{ /* ./Jvm/compiler.scm 74 */
bool_t BgL_test3294z00_904;
BgL_test3294z00_904 = 
(BgL_etyz00_903==BgL_tyz00_10); 
if(BgL_test3294z00_904)
{ /* ./Jvm/compiler.scm 74 */
return BFALSE;}  else 
{ /* ./Jvm/compiler.scm 75 */
obj_t BgL_port3086z00_905;
BgL_port3086z00_905 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5883z00zzjvm_compilerz00, BgL_port3086z00_905); 
display_string(BGl_string5884z00zzjvm_compilerz00, BgL_port3086z00_905); 
{ /* ./Jvm/compiler.scm 75 */
obj_t BgL_auxz00_2720;
BgL_auxz00_2720 = 
BINT(((long)75)); 
display_fixnum(BgL_auxz00_2720, BgL_port3086z00_905); } 
display_string(BGl_string5885z00zzjvm_compilerz00, BgL_port3086z00_905); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_ez00_9, BgL_port3086z00_905); 
display_string(BGl_string5886z00zzjvm_compilerz00, BgL_port3086z00_905); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_rtyz00_894, BgL_port3086z00_905); 
display_string(BGl_string5888z00zzjvm_compilerz00, BgL_port3086z00_905); 
{ /* ./Jvm/compiler.scm 75 */
obj_t BgL_arg3304z00_906;
{ /* ./Jvm/compiler.scm 75 */
obj_t BgL_arg3307z00_907;obj_t BgL_arg3308z00_908;
BgL_arg3307z00_907 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg3308z00_908 = 
MAKE_PAIR(BgL_tyz00_10, BNIL); 
BgL_arg3304z00_906 = 
MAKE_PAIR(BgL_arg3307z00_907, BgL_arg3308z00_908); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3304z00_906, BgL_port3086z00_905); } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3086z00_905);} } } } } 
}



/* same-type */
obj_t BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_bglt BgL_envz00_11, obj_t BgL_downz00_12, obj_t BgL_upz00_13)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 77 */
{ /* ./Jvm/compiler.scm 78 */
obj_t BgL_tdownz00_910;obj_t BgL_tupz00_911;
BgL_tdownz00_910 = 
BGl_compilezd2typezd2zzjvm_envz00(BgL_downz00_12, BgL_envz00_11); 
BgL_tupz00_911 = 
BGl_compilezd2typezd2zzjvm_envz00(BgL_upz00_13, BgL_envz00_11); 
{ /* ./Jvm/compiler.scm 79 */
bool_t BgL_test3319z00_912;
BgL_test3319z00_912 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_tdownz00_910, BgL_tupz00_911); 
if(BgL_test3319z00_912)
{ /* ./Jvm/compiler.scm 79 */
return BFALSE;}  else 
{ /* ./Jvm/compiler.scm 79 */
CNST_TABLE_REF(((long)2)); 
{ /* ./Jvm/compiler.scm 81 */
obj_t BgL_arg3321z00_913;
BgL_arg3321z00_913 = 
BGl_getzd2typezd2zzjvm_compilerz00(BgL_upz00_13); 
return 
BGl_setzd2typezd2zzjvm_compilerz00(BgL_downz00_12, BgL_arg3321z00_913);} } } } } 
}



/* get-type */
obj_t BGl_getzd2typezd2zzjvm_compilerz00(obj_t BgL_ez00_17)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 88 */
{ /* ./Jvm/compiler.scm 89 */
bool_t BgL_test3352z00_923;
BgL_test3352z00_923 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_17, BGl_nodez00zzast_nodez00); 
if(BgL_test3352z00_923)
{ /* ./Jvm/compiler.scm 89 */
{ /* ./Jvm/compiler.scm 89 */
BgL_typez00_bglt BgL_auxz00_2742;
BgL_auxz00_2742 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_17)); 
return 
(obj_t)(BgL_auxz00_2742);} }  else 
{ /* ./Jvm/compiler.scm 90 */
bool_t BgL_test3354z00_924;
BgL_test3354z00_924 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_17, BGl_variablez00zzast_varz00); 
if(BgL_test3354z00_924)
{ /* ./Jvm/compiler.scm 90 */
{ /* ./Jvm/compiler.scm 90 */
BgL_variablez00_bglt BgL_obj1097z00_2028;
BgL_obj1097z00_2028 = 
(BgL_variablez00_bglt)(BgL_ez00_17); 
{ /* ./Jvm/compiler.scm 90 */
BgL_typez00_bglt BgL_auxz00_2749;
BgL_auxz00_2749 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2028))->BgL_typez00); 
return 
(obj_t)(BgL_auxz00_2749);} } }  else 
{ /* ./Jvm/compiler.scm 90 */
FAILURE(BGl_string5889z00zzjvm_compilerz00,BGl_string5890z00zzjvm_compilerz00,BgL_ez00_17);} } } } 
}



/* set-type */
obj_t BGl_setzd2typezd2zzjvm_compilerz00(obj_t BgL_ez00_18, obj_t BgL_tyz00_19)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 93 */
{ /* ./Jvm/compiler.scm 94 */
bool_t BgL_test3359z00_925;
BgL_test3359z00_925 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_18, BGl_nodez00zzast_nodez00); 
if(BgL_test3359z00_925)
{ /* ./Jvm/compiler.scm 94 */
return 
CNST_TABLE_REF(((long)3));}  else 
{ /* ./Jvm/compiler.scm 95 */
bool_t BgL_test3360z00_926;
BgL_test3360z00_926 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_18, BGl_variablez00zzast_varz00); 
if(BgL_test3360z00_926)
{ /* ./Jvm/compiler.scm 95 */
{ /* ./Jvm/compiler.scm 95 */
BgL_variablez00_bglt BgL_obj1099z00_2034;BgL_typez00_bglt BgL_val1098z00_2035;
BgL_obj1099z00_2034 = 
(BgL_variablez00_bglt)(BgL_ez00_18); 
BgL_val1098z00_2035 = 
(BgL_typez00_bglt)(BgL_tyz00_19); 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_2034))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_2035), BUNSPEC);} }  else 
{ /* ./Jvm/compiler.scm 95 */
FAILURE(BGl_string5891z00zzjvm_compilerz00,BGl_string5890z00zzjvm_compilerz00,BgL_ez00_18);} } } } 
}



/* compiler-atom */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2atomzd2zzjvm_compilerz00(obj_t BgL_ez00_20, BgL_envz00_bglt BgL_envz00_21)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 99 */
{ /* ./Jvm/compiler.scm 100 */
obj_t BgL_nz00_2041;
BgL_nz00_2041 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_20)); 
if(
CBOOL(BgL_nz00_2041))
{ /* ./Jvm/compiler.scm 100 */
BGl__linez00zzjvm_instrz00(BgL_envz00_21, BgL_nz00_2041); }  else 
{ /* ./Jvm/compiler.scm 100 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 103 */
bool_t BgL_test3366z00_928;
{ /* ./Jvm/compiler.scm 103 */
obj_t BgL_arg3557z00_997;
{ /* ./Jvm/compiler.scm 103 */
BgL_atomz00_bglt BgL_obj1604z00_2042;
BgL_obj1604z00_2042 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_arg3557z00_997 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2042))->BgL_valuez00); } 
if(
INTEGERP(BgL_arg3557z00_997))
{ /* ./Jvm/compiler.scm 103 */
BgL_test3366z00_928 = ((bool_t)1); }  else 
{ /* ./Jvm/compiler.scm 103 */
BgL_test3366z00_928 = 
REALP(BgL_arg3557z00_997); } } 
if(BgL_test3366z00_928)
{ /* ./Jvm/compiler.scm 103 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)5))); 
{ /* ./Jvm/compiler.scm 105 */
obj_t BgL_arg3369z00_929;obj_t BgL_arg3370z00_930;
{ /* ./Jvm/compiler.scm 105 */
BgL_typez00_bglt BgL_arg3373z00_931;
BgL_arg3373z00_931 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_20)); 
BgL_arg3369z00_929 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg3373z00_931), BgL_envz00_21); } 
{ /* ./Jvm/compiler.scm 105 */
BgL_atomz00_bglt BgL_obj1604z00_2048;
BgL_obj1604z00_2048 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_arg3370z00_930 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2048))->BgL_valuez00); } 
return 
BGl__pushz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3369z00_929, BgL_arg3370z00_930);} }  else 
{ /* ./Jvm/compiler.scm 106 */
bool_t BgL_test3377z00_932;
{ /* ./Jvm/compiler.scm 106 */
obj_t BgL_auxz00_2783;
{ /* ./Jvm/compiler.scm 106 */
BgL_atomz00_bglt BgL_obj1604z00_2049;
BgL_obj1604z00_2049 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2783 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2049))->BgL_valuez00); } 
BgL_test3377z00_932 = 
NULLP(BgL_auxz00_2783); } 
if(BgL_test3377z00_932)
{ /* ./Jvm/compiler.scm 106 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)6))); 
{ /* ./Jvm/compiler.scm 108 */
obj_t BgL_arg3380z00_933;
BgL_arg3380z00_933 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)7))); 
return 
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3380z00_933);} }  else 
{ /* ./Jvm/compiler.scm 109 */
bool_t BgL_test3383z00_934;
{ /* ./Jvm/compiler.scm 109 */
obj_t BgL_auxz00_2793;
{ /* ./Jvm/compiler.scm 109 */
BgL_atomz00_bglt BgL_obj1604z00_2051;
BgL_obj1604z00_2051 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2793 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2051))->BgL_valuez00); } 
BgL_test3383z00_934 = 
BOOLEANP(BgL_auxz00_2793); } 
if(BgL_test3383z00_934)
{ /* ./Jvm/compiler.scm 109 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)8))); 
{ /* ./Jvm/compiler.scm 111 */
obj_t BgL_arg3386z00_935;long BgL_arg3387z00_936;
BgL_arg3386z00_935 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Jvm/compiler.scm 111 */
bool_t BgL_testz00_2801;
{ /* ./Jvm/compiler.scm 111 */
BgL_atomz00_bglt BgL_obj1604z00_2053;
BgL_obj1604z00_2053 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
{ /* ./Jvm/compiler.scm 111 */
obj_t BgL_auxz00_2803;
BgL_auxz00_2803 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2053))->BgL_valuez00); 
BgL_testz00_2801 = 
CBOOL(BgL_auxz00_2803); } } 
if(BgL_testz00_2801)
{ /* ./Jvm/compiler.scm 111 */
BgL_arg3387z00_936 = ((long)1); }  else 
{ /* ./Jvm/compiler.scm 111 */
BgL_arg3387z00_936 = ((long)0); } } 
return 
BGl__pushz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3386z00_935, 
BINT(BgL_arg3387z00_936));} }  else 
{ /* ./Jvm/compiler.scm 112 */
bool_t BgL_test3391z00_938;
{ /* ./Jvm/compiler.scm 112 */
obj_t BgL_auxz00_2808;
{ /* ./Jvm/compiler.scm 112 */
BgL_atomz00_bglt BgL_obj1604z00_2054;
BgL_obj1604z00_2054 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2808 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2054))->BgL_valuez00); } 
BgL_test3391z00_938 = 
CHARP(BgL_auxz00_2808); } 
if(BgL_test3391z00_938)
{ /* ./Jvm/compiler.scm 112 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)9))); 
{ /* ./Jvm/compiler.scm 114 */
obj_t BgL_arg3394z00_939;long BgL_arg3395z00_940;
BgL_arg3394z00_939 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Jvm/compiler.scm 114 */
unsigned char BgL_auxz00_2816;
{ /* ./Jvm/compiler.scm 114 */
obj_t BgL_auxz00_2817;
{ /* ./Jvm/compiler.scm 114 */
BgL_atomz00_bglt BgL_obj1604z00_2056;
BgL_obj1604z00_2056 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2817 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2056))->BgL_valuez00); } 
BgL_auxz00_2816 = 
(unsigned char)CCHAR(BgL_auxz00_2817); } 
BgL_arg3395z00_940 = 
(BgL_auxz00_2816); } 
return 
BGl__pushz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3394z00_939, 
BINT(BgL_arg3395z00_940));} }  else 
{ /* ./Jvm/compiler.scm 115 */
bool_t BgL_test3401z00_942;
{ /* ./Jvm/compiler.scm 115 */
obj_t BgL_auxz00_2824;
{ /* ./Jvm/compiler.scm 115 */
BgL_atomz00_bglt BgL_obj1604z00_2058;
BgL_obj1604z00_2058 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2824 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2058))->BgL_valuez00); } 
BgL_test3401z00_942 = 
STRINGP(BgL_auxz00_2824); } 
if(BgL_test3401z00_942)
{ /* ./Jvm/compiler.scm 115 */
BGl_check_type_vectorz00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)10))); 
{ /* ./Jvm/compiler.scm 118 */
obj_t BgL_arg3404z00_943;
{ /* ./Jvm/compiler.scm 118 */
BgL_atomz00_bglt BgL_obj1604z00_2060;
BgL_obj1604z00_2060 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_arg3404z00_943 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2060))->BgL_valuez00); } 
return 
BGl_createzd2stringzd2zzjvm_instrz00(
(obj_t)(BgL_envz00_21), BgL_arg3404z00_943);} }  else 
{ /* ./Jvm/compiler.scm 119 */
bool_t BgL_test3407z00_944;
{ /* ./Jvm/compiler.scm 119 */
obj_t BgL_arg3537z00_992;
{ /* ./Jvm/compiler.scm 119 */
BgL_atomz00_bglt BgL_obj1604z00_2061;
BgL_obj1604z00_2061 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_arg3537z00_992 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2061))->BgL_valuez00); } 
BgL_test3407z00_944 = 
EOF_OBJECTP(BgL_arg3537z00_992); } 
if(BgL_test3407z00_944)
{ /* ./Jvm/compiler.scm 119 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)11))); 
{ /* ./Jvm/compiler.scm 121 */
obj_t BgL_arg3410z00_945;
BgL_arg3410z00_945 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)12))); 
return 
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3410z00_945);} }  else 
{ /* ./Jvm/compiler.scm 122 */
bool_t BgL_test3413z00_946;
{ /* ./Jvm/compiler.scm 122 */
obj_t BgL_auxz00_2844;
{ /* ./Jvm/compiler.scm 122 */
BgL_atomz00_bglt BgL_obj1604z00_2063;
BgL_obj1604z00_2063 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2844 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2063))->BgL_valuez00); } 
BgL_test3413z00_946 = 
(BgL_auxz00_2844==BCNST(258)); } 
if(BgL_test3413z00_946)
{ /* ./Jvm/compiler.scm 122 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)13))); 
{ /* ./Jvm/compiler.scm 124 */
obj_t BgL_arg3416z00_947;
BgL_arg3416z00_947 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)14))); 
return 
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3416z00_947);} }  else 
{ /* ./Jvm/compiler.scm 125 */
bool_t BgL_test3419z00_948;
{ /* ./Jvm/compiler.scm 125 */
obj_t BgL_auxz00_2854;
{ /* ./Jvm/compiler.scm 125 */
BgL_atomz00_bglt BgL_obj1604z00_2064;
BgL_obj1604z00_2064 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2854 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2064))->BgL_valuez00); } 
BgL_test3419z00_948 = 
(BgL_auxz00_2854==BCNST(259)); } 
if(BgL_test3419z00_948)
{ /* ./Jvm/compiler.scm 125 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)15))); 
{ /* ./Jvm/compiler.scm 127 */
obj_t BgL_arg3422z00_949;
BgL_arg3422z00_949 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)16))); 
return 
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3422z00_949);} }  else 
{ /* ./Jvm/compiler.scm 128 */
bool_t BgL_test3425z00_950;
{ /* ./Jvm/compiler.scm 128 */
obj_t BgL_auxz00_2864;
{ /* ./Jvm/compiler.scm 128 */
BgL_atomz00_bglt BgL_obj1604z00_2065;
BgL_obj1604z00_2065 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2864 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2065))->BgL_valuez00); } 
BgL_test3425z00_950 = 
(BgL_auxz00_2864==BCNST(262)); } 
if(BgL_test3425z00_950)
{ /* ./Jvm/compiler.scm 128 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)17))); 
{ /* ./Jvm/compiler.scm 130 */
obj_t BgL_arg3428z00_951;
BgL_arg3428z00_951 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)18))); 
return 
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3428z00_951);} }  else 
{ /* ./Jvm/compiler.scm 131 */
bool_t BgL_test3431z00_952;
{ /* ./Jvm/compiler.scm 131 */
obj_t BgL_auxz00_2874;
{ /* ./Jvm/compiler.scm 131 */
BgL_atomz00_bglt BgL_obj1604z00_2066;
BgL_obj1604z00_2066 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2874 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2066))->BgL_valuez00); } 
BgL_test3431z00_952 = 
(BgL_auxz00_2874==BUNSPEC); } 
if(BgL_test3431z00_952)
{ /* ./Jvm/compiler.scm 131 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)19))); 
{ /* ./Jvm/compiler.scm 133 */
obj_t BgL_arg3434z00_953;
BgL_arg3434z00_953 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)20))); 
return 
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3434z00_953);} }  else 
{ /* ./Jvm/compiler.scm 134 */
bool_t BgL_test3437z00_954;
{ /* ./Jvm/compiler.scm 134 */
obj_t BgL_auxz00_2884;
{ /* ./Jvm/compiler.scm 134 */
BgL_atomz00_bglt BgL_obj1604z00_2067;
BgL_obj1604z00_2067 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2884 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2067))->BgL_valuez00); } 
BgL_test3437z00_954 = 
UCS2P(BgL_auxz00_2884); } 
if(BgL_test3437z00_954)
{ /* ./Jvm/compiler.scm 134 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)21))); 
{ /* ./Jvm/compiler.scm 137 */
obj_t BgL_arg3440z00_955;
BgL_arg3440z00_955 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)22))); 
BGl__newz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3440z00_955); } 
BGl__dupz00zzjvm_instrz00(BgL_envz00_21); 
{ /* ./Jvm/compiler.scm 139 */
obj_t BgL_arg3446z00_956;int BgL_arg3447z00_957;
BgL_arg3446z00_956 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Jvm/compiler.scm 139 */
obj_t BgL_arg3450z00_958;
{ /* ./Jvm/compiler.scm 139 */
BgL_atomz00_bglt BgL_obj1604z00_2069;
BgL_obj1604z00_2069 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_arg3450z00_958 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2069))->BgL_valuez00); } 
{ /* ./Jvm/compiler.scm 139 */
ucs2_t BgL_ucs2z00_2070;
BgL_ucs2z00_2070 = 
CUCS2(BgL_arg3450z00_958); 
{ /* ./Jvm/compiler.scm 139 */
obj_t BgL_auxz00_2899;
BgL_auxz00_2899 = 
BUCS2(BgL_ucs2z00_2070); 
BgL_arg3447z00_957 = 
CUCS2(BgL_auxz00_2899); } } } 
BGl__pushz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3446z00_956, 
BINT(BgL_arg3447z00_957)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 141 */
obj_t BgL_arg3454z00_959;obj_t BgL_arg3455z00_960;obj_t BgL_arg3456z00_961;
BgL_arg3454z00_959 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)23))); 
BgL_arg3455z00_960 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3456z00_961 = 
CNST_TABLE_REF(((long)25)); 
return 
BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3454z00_959, BgL_arg3455z00_960, BgL_arg3456z00_961);}  else 
{ /* ./Jvm/compiler.scm 142 */
obj_t BgL_arg3460z00_962;
BgL_arg3460z00_962 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)26))); 
return 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3460z00_962);} }  else 
{ /* ./Jvm/compiler.scm 143 */
bool_t BgL_test3463z00_963;
{ /* ./Jvm/compiler.scm 143 */
obj_t BgL_auxz00_2914;
{ /* ./Jvm/compiler.scm 143 */
BgL_atomz00_bglt BgL_obj1604z00_2071;
BgL_obj1604z00_2071 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2914 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2071))->BgL_valuez00); } 
BgL_test3463z00_963 = 
ELONGP(BgL_auxz00_2914); } 
if(BgL_test3463z00_963)
{ /* ./Jvm/compiler.scm 143 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)27))); 
{ /* ./Jvm/compiler.scm 146 */
obj_t BgL_arg3466z00_964;obj_t BgL_arg3467z00_965;
BgL_arg3466z00_964 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Jvm/compiler.scm 146 */
obj_t BgL_arg3470z00_966;
{ /* ./Jvm/compiler.scm 146 */
BgL_atomz00_bglt BgL_obj1604z00_2073;
BgL_obj1604z00_2073 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_arg3470z00_966 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2073))->BgL_valuez00); } 
BgL_arg3467z00_965 = 
BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_arg3470z00_966, BNIL); } 
BGl__pushz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3466z00_964, BgL_arg3467z00_965); } 
{ /* ./Jvm/compiler.scm 147 */
obj_t BgL_arg3475z00_968;obj_t BgL_arg3476z00_969;obj_t BgL_arg3477z00_970;
BgL_arg3475z00_968 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)29))); 
BgL_arg3476z00_969 = 
CNST_TABLE_REF(((long)30)); 
BgL_arg3477z00_970 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3475z00_968, BgL_arg3476z00_969, BgL_arg3477z00_970);} }  else 
{ /* ./Jvm/compiler.scm 148 */
bool_t BgL_test3480z00_971;
{ /* ./Jvm/compiler.scm 148 */
obj_t BgL_auxz00_2931;
{ /* ./Jvm/compiler.scm 148 */
BgL_atomz00_bglt BgL_obj1604z00_2074;
BgL_obj1604z00_2074 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_auxz00_2931 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2074))->BgL_valuez00); } 
BgL_test3480z00_971 = 
LLONGP(BgL_auxz00_2931); } 
if(BgL_test3480z00_971)
{ /* ./Jvm/compiler.scm 148 */
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_21, BgL_ez00_20, 
CNST_TABLE_REF(((long)32))); 
{ /* ./Jvm/compiler.scm 151 */
obj_t BgL_arg3483z00_972;obj_t BgL_arg3484z00_973;
BgL_arg3483z00_972 = 
CNST_TABLE_REF(((long)28)); 
{ /* ./Jvm/compiler.scm 151 */
obj_t BgL_arg3487z00_974;
{ /* ./Jvm/compiler.scm 151 */
BgL_atomz00_bglt BgL_obj1604z00_2076;
BgL_obj1604z00_2076 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_arg3487z00_974 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2076))->BgL_valuez00); } 
BgL_arg3484z00_973 = 
BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_arg3487z00_974, BNIL); } 
BGl__pushz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3483z00_972, BgL_arg3484z00_973); } 
{ /* ./Jvm/compiler.scm 152 */
obj_t BgL_arg3492z00_976;obj_t BgL_arg3493z00_977;obj_t BgL_arg3495z00_978;
BgL_arg3492z00_976 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_21, 
CNST_TABLE_REF(((long)33))); 
BgL_arg3493z00_977 = 
CNST_TABLE_REF(((long)30)); 
BgL_arg3495z00_978 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_21, BgL_arg3492z00_976, BgL_arg3493z00_977, BgL_arg3495z00_978);} }  else 
{ /* ./Jvm/compiler.scm 148 */
{ /* ./Jvm/compiler.scm 153 */
obj_t BgL_arg3501z00_981;
{ /* ./Jvm/compiler.scm 153 */
BgL_atomz00_bglt BgL_obj1604z00_2077;
BgL_obj1604z00_2077 = 
(BgL_atomz00_bglt)(BgL_ez00_20); 
BgL_arg3501z00_981 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_2077))->BgL_valuez00); } 
FAILURE(BGl_string5892z00zzjvm_compilerz00,BGl_string5893z00zzjvm_compilerz00,BgL_arg3501z00_981);} } } } } } } } } } } } } } } } 
}



/* _compiler-atom5403 */
obj_t BGl__compilerzd2atom5403zd2zzjvm_compilerz00(obj_t BgL_envz00_2508, obj_t BgL_ez00_2509, obj_t BgL_envz00_2510)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 99 */
return 
BGl_compilerzd2atomzd2zzjvm_compilerz00(BgL_ez00_2509, 
(BgL_envz00_bglt)(BgL_envz00_2510));} 
}



/* compiler-var */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2varzd2zzjvm_compilerz00(BgL_varz00_bglt BgL_ez00_22, BgL_envz00_bglt BgL_envz00_23)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 156 */
{ /* ./Jvm/compiler.scm 157 */
obj_t BgL_nz00_2083;
BgL_nz00_2083 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_22)); 
if(
CBOOL(BgL_nz00_2083))
{ /* ./Jvm/compiler.scm 157 */
BGl__linez00zzjvm_instrz00(BgL_envz00_23, BgL_nz00_2083); }  else 
{ /* ./Jvm/compiler.scm 157 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 158 */
BgL_variablez00_bglt BgL_varz00_998;
BgL_varz00_998 = 
(((BgL_varz00_bglt)CREF(BgL_ez00_22))->BgL_variablez00); 
{ /* ./Jvm/compiler.scm 160 */
bool_t BgL_test3561z00_999;
{ /* ./Jvm/compiler.scm 160 */
obj_t BgL_obj1240z00_2085;
BgL_obj1240z00_2085 = 
(obj_t)(BgL_varz00_998); 
BgL_test3561z00_999 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2085, BGl_globalz00zzast_varz00); } 
if(BgL_test3561z00_999)
{ /* ./Jvm/compiler.scm 160 */
{ /* ./Jvm/compiler.scm 161 */
BgL_valuez00_bglt BgL_valuez00_1000;
BgL_valuez00_1000 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_998))->BgL_valuez00); 
{ /* ./Jvm/compiler.scm 162 */
bool_t BgL_test3562z00_1001;
{ /* ./Jvm/compiler.scm 162 */
obj_t BgL_obj1425z00_2087;
BgL_obj1425z00_2087 = 
(obj_t)(BgL_valuez00_1000); 
BgL_test3562z00_1001 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1425z00_2087, BGl_sfunz00zzast_varz00); } 
if(BgL_test3562z00_1001)
{ /* ./Jvm/compiler.scm 163 */
long BgL_arg3564z00_1002;
{ /* ./Jvm/compiler.scm 163 */
BgL_funz00_bglt BgL_obj1301z00_2088;
BgL_obj1301z00_2088 = 
(BgL_funz00_bglt)(BgL_valuez00_1000); 
BgL_arg3564z00_1002 = 
(((BgL_funz00_bglt)CREF(BgL_obj1301z00_2088))->BgL_arityz00); } 
return 
BGl_compilezd2procedurezd2entryz00zzjvm_compilerz00(
(BgL_globalz00_bglt)(BgL_varz00_998), BgL_arg3564z00_1002, BgL_envz00_23);}  else 
{ /* ./Jvm/compiler.scm 162 */
return 
BGl__getstatic2z00zzjvm_instrz00(BgL_envz00_23, 
(BgL_globalz00_bglt)(BgL_varz00_998));} } } }  else 
{ /* ./Jvm/compiler.scm 160 */
return 
BGl__loadz00zzjvm_instrz00(BgL_envz00_23, 
(BgL_localz00_bglt)(BgL_varz00_998));} } } } 
}



/* _compiler-var5405 */
obj_t BGl__compilerzd2var5405zd2zzjvm_compilerz00(obj_t BgL_envz00_2511, obj_t BgL_ez00_2512, obj_t BgL_envz00_2513)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 156 */
return 
BGl_compilerzd2varzd2zzjvm_compilerz00(
(BgL_varz00_bglt)(BgL_ez00_2512), 
(BgL_envz00_bglt)(BgL_envz00_2513));} 
}



/* compile-procedure-entry */
obj_t BGl_compilezd2procedurezd2entryz00zzjvm_compilerz00(BgL_globalz00_bglt BgL_varz00_24, long BgL_arityz00_25, BgL_envz00_bglt BgL_envz00_26)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 167 */
{ /* ./Jvm/compiler.scm 168 */
long BgL_xz00_1003;
if(
(BgL_arityz00_25>=((long)0)))
{ /* ./Jvm/compiler.scm 168 */
BgL_xz00_1003 = 
(BgL_arityz00_25-((long)1)); }  else 
{ /* ./Jvm/compiler.scm 168 */
BgL_xz00_1003 = 
(BgL_arityz00_25+((long)1)); } 
{ /* ./Jvm/compiler.scm 169 */
obj_t BgL_indexz00_1004;
{ /* ./Jvm/compiler.scm 169 */
obj_t BgL_arg3575z00_1005;
BgL_arg3575z00_1005 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(BgL_envz00_26, BgL_varz00_24); 
BgL_indexz00_1004 = 
BGl_envzd2newzd2procedurez00zzjvm_envz00(BgL_envz00_26, 
BINT(BgL_xz00_1003), BgL_arg3575z00_1005); } 
return 
BGl__pushz00zzjvm_instrz00(BgL_envz00_26, 
CNST_TABLE_REF(((long)9)), BgL_indexz00_1004);} } } 
}



/* compiler-let */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2letzd2zzjvm_compilerz00(BgL_letzd2varzd2_bglt BgL_ez00_27, BgL_envz00_bglt BgL_envz00_28, obj_t BgL_compilerz00_29)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 173 */
{ /* ./Jvm/compiler.scm 174 */
obj_t BgL_nz00_2091;
BgL_nz00_2091 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_27)); 
if(
CBOOL(BgL_nz00_2091))
{ /* ./Jvm/compiler.scm 174 */
BGl__linez00zzjvm_instrz00(BgL_envz00_28, BgL_nz00_2091); }  else 
{ /* ./Jvm/compiler.scm 174 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 176 */
obj_t BgL_debugzf3zf3_1008;
BgL_debugzf3zf3_1008 = 
BGl_debugzd2forzd2declarezd2varzf3z21zzjvm_externz00(BgL_envz00_28); 
{ /* ./Jvm/compiler.scm 177 */
obj_t BgL_elabz00_1009;
if(
CBOOL(BgL_debugzf3zf3_1008))
{ /* ./Jvm/compiler.scm 177 */
BgL_elabz00_1009 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5894z00zzjvm_compilerz00, BEOA); }  else 
{ /* ./Jvm/compiler.scm 177 */
BgL_elabz00_1009 = 
CNST_TABLE_REF(((long)34)); } 
{ 
obj_t BgL_l3092z00_1010;
{ /* ./Jvm/compiler.scm 178 */
obj_t BgL_arg3585z00_1012;
BgL_arg3585z00_1012 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_27))->BgL_bindingsz00); 
BgL_l3092z00_1010 = BgL_arg3585z00_1012; 
BgL_forzd2each3093zd2_1011:
{ /* ./Jvm/compiler.scm 178 */
bool_t BgL_test3588z00_1013;
BgL_test3588z00_1013 = 
PAIRP(BgL_l3092z00_1010); 
if(BgL_test3588z00_1013)
{ /* ./Jvm/compiler.scm 178 */
{ /* ./Jvm/compiler.scm 179 */
obj_t BgL_bz00_1014;
BgL_bz00_1014 = 
CAR(BgL_l3092z00_1010); 
{ /* ./Jvm/compiler.scm 179 */
obj_t BgL_varz00_1015;obj_t BgL_valz00_1016;
BgL_varz00_1015 = 
CAR(BgL_bz00_1014); 
BgL_valz00_1016 = 
CDR(BgL_bz00_1014); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_valz00_1016), BgL_envz00_28); 
BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_28, BgL_valz00_1016, BgL_varz00_1015); 
BGl_envzd2declarezd2localz00zzjvm_envz00(BgL_envz00_28, 
(BgL_localz00_bglt)(BgL_varz00_1015)); 
BGl_debugzd2declarezd2varz00zzjvm_externz00(BgL_envz00_28, 
(BgL_localz00_bglt)(BgL_varz00_1015), BgL_elabz00_1009); 
BGl__storez00zzjvm_instrz00(BgL_envz00_28, 
(BgL_localz00_bglt)(BgL_varz00_1015)); } } 
{ /* ./Jvm/compiler.scm 178 */
obj_t BgL_arg3598z00_1017;
BgL_arg3598z00_1017 = 
CDR(BgL_l3092z00_1010); 
{ 
obj_t BgL_l3092z00_3015;
BgL_l3092z00_3015 = BgL_arg3598z00_1017; 
BgL_l3092z00_1010 = BgL_l3092z00_3015; 
goto BgL_forzd2each3093zd2_1011;} } }  else 
{ /* ./Jvm/compiler.scm 178 */((bool_t)1); } } } } 
{ /* ./Jvm/compiler.scm 186 */
BgL_nodez00_bglt BgL_arg3604z00_1018;
BgL_arg3604z00_1018 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_27))->BgL_bodyz00); 
PROCEDURE_ENTRY(BgL_compilerz00_29)(BgL_compilerz00_29, 
(obj_t)(BgL_arg3604z00_1018), 
(obj_t)(BgL_envz00_28), BEOA); } 
if(
CBOOL(BgL_debugzf3zf3_1008))
{ /* ./Jvm/compiler.scm 187 */
BGl__labelz00zzjvm_instrz00(BgL_envz00_28, BgL_elabz00_1009); }  else 
{ /* ./Jvm/compiler.scm 187 */BFALSE; } 
{ /* ./Jvm/compiler.scm 188 */
BgL_nodez00_bglt BgL_arg3609z00_1019;
BgL_arg3609z00_1019 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_27))->BgL_bodyz00); 
BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_28, 
(obj_t)(BgL_arg3609z00_1019), 
(obj_t)(BgL_ez00_27)); } 
{ 
obj_t BgL_l3094z00_1020;
{ /* ./Jvm/compiler.scm 189 */
obj_t BgL_arg3613z00_1022;
BgL_arg3613z00_1022 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_27))->BgL_bindingsz00); 
{ /* ./Jvm/compiler.scm 189 */
bool_t BgL_auxz00_3029;
BgL_l3094z00_1020 = BgL_arg3613z00_1022; 
BgL_forzd2each3095zd2_1021:
{ /* ./Jvm/compiler.scm 189 */
bool_t BgL_test3616z00_1023;
BgL_test3616z00_1023 = 
PAIRP(BgL_l3094z00_1020); 
if(BgL_test3616z00_1023)
{ /* ./Jvm/compiler.scm 189 */
{ /* ./Jvm/compiler.scm 190 */
obj_t BgL_bz00_1024;
BgL_bz00_1024 = 
CAR(BgL_l3094z00_1020); 
{ /* ./Jvm/compiler.scm 190 */
obj_t BgL_arg3618z00_1025;
{ /* ./Jvm/compiler.scm 190 */
obj_t BgL_arg3621z00_1026;
BgL_arg3621z00_1026 = 
CAR(BgL_bz00_1024); 
BgL_arg3618z00_1025 = 
BGl_compilezd2typezd2zzjvm_envz00(BgL_arg3621z00_1026, BgL_envz00_28); } 
BGl_envzd2freezd2localz00zzjvm_envz00(BgL_envz00_28, BgL_arg3618z00_1025); } } 
{ /* ./Jvm/compiler.scm 189 */
obj_t BgL_arg3626z00_1027;
BgL_arg3626z00_1027 = 
CDR(BgL_l3094z00_1020); 
{ 
obj_t BgL_l3094z00_3037;
BgL_l3094z00_3037 = BgL_arg3626z00_1027; 
BgL_l3094z00_1020 = BgL_l3094z00_3037; 
goto BgL_forzd2each3095zd2_1021;} } }  else 
{ /* ./Jvm/compiler.scm 189 */
BgL_auxz00_3029 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_3029);} } } } } } 
}



/* _compiler-let5407 */
obj_t BGl__compilerzd2let5407zd2zzjvm_compilerz00(obj_t BgL_envz00_2514, obj_t BgL_ez00_2515, obj_t BgL_envz00_2516, obj_t BgL_compilerz00_2517)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 173 */
return 
BGl_compilerzd2letzd2zzjvm_compilerz00(
(BgL_letzd2varzd2_bglt)(BgL_ez00_2515), 
(BgL_envz00_bglt)(BgL_envz00_2516), BgL_compilerz00_2517);} 
}



/* compiler-setq */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2setqzd2zzjvm_compilerz00(BgL_setqz00_bglt BgL_ez00_30, BgL_envz00_bglt BgL_envz00_31)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 194 */
{ /* ./Jvm/compiler.scm 195 */
obj_t BgL_nz00_2107;
BgL_nz00_2107 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_30)); 
if(
CBOOL(BgL_nz00_2107))
{ /* ./Jvm/compiler.scm 195 */
BGl__linez00zzjvm_instrz00(BgL_envz00_31, BgL_nz00_2107); }  else 
{ /* ./Jvm/compiler.scm 195 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 197 */
BgL_nodez00_bglt BgL_arg3634z00_1029;
BgL_arg3634z00_1029 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_30))->BgL_valuez00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg3634z00_1029, BgL_envz00_31); } 
{ /* ./Jvm/compiler.scm 198 */
BgL_nodez00_bglt BgL_arg3638z00_1030;BgL_varz00_bglt BgL_arg3639z00_1031;
BgL_arg3638z00_1030 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_30))->BgL_valuez00); 
BgL_arg3639z00_1031 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_30))->BgL_varz00); 
BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_31, 
(obj_t)(BgL_arg3638z00_1030), 
(obj_t)(BgL_arg3639z00_1031)); } 
{ /* ./Jvm/compiler.scm 199 */
BgL_variablez00_bglt BgL_variablez00_1032;
{ /* ./Jvm/compiler.scm 199 */
BgL_varz00_bglt BgL_arg3656z00_1036;
BgL_arg3656z00_1036 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_30))->BgL_varz00); 
BgL_variablez00_1032 = 
(((BgL_varz00_bglt)CREF(BgL_arg3656z00_1036))->BgL_variablez00); } 
{ /* ./Jvm/compiler.scm 200 */
bool_t BgL_test3643z00_1033;
{ /* ./Jvm/compiler.scm 200 */
obj_t BgL_obj1240z00_2113;
BgL_obj1240z00_2113 = 
(obj_t)(BgL_variablez00_1032); 
BgL_test3643z00_1033 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2113, BGl_globalz00zzast_varz00); } 
if(BgL_test3643z00_1033)
{ /* ./Jvm/compiler.scm 200 */
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 202 */
obj_t BgL_arg3645z00_1034;
BgL_arg3645z00_1034 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_variablez00_1032), BgL_envz00_31); 
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_31, BgL_arg3645z00_1034); }  else 
{ /* ./Jvm/compiler.scm 202 */BFALSE; } 
{ /* ./Jvm/compiler.scm 203 */
obj_t BgL_arg3650z00_1035;
BgL_arg3650z00_1035 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(BgL_envz00_31, 
(BgL_globalz00_bglt)(BgL_variablez00_1032)); 
return 
BGl__putstaticz00zzjvm_instrz00(BgL_envz00_31, BgL_arg3650z00_1035);} }  else 
{ /* ./Jvm/compiler.scm 200 */
return 
BGl__storez00zzjvm_instrz00(BgL_envz00_31, 
(BgL_localz00_bglt)(BgL_variablez00_1032));} } } } 
}



/* _compiler-setq5409 */
obj_t BGl__compilerzd2setq5409zd2zzjvm_compilerz00(obj_t BgL_envz00_2518, obj_t BgL_ez00_2519, obj_t BgL_envz00_2520)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 194 */
return 
BGl_compilerzd2setqzd2zzjvm_compilerz00(
(BgL_setqz00_bglt)(BgL_ez00_2519), 
(BgL_envz00_bglt)(BgL_envz00_2520));} 
}



/* compiler-sequence */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2sequencezd2zzjvm_compilerz00(BgL_sequencez00_bglt BgL_ez00_32, BgL_envz00_bglt BgL_envz00_33, obj_t BgL_compilerz00_34)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 207 */
{ /* ./Jvm/compiler.scm 208 */
obj_t BgL_nz00_2116;
BgL_nz00_2116 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_32)); 
if(
CBOOL(BgL_nz00_2116))
{ /* ./Jvm/compiler.scm 208 */
BGl__linez00zzjvm_instrz00(BgL_envz00_33, BgL_nz00_2116); }  else 
{ /* ./Jvm/compiler.scm 208 */
CNST_TABLE_REF(((long)4)); } } 
{ 
obj_t BgL_lz00_1042;obj_t BgL_nextz00_1043;
{ /* ./Jvm/compiler.scm 217 */
obj_t BgL_arg3661z00_1039;obj_t BgL_arg3662z00_1040;
BgL_arg3661z00_1039 = 
(((BgL_sequencez00_bglt)CREF(BgL_ez00_32))->BgL_nodesz00); 
{ /* ./Jvm/compiler.scm 217 */
obj_t BgL_auxz00_3080;
BgL_auxz00_3080 = 
(((BgL_sequencez00_bglt)CREF(BgL_ez00_32))->BgL_nodesz00); 
BgL_arg3662z00_1040 = 
CDR(BgL_auxz00_3080); } 
BgL_lz00_1042 = BgL_arg3661z00_1039; 
BgL_nextz00_1043 = BgL_arg3662z00_1040; 
BgL_zc3anonymousza33669ze3z83_1044:
{ /* ./Jvm/compiler.scm 211 */
bool_t BgL_test3670z00_1045;
BgL_test3670z00_1045 = 
NULLP(BgL_nextz00_1043); 
if(BgL_test3670z00_1045)
{ /* ./Jvm/compiler.scm 211 */
{ /* ./Jvm/compiler.scm 213 */
obj_t BgL_arg3672z00_1046;
BgL_arg3672z00_1046 = 
CAR(BgL_lz00_1042); 
PROCEDURE_ENTRY(BgL_compilerz00_34)(BgL_compilerz00_34, BgL_arg3672z00_1046, 
(obj_t)(BgL_envz00_33), BEOA); } 
{ /* ./Jvm/compiler.scm 214 */
obj_t BgL_arg3676z00_1047;
BgL_arg3676z00_1047 = 
CAR(BgL_lz00_1042); 
return 
BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_33, BgL_arg3676z00_1047, 
(obj_t)(BgL_ez00_32));} }  else 
{ /* ./Jvm/compiler.scm 211 */
{ /* ./Jvm/compiler.scm 215 */
obj_t BgL_arg3681z00_1048;
BgL_arg3681z00_1048 = 
CAR(BgL_lz00_1042); 
BGl_compilezd2effectzd2zzjvm_effectz00(
(BgL_nodez00_bglt)(BgL_arg3681z00_1048), BgL_envz00_33); } 
{ /* ./Jvm/compiler.scm 216 */
obj_t BgL_arg3685z00_1049;
BgL_arg3685z00_1049 = 
CDR(BgL_nextz00_1043); 
{ 
obj_t BgL_nextz00_3097;obj_t BgL_lz00_3096;
BgL_lz00_3096 = BgL_nextz00_1043; 
BgL_nextz00_3097 = BgL_arg3685z00_1049; 
BgL_nextz00_1043 = BgL_nextz00_3097; 
BgL_lz00_1042 = BgL_lz00_3096; 
goto BgL_zc3anonymousza33669ze3z83_1044;} } } } } } } 
}



/* _compiler-sequence5411 */
obj_t BGl__compilerzd2sequence5411zd2zzjvm_compilerz00(obj_t BgL_envz00_2521, obj_t BgL_ez00_2522, obj_t BgL_envz00_2523, obj_t BgL_compilerz00_2524)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 207 */
return 
BGl_compilerzd2sequencezd2zzjvm_compilerz00(
(BgL_sequencez00_bglt)(BgL_ez00_2522), 
(BgL_envz00_bglt)(BgL_envz00_2523), BgL_compilerz00_2524);} 
}



/* compiler-if */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2ifzd2zzjvm_compilerz00(BgL_conditionalz00_bglt BgL_ez00_35, BgL_envz00_bglt BgL_envz00_36, obj_t BgL_compilerz00_37)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 220 */
{ /* ./Jvm/compiler.scm 221 */
obj_t BgL_nz00_2127;
BgL_nz00_2127 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_35)); 
if(
CBOOL(BgL_nz00_2127))
{ /* ./Jvm/compiler.scm 221 */
BGl__linez00zzjvm_instrz00(BgL_envz00_36, BgL_nz00_2127); }  else 
{ /* ./Jvm/compiler.scm 221 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 223 */
obj_t BgL_ltruez00_1052;obj_t BgL_lfalsez00_1053;obj_t BgL_lcontz00_1054;
BgL_ltruez00_1052 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5895z00zzjvm_compilerz00, BEOA); 
BgL_lfalsez00_1053 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5895z00zzjvm_compilerz00, BEOA); 
BgL_lcontz00_1054 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5895z00zzjvm_compilerz00, BEOA); 
{ /* ./Jvm/compiler.scm 224 */
BgL_nodez00_bglt BgL_arg3691z00_1055;
BgL_arg3691z00_1055 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_35))->BgL_testz00); 
BGl_compilezd2predicatezd2zzjvm_predicatez00(BgL_arg3691z00_1055, BgL_ltruez00_1052, BgL_lfalsez00_1053, BgL_envz00_36); } 
{ /* ./Jvm/compiler.scm 227 */
obj_t BgL_stackz00_1056;
BgL_stackz00_1056 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_36))->BgL_stackz00); 
BGl__labelz00zzjvm_instrz00(BgL_envz00_36, BgL_ltruez00_1052); 
{ /* ./Jvm/compiler.scm 229 */
BgL_nodez00_bglt BgL_arg3697z00_1057;
BgL_arg3697z00_1057 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_35))->BgL_truez00); 
PROCEDURE_ENTRY(BgL_compilerz00_37)(BgL_compilerz00_37, 
(obj_t)(BgL_arg3697z00_1057), 
(obj_t)(BgL_envz00_36), BEOA); } 
{ /* ./Jvm/compiler.scm 230 */
BgL_nodez00_bglt BgL_arg3701z00_1058;
BgL_arg3701z00_1058 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_35))->BgL_truez00); 
BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_36, 
(obj_t)(BgL_arg3701z00_1058), 
(obj_t)(BgL_ez00_35)); } 
{ /* ./Jvm/compiler.scm 231 */
obj_t BgL_rstackz00_1059;
BgL_rstackz00_1059 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_36))->BgL_stackz00); 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_36, BgL_lcontz00_1054); 
{ /* ./Jvm/compiler.scm 233 */
BgL_envz00_bglt BgL_obj3024z00_2133;obj_t BgL_val3023z00_2134;
BgL_obj3024z00_2133 = BgL_envz00_36; 
BgL_val3023z00_2134 = BgL_stackz00_1056; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2133))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2134), BUNSPEC); } 
BGl__labelz00zzjvm_instrz00(BgL_envz00_36, BgL_lfalsez00_1053); 
{ /* ./Jvm/compiler.scm 235 */
BgL_nodez00_bglt BgL_arg3708z00_1060;
BgL_arg3708z00_1060 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_35))->BgL_falsez00); 
PROCEDURE_ENTRY(BgL_compilerz00_37)(BgL_compilerz00_37, 
(obj_t)(BgL_arg3708z00_1060), 
(obj_t)(BgL_envz00_36), BEOA); } 
{ /* ./Jvm/compiler.scm 236 */
BgL_nodez00_bglt BgL_arg3712z00_1061;
BgL_arg3712z00_1061 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_35))->BgL_falsez00); 
BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_36, 
(obj_t)(BgL_arg3712z00_1061), 
(obj_t)(BgL_ez00_35)); } 
{ /* ./Jvm/compiler.scm 237 */
obj_t BgL_rrstackz00_1062;
BgL_rrstackz00_1062 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_36))->BgL_stackz00); 
{ /* ./Jvm/compiler.scm 238 */
bool_t BgL_test3715z00_1063;
if(
NULLP(BgL_rrstackz00_1062))
{ /* ./Jvm/compiler.scm 238 */
BgL_test3715z00_1063 = ((bool_t)0); }  else 
{ /* ./Jvm/compiler.scm 238 */
obj_t BgL_auxz00_3144;obj_t BgL_auxz00_3142;
BgL_auxz00_3144 = 
CNST_TABLE_REF(((long)35)); 
BgL_auxz00_3142 = 
CAR(BgL_rrstackz00_1062); 
BgL_test3715z00_1063 = 
(BgL_auxz00_3142==BgL_auxz00_3144); } 
if(BgL_test3715z00_1063)
{ /* ./Jvm/compiler.scm 239 */
BgL_envz00_bglt BgL_obj3024z00_2140;obj_t BgL_val3023z00_2141;
BgL_obj3024z00_2140 = BgL_envz00_36; 
BgL_val3023z00_2141 = BgL_rstackz00_1059; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2140))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2141), BUNSPEC); }  else 
{ /* ./Jvm/compiler.scm 238 */BFALSE; } } 
return 
BGl__labelz00zzjvm_instrz00(BgL_envz00_36, BgL_lcontz00_1054);} } } } } 
}



/* _compiler-if5413 */
obj_t BGl__compilerzd2if5413zd2zzjvm_compilerz00(obj_t BgL_envz00_2525, obj_t BgL_ez00_2526, obj_t BgL_envz00_2527, obj_t BgL_compilerz00_2528)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 220 */
return 
BGl_compilerzd2ifzd2zzjvm_compilerz00(
(BgL_conditionalz00_bglt)(BgL_ez00_2526), 
(BgL_envz00_bglt)(BgL_envz00_2527), BgL_compilerz00_2528);} 
}



/* compiler-select */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2selectzd2zzjvm_compilerz00(BgL_selectz00_bglt BgL_ez00_38, BgL_envz00_bglt BgL_envz00_39, obj_t BgL_compilerz00_40)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 243 */
{ /* ./Jvm/compiler.scm 244 */
obj_t BgL_nz00_2144;
BgL_nz00_2144 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_38)); 
if(
CBOOL(BgL_nz00_2144))
{ /* ./Jvm/compiler.scm 244 */
BGl__linez00zzjvm_instrz00(BgL_envz00_39, BgL_nz00_2144); }  else 
{ /* ./Jvm/compiler.scm 244 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 248 */
BgL_nodez00_bglt BgL_arg3733z00_1069;
BgL_arg3733z00_1069 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_38))->BgL_testz00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg3733z00_1069, BgL_envz00_39); } 
{ /* ./Jvm/compiler.scm 249 */
BgL_nodez00_bglt BgL_arg3737z00_1070;obj_t BgL_arg3738z00_1071;
BgL_arg3737z00_1070 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_38))->BgL_testz00); 
BgL_arg3738z00_1071 = 
CNST_TABLE_REF(((long)9)); 
BGl_check_typez00zzjvm_compilerz00(BgL_envz00_39, 
(obj_t)(BgL_arg3737z00_1070), BgL_arg3738z00_1071); } 
{ /* ./Jvm/compiler.scm 250 */
bool_t BgL_test3741z00_1072;
{ 
obj_t BgL_l3105z00_1080;
BgL_l3105z00_1080 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_38))->BgL_clausesz00); 
BgL_every3106z00_1081:
if(
NULLP(BgL_l3105z00_1080))
{ /* ./Jvm/compiler.scm 250 */
BgL_test3741z00_1072 = ((bool_t)1); }  else 
{ /* ./Jvm/compiler.scm 250 */
bool_t BgL_testz00_3167;
{ /* ./Jvm/compiler.scm 250 */
obj_t BgL_cz00_1086;
BgL_cz00_1086 = 
CAR(BgL_l3105z00_1080); 
{ /* ./Jvm/compiler.scm 250 */
bool_t BgL__ortest_3107z00_1087;
{ /* ./Jvm/compiler.scm 250 */
obj_t BgL_auxz00_3171;obj_t BgL_auxz00_3169;
BgL_auxz00_3171 = 
CNST_TABLE_REF(((long)36)); 
BgL_auxz00_3169 = 
CAR(BgL_cz00_1086); 
BgL__ortest_3107z00_1087 = 
(BgL_auxz00_3169==BgL_auxz00_3171); } 
if(BgL__ortest_3107z00_1087)
{ /* ./Jvm/compiler.scm 250 */
BgL_testz00_3167 = BgL__ortest_3107z00_1087
; }  else 
{ 
obj_t BgL_l3108z00_1088;
BgL_l3108z00_1088 = 
CAR(BgL_cz00_1086); 
BgL_every3109z00_1089:
if(
NULLP(BgL_l3108z00_1088))
{ /* ./Jvm/compiler.scm 251 */
BgL_testz00_3167 = ((bool_t)1); }  else 
{ /* ./Jvm/compiler.scm 251 */
bool_t BgL_testz00_3177;
{ /* ./Jvm/compiler.scm 251 */
obj_t BgL_arg3781z00_1094;
BgL_arg3781z00_1094 = 
CAR(BgL_l3108z00_1088); 
{ /* ./Jvm/compiler.scm 251 */
bool_t BgL__ortest_3102z00_2155;
BgL__ortest_3102z00_2155 = 
INTEGERP(BgL_arg3781z00_1094); 
if(BgL__ortest_3102z00_2155)
{ /* ./Jvm/compiler.scm 251 */
BgL_testz00_3177 = BgL__ortest_3102z00_2155
; }  else 
{ /* ./Jvm/compiler.scm 251 */
BgL_testz00_3177 = 
CHARP(BgL_arg3781z00_1094)
; } } } 
if(BgL_testz00_3177)
{ /* ./Jvm/compiler.scm 251 */
{ 
obj_t BgL_l3108z00_3182;
BgL_l3108z00_3182 = 
CDR(BgL_l3108z00_1088); 
BgL_l3108z00_1088 = BgL_l3108z00_3182; 
goto BgL_every3109z00_1089;} }  else 
{ /* ./Jvm/compiler.scm 251 */
BgL_testz00_3167 = ((bool_t)0); } } } } } 
if(BgL_testz00_3167)
{ /* ./Jvm/compiler.scm 250 */
{ 
obj_t BgL_l3105z00_3185;
BgL_l3105z00_3185 = 
CDR(BgL_l3105z00_1080); 
BgL_l3105z00_1080 = BgL_l3105z00_3185; 
goto BgL_every3106z00_1081;} }  else 
{ /* ./Jvm/compiler.scm 250 */
BgL_test3741z00_1072 = ((bool_t)0); } } } 
if(BgL_test3741z00_1072)
{ /* ./Jvm/compiler.scm 253 */
obj_t BgL_arg3743z00_1073;obj_t BgL_arg3744z00_1074;
{ /* ./Jvm/compiler.scm 253 */
BgL_typez00_bglt BgL_arg3747z00_1075;
BgL_arg3747z00_1075 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_38))->BgL_itemzd2typezd2); 
BgL_arg3743z00_1073 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg3747z00_1075), BgL_envz00_39); } 
BgL_arg3744z00_1074 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_38))->BgL_clausesz00); 
return 
BGl_selectzd2intzd2zzjvm_compilerz00(BgL_envz00_39, BgL_arg3743z00_1073, BgL_arg3744z00_1074, BgL_compilerz00_40, BgL_ez00_38);}  else 
{ /* ./Jvm/compiler.scm 254 */
obj_t BgL_arg3754z00_1078;
{ /* ./Jvm/compiler.scm 254 */
BgL_typez00_bglt BgL_arg3757z00_1079;
BgL_arg3757z00_1079 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_38))->BgL_itemzd2typezd2); 
BgL_arg3754z00_1078 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg3757z00_1079), BgL_envz00_39); } 
FAILURE(BGl_string5896z00zzjvm_compilerz00,BGl_string5897z00zzjvm_compilerz00,BgL_arg3754z00_1078);} } } 
}



/* _compiler-select5415 */
obj_t BGl__compilerzd2select5415zd2zzjvm_compilerz00(obj_t BgL_envz00_2529, obj_t BgL_ez00_2530, obj_t BgL_envz00_2531, obj_t BgL_compilerz00_2532)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 243 */
return 
BGl_compilerzd2selectzd2zzjvm_compilerz00(
(BgL_selectz00_bglt)(BgL_ez00_2530), 
(BgL_envz00_bglt)(BgL_envz00_2531), BgL_compilerz00_2532);} 
}



/* select-int */
obj_t BGl_selectzd2intzd2zzjvm_compilerz00(BgL_envz00_bglt BgL_envz00_41, obj_t BgL_itemzd2typezd2_42, obj_t BgL_clausesz00_43, obj_t BgL_compz00_44, BgL_selectz00_bglt BgL_ez00_45)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 256 */
{ 
obj_t BgL_nz00_1136;
{ /* ./Jvm/compiler.scm 261 */
bool_t BgL_test3795z00_1102;
{ /* ./Jvm/compiler.scm 261 */
obj_t BgL_auxz00_3201;
BgL_auxz00_3201 = 
CNST_TABLE_REF(((long)37)); 
BgL_test3795z00_1102 = 
(BgL_itemzd2typezd2_42==BgL_auxz00_3201); } 
if(BgL_test3795z00_1102)
{ /* ./Jvm/compiler.scm 261 */
BGl__l2iz00zzjvm_instrz00(BgL_envz00_41); }  else 
{ /* ./Jvm/compiler.scm 261 */BFALSE; } } 
{ /* ./Jvm/compiler.scm 262 */
obj_t BgL_ldefz00_1103;obj_t BgL_lcontz00_1104;obj_t BgL_dz00_1105;obj_t BgL_num2labz00_1106;obj_t BgL_lab2nodez00_1107;
BgL_ldefz00_1103 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5895z00zzjvm_compilerz00, BEOA); 
BgL_lcontz00_1104 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5895z00zzjvm_compilerz00, BEOA); 
BgL_dz00_1105 = BFALSE; 
BgL_num2labz00_1106 = BNIL; 
BgL_lab2nodez00_1107 = BNIL; 
{ 
obj_t BgL_l3110z00_1108;
BgL_l3110z00_1108 = BgL_clausesz00_43; 
BgL_forzd2each3111zd2_1109:
{ /* ./Jvm/compiler.scm 264 */
bool_t BgL_test3799z00_1110;
BgL_test3799z00_1110 = 
PAIRP(BgL_l3110z00_1108); 
if(BgL_test3799z00_1110)
{ /* ./Jvm/compiler.scm 264 */
{ /* ./Jvm/compiler.scm 266 */
obj_t BgL_cz00_1111;
BgL_cz00_1111 = 
CAR(BgL_l3110z00_1108); 
{ /* ./Jvm/compiler.scm 266 */
bool_t BgL_test3800z00_1112;
{ /* ./Jvm/compiler.scm 266 */
obj_t BgL_auxz00_3215;obj_t BgL_auxz00_3213;
BgL_auxz00_3215 = 
CNST_TABLE_REF(((long)36)); 
BgL_auxz00_3213 = 
CAR(BgL_cz00_1111); 
BgL_test3800z00_1112 = 
(BgL_auxz00_3213==BgL_auxz00_3215); } 
if(BgL_test3800z00_1112)
{ /* ./Jvm/compiler.scm 266 */
BgL_dz00_1105 = 
CDR(BgL_cz00_1111); }  else 
{ /* ./Jvm/compiler.scm 268 */
obj_t BgL_labz00_1113;
BgL_labz00_1113 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5895z00zzjvm_compilerz00, BEOA); 
{ 
obj_t BgL_l3112z00_1114;
{ /* ./Jvm/compiler.scm 271 */
obj_t BgL_arg3803z00_1116;
BgL_arg3803z00_1116 = 
CAR(BgL_cz00_1111); 
BgL_l3112z00_1114 = BgL_arg3803z00_1116; 
BgL_forzd2each3113zd2_1115:
{ /* ./Jvm/compiler.scm 269 */
bool_t BgL_test3806z00_1117;
BgL_test3806z00_1117 = 
PAIRP(BgL_l3112z00_1114); 
if(BgL_test3806z00_1117)
{ /* ./Jvm/compiler.scm 269 */
{ /* ./Jvm/compiler.scm 270 */
obj_t BgL_nz00_1118;
BgL_nz00_1118 = 
CAR(BgL_l3112z00_1114); 
{ /* ./Jvm/compiler.scm 270 */
obj_t BgL_arg3808z00_1119;
{ /* ./Jvm/compiler.scm 270 */
obj_t BgL_arg3811z00_1120;
BgL_nz00_1136 = BgL_nz00_1118; 
{ /* ./Jvm/compiler.scm 258 */
bool_t BgL_test3874z00_1138;
BgL_test3874z00_1138 = 
INTEGERP(BgL_nz00_1136); 
if(BgL_test3874z00_1138)
{ /* ./Jvm/compiler.scm 258 */
BgL_arg3811z00_1120 = BgL_nz00_1136; }  else 
{ /* ./Jvm/compiler.scm 259 */
bool_t BgL_test3875z00_1139;
BgL_test3875z00_1139 = 
CHARP(BgL_nz00_1136); 
if(BgL_test3875z00_1139)
{ /* ./Jvm/compiler.scm 259 */
{ /* ./Jvm/compiler.scm 259 */
long BgL_auxz00_3230;
{ /* ./Jvm/compiler.scm 259 */
unsigned char BgL_auxz00_3231;
BgL_auxz00_3231 = 
(unsigned char)CCHAR(BgL_nz00_1136); 
BgL_auxz00_3230 = 
(BgL_auxz00_3231); } 
BgL_arg3811z00_1120 = 
BINT(BgL_auxz00_3230); } }  else 
{ /* ./Jvm/compiler.scm 259 */
FAILURE(BGl_string5896z00zzjvm_compilerz00,BGl_string5898z00zzjvm_compilerz00,BgL_nz00_1136);} } } 
BgL_arg3808z00_1119 = 
MAKE_PAIR(BgL_arg3811z00_1120, BgL_labz00_1113); } 
BgL_num2labz00_1106 = 
MAKE_PAIR(BgL_arg3808z00_1119, BgL_num2labz00_1106); } } 
{ /* ./Jvm/compiler.scm 269 */
obj_t BgL_arg3816z00_1121;
BgL_arg3816z00_1121 = 
CDR(BgL_l3112z00_1114); 
{ 
obj_t BgL_l3112z00_3239;
BgL_l3112z00_3239 = BgL_arg3816z00_1121; 
BgL_l3112z00_1114 = BgL_l3112z00_3239; 
goto BgL_forzd2each3113zd2_1115;} } }  else 
{ /* ./Jvm/compiler.scm 269 */((bool_t)1); } } } } 
{ /* ./Jvm/compiler.scm 272 */
obj_t BgL_arg3821z00_1122;
{ /* ./Jvm/compiler.scm 272 */
obj_t BgL_arg3824z00_1123;
BgL_arg3824z00_1123 = 
CDR(BgL_cz00_1111); 
BgL_arg3821z00_1122 = 
MAKE_PAIR(BgL_labz00_1113, BgL_arg3824z00_1123); } 
BgL_lab2nodez00_1107 = 
MAKE_PAIR(BgL_arg3821z00_1122, BgL_lab2nodez00_1107); } } } } 
{ /* ./Jvm/compiler.scm 264 */
obj_t BgL_arg3837z00_1126;
BgL_arg3837z00_1126 = 
CDR(BgL_l3110z00_1108); 
{ 
obj_t BgL_l3110z00_3244;
BgL_l3110z00_3244 = BgL_arg3837z00_1126; 
BgL_l3110z00_1108 = BgL_l3110z00_3244; 
goto BgL_forzd2each3111zd2_1109;} } }  else 
{ /* ./Jvm/compiler.scm 264 */((bool_t)1); } } } 
BGl__switchz00zzjvm_instrz00(BgL_envz00_41, BgL_ldefz00_1103, BgL_num2labz00_1106); 
{ /* ./Jvm/compiler.scm 275 */
obj_t BgL_stackz00_1127;
BgL_stackz00_1127 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_41))->BgL_stackz00); 
{ 
obj_t BgL_l3114z00_1128;
BgL_l3114z00_1128 = BgL_lab2nodez00_1107; 
BgL_forzd2each3115zd2_1129:
{ /* ./Jvm/compiler.scm 276 */
bool_t BgL_test3843z00_1130;
BgL_test3843z00_1130 = 
PAIRP(BgL_l3114z00_1128); 
if(BgL_test3843z00_1130)
{ /* ./Jvm/compiler.scm 276 */
{ /* ./Jvm/compiler.scm 277 */
obj_t BgL_slotz00_1131;
BgL_slotz00_1131 = 
CAR(BgL_l3114z00_1128); 
{ /* ./Jvm/compiler.scm 277 */
obj_t BgL_arg3845z00_1132;
BgL_arg3845z00_1132 = 
CAR(BgL_slotz00_1131); 
BGl__labelz00zzjvm_instrz00(BgL_envz00_41, BgL_arg3845z00_1132); } 
{ /* ./Jvm/compiler.scm 278 */
BgL_envz00_bglt BgL_obj3024z00_2183;obj_t BgL_val3023z00_2184;
BgL_obj3024z00_2183 = BgL_envz00_41; 
BgL_val3023z00_2184 = BgL_stackz00_1127; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2183))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2184), BUNSPEC); } 
{ /* ./Jvm/compiler.scm 279 */
obj_t BgL_arg3850z00_1133;
BgL_arg3850z00_1133 = 
CDR(BgL_slotz00_1131); 
PROCEDURE_ENTRY(BgL_compz00_44)(BgL_compz00_44, BgL_arg3850z00_1133, 
(obj_t)(BgL_envz00_41), BEOA); } 
{ /* ./Jvm/compiler.scm 280 */
obj_t BgL_arg3855z00_1134;
BgL_arg3855z00_1134 = 
CDR(BgL_slotz00_1131); 
BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_41, BgL_arg3855z00_1134, 
(obj_t)(BgL_ez00_45)); } 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_41, BgL_lcontz00_1104); } 
{ /* ./Jvm/compiler.scm 276 */
obj_t BgL_arg3861z00_1135;
BgL_arg3861z00_1135 = 
CDR(BgL_l3114z00_1128); 
{ 
obj_t BgL_l3114z00_3262;
BgL_l3114z00_3262 = BgL_arg3861z00_1135; 
BgL_l3114z00_1128 = BgL_l3114z00_3262; 
goto BgL_forzd2each3115zd2_1129;} } }  else 
{ /* ./Jvm/compiler.scm 276 */((bool_t)1); } } } 
BGl__labelz00zzjvm_instrz00(BgL_envz00_41, BgL_ldefz00_1103); 
if(
CBOOL(BgL_dz00_1105))
{ /* ./Jvm/compiler.scm 284 */
{ /* ./Jvm/compiler.scm 284 */
BgL_envz00_bglt BgL_obj3024z00_2188;obj_t BgL_val3023z00_2189;
BgL_obj3024z00_2188 = BgL_envz00_41; 
BgL_val3023z00_2189 = BgL_stackz00_1127; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2188))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2189), BUNSPEC); } 
PROCEDURE_ENTRY(BgL_compz00_44)(BgL_compz00_44, BgL_dz00_1105, 
(obj_t)(BgL_envz00_41), BEOA); 
BGl_samezd2typezd2zzjvm_compilerz00(BgL_envz00_41, BgL_dz00_1105, 
(obj_t)(BgL_ez00_45)); }  else 
{ /* ./Jvm/compiler.scm 284 */BFALSE; } 
return 
BGl__labelz00zzjvm_instrz00(BgL_envz00_41, BgL_lcontz00_1104);} } } } 
}



/* compiler-labels */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2labelszd2zzjvm_compilerz00(BgL_letzd2funzd2_bglt BgL_ez00_46, BgL_envz00_bglt BgL_envz00_47, obj_t BgL_compz00_48)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 290 */
{ /* ./Jvm/compiler.scm 291 */
obj_t BgL_nz00_2198;
BgL_nz00_2198 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_46)); 
if(
CBOOL(BgL_nz00_2198))
{ /* ./Jvm/compiler.scm 291 */
BGl__linez00zzjvm_instrz00(BgL_envz00_47, BgL_nz00_2198); }  else 
{ /* ./Jvm/compiler.scm 291 */
CNST_TABLE_REF(((long)4)); } } 
{ 
obj_t BgL_l3118z00_1142;
{ /* ./Jvm/compiler.scm 293 */
obj_t BgL_arg3882z00_1144;
BgL_arg3882z00_1144 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_ez00_46))->BgL_localsz00); 
BgL_l3118z00_1142 = BgL_arg3882z00_1144; 
BgL_forzd2each3119zd2_1143:
{ /* ./Jvm/compiler.scm 293 */
bool_t BgL_test3885z00_1145;
BgL_test3885z00_1145 = 
PAIRP(BgL_l3118z00_1142); 
if(BgL_test3885z00_1145)
{ /* ./Jvm/compiler.scm 293 */
{ /* ./Jvm/compiler.scm 295 */
obj_t BgL_vz00_1146;
BgL_vz00_1146 = 
CAR(BgL_l3118z00_1142); 
BGl_envzd2setzd2namez12z12zzjvm_envz00(BgL_envz00_47, 
(BgL_localz00_bglt)(BgL_vz00_1146), 
CNST_TABLE_REF(((long)38))); 
{ /* ./Jvm/compiler.scm 296 */
obj_t BgL_arg3888z00_1147;
{ /* ./Jvm/compiler.scm 296 */
obj_t BgL_auxz00_3286;
BgL_auxz00_3286 = 
(obj_t)(BgL_ez00_46); 
BgL_arg3888z00_1147 = 
MAKE_PAIR(BgL_vz00_1146, BgL_auxz00_3286); } 
BGl_za2lab2labelsza2z00zzjvm_compilerz00 = 
MAKE_PAIR(BgL_arg3888z00_1147, BGl_za2lab2labelsza2z00zzjvm_compilerz00); } } 
{ /* ./Jvm/compiler.scm 293 */
obj_t BgL_arg3893z00_1148;
BgL_arg3893z00_1148 = 
CDR(BgL_l3118z00_1142); 
{ 
obj_t BgL_l3118z00_3291;
BgL_l3118z00_3291 = BgL_arg3893z00_1148; 
BgL_l3118z00_1142 = BgL_l3118z00_3291; 
goto BgL_forzd2each3119zd2_1143;} } }  else 
{ /* ./Jvm/compiler.scm 293 */((bool_t)1); } } } } 
{ /* ./Jvm/compiler.scm 298 */
obj_t BgL_arg3898z00_1149;
{ /* ./Jvm/compiler.scm 298 */
obj_t BgL_auxz00_3292;
BgL_auxz00_3292 = 
(obj_t)(BgL_ez00_46); 
BgL_arg3898z00_1149 = 
MAKE_PAIR(BgL_auxz00_3292, BNIL); } 
BGl_za2labels2savedza2z00zzjvm_compilerz00 = 
MAKE_PAIR(BgL_arg3898z00_1149, BGl_za2labels2savedza2z00zzjvm_compilerz00); } 
{ /* ./Jvm/compiler.scm 299 */
BgL_nodez00_bglt BgL_arg3902z00_1150;
BgL_arg3902z00_1150 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_ez00_46))->BgL_bodyz00); 
return 
PROCEDURE_ENTRY(BgL_compz00_48)(BgL_compz00_48, 
(obj_t)(BgL_arg3902z00_1150), 
(obj_t)(BgL_envz00_47), BEOA);} } 
}



/* _compiler-labels5417 */
obj_t BGl__compilerzd2labels5417zd2zzjvm_compilerz00(obj_t BgL_envz00_2533, obj_t BgL_ez00_2534, obj_t BgL_envz00_2535, obj_t BgL_compz00_2536)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 290 */
return 
BGl_compilerzd2labelszd2zzjvm_compilerz00(
(BgL_letzd2funzd2_bglt)(BgL_ez00_2534), 
(BgL_envz00_bglt)(BgL_envz00_2535), BgL_compz00_2536);} 
}



/* compile-label-call */
obj_t BGl_compilezd2labelzd2callz00zzjvm_compilerz00(BgL_variablez00_bglt BgL_localz00_52, obj_t BgL_argsz00_53, BgL_envz00_bglt BgL_envz00_54)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 367 */
{ 
obj_t BgL_l3143z00_1222;
BgL_l3143z00_1222 = BgL_argsz00_53; 
BgL_forzd2each3144zd2_1223:
{ /* ./Jvm/compiler.scm 369 */
bool_t BgL_test4041z00_1224;
BgL_test4041z00_1224 = 
PAIRP(BgL_l3143z00_1222); 
if(BgL_test4041z00_1224)
{ /* ./Jvm/compiler.scm 369 */
{ /* ./Jvm/compiler.scm 369 */
obj_t BgL_ez00_1225;
BgL_ez00_1225 = 
CAR(BgL_l3143z00_1222); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_ez00_1225), BgL_envz00_54); } 
{ /* ./Jvm/compiler.scm 369 */
obj_t BgL_arg4045z00_1226;
BgL_arg4045z00_1226 = 
CDR(BgL_l3143z00_1222); 
{ 
obj_t BgL_l3143z00_3310;
BgL_l3143z00_3310 = BgL_arg4045z00_1226; 
BgL_l3143z00_1222 = BgL_l3143z00_3310; 
goto BgL_forzd2each3144zd2_1223;} } }  else 
{ /* ./Jvm/compiler.scm 369 */((bool_t)1); } } } 
{ /* ./Jvm/compiler.scm 370 */
bool_t BgL_test4049z00_1227;
{ /* ./Jvm/compiler.scm 370 */
obj_t BgL_auxz00_3311;
BgL_auxz00_3311 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_localz00_52), BGl_za2labdoneza2z00zzjvm_compilerz00); 
BgL_test4049z00_1227 = 
CBOOL(BgL_auxz00_3311); } 
if(BgL_test4049z00_1227)
{ /* ./Jvm/compiler.scm 374 */
BgL_valuez00_bglt BgL_instance3147z00_1229;
BgL_instance3147z00_1229 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_52))->BgL_valuez00); 
{ 
obj_t BgL_l3149z00_1230;
{ /* ./Jvm/compiler.scm 375 */
obj_t BgL_arg4052z00_1232;
{ /* ./Jvm/compiler.scm 375 */
obj_t BgL_auxz00_3317;
{ /* ./Jvm/compiler.scm 375 */
BgL_sfunz00_bglt BgL_obj1367z00_2208;
BgL_obj1367z00_2208 = 
(BgL_sfunz00_bglt)(BgL_instance3147z00_1229); 
BgL_auxz00_3317 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2208))->BgL_argsz00); } 
BgL_arg4052z00_1232 = 
bgl_reverse(BgL_auxz00_3317); } 
BgL_l3149z00_1230 = BgL_arg4052z00_1232; 
BgL_forzd2each3150zd2_1231:
{ /* ./Jvm/compiler.scm 375 */
bool_t BgL_test4058z00_1234;
BgL_test4058z00_1234 = 
PAIRP(BgL_l3149z00_1230); 
if(BgL_test4058z00_1234)
{ /* ./Jvm/compiler.scm 375 */
{ /* ./Jvm/compiler.scm 375 */
obj_t BgL_argz00_1235;
BgL_argz00_1235 = 
CAR(BgL_l3149z00_1230); 
BGl__storez00zzjvm_instrz00(BgL_envz00_54, 
(BgL_localz00_bglt)(BgL_argz00_1235)); } 
{ /* ./Jvm/compiler.scm 375 */
obj_t BgL_arg4062z00_1236;
BgL_arg4062z00_1236 = 
CDR(BgL_l3149z00_1230); 
{ 
obj_t BgL_l3149z00_3327;
BgL_l3149z00_3327 = BgL_arg4062z00_1236; 
BgL_l3149z00_1230 = BgL_l3149z00_3327; 
goto BgL_forzd2each3150zd2_1231;} } }  else 
{ /* ./Jvm/compiler.scm 375 */((bool_t)1); } } } } 
{ /* ./Jvm/compiler.scm 376 */
obj_t BgL_stkz00_1237;
BgL_stkz00_1237 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_54))->BgL_stackz00); 
{ /* ./Jvm/compiler.scm 378 */
bool_t BgL_test4066z00_1238;
BgL_test4066z00_1238 = 
NULLP(BgL_stkz00_1237); 
if(BgL_test4066z00_1238)
{ /* ./Jvm/compiler.scm 379 */
obj_t BgL_arg4068z00_1239;
BgL_arg4068z00_1239 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_52))->BgL_namez00); 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_54, BgL_arg4068z00_1239); }  else 
{ /* ./Jvm/compiler.scm 380 */
obj_t BgL_arg4072z00_1240;
{ /* ./Jvm/compiler.scm 380 */
obj_t BgL_arg4075z00_1241;obj_t BgL_arg4076z00_1242;
BgL_arg4075z00_1241 = 
CNST_TABLE_REF(((long)39)); 
BgL_arg4076z00_1242 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_52))->BgL_namez00); 
{ /* ./Jvm/compiler.scm 380 */
obj_t BgL_list4078z00_1243;
{ /* ./Jvm/compiler.scm 380 */
obj_t BgL_arg4080z00_1244;
BgL_arg4080z00_1244 = 
MAKE_PAIR(BgL_arg4076z00_1242, BNIL); 
BgL_list4078z00_1243 = 
MAKE_PAIR(BgL_arg4075z00_1241, BgL_arg4080z00_1244); } 
BgL_arg4072z00_1240 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list4078z00_1243); } } 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_54, BgL_arg4072z00_1240); } } 
{ /* ./Jvm/compiler.scm 381 */
obj_t BgL_arg4086z00_1245;
{ /* ./Jvm/compiler.scm 381 */
obj_t BgL_arg4089z00_1246;obj_t BgL_arg4090z00_1247;
BgL_arg4089z00_1246 = 
CNST_TABLE_REF(((long)35)); 
BgL_arg4090z00_1247 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_54))->BgL_stackz00); 
BgL_arg4086z00_1245 = 
MAKE_PAIR(BgL_arg4089z00_1246, BgL_arg4090z00_1247); } 
{ /* ./Jvm/compiler.scm 381 */
BgL_envz00_bglt BgL_obj3024z00_2217;obj_t BgL_val3023z00_2218;
BgL_obj3024z00_2217 = BgL_envz00_54; 
BgL_val3023z00_2218 = BgL_arg4086z00_1245; 
return 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2217))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2218), BUNSPEC);} } } }  else 
{ /* ./Jvm/compiler.scm 383 */
BgL_valuez00_bglt BgL_instance3153z00_1249;
BgL_instance3153z00_1249 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_52))->BgL_valuez00); 
{ /* ./Jvm/compiler.scm 384 */
obj_t BgL_auxz00_3344;
BgL_auxz00_3344 = 
(obj_t)(BgL_localz00_52); 
BGl_za2labdoneza2z00zzjvm_compilerz00 = 
MAKE_PAIR(BgL_auxz00_3344, BGl_za2labdoneza2z00zzjvm_compilerz00); } 
{ /* ./Jvm/compiler.scm 385 */
obj_t BgL_debugzf3zf3_1250;
BgL_debugzf3zf3_1250 = 
BGl_debugzd2forzd2declarezd2varzf3z21zzjvm_externz00(BgL_envz00_54); 
{ /* ./Jvm/compiler.scm 385 */
obj_t BgL_blabz00_1251;
if(
CBOOL(BgL_debugzf3zf3_1250))
{ /* ./Jvm/compiler.scm 386 */
BgL_blabz00_1251 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5899z00zzjvm_compilerz00, BEOA); }  else 
{ /* ./Jvm/compiler.scm 386 */
BgL_blabz00_1251 = 
CNST_TABLE_REF(((long)34)); } 
{ /* ./Jvm/compiler.scm 386 */
obj_t BgL_elabz00_1252;
if(
CBOOL(BgL_debugzf3zf3_1250))
{ /* ./Jvm/compiler.scm 387 */
BgL_elabz00_1252 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5894z00zzjvm_compilerz00, BEOA); }  else 
{ /* ./Jvm/compiler.scm 387 */
BgL_elabz00_1252 = 
CNST_TABLE_REF(((long)34)); } 
{ /* ./Jvm/compiler.scm 387 */

if(
CBOOL(BgL_debugzf3zf3_1250))
{ /* ./Jvm/compiler.scm 388 */
BGl__labelz00zzjvm_instrz00(BgL_envz00_54, BgL_blabz00_1251); }  else 
{ /* ./Jvm/compiler.scm 388 */BFALSE; } 
{ 
obj_t BgL_l3155z00_1253;
{ /* ./Jvm/compiler.scm 394 */
obj_t BgL_arg4098z00_1255;
{ /* ./Jvm/compiler.scm 394 */
obj_t BgL_auxz00_3361;
{ /* ./Jvm/compiler.scm 394 */
BgL_sfunz00_bglt BgL_obj1367z00_2220;
BgL_obj1367z00_2220 = 
(BgL_sfunz00_bglt)(BgL_instance3153z00_1249); 
BgL_auxz00_3361 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2220))->BgL_argsz00); } 
BgL_arg4098z00_1255 = 
bgl_reverse(BgL_auxz00_3361); } 
BgL_l3155z00_1253 = BgL_arg4098z00_1255; 
BgL_forzd2each3156zd2_1254:
{ /* ./Jvm/compiler.scm 389 */
bool_t BgL_test4104z00_1257;
BgL_test4104z00_1257 = 
PAIRP(BgL_l3155z00_1253); 
if(BgL_test4104z00_1257)
{ /* ./Jvm/compiler.scm 389 */
{ /* ./Jvm/compiler.scm 391 */
obj_t BgL_argz00_1258;
BgL_argz00_1258 = 
CAR(BgL_l3155z00_1253); 
BGl_envzd2declarezd2newzd2localzd2zzjvm_envz00(BgL_envz00_54, 
(BgL_localz00_bglt)(BgL_argz00_1258)); 
BGl_debugzd2declarezd2varzd2fromzd2zzjvm_externz00(BgL_envz00_54, 
(BgL_localz00_bglt)(BgL_argz00_1258), BgL_blabz00_1251, BgL_elabz00_1252); 
BGl__storez00zzjvm_instrz00(BgL_envz00_54, 
(BgL_localz00_bglt)(BgL_argz00_1258)); } 
{ /* ./Jvm/compiler.scm 389 */
obj_t BgL_arg4110z00_1259;
BgL_arg4110z00_1259 = 
CDR(BgL_l3155z00_1253); 
{ 
obj_t BgL_l3155z00_3375;
BgL_l3155z00_3375 = BgL_arg4110z00_1259; 
BgL_l3155z00_1253 = BgL_l3155z00_3375; 
goto BgL_forzd2each3156zd2_1254;} } }  else 
{ /* ./Jvm/compiler.scm 389 */((bool_t)1); } } } } 
{ /* ./Jvm/compiler.scm 395 */
obj_t BgL_stkz00_1260;
BgL_stkz00_1260 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_54))->BgL_stackz00); 
{ /* ./Jvm/compiler.scm 395 */
obj_t BgL_varsz00_1261;
{ /* ./Jvm/compiler.scm 396 */
bool_t BgL_test4188z00_1298;
BgL_test4188z00_1298 = 
NULLP(BgL_stkz00_1260); 
if(BgL_test4188z00_1298)
{ /* ./Jvm/compiler.scm 396 */
BgL_varsz00_1261 = BNIL; }  else 
{ /* ./Jvm/compiler.scm 396 */
obj_t BgL_head3159z00_1299;
BgL_head3159z00_1299 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3157z00_1300;obj_t BgL_tail3160z00_1301;
BgL_l3157z00_1300 = BgL_stkz00_1260; 
BgL_tail3160z00_1301 = BgL_head3159z00_1299; 
BgL_map3158z00_1302:
{ /* ./Jvm/compiler.scm 396 */
bool_t BgL_test4190z00_1303;
BgL_test4190z00_1303 = 
NULLP(BgL_l3157z00_1300); 
if(BgL_test4190z00_1303)
{ /* ./Jvm/compiler.scm 396 */
BgL_varsz00_1261 = 
CDR(BgL_head3159z00_1299); }  else 
{ /* ./Jvm/compiler.scm 396 */
obj_t BgL_newtail3161z00_1304;
{ /* ./Jvm/compiler.scm 396 */
obj_t BgL_arg4198z00_1306;
{ /* ./Jvm/compiler.scm 396 */
obj_t BgL_tyz00_1308;
BgL_tyz00_1308 = 
CAR(BgL_l3157z00_1300); 
BgL_arg4198z00_1306 = 
BGl_envzd2alloczd2localz00zzjvm_envz00(BgL_envz00_54, BgL_tyz00_1308); } 
BgL_newtail3161z00_1304 = 
MAKE_PAIR(BgL_arg4198z00_1306, BNIL); } 
SET_CDR(BgL_tail3160z00_1301, BgL_newtail3161z00_1304); 
{ /* ./Jvm/compiler.scm 396 */
obj_t BgL_arg4194z00_1305;
BgL_arg4194z00_1305 = 
CDR(BgL_l3157z00_1300); 
{ 
obj_t BgL_tail3160z00_3389;obj_t BgL_l3157z00_3388;
BgL_l3157z00_3388 = BgL_arg4194z00_1305; 
BgL_tail3160z00_3389 = BgL_newtail3161z00_1304; 
BgL_tail3160z00_1301 = BgL_tail3160z00_3389; 
BgL_l3157z00_1300 = BgL_l3157z00_3388; 
goto BgL_map3158z00_1302;} } } } } } } 
{ /* ./Jvm/compiler.scm 396 */

{ /* ./Jvm/compiler.scm 398 */
obj_t BgL_arg4115z00_1262;
{ /* ./Jvm/compiler.scm 398 */
obj_t BgL_arg4118z00_1263;obj_t BgL_arg4119z00_1264;
BgL_arg4118z00_1263 = 
CNST_TABLE_REF(((long)39)); 
BgL_arg4119z00_1264 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_52))->BgL_namez00); 
{ /* ./Jvm/compiler.scm 398 */
obj_t BgL_list4121z00_1265;
{ /* ./Jvm/compiler.scm 398 */
obj_t BgL_arg4123z00_1266;
BgL_arg4123z00_1266 = 
MAKE_PAIR(BgL_arg4119z00_1264, BNIL); 
BgL_list4121z00_1265 = 
MAKE_PAIR(BgL_arg4118z00_1263, BgL_arg4123z00_1266); } 
BgL_arg4115z00_1262 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list4121z00_1265); } } 
BGl__labelz00zzjvm_instrz00(BgL_envz00_54, BgL_arg4115z00_1262); } 
{ 
obj_t BgL_ll3162z00_1267;obj_t BgL_ll3163z00_1268;
BgL_ll3162z00_1267 = BgL_varsz00_1261; 
BgL_ll3163z00_1268 = BgL_stkz00_1260; 
BgL_forzd2each3164zd2_1269:
{ /* ./Jvm/compiler.scm 399 */
bool_t BgL_test4128z00_1270;
BgL_test4128z00_1270 = 
NULLP(BgL_ll3162z00_1267); 
if(BgL_test4128z00_1270)
{ /* ./Jvm/compiler.scm 399 */((bool_t)1); }  else 
{ /* ./Jvm/compiler.scm 399 */
{ /* ./Jvm/compiler.scm 399 */
obj_t BgL_vz00_1271;obj_t BgL_tyz00_1272;
BgL_vz00_1271 = 
CAR(BgL_ll3162z00_1267); 
BgL_tyz00_1272 = 
CAR(BgL_ll3163z00_1268); 
BGl__store_namez00zzjvm_instrz00(BgL_envz00_54, BgL_vz00_1271, BgL_tyz00_1272); } 
{ /* ./Jvm/compiler.scm 399 */
obj_t BgL_arg4133z00_1273;obj_t BgL_arg4134z00_1274;
BgL_arg4133z00_1273 = 
CDR(BgL_ll3162z00_1267); 
BgL_arg4134z00_1274 = 
CDR(BgL_ll3163z00_1268); 
{ 
obj_t BgL_ll3163z00_3404;obj_t BgL_ll3162z00_3403;
BgL_ll3162z00_3403 = BgL_arg4133z00_1273; 
BgL_ll3163z00_3404 = BgL_arg4134z00_1274; 
BgL_ll3163z00_1268 = BgL_ll3163z00_3404; 
BgL_ll3162z00_1267 = BgL_ll3162z00_3403; 
goto BgL_forzd2each3164zd2_1269;} } } } } 
{ /* ./Jvm/compiler.scm 402 */
obj_t BgL_arg4140z00_1275;
BgL_arg4140z00_1275 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_52))->BgL_namez00); 
BGl__labelz00zzjvm_instrz00(BgL_envz00_54, BgL_arg4140z00_1275); } 
{ /* ./Jvm/compiler.scm 404 */
bool_t BgL_test4143z00_1276;
BgL_test4143z00_1276 = 
NULLP(BgL_stkz00_1260); 
if(BgL_test4143z00_1276)
{ /* ./Jvm/compiler.scm 405 */
obj_t BgL_arg4145z00_1277;
{ /* ./Jvm/compiler.scm 405 */
BgL_sfunz00_bglt BgL_obj1370z00_2244;
BgL_obj1370z00_2244 = 
(BgL_sfunz00_bglt)(BgL_instance3153z00_1249); 
BgL_arg4145z00_1277 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2244))->BgL_bodyz00); } 
BGl_compilezd2tailzd2zzjvm_tailz00(
(BgL_nodez00_bglt)(BgL_arg4145z00_1277), BgL_envz00_54); }  else 
{ /* ./Jvm/compiler.scm 406 */
obj_t BgL_arg4149z00_1278;
{ /* ./Jvm/compiler.scm 406 */
BgL_sfunz00_bglt BgL_obj1370z00_2245;
BgL_obj1370z00_2245 = 
(BgL_sfunz00_bglt)(BgL_instance3153z00_1249); 
BgL_arg4149z00_1278 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2245))->BgL_bodyz00); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4149z00_1278), BgL_envz00_54); } } 
if(
CBOOL(BgL_debugzf3zf3_1250))
{ /* ./Jvm/compiler.scm 407 */
BGl__labelz00zzjvm_instrz00(BgL_envz00_54, BgL_elabz00_1252); }  else 
{ /* ./Jvm/compiler.scm 407 */BFALSE; } 
{ /* ./Jvm/compiler.scm 408 */
bool_t BgL_test4154z00_1279;
BgL_test4154z00_1279 = 
NULLP(BgL_stkz00_1260); 
if(BgL_test4154z00_1279)
{ /* ./Jvm/compiler.scm 408 */BFALSE; }  else 
{ /* ./Jvm/compiler.scm 409 */
obj_t BgL_trz00_1280;
{ /* ./Jvm/compiler.scm 409 */
obj_t BgL_auxz00_3422;
BgL_auxz00_3422 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_54))->BgL_stackz00); 
BgL_trz00_1280 = 
CAR(BgL_auxz00_3422); } 
BGl__store_namez00zzjvm_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)40)), BgL_trz00_1280); 
{ 
obj_t BgL_ll3165z00_1281;obj_t BgL_ll3166z00_1282;
{ /* ./Jvm/compiler.scm 413 */
obj_t BgL_arg4157z00_1284;obj_t BgL_arg4158z00_1285;
BgL_arg4157z00_1284 = 
bgl_reverse(BgL_varsz00_1261); 
BgL_arg4158z00_1285 = 
bgl_reverse(BgL_stkz00_1260); 
BgL_ll3165z00_1281 = BgL_arg4157z00_1284; 
BgL_ll3166z00_1282 = BgL_arg4158z00_1285; 
BgL_forzd2each3167zd2_1283:
{ /* ./Jvm/compiler.scm 412 */
bool_t BgL_test4162z00_1286;
BgL_test4162z00_1286 = 
NULLP(BgL_ll3165z00_1281); 
if(BgL_test4162z00_1286)
{ /* ./Jvm/compiler.scm 412 */((bool_t)1); }  else 
{ /* ./Jvm/compiler.scm 412 */
{ /* ./Jvm/compiler.scm 412 */
obj_t BgL_vz00_1287;obj_t BgL_tyz00_1288;
BgL_vz00_1287 = 
CAR(BgL_ll3165z00_1281); 
BgL_tyz00_1288 = 
CAR(BgL_ll3166z00_1282); 
BGl__load_namez00zzjvm_instrz00(BgL_envz00_54, BgL_vz00_1287, BgL_tyz00_1288); } 
{ /* ./Jvm/compiler.scm 412 */
obj_t BgL_arg4167z00_1289;obj_t BgL_arg4168z00_1290;
BgL_arg4167z00_1289 = 
CDR(BgL_ll3165z00_1281); 
BgL_arg4168z00_1290 = 
CDR(BgL_ll3166z00_1282); 
{ 
obj_t BgL_ll3166z00_3437;obj_t BgL_ll3165z00_3436;
BgL_ll3165z00_3436 = BgL_arg4167z00_1289; 
BgL_ll3166z00_3437 = BgL_arg4168z00_1290; 
BgL_ll3166z00_1282 = BgL_ll3166z00_3437; 
BgL_ll3165z00_1281 = BgL_ll3165z00_3436; 
goto BgL_forzd2each3167zd2_1283;} } } } } } 
BGl__load_namez00zzjvm_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)40)), BgL_trz00_1280); } } 
{ 
obj_t BgL_l3168z00_1292;
{ /* ./Jvm/compiler.scm 416 */
bool_t BgL_auxz00_3440;
BgL_l3168z00_1292 = BgL_stkz00_1260; 
BgL_forzd2each3169zd2_1293:
{ /* ./Jvm/compiler.scm 416 */
bool_t BgL_test4180z00_1294;
BgL_test4180z00_1294 = 
PAIRP(BgL_l3168z00_1292); 
if(BgL_test4180z00_1294)
{ /* ./Jvm/compiler.scm 416 */
{ /* ./Jvm/compiler.scm 416 */
obj_t BgL_tyz00_1295;
BgL_tyz00_1295 = 
CAR(BgL_l3168z00_1292); 
BGl_envzd2freezd2localz00zzjvm_envz00(BgL_envz00_54, BgL_tyz00_1295); } 
{ /* ./Jvm/compiler.scm 416 */
obj_t BgL_arg4184z00_1296;
BgL_arg4184z00_1296 = 
CDR(BgL_l3168z00_1292); 
{ 
obj_t BgL_l3168z00_3446;
BgL_l3168z00_3446 = BgL_arg4184z00_1296; 
BgL_l3168z00_1292 = BgL_l3168z00_3446; 
goto BgL_forzd2each3169zd2_1293;} } }  else 
{ /* ./Jvm/compiler.scm 416 */
BgL_auxz00_3440 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_3440);} } } } } } } } } } } } 
}



/* compiler-app */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2appzd2zzjvm_compilerz00(BgL_appz00_bglt BgL_ez00_55, BgL_envz00_bglt BgL_envz00_56)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 419 */
{ /* ./Jvm/compiler.scm 420 */
obj_t BgL_nz00_2259;
BgL_nz00_2259 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_55)); 
if(
CBOOL(BgL_nz00_2259))
{ /* ./Jvm/compiler.scm 420 */
BGl__linez00zzjvm_instrz00(BgL_envz00_56, BgL_nz00_2259); }  else 
{ /* ./Jvm/compiler.scm 420 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 422 */
BgL_variablez00_bglt BgL_vz00_1310;
{ /* ./Jvm/compiler.scm 422 */
BgL_varz00_bglt BgL_arg4248z00_1328;
BgL_arg4248z00_1328 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_55))->BgL_funz00); 
BgL_vz00_1310 = 
(((BgL_varz00_bglt)CREF(BgL_arg4248z00_1328))->BgL_variablez00); } 
{ /* ./Jvm/compiler.scm 423 */
bool_t BgL_test4213z00_1311;
{ /* ./Jvm/compiler.scm 423 */
obj_t BgL_obj1300z00_2262;
BgL_obj1300z00_2262 = 
(obj_t)(BgL_vz00_1310); 
BgL_test4213z00_1311 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_2262, BGl_localz00zzast_varz00); } 
if(BgL_test4213z00_1311)
{ /* ./Jvm/compiler.scm 423 */
{ /* ./Jvm/compiler.scm 424 */
obj_t BgL_arg4215z00_1312;
BgL_arg4215z00_1312 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_55))->BgL_argsz00); 
return 
BGl_compilezd2labelzd2callz00zzjvm_compilerz00(BgL_vz00_1310, BgL_arg4215z00_1312, BgL_envz00_56);} }  else 
{ /* ./Jvm/compiler.scm 425 */
bool_t BgL_test4218z00_1313;
{ /* ./Jvm/compiler.scm 425 */
obj_t BgL_arg4243z00_1327;
BgL_arg4243z00_1327 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_55))->BgL_argsz00); 
{ /* ./Jvm/compiler.scm 425 */
obj_t BgL_auxz00_3462;
BgL_auxz00_3462 = 
BGl_specialzd2callzf3z21zzjvm_compilerz00(BgL_vz00_1310, BgL_arg4243z00_1327, BgL_envz00_56); 
BgL_test4218z00_1313 = 
CBOOL(BgL_auxz00_3462); } } 
if(BgL_test4218z00_1313)
{ /* ./Jvm/compiler.scm 425 */
return 
CNST_TABLE_REF(((long)41));}  else 
{ /* ./Jvm/compiler.scm 426 */
obj_t BgL__ortest_3172z00_1314;
{ /* ./Jvm/compiler.scm 426 */
obj_t BgL_arg4239z00_1326;
BgL_arg4239z00_1326 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_55))->BgL_argsz00); 
BgL__ortest_3172z00_1314 = 
PROCEDURE_ENTRY(BGl_specialzd2inlinezd2callzf3zf3zzjvm_inlinez00)(BGl_specialzd2inlinezd2callzf3zf3zzjvm_inlinez00, 
(obj_t)(BgL_vz00_1310), BgL_arg4239z00_1326, 
(obj_t)(BgL_envz00_56), BEOA); } 
if(
CBOOL(BgL__ortest_3172z00_1314))
{ /* ./Jvm/compiler.scm 426 */
return BgL__ortest_3172z00_1314;}  else 
{ /* ./Jvm/compiler.scm 426 */
{ /* ./Jvm/compiler.scm 428 */
obj_t BgL_typesz00_1315;
BgL_typesz00_1315 = 
BGl_typezd2argszd2zzjvm_compilerz00(BgL_vz00_1310, BgL_envz00_56); 
{ 
obj_t BgL_ll3173z00_1316;obj_t BgL_ll3174z00_1317;
{ /* ./Jvm/compiler.scm 429 */
obj_t BgL_arg4220z00_1319;
BgL_arg4220z00_1319 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_55))->BgL_argsz00); 
BgL_ll3173z00_1316 = BgL_arg4220z00_1319; 
BgL_ll3174z00_1317 = BgL_typesz00_1315; 
BgL_forzd2each3175zd2_1318:
{ /* ./Jvm/compiler.scm 429 */
bool_t BgL_test4223z00_1320;
BgL_test4223z00_1320 = 
NULLP(BgL_ll3173z00_1316); 
if(BgL_test4223z00_1320)
{ /* ./Jvm/compiler.scm 429 */((bool_t)1); }  else 
{ /* ./Jvm/compiler.scm 429 */
{ /* ./Jvm/compiler.scm 430 */
obj_t BgL_ez00_1321;obj_t BgL_tyz00_1322;
BgL_ez00_1321 = 
CAR(BgL_ll3173z00_1316); 
BgL_tyz00_1322 = 
CAR(BgL_ll3174z00_1317); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_ez00_1321), BgL_envz00_56); 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 431 */
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_56, BgL_tyz00_1322); }  else 
{ /* ./Jvm/compiler.scm 431 */BFALSE; } } 
{ /* ./Jvm/compiler.scm 429 */
obj_t BgL_arg4229z00_1323;obj_t BgL_arg4230z00_1324;
BgL_arg4229z00_1323 = 
CDR(BgL_ll3173z00_1316); 
BgL_arg4230z00_1324 = 
CDR(BgL_ll3174z00_1317); 
{ 
obj_t BgL_ll3174z00_3488;obj_t BgL_ll3173z00_3487;
BgL_ll3173z00_3487 = BgL_arg4229z00_1323; 
BgL_ll3174z00_3488 = BgL_arg4230z00_1324; 
BgL_ll3174z00_1317 = BgL_ll3174z00_3488; 
BgL_ll3173z00_1316 = BgL_ll3173z00_3487; 
goto BgL_forzd2each3175zd2_1318;} } } } } } 
{ /* ./Jvm/compiler.scm 434 */
obj_t BgL__ortest_3176z00_1325;
BgL__ortest_3176z00_1325 = 
PROCEDURE_ENTRY(BGl_inlinezd2callzf3z21zzjvm_inlinez00)(BGl_inlinezd2callzf3z21zzjvm_inlinez00, 
(obj_t)(BgL_vz00_1310), 
(obj_t)(BgL_envz00_56), BEOA); 
if(
CBOOL(BgL__ortest_3176z00_1325))
{ /* ./Jvm/compiler.scm 434 */
return BgL__ortest_3176z00_1325;}  else 
{ /* ./Jvm/compiler.scm 434 */
return 
BGl_howzd2tozd2callz00zzjvm_compilerz00(BgL_envz00_56, BgL_vz00_1310, BgL_typesz00_1315);} } } } } } } } } 
}



/* _compiler-app5419 */
obj_t BGl__compilerzd2app5419zd2zzjvm_compilerz00(obj_t BgL_envz00_2537, obj_t BgL_ez00_2538, obj_t BgL_envz00_2539)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 419 */
return 
BGl_compilerzd2appzd2zzjvm_compilerz00(
(BgL_appz00_bglt)(BgL_ez00_2538), 
(BgL_envz00_bglt)(BgL_envz00_2539));} 
}



/* type-args */
obj_t BGl_typezd2argszd2zzjvm_compilerz00(BgL_variablez00_bglt BgL_vz00_57, BgL_envz00_bglt BgL_envz00_58)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 437 */
{ /* ./Jvm/compiler.scm 439 */
obj_t BgL_l3179z00_1330;
{ /* ./Jvm/compiler.scm 440 */
bool_t BgL_test4269z00_1342;
{ /* ./Jvm/compiler.scm 440 */
BgL_valuez00_bglt BgL_arg4279z00_1345;
BgL_arg4279z00_1345 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_57))->BgL_valuez00); 
{ /* ./Jvm/compiler.scm 440 */
obj_t BgL_obj1425z00_2273;
BgL_obj1425z00_2273 = 
(obj_t)(BgL_arg4279z00_1345); 
BgL_test4269z00_1342 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1425z00_2273, BGl_sfunz00zzast_varz00); } } 
if(BgL_test4269z00_1342)
{ /* ./Jvm/compiler.scm 441 */
BgL_sfunz00_bglt BgL_obj1367z00_2275;
{ /* ./Jvm/compiler.scm 441 */
BgL_valuez00_bglt BgL_auxz00_3503;
BgL_auxz00_3503 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_57))->BgL_valuez00); 
BgL_obj1367z00_2275 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3503); } 
BgL_l3179z00_1330 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2275))->BgL_argsz00); }  else 
{ /* ./Jvm/compiler.scm 442 */
BgL_cfunz00_bglt BgL_obj1445z00_2277;
{ /* ./Jvm/compiler.scm 442 */
BgL_valuez00_bglt BgL_auxz00_3507;
BgL_auxz00_3507 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_57))->BgL_valuez00); 
BgL_obj1445z00_2277 = 
(BgL_cfunz00_bglt)(BgL_auxz00_3507); } 
BgL_l3179z00_1330 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1445z00_2277))->BgL_argszd2typezd2); } } 
{ /* ./Jvm/compiler.scm 439 */
bool_t BgL_test4251z00_1331;
BgL_test4251z00_1331 = 
NULLP(BgL_l3179z00_1330); 
if(BgL_test4251z00_1331)
{ /* ./Jvm/compiler.scm 439 */
return BNIL;}  else 
{ /* ./Jvm/compiler.scm 439 */
obj_t BgL_head3181z00_1332;
BgL_head3181z00_1332 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3179z00_1333;obj_t BgL_tail3182z00_1334;
BgL_l3179z00_1333 = BgL_l3179z00_1330; 
BgL_tail3182z00_1334 = BgL_head3181z00_1332; 
BgL_map3180z00_1335:
{ /* ./Jvm/compiler.scm 439 */
bool_t BgL_test4253z00_1336;
BgL_test4253z00_1336 = 
NULLP(BgL_l3179z00_1333); 
if(BgL_test4253z00_1336)
{ /* ./Jvm/compiler.scm 439 */
return 
CDR(BgL_head3181z00_1332);}  else 
{ /* ./Jvm/compiler.scm 439 */
obj_t BgL_newtail3183z00_1337;
{ /* ./Jvm/compiler.scm 439 */
obj_t BgL_arg4261z00_1339;
{ /* ./Jvm/compiler.scm 439 */
obj_t BgL_xz00_1341;
BgL_xz00_1341 = 
CAR(BgL_l3179z00_1333); 
BgL_arg4261z00_1339 = 
BGl_compilezd2typezd2zzjvm_envz00(BgL_xz00_1341, BgL_envz00_58); } 
BgL_newtail3183z00_1337 = 
MAKE_PAIR(BgL_arg4261z00_1339, BNIL); } 
SET_CDR(BgL_tail3182z00_1334, BgL_newtail3183z00_1337); 
{ /* ./Jvm/compiler.scm 439 */
obj_t BgL_arg4257z00_1338;
BgL_arg4257z00_1338 = 
CDR(BgL_l3179z00_1333); 
{ 
obj_t BgL_tail3182z00_3523;obj_t BgL_l3179z00_3522;
BgL_l3179z00_3522 = BgL_arg4257z00_1338; 
BgL_tail3182z00_3523 = BgL_newtail3183z00_1337; 
BgL_tail3182z00_1334 = BgL_tail3182z00_3523; 
BgL_l3179z00_1333 = BgL_l3179z00_3522; 
goto BgL_map3180z00_1335;} } } } } } } } } 
}



/* how-to-call */
obj_t BGl_howzd2tozd2callz00zzjvm_compilerz00(BgL_envz00_bglt BgL_envz00_59, BgL_variablez00_bglt BgL_varz00_60, obj_t BgL_taz00_61)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 444 */
{ /* ./Jvm/compiler.scm 445 */
BgL_valuez00_bglt BgL_funz00_1346;obj_t BgL_targetz00_1347;obj_t BgL_trz00_1348;
BgL_funz00_1346 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_60))->BgL_valuez00); 
BgL_targetz00_1347 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(BgL_envz00_59, 
(BgL_globalz00_bglt)(BgL_varz00_60)); 
{ /* ./Jvm/compiler.scm 447 */
BgL_typez00_bglt BgL_arg4309z00_1358;
BgL_arg4309z00_1358 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_60))->BgL_typez00); 
BgL_trz00_1348 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4309z00_1358), BgL_envz00_59); } 
{ /* ./Jvm/compiler.scm 449 */
bool_t BgL_test4282z00_1349;
{ /* ./Jvm/compiler.scm 449 */
obj_t BgL_obj1489z00_2291;
BgL_obj1489z00_2291 = 
(obj_t)(BgL_funz00_1346); 
BgL_test4282z00_1349 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1489z00_2291, BGl_cfunz00zzast_varz00); } 
if(BgL_test4282z00_1349)
{ /* ./Jvm/compiler.scm 450 */
bool_t BgL_test4283z00_1350;
{ /* ./Jvm/compiler.scm 450 */
obj_t BgL_arg4300z00_1356;
BgL_arg4300z00_1356 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_60))->BgL_namez00); 
BgL_test4283z00_1350 = 
bigloo_strcmp(BgL_arg4300z00_1356, BGl_string5900z00zzjvm_compilerz00); } 
if(BgL_test4283z00_1350)
{ /* ./Jvm/compiler.scm 450 */
return 
BGl__invokespecial_initz00zzjvm_instrz00(BgL_envz00_59, BgL_targetz00_1347, BgL_taz00_61, BgL_trz00_1348);}  else 
{ /* ./Jvm/compiler.scm 450 */
{ /* ./Jvm/compiler.scm 453 */
obj_t BgL_modifiersz00_1351;
{ /* ./Jvm/compiler.scm 453 */
BgL_cfunz00_bglt BgL_obj1450z00_2295;
BgL_obj1450z00_2295 = 
(BgL_cfunz00_bglt)(BgL_funz00_1346); 
BgL_modifiersz00_1351 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1450z00_2295))->BgL_methodz00); } 
{ /* ./Jvm/compiler.scm 455 */
bool_t BgL_test4285z00_1352;
{ /* ./Jvm/compiler.scm 455 */
obj_t BgL_auxz00_3539;
BgL_auxz00_3539 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)42)), BgL_modifiersz00_1351); 
BgL_test4285z00_1352 = 
CBOOL(BgL_auxz00_3539); } 
if(BgL_test4285z00_1352)
{ /* ./Jvm/compiler.scm 455 */
return 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_59, BgL_targetz00_1347, BgL_taz00_61, BgL_trz00_1348);}  else 
{ /* ./Jvm/compiler.scm 456 */
bool_t BgL_test4287z00_1353;
{ /* ./Jvm/compiler.scm 456 */
obj_t BgL_auxz00_3545;
BgL_auxz00_3545 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)43)), BgL_modifiersz00_1351); 
BgL_test4287z00_1353 = 
CBOOL(BgL_auxz00_3545); } 
if(BgL_test4287z00_1353)
{ /* ./Jvm/compiler.scm 456 */
return 
BGl__invokeinterfacez00zzjvm_instrz00(BgL_envz00_59, BgL_targetz00_1347, BgL_taz00_61, BgL_trz00_1348);}  else 
{ /* ./Jvm/compiler.scm 457 */
bool_t BgL_test4289z00_1354;
{ /* ./Jvm/compiler.scm 457 */
obj_t BgL_auxz00_3551;
BgL_auxz00_3551 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)44)), BgL_modifiersz00_1351); 
BgL_test4289z00_1354 = 
CBOOL(BgL_auxz00_3551); } 
if(BgL_test4289z00_1354)
{ /* ./Jvm/compiler.scm 457 */
return 
BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_59, BgL_targetz00_1347, BgL_taz00_61, BgL_trz00_1348);}  else 
{ /* ./Jvm/compiler.scm 458 */
bool_t BgL_test4291z00_1355;
{ /* ./Jvm/compiler.scm 458 */
obj_t BgL_auxz00_3557;
BgL_auxz00_3557 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)45)), BgL_modifiersz00_1351); 
BgL_test4291z00_1355 = 
CBOOL(BgL_auxz00_3557); } 
if(BgL_test4291z00_1355)
{ /* ./Jvm/compiler.scm 458 */
return 
BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_59, BgL_targetz00_1347, BgL_taz00_61, BgL_trz00_1348);}  else 
{ /* ./Jvm/compiler.scm 458 */
return 
BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_59, BgL_targetz00_1347, BgL_taz00_61, BgL_trz00_1348);} } } } } } } }  else 
{ /* ./Jvm/compiler.scm 449 */
return 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_59, BgL_targetz00_1347, BgL_taz00_61, BgL_trz00_1348);} } } } 
}



/* special-call? */
obj_t BGl_specialzd2callzf3z21zzjvm_compilerz00(BgL_variablez00_bglt BgL_varz00_62, obj_t BgL_argsz00_63, BgL_envz00_bglt BgL_envz00_64)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 461 */
{ /* ./Jvm/compiler.scm 465 */
bool_t BgL_test4312z00_1360;
{ /* ./Jvm/compiler.scm 465 */
bool_t BgL_testz00_3565;
{ /* ./Jvm/compiler.scm 465 */
obj_t BgL_auxz00_3568;obj_t BgL_auxz00_3566;
BgL_auxz00_3568 = 
CNST_TABLE_REF(((long)46)); 
BgL_auxz00_3566 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_62))->BgL_idz00); 
BgL_testz00_3565 = 
(BgL_auxz00_3566==BgL_auxz00_3568); } 
if(BgL_testz00_3565)
{ /* ./Jvm/compiler.scm 465 */
BgL_test4312z00_1360 = ((bool_t)1); }  else 
{ /* ./Jvm/compiler.scm 466 */
obj_t BgL_auxz00_3573;obj_t BgL_auxz00_3571;
BgL_auxz00_3573 = 
CNST_TABLE_REF(((long)47)); 
BgL_auxz00_3571 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_62))->BgL_idz00); 
BgL_test4312z00_1360 = 
(BgL_auxz00_3571==BgL_auxz00_3573); } } 
if(BgL_test4312z00_1360)
{ /* ./Jvm/compiler.scm 465 */
{ /* ./Jvm/compiler.scm 468 */
obj_t BgL_arg4314z00_1361;
BgL_arg4314z00_1361 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_64))->BgL_currentzd2modulezd2); 
BGl__newz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4314z00_1361); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 469 */
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)48)), 
CNST_TABLE_REF(((long)30)), 
CNST_TABLE_REF(((long)25))); }  else 
{ /* ./Jvm/compiler.scm 469 */BFALSE; } 
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
{ /* ./Jvm/compiler.scm 473 */
obj_t BgL_arg4321z00_1362;
BgL_arg4321z00_1362 = 
CAR(BgL_argsz00_63); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4321z00_1362), BgL_envz00_64); } 
{ /* ./Jvm/compiler.scm 474 */
obj_t BgL_arg4325z00_1363;
BgL_arg4325z00_1363 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)49))); 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4325z00_1363); } 
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
{ /* ./Jvm/compiler.scm 476 */
obj_t BgL_arg4330z00_1364;
{ /* ./Jvm/compiler.scm 476 */
obj_t BgL_auxz00_3594;
BgL_auxz00_3594 = 
CDR(BgL_argsz00_63); 
BgL_arg4330z00_1364 = 
CAR(BgL_auxz00_3594); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4330z00_1364), BgL_envz00_64); } 
{ /* ./Jvm/compiler.scm 477 */
obj_t BgL_arg4334z00_1365;
BgL_arg4334z00_1365 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)50))); 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4334z00_1365); } 
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
{ /* ./Jvm/compiler.scm 479 */
obj_t BgL_arg4339z00_1366;
{ /* ./Jvm/compiler.scm 479 */
obj_t BgL_auxz00_3603;
{ /* ./Jvm/compiler.scm 479 */
obj_t BgL_auxz00_3604;
BgL_auxz00_3604 = 
CDR(BgL_argsz00_63); 
BgL_auxz00_3603 = 
CDR(BgL_auxz00_3604); } 
BgL_arg4339z00_1366 = 
CAR(BgL_auxz00_3603); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4339z00_1366), BgL_envz00_64); } 
{ /* ./Jvm/compiler.scm 480 */
obj_t BgL_arg4343z00_1367;
BgL_arg4343z00_1367 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)51))); 
BGl__newarrayz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4343z00_1367); } 
{ /* ./Jvm/compiler.scm 481 */
obj_t BgL_arg4347z00_1368;
BgL_arg4347z00_1368 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)52))); 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4347z00_1368); } 
return BTRUE;}  else 
{ /* ./Jvm/compiler.scm 483 */
bool_t BgL_test4350z00_1369;
{ /* ./Jvm/compiler.scm 483 */
obj_t BgL_auxz00_3618;obj_t BgL_auxz00_3616;
BgL_auxz00_3618 = 
CNST_TABLE_REF(((long)53)); 
BgL_auxz00_3616 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_62))->BgL_idz00); 
BgL_test4350z00_1369 = 
(BgL_auxz00_3616==BgL_auxz00_3618); } 
if(BgL_test4350z00_1369)
{ /* ./Jvm/compiler.scm 483 */
{ /* ./Jvm/compiler.scm 485 */
obj_t BgL_arg4352z00_1370;
BgL_arg4352z00_1370 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_64))->BgL_currentzd2modulezd2); 
BGl__newz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4352z00_1370); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 486 */
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)48)), 
CNST_TABLE_REF(((long)30)), 
CNST_TABLE_REF(((long)25))); }  else 
{ /* ./Jvm/compiler.scm 486 */BFALSE; } 
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
{ /* ./Jvm/compiler.scm 490 */
obj_t BgL_arg4359z00_1371;
BgL_arg4359z00_1371 = 
CAR(BgL_argsz00_63); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4359z00_1371), BgL_envz00_64); } 
{ /* ./Jvm/compiler.scm 491 */
obj_t BgL_arg4363z00_1372;
BgL_arg4363z00_1372 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)49))); 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4363z00_1372); } 
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
{ /* ./Jvm/compiler.scm 493 */
obj_t BgL_arg4368z00_1373;
{ /* ./Jvm/compiler.scm 493 */
obj_t BgL_auxz00_3639;
BgL_auxz00_3639 = 
CDR(BgL_argsz00_63); 
BgL_arg4368z00_1373 = 
CAR(BgL_auxz00_3639); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4368z00_1373), BgL_envz00_64); } 
{ /* ./Jvm/compiler.scm 494 */
obj_t BgL_arg4373z00_1374;
BgL_arg4373z00_1374 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)51))); 
BGl__newarrayz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4373z00_1374); } 
{ /* ./Jvm/compiler.scm 495 */
obj_t BgL_arg4377z00_1375;
BgL_arg4377z00_1375 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)52))); 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4377z00_1375); } 
return BTRUE;}  else 
{ /* ./Jvm/compiler.scm 497 */
bool_t BgL_test4380z00_1376;
{ /* ./Jvm/compiler.scm 497 */
obj_t BgL_auxz00_3652;obj_t BgL_auxz00_3650;
BgL_auxz00_3652 = 
CNST_TABLE_REF(((long)54)); 
BgL_auxz00_3650 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_62))->BgL_idz00); 
BgL_test4380z00_1376 = 
(BgL_auxz00_3650==BgL_auxz00_3652); } 
if(BgL_test4380z00_1376)
{ /* ./Jvm/compiler.scm 497 */
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)55))); 
{ /* ./Jvm/compiler.scm 500 */
obj_t BgL_arg4383z00_1377;
BgL_arg4383z00_1377 = 
CAR(BgL_argsz00_63); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4383z00_1377), BgL_envz00_64); } 
return 
BGl__aloadz00zzjvm_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)51)));}  else 
{ /* ./Jvm/compiler.scm 502 */
bool_t BgL_test4387z00_1378;
{ /* ./Jvm/compiler.scm 502 */
obj_t BgL_auxz00_3665;obj_t BgL_auxz00_3663;
BgL_auxz00_3665 = 
CNST_TABLE_REF(((long)56)); 
BgL_auxz00_3663 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_62))->BgL_idz00); 
BgL_test4387z00_1378 = 
(BgL_auxz00_3663==BgL_auxz00_3665); } 
if(BgL_test4387z00_1378)
{ /* ./Jvm/compiler.scm 502 */
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)55))); 
{ /* ./Jvm/compiler.scm 505 */
obj_t BgL_arg4390z00_1379;
BgL_arg4390z00_1379 = 
CAR(BgL_argsz00_63); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4390z00_1379), BgL_envz00_64); } 
{ /* ./Jvm/compiler.scm 506 */
obj_t BgL_arg4394z00_1380;
{ /* ./Jvm/compiler.scm 506 */
obj_t BgL_auxz00_3674;
BgL_auxz00_3674 = 
CDR(BgL_argsz00_63); 
BgL_arg4394z00_1380 = 
CAR(BgL_auxz00_3674); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4394z00_1380), BgL_envz00_64); } 
BGl__astorez00zzjvm_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)51))); 
{ /* ./Jvm/compiler.scm 508 */
obj_t BgL_arg4399z00_1381;
BgL_arg4399z00_1381 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)20))); 
return 
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4399z00_1381);} }  else 
{ /* ./Jvm/compiler.scm 509 */
bool_t BgL_test4402z00_1382;
{ /* ./Jvm/compiler.scm 509 */
obj_t BgL_auxz00_3686;obj_t BgL_auxz00_3684;
BgL_auxz00_3686 = 
CNST_TABLE_REF(((long)57)); 
BgL_auxz00_3684 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_62))->BgL_idz00); 
BgL_test4402z00_1382 = 
(BgL_auxz00_3684==BgL_auxz00_3686); } 
if(BgL_test4402z00_1382)
{ /* ./Jvm/compiler.scm 509 */
{ /* ./Jvm/compiler.scm 511 */
bool_t BgL_test4403z00_1383;
{ /* ./Jvm/compiler.scm 511 */
obj_t BgL_arg4434z00_1394;
BgL_arg4434z00_1394 = 
CAR(BgL_argsz00_63); 
BgL_test4403z00_1383 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg4434z00_1394, BGl_varz00zzast_nodez00); } 
if(BgL_test4403z00_1383)
{ /* ./Jvm/compiler.scm 513 */
BgL_variablez00_bglt BgL_vz00_1384;
{ /* ./Jvm/compiler.scm 513 */
BgL_varz00_bglt BgL_obj1625z00_2329;
{ /* ./Jvm/compiler.scm 513 */
obj_t BgL_auxz00_3693;
BgL_auxz00_3693 = 
CAR(BgL_argsz00_63); 
BgL_obj1625z00_2329 = 
(BgL_varz00_bglt)(BgL_auxz00_3693); } 
BgL_vz00_1384 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2329))->BgL_variablez00); } 
{ /* ./Jvm/compiler.scm 514 */
bool_t BgL_test4404z00_1385;
{ /* ./Jvm/compiler.scm 514 */
obj_t BgL_obj1240z00_2330;
BgL_obj1240z00_2330 = 
(obj_t)(BgL_vz00_1384); 
BgL_test4404z00_1385 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2330, BGl_globalz00zzast_varz00); } 
if(BgL_test4404z00_1385)
{ /* ./Jvm/compiler.scm 515 */
obj_t BgL_iz00_1386;
{ /* ./Jvm/compiler.scm 515 */
obj_t BgL_arg4418z00_1389;
BgL_arg4418z00_1389 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(BgL_envz00_64, 
(BgL_globalz00_bglt)(BgL_vz00_1384)); 
BgL_iz00_1386 = 
BGl_envzd2newzd2getsetz00zzjvm_envz00(BgL_envz00_64, BgL_arg4418z00_1389); } 
{ /* ./Jvm/compiler.scm 516 */
obj_t BgL_arg4406z00_1387;
BgL_arg4406z00_1387 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_64))->BgL_currentzd2modulezd2); 
BGl__newz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4406z00_1387); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 517 */
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)48)), 
CNST_TABLE_REF(((long)30)), 
CNST_TABLE_REF(((long)25))); }  else 
{ /* ./Jvm/compiler.scm 517 */BFALSE; } 
BGl__dupz00zzjvm_instrz00(BgL_envz00_64); 
BGl__pushz00zzjvm_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)9)), BgL_iz00_1386); 
{ /* ./Jvm/compiler.scm 522 */
obj_t BgL_arg4414z00_1388;
BgL_arg4414z00_1388 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)49))); 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_64, BgL_arg4414z00_1388); } 
return BTRUE;}  else 
{ /* ./Jvm/compiler.scm 524 */
obj_t BgL_objectz00_2334;
BgL_objectz00_2334 = 
(obj_t)(BgL_vz00_1384); 
FAILURE(BGl_string5901z00zzjvm_compilerz00,BGl_string5902z00zzjvm_compilerz00,BgL_objectz00_2334);} } }  else 
{ /* ./Jvm/compiler.scm 512 */
obj_t BgL_arg4430z00_1393;
BgL_arg4430z00_1393 = 
CAR(BgL_argsz00_63); 
FAILURE(BGl_string5901z00zzjvm_compilerz00,BGl_string5903z00zzjvm_compilerz00,BgL_arg4430z00_1393);} } }  else 
{ /* ./Jvm/compiler.scm 509 */
return BFALSE;} } } } } } } 
}



/* compiler-apply */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2applyzd2zzjvm_compilerz00(BgL_appzd2lyzd2_bglt BgL_ez00_65, BgL_envz00_bglt BgL_envz00_66)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 528 */
{ /* ./Jvm/compiler.scm 529 */
obj_t BgL_nz00_2341;
BgL_nz00_2341 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_65)); 
if(
CBOOL(BgL_nz00_2341))
{ /* ./Jvm/compiler.scm 529 */
BGl__linez00zzjvm_instrz00(BgL_envz00_66, BgL_nz00_2341); }  else 
{ /* ./Jvm/compiler.scm 529 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 531 */
BgL_nodez00_bglt BgL_arg4471z00_1409;
BgL_arg4471z00_1409 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_ez00_65))->BgL_funz00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4471z00_1409, BgL_envz00_66); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 532 */
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_66, 
CNST_TABLE_REF(((long)58))); }  else 
{ /* ./Jvm/compiler.scm 532 */BFALSE; } 
{ /* ./Jvm/compiler.scm 533 */
BgL_nodez00_bglt BgL_arg4476z00_1410;
BgL_arg4476z00_1410 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_ez00_65))->BgL_argz00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4476z00_1410, BgL_envz00_66); } 
{ /* ./Jvm/compiler.scm 534 */
obj_t BgL_arg4480z00_1411;obj_t BgL_arg4481z00_1412;obj_t BgL_arg4482z00_1413;
BgL_arg4480z00_1411 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_66, 
CNST_TABLE_REF(((long)59))); 
BgL_arg4481z00_1412 = 
CNST_TABLE_REF(((long)60)); 
BgL_arg4482z00_1413 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_66, BgL_arg4480z00_1411, BgL_arg4481z00_1412, BgL_arg4482z00_1413);} } 
}



/* _compiler-apply5421 */
obj_t BGl__compilerzd2apply5421zd2zzjvm_compilerz00(obj_t BgL_envz00_2540, obj_t BgL_ez00_2541, obj_t BgL_envz00_2542)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 528 */
return 
BGl_compilerzd2applyzd2zzjvm_compilerz00(
(BgL_appzd2lyzd2_bglt)(BgL_ez00_2541), 
(BgL_envz00_bglt)(BgL_envz00_2542));} 
}



/* compiler-funcall */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2funcallzd2zzjvm_compilerz00(BgL_funcallz00_bglt BgL_ez00_67, BgL_envz00_bglt BgL_envz00_68)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 537 */
{ /* ./Jvm/compiler.scm 538 */
obj_t BgL_nz00_2346;
BgL_nz00_2346 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_67)); 
if(
CBOOL(BgL_nz00_2346))
{ /* ./Jvm/compiler.scm 538 */
BGl__linez00zzjvm_instrz00(BgL_envz00_68, BgL_nz00_2346); }  else 
{ /* ./Jvm/compiler.scm 538 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 542 */
bool_t BgL_test4486z00_1415;
{ /* ./Jvm/compiler.scm 542 */
bool_t BgL_test4606z00_1469;
{ /* ./Jvm/compiler.scm 542 */
BgL_nodez00_bglt BgL_arg4626z00_1476;
BgL_arg4626z00_1476 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_67))->BgL_funz00); 
{ /* ./Jvm/compiler.scm 542 */
obj_t BgL_obj1640z00_2348;
BgL_obj1640z00_2348 = 
(obj_t)(BgL_arg4626z00_1476); 
BgL_test4606z00_1469 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2348, BGl_varz00zzast_nodez00); } } 
if(BgL_test4606z00_1469)
{ /* ./Jvm/compiler.scm 543 */
bool_t BgL_test4607z00_1470;
{ /* ./Jvm/compiler.scm 543 */
BgL_variablez00_bglt BgL_arg4619z00_1474;
{ /* ./Jvm/compiler.scm 543 */
BgL_varz00_bglt BgL_obj1625z00_2350;
{ /* ./Jvm/compiler.scm 543 */
BgL_nodez00_bglt BgL_auxz00_3754;
BgL_auxz00_3754 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_67))->BgL_funz00); 
BgL_obj1625z00_2350 = 
(BgL_varz00_bglt)(BgL_auxz00_3754); } 
BgL_arg4619z00_1474 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2350))->BgL_variablez00); } 
{ /* ./Jvm/compiler.scm 543 */
obj_t BgL_obj1240z00_2351;
BgL_obj1240z00_2351 = 
(obj_t)(BgL_arg4619z00_1474); 
BgL_test4607z00_1470 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2351, BGl_globalz00zzast_varz00); } } 
if(BgL_test4607z00_1470)
{ /* ./Jvm/compiler.scm 544 */
BgL_valuez00_bglt BgL_arg4609z00_1471;
{ /* ./Jvm/compiler.scm 544 */
BgL_variablez00_bglt BgL_arg4612z00_1472;
{ /* ./Jvm/compiler.scm 544 */
BgL_varz00_bglt BgL_obj1625z00_2353;
{ /* ./Jvm/compiler.scm 544 */
BgL_nodez00_bglt BgL_auxz00_3761;
BgL_auxz00_3761 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_67))->BgL_funz00); 
BgL_obj1625z00_2353 = 
(BgL_varz00_bglt)(BgL_auxz00_3761); } 
BgL_arg4612z00_1472 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2353))->BgL_variablez00); } 
BgL_arg4609z00_1471 = 
(((BgL_variablez00_bglt)CREF(BgL_arg4612z00_1472))->BgL_valuez00); } 
{ /* ./Jvm/compiler.scm 544 */
obj_t BgL_obj1425z00_2355;
BgL_obj1425z00_2355 = 
(obj_t)(BgL_arg4609z00_1471); 
BgL_test4486z00_1415 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1425z00_2355, BGl_sfunz00zzast_varz00); } }  else 
{ /* ./Jvm/compiler.scm 543 */
BgL_test4486z00_1415 = ((bool_t)0); } }  else 
{ /* ./Jvm/compiler.scm 542 */
BgL_test4486z00_1415 = ((bool_t)0); } } 
if(BgL_test4486z00_1415)
{ /* ./Jvm/compiler.scm 545 */
BgL_variablez00_bglt BgL_vz00_1416;
{ /* ./Jvm/compiler.scm 545 */
BgL_varz00_bglt BgL_obj1625z00_2357;
{ /* ./Jvm/compiler.scm 545 */
BgL_nodez00_bglt BgL_auxz00_3769;
BgL_auxz00_3769 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_67))->BgL_funz00); 
BgL_obj1625z00_2357 = 
(BgL_varz00_bglt)(BgL_auxz00_3769); } 
BgL_vz00_1416 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2357))->BgL_variablez00); } 
{ 
obj_t BgL_l3190z00_1417;
{ /* ./Jvm/compiler.scm 547 */
obj_t BgL_arg4488z00_1419;
{ /* ./Jvm/compiler.scm 547 */
obj_t BgL_arg4491z00_1420;
{ /* ./Jvm/compiler.scm 547 */
obj_t BgL_auxz00_3773;
BgL_auxz00_3773 = 
bgl_reverse(
(((BgL_funcallz00_bglt)CREF(BgL_ez00_67))->BgL_argsz00)); 
BgL_arg4491z00_1420 = 
CDR(BgL_auxz00_3773); } 
BgL_arg4488z00_1419 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg4491z00_1420); } 
BgL_l3190z00_1417 = BgL_arg4488z00_1419; 
BgL_forzd2each3191zd2_1418:
{ /* ./Jvm/compiler.scm 546 */
bool_t BgL_test4500z00_1423;
BgL_test4500z00_1423 = 
PAIRP(BgL_l3190z00_1417); 
if(BgL_test4500z00_1423)
{ /* ./Jvm/compiler.scm 546 */
{ /* ./Jvm/compiler.scm 546 */
obj_t BgL_ez00_1424;
BgL_ez00_1424 = 
CAR(BgL_l3190z00_1417); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_ez00_1424), BgL_envz00_68); } 
{ /* ./Jvm/compiler.scm 546 */
obj_t BgL_arg4504z00_1425;
BgL_arg4504z00_1425 = 
CDR(BgL_l3190z00_1417); 
{ 
obj_t BgL_l3190z00_3784;
BgL_l3190z00_3784 = BgL_arg4504z00_1425; 
BgL_l3190z00_1417 = BgL_l3190z00_3784; 
goto BgL_forzd2each3191zd2_1418;} } }  else 
{ /* ./Jvm/compiler.scm 546 */((bool_t)1); } } } } 
{ /* ./Jvm/compiler.scm 548 */
obj_t BgL_arg4509z00_1426;obj_t BgL_arg4510z00_1427;obj_t BgL_arg4511z00_1428;
BgL_arg4509z00_1426 = 
BGl_getzd2globalzd2namez00zzjvm_envz00(BgL_envz00_68, 
(BgL_globalz00_bglt)(BgL_vz00_1416)); 
BgL_arg4510z00_1427 = 
BGl_typezd2argszd2zzjvm_compilerz00(BgL_vz00_1416, BgL_envz00_68); 
{ /* ./Jvm/compiler.scm 550 */
BgL_typez00_bglt BgL_arg4516z00_1429;
BgL_arg4516z00_1429 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1416))->BgL_typez00); 
BgL_arg4511z00_1428 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4516z00_1429), BgL_envz00_68); } 
return 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_68, BgL_arg4509z00_1426, BgL_arg4510z00_1427, BgL_arg4511z00_1428);} }  else 
{ /* ./Jvm/compiler.scm 542 */
{ /* ./Jvm/compiler.scm 552 */
BgL_nodez00_bglt BgL_arg4524z00_1431;
BgL_arg4524z00_1431 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_67))->BgL_funz00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4524z00_1431, BgL_envz00_68); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 553 */
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)58))); }  else 
{ /* ./Jvm/compiler.scm 553 */BFALSE; } 
{ /* ./Jvm/compiler.scm 555 */
obj_t BgL_argsz00_1432;
{ /* ./Jvm/compiler.scm 555 */
obj_t BgL_arg4594z00_1465;
{ /* ./Jvm/compiler.scm 555 */
obj_t BgL_auxz00_3798;
{ /* ./Jvm/compiler.scm 555 */
obj_t BgL_auxz00_3799;
{ /* ./Jvm/compiler.scm 555 */
obj_t BgL_auxz00_3800;
BgL_auxz00_3800 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_67))->BgL_argsz00); 
BgL_auxz00_3799 = 
CDR(BgL_auxz00_3800); } 
BgL_auxz00_3798 = 
bgl_reverse(BgL_auxz00_3799); } 
BgL_arg4594z00_1465 = 
CDR(BgL_auxz00_3798); } 
BgL_argsz00_1432 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg4594z00_1465); } 
{ 
obj_t BgL_l3192z00_1433;
BgL_l3192z00_1433 = BgL_argsz00_1432; 
BgL_forzd2each3193zd2_1434:
{ /* ./Jvm/compiler.scm 556 */
bool_t BgL_test4529z00_1435;
BgL_test4529z00_1435 = 
PAIRP(BgL_l3192z00_1433); 
if(BgL_test4529z00_1435)
{ /* ./Jvm/compiler.scm 556 */
{ /* ./Jvm/compiler.scm 556 */
obj_t BgL_ez00_1436;
BgL_ez00_1436 = 
CAR(BgL_l3192z00_1433); 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_ez00_1436), BgL_envz00_68); } 
{ /* ./Jvm/compiler.scm 556 */
obj_t BgL_arg4533z00_1437;
BgL_arg4533z00_1437 = 
CDR(BgL_l3192z00_1433); 
{ 
obj_t BgL_l3192z00_3812;
BgL_l3192z00_3812 = BgL_arg4533z00_1437; 
BgL_l3192z00_1433 = BgL_l3192z00_3812; 
goto BgL_forzd2each3193zd2_1434;} } }  else 
{ /* ./Jvm/compiler.scm 556 */((bool_t)1); } } } 
{ 

{ /* ./Jvm/compiler.scm 557 */
long BgL_aux3197z00_1439;
BgL_aux3197z00_1439 = 
bgl_list_length(BgL_argsz00_1432); 
switch( BgL_aux3197z00_1439) { case ((long)0) : 

{ /* ./Jvm/compiler.scm 558 */
obj_t BgL_arg4539z00_1441;obj_t BgL_arg4540z00_1442;obj_t BgL_arg4541z00_1443;
BgL_arg4539z00_1441 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)62))); 
BgL_arg4540z00_1442 = 
CNST_TABLE_REF(((long)30)); 
BgL_arg4541z00_1443 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_68, BgL_arg4539z00_1441, BgL_arg4540z00_1442, BgL_arg4541z00_1443);} break;case ((long)1) : 

{ /* ./Jvm/compiler.scm 560 */
obj_t BgL_arg4545z00_1444;obj_t BgL_arg4546z00_1445;obj_t BgL_arg4547z00_1446;
BgL_arg4545z00_1444 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)63))); 
BgL_arg4546z00_1445 = 
CNST_TABLE_REF(((long)60)); 
BgL_arg4547z00_1446 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_68, BgL_arg4545z00_1444, BgL_arg4546z00_1445, BgL_arg4547z00_1446);} break;case ((long)2) : 

{ /* ./Jvm/compiler.scm 562 */
obj_t BgL_arg4551z00_1447;obj_t BgL_arg4552z00_1448;obj_t BgL_arg4553z00_1449;
BgL_arg4551z00_1447 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)64))); 
BgL_arg4552z00_1448 = 
CNST_TABLE_REF(((long)65)); 
BgL_arg4553z00_1449 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_68, BgL_arg4551z00_1447, BgL_arg4552z00_1448, BgL_arg4553z00_1449);} break;case ((long)3) : 

{ /* ./Jvm/compiler.scm 564 */
obj_t BgL_arg4558z00_1450;obj_t BgL_arg4559z00_1451;obj_t BgL_arg4560z00_1452;
BgL_arg4558z00_1450 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)66))); 
BgL_arg4559z00_1451 = 
CNST_TABLE_REF(((long)67)); 
BgL_arg4560z00_1452 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_68, BgL_arg4558z00_1450, BgL_arg4559z00_1451, BgL_arg4560z00_1452);} break;case ((long)4) : 

{ /* ./Jvm/compiler.scm 566 */
obj_t BgL_arg4564z00_1453;obj_t BgL_arg4565z00_1454;obj_t BgL_arg4566z00_1455;
BgL_arg4564z00_1453 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)68))); 
BgL_arg4565z00_1454 = 
CNST_TABLE_REF(((long)69)); 
BgL_arg4566z00_1455 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_68, BgL_arg4564z00_1453, BgL_arg4565z00_1454, BgL_arg4566z00_1455);} break;
default: 
{ /* ./Jvm/compiler.scm 569 */
obj_t BgL_arg4574z00_1456;
BgL_arg4574z00_1456 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)7))); 
BGl__getstaticz00zzjvm_instrz00(BgL_envz00_68, BgL_arg4574z00_1456); } 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)61))); 
{ 
obj_t BgL_l3194z00_1457;
BgL_l3194z00_1457 = BgL_argsz00_1432; 
BgL_forzd2each3195zd2_1458:
{ /* ./Jvm/compiler.scm 571 */
bool_t BgL_test4579z00_1459;
BgL_test4579z00_1459 = 
PAIRP(BgL_l3194z00_1457); 
if(BgL_test4579z00_1459)
{ /* ./Jvm/compiler.scm 571 */
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)61)), 
CNST_TABLE_REF(((long)60)), 
CNST_TABLE_REF(((long)31))); 
{ /* ./Jvm/compiler.scm 571 */
obj_t BgL_arg4583z00_1461;
BgL_arg4583z00_1461 = 
CDR(BgL_l3194z00_1457); 
{ 
obj_t BgL_l3194z00_3851;
BgL_l3194z00_3851 = BgL_arg4583z00_1461; 
BgL_l3194z00_1457 = BgL_l3194z00_3851; 
goto BgL_forzd2each3195zd2_1458;} } }  else 
{ /* ./Jvm/compiler.scm 571 */((bool_t)1); } } } 
{ /* ./Jvm/compiler.scm 574 */
obj_t BgL_arg4588z00_1462;obj_t BgL_arg4589z00_1463;obj_t BgL_arg4590z00_1464;
BgL_arg4588z00_1462 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_68, 
CNST_TABLE_REF(((long)59))); 
BgL_arg4589z00_1463 = 
CNST_TABLE_REF(((long)60)); 
BgL_arg4590z00_1464 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokevirtualz00zzjvm_instrz00(BgL_envz00_68, BgL_arg4588z00_1462, BgL_arg4589z00_1463, BgL_arg4590z00_1464);} } } } } } } } 
}



/* _compiler-funcall5423 */
obj_t BGl__compilerzd2funcall5423zd2zzjvm_compilerz00(obj_t BgL_envz00_2543, obj_t BgL_ez00_2544, obj_t BgL_envz00_2545)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 537 */
return 
BGl_compilerzd2funcallzd2zzjvm_compilerz00(
(BgL_funcallz00_bglt)(BgL_ez00_2544), 
(BgL_envz00_bglt)(BgL_envz00_2545));} 
}



/* compiler-pragma */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2pragmazd2zzjvm_compilerz00(BgL_pragmaz00_bglt BgL_ez00_69, BgL_envz00_bglt BgL_envz00_70)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 578 */
{ /* ./Jvm/compiler.scm 579 */
obj_t BgL_nz00_2376;
BgL_nz00_2376 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_69)); 
if(
CBOOL(BgL_nz00_2376))
{ /* ./Jvm/compiler.scm 579 */
BGl__linez00zzjvm_instrz00(BgL_envz00_70, BgL_nz00_2376); }  else 
{ /* ./Jvm/compiler.scm 579 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 582 */
bool_t BgL_test4630z00_1478;
BgL_test4630z00_1478 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(
(((BgL_pragmaz00_bglt)CREF(BgL_ez00_69))->BgL_formatz00), BGl_string5904z00zzjvm_compilerz00); 
if(BgL_test4630z00_1478)
{ /* ./Jvm/compiler.scm 582 */
{ /* ./Jvm/compiler.scm 583 */
obj_t BgL_arg4632z00_1479;obj_t BgL_arg4634z00_1481;
BgL_arg4632z00_1479 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_70, 
CNST_TABLE_REF(((long)70))); 
if(
CBOOL(BGl_za2longislongza2z00zzjvm_envz00))
{ /* ./Jvm/compiler.scm 584 */
BgL_arg4634z00_1481 = 
CNST_TABLE_REF(((long)37)); }  else 
{ /* ./Jvm/compiler.scm 584 */
BgL_arg4634z00_1481 = 
CNST_TABLE_REF(((long)9)); } 
return 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_70, BgL_arg4632z00_1479, BNIL, BgL_arg4634z00_1481);} }  else 
{ /* ./Jvm/compiler.scm 582 */
{ /* ./Jvm/compiler.scm 586 */
obj_t BgL_arg4640z00_1484;
{ /* ./Jvm/compiler.scm 586 */
obj_t BgL_arg4643z00_1485;obj_t BgL_arg4644z00_1486;
BgL_arg4643z00_1485 = 
(((BgL_pragmaz00_bglt)CREF(BgL_ez00_69))->BgL_formatz00); 
{ /* ./Jvm/compiler.scm 586 */
BgL_externz00_bglt BgL_obj1817z00_2379;
BgL_obj1817z00_2379 = 
(BgL_externz00_bglt)(BgL_ez00_69); 
BgL_arg4644z00_1486 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2379))->BgL_exprza2za2); } 
BgL_arg4640z00_1484 = 
MAKE_PAIR(BgL_arg4643z00_1485, BgL_arg4644z00_1486); } 
FAILURE(BGl_string5905z00zzjvm_compilerz00,BGl_string5906z00zzjvm_compilerz00,BgL_arg4640z00_1484);} } } } 
}



/* _compiler-pragma5425 */
obj_t BGl__compilerzd2pragma5425zd2zzjvm_compilerz00(obj_t BgL_envz00_2546, obj_t BgL_ez00_2547, obj_t BgL_envz00_2548)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 578 */
return 
BGl_compilerzd2pragmazd2zzjvm_compilerz00(
(BgL_pragmaz00_bglt)(BgL_ez00_2547), 
(BgL_envz00_bglt)(BgL_envz00_2548));} 
}



/* compiler-getfield */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2getfieldzd2zzjvm_compilerz00(BgL_getfieldz00_bglt BgL_ez00_71, BgL_envz00_bglt BgL_envz00_72)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 589 */
{ /* ./Jvm/compiler.scm 590 */
obj_t BgL_nz00_2385;
BgL_nz00_2385 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_71)); 
if(
CBOOL(BgL_nz00_2385))
{ /* ./Jvm/compiler.scm 590 */
BGl__linez00zzjvm_instrz00(BgL_envz00_72, BgL_nz00_2385); }  else 
{ /* ./Jvm/compiler.scm 590 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 592 */
obj_t BgL_arg4655z00_1490;
{ /* ./Jvm/compiler.scm 592 */
obj_t BgL_auxz00_3891;
{ /* ./Jvm/compiler.scm 592 */
BgL_externz00_bglt BgL_obj1817z00_2386;
BgL_obj1817z00_2386 = 
(BgL_externz00_bglt)(BgL_ez00_71); 
BgL_auxz00_3891 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2386))->BgL_exprza2za2); } 
BgL_arg4655z00_1490 = 
CAR(BgL_auxz00_3891); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4655z00_1490), BgL_envz00_72); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 593 */
obj_t BgL_arg4662z00_1492;
{ /* ./Jvm/compiler.scm 593 */
BgL_typez00_bglt BgL_arg4665z00_1493;
BgL_arg4665z00_1493 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_71))->BgL_otypez00); 
BgL_arg4662z00_1492 = 
BGl_compilezd2typezd2nowideningz00zzjvm_envz00(
(obj_t)(BgL_arg4665z00_1493), BgL_envz00_72); } 
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_72, BgL_arg4662z00_1492); }  else 
{ /* ./Jvm/compiler.scm 593 */BFALSE; } 
{ /* ./Jvm/compiler.scm 595 */
obj_t BgL_arg4669z00_1494;obj_t BgL_arg4670z00_1495;
{ /* ./Jvm/compiler.scm 595 */
BgL_typez00_bglt BgL_arg4673z00_1496;
BgL_arg4673z00_1496 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_71))->BgL_ftypez00); 
BgL_arg4669z00_1494 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4673z00_1496), BgL_envz00_72); } 
{ /* ./Jvm/compiler.scm 596 */
obj_t BgL_arg4677z00_1497;obj_t BgL_arg4678z00_1498;obj_t BgL_arg4679z00_1499;
BgL_arg4677z00_1497 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_71))->BgL_fnamez00); 
{ /* ./Jvm/compiler.scm 598 */
BgL_typez00_bglt BgL_arg4683z00_1500;
BgL_arg4683z00_1500 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_71))->BgL_ftypez00); 
BgL_arg4678z00_1498 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4683z00_1500), BgL_envz00_72); } 
{ /* ./Jvm/compiler.scm 599 */
BgL_typez00_bglt BgL_arg4687z00_1501;
BgL_arg4687z00_1501 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_71))->BgL_otypez00); 
BgL_arg4679z00_1499 = 
BGl_compilezd2typezd2nowideningz00zzjvm_envz00(
(obj_t)(BgL_arg4687z00_1501), BgL_envz00_72); } 
BgL_arg4670z00_1495 = 
BGl_envzd2declarezd2fieldz00zzjvm_envz00(
(obj_t)(BgL_envz00_72), BgL_arg4677z00_1497, BgL_arg4678z00_1498, BgL_arg4679z00_1499); } 
return 
BGl__getfieldz00zzjvm_instrz00(BgL_envz00_72, BgL_arg4669z00_1494, BgL_arg4670z00_1495);} } 
}



/* _compiler-getfield5427 */
obj_t BGl__compilerzd2getfield5427zd2zzjvm_compilerz00(obj_t BgL_envz00_2549, obj_t BgL_ez00_2550, obj_t BgL_envz00_2551)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 589 */
return 
BGl_compilerzd2getfieldzd2zzjvm_compilerz00(
(BgL_getfieldz00_bglt)(BgL_ez00_2550), 
(BgL_envz00_bglt)(BgL_envz00_2551));} 
}



/* compiler-setfield */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2setfieldzd2zzjvm_compilerz00(BgL_setfieldz00_bglt BgL_ez00_73, BgL_envz00_bglt BgL_envz00_74)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 602 */
{ /* ./Jvm/compiler.scm 603 */
obj_t BgL_nz00_2395;
BgL_nz00_2395 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_73)); 
if(
CBOOL(BgL_nz00_2395))
{ /* ./Jvm/compiler.scm 603 */
BGl__linez00zzjvm_instrz00(BgL_envz00_74, BgL_nz00_2395); }  else 
{ /* ./Jvm/compiler.scm 603 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 605 */
obj_t BgL_arg4692z00_1503;
{ /* ./Jvm/compiler.scm 605 */
obj_t BgL_auxz00_3925;
{ /* ./Jvm/compiler.scm 605 */
BgL_externz00_bglt BgL_obj1817z00_2396;
BgL_obj1817z00_2396 = 
(BgL_externz00_bglt)(BgL_ez00_73); 
BgL_auxz00_3925 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2396))->BgL_exprza2za2); } 
BgL_arg4692z00_1503 = 
CAR(BgL_auxz00_3925); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4692z00_1503), BgL_envz00_74); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 606 */
obj_t BgL_arg4699z00_1505;
{ /* ./Jvm/compiler.scm 606 */
BgL_typez00_bglt BgL_arg4702z00_1506;
BgL_arg4702z00_1506 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_73))->BgL_otypez00); 
BgL_arg4699z00_1505 = 
BGl_compilezd2typezd2nowideningz00zzjvm_envz00(
(obj_t)(BgL_arg4702z00_1506), BgL_envz00_74); } 
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_74, BgL_arg4699z00_1505); }  else 
{ /* ./Jvm/compiler.scm 606 */BFALSE; } 
{ /* ./Jvm/compiler.scm 607 */
obj_t BgL_arg4706z00_1507;
{ /* ./Jvm/compiler.scm 607 */
obj_t BgL_auxz00_3937;
{ /* ./Jvm/compiler.scm 607 */
obj_t BgL_auxz00_3938;
{ /* ./Jvm/compiler.scm 607 */
BgL_externz00_bglt BgL_obj1817z00_2399;
BgL_obj1817z00_2399 = 
(BgL_externz00_bglt)(BgL_ez00_73); 
BgL_auxz00_3938 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2399))->BgL_exprza2za2); } 
BgL_auxz00_3937 = 
CDR(BgL_auxz00_3938); } 
BgL_arg4706z00_1507 = 
CAR(BgL_auxz00_3937); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4706z00_1507), BgL_envz00_74); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 608 */
obj_t BgL_arg4713z00_1509;
{ /* ./Jvm/compiler.scm 608 */
BgL_typez00_bglt BgL_arg4716z00_1510;
BgL_arg4716z00_1510 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_73))->BgL_ftypez00); 
BgL_arg4713z00_1509 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4716z00_1510), BgL_envz00_74); } 
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_74, BgL_arg4713z00_1509); }  else 
{ /* ./Jvm/compiler.scm 608 */BFALSE; } 
{ /* ./Jvm/compiler.scm 609 */
obj_t BgL_arg4720z00_1511;
{ /* ./Jvm/compiler.scm 609 */
obj_t BgL_arg4723z00_1512;obj_t BgL_arg4724z00_1513;obj_t BgL_arg4725z00_1514;
BgL_arg4723z00_1512 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_73))->BgL_fnamez00); 
{ /* ./Jvm/compiler.scm 610 */
BgL_typez00_bglt BgL_arg4729z00_1515;
BgL_arg4729z00_1515 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_73))->BgL_ftypez00); 
BgL_arg4724z00_1513 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4729z00_1515), BgL_envz00_74); } 
{ /* ./Jvm/compiler.scm 611 */
BgL_typez00_bglt BgL_arg4733z00_1516;
BgL_arg4733z00_1516 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_73))->BgL_otypez00); 
BgL_arg4725z00_1514 = 
BGl_compilezd2typezd2nowideningz00zzjvm_envz00(
(obj_t)(BgL_arg4733z00_1516), BgL_envz00_74); } 
BgL_arg4720z00_1511 = 
BGl_envzd2declarezd2fieldz00zzjvm_envz00(
(obj_t)(BgL_envz00_74), BgL_arg4723z00_1512, BgL_arg4724z00_1513, BgL_arg4725z00_1514); } 
return 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_74, BgL_arg4720z00_1511);} } 
}



/* _compiler-setfield5429 */
obj_t BGl__compilerzd2setfield5429zd2zzjvm_compilerz00(obj_t BgL_envz00_2552, obj_t BgL_ez00_2553, obj_t BgL_envz00_2554)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 602 */
return 
BGl_compilerzd2setfieldzd2zzjvm_compilerz00(
(BgL_setfieldz00_bglt)(BgL_ez00_2553), 
(BgL_envz00_bglt)(BgL_envz00_2554));} 
}



/* compiler-new */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2newzd2zzjvm_compilerz00(BgL_newz00_bglt BgL_ez00_75, BgL_envz00_bglt BgL_envz00_76)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 614 */
{ /* ./Jvm/compiler.scm 615 */
obj_t BgL_nz00_2410;
BgL_nz00_2410 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_75)); 
if(
CBOOL(BgL_nz00_2410))
{ /* ./Jvm/compiler.scm 615 */
BGl__linez00zzjvm_instrz00(BgL_envz00_76, BgL_nz00_2410); }  else 
{ /* ./Jvm/compiler.scm 615 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 616 */
obj_t BgL_typez00_1517;
{ /* ./Jvm/compiler.scm 616 */
BgL_typez00_bglt BgL_arg4752z00_1525;
BgL_arg4752z00_1525 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_75)); 
BgL_typez00_1517 = 
BGl_compilezd2typezd2nowideningz00zzjvm_envz00(
(obj_t)(BgL_arg4752z00_1525), BgL_envz00_76); } 
BGl__newz00zzjvm_instrz00(BgL_envz00_76, BgL_typez00_1517); 
{ /* ./Jvm/compiler.scm 619 */
bool_t BgL_test4738z00_1519;
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 619 */
bool_t BgL_test4746z00_1523;
{ /* ./Jvm/compiler.scm 619 */
BgL_typez00_bglt BgL_arg4748z00_1524;
BgL_arg4748z00_1524 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_75)); 
{ /* ./Jvm/compiler.scm 619 */
obj_t BgL_obj2798z00_2412;
BgL_obj2798z00_2412 = 
(obj_t)(BgL_arg4748z00_1524); 
BgL_test4746z00_1523 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2798z00_2412, BGl_jclassz00zzobject_classz00); } } 
if(BgL_test4746z00_1523)
{ /* ./Jvm/compiler.scm 619 */
BgL_test4738z00_1519 = ((bool_t)0); }  else 
{ /* ./Jvm/compiler.scm 619 */
BgL_test4738z00_1519 = ((bool_t)1); } }  else 
{ /* ./Jvm/compiler.scm 619 */
BgL_test4738z00_1519 = ((bool_t)0); } 
if(BgL_test4738z00_1519)
{ /* ./Jvm/compiler.scm 619 */
BGl__dupz00zzjvm_instrz00(BgL_envz00_76); 
{ /* ./Jvm/compiler.scm 622 */
obj_t BgL_arg4741z00_1520;obj_t BgL_arg4742z00_1521;obj_t BgL_arg4743z00_1522;
BgL_arg4741z00_1520 = 
BGl_envzd2declarezd2initz00zzjvm_envz00(
(obj_t)(BgL_envz00_76), BgL_typez00_1517); 
BgL_arg4742z00_1521 = 
CNST_TABLE_REF(((long)30)); 
BgL_arg4743z00_1522 = 
CNST_TABLE_REF(((long)25)); 
return 
BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_76, BgL_arg4741z00_1520, BgL_arg4742z00_1521, BgL_arg4743z00_1522);} }  else 
{ /* ./Jvm/compiler.scm 619 */
return BFALSE;} } } } 
}



/* _compiler-new5431 */
obj_t BGl__compilerzd2new5431zd2zzjvm_compilerz00(obj_t BgL_envz00_2555, obj_t BgL_ez00_2556, obj_t BgL_envz00_2557)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 614 */
return 
BGl_compilerzd2newzd2zzjvm_compilerz00(
(BgL_newz00_bglt)(BgL_ez00_2556), 
(BgL_envz00_bglt)(BgL_envz00_2557));} 
}



/* compiler-valloc */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2valloczd2zzjvm_compilerz00(BgL_vallocz00_bglt BgL_ez00_77, BgL_envz00_bglt BgL_envz00_78)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 625 */
{ /* ./Jvm/compiler.scm 626 */
obj_t BgL_nz00_2415;
BgL_nz00_2415 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_77)); 
if(
CBOOL(BgL_nz00_2415))
{ /* ./Jvm/compiler.scm 626 */
BGl__linez00zzjvm_instrz00(BgL_envz00_78, BgL_nz00_2415); }  else 
{ /* ./Jvm/compiler.scm 626 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 628 */
obj_t BgL_arg4758z00_1527;
{ /* ./Jvm/compiler.scm 628 */
obj_t BgL_auxz00_3998;
{ /* ./Jvm/compiler.scm 628 */
BgL_externz00_bglt BgL_obj1817z00_2416;
BgL_obj1817z00_2416 = 
(BgL_externz00_bglt)(BgL_ez00_77); 
BgL_auxz00_3998 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2416))->BgL_exprza2za2); } 
BgL_arg4758z00_1527 = 
CAR(BgL_auxz00_3998); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4758z00_1527), BgL_envz00_78); } 
{ /* ./Jvm/compiler.scm 629 */
obj_t BgL_arg4765z00_1529;
{ /* ./Jvm/compiler.scm 629 */
BgL_typez00_bglt BgL_arg4768z00_1530;
BgL_arg4768z00_1530 = 
(((BgL_vallocz00_bglt)CREF(BgL_ez00_77))->BgL_ftypez00); 
BgL_arg4765z00_1529 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4768z00_1530), BgL_envz00_78); } 
return 
BGl__newarrayz00zzjvm_instrz00(BgL_envz00_78, BgL_arg4765z00_1529);} } 
}



/* _compiler-valloc5433 */
obj_t BGl__compilerzd2valloc5433zd2zzjvm_compilerz00(obj_t BgL_envz00_2558, obj_t BgL_ez00_2559, obj_t BgL_envz00_2560)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 625 */
return 
BGl_compilerzd2valloczd2zzjvm_compilerz00(
(BgL_vallocz00_bglt)(BgL_ez00_2559), 
(BgL_envz00_bglt)(BgL_envz00_2560));} 
}



/* compiler-vref */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2vrefzd2zzjvm_compilerz00(BgL_vrefz00_bglt BgL_ez00_79, BgL_envz00_bglt BgL_envz00_80)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 632 */
{ /* ./Jvm/compiler.scm 633 */
obj_t BgL_nz00_2421;
BgL_nz00_2421 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_79)); 
if(
CBOOL(BgL_nz00_2421))
{ /* ./Jvm/compiler.scm 633 */
BGl__linez00zzjvm_instrz00(BgL_envz00_80, BgL_nz00_2421); }  else 
{ /* ./Jvm/compiler.scm 633 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 635 */
obj_t BgL_typez00_1532;
{ /* ./Jvm/compiler.scm 635 */
BgL_typez00_bglt BgL_arg4796z00_1540;
BgL_arg4796z00_1540 = 
(((BgL_vrefz00_bglt)CREF(BgL_ez00_79))->BgL_ftypez00); 
BgL_typez00_1532 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4796z00_1540), BgL_envz00_80); } 
{ /* ./Jvm/compiler.scm 636 */
obj_t BgL_arg4773z00_1533;
{ /* ./Jvm/compiler.scm 636 */
obj_t BgL_auxz00_4020;
{ /* ./Jvm/compiler.scm 636 */
BgL_externz00_bglt BgL_obj1817z00_2423;
BgL_obj1817z00_2423 = 
(BgL_externz00_bglt)(BgL_ez00_79); 
BgL_auxz00_4020 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2423))->BgL_exprza2za2); } 
BgL_arg4773z00_1533 = 
CAR(BgL_auxz00_4020); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4773z00_1533), BgL_envz00_80); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 637 */
obj_t BgL_arg4780z00_1535;
{ /* ./Jvm/compiler.scm 637 */
obj_t BgL_arg4783z00_1536;obj_t BgL_arg4784z00_1537;
BgL_arg4783z00_1536 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg4784z00_1537 = 
MAKE_PAIR(BgL_typez00_1532, BNIL); 
BgL_arg4780z00_1535 = 
MAKE_PAIR(BgL_arg4783z00_1536, BgL_arg4784z00_1537); } 
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_80, BgL_arg4780z00_1535); }  else 
{ /* ./Jvm/compiler.scm 637 */BFALSE; } 
{ /* ./Jvm/compiler.scm 638 */
obj_t BgL_arg4788z00_1538;
{ /* ./Jvm/compiler.scm 638 */
obj_t BgL_auxz00_4032;
{ /* ./Jvm/compiler.scm 638 */
obj_t BgL_auxz00_4033;
{ /* ./Jvm/compiler.scm 638 */
BgL_externz00_bglt BgL_obj1817z00_2425;
BgL_obj1817z00_2425 = 
(BgL_externz00_bglt)(BgL_ez00_79); 
BgL_auxz00_4033 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2425))->BgL_exprza2za2); } 
BgL_auxz00_4032 = 
CDR(BgL_auxz00_4033); } 
BgL_arg4788z00_1538 = 
CAR(BgL_auxz00_4032); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4788z00_1538), BgL_envz00_80); } 
return 
BGl__aloadz00zzjvm_instrz00(BgL_envz00_80, BgL_typez00_1532);} } 
}



/* _compiler-vref5435 */
obj_t BGl__compilerzd2vref5435zd2zzjvm_compilerz00(obj_t BgL_envz00_2561, obj_t BgL_ez00_2562, obj_t BgL_envz00_2563)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 632 */
return 
BGl_compilerzd2vrefzd2zzjvm_compilerz00(
(BgL_vrefz00_bglt)(BgL_ez00_2562), 
(BgL_envz00_bglt)(BgL_envz00_2563));} 
}



/* compiler-vset */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2vsetzd2zzjvm_compilerz00(BgL_vsetz12z12_bglt BgL_ez00_81, BgL_envz00_bglt BgL_envz00_82)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 642 */
{ /* ./Jvm/compiler.scm 643 */
obj_t BgL_nz00_2432;
BgL_nz00_2432 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_81)); 
if(
CBOOL(BgL_nz00_2432))
{ /* ./Jvm/compiler.scm 643 */
BGl__linez00zzjvm_instrz00(BgL_envz00_82, BgL_nz00_2432); }  else 
{ /* ./Jvm/compiler.scm 643 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 645 */
obj_t BgL_typez00_1542;
{ /* ./Jvm/compiler.scm 645 */
BgL_typez00_bglt BgL_arg4832z00_1552;
BgL_arg4832z00_1552 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_ez00_81))->BgL_ftypez00); 
BgL_typez00_1542 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4832z00_1552), BgL_envz00_82); } 
{ /* ./Jvm/compiler.scm 646 */
obj_t BgL_arg4801z00_1543;
{ /* ./Jvm/compiler.scm 646 */
obj_t BgL_auxz00_4053;
{ /* ./Jvm/compiler.scm 646 */
BgL_externz00_bglt BgL_obj1817z00_2434;
BgL_obj1817z00_2434 = 
(BgL_externz00_bglt)(BgL_ez00_81); 
BgL_auxz00_4053 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2434))->BgL_exprza2za2); } 
BgL_arg4801z00_1543 = 
CAR(BgL_auxz00_4053); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4801z00_1543), BgL_envz00_82); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 647 */
obj_t BgL_arg4808z00_1545;
{ /* ./Jvm/compiler.scm 647 */
obj_t BgL_arg4811z00_1546;obj_t BgL_arg4812z00_1547;
BgL_arg4811z00_1546 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg4812z00_1547 = 
MAKE_PAIR(BgL_typez00_1542, BNIL); 
BgL_arg4808z00_1545 = 
MAKE_PAIR(BgL_arg4811z00_1546, BgL_arg4812z00_1547); } 
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_82, BgL_arg4808z00_1545); }  else 
{ /* ./Jvm/compiler.scm 647 */BFALSE; } 
{ /* ./Jvm/compiler.scm 648 */
obj_t BgL_arg4816z00_1548;
{ /* ./Jvm/compiler.scm 648 */
obj_t BgL_auxz00_4065;
{ /* ./Jvm/compiler.scm 648 */
obj_t BgL_auxz00_4066;
{ /* ./Jvm/compiler.scm 648 */
BgL_externz00_bglt BgL_obj1817z00_2436;
BgL_obj1817z00_2436 = 
(BgL_externz00_bglt)(BgL_ez00_81); 
BgL_auxz00_4066 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2436))->BgL_exprza2za2); } 
BgL_auxz00_4065 = 
CDR(BgL_auxz00_4066); } 
BgL_arg4816z00_1548 = 
CAR(BgL_auxz00_4065); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4816z00_1548), BgL_envz00_82); } 
{ /* ./Jvm/compiler.scm 649 */
obj_t BgL_arg4823z00_1550;
{ /* ./Jvm/compiler.scm 649 */
obj_t BgL_auxz00_4073;
{ /* ./Jvm/compiler.scm 649 */
obj_t BgL_auxz00_4074;
{ /* ./Jvm/compiler.scm 649 */
obj_t BgL_auxz00_4075;
{ /* ./Jvm/compiler.scm 649 */
BgL_externz00_bglt BgL_obj1817z00_2441;
BgL_obj1817z00_2441 = 
(BgL_externz00_bglt)(BgL_ez00_81); 
BgL_auxz00_4075 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2441))->BgL_exprza2za2); } 
BgL_auxz00_4074 = 
CDR(BgL_auxz00_4075); } 
BgL_auxz00_4073 = 
CDR(BgL_auxz00_4074); } 
BgL_arg4823z00_1550 = 
CAR(BgL_auxz00_4073); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4823z00_1550), BgL_envz00_82); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 650 */
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_82, BgL_typez00_1542); }  else 
{ /* ./Jvm/compiler.scm 650 */BFALSE; } 
return 
BGl__astorez00zzjvm_instrz00(BgL_envz00_82, BgL_typez00_1542);} } 
}



/* _compiler-vset5437 */
obj_t BGl__compilerzd2vset5437zd2zzjvm_compilerz00(obj_t BgL_envz00_2564, obj_t BgL_ez00_2565, obj_t BgL_envz00_2566)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 642 */
return 
BGl_compilerzd2vsetzd2zzjvm_compilerz00(
(BgL_vsetz12z12_bglt)(BgL_ez00_2565), 
(BgL_envz00_bglt)(BgL_envz00_2566));} 
}



/* compiler-vlength */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2vlengthzd2zzjvm_compilerz00(BgL_vlengthz00_bglt BgL_ez00_83, BgL_envz00_bglt BgL_envz00_84)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 654 */
{ /* ./Jvm/compiler.scm 655 */
obj_t BgL_nz00_2450;
BgL_nz00_2450 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_83)); 
if(
CBOOL(BgL_nz00_2450))
{ /* ./Jvm/compiler.scm 655 */
BGl__linez00zzjvm_instrz00(BgL_envz00_84, BgL_nz00_2450); }  else 
{ /* ./Jvm/compiler.scm 655 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 657 */
obj_t BgL_arg4837z00_1554;
{ /* ./Jvm/compiler.scm 657 */
obj_t BgL_auxz00_4096;
{ /* ./Jvm/compiler.scm 657 */
BgL_externz00_bglt BgL_obj1817z00_2451;
BgL_obj1817z00_2451 = 
(BgL_externz00_bglt)(BgL_ez00_83); 
BgL_auxz00_4096 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2451))->BgL_exprza2za2); } 
BgL_arg4837z00_1554 = 
CAR(BgL_auxz00_4096); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4837z00_1554), BgL_envz00_84); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 658 */
obj_t BgL_arg4844z00_1556;
{ /* ./Jvm/compiler.scm 658 */
BgL_typez00_bglt BgL_arg4847z00_1557;
BgL_arg4847z00_1557 = 
(((BgL_vlengthz00_bglt)CREF(BgL_ez00_83))->BgL_vtypez00); 
BgL_arg4844z00_1556 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4847z00_1557), BgL_envz00_84); } 
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_84, BgL_arg4844z00_1556); }  else 
{ /* ./Jvm/compiler.scm 658 */BFALSE; } 
return 
BGl__arraylengthz00zzjvm_instrz00(BgL_envz00_84);} 
}



/* _compiler-vlength5439 */
obj_t BGl__compilerzd2vlength5439zd2zzjvm_compilerz00(obj_t BgL_envz00_2567, obj_t BgL_ez00_2568, obj_t BgL_envz00_2569)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 654 */
return 
BGl_compilerzd2vlengthzd2zzjvm_compilerz00(
(BgL_vlengthz00_bglt)(BgL_ez00_2568), 
(BgL_envz00_bglt)(BgL_envz00_2569));} 
}



/* compiler-isa */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2isazd2zzjvm_compilerz00(BgL_isaz00_bglt BgL_ez00_85, BgL_envz00_bglt BgL_envz00_86)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 662 */
{ /* ./Jvm/compiler.scm 663 */
obj_t BgL_nz00_2456;
BgL_nz00_2456 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_85)); 
if(
CBOOL(BgL_nz00_2456))
{ /* ./Jvm/compiler.scm 663 */
BGl__linez00zzjvm_instrz00(BgL_envz00_86, BgL_nz00_2456); }  else 
{ /* ./Jvm/compiler.scm 663 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 665 */
obj_t BgL_arg4853z00_1559;
{ /* ./Jvm/compiler.scm 665 */
obj_t BgL_auxz00_4118;
{ /* ./Jvm/compiler.scm 665 */
BgL_externz00_bglt BgL_obj1817z00_2457;
BgL_obj1817z00_2457 = 
(BgL_externz00_bglt)(BgL_ez00_85); 
BgL_auxz00_4118 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2457))->BgL_exprza2za2); } 
BgL_arg4853z00_1559 = 
CAR(BgL_auxz00_4118); } 
BGl_compilezd2exprzd2zzjvm_exprz00(
(BgL_nodez00_bglt)(BgL_arg4853z00_1559), BgL_envz00_86); } 
{ /* ./Jvm/compiler.scm 666 */
obj_t BgL_arg4860z00_1561;
{ /* ./Jvm/compiler.scm 666 */
BgL_typez00_bglt BgL_arg4863z00_1562;
BgL_arg4863z00_1562 = 
(((BgL_isaz00_bglt)CREF(BgL_ez00_85))->BgL_classz00); 
BgL_arg4860z00_1561 = 
BGl_compilezd2typezd2zzjvm_envz00(
(obj_t)(BgL_arg4863z00_1562), BgL_envz00_86); } 
return 
BGl__instanceofz00zzjvm_instrz00(BgL_envz00_86, BgL_arg4860z00_1561);} } 
}



/* _compiler-isa5441 */
obj_t BGl__compilerzd2isa5441zd2zzjvm_compilerz00(obj_t BgL_envz00_2570, obj_t BgL_ez00_2571, obj_t BgL_envz00_2572)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 662 */
return 
BGl_compilerzd2isazd2zzjvm_compilerz00(
(BgL_isaz00_bglt)(BgL_ez00_2571), 
(BgL_envz00_bglt)(BgL_envz00_2572));} 
}



/* compiler-cast */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2castzd2zzjvm_compilerz00(BgL_castz00_bglt BgL_ez00_87, BgL_envz00_bglt BgL_envz00_88, obj_t BgL_compz00_89)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 669 */
{ /* ./Jvm/compiler.scm 670 */
obj_t BgL_nz00_2464;
BgL_nz00_2464 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_87)); 
if(
CBOOL(BgL_nz00_2464))
{ /* ./Jvm/compiler.scm 670 */
BGl__linez00zzjvm_instrz00(BgL_envz00_88, BgL_nz00_2464); }  else 
{ /* ./Jvm/compiler.scm 670 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 671 */
BgL_nodez00_bglt BgL_arg4868z00_2461;
BgL_arg4868z00_2461 = 
(((BgL_castz00_bglt)CREF(BgL_ez00_87))->BgL_argz00); 
return 
PROCEDURE_ENTRY(BgL_compz00_89)(BgL_compz00_89, 
(obj_t)(BgL_arg4868z00_2461), 
(obj_t)(BgL_envz00_88), BEOA);} } 
}



/* _compiler-cast5443 */
obj_t BGl__compilerzd2cast5443zd2zzjvm_compilerz00(obj_t BgL_envz00_2573, obj_t BgL_ez00_2574, obj_t BgL_envz00_2575, obj_t BgL_compz00_2576)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 669 */
return 
BGl_compilerzd2castzd2zzjvm_compilerz00(
(BgL_castz00_bglt)(BgL_ez00_2574), 
(BgL_envz00_bglt)(BgL_envz00_2575), BgL_compz00_2576);} 
}



/* compiler-setexit */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2setexitzd2zzjvm_compilerz00(BgL_setzd2exzd2itz00_bglt BgL_ez00_90, BgL_envz00_bglt BgL_envz00_91, obj_t BgL_compz00_92)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 675 */
{ /* ./Jvm/compiler.scm 676 */
obj_t BgL_nz00_2468;
BgL_nz00_2468 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_90)); 
if(
CBOOL(BgL_nz00_2468))
{ /* ./Jvm/compiler.scm 676 */
BGl__linez00zzjvm_instrz00(BgL_envz00_91, BgL_nz00_2468); }  else 
{ /* ./Jvm/compiler.scm 676 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 678 */
BgL_variablez00_bglt BgL_localz00_1566;
{ /* ./Jvm/compiler.scm 678 */
BgL_varz00_bglt BgL_arg4920z00_1584;
BgL_arg4920z00_1584 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_90))->BgL_varz00); 
BgL_localz00_1566 = 
(((BgL_varz00_bglt)CREF(BgL_arg4920z00_1584))->BgL_variablez00); } 
{ /* ./Jvm/compiler.scm 679 */
obj_t BgL_arg4873z00_1567;obj_t BgL_arg4875z00_1569;
BgL_arg4873z00_1567 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_91, 
CNST_TABLE_REF(((long)71))); 
BgL_arg4875z00_1569 = 
CNST_TABLE_REF(((long)31)); 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_91, BgL_arg4873z00_1567, BNIL, BgL_arg4875z00_1569); } 
{ /* ./Jvm/compiler.scm 680 */
obj_t BgL_arg4879z00_1570;
BgL_arg4879z00_1570 = 
BGl_envzd2declarezd2newzd2localzd2zzjvm_envz00(BgL_envz00_91, 
(BgL_localz00_bglt)(BgL_localz00_1566)); 
BGl__storez00zzjvm_instrz00(BgL_envz00_91, 
(BgL_localz00_bglt)(BgL_arg4879z00_1570)); } 
{ /* ./Jvm/compiler.scm 681 */
obj_t BgL_begz00_1571;obj_t BgL_endz00_1572;obj_t BgL_labz00_1573;obj_t BgL_contz00_1574;
BgL_begz00_1571 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5907z00zzjvm_compilerz00, BEOA); 
BgL_endz00_1572 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5908z00zzjvm_compilerz00, BEOA); 
BgL_labz00_1573 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5909z00zzjvm_compilerz00, BEOA); 
BgL_contz00_1574 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5895z00zzjvm_compilerz00, BEOA); 
{ /* ./Jvm/compiler.scm 685 */
obj_t BgL_arg4883z00_1575;
BgL_arg4883z00_1575 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_91, 
CNST_TABLE_REF(((long)72))); 
BGl__handlerz00zzjvm_instrz00(BgL_envz00_91, BgL_begz00_1571, BgL_endz00_1572, BgL_labz00_1573, BgL_arg4883z00_1575); } 
BGl__labelz00zzjvm_instrz00(BgL_envz00_91, BgL_begz00_1571); 
{ /* ./Jvm/compiler.scm 687 */
BgL_nodez00_bglt BgL_arg4888z00_1576;
BgL_arg4888z00_1576 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_90))->BgL_bodyz00); 
PROCEDURE_ENTRY(BgL_compz00_92)(BgL_compz00_92, 
(obj_t)(BgL_arg4888z00_1576), 
(obj_t)(BgL_envz00_91), BEOA); } 
BGl__labelz00zzjvm_instrz00(BgL_envz00_91, BgL_endz00_1572); 
{ /* ./Jvm/compiler.scm 689 */
obj_t BgL_stackz00_1577;
BgL_stackz00_1577 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_91))->BgL_stackz00); 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_91, BgL_contz00_1574); 
BGl__labelz00zzjvm_instrz00(BgL_envz00_91, BgL_labz00_1573); 
{ /* ./Jvm/compiler.scm 692 */
BgL_envz00_bglt BgL_obj3024z00_2473;obj_t BgL_val3023z00_2474;
BgL_obj3024z00_2473 = BgL_envz00_91; 
BgL_val3023z00_2474 = 
CNST_TABLE_REF(((long)30)); 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2473))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2474), BUNSPEC); } 
{ /* ./Jvm/compiler.scm 693 */
BgL_variablez00_bglt BgL_arg4896z00_1578;
{ /* ./Jvm/compiler.scm 693 */
BgL_varz00_bglt BgL_arg4899z00_1579;
BgL_arg4899z00_1579 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_90))->BgL_varz00); 
BgL_arg4896z00_1578 = 
(((BgL_varz00_bglt)CREF(BgL_arg4899z00_1579))->BgL_variablez00); } 
BGl__loadz00zzjvm_instrz00(BgL_envz00_91, 
(BgL_localz00_bglt)(BgL_arg4896z00_1578)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 695 */
obj_t BgL_arg4903z00_1580;
BgL_arg4903z00_1580 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_91, 
CNST_TABLE_REF(((long)73))); 
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_91, BgL_arg4903z00_1580); }  else 
{ /* ./Jvm/compiler.scm 695 */BFALSE; } 
{ /* ./Jvm/compiler.scm 696 */
obj_t BgL_arg4907z00_1581;obj_t BgL_arg4908z00_1582;obj_t BgL_arg4909z00_1583;
BgL_arg4907z00_1581 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_91, 
CNST_TABLE_REF(((long)74))); 
BgL_arg4908z00_1582 = 
CNST_TABLE_REF(((long)60)); 
BgL_arg4909z00_1583 = 
CNST_TABLE_REF(((long)31)); 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_91, BgL_arg4907z00_1581, BgL_arg4908z00_1582, BgL_arg4909z00_1583); } 
{ /* ./Jvm/compiler.scm 699 */
BgL_envz00_bglt BgL_obj3024z00_2477;obj_t BgL_val3023z00_2478;
BgL_obj3024z00_2477 = BgL_envz00_91; 
BgL_val3023z00_2478 = BgL_stackz00_1577; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2477))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2478), BUNSPEC); } 
return 
BGl__labelz00zzjvm_instrz00(BgL_envz00_91, BgL_contz00_1574);} } } } 
}



/* _compiler-setexit5445 */
obj_t BGl__compilerzd2setexit5445zd2zzjvm_compilerz00(obj_t BgL_envz00_2577, obj_t BgL_ez00_2578, obj_t BgL_envz00_2579, obj_t BgL_compz00_2580)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 675 */
return 
BGl_compilerzd2setexitzd2zzjvm_compilerz00(
(BgL_setzd2exzd2itz00_bglt)(BgL_ez00_2578), 
(BgL_envz00_bglt)(BgL_envz00_2579), BgL_compz00_2580);} 
}



/* compiler-jump-exit */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2jumpzd2exitz00zzjvm_compilerz00(BgL_jumpzd2exzd2itz00_bglt BgL_ez00_93, BgL_envz00_bglt BgL_envz00_94)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 703 */
{ /* ./Jvm/compiler.scm 704 */
obj_t BgL_nz00_2481;
BgL_nz00_2481 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_93)); 
if(
CBOOL(BgL_nz00_2481))
{ /* ./Jvm/compiler.scm 704 */
BGl__linez00zzjvm_instrz00(BgL_envz00_94, BgL_nz00_2481); }  else 
{ /* ./Jvm/compiler.scm 704 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 706 */
BgL_nodez00_bglt BgL_arg4925z00_1586;
BgL_arg4925z00_1586 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_ez00_93))->BgL_exitz00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4925z00_1586, BgL_envz00_94); } 
{ /* ./Jvm/compiler.scm 707 */
BgL_nodez00_bglt BgL_arg4929z00_1587;
BgL_arg4929z00_1587 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_ez00_93))->BgL_valuez00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4929z00_1587, BgL_envz00_94); } 
{ /* ./Jvm/compiler.scm 708 */
obj_t BgL_arg4933z00_1588;obj_t BgL_arg4934z00_1589;obj_t BgL_arg4935z00_1590;
BgL_arg4933z00_1588 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_94, 
CNST_TABLE_REF(((long)75))); 
BgL_arg4934z00_1589 = 
CNST_TABLE_REF(((long)60)); 
BgL_arg4935z00_1590 = 
CNST_TABLE_REF(((long)31)); 
return 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_94, BgL_arg4933z00_1588, BgL_arg4934z00_1589, BgL_arg4935z00_1590);} } 
}



/* _compiler-jump-exit5447 */
obj_t BGl__compilerzd2jumpzd2exit5447z00zzjvm_compilerz00(obj_t BgL_envz00_2581, obj_t BgL_ez00_2582, obj_t BgL_envz00_2583)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 703 */
return 
BGl_compilerzd2jumpzd2exitz00zzjvm_compilerz00(
(BgL_jumpzd2exzd2itz00_bglt)(BgL_ez00_2582), 
(BgL_envz00_bglt)(BgL_envz00_2583));} 
}



/* compiler-fail */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2failzd2zzjvm_compilerz00(BgL_failz00_bglt BgL_ez00_95, BgL_envz00_bglt BgL_envz00_96)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 711 */
{ /* ./Jvm/compiler.scm 712 */
obj_t BgL_nz00_2486;
BgL_nz00_2486 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_95)); 
if(
CBOOL(BgL_nz00_2486))
{ /* ./Jvm/compiler.scm 712 */
BGl__linez00zzjvm_instrz00(BgL_envz00_96, BgL_nz00_2486); }  else 
{ /* ./Jvm/compiler.scm 712 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 714 */
BgL_nodez00_bglt BgL_arg4940z00_1592;
BgL_arg4940z00_1592 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_95))->BgL_procz00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4940z00_1592, BgL_envz00_96); } 
{ /* ./Jvm/compiler.scm 715 */
BgL_nodez00_bglt BgL_arg4944z00_1593;
BgL_arg4944z00_1593 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_95))->BgL_msgz00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4944z00_1593, BgL_envz00_96); } 
{ /* ./Jvm/compiler.scm 716 */
BgL_nodez00_bglt BgL_arg4948z00_1594;
BgL_arg4948z00_1594 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_95))->BgL_objz00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4948z00_1594, BgL_envz00_96); } 
{ /* ./Jvm/compiler.scm 717 */
obj_t BgL_arg4952z00_1595;obj_t BgL_arg4953z00_1596;obj_t BgL_arg4954z00_1597;
BgL_arg4952z00_1595 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_96, 
CNST_TABLE_REF(((long)76))); 
BgL_arg4953z00_1596 = 
CNST_TABLE_REF(((long)65)); 
BgL_arg4954z00_1597 = 
CNST_TABLE_REF(((long)31)); 
BGl__invokestaticz00zzjvm_instrz00(BgL_envz00_96, BgL_arg4952z00_1595, BgL_arg4953z00_1596, BgL_arg4954z00_1597); } 
return 
BGl__athrowz00zzjvm_instrz00(BgL_envz00_96);} 
}



/* _compiler-fail5449 */
obj_t BGl__compilerzd2fail5449zd2zzjvm_compilerz00(obj_t BgL_envz00_2584, obj_t BgL_ez00_2585, obj_t BgL_envz00_2586)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 711 */
return 
BGl_compilerzd2failzd2zzjvm_compilerz00(
(BgL_failz00_bglt)(BgL_ez00_2585), 
(BgL_envz00_bglt)(BgL_envz00_2586));} 
}



/* compiler-make-box */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2makezd2boxz00zzjvm_compilerz00(BgL_makezd2boxzd2_bglt BgL_ez00_97, BgL_envz00_bglt BgL_envz00_98)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 721 */
{ /* ./Jvm/compiler.scm 722 */
obj_t BgL_nz00_2492;
BgL_nz00_2492 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_97)); 
if(
CBOOL(BgL_nz00_2492))
{ /* ./Jvm/compiler.scm 722 */
BGl__linez00zzjvm_instrz00(BgL_envz00_98, BgL_nz00_2492); }  else 
{ /* ./Jvm/compiler.scm 722 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 724 */
obj_t BgL_arg4960z00_1599;
BgL_arg4960z00_1599 = 
BGl_compilezd2typezd2zzjvm_envz00(
CNST_TABLE_REF(((long)77)), BgL_envz00_98); 
BGl__newz00zzjvm_instrz00(BgL_envz00_98, BgL_arg4960z00_1599); } 
BGl__dupz00zzjvm_instrz00(BgL_envz00_98); 
{ /* ./Jvm/compiler.scm 726 */
BgL_nodez00_bglt BgL_arg4965z00_1600;
BgL_arg4965z00_1600 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_ez00_97))->BgL_valuez00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg4965z00_1600, BgL_envz00_98); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 728 */
obj_t BgL_arg4969z00_1601;obj_t BgL_arg4970z00_1602;obj_t BgL_arg4971z00_1603;
BgL_arg4969z00_1601 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_98, 
CNST_TABLE_REF(((long)78))); 
BgL_arg4970z00_1602 = 
CNST_TABLE_REF(((long)60)); 
BgL_arg4971z00_1603 = 
CNST_TABLE_REF(((long)25)); 
return 
BGl__invokespecialz00zzjvm_instrz00(BgL_envz00_98, BgL_arg4969z00_1601, BgL_arg4970z00_1602, BgL_arg4971z00_1603);}  else 
{ /* ./Jvm/compiler.scm 729 */
obj_t BgL_arg4975z00_1604;
BgL_arg4975z00_1604 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_98, 
CNST_TABLE_REF(((long)79))); 
return 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_98, BgL_arg4975z00_1604);} } 
}



/* _compiler-make-box5451 */
obj_t BGl__compilerzd2makezd2box5451z00zzjvm_compilerz00(obj_t BgL_envz00_2587, obj_t BgL_ez00_2588, obj_t BgL_envz00_2589)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 721 */
return 
BGl_compilerzd2makezd2boxz00zzjvm_compilerz00(
(BgL_makezd2boxzd2_bglt)(BgL_ez00_2588), 
(BgL_envz00_bglt)(BgL_envz00_2589));} 
}



/* compiler-box-ref */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2boxzd2refz00zzjvm_compilerz00(BgL_boxzd2refzd2_bglt BgL_ez00_99, BgL_envz00_bglt BgL_envz00_100)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 732 */
{ /* ./Jvm/compiler.scm 733 */
obj_t BgL_nz00_2496;
BgL_nz00_2496 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_99)); 
if(
CBOOL(BgL_nz00_2496))
{ /* ./Jvm/compiler.scm 733 */
BGl__linez00zzjvm_instrz00(BgL_envz00_100, BgL_nz00_2496); }  else 
{ /* ./Jvm/compiler.scm 733 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 735 */
BgL_variablez00_bglt BgL_arg4980z00_1606;
{ /* ./Jvm/compiler.scm 735 */
BgL_varz00_bglt BgL_arg4983z00_1607;
BgL_arg4983z00_1607 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_ez00_99))->BgL_varz00); 
BgL_arg4980z00_1606 = 
(((BgL_varz00_bglt)CREF(BgL_arg4983z00_1607))->BgL_variablez00); } 
BGl__loadz00zzjvm_instrz00(BgL_envz00_100, 
(BgL_localz00_bglt)(BgL_arg4980z00_1606)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 736 */
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_100, 
CNST_TABLE_REF(((long)80))); }  else 
{ /* ./Jvm/compiler.scm 736 */BFALSE; } 
{ /* ./Jvm/compiler.scm 737 */
obj_t BgL_arg4988z00_1608;obj_t BgL_arg4989z00_1609;
BgL_arg4988z00_1608 = 
CNST_TABLE_REF(((long)51)); 
BgL_arg4989z00_1609 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_100, 
CNST_TABLE_REF(((long)79))); 
return 
BGl__getfieldz00zzjvm_instrz00(BgL_envz00_100, BgL_arg4988z00_1608, BgL_arg4989z00_1609);} } 
}



/* _compiler-box-ref5453 */
obj_t BGl__compilerzd2boxzd2ref5453z00zzjvm_compilerz00(obj_t BgL_envz00_2590, obj_t BgL_ez00_2591, obj_t BgL_envz00_2592)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 732 */
return 
BGl_compilerzd2boxzd2refz00zzjvm_compilerz00(
(BgL_boxzd2refzd2_bglt)(BgL_ez00_2591), 
(BgL_envz00_bglt)(BgL_envz00_2592));} 
}



/* compiler-box-set! */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2boxzd2setz12z12zzjvm_compilerz00(BgL_boxzd2setz12zc0_bglt BgL_ez00_101, BgL_envz00_bglt BgL_envz00_102)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 740 */
{ /* ./Jvm/compiler.scm 741 */
obj_t BgL_nz00_2501;
BgL_nz00_2501 = 
BGl_getzd2linezd2numberz00zzjvm_externz00(
(BgL_nodez00_bglt)(BgL_ez00_101)); 
if(
CBOOL(BgL_nz00_2501))
{ /* ./Jvm/compiler.scm 741 */
BGl__linez00zzjvm_instrz00(BgL_envz00_102, BgL_nz00_2501); }  else 
{ /* ./Jvm/compiler.scm 741 */
CNST_TABLE_REF(((long)4)); } } 
{ /* ./Jvm/compiler.scm 742 */
BgL_variablez00_bglt BgL_arg4994z00_1610;
{ /* ./Jvm/compiler.scm 742 */
BgL_varz00_bglt BgL_arg4997z00_1611;
BgL_arg4997z00_1611 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_ez00_101))->BgL_varz00); 
BgL_arg4994z00_1610 = 
(((BgL_varz00_bglt)CREF(BgL_arg4997z00_1611))->BgL_variablez00); } 
BGl__loadz00zzjvm_instrz00(BgL_envz00_102, 
(BgL_localz00_bglt)(BgL_arg4994z00_1610)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/compiler.scm 743 */
BGl__checkcastz00zzjvm_instrz00(BgL_envz00_102, 
CNST_TABLE_REF(((long)80))); }  else 
{ /* ./Jvm/compiler.scm 743 */BFALSE; } 
{ /* ./Jvm/compiler.scm 744 */
BgL_nodez00_bglt BgL_arg5002z00_1612;
BgL_arg5002z00_1612 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_ez00_101))->BgL_valuez00); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_arg5002z00_1612, BgL_envz00_102); } 
{ /* ./Jvm/compiler.scm 745 */
obj_t BgL_arg5006z00_1613;
BgL_arg5006z00_1613 = 
BGl_jlibzd2declarezd2zzjvm_envz00(BgL_envz00_102, 
CNST_TABLE_REF(((long)79))); 
return 
BGl__putfieldz00zzjvm_instrz00(BgL_envz00_102, BgL_arg5006z00_1613);} } 
}



/* _compiler-box-set!5455 */
obj_t BGl__compilerzd2boxzd2setz125455z12zzjvm_compilerz00(obj_t BgL_envz00_2593, obj_t BgL_ez00_2594, obj_t BgL_envz00_2595)
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 740 */
return 
BGl_compilerzd2boxzd2setz12z12zzjvm_compilerz00(
(BgL_boxzd2setz12zc0_bglt)(BgL_ez00_2594), 
(BgL_envz00_bglt)(BgL_envz00_2595));} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzjvm_compilerz00()
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 8 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzjvm_compilerz00()
{ AN_OBJECT;
{ /* ./Jvm/compiler.scm 8 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzforeign_jtypez00(((long)33635), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_lispz00(((long)16895), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_externz00(((long)3672), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_envz00(((long)58889), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_instrz00(((long)18045), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_inlinez00(((long)20777), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_tailz00(((long)9504), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_exprz00(((long)25872), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_effectz00(((long)54912), "jvm_compiler"); 
BGl_modulezd2initializa7ationz75zzjvm_predicatez00(((long)50624), "jvm_compiler"); 
return 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "jvm_compiler");} 
}

